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