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

Package: Prosthetics

Routine: RMPRPAT1


Information

RMPRPAT1 ;PHX/HNB/RFM/JLT-DISPLAY PATIENT INFO ;8/29/1994

Source Information

Source file <RMPRPAT1.m>

Entry Points

Name Comments DBIA/ICR reference
WRIL ;ASK TO SEE MORE RETURNED ITEMS
OLD ;DISPLAY OLD RETURNED ITEMS
OLD1
RTNSTA ;DISPLAYS STATUS OF TRACKED ITEM ON PATIENT'S 10-2319
HELP ;DISPLAY HELP FOR SCREENS
  • ICR #7558
    • Status: Active
    • Usage: Controlled Subscription
    ASK1 ;SET DIR AND FOR SCREEN NUMBER DISPLAY
  • ICR #7558
    • Status: Active
    • Usage: Controlled Subscription

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: RMPRPAT1+2
    Function Call: WRITE
    • Prompt: !,"<<<HOME OXYGEN PATIENT>>>>"
    • Line Location: RMPRPAT1+6
    Function Call: WRITE
    • Prompt: !,$E(RMPRNAM,1,20),?23,"SSN: ",$P(VADM(2),U,2)
    • Line Location: RMPRPAT1+7
    Function Call: WRITE
    • Prompt: ?42,"DOB: ",$P(VADM(3),U,2)
    • Line Location: RMPRPAT1+8
    Function Call: WRITE
    • Prompt: ?61,"CLAIM# ",VAEL(7)
    • Line Location: RMPRPAT1+9
    Function Call: WRITE
    • Prompt: !!,"PSC Issue Card: ",?17,"Appliance",?30,"Ht ",$P(R5(10),U,1),?37,"Wt ",$P(R5(10),U,2),?45,"Eyes ",$P(R5(10),U,3),?54,"Hair ",$P(R5(10),U,4),?66,"Serial Number"
    • Line Location: RMPRPAT1+11
    Function Call: WRITE
    • Prompt: !
    • Line Location: RMPRPAT1+12
    Function Call: WRITE
    • Prompt: Y,?17,$S($P(R5(5,J,0),U,2)]"":$E($P(R5(5,J,0),U,2),1,47),1:$E($P(^PRC(441,$P(^RMPR(661,$P(R5(5,J,0),U,4),0),U,1),0),U,2),1,47)),?66,$E($P(R5(5,J,0),U,3),1,12)
    • Line Location: RMPRPAT1+13
    Function Call: WRITE
    • Prompt: !!,"Clothing Allowance: "
    • Line Location: RMPRPAT1+14
    Function Call: WRITE
    • Prompt: !,?22,"Date of Exam: ",Y
    • Line Location: RMPRPAT1+17
    Function Call: WRITE
    • Prompt: " Examiner: ",$E($P(^VA(200,$P(RR5,U,6),0),U,1),1,30)
    • Condition for execution: $P(RR5,U,6)
    • Line Location: RMPRPAT1+17
    Function Call: WRITE
    • Prompt: "NONE LISTED",!
    • Line Location: RMPRPAT1+20
    Function Call: WRITE
    • Prompt: ?64,Y
    • Line Location: RMPRPAT1+24
    Function Call: WRITE
    • Prompt: !!,"Items Returned: ",?16,"Date",?29,"Item",?56
    • Line Location: RMPRPAT1+26
    Function Call: WRITE
    • Prompt: "Serial",?68,"Status"
    • Line Location: RMPRPAT1+27
    Function Call: WRITE
    • Prompt: !
    • Line Location: RMPRPAT1+30
    Function Call: WRITE
    • Prompt: !,"Would you like to see more returned items"
    • Line Location: WRIL+1
    Function Call: WRITE
    • Prompt: !,"Enter `YES` or `NO`"
    • Line Location: WRIL+2
    Function Call: WRITE
    • Prompt: !?16,Y
    • Line Location: WRIL+5
    Function Call: WRITE
    • Prompt: ?56,$E($P(^RMPR(660.1,RO,0),U,6),1,10)
    • Line Location: WRIL+7
    Function Call: WRITE
    • Prompt: !,"Would you like to see more returned items"
    • Line Location: OLD1+0
    Function Call: WRITE
    • Prompt: !,"Enter `YES` or `NO`"
    • Line Location: OLD1+1
    Function Call: WRITE
    • Prompt: !?16,$E(Y,1,12),?29,$E($P(^RMPR(665,RMPRDFN,7,RO,0),U,4),1,20)
    • Line Location: OLD1+2
    Function Call: WRITE
    • Prompt: ?68,$S(R0=1:"RETURNED",R0=2:"CONDENMED",R0=3:"TURNED-IN",R0=4:"LOST",R0=5:"BROKEN",1:"UNKNOWN")
    • Line Location: RTNSTA+1
    Function Call: WRITE
    • Prompt: !,"Select One of the Following: ",!
    • Line Location: HELP+1
    Function Call: WRITE
    • Prompt: !,?5,$P($P(RMPR90DP,";",RMPR90I),":",1),?14,$P($P(RMPR90DP,";",RMPR90I),":",2)
    • Line Location: HELP+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: HELP+2
    Info |  Source |  Entry Points |  Interaction Calls