Changeset 863 for Scheduling/trunk/m/BSDX13.m

Timestamp:

Jul 13, 2010, 9:04:57 AM (14 years ago)

Author:

Sam Habiel

Message:

more i18n work

File:

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

Scheduling/trunk/m/BSDX13.m

@@ -1 @@
-BSDX13  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
-        ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
+BSDX13  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/10 7:24am
+        ;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
+    ; V 1.3 - i18n support - Dates passed to Routine as FM Date
         ;
         ;
@@ -15 +16 @@
         ;
         ;BSDXRESD is BSDX RESOURCE ien
-        ;BSDXSTART and BSDXEND are external dates
+        ;BSDXSTART and BSDXEND are FM dates (change in v 1.3)
         ;
         S X="ERROR^BSDX13",@^%ZOSF("TRAP")
@@ -23 +24 @@
         K ^BSDXTMP($J)
         S ^BSDXTMP($J,BSDXI)="I00020ERRORID^T00030ERRORTEXT"_$C(30)
-        S X=BSDXSTART
-        S %DT="X" D ^%DT
-        I Y=-1 D ERR(0,"AVDELDT-BSDX13: Invalid Start Date") Q
-        S BSDXSTART=$P(Y,".")
-        S X=BSDXEND
-        S %DT="X" D ^%DT
-        I Y=-1 D ERR(0,"AVDELDT-BSDX13: Invalid End Date") Q
+        ; S X=BSDXSTART ; commented out *v1.3
+        ; S %DT="X" D ^%DT
+        ; I Y=-1 D ERR(0,"AVDELDT-BSDX13: Invalid Start Date") Q
+        ; S BSDXSTART=$P(Y,".")
+        ; S X=BSDXEND
+        ; S %DT="X" D ^%DT
+        ; I Y=-1 D ERR(0,"AVDELDT-BSDX13: Invalid End Date") Q
         S BSDXEND=$P(Y,".")_".99999"
         I '+BSDXRESD D ERR(0,"AVDELDT-BSDX13: Invalid Resource ID") Q