Sub-Field: 9000001.71

Information

Parent File	Name	Number	Package
PATIENT(#9000001)	ASSIGN BENEFITS OBTAINED DATE	9000001.71	IHS Patient

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ASSIGN BENEFITS OBTAINED DATE	0;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `SEP 08, 2004` HELP-PROMPT: `(No range limit on date)` CROSS-REFERENCE: `9000001.71^B` 1)= S ^AUPNPAT(DA(1),71,"B",$E(X,1,30),DA)="" 2)= K ^AUPNPAT(DA(1),71,"B",$E(X,1,30),DA)
.02	ASSIGN BENEFITS EXPIRED DATE	0;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `SEP 08, 2004` HELP-PROMPT: `(No range limit on date)`

ASSIGN BENEFITS OBTAINED DATE

0;1

DATE

CROSS-REFERENCE: 9000001.71^B

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

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

ASSIGN BENEFITS EXPIRED DATE

0;2

DATE