HELP-PROMPT: Answer must be 1-60 characters in length
DESCRIPTION: Contains the global reference in a format similar to a FileMan DA array. It resolves to the section of this file which contains the results that are related to this producing laboratory.
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"
LRIDT=0
to maintain the structure of the entries and related index.
The structure of the reference is
LRDFN,LRSS,LRIDT,1...N related global nodes in the LR global.
When reference is to a specific field which shares other fields on the same node then the format used to distinguish separate fields is node;piece position on node.
Example microbiology results within MI subscript
- 173,MI,6959788.895648,3,1,0
Example microbiology results with MI subscript, 6th piece of 1 node - 356,MI,6919497.888687,1;6
FIELD INDEX: AC (#1048) REGULAR IR SORTING ONLY
Short Descr: Index to identify entries related to a specific specimen
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.
Set Logic: S ^LR(DA(1),"PL","AC",X(1),X(2),DA)=""
Kill Logic: K ^LR(DA(1),"PL","AC",X(1),X(2),DA)
Whole Kill: K ^LR(DA(1),"PL","AC")
X(1): LAB DATA REFERENCE (63.00012,.01) (Subscr 1) (forwards)
Transform (Storage): S X=$P(X,",",2)
X(2): Computed Code: S X=$P(^LR(DA(1),"PL",DA,0),",",3)
(Subscr 2)
FIELD INDEX: B (#1049) REGULAR IR LOOKUP & SORTING
Short Descr: Regular 'B' cross-reference
Description: Regular "B" cross-reference on #.01 field. Setup as new style to edit subscript length
Set Logic: S ^LR(DA(1),"PL","B",$E(X,1,60),DA)=""
Kill Logic: K ^LR(DA(1),"PL","B",$E(X,1,60),DA)
Whole Kill: K ^LR(DA(1),"PL","B")
X(1): LAB DATA REFERENCE (63.00012,.01) (Subscr 1) (Len 60) (forwards)