| [641] | 1 | XBRSRCH ; IHS/ADC/GTH - SEARCH DD FOR CALLED ROUTINES ; [ 02/07/97 3:02 PM ]
|
|---|
| 2 | ;;4.0;XB;;Jul 20, 2009;Build 2
|
|---|
| 3 | ;
|
|---|
| 4 | ; This routine searches a dictionary for called routines,
|
|---|
| 5 | ; excluding %DT*, DIC, DIK, and DIQ.
|
|---|
| 6 | ;
|
|---|
| 7 | START ;
|
|---|
| 8 | W !,"This routine searches dictionaries for called routines, excluding %DT*, DIC,",!," DIK, and DIQ.",!
|
|---|
| 9 | S U="^"
|
|---|
| 10 | R !,"[D]etail or [L]ist only: L//",X:$G(DTIME,999)
|
|---|
| 11 | S:X'="D" XBRSRCH("NO DETAIL")=1
|
|---|
| 12 | ; could be a little friendlier
|
|---|
| 13 | W !
|
|---|
| 14 | D ^XBDSET
|
|---|
| 15 | Q:'$D(^UTILITY("XBDSET",$J))
|
|---|
| 16 | S XBRSRCH("QFLG")=0,XBRSRCH("FILE")=0
|
|---|
| 17 | F XBRSRCH("L")=0:0 S XBRSRCH("FILE")=$O(^UTILITY("XBDSET",$J,XBRSRCH("FILE"))) Q:XBRSRCH("FILE")="" D CHECK Q:XBRSRCH("QFLG")
|
|---|
| 18 | KILL XBRSRCH,^UTILITY("XBDSET",$J)
|
|---|
| 19 | Q
|
|---|
| 20 | ;
|
|---|
| 21 | CHECK ; CHECK FILES UNTIL ALL DONE
|
|---|
| 22 | W !!,"Searching ",$P(^DIC(XBRSRCH("FILE"),0),"^",1)," file (",XBRSRCH("FILE"),")"
|
|---|
| 23 | KILL ^UTILITY("XBRSRCH",$J)
|
|---|
| 24 | W !!,"INPUT TRANSFORMS",!
|
|---|
| 25 | S XBSINP("FILE")=XBRSRCH("FILE")
|
|---|
| 26 | D EN^XBRSRCH2
|
|---|
| 27 | W !!,"OUTPUT TRANSFORMS",!
|
|---|
| 28 | S XBSOUT("FILE")=XBRSRCH("FILE")
|
|---|
| 29 | D EN^XBRSRCH3
|
|---|
| 30 | W !!,"CROSS-REFERENCES",!
|
|---|
| 31 | S XBSXREF("FILE")=XBRSRCH("FILE")
|
|---|
| 32 | D EN^XBRSRCH4
|
|---|
| 33 | W !!,"MISCELLANEOUS ^DD ENTRIES",!
|
|---|
| 34 | S XBSM("FILE")=XBRSRCH("FILE")
|
|---|
| 35 | D EN^XBRSRCH5
|
|---|
| 36 | W !
|
|---|
| 37 | D LIST
|
|---|
| 38 | D EOJ
|
|---|
| 39 | Q
|
|---|
| 40 | ;
|
|---|
| 41 | LIST ; LIST ROUTINE NAMES
|
|---|
| 42 | Q:'$D(^UTILITY("XBRSRCH",$J))
|
|---|
| 43 | W !!,"Sorted list of routines found:",!
|
|---|
| 44 | S X=""
|
|---|
| 45 | F XBRSRCH("L")=0:0 S X=$O(^UTILITY("XBRSRCH",$J,X)) Q:X="" W !,"^",X
|
|---|
| 46 | W !
|
|---|
| 47 | Q
|
|---|
| 48 | ;
|
|---|
| 49 | EOJ ;
|
|---|
| 50 | KILL ^UTILITY("XBRSRCH",$J),X,Y,DIC
|
|---|
| 51 | Q
|
|---|
| 52 | ;
|
|---|
