Routine: LRHYLS1

Package	Total	Call Graph
Lab Service	6	PRAC^LR7OMERG $$DTF^LRAFUNC1 BUILD^LRHYT2 (SCRNOFF,SCRNON)^LRHYUTL LEDI^LRWRKLS1 (DASH,DD,PT)^LRX
VA Fileman	1	^DIR

Package

Total

Call Graph

Lab Service

PRAC^LR7OMERG $$DTF^LRAFUNC1 BUILD^LRHYT2 (SCRNOFF,SCRNON)^LRHYUTL LEDI^LRWRKLS1 (DASH,DD,PT)^LRX

VA Fileman

^DIR

Package	Total	Caller Graph
Lab Service	2	LRHYF1 LRHYF2

Package

Total

Caller Graph

Lab Service

LRHYF1 LRHYF2

Name	Comments	DBIA/ICR reference
LEDI	; print LEDI information
CHKPAGE	;
FLASH	;
TSTCOM	;
LST1	;

Name	Field # of Occurrence
^DIR	CHKPAGE+5
PRAC^LR7OMERG	LST1+32
$$DTF^LRAFUNC1	LST1+24
BUILD^LRHYT2	LST1+21
SCRNOFF^LRHYUTL	FLASH+5
SCRNON^LRHYUTL	FLASH+1
LEDI^LRWRKLS1	LEDI+1
DASH^LRX	LST1+20, LST1+27
DD^LRX	LST1+10, LST1+11
PT^LRX	LST1+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"UID: ",?11,$G(^LRO(68,LRAA,1,LRAD,1,LRAN,.3)) Line Location: LST1+16
Function Call: WRITE	Prompt: !,"ACCESSION: ",$E(^LRO(68,LRAA,0),1,4)," ",$E(LRAD,4,7)," ",LRAN Line Location: LST1+17
Function Call: WRITE	Prompt: !,"ORDER #: ",?11,LRCE Line Location: LST1+18
Function Call: WRITE	Prompt: "Patient: ",$E(PNM,1,12) Line Location: LST1+22
Function Call: WRITE	Prompt: ?22,"SSN: ",$P(SSN,"-",3) Line Location: LST1+23
Function Call: WRITE	Prompt: ?33,"DOB: ",$$DTF^LRAFUNC1(DOB) Line Location: LST1+24
Function Call: WRITE	Prompt: ?50,"PROVIDER: ",$S($D(^VA(200,LRPRAC,0)):$P(^(0),"^"),1:LRPRAC) Line Location: LST1+26
Function Call: WRITE	Prompt: !?16,$P(^(0),"^") Line Location: LST1+32
Function Call: WRITE	Prompt: !," Order Comment:" Line Location: LST1+35
Function Call: WRITE	Prompt: !?11,^(LRHYI,0) Line Location: LST1+38
Function Call: WRITE	Prompt: !," CANCELLED TEST: ",$S($D(^LAB(60,+X,0)):$P(^(0),"^"),1:"UNKNOWN") Line Location: TSTCOM+4
Function Call: WRITE	Prompt: " "_$E($S($D(^LAB(62.05,LRURG,0)):$P(^(0),U),1:"ROUTINE"),1,15) Line Location: TSTCOM+8
Function Call: WRITE	Prompt: " by: "_$P(^VA(200,$P(X,"^",11),0),"^") Line Location: TSTCOM+9
Function Call: WRITE	Prompt: !?3,": "_^(0) Line Location: TSTCOM+10
Function Call: WRITE	Prompt: !," Accession Comment: ",LRACO Line Location: TSTCOM+11
Function Call: WRITE	Prompt: IOBON Line Location: FLASH+1
Function Call: WRITE	Prompt: ?20,$S($D(^LAB(62.05,+LRURG,0)):$P(^(0),U),1:"")," " Line Location: FLASH+3
Function Call: WRITE	Prompt: IOBOFF Line Location: FLASH+5
Function Call: WRITE	Prompt: ! Line Location: CHKPAGE+9
Routine Call	DIR Line Location: CHKPAGE+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	TSTCOM+4
^LAB(62.05 - [#62.05]	TSTCOM+8, FLASH+3
^LR - [#63]	LST1+5, LST1+6
^LRO(68 - [#68]	LST1+4, LST1+9, LST1+16, LST1+17, LST1+19
^LRO(69 - [#69]	LST1+34, LST1+37, LST1+38, TSTCOM+3, TSTCOM+10
^VA(200 - [#200]	LST1+26, LST1+32, TSTCOM+9

Name	Line Occurrences
CHKPAGE	LST1+2, LST1+14, LST1+30, LST1+38, TSTCOM+10
FLASH	TSTCOM+6, TSTCOM+7

Name	Field # of Occurrence
^(	LST1+4, LST1+38, TSTCOM+3, TSTCOM+10
^(0	LST1+6, LST1+26, LST1+32, TSTCOM+4, TSTCOM+8, TSTCOM+10, FLASH+3
^(3	LST1+9

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	LST1+6*
DIR	CHKPAGE+3!
DIR(0	CHKPAGE+4*
>> DIRUT	CHKPAGE+6
>> DOB	LST1+24
>> DUOUT	CHKPAGE+6
>> IOBOFF	FLASH+5
>> IOBON	FLASH+1
IOSL	CHKPAGE+2
IOST	CHKPAGE+1
>> LN	LST1+13, LST1+29, LST1+35, LST1+38, TSTCOM+11, CHKPAGE+2, CHKPAGE+8
>> LRAA	LST1+4, LST1+9, LST1+16, LST1+17, LST1+19, LST1+32
>> LRACC	LST1+4*
>> LRACO	LST1+8, LST1+9, TSTCOM+11
>> LRAD	LST1+4, LST1+9, LST1+16, LST1+17, LST1+19, LST1+32
>> LRAN	LST1+4, LST1+9, LST1+16, LST1+17, LST1+19, LST1+32
>> LRCE	LST1+4*, LST1+18
>> LRDLA	LST1+8, LST1+9, LST1+10*
>> LRDLC	LST1+8, LST1+10
>> LRDPF	LST1+6*
>> LRDTO	LST1+11*
>> LRDX	LST1+4*, LST1+5, LST1+6, LST1+11, LST1+25, LST1+33, TSTCOM+12
>> LREND	CHKPAGE+7*
>> LRHYI	LST1+36, LST1+38, TSTCOM+2, TSTCOM+3, TSTCOM+10
>> LRHYI(2	TSTCOM+10*
>> LRKUNKE	LST1+1
>> LRNX0	LST1+37*
>> LRPRAC	LST1+25*, LST1+26
>> LRSTOP	LST1+3, LST1+15, LST1+31, LST1+38, TSTCOM+1, TSTCOM+10, CHKPAGE+1, CHKPAGE+6*, CHKPAGE+7
>> LRUID	LST1+19*
LRURG	TSTCOM+5~*, TSTCOM+6, TSTCOM+7, TSTCOM+8, FLASH+1, FLASH+3, FLASH+5
>> PNM	LST1+22
PR	LST1+32~*
PRAC	LST1+32~
PRAC(	LST1+32
PRAC(0	LST1+32
>> SSN	LST1+23
U	LST1+6, LST1+9, LST1+11, LST1+19, LST1+33, TSTCOM+5, TSTCOM+8, TSTCOM+12, FLASH+3
>> X	TSTCOM+3*, TSTCOM+4, TSTCOM+5, TSTCOM+9
>> X1	LST1+33*, LST1+34, LST1+37, LST1+38, TSTCOM+3, TSTCOM+10
>> X2	LST1+33*, LST1+34, LST1+37, LST1+38, TSTCOM+3, TSTCOM+10
>> Y	LST1+9, LST1+10, LST1+11*
>> ZTQUEUED	CHKPAGE+1

Customize PDF page

Package: Lab Service

Routine: LRHYLS1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: