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

Package: Engineering

Routine: ENEQ2


Information

ENEQ2 ;WIRMFO/DH,SAB-Edit or Display Equipment Records ;4.15.97

Source Information

Source file <ENEQ2.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Engineering 4 XNPMSE^ENEQPMP  EN^ENJ  EN^ENPLS2  (GETEQ,ZIS)^ENUTL  
VA FileMan 4 $$GET1^DIQ  ^DIR  ^DIWP  ^DIWW  

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 ENINV EDIT  ENINVINV  

Entry Points

Name Comments DBIA/ICR reference
EQED ;Edit Record Entry Point
EQDS ;Display Record Entry Point
SELEQ ; select (and process) equipment for edit or display
; input
; ENEQ("MODE") - switch: 'E' for edit or 'D" for display
; also when ENEQ("MODE")="E"
; ENEDNX - flag, true if user holds key ENEDNX
; ENEDPM - flag, true if user holds key ENEDPM
EQP ; process one equipment item (display or edit)
; input
; ENDA - ien of equipment item
; ENEQ("MODE") - switch: 'E' for edit or 'D' for Display
; ENEQ("LVL") - recursion level
; IOINHI - bold escape code
; IOINLOW - unbold escape code
; END - flag, true when entire process should stop
; also when ENEQ("MODE")="E"
; ENEDPM - flag; true if user holds ENEDPM key
; ENEDNX - flag; true if user holds ENEDNX key
; output
; END - flag, true when entire process should stop
EQPX ; clean up
WP(ENDA,ENFIELD,ENNODE) ; display word-processing field
; input
; ENDA - ien of equipment
; ENFIELD - name of field being displayed
; ENNODE - node where field is located in file 6914
; output
; END - (optional) true if user timed-out
; END1 - (optional) true if user entered '^' or timed-out
LISTC ; Show/Select-From Component List
; input
; ENEQ("LVL") - recursion level
; ^TMP("ENC",$J,ENEQ("LVL"),0)=parent ien^number of components
; ^TMP("ENC",$J,ENEQ("LVL"),component ien)=""
; END - flag; true if entire process should stop
; output
; END - flag; true if entire process should stop
LISTC1 ; call list handler
LISTCX ; clean up

External References

Name Field # of Occurrence
$$GET1^DIQ LISTC+14, LISTC+15, LISTC+16
^DIR EQP+18, EQP+27, EQP+38, EQP+47, WP+13, LISTC1+18
^DIWP WP+16
^DIWW WP+17
XNPMSE^ENEQPMP EQP+28
EN^ENJ EQP+23
EN^ENPLS2 LISTC1+1
GETEQ^ENUTL SELEQ+10
ZIS^ENUTL SELEQ+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"Record being edited by someone else. Try later."
  • Line Location: EQP+17
Function Call: WRITE
  • Prompt: IOINLOW
  • Line Location: EQP+23
Function Call: WRITE
  • Prompt: @IOF," ***ENTRY NUMBER:",ENDA,"***"
  • Line Location: EQP+32
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EQPX+1
Function Call: WRITE
  • Prompt: !!,IOINHI,ENFIELD_":",IOINLOW
  • Line Location: WP+10
Function Call: WRITE
  • Prompt: @IOF," ***ENTRY NUMBER:",ENDA,"***"
  • Line Location: WP+14
Function Call: WRITE
  • Prompt: !!,IOINHI,ENFIELD_" (continued):",IOINLOW
  • Line Location: WP+15
Routine Call
  • DIR
  • Line Location:
    • EQP+18
    • EQP+27
    • EQP+38
    • EQP+47
    • WP+13
    • LISTC1+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6914 - [#6914] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENG(6914 - [#6914] EQP+16, EQP+21, EQP+31, EQP+34, EQP+36, EQP+41, EQP+43, EQP+53, WP+11, WP+16
^TMP("ENC" EQP+51!, EQP+55*, EQP+56*, EQP+60!, LISTC+12, LISTC+18, LISTC1+3!, LISTC1+7*, LISTC1+9*, LISTC1+12
, LISTC1+14, LISTC1+22, LISTC1+24, LISTCX+1!
^TMP($J LISTC+10!, LISTC+17*, LISTC+19*, LISTC+22*, LISTC1+6, LISTCX+1!
^UTILITY($J WP+9!, WP+18!
^XUSEC("ENEDNX" EQED+2
^XUSEC("ENEDPM" EQED+3

Label References

Name Line Occurrences
EQP SELEQ+10, LISTC1+13
EQPX EQP+16
LISTC EQP+58, LISTC1+24
SELEQ EQED+4, EQDS+2
WP EQP+34, EQP+36

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA EQP+22*, EQP+28*, EQPX+2!
DIC SELEQ+13!
DIE EQP+28*, EQPX+2!
DIR EQP+18!, EQP+27!, EQP+38!, EQP+47!, WP+13!, LISTC1+18!
DIR("A" EQP+26*, EQP+46*, LISTC1+17*
DIR("B" EQP+26*, EQP+45*
DIR(0 EQP+18*, EQP+26*, EQP+38*, EQP+45*, WP+13*, LISTC1+16*
DIROUT EQPX+2!, LISTC1+19
DIRUT EQPX+2!
DIWF WP+9*, WP+18!
DIWL WP+9*, WP+18!
DIWR WP+9*, WP+18!
DJD0 EQPX+3!
DJDIS EQP+20*, EQPX+3!
DJDN EQP+22*, EQPX+3!
DJLG EQPX+3!
DJSC EQP+20*, EQP+21*, EQPX+3!
DJSW2 EQPX+3!
DR EQPX+2!
DTOUT EQP+18, EQP+27, EQP+38, EQP+47, EQPX+2!, WP+13, LISTC1+19
DUOUT EQPX+2!, LISTC1+19
DUZ EQED+2, EQED+3
ENACL LISTCX+2!
ENACL( LISTC1+4, LISTC1+5
ENC LISTC+11*, LISTC+13*, LISTC+17, LISTC+19, LISTC1+4*, LISTC1+8*, LISTC1+9, LISTCX+2!
ENCDA EQP+52*, EQP+53*, EQP+55, EQPX+4!, LISTC+11*, LISTC+12*, LISTC+14, LISTC+15, LISTC+16, LISTCX+2!
END SELEQ+8*, SELEQ+10, SELEQ+13!, EQP+14, EQP+18*, EQP+27*, EQP+38*, EQP+43, EQP+47*, WP+13*
, LISTC1+13, LISTC1+19*, LISTC1+24
END( LISTC1+11*, LISTC1+12, LISTC1+19*, LISTC1+20!
END1 EQP+36, EQP+38, EQP+39!, WP+11, WP+12, WP+13*, WP+17
ENDA SELEQ+10*, SELEQ+13!, EQP+16, EQP+21, EQP+22, EQP+28, EQP+31, EQP+32, EQP+34, EQP+36
, EQP+41, EQP+43, EQP+53, EQP+56, WP~, WP+11, WP+14, WP+16, LISTC1+11*, LISTC1+12*
, LISTC1+14, LISTC1+22*
ENEDNX EQED+2*, SELEQ+12!, EQP+21
ENEDPM EQED+3*, SELEQ+12!, EQP+25
ENEQ SELEQ+13!
ENEQ("LVL" SELEQ+7*, EQP+49*, EQP+51, EQP+55, EQP+56, EQP+60, EQP+62*, LISTC+12, LISTC+18, LISTC1+3
, LISTC1+7, LISTC1+9, LISTC1+11, LISTC1+12, LISTC1+14, LISTC1+19, LISTC1+20, LISTC1+22, LISTC1+24, LISTCX+1
ENEQ("MODE" EQED+1*, EQDS+1*, SELEQ+12, EQP+20, EQP+21, EQP+25, EQP+31
ENFIELD WP~, WP+10, WP+15
ENI WP+8~, WP+11*, WP+16, LISTC1+5*, LISTC1+6, LISTCX+2!
ENJ LISTC1+4*, LISTC1+5, LISTCX+2!
ENK LISTC1+5*, LISTCX+2!
ENL EQP+52*, EQP+54*, EQP+56, EQPX+4!
ENNODE WP~, WP+11, WP+16
ENX LISTC+14*, LISTC+15*, LISTC+16*, LISTC+17, LISTC+18*, LISTC+19, LISTC+20*, LISTC+21*, LISTC+22, LISTCX+2!
ENXP EQP+28*, EQP+29!
ENY LISTC1+6*, LISTC1+7, LISTCX+2!
IOF EQP+32, EQPX+1, WP+14
IOINHI SELEQ+6~, WP+10, WP+15
IOINLOW SELEQ+6~, EQP+23, WP+10, WP+15
U EQP+21, EQP+56, LISTC+14, LISTC+15, LISTC+16, LISTC+19, LISTC1+7, LISTC1+22
>> X WP+16*
Y SELEQ+10, SELEQ+13!, EQP+27, EQP+47, WP+13
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