Routine: LRORDIM

Information

LRORDIM ;DALCIOFO/FHS - PROCESS IMMEDIATE LAB COLLECT ALLOWABLE COLLECTION TIMES ;11/24/98

Source file <LRORDIM.m>

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+7
Function Call: WRITE	Prompt: !,"SERVICE NOT AVAILABLE ",! Line Location: EN+9
Function Call: WRITE	Prompt: !,I_" Collection Between: " Line Location: EN+13
Function Call: WRITE	Prompt: ?30,X3_" and ",X4 Line Location: EN+18
Function Call: WRITE	Prompt: !! Line Location: EN+19
Function Call: WRITE	Prompt: !,"YOU MUST ALSO ENTER COLLECTION TIME",! Line Location: EN+20
Function Call: WRITE	Prompt: $C(7),!!,"SORRY SERVICE NOT OFFERED ON "_$P($G(^($P(Y,"."),0)),U,2),! Line Location: EN+21
Function Call: WRITE	Prompt: !!,"MUST BE "_M_" MINUTES IN THE FUTURE",!!,$C(7) Line Location: EN+23
Function Call: WRITE	Prompt: !!,"MUST BE LESS THAN "_H_" HRS IN THE FUTURE",!!,$C(7) Line Location: EN+24
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