Routine: RMPV0RMPRPIYI

Package	Total	Call Graph
Prosthetics Vision 4 Sight II	9	^RMPV0RMPRPAT (,2)^RMPV0RMPRPIYI (,LIST)^RMPV0RMPRPIYJ SCAN^RMPV0RMPRPIYS DIV4^RMPV0RMPRSIT GETPAT^RMPV0RMPRUTIL (%DIC,%DIR)^RMPVFM (WRITE,WRITECTL,WRITEIND)^RMPVIO HOMEZIS^RMPVRT
Prosthetics	7	$$STOCK^RMPRPIUE $$STOCK^RMPRPIUV $$ETOI^RMPRPIX1 (HCPCS,HCPCS3)^RMPRPIY1 EXIT^RMPRPIYJ CPT^RMPRPIYS LINK^RMPRS
VA FileMan	2	EN^DDIOL MIX^DIC1

Package

Total

Call Graph

^RMPV0RMPRPAT (,2)^RMPV0RMPRPIYI (,LIST)^RMPV0RMPRPIYJ SCAN^RMPV0RMPRPIYS DIV4^RMPV0RMPRSIT GETPAT^RMPV0RMPRUTIL (%DIC,%DIR)^RMPVFM (WRITE,WRITECTL,WRITEIND)^RMPVIO
HOMEZIS^RMPVRT

Prosthetics

$$STOCK^RMPRPIUE $$STOCK^RMPRPIUV $$ETOI^RMPRPIX1 (HCPCS,HCPCS3)^RMPRPIY1 EXIT^RMPRPIYJ CPT^RMPRPIYS LINK^RMPRS

VA FileMan

EN^DDIOL MIX^DIC1

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

Package	Total	Caller Graph
Prosthetics Vision 4 Sight II	3	RMPV0RMPROP RMPV0RMPRPIYI RMPV0RMPRPIYJ

Package

Total

Caller Graph

Prosthetics Vision 4 Sight II

RMPV0RMPROP RMPV0RMPRPIYI RMPV0RMPRPIYJ

Entry Points

Name	Comments	DBIA/ICR reference
RMPRPIYI	;HINCIO/RVD-ISSUE FROM STOCK ;6/16/04 08:18
VIEW	;
RES	;ENTRY POINT TO ADD ADDITIONAL ITEMS FOR ISSUE FROM STOCK
1	;ENTRY POINT TO EDIT ITEM ON ISSUE FROM STOCK
TRAN	;TYPE OF TRANSACTION
PCAT	;
SPE
2
HCPCS	;HCPCS code
ASKLOC	;ask for location
ITEM	;PSAS Item details.
CPT	;ask for CPT Modifier
VEN	;vendor
MESSI	;print message if COST is not defined in the inventory (661.5)
MESSO	;print message if SOURCE is not defined in the inventory (661.11)
INACT	;print message if HCPCS is inactive.
LOWBA	;print message if inventory balance is low.
LKP	;print a message if PSAS HCPCS not in PIP or invalid HCPCS.

Name	Field # of Occurrence
EN^DDIOL	LKP+6
MIX^DIC1	ASKLOC+6
$$STOCK^RMPRPIUE	ITEM+14
$$STOCK^RMPRPIUV	VEN+5
$$ETOI^RMPRPIX1	HCPCS+14, ITEM+2
HCPCS^RMPRPIY1	HCPCS+3
HCPCS3^RMPRPIY1	2+9
EXIT^RMPRPIYJ	RMPRPIYI+6, RMPRPIYI+8, RMPRPIYI+10, VIEW+3
CPT^RMPRPIYS	CPT+1
LINK^RMPRS	RMPRPIYI+7
^RMPV0RMPRPAT	VIEW+2
^RMPV0RMPRPIYI	TRAN+8, TRAN+11, PCAT+4, SPE+2, 2+4, HCPCS+7
2^RMPV0RMPRPIYI	ASKLOC+8
^RMPV0RMPRPIYJ	2+7, 2+10, VEN+16
LIST^RMPV0RMPRPIYJ	TRAN+9, PCAT+2, SPE+1, 2+2, 2+3, HCPCS+6, ASKLOC+7, ITEM+24, VEN+11
SCAN^RMPV0RMPRPIYS	2+1
DIV4^RMPV0RMPRSIT	RMPRPIYI+6
GETPAT^RMPV0RMPRUTIL	RMPRPIYI+10
%DIC^RMPVFM	VEN+11
%DIR^RMPVFM	TRAN+7, PCAT+2, SPE
WRITE^RMPVIO	VIEW+3, 1+3, 1+4, 1+5, HCPCS+16, HCPCS+17, HCPCS+21, HCPCS+22, ASKLOC+10, ITEM+3 , ITEM+15, VEN+6, VEN+14, MESSI+2, MESSI+3, MESSI+4, MESSI+5, MESSO+1, MESSO+2, INACT+1 , INACT+2, INACT+3, LOWBA+2, LOWBA+3, LOWBA+4
WRITECTL^RMPVIO	VIEW+3, 1+3, 1+4, 1+5, TRAN+1, 2+1, HCPCS+8, HCPCS+16, HCPCS+18, HCPCS+21 , HCPCS+22, HCPCS+23, ASKLOC+10, ITEM+3, ITEM+15, VEN+6, VEN+14, MESSI+2, MESSI+3, MESSI+4 , MESSI+5, MESSO+1, MESSO+2, INACT+1, INACT+2, INACT+3, LOWBA+2, LOWBA+3, LOWBA+4
WRITEIND^RMPVIO	RMPRPIYI+5, 1+3
HOMEZIS^RMPVRT	RMPRPIYI+5

Name

Field # of Occurrence

LKP+6

ASKLOC+6

ITEM+14

VEN+5

HCPCS+14, ITEM+2

HCPCS+3

2+9

RMPRPIYI+6, RMPRPIYI+8, RMPRPIYI+10, VIEW+3

CPT+1

VIEW+2

TRAN+8, TRAN+11, PCAT+4, SPE+2, 2+4, HCPCS+7

2^RMPV0RMPRPIYI

ASKLOC+8

^RMPV0RMPRPIYJ

2+7, 2+10, VEN+16

LIST^RMPV0RMPRPIYJ

TRAN+9, PCAT+2, SPE+1, 2+2, 2+3, HCPCS+6, ASKLOC+7, ITEM+24, VEN+11

2+1

RMPRPIYI+10

VEN+11

TRAN+7, PCAT+2, SPE

VIEW+3, 1+3, 1+4, 1+5, HCPCS+16, HCPCS+17, HCPCS+21, HCPCS+22, ASKLOC+10, ITEM+3
, ITEM+15, VEN+6, VEN+14, MESSI+2, MESSI+3, MESSI+4, MESSI+5, MESSO+1, MESSO+2, INACT+1
, INACT+2, INACT+3, LOWBA+2, LOWBA+3, LOWBA+4

WRITECTL^RMPVIO

VIEW+3, 1+3, 1+4, 1+5, TRAN+1, 2+1, HCPCS+8, HCPCS+16, HCPCS+18, HCPCS+21
, HCPCS+22, HCPCS+23, ASKLOC+10, ITEM+3, ITEM+15, VEN+6, VEN+14, MESSI+2, MESSI+3, MESSI+4
, MESSI+5, MESSO+1, MESSO+2, INACT+1, INACT+2, INACT+3, LOWBA+2, LOWBA+3, LOWBA+4

WRITEIND^RMPVIO

RMPRPIYI+5, 1+3

HOMEZIS^RMPVRT

RMPRPIYI+5

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"PSAS Item was not selected!!" Line Location: ITEM+25

Name

Line Occurrences

Function Call: WRITE

Prompt: !,"PSAS Item was not selected!!"
Line Location: ITEM+25

FileNo	Call Tags
^RMPR(661.5 - [#661.5]	Classic Fileman Calls

FileNo

Call Tags

^RMPR(661.5 - [#661.5]

Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^RMPR(661.1 - [#661.1]	VEN+2, LKP+6
^RMPR(661.11 - [#661.11]	LKP+5
^RMPR(661.5 - [#661.5]	ASKLOC+13, MESSI+4
^RMPR(661.7 - [#661.7]	HCPCS+20, HCPCS+30, LKP+4
^TMP($J	RMPRPIYI+7, RMPRPIYI+8, RMPRPIYI+9!

Name

Line Occurrences (* Changed, ! Killed)

^RMPR(661.1 - [#661.1]

VEN+2, LKP+6

^RMPR(661.11 - [#661.11]

LKP+5

^RMPR(661.5 - [#661.5]

ASKLOC+13, MESSI+4

^RMPR(661.7 - [#661.7]

HCPCS+20, HCPCS+30, LKP+4

^TMP($J

RMPRPIYI+7, RMPRPIYI+8, RMPRPIYI+9!

Name	Line Occurrences
2	PCAT+6, 2+8, HCPCS+5, HCPCS+15, HCPCS+20, ITEM+18, ITEM+21, ITEM+27, CPT+3, CPT+4 , VEN+13
ASKLOC	ASKLOC+10, ASKLOC+13
ITEM	HCPCS+31
LOWBA	ITEM+18
MESSI	ITEM+27
MESSO	ITEM+21
PCAT	2+5
VEN	VEN+14

Name

Line Occurrences

PCAT+6, 2+8, HCPCS+5, HCPCS+15, HCPCS+20, ITEM+18, ITEM+21, ITEM+27, CPT+3, CPT+4
, VEN+13

ASKLOC+10, ASKLOC+13

HCPCS+31

ITEM+18

ITEM+27

ITEM+21

2+5

VEN+14

Name	Field # of Occurrence
^(	HCPCS+30

Name

Field # of Occurrence

HCPCS+30

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CK	VIEW+4*
>> CK1	VIEW+6*, TRAN+10, PCAT+3, SPE, 2+6, HCPCS+4, ASKLOC+9, ITEM+3, ITEM+15, CPT+2 , VEN+6, VEN+12
>> CK2	VIEW+5*, PCAT+4, SPE+2, 2+4, HCPCS+7
>> D	ASKLOC+2*
DA	RES+2!
DD	RES+2!
DIC	RES+2!, ASKLOC+1!, ASKLOC+5, ITEM+29!, VEN+10, VEN+15!
DIC("A"	ASKLOC+6, VEN+10
DIC("B"	ASKLOC+4, ITEM+16!, VEN+7, VEN+8*
DIC("S"	ASKLOC+3, ITEM+16!, VEN+10
DIC(0	ASKLOC+5, VEN+9
DIR	TRAN+3!, TRAN+12!, PCAT+5!
DIR("A"	TRAN+6*
DIR("B"	TRAN+4, PCAT+1, SPE, ITEM+6
DIR(0	TRAN+5, PCAT+1, SPE*
DT	RES+7
>> DTOUT	VIEW+3, TRAN+10, PCAT+3, SPE, ASKLOC+9, VEN+12
>> DUOUT	TRAN+9, TRAN+11, PCAT+2, PCAT+4, SPE+1, SPE+2, ASKLOC+7, ASKLOC+8, ITEM+24, VEN+11 , VEN+13
DUZ	RES+7
>> DZ	ASKLOC+2*
>> I	HCPCS+30*
PRC	RES+2!
>> R1	RES+6*
>> R1("AM"	RES+4, PCAT+1, PCAT+2, PCAT+5, PCAT+6, SPE, SPE+3
>> R1("D"	RES+4*
>> R1(0	RES+4, RES+7, TRAN+4, TRAN+12, HCPCS+25, HCPCS+26, ITEM+13, ITEM+22, ITEM+28, CPT+1 , VEN+2, VEN+8, VEN+15*
>> R1(1	RES+4, 1+1, ITEM+24, VEN+2
>> R1(2	RES+6, ITEM+5
>> R3("D"	VIEW+7, RES+4, TRAN+4, TRAN+8, TRAN+9, TRAN+13, 2+2, HCPCS+27, ITEM+23, ITEM+28 , VEN+11, VEN+15*
>> R4("D"	RES+4, PCAT+1, PCAT+5, PCAT+6, SPE, SPE+3
>> RDESC	HCPCS+12*
>> REDIT	RES+6*, 1+4, 1+5, SPE+1, 2, 2+3, 2+7, HCPCS+6, ASKLOC+7, ITEM+28 , VEN+8
>> RMAV	HCPCS+1*
>> RMAVA	HCPCS+1*
>> RMBAL	HCPCS+1*
>> RMCHCK	ITEM+2, ITEM+3, ITEM+14, ITEM+15
>> RMCO	HCPCS+1*
RMDAHC	RES+2!, HCPCS+11*, ITEM+6, CPT+1, VEN+2
RMDES	VIEW+1~, ITEM+16*
>> RMERR	VEN+5*, VEN+6
>> RMF	LKP+1
>> RMHCDA	HCPCS+1, HCPCS+11, ITEM+20, ITEM+26
>> RMHCFLG	1+2, HCPCS+1
>> RMHCNEW	RES+6, 1+1, HCPCS+11*
RMHCOLD	RES+2!, RES+6, 1+1, ITEM+6
>> RMHCPC	HCPCS+2, HCPCS+10*, HCPCS+20, HCPCS+30, ITEM+11
>> RMIT	RES+6, 1+1, ITEM+4, ITEM+5, ITEM+6, ITEM+16, MESSI+1, MESSI+3, LOWBA+1, LOWBA+2
RMITDA	RES+2!, HCPCS+1*
>> RMITDES	ITEM+16*
>> RMITDESC	RES+6*
>> RMITFLG	HCPCS+1*
>> RMITIEN	RES+6*
>> RMITNO	HCPCS+9*, HCPCS+20
>> RMITOLD	1+1*
RMITQTY	VIEW+1~
RMLACO	RES+2!
>> RMLCNT	HCPCS+29, HCPCS+30, HCPCS+31
>> RMLOC	RES+4, 1+1, HCPCS+30, ASKLOC+11*, ASKLOC+12, ASKLOC+13, ITEM+10, ITEM+20, ITEM+26, MESSI+4
>> RMLOCOLD	RES+6, 1+1, ASKLOC+4
>> RMLODES	RES+5*
>> RMPR	RMPRPIYI+6
>> RMPR("STA"	RES+7, HCPCS+3, HCPCS+20, HCPCS+30, ITEM+9, LKP+4, LKP+5
>> RMPR1	HCPCS+3
>> RMPR1("HCPCS"	HCPCS+10
>> RMPR1("IEN"	HCPCS+11
>> RMPR1("SHORT	DESC" , HCPCS+12
>> RMPR11	HCPCS+3, HCPCS+14, ITEM+2
>> RMPR11("DESCRIPTION"	ITEM+5
>> RMPR11("HCPCS-ITEM"	ITEM+4
>> RMPR11("ITEM	MASTER" , HCPCS+27
>> RMPR11("ITEM"	HCPCS+9, ITEM+12
>> RMPR11("UNIT"	HCPCS+26
RMPR11I	2, 2+7*, HCPCS+13!, HCPCS+14, ITEM+1!, ITEM+2
RMPR11I("ITEM	MASTER IEN" , HCPCS+15, HCPCS+25
RMPR11I("SOURCE"	ITEM+20
RMPR11IS	RES+3!, 2*, 2+7
RMPR5	2, 2+7*, ASKLOC+1!
RMPR5("IEN"	HCPCS+30, ASKLOC+12
RMPR5SA	RES+3!, 2*, 2+7
>> RMPR6	2, 2+7*
>> RMPR699("AMIS	GROUPER" , RMPRPIYI+4*
RMPR6SA	RES+3!, 2*, 2+7
RMPRBAC1	VIEW+1~, VIEW+2*!
>> RMPRBARC	2+7, 2+8
>> RMPRDFN	RMPRPIYI+7, RMPRPIYI+8, RMPRPIYI+10, RES+1, RES+7
>> RMPRERR	HCPCS+14*
>> RMPREXC	2+2, 2+3, 2+4, 2+5, 2+6, HCPCS+3, HCPCS+4, HCPCS+5, HCPCS+6, HCPCS+7 , CPT+2, CPT+3, CPT+4
>> RMPRF	RMPRPIYI+5*
>> RMPRG	RMPRPIYI+5*
>> RMPRHCPC	HCPCS+2*, HCPCS+3
>> RMPRI("AMS"	RES+4*
>> RMPRKILL	VIEW+3
>> RMPRNAM	1+3
>> RMPRUCST	ITEM+26*, ITEM+27, ITEM+28
RMPRVEN	RES+2!, VEN+4!, VEN+5, VEN+7
RMPRVEN(0	VEN+7
RMQTY	RES+2!
>> RMR	ITEM+14, VEN+5
>> RMR("HCPCS"	ITEM+11*
>> RMR("ITEM"	ITEM+12*
>> RMR("LOCATION	IEN" , ITEM+10*
>> RMR("QOH"	ITEM+17
>> RMR("STATION	IEN" , ITEM+9*
>> RMR("UNIT COS	T" , ITEM+26
>> RMR("VENDOR I	EN" , ITEM+13*
RMSO	RES+2!, ITEM+20*, ITEM+21, ITEM+22, ITEM+23
>> RMUBA	ITEM+17, ITEM+18, LOWBA+1, LOWBA+2
RQUIT	1+2!, ASKLOC+1!
>> RSTCK	VIEW+2*, LKP+4, LKP+5
RX	LKP+3!, LKP+4, LKP+5, LKP+6, LKP+7!
U	RES+7, 1+1, TRAN+4, TRAN+8, TRAN+9, TRAN+12, TRAN+13, PCAT+1, PCAT+2, PCAT+5 , PCAT+6, SPE, SPE+3, 2+2, HCPCS+25, HCPCS+26, HCPCS+27, ITEM+5, ITEM+13, ITEM+22 , ITEM+23, ITEM+24, ITEM+28, CPT+1, VEN+2, VEN+8, VEN+11, VEN+15, MESSI+4
X	RMPRPIYI+6, RES+2!, ASKLOC+1!, ASKLOC+10, VEN+15!, LKP+1, LKP+2*, LKP+4, LKP+5, LKP+6
Y	RES+2!, TRAN+8, TRAN+12, TRAN+13, PCAT+5, PCAT+6, SPE, SPE+3, ASKLOC+1!, ASKLOC+11 , VEN+14, VEN+15!

Customize PDF page

Package: Prosthetics Vision 4 Sight II

Routine: RMPV0RMPRPIYI

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: