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

Package: Engineering

Routine: ENWONEW2


Information

ENWONEW2 ;(WASH ISC)/DH-Work Order Entry ;5.29.97

Source Information

Source file <ENWONEW2.m>

Entry Points

Name Comments DBIA/ICR reference
TRNIN ; Entry point to get work order for de-installation of equipment
; Expects DUZ
; Expects EQUIPMENT ID in piece 1 of WODATA, LOCATION in piece 2
; Expects that SERVICE POINTER may be in local variable PRCNSRV
; Returns work order number as ENWO and internal entry number as ENDA
  • ICR #1341
    • Status: Active
    • Usage: Private
    FILL ;Fill in the work order
    LOAD
    AUTODEV ;Get device from ENG SECTION (null if unsuccessful)

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"Can't seem to add a new work order at this time. Suggest that you",!,"contact IRM.",*7
    • Line Location: TRNIN+14
    Function Call: WRITE
    • Prompt: !,"Work Order #: ",NUMBER
    • Line Location: TRNIN+15
    Function Call: WRITE
    • Prompt: !!,"Bad news. Another user is already editing the work order that you just",!,"created. Please make a note of the work order number and advise Engineering",!,"Service of the problem."
    • Line Location: TRNIN+16

    FileMan Files Accessed Via FileMan Db Call

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