Routine: LROR6A

Package	Total	Call Graph
Lab Service	5	SET^LROR6B ^LRORDIM INIT^LRXO00 RCOM^LRXO2 EN^LRXO5
VA Fileman	2	(,IX)^DIC YN^DICN
Order Entry Results Reporting	1	RETURN^ORX

Package	Total	Caller Graph
Lab Service	1	LROR6

Entry Points

Name	Comments	DBIA/ICR reference
URG	;Edit Urgency
EDITUR	;FROM LROR6
SAMP1
SAMP2
RCOM	;Edit comment
SAMP	;Edit Collection sample and specimen
TYPE	;
SPEC	;
SPEC1

External References

Name	Field # of Occurrence
^DIC	URG+3, SAMP1+1, SPEC1+1
IX^DIC	SAMP1, SPEC1
YN^DICN	RCOM+3
SET^LROR6B	EDITUR+18
^LRORDIM	EDITUR+6
INIT^LRXO00	EDITUR+4
RCOM^LRXO2	EDITUR+17, RCOM+5
EN^LRXO5	EDITUR+9
RETURN^ORX	EDITUR+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !," (I)MMEDIATE LAB COLLECT" Line Location: TYPE+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: TYPE+2
Function Call: WRITE	Prompt: !!," (S)END patient to lab",!," (W)ARD/CLINIC collect & deliver",!," (L)AB blood team" Line Location: TYPE+3
Function Call: WRITE	Prompt: !," (I)MMEDIATE LAB COLLECT" Line Location: TYPE+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: TYPE+4
Function Call: WRITE	Prompt: !,"Enter 'S' for SEND TO LAB",!?6,"'W' for WARD COLLECT",!?6,"'L' for LAB BLOOD TEAM." Line Location: TYPE+6
Function Call: WRITE	Prompt: !?6,"'I' for Immediate Collect",!?6,"'^' to Exit." Condition for execution: LRCTYPE["I" Line Location: TYPE+6
Function Call: WRITE	Prompt: !,"Enter 'S' for SEND TO LAB",!?6,"'W' for WARD/CLINIC COLLECT",!?6,"'L' for LAB BLOOD TEAM." Line Location: TYPE+7
Function Call: WRITE	Prompt: !?6,"'I' for Immediate Collect",!?6,"'^' to Exit." Condition for execution: LRCTYPE["I" Line Location: TYPE+7
Function Call: WRITE	Prompt: !!,$C(7),""_$P(LRTSTNM,"^")_" cannot be ordered for ROUTINE LAB COLLECT or IMMEDIATE COLLECT." Line Location: TYPE+9
Function Call: WRITE	Prompt: ! Line Location: URG+3
Function Call: WRITE	Prompt: !,"Lab will collect ",$P(^LAB(62,LRSAMP,0),"^")," ",$P(^(0),"^",3) Line Location: SAMP+2
Function Call: WRITE	Prompt: !,"The Sample Is "_X_" "_$P(^(0),"^",3) Line Location: SAMP+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: SAMP1+0
Function Call: WRITE	Prompt: !,"COLLECTION SAMPLE:" Line Location: SAMP2+0
Function Call: WRITE	Prompt: !,I," ",$P(^LAB(62,LRCS(I),0),"^")," ",$P(^(0),"^",3) Line Location: SAMP2+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: SAMP2+1
Function Call: WRITE	Prompt: $C(7),!,"Type number 1-",LRCSN,! Line Location: SAMP2+2
Function Call: WRITE	Prompt: " "_$P(^LAB(62,LRSAMP,0),"^")_$P(^(0),"^",3) Line Location: SAMP2+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: SPEC1+0
Function Call: WRITE	Prompt: !!,"This is the existing comment " Line Location: RCOM+1
Function Call: WRITE	Prompt: TEXT,! Line Location: RCOM+2
Function Call: WRITE	Prompt: !,"Do you want to change the comment for this order? " Line Location: RCOM+3
Routine Call	DIC Line Location: URG+3 SAMP1+1 SPEC1+1
Routine Call	DIC Line Location: SAMP1 SPEC1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LAB(61 - [#61]	Classic Fileman Calls
^LAB(62 - [#62]	Classic Fileman Calls
^LAB(62.05 - [#62.05]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EDITUR+5
^LAB(60 - [#60]	EDITUR+2, TYPE+9, URG+1, SAMP+1, SAMP+2, SAMP+3, SAMP+5
^LAB(61 - [#61]	SPEC1
^LAB(62 - [#62]	SAMP+2, SAMP+4, SAMP1, SAMP2, SAMP2+1, SAMP2+3, SPEC+1
^LAB(69.9 - [#69.9]	TYPE+3, TYPE+5, URG+2
^XUTL("OR"	EDITUR+16, RCOM+2, RCOM+4*, RCOM+5!

Label References

Name	Line Occurrences
RCOM	EDITUR+16, RCOM+3
SAMP	EDITUR+14
SAMP1	SAMP1, SAMP1+1
SAMP2	SAMP+6, SAMP2+1, SAMP2+2
SPEC	SAMP+2, SAMP+4, SAMP1, SAMP1+2, SAMP2+1, SAMP2+3
SPEC1	SPEC1, SPEC1+2
TYPE	EDITUR+3, TYPE+7, TYPE+9
URG	EDITUR+15

Naked Globals

Name	Field # of Occurrence
^(	EDITUR+16, SAMP+5, RCOM+2
^(0	URG+1, SAMP+2, SAMP+4, SAMP2, SAMP2+3, SPEC+1
^(3	SAMP+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	RCOM+3*, RCOM+4
>> D	SAMP1, SPEC1
DIC	EDITUR+14!, URG+2, URG+4!, SAMP1, SAMP1+1!, SPEC1*, SPEC1+2!
DIC("A"	URG+2*
DIC("B"	URG+2*
DIC("S"	URG+3*
DIC(0	URG+2, SAMP1, SPEC1*
>> DIROUT	SAMP1+1, SPEC1+2
DTIME	TYPE+4, SAMP1, SAMP2+1, SPEC1
>> DTOUT	SAMP1+1, SPEC1+2
>> DUOUT	SAMP1+1, SPEC1+2
DUZ(2	TYPE+3, TYPE+5
H	URG+1*, URG+3, URG+4!
H(0	URG+1*
>> I	SAMP2, RCOM+2
>> J	SAMP+1, SAMP+5
>> LRASK	EDITUR+2*
LRCDT	EDITUR+6!
LRCNT	EDITUR+22!
LRCS	EDITUR+14!, EDITUR+22!
LRCS(	SAMP+5*, SAMP2, SAMP2+2, SAMP2+3
LRCS(1	SAMP+3*, SAMP+4
LRCSN	EDITUR+14!, EDITUR+22!, SAMP+1, SAMP+5, SAMP+6, SAMP1, SAMP1+1, SAMP2, SAMP2+2
LRCTYPE	TYPE+5*, TYPE+7, TYPE+10!
LREK	EDITUR+22!
>> LREND	EDITUR+2, EDITUR+3, EDITUR+9, EDITUR+15, TYPE+4, URG+3
LRFLG	EDITUR+16*, EDITUR+17, EDITUR+18!
LROCNT	EDITUR+1*, EDITUR+16, EDITUR+17, EDITUR+22!, RCOM+2, RCOM+4, RCOM+5
LROOST	EDITUR+1*, EDITUR+5, EDITUR+6, EDITUR+9, EDITUR+16, EDITUR+22!, RCOM+2, RCOM+4, RCOM+5
>> LRORD	EDITUR+1*
LROSAMP	EDITUR+1*, EDITUR+22!, SAMP+4, SAMP1, SAMP1+1, SAMP2+1
LROSPEC	EDITUR+1*, EDITUR+22!, SPEC1, SPEC1+2
LROST	EDITUR+2, EDITUR+6, EDITUR+9*, EDITUR+22!, RCOM+4
LROURG	EDITUR+1*, EDITUR+15, EDITUR+22!, URG+2
LROUTINE	EDITUR+22!
LROXZ	EDITUR+1*, EDITUR+3, EDITUR+6, EDITUR+10, EDITUR+11, EDITUR+16, EDITUR+22!, TYPE+4, RCOM+2, RCOM+4 , RCOM+5
LRPRAM	EDITUR+22!
LRPREV	EDITUR+5*, EDITUR+6!, EDITUR+9!
LRSAMP	EDITUR+2, EDITUR+16, EDITUR+22!, SAMP+2, SAMP+4, SAMP1, SAMP1+1, SAMP1+2, SAMP2+1, SAMP2+3 , SPEC+1, RCOM+2, RCOM+4, RCOM+5
LRSPEC	EDITUR+2, EDITUR+16, EDITUR+22!, SPEC+1, SPEC1, SPEC1+2, SPEC1+3*, RCOM+2, RCOM+4, RCOM+5
LRSX	EDITUR+17, EDITUR+22!, RCOM+5
LRTST	EDITUR+1*, EDITUR+2, EDITUR+22!, TYPE+9, URG+1, SAMP+1, SAMP+2, SAMP+3, SAMP+5
LRTSTNM	EDITUR+2*, EDITUR+22!, TYPE+9
LRUNQ	EDITUR+14!, SAMP+1*, SAMP+4
LRURG	EDITUR+2, EDITUR+15, EDITUR+22!, URG+4*
LRZX	EDITUR+22!
LRZX(1	EDITUR+3, EDITUR+6, EDITUR+8, EDITUR+9, EDITUR+10, EDITUR+11, EDITUR+13, TYPE+8, TYPE+9, URG+3 , SAMP+2, RCOM+4
N1	EDITUR+14!, SAMP+1*, SAMP+3, SAMP+4, SAMP+5
>> ORPK	EDITUR+1
TEXT	RCOM+2*, RCOM+3!
U	EDITUR+2, TYPE+3, TYPE+5
>> X	EDITUR+1, TYPE+4, TYPE+7, TYPE+8, URG+4, SAMP+4, SAMP1, SAMP1+1, SAMP2+1, SAMP2+2 , SAMP2+3, SPEC1*, SPEC1+2
>> Y	EDITUR+5*, URG+3, URG+4, SAMP1+1, SAMP1+2, SPEC1+2, SPEC1+3

Customize PDF page

Package: Lab Service

Routine: LROR6A

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: