Sub-Field: 9009013.151

Parent File	Name	Number	Package
9009013.15	CHART DEFICIENCY	9009013.151	IHS Changes To ADT

Parent File

Name

Number

Package

CHART DEFICIENCY

9009013.151

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CHART DEFICIENCY	0;1	POINTER TO CHART DEFICIENCY-OLD FILE (#9009013.5)	CHART DEFICIENCY-OLD(#9009013.5) INPUT TRANSFORM: `S DIC("S")="I $P(^ADGCD(+Y,0),U,4)'=0" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAY 29, 1996` SCREEN: `S DIC("S")="I $P(^ADGCD(+Y,0),U,4)'=0"` EXPLANATION: `ONLY ACTIVE CHART DEFICIENCIES` CROSS-REFERENCE: `9009013.151^B` 1)= S ^ADGIC(DA(3),"D",DA(2),"P",DA(1),"C","B",$E(X,1,30),DA)="" 2)= K ^ADGIC(DA(3),"D",DA(2),"P",DA(1),"C","B",$E(X,1,30),DA)

CHART DEFICIENCY

0;1

POINTER TO CHART DEFICIENCY-OLD FILE (#9009013.5)

INPUT TRANSFORM: S DIC("S")="I $P(^ADGCD(+Y,0),U,4)'=0" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 29, 1996
SCREEN: S DIC("S")="I $P(^ADGCD(+Y,0),U,4)'=0"
EXPLANATION: ONLY ACTIVE CHART DEFICIENCIES

CROSS-REFERENCE: 9009013.151^B

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

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