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 |  Local Variables |  All
Print Page as PDF
Routine: RMPRELG1

Package: Prosthetics

Routine: RMPRELG1


Information

RMPRELG1 ;PHX/RFM/JLT-DISPLAY ELIGIBILITY FIRST PAGE ;8/29/1994

Source Information

Source file <RMPRELG1.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Prosthetics 2 ^RMPRELG2  DIV4^RMPRSIT  
VA FileMan 2 ^DIC  ^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

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Prosthetics 2 RMPR ELG INQ  RMPRELG2  

Entry Points

Name Comments DBIA/ICR reference
QUES
EXIT ;KILL VARIABLES AND EXIT ROUTINE
QUEST1 ;DO PAGE BREAK IF CURSOR AT LINE 18
QUEST2 ;PRINT MAS DISABILITY CODES ON NEXT PAGE IF TOO MANY TO ALL FIT.
WRI ;WRITES MAS DISABILITY CODES

External References

Name Field # of Occurrence
HOME^%ZIS RMPRELG1+2
^DIC RMPRELG1+2
^DIR QUEST1+3, QUEST2+1
^RMPRELG2 QUES+1
DIV4^RMPRSIT RMPRELG1+2
ADD^VADPT RMPRELG1+2
DEM^VADPT RMPRELG1+2
ELIG^VADPT RMPRELG1+2
KVAR^VADPT EXIT+1
MB^VADPT RMPRELG1+11
OAD^VADPT RMPRELG1+2
SVC^VADPT RMPRELG1+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RMPRELG1+2
Function Call: WRITE
  • Prompt: $E(RMPRNAM,1,20),?23,"SSN: ",$P(VADM(2),U,2),?42,"DOB: ",$P(VADM(3),U,2),?61,"CLAIM# ",RMPRCNUM
  • Line Location: RMPRELG1+3
Function Call: WRITE
  • Prompt: !!,"Phone: ",VAPA(8),?40,"Phone: ",VAOA(8),!,"Current Address:",?40,"Primary Next of Kin Address:",!,VAPA(1),?40,VAOA(1)
  • Line Location: RMPRELG1+4
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: RMPRELG1+10
Function Call: WRITE
  • Prompt: ?40,"Eligibility Status: ",$E($P(VAEL(8),U,2),1,19)
  • Line Location: RMPRELG1+11
Function Call: WRITE
  • Prompt: !!,"Receiving A&A Benefits? "
  • Line Location: RMPRELG1+11
Function Call: WRITE
  • Prompt: "NO"
  • Condition for execution: VAMB(1)=0
  • Line Location: RMPRELG1+11
Function Call: WRITE
  • Prompt: $P(VAMB(1),U,2)
  • Condition for execution: $P(VAMB(1),U,1)=1
  • Line Location: RMPRELG1+11
Function Call: WRITE
  • Prompt: ?40,"Receiving Housebound Benefits? "
  • Line Location: RMPRELG1+12
Function Call: WRITE
  • Prompt: "NO"
  • Condition for execution: VAMB(2)=0
  • Line Location: RMPRELG1+12
Function Call: WRITE
  • Prompt: $P(VAMB(2),U,2)
  • Condition for execution: $P(VAMB(2),U,1)=1
  • Line Location: RMPRELG1+12
Function Call: WRITE
  • Prompt: !,"Receiving Social Security? "
  • Line Location: RMPRELG1+13
Function Call: WRITE
  • Prompt: "NO"
  • Condition for execution: VAMB(3)=0
  • Line Location: RMPRELG1+13
Function Call: WRITE
  • Prompt: $P(VAMB(3),U,2)
  • Condition for execution: $P(VAMB(3),U,1)=1
  • Line Location: RMPRELG1+13
Function Call: WRITE
  • Prompt: ?40,"Receiving VA Pension? "
  • Line Location: RMPRELG1+13
Function Call: WRITE
  • Prompt: "NO"
  • Condition for execution: VAMB(4)=0
  • Line Location: RMPRELG1+13
Function Call: WRITE
  • Prompt: $P(VAMB(4),U,2)
  • Condition for execution: $P(VAMB(4),U,1)=1
  • Line Location: RMPRELG1+13
Function Call: WRITE
  • Prompt: !,"Receiving Military Retirement? "
  • Line Location: RMPRELG1+14
Function Call: WRITE
  • Prompt: "NO"
  • Condition for execution: VAMB(5)=0
  • Line Location: RMPRELG1+14
Function Call: WRITE
  • Prompt: $P(VAMB(5),U,2)
  • Condition for execution: $P(VAMB(5),U,1)=1
  • Line Location: RMPRELG1+14
Function Call: WRITE
  • Prompt: ?40,"Receiving VA Disability? "
  • Line Location: RMPRELG1+14
Function Call: WRITE
  • Prompt: "NO"
  • Condition for execution: VAMB(7)=0
  • Line Location: RMPRELG1+14
Function Call: WRITE
  • Prompt: $P(VAMB(7),U,2)
  • Condition for execution: $P(VAMB(7),U,1)=1
  • Line Location: RMPRELG1+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RMPRELG1+15
Function Call: WRITE
  • Prompt: !!,"*POW? ",$S(VASV(4)=1:"YES",VASV(4)=0:"NO")
  • Line Location: RMPRELG1+17
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+2
Function Call: WRITE
  • Prompt: "YES"
  • Condition for execution: $P(^DPT(DFN,.372,RO,0),U,3)=1
  • Line Location: WRI+2
Function Call: WRITE
  • Prompt: "NO"
  • Condition for execution: $P(^DPT(DFN,.372,RO,0),U,3)=0
  • Line Location: WRI+2
Function Call: WRITE
  • Prompt: !!,"'",RMPRTEM,"'"," Is a non-existent code ; Check the MAS disability codes on this patient."
  • Line Location: WRI+4
Function Call: WRITE
  • Prompt: !
  • Line Location: QUES+0
Function Call: READ
  • Prompt: or `return` to continue: "
  • Formatting: "Enter `^`to exit
  • Timeout: DTIME
  • Variable: ANS
  • Line Location: QUES+1
Function Call: WRITE
  • Prompt: " ??",!!,$C(7)
  • Line Location: QUES+2
Function Call: WRITE
  • Prompt: !
  • Line Location: QUEST1+2
Function Call: WRITE
  • Prompt: !,"YOU MUST ENTER `RETURN` TO FINISH VIEWING MAS DISABILITY CODES"
  • Line Location: QUEST1+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: QUEST1+5
Function Call: WRITE
  • Prompt: !!,"Patient Name: ",$E(VADM(1),1,20),?40,"SSN:",$P(VADM(2),U,2),!!,"MAS Disability Codes continued: "
  • Line Location: QUEST1+5
Function Call: WRITE
  • Prompt: !,"Press `RETURN` to continue."
  • Line Location: QUEST2+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: QUEST2+6
Routine Call
  • %ZIS
  • Line Location:
    • RMPRELG1+2
Routine Call
  • DIC
  • Line Location:
    • RMPRELG1+2
Routine Call
  • DIR
  • Line Location:
    • QUEST1+3
    • QUEST2+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(31 - [#31] WRI+2
^DPT - [#2] RMPRELG1+16, WRI+2

Label References

Name Line Occurrences
EXIT RMPRELG1+2, QUES+1
QUES RMPRELG1+18, QUES+2
QUEST1 WRI+1, QUEST1+4
QUEST2 RMPRELG1+15, QUEST2+5
WRI RMPRELG1+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS QUES+1*, EXIT+2!
DFN RMPRELG1+2*, RMPRELG1+16, WRI+2, EXIT+2!
DIC RMPRELG1+2*, EXIT+1!
DIC(0 RMPRELG1+2*
DIR QUEST1+1~, QUEST2+1~!
DIR("A" QUEST1+3*
DIR(0 QUEST1+3*, QUEST2+1*
DTIME QUES+1, QUEST1+3, QUEST2+1
FL RMPRELG1+18*, EXIT+1!
FLG EXIT+2!
>> I RMPRELG1+16*
IOF RMPRELG1+2, RMPRELG1+15, QUEST1+5, QUEST2+6
KILL EXIT+2!
RMNOQUIT RMPRELG1+18!, QUEST2+3*, QUEST2+4*, QUEST2+6*
RMPRCNUM RMPRELG1+2*, RMPRELG1+3, EXIT+2!
RMPRCOMB EXIT+2!
RMPRDFN EXIT+2!
RMPRDOB EXIT+2!
RMPRFLG QUES!
RMPRL RMPRELG1+16, WRI+2*, QUES!
RMPRNAM RMPRELG1+2*, RMPRELG1+3, EXIT+2!
RMPRSSN RMPRELG1+2*, EXIT+2!
RNSK EXIT+1!
>> RO RMPRELG1+16*, WRI+2
U RMPRELG1+2, RMPRELG1+3, RMPRELG1+5, RMPRELG1+6, RMPRELG1+8, RMPRELG1+10, RMPRELG1+11, RMPRELG1+12, RMPRELG1+13, RMPRELG1+14
, RMPRELG1+16, WRI+2, QUEST1+5
VA EXIT+1!
VADM RMPRELG1+2!, EXIT+2!
VADM(1 RMPRELG1+2, RMPRELG1+16, QUEST1+5
VADM(2 RMPRELG1+2, RMPRELG1+3, RMPRELG1+16, QUEST1+5
VADM(3 RMPRELG1+3
VAEL RMPRELG1+11!
VAEL(1 RMPRELG1+10
VAEL(2 RMPRELG1+10
VAEL(6 RMPRELG1+10
VAEL(7 RMPRELG1+2
VAEL(8 RMPRELG1+11
VAEL(9 RMPRELG1+10
VAERR EXIT+2!
VAMB RMPRELG1+14!
VAMB(1 RMPRELG1+11
VAMB(2 RMPRELG1+12
VAMB(3 RMPRELG1+13
VAMB(4 RMPRELG1+13
VAMB(5 RMPRELG1+14
VAMB(7 RMPRELG1+14
VAOA RMPRELG1+9!, EXIT+2!
VAOA(1 RMPRELG1+4
VAOA(10 RMPRELG1+9
VAOA(2 RMPRELG1+6
VAOA(3 RMPRELG1+6
VAOA(4 RMPRELG1+6
VAOA(5 RMPRELG1+6
VAOA(6 RMPRELG1+6
VAOA(8 RMPRELG1+4
VAOA(9 RMPRELG1+6, RMPRELG1+7
VAPA RMPRELG1+9!, EXIT+2!
VAPA(1 RMPRELG1+4
VAPA(10 RMPRELG1+8
VAPA(2 RMPRELG1+5, RMPRELG1+6, RMPRELG1+7, RMPRELG1+8, RMPRELG1+9
VAPA(3 RMPRELG1+5, RMPRELG1+6, RMPRELG1+7, RMPRELG1+8, RMPRELG1+9
VAPA(4 RMPRELG1+5, RMPRELG1+6, RMPRELG1+8
VAPA(5 RMPRELG1+5, RMPRELG1+6, RMPRELG1+8
VAPA(6 RMPRELG1+5, RMPRELG1+6, RMPRELG1+8
VAPA(8 RMPRELG1+4
VASV RMPRELG1+17!, EXIT+2!
VASV(4 RMPRELG1+17
>> X RMPRELG1+2, QUEST2+4, QUEST2+5, QUEST2+6
Y RMPRELG1+2, EXIT+2!, QUEST1+4
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 |  Local Variables |  All