Remove warnings dealing with GT.M. Should not be interactive.

Routines/ZZUTPOST.m

@@ -1,31 +1,11 @@
-%utPOST	;VEN-SMH/JLI - post install for M-Unit Test software ;12/16/15  08:58
+%utPOST ;VEN-SMH/JLI - post install for M-Unit Test software ;09/14/15  12:39
-	;;1.3;MASH UTILITIES;;DEC 16,2015;Build 1
+ ;;0.2;MASH UTILITIES;;;Build 7
-	; Submitted to OSEHRA DEC 16, 2015 by Joel L. Ivey under the Apache 2 license (http://www.apache.org/licenses/LICENSE-2.0.html)
+ ; Submitted to OSEHRA Sep 14, 2015 by Joel L. Ivey under the Apache 2 license (http://www.apache.org/licenses/LICENSE-2.0.html)
  ; Original routine authored by Sam H. Habiel 07/2013-04/2014
  ; Additions and modifications made by Joel L. Ivey 05/2014-08/2015
  ;
  N X,I
-	I +$SY=47 D  R X:$G(DTIME,300) D MES^XPDUTL(" ")
-	. S X(1)=" "
-	. S X(2)="In the next section, as it tries to copy the ut* routines"
-	. S X(3)="to %ut* routines watch for text that indicates the following:"
-	. S X(4)=" "
-	. S X(5)="cp: cannot create regular file `/_ut.m': Permission denied"
-	. S X(6)=" "
-	. S X(7)="If this is seen, respond Yes at the prompt after the attempt:"
-	. S X(8)="   Press ENTER to continue: "
-	. F I=1:1:18 D MES^XPDUTL(" ") ; create a blank screen for text
-	. D MES^XPDUTL(.X)
-	. Q
  D RENAME
-	I +$SY=47 D  R X:$G(DTIME,300) I "Yy"[$E($G(X)) D GTMPROB
-	. K X
-	. S X(1)=" "
-	. S X(2)="  Your entry on the next line may not echo"
-	. S X(3)="If error text was seen enter Y (and RETURN):  NO// "
-	. D MES^XPDUTL(.X)
-	. Q
-	Q
  ;
 RENAME ;
  N %S,%D ; Source, destination
@@ -132,21 +112,3 @@ TEST	; @TEST - TESTING TESTING
  WRITE "All tests have run successfully!",!
  QUIT
  ;
-GTMPROB	; come here in case of error trying to run unit tests - checks whether renaming worked
-	N X
-	S X(1)=" "
-	S X(2)="*** An error occurred during renaming of routines to %ut*."
-	S X(3)="*** The renaming has been seen to fail on one type of Linux system."
-	S X(4)="*** In this case, at the Linux command line copy each ut*.m routine"
-	S X(5)="*** (ut.m, ut1.m, utt1.m, utt2.m, utt3.m, utt4.m, utt5.m, utt6.m, and "
-	S X(6)="*** uttcovr.m) to _ut*.m (e.g., 'cp ut.m _ut.m', 'cp ut1.m _ut1.m',"
-	S X(7)="*** 'cp utt1.m _utt1.m', etc., to 'cp uttcovr.m _uttcovr.m').  Then in GT.M"
-	S X(8)="*** use the command 'ZLINK %ut', then 'ZLINK %ut1', etc., these may"
-	S X(9)="*** indicate an undefined local variable error, but continue doing it."
-	S X(10)="*** When complete, use the M command 'DO ^%utt1' to run the unit tests on"
-	S X(11)="*** the %ut and %ut1 routines to confirm they are working"
-	S X(12)=" "
-	S X(13)="  Press Enter to continue: "
-	D MES^XPDUTL(.X)
-	R X:$G(DTIME,300)
-	Q