LR7OFA2.m

LR7OFA2 ;slc/dcm - Process messages from OE/RR for AP ;8/11/97

 ;;5.2T9;LR;**1018**;Nov 17, 2004

 ;;5.2;LAB SERVICE;**121,187**;Sep 27, 1994

 ;

NTE ;Process AP Order comments from OE/RR

 S X=$D(STARTDT)&($D(TYPE))&($D(SAMP))&($D(SPEC))&($D(LRSX))

 I 'X Q  ;Trying to add comments to undefined test array in ^TMP

 I '$D(^TMP("OR",$J,"LROT",STARTDT,TYPE,SAMP,LRSX)) Q  ;Trying to add comments to undefined test array in ^TMP

 S:'$D(^TMP("OR",$J,"COM",STARTDT,TYPE,SAMP,LRSX)) ^(LRSX)=0 S LINES=^(LRSX)

 S LINES=LINES+1,^TMP("OR",$J,"COM",STARTDT,TYPE,SAMP,LRSX,LINES)=$P(LRXMSG,"|",4),^TMP("OR",$J,"COM",STARTDT,TYPE,SAMP,LRSX)=LINES

 Q

LR7OFA2   ;slc/dcm - Process messages from OE/RR for AP ;8/11/97

 +1       ;;5.2T9;LR;**1018**;Nov 17, 2004

 +2       ;;5.2;LAB SERVICE;**121,187**;Sep 27, 1994

 +3       ;

NTE       ;Process AP Order comments from OE/RR

 +1        SET X=$DATA(STARTDT)&($DATA(TYPE))&($DATA(SAMP))&($DATA(SPEC))&($DATA(LRSX))

 +2       ;Trying to add comments to undefined test array in ^TMP

           IF 'X

               QUIT 

 +3       ;Trying to add comments to undefined test array in ^TMP

           IF '$DATA(^TMP("OR",$JOB,"LROT",STARTDT,TYPE,SAMP,LRSX))

               QUIT 

 +4        IF '$DATA(^TMP("OR",$JOB,"COM",STARTDT,TYPE,SAMP,LRSX))

               SET ^(LRSX)=0

           SET LINES=^(LRSX)

 +5        SET LINES=LINES+1

           SET ^TMP("OR",$JOB,"COM",STARTDT,TYPE,SAMP,LRSX,LINES)=$PIECE(LRXMSG,"|",4)

           SET ^TMP("OR",$JOB,"COM",STARTDT,TYPE,SAMP,LRSX)=LINES

 +6        QUIT