Changeset 851 for Scheduling/trunk/m/BSDX02.m

Timestamp:

Jul 11, 2010, 10:11:26 AM (14 years ago)

Author:

Sam Habiel

Message:

Fixes to support i18n (Receive FM dates from C# instead of culture specific date).Also, fix for Rebooking. Now it works.

File:

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

Scheduling/trunk/m/BSDX02.m

@@ -1 @@
-BSDX02  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
+BSDX02  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/11/10 5:17pm
         ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
         ;
@@ -28 +28 @@
         D ^XBKVAR S X="ETRAP^BSDX02",@^%ZOSF("TRAP")
         ;
-        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
-        ;
+        ; 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 BSDXI=0
         D STRES