Routine: PSABRKU4

Information

PSABRKU4 ;BIR/JMB-Upload and Process Prime Vendor Invoice Data - CONT'D ;7/23/97

Source Information

Source file <PSABRKU4.m>

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
Drug Accountability	1	SETMSG^PSABRKU8
VA Fileman	1	C^%DTC

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Drug Accountability	1	PSABRKU1

Entry Points

Name	Comments	DBIA/ICR reference
PRT2	;Extended help to second "Print invoices?"
DUPLICAT	;
YNPROCES	;Extended help to "Do you want to process the invoices now?"
KILLDUP
DATES	;PSA312 Check for Y2K compliance of dates
DAV
CHKDUP	;Checks for duplicate orders & invoices and duplicates in XTMP.
YNPRINT	;Extended help to "Print invoices?"
YNUPLOAD	;Extended help to "Are you ready to upload the prime vendor invoice data?"
XTMP	;This modules copies the prime vendor data in ^TMP($J,"PSAPV SET") to

External References

Name	Field # of Occurrence
C^%DTC	XTMP+3
SETMSG^PSABRKU8	CHKDUP+3, CHKDUP+4, CHKDUP+17, CHKDUP+18, CHKDUP+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"Enter YES to print all invoices that are not processed and",!?5,"the invoices that were processed while you were in this option.",!!?5,"Enter NO to exit the option." Line Location: PRT2+1
Function Call: WRITE	Prompt: !?5,"Enter YES to print the uploaded invoices. You",!?5,"can check the invoices prior to processing them.",!!?5,"Enter NO to not print the invoices." Line Location: YNPRINT+1
Function Call: WRITE	Prompt: !?5,"Enter YES to begin processing the uploaded invoices.",!!?5,"Enter NO if you do not want to process the invoices now. You can process" Line Location: YNPROCES+1
Function Call: WRITE	Prompt: !?5,"them later by selecting the ""Process Uploaded Prime Vendor Invoice Data"" option." Line Location: YNPROCES+2
Function Call: WRITE	Prompt: !?5,"Enter YES to start uploading the invoices.",!?5,"Enter NO or ""^"" to exit the option." Line Location: YNUPLOAD+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.811 - [#58.811]	CHKDUP+7, CHKDUP+10, CHKDUP+11, CHKDUP+12, CHKDUP+13, CHKDUP+14
^TMP($J	DUPLICAT+3, DAV+1, DAV+4, DAV+6, DAV+7!, DAV+9, DAV+11, DAV+13*, DAV+14, DAV+15 , DAV+16!, CHKDUP+5!, KILLDUP+1!
^XTMP("PSAPV"	XTMP+3, XTMP+4, XTMP+7, XTMP+8, XTMP+9, XTMP+11!, DAV+1, DAV+2, DAV+9, DAV+14* , DAV+15, DAV+17!, DAV+18, KILLDUP+1!, DATES+2, DATES+5, DATES+6, DATES+7*

Label References

Name	Line Occurrences
CHKDUP	DAV+8
DATES	DAV+10

Naked Globals

Name	Field # of Occurrence
^("IN"	DAV+1, DAV+11

Local Variables

Name	Field # of Occurrence
>> DATA	DAV+1*
>> DATECHK	DATES+1, DATES+2, DATES+3
DT	XTMP+3, XTMP+4, DATES+4, DATES+5, DATES+6, DATES+7
DT1	DATES+5*, DATES+8!
LWRDT	DATES+4*, DATES+5, DATES+8!
PSACHKR	DAV+1*, DAV+2!
>> PSACTRL	XTMP+7, XTMP+8, XTMP+9, XTMP+11, DUPLICAT+2, DUPLICAT+3*, DAV+1, DAV+4, DAV+6, DAV+7 , DAV+9, DAV+11, DAV+14, DAV+15, DAV+16, CHKDUP+5, KILLDUP+1
>> PSADT	CHKDUP+14, CHKDUP+16, CHKDUP+17, CHKDUP+18
>> PSADUP	DUPLICAT+2, DAV+4, DAV+8, CHKDUP+1, KILLDUP
>> PSADUP(	XTMP+12*, CHKDUP+1
>> PSAGUI2(	DAV+12*
>> PSAGUI3(	DAV+12*
>> PSAGUI4	DAV+15*
>> PSAIN	XTMP+9, XTMP+11, XTMP+12, DAV+6, DAV+7, CHKDUP+1, CHKDUP+2, CHKDUP+7, CHKDUP+10, CHKDUP+13*
>> PSAINV	DAV+11, DAV+12, DAV+13, CHKDUP+10, CHKDUP+11, CHKDUP+15
>> PSAINVDT	DAV+11*
>> PSAINVN	CHKDUP+11*, CHKDUP+12, CHKDUP+13, CHKDUP+14
>> PSALINE	DAV+15, CHKDUP+14
>> PSAORD	DAV+11, DAV+12, DAV+13, CHKDUP+10, CHKDUP+15
>> PSAORDDT	DAV+11*
>> PSAORDN	CHKDUP+10*, CHKDUP+11, CHKDUP+12, CHKDUP+13, CHKDUP+14
>> PSAPC	CHKDUP+13*, CHKDUP+14
>> PSASEG	DAV+4*, DAV+5, DAV+6, DAV+9, DAV+14, DAV+15
>> PSASET	DUPLICAT+3, DAV+1, DAV+2, DAV+9, DAV+14, DAV+15, DAV+17, KILLDUP+1, DATES+2, DATES+5 , DATES+6, DATES+7
>> PSASTA	CHKDUP+1, CHKDUP+3, CHKDUP+4, CHKDUP+13, CHKDUP+17, CHKDUP+18, CHKDUP+19
UPPRDT	DATES+4*, DATES+5, DATES+8!
X	XTMP+4, DATES+2, DATES+6, DATES+7*, DATES+8!
>> X1	XTMP+3*
>> X12	CHKDUP+2, CHKDUP+3, CHKDUP+4, CHKDUP+15, CHKDUP+17, CHKDUP+18, CHKDUP+19*
>> X2	XTMP+3*
XX	DATES+2, DATES+6, DATES+7*, DATES+8!
XXX	DATES+2, DATES+6, DATES+8!
Y	DATES+5*, DATES+8!

Customize PDF page

Package: Drug Accountability

Routine: PSABRKU4

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed