Index: Scheduling/trunk/m/BSDX01.m
===================================================================
--- Scheduling/trunk/m/BSDX01.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX01.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX01	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:14am
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL
 	;
@@ -320,70 +320,70 @@
 	   QUIT
 	   ;
-GETRADEX(BSDXY,DFN,SCIEN) ; Get All Pending and On Hold Radiology Exams for Patient; RPC EP; UJO/SMH new in v 1.6
- ; RPC: BSDX GET RAD EXAM FOR PT; Return: Global Array
- ;
- ; Input: DFN - you should know; SCIEN - IEN of Hospital Location
- ; Output: ADO Datatable with the following columns:
- ; - BMXIEN: Radiology Exam IEN in file 75.1 (RAD/NUC MED ORDERS)
- ; - STATUS: Pending Or Hold Status
- ; - PROCEDURE: Text Procedure Name
- ; - REQUEST_DATE: Date Procedure was requested
- ;
- ; Error Processing: Silent failure. 
- ;
- S BSDXY=$NA(^BMXTEMP($J))
- K @BSDXY
- ;
- N BSDXI S BSDXI=0
- S @BSDXY@(BSDXI)="I00015BMXIEN^T00015STATUS^T00100PROCEDURE^D00030REQUEST_DATE"_$C(30)
- ;
- N BSDXRLIEN S BSDXRLIEN=$ORDER(^RA(79.1,"B",SCIEN,""))  ; IEN of HL in file 79.1, to get Radiology Imaging IEN
- I 'BSDXRLIEN GOTO END
- ;
- N BSDXOUT,BSDXERR ; Out, Error
- ;
- ; File 75.1 = RAD/NUC MED ORDERS
- ; Fields 5 = Request Status; 2 = Procedure; 16 = Requested Entered Date Time
- ; Filter Field: First piece is DFN, 5th piece is 3 or 5 (Status of Pending Or Hold); 20th piece is Radiology Location requested
- D LIST^DIC(75.1,"","@;5;2;16","P","","","","B","I $P(^(0),U)=DFN&(35[$P(^(0),U,5))&($P(^(0),U,20)=BSDXRLIEN)","","BSDXOUT","BSDXERR")
- ;
- IF $DATA(BSDXERR) GOTO END
- ;
- I +BSDXOUT("DILIST",0)>0 FOR BSDXI=1:1:+BSDXOUT("DILIST",0) DO  ; if we have data, fetch the data in each row and store it in the return variable
- . N BMXIEN,BMXSTAUS,BMXPROC,BMXDATE ; Proc IEN, Proc Status, Proc Name
- . S BMXIEN=$P(BSDXOUT("DILIST",BSDXI,0),U) ; IEN
- . S BMXSTATUS=$P(BSDXOUT("DILIST",BSDXI,0),U,2) ; Status
- . S BMXPROC=$P(BSDXOUT("DILIST",BSDXI,0),U,3) ; Procedure Name
- . S BMXDATE=$TR($P(BSDXOUT("DILIST",BSDXI,0),U,4),"@"," ") ; Request Entered Date Time
- . S @BSDXY@(BSDXI)=BMXIEN_U_BMXSTATUS_U_BMXPROC_U_BMXDATE_$C(30)
-END ; Errors Jump Here...
- S @BSDXY@(BSDXI+1)=$C(31)
- QUIT
- ;
-SCHRAEX(BSDXY,RADFN,RAOIFN,RAOSCH) ; Schedule a Radiology Exam; RPC EP; UJO/SMH new in v 1.6
- ; RPC: BSDX SCHEDULE RAD EXAM; Return: Single Value
- ;
- ; Input: 
- ; - RADFN -> DFN
- ; - RAOIFN -> Radiology Order IEN in file 75.1
- ; - RAOSCH -> Scheduled Time for Exam
- ; Output: Always "1"
- ;
- S RAOSCH=+RAOSCH ; Strip the trailing zeros from the Fileman Date produced by C#
- N RAOSTS S RAOSTS=8  ; Status of Scheduled
- D ^RAORDU  ; API in Rad expects RADFN, RAOIFN, RAOSCH, and RAOSTS
- S BSDXY=1 ; Success
- QUIT
- ;
-HOLDRAEX(BSDXY,RADFN,RAOIFN) ; Hold a Radiology Exam; RPC EP; UJO/SMH new in v 1.6
- ; RPC: BSDX HOLD RAD EXAM; Return: Single Vale
- ;
- ; Input:
- ; - RADFN -> DFN
- ; - RAOIFN -> Radiology Order IEN in file 75.1
- ; Output: Always "1"
- N RAOSTS S RAOSTS=3  ; Status of Hold
- N RAOREA S RAOREA=20 ; Reason: Exam Cancelled
- D ^RAORDU
- S BSDXY=1 ; Success
- QUIT
+GETRADEX(BSDXY,DFN,SCIEN)	; Get All Pending and On Hold Radiology Exams for Patient; RPC EP; UJO/SMH new in v 1.6
+	; RPC: BSDX GET RAD EXAM FOR PT; Return: Global Array
+	;
+	; Input: DFN - you should know; SCIEN - IEN of Hospital Location
+	; Output: ADO Datatable with the following columns:
+	; - BMXIEN: Radiology Exam IEN in file 75.1 (RAD/NUC MED ORDERS)
+	; - STATUS: Pending Or Hold Status
+	; - PROCEDURE: Text Procedure Name
+	; - REQUEST_DATE: Date Procedure was requested
+	;
+	; Error Processing: Silent failure. 
+	;
+	S BSDXY=$NA(^BMXTEMP($J))
+	K @BSDXY
+	;
+	N BSDXI S BSDXI=0
+	S @BSDXY@(BSDXI)="I00015BMXIEN^T00015STATUS^T00100PROCEDURE^D00030REQUEST_DATE"_$C(30)
+	;
+	N BSDXRLIEN S BSDXRLIEN=$ORDER(^RA(79.1,"B",SCIEN,""))  ; IEN of HL in file 79.1, to get Radiology Imaging IEN
+	I 'BSDXRLIEN GOTO END
+	;
+	N BSDXOUT,BSDXERR ; Out, Error
+	;
+	; File 75.1 = RAD/NUC MED ORDERS
+	; Fields 5 = Request Status; 2 = Procedure; 16 = Requested Entered Date Time
+	; Filter Field: First piece is DFN, 5th piece is 3 or 5 (Status of Pending Or Hold); 20th piece is Radiology Location requested
+	D LIST^DIC(75.1,"","@;5;2;16","P","","","","B","I $P(^(0),U)=DFN&(35[$P(^(0),U,5))&($P(^(0),U,20)=BSDXRLIEN)","","BSDXOUT","BSDXERR")
+	;
+	IF $DATA(BSDXERR) GOTO END
+	;
+	I +BSDXOUT("DILIST",0)>0 FOR BSDXI=1:1:+BSDXOUT("DILIST",0) DO  ; if we have data, fetch the data in each row and store it in the return variable
+	. N BMXIEN,BMXSTAUS,BMXPROC,BMXDATE ; Proc IEN, Proc Status, Proc Name
+	. S BMXIEN=$P(BSDXOUT("DILIST",BSDXI,0),U) ; IEN
+	. S BMXSTATUS=$P(BSDXOUT("DILIST",BSDXI,0),U,2) ; Status
+	. S BMXPROC=$P(BSDXOUT("DILIST",BSDXI,0),U,3) ; Procedure Name
+	. S BMXDATE=$TR($P(BSDXOUT("DILIST",BSDXI,0),U,4),"@"," ") ; Request Entered Date Time
+	. S @BSDXY@(BSDXI)=BMXIEN_U_BMXSTATUS_U_BMXPROC_U_BMXDATE_$C(30)
+END	; Errors Jump Here...
+	S @BSDXY@(BSDXI+1)=$C(31)
+	QUIT
+	;
+SCHRAEX(BSDXY,RADFN,RAOIFN,RAOSCH)	; Schedule a Radiology Exam; RPC EP; UJO/SMH new in v 1.6
+	; RPC: BSDX SCHEDULE RAD EXAM; Return: Single Value
+	;
+	; Input: 
+	; - RADFN -> DFN
+	; - RAOIFN -> Radiology Order IEN in file 75.1
+	; - RAOSCH -> Scheduled Time for Exam
+	; Output: Always "1"
+	;
+	S RAOSCH=+RAOSCH ; Strip the trailing zeros from the Fileman Date produced by C#
+	N RAOSTS S RAOSTS=8  ; Status of Scheduled
+	D ^RAORDU  ; API in Rad expects RADFN, RAOIFN, RAOSCH, and RAOSTS
+	S BSDXY=1 ; Success
+	QUIT
+	;
+HOLDRAEX(BSDXY,RADFN,RAOIFN)	; Hold a Radiology Exam; RPC EP; UJO/SMH new in v 1.6
+	; RPC: BSDX HOLD RAD EXAM; Return: Single Vale
+	;
+	; Input:
+	; - RADFN -> DFN
+	; - RAOIFN -> Radiology Order IEN in file 75.1
+	; Output: Always "1"
+	N RAOSTS S RAOSTS=3  ; Status of Hold
+	N RAOREA S RAOREA=20 ; Reason: Exam Cancelled
+	D ^RAORDU
+	S BSDXY=1 ; Success
+	QUIT
Index: Scheduling/trunk/m/BSDX02.m
===================================================================
--- Scheduling/trunk/m/BSDX02.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX02.m	(revision 1177)
@@ -1,4 +1,4 @@
-BSDX02	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:14am
-	;;1.5;BSDX;;Apr 28, 2011
+BSDX02	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/11/11 11:33am
+	;;1.6T1;BSDX;;May 11, 2011
 	;Licensed under LGPL 
 	; Change Log
@@ -100,5 +100,5 @@
 	; Outputs it in MM/DD/YYYY format, which is ambigous for C#.
 	N DOB S DOB=$$FMTE^XLFDT($$GET1^DIQ(2,BSDXPATD,.03,"I"))  ; DOB
-	N RADEX S RADEX=$P(BSDXNOD,U,14)
+	N RADEX S RADEX=$P(BSDXNOD,U,14) ;Radiology exam
 	S ^BSDXTMP($J,BSDXI)=SEX_U_PID_U_DOB_U_RADEX_$C(30)
 	; end new code
Index: Scheduling/trunk/m/BSDX03.m
===================================================================
--- Scheduling/trunk/m/BSDX03.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX03.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX03	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:14am
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	;Licensed under LGPL
 	;
Index: Scheduling/trunk/m/BSDX04.m
===================================================================
--- Scheduling/trunk/m/BSDX04.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX04.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX04	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 4/28/11 10:15am
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL
 	; Change Log:
Index: Scheduling/trunk/m/BSDX05.m
===================================================================
--- Scheduling/trunk/m/BSDX05.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX05.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX05	 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:16am
-	   ;;1.5;BSDX;;Apr 28, 2011
+	   ;;1.6T1;BSDX;;May 11, 2011
 	   ; Licensed under LGPL
 	   ;
Index: Scheduling/trunk/m/BSDX06.m
===================================================================
--- Scheduling/trunk/m/BSDX06.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX06.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX06	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:16am
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL
 	; Change Log:
Index: Scheduling/trunk/m/BSDX07.m
===================================================================
--- Scheduling/trunk/m/BSDX07.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX07.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX07	; VW/UJO/SMH - WINDOWS SCHEDULING RPCS  ; 4/28/11 10:17am
-	   ;;1.5;BSDX;;Apr 28, 2011
+	   ;;1.6T1;BSDX;;May 11, 2011
 	   ; Licensed under LGPL
 	   ;
Index: Scheduling/trunk/m/BSDX08.m
===================================================================
--- Scheduling/trunk/m/BSDX08.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX08.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX08	; VW/UJO/SMH - WINDOWS SCHEDULING RPCS ; 4/28/11 10:17am
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; 
 	; Original by HMW. New Written by Sam Habiel. Licensed under LGPL.
Index: Scheduling/trunk/m/BSDX09.m
===================================================================
--- Scheduling/trunk/m/BSDX09.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX09.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX09	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 4/28/11 10:18am
-	;;1.5;BSDX;;Apr 28, 2011;Build 7
+	;;1.6T1;BSDX;;May 11, 2011;Build 7
 	; Licensed under LGPL
 	;
@@ -12,5 +12,5 @@
 	; UJO/TH - v 1.3 on 3100715 - Change SSN to PID and get PID field instead
 	;
-    ; UJO/TH - v 1.42 on 3101020 - Add Sex field.
+	   ; UJO/TH - v 1.42 on 3101020 - Add Sex field.
 	;
 GETREGA(BSDXRET,BSDXPAT)	       ;EP
Index: Scheduling/trunk/m/BSDX11.m
===================================================================
--- Scheduling/trunk/m/BSDX11.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX11.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX11	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:18am
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL
 	;
Index: Scheduling/trunk/m/BSDX12.m
===================================================================
--- Scheduling/trunk/m/BSDX12.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX12.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX12	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:18am
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL
 	; 
Index: Scheduling/trunk/m/BSDX13.m
===================================================================
--- Scheduling/trunk/m/BSDX13.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX13.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX13	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:19am
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL
 	;
Index: Scheduling/trunk/m/BSDX14.m
===================================================================
--- Scheduling/trunk/m/BSDX14.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX14.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX14	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:19am
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL
 	;
Index: Scheduling/trunk/m/BSDX15.m
===================================================================
--- Scheduling/trunk/m/BSDX15.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX15.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX15	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:19am
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL
 	;
Index: Scheduling/trunk/m/BSDX16.m
===================================================================
--- Scheduling/trunk/m/BSDX16.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX16.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX16	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 4/28/11 10:20am
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL
 	;
Index: Scheduling/trunk/m/BSDX17.m
===================================================================
--- Scheduling/trunk/m/BSDX17.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX17.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX17	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:20am
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL
 	;
Index: Scheduling/trunk/m/BSDX18.m
===================================================================
--- Scheduling/trunk/m/BSDX18.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX18.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX18	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:20am
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL
 	;
Index: Scheduling/trunk/m/BSDX19.m
===================================================================
--- Scheduling/trunk/m/BSDX19.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX19.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX19	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:21am
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL
 	;
Index: Scheduling/trunk/m/BSDX20.m
===================================================================
--- Scheduling/trunk/m/BSDX20.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX20.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX20	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:21am
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL
 	;
Index: Scheduling/trunk/m/BSDX21.m
===================================================================
--- Scheduling/trunk/m/BSDX21.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX21.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX21	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:22am
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL
 	;
Index: Scheduling/trunk/m/BSDX22.m
===================================================================
--- Scheduling/trunk/m/BSDX22.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX22.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX22	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:22am
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL
 	;
Index: Scheduling/trunk/m/BSDX23.m
===================================================================
--- Scheduling/trunk/m/BSDX23.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX23.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX23	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:22am
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL
 	;
Index: Scheduling/trunk/m/BSDX24.m
===================================================================
--- Scheduling/trunk/m/BSDX24.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX24.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX24	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:22am
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL
 	;
Index: Scheduling/trunk/m/BSDX25.m
===================================================================
--- Scheduling/trunk/m/BSDX25.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX25.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX25	; VW/UJO/SMH - WINDOWS SCHEDULING RPCS ; 4/28/11 10:24am
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL
 	;
Index: Scheduling/trunk/m/BSDX26.m
===================================================================
--- Scheduling/trunk/m/BSDX26.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX26.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX26	 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:24am
-	   ;;1.5;BSDX;;Apr 28, 2011
+	   ;;1.6T1;BSDX;;May 11, 2011
 	   ; Licensed under LGPL
 	   ; Change History:
Index: Scheduling/trunk/m/BSDX27.m
===================================================================
--- Scheduling/trunk/m/BSDX27.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX27.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX27	 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:24am
-	   ;;1.5;BSDX;;Apr 28, 2011
+	   ;;1.6T1;BSDX;;May 11, 2011
 	   ; Licensed under LGPL
 	   ; 
Index: Scheduling/trunk/m/BSDX28.m
===================================================================
--- Scheduling/trunk/m/BSDX28.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX28.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX28	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:25am
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL
 	; Change Log:
@@ -28,5 +28,5 @@
 	I '+$G(DUZ) S BSDXY=BSDXRET_$C(31) Q
 	I '$D(DUZ(2)) S BSDXY=BSDXRET_$C(31) Q
-DFN ;If DFN is passed as `nnnn, just return that patient
+DFN	;If DFN is passed as `nnnn, just return that patient
 	I $E(BSDXP)="`" DO  SET BSDXY=BSDXRET_$C(31) QUIT
 	. N BSDXIEN S BSDXIEN=$E(BSDXP,2,99)
Index: Scheduling/trunk/m/BSDX29.m
===================================================================
--- Scheduling/trunk/m/BSDX29.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX29.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX29	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:25am
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL
 	; 
Index: Scheduling/trunk/m/BSDX2E.m
===================================================================
--- Scheduling/trunk/m/BSDX2E.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX2E.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX2E	;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [4/28/11 10:28am]
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL
 	;
Index: Scheduling/trunk/m/BSDX30.m
===================================================================
--- Scheduling/trunk/m/BSDX30.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX30.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX30	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; [4/28/11 10:28am]
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL
 	;
Index: Scheduling/trunk/m/BSDX31.m
===================================================================
--- Scheduling/trunk/m/BSDX31.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX31.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX31	 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:28am
-	   ;;1.5;BSDX;;Apr 28, 2011
+	   ;;1.6T1;BSDX;;May 11, 2011
 	   ; Licensed under LGPL
 	   ; Change Log:
Index: Scheduling/trunk/m/BSDX32.m
===================================================================
--- Scheduling/trunk/m/BSDX32.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX32.m	(revision 1177)
@@ -1,5 +1,9 @@
-BSDX32	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:28am
-	;;1.5;BSDX;;Apr 28, 2011
+BSDX32	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/11/11 10:39am
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL
+	;
+	; Change Log:
+	; April 2011: Added Field "IS_RADIOLOGY_LOCATION" to help decide if the Hospital Location
+	; should be treated in the GUI as a Radiology Location
 	;
 	;
@@ -52,4 +56,5 @@
 	. ; Decide if this is a radiology location - Check "B" index of ^RA(79.1 global to see if HL is there
 	. N BSDXISRAD S BSDXISRAD=''$DATA(^RA(79.1,"B",BSDXIEN))
+	. ;
 	. S BSDXI=BSDXI+1
 	. S ^BSDXTMP($J,BSDXI)=BSDXIEN_U_BSDXNAM_U_BSDXPRV_U_BSDXSCOD_U_BSDXINA_U_BSDXREA_U_BSDXISRAD_$C(30)
Index: Scheduling/trunk/m/BSDX33.m
===================================================================
--- Scheduling/trunk/m/BSDX33.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX33.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX33	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:29am
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL
 	; Mods by WV/STAR
Index: Scheduling/trunk/m/BSDX34.m
===================================================================
--- Scheduling/trunk/m/BSDX34.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX34.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX34	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:29am
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL  
 	;
Index: Scheduling/trunk/m/BSDX35.m
===================================================================
--- Scheduling/trunk/m/BSDX35.m	(revision 1172)
+++ Scheduling/trunk/m/BSDX35.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDX35	; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:29am
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL  
 	;
Index: Scheduling/trunk/m/BSDXAPI.m
===================================================================
--- Scheduling/trunk/m/BSDXAPI.m	(revision 1172)
+++ Scheduling/trunk/m/BSDXAPI.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDXAPI	; IHS/ANMC/LJF & VW/SMH - SCHEDULING APIs ; 4/28/11 10:30am
-	;;1.5;BSDX;;Apr 28, 2011;Build 7
+	;;1.6T1;BSDX;;May 11, 2011;Build 7
 	; Licensed under LGPL  
 	;
Index: Scheduling/trunk/m/BSDXGPRV.m
===================================================================
--- Scheduling/trunk/m/BSDXGPRV.m	(revision 1172)
+++ Scheduling/trunk/m/BSDXGPRV.m	(revision 1177)
@@ -1,4 +1,4 @@
 BSDXGPRV	; WV/SMH - WINDOWS SCHEDULING RPCS ; 4/28/11 10:31am
-	;;1.5;BSDX;;Apr 28, 2011
+	;;1.6T1;BSDX;;May 11, 2011
 	; Licensed under LGPL  
 	;