Routine: PSAVERA2

Information

PSAVERA2 ;BHM/DB - Edit previously verified invoices #2;21DEC99

Source file <PSAVERA2.m>

Package	Total	Call Graph
Drug Accountability	3	SUPPLY^PSANDF VERDISP^PSAUTL4 DUOU^PSAVER2
VA Fileman	1	^DIC

Package	Total	Caller Graph
Drug Accountability	1	PSAVERA1

Name	Comments	DBIA/ICR reference
RECORD	;Add adjusted data to DA Orders file
LST	;List all data associated with location/drug
LOCATION	;Change pharmacy location
ASKDRUG	;Change drug

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Decrementing balance of "_PSABAL_" from "_$P($G(^PSDRUG(PSADRG,0)),"^") Line Location: ASKDRUG+14
Function Call: WRITE	Prompt: !,"Increasing balance of "_PSANEWD_" by "_PSABAL_"." Line Location: ASKDRUG+15
Function Call: WRITE	Prompt: !!,"Note that if you change the drug on this line item, the balances will be",!,"updated." Line Location: ASKDRUG+17
Function Call: WRITE	Prompt: !,"If the location is changed, the balances will be decremented from the original",!,"location, the transaction file will record the proper changes.",! Line Location: LOCATION+1
Function Call: WRITE	Prompt: !,"ok, we'll update the files now at RECORD" Line Location: RECORD+2
Function Call: WRITE	Prompt: !,"Could not find previous sysnonym data, therefore the prices will remain as",!,"they are.",! Line Location: RECORD+6
Routine Call	DIC Line Location: ASKDRUG+1

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.811 - [#58.811]	ASKDRUG+11*
^PSDRUG - [#50]	ASKDRUG+12, ASKDRUG+13, ASKDRUG+14, RECORD+3, RECORD+4
^PSDRUG("C"	ASKDRUG+10, ASKDRUG+11

Name	Line Occurrences
ASKDRUG	ASKDRUG+8
RECORD	ASKDRUG+7, ASKDRUG+9

Name	Field # of Occurrence
DIC	ASKDRUG+1*!
DIC(0	ASKDRUG+1*
>> DTOUT	ASKDRUG+2
>> DUOUT	ASKDRUG+2
>> PREVDATA	RECORD+4*, RECORD+5
>> PSA50IEN	ASKDRUG+6, ASKDRUG+9, ASKDRUG+10, ASKDRUG+11, ASKDRUG+12, ASKDRUG+13
>> PSABAL	ASKDRUG+14, ASKDRUG+15
>> PSABEFOR	ASKDRUG+1*, ASKDRUG+13, RECORD+3, RECORD+4
>> PSABFR	RECORD+3*
>> PSADJ	ASKDRUG+6, ASKDRUG+9
>> PSADJFLD	ASKDRUG+3*
>> PSADRG	ASKDRUG+1, ASKDRUG+9*, ASKDRUG+14
>> PSAGAIN	ASKDRUG+1, ASKDRUG+5, ASKDRUG+8
>> PSAIEN	ASKDRUG+11
>> PSAIEN1	ASKDRUG+11
>> PSANDC	ASKDRUG+10, ASKDRUG+11
>> PSANEWD	ASKDRUG+15
>> PSAOUT	ASKDRUG+2*, ASKDRUG+4, ASKDRUG+5
>> PSAREA	ASKDRUG+3, ASKDRUG+6
>> PSASUB	ASKDRUG+11*, ASKDRUG+12, ASKDRUG+13, RECORD+3
PSASUBB	RECORD+1!, RECORD+3*, RECORD+4, RECORD+6
>> PSASUPP	ASKDRUG+3*, ASKDRUG+4, ASKDRUG+5
>> PSAVER	ASKDRUG+5*
>> Y	ASKDRUG+4, ASKDRUG+9