Routine: PSSVIDRG

Package	Total	Call Graph
Inpatient Medications	4	ENIVKV^PSGSETU ENQ^PSIV ^PSIVHLP1 ^PSIVXU
Pharmacy Data Management	4	MAS^PSSADDIT (MFA,MFS)^PSSDEE EN2^PSSHL1 MAS^PSSSOLIT
VA Fileman	3	^DIC ^DIE EN1^DIP
Kernel	1	^%ZISC

Package	Total	Caller Graph
Pharmacy Data Management	4	PSSDEE PSSJI DRUG PSSJI ELECTROLYTE FILE PSSJI SOLN

Entry Points

Name	Comments	DBIA/ICR reference
MASTER
GETD	;See if generic drug is inactive in file 50.
BEG
K1	;
RFILE
WP
PASSIN
ELECTRO	;Edit Electrolyte file
DRG
EECK1
SOI
ECK
ENTDRG	;This module is no longer utilized by the Inpatient Medications application.
KDRG
ADDOI
WPH	;
ENA	;Enter here to enter/edit additives.
ENC	;Enter here to enter/edit IV Categories
ENS1	;
K
ENS	;Enter here to enter/edit solutions
ENT	;
EECK
ENA1	;

External References

Name	Field # of Occurrence
^%ZISC	BEG+1
^DIC	ENS1+1, ENA1+1, DRG, ELECTRO+1
^DIE	ENS1+4, ENA1+2, ELECTRO+2, PASSIN
EN1^DIP	BEG+1
ENIVKV^PSGSETU	K
ENQ^PSIV	ENTDRG+7, BEG
^PSIVHLP1	ENTDRG+6, ENTDRG+7, ENT+4, BEG
^PSIVXU	ELECTRO+1
MAS^PSSADDIT	ADDOI
MFA^PSSDEE	ENA1+2
MFS^PSSDEE	ENS1+4
EN2^PSSHL1	MASTER
MAS^PSSSOLIT	SOI

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"Someone else is entering drugs ... try later !",!! Line Location: ENS+1
Function Call: WRITE	Prompt: $C(7),!!,"Someone else is entering drugs ... try later !",!! Line Location: ENA+1
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"This drug is inactive and will not be selectable during IV order entry.",! Line Location: GETD+1
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	Timeout: DTIME Variable: I 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: !,"This Additive or Solution is tied 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 tied 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
Routine Call	DIE Line Location: ENS1+4 ENA1+2 ELECTRO+2 PASSIN
Routine Call	DIC Line Location: ENS1+1 ENA1+1 DRG ELECTRO+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(50.4 - [#50.4]	Classic Fileman Calls
^PS(52.6 - [#52.6]	Classic Fileman Calls
^PS(52.7 - [#52.7]	Classic Fileman Calls

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+1, ENA+1, K1+1, GETD+1*, WPH+2, WPH+3, WP, WP+1
^PS(50.7 - [#50.7]	MASTER
^PS(52.6 - [#52.6]	EECK, ADDOI, RFILE
^PS(52.7 - [#52.7]	EECK, SOI, RFILE
^PS(59.7 - [#59.7]	SOI, ADDOI
^PSDRUG - [#50]	GETD+1, EECK1

Label References

Name	Line Occurrences
BEG	BEG
ECK	EECK
EECK	ENS1+4, ENA1+2
EECK1	EECK
ELECTRO	ELECTRO+2
ENTDRG	ENTDRG+7
K	ENS+1, ENA+1, BEG, BEG+1, ELECTRO+1
K1	ENS1+1, ENA1+1
KDRG	DRG, DRG+1
PASSIN	EECK
RFILE	PASSIN
WP	DRG
WPH	DRG, WP+1

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
B	KDRG!
D0	ENTDRG+8~
D1	ENTDRG+8~
DA	ENS1+1~, ENS1+4, ENA1+1~, ENA1+2, KDRG!, ENTDRG+8~, DRG!, ELECTRO+1!, ELECTRO+2, PASSIN
DG	KDRG!
DI	ENTDRG+8~
DIC	ENS1+1~, ENS1+4, ENA1+1~, ENA1+2, KDRG!, DRG!, BEG+1, ELECTRO+1!*, ELECTRO+2
DIC(0	ENS1+1, ENA1+1, DRG, ELECTRO+1
DIE	ENS1+4, ENA1+1~, ENA1+2, KDRG!, ENTDRG+8~, ELECTRO+2, PASSIN
DIJ	KDRG!
>> DILOCKTM	ENS+1, ENA+1
>> DISPDRG	EECK, EECK1, PASSIN
DIX	KDRG!
DIY	KDRG!
DIYS	KDRG!
DLAYGO	ENS1+1~, ENA1+1~, KDRG!, ELECTRO+1*
DO	KDRG!
DP	ENTDRG+8~
DQ	ENTDRG+8~
DR	ENS1+4, ENA1+2, ENTDRG+8~, ELECTRO+2, PASSIN
DRUG	ENS1+4, ENA1+2, KDRG!, GETD+1
DRUGEDIT	ENS+1, ENA+1, KDRG!
DT	GETD+1
DTIME	WP+1
>> ENTRY	ENS1+4, ENA1+2, EECK, SOI, ADDOI, PASSIN, RFILE
FI	ENS+1, ENS1+1, ENA+1, ENA1+1, K1+1, KDRG!, GETD+1, ENTDRG+8*, DRG, WPH+2 , WPH+3, WP, WP+1
>> FILE	EECK, RFILE
>> HELP	ENTDRG+7, BEG
I	KDRG!, WP+1*
IOF	WPH+1
IOSL	WP+1
J	KDRG!
>> L	BEG+1*
P	KDRG!, ENTDRG+7~
PSIV	KDRG!
PSIVAT	KDRG!
PSIVSC	KDRG!
PSMASTER	SOI!, ADDOI!
>> PSSASK	ENS1+4, ENA1+2, EECK, PASSIN, RFILE
>> PSSIEN	EECK, EECK1, RFILE
PSSIVDRG	KDRG!, DRG*, WPH+2, WPH+3, WP, WP+1
>> PSSOR	MASTER*
>> PSSZ	EECK
>> ROOT	PASSIN*
>> X	K, GETD+1, ENTDRG+6, ENTDRG+7, ENTDRG+8, ENT+4, BEG, BEG+1, ELECTRO+1, PASSIN*
>> XQUIT	ENTDRG+6, ENT+4, ELECTRO+1
XT	KDRG!
>> Y	ENS1+1, ENS1+4, ENA1+1, ENA1+2, DRG, WPH+1, WPH+3, WP+2, ELECTRO+1, ELECTRO+2 , SOI, ADDOI
Z	KDRG!, WP+1*

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSVIDRG

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: