Sub-Field: 798.13

Parent File	Name	Number	Package
ROR REGISTRY PARAMETERS(#798.1)	SELECTION RULE	798.13	Clinical Case Registries

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SELECTION RULE	0;1	FREE TEXT	INPUT TRANSFORM: `Q:$$VAEDT^RORDD(798.1,$G(DA(1))) K:$L(X)>40!($L(X)<3)!'(X?3.UNP) X I $D(X) K:'$D(^ROR(798.2,"B",$E(X,1,40))) X` LAST EDITED: `FEB 28, 2014` HELP-PROMPT: `Enter a name of the selection rule (3-40 characters).` DESCRIPTION: `YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A NATIONAL REGISTRY DEFINITION!` `Enter a name of the selection rule that will be used to select patients for addition to the registry. The name should be entered exactly as it appears in the list of selection rules (file #798.2).` TECHNICAL DESCR: `Names of the selection rules are used here instead of pointers because the KIDS pointer resolving feature does not work for .01 fields.` EXECUTABLE HELP: `I $G(X)="??" N D,DIC,DZ S DIC="^ROR(798.2,",DIC(0)="",D="B",DZ="??" D DQ^DICQ,EN^DDIOL("",,"!")` DELETE TEST: `1,0)= I $$VADEL^RORDD(798.1,$G(DA(1)))` `DELETE AUTHORITY: @` `WRITE AUTHORITY: @` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `798.1^ARULES` `1)= S ^ROR(798.1,"ARULES",$E(X,1,40),DA(1),DA)=""` `2)= K ^ROR(798.1,"ARULES",$E(X,1,40),DA(1),DA)` `3)= Do not delete!` `This cross-reference can be used to find all registries that use the selection rule.` FIELD INDEX: `B (#152) REGULAR IR LOOKUP & SORTING` `Unique for: Key A (#5), File #798.13` `Short Descr: Uniqueness Index for Key 'A' of Subfile #798.13` `Set Logic: S ^ROR(798.1,DA(1),1,"B",X,DA)=""` `Kill Logic: K ^ROR(798.1,DA(1),1,"B",X,DA)` `Whole Kill: K ^ROR(798.1,DA(1),1,"B")` `X(1): SELECTION RULE (798.13,.01) (Subscr 1)`

.01

SELECTION RULE

0;1

FREE TEXT

INPUT TRANSFORM: Q:$$VAEDT^RORDD(798.1,$G(DA(1))) K:$L(X)>40!($L(X)<3)!'(X?3.UNP) X I $D(X) K:'$D(^ROR(798.2,"B",$E(X,1,40))) X
LAST EDITED: FEB 28, 2014
HELP-PROMPT: Enter a name of the selection rule (3-40 characters).
DESCRIPTION: YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A NATIONAL REGISTRY DEFINITION!
Enter a name of the selection rule that will be used to select patients for addition to the registry. The name should be entered exactly as it appears in the list of selection rules (file #798.2).
TECHNICAL DESCR:
Names of the selection rules are used here instead of pointers because the KIDS pointer resolving feature does not work for .01 fields.
EXECUTABLE HELP: I $G(X)="??" N D,DIC,DZ S DIC="^ROR(798.2,",DIC(0)="",D="B",DZ="??" D DQ^DICQ,EN^DDIOL("",,"!")
DELETE TEST: 1,0)= I $$VADEL^RORDD(798.1,$G(DA(1)))
DELETE AUTHORITY: @
WRITE AUTHORITY: @
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 798.1^ARULES
1)= S ^ROR(798.1,"ARULES",$E(X,1,40),DA(1),DA)=""
2)= K ^ROR(798.1,"ARULES",$E(X,1,40),DA(1),DA)
3)= Do not delete!
This cross-reference can be used to find all registries that use the selection rule.
FIELD INDEX: B (#152) REGULAR IR LOOKUP & SORTING
Unique for: Key A (#5), File #798.13
Short Descr: Uniqueness Index for Key 'A' of Subfile #798.13
Set Logic: S ^ROR(798.1,DA(1),1,"B",X,DA)=""
Kill Logic: K ^ROR(798.1,DA(1),1,"B",X,DA)
Whole Kill: K ^ROR(798.1,DA(1),1,"B")
X(1): SELECTION RULE (798.13,.01) (Subscr 1)

Customize PDF page

Package: Clinical Case Registries

ROR REGISTRY PARAMETERS(#798.1)-->798.13

Sub-Field: 798.13

Information

Details