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

Package: Engineering

Routine: ENWOD2


Information

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

Source Information

Source file <ENWOD2.m>

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

    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
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call