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

Package: Engineering

Routine: ENY2KR


Information

ENY2KR ;(WASH ISC)/DH-Individual Y2K Close Out ;6.16.98

Source Information

Source file <ENY2KR.m>

Entry Points

Name Comments DBIA/ICR reference
CO ; close out Y2K worklist
CO1 ; get first Y2K work order
CO2
CO3
EXIT
HOLD
GETWO ; get a Y2K work order
; expects ENX and returns Y (from ^DIC)
CLSWO ; disposition the Y2K work order
DEL ; delete work orders without valid equipment pointers and work orders
; which should not be closed ('NC' and 'NA')

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Closing a Y2K work order normally places the affected piece of equipment in",!,"a Y2K CATEGORY of 'FULLY COMPLIANT' and updates both the Work Order and"
  • Line Location: CO+2
Function Call: WRITE
  • Prompt: !,"Equipment files."
  • Line Location: CO+3
Function Call: WRITE
  • Prompt: !!,"In exceptional cases, this option may also be used to remove an item from",!,"the conditionally compliant list without actually closing its Y2K work"
  • Line Location: CO+4
Function Call: WRITE
  • Prompt: !,"order. If you enter a Y2K CATEGORY of 'NA' rather than 'FC' the system will",!,"automatically delete the Y2K work order. If you enter 'NC' the system will"
  • Line Location: CO+5
Function Call: WRITE
  • Prompt: !,"delete the work order and prompt you for Y2K ACTION."
  • Line Location: CO+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: CO+7
Function Call: READ
  • Formatting: !
  • Prompt: "Please enter first Y2K work order to be closed: "
  • Variable: ENX
  • Timeout: DTIME
  • Line Location: CO1+1
Function Call: WRITE
  • Prompt: !," This work order lacks an equipment pointer and is being deleted."
  • Line Location: CO1+4
Function Call: WRITE
  • Prompt: !," There is no equipment record for this work order. The work order",!,"is being deleted."
  • Line Location: CO1+5
Function Call: WRITE
  • Prompt: !,"Work order being edited by another user. Please try again later."
  • Line Location: CO1+6
Function Call: READ
  • Variable: ENX
  • Timeout: DTIME
  • Line Location: CO3+0
Function Call: WRITE
  • Prompt: !,?10," ("_ENX_")"
  • Line Location: CO3+1
Function Call: WRITE
  • Prompt: !," This work order lacks an equipment pointer and is being deleted."
  • Line Location: CO3+5
Function Call: WRITE
  • Prompt: !," There is no equipment record for this work order. The work order",!,"is being deleted."
  • Line Location: CO3+6
Function Call: WRITE
  • Prompt: !,"Another user is editing this work order. Please try again later."
  • Line Location: CO3+7
Function Call: WRITE
  • Prompt: !," You may use 'E.value' to list W.O.s whose EQUIPMENT ID# equals 'value', or"
  • Line Location: GETWO+8
Function Call: WRITE
  • Prompt: !," 'L.value' to list W.O.s whose LOCATION starts with 'value'."
  • Line Location: GETWO+9
Function Call: WRITE
  • Prompt: !,"EQUIPMENT ID: "_EQDA_" "_$S($P(^ENG(6914,EQDA,0),U,2)]"":$E($P(^(0),U,2),1,20),1:$E($$GET1^DIQ(6914,EQDA,6),1,20))_" "_$E($$GET1^DIQ(6914,EQDA,1),1,20)_" "_$E($$GET1^DIQ(6914,EQDA,4),1,15)
  • Line Location: CLSWO+1
Function Call: WRITE
  • Prompt: !!,"Data base unchanged."
  • Line Location: CLSWO+4

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