source: IHS-VA_UTILITIES-XB/trunk/XBTM7.m@ 1745

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

Modified directory structure; moved routines.

File size: 1.8 KB
RevLine 
[641]1XBTM7 ; IHS/ADC/GTH - TECH MANUAL : ROUTINES ; [ 02/07/97 3:02 PM ]
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ;
4 NEW A
5 F A=1:1 S X=$P($T(PR+A),";;",2) Q:X="###" D PR(X) Q:$D(DUOUT)
6 Q:$D(DUOUT)
7 D ^DIWW
8 KILL ^TMP("XBTM-RTN",$J)
9 NEW A,B
10 S DIWF="WN"
11 D PR("Routines & sub-routines in namespace :"),PR(" "),PR(" ")
12 Q:$D(DUOUT)
13 S %=$$RSEL^ZIBRSEL("XB*","^TMP(""XB"",$J,")
14 S %=$$RSEL^ZIBRSEL("ZIB*","^TMP(""XB"",$J,")
15 S %=""
16 F S %=$O(^TMP("XB",$J,%)) Q:%="" Q:$D(DUOUT) D
17 . D PR($E("|_|"_%_"|_| "_$P($T(+1^@%)," ",2,99),1,(DIWR-DIWL+7)))
18 . Q:$D(DUOUT)
19 . S B=$T(+1^@%)
20 . I B["; GENERATED FROM "!(B["; DRIVER FOR")!(B["; COMPILED XREF") S ^TMP("XBTM-RTN",$J,"C",%)=B
21 . F A=3:1 S B=$T(+A^@%) Q:B=""!('($E(B,1,2)=" ;")) D PR(" "_$E(B,1,(DIWR-DIWL-2))) Q:$D(DUOUT)
22 . Q:$D(DUOUT)
23 . F A=3:1 S B=$T(+A^@%) Q:B="" I '($E(B)=" ") D PR(" "_$E(B,1,(DIWR-DIWL-2))) I B[";EP"!(B["ENTRY POINT") S ^TMP("XBTM-RTN",$J,%,$P(B," "))=$P(B," ",2,999) Q:$D(DUOUT)
24 . Q:$D(DUOUT)
25 . D PR(" ")
26 .Q
27 ;
28 D PR("|TOP|"),PR(" "),PR("Documented entry points:"),PR(" ")
29 Q:$D(DUOUT)
30 S (A,B)=""
31 F S A=$O(^TMP("XBTM-RTN",$J,A)) Q:A=""!(A="C") Q:$D(DUOUT) F S B=$O(^TMP("XBTM-RTN",$J,A,B)) Q:B="" D PR($E(B_U_A_" : "_^(B),1,(DIWR-DIWL))) Q:$D(DUOUT)
32 Q:$D(DUOUT)
33 ;
34 D PR(" "),PR(" "),PR("Compiled/Generated routines:"),PR(" ")
35 Q:$D(DUOUT)
36 S A=""
37 F S A=$O(^TMP("XBTM-RTN",$J,"C",A)) Q:A="" D PR($E(^(A),1,(DIWR-DIWL))) Q:$D(DUOUT)
38 Q:$D(DUOUT)
39 ;
40 KILL ^TMP("XBTM-RTN",$J)
41 S DIWF="W"
42 Q
43 ;
44PR(X) NEW %,A,B D PR^XBTM(X) Q
45 ;;These are the routine descriptions, which are usually contained
46 ;;in the commented lines prior to the first label or executable
47 ;;line.
48 ;;|SETTAB("C")||TAB|
49 ;;Each line label is also listed. The internally documented
50 ;;entry points (" ;EP") are listed.
51 ;;|SETTAB("C")||TAB|
52 ;;|SETTAB("C")||TAB|
53 ;;###
Note: See TracBrowser for help on using the repository browser.