Routine: PSALOG

Package	Total	Call Graph
Drug Accountability	3	^PSALOG0 ^PSALOG1 ^PSALOG1H
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^%DT DT^DICRW ^DIR

Package

Total

Call Graph

Drug Accountability

^PSALOG0 ^PSALOG1 ^PSALOG1H

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

VA Fileman

^%DT DT^DICRW ^DIR

Package	Total	Caller Graph
Drug Accountability	1	PSA UNPOST PROCUREMENT HISTORY

Package

Total

Caller Graph

Drug Accountability

PSA UNPOST PROCUREMENT HISTORY

Name	Comments	DBIA/ICR reference
HELPTOT	;Extended help for "Print item totals?"
EXIT
HELPLOW	;Extended help for "Enter the lowest dollar amount to print $"
DEVICE
QUE	;Calls routines to print the 3 reports.
HELPHIGH	;Extended help for "Print a high dollar items report?"

Name	Field # of Occurrence
^%DT	PSALOG+8
^%ZIS	DEVICE
^%ZISC	EXIT+1
^%ZTLOAD	DEVICE+2
DT^DICRW	PSALOG+7
^DIR	PSALOG+12, PSALOG+15, PSALOG+18
^PSALOG0	QUE+3
^PSALOG1	QUE+4
^PSALOG1H	QUE+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PSALOG+12
Function Call: WRITE	Prompt: ! Line Location: PSALOG+18
Function Call: WRITE	Prompt: ! Line Location: DEVICE+0
Function Call: WRITE	Prompt: !,"No device selected or report printed!" Line Location: DEVICE+1
Function Call: WRITE	Prompt: !,"The report was not sent to the printer." Line Location: DEVICE+3
Function Call: WRITE	Prompt: !!,"Enter yes to print a report of the items purchased during the selected",!,"month. The report contains the total dollar amount per item per purchase" Line Location: HELPTOT+1
Function Call: WRITE	Prompt: !,"order. The report lists the purchase order number, date ordered quantity,",!,"ordered, quantity received, dollar amount per dispensed unit, dispensed" Line Location: HELPTOT+2
Function Call: WRITE	Prompt: !,"unit, total order cost, and total cost of items received." Line Location: HELPTOT+3
Function Call: WRITE	Prompt: !!,"Enter no if you do not want to print the report." Line Location: HELPTOT+4
Function Call: WRITE	Prompt: !!,"Enter yes to choose a cut-off dollar amount and print the report.",!,"The report lists the items from highest to lowest dollar amounts." Line Location: HELPHIGH+1
Function Call: WRITE	Prompt: !!,"Enter the lowest dollar amount paid for an order of an item. The",!,"dollar amount is the total amount paid for the item on a purchase order." Line Location: HELPLOW+1
Function Call: WRITE	Prompt: !,"For example, if a drug cost $500 per unit and 3 units were ordered, the",!,"total dollar amount is $1500. In order to print this item on the report,",!,"the lowest dollar amount to print must be $1500 or less." Line Location: HELPLOW+2
Routine Call	DIR Line Location: PSALOG+12 PSALOG+15 PSALOG+18
Routine Call	%ZIS Line Location: DEVICE

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PSALOG+9
^TMP("PSA"	QUE+1!, EXIT+2!
^TMP("PSAB"	QUE+1!, EXIT+2!
^TMP("PSAC"	QUE+1!, EXIT+2!

Name	Line Occurrences
DEVICE	PSALOG+15
EXIT	PSALOG+8, PSALOG+12, PSALOG+15, PSALOG+18, DEVICE+1, DEVICE+3, QUE+3, QUE+4

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	PSALOG+7*, EXIT+3!
%DT("A"	PSALOG+7*
%DT("B"	PSALOG+7*
%ZIS	DEVICE*, EXIT+3!
DIR	PSALOG+12!, PSALOG+15!, PSALOG+18!, EXIT+3!
DIR("?"	PSALOG+11, PSALOG+14, PSALOG+17*
DIR("??"	PSALOG+12, PSALOG+15, PSALOG+17*
DIR("A"	PSALOG+11, PSALOG+14, PSALOG+17*
DIR("B"	PSALOG+11, PSALOG+14, PSALOG+17*
DIR(0	PSALOG+11, PSALOG+14, PSALOG+17*
DIRUT	PSALOG+12, PSALOG+15, PSALOG+18, EXIT+3!
IO	QUE+1
IO("Q"	DEVICE!, DEVICE+2, EXIT+2!
IOF	EXIT
>> POP	DEVICE+1
PSAC	EXIT+3!
PSACP	EXIT+3!
PSADATE	EXIT+3!
PSADLN	EXIT+3!
PSADT	EXIT+3!
PSAFCP	EXIT+3!
PSAHIGH	PSALOG+15*, QUE+5, EXIT+3!
PSAIEN	EXIT+3!
PSAINVO	EXIT+3!
PSAITEM	EXIT+3!
PSAKK	EXIT+3!
PSALOW	PSALOG+18*, EXIT+3!
PSAMO	PSALOG+8*, EXIT+3!
PSAMORE	EXIT+3!
PSAMOYR	PSALOG+9*, EXIT+3!
PSAN0	EXIT+3!
PSAN1	EXIT+3!
PSAOUT	QUE+3, QUE+4, EXIT+3!
PSAPG	EXIT+3!
PSAQTYO	EXIT+4!
PSAQTYP	EXIT+4!
PSARPDT	EXIT+4!
PSASLN	EXIT+4!
PSASS	EXIT+4!
PSASTART	QUE+2*, EXIT, EXIT+4!
PSATMP	EXIT+4!
PSATOT	EXIT+4!
PSATOTAL	PSALOG+12*, QUE+4, EXIT+4!
PSATOTO	EXIT+4!
PSATOTP	EXIT+4!
PSATOTR	EXIT+4!
PSATQTYO	EXIT+4!
PSAUNIT	EXIT+4!
PSAYRMO	PSALOG+8*, PSALOG+9, EXIT+4!
X	EXIT+4!
X2	EXIT+4!
X3	EXIT+4!
Y	PSALOG+8, PSALOG+9, PSALOG+12, PSALOG+15, PSALOG+18, EXIT+4!
ZTDESC	DEVICE+2*, EXIT+4!
ZTQUEUED	EXIT+1, EXIT+4!
ZTREQ	EXIT+1*, EXIT+4!
ZTRTN	DEVICE+2*, EXIT+4!
ZTSAVE	EXIT+4!
ZTSAVE("PSA*"	DEVICE+2*
>> ZTSK	DEVICE+3

Customize PDF page

Package: Drug Accountability

Routine: PSALOG

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

Local Variables

Legend: