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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSGSICHK

Package: Inpatient Medications

Routine: PSGSICHK


Information

PSGSICHK ;BIR/CML3-CHECKS SPECIAL INSTRUCTIONS ;17 Aug 98 / 8:33 AM

Source Information

Source file <PSGSICHK.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
CHK ;
ENSET(X) ; expands the SPECIAL INSTRUCTIONS field contained in X into Y
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
DRGNM() ;
CONT ; Ask user if they wish to continue in spite of an order check.
ENDL ; used by PSGTRAIN DRUG LOOK-UP option
SF ;
OCHK ; Add drugs in current order to ^TMP("ORDERS" and call order checker.
; Set PSJOCHK=1 so OP order check doesn't Kill array.
PDWCHK(DFN,ON) ; Print Dup Drug order.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: Y
  • Line Location: START+3
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,"UNIT DOSE MED ROUTE: "
  • 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,"UNIT DOSE SCHEDULE TYPE: "
  • Line Location: SF+6
Function Call: WRITE
  • Prompt: $P($P(";"_$P(^(0),"^",3),";"_$P(ND,"^",3)_":",2),";")
  • Line Location: SF+6
Function Call: WRITE
  • Prompt: !?11,"UNIT DOSE SCHEDULE: "
  • Line Location: SF+7
Function Call: WRITE
  • Prompt: $P(ND,"^",4)
  • Line Location: SF+7
Function Call: WRITE
  • Prompt: !?17,"ATC MNEMONIC: "
  • Line Location: SF+9
Function Call: WRITE
  • Prompt: $P(N5,"^",2)
  • Line Location: SF+9
Function Call: WRITE
  • Prompt: !?17,"ATC CANISTER: "
  • Line Location: SF+10
Function Call: WRITE
  • Prompt: ?10,$P(ND,U),!,?13,"Give: ",X," ",$$ENMRN^PSGMI(+$P(ND0,U,3))," ",$P(ND2,U),!!
  • Line Location: PDWCHK+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call