Index: Scheduling/trunk/m/BSDX02.m
===================================================================
--- Scheduling/trunk/m/BSDX02.m	(revision 1107)
+++ Scheduling/trunk/m/BSDX02.m	(revision 1108)
@@ -1,7 +1,8 @@
-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
 	;
 	;
@@ -28,5 +29,5 @@
 	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")
 	;
@@ -90,6 +91,12 @@
 	. 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
 	;