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

Package: Engineering

Routine: ENY2KR1


Information

ENY2KR1 ;(WASH ISC)/DH-Rapid Y2K Close Out ;6.16.98

Source Information

Source file <ENY2KR1.m>

Entry Points

Name Comments DBIA/ICR reference
CAT ; rapid closeout by equipment category
CSN ; rapid closeout by category stock number
MEN ; rapid closeout by manufacturer equipment name (trade name)
; menu option disabled at request of TAG
MFG ; rapid closeout by manufacturer
LOC ; rapid closeout by range of local identifiers
MOD ; rapid closeout by manufacturer and model
Y2KWO ; check for open Y2K work orders
PROCS ; close the Y2K work orders
PROCD
FIRST ; close out first Y2K work order
SUBSQNT ; finish the list
HDR ; header for Y2K work order list
HOLD
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"None of the selected equipment entries have open Y2K work orders.",!,"Data base unchanged."
  • Line Location: PROCS+1
Function Call: WRITE
  • Prompt: !!,COUNT("Y2KWO")_" of the selected equipment records have open Y2K work orders which",!,"may now be closed."
  • Line Location: PROCS+2
Function Call: WRITE
  • Prompt: !!,"First we'll print a list of the open Y2K work orders."
  • Line Location: PROCS+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PROCS+6
Function Call: WRITE
  • Prompt: !,WO,?34,$J(DA,10)
  • Line Location: PROCS+10
Function Call: WRITE
  • Prompt: @IOF,!,"Rapid Close Out of Y2K work orders will automatically place the affected",!,"equipment in a Y2K CATEGORY of 'FULLY COMPLIANT'."
  • Line Location: PROCS+13
Function Call: WRITE
  • Prompt: !!,"It is assumed that you have reviewed the list of open Y2K work orders just",!,"printed. You will have an opportunity to remove individual work orders from"
  • Line Location: PROCS+14
Function Call: WRITE
  • Prompt: !,"this closeout list by specifying their equipment entry numbers."
  • Line Location: PROCS+15
Function Call: WRITE
  • Prompt: !!,"If any of these equipment entries have been erroneously classified as",!,"'CONDITIONALLY COMPLIANT', then you should remove them from the closeout list."
  • Line Location: PROCS+16
Function Call: WRITE
  • Prompt: !!,"You should then use the 'Delete Y2K Work Orders' option [ENY2K_DEL] to delete",!,"the work orders instead of closing them. Finally, you should use the 'Manual"
  • Line Location: PROCS+17
Function Call: WRITE
  • Prompt: !,"Equipment Selection for Y2K' option [ENY2KIND], which is under 'Y2K Data Entry'",!,"[ENY2K_ENTRY], to enter correct Y2K information for the subject equipment."
  • Line Location: PROCS+18
Function Call: WRITE
  • Prompt: !!,"Please enter any equipment entry numbers that should be removed from the",!,"closeout list:"
  • Line Location: PROCS+19
Function Call: WRITE
  • Prompt: !!,"There's nothing left to close out. Data base unchanged."
  • Line Location: PROCS+22
Function Call: WRITE
  • Prompt: !!,COUNT("Y2KWO")-COUNT("Y2KWO","REMOVE")_" Y2K work orders are about to be closed out. Are you sure that",!,"you want to proceed?"
  • Line Location: PROCS+23
Function Call: WRITE
  • Prompt: !,COUNT_" Y2K work orders were closed."
  • Line Location: PROCD+2
Function Call: WRITE
  • Prompt: !,"Work orders for the following "_COUNT("LOCK")_" equipment records could not be",!,"locked and were, therefore, not processed:"
  • Line Location: PROCD+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PROCD+6
Function Call: WRITE
  • Prompt: !,?10,EQDA
  • Line Location: PROCD+7
Function Call: WRITE
  • Prompt: !!,"There are no open Y2K work orders that can be closed. Data base unchanged."
  • Line Location: FIRST+5
Function Call: WRITE
  • Prompt: !!,"You will be prompted to close the first Y2K work order manually, after which",!,"the system will take care of the others automatically."
  • Line Location: FIRST+6
Function Call: WRITE
  • Prompt: !!,"EQUIPMENT ID#: "_EQDA_" "_SORT_" "_$E($$GET1^DIQ(6914,EQDA,1),1,20)_" "_$E($$GET1^DIQ(6914,EQDA,4),1,20)
  • Line Location: FIRST+7
Function Call: WRITE
  • Prompt: !,"The work order was not closed out. Terminating the option."
  • Line Location: FIRST+10
Function Call: WRITE
  • Prompt: "Y2K Work Orders Now Subject to Rapid Closeout "_DATE("PRNT")_" Page: "_PAGE
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"Work Order Number",?25,"Equipment Entry Number"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+4
Function Call: READ
  • Timeout: DTIME
  • Line Location: HOLD+0

FileMan Files Accessed Via FileMan Db Call

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