Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RMPRPRT

Package: Prosthetics

Routine: RMPRPRT


Information

RMPRPRT ;PHX/HNB-PRINT 2319 ;3/18/03 09:04

Source Information

Source file <RMPRPRT.m>

Call Graph

Call Graph

Call Graph Total: 13

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Prosthetics 2 RMPR PRINT 2319  RMPRPRT1  

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
^DIC DSP+11
EN^DIQ1 START+13, START+16
^DIR DSP+17
^RMPRPAT DSP1
^RMPRPRT1 END+14
DIV4^RMPRSIT DSP+8
COMP^RMPRUTIL START+20
ADD^VADPT START+18
DEM^VADPT DSP+12, HDR+11
ELIG^VADPT DSP+12, END, HDR+14
KVAR^VADPT DSP+18, EXIT+2
MB^VADPT END+1
OAD^VADPT START+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"PATIENT IS DECEASED. DATE OF DEATH WAS ",$P(VADM(6),U,2)
  • Line Location: DSP+16
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
  • DIC
  • Line Location:
    • DSP+11
Routine Call
  • DIR
  • Line Location:
    • DSP+17
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+8, DSP+19, 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 DSP+12*, START+15*, START+19*, HDR+9~, HDR+10*, HDR+14*
DIC DSP+9!, DSP+10*, DSP+11!, START+13!*, START+16!*, EXIT+3!, DISP+6!
DIC("A" DSP+11*
DIC(0 DSP+10*
DIE EXIT+3!
DIPGM EXIT+3!
DIQ START+13!*, START+16!*
DIQ(0 START+16*
DIR DSP+17!
DIR("A" DSP+17*
DIR("B" DSP+17*
DIR(0 DSP+17*
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!
>> RMPR( START+17
RMPRAA68 EXIT+3!
>> RMPRBACK EXIT+4
>> RMPRCNUM DSP+15*
RMPRDFN DSP+9!, DSP+12*, DSP+17!, DSP+19, START+11, START+13, START+14, START+15, START+16, START+17
, START+19, EXIT+4!, HDR+10, HDR+14
RMPRDOB DSP+9!, DSP+14*, EXIT+4!, HDR+13*, HDR+16
RMPRDOD DSP+16*, DSP+17, DSP+18!
>> RMPRF EXIT+4
RMPRNAM DSP+13*, EXIT+4!, HDR+14
RMPRSC DISP+9*, DISP+10, DISP+11!
RMPRSCC DISP+9*, DISP+10, DISP+11!
RMPRSSN DSP+9!, DSP+13*, EXIT+4!, HDR+8, HDR+12*, HDR+15
RMPRSSNE DSP+9!, DSP+14*, EXIT+3!
U DSP+13, DSP+14, DSP+16, 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
>> VA("PID" DSP+14
VADM EXIT+4!
VADM(1 DSP+13
VADM(2 DSP+13, HDR+12
VADM(3 DSP+14, HDR+13
VADM(6 DSP+16
>> VAEL(1 END
>> VAEL(2 END
>> VAEL(3 END+5
>> VAEL(6 END
>> VAEL(7 DSP+15, 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+8, 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 DSP+9!, DSP+11, DSP+12, DSP+17, EXIT+3!, DISP+12*, DISP+13
>> ZTDESC DSP2+2*
>> ZTIO DSP2+2*
>> ZTRTN DSP2+2*
>> ZTSAVE( DSP2+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All