|
Last change
on this file since 635 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
446 bytes
|
| Line | |
|---|
| 1 | LREV ;SLC/CJS - REVIEW OF LRTEST DESCRIPTIONS ;2/19/91 13:06 ;
|
|---|
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994
|
|---|
| 3 | R2 S U="^",DIC="^LAB(60,",DIC(0)="AEOQZ" D ^DIC G END:Y<1 S LRTEST=+Y,LRDAN=0
|
|---|
| 4 | R4 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
|
|---|
| 6 | R5 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
|
|---|
| 8 | END K LRTEST,LRDAN,LRJJ,LRCS
|
|---|
| 9 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
