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

Package Total Caller Graph
Prosthetics 3 RMPR AUTO INQ  RMPR ED/DEL VOR  RMPRPAT  

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

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, WRWR1+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*, TOTONE+1*
IO DU+5
IO("Q" RMPRAINQ+4!
IOF DU+16, HDR+1
IOM DU+4
ION RMPRAINQ+5
IOSL DU+14, WRWR+1, WR1+1, WR1+2, ONE+1, ONE+2
IOST DU+14, DU+15, WRWR1+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!, WRPG+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