Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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.

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
Info |  Source |  Entry Points |  Interaction Calls