source:
FOIAVistA/tag/r/LAB_SERVICE-LR-LS/LRSOR1.m@
636
| Last change on this file since 636 was 628, checked in by , 14 years ago | |
|---|---|
| File size: 465 bytes | |
| Line | |
|---|---|
| 1 | LRSOR1 ;SLC/RWF/CJS - SOME SPECIAL OUTPUT ROUTINES ; 6/2/86 8:43 AM ; |
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994 |
| 3 | 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 |
| 4 | 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:"""")" |
| 5 | D ^LREXPD,SPC^LRGEN2,EN2^LRGEN S LRSC=0 |
| 6 | K S9,S8 Q |
Note:
See TracBrowser
for help on using the repository browser.
