Routine: PSJLIFNI

Information

PSJLIFNI ;BIR/MV-U/D ORDER FINISHES AS IV ;13 Jan 98 / 11:32 AM

Name	Comments	DBIA/ICR reference
IV(PSJORD,OI)	; Prompt for missing data to be finished as IV.
EXIT	;
ORDCHK(DFN,TYPE)	;
WRITE(TYPE)	;Display order check description

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),$C(7),"This order is being edited by another user. Try later." Line Location: IV+1
Function Call: WRITE	Prompt: ! Line Location: ORDCHK+16
Function Call: WRITE	Prompt: !!,"There are duplicate ",$P(^TMP($J,TYPE,PSIVX,0),U,2),!,"medications prescribed for this order.",! Line Location: WRITE+2
Function Call: WRITE	Prompt: !!,"This medication: ",$P(^TMP($J,TYPE,PSIVX,0),U,4),!,"is in the same class as the following medication(s) within this order: " Line Location: WRITE+3
Function Call: WRITE	Prompt: !!,"This medication: ",$P(^TMP($J,TYPE,PSIVX,0),U,2),!,"has an interaction with the following medication(s) within this order: " Line Location: WRITE+4
Function Call: WRITE	Prompt: !,$S(TYPE="DC":$P(^TMP($J,TYPE,X,0),U,4),TYPE="DI":$P(^TMP($J,TYPE,X,0),U,6),1:$P(^TMP($J,TYPE,X,0),U,2)),! Line Location: WRITE+5