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

Package: Engineering

Routine: ENY2K5


Information

ENY2K5 ;(WASH ISC)/DH-Generate Y2K Work Orders ;7.15.99

Source Information

Source file <ENY2K5.m>

Entry Points

Name Comments DBIA/ICR reference
PR ; Begin
PR1
PR2 ; need a work order?
PR22 ; must create a new work order from the top
; ENWO as set in line PR1+1 or from ENWO("T")
PR221
PR222 ; create a work order when you already have the number
PR3 ; do the printing
EMP
WOCST
HOLD
TRLR ; Interpret PM STATUS and CONDITION CODE
COMP ; devices with completed Y2K work orders (exception messages)
OUT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"A Y2K Worklist was requested, but there's nothing to print."
  • Line Location: PR+2
Function Call: WRITE
  • Prompt: !,?5,"Run time: "_Y
  • Line Location: PR+3
Function Call: WRITE
  • Prompt: !,?5,"Shop: "_$S(ENSHKEY("SEL")="ALL":"ALL",1:$P(^DIC(6922,ENSHKEY("SEL"),0),U))
  • Line Location: PR+4
Function Call: WRITE
  • Prompt: !,?5,"Estimated Y2K Compliance Date: "_ENY2DT("E")
  • Line Location: PR+5
Function Call: WRITE
  • Prompt: !!,"Abnormal termination. This worklist may be incomplete."
  • Line Location: PR+17
Function Call: WRITE
  • Prompt: !!,"There are no incomplete Y2K work orders to print.",!
  • Line Location: HOLD+0
Function Call: READ
  • Timeout: DTIME
  • Line Location: HOLD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TRLR+2
Function Call: WRITE
  • Prompt: K
  • Line Location: TRLR+3
Function Call: WRITE
  • Prompt: !,"FC=>Y2K compliant NC=>Y2K non-compliant NA=>Not applicable (no Y2K issues)"
  • Line Location: TRLR+4
Function Call: WRITE
  • Prompt: !,"CNL=>Could not locate TI=>Turned-in"
  • Line Location: TRLR+5
Function Call: WRITE
  • Prompt: @IOF,"DEVICES WITH COMPLETED Y2K WORK ORDERS "_ENDATE_" Page "_ENPG
  • Line Location: COMP+3
Function Call: WRITE
  • Prompt: !!,"The following device(s) have a Y2K CATEGORY of CONDITIONALLY COMPLIANT and",!,"yet their Y2K work order(s) are complete. They are not being printed on",!,"this Y2K worklist."
  • Line Location: COMP+4
Function Call: WRITE
  • Prompt: !!,"You should probably use the 'Manual Equipment Selection for Y2K' option to",!,"change their Y2K CATEGORY to COMPLIANT."
  • Line Location: COMP+5
Function Call: WRITE
  • Prompt: !,X,!
  • Line Location: COMP+6
Function Call: WRITE
  • Prompt: !,?10,DA,?25,"("_^TMP($J,"ENY2","COMP",DA)_")"
  • Line Location: COMP+7

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