STANDARD DATA DICTIONARY #6918 -- Y2K CATEGORY LOG FILE                                                           3/24/25    PAGE 1
STORED IN ^ENG(6918,  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                        (VERSION 7.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Record of all transactions made via the NX Y2K Equipment Management Module (patch EN*7*51).  
 
File to be deleted some time after the year 20000.  


              DD ACCESS: @
              RD ACCESS: @
              WR ACCESS: @
             DEL ACCESS: @
           LAYGO ACCESS: @
           AUDIT ACCESS: @

CROSS
REFERENCED BY: EQUIPMENT ENTRY(B), CHANGE DATE/TIME(C)



6918,.01      EQUIPMENT ENTRY        0;1 POINTER TO EQUIPMENT INV. FILE (#6914) (Required)

              LAST EDITED:      MAR 06, 1998 
              DESCRIPTION:
                                Pointer to the VistA Equipment file (#6914), which is DINUMED.  

              CROSS-REFERENCE:  6918^B 
                                1)= S ^ENG(6918,"B",$E(X,1,30),DA)=""
                                2)= K ^ENG(6918,"B",$E(X,1,30),DA)


6918,1        CHANGE DATE/TIME       1;0 DATE Multiple #6918.01 (Add New Entry without Asking)


6918.01,.01     CHANGE DATE/TIME       0;1 DATE

                INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:3100000X) X
                LAST EDITED:      MAR 09, 1998 
                HELP-PROMPT:      TYPE A DATE BETWEEN 1980 AND 2010 
                DESCRIPTION:      The date/time on which a Y2K CATEGORY change (including fresh entries) is made. Automatically
                                  populated by Y2K software in the VistA Engineering Package.  

                CROSS-REFERENCE:  6918.01^B 
                                  1)= S ^ENG(6918,DA(1),1,"B",$E(X,1,30),DA)=""
                                  2)= K ^ENG(6918,DA(1),1,"B",$E(X,1,30),DA)

                CROSS-REFERENCE:  6918^C 
                                  1)= S ^ENG(6918,"C",$E(X,1,30),DA(1),DA)=""
                                  2)= K ^ENG(6918,"C",$E(X,1,30),DA(1),DA)


6918.01,1       Y2K CATEGORY           0;2 SET (Required)

                                  'FC' FOR FULLY COMPLIANT; 
                                  'NC' FOR NON-COMPLIANT; 
                                  'CC' FOR CONDITIONALLY COMPLIANT; 
                                  'NA' FOR NOT APPLICABLE; 
                LAST EDITED:      MAR 06, 1998 
                DESCRIPTION:
                                  Automatically populated by AEMS/MERS software.  


6918.01,2       USER                   0;3 POINTER TO NEW PERSON FILE (#200)

                LAST EDITED:      MAR 06, 1998 
                DESCRIPTION:
                                  The user who made this change. Automatically populated by AEMS/MERS software.  





      FILES POINTED TO                      FIELDS

EQUIPMENT INV. (#6914)            EQUIPMENT ENTRY (#.01)

NEW PERSON (#200)                 CHANGE DATE/TIME:USER (#2)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):