LRLS ;SLC/BA- PREINIT FOR AMIS FILE ;2/5/91 14:48 ;
;;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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRLS 799 printed Oct 16, 2024@18:17:33 Page 2
LRLS ;SLC/BA- PREINIT FOR AMIS FILE ;2/5/91 14:48 ;
+1 ;;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
