| 1 | LAKDIFF3 ;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
|
|---|
