LRUD1.m

LRUD1 ; IHS/DIR/FJE - STUFF DATA CHANGE IN COMMENT FIELD 09:44 ; 

 ;;5.2;LR;**1013**;JUL 15, 2002

 ;

 ;;5.2;LAB SERVICE;;Sep 27, 1994

BB Q:'$D(L("BB"))  S:'$D(^LR(LRDFN,"BB",LRI,99,0)) ^(0)="^63.199A^^" S Z(10)=$P(^(0),"^",3)+1

E I $D(^LR(LRDFN,"BB",LRI,99,Z(10),0)) S Z(10)=Z(10)+1 G E

 S Y=Z(1) D D^LRU S ^LR(LRDFN,"BB",LRI,99,Z(10),0)=Z(3)_" changed from:"_O,Z(10)=Z(10)+1,^LR(LRDFN,"BB",LRI,99,Z(10),0)="Above changed:"_Y_" By:"_Z(2)

 S X=^LR(LRDFN,"BB",LRI,99,0),^(0)=$P(X,"^",1,2)_"^"_Z(10)_"^"_($P(X,"^",4)+2) K L Q

LRUD1     ; IHS/DIR/FJE - STUFF DATA CHANGE IN COMMENT FIELD 09:44 ; 

 +1       ;;5.2;LR;**1013**;JUL 15, 2002

 +2       ;

 +3       ;;5.2;LAB SERVICE;;Sep 27, 1994

BB         IF '$DATA(L("BB"))

               QUIT 

           IF '$DATA(^LR(LRDFN,"BB",LRI,99,0))

               SET ^(0)="^63.199A^^"

           SET Z(10)=$PIECE(^(0),"^",3)+1

E          IF $DATA(^LR(LRDFN,"BB",LRI,99,Z(10),0))

               SET Z(10)=Z(10)+1

               GOTO E

 +1        SET Y=Z(1)

           DO D^LRU

           SET ^LR(LRDFN,"BB",LRI,99,Z(10),0)=Z(3)_" changed from:"_O

           SET Z(10)=Z(10)+1

           SET ^LR(LRDFN,"BB",LRI,99,Z(10),0)="Above changed:"_Y_" By:"_Z(2)

 +2        SET X=^LR(LRDFN,"BB",LRI,99,0)

           SET ^(0)=$PIECE(X,"^",1,2)_"^"_Z(10)_"^"_($PIECE(X,"^",4)+2)

           KILL L

           QUIT