Routine: RMPRPIYP

Information

RMPRPIYP ;HINCIO/ODJ - PIP EDIT - PROMPTS ;9/30/02 13:35

Name	Comments	DBIA/ICR reference
OK(RMPRYN,RMPREXC)	;
OKX
ITEM(RMPRSTN,RMPRHCPC,RMPR11,RMPREXC)	;
REDO
ITEML1
ITEML2	;
ITEMP
ITEMX
ITEME()	;
ITEMH

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"IFCAP Item: ",RMPRIMAD Line Location: ITEML2+9
Function Call: WRITE	Prompt: !,$J(RMPRLIN,2)," ",RMPR11("HCPCS-ITEM") Line Location: ITEML2+14
Function Call: WRITE	Prompt: ?16,$E(RMPR11("SOURCE"))_" "_RMPR11("DESCRIPTION") Line Location: ITEML2+15
Function Call: WRITE	Prompt: !,"Please select an item by entering a line number in range 1 - " Line Location: ITEMP+12
Function Call: WRITE	Prompt: RMPRLIN_" or '^' to EXIT" Line Location: ITEMP+13
Function Call: WRITE	Prompt: !!,"HCPCS: "_RMPRHCPC_" "_RMPR1("SHORT DESC") Line Location: ITEMH+0
Function Call: WRITE	Prompt: !," is associated with more than 1 item, please select one..." Line Location: ITEMH+1
Function Call: WRITE	Prompt: !!,"IFCAP Item: ",RMPRIMAD Line Location: ITEMH+2