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

Package: Engineering

Routine: ENEQRP6


Information

ENEQRP6 ;WIRMFO/SAB-PARENT SYSTEM/COMPONENT HIERARCHY REPORT ;6/4/97

Source Information

Source file <ENEQRP6.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; main entry point
ASKSYS ; ask system
ASKFLD ; ask fields to print
ASKDEV ; ask device
QEN ; queued entry point
BLDHI ; build hierarchy
PRTHI ; print hierarchy
; compute indent to use for component levels
WRAPUP ;
EXIT ;
HD ; header
HDSYS ; header for continued system
GETC(ENDAP,ENPL,ENRT) ; Get All Components Under a Parent System
; Input
; ENDAP - ien of parent system (e.g. 1024)
; ENPL - ien list of parent systems above ENDAP (e.g. 150,7019,10,)
; ENRT - root of array to store hierarchy in (e.g. X( or ^TMP($J,)
; ENMD - maximum depth reached
; Output
; ENMD - maximum depth reached
; ^TMP($J,parent ien)=# of components
; ^TMP($J,parent ien,component ien)=""

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Equipment Entry #",ENDAP," ",$$GET1^DIQ(6914,ENDAP,6)
  • Line Location: ASKSYS+26
Function Call: WRITE
  • Prompt: !,"is a component of Entry #",ENDA," ",$$GET1^DIQ(6914,ENDA,6)
  • Line Location: ASKSYS+27
Function Call: WRITE
  • Prompt: $C(7),!!,"Equipment Entry #",ENDAP," does not have any components"
  • Line Location: ASKSYS+35
Function Call: WRITE
  • Prompt: !!,"Select the 1st field (required) to print for each equipment item."
  • Line Location: ASKFLD+2
Function Call: WRITE
  • Prompt: $C(7),!!,"Select a field or enter '^' to quit."
  • Line Location: ASKFLD+7
Function Call: WRITE
  • Prompt: !!,"Field ",ENFLD(1,"N")," can be ",ENFLD(1,"L")," characters long."
  • Line Location: ASKFLD+12
Function Call: WRITE
  • Prompt: !,"You may want to just print a portion of this field."
  • Line Location: ASKFLD+13
Function Call: WRITE
  • Prompt: !!,"Select the 2nd field (optional) to print for each equipment item."
  • Line Location: ASKFLD+19
Function Call: WRITE
  • Prompt: !!,"Field ",ENFLD(2,"N")," can be ",ENFLD(2,"L")," characters long."
  • Line Location: ASKFLD+28
Function Call: WRITE
  • Prompt: !,"You may want to just print a portion of this field."
  • Line Location: ASKFLD+29
Function Call: WRITE
  • Prompt: !,?ENCOL,ENDA,?ENCOL+ENIND,ENV(1)
  • Line Location: PRTHI+15
Function Call: WRITE
  • Prompt: " (",ENC," comp.)"
  • Line Location: PRTHI+17
Function Call: WRITE
  • Prompt: !!,"REPORT STOPPED BY USER REQUEST"
  • Line Location: WRAPUP+1
Function Call: WRITE
  • Prompt: !!,"END OF REPORT"
  • Line Location: WRAPUP+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,"PARENT SYSTEM/COMPONENT HIERARCHY",?48,ENDT,?72,"page ",ENPG
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !,"for "
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: "ALL SYSTEMS"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: "SYSTEM with ENTRY #",ENDAP," ",ENDAP("CAT")
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !," print field(s): ",ENFLD(1,"N")
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !,ENDL
  • Line Location: HD+11
Function Call: WRITE
  • Prompt: !,?(ENIND*(I-2)),$QS(ENNODE,I)," (continued)"
  • Line Location: HDSYS+1
Function Call: WRITE
  • Prompt: !,"ERROR - ENDLESS LOOP DETECTED - SKIPPING ENTRY"
  • Line Location: GETC+17
Function Call: WRITE
  • Prompt: !," Entry #",ENDAC," already is a parent in ",ENPL_ENDAP_","
  • Line Location: GETC+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6914 - [#6914] GET1^DID,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call