LRXREF1 ;SLC/RWA,ALB/TMK - CONTINUE BUILD X-REF FOR RE-INDEX ;09/15/2010 10:42:09
Source file <LRXREF1.m>
| 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 |
