INPUT TRANSFORM: S DIC("S")="I $$RGLSCR^PXRMDLG5(DA,X,Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 10, 2009
DESCRIPTION:
SCREEN: S DIC("S")="I $$RGLSCR^PXRMDLG5(DA,X,Y)"
EXPLANATION: Only result groups associated with the selected MH test are allowed
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 801.41121^B
1)= S ^PXRMD(801.41,DA(1),51,"B",$E(X,1,30),DA)=""
2)= K ^PXRMD(801.41,DA(1),51,"B",$E(X,1,30),DA)
FIELD INDEX: RG (#715) REGULAR IR LOOKUP & SORTING WHOLE FILE (#801.41)
Short Descr: Whole-file regular 'RG' index
Description: This RG cross-reference is created when a result group is assigned to a parent element. It is killed when a result group is deleted from a parent element. This cross-reference is used to determine if a result group is
used by a parent element for reporting purposes. If a result group is included in this cross-reference then it is assigned to a parent element and accordingly the result group cannot be deleted.
Set Logic: S ^PXRMD(801.41,"RG",X,DA(1),DA)=""
Kill Logic: K ^PXRMD(801.41,"RG",X,DA(1),DA)
Whole Kill: K ^PXRMD(801.41,"RG")
X(1): RESULT GROUP (801.41121,.01) (Subscr 1) (forwards)