source: IHS-VA_UTILITIES-XB/trunk/XBRSRCH.m@ 1039

Last change on this file since 1039 was 642, checked in by Sam Habiel, 15 years ago

Modified directory structure; moved routines.

File size: 1.4 KB
Line 
1XBRSRCH ; 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 ;
7START ;
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 ;
21CHECK ; 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 ;
41LIST ; 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 ;
49EOJ ;
50 KILL ^UTILITY("XBRSRCH",$J),X,Y,DIC
51 Q
52 ;
Note: See TracBrowser for help on using the repository browser.