Routine: PSAORDP

Package	Total	Call Graph
VA FileMan	4	DD^%DT NOW^%DTC ^DIC ^DIR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Drug Accountability	2	^PSAORDP1 START^PSAUP4

Package	Total	Caller Graph
Drug Accountability	1	PSA PRINT ORDERS

Name	Comments	DBIA/ICR reference
START
DQ
EXIT
INVOICE	;Prompts for order and invoice
INV	;Select invoice from 58.811
INVXTMP	;Select invoice from XTMP
INVBOTH	;Select invoice from XTMP & 58.811
PRTINV	;Loops thru orders & invoices to print invoices
ORDER	;Select order
PRTORD	;Loops thru invoices to print all for one order
STATUS	;Select status
PRTSTA	;Sets up printing & prints Unprocessed invoices
PROCESS	;Prints Processed invoices
ORDHELP	;Extended help to Select Order
ORDIHELP	;Extended help to Select Invoice's Order
SELHELP	;Extended help to Print by Order#, Invoice#, or Invoice Status
STATHELP	;Extended help for Enter Status

Name	Field # of Occurrence
DD^%DT	PRTINV+8, PRTORD+5, PRTSTA+4
NOW^%DTC	PRTINV+8, PRTORD+5, PRTSTA+4
^%ZIS	START+4
^%ZISC	EXIT
^%ZTLOAD	START+8
^DIC	INV+2
^DIR	START, INVOICE+2, INVXTMP+2, INVBOTH+2, ORDER+2, STATUS+2
^PSAORDP1	PRTINV+4, PRTORD+7, PROCESS+7
START^PSAUP4	PRTINV+9, PRTORD+6, PRTSTA+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You do not hold the key to enter the option." Line Location: PSAORDP+6
Function Call: WRITE	Prompt: !! Line Location: START+0
Function Call: WRITE	Prompt: ! Line Location: START+4
Function Call: WRITE	Prompt: !,PSASLN Line Location: INVOICE+2
Function Call: WRITE	Prompt: !,"Invoice# "_PSAINVBH Line Location: INVOICE+15
Function Call: WRITE	Prompt: !,"Invoice# "_PSAINVH Line Location: INVOICE+18
Function Call: WRITE	Prompt: !,PSAORDB_" is an invalid order number." Line Location: INVOICE+21
Function Call: WRITE	Prompt: ! Line Location: ORDER+2
Function Call: WRITE	Prompt: !,Y_" is an invalid order number." Line Location: ORDER+9
Function Call: WRITE	Prompt: ! Line Location: STATUS+1
Function Call: WRITE	Prompt: !!,"There are no invoices with the status of Processed." Line Location: STATUS+4
Function Call: WRITE	Prompt: !!,"There are no invoices with the status of Unprocessed." Line Location: STATUS+7
Function Call: WRITE	Prompt: !?5,"Enter the order number assigned to the order to be print." Line Location: ORDHELP+1
Function Call: WRITE	Prompt: !?5,"Enter the invoice's order number to be print. The invoice number ",!?5,"prompt will follow." Line Location: ORDIHELP+1
Function Call: WRITE	Prompt: !?5,"To print all invoices for a specific order, select Order Number.",!?5,"To print a specific invoice, select Invoice Number. To print all" Line Location: SELHELP+1
Function Call: WRITE	Prompt: !?5,"invoices with an unprocessed or processed status, select Invoice",!?5,"Status." Line Location: SELHELP+2
Function Call: WRITE	Prompt: !?5,"Enter U to print all uploaded invoices that have not been processed.",!?5,"Enter P to print all processed invoices that have not been verified." Line Location: STATHELP+1
Routine Call	DIC Line Location: INV+2
Routine Call	DIR Line Location: START INVOICE+2 INVXTMP+2 INVBOTH+2 ORDER+2 STATUS+2
Routine Call	%ZIS Line Location: START+4

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.811 - [#58.811]	INVOICE+7, INVOICE+8, INVBOTH+6, ORDER+6, PRTORD+7, STATUS+4, PROCESS+5, PROCESS+6, PROCESS+7
^XTMP("PSAPV"	INVOICE+11, INVOICE+12, ORDER+7, PRTORD+3, PRTORD+4, PRTORD+6, STATUS+6, PRTSTA+2, PRTSTA+3
^XUSEC("PSA ORDERS"	PSAORDP+6

Name	Line Occurrences
EXIT	START+2, START+3, START+4, START+5, DQ+1, DQ+2, PRTORD+8, PROCESS+8
INV	INVOICE+16
INVBOTH	INVOICE+20
INVOICE	START+2
INVXTMP	INVOICE+19
ORDER	START+2
PROCESS	PRTSTA+1
PRTINV	DQ+2
PRTORD	DQ+1
PRTSTA	DQ+3
STATUS	START+2, STATUS+4, STATUS+5

Name	Field # of Occurrence
^("IN"	INVOICE+12, STATUS+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT+1!, PRTINV+8, PRTORD+5, PRTSTA+4
%ZIS	START+4*, EXIT+1!
DA	EXIT+1!
DA(1	INV+2*
DIC	EXIT+1!, INV+2*!
DIC("A"	INV+2*
DIC(0	INV+2*
DIR	START!, INVOICE+2!, INVXTMP+2!, INVBOTH+2!, ORDER+2!, STATUS+2!
DIR("?"	INVOICE+2, ORDER+2
DIR("??"	START, INVOICE+2, ORDER+2, STATUS+1
DIR("A"	START, INVOICE+2, INVXTMP+2, INVBOTH+2, ORDER+2, STATUS+1
DIR("B"	START*
DIR(0	START, INVOICE+2, INVXTMP+2, INVBOTH+2, ORDER+2, STATUS+1
>> DIRUT	START+1, STATUS+2
DTOUT	EXIT+1!, INVOICE+3, INV+3, INVXTMP+3, INVBOTH+3, ORDER+3
DUOUT	EXIT+1!, INVOICE+3, INV+3, INVXTMP+3, INVBOTH+3, ORDER+3
DUZ	PSAORDP+6
IO("Q"	START+5, EXIT!
IOF	EXIT
IOM	PRTINV+6, PRTSTA+4
IOST	EXIT
>> POP	START+4
PSA	EXIT+1!
PSA(	INVOICE+12*, INVBOTH+8, PRTINV+7
PSAAECST	EXIT+1!
PSABY	EXIT+1!
PSACIEN	EXIT+1!
PSACNT	EXIT+1!, INVOICE+1, INVOICE+8, INVOICE+14, INVOICE+15, INVOICE+16, INVOICE+17, INVOICE+20, INV+1, INV+5 , INV+6, STATUS+5, STATUS+6*, STATUS+7
PSACTRL	EXIT+1!, INVOICE+10, INVOICE+11, INVOICE+12, INVOICE+18, INVBOTH+8, PRTINV+6, PRTINV+7, ORDER+7, PRTORD+3 , PRTORD+4, PRTORD+6, STATUS+6, PRTSTA+2, PRTSTA+3
PSACTRLH	EXIT+1!, INVOICE+12*, INVOICE+18, INVXTMP+6
PSADATA	EXIT+1!
PSADEC	EXIT+1!
PSADJDRG	EXIT+1!, PRTINV+8, PRTORD+5, PRTSTA+4*
PSADJSUP	EXIT+1!
PSADLN	EXIT+1!, PRTINV+8, PRTORD+5, PRTSTA+4*
PSADONE	EXIT+1!, INVOICE+1, INVOICE+10, INVOICE+11, INV+1, INV+2, INV+4, INVXTMP+1, INVXTMP+2, INVXTMP+4 , INVBOTH+1, INVBOTH+2, INVBOTH+5, ORDER+1, ORDER+2, ORDER+5, ORDER+7, ORDER+8
PSADRG	EXIT+1!
PSADS	EXIT+1!
PSAECOST	EXIT+2!
PSAEND	EXIT+2!
PSAFIN	EXIT+2!, INVOICE+1, INVOICE+2, INVOICE+4
PSAFIRST	EXIT+2!, INVXTMP+1*
PSAFPG	EXIT+2!, PRTINV+8, PRTORD+5, PRTSTA+4*
PSAICOST	EXIT+2!
PSAIECST	EXIT+2!
PSAIN	EXIT+2!
PSAINV	EXIT+2!, INVOICE+8, INVXTMP+5, INVBOTH+6, INVBOTH+7, PRTINV+3, PRTINV+6, PRTINV+7, PRTORD+6, PRTORD+7 , PROCESS+6*, PROCESS+7
PSAINVB	EXIT+2!, INVOICE+7, INVOICE+8, INVOICE+12, INVBOTH+6, INVBOTH+8, INVBOTH+9, PRTORD+7, PROCESS+7
PSAINVBH	EXIT+2!, INVOICE+8*, INVOICE+15
PSAINVH	EXIT+2!, INVOICE+8, INVOICE+12, INVOICE+15, INVOICE+18
PSALINE	EXIT+2!
PSANDC	EXIT+2!
PSAORD	EXIT+2!, INVOICE+1!, INVOICE+7, INVOICE+8, INVOICE+15, INV+2, INV+5, INV+6, INVBOTH+6, INVBOTH+7 , PRTINV+2, PRTINV+3, PRTINV+4, ORDER+1!, PRTORD+2, PRTORD+3, PRTORD+7, PROCESS+5, PROCESS+6, PROCESS+7
PSAORD(	INVOICE+15, INVOICE+18, INVOICE+21, INV+5, INV+6, INVXTMP+6, INVXTMP+7, INVBOTH+7, INVBOTH+8, PRTINV+1 , PRTINV+2, PRTINV+3, ORDER+6, ORDER+7, ORDER+9, PRTORD+1, PRTORD+2
PSAORD(""	START+3
PSAORDB	EXIT+2!, INVOICE+3, INVOICE+4, INVOICE+5, INVOICE+7, INVOICE+12, INVOICE+15, INVOICE+18, INVOICE+21, INV+5 , INV+6, INVXTMP+6, INVXTMP+7, INVBOTH+7, INVBOTH+8, PRTINV+1, PRTINV+2, PRTINV+3, PRTINV+7, PRTORD+1* , PRTORD+2, PRTORD+4, PROCESS+7*
PSAOUT	START+1, START+2, DQ, EXIT+2!, INVOICE+2, INVOICE+3, INVOICE+10, INVOICE+13, INV+2, INV+3 , INVXTMP+2, INVXTMP+3, INVBOTH+2, PRTINV+1, PRTINV+2, PRTINV+3, ORDER+2, ORDER+3, PRTORD+1, PRTORD+2 , PRTORD+3, PRTORD+7, STATUS+2*, PRTSTA+2, PROCESS+5, PROCESS+6
PSAPAGE	EXIT+2!, PRTINV+8, PRTORD+5, PRTSTA+4*
PSAPC	EXIT+2!, PRTINV+3*
PSAPRT	START+1*, START+2, START+3, DQ+1, DQ+2, DQ+3, EXIT+2!
PSARUN	EXIT+2!, PRTINV+8, PRTORD+5, PRTSTA+4*
PSAS	EXIT+3!
PSASAVE	START+7*, EXIT+3!
PSASLN	EXIT+3!, INVOICE+1, INVOICE+2, PRTINV+8, PRTORD+5, PRTSTA+4
PSASS	EXIT+3!
PSAST	EXIT+3!
PSASTA	EXIT+3!, STATUS+3*, STATUS+4, STATUS+5, PRTSTA+1
PSASUB	EXIT+3!
PSATOT	EXIT+3!
PSAXCNT	EXIT+3!, INVOICE+1, INVOICE+12, INVOICE+14, INVOICE+17, INVOICE+18, INVOICE+19, INVOICE+20, INVXTMP+1, INVXTMP+6 , INVXTMP+7, INVBOTH+3*
X	EXIT+3!, ORDER+4, ORDER+5, ORDER+9
>> Y	START+1, INVOICE+3, INV+4, INV+5, INV+6, INVXTMP+4, INVXTMP+5, INVXTMP+6, INVXTMP+7, INVBOTH+4 , INVBOTH+5, INVBOTH+6, PRTINV+8, ORDER+6, ORDER+7, ORDER+9, PRTORD+5, STATUS+3, PRTSTA+4*
ZTDESC	START+6*, EXIT+3!
>> ZTQUEUED	EXIT
>> ZTREQ	EXIT*
ZTRTN	START+6*, EXIT+3!
ZTSAVE	EXIT+3!
ZTSAVE(	START+7*
ZTSAVE("PSAORD("	START+8*

Customize PDF page

Package: Drug Accountability

Routine: PSAORDP

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: