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

Package: Engineering

Routine: ENEQRP2


Information

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

Source Information

Source file <ENEQRP2.m>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6911 - [#6911] Classic Fileman Calls
^ENG(6914 - [#6914] EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call