Routine: PSAPROC

Package	Total	Call Graph
Drug Accountability	4	^PSAPROC1 ^PSAPTCH PRINT2^PSAUP SITES^PSAUTL1
Kernel	2	$$FMTE^XLFDT SIG^XUSESIG
VA Fileman	1	^DIR

Package	Total	Caller Graph
Drug Accountability	13	PSA PROCESS PRIME VENDOR DATA PSACOST PSACREDO PSALEVRP PSAMON PSAPROC1 PSAPROC2 PSAPROC6 PSAPROC9 PSAUP PSAVER1 PSAVER3 PSAVER4

Entry Points

Name	Comments	DBIA/ICR reference
EXIT	;Kills processing variables
LOC	;Gets pharmacy locations
CNT	;Count invoices that need a pharm location or master vault assigned.
END	;Holds screen
HDR
MV	;Extended help for the select "Master Vault" prompt
MANY	;If more than one pharmacy location, display invoices.
NONE	;No DA pharmacy locations
ONE	;Only one location
DAVE	;Select division
DISPMV	;Displays active master vaults
ESIG
DISPLOC	;Displays the active pharmacy locations.
MASTER	;Assigns invoice to Master Vault
SELMV	;Select displayed master vaults
SELECT	;Select the Pharmacy Location to be assigned to the order.
PHARM	;Extended help for the select "Pharmacy Location" prompt

External References

Name	Field # of Occurrence
^DIR	SELECT+4, SELMV+4, END+2, DAVE+7
^PSAPROC1	CNT+11, LOC+16
^PSAPTCH	CNT+6
PRINT2^PSAUP	EXIT+1
SITES^PSAUTL1	LOC+5
$$FMTE^XLFDT	MANY+5, MASTER+14
SIG^XUSESIG	ESIG

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You do not hold the key to enter the option." Line Location: PSAPROC+5
Function Call: WRITE	Prompt: !!,"There are no Drug Accountability pharmacy locations.",!!,"Use the Set Up/Edit a Pharmacy Location option on Pharmacy Location Maintenance" Line Location: NONE+1
Function Call: WRITE	Prompt: !,"Menu to setup one or more pharmacy locations. Then select the Process Uploaded",!,"Prime Vendor Invoice Data option to process the invoices." Line Location: NONE+2
Function Call: WRITE	Prompt: !!,"The invoices are being assigned to the pharmacy location. Please wait." Line Location: ONE+2
Function Call: WRITE	Prompt: "." Line Location: ONE+5
Function Call: WRITE	Prompt: @IOF,!?19,"<<< ASSIGN A PHARMACY LOCATION SCREEN >>>",!,PSASLN Line Location: DISPLOC+1
Function Call: WRITE	Prompt: ! Line Location: DISPLOC+8
Function Call: WRITE	Prompt: @IOF,!?19,"<<< ASSIGN A PHARMACY LOCATION SCREEN >>>",!,PSASLN Line Location: HDR+1
Function Call: WRITE	Prompt: ! Line Location: SELECT+1
Function Call: WRITE	Prompt: !!?5,"Enter an Up-arrow '^' to abort the process.",! Line Location: SELECT+4
Function Call: WRITE	Prompt: !!,"No master vaults are set up. You must set up a master vault then",!,"select the Process Uploaded Prime Vendor Invoices Data option." Line Location: MASTER+1
Function Call: WRITE	Prompt: "." Line Location: MASTER+8
Function Call: WRITE	Prompt: !,"Order#: "_PSAORD_" Invoice#: "_PSAINV_" Invoice Date: "_$$FMTE^XLFDT(+PSAIN) Line Location: MASTER+14
Function Call: WRITE	Prompt: @IOF,!?22,"<<< ASSIGN A MASTER VAULT SCREEN >>>",!,PSASLN Line Location: DISPMV+1
Function Call: WRITE	Prompt: ! Line Location: DISPMV+6
Function Call: WRITE	Prompt: ! Line Location: SELMV+1
Function Call: WRITE	Prompt: !!?5,"A Master Vault must be selected. Otherwise enter an up-arrow '^' to abort.",! Line Location: SELMV+4
Function Call: WRITE	Prompt: ! Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: !?5,"Enter the number of the master vault for which you want to assign",!?5,"the order. The invoiced drugs in the assigned master vault will be" Line Location: MV+1
Function Call: WRITE	Prompt: !?5,"incremented with the quantity received after the order is verified." Line Location: MV+2
Function Call: WRITE	Prompt: !?5,"Enter the number of the pharmacy location for which you want to assign",!?5,"the order. The invoiced drugs in the assigned pharmacy location will be" Line Location: PHARM+1
Function Call: WRITE	Prompt: !?5,"incremented with the quantity received after the order is verified." Line Location: PHARM+2
Function Call: WRITE	Prompt: !!,"You have invoices on your system for more than one division.",!,"Please select the location for which you want to process invoices.",!,"or Press the up-arrow to process all invoices." Line Location: DAVE+6
Routine Call	DIR Line Location: SELECT+4 SELMV+4 END+2 DAVE+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	LOC+1, LOC+2, LOC+3, LOC+4, LOC+5, LOC+8, LOC+9, LOC+10, LOC+11
^XTMP("PSAPV"	CNT+1, CNT+2, CNT+3, CNT+4, ONE+4, ONE+5, MANY+2, MANY+3, SELECT+9, MASTER+7 , MASTER+8, MASTER+12, MASTER+13, SELMV+9, DAVE+2
^XUSEC("PSA ORDERS"	PSAPROC+5

Label References

Name	Line Occurrences
DAVE	ESIG+3
DISPLOC	MANY+4
DISPMV	MASTER+14
END	NONE+3, MANY+7, HDR
EXIT	PSAPROC+4, ESIG, CNT+11, LOC+13, LOC+16
HDR	DISPLOC+6
MANY	LOC+15
MASTER	NONE+3, ONE+6, MANY+7
NONE	LOC+13
ONE	LOC+14
SELECT	MANY+6
SELMV	MASTER+17

Naked Globals

Name	Field # of Occurrence
^(0	LOC+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	DAVE+1, DAVE+3, DAVE+5!
CNTR	DAVE+1, DAVE+3, DAVE+5!
DA	EXIT+4!
>> DATA	DAVE+2*
DIC	EXIT+4!
DIE	EXIT+4!
DIK	EXIT+4!
DIR	SELECT+1!, SELECT+4!, SELMV+4!, END+2!, EXIT+4!
DIR("?"	SELECT+1, SELMV+1
DIR("??"	SELECT+4, SELMV+4
DIR("A"	SELECT+1, SELMV+1
DIR(0	SELECT+1, SELMV+1, END+2, DAVE+3, DAVE+4*
DIRUT	SELECT+5, SELMV+5, END+2, EXIT+4!
DIV	DAVE+1*, DAVE+5!
DIV(	DAVE+2*, DAVE+3
DIV(0	DAVE+3
DR	EXIT+4!
DT	LOC+3, LOC+10
DTOUT	EXIT+4!
DUOUT	EXIT+4!
DUZ	PSAPROC+5
IOF	DISPLOC+1, HDR+1, DISPMV+1, END+2
IOSL	DISPLOC+6
PSA	NONE+3, ONE+6, MANY+7, DISPMV+2, DISPMV+4*, DISPMV+5, SELMV+1, EXIT+4!
PSABEFOR	EXIT+4!
PSACHG	EXIT+4!
PSACHO	EXIT+4!
PSACNT	ESIG+1, CNT+7, CNT+9, CNT+10, CNT+11, ONE+1, ONE+5, DISPLOC+2, DISPLOC+5, DISPLOC+7 , SELECT+1, EXIT+4!
PSACNT1	EXIT+4!
PSACNTER	EXIT+4!
PSACNTOK	EXIT+4!
PSACOMB	LOC+5*, EXIT+4!
PSACONT	EXIT+4!
PSACS	EXIT+4!
PSACS(	CNT+7, CNT+9, MANY+6, MASTER+6, MASTER+11
PSACS(""	NONE+3, ONE+6, MANY+7, MASTER+4
PSACTRL	ESIG+1, CNT+1, CNT+2, CNT+3, CNT+4, CNT+7, CNT+9, CNT+10, ONE+3, ONE+4 , ONE+5, MANY+1, MANY+2, MANY+3, MANY+6, SELECT+9, MASTER+4, MASTER+6, MASTER+7, MASTER+8 , MASTER+11*, MASTER+12, MASTER+13, SELMV+9, EXIT+4!
PSAD0	EXIT+6!
PSAD1	EXIT+6!
PSAD2	EXIT+6!
PSAD3	EXIT+6!
PSAD4	EXIT+6!
PSAD5	EXIT+6!
PSAD6	EXIT+6!
PSADATA	EXIT+6!
PSADIFF	EXIT+6!
PSADISP	EXIT+6!
PSADJQTY	EXIT+6!
PSADLN	ESIG+1*, EXIT+6!
PSADONE	EXIT+6!
PSADRG1	EXIT+5!
PSADU	EXIT+6!
PSAENTRY	EXIT+1, EXIT+6!
PSAERR	EXIT+6!
PSAFLD	EXIT+4!
PSAFLDS	EXIT+6!
PSAFND	EXIT+6!
PSAFPR	EXIT+6!
PSAGET	EXIT+6!
PSAHDR	EXIT+6!
PSAIEN	EXIT+7!
PSAIEN3	EXIT+7!
PSAIEN50	EXIT+7!
PSAIN	CNT+4, CNT+7, CNT+8, CNT+9, CNT+10, MANY+3, MANY+5, MASTER+13*, MASTER+14, MASTER+15 , MASTER+16, EXIT+7!
PSAINV	MANY+3, MANY+5, MASTER+13, MASTER+14, EXIT+7!
PSAINVDL	CNT+6!
PSAIPR	EXIT+7!
PSAISIT	LOC+4*, LOC+5, EXIT+7!
PSAISITN	EXIT+7!
PSAJUST	EXIT+7!
PSAKK	END+1*, EXIT+7!
PSALINE	EXIT+7!
PSALINES	EXIT+7!
PSALLSUP	EXIT+7!
PSALN	EXIT+7!
PSALNCNT	EXIT+7!
PSALNSU	EXIT+7!
PSALOC	LOC+1, LOC+2, LOC+3, LOC+4, LOC+5, ONE+1, ONE+5, DISPLOC+4, DISPLOC+5, SELECT+8 , SELECT+9, EXIT+7!
PSALOCA	MANY+7!, EXIT+7!
PSALOCA(	LOC+5*, DISPLOC+3, DISPLOC+4
PSALOCA(""	ONE+1
PSALOCN	ONE+1, DISPLOC+2, DISPLOC+3, DISPLOC+4, DISPLOC+5, DISPLOC+7, SELECT+6, SELECT+7*, SELECT+8, EXIT+7!
PSAMENU	MANY+7!, EXIT+8!
PSAMENU(	DISPLOC+5*, SELECT+7, SELECT+8
PSAMV	LOC+8*, LOC+9, LOC+10, LOC+11, EXIT+8!
PSAMV(	LOC+11*, DISPMV+2, DISPMV+3
PSAMVA	DISPMV+2, DISPMV+3, DISPMV+4, DISPMV+5, SELMV+9, EXIT+8!
PSAMVIEN	DISPMV+3, DISPMV+4, SELMV+9, EXIT+8!
PSAMVN	LOC+8, LOC+11, MASTER+1, MASTER+3, MASTER+10, EXIT+8!
PSANCS	EXIT+8!
PSANCS(	CNT+9, CNT+10, ONE+3, MANY+1
PSANDC	EXIT+8!
PSANEXT	EXIT+8!
PSANODE	EXIT+8!
PSANUM	LOC+1, LOC+4, LOC+13, LOC+14, LOC+15, EXIT+8!
PSAOK	EXIT+8!
PSAONE	LOC+4*, ONE+1, EXIT+8!
PSAONEMV	LOC+11*, MASTER+8, EXIT+8!
PSAORD	MANY+3, MANY+5, MASTER+13, MASTER+14, EXIT+8!
PSAOSIT	LOC+4*, LOC+5, EXIT+8!
PSAOSITN	EXIT+8!
PSAOUT	PSAPROC+4!, ESIG, ESIG+1, LOC+13, LOC+14, LOC+15, MANY+1, DISPLOC+6, SELECT+5, MASTER+1* , MASTER+11, SELMV+5, END+2, EXIT+8!
PSAPASS	EXIT+8!
PSAPC	EXIT+8!
PSAPCF	EXIT+8!
PSAPCL	EXIT+8!
PSAPHARM	EXIT+8!
PSAPICK	EXIT+8!
PSAPRICE	EXIT+8!
PSAPTR	EXIT+8!
PSAREA	EXIT+4!
PSARECD	EXIT+9!
PSAREORD	EXIT+9!
PSASAME	EXIT+9!
PSASEL	SELECT+6, SELECT+7, SELECT+8, SELMV+8, SELMV+9, EXIT+9!
PSASEL1	EXIT+9!
PSASKIP	EXIT+9!
PSASLN	ESIG+1*, DISPLOC+1, HDR+1, DISPMV+1, EXIT+9!
PSASNODE	EXIT+9!
PSASORT	CNT+3, EXIT+5!, DAVE+1, DAVE+7
PSASS	END+1*, EXIT+9!
PSASSUB	EXIT+9!
PSASTOCK	EXIT+9!
PSASTOP	DISPLOC+2, DISPLOC+3, DISPLOC+4, DISPLOC+6, DISPLOC+8!
PSASUB	EXIT+9!
PSASUP	EXIT+9!
PSASUPP	EXIT+9!
PSASYN	EXIT+9!
PSAVAPN	EXIT+9!
PSAVAULT	EXIT+9!
PSAVAULT(	DISPMV+4*, SELMV+9
PSAVSN	EXIT+9!
X	DAVE+2*, DAVE+5!
X1	ESIG, EXIT+9!
XX	DAVE+4*, DAVE+5!
XXX	DAVE+4*, DAVE+5!
Y	SELECT+4, SELECT+6, SELMV+4, SELMV+8, EXIT+9!, DAVE+7
Y(0	DAVE+7
ZTDTH	EXIT+9!
ZTIO	EXIT+9!

Customize PDF page

Package: Drug Accountability

Routine: PSAPROC

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 13

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: