Sub-Field: 9000001.8901

Parent File	Name	Number	Package
PATIENT(#9000001)	PHR HANDOUT DATE	9000001.8901	IHS Patient

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PHR HANDOUT DATE	0;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:DT` `LAST EDITED: MAY 24, 2013` `HELP-PROMPT: Current or past dates only.` `NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `CROSS-REFERENCE: 9000001.8901^B` `1)= S ^AUPNPAT(DA(1),89,"B",$E(X,1,30),DA)=""` `2)= K ^AUPNPAT(DA(1),89,"B",$E(X,1,30),DA)`
.02	HANDOUT	0;2	SET	**********************REQUIRED FIELD********************** '1' FOR YES; LAST EDITED: `MAY 28, 2013` HELP-PROMPT: `Enter '1' or 'Y' if the patient has received a PHR access handout.` CROSS-REFERENCE: `9000001^AHD^MUMPS` 1)= S ^AUPNPAT(DA(1),89,"AHD",DA,X)="" 2)= K ^AUPNPAT(DA(1),89,"AHD",DA,X)

PHR HANDOUT DATE

0;1

DATE

CROSS-REFERENCE: 9000001.8901^B

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

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

HANDOUT

0;2

SET

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

LAST EDITED: MAY 28, 2013
HELP-PROMPT: Enter '1' or 'Y' if the patient has received a PHR access handout.

CROSS-REFERENCE: 9000001^AHD^MUMPS

1)= S ^AUPNPAT(DA(1),89,"AHD",DA,X)=""

2)= K ^AUPNPAT(DA(1),89,"AHD",DA,X)