LAPREINT.m

LAPREINT ;SLC/BA- AUTO INSTRUMENT PRE-INIT ; 1/31/89  14:49 ;

 ;;V~5.0~;LAB;**45**;09/12/90 08:16

BEGIN S U="^" D ASK

END K DA,I,%

 Q

ASK F I=0:0 W !,"Do you wish to clear out and replace inactive auto instrument entries" S %=1 D YN^DICN Q:%  D INFO

 Q:%'=1

K S DIK="^LAB(62.4," F DA=99:0 S DA=$O(^LAB(62.4,DA)) Q:DA'>99  D ^DIK

 Q

INFO W !!,"Answering YES will wipe out all auto instrument entries >99.",!,"This will not effect entries 1-99 (entries for on-line instruments).",!

 Q

LAPREINT  ;SLC/BA- AUTO INSTRUMENT PRE-INIT ; 1/31/89  14:49 ;

 +1       ;;V~5.0~;LAB;**45**;09/12/90 08:16

BEGIN      SET U="^"

           DO ASK

END        KILL DA,I,%

 +1        QUIT 

ASK        FOR I=0:0

               WRITE !,"Do you wish to clear out and replace inactive auto instrument entries"

               SET %=1

               DO YN^DICN

               IF %

                   QUIT 

               DO INFO

 +1        IF %'=1

               QUIT 

K          SET DIK="^LAB(62.4,"

           FOR DA=99:0

               SET DA=$ORDER(^LAB(62.4,DA))

               IF DA'>99

                   QUIT 

               DO ^DIK

 +1        QUIT 

INFO       WRITE !!,"Answering YES will wipe out all auto instrument entries >99.",!,"This will not effect entries 1-99 (entries for on-line instruments).",!

 +1        QUIT