Routine: LRORDGUI

Package	Total	Call Graph
Lab Service	7	^LRORD1GU Q15^LRORD2 GS^LRORD3 SMID^LRORDB ^LRORDK ^LRPARAM DT^LRX
VA Fileman	4	^%DT ^%DTC (,$$FIND1)^DIC YN^DICN
Automated Lab Instruments	2	$$BAR^LA7SBCR SITE^LA7SBCR2
IHS Changes To Lab	2	^BLRPARAM ENTRYAUD^BLRUTIL
Kernel	1	HOME^%ZIS

Package

Total

Call Graph

Lab Service

^LRORD1GU Q15^LRORD2 GS^LRORD3 SMID^LRORDB ^LRORDK ^LRPARAM DT^LRX

VA Fileman

^%DT ^%DTC (,$$FIND1)^DIC YN^DICN

Automated Lab Instruments

$$BAR^LA7SBCR SITE^LA7SBCR2

IHS Changes To Lab

^BLRPARAM ENTRYAUD^BLRUTIL

Kernel

HOME^%ZIS

Package	Total	Caller Graph
Lab Service	1	LRORD

Package

Total

Caller Graph

Lab Service

LRORD

Entry Points

Name	Comments	DBIA/ICR reference
G5	; EP
EN	; EP ; from EN^LRORD
IMMCOL	;EP - IMMEDIATE LAB COLLECTION
G1
G0	; EP ;
QUIZ	; EP
GET	; EP
EN01	;LAB COLLECT ORDER ENTRY
EN03	;WARD COLLECT ORDER ENTRY
EN02	;SEND PATIENT ORDER ENTRY
EN1	; EP ; from EN1^LRORD also
SENDPAT	; EP
L5	; EP ; from L5^LRORD also
KILL	; EP
LEDI	; EP - Laboratory Electronic Data Exchange
WARDCOL	; EP
ORDER	; EP
LRORD	;DALOI/CJS - LAZY ACCESSION LOGGING ;2/6/91 12:54 ;

External References

Name	Field # of Occurrence
^%DT	L5+3
^%DTC	L5+4
HOME^%ZIS	KILL+2
^BLRPARAM	EN1+2
ENTRYAUD^BLRUTIL	LRORD+10, EN+1, EN1+1, L5+1, G0+1, G1+1, GET+1, G5+1, KILL+1, ORDER+1 , SENDPAT+1, IMMCOL+1, WARDCOL+1, LEDI+1, LEDI+27, QUIZ+1
^DIC	GET+3
$$FIND1^DIC	LEDI+13
YN^DICN	ORDER+2, SENDPAT+2, WARDCOL+3
$$BAR^LA7SBCR	LEDI+9
SITE^LA7SBCR2	LEDI+14
^LRORD1GU	G5+4
Q15^LRORD2	GET+2
GS^LRORD3	GET+10
SMID^LRORDB	LEDI+21
^LRORDK	KILL+2, LEDI+6, LEDI+10, LEDI+17, LEDI+22, LEDI+26
^LRPARAM	EN1+3, LEDI+5
DT^LRX	EN1+5

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: % Line Location: KILL+5
Function Call: WRITE	Prompt: !,"Answer 'Y' or 'N': " Line Location: KILL+5
Function Call: WRITE	Prompt: !,"Do you want copies of the orders" Line Location: ORDER+2
Function Call: WRITE	Prompt: !,"Do you want copies of the orders" Line Location: SENDPAT+2
Function Call: WRITE	Prompt: !!?5," This option is not available at the time ",!!,$C(7) Line Location: IMMCOL+2
Function Call: WRITE	Prompt: !,"Do you want copies of the orders" Line Location: WARDCOL+3
Function Call: WRITE	Prompt: !!,$C(7),"ERROR -- ",$P(LRRSITE("ERROR"),"^",2),! Line Location: LEDI+16
Function Call: WRITE	Prompt: !,"The order copy is automatically sent to the CLOSEST PRINTER," Line Location: QUIZ+2
Function Call: WRITE	Prompt: !,"if a closest printer is defined for the device you are using." Line Location: QUIZ+3
Function Call: WRITE	Prompt: !,"Otherwise, you will be prompted with ORDER COPY DEVICE.",! Line Location: QUIZ+4
Routine Call	%ZIS Line Location: KILL+2
Routine Call	DIC Line Location: LEDI+13
Routine Call	DIC Line Location: GET+3

FileNo	Call Tags
^LAB(64.061 - [#64.061]	FIND1^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	G0+18, G0+19
^LAB(62 - [#62]	G0+23
^LAB(62.2 - [#62.2]	G0+4
^LAB(62.6 - [#62.6]	G0+4, G0+5, G0+7, G0+8
^LAB(69.9 - [#69.9]	EN+2, EN1+7, ORDER+3, IMMCOL+2
^LRO(69 - [#69]	G5+3*
^TMP("LRSTIK"	EN1+4!, G0+9, G0+11, G0+13, G0+26, G0+27, GET+5, GET+7, GET+9, GET+10 , GET+13*

Name	Line Occurrences
%	%
G5	G0+31, GET+3
GET	GET+12, GET+14
KILL	G5+2
LRORD	ORDER+5, SENDPAT+4, IMMCOL+6, WARDCOL+5, LEDI+26
ORDER	ORDER+2
QUIZ	ORDER+2, SENDPAT+2, WARDCOL+3
SENDPAT	SENDPAT+2
WARDCOL	WARDCOL+3

Name	Field # of Occurrence
^("RO"	EN+2, EN+4
^(0	G5+3*
^(3	ORDER+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	%, ORDER+2, SENDPAT+2, WARDCOL+2, WARDCOL+3
>> %DT	L5+3*
>> BLROPT	LRORD+11, LRORD+13, ORDER+4, IMMCOL+5, WARDCOL+4*
>> BLROPT(0	LRORD+11, LRORD+13, ORDER+4, IMMCOL+5, WARDCOL+4*
BPCCS	G0+17~, G0+20*, G0+22, G0+23, G0+26
BPCCSDTA	G0+17~, G0+23, G0+24, G0+26
>> BPCODT	EN1+9
BPCOORD	G0+17~, G0+18*, G0+19, G0+26
>> BPCOORDS	G0+16, G0+18
BPCTDTA	G0+17~, G0+19*, G0+20, G0+21
>> BPCTL	G0+28*
BPCTNAM	G0+17~, G0+21*, G0+26
>> BPCURG	EN1+9
CONTROL	LEDI+8~
DIC	EN1+4!
DIC("S"	GET+3!
DT	EN1+7, L5+4, L5+7, G5+4
DTIME	%
DUZ(2	IMMCOL+2
>> I	G0+2, G0+6, G0+7, G0+8, G0+9, G0+11, G0+13, G0+18
I1	G0+30!
LA7	LEDI+8~
LA7SCFG	LEDI+8~
LA7X	LEDI+8~
LA7Y	LEDI+8~
LR64	LEDI+8~
LR696	LEDI+8~
>> LRAD	G5+4*
>> LRADDTST	EN1+6
LRCOM	EN1+4!
>> LRDAHEAD	L5+2, L5+5
>> LRECT	EN1+7, EN1+8, EN1+9*
>> LREND	LEDI+6, LEDI+21, LEDI+22
>> LRFIRST	EN1+7, EN1+8, G0+14*
>> LRFLOG	L5+11, G0+3, G0+4*, G0+5
>> LRFLOG(0	G0+5*, G0+9, G0+11, G0+13
LRLABLIO	LEDI+8~
>> LRLWC	EN1+10, EN1+11, EN1+12*
>> LRLWCURG	ORDER+3*
LRNATURE	EN1+4!
LRODT	EN1+7, EN1+9, L5+3, L5+4*, L5+7, G5+3, IMMCOL+4!, LEDI+25!
>> LRORDR	EN1+5, EN1+10, EN1+11, EN1+12, L5+2, ORDER+3, SENDPAT+3, IMMCOL+3, WARDCOL+5, LEDI+25
>> LRORDRR	EN1+8, LEDI+25*
>> LRORDTIM	EN1+5, L5+4
>> LROUTINE	EN1+7*
>> LRREFBAR	LEDI+9*, LEDI+10, LEDI+14
LRRSITE	LEDI+8~, LEDI+14
LRRSITE("ERROR"	LEDI+15, LEDI+16
LRRSITE("SMID"	LEDI+20, LEDI+21
LRRSTAT	LEDI+8~, LEDI+12*
LRRSTAT(0	LEDI+13*
LRSAME	EN1+4!
>> LRSAMP	GET+11, GET+12, GET+13
LRSD	LEDI+8~
>> LRSLIP	ORDER+2, SENDPAT+2, WARDCOL+3*
>> LRSPEC	GET+11, GET+12, GET+13
LRTCOM	EN1+4!
LRTSN	LEDI+8~
>> LRTSTS	GET+10*
LRURG	EN1+4!, EN1+9*
>> LRWP	G0+2, G0+6, G0+8, G0+9, G0+11, G0+13, G0+14, G0+25, G0+26, G0+27 , G0+28, G1, GET+4, GET+5, GET+7, GET+9, GET+10, GET+11*, GET+13, G5+2 , G5+4
>> LRWPD	G5+4*
>> LRY	GET+4*, GET+5, GET+9
>> RESULT(1	EN+6, L5+3, L5+5, L5+8
>> RESULT(2	EN+6, L5+3, L5+5, L5+9
>> SNAPSHOT	LRORD+10, EN+1, EN1+1, L5+1, G0+1, G1+1, GET+1, G5+1, KILL+1, ORDER+1 , SENDPAT+1, IMMCOL+1, WARDCOL+1, LEDI+1, LEDI+27, QUIZ+1
STR	EN+3~, EN+4, EN+5, EN+6
U	LRORD+11, LRORD+13, EN+4, EN1+7*, G0+4, G0+20, G0+21, G0+24, G0+26, GET+5 , GET+13, G5+3, ORDER+3, ORDER+4, IMMCOL+2, IMMCOL+5, WARDCOL+4
>> X	L5+2, L5+3*, L5+5
>> X1	L5+4*
>> X2	L5+4*
>> XQY0	LRORD+11, LRORD+13, ORDER+4, IMMCOL+5, WARDCOL+4
>> XWBWRAP	LRORD+12*
>> Y	L5+2, L5+3, L5+4, L5+11*, G0+7, G0+8, GET+3, GET+4
>> Y(0	G0+8*, G0+9, G0+13

Customize PDF page

Package: Lab Service

Routine: LRORDGUI

Information

Source Information

Call Graph

Call Graph Total: 16

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: