Routine: LRORD

Information

LRORD ;VA/DALOI/CJS - LAZY ACCESSION LOGGING ; 22-Oct-2013 09:22 ; MKK

Package	Total	Call Graph
Lab Service	11	^LRORD1 Q15^LRORD2 GS^LRORD3 SMID^LRORDB ^LRORDGUI ^LRORDIM ^LRORDK NEXTCOL^LROW5 ^LRPARAM DATE^LRWU DT^LRX
VA Fileman	4	^%DTC (,$$FIND1)^DIC YN^DICN ^DIR
Automated Lab Instruments	2	$$BAR^LA7SBCR SITE^LA7SBCR2
Kernel	2	HOME^%ZIS $$VERSION^XPDUTL
IHS Changes To Lab	1	ENTRYAUD^BLRUTIL

Package

Total

Call Graph

Lab Service

^LRORD1 Q15^LRORD2 GS^LRORD3 SMID^LRORDB ^LRORDGUI ^LRORDIM ^LRORDK NEXTCOL^LROW5
^LRPARAM DATE^LRWU DT^LRX

VA Fileman

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

Automated Lab Instruments

$$BAR^LA7SBCR SITE^LA7SBCR2

Kernel

HOME^%ZIS $$VERSION^XPDUTL

IHS Changes To Lab

ENTRYAUD^BLRUTIL

Package	Total	Caller Graph
Lab Service	11	LRBLPLOGIN LRCE LRFASTS LRLEDI LRMICROLOGIN LROW IMMED COLLECT LROW ROUTINE LROW SEND PAT LROW WARD COL LROW WARD/CLINIC COL LRQUICK
Mental Health Social Services	1	AMHVRL2

Package

Total

Caller Graph

Lab Service

LRBLPLOGIN LRCE LRFASTS LRLEDI LRMICROLOGIN LROW IMMED COLLECT LROW ROUTINE LROW SEND PAT
LROW WARD COL LROW WARD/CLINIC COL LRQUICK

Mental Health Social Services

AMHVRL2

Entry Points

Name	Comments	DBIA/ICR reference
G5	; EP
EN	;; EP
IMMCOL	;EP - IMMEDIATE LAB COLLECTION
G1	; EP
GET	; EP
QUIZ	; EP
G0	; EP
EN01	;EP - LAB COLLECT ORDER ENTRY
EN03	; EP - WARD COLLECT ORDER ENTRY
EN02	; EP SEND PATIENT ORDER ENTRY
EN1	;;EP - from LROR4
SENDPAT	; EP - S %=2 W !,"Do you want copies of the orders" D YN^DICN Q:%=-1 S:%=1 LRSLIP="" I %=0 D QUIZ G SENDPAT
L5	; EP
KILL	; EP
LEDI	; EP - Laboratory Electronic Data Exchange
WARDCOL	; EP
START(RESULT,BPCPARAM)
ORDER	; EP

External References

Name	Field # of Occurrence
^%DTC	L5+3
HOME^%ZIS	KILL+1
ENTRYAUD^BLRUTIL	LRORD+7, EN+1, EN1+1, L5+1, G0+1, GET+1, GET+14, G5+1, EN01+1, ORDER+1 , SENDPAT+1, IMMCOL+1, WARDCOL+1, WARDCOL+5, WARDCOL+8, LEDI+1, LEDI+25, QUIZ+1, START+1, START+19
^DIC	L5+9, GET+3
$$FIND1^DIC	LEDI+11
YN^DICN	EN+12, ORDER+2, SENDPAT+2, WARDCOL+3
^DIR	%+5
$$BAR^LA7SBCR	LEDI+8
SITE^LA7SBCR2	LEDI+12
^LRORD1	G5+4
Q15^LRORD2	GET+2
GS^LRORD3	GET+10
SMID^LRORDB	LEDI+19
^LRORDGUI	START+18
^LRORDIM	EN1+13
^LRORDK	KILL+1, LEDI+6, LEDI+9, LEDI+15, LEDI+20, LEDI+24
NEXTCOL^LROW5	EN1+10
^LRPARAM	EN1+2, LEDI+5
DATE^LRWU	L5+3
DT^LRX	EN1+4
$$VERSION^XPDUTL	START+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,"ROLLOVER ",$S($P(^("RO"),U,2):"IS RUNNING.",1:"HAS NOT RUN.")," ACCESSIONING SHOULDN'T BE DONE NOW.",$C(7),!," Are you sure you want to continue" Line Location: EN+2
Function Call: WRITE	Prompt: !,"OK, try later." Line Location: EN+3
Function Call: WRITE	Prompt: $C(7),!,"ROLLOVER ",$S($P(^("RO"),U,2):"IS RUNNING.",1:"HAS NOT RUN.") Line Location: EN+8
Function Call: WRITE	Prompt: $C(7),!,"ROLLOVER ",$S($P(^LAB(69.9,1,"RO"),U,2):"IS RUNNING.",1:"HAS NOT RUN.") Line Location: EN+9
Function Call: WRITE	Prompt: " ACCESSIONING SHOULDN'T BE DONE NOW.",$C(7),! Line Location: EN+10
Function Call: WRITE	Prompt: " Are you sure you want to continue" Line Location: EN+11
Function Call: WRITE	Prompt: !,"OK, try later." Line Location: EN+12
Function Call: WRITE	Prompt: !!," Ordering for ROUTINE LAB COLLECT ONLY",$C(7),! Line Location: EN1+10
Function Call: WRITE	Prompt: !!," Ordering for SEND PATIENT ONLY",$C(7),! Line Location: EN1+11
Function Call: WRITE	Prompt: !!,"Ordering for WARD COLLECT & DELIVER ONLY",$C(7),! Line Location: EN1+12
Function Call: WRITE	Prompt: !,"Can't order more than 12 months ahead!!" Line Location: L5+3
Function Call: WRITE	Prompt: !!?7,$C(7),"Please enter a date, ie. 4/1/90",!! Line Location: L5+4
Function Call: WRITE	Prompt: !,$C(7),"Cannot order in the Past.",! Line Location: L5+5
Function Call: WRITE	Prompt: !,"Select one or more tests from which you will be generating your entries." Line Location: G1+1
Function Call: READ	Timeout: DTIME Variable: % Line Location: KILL+4
Function Call: WRITE	Prompt: !,"Answer 'Y' or 'N': " Line Location: KILL+4
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+0
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+14
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+1
Routine Call	DIC Line Location: LEDI+11
Routine Call	DIC Line Location: L5+9 GET+3
Routine Call	DIR Line Location: %+5

RPC Name	Call Tags
BPC ORDER LABS	START

FileNo	Call Tags
^LAB(62.6 - [#62.6]	Classic Fileman Calls
^LAB(64.061 - [#64.061]	FIND1^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(62.05 - [#62.05]	START+10, START+11
^LAB(62.2 - [#62.2]	G0+2
^LAB(62.6 - [#62.6]	G0+2, G0+3, G0+5, G0+6
^LAB(69.9 - [#69.9]	EN+5, EN+9, EN1+6, ORDER+3, IMMCOL+2
^LRO(69 - [#69]	G5+3*
^TMP("LRSTIK"	EN1+3!, G0+7, G0+9, G0+11, GET+5, GET+7, GET+9, GET+10, GET+13*
^XUSEC("LRLAB"	START+9

Label References

Name	Line Occurrences
%	EN1+9
G0	L5+6
G1	L5+9
G5	G0+16, GET+3
GET	GET+12, GET+15
KILL	EN1+9, EN1+10, EN1+13, L5+3, L5+9, G5+2
L5	L5+3, L5+4, L5+5
LRORD	EN+5, ORDER+5, SENDPAT+5, IMMCOL+5, WARDCOL+7, LEDI+24
ORDER	ORDER+2
QUIZ	ORDER+2, SENDPAT+2, WARDCOL+3
SENDPAT	SENDPAT+2
WARDCOL	WARDCOL+3

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+5, EN+12, EN1+9, %+1!, %+6, ORDER+2, SENDPAT+2, WARDCOL+2*, WARDCOL+3
>> %DT	L5+2*
>> %DT("A"	L5+2*
>> BLRGUI	EN+5, EN+6, START+6*
>> BLROPT	LRORD+9, LRORD+11, ORDER+4, SENDPAT+4, IMMCOL+4, WARDCOL+6
>> BLROPT(0	LRORD+9, LRORD+11, ORDER+4, SENDPAT+4, IMMCOL+4, WARDCOL+6
>> BLRPRAC	START+15*
>> BPCACC	START+17*
>> BPCCOM	START+13*
>> BPCODT	START+12*
>> BPCOORDS	START+14*
BPCPARAM	START~, START+7, START+8, START+9, START+10, START+12, START+13, START+14, START+15, START+16
>> BPCTL	START+8*
>> BPCURG	START+10, START+11
CONTROL	LEDI+7~
DEF	%~, %+4
>> DFN	START+7*
DIC	EN1+3!, L5+7*, L5+9!
DIC("S"	L5+8*, GET+3!
DIC(0	L5+7*
DIR	%+1!
DIR("A"	%+3*
DIR("B"	%+4*
DIR(0	%+2*
DT	EN1+6, L5+3, L5+5, G5+4
>> DTOUT	L5+9
>> DUOUT	L5+9
DUZ	START+9
DUZ(2	IMMCOL+2
>> I	G0+4, G0+5, G0+6, G0+7, G0+9, G0+11
LA7	LEDI+7~
LA7SCFG	LEDI+7~
LA7X	LEDI+7~
LA7Y	LEDI+7~
LR64	LEDI+7~
LR696	LEDI+7~
>> LRAD	G5+4*
>> LRADDTST	EN1+5
>> LRCDT	EN1+13
LRCOM	EN1+3!
>> LRECT	EN1+6, EN1+7, EN1+9*
>> LREND	EN1+10*, LEDI+6, LEDI+19, LEDI+20
>> LRFIRST	EN1+6, EN1+7
>> LRFLOG	L5+6, L5+9, G0+2, G0+3, START+16*
>> LRFLOG(0	G0+3*, G0+7, G0+9, G0+11
>> LRLABKY	L5+8
LRLABLIO	LEDI+7~
>> LRLLOC	EN1+10*
>> LRLWC	EN1+10, EN1+11, EN1+12*
>> LRLWCURG	ORDER+3*
LRNATURE	EN1+3!
LRODT	EN1+6, L5+3, L5+4, L5+5, G5+3, IMMCOL+5!, LEDI+23!
>> LRORDR	EN1+4, EN1+9, EN1+10, EN1+11, EN1+12, EN1+13, L5+2, ORDER+3, SENDPAT+3, IMMCOL+3 , WARDCOL+4, LEDI+23, START+9*
>> LRORDRR	EN1+7, LEDI+23*
>> LRORDTIM	EN1+4, L5+3
>> LROUTINE	EN1+6*
>> LRREFBAR	LEDI+8*, LEDI+9, LEDI+12
LRRSITE	LEDI+7~, LEDI+12
LRRSITE("ERROR"	LEDI+13, LEDI+14
LRRSITE("SMID"	LEDI+18, LEDI+19
LRRSTAT	LEDI+7~, LEDI+10*
LRRSTAT(0	LEDI+11*
LRSAME	EN1+3!
>> LRSAMP	GET+11, GET+12, GET+13
LRSD	LEDI+7~
>> LRSLIP	ORDER+2, SENDPAT+2, WARDCOL+3*
>> LRSPEC	GET+11, GET+12, GET+13
LRTCOM	EN1+3!
LRTSN	LEDI+7~
>> LRTSTS	GET+10*
LRURG	EN1+3!, G5+4*
>> LRWP	G0+4, G0+6, G0+7, G0+9, G0+11, G1+1, 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
MSG	%~, %+3
RESULT	START~
RESULT(1	EN+6, START+3, START+9, START+10
RESULT(2	EN+6, START+4, START+9, START+10
U	LRORD+9, LRORD+11, EN+9, EN1+6*, G0+2, GET+5, GET+13, G5+3, ORDER+3, ORDER+4 , SENDPAT+4, IMMCOL+2, IMMCOL+4, WARDCOL+6
X	L5+3, %+1!, %+6
>> X1	L5+3*
>> X2	L5+3*
>> XQY0	LRORD+9, LRORD+11, ORDER+4, SENDPAT+4, IMMCOL+4, WARDCOL+6
>> XWBWRAP	LRORD+10*
Y	L5+3, L5+6*, L5+9, G0+5, G0+6, GET+3, GET+4, %+1!
Y(0	G0+6*, G0+7, G0+11

Customize PDF page

Package: Lab Service

Routine: LRORD

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Caller Graph Total: 12