Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RMPOPRT

Package: Prosthetics

Routine: RMPOPRT


Information

RMPOPRT ;HINES CIO/RVD-PRINT 2319 ;7/8/02

Source Information

Source file <RMPOPRT.m>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(665 - [#665] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call