XBTMPR.m

XBTMPR ; IHS/ADC/GTH - TECH MANUAL : PREFACE ; [ 02/07/97   3:02 PM ]

 ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997

 ;

 NEW XBCTR

 F XBCTR=1:1 S X=$P($T(PREFACE+XBCTR),";;",2) Q:X=""  D PR^XBTM(X)

 D ^DIWW

 Q

 ;

PREFACE ;;

 ;;|SETTAB("C")||TAB| 

 ;;|SETTAB("C")||TAB| 

 ;;|SETTAB("C")||TAB| 

 ;;|SETTAB("C")||TAB|PREFACE 

 ;; 

 ;;This document is designed primarily for RPMS application

 ;;programmers.  Area and site IRM personnel can find this

 ;;document helpful in understanding how the XB/ZIB utility

 ;;routines operate.  

 ;; 

 ;;|SETTAB("C")||TAB| 

 ;;|SETTAB("C")||TAB| 

 ;;|SETTAB("C")||TAB| 

 ;;|SETTAB("C")||TAB|INTRODUCTION 

 ;;|SETTAB("C")||TAB| 

 ;;|SETTAB("C")||TAB| 

 ;;The IHS/VA UTILITIES are in the XB

 ;;namespace, for routines that are not MUMPS

 ;;implementation specific.  Routines that are implementation specific

 ;;will be in the ZIB namespace.

 ;; 

 ;;Programmer tools are available from programmer mode thru the

 ;;menu-driver routine XB.

 ;;   

 ;;There are no files associated with this package.

 ;;     

 ;;To aid in your reading the routines, if required, the following

 ;;style guidelines have been followed in most of the routines.

 ;;|SETTAB("C")||TAB| 

 ;;    (1)  all NEW and KILL commands are not abbreviated;

 ;;|SETTAB("C")||TAB| 

 ;;    (2)  only one command scope per line;

 ;;|SETTAB("C")||TAB| 

 ;;    (3)  unconditional GOs/QUITs are followed by a comment line;

 ;;|SETTAB("C")||TAB| 

 ;;    (4)  lines with labels have no executable code;

 ;;|SETTAB("C")||TAB| 

 ;;|SETTAB("C")||TAB| 

XBTMPR    ; IHS/ADC/GTH - TECH MANUAL : PREFACE ; [ 02/07/97   3:02 PM ]

 +1       ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997

 +2       ;

 +3        NEW XBCTR

 +4        FOR XBCTR=1:1

               SET X=$PIECE($TEXT(PREFACE+XBCTR),";;",2)

               IF X=""

                   QUIT 

               DO PR^XBTM(X)

 +5        DO ^DIWW

 +6        QUIT 

 +7       ;

PREFACE   ;;

 +1       ;;|SETTAB("C")||TAB| 

 +2       ;;|SETTAB("C")||TAB| 

 +3       ;;|SETTAB("C")||TAB| 

 +4       ;;|SETTAB("C")||TAB|PREFACE 

 +5       ;; 

 +6       ;;This document is designed primarily for RPMS application

 +7       ;;programmers.  Area and site IRM personnel can find this

 +8       ;;document helpful in understanding how the XB/ZIB utility

 +9       ;;routines operate.  

 +10      ;; 

 +11      ;;|SETTAB("C")||TAB| 

 +12      ;;|SETTAB("C")||TAB| 

 +13      ;;|SETTAB("C")||TAB| 

 +14      ;;|SETTAB("C")||TAB|INTRODUCTION 

 +15      ;;|SETTAB("C")||TAB| 

 +16      ;;|SETTAB("C")||TAB| 

 +17      ;;The IHS/VA UTILITIES are in the XB

 +18      ;;namespace, for routines that are not MUMPS

 +19      ;;implementation specific.  Routines that are implementation specific

 +20      ;;will be in the ZIB namespace.

 +21      ;; 

 +22      ;;Programmer tools are available from programmer mode thru the

 +23      ;;menu-driver routine XB.

 +24      ;;   

 +25      ;;There are no files associated with this package.

 +26      ;;     

 +27      ;;To aid in your reading the routines, if required, the following

 +28      ;;style guidelines have been followed in most of the routines.

 +29      ;;|SETTAB("C")||TAB| 

 +30      ;;    (1)  all NEW and KILL commands are not abbreviated;

 +31      ;;|SETTAB("C")||TAB| 

 +32      ;;    (2)  only one command scope per line;

 +33      ;;|SETTAB("C")||TAB| 

 +34      ;;    (3)  unconditional GOs/QUITs are followed by a comment line;

 +35      ;;|SETTAB("C")||TAB| 

 +36      ;;    (4)  lines with labels have no executable code;

 +37      ;;|SETTAB("C")||TAB| 

 +38      ;;|SETTAB("C")||TAB|