source:
WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRAPPRE.m@
1801
| Last change on this file since 1801 was 613, checked in by , 15 years ago | |
|---|---|
| File size: 279 bytes | |
| Rev | Line | |
|---|---|---|
| [613] | 1 | LRAPPRE ;AVAMC/REG - ANATOMIC PATH PRE-INIT ;10/6/90 12:29 |
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994 | |
| 3 | ;Added to LRPRE1 | |
| 4 | F A=0:0 S A=$O(^LR("AAUA",A)) Q:'A F B=0:0 S B=$O(^LR("AAUA",A,B)) Q:'B S LRDFN=+$O(^LR("AAUA",A,B,0)),E=$P($G(^LR(LRDFN,"AU")),"^",3) I E S $P(^("AU"),"^",15)=E | |
| 5 | Q |
Note:
See TracBrowser
for help on using the repository browser.
