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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ENEQ3

Package: Engineering

Routine: ENEQ3


Information

ENEQ3 ;WIRMFO/DH,SAB-Equipment Entry Functions ;3.31.98

Source Information

Source file <ENEQ3.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 5 ($$FIND1,LIST)^DIC  ^DIE  (,IX1)^DIK  $$GET1^DIQ  ^DIR  
Engineering 4 ENR^ENEQ1  ^ENFAACQ  $$CHKFA^ENFAUTL  IIWO^ENWONEW3  
MailMan 1 ^XMB  

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 ENEQ1  

Entry Points

Name Comments DBIA/ICR reference
EQMAS ; Multiple Equipment Subsequent (Similar) Records
; in
; ENDAOLD - ien of record to be copied from
; ENMA( - array containing info on how FA Document and
; incoming inspection w.o. should be handled
; ENBULL( - (optional) array of mail group info
; out
; ENNXL - ien of new record, 0 if unsuccessful
BULL ;X-mit new equipment bulletin if mail group established
; Input
; DA - ien of equipment entry
; optional ENBULL( - array indicating mail group availabliity
; undefined nodes not yet evaluated
; ENBULL = true(1) if 'EN NEW EQUIPMENT' established
; ENBULL(station number)=true(1) if
; 'EN NEW EQUIPMENT station number' established
  • ICR #6558
    • Status: Pending
    • Usage: Private
    CHKMGRP(ENMG) ; Check Mail Group Extrinsic Variable
    ; true if mail group exists and has at least one member
    ; Input Variable
    ; ENMG - name of mail group to check
    LAST ;Last service episode (including PMI)
    ; called by ENG DJ SCREENs
    ; in: DA - ien of equipment entry
    ; out: displays date and work action of last service episode (if any)

    External References

    Name Field # of Occurrence
    $$FIND1^DIC CHKMGRP+7
    LIST^DIC CHKMGRP+10
    ^DIE EQMAS+45
    ^DIK EQMAS+48
    IX1^DIK EQMAS+37
    $$GET1^DIQ BULL+11, BULL+13
    ^DIR EQMAS+13, EQMAS+16, EQMAS+20
    ENR^ENEQ1 EQMAS+15
    ^ENFAACQ EQMAS+51
    $$CHKFA^ENFAUTL BULL+34
    IIWO^ENWONEW3 EQMAS+50
    ^XMB BULL+38

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: $C(7),!,"Another user is editing Entry# ",ENDAOLD,". Can't proceed."
    • Line Location: EQMAS+12
    Function Call: WRITE
    • Prompt: $C(7),!,ENERR
    • Line Location: EQMAS+16
    Function Call: WRITE
    • Prompt: $C(7),!,"Another user is editing Entry# ",ENNXL,". Can't proceed."
    • Line Location: EQMAS+19
    Function Call: WRITE
    • Prompt: !!,"Equipment ID: ",ENNXL
    • Line Location: EQMAS+41
    Function Call: WRITE
    • Prompt: $C(7),!,"Time Out or '^' entered and Serial Number was left blank."
    • Line Location: EQMAS+46
    Function Call: WRITE
    • Prompt: !,"Deleting last entry (",DA,")..."
    • Line Location: EQMAS+47
    Function Call: WRITE
    • Prompt: !!,ENX
    • Line Location: LAST+12
    Routine Call
    • DIC
    • Line Location:
      • CHKMGRP+7
    Routine Call
    • DIC
    • Line Location:
      • CHKMGRP+10
    Routine Call
    • DIE
    • Line Location:
      • EQMAS+45
    Routine Call
    • DIR
    • Line Location:
      • EQMAS+13
      • EQMAS+16
      • EQMAS+20

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^XMB(3.8 - [#3.8] FIND1^DIC
    3.81 LIST^DIC
    ^DIC(6910 - [#6910] GET1^DIQ
    ^ENG(6914 - [#6914] Classic Fileman Calls,  GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DIC(49 - [#49] BULL+29
    ^ENG(6911 - [#6911] BULL+28
    ^ENG(6914 - [#6914] EQMAS+11, EQMAS+15, EQMAS+18, EQMAS+23, EQMAS+27, EQMAS+35*, EQMAS+39, EQMAS+43, EQMAS+44, EQMAS+45
    EQMAS+48, EQMAS+53, BULL+8, BULL+26, BULL+28, BULL+29, BULL+33, LAST+6, LAST+7
    ^ENG(6920.1 - [#6920.1] LAST+10, LAST+11
    ^VA(200 - [#200] BULL+26

    Label References

    Name Line Occurrences
    $$CHKMGRP BULL+15, BULL+21
    BULL EQMAS+52

    Naked Globals

    Name Field # of Occurrence
    ^( LAST+7, LAST+10
    ^(0 LAST+11
    ^(1 BULL+28
    ^(3 BULL+29
    ^(8 EQMAS+44, BULL+33

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> DA EQMAS+37*, EQMAS+42*, EQMAS+45, EQMAS+47, EQMAS+48, EQMAS+51*, EQMAS+52*, BULL+8, BULL+11, BULL+26
    BULL+28, BULL+29, BULL+33, BULL+34, LAST+5, LAST+6, LAST+7
    >> DIE EQMAS+42*
    DIK EQMAS+37*!, EQMAS+48*!
    DIR EQMAS+13!, EQMAS+16!, EQMAS+20!
    DIR(0 EQMAS+13*, EQMAS+16*, EQMAS+20*
    >> DR EQMAS+42*, EQMAS+43*, EQMAS+44*
    >> DTOUT EQMAS+45
    DUZ BULL+26
    EN EQMAS+8~, EQMAS+23*, EQMAS+35!
    EN(0 EQMAS+26*, EQMAS+27*
    EN(1 EQMAS+29*
    EN(2 EQMAS+30*
    EN(3 EQMAS+31*
    EN(6 EQMAS+32!
    EN(9 EQMAS+33*
    ENA LAST+4~, LAST+7*, LAST+8, LAST+9
    ENB LAST+4~, LAST+9*, LAST+10, LAST+11*
    ENB(0 LAST+10*, LAST+11
    >> ENBULL BULL+21*, BULL+22
    >> ENBULL( BULL+15*, BULL+17
    >> ENDAOLD EQMAS+11, EQMAS+12, EQMAS+15, EQMAS+18, EQMAS+23, EQMAS+39, EQMAS+43
    >> ENEQ("DA" EQMAS+51*!
    ENERR EQMAS+16!
    ENI EQMAS+30*, EQMAS+31*, CHKMGRP+4~, CHKMGRP+7*, CHKMGRP+9, CHKMGRP+10, LAST+4~, LAST+7*
    >> ENMA("FAP" EQMAS+51
    >> ENMA("IIWO" EQMAS+50
    ENMG CHKMGRP~, CHKMGRP+7
    >> ENNXL EQMAS+9*, EQMAS+15, EQMAS+18, EQMAS+19, EQMAS+26, EQMAS+27, EQMAS+35, EQMAS+37, EQMAS+41, EQMAS+42
    EQMAS+44, EQMAS+49*, EQMAS+50, EQMAS+52, EQMAS+53
    ENOK CHKMGRP+4~, CHKMGRP+5*, CHKMGRP+11*, CHKMGRP+12
    ENQ CHKMGRP+4~
    ENQ("DILIST" CHKMGRP+11
    ENSN BULL+9~, BULL+11*, BULL+13*, BULL+15, BULL+17, BULL+30
    ENX LAST+4~, LAST+8*, LAST+9*, LAST+12
    U EQMAS+26, EQMAS+27, EQMAS+29, EQMAS+30, EQMAS+31, EQMAS+33, EQMAS+43, EQMAS+44, EQMAS+45, BULL+26
    BULL+28, BULL+29, BULL+33, BULL+34, BULL+35, BULL+36, CHKMGRP+11, LAST+7, LAST+9, LAST+11
    >> X BULL+27*, BULL+28*, BULL+29*, BULL+31*, BULL+32*, BULL+33*, BULL+34*, BULL+35, BULL+36
    XMB BULL+9~, BULL+25*
    XMB( BULL+27*, BULL+31*
    XMB(1 BULL+26*
    XMB(2 BULL+26*
    XMB(3 BULL+26*
    XMB(4 BULL+28*
    XMB(5 BULL+29*
    XMB(6 BULL+30*
    XMB(7 BULL+35*, BULL+36*
    XMDUZ BULL+9~, BULL+37*
    XMY BULL+9~, BULL+19, BULL+24
    XMY("G.EN NEW EQUIPMENT " , BULL+17*,  EQUIPMENT" , BULL+22*
    >> Y EQMAS+45
    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 |  Naked Globals |  Local Variables  | All