| FILE |
63.00013 |
| 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.00013 |
| SET LOGIC |
S ^LR(DA(1),"EPR","AC",X(1),X(2),DA)="" |
| CROSS-REFERENCE VALUES |
-
- ORDER NUMBER: 1
- SUBSCRIPT NUMBER: 1
- TYPE OF VALUE: FIELD
- FILE: 63.00013
- 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),"EPR",DA,0),",",3)
|
| KILL LOGIC |
K ^LR(DA(1),"EPR","AC",X(1),X(2),DA) |
| KILL ENTIRE INDEX CODE |
K ^LR(DA(1),"EPR","AC") |
