diff --git a/m/BSDX02.m b/m/BSDX02.m
index 9bb7021..229f788 100644
--- a/m/BSDX02.m
+++ b/m/BSDX02.m
@@ -1,8 +1,9 @@
-BSDX02	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:25pm
+BSDX02	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 3/21/11 9:44am
 	;;1.5V2;BSDX;;Mar 03, 2011
-	   ; 
-	   ; Change Log
-	   ; July 15 2010: UJO/SMH - Pass FM dates in instead of US dates for i18n
+    ; 
+    ; Change Log
+    ; July 15 2010: UJO/SMH - Pass FM dates in instead of US dates for i18n
+	; March 21 2011: UJO/SMH (v 1.5) - Return new fields: Patient SEX, PID, and DOB
 	;
 	;
 CRSCHD(BSDXY,BSDXRES,BSDXSTART,BSDXEND)	;EP
@@ -27,7 +28,7 @@ CRSCH(BSDXY,BSDXRES,BSDXSTART,BSDXEND,BSDXWKIN)	    ;
 	K ^BSDXTMP($J)
 	S BSDXERR=""
 	S BSDXY="^BSDXTMP("_$J_")"
-	S ^BSDXTMP($J,0)="I00020APPOINTMENTID^D00030START_TIME^D00030END_TIME^D00030CHECKIN^D00030AUXTIME^I00020PATIENTID^T00030PATIENTNAME^T00030RESOURCENAME^I00005NOSHOW^T00020HRN^I00005ACCESSTYPEID^I00005WALKIN^T00250NOTE"_$C(30)
+	S ^BSDXTMP($J,0)="I00020APPOINTMENTID^D00030START_TIME^D00030END_TIME^D00030CHECKIN^D00030AUXTIME^I00020PATIENTID^T00030PATIENTNAME^T00030RESOURCENAME^I00005NOSHOW^T00020HRN^I00005ACCESSTYPEID^I00005WALKIN^T00250NOTE^T00006SEX^T00040PID^D00030DOB"_$C(30)
 	D ^XBKVAR S X="ETRAP^BSDX02",@^%ZOSF("TRAP")
 	;
 	; S %DT="T",X=BSDXSTART D ^%DT S BSDXSTART=Y
@@ -89,8 +90,14 @@ STCOMM(BSDXAD,BSDXRESN)	     ;
 	. S:$E(BSDXNOT,$L(BSDXNOT)-1,$L(BSDXNOT))'=" " BSDXNOT=BSDXNOT_" "
 	. S BSDXI=BSDXI+1
 	. S ^BSDXTMP($J,BSDXI)=BSDXNOT
+	S ^BSDXTMP($J,BSDXI)=^BSDXTMP($J,BSDXI)_U ; Add "^" to separate note from next fields.
 	S BSDXI=BSDXI+1
-	S ^BSDXTMP($J,BSDXI)=$C(30)
+	; new code for V1.5. Extra fields to return.
+	N SEX S SEX=$$GET1^DIQ(2,BSDXPATD,.02)  ; SEX
+	N PID S PID=$$GET1^DIQ(2,BSDXPATD,.363) ; PRIMARY LONG ID
+	N DOB S DOB=$$FMTE^XLFDT($$GET1^DIQ(2,BSDXPATD,.03,"I"))  ; DOB
+	S ^BSDXTMP($J,BSDXI)=SEX_U_PID_U_DOB_$C(30)
+	; end new code
 	Q
 	;
 ERR(BSDXI,BSDXERR)	;Error processing