Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 ^DIC  ^DIE  EN^DIQ1  
Engineering 1 (WONUM,WOPRNT)^ENWONEW  
Kernel 1 (,HOME)^%ZIS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Engineering 1 ENWONEW  
Equipment Turn-In Request 1 PRCNTIPP  

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)

    External References

    Name Field # of Occurrence
    ^%ZIS AUTODEV+2, AUTODEV+4
    HOME^%ZIS AUTODEV+5
    ^DIC TRNIN+11
    ^DIE LOAD+8, LOAD+10
    EN^DIQ1 FILL+2
    WONUM^ENWONEW TRNIN+13
    WOPRNT^ENWONEW LOAD+12

    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
    Routine Call
    • %ZIS
    • Line Location:
      • AUTODEV+2
      • AUTODEV+4
    Routine Call
    • %ZIS
    • Line Location:
      • AUTODEV+5
    Routine Call
    • DIC
    • Line Location:
      • TRNIN+11
    Routine Call
    • DIE
    • Line Location:
      • LOAD+8
      • LOAD+10

    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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZIS(1 - [#3.5] AUTODEV+2
    ^DIC(49 - [#49] LOAD+6
    ^DIC(6910 - [#6910] TRNIN+9, TRNIN+10
    ^DIC(6922 - [#6922] TRNIN+12, AUTODEV+1
    ^DIE("B" LOAD+9
    ^ENG("SP" - [#6928] LOAD+3, LOAD+4
    ^ENG(6914 - [#6914] LOAD+4
    ^ENG(6920 - [#6920] TRNIN+16, LOAD+11

    Naked Globals

    Name Field # of Occurrence
    ^(0 AUTODEV+2

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %ZIS AUTODEV+2*, AUTODEV+4*
    DA TRNIN+8~, TRNIN+15, FILL+1*, FILL+3, FILL+4, LOAD*
    >> DEVICE AUTODEV+1*, AUTODEV+2*, AUTODEV+3, AUTODEV+4*, AUTODEV+5*
    DIC TRNIN+8~, TRNIN+11*, FILL+1*
    DIC("S" TRNIN+11*!
    DIC(0 TRNIN+11*
    DIE TRNIN+8~, LOAD*
    DIQ TRNIN+8~, FILL+1*
    DIQ(0 FILL+1*
    DR TRNIN+8~, FILL+1*, LOAD*, LOAD+1*, LOAD+5*, LOAD+6*, LOAD+7*, LOAD+9*, LOAD+10
    DUZ TRNIN+5, FILL+1, LOAD
    >> ENDA TRNIN+15*, TRNIN+16, LOADLOAD+11
    >> ENWO TRNIN+15*
    IO AUTODEV+4
    >> IO(0 AUTODEV+4
    ION AUTODEV+4, AUTODEV+5
    IOP AUTODEV+2*!
    ITEM TRNIN+7~, LOAD+2*, LOAD+4
    LOC TRNIN+7~, LOAD+2*, LOAD+3*, LOAD+4*, LOAD+5
    NAME TRNIN+7~, FILL+3*, LOAD+1
    NUMBER TRNIN+7~, TRNIN+14, TRNIN+15
    PHONE TRNIN+7~, FILL+4*, LOAD+1
    >> POP AUTODEV+4
    >> PRCNSRV LOAD+6
    SERVICE TRNIN+7~, LOAD+6*
    SHOPKEY TRNIN+7~, TRNIN+9*, TRNIN+10*, TRNIN+11*, TRNIN+12, LOADAUTODEV+1
    TMP FILL+5!
    TMP(200 FILL+3, FILL+4
    U TRNIN+9, TRNIN+10, LOAD+2, LOAD+3, LOAD+4, LOAD+6, AUTODEV+1, AUTODEV+2
    WARD TRNIN+7~, LOAD+12*, AUTODEV+3
    >> WODATA TRNIN+5, LOAD+2
    >> X FILL+4*, AUTODEV+1*, AUTODEV+2
    >> Y TRNIN+11
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All