Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LRSOR1

LRSOR1.m

Go to the documentation of this file.
LRSOR1 ; IHS/DIR/FJE - SOME SPECIAL OUTPUT ROUTINES 6/2/86 8:43 AM ;
 ;;5.2;LR;;NOV 01, 1997
 ;
 ;;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