Routine: RMPR29LE

Package	Total	Call Graph
Prosthetics	11	STA^RMPR29LC (GD,INV,SET,SG,ST)^RMPR29LS (CHK,LIS,RDL)^RMPR29LU PRT^RMPR29R CR^RMPR29U $$STA^RMPR31U ITEMLOC^RMPR5NU1 ^RMPRPAT LINK^RMPRS DIV4^RMPRSIT GETPAT^RMPRUTIL
VA FileMan	5	^DIC FILE^DICN ^DIE IX1^DIK ^DIR
Kernel	1	KILL^XUSCLEAN
Registration	1	(IN5,INP,KVAR)^VADPT

Package	Total	Caller Graph
Prosthetics	1	RMPR LAB STOCK ISSUE

Entry Points

Name	Comments	DBIA/ICR reference
CREATE	;CREATE Lab Stock Issue 2529-3
VIEW	;CREATE Lab Stock Issue 2529-3 VIA LAB MENU
EDT	;EDIT/DELETE 2529-3
TYPE	;
TRAN
PCAT
SCAT
ITEM	;EDIT 2529-3 ITEM
HCPCS	;HCPCS code
HMESS1
GI
VEN
VEN0
COS	;UNIT COST
QTY
LAB	;ASK TO POST REQUEST
PRINT
HELP	;
EXIT	;common exit

External References

Name	Field # of Occurrence
^DIC	EDT+7, ITEM+3, HCPCS+4, VEN0+1
FILE^DICN	VIEW+3
^DIE	ITEM+5, QTY+14, QTY+17, QTY+19
IX1^DIK	VIEW+6, PRINT+1
^DIR	EDT+13, TYPE+8, TRAN+1, PCAT+1, SCAT+1, COS+5, QTY, QTY+5, LAB+3, LAB+7 , PRINT+3
STA^RMPR29LC	PRINT+5
GD^RMPR29LS	TYPE+3
INV^RMPR29LS	GI+1
SET^RMPR29LS	LAB+1
SG^RMPR29LS	PRINT
ST^RMPR29LS	TYPE+2
CHK^RMPR29LU	LAB+3, LAB+5
LIS^RMPR29LU	EDT+11
RDL^RMPR29LU	TYPE+4, TYPE+9, TRAN+2, PCAT+2, SCAT+1, HCPCS+5, HCPCS+11, GI, VEN0+2, COS+6 , QTY+1, QTY+6, LAB+3, LAB+5, LAB+8, LAB+10
PRT^RMPR29R	LAB+4, PRINT+3
CR^RMPR29U	LAB+10
$$STA^RMPR31U	VIEW+5
ITEMLOC^RMPR5NU1	HCPCS+10
^RMPRPAT	VIEW+1
LINK^RMPRS	PRINT+7
DIV4^RMPRSIT	CREATE+1, EDT+2
GETPAT^RMPRUTIL	CREATE+2
IN5^VADPT	VIEW+9
INP^VADPT	VIEW+9
KVAR^VADPT	VIEW+7
KILL^XUSCLEAN	EXIT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?5,"Someone is already editing this entry" Line Location: EDT+9
Function Call: WRITE	Prompt: !,"*** UNABLE to access patient information, please contact your IRM..",! Line Location: TYPE+2
Function Call: WRITE	Prompt: !,"Please enter Type of Transaction!!" Line Location: TRAN+3
Function Call: WRITE	Prompt: !,"Please enter Patient Category!!" Line Location: PCAT+3
Function Call: WRITE	Prompt: !,"HCPCS CODE IS MANDATORY!" Line Location: HCPCS+6
Function Call: WRITE	Prompt: !,$C(7),"HCPCS has no pre-determined time....",!,"Please SEND mail message to G.PROS-CODE@DOMAIN.EXT!!!" Line Location: HMESS1+0
Function Call: WRITE	Prompt: $C(7),!,"You are not an authorized user of any Inventory Point, please see your ADPAC." Line Location: GI+0
Function Call: WRITE	Prompt: !!,?5,$C(7),"This is a required response. Enter '^' to exit",! Line Location: VEN0+3
Function Call: WRITE	Prompt: !,"You must enter a UNIT COST....",! Line Location: COS+7
Function Call: WRITE	Prompt: !,"You must enter a quantity....",! Line Location: QTY+2
Function Call: WRITE	Prompt: !!,?5,$C(7),"Request not posted!!" Line Location: LAB+8
Function Call: WRITE	Prompt: !!,?5,$C(7),"Request not posted!!" Line Location: LAB+10
Function Call: WRITE	Prompt: !! Line Location: PRINT+2
Function Call: WRITE	Prompt: !," You can only select HCPCS that have a LAB pre-determined time.",!," If the HCPCS you are selecting are not in the list, please send an E-mail" Line Location: HELP+1
Function Call: WRITE	Prompt: !,"** message to G.PROS-CODE@DOMAIN.EXT to be added in the list..." Line Location: HELP+2
Function Call: WRITE	Prompt: !! Line Location: EXIT+2
Routine Call	DIC Line Location: EDT+7 ITEM+3 HCPCS+4 VEN0+1
Routine Call	DIE Line Location: ITEM+5 QTY+14 QTY+17 QTY+19
Routine Call	DIR Line Location: EDT+13 TYPE+8 TRAN+1 PCAT+1 SCAT+1 COS+5 QTY QTY+5 LAB+3 LAB+7 PRINT+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRCP(445 - [#445]	GI, COS+1
^RMPR(661 - [#661]	ITEM+4
^RMPR(661.1 - [#661.1]	HCPCS+7, HCPCS+8
^RMPR(661.3 - [#661.3]	COS+2
^RMPR(664.1 - [#664.1]	VIEW+4, VIEW+8, EDT+8, EDT+10, ITEM+5, ITEM+6!, ITEM+8!, ITEM+9, ITEM+11, ITEM+12 , QTY+11, QTY+12, QTY+18, QTY+20, QTY+21, QTY+22, LAB+9, EXIT+1
^RMPR(669.9 - [#669.9]	GI, GI+1

Label References

Name	Line Occurrences
COS	COS+7
CREATE	PRINT+8
EXIT	CREATE+1, CREATE+2, VIEW+3, EDT+2, EDT+7, EDT+9, EDT+13, TYPE+2, TYPE+4, TYPE+9 , TRAN+2, PCAT+2, SCAT+1, HCPCS+5, HCPCS+11, GI, VEN0+2, COS+6, QTY+1, QTY+6 , QTY+17, LAB+3, LAB+5, LAB+7, LAB+8, LAB+10, PRINT+3
GI	HCPCS+13
HCPCS	HCPCS+6, HCPCS+7, HCPCS+8
HELP	HCPCS+6, HCPCS+7
ITEM	PCAT+4, ITEM+5, ITEM+8, GI+2, QTY+23
LAB	ITEM+3, HCPCS+5, HCPCS+11, GI+1, VEN0+2, COS+6, QTY+1, QTY+6, QTY+17
PCAT	PCAT+3
PRINT	LAB+9
QTY	QTY+2
TRAN	TRAN+3
TYPE	EDT+1, LAB+5
VEN	HCPCS+12, VEN0+3

Naked Globals

Name	Field # of Occurrence
^(0	VIEW+4*, LAB+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CK	HMESS1
DA	VIEW+6, VIEW+7!, ITEM+1, ITEM+5, ITEM+9, ITEM+11, ITEM+12, QTY+14!, QTY+15, QTY+18 , QTY+20, QTY+21, QTY+22, PRINT+1!
DA(1	ITEM+2, HCPCS+9, QTY+13, QTY+15
DIC	VIEW+2, VIEW+3!, VIEW+7!, EDT+2!, EDT+3, EDT+7!, ITEM+1!, ITEM+3!, HCPCS+1!, HCPCS+2 , HCPCS+10!, VEN0+1*, VEN0+4!
DIC("A"	EDT+7!, HCPCS+2, VEN0+1
DIC("B"	HCPCS+2, VEN0, VEN0+1*
DIC("P"	ITEM+2*
DIC("S"	EDT+5, HCPCS+3, VEN!
DIC("W"	EDT+6*
DIC(0	VIEW+2, EDT+3, ITEM+2, HCPCS+2, VEN0+1*
DIE	VIEW+7!, ITEM+5, ITEM+6!, QTY+13, QTY+14!, QTY+15*
DIE(0	QTY+8*
DIK	VIEW+6, PRINT+1!
DIR	EDT+11!, TYPE+1!, TYPE+10!, TRAN+4!, PCAT!, PCAT+4!, SCAT+3!, ITEM+1!, COS+5!, COS+8! , QTY+3!, QTY+5!, QTY+7!, LAB+6!
DIR("?"	TYPE+7*
DIR("A"	EDT+12, TYPE+6, COS+3, LAB+2, LAB+6, PRINT+2
DIR("B"	EDT+12, TYPE+6, TRAN, PCAT, SCAT, COS+4, QTY, QTY+5, LAB+3, LAB+7 , PRINT+3*
DIR(0	EDT+12, TYPE+6, TYPE+11, PCAT, SCAT, COS+3, QTY, QTY+5, LAB+2, LAB+6 , PRINT+2*
>> DIRUT	EDT+13
DLAYGO	VIEW+3*!
DR	VIEW+7!, EDT+2!, EDT+3, ITEM+5, ITEM+6!, QTY+8, QTY+14!, QTY+16, QTY+19*
DR(1	QTY+9*
DR(2	QTY+10*
DT	VIEW+2
DTOUT	EDT+13, TYPE+9, TRAN+2, PCAT+2, SCAT+1, ITEM+1!, HCPCS+5, VEN0+2, COS+6, QTY+1 , QTY+6, QTY+17, LAB+3, LAB+7, PRINT+3
DUOUT	TYPE+9, TRAN+2, PCAT+2, SCAT+1, ITEM+1!, HCPCS+5, VEN0+2, COS+6, QTY+1, QTY+6 , QTY+17, LAB+3, LAB+7, PRINT+3
DUZ	GI
>> IDEF	VIEW+5*
>> IOP	LAB+4*
>> PDA	TYPE+1*
>> PRCP("I"	COS+1
>> PRCP("ITEM"	COS+1
>> PRCPPRIV	GI+1*
>> R1(0	HCPCS+8*
RDEL	ITEM+1!, GI+2
REDIT	EDT+2, ITEM+7!, ITEM+9, ITEM+10, HCPCS+5, HCPCS+11, GI+1, VEN0+1, VEN0+2, COS+6 , QTY+1, QTY+6, QTY+17, LAB+1
>> RFLG	VIEW+1*
>> RICHECK	ITEM+6*, ITEM+7
>> RM0	ITEM+9, ITEM+13, ITEM+14, QTY, QTY+5, QTY+18
>> RM3	ITEM+12*
>> RMCAT	PCAT+4*, SCAT+1, SCAT+2
>> RMCATS	PCAT, PCAT+4, ITEM+14
>> RMCO	COS+8, QTY+18, QTY+19
>> RMCOS	ITEM+13, COS+1, COS+2*, COS+4
>> RMDFN	CREATE+3*, VIEW+4
RMEDIT	ITEM+1!, LAB+5
>> RMEXIT	GI+1, LAB+3, LAB+5
>> RMFLG	TYPE+4
>> RMFORM	GI+1*
>> RMGIP	ITEM+13, HCPCS+12, QTY+20
>> RMHCDA	HCPCS+12, COS+2
>> RMHCPC	HCPCS+9*
>> RMHCPCS	HCPCS+9*
>> RMHS	ITEM+11*, HCPCS+2
>> RMI	HCPCS+9*
RMIDA	ITEM+5*, ITEM+6!, ITEM+8, QTY+15, LAB+1
>> RMIT	ITEM+12*
>> RMITDA	HCPCS+12, COS+2
>> RMITEMS	ITEM+4*
RMITFLG	ITEM+1!, HCPCS+11
RMLOC	ITEM+12*, HCPCS+12!, VEN0, COS+2, QTY+21
RMNEW	CREATE+1!, LAB+5!
RMPR	EXIT+3~
RMPR("STA"	VIEW+4, VIEW+5
RMPR25	CREATE+1!
RMPRDA	VIEW+1~, VIEW+4, VIEW+6, VIEW+8, EDT+1, EDT+7, EDT+8, EDT+10, TYPE+1, ITEM+1 , ITEM+2, ITEM+5, ITEM+6, ITEM+8, ITEM+9, ITEM+11, ITEM+12, QTY+11, QTY+12, QTY+13 , QTY+15, QTY+18, QTY+20, QTY+21, QTY+22, LAB+9, PRINT+1, EXIT+1
>> RMPRDFN	CREATE+2, CREATE+3, VIEW+8, EDT+10, TYPE+2
RMPREDIT	CREATE+1!
>> RMPRF	VIEW+1*
RMPRGIP	ITEM+1!, GI+1*, COS+1
RMPRJOB	VIEW+1~
RMPRSITE	GI, GI+1, EXIT+3~
RMPRTMP	CREATE+1!
RMPRWO	VIEW+1~, LAB+9*, LAB+10
>> RMQTY	QTY+3, QTY+18, QTY+19
>> RMQTYS	ITEM+13, QTY, QTY+3*
>> RMSER	QTY+7*
>> RMSERS	QTY+5, QTY+7
>> RMSO	TYPE+10*, COS+1, COS+7
>> RMSOR	TYPE+10*
>> RMSPE	SCAT+2*
>> RMSPES	SCAT, SCAT+2, ITEM+14
>> RMTOCO	QTY+19*
>> RMTYP	TRAN+4*
>> RMTYPS	TRAN, TRAN+5, ITEM+14
>> RMVEN	VEN0, VEN0+4*, QTY+22
>> RMVENS	VEN0+1, VEN0+4*
>> RNEW	VIEW+1*, TYPE+4
>> RSTOCK	VIEW+1*
>> SCR	LAB+9*, LAB+10
U	VIEW+4, VIEW+8, VIEW+9, EDT+10, ITEM+4, ITEM+8, ITEM+9, ITEM+11, ITEM+12, ITEM+13 , ITEM+14, HCPCS+7, HCPCS+8, GI, GI+1, COS+1, COS+2, QTY, QTY+5, QTY+18 , QTY+20, QTY+21, QTY+22, LAB+9
>> VAINDT	VIEW+9*
>> VAIP("D"	VIEW+8*
>> VAIP(3	VIEW+9
X	CREATE+1, VIEW+2*, EDT+2, VEN0+4!, COS+7, QTY+2
Y	VIEW+3, VIEW+4, VIEW+7!, EDT+7, EDT+13, TYPE+10, TRAN+3, TRAN+4, TRAN+5, PCAT+3 , PCAT+4, SCAT+2, ITEM+3, ITEM+4, ITEM+5, HCPCS+6, HCPCS+7, HCPCS+8, HCPCS+9, VEN0+3 , VEN0+4!, COS+8, QTY+3, QTY+7, LAB+4, LAB+8, PRINT+3

Customize PDF page

Package: Prosthetics

Routine: RMPR29LE

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: