source: FOIAVistA/trunk/r/AUTOMATED_LAB_INSTRUMENTS-LA/LAKDIFF3.m@ 711

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

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1LAKDIFF3 ;DALOI/DLG - LAB ROUTINE DATA VERIFICATION BY WORKLIST OF KEYBOARD DIFFS ; 7/28/88 10:01 AM
2 ;;5.2;AUTOMATED LAB INSTRUMENTS;**52,60**;Sep 27, 1994
3 ;
4 N B,LRCUP,LRORU3,LRPANEL,LRPROF,LRSQ,LRTM60,LRTRAY,LRTSE,LRTYPE,X,Y
5 ;
6 S LREND=0,LRLL=LWL,LRTYPE=$P(^LRO(68.2,LRLL,0),U,3)
7 ;
8 S LRPROF=$O(^LRO(68.2,LRLL,10,0))
9 I LRPROF<1 W !,"No profile defined." Q
10 S B=$O(^LRO(68.2,LRLL,10,LRPROF))
11 I B>0 D Q:LREND
12 . N DIC,X,Y
13 . S DIC(0)="AEQ",DIC="^LRO(68.2,"_LRLL_",10,"
14 . D ^DIC
15 . I Y<1 S LREND=1 Q
16 . S LRPROF=+Y
17 ;
18 S X=^LRO(68.2,LRLL,10,LRPROF,0),LRPANEL=$P(X,U,1)
19 ;
20 I $P(^LRO(68,LRAA,0),U,2)'="CH" S LREND=1 Q
21 ;
22 K LRORD,LRVTS,LRTSTS
23 D EXPLODE^LRGP2
24 I '$O(LRVTS(0)) S LREND=1 Q
25 ;
26 S I=0
27 F S I=$O(LRORD(I)) Q:I<1 S J=LRORD(I),X=$P(^LAB(60,J,0),U,5),LRORD(I)=$P(X,";",2)
28 ;
29 K LRTEST,C5,LRSET,LRLDT,DIC,LRNM,LRNG,LRDEL,T,LRFP,LRAB,LRVER,Y,Z
30 ;
31 S LRTM60=9999999-$$HTFM^XLFDT($H-$P($G(^LAB(69.9,1,0)),U,7),1)
32 S LRTRAY=TRAY,LRCUP=CUP,LRSQ=ISQN,LRTSE=-1
33 S X=^LRO(68,LRAA,1,LRAD,1,LRAN,0),LRODT=$P(X,U,4),LRSN=$P(X,U,5)
34 S LRORU3=$G(^LRO(68,LRAA,1,LRAD,1,LRAN,.3))
35 ;
36 W !,PNM,?40,SSN
37 ;
38 D VER^LRVR1
39 ;
40 I 'LREND,$G(LRAA),$G(LRAD),$G(LRAN) S $P(^LRO(68,LRAA,1,LRAD,2),"^",4)=$G(LRAN)
41 ;
42 Q
Note: See TracBrowser for help on using the repository browser.