Routine: PSAVERA1

Information

PSAVERA1 ;BHM/DB - Edit previously verified invoices;16NOV99

Name	Comments	DBIA/ICR reference
DISPLN
DRUG
QTY	;Quantity
UPC
OU	;W !,"Order Unit : "
NDC
PRICE	;W !,"Unit Price : $"
VSN	;W ?38,"VSN: "_$S(PSAVSN'="":PSAVSN,1:"Blank"),!
VDU
STOCK
REORDER
ASK
PROCSS
VIEW
FIELDS
Q
UPDATE	; *63 RJS CODE REMOVED FROM PSAVERA AND CALLED BY PSAVERA
FILE581	;Update transaction file ;;*63
FIND
NEW581
LOCCHK	; Update Line items with CS or Non-CS

Name	Line Occurrences
Function Call: WRITE	Prompt: $S($G(PSAPRICE):PSAPRICE,1:"0.00") Line Location: PRICE+10
Function Call: READ	Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: !,"Enter a number between 1 and ",CNT Line Location: ASK+2
Function Call: WRITE	Prompt: !,"Invalid line number." Line Location: PROCSS+0
Function Call: WRITE	Prompt: !,PSASLN,! Line Location: VIEW+0
Function Call: WRITE	Prompt: "1. Drug",!,"2. Order Unit",! Line Location: VIEW+1
Function Call: WRITE	Prompt: PSASLN Line Location: VIEW+4
Function Call: WRITE	Prompt: !,"updating pharmacy location file." Line Location: UPDATE+29
Function Call: WRITE	Prompt: !,"updating transaction file." Line Location: NEW581+6

FileNo	Call Tags
^PSD(58.81 - [#58.81]	Classic Fileman Calls