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

Package: Engineering

Routine: ENEQ3


Information

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

Source Information

Source file <ENEQ3.m>

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: Active
    • 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)

    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

    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
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call