Routine: PSIVDRG

Package	Total	Call Graph
Inpatient Medications	4	ENIVKV^PSGSETU ENQ^PSIV ^PSIVHLP1 ^PSIVXU
VA Fileman	3	^DIC ^DIE EN1^DIP
Kernel	1	^%ZISC

Package

Total

Call Graph

Inpatient Medications

ENIVKV^PSGSETU ENQ^PSIV ^PSIVHLP1 ^PSIVXU

VA Fileman

^DIC ^DIE EN1^DIP

Kernel

^%ZISC

Package	Total	Caller Graph
Inpatient Medications	4	ADDITIVE PSJI DRUG FORM PSJI DRUG INQUIRY PSJI IVCATEGORY
Outpatient Pharmacy	1	ADDITIVE
Pharmacy Data Management	1	PSSJI DRUG INQUIRY

Package

Total

Caller Graph

Inpatient Medications

ADDITIVE PSJI DRUG FORM PSJI DRUG INQUIRY PSJI IVCATEGORY

Outpatient Pharmacy

ADDITIVE

Pharmacy Data Management

PSSJI DRUG INQUIRY

Entry Points

Name	Comments	DBIA/ICR reference
ENA	;Enter here to enter/edit additives.
ENC	;Enter here to enter/edit IV Categories
ENS1	;
ENA1	;
K
GETD	;See if generic drug is inactive in file 50.
ENTDRG	;
BEG
K1	;
ENS	;Enter here to enter/edit solutions
KDRG
WP
WPH	;
ELECTRO	;Edit Electrolyte file
DRG
ENT	;

Name	Field # of Occurrence
^%ZISC	BEG+1
^DIC	ENS1+1, ENC+1, DRG, ELECTRO+1
^DIE	ENS1+2, ENC+1, ELECTRO+2
EN1^DIP	BEG+1
ENIVKV^PSGSETU	K
ENQ^PSIV	ENTDRG+3, BEG
^PSIVHLP1	ENTDRG+3, BEG
^PSIVXU	ENC+1, ELECTRO+1

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+3
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,PSIVDRG,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
Routine Call	DIE Line Location: ENS1+2 ENC+1 ELECTRO+2
Routine Call	DIC Line Location: ENS1+1 ENC+1 DRG ELECTRO+1

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	WPH+3
^PS(	ENS+1, ENA+1, K1+1, GETD+1*, WPH+2, WPH+3, WP, WP+1
^PSDRUG - [#50]	GETD+1

Name	Line Occurrences
BEG	BEG
ELECTRO	ELECTRO+2
ENS1	ENS1+2
ENTDRG	ENTDRG+3
K	ENS+1, ENA+1, ENC+1, BEG, BEG+1, ELECTRO+1
K1	ENS1+1
KDRG	DRG, DRG+1
WP	DRG
WPH	DRG, WP+1

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

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
B	KDRG!
D0	ENTDRG+4~
D1	ENTDRG+4~
DA	ENS1+1~, ENS1+2, ENC+1!, KDRG!, ENTDRG+4~, DRG!, ELECTRO+1!, ELECTRO+2*
DG	KDRG!
DI	ENTDRG+4~
DIC	ENS1+1~, ENS1+2, ENC+1!, KDRG!, DRG!, BEG+1, ELECTRO+1!*, ELECTRO+2
DIC(0	ENS1+1, ENC+1, DRG, ELECTRO+1
DIE	ENS1+2, ENC+1!, KDRG!, ENTDRG+4~, ELECTRO+2*
DIJ	KDRG!
DIX	KDRG!
DIY	KDRG!
DIYS	KDRG!
DLAYGO	ENS1+1~, ENC+1!, KDRG!, ELECTRO+1*
DO	KDRG!
DP	ENTDRG+4~
DQ	ENTDRG+4~
DR	ENS1+2, ENC+1!, ENTDRG+4~, ELECTRO+2*
DRUG	ENS1+2*, KDRG!, GETD+1
DRUGEDIT	ENS+1, ENA+1, KDRG!
DT	GETD+1
DTIME	WP+1
FI	ENS+1, ENS1+1, ENA+1, K1+1, KDRG!, GETD+1, ENTDRG+4*, DRG, WPH+2, WPH+3 , WP, WP+1
>> HELP	ENTDRG+3, BEG
I	KDRG!, WP+1*
IOF	WPH+1
IOSL	WP+1
J	KDRG!
>> L	BEG+1*
P	KDRG!, ENTDRG+3~
PSIV	KDRG!
PSIVAT	KDRG!
PSIVDRG	KDRG!, DRG*, WPH+2, WPH+3, WP, WP+1
PSIVSC	KDRG!
>> X	GETD+1, ENTDRG+3, ENTDRG+4, BEG, BEG+1
>> XQUIT	ENC+1, ELECTRO+1
XT	KDRG!
>> Y	ENS1+1, ENS1+2, ENC+1, DRG, WPH+1, WPH+3, WP+2, ELECTRO+1, ELECTRO+2
Z	KDRG!, WP+1*

Customize PDF page

Package: Inpatient Medications

Routine: PSIVDRG

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

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: