source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRUP.m@ 691

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

initial load of WorldVistAEHR

File size: 257 bytes
Line 
1LRUP ;AVAMC/REG/CYM - GET PARENT FILE DATA ;3/12/98 13:32 ;
2 ;;5.2;LAB SERVICE;**1,50,201**;Sep 27, 1994
3 ; X is set by the ^LR(LRDFN,0) global node
4 S DFN=$P(X,U,3),(LRDPF,P("F"))=$P(X,U,2) D DEM^LRX S DOB=$$FMTE^XLFDT(DOB)
5 S LRP="" Q:LREND S LRP=PNM Q
Note: See TracBrowser for help on using the repository browser.