Routine: PSJDCHK

Package	Total	Call Graph
Inpatient Medications	3	($$ENDTC,$$ENMRA,$$ENMRN)^PSGMI ($$CODES,$$CODES2)^PSIVUTL $$DRUGNAME^PSJLMUTL
Outpatient Pharmacy	2	EN^PSOORDRG OEL^PSOORRL
VA FileMan	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
START	;
END	; used by DRUG (55.06,101 & 53.1,101) x-refs to warn user if patient is receiving or about to receive the drug just ordered
ENDDC(PSGP,PSJDD)	; Perform Duplicate Drug, Duplicate Class, ; Drug-Drug interaction check, Drug-Allergy interaction check.
O	; Display OP order.
I	; Display UD order.
CONT	; Ask user if they wish to continue in spite of an order check.
SF	;
PDWCHK(DFN,ON)	; Print Dup Drug order.
DISPUD(DFN,ON)	;
DISPIV(DFN,ON)	; Display condensed IV order display.

External References

Name	Field # of Occurrence
^DIR	CONT+2
$$ENDTC^PSGMI	SF+1
$$ENMRA^PSGMI	DISPUD+5
$$ENMRN^PSGMI	PDWCHK+7
$$CODES^PSIVUTL	SF+5
$$CODES2^PSIVUTL	SF+3, SF+4, SF+5, SF+6, SF+7, SF+8, SF+9
$$DRUGNAME^PSJLMUTL	PDWCHK+5, DISPUD+2
EN^PSOORDRG	ENDDC+2
OEL^PSOORRL	ENDDC+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?25,"* A WARD STOCK ITEM *" Line Location: END+2
Function Call: WRITE	Prompt: $C(7),$C(7),!!?7,"* WARNING! THIS PATIENT IS LISTED AS REACTING TO THIS DRUG! *",! Line Location: END+3
Function Call: WRITE	Prompt: !,"Outpatient display goes here",! Line Location: O+1
Function Call: WRITE	Prompt: !,"Inpatient Order Display goes here",! Line Location: I+1
Function Call: WRITE	Prompt: !,?10,$P(Y,U)," ",$P(Y,U,2) Line Location: I+6
Function Call: WRITE	Prompt: "(",$P(Y,U,3),")" Condition for execution: $P(Y,U,3) Line Location: I+6
Function Call: WRITE	Prompt: $P(ND,U,2)," (",$P(ND,U,4),")",! Line Location: I+9
Function Call: WRITE	Prompt: !!,"THIS DRUG IS INACTIVE AS OF ",$E($$ENDTC^PSGMI(PSGID),1,8) Line Location: SF+1
Function Call: WRITE	Prompt: !!,$S($P(ND,"^",9):"NON-",1:""),"FORMULARY ITEM" Line Location: SF+2
Function Call: WRITE	Prompt: !,$P(ND,"^",10) Condition for execution: $P(ND,"^",10)]"" Line Location: SF+2
Function Call: WRITE	Prompt: !,$P("NOT^","^",ND+1)," A UNIT DOSE DRUG" Line Location: SF+3
Function Call: WRITE	Prompt: ! Line Location: SF+3
Function Call: WRITE	Prompt: ! Line Location: SF+3
Function Call: WRITE	Prompt: ! Line Location: SF+3
Function Call: WRITE	Prompt: !?10,$$CODES2^PSIVUTL(50,62.02),": " Line Location: SF+4
Function Call: WRITE	Prompt: $S($D(^PS(51.2,$P(ND,"^",2),0)):$P(^(0),"^"),1:$P(ND,"^",2)) Line Location: SF+4
Function Call: WRITE	Prompt: !?6,$$CODES2^PSIVUTL(50,62.03),": " Line Location: SF+5
Function Call: WRITE	Prompt: $$CODES^PSIVUTL($P(ND,"^",3),50,62.03) Line Location: SF+5
Function Call: WRITE	Prompt: !?11,$$CODES2^PSIVUTL(50,62.04),": " Line Location: SF+6
Function Call: WRITE	Prompt: $P(ND,"^",4) Line Location: SF+6
Function Call: WRITE	Prompt: !?17,$$CODES2^PSIVUTL(50,212.2),": " Line Location: SF+8
Function Call: WRITE	Prompt: $P(N5,"^",2) Line Location: SF+8
Function Call: WRITE	Prompt: !?17,$$CODES2^PSIVUTL(50,212),": " Line Location: SF+9
Function Call: WRITE	Prompt: ?10,$P(ND,U),!,?13,"Give: ",X," ",$$ENMRN^PSGMI(+$P(ND0,U,3))," ",$P(ND2,U),!! Line Location: PDWCHK+7
Function Call: WRITE	Prompt: !,?10,$P(DN,U),!,13,"Give: ",LINE," ",$$ENMRA^PSGMI(+$P(ND0,U,3))," ",$P(ND2,U),!! Line Location: DISPUD+5
Routine Call	DIR Line Location: CONT+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(51.2 - [#51.2]	SF+4
^PS(52.6 - [#52.6]	DISPIV+3
^PS(52.7 - [#52.7]	DISPIV+6
^PS(55 - [#55]	PDWCHK+4, DISPIV+2, DISPIV+3, DISPIV+5, DISPIV+6
^PS(57.5 - [#57.5]	SF+10
^PSD(58.8 - [#58.8]	END+2
^PSDRUG - [#50]	SF+1, SF+3, SF+7, SF+10
^PSI(58.1 - [#58.1]	END+2
^TMP($J	ENDDC+3, ENDDC+5, I+3, I+4, I+5, I+6, I+8, I+9

Label References

Name	Line Occurrences
@(	ENDDC+5
END	ENDDC+2

Naked Globals

Name	Field # of Occurrence
^(	SF+10, PDWCHK+6
^("I"	SF+1
^(0	SF+4, SF+7, SF+10
^(2	PDWCHK+6, DISPUD+3
^(8	SF+3
^(8.5	SF+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AD	DISPIV+1~, DISPIV+2*, DISPIV+3
>> AMT	DISPIV+3, DISPIV+4, DISPIV+6
>> BOT	DISPIV+3*, DISPIV+4
DFN	ENDDC+2*, PDWCHK~, PDWCHK+4, PDWCHK+5, PDWCHK+6, DISPUD~, DISPUD+2, DISPIV~, DISPIV+2, DISPIV+3 , DISPIV+6
>> DIR("?"	CONT+1, CONT+2
>> DIR("A"	CONT+1*
>> DIR(0	CONT+1*
>> DN	DISPUD+2*, DISPUD+4, DISPUD+5
>> DRG	PDWCHK+4, DISPIV+3, DISPIV+6*, DISPIV+7
>> F	PDWCHK+6, DISPUD+2, DISPUD+3, DISPUD+4
>> FIRST	DISPIV+7
>> INDEX	ENDDC+5*
>> LINE	DISPUD+4*, DISPUD+5
>> N5	SF+3*, SF+8
ND	ENDDC+5, I+3, I+7, I+9, SF+1, SF+2, SF+3, SF+4, SF+5, SF+6 , SF+7, SF+10, PDWCHK+1~, PDWCHK+5, PDWCHK+6, PDWCHK+7, DISPIV+3, DISPIV+6*
ND0	PDWCHK+1~, PDWCHK+6, PDWCHK+7, DISPUD+3, DISPUD+5
ND2	PDWCHK+1~, PDWCHK+6, PDWCHK+7, DISPUD+3, DISPUD+5
ON	ENDDC+5*, PDWCHK~, PDWCHK+4, PDWCHK+5, PDWCHK+6, DISPUD~, DISPUD+1, DISPUD+2, DISPUD+3, DISPUD+4 , DISPIV~, DISPIV+2, DISPIV+3, DISPIV+5, DISPIV+6
>> PAD	DISPIV+4
>> PSGDRG	END+2
>> PSGID	SF+1*
PSGP	ENDDC~, ENDDC+2, ENDDC+5
PSJDD	ENDDC~, ENDDC+2
>> PSJHLSKP	END+1
PSJPDRG	ENDDC+2!, CONT+1
>> PSJPWD	END+2
>> PSJSYSU	END+2
>> Q	SF+10*
SOL	DISPIV+1~, DISPIV+5*, DISPIV+6
>> TYPE	ENDDC+5, DISPUD+1, DISPUD+3
U	ENDDC+5, I+6, I+7, I+9, PDWCHK+6, PDWCHK+7, DISPUD+3, DISPUD+4, DISPUD+5, DISPIV+3 , DISPIV+6, DISPIV+7
X	ENDDC+2, I+5, I+6, I+8, I+9, CONT+2, PDWCHK+1~, PDWCHK+6, PDWCHK+7, DISPUD+4
>> Y	ENDDC+2, I+6, CONT+2, SF+1, SF+3, SF+10
Z	END+2~
ZZ	END+2~

Customize PDF page

Package: Inpatient Medications

Routine: PSJDCHK

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: