Routine: RMPR5NU1

Information

RMPR5NU1 ;HIN/RVD-INVENTORY UPDATE UTILITY ;3/24/1998

Source file <RMPR5NU1.m>

Name	Comments	DBIA/ICR reference
ADD	;add a new inventory stock record
EDIT	;update the current balance.
UPD	;update item current balance in 661.3
BAL	;get total cost of the same HCPCS and ITEM @ the same station.
ITEMLOC(RE,RL,RH,RHO)	;ASK for an Item Location.
LODIC
LOCPROC	;jump here if only one location
ITEM(RE,RL,RO,RH,RHO,RC,RI)	;ask for PSAS ITEM
ITDIC	;
DSP	;display HCPCS @ a LOCATION
LDIC
VEND()	;
BALA()	;
COST()	;
SOURCE()	;
CONV	;convert utility for Inventory Location field. (in CAPS)
PROC
ST
EXIT	;EXIT FOR INVENTORY UPDATE UTILITY
NDX	;reindex the 'D1' cross-reference of file 661.3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"* ITEM BALANCE is LOW @ this Pros Location......",!,"* Please ORDER the Item or UPDATE the Inventory Balance." Line Location: ITDIC+12
Function Call: WRITE	Prompt: !,"List of HCPCS at location: ",RMLOC Line Location: DSP+4
Function Call: READ	Formatting: ! Prompt: "Enter <RETURN> for more or ^ to STOP listing" Variable: RANS Timeout: DTIME Line Location: DSP+6
Function Call: WRITE	Prompt: !!,"Reindexing 'D1' cross reference of file #661.3...",! Line Location: NDX+2

FileNo	Call Tags
^RMPR(661.2 - [#661.2]	Classic Fileman Calls
^RMPR(661.3 - [#661.3]	Classic Fileman Calls