- LRLS ; IHS/DIR/FJE - PREINIT FOR AMIS FILE 2/5/91 14:48 ;
- ;;5.2;LR;**1013**;JUL 15, 2002
- ;
- ;;5.2;LAB SERVICE;;Sep 27, 1994
- AMIS ;
- 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
- I $D(^DD(64,0,"VR")) S LRV=$P(^DD(64,0,"VR"),U,1) G:LRV<4 GO Q
- 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
- 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)
- K I,LRTEST,LRSPEC
- K ^LAM("B"),^("C") S I=0 F S I=$O(^LAM(I)) Q:I<1 K ^LAM(I)
- Q
- LRLS ; IHS/DIR/FJE - PREINIT FOR AMIS FILE 2/5/91 14:48 ;
- +1 ;;5.2;LR;**1013**;JUL 15, 2002
- +2 ;
- +3 ;;5.2;LAB SERVICE;;Sep 27, 1994
- AMIS ;
- +1 SET U="^"
- IF '$DATA(^DD(64,0,"VR"))
- WRITE !,"No Version node defined in file 64.",!,"Did you run the LRLS init when installing version 5.0"
- SET %=2
- DO YN^DICN
- IF %=1
- QUIT
- IF %<1
- KILL DIFQ
- IF %<1
- QUIT
- GOTO GO
- +2 IF $DATA(^DD(64,0,"VR"))
- SET LRV=$PIECE(^DD(64,0,"VR"),U,1)
- IF LRV<4
- GOTO GO
- QUIT
- GO WRITE !,"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"
- SET %=1
- DO YN^DICN
- IF %=2!(%<1)
- KILL DIFQ
- QUIT
- +1 SET LRTEST=0
- FOR I=0:0
- SET LRTEST=$ORDER(^LAB(60,LRTEST))
- IF LRTEST<1
- QUIT
- KILL ^(LRTEST,9)
- SET LRSPEC=0
- FOR I=0:0
- SET LRSPEC=$ORDER(^LAB(60,LRTEST,1,LRSPEC))
- IF LRSPEC<1
- QUIT
- KILL ^(LRSPEC,2)
- +2 KILL I,LRTEST,LRSPEC
- +3 KILL ^LAM("B"),^("C")
- SET I=0
- FOR
- SET I=$ORDER(^LAM(I))
- IF I<1
- QUIT
- KILL ^LAM(I)
- +4 QUIT
