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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSIVEDRG

Package: Inpatient Medications

Routine: PSIVEDRG


Information

PSIVEDRG ;BIR/MLM-ENTER/EDIT DRUGS FOR IV ORDER ;29-May-2012 14:32;PLS

Source Information

Source file <PSIVEDRG.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Inpatient Medications 8 (ENDDC,IVSOL)^PSGSICHK  ENSTOP^PSIVCAL  ORFLDS^PSIVEDT1  ENHLP^PSIVORC1  ^PSIVQUI  ($$ENU,$$IVDRGSC)^PSIVUTL  (DINIV,NFIV)^PSJDIN  HOLDHDR^PSJOE  
VA Fileman 4 ^DIC  YN^DICN  FIELD^DID  ^DIR  
Outpatient Pharmacy 1 EN^PSOORDRG  
Registration 1 ($$UPPER,FULL)^VALM1  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Inpatient Medications 4 PSIVEDT  PSIVEDT1  PSIVQUI  PSJLIFN  

Entry Points

Name Comments DBIA/ICR reference
DRG3 ;
DRG2 ;
DRG1 ;
CHK ; Check if drug is already part of order
DRG4 ;
GTSCRN(PSIVX) ;Set DIC("S") if MD OE or matching drug has already been selected.
GTADSOL ;If there're multiple ad/sol matched to an OI then display so user to select ad/sol
IT ; Input Transform for Strength/Volume.
SAVEDRG(NEW,OLD) ;Store/restore DRG array.
1 ; Strength/Volume
ORDERCHK(DFN,ON,X) ; Do order check
2
DEL ;
DRG1A
ASKCHK ; Do you want a drug that was previously selected.
SETDRG ; Put Drug data into DRG(x).
AMT ;
DRG ; Edit Additive/Solution data

External References

Name Field # of Occurrence
^DIC DRG1A+5, DRG2+1
YN^DICN ASKCHK+1, DEL+1
FIELD^DID 1+2
^DIR 2, GTADSOL+8
ENDDC^PSGSICHK ORDERCHK+7
IVSOL^PSGSICHK ORDERCHK+12
ENSTOP^PSIVCAL ORDERCHK+14
ORFLDS^PSIVEDT1 DRG1A+2
ENHLP^PSIVORC1 IT+2
^PSIVQUI DRG2+11, GTADSOL+23
$$ENU^PSIVUTL DRG3+3, IT+3
$$IVDRGSC^PSIVUTL GTSCRN+3
DINIV^PSJDIN DRG2+9, DRG3+1, GTADSOL+22
NFIV^PSJDIN DRG2+3, GTADSOL+18
HOLDHDR^PSJOE GTSCRN+1
EN^PSOORDRG ORDERCHK+9
$$UPPER^VALM1 CHK+2, CHK+3, CHK+4
FULL^VALM1 DRG1+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Select ",DRGTN,": "
  • Line Location: DRG1+4
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: DRG1+6
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: DRG1A+0
Function Call: WRITE
  • Prompt: !,$P(DRG(DRGT,Y),U,2)
  • Line Location: DRG1A+4
Function Call: WRITE
  • Prompt: !,"YOU MAY ENTER A NEW ",DRGTN,", IF YOU WISH",!
  • Line Location: DRG1A+5
Function Call: WRITE
  • Prompt: PSJNF("NF")
  • Line Location: DRG2+4
Function Call: WRITE
  • Prompt: !!,"(The units of strength for this additive are in ",$$ENU^PSIVUTL(DRG(1)),")"
  • Line Location: DRG3+3
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: $C(7),$S(DRGT="AD":"Strength",1:"Volume")," is REQUIRED!"
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: IT+2
Function Call: WRITE
  • Prompt: " ",X
  • Line Location: IT+3
Function Call: WRITE
  • Prompt: " ",X
  • Line Location: IT+4
Function Call: WRITE
  • Prompt: $P($$UPPER^VALM1($P(DRG(DRGT,+TDRG),U,2)),$$UPPER^VALM1(X),2)
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: " ",$P(I,U,3),$S($P(I,U,4):" ("_$P(I,U,4)_")",1:""),!,"...OK"
  • Line Location: ASKCHK+1
Function Call: WRITE
  • Prompt: !,X
  • Line Location: ASKCHK+3
Function Call: WRITE
  • Prompt: " <NOTHING DELETED>"
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: " "_$P(PSIVOIND,U,2)_$S(PSIVOI="SOL":" "_$P(PSIVOIND,U,3),1:"")
  • Line Location: GTADSOL+11
Function Call: WRITE
  • Prompt: PSJNF("NF")
  • Line Location: GTADSOL+18
Routine Call
  • DIC
  • Line Location:
    • DRG1A+5
    • DRG2+1
Routine Call
  • DIR
  • Line Location:
    • 2
    • GTADSOL+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS( DRG2+6, DRG3+3, ORDERCHK+6, CHK+3, CHK+4, GTADSOL+12
^PS(52.6 - [#52.6] DRG2+11, GTADSOL+16

Label References

Name Line Occurrences
1 1+1
2 1+1
AMT 1+2
ASKCHK CHK+2, CHK+3
CHK DRG1A+3
DEL DRG1A+1
DRG1 DRG1A, DRG1A+1, DRG1A+2, DRG1A+3, DRG1A+5
DRG1A DRG1A+1, DRG1A+3
DRG2 DRG1A+3
DRG3 DRG1A, GTADSOL+26
DRG4 AMT+1
GTADSOL DRG1+5
GTSCRN DRG1A+5, DRG2+1
IT 1+2
ORDERCHK DRG2+8, GTADSOL+21, GTADSOL+24
SAVEDRG ORDERCHK+4, ORDERCHK+13
SETDRG DRG+2, DRG1A+1, DRG3+2, ASKCHK+2, GTADSOL+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DRG1A+1, DRG1A+3*, ASKCHK+1*, ASKCHK+2, DEL+1*
DA GTSCRN+3!
DDONE CHK+1~, CHK+3, ASKCHK+2*
DFN DRG2+8, ORDERCHK~, ORDERCHK+6, ORDERCHK+7, ORDERCHK+9, ORDERCHK+11*, GTADSOL+21, GTADSOL+24
DIC DRG1A+5!, DRG2+1!, GTSCRN+3!*
DIC("S" GTSCRN+3*, GTSCRN+4*
DIC(0 DRG1A+5*, DRG2+1*
DIR 2!, GTADSOL+2~
DIR("?" GTADSOL+4*
DIR("A" GTADSOL+6*, GTADSOL+7*
DIR("B" 2*
DIR(0 2*, GTADSOL+3*
>> DONE DRG1+6*, DRG2+8*, GTADSOL+21*, GTADSOL+24*
>> DRG ORDERCHK+2, ORDERCHK+4, ORDERCHK+13
>> DRG( DRG+2, DRG1A+1!*, DRG1A+3, DRG1A+4, SETDRG+1*, DRG2+10*, DRG4+1*, CHK+1, CHK+2, CHK+3
, CHK+4, ASKCHK+1, GTADSOL+13*, GTADSOL+14*, GTADSOL+19, GTADSOL+24
>> DRG(1 SETDRG+2, DRG3+1, DRG3+3, IT+3
>> DRG(2 DRG+2*, DRG1+6, DRG1A, DRG1A+1, SETDRG+2*, DRG3+1, DRG4+2*
>> DRG(3 1+1, 1+2*
>> DRG(4 2*
>> DRGI DRG+2*, DRG1A+1*, SETDRG+1, DRG2+10*, DRG4+1, ASKCHK+2*, GTADSOL+15*
DRGOC DRG+1~
DRGOC( ORDERCHK+2*
>> DRGT DRG+2, DRG1+5, DRG1A, DRG1A+1, DRG1A+3, DRG1A+4, SETDRG+1, DRG2+3, DRG2+6, DRG2+9
, DRG2+10, DRG2+11, DRG3+3, AMT+1, 1+1, 1+2, 2, DRG4+1, GTSCRN+4, IT+2
, IT+3, CHK+1, CHK+2, CHK+3, CHK+4, ASKCHK+1, GTADSOL+16, GTADSOL+19, GTADSOL+24
>> DRGTMP DRG2+6*, DRG2+9, DRG2+10, DRG2+11, ORDERCHK+5, ORDERCHK+6, GTADSOL+19*, GTADSOL+22, GTADSOL+24*
>> DRGTN DRG1+4, DRG1A, DRG1A+4, DRG1A+5
DTIME DRG1+6, DRG1A, 1+1
>> DTOUT 2
DUOUT DRG1+2!, 2
>> F1 IT+2*
>> F2 IT+2*
FIL DRG3+1, DRG3+3, GTSCRN+3, ORDERCHK+6, ORDERCHK+7, ORDERCHK+8, CHK+3, CHK+4, GTADSOL+26~*
I CHK+1~, ASKCHK+1*
INTERVEN ORDERCHK+10~*
>> J CHK+3*, CHK+4
ND GTADSOL+2~, GTADSOL+12*, GTADSOL+14
NEW SAVEDRG~, SAVEDRG+1*
NEW( SAVEDRG+2*, SAVEDRG+4*, SAVEDRG+5*
OLD SAVEDRG~, SAVEDRG+1
OLD( SAVEDRG+2, SAVEDRG+4, SAVEDRG+5
ON DRG2+7, ORDERCHK~, ORDERCHK+2, GTADSOL+20
ON55 DRG2+7~*, DRG2+8, GTADSOL+20~*, GTADSOL+21, GTADSOL+24
>> P("DTYP" 2
>> P("OT" DRG1A+2, GTSCRN+4
>> P(23 AMT+1, 2
>> P(4 DRG1A, DRG1A+3, AMT+1, 2
PSGDRG ORDERCHK+3~, ORDERCHK+6*, ORDERCHK+7, ORDERCHK+9
PSGDRGN ORDERCHK+3~, ORDERCHK+5*
PSGORQF DRG+1~, DRG1+1, DRG2+8, DRG2+11, GTADSOL+16, GTADSOL+21, GTADSOL+24
PSGP ORDERCHK+3~, ORDERCHK+6*, ORDERCHK+11
>> PSIVAC DRG1A+2, DRG2+11, GTSCRN+4
PSIVNEW DRG2+6*, ORDERCHK+3~, ORDERCHK+5*
PSIVOI DRG1+5, GTADSOL+4, GTADSOL+6, GTADSOL+11, GTADSOL+12, GTADSOL+13, GTADSOL+14, GTADSOL+25, GTADSOL+27!
PSIVOI("DILIST" DRG1+5, GTADSOL+3, GTADSOL+5, GTADSOL+6, GTADSOL+7, GTADSOL+10, GTADSOL+16, GTADSOL+17, GTADSOL+24
PSIVOIND GTADSOL+10~*, GTADSOL+11, GTADSOL+12, GTADSOL+14
PSIVOLD DRG+2!*, DRG2+10!, AMT+1, ASKCHK+2*
>> PSIVSTR DRG2+11, GTADSOL+16
PSIVX DRG2+1~*, DRG2+11, GTSCRN~, GTSCRN+1, GTSCRN+2, GTADSOL+17*
PSJDD ORDERCHK+3~, ORDERCHK+6*
PSJEX 1+2!
PSJEX("XECUTA BLE HELP" , 1+2
PSJIREQ ORDERCHK+10~*
>> PSJIVIEN DRG2+2*, DRG2+3, GTADSOL+17*, GTADSOL+18
PSJNF DRG2+3~, GTADSOL+18~
PSJNF("NF" DRG2+4, GTADSOL+18
PSJPDRG ORDERCHK+11!
PSJRXREQ ORDERCHK+10~*
TDRG CHK+1~*, CHK+2, CHK+3, CHK+4, ASKCHK+1, ASKCHK+2
TDRGP CHK+1~, CHK+3*, CHK+4
TMPDRG ORDERCHK+3~, ORDERCHK+4, ORDERCHK+13
U DRG1+6, DRG1A+4, SETDRG+1, DRG2+6, DRG2+8, DRG3+3, DRG4+1, GTSCRN+4, ORDERCHK+5, ORDERCHK+6
, CHK+2, CHK+3, CHK+4, ASKCHK+1, GTADSOL+6, GTADSOL+11, GTADSOL+14, GTADSOL+16, GTADSOL+17, GTADSOL+21
, GTADSOL+24
X DRG1+2, DRG1+6*, DRG1A*, DRG1A+1, DRG1A+2, DRG1A+3, DRG1A+5, SETDRG+1*, SETDRG+2*, DRG2+1
, DRG2+8*, DRG3+3*, 1+1*, 1+2, DRG4+1*, GTSCRN+2*, IT+1*, IT+2, IT+3!*, IT+4!*
, IT+5, ORDERCHK~, ORDERCHK+2, ORDERCHK+3~, ORDERCHK+10*, SAVEDRG+2*, SAVEDRG+5*, CHK+2, CHK+3, CHK+4
, ASKCHK+2*, ASKCHK+3, DEL+1*, GTADSOL+2~, GTADSOL+5*, GTADSOL+6, GTADSOL+17*, GTADSOL+21*, GTADSOL+24*
X(1 GTSCRN+4*
XX ORDERCHK+3~, SAVEDRG+3*, SAVEDRG+4, SAVEDRG+5
Y DRG1A*, DRG1A+3, DRG1A+4*, DRG2+1, DRG2+2, DRG2+6, 2, ORDERCHK+3~, ORDERCHK+10*, GTADSOL+2~
, GTADSOL+9, GTADSOL+10, GTADSOL+16, GTADSOL+17*, GTADSOL+24
Y(0 DRG2+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All