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

Timestamp:

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

Author:

Sam Habiel

Message:

more i18n work

File:

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

Scheduling/trunk/m/BSDX07.m

@@ -1 @@
-BSDX07  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 6/7/10 2:19pm
+BSDX07  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 7/6/10 6:13am
         ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
+    ; v1.3 July 13 2010 - Add support i18n - Dates input as FM dates, not US.
         ;
         ;
@@ -24 +25 @@
         ;
         ;Test lines:
-ENDBG   ;BSDX ADD NEW APPOINTMENT^12-28-2000@0900^12-28-2000@1000^370^2^PEDIATRICIAN,DEMO^EXAM^SCRATCH NOTE
+ENDBG   ;BSDX ADD NEW APPOINTMENT^3091122.0930^3091122.1000^370^2^PEDIATRICIAN,DEMO^EXAM^SCRATCH NOTE
         ;
         N BSDXERR,BSDXIEN,BSDXDEP,BSDXI,BSDXJ,BSDXAPPTI,BSDXDJ,BSDXRESD,BSDXRNOD,BSDXSCD,BSDXC,BSDXERR,BSDXWKIN
@@ -41 +42 @@
         ;
         TSTART
+    ; v1.3 - date passed in as FM Date, not US date.
         ;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(BSDXI+1,"BSDX07 Error: Invalid Start Time") Q
-        S %DT="T",X=BSDXEND D ^%DT S BSDXEND=Y
-        I BSDXEND=-1 D ERR(BSDXI+1,"BSDX07 Error: Invalid End Time") Q
+        ; 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(BSDXI+1,"BSDX07 Error: Invalid Start Time") Q
+        ; S %DT="T",X=BSDXEND D ^%DT S BSDXEND=Y
+        ; I BSDXEND=-1 D ERR(BSDXI+1,"BSDX07 Error: Invalid End Time") Q
         I $L(BSDXEND,".")=1 D ERR(BSDXI+1,"BSDX07 Error: Invalid End Time") Q
         I BSDXSTART>BSDXEND S BSDXTMP=BSDXEND,BSDXEND=BSDXSTART,BSDXSTART=BSDXTMP