Routine: RMPOPRT

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD KILL^XUSCLEAN
Prosthetics	4	^RMPOPAT ^RMPRPRT1 DIV4^RMPRSIT (COMP,GETPAT)^RMPRUTIL
VA FileMan	3	DD^%DT %XY^%RCR EN^DIQ1
Registration	1	(ADD,DEM,ELIG,KVAR,MB,OAD)^VADPT

Package	Total	Caller Graph
Prosthetics	1	RMPR VIEW 2319 READ ONLY

Entry Points

Name	Comments	DBIA/ICR reference
DSP	;DO PRE DISPLAY HOUSEKEEPING
DSP2
DSP1
START	;DO THE ACUTAL PRINTINTG OF THE ELIGIBILITY SCREENS DATA TO THE PRINTER
END
EXIT	;EXIT FROM PRINTING A PATIENT'S 10-2319
HDR	;HEADER FOR 10-2319
DISP	;DISPLAY PROSTHETIC DISABILITY CODES

External References

Name	Field # of Occurrence
DD^%DT	DISP+13
%XY^%RCR	START+15
^%ZIS	DSP2
^%ZISC	EXIT+2
^%ZTLOAD	DSP2+3
EN^DIQ1	START+13, START+16
^RMPOPAT	DSP1
^RMPRPRT1	END+14
DIV4^RMPRSIT	DSP+9
COMP^RMPRUTIL	START+20
GETPAT^RMPRUTIL	DSP+9
ADD^VADPT	START+18
DEM^VADPT	HDR+11
ELIG^VADPT	END, HDR+14
KVAR^VADPT	EXIT+2
MB^VADPT	END+1
OAD^VADPT	START+19
KILL^XUSCLEAN	EXIT+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DSP1+0
Function Call: WRITE	Prompt: !,"Permanent Address:",?40,"Temporary Address:",!,XP(1),?40,X1(1),! Line Location: START+20
Function Call: WRITE	Prompt: !,"Height(IN): ",HGT," Weight(LB): ",WGT," Eyes: ",EYE," Hair: ",HAIR,!! Line Location: START+23
Function Call: WRITE	Prompt: !!,"Patient Type: ",$P(VAEL(6),U,2),?40,"Period of Service: ",$P(VAEL(2),U,2),!,"Primary Eligibility Code:",?40,"Status: ",$P(VAEL(9),U,2),!,$P(VAEL(1),U,2) Line Location: END+0
Function Call: WRITE	Prompt: ?40,"Eligibility Status: ",$E($P(VAEL(8),U,2),1,19) Line Location: END+1
Function Call: WRITE	Prompt: !!,"Receiving A&A Benefits? " Line Location: END+1
Function Call: WRITE	Prompt: "NO" Condition for execution: VAMB(1)=0 Line Location: END+1
Function Call: WRITE	Prompt: $P(VAMB(1),U,2) Condition for execution: $P(VAMB(1),U,1)=1 Line Location: END+1
Function Call: WRITE	Prompt: ?40,"Receiving Housebound Benefits? " Line Location: END+2
Function Call: WRITE	Prompt: "NO" Condition for execution: VAMB(2)=0 Line Location: END+2
Function Call: WRITE	Prompt: $P(VAMB(2),U,2) Condition for execution: $P(VAMB(2),U,1)=1 Line Location: END+2
Function Call: WRITE	Prompt: !,"Receiving Social Security? " Line Location: END+3
Function Call: WRITE	Prompt: "NO" Condition for execution: VAMB(3)=0 Line Location: END+3
Function Call: WRITE	Prompt: $P(VAMB(3),U,2) Condition for execution: $P(VAMB(3),U,1)=1 Line Location: END+3
Function Call: WRITE	Prompt: ?40,"Receiving VA Pension? " Line Location: END+3
Function Call: WRITE	Prompt: "NO" Condition for execution: VAMB(4)=0 Line Location: END+3
Function Call: WRITE	Prompt: $P(VAMB(4),U,2) Condition for execution: $P(VAMB(4),U,1)=1 Line Location: END+3
Function Call: WRITE	Prompt: !,"Receiving Military Retirement? " Line Location: END+4
Function Call: WRITE	Prompt: "NO" Condition for execution: VAMB(5)=0 Line Location: END+4
Function Call: WRITE	Prompt: $P(VAMB(5),U,2) Condition for execution: $P(VAMB(5),U,1)=1 Line Location: END+4
Function Call: WRITE	Prompt: ?40,"Receiving VA Disability? " Line Location: END+4
Function Call: WRITE	Prompt: "NO" Condition for execution: VAMB(7)=0 Line Location: END+4
Function Call: WRITE	Prompt: $P(VAMB(7),U,2) Condition for execution: $P(VAMB(7),U,1)=1 Line Location: END+4
Function Call: WRITE	Prompt: !! Line Location: END+4
Function Call: WRITE	Prompt: "MAS Disabilities: Code Disability % TOTAL%=",$S($P(VAEL(3),U,2):$P(VAEL(3),U,2),1:""),! Line Location: END+5
Function Call: WRITE	Prompt: !?10," NONE LISTED",! Line Location: END+8
Function Call: WRITE	Prompt: !,"Prosthetic Disability Codes:",! Line Location: END+9
Function Call: WRITE	Prompt: ?1,"Code",?10,"Elig",?40,"SC/NSC",?52,"Date",?63,! Line Location: END+10
Function Call: WRITE	Prompt: !?10,"NONE LISTED",! Line Location: END+12
Function Call: WRITE	Prompt: @IOF Line Location: HDR+7
Function Call: WRITE	Prompt: ?45,"SSN: ",$E(RMPRSSN,1,3)_"-"_$E(RMPRSSN,4,5)_"-"_$E(RMPRSSN,6,9),?63,"DOB: " Line Location: HDR+15
Function Call: WRITE	Prompt: $E(RMPRDOB,4,5)_"-"_$E(RMPRDOB,6,7)_"-"_($E(RMPRDOB,1,3)+1700),! Line Location: HDR+16
Function Call: WRITE	Prompt: "Comment: ",$S($P(R5(0),U,3)]"":$P(R5(0),U,3),1:"") Line Location: HDR+18
Function Call: WRITE	Prompt: ?1,$P(^RMPR(662,+R5(1,J,0),0),U,1),?10 Line Location: DISP+4
Function Call: WRITE	Prompt: REC Line Location: DISP+10
Function Call: WRITE	Prompt: ?41,RMPRSCC Condition for execution: REC'=""&(RMPRSC'="") Line Location: DISP+10
Function Call: WRITE	Prompt: ?52 Line Location: DISP+12
Function Call: WRITE	Prompt: Y,?63," ",! Line Location: DISP+13
Routine Call	%ZIS Line Location: DSP2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RMPR(662 - [#662]	DISP+4
^RMPR(665 - [#665]	START+14

Label References

Name	Line Occurrences
DISP	END+11
DSP1	DSP2+1
EXIT	DSP+9, DSP2, DSP2+3
HDR	START+18

Naked Globals

Name	Field # of Occurrence
^(10	START+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT+3!
%X	START+15*!
%Y	START+15*!
>> %ZIS	DSP2*
AN	EXIT+3!
ANS	DSP1!, EXIT+3!
ANST	EXIT+3!
DA	START+13, START+16, EXIT+3!
DA(	START+13*
DFN	START+15, START+19, HDR+9~, HDR+10, HDR+14
DIC	START+13!, START+16!, EXIT+3!, DISP+6!
DIE	EXIT+3!
DIPGM	EXIT+3!
DIQ	START+13!, START+16!
DIQ(0	START+16*
DIYS	EXIT+3!
DR	START+13, START+16!
DR(	START+13*
EYE	START+17*, START+23, EXIT+3!
FG	EXIT+3!
HAIR	START+17*, START+23, EXIT+3!
HGT	START+14*, START+23, EXIT+3!
I	END+6, END+8, END+11, END+12, END+13!, HDR+6~
IO	DSP2+1
IO("Q"	DSP2+1, DSP2+2!
IOF	HDR+7
ION	DSP2+2
IOP	DSP2!
IOSL	HDR+7
IOST	DSP1
J	START+21, START+22!, END+5, END+11, DISP+4, DISP+5, DISP+7, DISP+9, DISP+12
J1	START+21, START+22!
LP	START+13, END+6, END+7, END+13!
NA	EXIT+3!
PAGE	START+12*, EXIT+3!
POP	DSP2, EXIT+3!
R2	EXIT+3!
R5	EXIT+3!, DISP+5*
R5(0	HDR+18
R5(1	END+11, DISP+4, DISP+5, DISP+7, DISP+9, DISP+12
>> RA("DIQ1"	START+13, END+6, END+7
RC	EXIT+3!, DISP+7*, DISP+8
RDP	EXIT+3!
REC	DISP+8*, DISP+10, DISP+11!
>> RFLG	DSP1*
RG	DSP2+2*, DSP2+3!
RMEC	DISP+11!
>> RMPOPFLG	DSP1
>> RMPR(	START+17
>> RMPR1APN	DSP+8*
>> RMPRBACK	EXIT+5
RMPRDFN	DSP+9, START+11, START+13, START+14, START+15, START+16, START+17, START+19, EXIT+5!, HDR+10 , HDR+14
RMPRDOB	EXIT+5!, HDR+13*, HDR+16
>> RMPRF	EXIT+5
RMPRNAM	EXIT+5!, HDR+14
RMPRSC	DISP+9*, DISP+10, DISP+11!
RMPRSCC	DISP+9*, DISP+10, DISP+11!
RMPRSSN	EXIT+5!, HDR+8, HDR+12*, HDR+15
U	START+14, END, END+1, END+2, END+3, END+4, END+5, HDR+12, HDR+13, HDR+18 , DISP+4, DISP+5, DISP+7, DISP+9, DISP+12
VADM	EXIT+5!
VADM(2	HDR+12
VADM(3	HDR+13
>> VAEL(1	END
>> VAEL(2	END
>> VAEL(3	END+5
>> VAEL(6	END
>> VAEL(7	HDR+14
>> VAEL(8	END+1
>> VAEL(9	END
>> VAMB(1	END+1
>> VAMB(2	END+2
>> VAMB(3	END+3
>> VAMB(4	END+3
>> VAMB(5	END+4
>> VAMB(7	END+4
>> VAOA(8	START+19
>> VAPA(8	START+18
WGT	START+14*, START+23, EXIT+3!
X	DSP+9, EXIT+3!
X1	START+22!
X1(1	START+20
X1(2	START+21
X1(3	START+21
X1(4	START+21
XP	START+22!
XP(1	START+20
XP(2	START+21
XP(3	START+21
XP(4	START+21
Y	EXIT+3!, DISP+12*, DISP+13
>> ZTDESC	DSP2+2*
>> ZTIO	DSP2+2*
>> ZTRTN	DSP2+2*
>> ZTSAVE(	DSP2+2*

Customize PDF page

Package: Prosthetics

Routine: RMPOPRT

Information

Source Information

Call Graph

Call Graph Total: 12

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: