- LR7OFA2 ;slc/dcm - Process messages from OE/RR for AP ;8/11/97
- ;;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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLR7OFA2 611 printed Feb 18, 2025@23:30:56 Page 2
- LR7OFA2 ;slc/dcm - Process messages from OE/RR for AP ;8/11/97
- +1 ;;5.2;LAB SERVICE;**121,187**;Sep 27, 1994
- +2 ;
- 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