Routine: PSAPROC1

Call Graph Total: 10

Package	Total	Call Graph
Drug Accountability	8	END^PSAPROC ^PSAPROC2 (DUOU,RECD,SETLINE)^PSAPROC3 SUPPLY^PSAPROC6 ^PSAPROC7 (DU,DUOU,PRICE,REORDER,STOCK)^PSAPROC8 (GETLOC,MASTER)^PSAPROC9 DISPLAY^PSAUTL1
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIR

Package

Total

Call Graph

END^PSAPROC ^PSAPROC2 (DUOU,RECD,SETLINE)^PSAPROC3 SUPPLY^PSAPROC6 ^PSAPROC7 (DU,DUOU,PRICE,REORDER,STOCK)^PSAPROC8 (GETLOC,MASTER)^PSAPROC9 DISPLAY^PSAUTL1

Kernel

$$FMTE^XLFDT

VA Fileman

^DIR

Package	Total	Caller Graph
Drug Accountability	1	PSAPROC

Package

Total

Caller Graph

Drug Accountability

PSAPROC

Entry Points

Name	Comments	DBIA/ICR reference
NCS
OK	;Sets okay array
HDR	;Header for editing line items with missing data
EDIT	;Edit error free invoices
CHK	;Check for invoices with a status of "OK" (uploaded & error free)
HEADER
NOERROR	;Display list of invoices that can be processed by selecting
CS
PROCESS	;Get date recd & line item data
SEL	;Extended help to 'Select invoices'
INVSEL
PROC2

External References

Name	Field # of Occurrence
^DIR	NOERROR+13, HEADER+1
END^PSAPROC	NCS+4
^PSAPROC2	CHK+14, PROC2
DUOU^PSAPROC3	PROCESS+10
RECD^PSAPROC3	PROCESS+2
SETLINE^PSAPROC3	PROCESS+15
SUPPLY^PSAPROC6	PROCESS+1
^PSAPROC7	NCS+2
DU^PSAPROC8	PROCESS+9
DUOU^PSAPROC8	PROCESS+10
PRICE^PSAPROC8	PROCESS+11
REORDER^PSAPROC8	PROCESS+14
STOCK^PSAPROC8	PROCESS+13
GETLOC^PSAPROC9	NCS
MASTER^PSAPROC9	CS+2
DISPLAY^PSAUTL1	PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+13, PROCESS+14
$$FMTE^XLFDT	NOERROR+10, HDR+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?21,"<<< PROCESS ENTIRE INVOICE SCREEN >>>" Line Location: NOERROR+2
Function Call: WRITE	Prompt: !!?2,"No errors have been detected on the following invoices. If there are no",!?2,"corrections, you can change the invoices' status to ""Processed"" by" Line Location: NOERROR+3
Function Call: WRITE	Prompt: !?2,"selecting them from the list. If you do have corrections, press the return",!?2,"key then a second list will be displayed. You will be able to choose the",!?2,"invoices from that list and enter corrections." Line Location: NOERROR+4
Function Call: WRITE	Prompt: !!?2,"Choose the invoices from the list you want to process.",!,PSADLN Line Location: NOERROR+5
Function Call: WRITE	Prompt: !,PSADLN Line Location: NOERROR+11
Function Call: WRITE	Prompt: ! Line Location: NOERROR+12
Function Call: WRITE	Prompt: ! Line Location: HEADER+0
Function Call: WRITE	Prompt: @IOF,!?21,"<<< PROCESS ENTIRE INVOICE SCREEN >>>",!!,PSADLN Line Location: HEADER+2
Function Call: WRITE	Prompt: !!,"The invoice status has been changed to Processed!" Line Location: NCS+2
Function Call: WRITE	Prompt: !!,"** The invoice has not been placed in a Processed status!" Line Location: NCS+3
Function Call: WRITE	Prompt: @IOF,!?21,"<<< PROCESS ENTIRE INVOICE SCREEN >>>",!,"Order#: "_$P(PSAIN,"^",4)_" Invoice#: "_$P(PSAIN,"^",2)_" Invoice Date: "_$$FMTE^XLFDT(+PSAIN),!,PSADLN Line Location: HDR+2
Function Call: WRITE	Prompt: !?5,"Enter the number to the left of the invoice data that you want to process." Line Location: SEL+1
Routine Call	DIR Line Location: NOERROR+13 HEADER+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	PROCESS+12, PROCESS+13, PROCESS+14
^PSDRUG - [#50]	PROCESS+9, PROCESS+10, PROCESS+11
^XTMP("PSAPV"	CHK+3, CHK+5, CHK+6, NOERROR+10, INVSEL+1, INVSEL+2, EDIT+2, EDIT+3, PROCESS+3, PROCESS+6 , PROCESS+15, CS+1, CS+2, CS+3, CS+4, NCS, NCS+2*, OK+1

Name	Line Occurrences
EDIT	NOERROR+13
HDR	PROCESS+1, PROCESS+2, PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+13, PROCESS+14
HEADER	NOERROR+8
OK	CHK+8, CHK+9, CHK+10
PROC2	INVSEL+4
PROCESS	INVSEL+3

Name	Field # of Occurrence
^("IN"	EDIT+2, EDIT+3, NCS*, OK+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	NOERROR+13!, HEADER+1!
DIR("?"	NOERROR+12*
DIR("??"	NOERROR+13*
DIR("A"	NOERROR+12*
DIR(0	NOERROR+12, HEADER+1
>> DIRUT	NOERROR+13, HEADER+1
IOF	NOERROR+2, HEADER+2, HDR+2
IOSL	NOERROR+8
PSA	CHK+2!, CHK+13, CHK+14, INVSEL, INVSEL+1, EDIT+1*, EDIT+2, EDIT+3
>> PSACNT	NOERROR+6, NOERROR+9, NOERROR+12
>> PSACNTER	CHK+2, CHK+11, CHK+12, EDIT+3
>> PSACNTOK	CHK+2, OK+1
PSACS	PROCESS+2, PROCESS+15, CS, CS+2!, CS+3, CS+4, NCS
PSACS(	CS+2*
>> PSACTRL	CHK+2, CHK+3, CHK+5, CHK+6, CHK+11, CHK+12, NOERROR+9, NOERROR+10, INVSEL+1, INVSEL+2 , PROCESS+3, PROCESS+6, PROCESS+15, CS+1, CS+2, CS+3, CS+4, NCS, NCS+2, OK+1
>> PSADATA	PROCESS+6*, PROCESS+7, PROCESS+8, PROCESS+11, PROCESS+13, PROCESS+14
>> PSADISP	PROCESS+5*, PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+13, PROCESS+14
>> PSADLN	NOERROR+5, NOERROR+11, HEADER+2, HDR+2
>> PSADU	PROCESS+5*
>> PSAERR(	CHK+11, CHK+12, EDIT+3*
>> PSAERR(0	PROC2
>> PSAHDR	PROCESS+5, PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+13, PROCESS+14, HDR+1
>> PSAIEN	PROCESS+6*, PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+13, PROCESS+14
>> PSAIN	CHK+6, CHK+7, CHK+8, CHK+9, CHK+10, CHK+11, CHK+12, INVSEL+2, PROCESS+1, PROCESS+7 , HDR+2
>> PSAINV	NOERROR+9*, NOERROR+10
>> PSAKK	HEADER*
>> PSALINE	PROCESS+2, PROCESS+3, PROCESS+6, PROCESS+15
>> PSALINES	INVSEL+2*, NCS+2
>> PSALNCNT	PROCESS+2, PROCESS+5, CS+3, CS+4, NCS+2
>> PSALOC	PROCESS+8*, PROCESS+12, PROCESS+13, PROCESS+14
>> PSAMENU	NOERROR+6, NOERROR+7, NOERROR+9, NOERROR+10
PSAMV	PROCESS+4!, PROCESS+7*, PROCESS+8
PSAOK	CHK+2!, PROCESS+16, CS+2, NCS*
PSAOK(	NOERROR+7, NOERROR+9, INVSEL+1, EDIT+1, EDIT+2, EDIT+3, NCS+2!, OK+1*
PSAOK(0	CHK+13, INVSEL+4
>> PSAORD	NOERROR+9*, NOERROR+10
>> PSAOUT	NOERROR+7, NOERROR+13*, INVSEL, INVSEL+4, PROCESS+2, PROCESS+3, PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+12 , PROCESS+13, CS, CS+2, NCS
>> PSAPC	INVSEL*
PSAPHARM	PROCESS+4!, PROCESS+7*, PROCESS+8
>> PSARECD	INVSEL+2*
>> PSASEL	NOERROR+14*, INVSEL
>> PSASORT	CHK+5
>> PSASS	HEADER*
PSASTOP	NOERROR+6, NOERROR+7, NOERROR+8, NOERROR+11!, HEADER+1
>> PSASUB	PROCESS+6*, PROCESS+10, PROCESS+11
>> Y	NOERROR+13, NOERROR+14

Customize PDF page

Package: Drug Accountability

Routine: PSAPROC1

Information

Source Information