Routine: GMRYDCIV

Information

GMRYDCIV ;HIRMFO/YH-DISCONTINUE IV LINES AND INFUSION SITE ;8/15/96

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!,"* DC IV/LOCK/PORT AND SITE *",! Line Location: DCIV+1
Function Call: WRITE	Prompt: !!,"IV DC'ed date/time has to be after "_$P(Y,":",1,2),! Line Location: DT+0
Function Call: WRITE	Prompt: !,"NO FUTURE DATE ALLOWED",! Line Location: DT+1
Function Call: WRITE	Prompt: !,"Do you want to restart the DC'd IV " Line Location: QUES+0
Function Call: WRITE	Prompt: !!,"Do you want to proceed to the Restart DC'd IV option?",! Condition for execution: %=0 Line Location: QUES+0
Function Call: WRITE	Prompt: ! Line Location: ECHO+0
Function Call: WRITE	Prompt: $P(GDATA,"^",3)_" "_$P(GDATA,"^",4)_" "_$P(GDATA,"^",5)_" mls " Line Location: ECHO+1
Function Call: WRITE	Prompt: "LOCK/PORT" Line Location: ECHO+2
Function Call: WRITE	Prompt: " started on "_$P(Y,":",1,2)_" DC'ED" Line Location: ECHO+3
Function Call: WRITE	Prompt: !!,GSITE Line Location: CHECK+1
Function Call: WRITE	Prompt: !!,"Infusion site has not been discontinued",! Line Location: WARN+1
Function Call: WRITE	Prompt: !!,?5,"is(are) still running",! Line Location: WARN+3
Function Call: WRITE	Prompt: !,?5,$P(^GMR(126,DFN,"IV",G,0),"^",3)_" ("_$P(^(0),"^",4)_") "_$P(^(0),"^",5)_" mls started on " Line Location: WRITE+0
Function Call: WRITE	Prompt: $P(Y,":",1,2) Line Location: WRITE+0