source: FOIAVistA/trunk/r/LAB_SERVICE-LR-LS/LRORDERN.m@ 1800

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

initial load of FOIAVistA 6/30/08 version
File size: 197 bytes
Line 
1LRORDERN ;SLC/CJS - DETERMINE NEXT LRORDER NUMBER ; 6/2/86 8:33 AM ;
2 ;;5.2;LAB SERVICE;;Sep 27, 1994
3 S LRYR=$E(DT,1,3) I $D(^LRO(69,LRYR,2)) S LRORDER=1+^(2) Q
4 S ^LRO(69,LRYR,0)=LRYR,^(2)=0
5 Q
Note: See TracBrowser for help on using the repository browser.