source:
WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRUP.m@
1800
| Last change on this file since 1800 was 613, checked in by , 15 years ago | |
|---|---|
| File size: 257 bytes | |
| Rev | Line | |
|---|---|---|
| [613] | 1 | LRUP ;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.
