Routine: PSAUTL3

Information

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

Source file <PSAUTL3.m>

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

Package	Total	Caller Graph
Drug Accountability	8	PSADAI PSADJ PSADJR PSADRUGP PSAHIS PSAREC PSASIG PSATRAN

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+5
SITES^PSAUTL1	ORDER+8

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"No Drug Accountability location has been created yet." Line Location: PSAUTL3+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+11
Function Call: WRITE	Prompt: !,"There are no Drug Accountability pharmacy locations with data." Line Location: ONE+2
Function Call: WRITE	Prompt: @IOF,! Line Location: DISP+1
Function Call: WRITE	Prompt: ! Line Location: DISP+5
Function Call: WRITE	Prompt: ! Line Location: DISP+11
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+5

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	PSAUTL3+5, ORDER+2, ORDER+3, ORDER+4, ORDER+5, ORDER+10, 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+10

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+5!, EXIT+1!
DIR("?"	SELECT+4*
DIR("??"	SELECT, SELECT+2, SELECT+3*
DIR("A"	SELECT, SELECT+2, SELECT+3*
DIR(0	SELECT, SELECT+1, SELECT+3*
DT	ORDER+4
IOF	DISP+1
>> PSACHK	ORDER+12*
>> PSACNT	ORDER+1, ORDER+9, ORDER+11, DISP+5, DISP+8, DISP+9, SELECT, SELECT+1, SELECT+3
PSACOMB	ORDER+10, EXIT+1!
PSADA	SETAORD+2*, SETAORD+3, SETAORD+4!
PSADA(1	SETAORD+1*, SETAORD+2, SETAORD+3
PSAISIT	EXIT+1!
PSAISITN	EXIT+1!
>> PSALOC	PSAUTL3+5, PSAUTL3+6, ORDER+1, ORDER+2, ORDER+3, ORDER+4, ORDER+5, ORDER+9, ORDER+10, ONE+1 , ONE+2, ONE+3, DISP+7, DISP+8, SELECT+7*, SELECT+8
>> PSALOC(	ONE+3, SELECT+8
>> PSALOCA(	ORDER+10*, ONE+3, DISP+6, DISP+7, SELECT+8
>> PSALOCA(""	ORDER+12
>> PSALOCN	ONE+3, DISP+5, DISP+6, DISP+7, DISP+8, DISP+10, SELECT+7, SELECT+8
PSAMENU	EXIT+1!
PSAMENU(	DISP+8*, SELECT+7
PSANUM	SELECT+6*, SELECT+7, EXIT+1!
PSAONE	ORDER+9*, ONE+1, EXIT+1!
PSAOSIT	ORDER+7*, EXIT+1!
PSAOSITN	ORDER+7*, EXIT+1!
>> PSAOUT	PSAUTL3+6, ORDER+11, SELECT+5*
PSAPC	SELECT+6*, EXIT+1!
>> PSASEL	SELECT+6*
>> PSATRAN	ORDER+5, ORDER+11, DISP+2, DISP+3, DISP+4, SELECT, SELECT+1, SELECT+2, SELECT+3
>> X	SETAORD+1, SETAORD+3, KILLAORD+1, SLOC+2, KLOC+1, SLOCDT+1, SLOCDT+2, KLOCDT+1, KLOCDT+2
Y	SELECT+5, SELECT+6, EXIT+1!