VistA-IHS-VA_UTILITIES-XB/XBPOST.m

186 lines
7.4 KiB
Mathematica

XBPOST ; IHS/ADC/GTH - XB/ZIB INSTALLATION POSTINIT ; [ 02/07/97 3:02 PM ]
;;4.0;XB;;Jul 20, 2009;Build 2
;
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 ++++++++++++++
;;###
;