Routine: PSAUTL5

Package	Total	Call Graph
Drug Accountability	1	SITES^PSAUTL1
VA Fileman	1	^DIR

Package	Total	Caller Graph
Drug Accountability	1	PSAPROC6

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;Displays the available pharmacy locations.
SETAORD	;Set logic for "AORD" X-Ref
HELP	;Extended help to 'Select PHARMACY LOCATION'
FROMHELP	;Extended help to 'Select Transfer from Pharmacy'
SLOCDT	;Set logic for "ALOC" X-Ref on Invoice Date field
KLOCDT	;Kill logic for "ALOC" X-Ref
ONE	;only one
EXIT	;Kills all variables except PSALOC array & PSAOUT
KILLAORD	;Kill logic for "AORD" X-Ref
SLOC	;Set logic for "ALOC" X-Ref on Pharmacy Location & Master Vault fields
TOHELP	;Extended help to 'Select Transfer to Pharmacy'
ORDER	;If more than one pharmacy location, collect them in alpha order.
SELECT
KLOC	;Kill logic for "ALOC" X-Ref on Pharmacy Location & Master Vault fields

Name	Field # of Occurrence
^DIR	SELECT+2
SITES^PSAUTL1	ORDER+5

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"No Drug Accountability location has been created yet." Line Location: PSAUTL5+6
Function Call: WRITE	Prompt: ! Line Location: ORDER+1
Function Call: WRITE	Prompt: !?5,"There is only one active pharmacy location.",!?5,"There must be at least two to transfer drugs." Line Location: ORDER+8
Function Call: WRITE	Prompt: !,"There are no Drug Accountability pharmacy locations with data." Line Location: ONE+2
Function Call: WRITE	Prompt: ! Line Location: DISP+1
Function Call: WRITE	Prompt: ! Line Location: DISP+7
Function Call: WRITE	Prompt: !?5,"Enter the number of the pharmacy location that will transfer the drugs to another pharmacy." Line Location: FROMHELP+1
Function Call: WRITE	Prompt: !?5,"Enter the number of the pharmacy location you want to select.",!?5,"If you want more than one pharmacy location, enter the numbers",!?5,"separated by a comma." Line Location: HELP+1
Function Call: WRITE	Prompt: !!?5,"For example: Enter 1,3 or 1-3,5." Line Location: HELP+2
Function Call: WRITE	Prompt: !?5,"Enter the number of the pharmacy location that will receive the transferred the drugs." Line Location: TOHELP+1
Routine Call	DIR Line Location: SELECT+2

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	PSAUTL5+5, ORDER+2, ORDER+3, ORDER+4, ORDER+7, ONE+2
^PSD(58.811 - [#58.811]	SETAORD+1, SETAORD+2, SETAORD+3, KILLAORD+1!, SLOC+1, SLOC+2, KLOC+1!, SLOCDT+1, SLOCDT+2, KLOCDT+1! , KLOCDT+2!

Name	Field # of Occurrence
^(0	ORDER+7

Name	Field # of Occurrence
>> DA	SLOC+1, SLOC+2, KLOC+1, SLOCDT+1, SLOCDT+2, KLOCDT+1, KLOCDT+2
>> DA(1	SLOC+1, SLOC+2, KLOC+1, SLOCDT+1, SLOCDT+2, KLOCDT+1, KLOCDT+2
DIR	SELECT+2!
DIR("?"	SELECT+1*
DIR("??"	SELECT*
DIR("A"	SELECT*
DIR(0	SELECT*
DT	ORDER+4
>> PSACHK	ORDER+9*
>> PSACNT	ORDER+1, ORDER+6, ORDER+8, DISP+1, DISP+4, DISP+5, SELECT
>> PSACOMB	ORDER+7
PSADA	SETAORD+2*, SETAORD+3, SETAORD+4!
PSADA(1	SETAORD+1*, SETAORD+2, SETAORD+3
>> PSALOC	PSAUTL5+5, PSAUTL5+6, ORDER+1, ORDER+2, ORDER+3, ORDER+4, ORDER+6, ORDER+7, ONE+1, ONE+2 , ONE+3, DISP+3, DISP+4, SELECT+4*, SELECT+5
>> PSALOC(	ONE+3, SELECT+5
PSALOCA	PSAUTL5+4!
PSALOCA(	ORDER+7*, ONE+3, DISP+2, DISP+3, SELECT+5
PSALOCA(""	ORDER+9
>> PSALOCN	ONE+3, DISP+1, DISP+2, DISP+3, DISP+4, DISP+6, SELECT+4, SELECT+5
PSAMNU	PSAUTL5+4!
PSAMNU(	DISP+4*, SELECT+4
>> PSANUM	SELECT+3*, SELECT+4
>> PSAONE	ORDER+6*, ONE+1
>> PSAOUT	PSAUTL5+6, ORDER+8, SELECT+2*
>> PSAPCC	SELECT+3*
>> PSASL	SELECT+3*
>> PSATRAN	ORDER+8
>> X	SETAORD+1, SETAORD+3, KILLAORD+1, SLOC+2, KLOC+1, SLOCDT+1, SLOCDT+2, KLOCDT+1, KLOCDT+2
>> Y	SELECT+2, SELECT+3