Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRTSTOUT

Package: Lab Service

Routine: LRTSTOUT


Information

LRTSTOUT ;DALOI/STAFF - JAM TESTS OFF ACCESSIONS ;10/12/11 11:54

Source Information

Source file <LRTSTOUT.m>

Call Graph

Call Graph

Call Graph Total: 21

Package Total Call Graph
Lab Service 11 NEW^LR7OB1  COM^LRNUM  DC^LROR6  SHOW^LROS  EN^LRPARAM  END^LRTSTJAM  V^LRU  XREF^LRVER3A  
SETRL^LRVERA  ^LRWU4  PT^LRX  
VA FileMan 5 (,$$FIND1)^DIC  (FILE,UPDATE)^DIE  (CLEAN,LOCK)^DILF  $$GET1^DIQ  ^DIR  
Automated Lab Instruments 3 EN^LA7ADL  UNWIND^LA7ADL1  (MIAP,SET)^LA7VMSG  
Kernel 1 ($$FMTE,$$NOW)^XLFDT  
Registration 1 KVA^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Lab Service 7 LR7OMERG  LRCENDEL  LRPHITE2  LRPHITEM  LRTSTJAM  LRTSTJAN  LRTSTOUT  

Entry Points

Name Comments DBIA/ICR reference
EN ;
FIX ;
FX1 ;
CHG ;
SHOWTST ;
DEMO
SET ;
ROL ;
LRACC ;
LREND ;
UNLOCK ;
EXIT ;
END ;
FX2 ;
FX3 ;
UPD63(LRDFN,LRSS,LRIDT,LRTNM,LRCCOM) ; Update file #63 with comment reflecting dispostion.
CLNPENDG ; Remove pending and other info from Lab test when set to not performed
ORUT ; Update ORUT node in file #63 with this disposition
LEDICHK ; Add test to LROTA array if it is a LEDI accesison - added with ccr_6164n
LEDISET(LROTA) ; added with ccr_6164n
LEDI(LRAA,LRAD,LRAN,LRDFN,LRSS,LRIDT,LRODT,LRORDTST,LA7VDB) ; Put accession in queue to send message back to collecting site.
CHK63(LR60,LRDFN,LRSS,LRIDT) ; Check if tests being NP already have resuls in file #63.
; Call with LR60 = ien of entry in file #60
; LRDFN = ien of entry in file #63
; LRSS = file #63 subscript
; LRIDT = file #63 inverse date/time of specimen

External References

Name Field # of Occurrence
^DIC CHG+5
$$FIND1^DIC ORUT+13, ORUT+17
FILE^DIE UPD63+11, ORUT+26
UPDATE^DIE UPD63+16
CLEAN^DILF UPD63+18, ORUT+27
LOCK^DILF FIX+6, FIX+15
$$GET1^DIQ ORUT+11, ORUT+15, LEDI+11
^DIR FIX+25, SHOWTST+9, FX2+15, FX3+7, FX3+22
EN^LA7ADL SET+45
UNWIND^LA7ADL1 LEDISET+20, CHK63+14
MIAP^LA7VMSG LEDI+15
SET^LA7VMSG LEDI+12
NEW^LR7OB1 SET+20
COM^LRNUM FX3+14
DC^LROR6 FX2+2
SHOW^LROS FIX+22
EN^LRPARAM EN+2
END^LRTSTJAM END+4
V^LRU END+4
XREF^LRVER3A SET+34
SETRL^LRVERA SET+40
^LRWU4 LRACC+2
PT^LRX FIX+12
KVA^VADPT END+4
$$FMTE^XLFDT SHOWTST+8, SET+12, UPD63+6
$$NOW^XLFDT FIX+2, SET+1, UPD63+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"You are not authorized to change test status.",!,$C(7)
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: FIX+3
Function Call: WRITE
  • Prompt: !?5,"Accession has no Test ",!
  • Line Location: FIX+5
Function Call: WRITE
  • Prompt: !,"Someone else is working on this accession",!
  • Line Location: FIX+7
Function Call: WRITE
  • Prompt: !,PNM,?30,SSN
  • Line Location: FIX+13
Function Call: WRITE
  • Prompt: !,"Someone else is working on this data."
  • Line Location: FIX+16
Function Call: WRITE
  • Prompt: !?5," Can't find Lab Data for this accession",!
  • Line Location: FIX+18
Function Call: WRITE
  • Prompt: !
  • Line Location: CHG+2
Function Call: WRITE
  • Prompt: !?5,"No Test Selected",!
  • Line Location: CHG+8
Function Call: WRITE
  • Prompt: !,"NO CHANGE"
  • Line Location: CHG+9
Function Call: WRITE
  • Prompt: !?5,"There is no Order for this Accession",!
  • Line Location: CHG+11
Function Call: WRITE
  • Prompt: @IOF,!!?5,"Change Accession : ",LRACN,?40,"UID: ",LRUID
  • Line Location: CHG+12
Function Call: WRITE
  • Prompt: !?10,LRCTST(I)
  • Line Location: CHG+18
Function Call: WRITE
  • Prompt: ?40," Results entered for this test, cannot NP until removed."
  • Line Location: CHG+21
Function Call: WRITE
  • Prompt: ?40," Results entered for this test, cannot NP this test."
  • Line Location: CHG+22
Function Call: WRITE
  • Prompt: ?40," Results verified for this test, cannot NP this test."
  • Line Location: CHG+23
Function Call: WRITE
  • Prompt: !,?5,$P(^(0),U)
  • Line Location: SHOWTST+7
Function Call: WRITE
  • Prompt: ?35," "_$S($L($P(LRIC,U,3)):$P(LRIC,U,3),1:"Completed")_" "_$$FMTE^XLFDT($P(LRIC,U,2),"1FMZ")_" by "_$P(LRIC,U)
  • Line Location: SHOWTST+8
Function Call: WRITE
  • Prompt: !,PNM,?50,SSN
  • Line Location: DEMO+0
Function Call: WRITE
  • Prompt: !,"TESTS ON ACCESSION: ",LRACN,?40,"UID: ",LRUID
  • Line Location: DEMO+1
Function Call: WRITE
  • Prompt: !?5,"No Subscript for this Accession Area ",!!
  • Line Location: LRACC+5
Function Call: WRITE
  • Prompt: !!,$C(7),"Nothing Changed",!
  • Line Location: FX2+2
Function Call: WRITE
  • Prompt: !
  • Line Location: FX2+14
Function Call: WRITE
  • Prompt: !
  • Line Location: FX3+6
Function Call: WRITE
  • Prompt: !,"("_LRCCOM_")"
  • Line Location: FX3+19
Routine Call
  • DIC
  • Line Location:
    • CHG+5
Routine Call
  • DIC
  • Line Location:
    • ORUT+13
    • ORUT+17
Routine Call
  • DIE
  • Line Location:
    • UPD63+11
    • ORUT+26
Routine Call
  • DIE
  • Line Location:
    • UPD63+16
Routine Call
  • DIR
  • Line Location:
    • FIX+25
    • SHOWTST+9
    • FX2+15
    • FX3+7
    • FX3+22

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAM - [#64] GET1^DIQ
^LAB(64.061 - [#64.061] FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] CHG+5, CHG+30, SHOWTST+6, CLNPENDG+2, ORUT+4, ORUT+7, LEDISET+23, LEDI+10, CHK63+17
^LR - [#63] FIX+11, FIX+18, SET+32, UNLOCK+1, CLNPENDG+4!, CLNPENDG+5!, ORUT+12, ORUT+16, CHK63+19, CHK63+20
, CHK63+21, CHK63+22
^LRO(68 - [#68] FIX+5, FIX+9, FIX+14, CHG+31, SHOWTST+5, SHOWTST+6, SHOWTST+11, SET+17, SET+28, SET+29
, SET+30, SET+34, SET+44, SET+45, ROL+1, ROL+2*, LRACC+3, LRACC+4, UNLOCK+2, ORUT+6
, LEDICHK+16, LEDICHK+18, LEDICHK+20, LEDI+10
^LRO(69 - [#69] FIX+20, CHG+11, SET+2, SET+7, SET+8, SET+10, SET+11*, SET+12*, SET+13*, SET+14
, SET+17*, SET+18*, SET+22*, SET+23*

Label References

Name Line Occurrences
$$CHK63 CHG+19
CHG EN+10
CLNPENDG CHG+31
DEMO SHOWTST+3, SHOWTST+9
END EN+6, CHG+9, CHG+11
EXIT EN+12
FIX EN+8
FX2 CHG+26
FX3 FX2+3, FX2+20
LEDI LEDISET+26
LEDICHK CHG+32
LEDISET CHG+35
LRACC FIX+3
ORUT SET+39
ROL SET+29, SET+30
SET CHG+31
SHOWTST FX1+1
UNLOCK EN+9, EN+11, FIX+18, CHG+7, CHG+9, CHG+11
UPD63 SET+33

Naked Globals

Name Field # of Occurrence
^( FIX+9, SET+7
^(0 FIX+11, CHG+30, SHOWTST+7, SET+7, SET+8, SET+10, SET+22*, SET+28*
^(4 SET+28, ROL+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA(1 LRACC+4*
>> DA(2 LRACC+4*
>> DFN FIX+11*
DI END+2!
DIC CHG+1~, CHG+4*
DIC("A" CHG+3*, CHG+5*
DIC("S" CHG+4*
DIC(0 CHG+4*
DIERR ORUT+1~
DIR FIX+24!, SHOWTST+1~, END+2!, FX2+5~, FX3+1~, FX3+20!
DIR("?" FX2+7*, FX2+8*, FX2+9*, FX2+10*
DIR("A" FX2+6*, FX3+3*, FX3+21*
DIR("B" FX3+4*, FX3+21*
DIR(0 FIX+25*, SHOWTST+2*, FX2+6*, FX3+5*, FX3+21*
DIROUT SHOWTST+1~, FX2+5~, FX3+1~
DIRUT FIX+26, SHOWTST+1~, SHOWTST+9, FX2+5~, FX3+1~, FX3+23
DT SET+13, SET+18, SET+34
DTOUT SHOWTST+1~, FX2+5~, FX2+16, FX3+1~, FX3+8
DUOUT SHOWTST+1~, FX2+5~, FX2+16, FX3+1~, FX3+8
DUZ SET+22, SET+23, SET+28, ROL+2, UPD63+6, ORUT+25
DUZ(2 SET+40
FDA UPD63+2~
FDA(1 UPD63+10*, UPD63+12!, UPD63+15*, UPD63+16, UPD63+17!
I CHG+1~, CHG+15*, CHG+16*, CHG+18, CHG+19
II SET+4~, SET+20, SET+24!
II( SET+9*
IOF EN+4, CHG+12
LA7TREE LEDISET+19~, CHK63+12~
LA7TREE( LEDISET+22, CHK63+16
LA7VDB LEDISET+14~, LEDISET+16*, LEDISET+26, LEDI~, LEDI+12
LA7VDB( LEDISET+25*
>> LR1AA SET+17
>> LR1AD SET+17
>> LR1AN SET+17
LR60 ORUT+1~, ORUT+3*, ORUT+4, ORUT+6, CHK63~, CHK63+14
LR60P ORUT+1~, ORUT+6*, ORUT+7
LR64 ORUT+1~, ORUT+3*, ORUT+4*, ORUT+8, ORUT+11, LEDI+9~, LEDI+10*, LEDI+11
LR64(0 ORUT+11*, ORUT+12
LR64P ORUT+1~, ORUT+3*, ORUT+7*, ORUT+8, ORUT+14, ORUT+15
LR64P(0 ORUT+15*, ORUT+16
LRAA FIX+5, FIX+9, FIX+14, FIX+21~, CHG+4, CHG+31, SHOWTST+5, SHOWTST+6, SHOWTST+11, SET+14
, SET+28, SET+29, SET+30, SET+34, SET+44, SET+45, ROL+1, ROL+2, LRACC+3, LRACC+4
, UNLOCK+2, ORUT+6, LEDICHK+16, LEDICHK+18, LEDICHK+20, LEDICHK+22, LEDI~, LEDI+10, LEDI+15
LRACC FIX+1~, FIX+3*
LRACN FIX+9*, FIX+21~, CHG+12, DEMO+1, EXIT+1!, END+2!
LRACN0 END+2!
LRAD FIX+5, FIX+9, FIX+14, FIX+21~, CHG+4, CHG+31, SHOWTST+5, SHOWTST+6, SHOWTST+11, SET+14
, SET+28, SET+29, SET+30, SET+34, SET+44, SET+45, LRACC+4, UNLOCK+2, ORUT+6, LEDICHK+16
, LEDICHK+18, LEDICHK+20, LEDICHK+22, LEDI~, LEDI+10, LEDI+15
LRAGE END+2!
LRAN FIX+4, FIX+5, FIX+9, FIX+14, CHG+4, CHG+31, SHOWTST+5, SHOWTST+6, SHOWTST+11, SET+14
, SET+28, SET+29, SET+30, SET+34, SET+44, SET+45, ROL+1, ROL+2, LRACC+1!, LRACC+3
, LRACC+5*, UNLOCK+2, ORUT+6, LEDICHK+16, LEDICHK+18, LEDICHK+20, LEDICHK+22, LEDI~, LEDI+10, LEDI+15
LRCCOM CHG+10*, SET+11, SET+32, SET+33, FX2+20, FX3+18*, FX3+19, FX3+24*, FX3+25*, UPD63~
, UPD63+14
LRCCOM0 END+1!
LRCCOM1 END+1!, FX2+1*
LRCCOMO UPD63+2~, UPD63+6*, UPD63+10, UPD63+14
LRCCOMX END+1!, FX3+18*, FX3+25*
LRCOM END+2!, FX2+1*
LRCOMM CHG+1~
LRCTST CHG+1~, END+2!
LRCTST( CHG+5*, CHG+16, CHG+18, CHG+29
LRCTST(0 CHG+6
>> LRDBUG SET+5
LRDFN FIX+10*, FIX+11, FIX+18, CHG+19, SET+32, SET+33, SET+40, ROL+1, UNLOCK+1, UPD63~
, UPD63+10, UPD63+15, CLNPENDG+4, CLNPENDG+5, ORUT+12, ORUT+16, ORUT+22, LEDICHK+22, LEDI~, LEDI+12
, LEDI+15, CHK63~, CHK63+19, CHK63+20, CHK63+21, CHK63+22
LRDIE UPD63+2~, ORUT+1~
LRDIE(1 UPD63+12!, UPD63+17!
LRDISPO ORUT+1~, ORUT+3*, ORUT+13*, ORUT+17*, ORUT+18, ORUT+23
LRDOC END+2!
>> LRDPF FIX+11*, FX2+2
LREND EN+1~, EN+2, EN+3*, EN+5, EN+7*, EN+9, FIX+2*, FIX+4*, CHG+10*, CHG+26
, CHG+33, CHG+37*, LRACC+2*, LREND+1*, EXIT+1!, FX2+1*, FX2+2*, FX2+16*, FX2+20, FX3+2*
, FX3+8*, FX3+11, FX3+23*
LREXMPT LRACC+2*!
LRFDA ORUT+1~
LRFDA(63 ORUT+23*, ORUT+24*, ORUT+25*
LRFLAG CHK63+12~, CHK63+15*, CHK63+22*, CHK63+23*, CHK63+24*, CHK63+26
LRFN UPD63+2~, UPD63+8*, UPD63+10, UPD63+15, ORUT+1~, ORUT+20*, ORUT+21, ORUT+23, ORUT+24, ORUT+25
LRI SHOWTST+1~, SHOWTST+4*, SHOWTST+5*, SHOWTST+6, SET+4~, SET+6*, SET+7*, SET+8, SET+10, SET+11
, SET+12, SET+13, SET+14, SET+17, SET+18, SET+22, SET+23, END+1!
LRIC SHOWTST+1~, SHOWTST+6*, SHOWTST+8
LRIDT FIX+14*, FIX+18, CHG+19, SET+32, SET+33, SET+38, SET+40, UNLOCK+1, UPD63~, UPD63+10
, UPD63+15, CLNPENDG+4, CLNPENDG+5, ORUT+12, ORUT+16, ORUT+22, LEDICHK+22, LEDI~, LEDI+12, LEDI+15
, CHK63~, CHK63+19, CHK63+20, CHK63+21, CHK63+22
LRIEN ORUT+1~, ORUT+3*, ORUT+11*, ORUT+12*, ORUT+13, ORUT+14, ORUT+16*, ORUT+17, ORUT+22*, ORUT+23
, ORUT+24, ORUT+25
LRIFN CLNPENDG+1~, CLNPENDG+2*, CLNPENDG+3, CLNPENDG+4, CLNPENDG+5
LRL END+1!, FX3+1~, FX3+2*, FX3+5, FX3+14
>> LRLABKY EN+3, CHG+33, SET+12, FX2+3, FX3+3, FX3+12, FX3+19, FX3+24, UPD63+6
LRLABRV EXIT+1!
LRLL END+2!
>> LRLLOC SET+2*
>> LRMERG SET+12, SET+14, SET+28, ROL+2, UPD63+6
LRMERGSO SET+4~, SET+19*, SET+22, SET+24!
LRMSTATI SET+19*, SET+20, END+1!
LRN SHOWTST+1~, SHOWTST+4*, SHOWTST+7*, SHOWTST+9*
LRNATURE FIX+1~, SET+11, SET+20, END+1!, FX2+2
LRNOECHO EXIT+1!, FX2+12!, UPD63+2~, UPD63+5*
LRNOP EN+7*, EN+10, FIX+2*, FIX+3, FIX+5*, FIX+7*, FIX+16*, FIX+18*, FIX+26*, CHG+20*
, CHG+24, LRACC+5*, END+1!
LRNOW FIX+2*, SET+1*, SET+12, SET+28, ROL+2, EXIT+1!, END+2!, UPD63+4*, UPD63+6, ORUT+24
LROD0 END+3!
LROD1 END+3!
LROD3 END+3!
LRODT FIX+10*, FIX+20, CHG+9, CHG+11, SHOWTST+11*, SET+2, SET+7, SET+8, SET+10, SET+11
, SET+12, SET+13, SET+14, SET+17, SET+18, SET+20, SET+22, SET+23, LEDICHK+22, LEDI~
, LEDI+12, LEDI+15
LROOS END+3!
LRORDTST CHG+31*, END+1!, LEDICHK+14~, LEDICHK+20*, LEDICHK+21*, LEDICHK+22, LEDICHK+23, LEDICHK+24, LEDISET+6~, LEDISET+12*
, LEDISET+13*, LEDISET+15, LEDISET+18, LEDISET+26, LEDI~, LEDI+10, LEDI+15
LRORU3 LEDI+9~, LEDI+10*, LEDI+12
LROS END+3!
LROSD END+3!
LROT END+3!
LROTA CHG+1~, CHG+35, LEDISET~, LEDISET+8
LROTA( LEDICHK+22*, LEDICHK+24*, LEDISET+11, LEDISET+13, LEDISET+15, LEDISET+18
LROWDT SET+29*, SET+30*, ROL+1, ROL+2, END+1!
LRPRAC END+1!
LRROD END+3!
LRSAV FX3+13~*, FX3+14
LRSB LEDISET+19~, LEDISET+23*, LEDISET+24, LEDISET+25, CHK63+12~, CHK63+17*, CHK63+18, CHK63+19, CHK63+20, CHK63+21
LRSCN END+1!, FX2+13*, FX2+17*, FX3+13, FX3+14*
LRSCNX EXIT+1!
>> LRSN FIX+10*, FIX+20, CHG+9, CHG+11, SHOWTST+11*, SET+2, SET+7, SET+8, SET+10, SET+11
, SET+12, SET+13, SET+14, SET+17, SET+18, SET+20, SET+22, SET+23
LRSOF SET+15, SET+24!
LRSS FIX+18, CHG+19, SET+32, SET+33, SET+38, SET+40, LRACC+4*, LRACC+5, UNLOCK+1, UPD63~
, UPD63+8, UPD63+9, CLNPENDG+3, CLNPENDG+4, CLNPENDG+5, ORUT+12, ORUT+16, ORUT+20, LEDICHK+22, LEDI~
, LEDI+8, LEDI+12, LEDI+15, CHK63~, CHK63+19, CHK63+20, CHK63+21, CHK63+22
LRSTATUS SET+4~, SET+9*, SET+20
LRTNM CHG+30*, CHG+33, SET+33, UPD63~, UPD63+6
LRTPN LEDI+9~, LEDI+11*, LEDI+12
LRTPNN LEDI+9~, LEDI+11*, LEDI+12
LRTSTS CHG+28*, CHG+29*, CHG+30, CHG+31, SET+7, SET+9, SET+28, ROL+1, ROL+2, END+1!
, CLNPENDG+2, ORUT+3, LEDICHK+20, LEDICHK+21, LEDICHK+23, LEDICHK+24, LEDISET+14~, LEDISET+17*, LEDISET+18*, LEDISET+20
LRTT END+3!
LRUID FIX+9*, CHG+12, DEMO+1, END+1!, LEDICHK+14~, LEDICHK+18*, LEDICHK+19, LEDICHK+22, LEDICHK+24, LEDISET+6~
, LEDISET+10*, LEDISET+11*, LEDISET+13, LEDISET+15, LEDISET+18
LRX FIX+9*, FIX+10, CHG+17~, CHG+19*, CHG+20, CHG+21, CHG+22, CHG+23, LEDISET+6~, LEDISET+14~
, LEDISET+15*, LEDISET+25, LEDISET+26, CHK63+12~, CHK63+15*, CHK63+16*, CHK63+17
LRXX EN+4~, CHG+1~, END+2!, FX3+4, FX3+14*
LRY SHOWTST+1~, SHOWTST+5, SHOWTST+9*, FX3+1~, FX3+9*, FX3+14, FX3+17*, FX3+18, UPD63+2~, UPD63+14*
, UPD63+15, LEDISET+19~, LEDISET+21*, LEDISET+22*, LEDISET+23
OCXTRACE SET+4~, SET+5*
ORIFN SET+4~, SET+8*, SET+20, SET+26!
ORSTS SET+4~, SET+26!
>> PNM FIX+13, DEMO
Q9 END+2!, FX3+14*
>> SSN FIX+13, DEMO
U FIX+5, FIX+9, FIX+10, FIX+11, FIX+14, CHG+5, CHG+30, CHG+31, SHOWTST+6, SHOWTST+7
, SHOWTST+8, SHOWTST+11, SET+2, SET+8, SET+10, SET+11, SET+22, SET+28, SET+29, ROL+2
, LRACC+4, CLNPENDG+2, CLNPENDG+4, CLNPENDG+5, LEDICHK+20, LEDICHK+22, LEDISET+23, LEDISET+25, LEDISET+26, LEDI+12
X SHOWTST+1~, SHOWTST+11*, SET+4~, SET+10*, SET+11*, SET+12, SET+13, SET+16*, SET+17, SET+18
, FX2+5~, FX2+18!, FX3+14*, FX3+15, FX3+16*, FX3+17
X(1 SET+10*, SET+11*, SET+13, SET+16*, SET+18
X4 END+3!
Y CHG+5, FX2+5~, FX2+17, FX2+18!, FX3+9, FX3+24
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All