Routine: PSACOST

Information

PSACOST ;BIR/JMB-Invoice Cost Summary ;7/23/97

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Drug Accountability	2	END^PSAPROC BDATE^PSAPV
VA Fileman	2	DD^%DT NOW^%DTC

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Drug Accountability	1	PSA INVOICE COST SUMMARY

Entry Points

Name	Comments	DBIA/ICR reference
HDR	;Report header
PRICE
QTY
COMPILE	;Compiles the data into ^TMP("PSACOST",$J)
PRINT	;Prints invoices' totals
EXIT
DEVICE	;Asks device & queueing info
LINE	;Get line item data
ORDER

External References

Name	Field # of Occurrence
DD^%DT	PRINT+1, PRINT+2
NOW^%DTC	PRINT+3
^%ZIS	DEVICE+2
^%ZISC	EXIT
^%ZTLOAD	DEVICE+7
END^PSAPROC	PRINT+5, PRINT+18, HDR+1
BDATE^PSAPV	PSACOST+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You do not hold the key to enter the option." Line Location: PSACOST+6
Function Call: WRITE	Prompt: !,"There are no invoices." Line Location: PSACOST+7
Function Call: WRITE	Prompt: ! Line Location: DEVICE+2
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!" Line Location: DEVICE+2
Function Call: WRITE	Prompt: !!,"There is no invoice data in the file for the selected date range.",! Line Location: PRINT+5
Function Call: WRITE	Prompt: !,"ORDER TOTAL" Line Location: PRINT+16
Function Call: WRITE	Prompt: ?39,$J(PSAOCOST,9,2),?55,$J(PSAOACST,9,2),?69 Line Location: PRINT+16
Function Call: WRITE	Prompt: ?39,$J(PSAOCOST,9,2),?55,$J(PSAOACST,9,2),?69 Line Location: PRINT+16
Function Call: WRITE	Prompt: ! Line Location: PRINT+17
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+19
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: !?20,"DRUG ACCOUNTABILITY/INVENTORY INTERFACE",?72,"PAGE "_PSAPG Line Location: HDR+4
Function Call: WRITE	Prompt: !?27,"INVOICE COST SUMMARY REPORT" Line Location: HDR+5
Function Call: WRITE	Prompt: !,"RUN: "_PSARUN,?27,PSABEGX_" - "_PSAENDX Line Location: HDR+6
Function Call: WRITE	Prompt: !,?27,PSABEGX_" - "_PSAENDX Line Location: HDR+7
Function Call: WRITE	Prompt: !!?28,"INVOICE",?41,"INVOICE",?56,"ADJUSTED" Line Location: HDR+8
Function Call: WRITE	Prompt: !,"INVOICE#",?31,"DATE",?44,"COST",?60,"COST",?68,"DIFFERENCE",!,PSASLN Line Location: HDR+9
Routine Call	%ZIS Line Location: DEVICE+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.811 - [#58.811]	PSACOST+7, COMPILE+2, COMPILE+3, COMPILE+4, COMPILE+5, COMPILE+6, COMPILE+7, COMPILE+9, COMPILE+10, COMPILE+11 , PRICE, PRICE+1, QTY, QTY+2
^TMP("PSACOST"	COMPILE+13, ORDER, ORDER+2, ORDER+3, ORDER+4, PRINT+5, PRINT+6, PRINT+7, PRINT+10, PRINT+11 , PRINT+15, EXIT!
^XUSEC("PSA ORDERS"	PSACOST+6

Label References

Name	Line Occurrences
EXIT	PSACOST+7, PSACOST+8, DEVICE+3, PRINT+5
HDR	PRINT+4, PRINT+8, PRINT+12, PRINT+14
LINE	COMPILE+11

Naked Globals

Name	Field # of Occurrence
^(	PRINT+11, PRINT+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PRINT+3, EXIT+1!
%DT	PRINT+1!, PRINT+2!, EXIT+1!
%ZIS	DEVICE+1!*, EXIT+1!
%ZIS("B"	DEVICE+1*
DUZ	PSACOST+6
IO("Q"	DEVICE+1!, DEVICE+3, EXIT!
IOF	PRINT+19, HDR+1, HDR+2
IOP	DEVICE+1!
IOSL	PRINT+8, PRINT+12, PRINT+14
IOST	PRINT+18, HDR+1, HDR+2, HDR+6
POP	DEVICE+1!, DEVICE+2
PSAACOST	ORDER+1, ORDER+3, ORDER+4, PRINT+11, PRINT+13, PRINT+16, EXIT+1!, QTY+4, QTY+5*
PSAAECST	COMPILE+8, COMPILE+12, COMPILE+13, EXIT+1!, QTY+4, QTY+5*
PSABEG	DEVICE+6, COMPILE+1, PRINT+2, EXIT+1!
PSABEGX	PRINT+2*, EXIT+1!, HDR+6, HDR+7
PSADATA	COMPILE+11*, EXIT+1!, LINE+1, PRICE+2, QTY+5
PSADATE	COMPILE+1, COMPILE+2, COMPILE+3, COMPILE+5, COMPILE+7, EXIT+1!
PSADIFF	COMPILE+12, COMPILE+13, ORDER+1, ORDER+3, ORDER+4, PRINT+11, PRINT+13, EXIT+1!
PSADJ	EXIT+1!, PRICE, PRICE+1, PRICE+2, QTY, QTY+1, QTY+2
PSADJP	EXIT+1!, PRICE, PRICE+1
PSADJQ	EXIT+1!, QTY, QTY+3, QTY+4, QTY+5
PSAEND	DEVICE+6, COMPILE+2, PRINT+1, EXIT+1!
PSAENDX	PRINT+1*, EXIT+1!, HDR+6, HDR+7
PSAICOST	ORDER+1, ORDER+3, ORDER+4, PRINT+11*, PRINT+13, PRINT+16, EXIT+1!
PSAIECST	COMPILE+8, COMPILE+12, COMPILE+13, EXIT+1!, LINE+1
PSAIEN	COMPILE+3*, COMPILE+4, COMPILE+5, COMPILE+6, COMPILE+7, COMPILE+9, COMPILE+10, COMPILE+11, EXIT+1!, PRICE , PRICE+1, QTY, QTY+2
PSAIEN1	COMPILE+4, COMPILE+5, COMPILE+6, COMPILE+7, COMPILE+9, COMPILE+10, COMPILE+11, EXIT+2!, PRICE, PRICE+1 , QTY, QTY+2
PSAIN	COMPILE+7*, EXIT+2!
PSAINV	COMPILE+7, COMPILE+13, ORDER+1, ORDER+2, ORDER+3, PRINT+10, PRINT+11, PRINT+13, EXIT+2!
PSAINVDT	COMPILE+7, COMPILE+13, PRINT+11, PRINT+13, EXIT+2!
PSALCOST	EXIT+2!, LINE+1*
PSALINE	COMPILE+9*, COMPILE+10, COMPILE+11, EXIT+2!, PRICE, PRICE+1, QTY, QTY+2
PSANODE	EXIT+2!, PRICE+1, QTY+2, QTY+3
PSAOACST	PRINT+15*, PRINT+16, EXIT+2!
PSAOCOST	PRINT+15*, PRINT+16, EXIT+2!
PSAODIFF	PRINT+7, PRINT+15, PRINT+16, EXIT+2!
PSAOECST	COMPILE+4, COMPILE+12, EXIT+2!
PSAORD	COMPILE+4, COMPILE+13, ORDER, ORDER+2, ORDER+3, ORDER+4, PRINT+5, PRINT+6, PRINT+7, PRINT+9 , PRINT+10, PRINT+11, PRINT+15, EXIT+2!
PSAOUT	PSACOST+8, COMPILE+1, COMPILE+2, COMPILE+3, COMPILE+5, COMPILE+9, PRINT+6, PRINT+8, PRINT+10, PRINT+12 , PRINT+14, PRINT+18, EXIT+2!, HDR+1
PSAPG	PRINT+4, EXIT+2!, HDR+1, HDR+2, HDR+3, HDR+4
PSAPRICE	EXIT+2!, PRICE+1, PRICE+2, QTY+4, QTY+5
PSARUN	PRINT+3*, EXIT+2!, HDR+6
PSASLN	PRINT+4*, EXIT+2!, HDR+9
X	PRINT+1!, PRINT+2!, EXIT+2!
Y	PRINT+1!, PRINT+2!, PRINT+4!, EXIT+2!
ZTDESC	DEVICE+4~, DEVICE+5*, EXIT+2!
ZTDTH	DEVICE+4~, EXIT+2!
ZTIO	DEVICE+4~, EXIT+2!
>> ZTQUEUED	EXIT
>> ZTREQ	EXIT*
ZTRTN	DEVICE+4~, DEVICE+5*, EXIT+2!
ZTSAVE	DEVICE+4~, EXIT+2!
ZTSAVE("PSABEG"	DEVICE+6*
ZTSAVE("PSAEND"	DEVICE+6*
ZTSK	DEVICE+4~, EXIT+2!

Customize PDF page

Package: Drug Accountability

Routine: PSACOST

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: