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
Print Page as PDF
Routine: ENY2KA

Package: Engineering

Routine: ENY2KA


Information

ENY2KA ;;(WIRMFO)/DH-Equipment Y2K Management ;5.12.98

Source Information

Source file <ENY2KA.m>

Entry Points

Name Comments DBIA/ICR reference
MEN ; data entry by MANUFACTURER EQUIPMENT NAME
; menu option disabled at request of Technical Advisory Group
; thought to be too confusing and of limited utility
MEN1
EXIT

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Please enter MANUFACTURER EQUIPMENT NAME: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: MEN1+1
Function Call: WRITE
  • Prompt: !!,"Please enter a MANUFACTURER EQUIPMENT NAME, of the form"
  • Line Location: MEN1+2
Function Call: WRITE
  • Prompt: !,?10,$O(^ENG(6914,"H",J))
  • Line Location: MEN1+2
Function Call: WRITE
  • Prompt: " ("_MEN_")"
  • Line Location: MEN1+4
Function Call: WRITE
  • Prompt: !,"Another user is editing this MANUFACTURER EQUIPMENT NAME. Can't proceed."
  • Line Location: MEN1+8
Function Call: WRITE
  • Prompt: !!,"There are no active equipment records whose MANUFACTURER EQUIPMENT NAME",!,"is "_MEN_"."
  • Line Location: MEN1+12
Function Call: WRITE
  • Prompt: !!,"There are "_COUNT_" active equipment records whose MANUFACTURER EQUIPMENT",!,"NAME is "_MEN_". Do you wish to proceed?"
  • Line Location: MEN1+13
Info |  Source |  Entry Points |  Interaction Calls