- XBTM7 ; IHS/ADC/GTH - TECH MANUAL : ROUTINES ; [ 02/07/97 3:02 PM ]
- ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997
- ;
- NEW A
- F A=1:1 S X=$P($T(PR+A),";;",2) Q:X="###" D PR(X) Q:$D(DUOUT)
- Q:$D(DUOUT)
- D ^DIWW
- KILL ^TMP("XBTM-RTN",$J)
- NEW A,B
- S DIWF="WN"
- D PR("Routines & sub-routines in namespace :"),PR(" "),PR(" ")
- Q:$D(DUOUT)
- S %=$$RSEL^ZIBRSEL("XB*","^TMP(""XB"",$J,")
- S %=$$RSEL^ZIBRSEL("ZIB*","^TMP(""XB"",$J,")
- S %=""
- F S %=$O(^TMP("XB",$J,%)) Q:%="" Q:$D(DUOUT) D
- . D PR($E("|_|"_%_"|_| "_$P($T(+1^@%)," ",2,99),1,(DIWR-DIWL+7)))
- . Q:$D(DUOUT)
- . S B=$T(+1^@%)
- . I B["; GENERATED FROM "!(B["; DRIVER FOR")!(B["; COMPILED XREF") S ^TMP("XBTM-RTN",$J,"C",%)=B
- . 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)
- . Q:$D(DUOUT)
- . 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)
- . Q:$D(DUOUT)
- . D PR(" ")
- .Q
- ;
- D PR("|TOP|"),PR(" "),PR("Documented entry points:"),PR(" ")
- Q:$D(DUOUT)
- S (A,B)=""
- 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)
- Q:$D(DUOUT)
- ;
- D PR(" "),PR(" "),PR("Compiled/Generated routines:"),PR(" ")
- Q:$D(DUOUT)
- S A=""
- F S A=$O(^TMP("XBTM-RTN",$J,"C",A)) Q:A="" D PR($E(^(A),1,(DIWR-DIWL))) Q:$D(DUOUT)
- Q:$D(DUOUT)
- ;
- KILL ^TMP("XBTM-RTN",$J)
- S DIWF="W"
- Q
- ;
- PR(X) NEW %,A,B D PR^XBTM(X) Q
- ;;These are the routine descriptions, which are usually contained
- ;;in the commented lines prior to the first label or executable
- ;;line.
- ;;|SETTAB("C")||TAB|
- ;;Each line label is also listed. The internally documented
- ;;entry points (" ;EP") are listed.
- ;;|SETTAB("C")||TAB|
- ;;|SETTAB("C")||TAB|
- ;;###
- XBTM7 ; IHS/ADC/GTH - TECH MANUAL : ROUTINES ; [ 02/07/97 3:02 PM ]
- +1 ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997
- +2 ;
- +3 NEW A
- +4 FOR A=1:1
- SET X=$PIECE($TEXT(PR+A),";;",2)
- IF X="###"
- QUIT
- DO PR(X)
- IF $DATA(DUOUT)
- QUIT
- +5 IF $DATA(DUOUT)
- QUIT
- +6 DO ^DIWW
- +7 KILL ^TMP("XBTM-RTN",$JOB)
- +8 NEW A,B
- +9 SET DIWF="WN"
- +10 DO PR("Routines & sub-routines in namespace :")
- DO PR(" ")
- DO PR(" ")
- +11 IF $DATA(DUOUT)
- QUIT
- +12 SET %=$$RSEL^ZIBRSEL("XB*","^TMP(""XB"",$J,")
- +13 SET %=$$RSEL^ZIBRSEL("ZIB*","^TMP(""XB"",$J,")
- +14 SET %=""
- +15 FOR
- SET %=$ORDER(^TMP("XB",$JOB,%))
- IF %=""
- QUIT
- IF $DATA(DUOUT)
- QUIT
- Begin DoDot:1
- +16 DO PR($EXTRACT("|_|"_%_"|_| "_$PIECE($TEXT(+1^@%)," ",2,99),1,(DIWR-DIWL+7)))
- +17 IF $DATA(DUOUT)
- QUIT
- +18 SET B=$TEXT(+1^@%)
- +19 IF B["; GENERATED FROM "!(B["; DRIVER FOR")!(B["; COMPILED XREF")
- SET ^TMP("XBTM-RTN",$JOB,"C",%)=B
- +20 FOR A=3:1
- SET B=$TEXT(+A^@%)
- IF B=""!('($EXTRACT(B,1,2)=" ;"))
- QUIT
- DO PR(" "_$EXTRACT(B,1,(DIWR-DIWL-2)))
- IF $DATA(DUOUT)
- QUIT
- +21 IF $DATA(DUOUT)
- QUIT
- +22 FOR A=3:1
- SET B=$TEXT(+A^@%)
- IF B=""
- QUIT
- IF '($EXTRACT(B)=" ")
- DO PR(" "_$EXTRACT(B,1,(DIWR-DIWL-2)))
- IF B[";EP"!(B["ENTRY POINT")
- SET ^TMP("XBTM-RTN",$JOB,%,$PIECE(B," "))=$PIECE(B," ",2,999)
- IF $DATA(DUOUT)
- QUIT
- +23 IF $DATA(DUOUT)
- QUIT
- +24 DO PR(" ")
- +25 QUIT
- End DoDot:1
- +26 ;
- +27 DO PR("|TOP|")
- DO PR(" ")
- DO PR("Documented entry points:")
- DO PR(" ")
- +28 IF $DATA(DUOUT)
- QUIT
- +29 SET (A,B)=""
- +30 FOR
- SET A=$ORDER(^TMP("XBTM-RTN",$JOB,A))
- IF A=""!(A="C")
- QUIT
- IF $DATA(DUOUT)
- QUIT
- FOR
- SET B=$ORDER(^TMP("XBTM-RTN",$JOB,A,B))
- IF B=""
- QUIT
- DO PR($EXTRACT(B_U_A_" : "_^(B),1,(DIWR-DIWL)))
- IF $DATA(DUOUT)
- QUIT
- +31 IF $DATA(DUOUT)
- QUIT
- +32 ;
- +33 DO PR(" ")
- DO PR(" ")
- DO PR("Compiled/Generated routines:")
- DO PR(" ")
- +34 IF $DATA(DUOUT)
- QUIT
- +35 SET A=""
- +36 FOR
- SET A=$ORDER(^TMP("XBTM-RTN",$JOB,"C",A))
- IF A=""
- QUIT
- DO PR($EXTRACT(^(A),1,(DIWR-DIWL)))
- IF $DATA(DUOUT)
- QUIT
- +37 IF $DATA(DUOUT)
- QUIT
- +38 ;
- +39 KILL ^TMP("XBTM-RTN",$JOB)
- +40 SET DIWF="W"
- +41 QUIT
- +42 ;
- PR(X) NEW %,A,B
- DO PR^XBTM(X)
- QUIT
- +1 ;;These are the routine descriptions, which are usually contained
- +2 ;;in the commented lines prior to the first label or executable
- +3 ;;line.
- +4 ;;|SETTAB("C")||TAB|
- +5 ;;Each line label is also listed. The internally documented
- +6 ;;entry points (" ;EP") are listed.
- +7 ;;|SETTAB("C")||TAB|
- +8 ;;|SETTAB("C")||TAB|
- +9 ;;###
