Sub-Field: 9009062.021

Information

Parent File	Name	Number	Package
AG ELIGIBILITY UPLOAD LOG(#9009062.02)	PATIENTS ADDED	9009062.021	IHS Patient Registration

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PATIENTS ADDED	0;1	POINTER TO PATIENT FILE (#9000001)	PATIENT(#9000001) INPUT TRANSFORM: `S DINUM=X Q` LAST EDITED: `JUN 20, 2001` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9009062.021^B` 1)= S ^AGELUPLG(DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^AGELUPLG(DA(1),1,"B",$E(X,1,30),DA)

PATIENTS ADDED

0;1

POINTER TO PATIENT FILE (#9000001)

CROSS-REFERENCE: 9009062.021^B

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

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