Routine: BLRORD1

Package	Total	Call Graph
Lab Service	4	(GCOM,URG)^LRORD2 GSNO^LRORD3 EN2^LRORDD ORDER^LROS
IHS Changes To Lab	3	(,Q20)^BLRORDD ^BLRORDST ORDER^BLROW2
VA Fileman	3	NOW^%DTC ^DIC YN^DICN

Package

Total

Call Graph

Lab Service

(GCOM,URG)^LRORD2 GSNO^LRORD3 EN2^LRORDD ORDER^LROS

IHS Changes To Lab

(,Q20)^BLRORDD ^BLRORDST ORDER^BLROW2

VA Fileman

NOW^%DTC ^DIC YN^DICN

Entry Points

Name	Field # of Occurrence
NOW^%DTC	Q14+6
^BLRORDD	Q14+1
Q20^BLRORDD	Q13A+1
^BLRORDST	Q14+8
ORDER^BLROW2	Q11+12
^DIC	PRAC+2
YN^DICN	MICRO
GCOM^LRORD2	MICRO+5
URG^LRORD2	URGG
GSNO^LRORD3	MICRO+2
EN2^LRORDD	MAX+1
ORDER^LROS	MAX+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: L2+2
Function Call: WRITE	Prompt: !,"Choose one (or more, separated by commas) ('*' AFTER NUMBER TO CHANGE URGENCY) " Line Location: LRFIRST+0
Function Call: WRITE	Prompt: !,I,?4,$P(LRSTIK(I),U,2) Line Location: LRFIRST+1
Function Call: WRITE	Prompt: ?39," ",I+LRWPD,?44,$P(LRSTIK(I+LRWPD),U,2) Condition for execution: $D(LRSTIK(I+LRWPD)) Line Location: LRFIRST+1
Function Call: READ	Prompt: "TEST number(s): " Timeout: DTIME Variable: LRSX Line Location: Q13+1
Function Call: WRITE	Prompt: !,"Something was mistyped, try again." Line Location: Q13A+0
Function Call: WRITE	Prompt: !!,"LAB Order number: ",LRORD,!! Line Location: Q14+3
Function Call: READ	Timeout: DTIME Variable: % Line Location: Q14+13
Function Call: WRITE	Prompt: !,"Answer 'Y' or 'N': " Line Location: Q14+13
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(LRSTIK(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+0
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+1
Function Call: WRITE	Prompt: !,"Incompletely defined." Line Location: MICRO+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: PRAC+1
Function Call: WRITE	Prompt: !,"PRACTITIONER: ",X,$S($L(X):"//",1:"") Line Location: PRAC+1
Routine Call	DIC Line Location: PRAC+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	L2+6
^DPT - [#2]	L2+5
^LAB(60 - [#60]	MAX+1, MAX+2, MAX+3
^LR - [#63]	E2, E2+1, E3, BPC+1, Q11+1
^LR("B"	E2+1*
^LR(0	L2+8, E2+1
^LRO(69 - [#69]	Q11+4, Q11+5, Q11+6, Q11+7, Q11+8
^SC("C"	Q12+1
^VA(200 - [#200]	PRAC+1

Name	Line Occurrences
%	%, MAX+4
E2	E2
E3	L2+7
L2	Q11+12, Q14+12, DROP
LRFIRST	L2+1, Q11+11
MICRO	Q11+12, MICRO+1, MICRO+3
Q13	LRFIRST
Q13A	Q13

Name	Field # of Occurrence
^(0	E2+1*, E3, MAX+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	Q14+6, %, MAX+1, MICRO, MICRO+1
>> BPCACC	Q14+9
>> BPCPARAM	Q12+1
>> BPCTL	Q13+2
>> DA	Q11+4*, Q11+5, Q11+6, Q11+7, Q11+8
>> DFN	L2+5, L2+6, L2+7, E2+1, E3
DIC	Q11+11!, PRAC+2!
DIC("B"	PRAC+1
DTIME	%, PRAC+1
>> DTOUT	Q11+12, MICRO+2
DUOUT	Q11+12!, MICRO*, MICRO+2
DUZ	Q11+1
DUZ(2	L2+6
>> HRCN	L2+6*
>> I	Q11+7, Q11+8, Q13+3
>> I7	MAX+2*, MAX+3, MAX+4
>> I9	MAX+2*
>> K	Q13A+2*
>> LRADDTST	Q11+11*
LRCCOM	L2!
>> LRCDT	Q14+6*, Q14+7
>> LRCS(	MAX+1
>> LRCSN	MAX+1
>> LRDFN	L2+7, L2+8, E2*, E2+1, E3, BPC, BPC+1, Q11+1, Q11+4
LRDMAX	Q11+2!
>> LRDPF	L2+5, L2+7, E2+1, E3, BPC+1
LRDTST	Q11+2!
>> LRECOM	MICRO+5*
>> LRECT	Q14+5, Q14+6
>> LREDO	Q13, Q13+3
>> LRFIRST	LRFIRST
>> LRFLOG	Q11+12
LRGCOM	L2!
>> LRIDT	Q14+7*
>> LRK	Q13A+1*
>> LRKIK	Q14+12
LRKIL	L2!
>> LRLLOC	Q12+1*
>> LRM	Q13A+2*
LRNATURE	L2!
>> LRNT	Q14+6*
>> LRODT	Q11+4, Q11+5, Q11+6, Q11+7, Q11+8
>> LROLLOC	Q12+1*
>> LROR	L2+1, Q14+8
>> LRORD	Q11+11*, Q14+9
>> LRORDTIM	Q14+5*
LROT	L2!
>> LRPARAM	Q14+1
>> LRPRAC	Q11+1*
LRSAME	L2!, MICRO+4*
>> LRSAMP	Q13A+1*, MAX+2, MICRO+3, MICRO+4
>> LRSN	MAX+3*
>> LRSPEC	Q13A+1*, MAX+1, MAX+2, MICRO+3, MICRO+4
>> LRSSX	Q13+3, Q13A+1, URGG
>> LRST	Q13A+1*
>> LRSTIK(	Q13A+1, URGG
>> LRSX	LRFIRST, Q13+2, Q13+3, Q13A+1
LRTMAX	Q11+2!
>> LRTSTS	Q13A+1, MAX+1, MAX+2, MAX+3
>> LRWP	L2+1, LRFIRST, Q13, Q13+3
>> LRWPC	L2+1*, Q13A+2
>> LRZT	MAX+3*
>> PNM	L2+5*, E3
>> RESULT(1	E3, BPC, Q14+9*
>> RESULT(2	E3, BPC, Q14+9*
>> S	Q11+6*, Q11+8, Q11+9
>> SSN	L2+5*
T	Q11+2!
T(	Q11+8*, MAX+2, MAX+3
TT	Q11+2!
TT(	Q11+9*, MAX+1
U	L2+5, L2+6, BPC+1, Q11+5, Q11+12, Q13A+1, Q14+1, MAX+2, MAX+3, URGG , MICRO+4, PRAC+1
>> X	L2+7, E2+1, Q11+8, Q11+9, PRAC+1*
>> Y	PRAC+1*

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRORD1

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
BPC
URGG
MICRO
MAX	; CHECK FOR MAXIUM ORDER FREQUENCY
DROP
LRM	; MJL D MORE^LRORD2
Q14	;FHL D:$P(LRPARAM,U,17) ^BLRORDD G LRM:'$D(%)&($D(LROT)'=11),DROP:$O(LROT(-1))="",LRM:'$D(%),DROP:%[U K DIC G DROP:'$D(LROT)!(%["N")
PRAC	;from LRFAST
Q11	; MJL D PRAC^LRWU1 G DROP:LREND
Q13
Q12	; MJL D LOC^LRWU G DROP:LREND
L2
Q13A	; MJL I LREDO W !,"Something was mistyped, try again." G Q13
LRFIRST
Q20A	;from LRORD2
E3
E2