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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Inpatient Medications 8 ($$ENDTC,$$ENMRN)^PSGMI  (ENCV,ENKV)^PSGSETU  $$OIDF^PSJLMUT1  $$DRUGNAME^PSJLMUTL  $$DN^PSJMISC  (DISPLAY,OC)^PSJOC  $$OINM^PSJOCDS  ^PSJRXI  
VA FileMan 4 NOW^%DTC  EN^DDIOL  ^DIC  ^DIR  
Pharmacy Data Management 1 $$SUP^PSSDSAPI  

Caller Graph

Caller Graph Total: 37

Package Total Caller Graph
Inpatient Medications 37 *DRUG  ORDERABLE ITEM  PSGAP0  PSGAPIV  PSGAXR  PSGCAP0  PSGCAPIV  PSGDS0  
PSGLOI  PSGO  PSGOD  PSGOE3  PSGOE7  PSGOEE  PSGOEF1  PSGOEPO  
PSGOER  PSGOES  PSGOESF  PSGOETO1  PSGOEV  PSGORVW  PSGPER0  PSGPER2  
PSGPLR0  PSGVW  PSIVEDRG  PSJCOMR  PSJLIFNI  PSJLMGUD  PSJMPRT  PSJO  
PSJO2  PSJOCDS  PSJOE1  PSJU INQ DRUG  PSJUTL  

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.

External References

Name Field # of Occurrence
NOW^%DTC END+7
EN^DDIOL START+3, END+6
^DIC ENDL+2
^DIR END+12, CONT+2, CONT+6
$$ENDTC^PSGMI SF+1
$$ENMRN^PSGMI PDWCHK+5
ENCV^PSGSETU ENDL+1
ENKV^PSGSETU ENDL+3
$$OIDF^PSJLMUT1 DRGNM+7
$$DRUGNAME^PSJLMUTL PDWCHK+3
$$DN^PSJMISC ENDDC+7
DISPLAY^PSJOC ENDDC+8
OC^PSJOC ENDDC+9
$$OINM^PSJOCDS DRGNM+4
^PSJRXI CONT+6
$$SUP^PSSDSAPI ENDDC+8

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
Routine Call
  • DIC
  • Line Location:
    • ENDL+2
Routine Call
  • DIR
  • Line Location:
    • END+12
    • CONT+2
    • CONT+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(51 - [#51] CHK+1, ENSET+6
^PS(51.2 - [#51.2] SF+4
^PS(53.1 - [#53.1] END+9
^PS(53.45 - [#53.45] DRGNM+6
^PS(55 - [#55] END+8
^PS(57.5 - [#57.5] SF+10
^PSD(58.8 - [#58.8] END+6
^PSDRUG - [#50] SF+1, SF+3, SF+8, SF+10
^PSI(58.1 - [#58.1] END+6
^TMP($J ENDDC+3!, OCHK+3!

Label References

Name Line Occurrences
$$DRGNM ENDDC+6
CHK START+2
PDWCHK END+8, END+9
SF ENDL+2

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % END+8
>> COMQUIT CONT+2*, CONT+7*
DFN PDWCHK~, PDWCHK+3, PDWCHK+4
DIC ENDL+2*!
DIC("A" ENDL+2*
DIC(0 ENDL+2*
DIR END+10~, CONT+1~
DIR("?" END+11*, END+12*, CONT+1*, CONT+2*, CONT+6*
DIR("A" END+11*, CONT+1*, CONT+6*
DIR("B" CONT+2*
DIR(0 END+11*, CONT+1*, CONT+6*
>> DUOUT END+8, END+9
>> F PDWCHK+4*
>> INTERVEN CONT+3
N5 ENDL+3!, SF+3*, SF+9
ND ENDL+3!, SF+1*, SF+2, SF+3*, SF+4, SF+6, SF+7, SF+8, SF+10*, PDWCHK+1~
, PDWCHK+3*, PDWCHK+4, PDWCHK+5
ND0 PDWCHK+1~, PDWCHK+4*, PDWCHK+5
ND2 PDWCHK+1~, PDWCHK+4*, PDWCHK+5
ON PDWCHK~, PDWCHK+3, PDWCHK+4
>> PSGDRG END+6
>> PSGID SF+1*
>> PSGORD ENDDC+6, ENDDC+9, DRGNM+4
>> PSGORQF CONT+2*, CONT+7*
PSGP END+8, END+9, ENDDC~
>> PSGPDRG DRGNM+7
>> PSGX END+8, END+9
PSJCNT DRGNM+2~, DRGNM+5*, DRGNM+6*, DRGNM+7
PSJDCHK END+8~*, END+9*, END+10, PDWCHK+2
PSJDD ENDDC~, ENDDC+7, ENDDC+8
PSJDSPNM ENDDC+2~, ENDDC+4*, ENDDC+6*, ENDDC+7, DRGNM+2~, DRGNM+4*, DRGNM+5*, DRGNM+7*, DRGNM+8
>> PSJHLSKP END+1
>> PSJIREQ CONT+5, CONT+7
>> PSJMULDD ENDDC+6
PSJOCHK OCHK+4~*
>> PSJPDRG CONT+1
>> PSJPWD END+6
>> PSJSPEED DRGNM+4
>> PSJSYSP DRGNM+6
>> PSJSYSU END+6, CONT+3
PSJY CONT+4~, CONT+6*, CONT+7
PSPDRG ENDDC+2~, ENDDC+9
PSPDRG(1 ENDDC+7*
Q ENDL+3!, SF+10*
STATUSNP END+6~, END+9*
U ENDDC+7, PDWCHK+4, PDWCHK+5
X START+1!, START+2, START+3, CHK+2!, ENSET~, ENSET+4, END+12*, ENDDC+2~, DRGNM+2~, DRGNM+6*
, CONT+2*, PDWCHK+1~, PDWCHK+4*, PDWCHK+5
X1 ENSET+1~, ENSET+4*, ENSET+9*
X2 ENSET+1~, ENSET+4*, ENSET+5, ENSET+6
>> XQUIT ENDL+1
Y START+2*, START+3, CHK+2, CHK+3*, ENSET+1~*, ENSET+5*, ENSET+6*, ENSET+9*, ENSET+10, END+12*
, CONT+2, CONT+6, ENDL+2, ENDL+3!, SF+1*, SF+3, SF+10
Y(1 START+2*, START+3*
Y(2 START+2*, START+3*, CHK+1*, CHK+2, CHK+3
Z END+6~, END+8*, END+9*, END+13!
ZZ END+6~, END+8*, END+13!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All