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

Package: Engineering

Routine: ENY2K4


Information

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

Source Information

Source file <ENY2K4.m>

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

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

FileMan Files Accessed Via FileMan Db Call

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