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

Package: Engineering

Routine: ENY2K


Information

ENY2K ;;(WIRMFO)/DH-Equipment Y2K Management ;5.18.98

Source Information

Source file <ENY2K.m>

Entry Points

Name Comments DBIA/ICR reference
IND ; data entry for manually selected equipment list
CAT ; data entry by EQUIPMENT CATEGORY
CAT1
CSN ; data entry by CATEGORY STOCK NUMBER
CSN1
MFG ; data entry by MANUFACTURER (all models)
MFG1
LOC ; data entry by LOCAL ID
MOD ; data entry by MANUFACTURER and MODEL
MOD1
MOD2
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"First we'll get answers for the Y2K questions, then we'll ask for an",!,"equipment list.",!
  • Line Location: IND+4
Function Call: WRITE
  • Prompt: !,?5,"Sorry, but "_+Y_" is not an active equipment record."
  • Line Location: IND+11
Function Call: WRITE
  • Prompt: !!,"You have selected "_COUNT_" equipment records for updating."
  • Line Location: IND+15
Function Call: WRITE
  • Prompt: !,"Do you wish to proceed?"
  • Line Location: IND+16
Function Call: WRITE
  • Prompt: !
  • Line Location: CAT1+0
Function Call: WRITE
  • Prompt: !,"Another user is editing this equipment category. Can't proceed."
  • Line Location: CAT1+3
Function Call: WRITE
  • Prompt: !!,"There are no active equipment records in the EQUIPMENT CATEGORY of",!,CAT_"."
  • Line Location: CAT1+7
Function Call: WRITE
  • Prompt: !!,"There are "_COUNT_" active equipment records in the "_CAT,!,"EQUIPMENT CATEGORY. Do you wish to proceed?"
  • Line Location: CAT1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: CSN1+0
Function Call: WRITE
  • Prompt: !,"Another user is editing this CATEGORY STOCK NUMBER. Can't proceed."
  • Line Location: CSN1+3
Function Call: WRITE
  • Prompt: !!,"There are no active equipment records whose CATEGORY STOCK NUMBER is",!,CSN_"."
  • Line Location: CSN1+7
Function Call: WRITE
  • Prompt: !!,"There are "_COUNT_" active equipment records whose CATEGORY STOCK ",!,"NUMBER is "_CSN_". Do you wish to proceed?"
  • Line Location: CSN1+8
Function Call: WRITE
  • Prompt: !,"Another user is editing this MANUFACTURER. Can't proceed."
  • Line Location: MFG1+3
Function Call: WRITE
  • Prompt: !!,"There are no active equipment entries manufactured by "_MFG_"."
  • Line Location: MFG1+7
Function Call: WRITE
  • Prompt: !!,"There are "_COUNT_" equipment entries that were manufactured by",!,MFG_". Do you wish to proceed?"
  • Line Location: MFG1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: MOD1+0
Function Call: WRITE
  • Prompt: !!,"There are no active equipment records for devices made by",!,MFG_"."
  • Line Location: MOD1+3
Function Call: READ
  • Formatting: !
  • Prompt: "Please enter the MODEL (as recorded in Equipment File): "
  • Variable: X
  • Timeout: DTIME
  • Line Location: MOD2+0
Function Call: WRITE
  • Prompt: !,"Enter a valid MODEL number (ex: "_$O(^ENG(6914,"E","M"))_")."
  • Line Location: MOD2+1
Function Call: WRITE
  • Prompt: "??",*7
  • Line Location: MOD2+2
Function Call: WRITE
  • Prompt: !,"Another user is editing this MANUFACTURER~MODEL. Can't proceed."
  • Line Location: MOD2+6
Function Call: WRITE
  • Prompt: !!,"There are no active equipment records for which MANUFACTURER and MODEL are",!,MFG_" and "_MOD_", respectively."
  • Line Location: MOD2+10
Function Call: WRITE
  • Prompt: !!,"There are "_COUNT_" active equipment records that meet your search criteria.",!,"Do you wish to proceed?"
  • Line Location: MOD2+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENCSN(6917 - [#6917] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call