Sub-Field: 9000001.85

Parent File	Name	Number	Package
PATIENT(#9000001)	HOMELESS STATUS QUESTION DATE	9000001.85	IHS Patient

Parent File

Name

Number

Package

HOMELESS STATUS QUESTION DATE

9000001.85

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	HOMELESS STATUS QUESTION DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `FEB 16, 2010` HELP-PROMPT: `(No range limit on date)` CROSS-REFERENCE: `9000001.85^B` 1)= S ^AUPNPAT(DA(1),85,"B",$E(X,1,30),DA)="" 2)= K ^AUPNPAT(DA(1),85,"B",$E(X,1,30),DA)
.02	HOMELESS STATUS	0;2	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `FEB 16, 2010`
.03	HOMELESS TYPE	0;3	SET	'H' FOR HOMELESS SHELTER; 'T' FOR TRANSITIONAL; 'D' FOR DOUBLING UP; 'S' FOR STREET; 'O' FOR OTHER; 'U' FOR UNKNOWN; LAST EDITED: `FEB 16, 2010`

HOMELESS STATUS QUESTION DATE

0;1

DATE

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

CROSS-REFERENCE: 9000001.85^B

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

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

HOMELESS STATUS

0;2

SET

HOMELESS TYPE

0;3

SET