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