Changeset 849 for Scheduling/trunk/m

Timestamp:

Jul 10, 2010, 11:32:30 AM (15 years ago)

Author:

Sam Habiel

Message:

Updated BSDX27 - Receives FM dates rather than regular dates to support i18n

File:

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

Scheduling/trunk/m/BSDX27.m

@@ -1 @@
-BSDX27  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/21/10 9:52pm
+BSDX27  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/5/10 9:57pm
         ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
         ;
@@ -182 +182 @@
         ;Called by BSDX CLINIC LETTERS
         ;
+    ; July 10, 2010 -- to support i18n, we pass dates from client in
+    ; locale-neutral Fileman format. No need to convert it.
         N BSDXI,BSDXNOD,BSDXNAM,BSDXDOB,BSDXHRN,BSDXSEX,BSDXCID,BSDXCNOD,BSDXDT
         N BSDXJ,BSDXAID,BSDXPAT,BSDXPNOD,BSDXCLN,BSDXCLRK,BSDXMADE,BSDXNOT,BSDXLIN
@@ -195 +197 @@
         ;Convert beginning and ending dates
         ;
-        S X=BSDXBEG,%DT="X" D ^%DT S BSDXBEG=$P(Y,"."),BSDXBEG=BSDXBEG-1,BSDXBEG=BSDXBEG_".9999"
-        I Y=-1 D ERR(BSDXI,0,"Routine: BSDX27, Error: Invalid Date") Q
-        S X=BSDXEND,%DT="X" D ^%DT S BSDXEND=$P(Y,"."),BSDXEND=BSDXEND_".9999"
-        I Y=-1 D ERR(BSDXI,0,"Routine: BSDX27, Error: Invalid Date") Q
+        S BSDXBEG=BSDXBEG-1,BSDXBEG=BSDXBEG_".9999"
+        S BSDXEND=BSDXEND_".9999"
         I BSDXCLST="" D ERR(BSDXI,0,"Routine: BSDX27, Error: Null clinic list") Q
         ;