Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSJDCHK

Package: Inpatient Medications

Routine: PSJDCHK


Information

PSJDCHK ;BIR/MLM-ORDER CHECKS FOR DRUG SELECTION ;24 NOV 97 / 1:27 PM

Source Information

Source file <PSJDCHK.m>

Call Graph

Call Graph Total: 6

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
PDWCHK(DFN,ON) ; Print Dup Drug order.
CONT ; Ask user if they wish to continue in spite of an order check.
I ; Display UD order.
DISPIV(DFN,ON) ; Display condensed IV order display.
O ; Display OP order.
START ;
DISPUD(DFN,ON) ;
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.
SF ;

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~
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All