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

Package: Prosthetics

Routine: RMPRAINQ


Information

RMPRAINQ ;PHX/JLT/HNB -Print History, Vehicle of Reg. ;1/30/1995

Source Information

Source file <RMPRAINQ.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 5 DD^%DT  ^DIC  ^DIE  ^DIK  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Prosthetics 3 ASK1^RMPRPAT  DIV4^RMPRSIT  GETPAT^RMPRUTIL  
Registration 1 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: 5

Package Total Caller Graph
Prosthetics 3 RMPR AUTO INQ  RMPR ED/DEL VOR  RMPRPAT  
Kernel 1 ^DIC(19  
Prosthetics Vision 4 Sight II 1 RMPV0RMPRPAT  

Entry Points

Name Comments DBIA/ICR reference
DU ;PRINT AUTO-ADAPTIVE EQUIPMENT, entry point from ??
  • ICR #7556
    • Status: Active
    • Usage: Controlled Subscription
    EXIT
    LP ;find vehicle entries
    HDR
    WR
    PG ;display auto, no items
    WR1 ;items, or transactions
    TOT
    ONE ;vehicle, no items.
    VOR ;EDIT/DELETE VEHICLE OF RECORD
    VH

    External References

    Name Field # of Occurrence
    DD^%DT PG+2, PG+5, WR1+5, ONE+5, ONE+8
    ^%ZIS RMPRAINQ+3
    ^%ZISC EXIT
    ^%ZTLOAD RMPRAINQ+7
    ^DIC VH+5
    ^DIE VH+9
    ^DIK VH+10
    ^DIR DU+15, WR, WR1+1, ONE+1
    ASK1^RMPRPAT EXIT+1
    DIV4^RMPRSIT VOR+1
    GETPAT^RMPRUTIL RMPRAINQ+2
    ELIG^VADPT DU+3

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: DU+14
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: DU+16
    Function Call: WRITE
    • Prompt: !
    • Line Location: LP+1
    Function Call: WRITE
    • Prompt: @IOF,!,"NAME: ",RMPRNAM,?33,"SSN: ",RMPRSSN
    • Line Location: HDR+1
    Function Call: WRITE
    • Prompt: ?50,"CLAIM NO. ",RMPRCNUM
    • Line Location: HDR+2
    Function Call: WRITE
    • Prompt: !,"VEHICLE ID#",?20,"YEAR",?25,"PURCHASE DATE",?40,"MAKE"
    • Line Location: HDR+3
    Function Call: WRITE
    • Prompt: ?51,"MODEL",?70,"PAGE ",PAGE
    • Line Location: HDR+4
    Function Call: WRITE
    • Prompt: !,"PROCESS DATE",?15,"ITEM",?40,"QTY",?51,"COST",?62,"AMIS"
    • Line Location: HDR+5
    Function Call: WRITE
    • Prompt: ?72,"TYPE",!?30,"'*' Denotes Inactive Vehicle of Record",!,RMPRL
    • Line Location: HDR+6
    Function Call: WRITE
    • Prompt: !,$E($P(RMPRB,U,1),1,19),?20,$P(RMPRB,U,5)
    • Line Location: PG+1
    Function Call: WRITE
    • Prompt: ?25,Y
    • Line Location: PG+2
    Function Call: WRITE
    • Prompt: ?51,$E($P(RMPRB,U,7),1,9)
    • Line Location: PG+4
    Function Call: WRITE
    • Prompt: ?62,"4502: ",Y
    • Line Location: PG+5
    Function Call: WRITE
    • Prompt: ?62,$S($P(RMPRB,U,9)="A":"ANKYLOSIS",$P(RMPRB,U,9)="V":"VOC REHAB",1:"")
    • Line Location: PG+6
    Function Call: WRITE
    • Prompt: !,^(RA,0)
    • Line Location: PG+7
    Function Call: WRITE
    • Prompt: !
    • Line Location: WR1+2
    Function Call: WRITE
    • Prompt: !,Y
    • Line Location: WR1+9
    Function Call: WRITE
    • Prompt: ?15,$S($D(^RMPR(667.1,+$P(RMPRINFO,U,3),0)):$E(^RMPR(667.1,$P(RMPRINFO,U,3),0),1,20),1:"UNK")
    • Line Location: WR1+10
    Function Call: WRITE
    • Prompt: ?40,$P(RMPRINFO,U,7),?48
    • Line Location: WR1+11
    Function Call: WRITE
    • Prompt: ?48+(10-($L($FN($P(RMPRINFO,U,15),",",2)))),"$",$FN($P(RMPRINFO,U,15),",",2)
    • Line Location: WR1+12
    Function Call: WRITE
    • Prompt: ?62,$S($P(RMPRINFO,U,5)["R":"REPAIR",$P(RMPRINFO,U,5)["A":"VAN MOD",$P(RMPRINFO,U,5)["B":"ADAP EQP",1:"")
    • Line Location: WR1+14
    Function Call: WRITE
    • Prompt: ?72,$S($P(RMPRINFO,U,8)="I":"INITIAL",$P(RMPRINFO,U,8)="R":"REPLACE",$P(RMPRINFO,U,8)="X":"REPAIR",$P(RMPRINFO,U,8)="S":"SPARE",$P(RMPRINFO,U,8)=5:"RENTAL",1:"")
    • Line Location: WR1+15
    Function Call: WRITE
    • Prompt: !,^(RA,0)
    • Line Location: WR1+18
    Function Call: WRITE
    • Prompt: !!?31,"Total/Date:"
    • Line Location: TOT+1
    Function Call: WRITE
    • Prompt: ?48+(10-$L($FN(CNT,",",2))),"$",$FN(CNT,",",2),!
    • Line Location: TOT+2
    Function Call: WRITE
    • Prompt: !,$E($P(RMPRB,U,1),1,19),?20,$P(RMPRB,U,5)
    • Line Location: ONE+4
    Function Call: WRITE
    • Prompt: ?25,Y
    • Line Location: ONE+5
    Function Call: WRITE
    • Prompt: ?51,$E($P(RMPRB,U,7),1,9)
    • Line Location: ONE+7
    Function Call: WRITE
    • Prompt: ?62,"4502: ",Y
    • Line Location: ONE+8
    Function Call: WRITE
    • Prompt: ?62,$S($P(RMPRB,U,9)="A":"ANKYLOSIS",$P(RMPRB,U,9)="V":"VOC REHAB",1:"")
    • Line Location: ONE+9
    Function Call: WRITE
    • Prompt: !,^(RA,0)
    • Line Location: ONE+10
    Function Call: WRITE
    • Prompt: !?15,"NO ITEMS ON THIS VEHICLE OF RECORD",!,RMPRL
    • Line Location: ONE+11
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: ONE+11
    Function Call: WRITE
    • Prompt: ?5,$C(7),!,"Someone else is Editing this Entry!"
    • Line Location: VH+7
    Function Call: WRITE
    • Prompt: !
    • Line Location: VH+11
    Routine Call
    • DIC
    • Line Location:
      • VH+5
    Routine Call
    • DIE
    • Line Location:
      • VH+9
    Routine Call
    • DIR
    • Line Location:
      • DU+15
      • WR
      • WR1+1
      • ONE+1
    Routine Call
    • %ZIS
    • Line Location:
      • RMPRAINQ+3

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^RMPR(667.3 - [#667.3] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^RMPR(667 - [#667] DU+6, DU+7, DU+8, WR+1, PG+7, ONE+3, ONE+10, VH+6, VH+11
    ^RMPR(667.1 - [#667.1] WR1+10
    ^RMPR(667.2 - [#667.2] PG+3, ONE+6
    ^RMPR(667.3 - [#667.3] DU+10, LP+2, WR1+3, WR1+16, WR1+18, VH+10

    Label References

    Name Line Occurrences
    EXIT RMPRAINQ+3, RMPRAINQ+8
    HDR DU+5, WR+1, WR1+2, ONE+2
    LP DU+10
    ONE DU+12
    PG WR1+2
    TOT LP+4, WR1+7
    VH VH+11
    WR LP+1
    WR1 LP+3

    Naked Globals

    Name Field # of Occurrence
    ^( PG+7, WR1+18, ONE+10
    ^(2 WR+1, ONE+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %ZIS RMPRAINQ+3*
    CNT LP+1~*, WR1+13*, TOT+2, TOT+3*
    DA VOR+1!, VH+8*, VH+10*
    >> DFN DU+3*
    DIC EXIT!, VOR+1!, VH*, VH+5!, VH+7!, VH+9
    DIC("A" VH+1*
    DIC("S" VH+3*, VH+4*
    DIC("W" VH+2*
    DIC(0 VH*
    DIE VOR+1!, VH+9*, VH+11!
    DIK VOR+1!, VH+10*
    DIR DU+15!, EXIT!
    DIR(0 DU+15*, WR*, WR1+1*, ONE+1*
    DR VOR+1!, VH+8*, VH+11!
    FL DU+1~, DU+6, DU+15, EXIT!, LP+2, WR*, WR1+1*, TOT, ONE+1*
    IO DU+5
    IO("Q" RMPRAINQ+4!
    IOF DU+16, HDR+1
    IOM DU+4
    ION RMPRAINQ+5
    IOSL DU+14, WR, WR+1, WR1+1, WR1+2, ONE+1, ONE+2
    IOST DU+14, DU+15, WR, WR1+1, ONE+1
    PAGE DU+1~, DU+4*, HDR*, HDR+4
    >> POP RMPRAINQ+3
    RA EXIT!, PG+7*, WR1+17*, WR1+18*, ONE+10*
    RDAT DU+1~, DU+12*, DU+13, LP+3*
    RI EXIT!, VH+10*
    RK EXIT!, LP+1*, LP+2*, WR1+3, WR1+16, WR1+18
    RMPRA VOR+1!
    RMPRB RMPRAINQ+6*, DU+1~, DU+7*, DU+8, EXIT!, WR+1*, PG+1, PG+2, PG+3, PG+4
    , PG+6, ONE+3*, ONE+4, ONE+5, ONE+6, ONE+7, ONE+9
    >> RMPRBAC1 EXIT+1
    >> RMPRBACK EXIT+1
    >> RMPRCNUM DU+3*, HDR+2
    RMPRD DU+1~, DU+8*, PG+5, ONE+8
    >> RMPRDA VH+8*, VH+10, VH+11
    >> RMPRDFN RMPRAINQ+2, DU+3, DU+6
    RMPRI DU+1~, DU+4*, DU+6*, DU+7
    RMPRINFO EXIT!, WR1+3*, WR1+4*, WR1+5, WR1+10, WR1+11, WR1+12, WR1+13, WR1+14, WR1+15
    RMPRL DU+1~, DU+4*, HDR+6, ONE+11
    >> RMPRNAM HDR+1
    >> RMPRSITE VH+4
    >> RMPRSSN HDR+1
    RMPRT DU+1~, DU+8*, DU+10, LP+2, WR+1, PG+7, ONE+3, ONE+10
    RPREV LP+1~*, WR1+7, WR1+8*
    U DU+8, WR+1, PG+1, PG+2, PG+3, PG+4, PG+6, WR1+3, WR1+4, WR1+5
    , WR1+10, WR1+11, WR1+12, WR1+13, WR1+14, WR1+15, ONE+3, ONE+4, ONE+5, ONE+6
    , ONE+7, ONE+9
    VAEL DU+3!
    VAEL(7 DU+3
    >> X VOR+1
    Y EXIT!, WR, PG+2*, PG+5*, WR1+1, WR1+5*, WR1+7, WR1+8, WR1+9, ONE+1
    , ONE+5*, ONE+8*, VH+5!, VH+6, VH+7!, VH+8
    >> ZTDESC RMPRAINQ+5*
    >> ZTIO RMPRAINQ+5*
    >> ZTRTN RMPRAINQ+5*
    >> ZTSAVE( RMPRAINQ+6*
    >> ZTSK RMPRAINQ+8
    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 |  Naked Globals |  Local Variables  | All