AUDSET.m

%AUDSET ; BUILDS LIST OF FILEMAN FILES [ 06/05/87  1:23 PM ]

 ;

 ; This routine can be called from another routine by setting the

 ; variables AUDSLO, AUDSHI and then D EN1^%AUDSET.

 ;

 W !!,"This program selects FileMan dictionaries.",!

 K ^UTILITY("AUDSET",$J)

 ;

LO R !,"Enter first dictionary number to be selected: ",AUDSLO G:AUDSLO'=+AUDSLO EOJ

HI W !,"Enter last dictionary number to  be selected: ",AUDSLO,"// " R AUDSHI S:AUDSHI="" AUDSHI=AUDSLO G:AUDSHI'=+AUDSHI!(AUDSHI<AUDSLO) EOJ

 ;

EN1 ;

 K ^UTILITY("AUDSET",$J)

 I '$D(AUDSLO)!('$D(AUDSHI)) W !!,"AUDSLO and/or AUDSHI does not exist!" G EOJ

 S AUDSFILE=(AUDSLO-.00000001) F AUDSL=0:0 S AUDSFILE=$O(^DIC(AUDSFILE)) Q:AUDSFILE>AUDSHI!(AUDSFILE'=+AUDSFILE)  S ^UTILITY("AUDSET",$J,AUDSFILE)=""

 ;

EOJ ;

 K AUDSLO,AUDSHI,AUDSL,AUDSFILE

 Q

%AUDSET   ; BUILDS LIST OF FILEMAN FILES [ 06/05/87  1:23 PM ]

 +1       ;

 +2       ; This routine can be called from another routine by setting the

 +3       ; variables AUDSLO, AUDSHI and then D EN1^%AUDSET.

 +4       ;

 +5        WRITE !!,"This program selects FileMan dictionaries.",!

 +6        KILL ^UTILITY("AUDSET",$JOB)

 +7       ;

LO         READ !,"Enter first dictionary number to be selected: ",AUDSLO

           IF AUDSLO'=+AUDSLO

               GOTO EOJ

HI         WRITE !,"Enter last dictionary number to  be selected: ",AUDSLO,"// "

           READ AUDSHI

           IF AUDSHI=""

               SET AUDSHI=AUDSLO

           IF AUDSHI'=+AUDSHI!(AUDSHI<AUDSLO)

               GOTO EOJ

 +1       ;

EN1       ;

 +1        KILL ^UTILITY("AUDSET",$JOB)

 +2        IF '$DATA(AUDSLO)!('$DATA(AUDSHI))

               WRITE !!,"AUDSLO and/or AUDSHI does not exist!"

               GOTO EOJ

 +3        SET AUDSFILE=(AUDSLO-.00000001)

           FOR AUDSL=0:0

               SET AUDSFILE=$ORDER(^DIC(AUDSFILE))

               IF AUDSFILE>AUDSHI!(AUDSFILE'=+AUDSFILE)

                   QUIT 

               SET ^UTILITY("AUDSET",$JOB,AUDSFILE)=""

 +4       ;

EOJ       ;

 +1        KILL AUDSLO,AUDSHI,AUDSL,AUDSFILE

 +2        QUIT