Routine: PSODOSUT

Information

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

Name	Comments	DBIA/ICR reference
SUMM	;
SUB	;Write sub header; called from PSODOSUN
DAILY	;
COMPLEX	;called from DOSEZ^PSODOSUN
HD	;
SFD	;
SBAD	;Set Bad Drug flag just in case not set in enhanced check, possibly because Dosage edits are done first
EXCEPT	;don't show "not matched to NDF" or "no GCNSEQNO" errors for dosing - when dosage is edited enhanced order checks are performed again so we don't want to display these type messages for dosing.
FEED()	; Write Line feed after Exceptions if no message globals follow, and next order has no errors or exceptions, only a message
DCHKN	;Called from PSOORNEW, PSOORNE1 & PSOORNEW; Dose Check for Copying an Order
DCHKR	;Renewal Dose Check; Called from PSORENW0
DCHKC	;Dose Check on reinstate; Called from PSOCAN2
DCHK()	;Dose check after entering Null at the conjunction prompt
DCHK2	;Finishing of a complex order
DCHK1	;Dose check after entering a value at the Conjunction prompt
CONVMSG(MESS)	;Convert DOSE CHECK message to numeric value for field 8 of ^PS(52.4
DCHKV	;Dose check when verifying an order
DOSIV	;DOSE INTERVENTION
DOSIV1	;
CANCEL(PSONV)	;CR2724 - where PSONV = RXIEN
DOSCK(PSOFROM,MSG)	;
RCONVMS(MESS)	;Convert DOSE CHECK from numeric to alpha
DOSEOFF	;
DOSEOFF2	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !," DOSING CHECK SUMMARY:",!! Line Location: SUMM+1
Function Call: WRITE	Prompt: ! Line Location: SUB+2
Function Call: WRITE	Prompt: " DOSE SEQ "_PSOCPXG_":" Line Location: SUB+4
Function Call: WRITE	Prompt: " DAILY DOSE RANGE WARNING:" Line Location: DAILY+3
Function Call: WRITE	Prompt: ! Line Location: COMPLEX+10
Function Call: WRITE	Prompt: @IOF Line Location: HD+4
Function Call: WRITE	Prompt: !!,"Unable to log intervention, cannot find intervention type.",! Line Location: DCHKN+13
Function Call: WRITE	Prompt: ! Line Location: DCHK2+8
Function Call: WRITE	Prompt: !!,"Unable to log intervention, cannot find intervention type.",! Line Location: DCHK2+13
Function Call: WRITE	Prompt: ! Line Location: DCHK2+14
Function Call: WRITE	Prompt: ! Line Location: DCHK1+20
Function Call: WRITE	Prompt: !!,"Unable to log intervention, cannot find intervention type.",! Line Location: DCHK1+23
Function Call: WRITE	Prompt: ! Line Location: DCHK1+24
Function Call: WRITE	Prompt: !!,"Unable to log intervention, cannot find intervention type.",! Line Location: DOSIV1+3
Function Call: WRITE	Prompt: ! Line Location: DOSEOFF2+7
Function Call: WRITE	Prompt: !?5,$G(^UTILITY($J,"W",DIWL,PSODOFFC,0)) Line Location: DOSEOFF2+8
Function Call: WRITE	Prompt: ! Line Location: DOSEOFF2+11

FileNo	Call Tags
^PSRX - [#52]	GET1^DIQ