Routine: ORPRS03

Information

ORPRS03 ; slc/dcm - (@) Formerly known as prints ;12/7/00 13:15

Source file <ORPRS03.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"TASKED Report stopped by "_$P(^VA(200,DUZ,0),U) Line Location: EN+1
Function Call: WRITE	Prompt: !!?3,"No orders.",!!! Line Location: EN+15
Function Call: WRITE	Prompt: ! Line Location: EN+16
Function Call: WRITE	Prompt: $C(7),!!,"Enter '^' to stop listing for current patient",!,"and '^^' to stop the entire report, or RETURN to continue" Line Location: EN+19
Function Call: WRITE	Prompt: @IOF Line Location: EN+21
Function Call: WRITE	Prompt: !!!!!?(IOM-44)\2,"*** E N D O F R E P O R T **",! Line Location: EN+23
Function Call: WRITE	Prompt: @IOF Line Location: EN+24
Function Call: WRITE	Prompt: ! Line Location: ONE+7
Function Call: WRITE	Prompt: ORSEQ_$S($L(ORSEQ)=1:" ",1:"") Line Location: ONE+10
Function Call: WRITE	Prompt: $S($G(ORASTS)!(ORSTS):" "_$P(^ORD(100.01,$S($G(ORASTS):ORASTS,1:ORSTS),.1),"^"),1:" ") Line Location: ONE+15
Function Call: WRITE	Prompt: ! Condition for execution: I>1 Line Location: ONE+18
Function Call: WRITE	Prompt: ?14,ORTX(I) Line Location: ONE+18
Function Call: WRITE	Prompt: !?14 Condition for execution: ($X+9+$L(ORSTRT)+$S($L(ORSTOP):$L(ORSTOP)+8,1:0))>(LENGTH+14) Line Location: ONE+20
Function Call: WRITE	Prompt: " Start: "_ORSTRT Line Location: ONE+20
Function Call: WRITE	Prompt: " Stop: "_ORSTOP Condition for execution: $L(ORSTOP) Line Location: ONE+20
Function Call: WRITE	Prompt: ?(IOM-15),"(continued...)" Line Location: WAIT+2
Function Call: WRITE	Prompt: !,"(...continued)" Line Location: WAIT+4