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

Timestamp:

Jul 18, 2010, 9:58:35 AM (15 years ago)

Author:

Sam Habiel

Message:

Updated version numbers

File:

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

Scheduling/trunk/m/BSDX12.m

@@ -1 +1 @@
 BSDX12  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:14pm
-        ;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
-    ; 
-    ; Change Log:
-    ; v 1.3 - i18n support - 3100718
-    ; BSDXSTART and BSDXEND passed in FM Dates, not US dates
+        ;;1.3T1;BSDX;;Jul 18, 2010
+           ; 
+           ; Change Log:
+           ; v 1.3 - i18n support - 3100718
+           ; BSDXSTART and BSDXEND passed in FM Dates, not US dates
         ;
         ;
@@ -26 +26 @@
         S ^BSDXTMP($J,0)="I00020AVAILABILITYID^I00020ERRORID"_$C(30)
         ;Check input data for errors
-    ; i18n - FM Dates passed in
+           ; i18n - FM Dates passed in
         ; S:BSDXSTART["@0000" BSDXSTART=$P(BSDXSTART,"@")
         ; S:BSDXEND["@0000" BSDXEND=$P(BSDXEND,"@")
@@ -33 +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
-    ;
+           ; 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