Global: ^AUPNADVD

Information

FileMan FileNo	FileMan Filename	Package
9000040	ADVANCE DIRECTIVE	IHS Patient

Package	Total	Routines
Patient Care Component Table Maintiance	5	APCM11E6 APCM13E6 APCM14E6 APCM24E6 APCM25E6
Health Summary Components	1	BHSBDEM
Patient Care Component	1	APCHS1C
iCare	1	BQIRGHQC

Package	Total	Routines
IHS Patient Registration	1	AGED11A

Package	Total	FileMan Files
IHS Patient	2	ELIGIBILITY MODIFIERS(#9000030)[#9000040.11(.03)] PATIENT(#9000001)[.01]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PATIENT NAME	0;1	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) INPUT TRANSFORM: `S:$D(X) DINUM=X` LAST EDITED: `MAR 17, 2004` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000040^B` 1)= S ^AUPNADVD("B",$E(X,1,30),DA)="" 2)= K ^AUPNADVD("B",$E(X,1,30),DA)
1101	DATE OF ENTRY	11;0	DATE Multiple #9000040.11	9000040.11

PATIENT NAME

0;1

POINTER TO PATIENT FILE (#9000001)

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

CROSS-REFERENCE: 9000040^B

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

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

1101 DATE OF ENTRY 11;0 DATE Multiple #9000040.11 9000040.11