Sub-Field: 9000001.03601

Information

Parent File	Name	Number	Package
PATIENT(#9000001)	RELEASE OF INFORMATION	9000001.03601	IHS Patient

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	RELEASE OF INFORMATION	0;1	DATE	INPUT TRANSFORM: `S %DT="EX",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X` LAST EDITED: `SEP 23, 2004` HELP-PROMPT: `Must enter todays date or earlier. The date the form was signed.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000001.03601^B` 1)= S ^AUPNPAT(DA(1),36,"B",$E(X,1,30),DA)="" 2)= K ^AUPNPAT(DA(1),36,"B",$E(X,1,30),DA)

RELEASE OF INFORMATION

0;1

DATE

CROSS-REFERENCE: 9000001.03601^B

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

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