XBTMTI.m

XBTMTI ; IHS/ADC/GTH - TECH MANUAL : TITLE PAGE ; [ 02/07/97   3:02 PM ]

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

 ;

 NEW XBCTR

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

 D ^DIWW

 Q

 ;

TITLE ;;

 ;;  

 ;;  

 ;;  

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

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

 ;;  

 ;;  

 ;;  

 ;;  

 ;;  

 ;;|SETTAB("C")||TAB|RESOURCE AND PATIENT MANAGEMENT SYSTEM

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

 ;;  

 ;;  

 ;;  

 ;;  

 ;;  

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

 ;;  

 ;;  

 ;;  

 ;;  

 ;;  

 ;;|SETTAB("C")||TAB|IHS/VA UTILITIES

 ;;|SETTAB("C")||TAB|XB/ZIB

 ;;  

 ;;  

 ;;  

 ;;  

 ;;  

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

 ;;  

 ;;  

 ;;  

 ;;  

 ;;  

 ;;  

 ;;  

 ;;  

 ;;  

 ;;|SETTAB("C")||TAB|April 30, 1996

 ;;  

 ;;  

 ;;  

 ;;  

 ;;  

 ;;|SETTAB("C")||TAB|Office of Information Resource Management

 ;;|SETTAB("C")||TAB|Indian Health Service

 ;;|SETTAB("C")||TAB|Albuquerque, New Mexico

 ;;  

 ;;  

 ;;  

 ;;  

 ;;  

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

XBTMTI    ; IHS/ADC/GTH - TECH MANUAL : TITLE PAGE ; [ 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(TITLE+XBCTR),";;",2)

               IF X=""

                   QUIT 

               DO PR^XBTM(X)

 +5        DO ^DIWW

 +6        QUIT 

 +7       ;

TITLE     ;;

 +1       ;;  

 +2       ;;  

 +3       ;;  

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

 +5       ;;|SETTAB("C")||TAB|***********************************************************

 +6       ;;  

 +7       ;;  

 +8       ;;  

 +9       ;;  

 +10      ;;  

 +11      ;;|SETTAB("C")||TAB|RESOURCE AND PATIENT MANAGEMENT SYSTEM

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

 +13      ;;  

 +14      ;;  

 +15      ;;  

 +16      ;;  

 +17      ;;  

 +18      ;;|SETTAB("C")||TAB|TECHNICAL MANUAL

 +19      ;;  

 +20      ;;  

 +21      ;;  

 +22      ;;  

 +23      ;;  

 +24      ;;|SETTAB("C")||TAB|IHS/VA UTILITIES

 +25      ;;|SETTAB("C")||TAB|XB/ZIB

 +26      ;;  

 +27      ;;  

 +28      ;;  

 +29      ;;  

 +30      ;;  

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

 +32      ;;  

 +33      ;;  

 +34      ;;  

 +35      ;;  

 +36      ;;  

 +37      ;;  

 +38      ;;  

 +39      ;;  

 +40      ;;  

 +41      ;;|SETTAB("C")||TAB|April 30, 1996

 +42      ;;  

 +43      ;;  

 +44      ;;  

 +45      ;;  

 +46      ;;  

 +47      ;;|SETTAB("C")||TAB|Office of Information Resource Management

 +48      ;;|SETTAB("C")||TAB|Indian Health Service

 +49      ;;|SETTAB("C")||TAB|Albuquerque, New Mexico

 +50      ;;  

 +51      ;;  

 +52      ;;  

 +53      ;;  

 +54      ;;  

 +55      ;;|SETTAB("C")||TAB|***********************************************************