Index: Scheduling/trunk/m/BSDXGPRV.m
===================================================================
--- Scheduling/trunk/m/BSDXGPRV.m	(revision 998)
+++ Scheduling/trunk/m/BSDXGPRV.m	(revision 1005)
@@ -1,3 +1,3 @@
-BSDXGPRV	; WV/SMH - WINDOWS SCHEDULING RPCS ; 9/7/10 7:59am
+BSDXGPRV	; WV/SMH - WINDOWS SCHEDULING RPCS ; 11/2/10 4:27pm
 	;;1.41;BSDX;;Sep 29, 2010
 	;
@@ -8,8 +8,8 @@
 	;
 ERR(BSDXERR)	;Error processing
-	   D ^%ZTER
+	D ^%ZTER
 	S BSDXI=BSDXI+1
-	   S ^BSDXTMP($J,BSDXI)=BSDXERR
-	   S BSDXI=BSDXI+1
+	S ^BSDXTMP($J,BSDXI)=BSDXERR
+	S BSDXI=BSDXI+1
 	S ^BSDXTMP($J,BSDXI)=$C(31)
 	Q
@@ -22,37 +22,37 @@
 	;
 P(BSDXY,HLIEN)	; Public Entry point; Get Providers for Hosp Location
-	   ; Input: HLIEN - Hospital Location IEN
-	   ; Output: ADO Datatable with columns:
-	   ; - HOSPITAL_LOCATION_ID, BMXIEN, PROV_NAME, DEFAULT
-	   ; If there are providers in the PROVIDER multiple of file 44 
-	   ; (Hospital Location) return them;
-	   ; If no providers in PROVIDER multiple of file 44, return nothing
+	; Input: HLIEN - Hospital Location IEN
+	; Output: ADO Datatable with columns:
+	; - HOSPITAL_LOCATION_ID, BMXIEN, PROV_NAME, DEFAULT
+	; If there are providers in the PROVIDER multiple of file 44 
+	; (Hospital Location) return them;
+	; If no providers in PROVIDER multiple of file 44, return nothing
 	; Called by BSDX HOSP LOC PROVIDERS
 	;
 	S BSDXI=0
-	   I '$D(^SC(HLIEN,0)) D ERR("HOSPITAL LOCATION NOT FOUND") QUIT
+	I '$D(^SC(HLIEN,0)) D ERR("HOSPITAL LOCATION NOT FOUND") QUIT
 	D ^XBKVAR 
-	   N $ET S $ET="G ERROR^BSDXGPRV"
+	N $ET S $ET="G ERROR^BSDXGPRV"
 	K ^BSDXTMP($J)
 	S BSDXY=$NA(^BSDXTMP($J))
 	S $P(^BSDXTMP($J,BSDXI),U,1)="I00020HOSPITAL_LOCATION_ID"
-	   S $P(^BSDXTMP($J,BSDXI),U,2)="I00020BMXIEN"
-	   S $P(^BSDXTMP($J,BSDXI),U,3)="T00030NAME"
-	   S $P(^BSDXTMP($J,BSDXI),U,4)="T00005DEFAULT"
-	   S ^BSDXTMP($J,BSDXI)=^BSDXTMP($J,BSDXI)_$C(30)
+	S $P(^BSDXTMP($J,BSDXI),U,2)="I00020BMXIEN"
+	S $P(^BSDXTMP($J,BSDXI),U,3)="T00030NAME"
+	S $P(^BSDXTMP($J,BSDXI),U,4)="T00005DEFAULT"
+	S ^BSDXTMP($J,BSDXI)=^BSDXTMP($J,BSDXI)_$C(30)
 	;
-	   N OUTPUT
-	   D GETS^DIQ(44,HLIEN_",","2600*","IE","OUTPUT") ; Provider Multiple
-	   ; No results
-	   I '$D(OUTPUT) S ^BSDXTMP($J,BSDXI+1)=$C(31) QUIT
-	   ; if results, get them
-	   N I S I=""
-	   F  S I=$O(OUTPUT(44.1,I)) Q:I=""  D
-	   . S BSDXI=BSDXI+1
-	   . S $P(^BSDXTMP($J,BSDXI),U,1)=HLIEN                  ; HL IEN
-	   . S $P(^BSDXTMP($J,BSDXI),U,2)=$P(OUTPUT(44.1,I,.01,"I"),",") ; PROV IEN
-	   . S $P(^BSDXTMP($J,BSDXI),U,3)=$E(OUTPUT(44.1,I,.01,"E"),1,30) ; PROV NAME
-	   . S $P(^BSDXTMP($J,BSDXI),U,4)=OUTPUT(44.1,I,.02,"E") ; Default - YES, NO
-	   . S ^BSDXTMP($J,BSDXI)=^BSDXTMP($J,BSDXI)_$C(30)
+	N OUTPUT
+	D GETS^DIQ(44,HLIEN_",","2600*","IE","OUTPUT") ; Provider Multiple
+	; No results
+	I '$D(OUTPUT) S ^BSDXTMP($J,BSDXI+1)=$C(31) QUIT
+	; if results, get them
+	N I S I=""
+	F  S I=$O(OUTPUT(44.1,I)) Q:I=""  D
+	. S BSDXI=BSDXI+1
+	. S $P(^BSDXTMP($J,BSDXI),U,1)=HLIEN                  ; HL IEN
+	. S $P(^BSDXTMP($J,BSDXI),U,2)=$P(OUTPUT(44.1,I,.01,"I"),",") ; PROV IEN
+	. S $P(^BSDXTMP($J,BSDXI),U,3)=$E(OUTPUT(44.1,I,.01,"E"),1,30) ; PROV NAME
+	. S $P(^BSDXTMP($J,BSDXI),U,4)=OUTPUT(44.1,I,.02,"E") ; Default - YES, NO
+	. S ^BSDXTMP($J,BSDXI)=^BSDXTMP($J,BSDXI)_$C(30)
 	S BSDXI=BSDXI+1
 	S ^BSDXTMP($J,BSDXI)=$C(31)