Index: /Scheduling/trunk/m/BSDX01.m
===================================================================
--- /Scheduling/trunk/m/BSDX01.m	(revision 882)
+++ /Scheduling/trunk/m/BSDX01.m	(revision 883)
@@ -1,5 +1,4 @@
-BSDX01	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
+BSDX01	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:04pm
 	;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
-	;;Test line for svn update
 	;
 	;
Index: /Scheduling/trunk/m/BSDX07.m
===================================================================
--- /Scheduling/trunk/m/BSDX07.m	(revision 882)
+++ /Scheduling/trunk/m/BSDX07.m	(revision 883)
@@ -1,4 +1,7 @@
-BSDX07	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 7/6/10 4:28pm
+BSDX07	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 7/18/10 2:11pm
 	;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
+    ;
+    ; Change Log:
+    ; UJO/SMH
     ; v1.3 July 13 2010 - Add support i18n - Dates input as FM dates, not US.
 	;
@@ -50,5 +53,9 @@
 	; 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
+    ;
+    ; If C# sends the dates with extra zeros, remove them
+	S BSDXSTART=+BSDXSTART,BSDXEND=+BSDXEND
+    ;
+    I $L(BSDXEND,".")=1 D ERR(BSDXI+1,"BSDX07 Error: Invalid End Time") Q
 	I BSDXSTART>BSDXEND S BSDXTMP=BSDXEND,BSDXEND=BSDXSTART,BSDXSTART=BSDXTMP
 	I '+BSDXPATID,'$D(^DPT(BSDXPATID,0)) D ERR(BSDXI+1,"BSDX07 Error: Invalid Patient ID") Q
@@ -111,9 +118,7 @@
 	;Returns ien in BSDXAPPT or 0 if failed
 	;Create entry in BSDX APPOINTMENT
-    ; BSDXSTART and BSDXEND need to be stored as numeric, not string
-    ; So 3090713.0900 is incorrect --> it should be 3090713.09
 	N BSDXAPPTID
-	S BSDXFDA(9002018.4,"+1,",.01)=+BSDXSTART  ; smh fix bug stores as string
-	S BSDXFDA(9002018.4,"+1,",.02)=+BSDXEND
+	S BSDXFDA(9002018.4,"+1,",.01)=BSDXSTART
+	S BSDXFDA(9002018.4,"+1,",.02)=BSDXEND
 	S BSDXFDA(9002018.4,"+1,",.05)=BSDXPATID
 	S BSDXFDA(9002018.4,"+1,",.07)=BSDXRESD
Index: /Scheduling/trunk/m/BSDX09.m
===================================================================
--- /Scheduling/trunk/m/BSDX09.m	(revision 882)
+++ /Scheduling/trunk/m/BSDX09.m	(revision 883)
@@ -1,6 +1,13 @@
-BSDX09	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 
-	;;2.0;IHS WINDOWS SCHEDULING;**local**;NOV 01, 2007
-	;;local mods by WV/SMH
+BSDX09	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 7/18/10 2:26pm
+	;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
 	;
+    ; Change Log:
+    ; UJO/TH - v 1.3 on 3100714 - Extra Demographics:
+    ; - Email
+    ; - Cell Phone
+    ; - Country
+    ; - + refactoring of routine
+	; 
+    ; UJO/TH - v 1.3 on 3100715 - Change SSN to PID and get PID field instead
 	;
 GETREGA(BSDXRET,BSDXPAT)	       ;EP
@@ -10,6 +17,6 @@
 	;   13 NOK NAME^RELATIONSHIP^PHONE^STREET^CITY^STATE^ZIP
 	;   20 DATAREVIEWED^
-	; removed/smh;   21 Medicare#^Suffix
 	;   21 RegistrationComments
+    ;   22 EMAIL ADDRESS^PHONE NUMBER [CELLULAR]^COUNTRY
 	;
 	;For patient with ien BSDXPAT
@@ -58,5 +65,5 @@
 	S BSDXNOD=^DPT(+BSDXPAT,0)
 	S $P(BSDXY,"^",6)=$P(BSDXNOD,U) ;NAME
-	S $P(BSDXY,"^",8)=$$GET1^DIQ(2,BSDXPAT,"PRIMARY LONG ID")
+	S $P(BSDXY,"^",8)=$$GET1^DIQ(2,BSDXPAT,"PRIMARY LONG ID") ;PID
 	S Y=$P(BSDXNOD,U,3) I Y]""  X ^DD("DD") S Y=$TR(Y,"@"," ")
 	S $P(BSDXY,"^",7)=Y ;DOB
Index: /Scheduling/trunk/m/BSDX12.m
===================================================================
--- /Scheduling/trunk/m/BSDX12.m	(revision 882)
+++ /Scheduling/trunk/m/BSDX12.m	(revision 883)
@@ -1,5 +1,7 @@
-BSDX12	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/10 6:33am
+BSDX12	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:14pm
 	;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
-    ; v 1.3 - i18n support
+    ; 
+    ; Change Log:
+    ; v 1.3 - i18n support - 3100718
     ; BSDXSTART and BSDXEND passed in FM Dates, not US dates
 	;
@@ -31,4 +33,7 @@
 	; S %DT="T",X=BSDXEND D ^%DT S BSDXEND=Y
 	; I BSDXEND=-1 D ERR(70) Q
+    ; Make sure dates are canonical and don't contain extra zeros
+    S BSDXSTART=+BSDXSTART,BSDXEND=+BSDXEND
+    ;
 	I $L(BSDXEND,".")=1 D ERR(70) Q
 	I BSDXSTART>BSDXEND S BSDXTMP=BSDXEND,BSDXEND=BSDXSTART,BSDXSTART=BSDXTMP
Index: /Scheduling/trunk/m/BSDX13.m
===================================================================
--- /Scheduling/trunk/m/BSDX13.m	(revision 882)
+++ /Scheduling/trunk/m/BSDX13.m	(revision 883)
@@ -1,7 +1,7 @@
-BSDX13	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/10 7:24am
+BSDX13	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:17pm
 	;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
-    ; V 1.3 - i18n support - Dates passed to Routine as FM Date
-	;
-	;
+    ;
+    ; Change Log:
+    ; V 1.3 - i18n support - Dates passed to Routine as FM Date - WV/SMH
 	Q
 AVDELDTD(BSDXY,BSDXRESD,BSDXSTART,BSDXEND)	;EP
Index: /Scheduling/trunk/m/BSDX28.m
===================================================================
--- /Scheduling/trunk/m/BSDX28.m	(revision 882)
+++ /Scheduling/trunk/m/BSDX28.m	(revision 883)
@@ -1,8 +1,11 @@
-BSDX28	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/10 3:55pm
-	;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
-	;
+BSDX28	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:30pm
+	;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
+	; 
+    ; Change Log:
 	; HMW 3050721 Added test for inactivated record
-    ; SMH 3100714 add PID search, return PID instead of SSN
-    ; Change Error trap to new style.
+    ; V1.3 WV/SMH 3100714 
+    ; - add PID search
+    ; - return PID instead of SSN (change header and logic)
+    ; - Change Error trap to new style.
 	;
 PTLOOKRS(BSDXY,BSDXP,BSDXC)	 ;EP Patient Lookup
Index: /Scheduling/trunk/m/BSDX29.m
===================================================================
--- /Scheduling/trunk/m/BSDX29.m	(revision 882)
+++ /Scheduling/trunk/m/BSDX29.m	(revision 883)
@@ -1,5 +1,8 @@
-BSDX29	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/13/10 9:47am
-	;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
-	;
+BSDX29	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:03pm
+	;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
+    ; 
+    ; Change Log:
+    ; v1.3 by WV/SMH on 3100713
+	; - Beginning and Ending dates passed as FM Dates
 	;
 BSDXCPD(BSDXY,BSDXRES,BSDX44,BSDXBEG,BSDXEND)	;EP
Index: /Scheduling/trunk/m/i18n_log.log
===================================================================
--- /Scheduling/trunk/m/i18n_log.log	(revision 882)
+++ /Scheduling/trunk/m/i18n_log.log	(revision 883)
@@ -24,5 +24,5 @@
 r858 | sam | 2010-07-13 09:58:25 +0300 (Tue, 13 Jul 2010) | 1 line
 Changed paths:
-   M /Scheduling/trunk/m/BSDX29.m
+#   M /Scheduling/trunk/m/BSDX29.m
 
 changes to BSDX29 for i18n
@@ -30,5 +30,5 @@
 r861 | sam | 2010-07-13 12:05:30 +0300 (Tue, 13 Jul 2010) | 1 line
 Changed paths:
-   M /Scheduling/trunk/m/BSDX01.m
+#   M /Scheduling/trunk/m/BSDX01.m
 
 Test update
@@ -36,5 +36,5 @@
 r862 | sam | 2010-07-13 12:07:13 +0300 (Tue, 13 Jul 2010) | 1 line
 Changed paths:
-   M /Scheduling/trunk/m/BSDX01.m
+#   M /Scheduling/trunk/m/BSDX01.m
 
 Test update
@@ -42,8 +42,8 @@
 r863 | sam | 2010-07-13 16:04:57 +0300 (Tue, 13 Jul 2010) | 1 line
 Changed paths:
-   M /Scheduling/trunk/m/BSDX07.m
-   M /Scheduling/trunk/m/BSDX12.m
-   M /Scheduling/trunk/m/BSDX13.m
-   M /Scheduling/trunk/m/BSDX33.m
+#   M /Scheduling/trunk/m/BSDX07.m
+#   M /Scheduling/trunk/m/BSDX12.m
+#   M /Scheduling/trunk/m/BSDX13.m
+#   M /Scheduling/trunk/m/BSDX33.m
 
 more i18n work
@@ -51,5 +51,5 @@
 r865 | sam | 2010-07-14 11:20:30 +0300 (Wed, 14 Jul 2010) | 1 line
 Changed paths:
-   M /Scheduling/trunk/m/BSDX09.m
+#   M /Scheduling/trunk/m/BSDX09.m
 
 Routine to pull extra registration data
@@ -69,5 +69,5 @@
 r871 | sam | 2010-07-14 15:55:40 +0300 (Wed, 14 Jul 2010) | 1 line
 Changed paths:
-   M /Scheduling/trunk/m/BSDX09.m
+#   M /Scheduling/trunk/m/BSDX09.m
 
 PID added insted of SNN