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 ---[H[J[2J[HLRSOR1 471 printed Nov 22, 2024@17:30:28 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
