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

Package: Engineering

Routine: ENY2USRD


Information

ENY2USRD ;(WASH CIOFO)/DH-Y2K Utility System Reports ;8.27.98

Source Information

Source file <ENY2USRD.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: 1

Package Total Caller Graph
Engineering 1 ENY2USRD  

Entry Points

Name Comments DBIA/ICR reference
EN
DET ; detailed report of utility system status
; first collect all top level components in ^TMP($J,STATION,IEN)
; then add children IENs as additional subscripts
DETPRNT ; print detailed utility system hierarchy
HDRDET ; header for detailed utility systems report
HOLD
GETCHLD(PARNT,PRECRSR)
EXIT

External References

Name Field # of Occurrence
NOW^%DTC DETPRNT+3
^%ZIS EN+15
HOME^%ZIS EN+19, EXIT+3
^%ZISC EXIT+3
^%ZTLOAD EN+19
^DIR EN+6, EN+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,?20,"UTILITY EQUIPMENT DETAILED 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+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: "."
  • Line Location: DET+8
Function Call: WRITE
  • Prompt: !!!,DA,?12,IDENT
  • Line Location: DETPRNT+16
Function Call: WRITE
  • Prompt: " ("_@NODE_" comp.)"
  • Line Location: DETPRNT+17
Function Call: WRITE
  • Prompt: "Y2K Compliant.",!,UL
  • Line Location: DETPRNT+20
Function Call: WRITE
  • Prompt: "Y2K compliant.",!,UL
  • Line Location: DETPRNT+21
Function Call: WRITE
  • Prompt: "Y2K compliant.",!,UL
  • Line Location: DETPRNT+22
Function Call: WRITE
  • Prompt: !,?((LEVEL-3)*12),DA(LEVEL),?((LEVEL-2)*12),IDENT
  • Line Location: DETPRNT+28
Function Call: WRITE
  • Prompt: " ("_@NODE_" comp.)"
  • Line Location: DETPRNT+29
Function Call: WRITE
  • Prompt: " Y2K: ",Y2K(DA(LEVEL))
  • Line Location: DETPRNT+30
Function Call: WRITE
  • Prompt: "Y2K compliant.",!,UL
  • Line Location: DETPRNT+32
Function Call: WRITE
  • Prompt: "Detailed Report of Utility Systems as of "_DATE("PRNT"),?70,"Page: "_PAGE
  • Line Location: HDRDET+3
Function Call: WRITE
  • Prompt: !,$S(ENSTN:"Station: "_STATION,1:"Consolidated ("_STATION("PARNT")_")")
  • Line Location: HDRDET+4
Function Call: WRITE
  • Prompt: !,"System Entry Number",?60,"System Family"
  • Line Location: HDRDET+5
Function Call: WRITE
  • Prompt: !,ULD
  • Line Location: HDRDET+6
Function Call: WRITE
  • Prompt: !!,"Press <RETURN> to continue, '^' to escape..."
  • Line Location: HOLD+1
Function Call: WRITE
  • Prompt: !,"ERROR - ENDLESS LOOP DETECTED - SKIPPING ENTRY"
  • Line Location: GETCHLD+14
Function Call: WRITE
  • Prompt: !," Entry #",CHILD," already is a parent in "_PARNT_","
  • Line Location: GETCHLD+15
Routine Call
  • DIR
  • Line Location:
    • EN+6
    • EN+13
Routine Call
  • %ZIS
  • Line Location:
    • EN+15
Routine Call
  • %ZIS
  • Line Location:
    • EN+19
    • EXIT+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DETPRNT+3
^DIC(6910 - [#6910] EN+1, EN+9, DET+5
^ENG(6911 - [#6911] DETPRNT+13, DETPRNT+25
^ENG(6914 - [#6914] DET+7, DET+9, DET+10, DET+11, DET+12, DET+16, DETPRNT+13, DETPRNT+14, DETPRNT+18, DETPRNT+25
DETPRNT+26, DETPRNT+27, GETCHLD+11, GETCHLD+16, GETCHLD+20
^ENG(6918.1 - [#6918.1] DET+6
^TMP($J DET+3!, DET+13*, DET+15, DETPRNT+6, DETPRNT+7, EXIT+1!

Label References

Name Line Occurrences
EXIT EN+6, EN+15, EN+16, DETPRNT+33
GETCHLD DET+17, GETCHLD+20
HDRDET DETPRNT+6, DETPRNT+11, DETPRNT+31
HOLD DETPRNT+6, DETPRNT+11, DETPRNT+31, DETPRNT+33

Naked Globals

Name Field # of Occurrence
^(11 DETPRNT+18, DETPRNT+27
^(9 DET+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DETPRNT+3
>> %ZIS EN+15*
CHILD GETCHLD+7~, GETCHLD+11*, GETCHLD+13, GETCHLD+15, GETCHLD+16, GETCHLD+18, GETCHLD+20
COMP DETPRNT+12~
COUNT GETCHLD+7~, GETCHLD+9*, GETCHLD+18*, GETCHLD+22
DA DET+4~, DET+7*, DET+8, DET+9, DET+10, DET+11, DET+12, DET+13, DET+15*, DET+16
DET+17, DETPRNT+6*, DETPRNT+7*, DETPRNT+8, DETPRNT+9, DETPRNT+10, DETPRNT+13, DETPRNT+14, DETPRNT+16, DETPRNT+18
DETPRNT+23
DA( DETPRNT+24*, DETPRNT+25, DETPRNT+26, DETPRNT+27, DETPRNT+28, DETPRNT+30
DATE DETPRNT+2~
DATE("PRNT" DETPRNT+3*, HDRDET+3
DIR EN+6!, EN+13!
DIR("?" EN+3*, EN+4*, EN+5*, EN+11*, EN+12*
DIR("A" EN+2*, EN+10*
DIR("B" EN+2*, EN+10*
DIR(0 EN+2*, EN+10*
>> DIRUT EN+6, EN+13
DTIME HOLD+1
ENIDENT EN+7*, EN+9!, DETPRNT+13, DETPRNT+14, DETPRNT+25, DETPRNT+26, EXIT!
ENSTN EN+8*, EN+9, EN+13*, EN+14*, DET+11, HDRDET+4, EXIT!
ESCAPE DETPRNT+2~, DETPRNT+7, DETPRNT+10, DETPRNT+11, DETPRNT+23, DETPRNT+31, DETPRNT+32, HDRDET+1, HOLDHOLD+2*
FMLY DET+4~, DET+12*, DET+13, DET+15*, DETPRNT+6*, DETPRNT+7, DETPRNT+8, DETPRNT+9, DETPRNT+19
IDENT DETPRNT+12~, DETPRNT+13*, DETPRNT+14*, DETPRNT+16, DETPRNT+25*, DETPRNT+26*, DETPRNT+28
IDENT(0 DETPRNT+13*, DETPRNT+25*
IO DETPRNT+1
IO("Q" EN+15!, EN+16
IOF ENHDRDET+2
ION EN+17
IOSL DETPRNT+11, DETPRNT+31
IOST HDRDET+2, HOLD
J DET+4~, DET+6*
LEVEL DETPRNT+12~, DETPRNT+24*, DETPRNT+25, DETPRNT+26, DETPRNT+27, DETPRNT+28, DETPRNT+30
NDX DET+4~
NODE DETPRNT+2~, DETPRNT+8*, DETPRNT+9*, DETPRNT+10, DETPRNT+15, DETPRNT+17, DETPRNT+20*, DETPRNT+21, DETPRNT+22, DETPRNT+23*
DETPRNT+24, DETPRNT+29, DETPRNT+32
PAGE DETPRNT+2~, DETPRNT+3*, DETPRNT+6, HDRDET+2*, HDRDET+3
PARNT GETCHLD~, GETCHLD+11, GETCHLD+13, GETCHLD+15, GETCHLD+18, GETCHLD+20, GETCHLD+22
>> POP EN+15
PRECRSR GETCHLD~, GETCHLD+13, GETCHLD+18, GETCHLD+20, GETCHLD+22
STATION DET+4~, DET+5*, DET+11*, DET+13, DET+15*, DETPRNT+5*, DETPRNT+6*, DETPRNT+7, DETPRNT+8, DETPRNT+9
DETPRNT+32, HDRDET+4
STATION("PARNT" DET+5*, DET+11, HDRDET+4
SYSTEM DETPRNT+12~
TYPE DET+4~
U EN+1, EN+9, DET+5, DET+6, DET+9, DET+10, DET+11, DET+12, DETPRNT+13, DETPRNT+14
DETPRNT+18, DETPRNT+25, DETPRNT+26, DETPRNT+27, GETCHLD+16
UL DETPRNT+2~, DETPRNT+4*, DETPRNT+20, DETPRNT+21, DETPRNT+22, DETPRNT+32
ULD DETPRNT+2~, DETPRNT+4*, HDRDET+6
UTIL DET+4~
UTIL( DET+6*, DET+12
X DET+4~, DET+12*, HOLD+1*, HOLD+2
>> Y EN+7, EN+14, DETPRNT+3*
Y2K DETPRNT+2~, DETPRNT+7*, DETPRNT+18*, DETPRNT+20, DETPRNT+21, DETPRNT+22, DETPRNT+27*, DETPRNT+32
Y2K( DETPRNT+18*, DETPRNT+27*, DETPRNT+30
>> ZTDESC EN+17*
>> ZTIO EN+17*
>> ZTQUEUED DET+8, EXIT+2
>> ZTREQN EXIT+2*
>> ZTRTN EN+16*
>> ZTSAVE("ENIDENT" EN+18*
>> ZTSAVE("ENSTN" EN+18*
ZTSK EN+19!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All