Routine: RMPRE29

Information

RMPRE29 ;PHX/JLT,RVD-EDIT 2319 ;10/2/03 13:04

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA FileMan	5	^DIC (,UPDATE)^DIE IX1^DIK $$GET1^DIQ ^DIR
Prosthetics	2	CPT^RMPRCPTU QUICK^RMPRE29
Kernel	1	KILL^XUSCLEAN

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	4	RMPR EDIT 2319 RMPR NPPD QUICK EDIT RMPRE29 RMPROP
Kernel	1	^DIC(19
Prosthetics Vision 4 Sight II	1	RMPV0RMPROP

Entry Points

Name	Comments	DBIA/ICR reference
TYP1	;edit type of transaction....	ICR #7568 Status: Active Usage: Controlled Subscription
TRAN
PCAT
HCPC	;set type and ask item and HCPCS
QED2	;
EXIT	;
SETED2	;set 660
QUICK	;quick edit for HCPCS and type
SET
CHK	;check for transaction changes
DELRP	;logic for deleting 'RP' modifier with transaction change.
DELNU	;logic for deleting 'NU' modifier.
ADDRP	;logic for adding 'RP' modifier with transaction change.
ADDNU	;logic for adding 'NU' modifier.
UPD664	; update file 664 for Lot Number, Model, Serial Number, and Contract # Changes ; -- get the changes from 660

External References

Name	Field # of Occurrence
^DIC	RMPRE29+17, QUICK+5
^DIE	HCPC+6, HCPC+28, HCPC+29, QUICK+11
UPDATE^DIE	UPD664+16
IX1^DIK	SETED2+2
$$GET1^DIQ	UPD664+3, UPD664+5
^DIR	TRAN+3, PCAT+2, PCAT+10, HCPC+21, QED2+3, QUICK+21, SET+1
CPT^RMPRCPTU	HCPC+16, HCPC+24, QUICK+17, QUICK+23
QUICK^RMPRE29	SET+2
KILL^XUSCLEAN	EXIT+1, SET+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: RMPRE29+14
Function Call: WRITE	Prompt: ! Line Location: RMPRE29+16
Function Call: WRITE	Prompt: !,?5,$C(7),"Someone else is Editing this entry!" Line Location: RMPRE29+17
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: !,"OLD CPT MODIFER: ",$P(R1(1),U,6) Line Location: HCPC+12
Function Call: WRITE	Prompt: ! Line Location: QED2+3
Function Call: WRITE	Prompt: ! Line Location: QUICK+2
Function Call: WRITE	Prompt: ! Line Location: QUICK+4
Function Call: WRITE	Prompt: !,?5,$C(7),"Someone else is Editing this entry!" Line Location: QUICK+5
Function Call: WRITE	Prompt: !,"OLD CPT MODIFER: ",$P(R1(1),U,6) Line Location: QUICK+15
Function Call: WRITE	Prompt: ! Line Location: SET+1
Routine Call	DIC Line Location: RMPRE29+17 QUICK+5
Routine Call	DIE Line Location: HCPC+6 HCPC+28 HCPC+29 QUICK+11
Routine Call	DIE Line Location: UPD664+16
Routine Call	DIR Line Location: TRAN+3 PCAT+2 PCAT+10 HCPC+21 QED2+3 QUICK+21 SET+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RMPR(660 - [#660]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RMPR(660 - [#660]	RMPRE29+17, TYP1+1, HCPC+9, HCPC+16, HCPC+24, HCPC+29, QED2+2, SETED2+1, QUICK+5, QUICK+8 , QUICK+12, QUICK+13, QUICK+19, QUICK+26, SET+3, CHK+1, CHK+2, CHK+4, DELRP+6, DELNU+6* , ADDRP+1, ADDNU+1
^RMPR(661.1 - [#661.1]	CHK+3, CHK+5
^RMPR(664 - [#664]	UPD664+7, UPD664+11

Label References

Name	Line Occurrences
ADDNU	CHK+8
ADDRP	CHK+5
CHK	HCPC+30, SETED2+3, SET
DELNU	CHK+7
DELRP	CHK+6
EXIT	RMPRE29+17, QUICK+5
HCPC	PCAT+7
PCAT	PCAT+4
QED2	TRAN+4, PCAT+3, PCAT+10, HCPC+8
RMPRE29	QED2+4
SET	QUICK+11
SETED2	TRAN+4, PCAT+3, PCAT+10, HCPC+1
TRAN	TRAN+5
UPD664	HCPC+32

Naked Globals

Name	Field # of Occurrence
^("AM"	TYP1+1
^(1	TYP1+1, HCPC+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT+2!
>> DA	RMPRE29+19, HCPC+29, SETED2+1, SETED2+2, QUICK+7*, QUICK+8, QUICK+12, QUICK+13, QUICK+19, QUICK+26 , UPD664+3, UPD664+5, UPD664+11
DIC	RMPRE29+14, RMPRE29+19, EXIT+2!, SETED2+2!, QUICK+2, QUICK+7
DIC("A"	RMPRE29+14, QUICK+2
DIC("S"	RMPRE29+16, QUICK+4
DIC("W"	RMPRE29+15, QUICK+3
DIC(0	RMPRE29+14, QUICK+2
DIE	RMPRE29+19, EXIT+2!, QUICK+7
DIE("NO^"	HCPC+5*, HCPC+7!
>> DIK	SETED2+2*
DIR	TRAN!, PCAT!, PCAT+7!, PCAT+12!, HCPC+25!, QED2+3!, EXIT+2!, QUICK+22!, SET!
DIR("A"	HCPC+20, QED2+3, QUICK+21, SET+1
DIR("B"	TRAN+2, PCAT+1, PCAT+9, HCPC+20, QUICK+21*
DIR(0	TRAN, PCAT, PCAT+8, HCPC+20, QED2+3, QUICK+21, SET+1*
>> DIROUT	QUICK+11
>> DR	HCPC+6, HCPC+28, HCPC+29, QUICK+7
>> DTOUT	TRAN+4, PCAT+3, PCAT+10, HCPC+8, HCPC+21, HCPC+30, QED2+4, QUICK+11, QUICK+22, SET+2
>> DUOUT	TRAN+4, PCAT+3, PCAT+10, HCPC+8, HCPC+21, HCPC+30, QUICK+11
>> R1("AM"	TYP1+1, TYP1+3, PCAT+6, PCAT+7, PCAT+11, SETED2+1
>> R1(0	TYP1+1, TYP1+2, TYP1+3, TRAN+6, HCPC+4, HCPC+9, HCPC+10, HCPC+15, HCPC+23, SETED2+1 , QUICK+8, QUICK+9
>> R1(1	TYP1+1, TYP1+3, HCPC+9, HCPC+11, HCPC+12, HCPC+26, HCPC+27, SETED2+1, QUICK+8*, QUICK+10 , QUICK+15, QUICK+24, QUICK+25
R4DA	CHK+9!
>> RDA	HCPC+15, HCPC+16, HCPC+23, HCPC+24, QUICK+14*, QUICK+17, QUICK+23
RMC	CHK+9!, DELRP+1, DELNU+1
>> RMCAT	TYP1+3, PCAT+5, PCAT+7, PCAT+10, PCAT+11
>> RMCATS	TYP1+3, PCAT+1, PCAT+6
RMCI	CHK+9!, DELRP+1, DELNU+1
RMCLEN	CHK+9!, DELRP+3, DELRP+4, DELRP+5, DELNU+3, DELNU+4, DELNU+5
RMCPT	HCPC+16, HCPC+17, HCPC+24, HCPC+26, HCPC+27, QUICK+1!, QUICK+18, QUICK+19, QUICK+24, QUICK+25 , QUICK+26, CHK+4, CHK+5, CHK+6, CHK+7, CHK+8, DELRP+1, DELRP+2, DELRP+3, DELRP+4 , DELRP+5, DELRP+6, DELNU+1, DELNU+2, DELNU+3, DELNU+4, DELNU+5, DELNU+6, ADDRP+1, ADDNU+1*
>> RMCPT1	CHK+3*, CHK+8
>> RMEND	RMPRE29+15, TRAN+4, PCAT+3, PCAT+10, HCPC+8*
RMF	CHK+9!, DELRP+2, DELRP+3, DELNU+2, DELNU+3
RMFDA	UPD664+2~
RMFDA(	UPD664+3*, UPD664+14, UPD664+15
RMFDA1	UPD664+2~
RMFDA1(	UPD664+15*
RMFERR	UPD664+2~
RMFPIECE	CHK+9!, DELRP+2, DELRP+3, DELNU+2, DELNU+3
>> RMHCNEW	QUICK+12*, QUICK+14, QUICK+16, QUICK+20
>> RMHCOLD	TYP1+3, HCPC+10, HCPC+14, QUICK+10*, QUICK+16, QUICK+20
RMHCPC	TYP1+3, HCPC+11, HCPC+14, HCPC+15, HCPC+23, CHK+2*, CHK+3, CHK+5, CHK+9!
RMI	UPD664+2~, UPD664+3, UPD664+14, UPD664+15
RMLPIECE	CHK+9!, DELRP+3, DELNU+3
RMN	UPD664+2~, UPD664+13, UPD664+14, UPD664+15
RMNS	UPD664+2~, UPD664+10, UPD664+11, UPD664+15
RMORD	UPD664+2~, UPD664+5*, UPD664+6, UPD664+7
RMPR	EXIT+1~
RMPRA	CHK+9!
>> RMPRDA	RMPRE29+19, TYP1+1, HCPC+9, HCPC+16, HCPC+24, QED2+2, SETED2+2, QUICK+7, SET+3, CHK+1 , CHK+2, CHK+4, DELRP+6, DELNU+6, ADDRP+1, ADDNU+1
>> RMPREDT	QED2+1
RMPRSITE	EXIT+1~
>> RMSOUR	TYP1+3, QUICK+9, QUICK+14, CHK+7, CHK+8
>> RMSPE	TYP1+3, PCAT+11
>> RMSPES	TYP1+3, PCAT+9, PCAT+11
RMSSFI	UPD664+2~, UPD664+7*, UPD664+8, UPD664+11, UPD664+15
>> RMTOTCOS	TYP1+2*, HCPC+29
RMTYPE	TYP1+3, TRAN+6, QUICK+9, QUICK+13, QUICK+14, CHK+1*, CHK+5, CHK+6, CHK+9!
>> RMTYPS	TYP1+3, TRAN+2, TRAN+7
SRC	HCPC+3~, HCPC+4*, HCPC+10
U	TYP1+2, TYP1+3, TRAN+6, PCAT+6, PCAT+7, PCAT+11, HCPC+4, HCPC+10, HCPC+11, HCPC+12 , HCPC+15, HCPC+16, HCPC+23, HCPC+24, HCPC+26, HCPC+27, HCPC+29, QUICK+9, QUICK+10, QUICK+12 , QUICK+13, QUICK+15, QUICK+19, QUICK+24, QUICK+25, QUICK+26, CHK+1, CHK+2, CHK+3, CHK+4 , DELRP+6, DELNU+6, ADDRP+1, ADDNU+1, UPD664+11
X	EXIT+2!
Y	RMPRE29+17, RMPRE29+19, TRAN+5, TRAN+6, TRAN+7, PCAT+4, PCAT+5, PCAT+6, PCAT+11, HCPC+8 , HCPC+22, HCPC+30, QED2+4, EXIT+2!, QUICK+5, QUICK+7, QUICK+11, QUICK+22, SET+2

Customize PDF page

Package: Prosthetics

Routine: RMPRE29

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: