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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 NOW^%DTC  ^DIR  

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

Package Total Caller Graph
Engineering 2 ENY2USRS  ENY2VACO  

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

External References

Name Field # of Occurrence
NOW^%DTC PRNTSUM+4
^%ZIS EN+9
HOME^%ZIS EN+13, EXIT+2
^%ZISC EXIT+2
^%ZTLOAD EN+13
^DIR EN+7

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
Routine Call
  • DIR
  • Line Location:
    • EN+7
Routine Call
  • %ZIS
  • Line Location:
    • EN+9
Routine Call
  • %ZIS
  • Line Location:
    • EN+13
    • EXIT+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRNTSUM+4
^DIC(6910 - [#6910] EN+1, EN+3, SUM1
^ENG(6914 - [#6914] SUM1+3, SUM1+5, SUM1+6, SUM1+9, SUM1+11, SUM1+14, SUM1+15, SUM1+16, SUM1+17, RCRSN+2
, RCRSN+4, RCRSN+6, RCRSN+7, RCRSN+8, RCRSN+11
^ENG(6918.1 - [#6918.1] SUM1+12

Label References

Name Line Occurrences
EXIT EN+9, EN+10, PRNTSUM+42
HDRSUM PRNTSUM+6, PRNTSUM+30
HOLD PRNTSUM+6, PRNTSUM+30
RCRSN SUM1+18, RCRSN+11

Naked Globals

Name Field # of Occurrence
^(9 SUM1+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRNTSUM+4
>> %ZIS EN+9*
CHILD RCRSN+1~, RCRSN+2*, RCRSN+3, RCRSN+4, RCRSN+11
COMP SUM+1~
COMP("SYS" SUM1+13*, SUM1+15*, SUM1+16*, SUM1+20, RCRSN+7*, RCRSN+8*, RCRSN+10*
COUNT SUM+1~
COUNT( SUM1+1*, SUM1+6, SUM1+7*, SUM1+13*, SUM1+14*, SUM1+15*, SUM1+16*, SUM1+19*, SUM1+20*, PRNTSUM+6
PRNTSUM+8*, PRNTSUM+9*, PRNTSUM+10*, PRNTSUM+11, PRNTSUM+13, PRNTSUM+14, PRNTSUM+15, PRNTSUM+21, PRNTSUM+22, PRNTSUM+24
PRNTSUM+25*, PRNTSUM+27*, PRNTSUM+28*, PRNTSUM+29, PRNTSUM+30, PRNTSUM+36, PRNTSUM+38, PRNTSUM+40, RCRSN+5*, RCRSN+6*
, RCRSN+7*, RCRSN+8*
DA SUM+1~, SUM1+3*, SUM1+4, SUM1+5, SUM1+6, SUM1+9, SUM1+11, SUM1+14, SUM1+15, SUM1+16
SUM1+17, SUM1+18, RCRSN+6, RCRSN+7, RCRSN+8
DATE PRNTSUM+3~
DATE("PRNT" PRNTSUM+4*, HDRSUM+3
DIR EN+7!
DIR("?" EN+5*, EN+6*
DIR("A" EN+4*
DIR("B" EN+4*
DIR(0 EN+4*
>> DIRUT EN+7
DTIME HOLD+1
ENSTN EN+2*, EN+3!, EN+7*, EN+8*, SUM1+6, HDRSUM+4, EXIT!
>> ENY2K("VACO" PRNTSUM+1
ESCAPE PRNTSUM+3~, PRNTSUM+6, PRNTSUM+30, HDRSUM+1, HOLDHOLD+2*
FMLY SUM+1~, SUM1+11*, SUM1+12*, SUM1+13, SUM1+14, SUM1+15, SUM1+16, SUM1+19, SUM1+20, RCRSN+5
, RCRSN+6, RCRSN+7, RCRSN+8
IO PRNTSUM+2
IO("Q" EN+9!, EN+10
IOF ENHDRSUM+2
ION EN+11
IOSL PRNTSUM+16, PRNTSUM+23, PRNTSUM+30, PRNTSUM+31
IOST HDRSUM+2, HOLD
J SUM+1~, SUM1+1*, SUM1+2*, SUM1+7*, SUM1+8*, PRNTSUM+8*, PRNTSUM+9, PRNTSUM+10, PRNTSUM+21*, PRNTSUM+26*
PRNTSUM+27, PRNTSUM+28, PRNTSUM+36*, PRNTSUM+37
K SUM+1~, SUM1+1*, SUM1+7*
PAGE PRNTSUM+3~, PRNTSUM+4*, HDRSUM+2*, HDRSUM+3
PARNT RCRSN~, RCRSN+2, RCRSN+3, RCRSN+11
>> POP EN+9
PRCNT PRNTSUM+7~
PRCNT("COMP" PRNTSUM+13*, PRNTSUM+15
PRECRSR RCRSN~, RCRSN+3, RCRSN+11
STATION SUM+1~, SUM1*, SUM1+1, SUM1+2, SUM1+6*, SUM1+7, SUM1+8, SUM1+13, SUM1+14, SUM1+15
SUM1+16, SUM1+19, SUM1+20, PRNTSUM+6*, PRNTSUM+8, PRNTSUM+9, PRNTSUM+10, PRNTSUM+11, PRNTSUM+13, PRNTSUM+14
PRNTSUM+15, PRNTSUM+21, PRNTSUM+22, PRNTSUM+24, PRNTSUM+25, PRNTSUM+27, PRNTSUM+28, PRNTSUM+29, PRNTSUM+30, PRNTSUM+36
PRNTSUM+37, PRNTSUM+38, PRNTSUM+40, HDRSUM+4, RCRSN+5, RCRSN+6, RCRSN+7, RCRSN+8
STATION("PARNT" SUM1*, SUM1+6, HDRSUM+4
TOTAL SUM+1~
TOTAL( SUM1+2*, SUM1+8*, SUM1+15*, SUM1+16*, PRNTSUM+25*, PRNTSUM+28*, PRNTSUM+37, PRNTSUM+38, PRNTSUM+40, RCRSN+7*
, RCRSN+8*
U EN+1, EN+3, SUM1SUM1+5, SUM1+6, SUM1+9, SUM1+11, SUM1+12, SUM1+14, SUM1+15
SUM1+16, RCRSN+4, RCRSN+6, RCRSN+7, RCRSN+8
UL PRNTSUM+3~, PRNTSUM+5*, PRNTSUM+20, PRNTSUM+23, PRNTSUM+35, PRNTSUM+39
ULD PRNTSUM+3~, PRNTSUM+5*, PRNTSUM+16, PRNTSUM+31, PRNTSUM+41, HDRSUM+5
>> X HOLD+1*, HOLD+2
>> Y EN+8, PRNTSUM+4*
>> ZTDESC EN+11*
>> ZTIO EN+11*
>> ZTQUEUED SUM1+4, EXIT+1
>> ZTREQN EXIT+1*
>> ZTRTN EN+10*
>> ZTSAVE("ENSTN" EN+12*
ZTSK EN+13!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All