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 |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ENWOD2

Package: Engineering

Routine: ENWOD2


Information

ENWOD2 ;(WASH ISC)/DLM/DH-Formatted Work Order Display ;12.10.97

Source Information

Source file <ENWOD2.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Engineering 4 ZIS^ENUTL  TOP4^ENWOD3  ^ENZWO1  ^ENZWO2  
VA FileMan 3 EN1^DIP  $$GET1^DIQ  ^DIWP  

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

Package Total Caller Graph
Engineering 6 ENEQPMS7  ENWOD  ENWONEW  ENWONEW3  ENWOREP  ENY2K7  

Entry Points

Name Comments DBIA/ICR reference
TOP
TOP4
TOP15
WP
WCO
KILL
PDT ;Display date in external format
WRTEC ;Print assigned techs
HOLD
NOTES(EQDA) ; Check for flagging situations, counted in loc var ENX("T")
; EQDA contains IEN for file 6914
; Expects ENWO as IEN of work order in question
; Flagging situations noted in loc array ENX
  • ICR #7341
    • Status: Active
    • Usage: Private
    W(ENDATA) ;Bold ENDATA

    External References

    Name Field # of Occurrence
    EN1^DIP WCO+33
    $$GET1^DIQ NOTES+9, NOTES+19, NOTES+20
    ^DIWP WP+4, WCO+1
    ZIS^ENUTL TOP+1
    TOP4^ENWOD3 TOP4
    ^ENZWO1 TOP+2
    ^ENZWO2 WCO+29

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: ?$S(ENORIG("P"):10,1:21)
    • Line Location: TOP+6
    Function Call: WRITE
    • Prompt: !
    • Line Location: TOP+8
    Function Call: WRITE
    • Prompt: W
    • Line Location: TOP+8
    Function Call: WRITE
    • Prompt: "PRIMARY EMPL: "
    • Line Location: TOP+8
    Function Call: WRITE
    • Prompt: ?39
    • Line Location: TOP+9
    Function Call: WRITE
    • Prompt: W
    • Line Location: TOP+9
    Function Call: WRITE
    • Prompt: "REQ DATE: "
    • Line Location: TOP+9
    Function Call: WRITE
    • Prompt: !
    • Line Location: TOP+10
    Function Call: WRITE
    • Prompt: W
    • Line Location: TOP+10
    Function Call: WRITE
    • Prompt: "REQ MODE: "
    • Line Location: TOP+10
    Function Call: WRITE
    • Prompt: W
    • Line Location: TOP+10
    Function Call: WRITE
    • Prompt: ?39
    • Line Location: TOP+10
    Function Call: WRITE
    • Prompt: W
    • Line Location: TOP+10
    Function Call: WRITE
    • Prompt: "LOCATION: "
    • Line Location: TOP+10
    Function Call: WRITE
    • Prompt: !
    • Line Location: TOP+11
    Function Call: WRITE
    • Prompt: W
    • Line Location: TOP+11
    Function Call: WRITE
    • Prompt: "BED #: "
    • Line Location: TOP+11
    Function Call: WRITE
    • Prompt: ?39
    • Line Location: TOP+12
    Function Call: WRITE
    • Prompt: W
    • Line Location: TOP+12
    Function Call: WRITE
    • Prompt: $S(ENDSTAT=35.2:"PM STATUS: ",1:"STATUS: ")
    • Line Location: TOP+12
    Function Call: WRITE
    • Prompt: !
    • Line Location: TOP+13
    Function Call: WRITE
    • Prompt: W
    • Line Location: TOP+13
    Function Call: WRITE
    • Prompt: "TASK DESC: "
    • Line Location: TOP+13
    Function Call: WRITE
    • Prompt: !
    • Line Location: TOP15+0
    Function Call: WRITE
    • Prompt: W
    • Line Location: TOP15+0
    Function Call: WRITE
    • Prompt: "WORK CTR: "
    • Line Location: TOP15+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: TOP15+1
    Function Call: WRITE
    • Prompt: W
    • Line Location: TOP15+1
    Function Call: WRITE
    • Prompt: "TOTAL HOURS: "
    • Line Location: TOP15+1
    Function Call: WRITE
    • Prompt: ?39
    • Line Location: TOP15+2
    Function Call: WRITE
    • Prompt: W
    • Line Location: TOP15+2
    Function Call: WRITE
    • Prompt: "TOTAL MATERIAL COST: "
    • Line Location: TOP15+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: TOP15+3
    Function Call: WRITE
    • Prompt: W
    • Line Location: TOP15+3
    Function Call: WRITE
    • Prompt: "TOTAL LABOR COST: "
    • Line Location: TOP15+3
    Function Call: WRITE
    • Prompt: ?39
    • Line Location: TOP15+4
    Function Call: WRITE
    • Prompt: W
    • Line Location: TOP15+4
    Function Call: WRITE
    • Prompt: "VENDOR SERVICE COST: "
    • Line Location: TOP15+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: TOP15+5
    Function Call: WRITE
    • Prompt: W
    • Line Location: TOP15+5
    Function Call: WRITE
    • Prompt: "*ASSIGNED TECH*"
    • Line Location: TOP15+5
    Function Call: WRITE
    • Prompt: "*ASSIGNED TECH*"
    • Line Location: TOP15+5
    Function Call: WRITE
    • Prompt: W
    • Line Location: TOP15+5
    Function Call: WRITE
    • Prompt: "DATE COMPLETE: "
    • Line Location: TOP15+5
    Function Call: WRITE
    • Prompt: !
    • Line Location: TOP15+8
    Function Call: WRITE
    • Prompt: W
    • Line Location: TOP15+8
    Function Call: WRITE
    • Prompt: "*ASSIGNED TECH*"
    • Line Location: TOP15+8
    Function Call: WRITE
    • Prompt: !
    • Line Location: WP+1
    Function Call: WRITE
    • Prompt: W
    • Line Location: WP+1
    Function Call: WRITE
    • Prompt: "WORK PERFORMED: "
    • Line Location: WP+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: WP+7
    Function Call: WRITE
    • Prompt: W
    • Line Location: WP+7
    Function Call: WRITE
    • Prompt: "COMMENTS: "
    • Line Location: WP+7
    Function Call: WRITE
    • Prompt: IOINHI
    • Line Location: WCO+2
    Function Call: WRITE
    • Prompt: IOINLOW
    • Line Location: WCO+3
    Function Call: WRITE
    • Prompt: IOINLOW
    • Line Location: WCO+5
    Function Call: WRITE
    • Prompt: !,"WARRANTY EXPIRATION: ",IOINHI
    • Line Location: WCO+10
    Function Call: WRITE
    • Prompt: "**"
    • Condition for execution: ENX(1)>DT
    • Line Location: WCO+10
    Function Call: WRITE
    • Prompt: $E(ENX(1),4,5),"/",$E(ENX(1),6,7),"/",$E(ENX(1),2,3)
    • Line Location: WCO+10
    Function Call: WRITE
    • Prompt: "**"
    • Condition for execution: ENX(1)>DT
    • Line Location: WCO+10
    Function Call: WRITE
    • Prompt: $E(ENX(1),4,5),"/",$E(ENX(1),6,7),"/",$E(ENX(1),2,3)
    • Line Location: WCO+10
    Function Call: WRITE
    • Prompt: ?49
    • Line Location: WCO+11
    Function Call: WRITE
    • Prompt: !,"Last PMI was DEFERRED."
    • Line Location: WCO+12
    Function Call: WRITE
    • Prompt: !
    • Line Location: WCO+14
    Function Call: WRITE
    • Prompt: "Last PMI was DEFERRED."
    • Condition for execution: ENX(4)]""
    • Line Location: WCO+14
    Function Call: WRITE
    • Prompt: ?49
    • Line Location: WCO+14
    Function Call: WRITE
    • Prompt: !
    • Line Location: WCO+15
    Function Call: WRITE
    • Prompt: !,"EQUIPMENT USE STATUS LISTED AS "
    • Line Location: WCO+16
    Function Call: WRITE
    • Prompt: W
    • Line Location: WCO+16
    Function Call: WRITE
    • Prompt: "."
    • Line Location: WCO+16
    Function Call: WRITE
    • Prompt: !!," [OTHER OPEN WORK ORDERS FOR THIS EQUIPMENT]"
    • Line Location: WCO+19
    Function Call: WRITE
    • Prompt: !," Work Order #",?18,"Task Description"
    • Line Location: WCO+20
    Function Call: WRITE
    • Prompt: !,?2
    • Line Location: WCO+23
    Function Call: WRITE
    • Prompt: W
    • Line Location: WCO+23
    Function Call: WRITE
    • Prompt: ?18
    • Line Location: WCO+23
    Function Call: WRITE
    • Prompt: !,?2,$P(^ENG(6920,J,0),U),?18,$P($G(^ENG(6920,J,5)),U,7)
    • Line Location: WCO+25
    Function Call: WRITE
    • Prompt: !,?2,$P(^ENG(6920,J,0),U),?18,$S($E(^(0),1,3)'="PM-":$P($G(^(1)),U,2),1:$P($G(^(5)),U,7)) I (IOSL-$Y)'>2
    • Line Location: WCO+27
    Function Call: WRITE
    • Prompt: !,?2,"There are more..."
    • Line Location: WCO+28
    Function Call: WRITE
    • Prompt: !," #",I-100,": "
    • Line Location: WRTEC+1
    Function Call: WRITE
    • Prompt: W
    • Line Location: WRTEC+1
    Function Call: WRITE
    • Prompt: " HRS: "
    • Line Location: WRTEC+1
    Function Call: WRITE
    • Prompt: W
    • Line Location: WRTEC+1
    Function Call: WRITE
    • Prompt: " SHOP: "
    • Line Location: WRTEC+1
    Function Call: WRITE
    • Prompt: !,"Press <RETURN> to continue, '^' to escape..."
    • Line Location: HOLD+1
    Function Call: WRITE
    • Prompt: @IOF,"(Work Order: "_ENWO_")"
    • Line Location: HOLD+4
    Function Call: WRITE
    • Prompt: IOINHI
    • Line Location: W+2
    Function Call: WRITE
    • Prompt: ENDATA
    • Line Location: W+2
    Function Call: WRITE
    • Prompt: IOINLOW
    • Line Location: W+3

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^ENG(6914 - [#6914] GET1^DIQ
    ^ENG(6920 - [#6920] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" TOP+2, WCO+29
    ^DD("DD" PDT+1
    ^DIPT("B" WCO+30
    ^ENG("EMP" - [#6929] TOP+8, WRTEC+1
    ^ENG(6914 - [#6914] WCO+6, NOTES+8, NOTES+10, NOTES+11
    ^ENG(6920 - [#6920] TOP+5, WP+6, WCO, WCO+1, WCO+23, WCO+25, WCO+27, NOTES+13, NOTES+14!, NOTES+15
    , NOTES+16, NOTES+17
    ^ENG(6920.1 - [#6920.1] NOTES+6
    ^UTILITY($J WP+4!, WP+5, WCO!, WCO+2

    Label References

    Name Line Occurrences
    HOLD TOP15+8, WP, WP+6, WCO+3, WCO+8, WCO+18, WCO+27, WCO+32
    KILL TOP15+7, WP+6, WCO
    NOTES WCO+6
    PDT TOP+9, TOP15+5
    W TOP+6, TOP+8, TOP+9, TOP+10, TOP+11, TOP+12, TOP+13, TOP15, TOP15+1, TOP15+2
    , TOP15+3, TOP15+4, TOP15+5, TOP15+8, WP+1, WP+3, WP+5, WP+7, WCO+11, WCO+14
    , WCO+15, WCO+16, WCO+23, PDT+1, WRTEC+1
    WP TOP15+6
    WRTEC TOP15+7

    Naked Globals

    Name Field # of Occurrence
    ^( WP+5, WCO+1, NOTES+11, NOTES+17
    ^(0 TOP+8, WCO+27, WRTEC+1, NOTES+11
    ^(1 WCO+27
    ^(5 WCO+27

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> BY WCO+31*
    >> DA TOP+5, WP+6, WCO, WCO+1, WCO+31, WCO+34*
    >> DHD WCO+31*
    >> DIC WCO+31*
    >> DISUPNO WCO+31*
    DIWF WP+4*, WCO*, KILL!
    DIWL WP+4*, WCO*, WCO+2, KILL!
    DIWR WP+4*, WCO*, KILL!
    DT WCO+10
    DTIME HOLD+2
    EN KILL!
    EN( TOP+4, WRTEC+1
    EN(1 TOP+8
    EN(106 TOP15+7
    EN(14 WCO+6
    EN(2 TOP+9
    EN(25 TOP15
    EN(26 TOP15+1
    EN(27 TOP15+2
    EN(28 TOP15+3
    EN(29 TOP15+4
    EN(3 TOP+10
    EN(31 TOP+3, TOP15+5
    EN(32 WP+2, WP+3, WP+4
    EN(4 TOP+10
    EN(5 TOP+11
    EN(6 TOP+12
    EN(7 TOP+13
    ENA KILL!
    ENB KILL!
    ENDATA KILL!, W~, W+2
    >> ENDSTAT TOP+12
    ENJ TOP15+7, KILL!
    ENLTH KILL!
    ENNU KILL!
    ENNX WCO+1*, WCO+2*, KILL!
    ENORD KILL!
    ENORIG TOP+5*, TOP+7, KILL!
    ENORIG("P" TOP+5*, TOP+6, TOP+7
    ENPG TOP~, TOP+3*, WP, WP+6, HOLD*
    ENTNX KILL!
    >> ENWO TOP+5, TOP+6, WCO+31, HOLD+4, NOTES+12, NOTES+15
    ENX TOP15+7, TOP15+8*, WP, WP+6, WCO*, WCO+2, WCO+4, WCO+6!, WCO+8, WCO+18
    , WCO+27, WCO+32, KILL!, HOLD*, HOLD+2*
    ENX( NOTES+7*
    ENX("AT" TOP+4*, TOP15+6, WP
    ENX("DA" WCO+31*, WCO+34
    ENX("T" WCO+7, NOTES+7*, NOTES+21*, NOTES+22*
    ENX("WO" WCO+17, WCO+21, WCO+22, WCO+23, WCO+24, WCO+25, WCO+27, NOTES+16*, NOTES+17*, NOTES+18*
    ENX("WP" TOP+3*, WP
    ENX(1 WCO+9, WCO+10, WCO+13, NOTES+8*, NOTES+21
    ENX(2 NOTES+9*
    ENX(3 WCO+15, NOTES+10*, NOTES+22
    ENX(4 WCO+12, WCO+13, WCO+14, NOTES+11*, NOTES+21
    ENX(7 WCO+16, NOTES+19*, NOTES+22
    ENX(9 WCO+11, WCO+13, WCO+14, NOTES+20*, NOTES+21
    EQDA WCO+6*, KILL!, NOTES~, NOTES+8, NOTES+9, NOTES+10, NOTES+11, NOTES+13, NOTES+14, NOTES+19
    , NOTES+20
    >> FLDS WCO+31*
    >> FR WCO+31*
    HAZCODE NOTES+5~, NOTES+6*, NOTES+17
    I TOP~, TOP+4*, TOP15+7*, WRTEC+1, NOTES+7*, NOTES+11*, NOTES+13*
    I1 TOP~, NOTES+7*
    IOF HOLD+4
    IOINHI TOP+1~, WCO+2, WCO+4, WCO+10, W+2
    IOINLOW TOP+1~, WCO+3, WCO+5, WCO+10, W+3
    IOINORM TOP+1~
    IOM WCO
    ION WCO+31
    >> IOP WCO+31*
    IOSL WCO+2, WCO+8, WCO+18, WCO+27, WCO+32
    IOST TOP15+8, WP, WP+6, HOLD
    J TOP~, WP+5*, WCO+22*, WCO+23*, WCO+25*, WCO+26*, WCO+27*, NOTES+13*, NOTES+14, NOTES+15
    , NOTES+16, NOTES+17, NOTES+18
    K TOP~, WCO+26*, WCO+27*, WCO+28, NOTES+16*, NOTES+17*
    >> L WCO+31*
    SHOP WCO+21*, WCO+22*, WCO+23, WCO+24*, WCO+25*, NOTES+5~, NOTES+16*, NOTES+17, NOTES+18
    >> TO WCO+31*
    U TOP+5, TOP+8, WCO+23, WCO+25, WCO+27, WRTEC+1, NOTES+8, NOTES+10, NOTES+11, NOTES+13
    , NOTES+15, NOTES+16
    X TOP~, TOP+2*, TOP+9*, TOP15+5*, WP+4*, WCO*, WCO+1*, WCO+29*, PDT+1, W+1~
    , W+2*, W+3*
    >> Y PDT+1*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All