Global: ^AUTTQUAN

FileMan FileNo	FileMan Filename	Package
9999999.35	QUANTUM CODE	Utility Tables

Description

Changes to this data dictionary should be coordinated thru the IHS DBA. This file reflects values in the IHS Standard Code Book, Section II, Blood Quantum. Local additions or modifications should not be made. Monthly updates (if required) are provided by the IHS DBA thru the patch module.

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CODE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1)!'(X?1N) X` HELP-PROMPT: `ANSWER MUST BE 1 CHARACTER IN LENGTH` DELETE TEST: `.01,0)= I 1` CROSS-REFERENCE: `9999999.35^B` 1)= S ^AUTTQUAN("B",$E(X,1,30),DA)="" 2)= K ^AUTTQUAN("B",$E(X,1,30),DA)
.02	TEXT	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>7!($L(X)<3) X` HELP-PROMPT: `ANSWER MUST BE 3-7 CHARACTERS IN LENGTH`

CODE

0;1

FREE TEXT

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

CROSS-REFERENCE: 9999999.35^B

1)= S ^AUTTQUAN("B",$E(X,1,30),DA)=""

2)= K ^AUTTQUAN("B",$E(X,1,30),DA)

TEXT

0;2

FREE TEXT

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