Index: Scheduling/trunk/m/BSDX21.m
===================================================================
--- Scheduling/trunk/m/BSDX21.m	(revision 772)
+++ Scheduling/trunk/m/BSDX21.m	(revision 773)
@@ -1,3 +1,3 @@
-BSDX21	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
+BSDX21	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/21/10 9:42pm
 	;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
 	;
@@ -68,5 +68,5 @@
 	;I '$D(^BSDXAGP("B",BSDXGRP)) D ERR(BSDXI,0,0) Q
 	;S BSDXIEN=$O(^BSDXAGP("B",BSDXGRP,0))
-	I '+BSDXIEN D ERR(BSDXI,BSDXIEN,70) Q
+	I '+BSDXIEN D ERR(BSDXI,BSDXIEN) Q
 	I '$D(^BSDXAGP(BSDXIEN,0)) D ERR(0,"BSDX14: Invalid Access Group ID name.") Q
 	;
Index: Scheduling/trunk/m/BSDX27.m
===================================================================
--- Scheduling/trunk/m/BSDX27.m	(revision 772)
+++ Scheduling/trunk/m/BSDX27.m	(revision 773)
@@ -1,3 +1,3 @@
-BSDX27	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/29/10 9:43pm
+BSDX27	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/21/10 9:52pm
 	;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
 	;
@@ -126,13 +126,13 @@
 	;
 ERROR	;
-	D ERR("RPMS Error")
-	Q
-	;
-ERR(ERRNO)	;Error processing
+	D ERR(BSDXI,"RPMS Error")
+	Q
+	;
+ERR(BSDXI,ERRNO,MSG)	;Error processing
 	S:'$D(BSDXI) BSDXI=999
 	I +ERRNO S BSDXERR=ERRNO+134234112 ;vbObjectError
 	E  S BSDXERR=ERRNO
 	S BSDXI=BSDXI+1
-	S ^BSDXTMP($J,BSDXI)="^^^^^^^^^^^^^^^"_$C(30)
+	S ^BSDXTMP($J,BSDXI)=MSG_"^^^^^^^^^^^^^^^"_$C(30)
 	S BSDXI=BSDXI+1
 	S ^BSDXTMP($J,BSDXI)=$C(31)
Index: Scheduling/trunk/m/BSDX34.m
===================================================================
--- Scheduling/trunk/m/BSDX34.m	(revision 772)
+++ Scheduling/trunk/m/BSDX34.m	(revision 773)
@@ -1,3 +1,3 @@
-BSDX34	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
+BSDX34	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/21/10 9:56pm
 	;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
 	;
@@ -50,8 +50,8 @@
 	;
 	S X=BSDXBEG,%DT="XT" D ^%DT S BSDXBEG=$P(Y,"."),BSDXBEG=BSDXBEG-1,BSDXBEG=BSDXBEG_".9999"
-	I Y=-1 D RBERR(1) Q
+	I Y=-1 D RBERR Q
 	S X=BSDXEND,%DT="XT" D ^%DT S BSDXEND=$P(Y,"."),BSDXEND=BSDXEND_".9999"
-	I Y=-1 D RBERR(1) Q
-	I BSDXCLST="" D RBERR(1) Q
+	I Y=-1 D RBERR Q
+	I BSDXCLST="" D RBERR Q
 	;
 	;