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

Package: Engineering

Routine: ENLIB3


Information

ENLIB3 ;WCIOFO/DH,SAB-Package Utilities (FAP) ;9/2/1998

Source Information

Source file <ENLIB3.m>

Entry Points

Name Comments DBIA/ICR reference
PO ; Populate appropriate equipment data from IFCAP purchase order.
; Normally called when PO entered into Equipment File
; Input Variables
; X => PO#
; DA => Equipment IEN
FAP
BOCI(ENBOC) ; Returns ien of active BOC or null value
FUNDI(ENFUND) ; Returns ien of active FUND or null value
TYPE
CAP
NX
DTCHK(ENFLD) ;Input Transform Check that TURN-IN DATE, REPLACEMENT DATE, and
; DISPOSITION DATE follow ACQUISITION DATE.
; DA => Equipment Entry Number
; ENFLD => Field being checked (16, 20.5, or 22)
; X => value entered (internal format) - killed if check fails
DISPM ; Expand DISPOSITION METHOD on DJ screens ENEQ2*
; Expects value (1U) in loc var V(V)
; Returns expanded value in V(V)
; Called by PRE-ACTION field of DJ Screen File
DISPW ; Prohibit direct edit of DISPOSITION METHOD for capitalized assets
AFUNDI(ENFUND) ; Returns ien of active FUND or null value
; input - associated fund

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Capitalized asset. DISP METHOD may be edited only by means of FAP documents."
  • Line Location: DISPW+2
Function Call: WRITE
  • Prompt: !,"Press <RETURN> to continue..."
  • Line Location: DISPW+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRC(442 - [#442] FIND1^DIC,  GET1^DIQ
442.01 GET1^DIQ
442.041 GET1^DIQ
^ENG(6914 - [#6914] GET1^DID,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call