Sub-Field: 26.112

Parent File	Name	Number	Package
PRF LOCAL FLAG(#26.11)	PRINCIPAL INVESTIGATOR(S)	26.112	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 08, 2004` 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.` EXECUTABLE HELP: `I $D(DGLKUP) D PIHELP^DGPFDD` `UNEDITABLE` CROSS-REFERENCE: `26.112^B` `1)= S ^DGPF(26.11,DA(1),2,"B",$E(X,1,30),DA)=""` `2)= K ^DGPF(26.11,DA(1),2,"B",$E(X,1,30),DA)` FIELD INDEX: `C (#645) REGULAR IR LOOKUP & SORTING WHOLE FILE (#26.11)` `Short Descr: Lookup & Sort by PRINCIPAL INVESTIGATOR and NAME fields.` `Set Logic: S ^DGPF(26.11,"C",X,DA(1),DA)=""` `Kill Logic: K ^DGPF(26.11,"C",X,DA(1),DA)` `Whole Kill: K ^DGPF(26.11,"C")` `X(1): PRINCIPAL INVESTIGATOR(S) (26.112,.01) (Subscr 1) (forwards)`

PRINCIPAL INVESTIGATOR(S)

0;1

POINTER TO NEW PERSON FILE (#200)

LAST EDITED: MAR 08, 2004
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.
EXECUTABLE HELP: I $D(DGLKUP) D PIHELP^DGPFDD
UNEDITABLE
CROSS-REFERENCE: 26.112^B
1)= S ^DGPF(26.11,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^DGPF(26.11,DA(1),2,"B",$E(X,1,30),DA)
FIELD INDEX: C (#645) REGULAR IR LOOKUP & SORTING WHOLE FILE (#26.11)
Short Descr: Lookup & Sort by PRINCIPAL INVESTIGATOR and NAME fields.
Set Logic: S ^DGPF(26.11,"C",X,DA(1),DA)=""
Kill Logic: K ^DGPF(26.11,"C",X,DA(1),DA)
Whole Kill: K ^DGPF(26.11,"C")
X(1): PRINCIPAL INVESTIGATOR(S) (26.112,.01) (Subscr 1) (forwards)