Routine: RMPR29W

Information

RMPR29W ;PHX/JLT/HNB-DISPLAY JOB RECORD HDR AND ITEM [ 11/04/94 10:07 AM ]

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA FileMan	4	^DIC EN^DIQ1 ^DIR ^DIWP
Prosthetics	2	$$ITM1^RMPR31U (EN,LP)^RMPRDIS
Registration	1	(DEM,ELIG,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: 10

Package	Total	Caller Graph
Prosthetics	10	RMPR29 RMPR293 RMPR29D RMPR29J RMPR29LC RMPR29LD RMPR29LS RMPR29LU RMPR29T RMPRPAT6

Entry Points

Name	Comments	DBIA/ICR reference
GET(PRDA)	;INFOR FOR JOB SECTION
EXIT	;common exit
HDR(PRDA)	;DISPLAY JOB RECORD HEADER
WP	;use DIWP to print REMARKS word processing field
HD	;print header
HDC	;print header of mult. page
HELP	;DISPLAY HELP FOR SCREENS
DIS(RMPRDFN,PDA)	;GET DISABILITY CODES PASS RMPRDFN AND PDA
LK	;do a lookup on 2529-3 record patient/disability code
DSP	;DISPLAY DISABILITY CODES

External References

Name	Field # of Occurrence
^DIC	LK+10
EN^DIQ1	GET+7, GET+18, GET+24, GET+29, GET+44
^DIR	LK+4
^DIWP	WP+6
$$ITM1^RMPR31U	GET+17
EN^RMPRDIS	DSP+9
LP^RMPRDIS	DSP+3
DEM^VADPT	GET+3
ELIG^VADPT	GET+3
KVAR^VADPT	GET+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,?31,"JOB RECORD SECTION",?65,"PAGE:" Line Location: HDR+3
Function Call: WRITE	Prompt: ?72,PAGE,!,?19,"(To be completed by VA Shop or Clinic only)" Line Location: HDR+4
Function Call: WRITE	Prompt: !,"VETERAN",?25,"CLAIM #",?37,"WARD",?52,"SSN" Line Location: HDR+5
Function Call: WRITE	Prompt: ?64,"WORK ORDER #",!,RMPR("L") Line Location: HDR+6
Function Call: WRITE	Prompt: !,"\|"_^UTILITY("DIQ1",$J,664.1,PRDA,.02) Line Location: HDR+7
Function Call: WRITE	Prompt: ?24,"\|"_$P($G(VAEL(7)),U),?36,"\|"_^UTILITY("DIQ1",$J,664.1,PRDA,12) Line Location: HDR+8
Function Call: WRITE	Prompt: ?51,"\|"_$P(VADM(2),U) Line Location: HDR+9
Function Call: WRITE	Prompt: ?64,"\|"_^UTILITY("DIQ1",$J,664.1,PRDA,4),!,RMPR("L") Line Location: HDR+10
Function Call: WRITE	Prompt: !,"\|DATE ASSIGNED:",?16,^UTILITY("DIQ1",$J,664.1,PRDA,19) Line Location: HDR+11
Function Call: WRITE	Prompt: ?36,"\|ASSIGNED TO: ",^UTILITY("DIQ1",$J,664.1,PRDA,15),!,RMPR("L") Line Location: HDR+12
Function Call: WRITE	Prompt: !,"\|PHYSICIAN:",?16,^(12.1),?42,"\|DIAGNOSIS:",?57,^(12.2),!,?0,"\|TREATING SPEC:",?16,^(12.3),?42,"\|EXT:",?57,^(12.4),!,RMPR("L") Line Location: HDR+13
Function Call: WRITE	Prompt: @IOF Line Location: HD+1
Function Call: WRITE	Prompt: ?10,"REQUEST AND RECEIPT FOR PROSTHETIC APPLIANCES OR SERVICES" Line Location: HD+2
Function Call: WRITE	Prompt: ?70,"PAGE:",?77,PAGE,!,?34,"(Section I)" Line Location: HD+3
Function Call: WRITE	Prompt: !,"VETERAN",?25,"WORK ORDER #",?44,"VENDOR",?60,"REQUESTOR" Line Location: HD+4
Function Call: WRITE	Prompt: !,"\|"_$E(^UTILITY("DIQ1",$J,664.1,RMPRDA,.02),1,20) Line Location: HD+5
Function Call: WRITE	Prompt: ?24,"\|"_^UTILITY("DIQ1",$J,664.1,RMPRDA,4) Line Location: HD+6
Function Call: WRITE	Prompt: ?43,"\|"_$E(^UTILITY("DIQ1",$J,664.1,RMPRDA,2),1,15),?59,"\|"_$E(^(13),1,20) Line Location: HD+7
Function Call: WRITE	Prompt: !,"\|ORDERING STATION: ",?25,^UTILITY("DIQ1",$J,664.1,RMPRDA,.04) Line Location: HD+8
Function Call: WRITE	Prompt: !,RMPR("L"),!,"\|AUTHORITY: CFR 17.115",?42,"\|DATE REQUIRED:" Line Location: HD+9
Function Call: WRITE	Prompt: ?57,^UTILITY("DIQ1",$J,664.1,RMPRDA,.09) Line Location: HD+10
Function Call: WRITE	Prompt: !,RMPR("L"),!,"\|ASSIGNED TO:" Line Location: HD+11
Function Call: WRITE	Prompt: ?16,^UTILITY("DIQ1",$J,664.1,RMPRDA,15),?42,"\|DATE ASSIGNED:" Line Location: HD+12
Function Call: WRITE	Prompt: ?57,^UTILITY("DIQ1",$J,664.1,RMPRDA,19),!,RMPR("L") Line Location: HD+13
Function Call: WRITE	Prompt: @IOF Line Location: HDC+1
Function Call: WRITE	Prompt: ?10,"REQUEST AND RECEIPT FOR PROSTHETIC APPLIANCES OR SERVICES" Line Location: HDC+2
Function Call: WRITE	Prompt: ?70,"PAGE:",?77,PAGE,!,?34,"(Section I)" Line Location: HDC+3
Function Call: WRITE	Prompt: !,"VETERAN",?44,"VENDOR",?60,"REQUESTOR" Line Location: HDC+4
Function Call: WRITE	Prompt: !,"\|"_$E(^UTILITY("DIQ1",$J,664.1,RMPRDA,.02),1,20) Line Location: HDC+5
Function Call: WRITE	Prompt: ?43,"\|"_$E(^UTILITY("DIQ1",$J,664.1,RMPRDA,2),1,15) Line Location: HDC+6
Function Call: WRITE	Prompt: ?59,"\|"_$E(^UTILITY("DIQ1",$J,664.1,RMPRDA,13),1,20),!,RMPR("L") Line Location: HDC+7
Function Call: WRITE	Prompt: !,"\|TO: "_$E(^UTILITY("DIQ1",$J,664.1,RMPRDA,.11),1,30) Line Location: HDC+8
Function Call: WRITE	Prompt: ?42,"ORDERING STATION: "_$E(^UTILITY("DIQ1",$J,664.1,RMPRDA,.04),1,20),RMPR("L") Line Location: HDC+9
Function Call: WRITE	Prompt: !,"\|AUTHORITY: CFR 17.115",?42,"\|DATE REQUIRED:",?57,^(.09) Line Location: HDC+10
Function Call: WRITE	Prompt: !,RMPR("L") Line Location: HDC+11
Function Call: WRITE	Prompt: ! Line Location: HELP+3
Function Call: WRITE	Prompt: ! Condition for execution: RMPR90I=4 Line Location: HELP+5
Function Call: WRITE	Prompt: "("_$P($P(RMPR90DP,";",RMPR90I),":",1)_") "_$P($P(RMPR90DP,";",RMPR90I),":",2)_" " Line Location: HELP+5
Function Call: WRITE	Prompt: ! Line Location: HELP+6
Function Call: WRITE	Prompt: !,?5,$P($G(^RMPR(662,+RT,0)),U),?15,$S($P(RT,U,2)=1:"SC ",1:"NSC ") Line Location: DSP+6
Function Call: WRITE	Prompt: ! Line Location: DSP+8
Function Call: WRITE	Prompt: !! Line Location: DSP+9
Routine Call	DIC Line Location: LK+10
Routine Call	DIR Line Location: LK+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RMPR(662 - [#662]	DSP+6
^RMPR(664.1 - [#664.1]	GET+2, GET+10, GET+13, GET+17, LK+1, DSP+6
^RMPR(664.2 - [#664.2]	GET+14, GET+16, GET+26, GET+30
^RMPR(664.3 - [#664.3]	GET+37, GET+39
^UTILITY("DIQ1"	GET+4!, HDR+7, HDR+8, HDR+10, HDR+11, HDR+12, HDR+13, WP+3, HD+5, HD+6 , HD+7, HD+8, HD+10, HD+12, HD+13, HDC+5, HDC+6, HDC+7, HDC+8, HDC+9
^UTILITY($J	GET+4!, WP+2!, WP+8, WP+9*, WP+10!

Label References

Name	Line Occurrences
LK	LK+10
WP	GET+31

Naked Globals

Name	Field # of Occurrence
^(	WP+4, WP+9, HDC+10, DSP+6
^(0	GET+2, GET+13, GET+37, DSP+6
^(12.1	HDR+13
^(12.2	HDR+13
^(12.3	HDR+13
^(12.4	HDR+13
^(13	HD+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	GET+6, GET+11, GET+23, GET+25, GET+26, GET+27, GET+30, GET+36, GET+37, GET+39 , EXIT+1!
DA(	GET+12, GET+27, GET+43*
DA660	GET+13*, GET+14, GET+17, EXIT+1!
DFN	GET+2*, EXIT+1!
DIC	GET+5, GET+11, GET+22, GET+40, LK+5!, LK+8*
DIC("P"	LK+9*
DIC("S"	LK+7*
DIC("W"	LK+6*
DIC(0	LK+9*
DIQ	GET+4!, GET+24!, GET+27, GET+29!, GET+42, GET+44!
DIQ(0	GET+24, GET+42
DIR	LK+1!
DIR("?"	LK+3*
DIR("A"	LK+2*
DIR(0	HELP+4, LK+1*
DIRUT	EXIT+1!, LK+4
DIWF	EXIT+1!, WP+5*
DIWL	EXIT+1!, WP+5*, WP+8
>> DIWR	WP+5*
DR	GET+6, GET+12, GET+20!, GET+22, GET+25!, GET+28, GET+38!, GET+43*
DR(	GET+12, GET+28, GET+43*
DTOUT	EXIT+1!, LK+4
IOF	HDR+3, HD+1, HDC+1
PAGE	EXIT+1!, HDR+2*, HDR+4, HD+3, HDC+3
PDA	EXIT+1!, DIS~, DSP+6
PRDA	GET~, GET+2, GET+6, GET+10, GET+11, GET+13, GET+17, EXIT+1!, HDR~, HDR+7 , HDR+8, HDR+10, HDR+11, HDR+12, HDR+13
RCK	GET+9!, GET+19
RCK(	GET+17*, GET+21, GET+23, GET+33, GET+34
RDA	GET+34*, GET+35, GET+37, EXIT+3!
RI	GET+8, GET+10, GET+12, GET+13, GET+17, GET+20, GET+21, GET+23, GET+32, GET+33 , GET+34, DSP+5, DSP+6, DSP+7!
RJ	GET+25, GET+26, GET+27, GET+30, EXIT+3!
>> RMPR("L"	HDR+6, HDR+10, HDR+12, HDR+13, HD+9, HD+11, HD+13, HDC+7, HDC+9, HDC+11
RMPR90DP	HELP+2~, HELP+4*, HELP+5
RMPR90I	HELP+2~, HELP+5*
RMPRBACK	EXIT+1!, DSP+9*
RMPRDA	EXIT+2!, HD+5, HD+6, HD+7, HD+8, HD+10, HD+12, HD+13, HDC+5, HDC+6 , HDC+7, HDC+8, HDC+9, LK+1
RMPRDFN	EXIT+2!, DIS~, LK+8
RMPRDIR3	EXIT+2!, DSP+9*
RMPRDIR7	EXIT+2!, DSP+9*
RMPRDT	GET+37*, GET+42, EXIT+2!
RMPRJOB	GET+16*, GET+17, EXIT+2!
RMPRWO	GET+1!, GET+14, GET+15, GET+16, GET+17, GET+23, GET+25, GET+34*, GET+42, EXIT+3! , WP+3, WP+9
RR	EXIT+3!, WP+7, WP+8, WP+9
RT	GET+38, GET+39, GET+43, EXIT+3!, DSP+6*
>> RW	WP+2, WP+3, WP+4
RWP	EXIT+3!, WP+2, WP+9
>> SRC	GET+2*
TECH	GET+4!
TMP	GET+4!
TMP(	GET+30*
TYPE	GET+13*, GET+17, EXIT+3!
U	GET+2, GET+13, GET+16, GET+17, GET+23, GET+30, GET+34, GET+37, HDR+8, HDR+9 , HELP+4, DSP+6
VADM	EXIT+3!
VADM(2	HDR+9
VAEL	EXIT+3!
VAEL(7	HDR+8
>> X	WP+4*
XRC	EXIT+3!
>> Y	LK+10

Customize PDF page

Package: Prosthetics