|
Last change
on this file since 824 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
789 bytes
|
| Line | |
|---|
| 1 | LRLS ;SLC/BA- PREINIT FOR AMIS FILE ;2/5/91 14:48 ;
|
|---|
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994
|
|---|
| 3 | AMIS ;
|
|---|
| 4 | S U="^" I '$D(^DD(64,0,"VR")) W !,"No Version node defined in file 64.",!,"Did you run the LRLS init when installing version 5.0" S %=2 D YN^DICN Q:%=1 K:%<1 DIFQ Q:%<1 G GO
|
|---|
| 5 | I $D(^DD(64,0,"VR")) S LRV=$P(^DD(64,0,"VR"),U,1) G:LRV<4 GO Q
|
|---|
| 6 | GO W !,"Since you have not run the LRLS init yet I am now going to clean up",!,"amis data from file 60 (Lab Test) and file 64 (Amis/Cap).",!,"Are you sure you want to proceed" S %=1 D YN^DICN I %=2!(%<1) K DIFQ Q
|
|---|
| 7 | S LRTEST=0 F I=0:0 S LRTEST=$O(^LAB(60,LRTEST)) Q:LRTEST<1 K ^(LRTEST,9) S LRSPEC=0 F I=0:0 S LRSPEC=$O(^LAB(60,LRTEST,1,LRSPEC)) Q:LRSPEC<1 K ^(LRSPEC,2)
|
|---|
| 8 | K I,LRTEST,LRSPEC
|
|---|
| 9 | K ^LAM("B"),^("C") S I=0 F S I=$O(^LAM(I)) Q:I<1 K ^LAM(I)
|
|---|
| 10 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
