Sub-Field: 811.62

Parent File	Name	Number	Package
REMINDER SPONSOR(#811.6)	ASSOCIATED SPONSORS	811.62	Clinical Reminders

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ASSOCIATED SPONSORS	0;1	POINTER TO REMINDER SPONSOR FILE (#811.6)	REMINDER SPONSOR(#811.6) INPUT TRANSFORM: `K:'$$VASP^PXRMINTR(DA,X) X` LAST EDITED: `DEC 23, 2004` HELP-PROMPT: `Enter an ASSOCIATED SPONSOR.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `811.62^B` 1)= S ^PXRMD(811.6,DA(1),2,"B",$E(X,1,30),DA)="" 2)= K ^PXRMD(811.6,DA(1),2,"B",$E(X,1,30),DA) FIELD INDEX: `C (#627) REGULAR IR LOOKUP & SORTING WHOLE FILE (#811.6)` Short Descr: Determine if a sponsor is used as an associate sponsor. Description: This cross-reference is used to determine if a sponsor is being used as an associated sponsor. Set Logic: S ^PXRMD(811.6,"C",X,DA(1),DA)="" Kill Logic: K ^PXRMD(811.6,"C",X,DA(1),DA) Whole Kill: K ^PXRMD(811.6,"C") X(1): ASSOCIATED SPONSORS (811.62,.01) (Subscr 1) (forwards)

ASSOCIATED SPONSORS

0;1

POINTER TO REMINDER SPONSOR FILE (#811.6)

CROSS-REFERENCE: 811.62^B

1)= S ^PXRMD(811.6,DA(1),2,"B",$E(X,1,30),DA)=""

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

FIELD INDEX: C (#627) REGULAR IR LOOKUP & SORTING WHOLE FILE (#811.6)

Short Descr:  Determine if a sponsor is used as an associate sponsor.

Description:  This cross-reference is used to determine if a sponsor is being used as an associated sponsor.

Set Logic:  S ^PXRMD(811.6,"C",X,DA(1),DA)=""

Kill Logic:  K ^PXRMD(811.6,"C",X,DA(1),DA)

Whole Kill:  K ^PXRMD(811.6,"C")

X(1):  ASSOCIATED SPONSORS  (811.62,.01)  (Subscr 1)  (forwards)