source: FOIAVistA/trunk/r/AUTOMATED_LAB_INSTRUMENTS-LA/LAMIVTLW.m@ 810

Last change on this file since 810 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 649 bytes
Line 
1LAMIVTLW ;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)
8NA ;
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 ;
17NA1 ;
18 ;
19 QUIT
20 Q:'$D(^LR(LRDFN,LRSUB,LRIDT))
21 S LRX09="^LR(LRDFN,LRSUB,LRIDT)"
22 D UPDATE
23 QUIT
24 ;
25UPDATE ;
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.