source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LREV.m@ 1078

Last change on this file since 1078 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 446 bytes
RevLine 
[613]1LREV ;SLC/CJS - REVIEW OF LRTEST DESCRIPTIONS ;2/19/91 13:06 ;
2 ;;5.2;LAB SERVICE;;Sep 27, 1994
3R2 S U="^",DIC="^LAB(60,",DIC(0)="AEOQZ" D ^DIC G END:Y<1 S LRTEST=+Y,LRDAN=0
4R4 S LRDAN=$O(^LAB(60,LRTEST,1,LRDAN)) G R5:LRDAN<1
5 S DIC="^LAB(60,"_LRTEST_",1,",DA=LRDAN,DR=0 D EN^DIQ G R4
6R5 IF $D(^LAB(60,LRTEST,3,0)) S LRCS=$P(^(0),U,4),DIC="^LAB(60,"_LRTEST_",3,",DR="0:2" F LRJJ=1:1:LRCS S DA=LRJJ D EN^DIQ
7 G R2
8END K LRTEST,LRDAN,LRJJ,LRCS
9 Q
Note: See TracBrowser for help on using the repository browser.