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

Package: Engineering

Routine: ENY2USRD


Information

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

Source Information

Source file <ENY2USRD.m>

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

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
Info |  Source |  Entry Points |  Interaction Calls