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|***********************************************************