Routine: LRORD1

Call Graph Total: 20

Package	Total	Call Graph
Lab Service	16	BALROR^LRBEBA3 $$CHKINP^LRBEBA4 ^LRDPA LRWU4^LRFASTS (BLRRL,TIME)^LROE (GCOM,MORE,URG)^LRORD2 ^LRORD2A GSNO^LRORD3 EN^LRORDB (,EN2,Q20)^LRORDD ^LRORDST ORDER^LROS ORDER^LROW2 ENSTIK^LROW3 (COLTY,LOC)^LRWU PRAC^LRWU1
VA Fileman	3	NOW^%DTC ^DIC YN^DICN
IHS Changes To Lab	1	ASKATORD^BLRAAORU

Package

Total

Call Graph

BALROR^LRBEBA3 $$CHKINP^LRBEBA4 ^LRDPA LRWU4^LRFASTS (BLRRL,TIME)^LROE (GCOM,MORE,URG)^LRORD2 ^LRORD2A GSNO^LRORD3
EN^LRORDB (,EN2,Q20)^LRORDD ^LRORDST ORDER^LROS ORDER^LROW2 ENSTIK^LROW3 (COLTY,LOC)^LRWU PRAC^LRWU1

VA Fileman

NOW^%DTC ^DIC YN^DICN

IHS Changes To Lab

ASKATORD^BLRAAORU

Package	Total	Caller Graph
Lab Service	2	LRORD LRORDD

Package

Total

Caller Graph

Lab Service

LRORD LRORDD

Entry Points

Name	Comments	DBIA/ICR reference
URGG	; W !,"For ",$P(^TMP("LRSTIK",$J,LRSSX),U,2)
BAR
MICRO	; EP
MAX	; CHECK FOR MAXIUM ORDER FREQUENCY
DROP
LRM
Q14	; D:$P(LRPARAM,U,17) ^LRORDD D ^LRORD2A D ENSTIK^LROW3 G LRM:'$D(%)&($D(LROT)'=11),DROP:$O(LROT(-1))="",LRM:'$D(%),DROP:%[U K DIC G DROP:'$D(LROT)!(%["N") ; ----- BEGIN IHS/OIT/MKK - LR5.21030
PRAC	;from LRFAST
Q14A	; EP
Q11	; EP
Q13
Q12	; EP
LEDI	; EP
L2	; EP
Q13A
Q20A	;from LRORD2
LRFIRST	; EP

External References

Name	Field # of Occurrence
NOW^%DTC	Q14+23
ASKATORD^BLRAAORU	Q14+27
^DIC	PRAC+5
YN^DICN	MICRO+2
BALROR^LRBEBA3	Q14+11
$$CHKINP^LRBEBA4	Q14+10
^LRDPA	L2+5
LRWU4^LRFASTS	Q14+29
BLRRL^LROE	Q14+32
TIME^LROE	Q14+20
GCOM^LRORD2	MICRO+8
MORE^LRORD2	LRM
URG^LRORD2	URGG+2
^LRORD2A	Q14A+7
GSNO^LRORD3	MICRO+5
EN^LRORDB	LEDI+4
^LRORDD	Q14A+6
EN2^LRORDD	MAX+1
Q20^LRORDD	Q13A+7
^LRORDST	Q14+25
ORDER^LROS	MAX+3
ORDER^LROW2	Q11+8
ENSTIK^LROW3	Q14+3
COLTY^LRWU	L2+7
LOC^LRWU	Q12+1
PRAC^LRWU1	Q11+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: L2+5
Function Call: WRITE	Prompt: !,"Choose one (or more, separated by commas) ('*' AFTER NUMBER TO CHANGE URGENCY) " Line Location: LRFIRST+2
Function Call: WRITE	Prompt: !,X,?4,$P(^TMP("LRSTIK",$J,X),U,2) Line Location: LRFIRST+6
Function Call: WRITE	Prompt: ?39," ",X,?44,$P(^TMP("LRSTIK",$J,X),U,2) Line Location: LRFIRST+8
Function Call: READ	Prompt: "TEST number(s): " Timeout: DTIME Variable: LRSX Line Location: LEDI+7
Function Call: WRITE	Prompt: !,"Something was mistyped, try again." Line Location: Q13A+0
Function Call: WRITE	Prompt: !!,"LAB Order number: ",LRORD,!! Line Location: Q14+14
Function Call: READ	Timeout: DTIME Variable: % Line Location: Q14+37
Function Call: WRITE	Prompt: !,"Answer 'Y' or 'N': " Line Location: Q14+37
Function Call: WRITE	Prompt: $C(7),!!,"You have a duplicate: " Line Location: MAX+3
Function Call: WRITE	Prompt: " for ",$P(^LAB(60,LRTSTS,0),U) Line Location: MAX+3
Function Call: WRITE	Prompt: !,"You already have that test, do you really want another? N//" Line Location: MAX+4
Function Call: WRITE	Prompt: !,"For ",$P(^TMP("LRSTIK",$J,LRSSX),U,2) Line Location: URGG+0
Function Call: WRITE	Prompt: !!,"ORDER CANCELED",$C(7),!! Line Location: DROP+0
Function Call: WRITE	Prompt: !,"Is there one sample for this patient's order" Line Location: MICRO+1
Function Call: WRITE	Prompt: !,"The collection sample and site/specimen will be used for all tests ordered",!,"at this time for this patient." Line Location: MICRO+4
Function Call: WRITE	Prompt: !,"Incompletely defined." Line Location: MICRO+6
Function Call: WRITE	Prompt: !,"PRACTITIONER: ",X,$S($L(X):"//",1:"") Line Location: PRAC+2
Routine Call	DIC Line Location: PRAC+5

Name	Line Occurrences (* Changed, ! Killed)
^BLRSITE - [#9009029]	Q14+32
^LAB(60 - [#60]	MAX+1, MAX+2, MAX+3
^LR - [#63]	L2+8
^LRO(69 - [#69]	Q11+4, Q11+5
^TMP("LRSTIK"	LRFIRST+5, LRFIRST+6, LRFIRST+7, LRFIRST+8, LEDI+13, Q13A+5, URGG+1
^VA(200 - [#200]	PRAC+1

Name	Line Occurrences
%	BAR, %, MAX+4
BAR	LEDI+3, LEDI+8
DROP	L2+7, Q12+1, Q11+1, Q14+4, Q14+6, Q14+10, Q14+15
L2	Q11+9, Q14+35, DROP
LRFIRST	L2+4, Q11+7, LEDI+7
LRM	Q14+4
MICRO	Q11+9, MICRO+4, MICRO+6
Q13	LRFIRST+1, Q13A
Q13A	LEDI+5
Q14	BAR
Q14A	Q14+2

Name	Field # of Occurrence
^(	Q11+5
^(0	L2+8, Q11+4, Q11+5, MAX+2
^(1	Q11+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	BAR, Q14+4, Q14+6, Q14+23, %, Q14A+2, Q14A+4~, Q14A+5, MAX+1, MICRO+2* , MICRO+3, MICRO+4
%ORIGQ14	Q14A+1~, Q14A+2*, Q14A+5
>> BLRGUI	Q14+32, URGG+1
>> DA	Q11+3, Q11+4, Q11+5
DFN	L2+5!, L2+8*
DIC	L2+5!, Q11+6!, Q14+5!, PRAC+5!
DIC("B"	PRAC+1, PRAC+4
DIC(0	L2+5*
DTIME	LEDI+7, %, PRAC+3
>> DTOUT	L2+5, Q11+9, Q14+12, MICRO+5
DUOUT	L2+5, Q11+9!, Q14+12, MICRO+3*, MICRO+5
DUZ(2	Q14+32
>> I	Q11+5, LRFIRST+3, LRFIRST+5, LRFIRST+7, LEDI+9*, LEDI+10
>> I7	MAX+2*, MAX+3, MAX+4
>> I9	MAX+2*
>> K	BAR*
LR696IEN	L2+3!
>> LRADDTST	L2+5, L2+6, Q11+7*
LRBEQT	L2+2~
LRBETS	L2+2~
LRBETYP	L2+2~
LRBEVT	L2+2~
LRBEX	L2+2~
LRBEY	L2+2~, Q14+10*, Q14+12
LRBEZ	L2+2~
LRCCOM	L2+3!
>> LRCDT	Q14+15, Q14+17, Q14+19, Q14+21, Q14+22, Q14+23*, Q14+24
>> LRCS(	MAX+1
>> LRCSN	MAX+1
>> LRDFN	L2+5, L2+8, Q11+4, Q14+10
LRDMAX	Q11+2!
>> LRDPF	L2+8*, Q14+10
LRDTST	Q11+2!
>> LRECOM	MICRO+8*
>> LRECT	Q14+15, Q14+23
>> LREDO	Q13, LEDI+9, LEDI+11, LEDI+13*, Q13A
>> LREND	L2+1, L2+7*, Q12+1, Q11+1
>> LRFASTS	Q14+29
>> LRFIRST	LRFIRST+1, LEDI+6, LEDI+7
>> LRFLOG	Q11+9
LRGCOM	L2+3!
>> LRIDT	Q14+24*
>> LRK	Q13A+2*
>> LRKIK	Q14+35
LRKIL	L2+3!
>> LRLABKY	L2+5
>> LRM	BAR*
LRNATURE	L2+3!
>> LRNT	Q14+23*
>> LRODT	Q11+4, Q11+5, Q14+10
>> LROR	L2+4, Q14+25, DROP
>> LRORD	Q11+7*, Q14+11, Q14+14, Q14+27
>> LRORDR	L2+7
>> LRORDRR	Q11+9, Q14+16
>> LRORDTIM	Q14+18, Q14+19, Q14+22
LROT	L2+3!, Q14+4, Q14+6
LROT(	Q14+4
LROT(0	LEDI+3
>> LRPARAM	L2+5, Q14A+6
>> LRRSITE("SMID"	LEDI+3, LEDI+4
>> LRRSTAT	LEDI+3
LRSAME	L2+3!, MICRO+7*
>> LRSAMP	Q13A+6*, MAX+2, MICRO+6, MICRO+7
>> LRSD("CDT"	Q14+16, Q14+17, Q14+18
>> LRSD("RUID"	LEDI+3, LEDI+4
>> LRSN	MAX+3*
>> LRSPEC	Q13A+6*, MAX+1, MAX+2, MICRO+6, MICRO+7
>> LRSS	Q14+10
>> LRSSX	LEDI+10, LEDI+11, LEDI+12, LEDI+13, Q13A+2, Q13A+4, Q13A+5, URGG+1
>> LRST	Q13A+4*
>> LRSX	LRFIRST+1, LEDI+7, LEDI+8, LEDI+9, LEDI+10, Q13A+2
LRTMAX	Q11+2!
>> LRTSTS	Q13A+6, MAX+1, MAX+2, MAX+3
>> LRWP	L2+4, LRFIRST+1, LEDI+5
>> LRWPC	L2+4*, BAR
>> LRWPD	LRFIRST+3, LRFIRST+7
>> LRZT	MAX+3*
>> PNM	L2+5*
>> S	Q11+4*, Q11+5
T	Q11+2!
T(	Q11+5*, MAX+2, MAX+3
TT	Q11+2!
TT(	Q11+5*, MAX+1
U	L2+5, L2+8, Q11+4, Q11+9, LRFIRST+6, LRFIRST+8, Q13A+6, Q14+4, Q14+22, Q14+32 , Q14A+6, MAX+2, MAX+3, URGG+1, MICRO+7, PRAC+1
X	Q11+5, LRFIRST+4~, LRFIRST+5, LRFIRST+6, LRFIRST+7, LRFIRST+8, Q13A+3~, Q13A+5, Q13A+6, PRAC+1* , PRAC+2, PRAC+3*, PRAC+4
>> Y	PRAC+4*

Customize PDF page

Package: Lab Service

Routine: LRORD1

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: