XBPOST.m

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     ;