Routine: RMPRPIYP

Package	Total	Call Graph
Prosthetics	1	($$GET,$$HPACT)^RMPRPIX1
VA FileMan	1	^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 6

Package	Total	Caller Graph
Prosthetics	6	RMPRPIXR RMPRPIY1 RMPRPIY6 RMPRPIYG RMPRPIYS RMPRPIYT

Entry Points

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

External References

Name	Field # of Occurrence
^DIR	OK+7, ITEMP+3
$$GET^RMPRPIX1	REDO+17, ITEML2+2, ITEMP+17
$$HPACT^RMPRPIX1	REDO+5

Interaction Calls

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
Routine Call	DIR Line Location: OK+7 ITEMP+3

Label References

Name	Line Occurrences
$$ITEME	REDO+15, REDO+17, ITEML1+1
ITEMH	ITEML2+13, ITEMP+6
ITEML1	ITEML2+3, ITEML2+18
ITEML2	ITEMP+6
ITEMP	ITEML1+1, ITEML1+2, ITEMP+11
ITEMX	REDO+2, REDO+3, REDO+15, REDO+17, ITEML1+1, ITEMP+4, ITEMP+5, ITEMP+8
OKX	OK+8, OK+9, OK+10
REDO	ITEMP+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	OK+1~, ITEM+1~
DIR	OK+1~, ITEM+1~
DIR("A"	OK+4, ITEML1+3, ITEMP+1*, ITEMP+6!
DIR("B"	OK+5*
DIR(0	OK+6, ITEMP
DIROUT	OK+1~, OK+9, ITEM+1~, ITEMP+5
DIRUT	OK+1~, ITEM+1~
DTOUT	OK+1~, OK+8, ITEM+1~, ITEMP+4
DUOUT	OK+1~, ITEM+1~, ITEMP+8
>> RMLINE	REDO+8, ITEML1+2, ITEML2+11, ITEMP+2*
RMPR1	ITEM+2~, REDO+5
RMPR1("HCPCS"	REDO+4*
RMPR1("SHORT	DESC" , ITEMH
RMPR11	ITEM~, REDO+6!, REDO+17, ITEML2+2, ITEML2+17!, ITEMP+17
RMPR11("DESCRIPTION"	ITEML2+15
RMPR11("HCPCS-ITEM"	ITEML2+14
RMPR11("IEN"	REDO+14, ITEML2+1, ITEML2+16, ITEMP+16*
RMPR11("ITEM	MASTER" , ITEML2+6
RMPR11("SOURCE"	ITEML2+15
RMPR11("STATUS"	ITEML2+3
RMPRA	ITEM+1~, ITEMP+10!
RMPRA(	ITEML2+16*, ITEMP+9, ITEMP+16
RMPRERR	ITEM+1~, REDO, REDO+2, REDO+3, REDO+5, REDO+17, ITEML2+2, ITEMP+17*
RMPREXC	OK~, OK+2, OK+8, OK+9, OK+10, ITEM~, REDO+1, ITEMP+4, ITEMP+5, ITEMP+8
>> RMPRFLG	ITEMP+2, ITEMP+9, ITEMP+11, ITEMP+14*
RMPRGBL	ITEM+2~, REDO+13, REDO+14, REDO+16, REDO+20, ITEML1, ITEML2+1, ITEML2+5, ITEML2+7, ITEME+1 , ITEME+2, ITEME+3, ITEME+4
RMPRGBLR	ITEM+1~, REDO+12*, REDO+13, REDO+20
RMPRHCPC	ITEM~, REDO+3, REDO+4, REDO+12, ITEME+4, ITEMH
RMPRIMA	ITEM+1~, REDO+9, ITEML2+5, ITEML2+7
RMPRIMAD	ITEM+2~, ITEML2+6*, ITEML2+9, ITEMH+2
RMPRLIN	ITEM+2~, REDO+8, ITEML1+1, ITEML1+2, ITEML2+4, ITEML2+8, ITEML2+13, ITEML2+14, ITEML2+16, ITEMP+1 , ITEMP+13
RMPRMAX	ITEM+2~, REDO+7*, ITEML1+2
RMPRSTN	ITEM~, REDO+2, REDO+12, ITEME+3
RMPRYN	OK~, OK+3, OK+11
X	OK+1~, OK+10, ITEM+1~, ITEMP+6, ITEMP+8, ITEMP+9, ITEMP+10, ITEMP+11, ITEMP+16
Y	OK+1~, OK+11, ITEM+1~

Customize PDF page

Package: Prosthetics

Routine: RMPRPIYP

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend: