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: RMPOPAT

Package: Prosthetics

Routine: RMPOPAT


Information

RMPOPAT ;HINES CIO/RVD-DISPLAY 2319 FIRST PAGE READ ONLY ;7/5/02

Source Information

Source file <RMPOPAT.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Prosthetics 4 2319^RMPOBIL6  ASK1^RMPOPAT1  ^RMPOPAT2  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: 5

Package Total Caller Graph
Prosthetics 5 RMPOBIL6  RMPOBIL7  RMPOPAT1  RMPOPAT2  RMPOPRT  

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 ;W:ANS=5 @IOF
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+7
HOME^%ZIS ASK+2
^DIR ASK1+12, QUEST1+1, QUEST2+2
2319^RMPOBIL6 QUE+3
ASK1^RMPOPAT1 ASK1+11
^RMPOPAT2 QUE+2
GETPAT^RMPRUTIL ASK1+22
ADD^VADPT ASK+3, ASK1+3, STAR+3
DEM^VADPT ASK+3, ASK1+4, STAR+3
ELIG^VADPT ASK+3, ASK1+2, END
KVAR^VADPT EXIT+7
MB^VADPT END+6
OAD^VADPT ASK+3, ASK1+5, STAR+3
SVC^VADPT END+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ASK+6
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: !,"You may only enter screen (I-H),`^`, 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+22
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+24
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+4
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+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPR(662 - [#662] END+20
^RMPR(665 - [#665] END+19, END+20, EXIT+4

Label References

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

Naked Globals

Name Field # of Occurrence
^( END+20
^(0 EXIT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%X ASK+7*, EXIT+7!
%Y ASK+7*, EXIT+7!
AMIS EXIT+6!
AN EXIT+7!
ANS ASK1+11!, ASK1+16*, QUES1*, QUES1+2, QUES1+3, QUES1+4, QUE+1, QUE+2, QUE+3
CST EXIT+6!
DATE EXIT+6!
DEL EXIT+6!
DFN ASK+2*, ASK1+1*, STAR+1, EXIT+7!
DIC EXIT+6!
DIE EXIT+6!
DIR 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 QUES+1*, EXIT+6!
IOF ASK+6, STAR+4, END+24, QUEST1+1, QUEST2+2, QUEST2+4
IOSL 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!
RDA EXIT+7!
REM EXIT+6!
RFLG EXIT+6!
RI EXIT+6!
RJ EXIT+7!
RK EXIT+6!
RL EXIT+7!
RMNOQUIT END+21!, QUEST2+2*, QUEST2+3*
RMPOPFLG EXIT+9!
RMPR1APN ASK1+15, ASK1+22, EXIT+9!
RMPR2APN ASK1+22*, ASK1+23, ASK1+24!, EXIT+7!
RMPRBACK ASK+2*, STAR+2*, END+23, EXIT+8!
RMPRCCO EXIT+6!
RMPRCNUM ASK+7*, EXIT+6!
RMPRCOMB EXIT+6!
RMPRDFN ASK+1, ASK+2, ASK+7, ASK1+1, ASK1+22, ASK1+23*, END+19, END+20, EXIT+4, EXIT+8!
RMPRDOB ASK+5*, EXIT+8!
RMPRDT EXIT+6!
RMPREND1 END+21, WRI, EXIT+7!, QUEST1+2*
>> RMPRF EXIT+8
RMPRFG EXIT+6!
RMPRFLG QUES+1!
RMPRJOB EXIT+6!
RMPRKILL EXIT+4!
RMPRL QUES+1!
RMPRNAM ASK+4*, STAR+5, EXIT+8!
RMPROBL EXIT+6!
RMPRQ EXIT+7!
RMPRQUES WRI, EXIT+7!, QUEST1*
RMPRSSN ASK+4*, EXIT+8!
>> RMPRSSNE ASK+5*
RMPRWO EXIT+6!
RO END+19*, END+20*, EXIT+6!
RR END+20*, EXIT+6!
RR5 EXIT+7!
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+4, ASK+5, 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
VA EXIT+7!
VA("PID" ASK+5
VADM EXIT+6!
VADM(1 ASK+4, ASK1+4, STAR+3
VADM(2 ASK+4, STAR+5
VADM(3 ASK+5, STAR+6
VAEL EXIT+6!
VAEL(1 END+4
VAEL(2 END+2
VAEL(6 END+1
VAEL(7 ASK+7, 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+22
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