Routine: PSAPTCH

Package	Total	Call Graph
VA Fileman	1	^%DT

Package

Total

Call Graph

VA Fileman

^%DT

Package	Total	Caller Graph
Drug Accountability	2	PSA DELETE INVOICES PSAPROC

Package

Total

Caller Graph

Drug Accountability

PSA DELETE INVOICES PSAPROC

Name	Field # of Occurrence
^%DT	ASKDT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!," WARNING ",!!,"P.O. Number : ",PSAUPORD,!,"Invoice Number : ",PSAUPINV,! Line Location: 1+11
Function Call: WRITE	Prompt: !,"Incoming",?40,"Already Marked as "_" * "_PSASTAS_" *",!,"Invoice file",?40,"in Drug Accountability Order file",! Line Location: 1+18
Function Call: WRITE	Prompt: "=" Line Location: 1+18
Function Call: WRITE	Prompt: !,PSAUPDT2,?16," <-- Order Date --> ",?40,Y Line Location: 1+19
Function Call: WRITE	Prompt: !,PSAUPDT1,?15," <-- Invoice Date --> ",?40,Y Line Location: 1+20
Function Call: WRITE	Prompt: !,?3,$J($G(INVCNT),8),?16," <-- Line Items -->",?40,$G(PSDCNT),!! Line Location: CHECK+0
Function Call: READ	Prompt: "Do you want to compare item? NO// " Formatting: ! Timeout: DTIME Variable: AN Line Location: CMPRE+0
Function Call: WRITE	Prompt: !,"Answer 'Y'es to display the items from the invoice file, as well as the items",!,"already uploaded.",! Line Location: CMPRE+1
Function Call: READ	Prompt: "Do you want to delete the incoming invoice ? NO// " Formatting: !! Timeout: DTIME Variable: AN Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Answer 'Y'es, and the incoming invoice will be deleted.",! Line Location: ASK+1
Function Call: WRITE	Prompt: !,"Sorry, there aren't any invoices on file." Line Location: PSAOLD+1
Function Call: WRITE	Prompt: !,"Sorry, the date has to be in the past." Line Location: ASKDT+1
Function Call: WRITE	Prompt: "." Line Location: ASKDT+7
Function Call: WRITE	Prompt: !,"Finished" Line Location: ASKDT+8

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	1+7, 1+8, 1+19, 1+20
^PSD(58.811 - [#58.811]	1+10, 1+13, 1+14, 1+15, 1+17, 1+19, 1+20, CMPRE+4
^XTMP("PSAPV"	1+4!, 1+5!, 1+6!, 1+9, CMPRE+3, ASK+3!, PSAOLD+1, ASKDT+4, ASKDT+6, ASKDT+7!

Name	Line Occurrences
ASK	CMPRE, CMPRE+2, ASK+1
ASKDT	ASKDT+1
CMPRE	CMPRE+1
Q	PSAPTCH+5, 1+10, ASK, ASK+2, PSAOLD+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	ASKDT*
>> %DT("A"	ASKDT*
AN	CMPRE, CMPRE+1, CMPRE+2, ASK*, ASK+1, ASK+2, ASK+3, Q!
CS	Q!
CSCNT	Q!
CSIEN	Q!
CSINV	1+12!, Q!
DATA	CMPRE+3, CMPRE+4, Q!, ASKDT+4*, ASKDT+5
DT	ASKDT+1
DTIME	CMPRE, ASK
FOUND	Q!
INV	Q!
INV(	1+9*
INVCNT	1+9*, CHECK, Q!
INVDEL	Q!
INVIEN	1+12!, 1+14*, 1+15, 1+17, 1+19, 1+20, CMPRE+4, Q!
INVITM	1+9*, Q!
IOF	1+11
IOM	1+18
LINEITM	Q!
ORDIEN	1+12!, 1+13*, 1+14, 1+15, 1+17, 1+19, 1+20, CMPRE+4, Q!
PSACTRL	1+4, 1+5, 1+6, 1+9, CMPRE+3, ASK+3, ASKDT+4*, ASKDT+6, ASKDT+7, ASKDT+8!
>> PSAIN	1+2, 1+3, 1+6, 1+7, 1+8
>> PSAINVDL	1+4, 1+5, 1+6, ASK+3
PSAINVDT	ASKDT+6*, ASKDT+7, ASKDT+8!
>> PSAITM(	CMPRE+3*
PSAKLDT	ASKDT+2*, ASKDT+7, ASKDT+8!
PSAORD	1+12!, Q!
>> PSASTAS	1+17*, 1+18
PSAUPDT1	1+7*, 1+20, Q!
PSAUPDT2	1+8*, 1+19, Q!
PSAUPINV	1+3*, 1+5, 1+10, 1+11, 1+13, 1+14, Q!
>> PSAUPITM(	CMPRE+4*
PSAUPORD	1+2*, 1+4, 1+10, 1+11, 1+13, 1+14, Q!
PSDCNT	1+15*, CHECK, Q!
X	1+15, 1+18, CMPRE+3, CMPRE+4, Q!
XX	Q!
Y	1+7, 1+8, 1+19, 1+20, Q!, ASKDT+1!, ASKDT+2

Customize PDF page

Package: Drug Accountability

Routine: PSAPTCH

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
Q
ASKDT
1	;Check for uploaded CS invoice
CMPRE
ASK
PSAOLD	;Entry point for deleting old invoices
CHECK