Routine: RMPRPIY1

Information

RMPRPIY1 ;HINCIO/ODJ - PIP Data Entry - Prompts;3/8/01

Name	Comments	DBIA/ICR reference
STN(RMPRSTN,RMPRESC)	;
STNX
ITED(RMPR11,RMPREXC)	;
ITED1
ITEDU
ITEDX
ITEDH2
ITEDO(RMPRYN,RMPREXC)	;
ITEDOX
MASIT(RMPR1,RMPREXC)	;
MASITX
HCPCS(RMPRSTN,RMPRHCPC,RMPR1,RMPR11,RMPREXC)	;
HCPCS1
HCPCS2
HCPCS3
HCPCSX

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Item being edited by another user, cannot continue." Line Location: ITED1+8
Function Call: WRITE	Prompt: ! Line Location: ITED1+21
Function Call: WRITE	Prompt: "Enter a description for this item which will be used locally by",! Line Location: ITEDH2+0
Function Call: WRITE	Prompt: "your Prosthetics Service.",! Line Location: ITEDH2+1
Function Call: WRITE	Prompt: "You may want to use the Item Master description with additional",! Line Location: ITEDH2+2
Function Call: WRITE	Prompt: "text specifying things like size, volume, etc." Line Location: ITEDH2+3
Function Call: WRITE	Prompt: ! Line Location: MASIT+6
Function Call: WRITE	Prompt: !!,"HCPCS: "_$G(RMPR1("HCPCS"))_" "_$G(RMPR1("SHORT DESC")) Line Location: HCPCS3+0
Function Call: WRITE	Prompt: !!,"IFCAP Item: ",$G(RMPR11("ITEM MASTER")) Line Location: HCPCS3+1
Function Call: WRITE	Prompt: !!,"PIP Item desc.: ",$G(RMPR11("DESCRIPTION")) Line Location: HCPCS3+2