Select the objects that you wish to see in the downloaded PDF
Q:$$VAEDT^RORDD(799.6,$G(DA(1))) K:$L(X)>30!($L(X)<3) X I $D(X) K:'$D(^ROR(798.1,"B",$E(X,1,30))) X
OCT 31, 2005
Enter the registry name (3-30 characters).
YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A NATIONAL HISTORICAL DATA EXTRACTION DEFINITION!
Enter a name of the registry exactly as it appears in the ROR REGISTRY PARAMETERS file (#798.1).
Names of the registries are used here instead of pointers because the KIDS pointer resolving feature does not work for .01 fields.
I $G(X)="??" N D,DIC,DZ S DIC="^ROR(798.1,",DIC(0)="",D="B",DZ="??" D DQ^DICQ,EN^DDIOL("",,"!")
1,0)= I $$VADEL^RORDD(799.6,$G(DA(1)))
DELETE AUTHORITY: @
WRITE AUTHORITY: @
XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
B (#636) REGULAR IR LOOKUP & SORTING
Unique for: Key A (#68), File #799.63
Short Descr: Uniqueness Index for Key 'A' of Subfile #799.63
Set Logic: S ^RORDATA(799.6,DA(1),3,"B",X,DA)=""
Kill Logic: K ^RORDATA(799.6,DA(1),3,"B",X,DA)
Whole Kill: K ^RORDATA(799.6,DA(1),3,"B")
X(1): REGISTRY NAME (799.63,.01) (Subscr 1)
S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
A valid date in this field indicates that the data extraction has been successfully completed for this registry.
If the data must be re-extracted, clear this field and the nightly task will repeat the historical data extraction for this registry.
This field is populated by the $$CHECKMSG^ROR10 function after it confirms successful transmission of the HL7 messages before the next nightly data extraction.