LRXREF1 ;SLC/RWA,ALB/TMK - CONTINUE BUILD X-REF FOR RE-INDEX ;09/15/2010 10:42:09
Source file <LRXREF1.m>
| Package | Total | Call Graph |
|---|---|---|
| Lab Service | 2 | ^LREXPD ($$ACTV61,$$ACTV62)^LRJUTL3 |
| VA FileMan | 1 | EN^DDIOL |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Lab Service | 5 | ^LRD(65 ACCESSION NUMBER DATE RE-ENTERED SPECIMEN # TEST |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| AT | ;^LRO(69,"AT" CROSS REFERENCE
|
|
| AT1 | ||
| ATD | ;KILL FOR ^LRO(69,"AT" CROSS REFERENCE
|
|
| AC | ;BUILD "AC" CROSS-REFERENCE IN FILE 68
|
|
| END | ||
| SET | ||
| AC1 | ;KILL "AC" CROSS-REFERENCE IN FILE 68
|
|
| KILL | ||
| A65 | ;Rebuild "A" x-ref in file 65 for 65.15,.08 for Re-index utility
|
|
| A658 | ;build "A" x-ref in file 65 for 65,.05 for Re-index utility
|
|
| C | ;build "C" x-ref in file 69
|
|
| A6599 | ;Rebuild Archive "A" x-ref in file 65.9999 for 65.999915,.08 for Re-index utility
|
|
| A65899 | ;build Archive "A" x-ref in file 65.9999 for 65.9999,.05 for Re-index utility
|
|
| IT600101(DA,DINUM,X) | ;
; Input Transform for Sub-File #60.01 field #.01 SITE/SPECIMEN ; Expects X (#61 IEN of SITE/SPECIMEN being added to the test) and DA array -- DA(1)=^LAB(60,DA(1)) DA=^LAB(60,DA(1),1,DA) ; Kills X if invalid selection ; Sets DINUM if valid selection |
|
| IT600301(DA,X) | ;
; Input Transform for Sub-File #60.03 field #.01 COLLECTION SAMPLE ; Expects X (#62 IEN of COLLECTION SAMPLE being added to the test) and DA array -- DA(1)=^LAB(60,DA(1)) DA=^LAB(60,DA(1),1,DA) ; Kills X if invalid selection |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAB(60 - [#60] | SET, KILL, IT600101+6, IT600101+8, IT600101+9, IT600301+4 |
| ^LAB(61 - [#61] | IT600101+11 |
| ^LAB(62 - [#62] | IT600301+6 |
| ^LRD(65 - [#65] | A65+1*, A658+1* |
| ^LRD(65.9999 | A6599+1*, A65899+1* |
| ^LRO(68 - [#68] | AC+2, SET*, AC1+2, KILL! |
| ^LRO(69 - [#69] | AT+1, AT1, AT1+1*, ATD+1, ATD+2!, C+1*, C+2* |
| ^TMP("LR" | END!, AC1+4! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ATX | AT1*, AT1+1, AT1+2!, ATD+1*, ATD+2, ATD+3! |
| ATX(1 | AT1*, AT1+1, ATD+1*, ATD+2 |
| ATX(2 | AT1*, AT1+1, ATD+1*, ATD+2 |
| ATX(3 | AT1+1*, ATD+2* |
| DA | AT+1, AT1, ATD+1, AC+2, SET, AC1+2, KILL, A65+1, C+1, C+2 , A6599+1, IT600101~, IT600301~ |
| DA(1 | AT+1, AT1, AT1+1, ATD+1, ATD+2, AC+2, SET, AC1+2, KILL, A658+1 , C+1, C+2, A65899+1, IT600101+6, IT600101+9, IT600301+4 |
| DA(2 | AT+1, AT1, AT1+1, ATD+1, ATD+2, AC+2, SET, AC1+2, KILL |
| DINUM | IT600101~, IT600101+12* |
| >> DIU(0 | C+1, C+2 |
| DT | IT600101+11, IT600301+6 |
| >> I | AC+2*, AC+3*, AC1+2*, AC1+3* |
| >> LR | A65+1*, A658+1*, A6599+1*, A65899+1* |
| >> LR(1 | A65+1*, A6599+1* |
| LRA | IT600101+5~, IT600101+6*, IT600101+7, IT600101+8*, IT600101+9 |
| LRGTN | AC+2*, AC+3*, END!, SET, AC1+2*, AC1+3*, AC1+4!, KILL |
| >> LRORD | AC+3, SET+1, AC1+3 |
| >> LRORD( | AC+3, AC1+3 |
| LRTEST | AC+1*, AC+2*, END!, AC1+1*, AC1+2*, AC1+4! |
| LRTN | AC+1*, AC+2*, END!, AC1+1*, AC1+2*, AC1+4! |
| LRTSTS | AC+3, END!, AC1+3, AC1+4! |
| U | SET, KILL, IT600101+6, IT600101+9, IT600101+11, IT600301+4, IT600301+6 |
| X | C+1, C+2, IT600101~, IT600101+7!, IT600101+9!, IT600101+11!, IT600101+12, IT600301~, IT600301+4!, IT600301+6! |