Index: /Scheduling/trunk/m/BSDX27.m
===================================================================
--- /Scheduling/trunk/m/BSDX27.m	(revision 848)
+++ /Scheduling/trunk/m/BSDX27.m	(revision 849)
@@ -1,3 +1,3 @@
-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,4 +182,6 @@
 	;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,8 +197,6 @@
 	;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
 	;