Sub-Field: 6918.01

Parent File	Name	Number	Package
Y2K CATEGORY LOG(#6918)	CHANGE DATE/TIME	6918.01	Engineering

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.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)`
1	Y2K CATEGORY	0;2	SET	**********************REQUIRED FIELD********************** '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.`
2	USER	0;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 06, 1998` DESCRIPTION: `The user who made this change. Automatically populated by AEMS/MERS software.`

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)

Y2K CATEGORY

0;2

SET

************************REQUIRED FIELD************************

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.