Sub-Field: 9000001.82

Parent File	Name	Number	Package
PATIENT(#9000001)	PREVIOUS EMAIL ADDRESSES	9000001.82	IHS Patient

Parent File

Name

Number

Package

PREVIOUS EMAIL ADDRESSES

9000001.82

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DATE CHANGED	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 03, 2007` HELP-PROMPT: `(No range limit on date)` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000001.82^B` 1)= S ^AUPNPAT(DA(1),82,"B",$E(X,1,30),DA)="" 2)= K ^AUPNPAT(DA(1),82,"B",$E(X,1,30),DA)
.02	EMAIL ADDRESS	0;2	FREE TEXT	INPUT TRANSFORM: `D EMAIL^AUPNPED` LAST EDITED: `OCT 03, 2007` HELP-PROMPT: `Answer must be 3-65 characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`

DATE CHANGED

0;1

DATE

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

CROSS-REFERENCE: 9000001.82^B

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

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

EMAIL ADDRESS

0;2

FREE TEXT