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

Package: Engineering

Routine: ENY2K4


Information

ENY2K4 ;(WASH ISC)/DH-Delete Y2K Work Orders ;6.16.98

Source Information

Source file <ENY2K4.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 4 ^DIC  YN^DICN  ^DIK  ^DIR  

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 ENY2K_DEL  

Entry Points

Name Comments DBIA/ICR reference
DEL ; delete Y2K worklist
DEL1 ; delete individual work orders
DEL10
DEL11
DEL2 ; delete an entire Y2K work list
DEL22
OUT
OUT1 ;
MSG
DELH0
DELH1

External References

Name Field # of Occurrence
^DIC DEL1+2, DEL11+3, DEL2+6
YN^DICN DEL1+3, DEL11+4, DEL22+7
^DIK DEL1+6, DEL11+7, DEL22+11
^DIR DEL2+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Which do you wish to delete?",!,?7,"1. Individual work order(s), or",!,?7,"2. An entire Y2K work list."
  • Line Location: DEL+1
Function Call: READ
  • Formatting: !
  • Prompt: "Select 1 or 2: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: "??",*7
  • Line Location: DEL+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DEL11+0
Function Call: WRITE
  • Prompt: !!,"Next work order: ",ENY2WO(1),"// "
  • Line Location: DEL11+0
Function Call: WRITE
  • Prompt: "??",*7
  • Line Location: DEL11+3
Function Call: WRITE
  • Prompt: !!,"Another user is processing a Y2K worklist. Please try again later.",*7
  • Line Location: DEL2+1
Function Call: WRITE
  • Prompt: @IOF,!!
  • Line Location: DEL22+0
Function Call: WRITE
  • Prompt: "This option will delete the entire Y2K worklist of "_$S($G(SHOPS)="ALL":"ALL shops.",1:"the "_ENSHOP_" shop.")
  • Line Location: DEL22+1
Function Call: WRITE
  • Prompt: !!,"Just a moment, please..."
  • Line Location: DEL22+2
Function Call: WRITE
  • Prompt: !!,"No Y2K work orders to delete."
  • Line Location: DEL22+6
Function Call: WRITE
  • Prompt: !!,"You have selected "_COUNT_" Y2K work orders. Deletion of these work orders",!,"will not affect equipment histories. Are you sure you want to proceed"
  • Line Location: DEL22+7
Function Call: WRITE
  • Prompt: !,"Nothing deleted.",*7
  • Line Location: DEL22+8
Function Call: READ
  • Formatting: !
  • Prompt: "Press <RETURN> to continue..."
  • Variable: X
  • Timeout: DTIME
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !,"Entry must be an existing work order, beginning with 'Y2-', or the",!,"sequential (numeric) portion thereof. Enter '^' to exit."
  • Line Location: DELH0+0
Function Call: WRITE
  • Prompt: !,"Enter '1' to delete individual Y2K work orders or '2' to delete an entire",!,"Y2K worklist."
  • Line Location: DELH1+0
Function Call: WRITE
  • Prompt: !,"Deletion of Y2K work orders which have been closed out does NOT remove them",!,"from the equipment history."
  • Line Location: DELH1+1
Routine Call
  • DIC
  • Line Location:
    • DEL1+2
    • DEL11+3
    • DEL2+6
Routine Call
  • DIR
  • Line Location:
    • DEL2+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(6922 - [#6922] DEL2+6
^ENG("Y2KLIST" DEL2+1, OUT
^ENG(6914 - [#6914] DEL1+5*, DEL11+6*, DEL22+10*
^ENG(6920 - [#6920] DEL1+2, DEL1+4, DEL10, DEL11+5, DEL22+3, DEL22+4, DEL22+10
^TMP($J DEL2+2!, DEL22+5*, DEL22+9

Label References

Name Line Occurrences
DEL DEL+3, DELH1+2
DEL1 DEL+2, DEL1+3
DEL10 DEL11+4, DEL11+8
DEL11 DEL11+2, DEL11+3
DEL2 DEL+2
DELH0 DEL11+2, DEL11+3
DELH1 DEL+2
MSG DEL22+6, DEL22+8
OUT DEL2+5, DEL2+6, DEL22+6, DEL22+8
OUT1 DEL1+2, DEL10, DEL11

Naked Globals

Name Field # of Occurrence
^( DEL22+3
^(0 DEL2+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DEL1+3*, DEL11+4*, DEL22+7*, DEL22+8
COUNT DEL2+3~, DEL22+3*, DEL22+5*, DEL22+6, DEL22+7
DA DEL1+1~, DEL1+2*, DEL1+4, DEL11+3*, DEL11+5, DEL2+3~, DEL22+3*, DEL22+4, DEL22+5, DEL22+9*
, DEL22+10, DEL22+11
DIC DEL1+1~, DEL1+2*, DEL2+3~, DEL2+6*
DIC("A" DEL1+2*
DIC("S" DEL1+2*!, DEL11+3*!
DIC(0 DEL1+2*, DEL11+3*, DEL2+6*
DIK DEL1+1~, DEL1+4*, DEL1+6!, DEL11+5*, DEL11+7!, DEL2+3~, DEL22+9*, DEL22+12!
DIR DEL2+5!
DIR("A" DEL2+4*
DIR("B" DEL2+4*
DIR(0 DEL2+4*
>> DIRUT DEL2+5
DTIME DEL+2, DEL11, MSG
ENINN OUT1+1!
ENSHABR DEL2+6*, OUT1+1!
ENSHKEY DEL2+6*, DEL22+4, OUT1+1!
ENSHOP DEL2+6*, DEL22+1, OUT1+1!
ENWON OUT1+1!
ENY2 OUT1+1!
>> ENY2K DEL22+3*
ENY2WO DEL1+2*, DEL1+3, DEL10, DEL11, DEL11+3*, DEL11+4, OUT1+1!
ENY2WO(1 DEL10*, DEL11, DEL11+1
EQDA DEL1+4*, DEL1+5, DEL11+5*, DEL11+6, DEL22+10*, OUT1+1!
IOF DEL22
SHOPS DEL2+3~, DEL2+5*, DEL2+6, DEL22+1, DEL22+4
U DEL1+2, DEL1+4, DEL1+5, DEL11+5, DEL11+6, DEL2+6, DEL22+4, DEL22+10
>> X DEL+2*, DEL11*, DEL11+1*, DEL11+2, DEL11+3, MSG*
>> Y DEL1+2, DEL11+3, DEL2+5, DEL2+6
>> ZTQUEUED OUT1+2
>> ZTREQ OUT1+2*
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