Changeset 883 for Scheduling/trunk/m/BSDX12.m

Timestamp:

Jul 18, 2010, 7:17:02 AM (14 years ago)

Author:

Sam Habiel

Message:

edits and clean-ups prior to release, first step

File:

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

Scheduling/trunk/m/BSDX12.m

@@ -1 @@
-BSDX12  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/10 6:33am
+BSDX12  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:14pm
         ;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
-    ; v 1.3 - i18n support
+    ; 
+    ; Change Log:
+    ; v 1.3 - i18n support - 3100718
     ; BSDXSTART and BSDXEND passed in FM Dates, not US dates
         ;
@@ -31 +33 @@
         ; S %DT="T",X=BSDXEND D ^%DT S BSDXEND=Y
         ; I BSDXEND=-1 D ERR(70) Q
+    ; Make sure dates are canonical and don't contain extra zeros
+    S BSDXSTART=+BSDXSTART,BSDXEND=+BSDXEND
+    ;
         I $L(BSDXEND,".")=1 D ERR(70) Q
         I BSDXSTART>BSDXEND S BSDXTMP=BSDXEND,BSDXEND=BSDXSTART,BSDXSTART=BSDXTMP