Routine: RMPR29LI

Information

RMPR29LI ;HIN/RVD-ENTER LAB STOCK ISSUE 2529-3 [ 11/05/98

Package	Total	Call Graph
Prosthetics	10	(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	6	%XY^%RCR ^DIC FILE^DICN ^DIE IX1^DIK ^DIR
Kernel	1	KILL^XUSCLEAN
Registration	1	(IN5,INP,KVAR)^VADPT

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: 4

Package	Total	Caller Graph
Prosthetics	4	RMPR EDIT LAB STOCK ISSUE RMPR ENTER LAB ISSUE RMPR29LC RMPR29LU

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	;
VC
TRAN
PCAT
ITEM	;EDIT 2529-3 ITEM
HCPCS	;HCPCS code
GI
VEN
VEN0
UNICO	;UNIT COST
QTY
LAB	;ASK TO POST REQUEST
PRINT
HELP
SBACK	;set global back to its original data.
EXIT	;common exit

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?5,"Someone is already editing this entry" Line Location: EDT+7
Function Call: WRITE	Prompt: !,"*** Unable to access patient information, please contact your IRM..",! Line Location: TYPE+3
Function Call: WRITE	Prompt: !,"Please enter type of Transaction!!" Line Location: TRAN+5
Function Call: WRITE	Prompt: !,"Please enter Patient Category!!" Line Location: PCAT+4
Function Call: WRITE	Prompt: !,"HCPCS CODE IS MANDATORY!" Line Location: HCPCS+5
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: UNICO+7
Function Call: WRITE	Prompt: !,"You must enter a quantity....",! Line Location: QTY+2
Function Call: WRITE	Prompt: !,"Request not posted!!" Line Location: LAB+10
Function Call: WRITE	Prompt: !,"Request not posted!!" Line Location: LAB+12
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+0
Function Call: WRITE	Prompt: !,"** message to G.PROS-CODE@DOMAIN.EXT to be added in the list..." Line Location: HELP+1
Function Call: WRITE	Prompt: !,"Update not posted...." Line Location: SBACK+2
Routine Call	DIC Line Location: EDT+5 ITEM+3 HCPCS+4 VEN0+1
Routine Call	DIE Line Location: ITEM+5 QTY+9 QTY+12 QTY+14
Routine Call	DIR Line Location: EDT+12 VC+1 TRAN+3 PCAT+2 PCAT+8 UNICO+6 QTY QTY+4 LAB+4 LAB+9 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, UNICO+1
^RMPR(661 - [#661]	ITEM+4, ITEM+12
^RMPR(661.1 - [#661.1]	HCPCS+6, HCPCS+7
^RMPR(661.3 - [#661.3]	UNICO+2
^RMPR(664.1 - [#664.1]	VIEW+4, VIEW+8, EDT+6, EDT+8, EDT+13, EDT+14, EDT+16, EDT+17, TYPE+5, TYPE+6 , TYPE+7, ITEM+5, ITEM+6!, ITEM+8!, ITEM+9, ITEM+11, QTY+8, QTY+13, QTY+15, QTY+16 , QTY+17*, LAB+11, EXIT+1
^RMPR(669.9 - [#669.9]	GI, GI+1
^TMP($J	EDT+2!

Label References

Name	Line Occurrences
CREATE	PRINT+9
EDT	LAB+9, LAB+10, LAB+12, PRINT+8
EXIT	CREATE+1, CREATE+2, VIEW+3, VIEW+11, EDT+1, EDT+5, EDT+7, EDT+12, TYPE+3, TYPE+4 , VC+2, TRAN+4, PCAT+3, PCAT+8, HCPCS+4, HCPCS+9, VEN0+2, UNICO+6, QTY+1, QTY+5 , QTY+12, LAB+4, LAB+7, LAB+9, LAB+10, LAB+12, PRINT+3
HCPCS	HCPCS+5, HCPCS+6, HCPCS+7
HELP	HCPCS+5, HCPCS+6
ITEM	PCAT+5, ITEM+5, ITEM+8, GI+2, QTY+18
LAB	VC+2, TRAN+4, PCAT+3, PCAT+8, ITEM+3, HCPCS+4, HCPCS+9, GI+1, VEN0+2, UNICO+6 , QTY+1, QTY+5, QTY+12
PCAT	PCAT+4
PRINT	LAB+11
QTY	QTY+2
SBACK	LAB+4, LAB+9, LAB+10, LAB+12
TRAN	TRAN+5
TYPE	VIEW+10, LAB+7
UNICO	UNICO+7
VC	VC+3
VEN	HCPCS+10, VEN0+3

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Prosthetics

Routine: RMPR29LI

Information

Source Information

Call Graph

Call Graph Total: 18

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

Naked Globals

Local Variables

Legend: