source: FOIAVistA/trunk/r/AUTOMATED_LAB_INSTRUMENTS-LA/LAMIAUT5.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 952 bytes
Line 
1LAMIAUT5 ;DAL/FHS - DELETE MICRO AUTOMATED DATA UTILITY
2 ;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994
3DEL ;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
7DEL1 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
9DEL2 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
11TST ;
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
Note: See TracBrowser for help on using the repository browser.