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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ENLIB1

Package: Engineering

Routine: ENLIB1


Information

ENLIB1 ;(WASH ISC)/DH-Package Utilities ;8/5/1998

Source Information

Source file <ENLIB1.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Kernel 1 ^%ZIS  

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

Package Total Caller Graph
Engineering 13 ENEQMED  ENEQPMP3  ENEQPMS2  ENEQPMS3  ENFSA2  ENLBL12  ENLBL15  ENLBL6  
ENY2K  ^ENG(6910.2  ^ENG(6920  TECHNICIANS ASSIGNED  ^ENG(6928.3  

Entry Points

Name Comments DBIA/ICR reference
MNTH
RVMNTH
RDMNTH
WOCMP
TECH ;Set ASSIGNED TECH from PRIMARY TECH
; called by File 6920 Field 16 "AG" cross-reference set logic
; Input DA = work order ien
; X = entered primary technican (pointer to file 6929)
; This code puts a newly entered primary techinician into the
; TECHNICIANS ASSIGNED multiple if not already there.
TECH1
DNTECH ;
INTECH ;Set PRIMARY TECH from ASSIGNED TECH
; called by File 6920.02 Field .01 "AE" cross-reference set logic
; Input DA(1) = work order ien (file 6920)
; X = entered technican (pointer to file 6929)
; If PRIMARY TECH ASSIGNED (#16) field in the Work Order (#6920) file
; is blank then this code will set it equal to the technician just
; entered in the 6920.02 subfile (TECHNICIANS ASSIGNED multiple).
OUTECH ;Update PRIMARY TECH if same as deleted ASSIGNED TECH
; called by File 6920.02 Field .01 "AE" cross-reference kill logic
; Input DA(1) = work order ien (file 6920)
; X = deleted technician (pointer to file 6929)
; If technician just deleted from the 6920.02 subfile (TECHNICIANS
; ASSIGNED) is the primary tech of the work order then this code will
; update the PRIMARY TECH ASSIGNED (#16) field of the Work Order (#6920)
CMR
CMR1
CMROUT
IX ;Look-up X-ref ;Expects DIC,ENDX,X
IX1
IX2
IXOUT
IXNUM
SWOPT ;Validate software option selection
BLDG ;Called for Building File
CONT

External References

Name Field # of Occurrence
^%ZIS CMR

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !
  • Prompt: "Select MONTH: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: RDMNTH+0
Function Call: WRITE
  • Prompt: " "_ENMN
  • Line Location: RDMNTH+3
Function Call: WRITE
  • Prompt: !,*7,"Enter month as an integer from 1 to 12."
  • Line Location: RDMNTH+4
Function Call: WRITE
  • Prompt: !,"This CMR is not currently in use. Enter 'A' to add it to the file, 'L' to",!,"see a list of active CMR's, or '^' to abort. L// "
  • Line Location: CMR+0
Function Call: READ
  • Variable: R
  • Timeout: DTIME
  • Line Location: CMR+1
Function Call: WRITE
  • Prompt: !,I
  • Line Location: CMR1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: CMROUT+0
Function Call: WRITE
  • Prompt: !,?5,I,?10,S
  • Line Location: IX1+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: IX2+0
Function Call: WRITE
  • Prompt: !,?7,"BUILDINGS may not contain more than one hyphen."
  • Line Location: BLDG+2
Function Call: WRITE
  • Prompt: " Incorrect DIVISION format."
  • Line Location: BLDG+3
Function Call: WRITE
  • Prompt: !,?7,"BUILDING not in proper format."
  • Line Location: BLDG+5
Routine Call
  • %ZIS
  • Line Location:
    • CMR

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENG("EMP" - [#6929] TECH+9, TECH+10, TECH1+1
^ENG(6910.2 - [#6910.2] SWOPT+1
^ENG(6914 - [#6914] CMR1, CMROUT
^ENG(6920 - [#6920] WOCMP, TECH+7, TECH+8, TECH+10*, TECH+11, TECH+13, TECH1, TECH1+1*, INTECH+8, INTECH+9*
, OUTECH+9, OUTECH+12, OUTECH+13, OUTECH+16*

Label References

Name Line Occurrences
CMROUT CMR+1
CONT CMR1, IX1+1
DNTECH TECH+12
IX1 IX1+3, IX1+4
IX2 IX1, IX1+1
IXNUM IX1+2, IXNUM+1
RDMNTH RDMNTH+4
TECH1 TECH1

Naked Globals

Name Field # of Occurrence
^( TECH+11
^(0 TECH+11, TECH+13
^(2 WOCMP, CMROUT
^(3 WOCMP

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A RVMNTH*!
>> DA WOCMP, TECH+7, TECH+8, TECH+10, TECH+11, TECH+13, TECH1, TECH1+1, CMROUT, SWOPT+1
>> DA(1 INTECH+7, INTECH+8, INTECH+9, OUTECH+8, OUTECH+9, OUTECH+12, OUTECH+13, OUTECH+16
>> DIC IX1, IX1+4, IXNUM
DTIME RDMNTH, CMR+1, IX2, CONT
E WOCMP!*
E(1 WOCMP*
E(2 WOCMP*
E(3 WOCMP*
EN IX+1!, IXOUT!
EN( IX1+1*, IX2
EN1 TECH+6~, TECH+8*, TECH+9, TECH+10, TECH+11, TECH1+1
>> ENDX IX1, IX1+4, IXNUM
ENFNO TECH+6~, TECH+13*, TECH1+1
ENI OUTECH+7~, OUTECH+12*, OUTECH+13
>> ENIX IX2*
>> ENMN MNTH*, MNTH+1, RVMNTH*, RVMNTH+1*, RDMNTH*, RDMNTH+1*, RDMNTH+2*, RDMNTH+3, RDMNTH+4
>> ENMNTH MNTH*, MNTH+1*, RVMNTH
ENNXL TECH+6~, TECH+13*, TECH1*, TECH1+1
ENNXT TECH+6~, TECH+13*, TECH1+1*
ENR TECH+6~, TECH+11*, TECH+12
ENTECH OUTECH+7~, OUTECH+11*, OUTECH+12, OUTECH+14*, OUTECH+16
ENX OUTECH+7~, OUTECH+13*, OUTECH+14
ENY CMR1*, CMROUT!, IX+1*, IX1+1*, IXOUT!, CONT*
I CMR1*, CMROUT!, IX+1~*, IX1+1*, IX2
I1 BLDG+1~, BLDG+4*
>> IOP CMR*
IOSL CMR1, IX1+1
>> J CMR1*
R CMR+1*, CMR1, CMROUT, IX+1~, IX1+1, CONT*
S IX+1~*, IX1*, IX1+1, IX1+2, IX1+3, IX1+4*, IXNUM+1*
S1 IX+1~*, IX1+3, IX1+4*, IXNUM*, IXNUM+1
U WOCMP, TECH+8, TECH+10, TECH+11, TECH+13, TECH1+1, INTECH+8, INTECH+9, OUTECH+9, OUTECH+13
, OUTECH+16, CMROUT, SWOPT+1
X RDMNTH*, RDMNTH+1, RDMNTH+2*, RDMNTH+3, WOCMP!, INTECH+9, OUTECH+9, OUTECH+14, CMROUT*, IX+1
, IX1+1, IX1+3, IX1+4, IX2*, IXNUM+1, SWOPT+2!, SWOPT+3!, SWOPT+4!, SWOPT+5!, SWOPT+6!
, SWOPT+7!, SWOPT+8!, SWOPT+9!, SWOPT+10!, SWOPT+11!, SWOPT+12!, SWOPT+13!, BLDG+2!, BLDG+3!, BLDG+4!
, BLDG+5
X1 BLDG+1~, BLDG+4*
X2 IX+1~*, IX1+1, IX1+3, IX1+4, IXNUM+1, BLDG+1~, BLDG+2*, BLDG+3
Y SWOPT+1~*, SWOPT+2, SWOPT+3, SWOPT+4, SWOPT+5, SWOPT+6, SWOPT+7, SWOPT+8, SWOPT+9, SWOPT+10
, SWOPT+11, SWOPT+12, SWOPT+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All