source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRFIXAU.m@ 1006

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

initial load of WorldVistAEHR

File size: 476 bytes
Line 
1LRFIXAU ;DALISC/CYM CLEAN UP ^LR("AAUA",YR,LRAN,LRDFN) NODES 9/20/96
2 ;;5.2;LAB SERVICE;**134**;Sep 27, 1994
3 ;
4 N LRDFN,NODE,YR,ACC,LRAN
5 I '$D(^LRO(68,"VR")) D BMES^XPDUTL("You MUST have LR*5.2*72 Installed BEFORE this patch") Q
6 S LRDFN=0 F S LRDFN=$O(^LR(LRDFN)) Q:'LRDFN D
7 . I '$D(^LR(LRDFN,"AU")) Q
8 . S NODE=^LR(LRDFN,"AU")
9 . S YR=$E(NODE,1,3)
10 . S ACC=$P(NODE,U,6),LRAN=$P(ACC," ",3)
11 . I YR,LRAN D
12 .. I $D(^LR("AAUA",YR,LRAN,LRDFN)) K ^LR("AAUA",YR,LRAN,LRDFN)
Note: See TracBrowser for help on using the repository browser.