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 (#1598) 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)

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 (#1598) 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)