Sub-Field: 9009017.51

Parent File	Name	Number	Package
PRIMARY CARE TEAMS(#9009017.5)	PROVIDER	9009017.51	IHS Changes To Scheduling

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PROVIDER	0;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y)),$P($G(^VA(200,+Y,""PS"")),U,4)=""""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `AUG 06, 2001` HELP-PROMPT: `Enter the primary care providers attached to this team.` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y)),$P($G(^VA(200,+Y,""PS"")),U,4)="""""` EXPLANATION: `ACTIVE PROVIDERS ONLY` CROSS-REFERENCE: `9009017.51^B` 1)= S ^BSDPCT(DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^BSDPCT(DA(1),1,"B",$E(X,1,30),DA) CROSS-REFERENCE: `9009017.5^AB` 1)= S ^BSDPCT("AB",$E(X,1,30),DA(1),DA)="" 2)= K ^BSDPCT("AB",$E(X,1,30),DA(1),DA) 3)= FIND TEAM FOR A PROVIDER

PROVIDER

0;1

POINTER TO NEW PERSON FILE (#200)

INPUT TRANSFORM: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y)),$P($G(^VA(200,+Y,""PS"")),U,4)=""""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
LAST EDITED: AUG 06, 2001
HELP-PROMPT: Enter the primary care providers attached to this team.
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y)),$P($G(^VA(200,+Y,""PS"")),U,4)="""""
EXPLANATION: ACTIVE PROVIDERS ONLY

CROSS-REFERENCE: 9009017.51^B

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

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

CROSS-REFERENCE: 9009017.5^AB

1)= S ^BSDPCT("AB",$E(X,1,30),DA(1),DA)=""

2)= K ^BSDPCT("AB",$E(X,1,30),DA(1),DA)

3)= FIND TEAM FOR A PROVIDER