Changeset 854 for Scheduling/trunk/m/BSDX06.m

Timestamp:

Jul 12, 2010, 10:25:21 AM (14 years ago)

Author:

Sam Habiel

Message:

More changes

File:

• Scheduling/trunk/m/BSDX06.m (modified) (2 diffs)

Scheduling/trunk/m/BSDX06.m

@@ -1 @@
-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 +21 @@
         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=""