Routine: PSAVERA3

Information

PSAVERA3 ;BHM/DB - RECORD TRANSACTION & UPDATE DRUG FILE;31JAN00

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No change." Line Location: OU+2
Function Call: WRITE	Prompt: !,"Old Dispense Units Per Order Unit: " Line Location: DRG+2
Function Call: WRITE	Prompt: PSATMPPR,?45,"Price Per Disp. Unit: "_$J($P($G(^PSDRUG(PSADRG,660)),"^",6),8,2) Line Location: DRG+3
Function Call: WRITE	Prompt: PSATMPPR,?45,"Price Per Disp. Unit: " Line Location: DRG+4
Function Call: WRITE	Prompt: ($J($P(^PSD(58.811,PSAIEN,1,PSAIEN1,1,PSALINE,0),"^",5)/$P(^PSD(58.811,PSAIEN,1,PSAIEN1,1,PSALINE,2),"^"),8,2)) Line Location: DRG+5
Function Call: WRITE	Prompt: !,"New Dispense Units Per Order Unit: "_PSANDUOU Line Location: DRG+6
Function Call: WRITE	Prompt: ?45," unchanged " Line Location: DRG+7
Function Call: WRITE	Prompt: ?45," unchanged " Line Location: DRG+8
Function Call: WRITE	Prompt: ?64,$J((PSAPRICE/PSANDUOU),8,2) Line Location: DRG+9
Function Call: WRITE	Prompt: !,"Updating Drug File's Synonym data" Line Location: UPDATE+13
Function Call: WRITE	Prompt: !,"Updating Drug File's Dispense Units Per Order Unit & Price Per Dispense Unit" Line Location: UPDATE+16
Function Call: WRITE	Prompt: !,"making adjustment in DRUG ACCOUNTABILITY ORDER file" Line Location: SUPITM+1
Function Call: WRITE	Prompt: !,"TAKING A BREAK !?" Line Location: SUPITM+2

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