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

Package: Prosthetics

Routine: RMPRAINQ


Information

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

Source Information

Source file <RMPRAINQ.m>

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

    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

    FileMan Files Accessed Via FileMan Db Call

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