Sub-Field: 9000001.43

Parent File	Name	Number	Package
PATIENT(#9000001)	OTHER TRIBE	9000001.43	IHS Patient

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	OTHER TRIBE	0;1	POINTER TO TRIBE FILE (#9999999.03)	TRIBE(#9999999.03) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),""^"",4)'=""Y""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 09, 1989` SCREEN: `S DIC("S")="I $P(^(0),""^"",4)'=""Y"""` EXPLANATION: `Prevent selection of old tribes` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000001.43^B` 1)= S ^AUPNPAT(DA(1),43,"B",$E(X,1,30),DA)="" 2)= K ^AUPNPAT(DA(1),43,"B",$E(X,1,30),DA)
.02	QUANTUM	0;2	FREE TEXT	INPUT TRANSFORM: `D PAT4302^AUPNPED` LAST EDITED: `DEC 16, 1985` DESCRIPTION: `Enter fraction of tribe in which enrolled , in the form numerator / denominator, or enter F, FULL, N, NONE, UNK, UNKNOWN, UNS, UNSPECIFIED.` EXAMPLES: 1/4, 5/128, 1/1, F, NONE, UNK, UNSPECIFIED NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`

OTHER TRIBE

0;1

POINTER TO TRIBE FILE (#9999999.03)

INPUT TRANSFORM: S DIC("S")="I $P(^(0),""^"",4)'=""Y""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 09, 1989
SCREEN: S DIC("S")="I $P(^(0),""^"",4)'=""Y"""
EXPLANATION: Prevent selection of old tribes
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 9000001.43^B

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

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

QUANTUM

0;2

FREE TEXT

INPUT TRANSFORM: D PAT4302^AUPNPED
LAST EDITED: DEC 16, 1985
DESCRIPTION: Enter fraction of tribe in which enrolled , in the form numerator / denominator, or enter F, FULL, N, NONE, UNK, UNKNOWN, UNS, UNSPECIFIED.
```
EXAMPLES:  1/4, 5/128, 1/1, F, NONE, UNK, UNSPECIFIED
```
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER