Merge lp:~jontai/openvista-gtm-integration/carevue-zstart-zstop into lp:openvista-gtm-integration

[Jon Tai]

This has been tested by QA internally and merged into our CareVue OpenVista Server branch. We should get it merged into this project.

[jeff.apple (jeff-apple)]

Looks simple enough. Didn't test, though.

review: Approve

=== added file 'kids/XU_80_1505.KID'
--- kids/XU_80_1505.KID	1970-01-01 00:00:00 +0000
+++ kids/XU_80_1505.KID	2010-12-03 17:43:20 +0000
@@ -0,0 +1,302 @@
+KIDS Distribution saved on Oct 28, 2010@13:47:30
+artf10752, run ZTMGRSET after installing
+**KIDS**:XU*8.0*1505^
+
+**INSTALL NAME**
+XU*8.0*1505
+"BLD",7311,0)
+XU*8.0*1505^KERNEL^0^3101028^n
+"BLD",7311,4,0)
+^9.64PA^^
+"BLD",7311,6.3)
+2
+"BLD",7311,"ABPKG")
+n
+"BLD",7311,"KRN",0)
+^9.67PA^8989.52^19
+"BLD",7311,"KRN",.4,0)
+.4
+"BLD",7311,"KRN",.401,0)
+.401
+"BLD",7311,"KRN",.402,0)
+.402
+"BLD",7311,"KRN",.403,0)
+.403
+"BLD",7311,"KRN",.5,0)
+.5
+"BLD",7311,"KRN",.84,0)
+.84
+"BLD",7311,"KRN",3.6,0)
+3.6
+"BLD",7311,"KRN",3.8,0)
+3.8
+"BLD",7311,"KRN",9.2,0)
+9.2
+"BLD",7311,"KRN",9.8,0)
+9.8
+"BLD",7311,"KRN",9.8,"NM",0)
+^9.68A^2^2
+"BLD",7311,"KRN",9.8,"NM",1,0)
+ZSTARTGUX^^0^B206901
+"BLD",7311,"KRN",9.8,"NM",2,0)
+ZSTOPGUX^^0^B214862
+"BLD",7311,"KRN",9.8,"NM","B","ZSTARTGUX",1)
+
+"BLD",7311,"KRN",9.8,"NM","B","ZSTOPGUX",2)
+
+"BLD",7311,"KRN",19,0)
+19
+"BLD",7311,"KRN",19.1,0)
+19.1
+"BLD",7311,"KRN",101,0)
+101
+"BLD",7311,"KRN",409.61,0)
+409.61
+"BLD",7311,"KRN",771,0)
+771
+"BLD",7311,"KRN",870,0)
+870
+"BLD",7311,"KRN",8989.51,0)
+8989.51
+"BLD",7311,"KRN",8989.52,0)
+8989.52
+"BLD",7311,"KRN",8994,0)
+8994
+"BLD",7311,"KRN","B",.4,.4)
+
+"BLD",7311,"KRN","B",.401,.401)
+
+"BLD",7311,"KRN","B",.402,.402)
+
+"BLD",7311,"KRN","B",.403,.403)
+
+"BLD",7311,"KRN","B",.5,.5)
+
+"BLD",7311,"KRN","B",.84,.84)
+
+"BLD",7311,"KRN","B",3.6,3.6)
+
+"BLD",7311,"KRN","B",3.8,3.8)
+
+"BLD",7311,"KRN","B",9.2,9.2)
+
+"BLD",7311,"KRN","B",9.8,9.8)
+
+"BLD",7311,"KRN","B",19,19)
+
+"BLD",7311,"KRN","B",19.1,19.1)
+
+"BLD",7311,"KRN","B",101,101)
+
+"BLD",7311,"KRN","B",409.61,409.61)
+
+"BLD",7311,"KRN","B",771,771)
+
+"BLD",7311,"KRN","B",870,870)
+
+"BLD",7311,"KRN","B",8989.51,8989.51)
+
+"BLD",7311,"KRN","B",8989.52,8989.52)
+
+"BLD",7311,"KRN","B",8994,8994)
+
+"BLD",7311,"MSC")
+/home/jon/XU_80_1505.KID
+"BLD",7311,"MSCOM")
+artf10752, run ZTMGRSET after installing
+"BLD",7311,"QUES",0)
+^9.62^^
+"MBREQ")
+0
+"PKG",3,-1)
+1^1
+"PKG",3,0)
+KERNEL^XU^SIGN-ON, SECURITY, MENU DRIVER, DEVICES, TASKMAN^
+"PKG",3,20,0)
+^9.402P^^
+"PKG",3,22,0)
+^9.49I^1^1
+"PKG",3,22,1,0)
+8.0^3040115^2960606^1
+"PKG",3,22,1,"PAH",1,0)
+1505^3101028
+"QUES","XPF1",0)
+Y
+"QUES","XPF1","??")
+^D REP^XPDH
+"QUES","XPF1","A")
+Shall I write over your |FLAG| File
+"QUES","XPF1","B")
+YES
+"QUES","XPF1","M")
+D XPF1^XPDIQ
+"QUES","XPF2",0)
+Y
+"QUES","XPF2","??")
+^D DTA^XPDH
+"QUES","XPF2","A")
+Want my data |FLAG| yours
+"QUES","XPF2","B")
+YES
+"QUES","XPF2","M")
+D XPF2^XPDIQ
+"QUES","XPI1",0)
+YO
+"QUES","XPI1","??")
+^D INHIBIT^XPDH
+"QUES","XPI1","A")
+Want KIDS to INHIBIT LOGONs during the install
+"QUES","XPI1","B")
+NO
+"QUES","XPI1","M")
+D XPI1^XPDIQ
+"QUES","XPM1",0)
+PO^VA(200,:EM
+"QUES","XPM1","??")
+^D MG^XPDH
+"QUES","XPM1","A")
+Enter the Coordinator for Mail Group '|FLAG|'
+"QUES","XPM1","B")
+
+"QUES","XPM1","M")
+D XPM1^XPDIQ
+"QUES","XPO1",0)
+Y
+"QUES","XPO1","??")
+^D MENU^XPDH
+"QUES","XPO1","A")
+Want KIDS to Rebuild Menu Trees Upon Completion of Install
+"QUES","XPO1","B")
+NO
+"QUES","XPO1","M")
+D XPO1^XPDIQ
+"QUES","XPZ1",0)
+Y
+"QUES","XPZ1","??")
+^D OPT^XPDH
+"QUES","XPZ1","A")
+Want to DISABLE Scheduled Options, Menu Options, and Protocols
+"QUES","XPZ1","B")
+NO
+"QUES","XPZ1","M")
+D XPZ1^XPDIQ
+"QUES","XPZ2",0)
+Y
+"QUES","XPZ2","??")
+^D RTN^XPDH
+"QUES","XPZ2","A")
+Want to MOVE routines to other CPUs
+"QUES","XPZ2","B")
+NO
+"QUES","XPZ2","M")
+D XPZ2^XPDIQ
+"RTN")
+2
+"RTN","ZSTARTGUX")
+0^1^B206901
+"RTN","ZSTARTGUX",1,0)
+ZSTART ;MSC/JKT - SYSTEM STARTUP HOOK ;10/28/2010  11:47
+"RTN","ZSTARTGUX",2,0)
+ ;;8.0;KERNEL;**1505**;4/17/09
+"RTN","ZSTARTGUX",3,0)
+ ;save as ZSTART in GTM
+"RTN","ZSTARTGUX",4,0)
+ ;
+"RTN","ZSTARTGUX",5,0)
+ D TASKMAN
+"RTN","ZSTARTGUX",6,0)
+ ;D RPC
+"RTN","ZSTARTGUX",7,0)
+ ;D CIA
+"RTN","ZSTARTGUX",8,0)
+ ;D MAILMAN
+"RTN","ZSTARTGUX",9,0)
+ Q
+"RTN","ZSTARTGUX",10,0)
+ ;
+"RTN","ZSTARTGUX",11,0)
+TASKMAN ;Start TaskMan
+"RTN","ZSTARTGUX",12,0)
+ D ZTM^ZTMKU
+"RTN","ZSTARTGUX",13,0)
+ I %ZTY=0 D START^ZTMB
+"RTN","ZSTARTGUX",14,0)
+ Q
+"RTN","ZSTARTGUX",15,0)
+ ;
+"RTN","ZSTARTGUX",16,0)
+RPC ;Start the RPC Broker
+"RTN","ZSTARTGUX",17,0)
+ D RESTART^XWBTCP
+"RTN","ZSTARTGUX",18,0)
+ Q
+"RTN","ZSTARTGUX",19,0)
+ ;
+"RTN","ZSTARTGUX",20,0)
+CIA ;Start the CIA Broker
+"RTN","ZSTARTGUX",21,0)
+ D STARTALL^CIANBLIS
+"RTN","ZSTARTGUX",22,0)
+ Q
+"RTN","ZSTARTGUX",23,0)
+ ;
+"RTN","ZSTARTGUX",24,0)
+MAILMAN ;Start Mailman
+"RTN","ZSTARTGUX",25,0)
+ J ^XMRONT
+"RTN","ZSTARTGUX",26,0)
+ Q
+"RTN","ZSTARTGUX",27,0)
+ ;
+"RTN","ZSTOPGUX")
+0^2^B214862
+"RTN","ZSTOPGUX",1,0)
+ZSTOP ;MSC/JKT - SYSTEM SHUTDOWN HOOK ;10/28/2010  11:47
+"RTN","ZSTOPGUX",2,0)
+ ;;8.0;KERNEL;**1505**;4/17/09
+"RTN","ZSTOPGUX",3,0)
+ ;save as ZSTOP in GTM
+"RTN","ZSTOPGUX",4,0)
+ ;
+"RTN","ZSTOPGUX",5,0)
+ D RPC
+"RTN","ZSTOPGUX",6,0)
+ D CIA
+"RTN","ZSTOPGUX",7,0)
+ D TASKMAN
+"RTN","ZSTOPGUX",8,0)
+ Q
+"RTN","ZSTOPGUX",9,0)
+ ;
+"RTN","ZSTOPGUX",10,0)
+TASKMAN ;Stop TaskMan
+"RTN","ZSTOPGUX",11,0)
+ ; STOP^ZTMKU is interactive, so we duplicate some of the code here
+"RTN","ZSTOPGUX",12,0)
+ D GROUP^ZTMKU("SMAN(NODE)")
+"RTN","ZSTOPGUX",13,0)
+ D GROUP^ZTMKU("SSUB(NODE)")
+"RTN","ZSTOPGUX",14,0)
+ Q
+"RTN","ZSTOPGUX",15,0)
+ ;
+"RTN","ZSTOPGUX",16,0)
+RPC ;Stop the RPC Broker
+"RTN","ZSTOPGUX",17,0)
+ D STOPALL^XWBTCP
+"RTN","ZSTOPGUX",18,0)
+ Q
+"RTN","ZSTOPGUX",19,0)
+ ;
+"RTN","ZSTOPGUX",20,0)
+CIA ;Stop the CIA Broker
+"RTN","ZSTOPGUX",21,0)
+ D STOPALL^CIANBLIS
+"RTN","ZSTOPGUX",22,0)
+ Q
+"RTN","ZSTOPGUX",23,0)
+ ;
+"VER")
+8.0^22.0
+**END**
+**END**

=== modified file 'mumps/ZSTARTGUX.m'
--- mumps/ZSTARTGUX.m	2009-05-01 19:12:22 +0000
+++ mumps/ZSTARTGUX.m	2010-12-03 17:43:20 +0000
@@ -1,9 +1,10 @@
-ZSTART	;MSC/JKT - SYSTEM STARTUP HOOK ;04/17/2009  18:41
-	;;1.0;;**MSC**;Apr 17, 2009
+ZSTART	;MSC/JKT - SYSTEM STARTUP HOOK ;10/28/2010  11:47
+	;;8.0;KERNEL;**1505**;4/17/09
 	;save as ZSTART in GTM
 	;
 	D TASKMAN
 	;D RPC
+	;D CIA
 	;D MAILMAN
 	Q
 	;
@@ -16,5 +17,11 @@
 	D RESTART^XWBTCP
 	Q
 	;
+CIA	;Start the CIA Broker
+	D STARTALL^CIANBLIS
+	Q
+	;
 MAILMAN	;Start Mailman
 	J ^XMRONT
+	Q
+	;

=== modified file 'mumps/ZSTOPGUX.m'
--- mumps/ZSTOPGUX.m	2009-05-01 20:40:05 +0000
+++ mumps/ZSTOPGUX.m	2010-12-03 17:43:20 +0000
@@ -1,17 +1,23 @@
-ZSTOP ;MSC/JKT - SYSTEM SHUTDOWN HOOK ;04/17/2009  18:44
- ;;1.0;;**MSC**;Apr 17, 2009
- ;
- D RPC
- D TASKMAN
- Q
- ;
-TASKMAN ;Stop TaskMan
- ; STOP^ZTMKU is interactive, so we duplicate some of the code here
- D GROUP^ZTMKU("SMAN(NODE)")
- D GROUP^ZTMKU("SSUB(NODE)")
- Q
- ;
-RPC ;Stop the RPC Broker
- D STOPALL^XWBTCP
- Q
- ;
+ZSTOP	;MSC/JKT - SYSTEM SHUTDOWN HOOK ;10/28/2010  11:47
+	;;8.0;KERNEL;**1505**;4/17/09
+	;save as ZSTOP in GTM
+	;
+	D RPC
+	D CIA
+	D TASKMAN
+	Q
+	;
+TASKMAN	;Stop TaskMan
+	; STOP^ZTMKU is interactive, so we duplicate some of the code here
+	D GROUP^ZTMKU("SMAN(NODE)")
+	D GROUP^ZTMKU("SSUB(NODE)")
+	Q
+	;
+RPC	;Stop the RPC Broker
+	D STOPALL^XWBTCP
+	Q
+	;
+CIA	;Stop the CIA Broker
+	D STOPALL^CIANBLIS
+	Q
+	;