| FILE |
63.00012 |
| NAME |
AC |
| DESCRIPTION |
This index is used to identify those entries which are related
structure of the entries and related index.
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
|
| 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.00012 |
| SET LOGIC |
S ^LR(DA(1),"PL","AC",X(1),X(2),DA)="" |
| CROSS-REFERENCE VALUES |
-
- ORDER NUMBER: 1
- SUBSCRIPT NUMBER: 1
- TYPE OF VALUE: FIELD
- FILE: 63.00012
- 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),"PL",DA,0),",",3)
|
| KILL LOGIC |
K ^LR(DA(1),"PL","AC",X(1),X(2),DA) |
| KILL ENTIRE INDEX CODE |
K ^LR(DA(1),"PL","AC") |
