Routine: AULZRO

%AULZRO ; LISTS 0TH NODES [ 11/17/87  10:40 AM ]

 W !,"This routine lists the 0th nodes of FileMan files by a range",!,"of file numbers."

LO R !!,"Enter low  file number: ",AULZLO G:AULZLO="" EOJ G:AULZLO'=+AULZLO ERR

HI R !,"Enter high file number: ",AULZHI S:AULZHI="" AULZHI=AULZLO G:AULZHI'=+AULZHI!(AULZHI<AULZLO) ERR

W !

 S AULZFILE=(AULZLO-.00000001) F AULZL=0:0 S AULZFILE=$O(^DIC(AULZFILE)) Q:AULZFILE>AULZHI!(AULZFILE'=+AULZFILE)  S AULZG="" I $D(^DIC(AULZFILE,0,"GL")) S AULZG=^("GL") D HI2

 G LO

HI2 ;

 S AULZX=$L(AULZG),AULZX=$E(AULZG,1,AULZX-1)_$S($E(AULZG,AULZX)=",":",0)",1:"(0)") S AULZZN="<DOES NOT EXIST>" S:$D(@AULZX) AULZZN=^(0)

 W !,AULZFILE,?15,AULZX,?35,AULZZN

ERR W !!,"File numbers must be canonic, and the ending file must not be < than the",!,"  beginning file!",!

EOJ ;

 K AULZLO,AULZHI,AULZFILE,AULZL,AULZG,AULZX,AULZZN

%AULZRO   ; LISTS 0TH NODES [ 11/17/87  10:40 AM ]

 +1       ;

 +2        WRITE !,"This routine lists the 0th nodes of FileMan files by a range",!,"of file numbers."

 +3       ;

LO         READ !!,"Enter low  file number: ",AULZLO

           IF AULZLO=""

               GOTO EOJ

           IF AULZLO'=+AULZLO

               GOTO ERR

HI         READ !,"Enter high file number: ",AULZHI

           IF AULZHI=""

               SET AULZHI=AULZLO

           IF AULZHI'=+AULZHI!(AULZHI<AULZLO)

               GOTO ERR

 +1        WRITE !

 +2        SET AULZFILE=(AULZLO-.00000001)

           FOR AULZL=0:0

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

               IF AULZFILE>AULZHI!(AULZFILE'=+AULZFILE)

                   QUIT

               SET AULZG=""

               IF $DATA(^DIC(AULZFILE,0,"GL"))

                   SET AULZG=^("GL")

                   DO HI2

 +3        GOTO LO

HI2       ;

 +1        SET AULZX=$LENGTH(AULZG)

           SET AULZX=$EXTRACT(AULZG,1,AULZX-1)_$SELECT($EXTRACT(AULZG,AULZX)=",":",0)",1:"(0)")

           SET AULZZN="<DOES NOT EXIST>"

           IF $DATA(@AULZX)

               SET AULZZN=^(0)

 +2        WRITE !,AULZFILE,?15,AULZX,?35,AULZZN

 +3        QUIT

ERR        WRITE !!,"File numbers must be canonic, and the ending file must not be < than the",!,"  beginning file!",!

EOJ       ;

 +1        KILL AULZLO,AULZHI,AULZFILE,AULZL,AULZG,AULZX,AULZZN

 +2        QUIT

AULZRO.m