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
Print Page as PDF
Routine: ENLIB

Package: Engineering

Routine: ENLIB


Information

ENLIB ;(WASH ISC)/JED/SAW/DH-Package Utilities ;2.17.98

Source Information

Source file <ENLIB.m>

Entry Points

Name Comments DBIA/ICR reference
ENOUT ;ENGINEERING OUTPUT PORT SELECTOR DLM/WASH; 27 JUL 84 8:01 AM
DEV ;DEVICE SELECTION ;devices may be suppressed from listing
DEVSHOW ;DEVICE SELECTION
FYS ;SELECT FISCAL YEAR AND QUARTER THEN SELECT DEVICE
FYS1
QTRS
FYSONLY ;SELECT FISCAL YEAR AND QUARTER
FYS1ON
FYQTS ;SELECT FISCAL YEAR AND QUARTER ONLY
FYQTS1
QTS
EXIT
ROUND ;Round off number
DNRND
ROOM ; Check for allowable format
BLDG ; Called when BUILDING is not in the file
VENPRE ; Vendor pre-action from ENG DJ screen handler
; DA => IEN for file 6914
; Needed because post-action on acquisition won't execute on deletes
X ;EXIT FOR THE INCONSISTENT RESPONSE
Q ;EXIT POINT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Select output device: ",!,?3,"RETURN",?13,"DISPLAY"
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,?3,$P(^(0),U,2),?13,$P(^(0),U,3)
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+4
Function Call: WRITE
  • Prompt: !!,"Select output device: ",!,?3,"RETURN",?13,"DISPLAY"
  • Line Location: DEVSHOW+1
Function Call: WRITE
  • Prompt: !,?3,$P(^DIC(6910.1,$O(^DIC(6910.1,"B",ENOT,"")),0),"^",2),?13,$P(^(0),"^",3)
  • Line Location: DEVSHOW+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVSHOW+3
Function Call: READ
  • Variable: ENFY
  • Timeout: DTIME
  • Line Location: FYS1+0
Function Call: WRITE
  • Prompt: !,"SELECT FISCAL YEAR: ",ENFYT,"//"
  • Line Location: FYS1+0
Function Call: READ
  • Variable: ENQT
  • Timeout: DTIME
  • Line Location: QTRS+0
Function Call: READ
  • Variable: ENFY
  • Timeout: DTIME
  • Line Location: FYS1ON+0
Function Call: WRITE
  • Prompt: !,"SELECT FISCAL YEAR: ",ENFYT," //"
  • Line Location: FYS1ON+0
Function Call: READ
  • Variable: ENFY
  • Timeout: DTIME
  • Line Location: FYQTS1+0
Function Call: WRITE
  • Prompt: !,"SELECT FISCAL YEAR: ",ENFYT,"//"
  • Line Location: FYQTS1+0
Function Call: READ
  • Variable: ENQT
  • Timeout: DTIME
  • Line Location: QTS+0
Function Call: WRITE
  • Prompt: *7,!,"TRY LATER"
  • Line Location: X+1
Info |  Source |  Entry Points |  Interaction Calls