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: PSSVIDRG

Package: Pharmacy Data Management

Routine: PSSVIDRG


Information

PSSVIDRG ;BIR/PR,WRT-ADD OR EDIT IV DRUGS ;June 3, 2018@20:00

Source Information

Source file <PSSVIDRG.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Pharmacy Data Management 5 MAS^PSSADDIT  $$CKDUPSOL^PSSDDUT2  (MFA,MFS)^PSSDEE  EN2^PSSHL1  MAS^PSSSOLIT  
VA FileMan 5 ^DIC  YN^DICN  ^DIE  EN1^DIP  $$GET1^DIQ  
Inpatient Medications 4 ENIVKV^PSGSETU  ENQ^PSIV  ^PSIVHLP1  ^PSIVXU  
Kernel 2 ^%ZISC  $$UP^XLFSTR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Pharmacy Data Management 5 PSSDEE  PSSIV ADD  PSSJI DRUG  PSSJI ELECTROLYTE FILE  PSSJI SOLN  

Entry Points

Name Comments DBIA/ICR reference
ENS ;Enter here to enter/edit solutions
ENS1 ;
; PSS*1*146 Compare and confirm SOLUTION Print name change
NS2
ENS2 ; IV Solutions Editing
ENA ;Enter here to enter/edit additives.
ENA1 ;
; PSS*1*146 Compare and confirm ADDITIVE Print name change
NA2
ENA2 ; IV Additives Editing
ENC ;Enter here to enter/edit IV Categories
K1 ;
K
KDRG
GETD ;See if generic drug is inactive in file 50.
ENTDRG ;This module is no longer utilized by the Inpatient Medications application.
DRG
WPH ;
WP
ENT ;
BEG
ELECTRO ;Edit Electrolyte file
EECK
EECK1
ECK
SOI
ADDOI
PASSIN
MASTER
PRNMHD ; PSS*1*146 Hold the print name when editing
PRNM() ; PSS*1*146 compare and confirm Print name change
GEND(CUR) ;PSS*1*146
NEW(FI) ; add new additive/solution
IVSOLINA ; Checking for Duplicate IV Solution Volume when INACTIVATION DATE is removed
; Global variable: PSSINADT - INACTIVATION DATE value being deleted

External References

Name Field # of Occurrence
^%ZISC BEG+1
^DIC NS2+2, NA2+4, DRGELECTRO+1, GEND+7, NEW+2
YN^DICN EECK+2, PRNM+6, GEND+20
^DIE ENS2+19, ENA2+20, ELECTRO+2
EN1^DIP BEG+1
$$GET1^DIQ ENS2+4, ENS2+9, ENS2+14, ENA2+4, ENA2+7, ENA2+15, GEND+13, GEND+14, GEND+19, IVSOLINA+2
IVSOLINA+6, IVSOLINA+7, IVSOLINA+8
ENIVKV^PSGSETU K
ENQ^PSIV ENTDRG+7, BEG
^PSIVHLP1 ENTDRG+6, ENTDRG+7, ENT+4, BEG
^PSIVXU ELECTRO+1
MAS^PSSADDIT ADDOI
$$CKDUPSOL^PSSDDUT2 IVSOLINA+8
MFA^PSSDEE ENA2+20
MFS^PSSDEE ENS2+19
EN2^PSSHL1 MASTER
MAS^PSSSOLIT SOI
$$UP^XLFSTR ENS2+8, ENA2+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"Someone else is entering drugs ... try later !",!!
  • Line Location: ENS+2
Function Call: WRITE
  • Prompt: !!," ",$$GET1^DIQ(50,DISPDRG,.01)," currently linked to IV Solutions:",!
  • Line Location: ENS2+4
Function Call: WRITE
  • Prompt: !,?3,II_". ",$P(^PS(52.7,$G(PSSY(PSDA)),0),"^")_" "_$P(^PS(52.7,$G(PSSY(PSDA)),0),"^",3)
  • Line Location: ENS2+5
Function Call: WRITE
  • Prompt: !!,"Select "_$S(PSI=1:1,1:"1-"_PSI)_" from list above or type 'NEW' to link to a new IV Solution: "
  • Line Location: ENS2+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENS2+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ENS2+8
Function Call: WRITE
  • Prompt: !!,"Select the number corresponding to the IV SOLUTION you want to edit",!,"or type 'NEW' to link ",$$GET1^DIQ(50,DISPDRG,.01)," to a new IV SOLUTION.",$C(7)
  • Line Location: ENS2+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ENS2+12
Function Call: WRITE
  • Prompt: !
  • Line Location: ENS2+12
Function Call: WRITE
  • Prompt: $C(7),!!,"Someone else is entering drugs ... try later !",!!
  • Line Location: ENA+2
Function Call: WRITE
  • Prompt: !!," ",$$GET1^DIQ(50,DISPDRG,.01)," currently linked to the following IV Additives:",!
  • Line Location: ENA2+4
Function Call: WRITE
  • Prompt: !,?3,II_". ",$P(^PS(52.6,$G(PSSY(PSDA)),0),"^"),?32,"Additive Strength: "_$S($G(PSSY15)="":"N/A",1:$G(PSSY15))_" "_$S($G(PSSY15)="":"",1:$$GET1^DIQ(52.6,$G(PSSY(PSDA)),2))
  • Line Location: ENA2+7
Function Call: WRITE
  • Prompt: !!,"Select "_$S(PSI=1:1,1:"1-"_PSI)_" from list above or type 'NEW' to link to a new IV Additive: "
  • Line Location: ENA2+12
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENA2+13
Function Call: WRITE
  • Prompt: !
  • Line Location: ENA2+14
Function Call: WRITE
  • Prompt: !!,"Select the number corresponding to the IV ADDITIVE you want to edit",!,"or type 'NEW' to link ",$$GET1^DIQ(50,DISPDRG,.01)," to a new IV ADDITIVE.",$C(7)
  • Line Location: ENA2+15
Function Call: WRITE
  • Prompt: !
  • Line Location: ENA2+18
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"This drug is inactive and will not be selectable during IV order entry.",!
  • Line Location: GETD+2
Function Call: WRITE
  • Prompt: !!,"Are you inquiring on"
  • Line Location: ENTDRG+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DRG+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: WPH+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WPH+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: WPH+1
Function Call: WRITE
  • Prompt: !,"Drug information on: ",$P(^PS(FI,PSSIVDRG,0),"^")
  • Line Location: WPH+2
Function Call: WRITE
  • Prompt: $P(Y,"@")," ",$P(Y,"@",2)
  • Line Location: WPH+3
Function Call: WRITE
  • Prompt: !
  • Line Location: WPH+4
Function Call: WRITE
  • Prompt: !,"*** No information on file. ***"
  • Line Location: WP+0
Function Call: READ
  • Variable: I
  • Timeout: DTIME
  • Line Location: WP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WP+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: WP+2
Function Call: WRITE
  • Prompt: !!,"Are you printing drug information from ..."
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: !,"Do you really want to link this ",$S(PSSASK="ADDITIVES":"Additive",1:"Solution")," to ",$P(^PSDRUG(DISPDRG,0),"^",1)
  • Line Location: EECK+1
Function Call: WRITE
  • Prompt: !," (A 'YES' or 'NO' response is required.)"
  • Line Location: EECK+2
Function Call: WRITE
  • Prompt: !,"This Additive or Solution is linked to ",$P(^PSDRUG(PSSIEN,0),"^",1),".",!,"You are editing dispense drug ",$P(^PSDRUG(DISPDRG,0),"^",1),".",!
  • Line Location: EECK1+0
Function Call: WRITE
  • Prompt: !,"You are editing a Additive or Solution which is linked to a different",!,"dispense drug from the one you are currently editing."
  • Line Location: ECK+0
Function Call: WRITE
  • Prompt: !!,"You are NOW in the ORDERABLE ITEM matching for Solutions."
  • Line Location: SOI+0
Function Call: WRITE
  • Prompt: !!,"You are NOW in the ORDERABLE ITEM matching for Additives."
  • Line Location: ADDOI+0
Function Call: WRITE
  • Prompt: !," ARE YOU SURE YOU WANT TO CHANGE THE PRINT NAME TO "_PRNAME
  • Line Location: PRNM+5
Function Call: WRITE
  • Prompt: !," Answer with 'Yes' or 'No'.",$C(7),!
  • Line Location: PRNM+9
Function Call: WRITE
  • Prompt: !," PRINT NAME set to "_PSPRNM
  • Line Location: PRNM+10
Function Call: WRITE
  • Prompt: !!," You are about to change the GENERIC DRUG linked to this "_$S($G(PSSASK)="ADDITIVES":"ADDITIVE.",1:"SOLUTION.")
  • Line Location: GEND+15
Function Call: WRITE
  • Prompt: !," "_$S($G(PSSASK)="ADDITIVES":"ADDITIVE",1:"SOLUTION")_" "_$G(CURADD)_" is "_$S($G(CURGEND)="":"not ",1:"")_"currently linked to "_$S($G(CURGEND)="":"any",1:"")
  • Line Location: GEND+16
Function Call: WRITE
  • Prompt: !," GENERIC DRUG "_$G(CURGEND)_"."
  • Line Location: GEND+17
Function Call: WRITE
  • Prompt: !!," Are you sure you want to link "_$S($G(PSSASK)="ADDITIVES":"ADDITIVE",1:"SOLUTION")_" "_$G(CURADD)
  • Line Location: GEND+18
Function Call: WRITE
  • Prompt: !," to GENERIC DRUG "_$$GET1^DIQ(50,+Y,.01,"E")
  • Line Location: GEND+19
Function Call: WRITE
  • Prompt: !," Answer with 'Yes' or 'No'.",$C(7),!
  • Line Location: GEND+21
Routine Call
  • DIC
  • Line Location:
    • NS2+2
    • NA2+4
    • DRG
    • ELECTRO+1
    • GEND+7
    • NEW+2
Routine Call
  • DIE
  • Line Location:
    • ENS2+19
    • ENA2+20
    • ELECTRO+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
^PS(50.4 - [#50.4] Classic Fileman Calls
^PS(52.6 - [#52.6] Classic Fileman Calls,  GET1^DIQ
^PS(52.7 - [#52.7] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" KENTDRG+6, ENT+4, ELECTRO+1
^DD("DD" WPH+3
^DD(55.11 DRG
^PS( ENS+2, ENA+2, K1+1, GETD+3*, WPH+2, WPH+3, WPWP+1
^PS(50.7 - [#50.7] MASTER
^PS(52.6 - [#52.6] NA2+1, NA2+2, ENA2+6, ENA2+7, ENA2+8, ENA2+9, ENA2+10, ENA2+11, ENA2+19, EECK
ADDOIPASSIN, GEND+9
^PS(52.7 - [#52.7] NS2ENS2+5, ENS2+15, EECKSOIPASSIN, GEND+10, IVSOLINA+9*
^PS(59.7 - [#59.7] SOIADDOI
^PSDRUG - [#50] ENA2+8, GETD+1, GETD+3, EECKEECK+1, EECK1

Label References

Name Line Occurrences
BEG BEG
ECK EECK
EECK ENS2+12, ENA2+18
EECK1 EECK
ELECTRO ELECTRO+2
ENTDRG ENTDRG+7
K ENS+2, ENA+2, BEGBEG+1, ELECTRO+1
K1 NS2+2, ENS2+11, ENS2+12, NA2+4, ENA2+17, ENA2+18
KDRG DRGDRG+1
NA2 ENA2+18
NEW ENS2+8, ENA2+14
NS2 ENS2+12
PASSIN EECK
WP DRG
WPH DRGWP+1

Naked Globals

Name Field # of Occurrence
^( ENA2+10, WP+1
^("I" GETD+1
^(0 ENA2+8, WPH+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EECK+2*, EECK+4, PRNM+1~, PRNM+6*, PRNM+7, GEND+4~, GEND+20*
>> %Y EECK+3, PRNM+8, GEND+20
B KDRG!
CUR GEND~, GEND+5, GEND+7, GEND+8
CURADD GEND+12~, GEND+13*, GEND+16, GEND+18
CURGEND GEND+12~, GEND+14*, GEND+16, GEND+17
D0 ENTDRG+8~
D1 ENTDRG+8~
DA ENS1+2~, ENS2+12*, ENS2+15*, ENS2+19, ENA1+2~, ENA2+18*, ENA2+19*, ENA2+20, KDRG!, ENTDRG+8~
, DRG!, ELECTRO+1!, ELECTRO+2*, PRNMHD+3, PRNM+3, GEND+9, GEND+10, GEND+13, GEND+14, NEW+1~
IVSOLINA+2, IVSOLINA+6, IVSOLINA+7, IVSOLINA+8, IVSOLINA+9
DG KDRG!
DI ENTDRG+8~
DIC ENS1+2~, NS2+2*, ENA1+2~, NA2+4*, KDRG!, DRG!*, BEG+1*, ELECTRO+1!*, ELECTRO+2, PRNMHD+2
, PRNM+2, GEND+4~, GEND+5*, NEW+1~, NEW+2*!
DIC("A" GEND+5*
DIC("B" GEND+5*
DIC("T" NEW+2*
DIC(0 NS2+2*, NA2+4*, DRG*, ELECTRO+1*, GEND+5*, NEW+2*
DIE ENS2+12*, ENS2+16*, ENA1+2~, ENA2+18*, ENA2+19*, KDRG!, ENTDRG+8~, ELECTRO+2*, NEW+1~
DIJ KDRG!
>> DILOCKTM ENS+2, ENA+2
>> DISPDRG NS2ENS2+4, ENS2+9, NA2+1, NA2+2, ENA2+4, ENA2+15, EECKEECK+1, EECK1
PASSIN
DIX KDRG!
DIY KDRG!
DIYS KDRG!
DLAYGO ENS1+2~, NS2+2*, ENA1+2~, NA2+4*, KDRG!, ELECTRO+1*, NEW+1~, NEW+2*
DO KDRG!
DP ENTDRG+8~
DQ ENTDRG+8~
DR ENS2+12*, ENS2+16*, ENS2+17*, ENS2+18*, ENA2+19*, ENTDRG+8~, ELECTRO+2*, NEW+1~
DRUG ENS2+12*, ENA2+18*, KDRG!, GETD+3
DRUGEDIT ENS+1*, ENA+1*, KDRG!
DT GETD+1, IVSOLINA+4
DTIME ENS2+7, ENA2+13, WP+1
>> DTOUT GEND+7, GEND+22
>> DUOUT GEND+7, GEND+20*, GEND+22
DUP PRNM+1~
DUPLIC PRNM+1~
>> ENTRY ENS2+12*, ENS2+14, ENS2+15, ENA2+18*, ENA2+19, ENA2+20*, EECKSOIADDOIPASSIN
FI ENS+1~*, ENS+2, NS2+2, ENS2+12, ENA+1~*, ENA+2, NA2+4, ENA2+18, K1+1, KDRG!
GETD+3, ENTDRG+8*, DRGWPH+2, WPH+3, WPWP+1, PRNMHD+1~, PRNMHD+2*, PRNMHD+3*
, PRNM+1~, PRNM+2*, PRNM+3*, NEW~, NEW+2
>> FILE EECK*, PASSIN*
>> HELP ENTDRG+7*, BEG*
I KDRG!, WP+1*
II ENS1+2~, ENS2+5*, ENA2+5*, ENA2+7*
IOF WPH+1
IOSL WP+1
J KDRG!
>> L BEG+1*
OI IVSOLINA+5~, IVSOLINA+7*, IVSOLINA+8
P KDRG!, ENTDRG+7~
PRNAME PRNM+1~, PRNM+3*, PRNM+4, PRNM+5, PRNM+7
PRNMDONE PRNM+1~*, PRNM+4, PRNM+7*, PRNM+8*, PRNM+9
PSDA ENS1+2~, ENS2+5*, ENA2+5*, ENA2+6, ENA2+7, ENA2+8, ENA2+9, ENA2+10, ENA2+11
PSFLGA NS2+2!, ENS2+3, NA2+4!, ENA2+3, ENA2+21!
PSFLGS ENS2+19!
PSI ENS1+2~, NS2*, NS2+2, ENS2+3, ENS2+6, ENA1+2~, NA2*, NA2+2*, NA2+4, ENA2+3
ENA2+12
PSIV ENA2+9*, ENA2+10, ENA2+11, KDRG!
PSIVAT KDRG!
PSIVSC KDRG!
PSMASTER SOI*!, ADDOI*!
PSPRNM ENS+1~, ENA+1~, PRNMHD+1!, PRNMHD+3*, PRNM+4, PRNM+7*, PRNM+10, PRNM+11
>> PSSASK ENS2+12*, ENA2+18*, EECKEECK+1, PASSIN, GEND+9, GEND+10, GEND+13, GEND+14, GEND+15
, GEND+16, GEND+18
PSSDG ENS1+2~
PSSDRG ENS1+2~, ENS2+15*, ENA1+2~, ENA2+19*
PSSEL GEND+4~, GEND+5*, GEND+6, GEND+7*, GEND+8, GEND+9*, GEND+10*, GEND+11, GEND+20*, GEND+21
PSSEL1 ENS1+2~, ENS2+12!, ENA1+2~, ENA2+18!, EECK+3*, EECK+4*
PSSENTRY ENS2+19~*, ENA2+20~*
>> PSSIEN EECK*, EECK1, PASSIN*
PSSINADT ENS2+13~, ENS2+14*, IVSOLINA+2*, IVSOLINA+9, IVSOLINA+11*, IVSOLINA+12*
PSSIVDRG KDRG!, DRG*, WPH+2, WPH+3, WPWP+1
>> PSSOR MASTER*
PSSQOX ENS2+1~, ENS2+2*, ENS2+19*, ENA2+1~, ENA2+2*, ENA2+20*
PSSQUIT ENS2+2*, ENS2+13~*, ENS2+19, ENA2+2*, ENA2+20, PRNM+8*, GEND+7*, GEND+20*
PSSY ENS1+2~, NS2*, ENS2+19!, ENA1+2~, NA2+2*, ENA2+21!
PSSY( NS2*, ENS2+5, ENS2+9, ENS2+10, NA2+2*, ENA2+5, ENA2+6, ENA2+7, ENA2+8, ENA2+9
ENA2+10, ENA2+11, ENA2+15, ENA2+16
PSSY15 ENA2+6*, ENA2+7, ENA2+21!
>> PSSZ EECK
X ENS2+7*, ENS2+8, ENS2+9, ENS2+10, ENA2+13*, ENA2+14, ENA2+15, ENA2+16, K*, GETD+1
GETD+3, ENTDRG+6*, ENTDRG+7*, ENTDRG+8, ENT+4*, BEG*, BEG+1, ELECTRO+1*, PASSIN*, GEND+4~
IVSOLINA+4, IVSOLINA+11, IVSOLINA+12
>> XQUIT ENTDRG+6, ENT+4, ELECTRO+1
XT KDRG!
Y NS2+2, ENS2+3, ENS2+7*, ENS2+10*, ENS2+11, ENS2+12*, NA2+4, ENA2+3, ENA2+13*, ENA2+16*
ENA2+17, ENA2+18*, DRG*, WPH+1*, WPH+3*, WP+2*, ELECTRO+1, ELECTRO+2, SOI*, ADDOI*
, GEND+4~, GEND+7, GEND+8, GEND+9, GEND+10, GEND+11, GEND+19, GEND+22, IVSOLINA+10*
Z KDRG!, WP+1*
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