Sub-Field: 50.07331

Parent File	Name	Number	Package
DUE SECTION(#50.0733)	PROVIDER	50.07331	Outpatient Pharmacy

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")="S X(1)=$G(^(""PS"")) I +X(1),$S('$P(X(1),""^"",4):1,1:$P((X(1),""^"",4)'` `LAST EDITED: FEB 26, 1993` `HELP-PROMPT: Enter a Provider associated with this DUE SECTION.` `DESCRIPTION:` `This multiple field should contain a list of Providers associated with this DUE SECTION.` `SCREEN: S DIC("S")="S X(1)=$G(^(""PS"")) I +X(1),$S('$P(X(1),""^"",4):1,1:$P(X(1),""^"",4)'` `EXPLANATION: Only valid providers are to be selected.` `CROSS-REFERENCE: 50.07331^B` `1)= S ^PS(50.0733,DA(1),10,"B",$E(X,1,30),DA)=""` `2)= K ^PS(50.0733,DA(1),10,"B",$E(X,1,30),DA)`

PROVIDER

0;1

POINTER TO NEW PERSON FILE (#200)

INPUT TRANSFORM: S DIC("S")="S X(1)=$G(^(""PS"")) I +X(1),$S('$P(X(1),""^"",4):1,1:$P((X(1),""^"",4)'
LAST EDITED: FEB 26, 1993
HELP-PROMPT: Enter a Provider associated with this DUE SECTION.

DESCRIPTION:

This multiple field should contain a list of Providers associated with this DUE SECTION.

SCREEN: S DIC("S")="S X(1)=$G(^(""PS"")) I +X(1),$S('$P(X(1),""^"",4):1,1:$P(X(1),""^"",4)'
EXPLANATION: Only valid providers are to be selected.

CROSS-REFERENCE: 50.07331^B

1)= S ^PS(50.0733,DA(1),10,"B",$E(X,1,30),DA)=""

2)= K ^PS(50.0733,DA(1),10,"B",$E(X,1,30),DA)