Sub-Field: 9009013.15

Information

Parent File	Name	Number	Package
9009013.01	PROVIDER	9009013.15	IHS Changes To ADT

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PROVIDER	0;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 28, 1996` CROSS-REFERENCE: `9009013.15^B` 1)= S ^ADGIC(DA(2),"D",DA(1),"P","B",$E(X,1,30),DA)="" 2)= K ^ADGIC(DA(2),"D",DA(1),"P","B",$E(X,1,30),DA) CROSS-REFERENCE: `9009013^AC` 1)= S ^ADGIC("AC",$E(X,1,30),DA(2),DA(1),DA)="" 2)= K ^ADGIC("AC",$E(X,1,30),DA(2),DA(1),DA)
1	CHART DEFICIENCY	C;0	POINTER Multiple #9009013.151	9009013.151

PROVIDER

0;1

POINTER TO NEW PERSON FILE (#200)

CROSS-REFERENCE: 9009013.15^B

1)= S ^ADGIC(DA(2),"D",DA(1),"P","B",$E(X,1,30),DA)=""

2)= K ^ADGIC(DA(2),"D",DA(1),"P","B",$E(X,1,30),DA)

CROSS-REFERENCE: 9009013^AC

1)= S ^ADGIC("AC",$E(X,1,30),DA(2),DA(1),DA)=""

2)= K ^ADGIC("AC",$E(X,1,30),DA(2),DA(1),DA)

1 CHART DEFICIENCY C;0 POINTER Multiple #9009013.151 9009013.151