Routine: PSODOSUN

Information

PSODOSUN ;BIR/RTR - Dose Check Utility routine ;11/18/08

Name	Comments	DBIA/ICR reference
DOSE()	;Write Dose output for renew, finish, copy, etc.
END	;
SIG1	;
END2	;
EVAL(PSODLINS,PSODLINR,PSODLINX)	;
DOSEX(PSODLXNT)	;Write Dose exceptions for order entry/edit
ENDX	;
ENDX2	;
DOSEZ()	;Write Dose output summary for complex orders
ENDZ	;
ENDZC	;
SIG2	;
ENDZ2	;
HD	;
MESG	;Write out System error heading
GETGN(PSODRIEN)	;get generic name
PROMPT	;
RETURN	;
HD3(PSOLINES,OVRRID)	;
MSG1	;
MSG2	;
MSG3	;

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: END+3
Function Call: WRITE	Prompt: !!,"Do you want to Process or Cancel medication?" Line Location: END+11
Function Call: WRITE	Prompt: @IOF Line Location: DOSEX+3
Function Call: WRITE	Prompt: ! Line Location: ENDX+21
Function Call: WRITE	Prompt: ! Line Location: ENDX2+2
Function Call: WRITE	Prompt: @IOF Line Location: DOSEZ+5
Function Call: WRITE	Prompt: !!,"Do you want to Process or Cancel medication?" Line Location: ENDZC+4
Function Call: WRITE	Prompt: @IOF Line Location: HD+5
Function Call: WRITE	Prompt: ! Line Location: HD+5
Function Call: WRITE	Prompt: !,"Dosing Checks could not be performed.",! Line Location: MESG+1
Function Call: WRITE	Prompt: @IOF Line Location: RETURN+2
Function Call: WRITE	Prompt: ! Line Location: HD3+4
Function Call: WRITE	Prompt: @IOF Line Location: HD3+6
Function Call: WRITE	Prompt: !!," * You must enter your Current Signature Code. *" Line Location: MSG1+1
Function Call: WRITE	Prompt: !!," * A Signature Code must be entered to continue with this order. *",! Line Location: MSG2+1
Function Call: WRITE	Prompt: ! Line Location: MSG3+2