LARMK.m

LARMK ; IHS/DIR/FJE - SET UP REMARKS FOR AUTO-INSTRUMENTS 18:16 ; [ 10/10/90 ]

 ;;5.2;LA;;NOV 01, 1997

 ;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994

EN ;

 I '$D(^LAH(LWL,1,ISQN,1,0))#2 S ^(0)="^63.041A^1^1",(^(1,0))=RMK Q

 F RMKI=1:1 Q:'$D(^LAH(LWL,1,ISQN,1,RMKI,0))

 S ^(0)=RMK,$P(^LAH(LWL,1,ISQN,1,0),U,3)=RMKI,$P(^(0),U,4)=1+$P(^(0),U,4) K RMKI

 Q

LARMK     ; IHS/DIR/FJE - SET UP REMARKS FOR AUTO-INSTRUMENTS 18:16 ; [ 10/10/90 ]

 +1       ;;5.2;LA;;NOV 01, 1997

 +2       ;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994

EN        ;

 +1        IF '$DATA(^LAH(LWL,1,ISQN,1,0))#2

               SET ^(0)="^63.041A^1^1"

               SET (^(1,0))=RMK

               QUIT 

 +2        FOR RMKI=1:1

               IF '$DATA(^LAH(LWL,1,ISQN,1,RMKI,0))

                   QUIT 

 +3        SET ^(0)=RMK

           SET $PIECE(^LAH(LWL,1,ISQN,1,0),U,3)=RMKI

           SET $PIECE(^(0),U,4)=1+$PIECE(^(0),U,4)

           KILL RMKI

 +4        QUIT