Routine: RMPRPIYE

Package	Total	Call Graph
Prosthetics	9	CPT^RMPRCPTU CHK^RMPRED5 HCPCS3^RMPRPIY1 (CO,HCPCS)^RMPRPIYE (,DEL1,EXIT,POST)^RMPRPIYF LOWBA^RMPRPIYI ^RMPRPIYK SCAN^RMPRPIYS DIV4^RMPRSIT
VA FileMan	4	DD^%DT %XY^%RCR ^DIC ^DIR
Kernel	1	HOME^%ZIS
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Prosthetics	4	RMPR EDT 2319 RMPRPIFD RMPRPIYE RMPRPIYF

Name	Comments	DBIA/ICR reference
EN	;EDIT STOCK ISSUES
INVSE
CO	;DISPLAYS STOCK ISSUE
EDX	;POST
DEL	;
EDT	;edit patient 2319
EDU
2	;S DIC(0)="AEQM",DIC=661 S:$P(R1(0),U,6) DIC("B")=$P(^RMPR(661,$P(R1(0),U,6),0),U) S DIC("A")="ITEM: "
HCPCS	;scanning an item is mandatory.
CPT	;ask for CPT Modifier
VEN0	;process vendor
SOURCE	;
QTY
CP
SET	;set the original variables.
SET60	;

Name	Field # of Occurrence
DD^%DT	SET+8, SET+9
%XY^%RCR	INVSE, INVSE+1
HOME^%ZIS	EN+2
^DIC	EN+5, VEN0+7
^DIR	EDX+3, DEL+2, EDU+2, EDU+3, EDU+5, CPT+7, SOURCE+2, QTY+2
CPT^RMPRCPTU	CPT+5, CPT+10
CHK^RMPRED5	CO+1, CPT+3
HCPCS3^RMPRPIY1	HCPCS+8
CO^RMPRPIYE	HCPCS+2, HCPCS+3, HCPCS+4, HCPCS+5, SOURCE+2, QTY+2
HCPCS^RMPRPIYE	QTY+3
^RMPRPIYF	CP
DEL1^RMPRPIYF	EDX+3, DEL+5
EXIT^RMPRPIYF	EN+2, EN+5, EN+7, EDX+5, DEL+3, SOURCE+2, QTY+2
POST^RMPRPIYF	EDX+3
LOWBA^RMPRPIYI	QTY+3
^RMPRPIYK	CO+2, SET+10
SCAN^RMPRPIYS	HCPCS+1
DIV4^RMPRSIT	EN+2
DEM^VADPT	INVSE+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?5,$C(7),"Someone else is Editing this entry!" Line Location: EN+7
Function Call: WRITE	Prompt: @IOF,!?30,RMPRNAM,! Line Location: EDT+1
Function Call: WRITE	Prompt: ! Line Location: EDU+1
Function Call: WRITE	Prompt: ! Line Location: HCPCS+1
Routine Call	DIC Line Location: EN+5 VEN0+7
Routine Call	DIR Line Location: EDX+3 DEL+2 EDU+2 EDU+3 EDU+5 CPT+7 SOURCE+2 QTY+2
Routine Call	%ZIS Line Location: EN+2

FileNo	Call Tags
^PRC(440 - [#440]	Classic Fileman Calls
^RMPR(660 - [#660]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PRCP(445 - [#445]	INVSE+12
^RMPR(660 - [#660]	EN+7, EN+8, EN+9, INVSE+12
^RMPR(661 - [#661]	SET+8
^RMPR(661.6 - [#661.6]	INVSE+10

Name	Line Occurrences
2	EDU+4, EDU+5
CO	EDU+2, EDU+3, EDU+5, CPT+5, VEN0+7, SET+8, SET+9
DEL	SET+10
EDT	EDX+4, DEL+4
HCPCS	HCPCS+7
SET	INVSE+14
VEN0	HCPCS+6, HCPCS+16, VEN0+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %X	INVSE, INVSE+1
>> %Y	INVSE, INVSE+1
>> DFN	EN+8*
DIC	EN+5, INVSE, INVSE+1, INVSE+13!, CPT+1!, VEN0+1!, VEN0+7, VEN0+9!
DIC("A"	EN+5, VEN0+6
DIC("B"	VEN0+2, VEN0+3
DIC("S"	EN+3*
DIC("W"	EN+5*
DIC(0	EN+5, VEN0+4, VEN0+7*
DIR	EDX+3!, EDU+1!, EDU+5!, CPT+13!, VEN0+1!, VEN0+9!, SOURCE+1!, QTY!, QTY+4!
DIR("?"	EDX+2, DEL+2
DIR("A"	EDX+2, DEL+2, CPT+7, SOURCE+1, QTY*
DIR("B"	EDX+2, DEL+1, EDU+1, EDU+3, EDU+5, CPT+7, SOURCE+1, QTY+1
DIR(0	EDX+1, DEL+1, EDU+1, EDU+3, EDU+5, CPT+7, SOURCE+1, QTY+1
>> DIRUT	EDX+5, DEL+3, EDU+2, EDU+3, EDU+5, SOURCE+2, QTY+2
>> DTOUT	EDX+5, DEL+3, EDU+5, CPT+5, CPT+7, VEN0+7, SOURCE+2, QTY+2
>> DUOUT	EDX+5, DEL+3, EDU+5, CPT+5, CPT+7, CPT+10, VEN0+7, SOURCE+2, QTY+2
IOF	EDT+1
>> R1("AM"	EDU+3, EDU+4, EDU+5, EDU+6*, SET+3, SET+4, SET60+18, SET60+19, SET60+27
>> R1("D"	SET+9*
>> R1("DATE&TIME"	SET60+24
>> R1(0	INVSE+7, INVSE+11, EDU, EDU+2, HCPCS+10, HCPCS+13, HCPCS+15, CPT+2, VEN0+3, VEN0+9* , SOURCE+1, SOURCE+3, QTY+1, QTY+3, QTY+4, SET+1, SET+2, SET+5, SET+6, SET+7 , SET+8, SET60+2, SET60+3, SET60+4, SET60+5, SET60+6, SET60+7, SET60+8, SET60+10, SET60+11 , SET60+12, SET60+13, SET60+14, SET60+15, SET60+20
>> R1(1	INVSE+5, INVSE+6, INVSE+9, HCPCS+14, CPT+4, CPT+5, CPT+10*, SET+5, SET+9, SET60+9 , SET60+16, SET60+17
>> R1(2	INVSE+2*, INVSE+10
>> R12(0	INVSE+11*
>> R1BCK(2	INVSE+2*
>> R3("D"	INVSE+13, EDU+2, HCPCS+2, VEN0+9, SOURCE+3, SET+1, SET+2, SET+8*
>> R4("D"	INVSE+13, EDU+3, EDU+4, EDU+5, EDU+6, SET+3, SET+4
>> R6612	INVSE+10*
>> RDA	CPT+2*, CPT+5, CPT+10
>> REDIT	INVSE+5*, HCPCS+6, CPT+4, CPT+5, CPT+6
>> RIPOLD	INVSE+12*
>> RITOLD	SET+8*
>> RMCPOLD	CPT+9*, CPT+11, CPT+12
>> RMCPT	INVSE+6*, CPT+3, CPT+5, CPT+9, CPT+10, CPT+11, CPT+12
>> RMDAHC	HCPCS+14, CPT+2, CPT+5, CPT+6, SET60+21
>> RMDFN	EN+8*
>> RMHCNEW	INVSE+5*
>> RMHCOLD	INVSE+5, CPT+5, CPT+6, SET+5
>> RMHCPC	INVSE+5*
>> RMIT	INVSE+10*
>> RMITNEW	INVSE+8, INVSE+10
>> RMITOLD	INVSE+8, INVSE+10
>> RMLOC	INVSE+10*
>> RMLOCNEW	INVSE+8, INVSE+10
>> RMLOCOLD	INVSE+8, INVSE+10
>> RMPR("STA"	SET60+26
RMPR1	EN+1!
RMPR11	EN+1!
RMPR11I	EN+1!
RMPR11I("ITEM	MASTER IEN" , HCPCS+10
RMPR11I("ITEM"	SET60+23
RMPR11I("SOURCE"	HCPCS+15
RMPR11I("STATION"	SET60+26*
RMPR5	EN+1!
RMPR6	EN+1!
RMPR6("VENDOR"	VEN0+2, VEN0+3
>> RMPR60("COST"	SET60+11*, SET60+25
>> RMPR60("CPT I	EN" , SET60+14*
>> RMPR60("CPT M	OD" , SET60+16*
>> RMPR60("DATE	OF SERVICE" , SET60+9*
>> RMPR60("DATE&TIME"	SET60+24*
>> RMPR60("DELIV	DATE" , SET60+8*
>> RMPR60("HCPCS"	SET60+17, SET60+21
>> RMPR60("IFCAP	ITEM" , SET60+3*
>> RMPR60("ISSUE	TYPE" , SET60+2*
>> RMPR60("ITEM"	SET60+23*
>> RMPR60("LOT N	UM" , SET60+13*
>> RMPR60("PAT C	AT" , SET60+18*
>> RMPR60("QUANTITY"	SET60+4*
>> RMPR60("REMARKS"	SET60+12*
>> RMPR60("SERIA	L NUM" , SET60+7*
>> RMPR60("SOURCE"	SET60+10*
>> RMPR60("SPEC	CAT" , SET60+19, SET60+27
>> RMPR60("UNIT"	SET60+5*
>> RMPR60("USER"	SET60+15*
>> RMPR60("VALUE"	SET60+25*
>> RMPR60("VENDO	R IEN" , SET60+6*
>> RMPR60("VENDOR"	SET60+20*
RMPR7	EN+1!
RMPR7("QUANTITY"	HCPCS+12
RMPR7("VALUE"	HCPCS+12
RMPR7I	EN+1!
RMPR9	EN+1!
>> RMPRBARC	HCPCS+6, HCPCS+7
>> RMPRCOST	INVSE+5, HCPCS+11, HCPCS+12, HCPCS+13, SET+7
>> RMPREXC	HCPCS+2, HCPCS+3, HCPCS+4, HCPCS+5
>> RMPRF	EN+9*
>> RMPRIEN	EN+6*, INVSE+12
>> RMPRIP	INVSE+12*
>> RMPRNAM	INVSE+4*, EDT+1
>> RMPRPF	SET+5*
>> RMPRREL	INVSE+11*
>> RMPRSSN	INVSE+4*
>> RMQNEW	INVSE+7*
>> RMQOLD	INVSE+7, SET+5, SET+7, SET+8*
>> RMSO	SET+6*
>> RMSTOCK	INVSE+9*, INVSE+10
>> RMTY	EDU*, EDU+1
>> RMUBA	QTY+3
RQUIT	CPT+1!
>> RSTCK	INVSE+5*
U	EN+8, EN+9, INVSE+4, INVSE+5, INVSE+6, INVSE+7, INVSE+9, INVSE+10, INVSE+11, INVSE+12 , EDU, EDU+2, EDU+3, EDU+4, EDU+5, EDU+6, HCPCS+2, HCPCS+10, HCPCS+13, HCPCS+14 , HCPCS+15, CPT+2, CPT+4, CPT+5, CPT+10, VEN0+3, VEN0+9, SOURCE+1, SOURCE+3, QTY+1 , QTY+3, QTY+4, SET+1, SET+2, SET+3, SET+4, SET+5, SET+6, SET+7, SET+8 , SET+9, SET60+2, SET60+3, SET60+4, SET60+5, SET60+6, SET60+7, SET60+8, SET60+9, SET60+10 , SET60+11, SET60+12, SET60+13, SET60+14, SET60+15, SET60+16, SET60+17, SET60+18, SET60+19, SET60+20 , SET60+27
>> VADM(1	INVSE+4
>> VADM(2	INVSE+4
>> X	EN+2, EDU+5
Y	EN+5, EN+6, EN+7, EN+8, EN+9, INVSE, INVSE+1, EDX+3, EDX+4, DEL+4 , DEL+5, EDU+2, EDU+3, EDU+4, EDU+5, EDU+6, CPT+1!, CPT+8, VEN0+8, VEN0+9 , SOURCE+3, QTY+3, QTY+4, SET+8, SET+9

Customize PDF page

Package: Prosthetics

Routine: RMPRPIYE

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: