Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ENEQHS

Package: Engineering

Routine: ENEQHS


Information

ENEQHS ;(WIRMFO)/JED/DH-POST REPAIR TO EQUIPMENT HISTORY ;5/11/2000

Source Information

Source file <ENEQHS.m>

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

Package Total Caller Graph
Engineering 9 ENBCPM5  ENEQP1  ENSA5  ENWO1  ENWOCOMP  ENWOD  ENWOME  ENXIP65  
^ENG(6920  

Entry Points

Name Comments DBIA/ICR reference
W ;W.O. HISTORY-ENTRY FROM COMP1^ENWOCOMP
; EXPECTING W.O. VARIABLES U,DA,ENTEC & ENINV
; where DA => IEN of work order file
; ENINV => IEN of equipment file
W1
EXT ; post history info (ENH) to equipment (ENINV)
W2
EXIT ;
ERR
KILLHS ;REMOVE EXISTING HISTORY IF WO IS EDITED; CALLED BY ENWO1,ENWOD,ENWOME
PMTXT
DELHS ;DELETE W.O. FROM EQUIPMENT HISTORY (non-interactive)
; Called by 'AD' MUMPS x-ref on STATUS field in WORK ORDER file for
; disapproved work orders
; input
; DA = ien of work order

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"ABORTING ATTEMPT TO POST INVENTORY WORK HISTORY",!,ENERR
  • Line Location: ERR+0
Function Call: WRITE
  • Prompt: !!,*7,"WARNING: you must re-enter the DATE COMPLETE field,",!,"to re-post the device history ... DO THIS LAST!",!!,"<cr> to continue"
  • Line Location: KILLHS+2
Function Call: WRITE
  • Prompt: !!,"Caution: DELETION of a PM work order at this point will remove the PM",!," from the Equipment History. The DELETE WORK ORDER option in the PM module",!," does not have this effect."
  • Line Location: PMTXT+0
Function Call: READ
  • Timeout: DTIME
  • Line Location: PMTXT+1
Function Call: WRITE
  • Prompt: !!,"If you intend to delete this work order AND remove its corresponding entry",!,"in the Equipment History, this is the way to do it."
  • Line Location: PMTXT+2
Function Call: WRITE
  • Prompt: !!,"If you simply want to edit the work order, this is the way to do that too."
  • Line Location: PMTXT+3
Function Call: WRITE
  • Prompt: !!,"If, however, you wish to delete the work order without removing the PM itself",!,"from the Equipment History, then you should enter caret keys ('^') to abort"
  • Line Location: PMTXT+4
Function Call: WRITE
  • Prompt: !,"and jump to DELETE PM WORK ORDER."
  • Line Location: PMTXT+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENG("EMP" - [#6929] W+10
^ENG(6914 - [#6914] W+8, W1, EXT+1, EXT+3, EXT+4, W2, W2+2*, KILLHS+3, KILLHS+4!*, DELHS+11
, DELHS+12, DELHS+14!, DELHS+15*
^ENG(6920 - [#6920] W+7, W+9, W1, W1+1, W1+2, W1+5, W1+6, W1+7, W1+11, KILLHS+1
, KILLHS+3, DELHS+7, DELHS+9
^ENG(6920.1 - [#6920.1] W1+8

Label References

Name Line Occurrences
ERR W1+1
EXIT W+8, W1, ERR
PMTXT KILLHS+1, PMTXT+5
W1 W+9
W2 W2

Naked Globals

Name Field # of Occurrence
^(0 W+10, W1+8, EXT+3*, EXT+4, KILLHS+4
^(3 KILLHS+3
^(4 W+7, W1+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA W+7, W+9, W1, W1+1, W1+2, W1+5, W1+6, W1+7, W1+11, KILLHS+1
, KILLHS+3, DELHS+5, DELHS+7, DELHS+9
>> DIU(0 W+4
DTIME KILLHS+2, PMTXT+1
ENACTN W+5~, W1+4*, W1+6, W1+9*, W1+10*, W1+12
END DELHS+6~, DELHS+11*, DELHS+16*
ENDTCP W+5~, W1+3*, W1+12, EXT+6
ENEMPL W+5~, W+9*, W+10*, W1+12
>> ENERR W1+1*, ERR
ENH W+5~, W1+12*, W2+2
ENHRS W+5~, W1+3*, W1+12
ENINV W+8, W1, EXT+1, EXT+3, EXT+4, W2, W2+2, KILLHS+3*, KILLHS+4, DELHS+6~
, DELHS+7*, DELHS+8, DELHS+11, DELHS+12, DELHS+14, DELHS+15
ENLABOR W+5~, W1+3*, W1+12
ENMTL W+5~, W1+3*, W1+12
ENNXL EXT+2~, EXT+4*, W2+1*
ENNXT EXT+2~, EXT+4*, W2+1*
ENODE W+6~, W1+2*, W1+3
ENOUT EXT+2~, W2+1*, W2+2
ENRN EXT+2~, EXT+6*, W2*, W2+1, W2+2
ENSTAT W+6~, W1+3*, W1+12
>> ENTEC W+9, W+10
ENVEND W+6~, W1+11*, W1+12
ENW EXT+2~, EXT+4*, W2+1
ENWO W+5~, W1*, W1+12, KILLHS+3*, KILLHS+4, DELHS+6~, DELHS+9*, DELHS+12
ENWORK W+6~, W1+3*, W1+12
ENWOX W+6~, W1*
ENZ KILLHS+4*, KILLHS+5!, DELHS+6~, DELHS+11*, DELHS+12, DELHS+14
I W+6~, W1+6*, W1+7, KILLHS+4*
J W+6~, W1+7*, W1+8
J1 W+6~, W1+8*, W1+10
K W+6~, W1*
>> R KILLHS+1*, KILLHS+2*, PMTXT+1*
U W+7, W+9, W+10, W1, W1+3, W1+7, W1+8, W1+11, W1+12, EXT+4
, W2+1, KILLHS+1, DELHS+7, DELHS+9, DELHS+12, DELHS+15
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All