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

Package: Engineering

Routine: ENWOLD


Information

ENWOLD ;(WIRMFO)/DH-Delete Old Incomplete PM Work Orders ;12/1/1999

Source Information

Source file <ENWOLD.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
EXIT
DEQUE
MSG ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NOTE: Creation Dates more recent than "_%DT("B")_" will not be",!," accepted.",!,*7
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"Counting."
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: @IOF,"There are about "_COUNT("TOT")_" incomplete PM work orders on your system that were"
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: !,"created prior to "_ENSTART("E")_". The following is a breakout by shop:"
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: !,X
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: !,$P(^(0),U),?30,COUNT(SHOP)
  • Line Location: EN+29
Function Call: READ
  • Formatting: !
  • Prompt: "Press <RETURN> to continue..."
  • Variable: X
  • Timeout: DTIME
  • Line Location: EN+30
Function Call: WRITE
  • Prompt: !!,"Fewer than 500 existing incomplete PM work orders were created prior to ",!,ENSTART("E")_". No need to continue."
  • Line Location: EN+35

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6920 - [#6920] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call