source: IHS-VA_UTILITIES-XB/XBPOST.m@ 641

Last change on this file since 641 was 641, checked in by Sam Habiel, 15 years ago

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