Index: trunk/ippScripts/scripts/detrend_norm_apply.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_norm_apply.pl	(revision 11442)
+++ trunk/ippScripts/scripts/detrend_norm_apply.pl	(revision 11455)
@@ -100,5 +100,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	&my_die("Unable to perform ppImage: $error_code", $det_id, $iter, $class_id, $error_code);
     }
@@ -145,5 +145,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	warn("Unable to perform dettool -addnormalizedimfile: $error_code\n");
 	exit($error_code);
Index: trunk/ippScripts/scripts/detrend_norm_exp.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_norm_exp.pl	(revision 11442)
+++ trunk/ippScripts/scripts/detrend_norm_exp.pl	(revision 11455)
@@ -72,5 +72,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	&my_die("Unable to perform ppImage: $error_code", $det_id, $iter, $error_code);
     }
@@ -168,5 +168,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	&my_die("Unable to perform dettool -addnormalizedexp: $error_code", $det_id, $iter, $error_code);
     }
Index: trunk/ippScripts/scripts/detrend_process_exp.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_process_exp.pl	(revision 11442)
+++ trunk/ippScripts/scripts/detrend_process_exp.pl	(revision 11455)
@@ -70,5 +70,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	&my_die("Unable to perform dettool -processedimfile: $error_code", $det_id, $exp_tag, $error_code);
     }
@@ -143,5 +143,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	&my_die("Unable to perform ppImage: $error_code", $det_id, $exp_tag, $error_code);
     }
@@ -155,5 +155,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	&my_die("Unable to perform ppImage: $error_code", $det_id, $exp_tag, $error_code);
     }
@@ -174,5 +174,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	warn("Unable to perform dettool -addprocessedexp: $error_code");
 	exit($error_code);
Index: trunk/ippScripts/scripts/detrend_process_imfile.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_process_imfile.pl	(revision 11442)
+++ trunk/ippScripts/scripts/detrend_process_imfile.pl	(revision 11455)
@@ -105,5 +105,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	&my_die("Unable to perform ppImage: $error_code", $det_id, $exp_tag, $class_id, $error_code);
     }
@@ -150,5 +150,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	warn("Unable to perform dettool -addprocessedimfile: $error_code\n");
 	exit($error_code);
Index: trunk/ippScripts/scripts/detrend_reject_exp.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_reject_exp.pl	(revision 11442)
+++ trunk/ippScripts/scripts/detrend_reject_exp.pl	(revision 11455)
@@ -66,5 +66,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	&my_die("Unable to perform dettool -residexp: $error_code", $det_id, $iter, $error_code);
     }
@@ -189,5 +189,5 @@
 	    run(command => $command, verbose => 1);
 	unless ($success) {
-	    $error_code = $error_code >> 8;
+	    $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	    &my_die("Unable to perform dettool -updateresidexp: $error_code", $det_id, $iter, $error_code);
 	}
@@ -227,5 +227,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	warn("Unable to perform dettool -adddetrunsummary: $error_code");
 	exit($error_code);
@@ -247,5 +247,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	warn("Unable to perform dettool -updatedetrun: $error_code");
 	exit($error_code);
Index: trunk/ippScripts/scripts/detrend_reject_imfile.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_reject_imfile.pl	(revision 11442)
+++ trunk/ippScripts/scripts/detrend_reject_imfile.pl	(revision 11455)
@@ -75,5 +75,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	warn("Unable to perform dettool -residimfile: $error_code\n");
 	exit($error_code);
@@ -129,5 +129,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	&my_die("Unable to run ppImage: $error_code", $det_id, $iter, $exp_tag, $error_code);
     }
@@ -141,5 +141,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	&my_die("Unable to run ppImage: $error_code", $det_id, $iter, $exp_tag, $error_code);
     }
@@ -278,5 +278,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	warn("Unable to perform dettool -addresidexp: $error_code\n");
 	exit($error_code);
Index: trunk/ippScripts/scripts/detrend_resid.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_resid.pl	(revision 11442)
+++ trunk/ippScripts/scripts/detrend_resid.pl	(revision 11455)
@@ -146,5 +146,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	&my_die("Unable to perform ppImage: $error_code", $det_id, $iter, $exp_tag, $class_id, $error_code);
     }
@@ -191,5 +191,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	warn("Unable to perform dettool -addresidimfile: $error_code\n");
 	exit($error_code);
Index: trunk/ippScripts/scripts/detrend_stack.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_stack.pl	(revision 11442)
+++ trunk/ippScripts/scripts/detrend_stack.pl	(revision 11455)
@@ -82,5 +82,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	&my_die("Unable to perform dettool -processedimfile: $error_code", $det_id, $iter, $class_id, $error_code);
     }
@@ -120,5 +120,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	&my_die("Unable to perform ppMerge: $error_code", $det_id, $iter, $class_id, $error_code);
     }
@@ -160,5 +160,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	warn("Unable to perform dettool -addstacked: $error_code\n");
 	exit($error_code);
Index: trunk/ippScripts/scripts/phase0_exp.pl
===================================================================
--- trunk/ippScripts/scripts/phase0_exp.pl	(revision 11442)
+++ trunk/ippScripts/scripts/phase0_exp.pl	(revision 11455)
@@ -102,5 +102,5 @@
         cache_run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
         warn ("Unable to perform p0tool on exposure id $exptag: $error_code");
         exit ($error_code);
@@ -207,5 +207,5 @@
         cache_run(command => \@command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
         warn ("Unable to run phase0 update for $exptag: $error_code");
         exit($error_code);
Index: trunk/ippScripts/scripts/phase0_imfile.pl
===================================================================
--- trunk/ippScripts/scripts/phase0_imfile.pl	(revision 11442)
+++ trunk/ippScripts/scripts/phase0_imfile.pl	(revision 11455)
@@ -114,5 +114,5 @@
         cache_run(command => $command, verbose => 1);
     unless ($success) { 
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
         warn ("Unable to perform ppStats on exposure id $exp_tag: $error_code");
         &my_die ($exp_tag, $class_id, $error_code);
@@ -192,5 +192,5 @@
 
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
         # XXX if we can't run -addprocessedimfile, we can't actually set the
         # error code.
Index: trunk/ippScripts/scripts/phase2.pl
===================================================================
--- trunk/ippScripts/scripts/phase2.pl	(revision 11442)
+++ trunk/ippScripts/scripts/phase2.pl	(revision 11455)
@@ -93,5 +93,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	&my_die("Unable to perform ppImage: $error_code", $exp_tag, $class_id, $error_code);
     }
@@ -137,5 +137,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	warn("Unable to perform p2tool -addprocessedimfile: $error_code\n");
 	exit($error_code);
Index: trunk/ippScripts/scripts/phase3.pl
===================================================================
--- trunk/ippScripts/scripts/phase3.pl	(revision 11442)
+++ trunk/ippScripts/scripts/phase3.pl	(revision 11455)
@@ -73,5 +73,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	&my_die("Unable to perform p3tool: $error_code", $exp_tag, $error_code);
     }
@@ -171,5 +171,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	&my_die("Unable to perform ppImage: $error_code", $exp_tag, $error_code);
     }
@@ -183,5 +183,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	&my_die("Unable to perform ppImage: $error_code", $exp_tag, $error_code);
     }
@@ -203,5 +203,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	warn("Unable to perform dettool -addprocessedexp: $error_code\n");
 	exit($error_code);