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

Package: Engineering

Routine: ENWOUTL


Information

ENWOUTL ;(WCIOFO)/SAB-Work Order Utilities ;10/21/1998

Source Information

Source file <ENWOUTL.m>

Entry Points

Name Comments DBIA/ICR reference
ASKCC(ENWODA) ; Ask Condition Code Extrinsic Function
; Input ENWODA - ien of work order
; Output - 0 (don't ask) or 1 (ask) condition code
WO ; select work order entry point
; called from various places where work orders are selected
; Input
; DIC("S") - (optional and not returned)
; Output
; Y - "ien^.01 value" or "-1" if unsuccessful
WOA ; ask user
WOR ; Result of DIC call
WOX ; Exit
CDATE(Y) ; Check on COMPLETION DATE (field 36, file 6920)
LBRCST(ENFLAG) ; Calculate work order TOTAL HOURS and the TOTAL LABOR COST
; based on the TECHNICIANS ASSIGNED multiple in file 6920
; Called by MUMPS X-REFs in file 6920, fields .01 and 1 in multiple
; Input ENFLAG (1 for SET LOGIC or 2 for KILL LOGIC)
; Expects DA(1) as work order IEN
; DA as ASSIGNED TECH IEN [within DA(1)]

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !
  • Prompt: "Select WORK ORDER #: "
  • Variable: ENX
  • Timeout: DTIME
  • Line Location: WOA+1
Function Call: WRITE
  • Prompt: !," Use 'E.value' to list W.O.s whose EQUIPMENT ID# equals 'value'"
  • Line Location: WOA+7
Function Call: WRITE
  • Prompt: !," Use 'L.value' to list W.O.s whose LOCATION starts with 'value'"
  • Line Location: WOA+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6920 - [#6920] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call