source: IHS-VA_UTILITIES-XB/trunk/XBPOST.m@ 1681

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

Modified directory structure; moved routines.
File size: 7.4 KB
RevLine 
[641]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.