Sub-Field: 26.152

Parent File	Name	Number	Package
PRF NATIONAL FLAG(#26.15)	PRINCIPAL INVESTIGATOR(S)	26.152	Registration

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PRINCIPAL INVESTIGATOR(S)	0;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 01, 2005` HELP-PROMPT: `Enter the Principal Investigator name` DESCRIPTION: This field contains the name of the Principal Investigator associated with the Research Type of this Patient Record Flag. UNEDITABLE CROSS-REFERENCE: `26.152^B` 1)= S ^DGPF(26.15,DA(1),2,"B",$E(X,1,30),DA)="" 2)= K ^DGPF(26.15,DA(1),2,"B",$E(X,1,30),DA) FIELD INDEX: `C (#343) REGULAR IR LOOKUP & SORTING WHOLE FILE (#26.15)` Short Descr: Lookup & Sort by PRINCIPAL INVESTIGATOR and NAME fields. Set Logic: S ^DGPF(26.15,"C",X,DA(1),DA)="" Kill Logic: K ^DGPF(26.15,"C",X,DA(1),DA) Whole Kill: K ^DGPF(26.15,"C") X(1): PRINCIPAL INVESTIGATOR(S) (26.152,.01) (Subscr 1) (forwards)

PRINCIPAL INVESTIGATOR(S)

0;1

POINTER TO NEW PERSON FILE (#200)

DESCRIPTION:

This field contains the name of the Principal Investigator associated with the Research Type of this Patient Record Flag.

UNEDITABLE

CROSS-REFERENCE: 26.152^B

1)= S ^DGPF(26.15,DA(1),2,"B",$E(X,1,30),DA)=""

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

FIELD INDEX: C (#343) REGULAR IR LOOKUP & SORTING WHOLE FILE (#26.15)

Short Descr:  Lookup & Sort by PRINCIPAL INVESTIGATOR and NAME fields.

Set Logic:  S ^DGPF(26.15,"C",X,DA(1),DA)=""

Kill Logic:  K ^DGPF(26.15,"C",X,DA(1),DA)

Whole Kill:  K ^DGPF(26.15,"C")

X(1):  PRINCIPAL INVESTIGATOR(S)  (26.152,.01)  (Subscr 1)  (forwards)