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

Package: Engineering

Routine: ENWOLD


Information

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

Source Information

Source file <ENWOLD.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 HOME^%ZIS  ^%ZTLOAD  $$FMADD^XLFDT  
VA FileMan 3 ^%DT  ^DIK  ^DIR  
MailMan 1 ^XMD  

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

Package Total Caller Graph
Engineering 1 ENDELPM  

Entry Points

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

External References

Name Field # of Occurrence
^%DT EN+7
HOME^%ZIS EN+3
^%ZTLOAD EN+34
^DIK DEQUE+6
^DIR EN+32
$$FMADD^XLFDT EN+4
^XMD MSG+4

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
Routine Call
  • DIR
  • Line Location:
    • EN+32
Routine Call
  • %ZIS
  • Line Location:
    • EN+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6920 - [#6920] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN+4, EN+10, EN+23
^DIC(6922 - [#6922] EN+29
^ENG(6920 - [#6920] EN+1, EN+11, EN+13, EN+14, EN+16, EN+18, EN+20, DEQUE+4, DEQUE+6

Label References

Name Line Occurrences
EN EN+8
EXIT EN+1, EN+7, EN+22

Naked Globals

Name Field # of Occurrence
^(0 EN+29

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EN+6*, EXIT!
%DT("A" EN+6*
%DT("B" EN+4*, EN+5
%DT(0 EN+4*
COUNT EN+2~, DEQUE~*, DEQUE+6*, MSG+2
COUNT( EN+17*, EN+20*, EN+27, EN+28, EN+29
COUNT("TOT" EN+11*, EN+20*, EN+22, EN+24
DA EN+2~, EN+11*, EN+13*, EN+14*, EN+15, EN+19*, EN+20, EN+21, DEQUE~, DEQUE+5*
DEQUE+6
DIK DEQUE~, DEQUE+1*
DIR EN+31!, EN+32!
DIR("A" EN+31*
DIR("B" EN+31*
DIR(0 EN+31*
>> DIRUT EN+32
DT EN+4
DTIME EN+30, EN+36
>> DTOUT EN+7
DUZ MSG+1
EN DEQUE~
EN(1 MSG+2*
ENDA EN+17*, EN+18*, EN+19, EXIT!, DEQUE+3*, DEQUE+4*, DEQUE+5, MSG+5!
ENDA("START" EN+15*, EN+17, DEQUE+3
ENSHOP EXIT!, MSG+5!
ENSHOP( EN+28*, DEQUE+2
ENSTART EN+9*, EN+13, EN+14, EN+23, EXIT!, MSG+5!
ENSTART("E" EN+10*, EN+25, EN+35
ENX EN+11*, EN+21*, EXIT!
IOF EN+24
IOM EN+21
IOSL EN+30
LINE EN+2~, EN+26*, EN+29*, EN+30*
SHOP EN+2~, EN+16*, EN+17, EN+18, EN+20, EN+27*, EN+28, EN+29, DEQUE~, DEQUE+1*
DEQUE+2*, DEQUE+4
U EN+1, EN+7, EN+13, EN+14, EN+20, EN+29, DEQUE+6
X EN+7, EN+13*, EN+26!*, EN+30*, EN+36*
XMDUZ MSG+1*, MSG+5!
XMSUB MSG+1*, MSG+5!
XMTEXT MSG+3*, MSG+5!
XMY MSG+5!
XMY( MSG+1*
>> Y EN+4*, EN+8, EN+9, EN+10, EN+23*, EN+32
>> ZTDESC EN+33*
>> ZTIO EN+34*
>> ZTQUEUED MSG+6
>> ZTREQ MSG+6*
>> ZTRTN EN+33*
>> ZTSAVE("EN*" EN+34*
ZTSK EN+34!
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