Routine: RMPRPIY7

Information

RMPRPIY7 ;HINCIO/ODJ - PIP EDIT - PROMPTS ;9/18/02 15:17

Name	Comments	DBIA/ICR reference
LOCNM(RMPRSTN,RMPR5,RMPREXC)	;
LOCNM1
LOCNMX
OK(RMPRYN,RMPREXC)	;
OKX
HCPCS(RMPRSTN,RMPRHPTX,RMPR1,RMPR11,RMPREXC)	;
HCPCS1
CHECK
HCPCSU
HCPCSX
ITEM(RMPRSTN,RMPRLCN,RMPRHCPC,RMPR11,RMPR4,RMPREXC)	;
ITEMA1
ITEMX
QTY(RMPRQTY,RMPREXC)	;
QTYX
TVAL(RMPRTVAL,RMPREXC)	;
TVALX
REO(RMPRREO,RMPREXC)	;
REOX
VEND(RMPRVEND,RMPREXC)	;
VENDX
PVEN(RMPRSTN,RMPRLCN,RMPRHCPC,RMPRITM,RMPR6,RMPR7,RMPREXC)	;
PVEN1
PVEN1A
PVEN2
PVEN3
PVENX

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Please enter a valid Location" Line Location: LOCNM1+14
Function Call: WRITE	Prompt: !,"** No HCPCS Selected or Unable to Select Inactive HCPCS..." Line Location: CHECK+0
Function Call: WRITE	Prompt: !,"** Unable to Select Inactive HCPCS item..." Line Location: CHECK+1
Function Call: WRITE	Prompt: !,"Cannot locate ITEM with this sequence NUMBER" Line Location: ITEMA1+9
Function Call: WRITE	Prompt: " ",RMPR11("HCPCS-ITEM")," ",RMPR11("DESCRIPTION") Line Location: ITEMA1+11
Function Call: WRITE	Prompt: !,"Select a current Stock Record to edit...",! Line Location: PVEN2+2
Function Call: WRITE	Prompt: !,?7,"Date",?21,"Quantity",?35,"Value",?42,"Vendor" Line Location: PVEN2+3
Function Call: WRITE	Prompt: !,?2,$J(RMPRLIN,2) Line Location: PVEN2+10
Function Call: WRITE	Prompt: ?7,$P(RMPR7("DATE&TIME"),"@",1) Line Location: PVEN2+11
Function Call: WRITE	Prompt: ?21,$J(RMPR7("QUANTITY"),8,0) Line Location: PVEN2+12
Function Call: WRITE	Prompt: ?30,$J(RMPR7("VALUE"),10,2) Line Location: PVEN2+13
Function Call: WRITE	Prompt: ?42,RMPR6("VENDOR") Line Location: PVEN2+20