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
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, WCOWCO+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, WPWP+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, TOP15TOP15+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, WCOWCO+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*, WPWP+6, HOLD*
ENTNX KILL!
>> ENWO TOP+5, TOP+6, WCO+31, HOLD+4, NOTES+12, NOTES+15
ENX TOP15+7, TOP15+8*, WPWP+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, WPWP+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