Routine: RMPRPIYM

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

Entry Points

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

Name	Field # of Occurrence
^DIR	OK+7, ITEMA1
LIKE^RMPRPIY8	ITEMA1+4

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: OK+7 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
OK	ITEMA1+12
OKX	OK+8, OK+9, OK+10

Name	Field # of Occurrence
DA	OK+1~, ITEM+1~
DIR	OK+1~, ITEM+1~
DIR("?"	ITEM+10*
DIR("??"	ITEM+11*
DIR("A"	OK+4, ITEM+9
DIR("B"	OK+5*
DIR(0	OK+6, ITEM+8
DIROUT	OK+1~, OK+9, ITEM+1~, ITEMA1+2
DIRUT	OK+1~
DTOUT	OK+1~, OK+8, ITEM+1~, ITEMA1+1
DUOUT	OK+1~, 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	OK~, OK+2, OK+8, OK+9, OK+10, 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	OK~, OK+3, OK+11, ITEM+1~, ITEMA1+12, ITEMA1+13
X	OK+1~, OK+10, ITEM+1~, ITEMA1+3, ITEMA1+4
Y	OK+1~, OK+11, ITEM+1~