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

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	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	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*