LARMK.m

LARMK ;SLC/FHS - SET UP REMARKS FOR AUTO-INSTRUMENTS  ;10/10/90 18:16

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LARMK   326     printed  Apr 09, 2024@20:45:12                                                                                                                                                                                                        Page 2

LARMK     ;SLC/FHS - SET UP REMARKS FOR AUTO-INSTRUMENTS  ;10/10/90 18:16

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