XBPOST ; IHS/ADC/GTH - XB/ZIB INSTALLATION POSTINIT ; [ 02/07/97 3:02 PM ]
;;3.0;IHS/VA UTILITIES;;FEB 07, 1997
;
W !!,$$C^XBFUNC("Beginning XB/ZIB post-init at "_$$FMTE^XLFDT($$HTFM^XLFDT($H))_".")
;
W !!,$$C^XBFUNC("Checking PROTOCOL file for XB entries")
;
F XB="XB DISPLAY","XB NEXT SCREEN","XB PREVIOUS SCREEN","XB QUIT" I '$D(^ORD(101,"B",XB)) W *7,!,"You're missing option '",XB,"' from PROTOCOL." D
. I $$DIR^XBDIR("Y","Do you want to run XBONIT to add the option","Y","","Routine XBONIT will add the XB options to your PROTOCOL file","^D HELP^XBHELP(""ORD101"",""XBPOST"")","") D ^XBONIT
.Q
;
;
W !,$$C^XBFUNC("Delivering mail message to local programmers")
;
D MAIL^XBMAIL("XUMGR-XUPROGMODE","DESC^XBPOST")
;
I $$DIR^XBDIR("Y","Do you want to <DELETE> un-needed routines","N","","I'll delete the XB init routines, etc. (Except routine XBINIT)") D
. S X=$$RSEL^ZIBRSEL("XBINI*","^TMP(""XBPOST"",$J,")
. KILL ^TMP("XBPOST",$J,"XBINIT")
. I $D(^ORD(101,"B","XB DISPLAY")),$D(^("XB NEXT SCREEN")),$D(^("XB PREVIOUS SCREEN")),$D(^("XB QUIT")) S X=$$RSEL^ZIBRSEL("XBONI*","^TMP(""XBPOST"",$J,")
. S X=""
. F S X=$O(^TMP("XBPOST",$J,X)) Q:X="" X ^%ZOSF("DEL") W !,X,$E("...........",1,11-$L(X)),"<poof'd>"
. KILL ^TMP("XBPOST",$J)
.Q
;
W !!,$$C^XBFUNC("You can print a Technical Manual thru the option")
W !,$$C^XBFUNC("on the 'MISCELLANEOUS' menu, or with DO ^XBTM.")
;
NEW DIC
S DIC="^DIC(19,",DIC(0)="",X="ZIB REMOTE PATCH INSTALLATION"
D ^DIC
I Y<0 W !!,$$C^XBFUNC("You don't have the Remote Patch Installer (ZIBRPI) installed."),!,$$C^XBFUNC("See instructions/descriptions in routine ZIBRPI2.")
D HELP^XBHELP("MGR","XBPOST")
;
D EN^XBVK("XB"),EN^XBVK("ZIB")
W !!,$$C^XBFUNC("XB/ZIB v 3.0 post-init complete at "_$$FMTE^XLFDT($$HTFM^XLFDT($H))_".")
Q
;
ORD101 ;
;;You're missing one of the XB options from your PROTOCOL file
;;that's needed for the XB interface to the VA's list manager
;;(VALM). If you answer "Y"es, routine ^XBONIT will be called,
;;which will add (or overwrite) the following entries:
;;"XB DISPLAY", "XB NEXT SCREEN", "XB PREVIOUS SCREEN", "XB QUIT".
;;@;!
;;If you answer "N"o, you can run the XBONIT routine later. If
;;you don't run ^XBONIT, and are lacking the XB entries in your
;;PROTOCOL file, you're XB interface to the list manager will be
;;undetermined.
;;###
;
MGR ;
;;Don't forget to copy, and rename, the following routines to the
;;MGR uci:
;; Routine Rename As
;; -------- --------
;; XBCLS %XBCLS
;; ZIBGD %ZIBGD
;; ZIBRD %ZIBRD
;; ZIBCLU0 %ZIBCLU0
;; ZIBZUCI %ZUCI
;;###
;
DESC ;
;;XB/ZIB v 3.0, Installation Announcement.
;;
;;++++++++++++ XB/ZIB 3.0 Installation Announcement +++++++++++++++
;;+ This mail message has been delivered to all local +
;;+ users that hold an XUMGR, XUPROG, or XUPROGMODE security key. +
;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;;
;;Please direct your questions or comments about RPMS software to:
;; OIRM / DSD (Division of Systems Development)
;; 5300 Homestead Road NE
;; Albuquerque NM 87110
;; 505-837-4189
;;
;;-----------------------------------------------------------------
;;
;;(1) XBDIR - DIR INTERFACE.
;;The purpose of routine XBDIR is to provide interface methodology
;;for a call to ^DIR, to ensure correct handling of variables, and
;;to provide for the expressiveness of an extrinsic function. There
;;is no requirement to use the interface.
;;
;;-----------------------------------------------------------------
;;
;;(2) XBBPI - BUILD PRE-INIT ROUTINE.
;;Implementation specific Z commands were replaced with equivalent
;;^%ZOSF nodes.
;;
;;-----------------------------------------------------------------
;;
;;(3) XBHELP - DISPLAY HELP TEXT TO USER.
;;Although this routine was specifically requested to provide the
;;flexibility to display text to the user, it can be used at other
;;times.
;;
;;-----------------------------------------------------------------
;;
;;(4) XBHFMAN - PRINT A MANUAL CONSISTING OF INFO FROM HELP FRAMES.
;;This utility creates a "manual" consisting of information from the
;;option tree of the selected application, and information contained
;;in the option descriptions and help frames.
;;
;;-----------------------------------------------------------------
;;
;;(5) XBKTMP - CLEAN ^TMP().
;;This routine KILLs nodes in ^TMP( whose first or second subscripts
;;are the current $J.
;;
;;-----------------------------------------------------------------
;;
;;(6) XBLCALL - LIST CALLABLE ROUTINES.
;;The routine has been updated to list published entry points that
;;are supported for calls from other applications.
;;
;;-----------------------------------------------------------------
;;
;;(7) XBLM - LIST MANAGER INTERFACE.
;;Two entry points have been added for support of future GUI
;;programming.
;;
;;-----------------------------------------------------------------
;;
;;(8) XBON/XBOFF - SET REVERSE VIDEO ON/OFF.
;;
;;-----------------------------------------------------------------
;;
;;(9) XBTM - PRINT XB/ZIB TECH MANUAL.
;;This routine provides for the printing of a technical manual for
;;the XB/ZIB routines. One or all chapters can be printed. The
;;information comes from existing routines, and other attributes,
;;on the local machine, and will reflect all local modifications.
;;All entry points and published entry points (PEP) are listed.
;;
;;-----------------------------------------------------------------
;;
;;(10) XBVIDEO - SET/WRITE VARIOUS DEVICE ATTRIBUTES.
;;Entry point EN provides access to creating, writing, and resetting
;;cursor position for various device attributes, both supported by
;;%ZISS, and not supported by %ZISS. See the routine for the
;;variables.
;;
;;-----------------------------------------------------------------
;;
;;(11) XBVK - KILL LIST OF LOCAL VARIABLES.
;;This routine calls an implementation specific routine which
;;searches the symbol table and kills local variables within the
;;namespace passed in the parameter.
;;
;;-----------------------------------------------------------------
;;
;;(12) XBVL - LIST LOCAL VARIABLES.
;;This is an interactive utility which will provide programmers with
;;the ability to list a subset, based on a selected namespace, of
;;local variables.
;;
;;-----------------------------------------------------------------
;;
;;(13) ZIBERR - PROVIDE ACCESS TO THE SYSTEM ERROR VARIABLE.
;;This provides access to implementation specific system variable to
;;return the current error, if any.
;;
;;-----------------------------------------------------------------
;;
;;(14) ZIBGCHAR - MODIFY GLOBAL CHARACTERISTICS.
;;Several entry points allow modification of implementation
;;specific global characteristics.
;;
;;-----------------------------------------------------------------
;;
;;(15) ZIBNSSV - NON-STANDARD SYSTEM VARIABLES.
;;This routine provides access to common non-standard system
;;variables that are implementation specific.
;;
;;-----------------------------------------------------------------
;;
;;(16) ZIBTCP - PRINT TO REMOTE PRINTER THRU TCP.
;;
;;-----------------------------------------------------------------
;;
;;+++++++++++++ end of 3.0 Installation announcement ++++++++++++++
;;###
;
XBPOST ; IHS/ADC/GTH - XB/ZIB INSTALLATION POSTINIT ; [ 02/07/97 3:02 PM ]
+1 ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997
+2 ;
+3 WRITE !!,$$C^XBFUNC("Beginning XB/ZIB post-init at "_$$FMTE^XLFDT($$HTFM^XLFDT($HOROLOG))_".")
+4 ;
+5 WRITE !!,$$C^XBFUNC("Checking PROTOCOL file for XB entries")
+6 ;
+7 FOR XB="XB DISPLAY","XB NEXT SCREEN","XB PREVIOUS SCREEN","XB QUIT"
IF '$DATA(^ORD(101,"B",XB))
WRITE *7,!,"You're missing option '",XB,"' from PROTOCOL."
Begin DoDot:1
+8 IF $$DIR^XBDIR("Y","Do you want to run XBONIT to add the option","Y","","Routine XBONIT will add the XB options to your PROTOCOL file","^D HELP^XBHELP(""ORD101"",""XBPOST"")","")
DO ^XBONIT
+9 QUIT
End DoDot:1
+10 ;
+11 ;
+12 WRITE !,$$C^XBFUNC("Delivering mail message to local programmers")
+13 ;
+14 DO MAIL^XBMAIL("XUMGR-XUPROGMODE","DESC^XBPOST")
+15 ;
+16 IF $$DIR^XBDIR("Y","Do you want to <DELETE> un-needed routines","N","","I'll delete the XB init routines, etc. (Except routine XBINIT)")
Begin DoDot:1
+17 SET X=$$RSEL^ZIBRSEL("XBINI*","^TMP(""XBPOST"",$J,")
+18 KILL ^TMP("XBPOST",$JOB,"XBINIT")
+19 IF $DATA(^ORD(101,"B","XB DISPLAY"))
IF $DATA(^("XB NEXT SCREEN"))
IF $DATA(^("XB PREVIOUS SCREEN"))
IF $DATA(^("XB QUIT"))
SET X=$$RSEL^ZIBRSEL("XBONI*","^TMP(""XBPOST"",$J,")
+20 SET X=""
+21 FOR
SET X=$ORDER(^TMP("XBPOST",$JOB,X))
IF X=""
QUIT
XECUTE ^%ZOSF("DEL")
WRITE !,X,$EXTRACT("...........",1,11-$LENGTH(X)),"<poof'd>"
+22 KILL ^TMP("XBPOST",$JOB)
+23 QUIT
End DoDot:1
+24 ;
+25 WRITE !!,$$C^XBFUNC("You can print a Technical Manual thru the option")
+26 WRITE !,$$C^XBFUNC("on the 'MISCELLANEOUS' menu, or with DO ^XBTM.")
+27 ;
+28 NEW DIC
+29 SET DIC="^DIC(19,"
SET DIC(0)=""
SET X="ZIB REMOTE PATCH INSTALLATION"
+30 DO ^DIC
+31 IF Y<0
WRITE !!,$$C^XBFUNC("You don't have the Remote Patch Installer (ZIBRPI) installed."),!,$$C^XBFUNC("See instructions/descriptions in routine ZIBRPI2.")
+32 DO HELP^XBHELP("MGR","XBPOST")
+33 ;
+34 DO EN^XBVK("XB")
DO EN^XBVK("ZIB")
+35 WRITE !!,$$C^XBFUNC("XB/ZIB v 3.0 post-init complete at "_$$FMTE^XLFDT($$HTFM^XLFDT($HOROLOG))_".")
+36 QUIT
+37 ;
ORD101 ;
+1 ;;You're missing one of the XB options from your PROTOCOL file
+2 ;;that's needed for the XB interface to the VA's list manager
+3 ;;(VALM). If you answer "Y"es, routine ^XBONIT will be called,
+4 ;;which will add (or overwrite) the following entries:
+5 ;;"XB DISPLAY", "XB NEXT SCREEN", "XB PREVIOUS SCREEN", "XB QUIT".
+6 ;;@;!
+7 ;;If you answer "N"o, you can run the XBONIT routine later. If
+8 ;;you don't run ^XBONIT, and are lacking the XB entries in your
+9 ;;PROTOCOL file, you're XB interface to the list manager will be
+10 ;;undetermined.
+11 ;;###
+12 ;
MGR ;
+1 ;;Don't forget to copy, and rename, the following routines to the
+2 ;;MGR uci:
+3 ;; Routine Rename As
+4 ;; -------- --------
+5 ;; XBCLS %XBCLS
+6 ;; ZIBGD %ZIBGD
+7 ;; ZIBRD %ZIBRD
+8 ;; ZIBCLU0 %ZIBCLU0
+9 ;; ZIBZUCI %ZUCI
+10 ;;###
+11 ;
DESC ;
+1 ;;XB/ZIB v 3.0, Installation Announcement.
+2 ;;
+3 ;;++++++++++++ XB/ZIB 3.0 Installation Announcement +++++++++++++++
+4 ;;+ This mail message has been delivered to all local +
+5 ;;+ users that hold an XUMGR, XUPROG, or XUPROGMODE security key. +
+6 ;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+7 ;;
+8 ;;Please direct your questions or comments about RPMS software to:
+9 ;; OIRM / DSD (Division of Systems Development)
+10 ;; 5300 Homestead Road NE
+11 ;; Albuquerque NM 87110
+12 ;; 505-837-4189
+13 ;;
+14 ;;-----------------------------------------------------------------
+15 ;;
+16 ;;(1) XBDIR - DIR INTERFACE.
+17 ;;The purpose of routine XBDIR is to provide interface methodology
+18 ;;for a call to ^DIR, to ensure correct handling of variables, and
+19 ;;to provide for the expressiveness of an extrinsic function. There
+20 ;;is no requirement to use the interface.
+21 ;;
+22 ;;-----------------------------------------------------------------
+23 ;;
+24 ;;(2) XBBPI - BUILD PRE-INIT ROUTINE.
+25 ;;Implementation specific Z commands were replaced with equivalent
+26 ;;^%ZOSF nodes.
+27 ;;
+28 ;;-----------------------------------------------------------------
+29 ;;
+30 ;;(3) XBHELP - DISPLAY HELP TEXT TO USER.
+31 ;;Although this routine was specifically requested to provide the
+32 ;;flexibility to display text to the user, it can be used at other
+33 ;;times.
+34 ;;
+35 ;;-----------------------------------------------------------------
+36 ;;
+37 ;;(4) XBHFMAN - PRINT A MANUAL CONSISTING OF INFO FROM HELP FRAMES.
+38 ;;This utility creates a "manual" consisting of information from the
+39 ;;option tree of the selected application, and information contained
+40 ;;in the option descriptions and help frames.
+41 ;;
+42 ;;-----------------------------------------------------------------
+43 ;;
+44 ;;(5) XBKTMP - CLEAN ^TMP().
+45 ;;This routine KILLs nodes in ^TMP( whose first or second subscripts
+46 ;;are the current $J.
+47 ;;
+48 ;;-----------------------------------------------------------------
+49 ;;
+50 ;;(6) XBLCALL - LIST CALLABLE ROUTINES.
+51 ;;The routine has been updated to list published entry points that
+52 ;;are supported for calls from other applications.
+53 ;;
+54 ;;-----------------------------------------------------------------
+55 ;;
+56 ;;(7) XBLM - LIST MANAGER INTERFACE.
+57 ;;Two entry points have been added for support of future GUI
+58 ;;programming.
+59 ;;
+60 ;;-----------------------------------------------------------------
+61 ;;
+62 ;;(8) XBON/XBOFF - SET REVERSE VIDEO ON/OFF.
+63 ;;
+64 ;;-----------------------------------------------------------------
+65 ;;
+66 ;;(9) XBTM - PRINT XB/ZIB TECH MANUAL.
+67 ;;This routine provides for the printing of a technical manual for
+68 ;;the XB/ZIB routines. One or all chapters can be printed. The
+69 ;;information comes from existing routines, and other attributes,
+70 ;;on the local machine, and will reflect all local modifications.
+71 ;;All entry points and published entry points (PEP) are listed.
+72 ;;
+73 ;;-----------------------------------------------------------------
+74 ;;
+75 ;;(10) XBVIDEO - SET/WRITE VARIOUS DEVICE ATTRIBUTES.
+76 ;;Entry point EN provides access to creating, writing, and resetting
+77 ;;cursor position for various device attributes, both supported by
+78 ;;%ZISS, and not supported by %ZISS. See the routine for the
+79 ;;variables.
+80 ;;
+81 ;;-----------------------------------------------------------------
+82 ;;
+83 ;;(11) XBVK - KILL LIST OF LOCAL VARIABLES.
+84 ;;This routine calls an implementation specific routine which
+85 ;;searches the symbol table and kills local variables within the
+86 ;;namespace passed in the parameter.
+87 ;;
+88 ;;-----------------------------------------------------------------
+89 ;;
+90 ;;(12) XBVL - LIST LOCAL VARIABLES.
+91 ;;This is an interactive utility which will provide programmers with
+92 ;;the ability to list a subset, based on a selected namespace, of
+93 ;;local variables.
+94 ;;
+95 ;;-----------------------------------------------------------------
+96 ;;
+97 ;;(13) ZIBERR - PROVIDE ACCESS TO THE SYSTEM ERROR VARIABLE.
+98 ;;This provides access to implementation specific system variable to
+99 ;;return the current error, if any.
+100 ;;
+101 ;;-----------------------------------------------------------------
+102 ;;
+103 ;;(14) ZIBGCHAR - MODIFY GLOBAL CHARACTERISTICS.
+104 ;;Several entry points allow modification of implementation
+105 ;;specific global characteristics.
+106 ;;
+107 ;;-----------------------------------------------------------------
+108 ;;
+109 ;;(15) ZIBNSSV - NON-STANDARD SYSTEM VARIABLES.
+110 ;;This routine provides access to common non-standard system
+111 ;;variables that are implementation specific.
+112 ;;
+113 ;;-----------------------------------------------------------------
+114 ;;
+115 ;;(16) ZIBTCP - PRINT TO REMOTE PRINTER THRU TCP.
+116 ;;
+117 ;;-----------------------------------------------------------------
+118 ;;
+119 ;;+++++++++++++ end of 3.0 Installation announcement ++++++++++++++
+120 ;;###
+121 ;
