| [613] | 1 | LAMIAUT5 ;DAL/FHS - DELETE MICRO AUTOMATED DATA UTILITY
|
|---|
| 2 | ;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994
|
|---|
| 3 | DEL ;Delete tranfered data
|
|---|
| 4 | W $C(7),!?10,"Removing Transfered Patient Data ",!
|
|---|
| 5 | F I=0:0 S I=$O(^LAH(LRLL,1,LRIFN,3,I)) Q:I="" I $D(^(I,0))#2 S LRORGD=+^(0) I $D(LRMOVE(I)) K:LRMOVE(I)="A" LRMOVE(I),^LR(LRDFN,"MI",LRIDT,3,I) I $D(LRMOVE(I)) D DEL1
|
|---|
| 6 | Q
|
|---|
| 7 | DEL1 Q:$S('$D(^LR(LRDFN,"MI",LRIDT,3,I,0))#2:1,+^(0)'=LRORGD:1,1:0) S $P(^(0),U,2)="" D DEL2 F LRD=2:0 S LRD=$O(^LAH(LRLL,1,LRIFN,3,I,LRD)) Q:LRD="" K ^LR(LRDFN,"MI",LRIDT,3,I,LRD)
|
|---|
| 8 | Q
|
|---|
| 9 | DEL2 Q:'$O(^LAH(LRLL,1,LRIFN,3,I,1,0)) F A=0:0 S A=$O(^LAH(LRLL,1,LRIFN,3,I,1,A)) Q:A<1 K ^LR(LRDFN,"MI",LRIDT,3,II,1,A) S $P(^LR(LRDFN,"MI",LRIDT,3,II,1,0),U,4)=$P(^(0),U,4)-1,$P(^(0),U,3)=$P(^(0),U,4)
|
|---|
| 10 | Q
|
|---|
| 11 | TST ;
|
|---|
| 12 | K DIC,LREND S DIC("A")="Verify Test ",DIC("S")="I $P(^(0),U,2)<50"
|
|---|
| 13 | S DA=LRAN,DA(1)=LRAD,DA(2)=LRAA,DIC="^LRO(68,"_LRAA_",1,"_LRAD_",1,"_LRAN_",4,",DIC(0)="AQEN" D ^DIC S:Y<1 LREND=1
|
|---|
| 14 | S LRTS=+Y
|
|---|
| 15 | Q
|
|---|
