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
Print Page as PDF
Routine: ENY2USRS

Package: Engineering

Routine: ENY2USRS


Information

ENY2USRS ;(WASH CIOFO)/DH-Y2K Utility System Reports ;8.26.98

Source Information

Source file <ENY2USRS.m>

Entry Points

Name Comments DBIA/ICR reference
EN
SUM ; summarization of utility equipment status
SUM1
PRNTSUM ; print the summary report
HDRSUM ; header for summary utility systems report
RCRSN(PARNT,PRECRSR) ; build hierarchical system tree
HOLD
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,?20,"UTILITY EQUIPMENT SUMMARY REPORT"
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !!,"There is no STATION NUMBER in your Engineering Init Paramaters file.",!,"Can't proceed.",*7
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: "."
  • Line Location: SUM1+4
Function Call: WRITE
  • Prompt: !!,?20,"<There are no Utility Systems on which to report>"
  • Line Location: PRNTSUM+11
Function Call: WRITE
  • Prompt: !!,"There "_$S(COUNT(STATION,"SYS")=1:"is ",1:"are ")_COUNT(STATION,"SYS")_" Utility System"_$S(COUNT(STATION,"SYS")=1:"",1:"s")_" in this data base."
  • Line Location: PRNTSUM+14
Function Call: WRITE
  • Prompt: !,?5,COUNT(STATION,"SYS","FC")_" ("_$J(PRCNT("COMP"),3)_" %) are Y2K compliant."
  • Line Location: PRNTSUM+15
Function Call: WRITE
  • Prompt: !!,?35,"SYSTEM"
  • Line Location: PRNTSUM+17
Function Call: WRITE
  • Prompt: !,?22,"System",?40,"FC System",?60,"NC/CC System"
  • Line Location: PRNTSUM+18
Function Call: WRITE
  • Prompt: !,"Family",?22,"Count",?42,"Count",?63,"Count"
  • Line Location: PRNTSUM+19
Function Call: WRITE
  • Prompt: !,UL
  • Line Location: PRNTSUM+20
Function Call: WRITE
  • Prompt: !,J,?19,$J(COUNT(STATION,"SYS",J,"TOT"),8),?39,$J(COUNT(STATION,"SYS",J,"FC"),8),?60,$J(COUNT(STATION,"SYS",J,"NC"),8)
  • Line Location: PRNTSUM+21
Function Call: WRITE
  • Prompt: !,"No Family",?19,$J(COUNT(STATION,"SYS",0,"TOT"),8),?39,$J(COUNT(STATION,"SYS",0,"FC"),8),?60,$J(COUNT(STATION,"SYS",0,"NC"),8)
  • Line Location: PRNTSUM+22
Function Call: WRITE
  • Prompt: !,"TOTALS",?19,$J(COUNT(STATION,"SYS"),8),?39,$J(COUNT(STATION,"SYS","FC"),8),?60,$J(COUNT(STATION,"SYS","NC"),8)
  • Line Location: PRNTSUM+24
Function Call: WRITE
  • Prompt: !!,?20,"<There is no Utility Equipment on which to report>"
  • Line Location: PRNTSUM+29
Function Call: WRITE
  • Prompt: !!,ULD
  • Line Location: PRNTSUM+31
Function Call: WRITE
  • Prompt: !,?34,"COMPONENTS"
  • Line Location: PRNTSUM+32
Function Call: WRITE
  • Prompt: !,?12,"Component",?24,"FC Component",?39,"NC Component",?54,"CC Component",?69,"Est Comp"
  • Line Location: PRNTSUM+33
Function Call: WRITE
  • Prompt: !,"Family",?14,"Count",?28,"Count",?43,"Count",?58,"Count",?71,"Cost"
  • Line Location: PRNTSUM+34
Function Call: WRITE
  • Prompt: !,UL
  • Line Location: PRNTSUM+35
Function Call: WRITE
  • Prompt: !,J,?12,$J(COUNT(STATION,"COMP",J,"TOT"),8),?27,$J(COUNT(STATION,"COMP",J,"FC"),8),?42,$J(COUNT(STATION,"COMP",J,"NC"),8),?57,$J(COUNT(STATION,"COMP",J,"CC"),8)
  • Line Location: PRNTSUM+36
Function Call: WRITE
  • Prompt: ?67,"$",$J($P(TOTAL(STATION,"ECST",J)+.5,"."),9,0)
  • Line Location: PRNTSUM+37
Function Call: WRITE
  • Prompt: !,"No Family",?12,$J(COUNT(STATION,"COMP",0,"TOT"),8),?27,$J(COUNT(STATION,"COMP",0,"FC"),8),?42,$J(COUNT(STATION,"COMP",0,"NC"),8),?57,$J(COUNT(STATION,"COMP",0,"CC"),8),?67,"$",$J($P(TOTAL(STATION,"ECST",0)+.5,"."),9,0)
  • Line Location: PRNTSUM+38
Function Call: WRITE
  • Prompt: !,UL
  • Line Location: PRNTSUM+39
Function Call: WRITE
  • Prompt: !,"TOTALS",?12,$J(COUNT(STATION,"COMP"),8),?27,$J(COUNT(STATION,"COMP","FC"),8),?42,$J(COUNT(STATION,"COMP","NC"),8),?57,$J(COUNT(STATION,"COMP","CC"),8),?67,"$",$J($P(TOTAL(STATION,"ECST")+.5,"."),9,0)
  • Line Location: PRNTSUM+40
Function Call: WRITE
  • Prompt: !,ULD
  • Line Location: PRNTSUM+41
Function Call: WRITE
  • Prompt: "Summary Report on Utility Equipment as of "_DATE("PRNT"),?70,"Page: "_PAGE
  • Line Location: HDRSUM+3
Function Call: WRITE
  • Prompt: !,$S(ENSTN:"Station: "_STATION,1:"Consolidated ("_STATION("PARNT")_")")
  • Line Location: HDRSUM+4
Function Call: WRITE
  • Prompt: !,ULD
  • Line Location: HDRSUM+5
Function Call: WRITE
  • Prompt: !!,"Press <RETURN> to continue, '^' to escape..."
  • Line Location: HOLD+1
Info |  Source |  Entry Points |  Interaction Calls