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

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
Info |  Source |  Entry Points |  Interaction Calls