Routine: BLRORD2A

Package	Total	Call Graph
Lab Service	2	EN1^LRORDD ORDER^LROS
VA Fileman	1	(,C)^%DTC

Package

Total

Call Graph

EN1^LRORDD ORDER^LROS

(,C)^%DTC

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$P(^LAB(60,LRTY,0),U)," Exceeds maximum order FREQUENCY of 1 every ",LRMAX2," day(s)." Line Location: NEW+4
Function Call: WRITE	Prompt: !,"Do You really want another N// " Line Location: NEW+6
Function Call: READ	Timeout: DTIME Variable: % Line Location: SETT+10
Function Call: WRITE	Prompt: !,"Answer 'Y' or 'N' " Line Location: SETT+10

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	MAX+1, NEW+4
^LRO(69 - [#69]	NEW+1, SETT+5, SETT+6

Name	Field # of Occurrence
^(	NEW+1

Name	Field # of Occurrence
>> %	CHK, NEW+6, SCRUB+1, SCRUB+2, SCRUB+3, %*
DTIME	%
>> J(	SCRUB+3!
LRDAX	NEW+1!, NEW+4
LRDAX(1	NEW+3*
LRDAX(2	NEW+2*
>> LRDFN	NEW+1, SETT+5, SETT+6
>> LREND	CHK, SCRUB+2*
>> LRM	SCRUB+3*
>> LRMAX1	CHK*
>> LRMAX2	CHK+1*, NEW+2, NEW+3, NEW+4, SETT+3, SETT+4
>> LRMAXX	MAX+1*, CHK, CHK+1
LRODT	NEW+1, NEW+2, NEW+3, SETT+1, SETT+2~, SETT+3, SETT+5, SETT+6
LRODT1	SETT+4*, SETT+5, SETT+8!
LRODT2	SETT+1*, SETT+3, SETT+4, SETT+8!
>> LROT(	SING+1, SCRUB+3!
>> LRSAMP	SING+1*, MAX+1, SCRUB+3
>> LRSN	SETT+6*
>> LRSPEC	SING+1*, CHK, NEW+1, SCRUB+3, SETT+5
>> LRSPN	SING+1*, SCRUB+3
>> LRTEST	SCRUB+1
>> LRTEST(	SCRUB+1!
>> LRTSTN	SCRUB+1
>> LRTY	SING+1*, MAX+1, CHK, NEW+1, NEW+4, SETT+5
LRX	SETT+5*, SETT+8!
LRZX	SING+1!
LRZX(1	SCRUB+2
>> TT(	CHK
U	CHK, CHK+1, NEW+4
>> X	NEW+2, NEW+3, SETT+3, SETT+4
>> X1	NEW+1, NEW+2, NEW+3, SETT+3, SETT+4
>> X2	NEW+2, NEW+3, SETT+3, SETT+4
X3	SCRUB+1!
>> Y	NEW+1*, NEW+3

Information