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

Package: Engineering

Routine: ENEQRP2


Information

ENEQRP2 ;(WIRMFO)/DH/SAB-AGGREGATED REPAIR DATA BY CATEGORY ;10/21/1998

Source Information

Source file <ENEQRP2.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 5 ^%DT  ^%DTC  ^DIC  $$EXTERNAL^DILFD  ^DIR  
Kernel 3 HOME^%ZIS  ^%ZISC  ^%ZTLOAD  
Engineering 1 DEV^ENLIB  

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

Package Total Caller Graph
Engineering 1 ENIN-HIST-GENERIC  

Entry Points

Name Comments DBIA/ICR reference
HD ;EQUIP HIST-EQUIPMENT TYPE
HD1
HD12
HD2
HDP ;PRINT
EXP
DONE
EXIT
ERR
T
RPTHD ; Header
EXCPHD ; Exception List Header

External References

Name Field # of Occurrence
^%DT T
^%DTC HD12+12
HOME^%ZIS HD+17
^%ZISC DONE+3
^%ZTLOAD HD+17
^DIC HD+1
$$EXTERNAL^DILFD HD12+7
^DIR HD+12, EXP+7, RPTHD+1
DEV^ENLIB HD+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There is no equipment of type ",ENDVTYP,".",!!!
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !!,"Equipment Type: ",ENDVTYP,!,"Number of Units: ",J
  • Line Location: HDP+4
Function Call: WRITE
  • Prompt: !!,"There is no equipment of this type! "
  • Line Location: HDP+5
Function Call: WRITE
  • Prompt: !,"Average Age: ",$J(ENAGE/J,4,2)," Years"
  • Line Location: HDP+6
Function Call: WRITE
  • Prompt: !,"Average Age: ** NOT ENTERED **"
  • Line Location: HDP+7
Function Call: WRITE
  • Prompt: !!,"EQUIPMENT COSTS",?23,"LABOR",?32,"MATERIAL",?46,"VENDOR",?59,"TOTAL",?71,"HOURS"
  • Line Location: HDP+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HDP+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HDP+8
Function Call: WRITE
  • Prompt: !,"PER ITEM",?20,$J((EN(2)/J),8,2),?32,$J((EN(3)/J),8,2),?44,$J((EN(4)/J),8,2),?56,$J((EN(5)/J),8,2),?68,$J(EN(1)/J,8,2)
  • Line Location: HDP+9
Function Call: WRITE
  • Prompt: !,"PER YEAR",?20,$J((EN(2)/ENAJ),8,2),?32,$J((EN(3)/ENAJ),8,2),?44,$J((EN(4)/ENAJ),8,2),?56,$J((EN(5)/ENAJ),8,2),?68,$J((EN(1)/ENAJ),8,2)
  • Line Location: HDP+10
Function Call: WRITE
  • Prompt: !,"PER ITEM PER YEAR",?20,$J((EN(2)/J/ENAJ),8,2),?32,$J((EN(3)/J/ENAJ),8,2),?44,$J((EN(4)/J/ENAJ),8,2),?56,$J((EN(5)/J/ENAJ),8,2),?68,$J((EN(1)/J/ENAJ),8,2)
  • Line Location: HDP+11
Function Call: WRITE
  • Prompt: !,"TOTAL",?20,$J(EN(2),8,2),?32,$J(EN(3),8,2),?44,$J(EN(4),8,2),?56,$J(EN(5),8,2),?68,$J(EN(1),8,2)
  • Line Location: HDP+12
Function Call: WRITE
  • Prompt: !!!,"VISITS",?20,"REPAIR",?32,"PMI",?40,"VENDOR",?50,"OTHER",?60,"TOTAL"
  • Line Location: HDP+13
Function Call: WRITE
  • Prompt: !
  • Line Location: HDP+13
Function Call: WRITE
  • Prompt: !
  • Line Location: HDP+13
Function Call: WRITE
  • Prompt: !,"PER ITEM",?20,$J((EN("R")/J),4,1),?30,$J((EN("P")/J),4,1),?40,$J((EN("V")/J),4,1),?50,$J((EN("A")/J),4,1),?60,$J((K/J),4,1)
  • Line Location: HDP+14
Function Call: WRITE
  • Prompt: !,"PER YEAR",?20,$J((EN("R")/ENAJ),4,1),?30,$J((EN("P")/ENAJ),4,1),?40,$J((EN("V")/ENAJ),4,1),?50,$J((EN("A")/ENAJ),4,1),?60,$J((K/ENAJ),4,1)
  • Line Location: HDP+15
Function Call: WRITE
  • Prompt: !,"PER ITEM PER YEAR",?20,$J((EN("R")/J/ENAJ),4,1),?30,$J((EN("P")/J/ENAJ),4,1),?40,$J((EN("V")/J/ENAJ),4,1),?50,$J((EN("A")/J/ENAJ),4,1),?60,$J((K/J/ENAJ),4,1)
  • Line Location: HDP+16
Function Call: WRITE
  • Prompt: !,"TOTAL",?20,$J(EN("R"),4,1),?30,$J(EN("P"),4,1),?40,$J(EN("V"),4,1),?50,$J(EN("A"),4,1),?60,$J(K,4,1)
  • Line Location: HDP+17
Function Call: WRITE
  • Prompt: !,ENR,?12,^TMP($J,ENR,ENL)
  • Line Location: EXP+6
Function Call: WRITE
  • Prompt: !!,"NON-FATAL DATABASE ERROR..NODE ^ENG(6914,",ENR,",1) IS MISSING ...CHECK ASAP!",!,"....proceeding..",*7
  • Line Location: ERR+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RPTHD+2
Function Call: WRITE
  • Prompt: ENDVTYP," Equipment Type History",?68,ENDATE
  • Line Location: RPTHD+4
Function Call: WRITE
  • Prompt: !!,"The following equipment was not used when computing statistics"
  • Line Location: EXCPHD+1
Function Call: WRITE
  • Prompt: !!,"Entry #",?12,"Reason"
  • Line Location: EXCPHD+2
Function Call: WRITE
  • Prompt: !,"----------"
  • Line Location: EXCPHD+3
Function Call: WRITE
  • Prompt: ?12,"----------------------------------------------------------------"
  • Line Location: EXCPHD+4
Routine Call
  • DIC
  • Line Location:
    • HD+1
Routine Call
  • DIR
  • Line Location:
    • HD+12
    • EXP+7
    • RPTHD+1
Routine Call
  • %ZIS
  • Line Location:
    • HD+17

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6911 - [#6911] Classic Fileman Calls
^ENG(6914 - [#6914] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" T
^ENG(6911 - [#6911] HD+1
^ENG(6914 - [#6914] HD+2, HD12HD12+2, HD2HD2+1
^TMP($J HD1!, HD12+6*, HD12+7*, HD12+13*, EXPEXP+3, EXP+4, EXP+6, DONE+2!

Label References

Name Line Occurrences
ERR HD12
EXCPHD EXP+2, EXP+5
EXIT HD+1, HD+12, HD+13, HD+14
EXP HDP+5
HD HD+2
HD12 HD12+3, HD12+14, HD2
HD2 HD2+2
HDP HD12
RPTHD HDP+3, EXP+1, EXP+5
T HD+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DONE!
%DT DONE!, T*
B HD2+1*, HD2+2, DONE!
C HD2+1*, DONE!
D HD2+1*, DONE!
D1 DONE!
DIC HD+1*, EXIT!
DIC(0 HD+1*
DIR HD+12!, EXP+7!, RPTHD+1!
DIR("?" HD+5*, HD+6*, HD+7*, HD+8*, HD+9*, HD+10*, HD+11*
DIR("A" HD+3*
DIR("B" HD+4*
DIR(0 HD+3*, EXP+7*, RPTHD+1*
DIROUT EXIT!
DIRUT HD+12, EXIT!
DTOUT EXIT!
DUOUT EXIT!
E DONE+1!
E( HD1*
E(1 HD2+2*
E(2 HD2+2*
E(3 HD2+2*
E(4 HD2+2*
E(5 HD2+2*
EN DONE+1!
EN( HD1*, HD2+1*
EN("A" HD1*, HDP+14, HDP+15, HDP+16, HDP+17
EN("P" HD1*, HDP+14, HDP+15, HDP+16, HDP+17
EN("R" HD1*, HDP+14, HDP+15, HDP+16, HDP+17
EN("V" HD1*, HDP+14, HDP+15, HDP+16, HDP+17
EN(1 HD2+2*, HDP+9, HDP+10, HDP+11, HDP+12
EN(2 HD2+2*, HDP+9, HDP+10, HDP+11, HDP+12
EN(3 HD2+2*, HDP+9, HDP+10, HDP+11, HDP+12
EN(4 HD2+2*, HDP+9, HDP+10, HDP+11, HDP+12
EN(5 HD2+2*, HDP+9, HDP+10, HDP+11, HDP+12
ENAGE HD1*, HDP+6*, HDP+10, HDP+11, HDP+15, HDP+16, DONE+1!
ENAJ HDP+10*, HDP+11, HDP+15, HDP+16, DONE+1!
ENAK DONE+1!
END HD1*, EXP+1, EXP+3, EXP+4, EXP+5, EXP+7, DONE+1!, RPTHD+1*
ENDA HD+1*, HD+2, HD12, EXIT!
ENDATE EXIT!, T*, RPTHD+4
ENDAYS HD1*, HD12+17*, HDP+6, DONE+1!
ENDVTYP HD+1*, HD+2, HDP+4, EXIT!, RPTHD+4
ENH HD1*, HD12+18*, HD2*, HD2+1, DONE+1!
ENINCL HD+12*, HD12+3, EXIT!
ENL HD12+5*, HD12+6*, HD12+7*, HD12+13*, HD12+14, EXP+4*, EXP+6, DONE+1!
ENNDATE HD12+9, EXIT!, T*
ENPG HDP+1*, DONE+1!, RPTHD+1, RPTHD+2, RPTHD+3*
ENR HD1*, HD12*, HD12+2, HD12+6, HD12+7, HD12+13, HD2HD2+1, EXP+3*, EXP+4
EXP+6, DONE+1!, ERR
ENY2 HD12+2*, HD12+6, HD12+11, DONE+1!
ENY3 HD12+2*, HD12+3, HD12+7, HD12+9, DONE+1!
I HD1*, HDP+8*, HDP+13*, DONE+2!
IO HDP+2, HDP+3
>> IO("Q" HD+14
>> IO(0 HDP+2
IOF HD+1, RPTHD+2
IOSL EXP+1, EXP+5
IOST EXP+7, RPTHD+1, RPTHD+2
J HD1*, HD12+16*, HDP+4, HDP+5, HDP+6, HDP+9, HDP+10, HDP+11, HDP+14, HDP+16
DONE+2!
K HD1*, HD2*, HDP+14, HDP+15, HDP+16, HDP+17, DONE+2!
O DONE+2!
>> POP HD+13
R DONE+2!
U HD+1, HD12+3, HD12+6, HD12+7, HD12+9, HD12+11, HD2+2
X HD12+13, HD12+17, T*!
X1 HD12+9*, DONE+2!
X2 HD12+11*, DONE+2!
Y HD+1, HD+12, DONE+2!, T!, RPTHD+1
>> ZTDESC HD+15*
>> ZTQUEUED HD1+1, HD12+1, EXIT+1
>> ZTREQ EXIT+1*
>> ZTRTN HD+15*
>> ZTSAVE("EN*" HD+16*
ZTSK HD+17!
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 |  Local Variables  | All