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

Timestamp:

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

Author:

Sam Habiel

Message:

more i18n work

File:

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

Scheduling/trunk/m/BSDX12.m

@@ -1 @@
-BSDX12  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
-        ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
+BSDX12  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/10 6:33am
+        ;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
+    ; v 1.3 - i18n support
+    ; BSDXSTART and BSDXEND passed in FM Dates, not US dates
         ;
         ;
@@ -12 +14 @@
         ;
         ;Test lines:
-        ;D AVADD^BSDX12(.RES,"1-27-2001@0900","1-27-2001@1000","1","WHITT",2,"SCRATCH AV NOTE") ZW RES
-        ;BSDX ADD NEW AVAILABILITY^1-27-2001@0900^1-278-2001@1000^1^WHITT^2^SCRATCH AVAILABILITY NOTE
+        ;D AVADD^BSDX12(.RES,"3091227.09","3091227.0930","1","WHITT",2,"SCRATCH AV NOTE") ZW RES
+        ;BSDX ADD NEW AVAILABILITY^3091227.09^3091227.0930^1^WHITT^2^SCRATCH AVAILABILITY NOTE
         ;
         N BSDXERR,BSDXIEN,BSDXDEP,BSDXI,BSDXAVID,BSDXI,BSDXERR,BSDXFDA,BSDXMSG,BSDXRESD
@@ -22 +24 @@
         S ^BSDXTMP($J,0)="I00020AVAILABILITYID^I00020ERRORID"_$C(30)
         ;Check input data for errors
-        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 D ERR(70) Q
-        S %DT="T",X=BSDXEND D ^%DT S BSDXEND=Y
-        I BSDXEND=-1 D ERR(70) Q
+    ; i18n - FM Dates passed in
+        ; 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 D ERR(70) Q
+        ; S %DT="T",X=BSDXEND D ^%DT S BSDXEND=Y
+        ; I BSDXEND=-1 D ERR(70) Q
         I $L(BSDXEND,".")=1 D ERR(70) Q
         I BSDXSTART>BSDXEND S BSDXTMP=BSDXEND,BSDXEND=BSDXSTART,BSDXSTART=BSDXTMP