Index: Scheduling/trunk/m/BSDX04.m
===================================================================
--- Scheduling/trunk/m/BSDX04.m	(revision 851)
+++ Scheduling/trunk/m/BSDX04.m	(revision 854)
@@ -1,3 +1,3 @@
-BSDX04	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 
+BSDX04	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 7/11/10 6:14pm
 	;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
 	;
@@ -24,4 +24,10 @@
 	;
 	;BSDXRES is resource name
+    ;
+    ;//smh
+    ; BSDXSTART and BSDXEND both passed in FM Format.
+    ; BSDXSTART is the Date Portion of FM Date
+    ; BSDXEND -- pass date and h,m,s as well
+    ;//smh
 	;
 	;BSDXTYPES is |-delimited list of Access Type Names
@@ -59,11 +65,4 @@
 	D
 	. S BSDXBS=0
-	. S:BSDXSTART["@0000" BSDXSTART=$P(BSDXSTART,"@")
-	. S:BSDXEND["@0000" BSDXEND=$P(BSDXEND,"@")
-	. ;S:BSDXEND["@0:00" BSDXEND=$P(BSDXEND,"@")
-	. S %DT="T",X=BSDXSTART D ^%DT S BSDXSTART=Y
-	. I BSDXSTART=-1 S ^BSDXTMP($J,1)=$C(31) Q
-	. S %DT="T",X=BSDXEND D ^%DT S BSDXEND=Y
-	. I BSDXEND=-1 S ^BSDXTMP($J,1)=$C(31) Q
 	. S BSDXRESN=BSDXRES
 	. Q:BSDXRESN=""
Index: Scheduling/trunk/m/BSDX05.m
===================================================================
--- Scheduling/trunk/m/BSDX05.m	(revision 851)
+++ Scheduling/trunk/m/BSDX05.m	(revision 854)
@@ -1,3 +1,3 @@
-BSDX05	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
+BSDX05	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/11/10 6:28pm
 	;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
 	;
@@ -20,11 +20,5 @@
 	D
 	. S BSDXBS=0
-	. S:BSDXSTART["@0000" BSDXSTART=$P(BSDXSTART,"@")
-	. S:BSDXEND["@0000" BSDXEND=$P(BSDXEND,"@")
-	. S %DT="T",X=BSDXSTART D ^%DT S BSDXSTART=Y
-	. I BSDXSTART=-1 S ^BSDXTMP($J,1)=$C(31) Q
-	. S %DT="T",X=BSDXEND D ^%DT S BSDXEND=Y
-	. I BSDXEND=-1 S ^BSDXTMP($J,1)=$C(31) Q
-	. I $L(BSDXEND,".")=1 S BSDXEND=BSDXEND+.9999 ;Go to end of day
+	. S BSDXEND=BSDXEND+.9999 ;Go to end of day
 	. S BSDXRESN=BSDXRES
 	. Q:BSDXRESN=""
Index: Scheduling/trunk/m/BSDX06.m
===================================================================
--- Scheduling/trunk/m/BSDX06.m	(revision 851)
+++ Scheduling/trunk/m/BSDX06.m	(revision 854)
@@ -1,3 +1,3 @@
-BSDX06	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
+BSDX06	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/11/10 5:54pm
 	;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
 	;
@@ -21,11 +21,6 @@
 	D
 	. S BSDXBS=0
-	. S:BSDXSTART["@0000" BSDXSTART=$P(BSDXSTART,"@")
-	. S:BSDXEND["@0000" BSDXEND=$P(BSDXEND,"@")
-	. S %DT="T",X=BSDXSTART D ^%DT S BSDXSTART=Y
-	. I BSDXSTART=-1 S ^BSDXTMP($J,1)=$C(31) Q
-	. S %DT="T",X=BSDXEND D ^%DT S BSDXEND=Y
-	. I BSDXEND=-1 S ^BSDXTMP($J,1)=$C(31) Q
-	. I $L(BSDXEND,".")=1 S BSDXEND=BSDXEND+.9999 ;Go to end of day
+	. ; I $L(BSDXEND,".")=1 S BSDXEND=BSDXEND+.9999 ;Go to end of day
+    . S BSDXEND=BSDXEND+.9999 ;//smh - not sure about this change
 	. S BSDXRESN=BSDXRES
 	. Q:BSDXRESN=""