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

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
  • ICR #7561
    • Status: Active
    • Usage: Controlled Subscription
    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

    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
    Info |  Source |  Entry Points |  Interaction Calls