Routine: PSDSTK

Information

PSDSTK ;BIR/JPW-Stock Drugs Enter/Edit ; 8 Aug 94

Package	Total	Call Graph
VA Fileman	4	^DIC FILE^DICN ^DIE ^DIR
Controlled Substances	1	^PSDSET

Package	Total	Caller Graph
Controlled Substances	1	PSD STOCK DRUG EDIT

Name	Comments	DBIA/ICR reference
END
DIE
DRUG	;add drugs
CHKID	;check for current inactivation date
CHKNP	;check for non-CS entries in file 50
VAULT	;check for stock drugs in vault
STOCK	;entry for NAOU stocked drugs into file 58.8

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: STOCK+1
Function Call: WRITE	Prompt: !! Line Location: DRUG+2
Function Call: WRITE	Prompt: ! Line Location: DRUG+7
Function Call: WRITE	Prompt: $C(7),!!,?5,"This Drug is currently defined for this NAOU with an INACTIVATION DATE.",!!,?5,"If you want to add this Drug as a new standard Stock Drug for this NAOU",!,?5,"you must delete the INACTIVATION DATE.",! Line Location: CHKID+3
Function Call: WRITE	Prompt: ! Line Location: CHKID+4
Function Call: WRITE	Prompt: $C(7),!!,?5,"This stocked drug is currently defined for this NAOU but appears to be",!,?5,"a non-CS drug. It has been inactivated as of " Line Location: CHKNP+3
Function Call: WRITE	Prompt: Y,! Line Location: CHKNP+3
Function Call: WRITE	Prompt: !!,"There are no CS stocked drugs for your dispensing vault.",!! Line Location: VAULT+1
Function Call: WRITE	Prompt: !!,"You may select only CS drugs stocked in your dispensing vault.",!! Line Location: VAULT+2
Function Call: WRITE	Prompt: ! Line Location: VAULT+3
Routine Call	DIE Line Location: DIE CHKID+4 CHKNP+2
Routine Call	DIC Line Location: STOCK+1 DRUG+9 VAULT+4
Routine Call	DIR Line Location: DRUG+4 VAULT+10

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	CHKNP+3
^PSD(58.8 - [#58.8]	DRUG+8, CHKID+1, CHKID+4, CHKNP+2, CHKNP+3, VAULT+1, VAULT+5, VAULT+7, VAULT+8
^PSDRUG - [#50]	CHKNP+1, VAULT+6

Name	Field # of Occurrence
^(0	DRUG+8, VAULT+7

Name	Field # of Occurrence
ADD	END!, DRUG+5*, DRUG+6, DRUG+8, DRUG+9
DA	STOCK+1!, END!, DRUG+2!, DRUG+7!, DIE!, CHKID+4!, CHKNP+2!*, VAULT+3!, VAULT+9!, VAULT+12!
DA(1	DRUG+9, DIE, CHKID+4, CHKNP+2, VAULT+4, VAULT+12
DD	VAULT+12!
DIC	STOCK+1!, END!, DRUG+7!, DRUG+9!, VAULT+3!, VAULT+4!, VAULT+12!
DIC("A"	STOCK+1*
DIC("S"	STOCK+1*
DIC("W"	DRUG+7, VAULT+3
DIC(0	STOCK+1, DRUG+9, VAULT+4, VAULT+12
DIE	END!, DIE!, CHKID+4!, CHKNP+2!*
DINUM	END!, VAULT+12*
DIR	END!, DRUG+2!, DRUG+4!, VAULT+9!, VAULT+10!
DIR("?"	DRUG+3*
DIR("A"	DRUG+2, VAULT+9
DIR("B"	DRUG+4, VAULT+9
DIR(0	DRUG+2, VAULT+9
DIROUT	END!
DIRUT	END!, DRUG+2!, DRUG+4, VAULT+9!, VAULT+10
DLAYGO	END!, DRUG+9*!
DO	VAULT+12!
DR	END!, DIE!, CHKID+4!, CHKNP+2!*
DT	CHKNP+2
DTOUT	END!
DUOUT	END!
FLAG	END!, DRUG+1, DRUG+6, VAULT+11
FLAG1	STOCK+3, END!, DRUG+1, DRUG+6, VAULT+4
NAOU	END!
NEW	END!, VAULT+8*
OK	END!, DIE, CHKID+2, CHKID+4, CHKNP+1
PSDA	STOCK+2*, END!, DRUG+8, DRUG+9, DIE, CHKID+1, CHKID+4, CHKNP+2, CHKNP+3, VAULT+5 , VAULT+7, VAULT+8, VAULT+12
PSDOUT	STOCK+3, END!, DRUG+1, DRUG+4, DRUG+6, VAULT+1, VAULT+10, VAULT+12*
PSDR	END!, DRUG+9, DIE, CHKID+1, CHKID+4, CHKNP+1, CHKNP+2, CHKNP+3, VAULT+5, VAULT+6 , VAULT+12
PSDRG	END!
PSDRN	END!, VAULT+6*, VAULT+9
PSDS	STOCK+2*, END!, VAULT+1, VAULT+4
>> PSDSITE	PSDSTK+2
SITE	END!
TYPE	STOCK+2*, END!, DRUG+6, DRUG+8
X	END!, VAULT+12*
Y	STOCK+1, STOCK+2, END!, DRUG+5, DRUG+9, CHKNP+3*, VAULT+4, VAULT+5, VAULT+9!, VAULT+11 , VAULT+12
Y(0	STOCK+2