Routine: LROW2P

Package	Total	Call Graph
Kernel	3	^%ZISC ^%ZTLOAD $$FMTE^XLFDT
Lab Service	2	SSN^LRU (DD,DUZ,PT)^LRX
IHS Changes To Lab	1	ENTRYAUD^BLRUTIL

Package	Total	Caller Graph
Lab Service	6	LR7OF0 LR7OFA1 LRCENDE1 LRORDST LROW2A LROW2RP

Entry Points

Name	Comments	DBIA/ICR reference
TEST
ENT2	;from LRORDST, LROW2
ENT	;

External References

Name	Field # of Occurrence
^%ZISC	ENT2+31
^%ZTLOAD	LROW2P+4
ENTRYAUD^BLRUTIL	ENT2+13
SSN^LRU	ENT2+8
DD^LRX	ENT2+11, ENT2+20, ENT2+23
DUZ^LRX	ENT2+20
PT^LRX	ENT2+14
$$FMTE^XLFDT	ENT2+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?23,"LABORATORY: ",^DD("SITE") Line Location: ENT2+9
Function Call: WRITE	Prompt: Y Line Location: ENT2+10
Function Call: WRITE	Prompt: !,?23,$S(LRLWC="SP":"Send Patient",LRLWC="WC":"Ward/Clinic Collect",LRLWC="I":"Immed Lab Collect ",1:"Lab Collect")," ORDER FOR " Line Location: ENT2+11
Function Call: WRITE	Prompt: Y Line Location: ENT2+11
Function Call: WRITE	Prompt: !,?23,"ORDER: ",$S($D(^LRO(69,LRODT,1,LRSN,.1)):^(.1),1:""),?40,"LOCATION: ",LRLLOC Line Location: ENT2+12
Function Call: WRITE	Prompt: " BED: ",LRBED Condition for execution: $L(LRBED) Line Location: ENT2+12
Function Call: WRITE	Prompt: !,PNM,?40,SSN,!,"ENTERED BY: " Line Location: ENT2+15
Function Call: WRITE	Prompt: LRUSNM,?40 Line Location: ENT2+15
Function Call: WRITE	Prompt: LRUSNM,?40 Line Location: ENT2+15
Function Call: WRITE	Prompt: !!,$E(PNM,1,33),?35,$G(HRCN) Line Location: ENT2+17
Function Call: WRITE	Prompt: ?65,"SEX:",$G(SEX) Line Location: ENT2+19
Function Call: WRITE	Prompt: !,"ENTERED BY: " Line Location: ENT2+20
Function Call: WRITE	Prompt: LRUSNM,?40 Line Location: ENT2+20
Function Call: WRITE	Prompt: LRUSNM,?40 Line Location: ENT2+20
Function Call: WRITE	Prompt: !,"PRACTITIONER: " Line Location: ENT2+22
Function Call: WRITE	Prompt: $S($D(^VA(200,LRPR,0)):$P(^(0),"^"),1:"UNKNOWN") Line Location: ENT2+22
Function Call: WRITE	Prompt: ?32,$S(LRLWC="I":"REQUESTED ",1:" Est.")_" Collect Time: ",Y Line Location: ENT2+23
Function Call: WRITE	Prompt: !!!,"DATE/TIME OF COLLECTION:__________" Line Location: ENT2+27
Function Call: WRITE	Prompt: !!,"COLLECTED BY:_____________________________" Line Location: ENT2+28
Function Call: WRITE	Prompt: !!,"Order comment: " Line Location: ENT2+29
Function Call: WRITE	Prompt: !?2,^(I,0) Line Location: ENT2+29
Function Call: WRITE	Prompt: !!," PLEASE BRING THIS WITH YOU TO THE LAB ",! Line Location: ENT2+30
Function Call: WRITE	Prompt: ! Line Location: ENT2+31
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST)="P" Line Location: ENT2+31
Function Call: WRITE	Prompt: !,"TEST/PROCEDURE: ",$P(^LAB(60,+LRTP,0),U) Line Location: TEST+0
Function Call: WRITE	Prompt: ?48,$P(^LAB(62.05,LRUR,0),U) Condition for execution: LRUR Line Location: TEST+0
Function Call: WRITE	Prompt: !,"Ward Instructions:" Line Location: TEST+2
Function Call: WRITE	Prompt: !?2,^(I,0) Line Location: TEST+3
Function Call: WRITE	Prompt: !,"Ward Comments:" Line Location: TEST+4
Function Call: WRITE	Prompt: !?2,^(I,0) Line Location: TEST+5
Function Call: WRITE	Prompt: !,"Sign or Symptom for test "_$G(LRTNAME)_" : ",$G(^LRO(69,LRODT,1,LRSN,2,T,9999999)),!! Line Location: TEST+10
Function Call: WRITE	Prompt: !,"Clinical Indication for test "_$G(LRTNAME)_" : ",$G(^LRO(69,LRODT,1,LRSN,2,T,9999999)),!! Line Location: TEST+11

Name	Line Occurrences (* Changed, ! Killed)
^DD("SITE"	ENT2+9
^DIC - [#1]	ENT2+7
^LAB(60 - [#60]	TEST, TEST+1, TEST+3, TEST+9
^LAB(61 - [#61]	ENT2+6
^LAB(62 - [#62]	ENT2+6
^LAB(62.05 - [#62.05]	TEST
^LR - [#63]	ENT2+7
^LRO(69 - [#69]	ENT2+1, ENT2+3, ENT2+5, ENT2+12, ENT2+25, ENT2+29, TEST+4, TEST+5, TEST+8, TEST+11
^VA(200 - [#200]	ENT2+22

Name	Field # of Occurrence
^(	ENT2+3, ENT2+7, ENT2+12, ENT2+25, ENT2+29, TEST+1, TEST+3, TEST+5
^(0	ENT2+3, ENT2+6, ENT2+7, ENT2+22
^(1	ENT2+5
^(4	ENT2+5

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	ENT2+7*
>> DOB	ENT2+14, ENT2+18
GOT	ENT2+2~, ENT2+3, ENT2+4
>> HRCN	ENT2+17
I	ENT2+2~, ENT2+3, ENT2+29, TEST+1~, TEST+3, TEST+5*
IOF	ENT2+31
ION	LROW2P+4
IOST	ENT2+31
>> LRBED	ENT2+7*, ENT2+12
>> LRCS	ENT2+5, ENT2+6, ENT2+24
>> LRCSS	ENT2+5, ENT2+6, ENT2+24
>> LRDFN	ENT2+5*, ENT2+7
>> LRDPF	ENT2+7*
>> LRDTO	ENT2+5*, ENT2+20
LRDUZ	ENT2+5*, ENT2+20!
>> LRLLOC	ENT2+5*, ENT2+12
>> LRLWC	ENT2+5*, ENT2+11, ENT2+23, ENT2+28, ENT2+30
>> LRODT	ENT2+1, ENT2+3, ENT2+5, ENT2+11, ENT2+12, ENT2+23, ENT2+25, ENT2+29, TEST+4, TEST+5 , TEST+8, TEST+11
>> LRORDTIM	ENT2+5*, ENT2+23
>> LRPR	ENT2+5*, ENT2+22
LRSAMP	ENT2+2~, ENT2+5*, TEST+1
>> LRSN	ENT2+1, ENT2+3, ENT2+5, ENT2+12, ENT2+25, ENT2+29, TEST+4, TEST+5, TEST+8, TEST+11
>> LRTNAME	TEST+9*, TEST+11
>> LRTP	ENT2+25*, TEST, TEST+1, TEST+3
LRTPTR	TEST+8*, TEST+9, TEST+12!
>> LRUR	TEST*
>> LRUSNM	ENT2+20
>> PNM	ENT2+7*, ENT2+17
>> SEX	ENT2+19
>> SSN	ENT2+7*, ENT2+8
>> T	ENT2+25*, TEST+4, TEST+5, TEST+8, TEST+11
U	ENT+1*, ENT2+5, ENT2+6, ENT2+7, ENT2+24, TEST, TEST+8, TEST+9
>> X	ENT2+5, ENT2+7, ENT2+20, TEST+1, TEST+3
>> Y	ENT2+11, ENT2+20, ENT2+23*
ZTDESC	LROW2P+4*, LROW2P+5!
ZTDTH	LROW2P+4*, LROW2P+5!
ZTIO	LROW2P+4*, LROW2P+5!
>> ZTQUEUED	ENT+1
>> ZTREQ	ENT+1*
ZTRTN	LROW2P+4*, LROW2P+5!
ZTSAVE	LROW2P+5!
ZTSAVE("LRODT"	LROW2P+4*
ZTSAVE("LRSN"	LROW2P+4*
ZTSK	LROW2P+5!

Customize PDF page

Package: Lab Service

Routine: LROW2P

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: