Routine: RMPRPIYX

Information

RMPRPIYX ;HINCIO/ODJ - PIP Data Entry - HCPCS Item;3/8/01

Source file <RMPRPIYX.m>

Package	Total	Call Graph
Prosthetics	2	OK^RMPRPIY7 LIKE^RMPRPIY8
VA FileMan	1	^DIR

Name	Comments	DBIA/ICR reference
ITEM(RMPRSTN,RMPRLCN,RMPRHCPC,RMPR11,RMPR4,RMPREXC)	;
ITEMA1
ITEMX

Name	Line Occurrences
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
Routine Call	DIR Line Location: ITEMA1

Name	Line Occurrences
ITEMA1	ITEMA1+7, ITEMA1+8, ITEMA1+13
ITEMX	ITEM+4, ITEM+5, ITEM+6, ITEMA1+1, ITEMA1+2, ITEMA1+3, ITEMA1+5, ITEMA1+6, ITEMA1+14

Name	Field # of Occurrence
DA	ITEM+1~
DIR	ITEM+1~
DIR("?"	ITEM+10*
DIR("??"	ITEM+11*
DIR("A"	ITEM+9*
DIR(0	ITEM+8*
DIROUT	ITEM+1~, ITEMA1+2
DTOUT	ITEM+1~, ITEMA1+1
DUOUT	ITEM+1~, ITEMA1+3
RMPR11	ITEM~, ITEM+7!, ITEMA1+4
RMPR11("DESCRIPTION"	ITEMA1+11
RMPR11("HCPCS-ITEM"	ITEMA1+11
RMPR4	ITEM~, ITEM+7!, ITEMA1+4
RMPR4("IEN"	ITEMA1+8
RMPRERR	ITEM+1~, ITEM+2, ITEM+4, ITEM+5, ITEM+6, ITEMX
RMPREXC	ITEM~, ITEM+3, ITEMA1+1, ITEMA1+2, ITEMA1+3, ITEMA1+4, ITEMA1+5, ITEMA1+6, ITEMA1+7, ITEMA1+12
RMPRHCPC	ITEM~, ITEM+6, ITEMA1+4
RMPRLCN	ITEM~, ITEM+5, ITEMA1+4
RMPRSRC	ITEM+1~
RMPRSTN	ITEM~, ITEM+4, ITEMA1+4
RMPRYN	ITEM+1~, ITEMA1+12, ITEMA1+13
X	ITEM+1~, ITEMA1+3, ITEMA1+4
Y	ITEM+1~