Routine: PSDAMIS

Information

PSDAMIS ;BIR/BJW-AMIS Report for NAOUs ; 5 Feb 98

Package	Total	Call Graph
VA Fileman	5	^%DT NOW^%DTC ^DIC D^DIQ ^DIR
Controlled Substances	3	START^PSDAMIS1 START^PSDAMIS2 ^PSDSET
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Package	Total	Caller Graph
Controlled Substances	1	PSD AMIS

Name	Comments	DBIA/ICR reference
SORT	;sel sort order
SAVE	;save variables for queueing
END	;
SUM	;if summary only
DEV	;asks device and queueing information
DRUG	;ask drug(s)
DATE	;ask date range
ASKN	;ask NAOU(s)

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to print",!,?12,"the narcotic NAOU AMIS Report.",!!,"PSJ RPHARM security key required.",! Line Location: PSDAMIS+4
Function Call: WRITE	Prompt: !!,"Select Date Range for NAOU AMIS Report",! Line Location: PSDAMIS+5
Function Call: WRITE	Prompt: ! Line Location: DATE+1
Function Call: WRITE	Prompt: !!,"The ending date of the range must be later than the starting date." Line Location: DATE+3
Function Call: WRITE	Prompt: ! Line Location: SUM+1
Function Call: WRITE	Prompt: !!,?5,"You may select a single NAOU, several NAOUs,",!,?5,"or enter ^ALL to select all NAOUs.",!! Line Location: ASKN+1
Function Call: WRITE	Prompt: !!,?5,"You may select a single drug, several drugs,",!,?5,"or enter ^ALL to select all drugs.",!! Line Location: DRUG+1
Function Call: WRITE	Prompt: !!,"This report is designed for a 80 column format.",!,"You may queue this report to print at a later time.",!! Line Location: DEV+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+2
Routine Call	%ZIS Line Location: DEV+3
Routine Call	DIC Line Location: ASKN+3 DRUG+2
Routine Call	DIR Line Location: SUM+3 SORT+4
Routine Call	%ZIS Line Location: DEV+2

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	ASKN+5
^XUSEC("PSJ RPHARM"	PSDAMIS+4

Name	Line Occurrences
DATE	DATE+3
DEV	ASKN+6
DRUG	SORT+5
END	DATE+1, DATE+2, SUM+3, SORT+4, ASKN+4, DRUG+3, DEV+2, DEV+3
SAVE	DEV+3

Name	Field # of Occurrence
^("I"	ASKN+5
^(0	ASKN+5

Name	Field # of Occurrence
%	END+1!
%DT	DATE+1!*, END+1!
%DT("A"	DATE+1, DATE+2
%H	END+1!
%I	END+1!
%ZIS	DEV+2!*, END+1!
%ZIS("B"	DEV+2*
ALL	DRUG+4*, END+1!, SAVE+2
ANS	SORT+4*, SORT+5, DEV+3, DEV+4, END+1!
DA	SUM+1!, SORT+1!, ASKN+2!, DRUG+2!, END+1!
DATE	END+1!
DIC	ASKN+2!, ASKN+3!, DRUG+2!, END+1!
DIC("A"	ASKN+3, DRUG+2
DIC("S"	ASKN+3, DRUG+2
DIC(0	ASKN+3, DRUG+2
DIR	SUM+1!, SUM+3!, SORT+1!, SORT+4!, END+1!
DIR("?"	SUM+2, SORT+2, SORT+3*
DIR("A"	SUM+1, SORT+1, SORT+4*
DIR("B"	SUM+1*
DIR(0	SUM+1, SORT+1
DIROUT	END+1!
DIRUT	SUM+1!, SUM+3, SORT+1!, SORT+4, END+1!
DTOUT	END+1!
DUOUT	END+1!
DUZ	PSDAMIS+4
IO	DEV+4
IO("Q"	DEV+2!, DEV+3!, END+1!
IOP	DEV+2!
LOC	ASKN+4, DRUG+3, END+1!, SAVE+1
LOC(	ASKN+3, ASKN+5, DRUG+2*
POP	DEV+2!, END+2!
PSD	ASKN+5*, END+2!
PSDATE	DATE+2, DATE+4, END+2!
PSDED	DATE+4*, END+2!
PSDOUT	DATE+1, DATE+2, END+2!
PSDSD	DATE+2, DATE+3, DATE+4, END+2!
>> PSDSITE	PSDAMIS+3, ASKN+5
PSDT	DATE+5*, ASKN+5, END+2!
SUM	SUM+3*, END+2!
X	DATE+5, ASKN+4, ASKN+5, DRUG+3, DRUG+4, END+2!
Y	DATE+1, DATE+2, DATE+3, DATE+4, SUM+3, SORT+4, ASKN+3, DRUG+2, END+2!
ZTDESC	DEV+3*, END+2!
ZTDTH	DEV+3!
ZTIO	DEV+3!, END+2!
>> ZTQUEUED	END+4
>> ZTREQ	END+4*
ZTRTN	DEV+3*, END+2!
ZTSAVE	DEV+3!, END+2!
ZTSAVE("ALL"	SAVE+2*
ZTSAVE("ANS"	SAVE+1*
ZTSAVE("DUZ"	SAVE+4*
ZTSAVE("LOC("	SAVE+1*
ZTSAVE("PSD"	SAVE+1*
ZTSAVE("PSDATE"	SAVE+3*
ZTSAVE("PSDED"	SAVE+3*
ZTSAVE("PSDSD"	SAVE+3*
ZTSAVE("PSDSITE"	SAVE+1*
ZTSAVE("PSDT"	SAVE+1*
ZTSAVE("SUM"	SAVE+1*
ZTSK	DEV+3!