| 1 | XBTM7 ; 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 | ;
|
|---|
| 44 | PR(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 | ;;###
|
|---|
