Routine: LRCE

Package	Total	Call Graph
Lab Service	5	^LRDPA $$STATUS^LREVENT ^LRORD ^LROS (LRGLIN,PT)^LRX
VA Fileman	4	^%DT ^DIC YN^DICN ^DIR
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Lab Service	3	LRAD2ORD LRADDTST LRCENLKUP

Entry Points

Name	Comments	DBIA/ICR reference
ADDTST	;
NXT
HEAD	;
EN	; EP
END	;
CHKPAGE	;
ADDEND	;
LU1	;
REF	; if referred test, display status and manifest
FSN	;
NEXT
LR2	;
PT	;
TEST	;
LUPT	;
TST
SEL
UNIV	; see if entry is UID
DIS	;

External References

Name	Field # of Occurrence
^%DT	LU1+4
^DIC	SEL+15
YN^DICN	SEL+2
^DIR	EN+10, CHKPAGE+5
^LRDPA	LUPT+2
$$STATUS^LREVENT	REF+7
^LRORD	ADDTST+3
^LROS	EN+12
LRGLIN^LRX	HEAD+9
PT^LRX	PT+9
$$FMTE^XLFDT	DIS+8, HEAD+22, HEAD+27, HEAD+30

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: EN+3
Function Call: WRITE	Prompt: !,"Enter a whole number for the order number." Line Location: NEXT+3
Function Call: WRITE	Prompt: " NUMBER NOT FOUND" Line Location: NEXT+6
Function Call: WRITE	Prompt: @IOF Line Location: DIS+1
Function Call: WRITE	Prompt: !!?15,"LISTING OF DATES " Line Location: DIS+3
Function Call: WRITE	Prompt: !?5,CNT,?10,$$FMTE^XLFDT(LRODT,"5FM") Line Location: DIS+8
Function Call: WRITE	Prompt: @IOF Line Location: CHKPAGE+7
Function Call: WRITE	Prompt: ! Line Location: CHKPAGE+8
Function Call: WRITE	Prompt: " NO PATIENT" Line Location: PT+5
Function Call: WRITE	Prompt: !!,"ORDER #: ",LRORD,?20,"PAT: ",PNM," HRCN: ",HRCN,! Line Location: HEAD+5
Function Call: WRITE	Prompt: ! Line Location: HEAD+10
Function Call: WRITE	Prompt: "WHO ENTERED: ",$E(LRWHOE,1,25) Line Location: HEAD+13
Function Call: WRITE	Prompt: ! Line Location: HEAD+18
Function Call: WRITE	Prompt: ! Line Location: HEAD+25
Function Call: WRITE	Prompt: "TO BE DRAWN: ",$$FMTE^XLFDT($P(LROR,U,8),"5FM") Line Location: HEAD+27
Function Call: WRITE	Prompt: ! Line Location: HEAD+29
Function Call: WRITE	Prompt: " LAB ARRIVAL: ",$$FMTE^XLFDT(+$G(^(3)),"5FM") Line Location: HEAD+30
Function Call: WRITE	Prompt: ?40,"PROVIDER: ",$E(LRMD,1,30) Line Location: HEAD+36
Function Call: WRITE	Prompt: !,"COMMENT: ",$P(^LRO(69,LRODT,1,LRSN,1),U,6) Line Location: TST+8
Function Call: WRITE	Prompt: !,?3,^(I,0) Line Location: TST+10
Function Call: WRITE	Prompt: !,"Order has already been accessioned." Line Location: NXT+1
Function Call: WRITE	Prompt: !,"Tests have been accessioned, call the lab to add tests to the same order." Line Location: NXT+2
Function Call: WRITE	Prompt: !?5,"This Order was Merged " Line Location: NXT+4
Function Call: WRITE	Prompt: !,"Is this the one" Line Location: SEL+0
Function Call: WRITE	Prompt: !,"Order date to start from: T//" Line Location: LU1+1
Function Call: WRITE	Prompt: !," TEST: ",$S($D(^LAB(60,+X,0)):$P(^(0),"^"),1:"UNKNOWN"),?28," " Line Location: TEST+2
Function Call: WRITE	Prompt: $E($S($D(^LAB(62.05,LRURG,0)):$P(^(0),U),1:"ROUTINE"),1,15) Line Location: TEST+2
Function Call: WRITE	Prompt: ?38," ",$S($D(^LRO(68,+$P(X,"^",4),0)):$P(^(0),"^"),1:""),?50," ",$P(X,"^",5),?55 Line Location: TEST+3
Function Call: WRITE	Prompt: !,"Sign or Symptom: ",$G(^LRO(69,LRODT,1,LRSN,2,I,9999999)) Line Location: TEST+5
Function Call: WRITE	Prompt: ?38," ",$S($D(^LRO(68,+$P(X,"^",4),0)):$P(^(0),"^"),1:""),?50," ",$P(X,"^",5) Line Location: TEST+8
Function Call: WRITE	Prompt: !,"Sign or Symptom: ",$G(^LRO(69,LRODT,1,LRSN,2,I,9999999)) Line Location: TEST+9
Function Call: WRITE	Prompt: !,"Clinical Indication: ",$G(^LRO(69,LRODT,1,LRSN,2,I,9999999)) Line Location: TEST+12
Function Call: WRITE	Prompt: !?3,"Canceled by: "_$P(^VA(200,$P(X,"^",11),0),"^") Line Location: TEST+15
Function Call: WRITE	Prompt: !?5,^(0) Line Location: TEST+16
Function Call: WRITE	Prompt: !?5,^(0) Line Location: TEST+18
Function Call: WRITE	Prompt: !,?5,"SHIPPING MANIFEST: "_LRMAN Line Location: REF+3
Function Call: WRITE	Prompt: !," <"_LRUID_">" Line Location: REF+6
Function Call: WRITE	Prompt: !,?5,"SHIPPING MANIFEST: "_LRMAN Line Location: REF+10
Routine Call	DIC Line Location: SEL+15
Routine Call	DIR Line Location: EN+10 CHKPAGE+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	TEST+2
^LAB(62 - [#62]	HEAD+33
^LAB(62.05 - [#62.05]	TEST+2
^LR - [#63]	PT+8
^LRO(68 - [#68]	UNIV+1, TEST+8
^LRO(69 - [#69]	NEXT+6, DIS+5, DIS+11, LR2+5, PT+3, HEAD+15, HEAD+16, HEAD+21, HEAD+30, HEAD+34 , HEAD+37, TST+2, TST+7, TST+8, TST+10, NXT, SEL+8, SEL+16, SEL+17, LU1+6 , FSN+2, FSN+3, TEST+2, TEST+12, TEST+16, TEST+18, REF+1
^SC - [#44]	HEAD+23
^VA(200 - [#200]	PT+7, HEAD+17, HEAD+35, TEST+15

Label References

Name	Line Occurrences
ADDEND	ADDTST+4
CHKPAGE	DIS+6, LR2+2, PT+1, HEAD+1, HEAD+7, HEAD+18, HEAD+25, HEAD+29, HEAD+32, TST , TST+3, TST+4, TST+5, TST+8, TST+10, TEST+1, TEST+16, TEST+17, TEST+18
EN	EN+12, NEXT+2, DIS+14, ADDTST+1
END	EN+11, EN+12, NEXT, DIS+13, ADDTST+4
FSN	LU1+6
LR2	DIS+12
LRCE	NEXT+6, DIS+13
LU1	LU1+5
PT	LR2+5, FSN+3
REF	TEST+14
TEST	TST+4
UNIV	NEXT+1

Naked Globals

Name	Field # of Occurrence
^(	TST+10, FSN+3, TEST+16, TEST+18
^("PCE"	HEAD+37
^(0	PT+3, PT+7, PT+8, HEAD+33, HEAD+35, TEST+2, TEST+8, TEST+16, TEST+18
^(1	HEAD+16, HEAD+21, TST+7
^(3	HEAD+30

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	SEL+1*, SEL+3, SEL+4, SEL+6, END+1!
%DT	LU1+3*, END+1!
A	DIS+5*, DIS+9!, END+1!
CNT	DIS+4, DIS+7, DIS+8, DIS+9!
DA	SEL+7~, SEL+13*
DA(1	SEL+13*
DFN	PT+8*, LUPT+1!, LUPT+3, END+1!
DIC	SEL+7~, SEL+14*, LUPT+1!, END+1!
DIC("A"	SEL+12*
DIC("S"	SEL+13*
DIC(0	SEL+14, LUPT+1
DIR	EN+5!, NEXT+5!, CHKPAGE+3!, END+1!
DIR("?"	EN+8, EN+9
DIR("A"	EN+7*
DIR(0	EN+7, CHKPAGE+4
DIRUT	EN+2!, NEXT, NEXT+5!, CHKPAGE+6, END+1!
DOB	ADDEND+3!
DTIME	LU1+1
DTOUT	END+1!
DUOUT	CHKPAGE+6, LUPT+3, END+1!
>> HRCN	HEAD+5
I	ADDEND+5!, HEAD+39, TST+2, TST+9, TST+10, SEL+7~, TEST+2, TEST+12, TEST+16, TEST+18 , REF+1, END+1!
I(2	TEST+15, TEST+16, TEST+18*
II	END+1!
IOF	DIS+1, CHKPAGE+7
IOSL	CHKPAGE+2
K	END+1!
L	HEAD+34*, HEAD+35, END+1!
>> LN	EN+3*
>> LR2ORD	END+5
LRAA	UNIV+1~*
LRAD	UNIV+1~*
>> LRADDTST	DIS+2, DIS+11, DIS+13, DIS+14, ADDTST+1, ADDTST+3, LR2+5, NXT+3, SEL+4, SEL+5 , SEL+15*
LRAN	UNIV+1~*
LRARIV	END+1!
LRCLCTR	ADDEND+1!, HEAD+16, HEAD+17, HEAD+19, END+1!
LRCLST	ADDEND+1!, HEAD+16*, HEAD+20, END+1!
LRCTYP	HEAD+11*, HEAD+12, HEAD+14, END+2!
LRDFN	ADDEND+1!, PT+4*, PT+5, PT+8, FSN+2
LRDN	ADDEND+3!
LRDPF	ADDEND+1!, PT+8*, HEAD+31
LRDRWTM	ADDEND+1!, HEAD+21, HEAD+22, HEAD+24, HEAD+26, HEAD+27, END+2!
LREVNT	REF+1~, REF+7*, REF+8, REF+9, REF+11
LRFLAG1	EN+1*, ADDEND+1!, END+2!
LRFLG	EN+1, ADDEND+1!, PT+2, SEL+9, END+2!
>> LRFLG1	SEL+3*
>> LRLABKY	NXT+2
LRLLOC	ADDEND+2!, SEL+10*
LRLOC	ADDEND+2!, HEAD+23*, HEAD+24, HEAD+28, END+2!
>> LRLWC	SEL+8*, SEL+11
LRMAN	REF+1~, REF+9*, REF+10
LRMD	HEAD+35*, HEAD+36, END+2!
LRNOP	EN+1, ADDEND+4!, NXT+1, NXT+2, SEL+1, SEL+3, TEST+2, END+6!
LRODT	DIS+4, DIS+5, DIS+8, DIS+10, DIS+11, ADDEND+2!, LR2+5, PT+3, HEAD+15, HEAD+16 , HEAD+21, HEAD+30, HEAD+34, HEAD+37, TST+2, TST+7, TST+8, TST+10, NXT, SEL+8 , SEL+13, SEL+14, SEL+16, SEL+17, LU1+6*, FSN+2, FSN+3, TEST+2, TEST+12, TEST+16 , TEST+18, REF+1, END+2!
LROLLOC	ADDEND+2!, SEL+10*
LROR	PT+3*, PT+4, PT+6, HEAD+11, HEAD+23, HEAD+27, HEAD+32, HEAD+33, END+2!
LRORD	EN+2!, NEXT+2, NEXT+4, NEXT+6, DIS+5, DIS+11, LR2+5, HEAD+5, SEL+4, FSN+3* , END+2!
LRORDRR	ADDEND+2!, SEL+1!, SEL+20*
LRPRAC	ADDEND+2!, SEL+10*, END+3!
LRRB	ADDEND+2!
LRRSITE	ADDEND+3!, SEL+1!
LRRSITE("RPSITE"	SEL+18*
LRRSITE("RSITE"	SEL+17*
LRRSITE("SDT"	SEL+11*
LRRSTAT	ADDTST+2, ADDEND+4!, NXT+5
LRSD	ADDEND+3!, SEL+1!
LRSD("RPSITE"	SEL+17*
LRSD("RUID"	SEL+19*
LRSN	ADDEND+3!, LR2+4, LR2+5, PT+3, HEAD+15, HEAD+16, HEAD+21, HEAD+30, HEAD+34, HEAD+37 , TST+2, TST+7, TST+8, TST+10, NXT, SEL+8, SEL+13, SEL+14, SEL+16, SEL+17 , FSN+1, FSN+2, FSN+3, TEST+2, TEST+12, TEST+16, TEST+18, REF+1, END+3!
LRSN1	EN+1*, ADDEND+4!, END+3!
LRSTOP	EN+1, DIS+6, DIS+9, DIS+11, ADDEND+3!, LR2+1, LR2+3, LR2+5, CHKPAGE+1, CHKPAGE+6 , PT+2, HEAD+2, HEAD+8, HEAD+18, HEAD+21, HEAD+25, HEAD+29, HEAD+32, TST+1, TST+3 , TST+4, TST+6, TST+8, TST+10, TST+11, SEL+5, TEST+1, TEST+16, TEST+17, TEST+18 , END+3!
LRTREA	ADDEND+3!
LRTSN	ADDEND+3!
LRTSP	ADDEND+3!, SEL+1!, SEL+16*
LRUID	REF+1~*, REF+6, REF+7
LRURG	TEST+2*, END+3!
LRW	END+3!
LRWHOE	PT+6, PT+7, HEAD+12, HEAD+13!, END+3!
LRWRD	HEAD+31, END+3!
PNM	ADDEND+3!, HEAD+5
SEX	ADDEND+3!
SSN	EN+2!, EN+11, EN+12, ADDEND+3!
TYPE	ADDEND+4!
U	PT+6, PT+7, PT+8, HEAD+11, HEAD+16, HEAD+17, HEAD+23, HEAD+27, HEAD+32, HEAD+33 , HEAD+34, HEAD+35, TST+7, TST+8, NXT, NXT+2, SEL+10, SEL+11, SEL+16, SEL+17 , SEL+18, SEL+19, TEST+2
>> VA("BID"	END+3!
>> VA("PID"	END+3!
VADM	END+4!
VAERR	END+4!
VAIN	END+4!
X	NEXT+5!, ADDEND+5!, UNIV+1, NXT, NXT+1, NXT+4, SEL+7~, SEL+16, SEL+17, SEL+18 , SEL+19, LU1+1, LU1+2, LU1+3, TEST+2*, TEST+8, TEST+15, REF+7, END+4!
X0	SEL+7~, SEL+8*, SEL+10, SEL+11
X1	END+4!
X2	END+4!
Y	EN+11, EN+12, NEXT+2, NEXT+5!, ADDEND+5!, UNIV+1, SEL+15, SEL+16, LU1+5, LU1+6 , END+4!
Z	END+4!

Customize PDF page

Package: Lab Service

Routine: LRCE

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: