Routine: PSJLMUT1

Information

PSJLMUT1 ;BIR/MLM - DRUG NAME DISPLAY ;Jul 05, 2018@08:53

Name	Comments	DBIA/ICR reference
DRGDISP(DFN,ON,NL,GL,NAME,DRUGONLY)
OIDF(OIND)
DD(F,NAME)
DSPLORDU(PSGP,ON)
DSPLORDV(DFN,ON)
SOL	;
PIVAD	; Print IV Additives.
PIV1	; Print Sched type, start/stop dates, and status.
SETTMP	;
ORDCHK(DFN,TYPE,PIECE)
SETPSJOC	;Set PSJOC array to be displayed later
WRITE(TYPE)
PAUSE	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The patient has this "_$S($P(PSJPACK,";")["N":"Non-VA Meds",$P(PSJPACK,";",2)["O":"Outpatient",1:"")_" order:",! Line Location: ORDCHK+24
Function Call: WRITE	Prompt: ! Line Location: ORDCHK+37
Function Call: WRITE	Prompt: ! Line Location: ORDCHK+39
Function Call: WRITE	Prompt: !!,"This patient is already receiving the following order",$S(PSJOC>1:"s",1:"")," for ",$S($G(PSJDD)]"":$P($G(^PSDRUG(PSJDD,0)),U),1:"this drug"),":",! Line Location: WRITE+2
Function Call: WRITE	Prompt: !!,"This patient is already receiving ",$S(PSJOC>1:"orders",1:"an order")," for the following drug",$S(PSJOC>1:"s",1:"")," in the same",!,"class as ",$S($G(PSJDD)]"":$P($G(^PSDRUG(PSJDD,0)),U),1:"the drug selected"),":",! Line Location: WRITE+3
Function Call: WRITE	Prompt: !!,"This patient is receiving the following medication",$S(PSJOC>1:"s",1:"")," that ha",$S(PSJOC>1:"ve",1:"s")," an interaction",!,"with ",$P($G(^PSDRUG(PSJDD,0)),U),":",! Line Location: WRITE+4
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1