Routine: RMPR29LU

Information

RMPR29LU ;HIN/RVD-LAB ISSUE FROM STOCK UTILITY;5/27/1998

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
VA FileMan	5	FILE^DICN ^DIE (,IX1)^DIK EN^DIQ1 ^DIR
Prosthetics	4	EXIT^RMPR29LI (HD,HDC)^RMPR29W $$ITM1^RMPR31U ADD^RMPR5NU1
IFCAP	1	^PRCPUSA
Registration	1	DEM^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: 6

Package	Total	Caller Graph
Prosthetics	6	RMPR 25293 RMPR29LA RMPR29LC RMPR29LE RMPR29LI RMPR29LS

Entry Points

Name	Comments	DBIA/ICR reference
LIS
ITD	;ITEM DISPLAY
WP	;WORD PROCESSING FIELD DISPLAY
POST
GGC
DEL	;delete status 2529-3
RDL	;delete record
ASK	;
EN4	;CREATE JOB RECORD
EXIT	;COMMON EXIT POINT
HCP(RD0,RD1)	;print HCPCS and GIP or Pros Inventory in -3.
CHK	;CHECK DISABILITY AND ITEMS
ER1	;error message

External References

Name	Field # of Occurrence
FILE^DICN	GGC+9, EN4+2
^DIE	DEL+10, EN4+5
^DIK	DEL+8, RDL+7, RDL+9, CHK+3
IX1^DIK	GGC+12, GGC+13, EN4+6
EN^DIQ1	LIS+4, LIS+10
^DIR	DEL+3, ASK+3, ER1+5
^PRCPUSA	POST
EXIT^RMPR29LI	CHK+4
HD^RMPR29W	LIS+11
HDC^RMPR29W	LIS+12
$$ITM1^RMPR31U	LIS+9
ADD^RMPR5NU1	GGC+5
DEM^VADPT	LIS+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,HLD(RI),?10,$E(^UTILITY("DIQ1",$J,664.16,RI,.01),1,15) Line Location: ITD+2
Function Call: WRITE	Prompt: ?27,$E(^UTILITY("DIQ1",$J,664.16,RI,12),1,15),?45,^(2),?50,^(3),?55,^(8),?65,^(9) Line Location: ITD+3
Function Call: WRITE	Prompt: !,?10,"HCPCS: ",^UTILITY("DIQ1",$J,664.16,RI,13) Line Location: ITD+4
Function Call: WRITE	Prompt: !!,"Error encountered while posting to GIP. Inventory Issue did not post..." Line Location: POST+1
Function Call: WRITE	Prompt: !!,"Posted to 2319..",! Line Location: GGC+13
Function Call: WRITE	Prompt: !,?5,"Updated 10-2319" Line Location: DEL+9
Function Call: WRITE	Prompt: !,?5,$C(7),"Marked As Deleted..." Line Location: DEL+10
Function Call: WRITE	Prompt: !!,?5,$C(7),"Deleted..." Line Location: RDL+9
Function Call: WRITE	Prompt: @IOF,RMPR("L") Line Location: ASK+4
Function Call: WRITE	Prompt: !,?10,^(RL,0) Line Location: EXIT+2
Function Call: WRITE	Prompt: !,?9,"HCPCS: ",$P(^RMPR(661.1,RPHCPC,0),U,1) Line Location: HCP+8
Function Call: WRITE	Prompt: !,?9,"* Pros Inventory *",?35,"Location: " Line Location: HCP+14
Function Call: WRITE	Prompt: $P(^RMPR(661.3,RPSALOC,0),U,1) Line Location: HCP+14
Function Call: WRITE	Prompt: !,?9,"* GIP *" Line Location: HCP+15
Function Call: WRITE	Prompt: !,?9,"* OTHER *" Line Location: HCP+16
Function Call: WRITE	Prompt: !!,?5,$C(7),"ALL MANDATORY FIELDS NOT DEFINED FORM 2529-3 DELETED" Line Location: CHK+3
Function Call: WRITE	Prompt: $C(7),!!,?5,"2529-3 FORM INCOMPLETE. DISABILITY CODE INFORMATION IS MISSING!!" Line Location: ER1+1
Function Call: WRITE	Prompt: $C(7),!!,?5,"2529-3 FORM INCOMPLETE. ITEM INFORMATION IS MISSING!!" Line Location: ER1+2
Routine Call	DIE Line Location: DEL+10 EN4+5
Routine Call	DIR Line Location: DEL+3 ASK+3 ER1+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RMPR(660 - [#660]	Classic Fileman Calls
^RMPR(661.2 - [#661.2]	Classic Fileman Calls
^RMPR(664.1 - [#664.1]	Classic Fileman Calls
^RMPR(664.2 - [#664.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RMPR(660 - [#660]	EN4+5*
^RMPR(661.1 - [#661.1]	GGC+10, HCP+6, HCP+8
^RMPR(661.2 - [#661.2]	GGC+10, GGC+11
^RMPR(661.3 - [#661.3]	HCP+9, HCP+10, HCP+11, HCP+12, HCP+14
^RMPR(664.1 - [#664.1]	LIS+1, LIS+5, LIS+6, LIS+9, DEL+6, DEL+7, RDL+5, RDL+6, EN4+1, EN4+2 , EN4+4*, HCP+1, HCP+2, HCP+4, HCP+7, CHK+3, CHK+7, CHK+8, CHK+11, CHK+12
^RMPR(664.2 - [#664.2]	EN4+6*
^RMPR(669.9 - [#669.9]	POST+3, POST+4, POST+5*
^UTILITY("DIQ1"	LIS!, ITD+1!, ITD+2, ITD+3, ITD+4, WP+4, WP+5
^UTILITY($J	ITD+1!, EXIT+3!

Label References

Name	Line Occurrences
ASK	WP+8, EXIT+1
EXIT	POST+1
GGC	POST+2, POST+3
ITD	WP+9

Naked Globals

Name	Field # of Occurrence
^(	LIS+5, EN4+4, CHK+8, CHK+12
^(0	EN4+1, EN4+4, EN4+6, CHK+8, CHK+12
^(2	ITD+3
^(3	ITD+3
^(8	ITD+3
^(9	ITD+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BO	DEL+5~, DEL+6, DEL+7, RDL+4, RDL+5, RDL+6
D0	EN4+2!
DA	LIS+3, LIS+4, LIS+5, LIS+6, LIS+9, GGC+9, GGC+10, GGC+11, GGC+13, DEL+7* , DEL+9!, DEL+10, RDL+4, RDL+6, RDL+8!, EN4+2!, EN4+3, EN4+5, EN4+6, CHK+3
DA(	LIS+8*
>> DA660	EN4+4*, EN4+5, EN4+6
DD	GGC+9!, EN4+2!
>> DFN	LIS+1*
DIC	LIS!, LIS+3, LIS+7, GGC+9, GGC+13!, EN4+2, EN4+4!
DIC(0	GGC+9, EN4+2
>> DIE	DEL+10, EN4+5
DIK	GGC+12, GGC+13, DEL+8, DEL+9!, RDL+7, RDL+8!, RDL+9!, EN4+6, CHK+3*
DIQ	LIS+4!, LIS+10!
DIR	ITD+1!, DEL+1!, ASK+1!
DIR("A"	DEL+2, ASK+2, ER1+4*
DIR("B"	DEL+3, ER1+3
DIR(0	DEL+2, ASK+1, ER1+3*
DKILL	CHK+6!, CHK+7, CHK+8, ER1+1, ER1+3
DLAYGO	GGC+9*!
DO	GGC+9!, EN4+2!
DR	LIS+3, LIS+4!, LIS+7, LIS+10!, DEL+10, EN4+5
DR(	LIS+8*
DT	POST+3, GGC+3, GGC+9, GGC+10
>> DTOUT	DEL+3, ASK+3, ER1+5
>> DUOUT	DEL+3, ASK+3, ER1+5
DUZ	GGC+10
HLD	LIS!
HLD(	LIS+9*, ITD+1, ITD+2
IKILL	CHK+10!, CHK+11, CHK+12, ER1+2, ER1+3
IOF	ASK+4
IOSL	WP+8, EXIT+1
>> PAGE	LIS+4*
PNK	LIS+11, LIS+12, ITD+1!
>> PRCP("ITEM"	POST+1
>> PRCP("QTY"	POST*
>> PRCP("TYP"	POST*
>> R1(0	POST, GGC+4*, GGC+5
>> R1(1	GGC+4
>> R643	HCP+2*, HCP+3
>> RCK	CHK+3*
RD0	HCP~, HCP+1, HCP+2, HCP+4, HCP+7
RD1	HCP~, HCP+1, HCP+2, HCP+4, HCP+7
>> RDEL	DEL+11*
>> REDIT	RDL+4
>> RGIP	WP+5*, WP+6
>> RHDA	HCP+10*, HCP+11, HCP+12
>> RI	LIS+5, LIS+6, LIS+8, LIS+9, LIS+13, ITD+1, ITD+2, ITD+3, ITD+4, WP+4 , WP+5, CHK+8, CHK+12*
>> RIDA	HCP+11*, HCP+12
>> RIDES	HCP+12*, HCP+13
RKILL	CHK+2!, CHK+3*, CHK+4
>> RLB("D"	GGC+1, GGC+2, GGC+3*
>> RLOC	WP+4*, WP+6
>> RM6(	LIS+6*
>> RM660	GGC+13*
>> RM6612	GGC+9*
>> RM6642	EN4+3*, EN4+5, EN4+6
RMEDIT	CHK+2!, ER1+6*
RMEXIT	ITD+1, POST+1, ASK+3, EXIT+1, CHK+2!, ER1+5*
>> RMHCPC	GGC+4*, GGC+10
>> RMINVF	WP+6*, WP+7
>> RMLAB	GGC+3*, GGC+11
>> RMLACO	GGC+1, GGC+2, GGC+11
>> RMLOC	GGC+5, GGC+6, GGC+8
>> RMPR("L"	ASK+4
>> RMPR("REF"	EN4+1*, EN4+6
>> RMPR("STA"	GGC+10, EN4+6
>> RMPRCOST	GGC+2
>> RMPRDA	LIS+1, LIS+3, LIS+4, DEL+6, DEL+7, DEL+10, RDL+5, RDL+6, RDL+8, EN4+1 , EN4+2, EN4+4, CHK+3, CHK+7, CHK+8, CHK+11, CHK+12
>> RMPRDFN	LIS+1*, GGC+10
>> RMPRDOB	LIS+2*
>> RMPRG	POST+2, POST+3, POST+4, POST+5, GGC
>> RMPRGIP	POST
>> RMPRI("AMS"	GGC*
>> RMPRNAM	LIS+2*
>> RMPRSITE	POST+3, POST+4, POST+5
>> RMPRSSN	LIS+2*
>> RMQTY	GGC+5*
>> RMSER	GGC+5*
>> RMSO	GGC+10
>> RMTIME	GGC+1, GGC+11
>> RMTOTC	GGC+2*, GGC+3
>> RN	EN4+1, EN4+3, EN4+4, EN4+6
>> RPGIP	HCP+7*, HCP+15, HCP+16
>> RPHCPC	HCP+4*, HCP+5, HCP+6, HCP+8, HCP+10
>> RPSAITEM	HCP+3*, HCP+9, HCP+11
>> RPSALOC	HCP+3*, HCP+9, HCP+10, HCP+11, HCP+12, HCP+14, HCP+15, HCP+16
>> RT	EN4+4*
U	LIS+1, LIS+2, LIS+9, POST, POST+4, POST+5, GGC, GGC+1, GGC+2, GGC+3 , GGC+4, GGC+5, GGC+10, DEL+7, RDL+6, EN4+1, EN4+2, EN4+4, EN4+5, EN4+6 , HCP+3, HCP+4, HCP+7, HCP+8, HCP+12, HCP+14, CHK+3, CHK+8, CHK+12
>> VADM(1	LIS+2
>> VADM(2	LIS+2
>> VADM(3	LIS+2
>> X	GGC+9, EN4+2
Y	LIS+1*, GGC+9!, GGC+13, DEL+1!, DEL+3, ASK+3, EN4+2, EN4+3, EN4+4!, ER1+5

Customize PDF page

Package: Prosthetics

Routine: RMPR29LU

Information

Source Information

Call Graph

Call Graph Total: 11

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: