LRSOR1.m

LRSOR1 ;SLC/RWF/CJS - SOME SPECIAL OUTPUT ROUTINES ; 6/2/86  8:43 AM ;

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

COAG D DT^LRX K ^TMP("LR",$J,"T"),LRTSTS S U="^",LRCW=8,LRSSP=1,LRTP=0,LRSC=0,LRTSTS=0,LRIX=1,LRIX(1)=0

 S LRTEST=LRONETST,LREXPD="S S9=$P(^TMP(""LR"",$J,""T"",X),U,5),S8=+$O(^LAB(60,""C"",S9,0)),^TMP(""LR"",$J,""TMP"",S9)=^LAB(60,S8,.1),^TMP(""LR"",$J,""TMP"",S9,1)=$S($D(^LAB(60,S8,1,LRTP,0)):^(0),1:"""")"

 D ^LREXPD,SPC^LRGEN2,EN2^LRGEN S LRSC=0

 K S9,S8 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LRSOR1   471     printed  Apr 09, 2024@21:25:57                                                                                                                                                                                                       Page 2

LRSOR1    ;SLC/RWF/CJS - SOME SPECIAL OUTPUT ROUTINES ; 6/2/86  8:43 AM ;

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

COAG       DO DT^LRX

           KILL ^TMP("LR",$JOB,"T"),LRTSTS

           SET U="^"

           SET LRCW=8

           SET LRSSP=1

           SET LRTP=0

           SET LRSC=0

           SET LRTSTS=0

           SET LRIX=1

           SET LRIX(1)=0

 +1        SET LRTEST=LRONETST

           SET LREXPD="S S9=$P(^TMP(""LR"",$J,""T"",X),U,5),S8=+$O(^LAB(60,""C"",S9,0)),^TMP(""LR"",$J,""TMP"",S9)=^LAB(60,S8,.1),^TMP(""LR"",$J,""TMP"",S9,1)=$S($D(^LAB(60,S8,1,LRTP,0)):^(0),1:"""")"

 +2        DO ^LREXPD

           DO SPC^LRGEN2

           DO EN2^LRGEN

           SET LRSC=0

 +3        KILL S9,S8

           QUIT