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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RMPRPAT

Package: Prosthetics

Routine: RMPRPAT


Information

RMPRPAT ;PHX/RFM/JLT-DISPLAY 2319 FIRST PAGE ;8/29/1994

Source Information

Source file <RMPRPAT.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Prosthetics 9 2319^RMPOBIL2  DU^RMPRAINQ  EN^RMPRDIS  STAR^RMPRPAT  ^RMPRPAT0  (,ASK1,HELP)^RMPRPAT1  ^RMPRPAT2  (,DIS,DISP,NPC)^RMPRPAT5  
GETPAT^RMPRUTIL  
VA FileMan 2 %XY^%RCR  ^DIR  
Kernel 1 HOME^%ZIS  
Registration 1 (ADD,DEM,ELIG,KVAR,MB,OAD,SVC)^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: 24

Package Total Caller Graph
Prosthetics 24 RMPOBIL2  RMPOBIL5  RMPOBILU  RMPR21  RMPR29  RMPR29LC  RMPR29LE  RMPR29LI  
RMPR421  RMPRAINQ  RMPRAP  RMPRDIS  RMPRDP  RMPREO23  RMPRHIS  RMPRPAT  
RMPRPAT0  RMPRPAT1  RMPRPAT2  RMPRPAT5  RMPRPIYI  RMPRPRT  RMPRSTI  RMPRSTK  

Entry Points

Name Comments DBIA/ICR reference
ASK ;Set common variables
ASK1 ;CALL ROUTINE TO DISPLAY SCREEN SELECTI0N
ASK2 ;ASK TO CONTINUE AFTER SCREEN DISPLAY
HELP
STAR ;DISPLAY ADDRESS INFO
STARD
END
WRI
QUES ;ASK WHAT PAGE OF A PATIENT'S 10-2319
QUES1
QUE
EXIT ;EXIT FOR DISPLAY OF A PATIENT'S 10-2319
QUEST1
QUEST2 ;PUT MAS DISABILITY CODES ON NEXT PAGE IF THEY WILL NOT ALL FIT ON THIS

External References

Name Field # of Occurrence
%XY^%RCR ASK+10
HOME^%ZIS ASK+4
^DIR ASK1+12, QUEST1+1, QUEST2+2
2319^RMPOBIL2 QUE+3
DU^RMPRAINQ QUE+4
EN^RMPRDIS QUE+6
STAR^RMPRPAT QUE+1
^RMPRPAT0 QUE+1
^RMPRPAT1 QUE+1
ASK1^RMPRPAT1 ASK1+11
HELP^RMPRPAT1 ASK1+11
^RMPRPAT2 QUE+2
^RMPRPAT5 QUE+5
DIS^RMPRPAT5 EXIT+2, EXIT+3
DISP^RMPRPAT5 ASK1+9
NPC^RMPRPAT5 EXIT+5
GETPAT^RMPRUTIL ASK1+22
ADD^VADPT ASK+5, ASK1+3, STAR+3
DEM^VADPT ASK+5, ASK1+4, STAR+3
ELIG^VADPT ASK+5, ASK1+2, END
KVAR^VADPT EXIT+7
MB^VADPT END+6
OAD^VADPT ASK+5, ASK1+5, STAR+3
SVC^VADPT END+24

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ASK+9
Function Call: WRITE
  • Prompt: !,"*Comments on file"
  • Line Location: ASK1+6
Function Call: WRITE
  • Prompt: $C(7),!!,"*No Disability Code on File!"
  • Line Location: ASK1+7
Function Call: WRITE
  • Prompt: $C(7),!!,"*No Disability Code on File!"
  • Line Location: ASK1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK1+9
Function Call: WRITE
  • Prompt: !,"You may only enter screen 1-8,`^`, or `return`"
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !,$E(RMPRNAM,1,20),?23,"SSN: ",$P(VADM(2),U,2),?42
  • Line Location: STAR+5
Function Call: WRITE
  • Prompt: "DOB: ",$P(VADM(3),U,2),?61,"CLAIM# ",VAEL(7)
  • Line Location: STAR+6
Function Call: WRITE
  • Prompt: !!,"Phone: ",VAPA(8),?40,"Phone: ",VAOA(8)
  • Line Location: STARD+0
Function Call: WRITE
  • Prompt: !,"Current Address:",?40,"Primary Next of Kin Address:"
  • Line Location: STARD+1
Function Call: WRITE
  • Prompt: !,VAPA(1),?40,VAOA(1)
  • Line Location: STARD+2
Function Call: WRITE
  • Prompt: ?40,"Relationship: ",VAOA(10)
  • Condition for execution: VAPA(4)'="" !,VAPA(4)_", "_$P(VAPA(5),U,2)_" "_VAPA(6) W:VAOA(10)'=""
  • Line Location: STARD+4
Function Call: WRITE
  • Prompt: !,VAPA(2)
  • Line Location: STARD+5
Function Call: WRITE
  • Prompt: ?40,"Relationship: ",VAOA(10)
  • Condition for execution: VAOA(4)'="" ?40,VAOA(4)_", ",$P(VAOA(5),U,2)_" "_VAOA(6),!,VAPA(3) W:VAOA(10)'=""
  • Line Location: STARD+5
Function Call: WRITE
  • Prompt: !!,"Patient Type: ",$P(VAEL(6),U,2),?40
  • Line Location: END+1
Function Call: WRITE
  • Prompt: "Period of Service: ",$P(VAEL(2),U,2)
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !,"Primary Eligibility Code:",?40
  • Line Location: END+3
Function Call: WRITE
  • Prompt: "Status: ",$P(VAEL(9),U,2),!,$P(VAEL(1),U,2)
  • Line Location: END+4
Function Call: WRITE
  • Prompt: ?40,"Eligibility Status: ",$E($P(VAEL(8),U,2),1,19)
  • Line Location: END+5
Function Call: WRITE
  • Prompt: !!,"Receiving A&A Benefits? "
  • Line Location: END+7
Function Call: WRITE
  • Prompt: ?40,"Receiving Housebound Benefits? "
  • Line Location: END+9
Function Call: WRITE
  • Prompt: !,"Receiving Social Security? "
  • Line Location: END+11
Function Call: WRITE
  • Prompt: ?40,"Receiving VA Pension? "
  • Line Location: END+13
Function Call: WRITE
  • Prompt: "NO"
  • Condition for execution: VAMB(4)=0
  • Line Location: END+13
Function Call: WRITE
  • Prompt: !,"Receiving Military Retirement? "
  • Line Location: END+15
Function Call: WRITE
  • Prompt: ?40,"Receiving VA Disability? "
  • Line Location: END+17
Function Call: WRITE
  • Prompt: "NO"
  • Condition for execution: VAMB(7)=0
  • Line Location: END+17
Function Call: WRITE
  • Prompt: !,"No Prosthetic Disability Codes entered for this Patient."
  • Line Location: END+19
Function Call: WRITE
  • Prompt: " ",$P(^RMPR(662,+RR,0),U,1),"-",$S($P(RR,U,3)=1:"SC",$P(RR,U,3)=2:"NSC",1:"")
  • Line Location: END+20
Function Call: WRITE
  • Prompt: !!,"*POW? ",$S(VASV(4)=1:"YES",1:"NO")
  • Line Location: END+24
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+26
Function Call: WRITE
  • Prompt: !,$E($P(^DIC(31,$P(^DPT(DFN,.372,RO,0),U,1),0),U,1),1,30),?40,"Disability% ",$P(^DPT(DFN,.372,RO,0),U,2),?56," Service Connected? "
  • Line Location: WRI+1
Function Call: WRITE
  • Prompt: "YES"
  • Condition for execution: $P(^DPT(DFN,.372,RO,0),U,3)=1
  • Line Location: WRI+1
Function Call: WRITE
  • Prompt: "NO"
  • Condition for execution: $P(^DPT(DFN,.372,RO,0),U,3)=0
  • Line Location: WRI+1
Function Call: WRITE
  • Prompt: !
  • Line Location: QUES+1
Function Call: WRITE
  • Prompt: $C(7),!,"You must enter an `^` to exit!"
  • Line Location: QUES1+5
Function Call: WRITE
  • Prompt: !!,$C(7)
  • Line Location: QUE+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: QUEST1+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: QUEST1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: QUEST1+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: QUEST2+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: QUEST2+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: QUEST2+4
Routine Call
  • DIR
  • Line Location:
    • ASK1+12
    • QUEST1+1
    • QUEST2+2
Routine Call
  • %ZIS
  • Line Location:
    • ASK+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(31 - [#31] END+22, WRI+1
^DPT - [#2] END+21, END+22, WRI+1
^RMPR(662 - [#662] END+20
^RMPR(665 - [#665] ASK1+6, ASK1+7, ASK1+8, END+19, END+20, EXIT+2, EXIT+3, EXIT+4

Label References

Name Line Occurrences
ASK1 ASK1+24, ASK2+1, END+21, END+23, END+26, QUES1+2, QUES1+4
ASK2 HELP
END STARD+3, STARD+4
EXIT ASK1+14, ASK1+15, ASK1+23, QUES1+1, QUES1+3, QUE+1
QUE ASK1+16
QUES END+25, QUE+7
QUES1 QUES1+5
QUEST1 WRI
QUEST2 END+21
WRI END+22

Naked Globals

Name Field # of Occurrence
^( END+20, END+22
^(0 ASK1+8, END+22, EXIT+3, EXIT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%X ASK+10*, EXIT+7!
%Y ASK+10*, EXIT+7!
AMIS EXIT+6!
AN EXIT+7!
ANS ASK1+9!, ASK1+11!, ASK1+16*, QUES1*, QUES1+2, QUES1+3, QUES1+4, QUE, QUE+1, QUE+2
, QUE+3, QUE+4, QUE+5, QUE+6
CST EXIT+6!
DATE EXIT+6!
DEL EXIT+6!
DFN ASK+4*, ASK1+1*, STAR+1, END+21, END+22, WRI+1, EXIT+7!
DIC EXIT+6!
DIE EXIT+6!
DIR ASK1+10!, ASK1+13!, EXIT+6!, QUEST1+1~, QUEST2+2~
DIR(0 QUEST1+1*, QUEST2+2*
DTIME QUES1
>> DTOUT QUEST1+2, QUEST2+3
>> DUOUT QUEST1+2, QUEST2+3
FG END+19*, END+20*, EXIT+6!
FL EXIT+7!
FLG EXIT+6!
FRM EXIT+7!
I END+22*, QUES+1*, EXIT+6!
IOF ASK+9, STAR+4, END+26, QUE, QUEST1+1, QUEST2+2, QUEST2+4
IOSL END+21, WRI
IOST STAR+4
J EXIT+6!
LC EXIT+6!
MC EXIT+6!
PAGE EXIT+7!
QTY EXIT+6!
R5 EXIT+7!
R660 EXIT+7!
RA EXIT+6!
RC EXIT+6!
RCK EXIT+7!
RCNT ASK+3~, ASK+4*
RDA EXIT+7!
REM EXIT+6!
RFLG ASK+4*, EXIT+6!
RI EXIT+6!
RJ EXIT+7!
RK EXIT+6!
RL EXIT+7!
RMNOQUIT END+21, END+23!, QUEST2+2*, QUEST2+3*
>> RMPR1APN ASK1+15, ASK1+22
RMPR2APN ASK1+22*, ASK1+23, ASK1+24!, EXIT+7!
RMPRBACK ASK+4*, STAR+2*, END+25, EXIT+8!
RMPRCCO EXIT+6!
RMPRCNUM ASK+10*, EXIT+6!
RMPRCOMB EXIT+6!
RMPRDFN ASK+1, ASK+4, ASK+10, ASK1+1, ASK1+6, ASK1+7, ASK1+8, ASK1+22, ASK1+23*, END+19
, END+20, EXIT+2, EXIT+3, EXIT+4, EXIT+8!
>> RMPRDIR7 QUE+6*
RMPRDOB ASK+8*, EXIT+8!
RMPRDT EXIT+6!
RMPREND1 ASK1+10!, END+22, END+23, WRI, EXIT+7!, QUEST1+2*
>> RMPRF EXIT+8
RMPRFG EXIT+6!
RMPRFLG QUES+1!
RMPRFRST ASK+4*, ASK1+11, ASK1+13!
RMPRJOB EXIT+6!
RMPRKILL EXIT+4!
RMPRL ASK1+10!, END+22, WRI+1*, QUES+1!
RMPRNAM ASK+7*, STAR+5, EXIT+8!
RMPROBL EXIT+6!
RMPRQ ASK1+10!, EXIT+7!
RMPRQUES ASK1+10!, WRI, EXIT+7!, QUEST1*
RMPRSSN ASK+7*, EXIT+8!
>> RMPRSSNE ASK+8*
RMPRWO EXIT+6!
RO END+19*, END+20*, END+22*, WRI+1, EXIT+6!
RR END+20*, EXIT+6!
RR5 EXIT+7!
>> RSTCK ASK+4, ASK1+11
RT EXIT+6!
RTC EXIT+7!
RTCD EXIT+7!
RTCH EXIT+6!
RTHD EXIT+7!
RTR EXIT+7!
RW EXIT+7!
RWP EXIT+7!
RZ EXIT+7!
SN EXIT+6!
STA EXIT+6!
TLC EXIT+7!
TMC EXIT+7!
TRANS EXIT+6!
TRANS1 EXIT+6!
TYPE EXIT+6!
U ASK+7, ASK+8, STAR+5, STAR+6, STARD+3, STARD+4, STARD+5, STARD+6, END+1, END+2
, END+4, END+5, END+8, END+10, END+12, END+14, END+16, END+18, END+20, END+21
, END+22, WRI+1
VA EXIT+7!
VA("PID" ASK+8
VADM EXIT+6!
VADM(1 ASK+7, ASK1+4, STAR+3, END+22
VADM(2 ASK+7, STAR+5, END+22
VADM(3 ASK+8, STAR+6
VAEL EXIT+6!
VAEL(1 END+4
VAEL(2 END+2
VAEL(6 END+1
VAEL(7 ASK+10, ASK1+2, STAR+3, STAR+6
VAEL(8 END+5
VAEL(9 END+4
VAERR EXIT+7!
VAHOW STAR+3~
VAMB EXIT+6!
VAMB(1 END+8
VAMB(2 END+10
VAMB(3 END+12
VAMB(4 END+13, END+14
VAMB(5 END+16
VAMB(7 END+17, END+18
VAOA EXIT+6!
VAOA(1 ASK1+5, STARD+2
VAOA(10 STARD+3, STARD+4, STARD+5
VAOA(4 STARD+3, STARD+4, STARD+5
VAOA(5 STARD+3, STARD+4, STARD+5
VAOA(6 STARD+3, STARD+4, STARD+5
VAOA(8 STAR+3, STARD
VAPA EXIT+6!
VAPA(1 ASK1+3, STARD+2
VAPA(2 STARD+3, STARD+4, STARD+5
VAPA(3 STARD+3, STARD+4, STARD+5
VAPA(4 STARD+3, STARD+4, STARD+6
VAPA(5 STARD+3, STARD+4, STARD+6
VAPA(6 STARD+3, STARD+4, STARD+6
VAPA(8 STAR+3, STARD
VASV EXIT+6!
VASV(4 END+24
VEN EXIT+7!
Y ASK1+14, ASK1+15, ASK1+16, ASK1+22, EXIT+6!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All