63.00014 (1053)    INDEX (.11)

Name Value
FILE 63.00014
NAME AC
DESCRIPTION
This index is used to identify those entries which are related to a 
specific specimen/accession in file #63.  It constructed based on the
entry's LRDFN, LRSS and LRIDT where LRDFN = internal enter number in file
#63
 
LRSS = related subscript LRIDT = inverse date/time of specimen
 
Autopsy results being one of a kind are created using a value LRSS="AU"
and LRIDT=0 to maintain the structure of the entries and related index.
SHORT DESCRIPTION Index to identify entries related to a specific specimen.
TYPE REGULAR
EXECUTION FIELD
ACTIVITY IR
USE SORTING ONLY
ROOT TYPE INDEX FILE
ROOT FILE 63.00014
SET LOGIC S ^LR(DA(1),"CSR","AC",X(1),X(2),DA)=""
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    SUBSCRIPT NUMBER:   1
    TYPE OF VALUE:   FIELD
    FILE:   63.00014
    FIELD:   .01
    TRANSFORM FOR STORAGE:   S X=$P(X,",",2)
    COLLATION:   forwards
  • ORDER NUMBER:   2
    SUBSCRIPT NUMBER:   2
    TYPE OF VALUE:   COMPUTED VALUE
    COMPUTED CODE:   S X=$P(^LR(DA(1),"CSR",DA,0),",",3)
KILL LOGIC K ^LR(DA(1),"CSR","AC",X(1),X(2),DA)
KILL ENTIRE INDEX CODE K ^LR(DA(1),"CSR","AC")