Last change
on this file since 846 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
649 bytes
|
Rev | Line | |
---|
[613] | 1 | LAMIVTLW ;DAL/HOAK VITEK ARANGER FOR LART
|
---|
| 2 | ;;5.2;AUTOMATED LAB INSTRUMENTS;**12,30**;Sep 27,1994
|
---|
| 3 | ;
|
---|
| 4 | Q
|
---|
| 5 | S LRDZ1=0
|
---|
| 6 | F S LRDZ1=$O(LART("a3",LRDZ1)) Q:LRDZ1'>0 D
|
---|
| 7 | . I '$D(LART("a4",LRDZ1)) S LART("a4",LRDZ1)=LART("a3",LRDZ1)
|
---|
| 8 | NA ;
|
---|
| 9 | ;QUIT
|
---|
| 10 | Q:'$G(LRLL)
|
---|
| 11 | S LRX09="^LAH(LRLL,1)"
|
---|
| 12 | F S LRX09=$Q(@LRX09) Q:LRX09'[LRLL D
|
---|
| 13 | . I @LRX09["NA" S @LRX09=$P(@LRX09,"NA")_$P(@LRX09,"NA",2)
|
---|
| 14 | . ;I $P(@LRX09,U,2)="NA" S $P(@LRX09,U,2)=$P(@LRX09,U)
|
---|
| 15 | Q
|
---|
| 16 | ;
|
---|
| 17 | NA1 ;
|
---|
| 18 | ;
|
---|
| 19 | QUIT
|
---|
| 20 | Q:'$D(^LR(LRDFN,LRSUB,LRIDT))
|
---|
| 21 | S LRX09="^LR(LRDFN,LRSUB,LRIDT)"
|
---|
| 22 | D UPDATE
|
---|
| 23 | QUIT
|
---|
| 24 | ;
|
---|
| 25 | UPDATE ;
|
---|
| 26 | ;
|
---|
| 27 | F S LRX09=$Q(@LRX09) Q:LRX09'[LRLL D
|
---|
| 28 | . I $P(@LRX09,U)="NA" S $P(@LRX09,U)=$P(@LRX09,U,2)
|
---|
| 29 | QUIT
|
---|
Note:
See
TracBrowser
for help on using the repository browser.