Routine: LROR8

Package	Total	Call Graph
Lab Service	8	SET2^LROR C^LROR3 EN^LRORDIM ORDER^LROW2 INIT^LRXO00 MAX^LRXO1 EN^LRXO5 RCOM^LRXO9
VA Fileman	3	DD^%DT NOW^%DTC YN^DICN
Order Entry Results Reporting	2	READ^ORUTL (RETURN,ST)^ORX

Package

Total

Call Graph

Lab Service

SET2^LROR C^LROR3 EN^LRORDIM ORDER^LROW2 INIT^LRXO00 MAX^LRXO1 EN^LRXO5 RCOM^LRXO9

VA Fileman

DD^%DT NOW^%DTC YN^DICN

Order Entry Results Reporting

READ^ORUTL (RETURN,ST)^ORX

Package	Total	Caller Graph
Lab Service	1	LROR

Package

Total

Caller Graph

Lab Service

LROR

Name	Comments	DBIA/ICR reference
EN	;;from LROR to FLAG orders
END
GET	;Get Ord #
S1
EN1	;;from LROR to HOLD orders
EN2	;Verify unreleased lab orders
EN3	;Verify upon release
DUP	;Check for duplicate in ^XUTL
COL

External References

Name	Field # of Occurrence
DD^%DT	COL
NOW^%DTC	EN3+10
YN^DICN	EN1+1
SET2^LROR	S1+16
C^LROR3	EN1+2
EN^LRORDIM	COL+2
ORDER^LROW2	GET+2
INIT^LRXO00	COL+1
MAX^LRXO1	S1+7
EN^LRXO5	COL+5
RCOM^LRXO9	S1+10, S1+11
READ^ORUTL	EN3+7, EN3+16, DUP+3
RETURN^ORX	S1+19, COL+3, COL+6
ST^ORX	EN+4, EN3+16, S1+7, DUP+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Only PENDING lab orders can be flagged." Line Location: EN+1
Function Call: WRITE	Prompt: !,"Incomplete data! This order cannot be released." Line Location: EN3+7
Function Call: WRITE	Prompt: !,"Incomplete data! This order cannot be released." Line Location: EN3+8
Function Call: WRITE	Prompt: $C(7),!!,"The specimen for test "_LRTSTNM_", has already been processed by Lab.",!,"Please create a new order, or contact lab to have this test added." Line Location: EN3+16
Function Call: WRITE	Prompt: !?5,LRTSTNM_" Deleted" Line Location: EN3+16
Function Call: WRITE	Prompt: $C(7),!!,"The specimen for test "_LRTSTNM_", has already been processed by Lab.",!,"Please create a new order, or contact lab to have this test added." Line Location: EN3+17
Function Call: WRITE	Prompt: !?5,LRTSTNM_" Deleted" Line Location: EN3+18
Function Call: WRITE	Prompt: " Deleted" Line Location: S1+7
Function Call: WRITE	Prompt: " Deleted" Line Location: S1+8
Function Call: WRITE	Prompt: !,"GENERAL WARD INSTRUCTIONS:" Line Location: S1+12
Function Call: WRITE	Prompt: !," "_^(N1,0) Line Location: S1+12
Function Call: WRITE	Prompt: !!,"The collection time of "_Y_" has expired",!,"Please enter a new collection time" Line Location: COL+0
Function Call: WRITE	Prompt: !,"No Collection Time Entered",!! Line Location: COL+2
Function Call: WRITE	Prompt: !,"A new collection time must be entered to release this order",!,"Order not released!" Line Location: COL+5
Function Call: WRITE	Prompt: !!!,"Duplicate test "_LRTSTNM_", for the same collection time will be deleted",!! Line Location: DUP+3

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	EN3+9, S1+10, S1+11
^LRO(69 - [#69]	EN3+12, EN3+13
^XUTL("OR"	S1, S1+1, S1+2, S1+3, S1+4, S1+7!, S1+14, S1+15, S1+21!, DUP+2 , GET+1

Name	Line Occurrences
COL	EN3+20, EN3+21
DUP	EN3+22
END	EN3+7, EN3+16, EN3+20, EN3+21, EN3+22
GET	EN3+4
S1	S1

Name	Field # of Occurrence
^(	S1+1*, S1+15, DUP+2
^(0	EN3+9, EN3+13, S1+10
^(4	EN3+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN1+1*, EN3+10
>> CNT	S1+13, S1+15
GOT	EN3+11~, EN3+12, EN3+13, EN3+16
>> I	S1+13, S1+14, S1+15*
>> LRASK	EN3+3*
LRCSX	S1+13~, S1+14, S1+15
LREND	EN3+3, EN3+20, EN3+21, EN3+22, S1+7, COL+2, COL+5, END!, DUP+2
>> LREXP	S1+7, S1+10, S1+11*
LRI	EN3+3*, S1+16, END!
LRLWC	S1+13*, S1+16!
LRNOW	EN3+10*, EN3+20, EN3+21, COL+5~
LRNSN	EN3+11~
LRODT	EN3+11~*, EN3+12, EN3+13
LRORD	EN3+3, EN3+4, EN3+7, EN3+12, S1+1, S1+16, END!, GET+1, GET+2
LRORIFN	EN3+3*, S1+2, S1+19, END!, DUP+2, DUP+4
LROST	EN3+3*, EN3+7, EN3+11, EN3+20, EN3+21, S1, S1+1, S1+2, S1+7, S1+14 , S1+15, S1+21, COL, COL+3, COL+6, END!, DUP+2, GET+1
LROT	END!
LRSAMP	EN3+3*, EN3+7, EN3+13, S1, S1+2, S1+7, S1+10, S1+14, S1+15, S1+16 , S1+21, END!, DUP+2
>> LRSN	EN3+12*, EN3+13
LRSPEC	EN3+3*, EN3+7, EN3+13, S1, S1+2, S1+7, S1+14, S1+15, S1+16, S1+21 , END!, DUP+2
LRSTS	EN3+2~, EN3+3*, S1+7
>> LRSX	EN3+3, S1, S1+2, S1+7, S1+21
LRTEST	END!
LRTEST(	EN3+3*, S1+16
LRTST	EN3+3*, EN3+7, EN3+9, S1+2, S1+10, S1+11, S1+15, END!, DUP+2
>> LRTSTNM	EN3+9*, EN3+16, DUP+3
LRURG	EN3+3*, EN3+7, S1+2, S1+16, END!
>> LRZX(1	EN3+3*, EN3+7, S1, S1+1, S1+2, S1+7, S1+13, S1+14, S1+15, S1+21 , COL+1, END!, DUP+2, GET+1
>> LRZX(6	S1+7*, END!
>> ORCARY	S1+3, S1+4*
>> OREND	EN3+7, EN3+16, EN3+20, EN3+21
>> ORETURN	S1+19
>> ORETURN("ORSTRT"	COL+3, COL+6
>> ORETURN("ORTX"	S1+15, S1+16
>> ORGY	EN1+1
>> ORIFN	EN3+3, S1+19, DUP+4
>> ORPK	EN3+3
>> ORSTS	EN+1, EN+4, EN3+1, EN3+3, EN3+16, S1+7, DUP+4
>> ORTX(1	S1+16
SX	DUP+1~, DUP+2*
X	EN3+3*, END!
>> Y	COL*
ZTQUEUED	GET+2*!

Customize PDF page

Package: Lab Service

Routine: LROR8

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: