Sub-Field: 2.0992

Parent File	Name	Number	Package
VA PATIENT(#2)	ICN HISTORY	2.0992	Registration

Details

Field #	Name	Loc	Type	Details
.01	ICN HISTORY	0;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 15, 2000` HELP-PROMPT: `Type a Number between 0 and 999999999999, 0 Decimal Digits` DESCRIPTION: ICN History, to track changes in Integration Control Number for each patient. This will be used by mumps code to perform lookups when ICN can't be found to see if it was used previously. AUDIT: `YES, ALWAYS` CROSS-REFERENCE: `2^AAICN^MUMPS` 1)= S ^DPT("AICN",$E(X,1,30),DA(1))="" 2)= K ^DPT("AICN",$E(X,1,30),DA(1)) This is set up to allow all ICNs in the History file to remain in the AICN cross-reference when re-indexing.
1	ICN CHECKSUM	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 30, 1998` HELP-PROMPT: `Type a Number between 0 and 999999, 0 Decimal Digits` DESCRIPTION: ICN Checksum for ICN entered in multiple.
2	CMOR	0;3	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `JAN 30, 1998` DESCRIPTION: CMOR at the time of the ICN change.
3	DATE/TIME OF CHANGE	0;4	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 30, 1998` DESCRIPTION: Date/Time of change to the ICN.