Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 5 (,IX)^DIC  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Engineering 1 ENY2K_CLOSE  

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')

External References

Name Field # of Occurrence
^DIC GETWO+10
IX^DIC GETWO+3
^DIE CLSWO+7, CLSWO+8, CLSWO+10, CLSWO+13
^DIK DEL+3
$$GET1^DIQ CLSWO+1
^DIR CLSWO+3

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
Routine Call
  • DIC
  • Line Location:
    • GETWO+10
Routine Call
  • DIC
  • Line Location:
    • GETWO+3
Routine Call
  • DIE
  • Line Location:
    • CLSWO+7
    • CLSWO+8
    • CLSWO+10
    • CLSWO+13
Routine Call
  • DIR
  • Line Location:
    • CLSWO+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6914 - [#6914] Classic Fileman Calls,  GET1^DIQ
^ENG(6920 - [#6920] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIE("B" CLSWO+9
^ENG(6914 - [#6914] CO1+5, CO3+6, CLSWO+1, DEL+2*
^ENG(6920 - [#6920] CO1+3, CO1+4, CO1+6, CO2, CO3+4, CO3+5, CO3+7, CLSWO+10, CLSWO+11, CLSWO+12
, CLSWO+14

Label References

Name Line Occurrences
CLSWO CO1+7, CO3+8
CO1 CO1+2, CO1+4, CO1+5, CO1+6
CO2 CO2, CO3+5, CO3+6, CO3+7, CO3+9
CO3 CO3+3
DEL CO1+4, CO1+5, CO3+5, CO3+6, CLSWO+6
EXIT CO1+1, CO1+7, CO2, CO3, CO3+8
GETWO CO1+2, CO3+3

Naked Globals

Name Field # of Occurrence
^(0 CLSWO+1
^(4 CLSWO+12
^(5 CLSWO+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
COST CO+1~, CLSWO+12*
>> D GETWO+3, GETWO+4*, GETWO+5*, GETWO+6*
DA CO+1~, CO1+3*, CO1+4, CO1+6, CO3+4*, CO3+5, CO3+7, CLSWO+7*, CLSWO+10, CLSWO+11*
, CLSWO+12, CLSWO+13*, CLSWO+14
DATE CO+1~, CLSWO+12*
DIC CO+1~, GETWO+2*
DIC("S" GETWO+2*
DIC(0 GETWO+3*, GETWO+10*
DIE CO+1~, CLSWO+7*, CLSWO+10*, CLSWO+13*
DIK DEL+3*!
DIR CLSWO+2!, CLSWO+3!
DIR("B" CLSWO+2*
DIR(0 CLSWO+2*
>> DIRUT CO1+7, CO3+8, CLSWO+3
DR CO+1~, CLSWO+7*, CLSWO+8*, CLSWO+9*, CLSWO+13*
DTIME CO1+1, CO3, HOLD
>> DTOUT CO1+7, CO3+8
EN1 EXIT!
ENLOC EXIT!
ENSHABR EXIT!
ENSHOP EXIT!
ENX CO+1~, CO1+1!*, CO3!*, CO3+1*, CO3+2*, GETWO+3, GETWO+5, GETWO+6, GETWO+7, GETWO+10
ENY CO+1~, HOLD+1*
ENY2K CO+1~
ENY2K("CAT" CLSWO+4*, CLSWO+5, CLSWO+8
ENY2WO CO1+3*, CO2*, CO3+1, CO3+4*, EXIT!
ENY2WO(1 CO2*, CO3, CO3+2
EQDA CO+1~, CO1+4*, CO1+5, CO3+5*, CO3+6, CLSWO+1, CLSWO+7, CLSWO+13, DEL+2
IOF CO+2
IOST HOLD
U CO1+3, CO1+4, CO2, CO3+4, CO3+5, CLSWO+1, CLSWO+11, CLSWO+12, DEL+2
WODA CO+1~, CO1+3*, CO3+4*, CLSWO+11
>> X CO3+1*, HOLD*, GETWO+3*, GETWO+10*
>> Y CO1+2, CO1+3, CO3+3, CO3+4, CLSWO+4, CLSWO+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All