Routine: LROW

Package	Total	Call Graph
Lab Service	14	BALROW^LRBEBA3 $$CHKINP^LRBEBA4 (,EN2)^LRDPA LROW^LRORDD ^LRORDIM ^LROW1 REST^LROW2 ^LROW3 LREND^LROW4 NEXTCOL^LROW5 ^LRPARAM (COLTY,LOC)^LRWU PRAC^LRWU1 DT^LRX
VA Fileman	3	NOW^%DTC YN^DICN ^DIR

Package	Total	Caller Graph
Lab Service	5	LRAD2ORD LROE1 LROR9 LROW LROW5

Entry Points

Name	Comments	DBIA/ICR reference
LEND	;from LROW5
TIME	;from LROW5
L5B	;
W10	;
L5A	;R !,"Select: ",X:DTIME G LEND:X["^"!'$T,L5:X="" S X=$E(X,1)
PRAC
L5	;from LROR, LROR4
W20	;from LROE1
Q12
NOMORE	;from LROR
Q12A
ADD	;from LRAD2ORD
MORE	;from LROR

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"ORDER CANCELED",!! Line Location: PRAC+0
Function Call: WRITE	Prompt: !,"Will the urgency for all tests ordered for this patient at this time be",!,$P(^LAB(62.05,+$P(^LAB(69.9,1,3),U,2),0),U) Line Location: PRAC+1
Function Call: WRITE	Prompt: " Answer 'Y'es or 'N'o." Line Location: PRAC+1
Function Call: WRITE	Prompt: !!,$C(7),"ORDER CANCELED",!! Line Location: PRAC+2
Function Call: WRITE	Prompt: !," (S)END patient to lab",!," (W)ARD collect & deliver",!," (B)LOOD orders for lab draw",!," (I)MMED Lab Collect ",! Line Location: L5+1
Function Call: WRITE	Prompt: !,"Enter 'S' for SEND TO LAB",!?6,"'W' for WARD COLLECT",!?6,"'B' for BLOOD COLLECTED BY LAB.",!?6,"'I' for Immediate Lab Collect",!?6,"'^' to Exit." Line Location: L5A+1
Function Call: WRITE	Prompt: Y Line Location: TIME+2
Routine Call	DIR Line Location: NOMORE+6

Name	Line Occurrences (* Changed, ! Killed)
^LAB(62.05 - [#62.05]	PRAC+1
^LAB(69.9 - [#69.9]	PRAC+1, PRAC+3
^LR - [#63]	W10+7
^LRO(69 - [#69]	Q12A, MORE+2, L5B+2, L5B+3

Name	Line Occurrences
@(	NOMORE+8
L5	Q12+1
LEND	MORE+4
MORE	W10+4, NOMORE+8
NOMORE	MORE+6
PRAC	Q12+2
Q12A	MORE+2
W10	W10+6, Q12, PRAC, PRAC+2, MORE+7, NOMORE+2, NOMORE+7, NOMORE+8, ADD+1
W20	NOMORE+2

Name	Field # of Occurrence
>> %	W10+3, PRAC+1*, PRAC+2, PRAC+3, NOMORE+2
>> DA	Q12A, MORE+2*
DFN	W10+3, W10+5!, W10+6
DIC	W10+5!, PRAC+1!
DIC(0	W10+5*
DIR	NOMORE+6!
DIR("A"	NOMORE+6*
DIR("B"	NOMORE+6*
DIR(0	NOMORE+6*
>> DIROUT	MORE+6
DTOUT	W10+4!, W10+5, NOMORE+2
>> DUOUT	W10+5
DUZ	NOMORE+1
>> I	Q12A, PRAC+1
>> LRADDTST	W10+2, W10+4, MORE+6, NOMORE+2, NOMORE+5, W20+1, ADD+1
LRBEODT	W10+1!
LRBEOT	W10+1!
LRBEQT	W10+1!
LRBERF	W10+1!
LRBETS	W10+1!
LRBETYP	W10+1!
LRBEVT	W10+1!
LRBEX	W10+1!, MORE+1!
LRBEY	W10+1!, MORE+4*
LRBEZ	W10+1!
>> LRCCOM	MORE+3*
LRCDT	W10+3*, NOMORE+1, W20+1!, L5B+2
LRCOM	W10+4!, MORE+1!
>> LRDFN	W10+5, W10+7, MORE+2, MORE+4, NOMORE+1
LRDMAX	MORE+1!
>> LRDPF	W10+7*, MORE+4
LRDTST	MORE+1!
>> LREND	Q12, Q12+1, PRAC, PRAC+2, NOMORE+8, L5B+1, L5B+2, L5B+3, LEND+1*
LRLLOC	NOMORE+1, W20+1!
>> LRLWC	NOMORE+1, NOMORE+8, L5B+2
>> LRMOR	W10+4*
LRNATURE	W10+2!
>> LRNN	W10+4*
>> LRODT	Q12A, MORE+2, MORE+4, MORE+5, NOMORE+1, L5B+2, L5B+3
LROLLOC	W20+1!
>> LRORDTIM	NOMORE+1
LRORIFN	NOMORE+5!
LROT	MORE+1!
LROUTINE	PRAC+1!, PRAC+3*, NOMORE+8!
>> LRPRAC	NOMORE+1
>> LRSAMP	MORE+2*
LRSN	W10+4!*, MORE+5, W20+1!
LRSNO	NOMORE+1*, W20+1!
>> LRSS	MORE+4
LRSTATUS	W20+1!
LRTCOM	W10+4!, MORE+1!
>> LRTEST	MORE+5
LRTMAX	MORE+1!
LRTREA	W20+1!
>> LRTSTN	MORE+7
LRURG	PRAC+1!, NOMORE+8!
LRXST	W10+5!, NOMORE+2, W20+1!
LRY	PRAC+1!, NOMORE+8!
>> PNM	W10+5*
>> S	Q12A*
T	MORE+1!
T(	Q12A*
TT	MORE+1!
TT(	Q12A*
U	W10+2*, W10+4, W10+7, PRAC+1, PRAC+3, MORE+2, MORE+6
>> X	Q12A*
X3	W10+2!, W10+5!, NOMORE+8!
>> Y	W10+6, NOMORE+7, TIME+1*, TIME+2
>> Z	TIME+1*