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") |