Sub-Field: 9000094.12

Parent File	Name	Number	Package
TREATMENT PLAN(#9000094)	TEAM MEMBERS	9000094.12	IHS Patient

Parent File

Name

Number

Package

TEAM MEMBERS

9000094.12

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	TEAM MEMBERS	0;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y)),$P($G(^VA(200,+Y,""PS"")),U,4)=""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 11, 2009` SCREEN: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y)),$P($G(^VA(200,+Y,""PS"")),U,4)="""""` EXPLANATION: `Must be an active provider.` CROSS-REFERENCE: `9000094.12^B` 1)= S ^AUPNTP(DA(1),12,"B",$E(X,1,30),DA)="" 2)= K ^AUPNTP(DA(1),12,"B",$E(X,1,30),DA)

TEAM MEMBERS

0;1

POINTER TO NEW PERSON FILE (#200)

INPUT TRANSFORM: S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y)),$P($G(^VA(200,+Y,""PS"")),U,4)=""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 11, 2009
SCREEN: S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y)),$P($G(^VA(200,+Y,""PS"")),U,4)="""""
EXPLANATION: Must be an active provider.

CROSS-REFERENCE: 9000094.12^B

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

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