Changeset 858 for Scheduling

Timestamp:

Jul 13, 2010, 2:58:25 AM (14 years ago)

Author:

Sam Habiel

Message:

changes to BSDX29 for i18n

File:

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

Scheduling/trunk/m/BSDX29.m

@@ -1 @@
-BSDX29  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
+BSDX29  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/13/10 9:47am
         ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
         ;
@@ -14 +14 @@
         ;
         ;Returns ADO Recordset formatted fields containing count of records copied and error message:
+    ;
+    ; July 13 2010: D dates (BEG and END) from US format to FM Dates for i18n
         ;
         ;
@@ -23 +25 @@
         ;
         ;Convert beginning and ending dates
-        ;
-        S X=BSDXBEG,%DT="X" D ^%DT S BSDXBEG=$P(Y,"."),BSDXBEG=BSDXBEG-1
-        I Y=-1 D ERR(BSDXI,0,"Routine: BSDX29, Error: Invalid Date") Q
-        S X=BSDXEND,%DT="X" D ^%DT S BSDXEND=$P(Y,"."),BSDXEND=BSDXEND+1
-        I Y=-1 D ERR(BSDXI,0,"Routine: BSDX29, Error: Invalid Date") Q
+    ;
+    ;TODO:Validate FM Dates coming through
+        ;
+        S BSDXBEG=BSDXBEG-1
+        S BSDXEND=BSDXEND+1
         ;
         S ZTRTN="ZTM^BSDX29",ZTDTH=$H,ZTDESC="COPY PATIENT APPTS"