Routine: PSDCOST

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

Package	Total	Caller Graph
Controlled Substances	1	PSD COST REPORTS

Entry Points

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

External References

Name	Field # of Occurrence
^%DT	DATE+1, DATE+2
NOW^%DTC	ASKN+2, DRUG+2
^%ZIS	DEV+3
HOME^%ZIS	DEV+5
^%ZISC	END+1
^%ZTLOAD	DEV+5
^DIC	ASKN+3, DRUG+3
D^DIQ	DATE+2, DATE+4
Y^DIQ	DEV+2
^DIR	CHOICE+1, SUM+3, ASKN+10, ASKN+14
^PSDSET	PSDCOST+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to print",!,?12,"the narcotic NAOU Cost Report.",!!,"PSJ RPHARM security key required.",! Line Location: PSDCOST+4
Function Call: WRITE	Prompt: !!,"Before printing a Cost Report, be sure accurate data exists in the",!!,"PRICE PER ORDER UNIT & DISPENSE UNITS PER ORDER UNIT fields in the DRUG file." Line Location: PSDCOST+5
Function Call: WRITE	Prompt: !!,"Select Date Range for ",PSDCHO(1),! Line Location: CHOICE+2
Function Call: WRITE	Prompt: ! Line Location: DATE+1
Function Call: WRITE	Prompt: ! Line Location: DATE+2
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+4
Function Call: WRITE	Prompt: !,"Compiling ",PSDCHO(1)," data." Line Location: DEV+6
Routine Call	%ZIS Line Location: DEV+5
Routine Call	DIC Line Location: ASKN+3 DRUG+3
Routine Call	DIR Line Location: CHOICE+1 SUM+3 ASKN+10 ASKN+14
Routine Call	%ZIS Line Location: DEV+3

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
@(	DEV+7
ASKN	DATE+5
DATE	DATE+3
DEV	ASKN+15
DRUG	SUM+3
END	CHOICE+1, DATE+1, DATE+2, SUM+3, ASKN+4, ASKN+6, DRUG+4, DEV+4, DEV+5
SAVE	DEV+5

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PSDCOST+6~, ASKN+2, DRUG+2, END+1!
%DT	DATE+1!*, END+1!
%DT("A"	DATE+1, DATE+2
%H	PSDCOST+6~, END+1!
%I	PSDCOST+6~, END+1!
%ZIS	DEV+3!*, END+1!
%ZIS("B"	DEV+3*
ALL	ASKN+5, DRUG+5, END+1!, SAVE+2
ANS	END+1!
>> C	DEV+2*
DA	SUM+1!, ASKN+2!, DRUG+3!, END+1!
DATE	END+1!
DIC	ASKN+2!, ASKN+3!, DRUG+3!, END+1!
DIC("A"	ASKN+3, DRUG+3
DIC("S"	ASKN+3, DRUG+3
DIC(0	ASKN+3, DRUG+3
DIR	PSDCOST+6~, CHOICE+1!, SUM+1!, SUM+3!, ASKN+10!, ASKN+14!, END+1!
DIR("?"	CHOICE+1, SUM+2
DIR("A"	CHOICE, SUM+1, ASKN+7, ASKN+8, ASKN+9, ASKN+12, ASKN+13*
DIR("B"	SUM+1, ASKN+13
DIR(0	CHOICE, SUM+1, ASKN+7, ASKN+11
DIROUT	END+1!
DIRUT	PSDCOST+6~, SUM+1!, SUM+3, ASKN+6, ASKN+10, END+1!
DTOUT	PSDCOST+6~, END+1!
DUOUT	PSDCOST+6~, END+1!
DUZ	PSDCOST+4
IO	DEV+6
IO("Q"	DEV+3!, DEV+5!, END+1!
ION	DEV+5
IOP	DEV+3!
LOC	PSDCOST+6~, ASKN+4, DRUG+4, SAVE+1
LOC(	ASKN+3, ASKN+5, DRUG+3*
POP	PSDCOST+6~, DEV+3!, DEV+4, END+1!
PSD	ASKN+5, ASKN+10, END+1!
PSD(1	ASKN+14*
PSD(2	ASKN+14*
PSDATE	PSDCOST+6~, DATE+2, DATE+4
PSDCHO	PSDCOST+6~, CHOICE+1*, DATE+5, SUM+3, ASKN+6, ASKN+7, ASKN+8, ASKN+10, DEV+5, DEV+7
PSDCHO(1	CHOICE+1*, CHOICE+2, DEV+6
PSDED	PSDCOST+6~, DATE+4*
PSDEV	PSDCOST+6~, DEV+2*, DEV+3
PSDIO	PSDCOST+6~, DEV+5*
PSDOUT	PSDCOST+6~, DATE+1, DATE+2
PSDSD	PSDCOST+6~, DATE+2, DATE+3, DATE+4
>> PSDSITE	PSDCOST+3, ASKN+5, DEV+2
PSDT	ASKN+2, ASKN+5, DRUG+2, END+1!
PSDT(1	ASKN+2, DRUG+2
SUM	SUM+3*, END+1!
U	DEV+2
X	PSDCOST+6~, ASKN+2, ASKN+4, ASKN+5, DRUG+2, DRUG+4, DRUG+5, END+1!
Y	PSDCOST+6~, CHOICE+1, DATE+1, DATE+2, DATE+3, DATE+4, SUM+3, ASKN+2, ASKN+3, ASKN+10 , ASKN+14, DRUG+2, DRUG+3, DEV+2*, END+1!
Y(0	CHOICE+1, ASKN+14
ZTDESC	DEV+5*, END+1!
ZTDTH	DEV+5!
ZTIO	DEV+5*, END+1!
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
ZTRTN	DEV+5*, END+1!
ZTSAVE	DEV+5!, END+1!
ZTSAVE("ALL"	SAVE+2*
ZTSAVE("LOC("	SAVE+1*
ZTSAVE("PSD*"	SAVE+1*
ZTSAVE("PSDSITE"	SAVE+1*
ZTSAVE("SUM"	SAVE+1*
ZTSK	PSDCOST+6~, DEV+5!

Customize PDF page

Package: Controlled Substances

Routine: PSDCOST

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: