ENEQ3 ;WIRMFO/DH,SAB-Equipment Entry Functions ;3.31.98
Source file <ENEQ3.m>
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 |
|
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) |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
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 |