Routine: PSSVIDRG

Information

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

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:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 6

Package	Total	Caller Graph
Pharmacy Data Management	5	PSSDEE PSSIV ADD PSSJI DRUG PSSJI ELECTROLYTE FILE PSSJI SOLN
Kernel	1	^DIC(19

Entry Points

Name	Comments	DBIA/ICR reference
ENS	;Enter here to enter/edit solutions
ENS1	; ; PSS1146 Compare and confirm SOLUTION Print name change
NS2
ENS2	; IV Solutions Editing
ENA	;Enter here to enter/edit additives.
ENA1	; ; PSS1146 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	; PSS1146 Hold the print name when editing
PRNM()	; PSS1146 compare and confirm Print name change
GEND(CUR)	;PSS1146
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, DRG, ELECTRO+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"	K, ENTDRG+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, WP, WP+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 , ADDOI, PASSIN, GEND+9
^PS(52.7 - [#52.7]	NS2, ENS2+5, ENS2+15, EECK, SOI, PASSIN, GEND+10, IVSOLINA+9*
^PS(59.7 - [#59.7]	SOI, ADDOI
^PSDRUG - [#50]	ENA2+8, GETD+1, GETD+3, EECK, EECK+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, BEG, BEG+1, ELECTRO+1
K1	NS2+2, ENS2+11, ENS2+12, NA2+4, ENA2+17, ENA2+18
KDRG	DRG, DRG+1
NA2	ENA2+18
NEW	ENS2+8, ENA2+14
NS2	ENS2+12
PASSIN	EECK
WP	DRG
WPH	DRG, WP+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	NS2, ENS2+4, ENS2+9, NA2+1, NA2+2, ENA2+4, ENA2+15, EECK, EECK+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*, EECK, SOI, ADDOI, PASSIN
FI	ENS+1~, ENS+2, NS2+2, ENS2+12, ENA+1~, ENA+2, NA2+4, ENA2+18, K1+1, KDRG! , GETD+3, ENTDRG+8, DRG, WPH+2, WPH+3, WP, WP+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, EECK, EECK+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, WP, WP+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*

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSVIDRG

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: