Routine: PSAPV

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	(,DD)^%DT (C,NOW)^%DTC

Package	Total	Caller Graph
Drug Accountability	3	PSA PROCESSOR AND VERIFIER PSACOST PSASIG

Entry Points

Name	Comments	DBIA/ICR reference
BDATE	;Gets beginning and ending invoice dates
HDR	;Report header
DEV
COMPILE	;Compiles data
PRINT	;Print data
EXIT
DEVICE	;Asks device & queueing info
EDATE

External References

Name	Field # of Occurrence
^%DT	BDATE+1, EDATE
DD^%DT	PRINT+1, PRINT+2
C^%DTC	COMPILE+1
NOW^%DTC	PRINT+3
^%ZIS	DEV+1
^%ZISC	EXIT+1
^%ZTLOAD	DEV+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You do not hold the key to enter the option." Line Location: PSAPV+6
Function Call: WRITE	Prompt: !,"There are no invoices." Line Location: PSAPV+7
Function Call: WRITE	Prompt: !!,"The report must be sent to a printer that supports 132 columns.",! Line Location: DEVICE+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!" Line Location: DEV+1
Function Call: WRITE	Prompt: !,"The printout must be sent to a 132 column printer!",! Line Location: DEV+2
Function Call: WRITE	Prompt: !,PSASLN,! Line Location: PRINT+12
Function Call: WRITE	Prompt: @IOF Line Location: EXIT+0
Function Call: WRITE	Prompt: ! Line Location: BDATE+1
Function Call: WRITE	Prompt: !!,"Future dates are not permitted.",! Line Location: BDATE+3
Function Call: WRITE	Prompt: ! Line Location: EDATE+0
Function Call: WRITE	Prompt: !!,"Ending Date cannot be before the Start Date.",! Line Location: EDATE+2
Function Call: WRITE	Prompt: !,PSASLN,@IOF Line Location: HDR+1
Function Call: WRITE	Prompt: !?46,"DRUG ACCOUNTABILITY/INVENTORY INTERFACE",?114,"PAGE "_PSAPG,!?51,"PROCESSOR AND VERIFIER REPORT" Line Location: HDR+3
Function Call: WRITE	Prompt: !,"RUN DATE: "_PSARUN,?52,PSABEGX_" - "_PSAENDX Line Location: HDR+4
Function Call: WRITE	Prompt: !,?52,PSABEGX_" - "_PSAENDX Line Location: HDR+5
Function Call: WRITE	Prompt: !!?24,"\| INVOICE",?36,"\|",?68,"\| DATE",?80,"\|",?112,"\| DATE" Line Location: HDR+6
Function Call: WRITE	Prompt: !,"INVOICE#",?24,"\| DATE",?36,"\| PROCESSOR",?68,"\| PROCESSED",?80,"\| VERIFIER",?112,"\| VERIFIED" Line Location: HDR+7
Function Call: WRITE	Prompt: !,"========================\|===========\|===============================\|===========\|===============================\|=========" Line Location: HDR+8
Routine Call	%ZIS Line Location: DEV+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.811 - [#58.811]	PSAPV+7, COMPILE+2, COMPILE+3, COMPILE+4, COMPILE+5, COMPILE+6, COMPILE+7, COMPILE+12, COMPILE+13, COMPILE+14
^TMP("PSAPVR"	COMPILE+18*, PRINT+5, PRINT+8, PRINT+9, EXIT+1!
^VA(200 - [#200]	COMPILE+8, COMPILE+9
^XUSEC("PSA ORDERS"	PSAPV+6

Label References

Name	Line Occurrences
BDATE	PSAPV+8, BDATE+3
EDATE	EDATE+2
EXIT	PSAPV+7, PSAPV+8, DEV+3
HDR	PRINT+4, PRINT+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PRINT+3, EXIT+2!
%DT	PRINT+1!, PRINT+2!, BDATE+1, BDATE+3!, EDATE, EDATE+2!
%DT("A"	BDATE+1, EDATE
%ZIS	DEV!*, EXIT+2!
%ZIS("B"	DEV*
DT	BDATE+3
DTOUT	EXIT+2!, BDATE+2, EDATE+1
DUZ	PSAPV+6
IO("Q"	DEV!, DEV+3, EXIT+1!
IOF	EXIT, HDR+1
IOM	DEV*
IOP	DEV!
IOSL	PRINT+6
IOST	HDR+1, HDR+4
POP	DEV!, DEV+1
PSABEG	DEV+6, COMPILE+1, PRINT+2, EXIT+2!, BDATE+4*, EDATE+2
PSABEGX	PRINT+2*, EXIT+2!, HDR+4, HDR+5
PSADATA	COMPILE+14, PRINT+9, EXIT+2!
PSADATE	COMPILE+1, COMPILE+2, COMPILE+3, COMPILE+5, EXIT+2!
PSAEND	DEV+6, COMPILE+2, PRINT+1, EXIT+2!, EDATE+3*
PSAENDX	PRINT+1*, EXIT+2!, HDR+4, HDR+5
PSAIEN	COMPILE+3*, COMPILE+4, COMPILE+5, COMPILE+6, COMPILE+7, COMPILE+12, COMPILE+13, COMPILE+14, EXIT+2!
PSAIEN1	COMPILE+4, COMPILE+5, COMPILE+6, COMPILE+7, COMPILE+12, COMPILE+13, COMPILE+14, EXIT+2!
PSAIN	COMPILE+7*, EXIT+2!
PSAINV	COMPILE+7, COMPILE+18, PRINT+8, PRINT+9, PRINT+10, EXIT+2!
PSAINVDT	COMPILE+7, COMPILE+15, COMPILE+18, PRINT+9*, PRINT+10, EXIT+2!
PSALINE	COMPILE+10, COMPILE+12, COMPILE+13, COMPILE+14, EXIT+3!
PSAORD	COMPILE+4, COMPILE+18, PRINT+5, PRINT+7, PRINT+8, PRINT+9, EXIT+3!
PSAOUT	PSAPV+8, COMPILE+1, COMPILE+2, COMPILE+3, COMPILE+5, COMPILE+12, EXIT+3!, BDATE+2, EDATE+1
PSAPG	PRINT+4, EXIT+3!, HDR+1, HDR+2, HDR+3
PSAPROC	COMPILE+7, COMPILE+8, COMPILE+11, COMPILE+16, COMPILE+18, PRINT+9*, PRINT+10, EXIT+3!
PSAPROCD	COMPILE+10, COMPILE+14, COMPILE+16, COMPILE+18, PRINT+9, PRINT+10, EXIT+3!
PSARUN	PRINT+3*, EXIT+3!, HDR+4
PSASLN	PRINT+4*, PRINT+12, EXIT+3!, HDR+1
PSAVER	COMPILE+7, COMPILE+9, COMPILE+11, COMPILE+17, COMPILE+18, PRINT+9*, PRINT+10, EXIT+3!
PSAVERD	COMPILE+10, COMPILE+14, COMPILE+17, COMPILE+18, PRINT+9, PRINT+10, EXIT+3!
X	COMPILE+1, PRINT+1!, PRINT+2!, EXIT+3!, BDATE+2, BDATE+3!, EDATE+1, EDATE+2!
X1	COMPILE+1*, EXIT+3!
X2	COMPILE+1*, EXIT+3!
Y	PRINT+1!, PRINT+2!, PRINT+4!, EXIT+3!, BDATE+2, BDATE+3!, BDATE+4, EDATE+1, EDATE+2!, EDATE+3
ZTDESC	DEV+4~, DEV+5*, EXIT+3!
ZTDTH	DEV+4~, EXIT+3!
ZTIO	DEV+4~, EXIT+3!
>> ZTQUEUED	EXIT+1
>> ZTREQ	EXIT+1*
ZTRTN	DEV+4~, DEV+5*, EXIT+3!
ZTSAVE	DEV+4~, EXIT+3!
ZTSAVE("PSABEG"	DEV+6*
ZTSAVE("PSAEND"	DEV+6*
ZTSK	DEV+4~, EXIT+3!

Customize PDF page

Package: Drug Accountability

Routine: PSAPV

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: