Routine: PSAPROC2

Package	Total	Call Graph
Drug Accountability	5	END^PSAPROC RECD^PSAPROC3 (,CHG,SEL)^PSAPROC6 (,GETLOC,MASTER)^PSAPROC9 (EDITDISP,SITES)^PSAUTL1
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIR

Package	Total	Caller Graph
Drug Accountability	1	PSAPROC1

Entry Points

Name	Comments	DBIA/ICR reference
STATUS
HDR	;Screen header
HDR1	;Screen header with hold
EDIT	;Extended help for 'edit any invoices'
AUTO	;Process line items
INV
CHK
SETINV	;Sets invoice to processed if okay.
HEADER	;Screen hold with header
SEL	;Extended help to 'Select invoices to process'
PROC
EDITINV	;Edits the invoice before placing in Processed status.
SELHELP	;Extended help to 'Select invoices to edit'

External References

Name	Field # of Occurrence
^DIR	INV+8, PROC+2, AUTO+26, EDITINV+15, HDR1+2, HEADER+2
END^PSAPROC	CHK+1, STATUS, STATUS+2
RECD^PSAPROC3	AUTO+10
^PSAPROC6	EDITINV+16
CHG^PSAPROC6	STATUS
SEL^PSAPROC6	PROC+3
^PSAPROC9	AUTO+18
GETLOC^PSAPROC9	SETINV+9
MASTER^PSAPROC9	SETINV+6
EDITDISP^PSAUTL1	AUTO+18
SITES^PSAUTL1	AUTO+7
$$FMTE^XLFDT	INV+5, AUTO+4, EDITINV+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!,"There are no invoices that need to be processed." Line Location: CHK+1
Function Call: WRITE	Prompt: !," More data is needed on the following invoices. Choose the invoices from",!," the list you want to edit.",!,PSASLN Line Location: INV+0
Function Call: WRITE	Prompt: !,PSASLN Line Location: INV+6
Function Call: WRITE	Prompt: ! Line Location: INV+7
Function Call: WRITE	Prompt: ! Line Location: PROC+0
Function Call: WRITE	Prompt: !,"Order#: "_$P(PSAIN,"^",4)_" Invoice#: "_$P(PSAIN,"^",2)_" Invoice Date: "_$$FMTE^XLFDT(+PSAIN),!,PSASLN Line Location: AUTO+4
Function Call: WRITE	Prompt: "Blank" Line Location: AUTO+8
Function Call: WRITE	Prompt: @IOF,!,"If you are changing the status of an invoice to Processed, this is the",!,"last time you will be allowed to edit it before it goes to the verifier." Line Location: AUTO+21
Function Call: WRITE	Prompt: !,"If you are not changing the status of an invoice to Processed, you can",!,"edit it now.",!!,"You can edit the invoice's delivery date, pharmacy location, master vault," Line Location: AUTO+22
Function Call: WRITE	Prompt: !,"and the line item's drug, quantity received, order unit, and dispense units",!,"per order unit. The reorder level can be edited if the pharmacy location or" Line Location: AUTO+23
Function Call: WRITE	Prompt: !,"master vault is set up to track the reorder levels.",! Line Location: AUTO+24
Function Call: WRITE	Prompt: @IOF,!?26,"<<< EDIT INVOICE SCREEN >>>" Line Location: EDITINV+5
Function Call: WRITE	Prompt: !!,"Choose the invoices to be edited. You can edit the invoice's date received and",!,"the line item's drug, quantity received, and order unit. The reorder and" Line Location: EDITINV+6
Function Call: WRITE	Prompt: !,"stock levels can be edited if the pharmacy location or master vault is set",!,"up to maintain the reorder levels.",!,PSASLN,! Line Location: EDITINV+7
Function Call: WRITE	Prompt: ! Line Location: EDITINV+14
Function Call: WRITE	Prompt: @IOF,!?19,"<<< EDIT INVOICES TO BE PROCESSED SCREEN >>>",! Line Location: HDR+1
Function Call: WRITE	Prompt: ! Line Location: HDR1+1
Function Call: WRITE	Prompt: @IOF,!?26,"<<< EDIT INVOICE SCREEN >>>",!!,PSASLN Line Location: HDR1+3
Function Call: WRITE	Prompt: ! Line Location: HEADER+1
Function Call: WRITE	Prompt: @IOF,!?19,"<<< EDIT INVOICES TO BE PROCESSED SCREEN >>>",!!,PSASLN Line Location: HEADER+3
Function Call: WRITE	Prompt: !!,"** The invoice has not been placed in a Processed status!" Line Location: STATUS+1
Function Call: WRITE	Prompt: !?5,"If you answer Yes, a list of the invoices you were able to process will",!?5,"be displayed. You will be able to select the invoices to be edited then" Line Location: EDIT+1
Function Call: WRITE	Prompt: !?5,"the line item numbers. You will be able to edit the date the invoice was",!?5,"received, drug, quantity, order unit, and dispense units per order unit." Line Location: EDIT+2
Function Call: WRITE	Prompt: !?5,"If the drugs are assigned to a pharmacy location or master vault that",!?5,"maintains reorder levels, you will also be able to edit the reorder and",!?5,"stock levels.",!!?5,"Enter No if the invoice are correct." Line Location: EDIT+3
Function Call: WRITE	Prompt: !?5,"Enter the number to the left of the invoice data that you want to process." Line Location: SEL+1
Function Call: WRITE	Prompt: !?5,"Enter the number to the left of the invoice data that you want to",!?5,"edit. The line items will be displayed for you to select the ones" Line Location: SELHELP+1
Function Call: WRITE	Prompt: !?5,"you want to edit. You are given this opportunity to edit the invoice",!?5,"because the automatic display may not catch all the needed corrections." Line Location: SELHELP+2
Function Call: WRITE	Prompt: !!?5,"For example, the quantity on the invoice may be 6, but one bottle may",!?5,"be broken. Six is a valid quantity that the automatic display will not" Line Location: SELHELP+3
Function Call: WRITE	Prompt: !?5,"realize as being incorrect. By answering Yes, you will be allowed to change",!?5,"the quantity to 5." Line Location: SELHELP+4
Routine Call	DIR Line Location: INV+8 PROC+2 AUTO+26 EDITINV+15 HDR1+2 HEADER+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	AUTO+5, AUTO+7
^XTMP("PSAPV"	INV+5, AUTO+2, AUTO+3, AUTO+13, AUTO+14, AUTO+15, AUTO+16, EDITINV+2, EDITINV+3, EDITINV+12 , SETINV+2, SETINV+3, SETINV+5, SETINV+6, SETINV+7, SETINV+8, SETINV+9*

Label References

Name	Line Occurrences
HDR	INV, AUTO+4
HDR1	EDITINV+10
HEADER	INV+3
SETINV	AUTO+19, EDITINV+15
STATUS	SETINV+2

Naked Globals

Name	Field # of Occurrence
^("IN"	EDITINV+3, SETINV+2, SETINV+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	INV+6!, INV+8!, PROC+2!, AUTO+26!, EDITINV+15!, HDR1+2!, HEADER+2!
DIR("?"	INV+7, PROC+1, AUTO+25, EDITINV+14
DIR("??"	INV+8, AUTO+26, EDITINV+15*
DIR("A"	INV+7, PROC, AUTO+25, EDITINV+14
DIR("B"	PROC, AUTO+25
DIR(0	INV+7, PROC, AUTO+25, EDITINV+14, HDR1+2, HEADER+2
>> DIRUT	INV+8, PROC+2, AUTO+26, HDR1+2, HEADER+2
>> DTOUT	EDITINV+15
>> DUOUT	EDITINV+15
IOF	CHK+1, AUTO+21, EDITINV+5, HDR+1, HDR1+3, HEADER+3
IOSL	INV+3, EDITINV+10
>> PSA	CHK*, CHK+1
>> PSACNT	INV+1, INV+4, INV+7, EDITINV+8, EDITINV+11, EDITINV+12, EDITINV+14
>> PSACOMB	AUTO+7
>> PSACS	AUTO+1, AUTO+15, SETINV+4, SETINV+7, SETINV+8, SETINV+9
>> PSACS(	SETINV+6*
>> PSACTRL	INV+4, INV+5, AUTO+1, AUTO+2, AUTO+3, AUTO+13, AUTO+14, AUTO+15, AUTO+16, EDITINV+1* , EDITINV+2, EDITINV+3, EDITINV+11, EDITINV+12, SETINV+2, SETINV+3, SETINV+5, SETINV+6, SETINV+7, SETINV+8 , SETINV+9
>> PSADATA	AUTO+14, AUTO+15, AUTO+16, AUTO+17
PSAERR	EDITINV+1!, EDITINV+3
PSAERR(	INV+2, INV+4, AUTO+1, EDITINV+3*, EDITINV+9, EDITINV+11
PSAERR(0	CHK
>> PSAIEN	AUTO+17*
>> PSAIN	AUTO+3*, AUTO+4, AUTO+5, AUTO+6, AUTO+10
>> PSAINV	INV+4, INV+5, EDITINV+11, EDITINV+12
>> PSAKK	HDR1+1, HEADER+1
>> PSALINE	AUTO+13*, AUTO+14, AUTO+15, AUTO+16
>> PSALINES	AUTO+1, AUTO+15, STATUS
>> PSALLSUP	AUTO+1*, SETINV+2, STATUS
>> PSALNCNT	AUTO+1, AUTO+14, SETINV+2, SETINV+7, SETINV+8, STATUS
>> PSALOC	AUTO+3*, AUTO+7, AUTO+8
>> PSALOCN	AUTO+7*, AUTO+9
>> PSAMENU	INV+1, INV+2, INV+4, INV+5, AUTO+1, EDITINV+8, EDITINV+9*, EDITINV+11
>> PSAMV	AUTO+3*, AUTO+5
>> PSANDC	AUTO+17*
>> PSAOK	SETINV+1, SETINV+2, SETINV+6, SETINV+9, STATUS
>> PSAORD	INV+4, INV+5, EDITINV+11, EDITINV+12
>> PSAOUT	INV+2, INV+8, PROC+2, AUTO+1, AUTO+10, AUTO+13, AUTO+19, AUTO+20, AUTO+26, EDITINV+1 , EDITINV+9, EDITINV+15*, SETINV+4, SETINV+6, SETINV+9
>> PSAPASS	AUTO+14*
>> PSAPC	AUTO+1*
>> PSARECD	AUTO+10*
>> PSASEL	INV+9, AUTO+1, EDITINV+16
>> PSASLN	INV, INV+6, AUTO+4, EDITINV+7, HDR1+3, HEADER+3
>> PSASS	HDR1+1, HEADER+1
PSASTOP	INV+1, INV+2, INV+3, INV+6!, EDITINV+8, EDITINV+9, EDITINV+10, EDITINV+13!, HDR1+2, HEADER+2
>> PSASUB	AUTO+17*
>> PSASUPP	AUTO+14*
>> PSAVSN	AUTO+17*
>> Y	INV+9, PROC+3, AUTO+26, EDITINV+15, EDITINV+16

Customize PDF page

Package: Drug Accountability

Routine: PSAPROC2

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: