AURSRCH.m

AURSRCH ; SEARCH FILE FOR CALLED ROUTINES [ 04/06/88  8:41 AM ]

 ;

 W !,"This routine searches a dictionary for called routines, excluding %DT* and DIC.",!

 S U="^"

 R !,"[D]etail or [L]ist only: L//",X S:X'="D" AURSRCH("NO DETAIL")=1

 W !

 S AURSRCH("QFLG")=0 F AURSRCH("L")=0:0 D LOOP Q:AURSRCH("QFLG")

 K AURSRCH

 Q

 ;

LOOP ; ASK FILES UNTIL ALL DONE

 K ^UTILITY("AURSRCH",$J)

 S DIC="^DIC(",DIC(0)="AEMQ" D ^DIC

 I Y<0 D EOJ S AURSRCH("QFLG")=1 Q

 S AURSRCH("FILE")=+Y

 W !!,"INPUT TRANSFORMS",!

 S AUSINP("FILE")=AURSRCH("FILE")

 D EN^AURSRCH2

 W !!,"OUTPUT TRANSFORMS",!

 S AUSOUT("FILE")=AURSRCH("FILE")

 D EN^AURSRCH3

 W !!,"CROSS-REFERENCES",!

 S AUSXREF("FILE")=AURSRCH("FILE")

 D EN^AURSRCH4

 W !!,"MISCELLANEOUS ^DD ENTRIES",!

 S AUSM("FILE")=AURSRCH("FILE")

 D EN^AURSRCH5

 W !

 D LIST

 D EOJ

 Q

 ;

LIST ; LIST ROUTINE NAMES

 Q:'$D(^UTILITY("AURSRCH",$J))

 W !!,"Sorted list of routines found:",!

 S X="" F AURSRCH("L")=0:0 S X=$O(^UTILITY("AURSRCH",$J,X)) Q:X=""  W !,"^",X

 W !

 Q

 ;

EOJ ;

 K ^UTILITY("AURSRCH",$J)

 K X,Y

 K DIC

 Q

AURSRCH   ; SEARCH FILE FOR CALLED ROUTINES [ 04/06/88  8:41 AM ]

 +1       ;

 +2        WRITE !,"This routine searches a dictionary for called routines, excluding %DT* and DIC.",!

 +3        SET U="^"

 +4        READ !,"[D]etail or [L]ist only: L//",X

           IF X'="D"

               SET AURSRCH("NO DETAIL")=1

 +5        WRITE !

 +6        SET AURSRCH("QFLG")=0

           FOR AURSRCH("L")=0:0

               DO LOOP

               IF AURSRCH("QFLG")

                   QUIT 

 +7        KILL AURSRCH

 +8        QUIT 

 +9       ;

LOOP      ; ASK FILES UNTIL ALL DONE

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

 +2        SET DIC="^DIC("

           SET DIC(0)="AEMQ"

           DO ^DIC

 +3        IF Y<0

               DO EOJ

               SET AURSRCH("QFLG")=1

               QUIT 

 +4        SET AURSRCH("FILE")=+Y

 +5        WRITE !!,"INPUT TRANSFORMS",!

 +6        SET AUSINP("FILE")=AURSRCH("FILE")

 +7        DO EN^AURSRCH2

 +8        WRITE !!,"OUTPUT TRANSFORMS",!

 +9        SET AUSOUT("FILE")=AURSRCH("FILE")

 +10       DO EN^AURSRCH3

 +11       WRITE !!,"CROSS-REFERENCES",!

 +12       SET AUSXREF("FILE")=AURSRCH("FILE")

 +13       DO EN^AURSRCH4

 +14       WRITE !!,"MISCELLANEOUS ^DD ENTRIES",!

 +15       SET AUSM("FILE")=AURSRCH("FILE")

 +16       DO EN^AURSRCH5

 +17       WRITE !

 +18       DO LIST

 +19       DO EOJ

 +20       QUIT 

 +21      ;

LIST      ; LIST ROUTINE NAMES

 +1        IF '$DATA(^UTILITY("AURSRCH",$JOB))

               QUIT 

 +2        WRITE !!,"Sorted list of routines found:",!

 +3        SET X=""

           FOR AURSRCH("L")=0:0

               SET X=$ORDER(^UTILITY("AURSRCH",$JOB,X))

               IF X=""

                   QUIT 

               WRITE !,"^",X

 +4        WRITE !

 +5        QUIT 

 +6       ;

EOJ       ;

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

 +2        KILL X,Y

 +3        KILL DIC

 +4        QUIT