Routine: LRORDIM

Information

LRORDIM ;DALCIOFO/FHS - PROCESS IMMEDIATE LAB COLLECT ALLOWABLE COLLECTION TIMES ;11/24/98 [ 04/10/2003 9:47 AM ]

Package	Total	Call Graph
Kernel	2	($$DOW,$$FMTH,$$HTFM,$$NOW)^XLFDT $$UP^XLFSTR
VA Fileman	1	^%DT

Package	Total	Caller Graph
Lab Service	5	LR7OV4 LROR6A LROR8 LRORD LROW

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?25 Line Location: EN+1
Function Call: WRITE	Prompt: @LRVIDO Line Location: EN+3
Function Call: WRITE	Prompt: " "_$$DOW^XLFDT(Y),@LRVIDOF Line Location: EN+4
Function Call: WRITE	Prompt: !! Line Location: EN+5
Function Call: WRITE	Prompt: !,"SERVICE NOT AVAILABLE",! Line Location: EN+8
Function Call: WRITE	Prompt: !,"SERVICE NOT AVAILABLE ",! Line Location: EN+11
Function Call: WRITE	Prompt: !,I_" Collection Between: " Line Location: EN+15
Function Call: WRITE	Prompt: ?30,X3_" and ",X4 Line Location: EN+20
Function Call: WRITE	Prompt: !! Line Location: EN+21
Function Call: WRITE	Prompt: !,"YOU MUST ALSO ENTER COLLECTION TIME",! Line Location: EN+22
Function Call: WRITE	Prompt: $C(7),!!,"SORRY SERVICE NOT OFFERED ON "_$P($G(^($P(Y,"."),0)),U,2),! Line Location: EN+23
Function Call: WRITE	Prompt: !!,"MUST BE "_M_" MINUTES IN THE FUTURE",!!,$C(7) Line Location: EN+25
Function Call: WRITE	Prompt: !!,"MUST BE LESS THAN "_H_" HRS IN THE FUTURE",!!,$C(7) Line Location: EN+26
Function Call: WRITE	Prompt: !,"SERVICE NOT OFFERED ON "_DAY,!!,$C(7) Line Location: CHK+4
Function Call: WRITE	Prompt: !!?10,"DATE/TIME ACCEPTED",!! Line Location: CHK+6
Function Call: WRITE	Prompt: !!!,$C(7),"SERVICE FOR ["_DAY_"] OFFERED BETWEEN "_$E(Z,($L(+$P(NODE1,U,2))+1),4)_$P(NODE1,U,2)_" AND "_$E(Z,($L(+$P(NODE1,U,3))+1),4)_$P(NODE1,U,3)_" Hrs ",! Line Location: DIS1+0

Name	Line Occurrences (* Changed, ! Killed)
^HOLIDAY - [#40.5]	EN+23
^LAB(69.9 - [#69.9]	EN+10, EN+14, CHK+3

Name	Field # of Occurrence
^(	EN+14, EN+23

Name	Field # of Occurrence
%A	CHK+8!, END+1!, DATE+5*, DATE+6
%DT	EN+2, EN+21!, CHK+8!, END+1!
%DT("A"	EN+21*
%H	CHK+8!, END+1!, DATE+3, DATE+4, DATE+6*, DATE+7
%T	CHK+8!, END+1!, DATE+3, DATE+4, DATE+5, DATE+6*, DATE+7
D	EN+24*, CHK+8!, END+1!, DATE+1, DATE+3
D1	EN~, CHK+8!, END+1!, DATE+2*, DATE+4
DAY	CHK+1, CHK+2, CHK+3, CHK+4, CHK+8!, END+1!, DIS1
DUZ(2	EN+10, EN+14, CHK+3
H	EN+24!, EN+26, CHK+8!, END+1!, DATE+2, DATE+4
I	EN+13*, EN+14, EN+15, CHK+8!, END+1!
LRCDT	EN!, EN+24*, EN+25, EN+26, CHK+1, CHK+3, CHK+7, END+1!
LRODT	EN!, CHK+7*
LRORDTIM	EN!, CHK+7*
>> LRVIDO	EN+3
>> LRVIDOF	EN+4
M	EN+24, EN+25, EN+26!, CHK+8!, END+1!, DATE+2, DATE+4
NODE	EN+10*, EN+11, EN+12, EN+23, EN+24, EN+26, CHK+8!, END+1!
NODE1	CHK+3*, CHK+4, CHK+5, CHK+8!, END+1!, DIS1
NOP	CHK+3, CHK+4, CHK+5*, CHK+6, CHK+8!, END+1!
NOW1	EN+25, EN+26, CHK+8!, END+1!, DATE+7*
S	EN+24!, EN+26!, CHK+8!, END+1!, DATE+2*, DATE+4
U	EN+12, EN+16, EN+17, EN+23, EN+24, EN+26, CHK+4, CHK+5, DIS1
X	EN+2, EN+14, EN+16, EN+17, EN+24*, CHK+8!, END+1!
>> X1	EN+16*, EN+18
X2	EN+17, EN+19, CHK+3, CHK+5, CHK+8!, END+1!
>> X3	EN+18*, EN+20
>> X4	EN+19*, EN+20
Y	EN+4, EN+22, EN+23, EN+24, CHK+8!, END+1!
Z	EN+2*, EN+16, EN+17, CHK+8!, END+1!, DIS1