source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRAPPRE.m@ 861

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

initial load of WorldVistAEHR

File size: 279 bytes
RevLine 
[613]1LRAPPRE ;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.