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

Package: Prosthetics

Routine: RMPRPAT1


Information

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

Source Information

Source file <RMPRPAT1.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 DD^%DT  %XY^%RCR  YN^DICN  ^DIR  
Prosthetics 1 ASK2^RMPRPAT  
Registration 1 (DEM,ELIG)^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: 3

Package Total Caller Graph
Prosthetics 2 RMPRPAT  RMPRPRT1  
Prosthetics Vision 4 Sight II 1 RMPV0RMPRPAT  

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

    External References

    Name Field # of Occurrence
    DD^%DT RMPRPAT1+13, RMPRPAT1+17, RMPRPAT1+24, WRIL+5, OLD1+2
    %XY^%RCR RMPRPAT1+5
    YN^DICN WRIL+1, OLD1
    ^DIR RMPRPAT1+31
    ASK2^RMPRPAT RMPRPAT1+32
    DEM^VADPT RMPRPAT1+3
    ELIG^VADPT RMPRPAT1+4

    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
    Routine Call
    • DIR
    • Line Location:
      • RMPRPAT1+31

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PRC(441 - [#441] RMPRPAT1+13, WRIL+6
    ^RMPR(660.1 - [#660.1] RMPRPAT1+29, WRIL+3, WRIL+4, WRIL+6, WRIL+7, WRIL+8
    ^RMPR(661 - [#661] RMPRPAT1+13, WRIL+6
    ^RMPR(664 - [#664] RMPRPAT1+6
    ^RMPR(665 - [#665] RMPRPAT1+15, RMPRPAT1+28, OLD+1, OLD1+2, RTNSTA+1
    ^RMPR(667 - [#667] RMPRPAT1+21, RMPRPAT1+22, RMPRPAT1+24
    ^RMPR(667.1 - [#667.1] WRIL+7
    ^RMPR(667.2 - [#667.2] RMPRPAT1+24
    ^VA(200 - [#200] RMPRPAT1+17

    Label References

    Name Line Occurrences
    OLD RMPRPAT1+28
    OLD1 OLD+1, OLD1+1
    WRIL RMPRPAT1+29, WRIL+2

    Naked Globals

    Name Field # of Occurrence
    ^(0 WRIL+6, WRIL+7, WRIL+8, OLD1+2

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % WRIL+1*, WRIL+2, OLD1*, OLD1+1, ASK1+3~
    %X RMPRPAT1+5*!
    %Y RMPRPAT1+5*!
    >> DFN RMPRPAT1+3*, RMPRPAT1+4*, RMPRPAT1+5*
    DIR RMPRPAT1+31~, ASK1+2!
    DIR("?" ASK1+5*, ASK1+6!
    DIR("A" ASK1+2*, ASK1+6*
    DIR(0 RMPRPAT1+31*, HELP+1, ASK1+3*, ASK1+4*, ASK1+6*
    >> FL RMPRPAT1+32*
    I RMPRPAT1+29*, RMPRPAT1+30!, WRIL+1, WRIL+2, OLD+1*, OLD1, OLD1+1
    IOF RMPRPAT1+2
    IOST WRIL+1, WRIL+2, OLD1, OLD1+1
    J RMPRPAT1+11*, RMPRPAT1+12*, RMPRPAT1+13, RMPRPAT1+30!
    KILL RMPRPAT1+25!, RMPRPAT1+29, WRIL+1*, OLD+1, OLD1*
    L RMPRPAT1+30!
    >> PAGE RMPRPAT1+2*
    R0 RMPRPAT1+14*, RMPRPAT1+30!, RTNSTA+1*
    R5 RMPRPAT1+5!
    R5(0 RMPRPAT1+14
    R5(10 RMPRPAT1+10*, RMPRPAT1+11
    R5(5 RMPRPAT1+12, RMPRPAT1+13
    R5(6 RMPRPAT1+15, RMPRPAT1+19, RMPRPAT1+20
    >> RA RMPRPAT1+15*, RMPRPAT1+19
    >> RCNT HELP+1, ASK1+2, ASK1+4, ASK1+5
    >> RFLG ASK1+6, ASK1+7*
    >> RI RMPRPAT1+15*
    RMPR90DP HELP+1~*
    RMPR90I HELP+1~*
    >> RMPRDFN RMPRPAT1+3, RMPRPAT1+4, RMPRPAT1+5, RMPRPAT1+6, RMPRPAT1+15, RMPRPAT1+21, RMPRPAT1+28, RMPRPAT1+29, OLD+1, OLD1+2
    , RTNSTA+1
    RMPRFLG RMPRPAT1+23, RMPRPAT1+24*, RMPRPAT1+25!
    >> RMPRNAM RMPRPAT1+7
    >> RO RMPRPAT1+21*, RMPRPAT1+22, RMPRPAT1+24, RMPRPAT1+29*, WRIL+3, WRIL+4, WRIL+6, WRIL+7, WRIL+8, OLD+1*
    , OLD1+2, RTNSTA+1
    >> RR5 RMPRPAT1+15*, RMPRPAT1+16, RMPRPAT1+17
    U RMPRPAT1+7, RMPRPAT1+8, RMPRPAT1+11, RMPRPAT1+12, RMPRPAT1+13, RMPRPAT1+14, RMPRPAT1+16, RMPRPAT1+17, RMPRPAT1+19, RMPRPAT1+22
    , RMPRPAT1+24, WRIL+3, WRIL+4, WRIL+6, WRIL+7, WRIL+8, OLD1+2, RTNSTA+1, HELP+1, ASK1+6
    VADM RMPRPAT1+3!
    VADM(2 RMPRPAT1+7
    VADM(3 RMPRPAT1+8
    VAEL RMPRPAT1+4!
    VAEL(7 RMPRPAT1+9
    VAHOW RMPRPAT1+3~, RMPRPAT1+4~
    >> Y RMPRPAT1+12*, RMPRPAT1+13, RMPRPAT1+17*, RMPRPAT1+24*, WRIL+4*, WRIL+5, OLD1+2*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All