Sub-Field: 161.831

Parent File	Name	Number	Package
FEE BASIS ID CARD AUDIT(#161.83)	DATE/TIME CARD NUMBER CHANGED	161.831	Fee Basis

Details

Field #	Name	Loc	Type	Details
.01	DATE/TIME CARD NUMBER CHANGED	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=(9999999.9999-X)` LAST EDITED: `APR 11, 1986` DESCRIPTION: `The date and time the ID card number was changed for this veteran.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1	CARD NUMBER	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<5) X` LAST EDITED: `APR 11, 1986` HELP-PROMPT: `ANSWER MUST BE 5-7 CHARACTERS IN LENGTH` DESCRIPTION: `The ID card number before it was changed.` CROSS-REFERENCE: `161.83^C` `1)= S ^FBAA(161.83,"C",$E(X,1,30),DA(1),DA)=""` `2)= K ^FBAA(161.83,"C",$E(X,1,30),DA(1),DA)`
2	REASON FOR CHANGE	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>80!($L(X)<2) X` LAST EDITED: `APR 11, 1986` HELP-PROMPT: `ANSWER MUST BE 2-80 CHARACTERS IN LENGTH` DESCRIPTION: `The reason the ID card number was changed.`
3	PERSON WHO CHANGED	0;4	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `APR 05, 1990` DESCRIPTION: `The clerk/user who changed the veterans ID card.`