Routine: PSDNARC

Information

PSDNARC ;BIR/JPW-Enter/Edit Narcotic Breakdown Info ; 8 Aug 94

Source file <PSDNARC.m>

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIE
Controlled Substances	1	^PSDSET

Package	Total	Caller Graph
Controlled Substances	1	PSD NARC EDIT

Name	Comments	DBIA/ICR reference
DIE	;edit narcotic breakdown unit and package size
SEL	;select disp. vault in file 58.8
END
NARC	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Enter Narcotic Breakdown Unit and Package Size for Stock Drugs" Line Location: PSDNARC+3
Function Call: WRITE	Prompt: !!,"Dispensing Site: ",PSDSN,! Line Location: PSDNARC+5
Function Call: WRITE	Prompt: ! Line Location: SEL+1
Function Call: WRITE	Prompt: !!,"There are no stocked drugs for this Dispensing Site!!",!! Line Location: DIE+1
Function Call: WRITE	Prompt: ! Line Location: DIE+2
Function Call: WRITE	Prompt: ?45," * INACTIVE *" Line Location: DIE+5
Routine Call	DIE Line Location: DIE+6
Routine Call	DIC Line Location: SEL+2 DIE+3

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	DIE+1, DIE+5

Name	Field # of Occurrence
^(0	DIE+5

Name	Field # of Occurrence
DA	NARC+1!, END!, DIE+2!, DIE+6!*
DA(1	DIE+3, DIE+6
DIC	NARC+1!, SEL+1, SEL+2!, END!, DIE+2!, DIE+3!
DIC("A"	SEL+1*
DIC("B"	NARC+1*
DIC("S"	SEL+1*
DIC("W"	DIE+2*
DIC(0	SEL+1, DIE+3
DIE	END!, DIE+6!*
DR	END!, DIE+6!*
DT	DIE+5
DTOUT	END!, DIE+3
DUOUT	END!, DIE+3
PSDOUT	PSDNARC+5, NARC+1, SEL+4, END!, DIE+3*
PSDR	END!, DIE+5*, DIE+6
PSDS	PSDNARC+4, SEL+3, END!, DIE+1, DIE+3, DIE+5, DIE+6
>> PSDSITE	PSDNARC+2, PSDNARC+4, PSDNARC+5, NARC+1, SEL+3*
PSDSN	PSDNARC+4*, PSDNARC+5, END!
SITE	END!
U	PSDNARC+4, PSDNARC+5, NARC+1, SEL+3
X	END!
Y	SEL+2, SEL+3, END!, DIE+4, DIE+5
Y(0	DIE+5