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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 6 DD^%DT  NOW^%DTC  ^DIC  $$GET1^DID  $$GET1^DIQ  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
Engineering 1 GETEQ^ENUTL  

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 ENEQ-SYSTEM  ENFACTU  

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)=""

External References

Name Field # of Occurrence
DD^%DT QEN+2
NOW^%DTC QEN+2
^%ZIS ASKDEV+1
HOME^%ZIS ASKDEV+5
^%ZISC WRAPUP+5
^%ZTLOAD ASKDEV+5
$$S^%ZTLOAD BLDHI+10, HD+1
^DIC ASKFLD+5, ASKFLD+22
$$GET1^DID ASKFLD+9, ASKFLD+10, ASKFLD+25, ASKFLD+26
$$GET1^DIQ ASKSYS+26, ASKSYS+27, QEN+3, PRTHI+13, PRTHI+14
^DIR ASKSYS+13, ASKSYS+31, ASKFLD+16, ASKFLD+32, WRAPUP+4, HD+2
GETEQ^ENUTL ASKSYS+18

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
Routine Call
  • DIC
  • Line Location:
    • ASKFLD+5
    • ASKFLD+22
Routine Call
  • DIR
  • Line Location:
    • ASKSYS+13
    • ASKSYS+31
    • ASKFLD+16
    • ASKFLD+32
    • WRAPUP+4
    • HD+2
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV+1
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6914 - [#6914] GET1^DID,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENG(6914 - [#6914] ASKSYS+21, ASKSYS+23, ASKSYS+34, BLDHI+8, BLDHI+11, BLDHI+12, GETC+14, GETC+24
^TMP($J BLDHI+1!, EXIT+2!

Label References

Name Line Occurrences
ASKFLD ASKFLD+6
EXIT ASKSYS+13, ASKSYS+16, ASKFLD+5, ASKFLD+11, ASKFLD+22, ASKFLD+23, ASKDEV+1, ASKDEV+2
GETC BLDHI+4, BLDHI+13, GETC+24
HD QEN+6, PRTHI+12
HDSYS PRTHI+12
WRAPUP BLDHI+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % QEN+2
>> %ZIS ASKDEV+1*
DIC ASKFLD+3!*, ASKFLD+5!, ASKFLD+20!*, ASKFLD+22!, EXIT+3!
DIC("B" ASKFLD+3*
DIC("S" ASKFLD+4*, ASKFLD+21*
DIC(0 ASKFLD+3*, ASKFLD+20*
DIR ASKSYS+13!, ASKSYS+31!, ASKFLD+16!, ASKFLD+32!, WRAPUP+4!, EXIT+3!, HD+2!
DIR("?" ASKSYS+3*, ASKSYS+4*, ASKSYS+5*, ASKSYS+6*, ASKSYS+7*, ASKSYS+8*, ASKSYS+9*, ASKSYS+10*, ASKSYS+11*, ASKSYS+12*
ASKSYS+30*
DIR("A" ASKSYS+1*, ASKSYS+29*, ASKFLD+15*, ASKFLD+31*
DIR("B" ASKSYS+2*, ASKSYS+28*, ASKFLD+15*, ASKFLD+31*
DIR(0 ASKSYS+1*, ASKSYS+28*, ASKFLD+14*, ASKFLD+30*, WRAPUP+4*, HD+2*
DIROUT EXIT+3!
DIRUT ASKSYS+13, ASKSYS+31, ASKFLD+11, ASKFLD+16, ASKFLD+23, ASKFLD+27, ASKFLD+32, EXIT+3!
DT BLDHI+15
DTOUT ASKSYS+18, ASKFLD+5, ASKFLD+22, EXIT+3!
DUOUT ASKSYS+18, ASKFLD+5, ASKFLD+22, EXIT+3!
EN EXIT+4!
EN("ALL" ASKSYS+14*, ASKSYS+16, QEN+3, BLDHI+4, BLDHI+5, HD+7
ENBL QEN+5!*, PRTHI+16, EXIT+5!
ENC BLDHI+7*, BLDHI+9*, BLDHI+10, PRTHI+10*, PRTHI+17, EXIT+4!, GETC+10~, GETC+12*, GETC+20*, GETC+26
ENCOL PRTHI+11*, PRTHI+15, EXIT+4!
END QEN+2*, BLDHI+5, BLDHI+8, BLDHI+10*, PRTHI+9, PRTHI+12, WRAPUP+1, EXIT+5!, HD+1*, HD+2*
ENDA ASKSYS+22*, ASKSYS+23*, ASKSYS+25, ASKSYS+27, ASKSYS+32, BLDHI+7*, BLDHI+8*, BLDHI+11, BLDHI+12, BLDHI+13
PRTHI+10*, PRTHI+13, PRTHI+14, PRTHI+15, EXIT+4!
ENDAC GETC+10~, GETC+14*, GETC+16, GETC+18, GETC+20, GETC+22, GETC+24
ENDAP ASKSYS+16, ASKSYS+17*, ASKSYS+18*, ASKSYS+19*, ASKSYS+21, ASKSYS+22, ASKSYS+25, ASKSYS+26, ASKSYS+31*, ASKSYS+32*
ASKSYS+34, ASKSYS+35, ASKSYS+36*, QEN+3, BLDHI+4, EXIT+4!, HD+8, GETC~, GETC+14, GETC+16
, GETC+18, GETC+20, GETC+22, GETC+24, GETC+26
ENDAP("CAT" QEN+3*, HD+8
ENDL QEN+4!*, EXIT+5!, HD+11
ENDT QEN+2*, EXIT+5!, HD+5
ENFLD ASKFLD+1!, EXIT+4!
ENFLD( ASKFLD+1*
ENFLD(1 ASKFLD+8*, ASKFLD+9*, ASKFLD+10*, ASKFLD+11, ASKFLD+12, ASKFLD+14, ASKFLD+17*, PRTHI+2, PRTHI+13, PRTHI+16
HD+9
ENFLD(2 ASKFLD+24*, ASKFLD+25*, ASKFLD+26*, ASKFLD+27, ASKFLD+28, ASKFLD+30, ASKFLD+33*, PRTHI+3, PRTHI+14, PRTHI+16
HD+10
ENIND PRTHI+4*, PRTHI+5*, PRTHI+6*, PRTHI+11, PRTHI+15, EXIT+4!, HDSYS+1
ENLVL PRTHI+10*, PRTHI+11, EXIT+4!, HDSYS+1
ENMD BLDHI+3*, PRTHI+4, EXIT+4!, GETC+22*
ENNODE PRTHI+8*, PRTHI+9*, PRTHI+10, EXIT+4!, HDSYS+1
ENPG QEN+2*, EXIT+5!, HD+2, HD+3, HD+4*, HD+5
ENPL GETC~, GETC+16, GETC+18, GETC+20, GETC+22, GETC+24, GETC+26
ENRT BLDHI+2*, BLDHI+4, BLDHI+13, BLDHI+15, PRTHI+8, EXIT+4!, GETC~, GETC+20, GETC+24, GETC+26
ENT BLDHI+4*, BLDHI+7*, BLDHI+13*, BLDHI+15, EXIT+4!
ENV EXIT+4!
ENV(1 PRTHI+13*, PRTHI+15, PRTHI+16
ENV(2 PRTHI+14*, PRTHI+16
>> I ASKSYS+22*, ASKSYS+23*, ASKSYS+24, ASKFLD+1*, HDSYS+1*
IO QEN+1, BLDHI+10
>> IO("Q" ASKDEV+2
>> IO(0 BLDHI+10
IOF HD+3
IOM QEN+4, QEN+5, PRTHI+4
IOSL PRTHI+12
IOST WRAPUP+4, HD+2, HD+3
>> POP ASKDEV+1
U ASKSYS+21, ASKSYS+23, BLDHI+12, BLDHI+15
X ASKSYS+23*, EXIT+3!
Y ASKSYS+14, ASKSYS+18, ASKSYS+19, ASKSYS+32, ASKFLD+6, ASKFLD+8, ASKFLD+17, ASKFLD+23, ASKFLD+24, ASKFLD+33
QEN+2*, PRTHI+2*, PRTHI+3*, PRTHI+4, EXIT+3!, HD+2, GETC+10~, GETC+22*
>> ZTDESC ASKDEV+3*
>> ZTQUEUED BLDHI+10, EXIT+1, HD+1
>> ZTREQ EXIT+1*
>> ZTRTN ASKDEV+3*
>> ZTSAVE("EN(" ASKDEV+4*
>> ZTSAVE("ENDAP" ASKDEV+4*
>> ZTSAVE("ENFLD(" ASKDEV+4*
ZTSK ASKDEV+5!
>> ZTSTOP BLDHI+10*, HD+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All