diff --git a/kids/bsdx0101t1.k b/kids/bsdx0102t1.k
similarity index 94%
rename from kids/bsdx0101t1.k
rename to kids/bsdx0102t1.k
index a5de72a..7c9cd1f 100644
--- a/kids/bsdx0101t1.k
+++ b/kids/bsdx0102t1.k
@@ -1,560 +1,568 @@
-KIDS Distribution saved on Jun 06, 2010@15:03:41
-Clinical Scheduling version 1.1
-**KIDS**:BSDX 1.1T1^
+KIDS Distribution saved on Jun 18, 2010@22:31:31
+Clinical Scheduling V 1.2t1
+**KIDS**:BSDX 1.2T1^
 
 **INSTALL NAME**
-BSDX 1.1T1
-"BLD",7645,0)
-BSDX 1.1T1^IHS Windows Scheduling^^3100606^n
-"BLD",7645,1,0)
-^^1^1^3100606^
-"BLD",7645,1,1,0)
+BSDX 1.2T1
+"BLD",7648,0)
+BSDX 1.2T1^IHS Windows Scheduling^^3100618^n
+"BLD",7648,1,0)
+^^1^1^3100618^^
+"BLD",7648,1,1,0)
 Clinical Scheduling M Server support routines, files, options and RPCs.
-"BLD",7645,4,0)
+"BLD",7648,4,0)
 ^9.64PA^9002018.5^9
-"BLD",7645,4,9002018.1,0)
+"BLD",7648,4,9002018.1,0)
 9002018.1
-"BLD",7645,4,9002018.1,222)
+"BLD",7648,4,9002018.1,222)
 y^y^f^^n^^n^o^n
-"BLD",7645,4,9002018.15,0)
+"BLD",7648,4,9002018.15,0)
 9002018.15
-"BLD",7645,4,9002018.15,222)
+"BLD",7648,4,9002018.15,222)
 y^y^f^^n^^n^o^n
-"BLD",7645,4,9002018.2,0)
+"BLD",7648,4,9002018.2,0)
 9002018.2
-"BLD",7645,4,9002018.2,222)
+"BLD",7648,4,9002018.2,222)
 y^y^f^^n^^n^o^n
-"BLD",7645,4,9002018.3,0)
+"BLD",7648,4,9002018.3,0)
 9002018.3
-"BLD",7645,4,9002018.3,222)
+"BLD",7648,4,9002018.3,222)
 y^y^f^^n^^n^o^n
-"BLD",7645,4,9002018.35,0)
+"BLD",7648,4,9002018.35,0)
 9002018.35
-"BLD",7645,4,9002018.35,222)
+"BLD",7648,4,9002018.35,222)
 y^y^f^^n^^n^o^n
-"BLD",7645,4,9002018.38,0)
+"BLD",7648,4,9002018.38,0)
 9002018.38
-"BLD",7645,4,9002018.38,222)
+"BLD",7648,4,9002018.38,222)
 y^y^f^^n^^n^o^n
-"BLD",7645,4,9002018.39,0)
+"BLD",7648,4,9002018.39,0)
 9002018.39
-"BLD",7645,4,9002018.39,222)
+"BLD",7648,4,9002018.39,222)
 y^y^f^^n^^n^o^n
-"BLD",7645,4,9002018.4,0)
+"BLD",7648,4,9002018.4,0)
 9002018.4
-"BLD",7645,4,9002018.4,222)
+"BLD",7648,4,9002018.4,222)
 y^y^f^^n^^n^o^n
-"BLD",7645,4,9002018.5,0)
+"BLD",7648,4,9002018.5,0)
 9002018.5
-"BLD",7645,4,9002018.5,222)
+"BLD",7648,4,9002018.5,222)
 y^y^f^^n^^y^o^n
-"BLD",7645,4,"B",9002018.1,9002018.1)
+"BLD",7648,4,"B",9002018.1,9002018.1)
 
-"BLD",7645,4,"B",9002018.15,9002018.15)
+"BLD",7648,4,"B",9002018.15,9002018.15)
 
-"BLD",7645,4,"B",9002018.2,9002018.2)
+"BLD",7648,4,"B",9002018.2,9002018.2)
 
-"BLD",7645,4,"B",9002018.3,9002018.3)
+"BLD",7648,4,"B",9002018.3,9002018.3)
 
-"BLD",7645,4,"B",9002018.35,9002018.35)
+"BLD",7648,4,"B",9002018.35,9002018.35)
 
-"BLD",7645,4,"B",9002018.38,9002018.38)
+"BLD",7648,4,"B",9002018.38,9002018.38)
 
-"BLD",7645,4,"B",9002018.39,9002018.39)
+"BLD",7648,4,"B",9002018.39,9002018.39)
 
-"BLD",7645,4,"B",9002018.4,9002018.4)
+"BLD",7648,4,"B",9002018.4,9002018.4)
 
-"BLD",7645,4,"B",9002018.5,9002018.5)
+"BLD",7648,4,"B",9002018.5,9002018.5)
 
-"BLD",7645,6.3)
-5
-"BLD",7645,"ABPKG")
+"BLD",7648,6.3)
+6
+"BLD",7648,"ABPKG")
 n
-"BLD",7645,"INIT")
+"BLD",7648,"INIT")
 V0200^BSDX2E
-"BLD",7645,"KRN",0)
+"BLD",7648,"KRN",0)
 ^9.67PA^8989.52^19
-"BLD",7645,"KRN",.4,0)
+"BLD",7648,"KRN",.4,0)
 .4
-"BLD",7645,"KRN",.4,"NM",0)
+"BLD",7648,"KRN",.4,"NM",0)
 ^9.68A^^
-"BLD",7645,"KRN",.401,0)
+"BLD",7648,"KRN",.401,0)
 .401
-"BLD",7645,"KRN",.402,0)
+"BLD",7648,"KRN",.402,0)
 .402
-"BLD",7645,"KRN",.403,0)
+"BLD",7648,"KRN",.403,0)
 .403
-"BLD",7645,"KRN",.5,0)
+"BLD",7648,"KRN",.5,0)
 .5
-"BLD",7645,"KRN",.84,0)
+"BLD",7648,"KRN",.84,0)
 .84
-"BLD",7645,"KRN",3.6,0)
+"BLD",7648,"KRN",3.6,0)
 3.6
-"BLD",7645,"KRN",3.8,0)
+"BLD",7648,"KRN",3.8,0)
 3.8
-"BLD",7645,"KRN",9.2,0)
+"BLD",7648,"KRN",9.2,0)
 9.2
-"BLD",7645,"KRN",9.8,0)
+"BLD",7648,"KRN",9.8,0)
 9.8
-"BLD",7645,"KRN",9.8,"NM",0)
-^9.68A^35^35
-"BLD",7645,"KRN",9.8,"NM",1,0)
+"BLD",7648,"KRN",9.8,"NM",0)
+^9.68A^36^36
+"BLD",7648,"KRN",9.8,"NM",1,0)
 BSDX01^^0^B69101782
-"BLD",7645,"KRN",9.8,"NM",2,0)
+"BLD",7648,"KRN",9.8,"NM",2,0)
 BSDX02^^0^B16656330
-"BLD",7645,"KRN",9.8,"NM",3,0)
+"BLD",7648,"KRN",9.8,"NM",3,0)
 BSDX03^^0^B2855259
-"BLD",7645,"KRN",9.8,"NM",4,0)
+"BLD",7648,"KRN",9.8,"NM",4,0)
 BSDX04^^0^B30858352
-"BLD",7645,"KRN",9.8,"NM",5,0)
+"BLD",7648,"KRN",9.8,"NM",5,0)
 BSDX05^^0^B7233230
-"BLD",7645,"KRN",9.8,"NM",6,0)
+"BLD",7648,"KRN",9.8,"NM",6,0)
 BSDX06^^0^B7145532
-"BLD",7645,"KRN",9.8,"NM",7,0)
-BSDX07^^0^B73580609
-"BLD",7645,"KRN",9.8,"NM",8,0)
+"BLD",7648,"KRN",9.8,"NM",7,0)
+BSDX07^^0^B74819104
+"BLD",7648,"KRN",9.8,"NM",8,0)
 BSDX08^^0^B36863482
-"BLD",7645,"KRN",9.8,"NM",9,0)
+"BLD",7648,"KRN",9.8,"NM",9,0)
 BSDX09^^0^B26886003
-"BLD",7645,"KRN",9.8,"NM",10,0)
+"BLD",7648,"KRN",9.8,"NM",10,0)
 BSDX12^^0^B6307680
-"BLD",7645,"KRN",9.8,"NM",11,0)
+"BLD",7648,"KRN",9.8,"NM",11,0)
 BSDX13^^0^B10009794
-"BLD",7645,"KRN",9.8,"NM",12,0)
+"BLD",7648,"KRN",9.8,"NM",12,0)
 BSDX14^^0^B6450810
-"BLD",7645,"KRN",9.8,"NM",13,0)
+"BLD",7648,"KRN",9.8,"NM",13,0)
 BSDX15^^0^B5327807
-"BLD",7645,"KRN",9.8,"NM",14,0)
+"BLD",7648,"KRN",9.8,"NM",14,0)
 BSDX16^^0^B11948965
-"BLD",7645,"KRN",9.8,"NM",15,0)
+"BLD",7648,"KRN",9.8,"NM",15,0)
 BSDX17^^0^B2072173
-"BLD",7645,"KRN",9.8,"NM",16,0)
+"BLD",7648,"KRN",9.8,"NM",16,0)
 BSDX18^^0^B87953431
-"BLD",7645,"KRN",9.8,"NM",17,0)
+"BLD",7648,"KRN",9.8,"NM",17,0)
 BSDX19^^0^B7890401
-"BLD",7645,"KRN",9.8,"NM",18,0)
+"BLD",7648,"KRN",9.8,"NM",18,0)
 BSDX20^^0^B5911607
-"BLD",7645,"KRN",9.8,"NM",19,0)
+"BLD",7648,"KRN",9.8,"NM",19,0)
 BSDX21^^0^B8672065
-"BLD",7645,"KRN",9.8,"NM",20,0)
+"BLD",7648,"KRN",9.8,"NM",20,0)
 BSDX22^^0^B9479861
-"BLD",7645,"KRN",9.8,"NM",21,0)
+"BLD",7648,"KRN",9.8,"NM",21,0)
 BSDX23^^0^B8488013
-"BLD",7645,"KRN",9.8,"NM",22,0)
+"BLD",7648,"KRN",9.8,"NM",22,0)
 BSDX24^^0^B13455014
-"BLD",7645,"KRN",9.8,"NM",23,0)
+"BLD",7648,"KRN",9.8,"NM",23,0)
 BSDX25^^0^B16070744
-"BLD",7645,"KRN",9.8,"NM",24,0)
+"BLD",7648,"KRN",9.8,"NM",24,0)
 BSDX26^^0^B3226136
-"BLD",7645,"KRN",9.8,"NM",25,0)
+"BLD",7648,"KRN",9.8,"NM",25,0)
 BSDX27^^0^B96236925
-"BLD",7645,"KRN",9.8,"NM",26,0)
+"BLD",7648,"KRN",9.8,"NM",26,0)
 BSDX28^^0^B22290103
-"BLD",7645,"KRN",9.8,"NM",27,0)
+"BLD",7648,"KRN",9.8,"NM",27,0)
 BSDX29^^0^B38279258
-"BLD",7645,"KRN",9.8,"NM",28,0)
+"BLD",7648,"KRN",9.8,"NM",28,0)
 BSDX30^^0^B6616255
-"BLD",7645,"KRN",9.8,"NM",29,0)
+"BLD",7648,"KRN",9.8,"NM",29,0)
 BSDX31^^0^B23243257
-"BLD",7645,"KRN",9.8,"NM",30,0)
+"BLD",7648,"KRN",9.8,"NM",30,0)
 BSDX32^^0^B16265931
-"BLD",7645,"KRN",9.8,"NM",31,0)
+"BLD",7648,"KRN",9.8,"NM",31,0)
 BSDX33^^0^B12595455
-"BLD",7645,"KRN",9.8,"NM",32,0)
+"BLD",7648,"KRN",9.8,"NM",32,0)
 BSDX34^^0^B42017356
-"BLD",7645,"KRN",9.8,"NM",33,0)
+"BLD",7648,"KRN",9.8,"NM",33,0)
 BSDX35^^0^B8147998
-"BLD",7645,"KRN",9.8,"NM",34,0)
+"BLD",7648,"KRN",9.8,"NM",34,0)
 BSDX11^^0^B6358791
-"BLD",7645,"KRN",9.8,"NM",35,0)
+"BLD",7648,"KRN",9.8,"NM",35,0)
 BSDXAPI^^0^B77865705
-"BLD",7645,"KRN",9.8,"NM","B","BSDX01",1)
+"BLD",7648,"KRN",9.8,"NM",36,0)
+BSDXGPRV^^0^B6645474
+"BLD",7648,"KRN",9.8,"NM","B","BSDX01",1)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX02",2)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX02",2)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX03",3)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX03",3)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX04",4)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX04",4)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX05",5)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX05",5)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX06",6)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX06",6)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX07",7)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX07",7)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX08",8)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX08",8)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX09",9)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX09",9)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX11",34)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX11",34)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX12",10)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX12",10)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX13",11)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX13",11)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX14",12)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX14",12)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX15",13)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX15",13)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX16",14)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX16",14)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX17",15)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX17",15)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX18",16)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX18",16)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX19",17)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX19",17)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX20",18)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX20",18)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX21",19)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX21",19)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX22",20)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX22",20)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX23",21)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX23",21)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX24",22)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX24",22)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX25",23)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX25",23)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX26",24)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX26",24)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX27",25)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX27",25)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX28",26)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX28",26)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX29",27)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX29",27)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX30",28)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX30",28)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX31",29)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX31",29)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX32",30)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX32",30)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX33",31)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX33",31)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX34",32)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX34",32)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDX35",33)
+"BLD",7648,"KRN",9.8,"NM","B","BSDX35",33)
 
-"BLD",7645,"KRN",9.8,"NM","B","BSDXAPI",35)
+"BLD",7648,"KRN",9.8,"NM","B","BSDXAPI",35)
 
-"BLD",7645,"KRN",19,0)
+"BLD",7648,"KRN",9.8,"NM","B","BSDXGPRV",36)
+
+"BLD",7648,"KRN",19,0)
 19
-"BLD",7645,"KRN",19,"NM",0)
+"BLD",7648,"KRN",19,"NM",0)
 ^9.68A^1^1
-"BLD",7645,"KRN",19,"NM",1,0)
+"BLD",7648,"KRN",19,"NM",1,0)
 BSDXRPC^^0
-"BLD",7645,"KRN",19,"NM","B","BSDXRPC",1)
+"BLD",7648,"KRN",19,"NM","B","BSDXRPC",1)
 
-"BLD",7645,"KRN",19.1,0)
+"BLD",7648,"KRN",19.1,0)
 19.1
-"BLD",7645,"KRN",19.1,"NM",0)
+"BLD",7648,"KRN",19.1,"NM",0)
 ^9.68A^2^2
-"BLD",7645,"KRN",19.1,"NM",1,0)
+"BLD",7648,"KRN",19.1,"NM",1,0)
 BSDXZMENU^^0
-"BLD",7645,"KRN",19.1,"NM",2,0)
+"BLD",7648,"KRN",19.1,"NM",2,0)
 BSDXZMGR^^0
-"BLD",7645,"KRN",19.1,"NM","B","BSDXZMENU",1)
+"BLD",7648,"KRN",19.1,"NM","B","BSDXZMENU",1)
 
-"BLD",7645,"KRN",19.1,"NM","B","BSDXZMGR",2)
+"BLD",7648,"KRN",19.1,"NM","B","BSDXZMGR",2)
 
-"BLD",7645,"KRN",101,0)
+"BLD",7648,"KRN",101,0)
 101
-"BLD",7645,"KRN",101,"NM",0)
+"BLD",7648,"KRN",101,"NM",0)
 ^9.68A^4^4
-"BLD",7645,"KRN",101,"NM",1,0)
+"BLD",7648,"KRN",101,"NM",1,0)
 BSDX ADD APPOINTMENT^^0
-"BLD",7645,"KRN",101,"NM",2,0)
+"BLD",7648,"KRN",101,"NM",2,0)
 BSDX CANCEL APPOINTMENT^^0
-"BLD",7645,"KRN",101,"NM",3,0)
+"BLD",7648,"KRN",101,"NM",3,0)
 BSDX CHECKIN APPOINTMENT^^0
-"BLD",7645,"KRN",101,"NM",4,0)
+"BLD",7648,"KRN",101,"NM",4,0)
 BSDX NOSHOW APPOINTMENT^^0
-"BLD",7645,"KRN",101,"NM","B","BSDX ADD APPOINTMENT",1)
+"BLD",7648,"KRN",101,"NM","B","BSDX ADD APPOINTMENT",1)
 
-"BLD",7645,"KRN",101,"NM","B","BSDX CANCEL APPOINTMENT",2)
+"BLD",7648,"KRN",101,"NM","B","BSDX CANCEL APPOINTMENT",2)
 
-"BLD",7645,"KRN",101,"NM","B","BSDX CHECKIN APPOINTMENT",3)
+"BLD",7648,"KRN",101,"NM","B","BSDX CHECKIN APPOINTMENT",3)
 
-"BLD",7645,"KRN",101,"NM","B","BSDX NOSHOW APPOINTMENT",4)
+"BLD",7648,"KRN",101,"NM","B","BSDX NOSHOW APPOINTMENT",4)
 
-"BLD",7645,"KRN",409.61,0)
+"BLD",7648,"KRN",409.61,0)
 409.61
-"BLD",7645,"KRN",771,0)
+"BLD",7648,"KRN",771,0)
 771
-"BLD",7645,"KRN",870,0)
+"BLD",7648,"KRN",870,0)
 870
-"BLD",7645,"KRN",8989.51,0)
+"BLD",7648,"KRN",8989.51,0)
 8989.51
-"BLD",7645,"KRN",8989.52,0)
+"BLD",7648,"KRN",8989.52,0)
 8989.52
-"BLD",7645,"KRN",8994,0)
+"BLD",7648,"KRN",8994,0)
 8994
-"BLD",7645,"KRN",8994,"NM",0)
-^9.68A^58^55
-"BLD",7645,"KRN",8994,"NM",1,0)
+"BLD",7648,"KRN",8994,"NM",0)
+^9.68A^59^56
+"BLD",7648,"KRN",8994,"NM",1,0)
 BSDX ADD NEW APPOINTMENT^^0
-"BLD",7645,"KRN",8994,"NM",2,0)
+"BLD",7648,"KRN",8994,"NM",2,0)
 BSDX ADD NEW AVAILABILITY^^0
-"BLD",7645,"KRN",8994,"NM",3,0)
+"BLD",7648,"KRN",8994,"NM",3,0)
 BSDX APPT BLOCKS OVERLAP^^0
-"BLD",7645,"KRN",8994,"NM",4,0)
+"BLD",7648,"KRN",8994,"NM",4,0)
 BSDX CANCEL APPOINTMENT^^0
-"BLD",7645,"KRN",8994,"NM",5,0)
+"BLD",7648,"KRN",8994,"NM",5,0)
 BSDX CANCEL AVAILABILITY^^0
-"BLD",7645,"KRN",8994,"NM",6,0)
+"BLD",7648,"KRN",8994,"NM",6,0)
 BSDX CREATE APPT SCHEDULE^^0
-"BLD",7645,"KRN",8994,"NM",7,0)
+"BLD",7648,"KRN",8994,"NM",7,0)
 BSDX CREATE ASGND SLOT SCHED^^0
-"BLD",7645,"KRN",8994,"NM",10,0)
+"BLD",7648,"KRN",8994,"NM",10,0)
 BSDX GET BASIC REG INFO^^0
-"BLD",7645,"KRN",8994,"NM",12,0)
+"BLD",7648,"KRN",8994,"NM",12,0)
 BSDX TYPE BLOCKS OVERLAP^^0
-"BLD",7645,"KRN",8994,"NM",13,0)
+"BLD",7648,"KRN",8994,"NM",13,0)
 BSDX ADD/EDIT ACCESS TYPE^^0
-"BLD",7645,"KRN",8994,"NM",14,0)
+"BLD",7648,"KRN",8994,"NM",14,0)
 BSDX GET ACCESS GROUP TYPES^^0
-"BLD",7645,"KRN",8994,"NM",15,0)
+"BLD",7648,"KRN",8994,"NM",15,0)
 BSDX GROUP RESOURCE^^0
-"BLD",7645,"KRN",8994,"NM",16,0)
+"BLD",7648,"KRN",8994,"NM",16,0)
 BSDX RESOURCE GROUPS BY USER^^0
-"BLD",7645,"KRN",8994,"NM",17,0)
+"BLD",7648,"KRN",8994,"NM",17,0)
 BSDX ADD/EDIT RESOURCEUSER^^0
-"BLD",7645,"KRN",8994,"NM",18,0)
+"BLD",7648,"KRN",8994,"NM",18,0)
 BSDX DELETE RESOURCEUSER^^0
-"BLD",7645,"KRN",8994,"NM",19,0)
+"BLD",7648,"KRN",8994,"NM",19,0)
 BSDX SCHEDULE USER^^0
-"BLD",7645,"KRN",8994,"NM",20,0)
+"BLD",7648,"KRN",8994,"NM",20,0)
 BSDX ADD/EDIT RESOURCE^^0
-"BLD",7645,"KRN",8994,"NM",21,0)
+"BLD",7648,"KRN",8994,"NM",21,0)
 BSDX SCHEDULING USER INFO^^0
-"BLD",7645,"KRN",8994,"NM",22,0)
+"BLD",7648,"KRN",8994,"NM",22,0)
 BSDX RESOURCES^^0
-"BLD",7645,"KRN",8994,"NM",23,0)
+"BLD",7648,"KRN",8994,"NM",23,0)
 BSDX ADD/EDIT RESOURCE GROUP^^0
-"BLD",7645,"KRN",8994,"NM",24,0)
+"BLD",7648,"KRN",8994,"NM",24,0)
 BSDX DELETE RESOURCE GROUP^^0
-"BLD",7645,"KRN",8994,"NM",25,0)
+"BLD",7648,"KRN",8994,"NM",25,0)
 BSDX DELETE RES GROUP ITEM^^0
-"BLD",7645,"KRN",8994,"NM",26,0)
+"BLD",7648,"KRN",8994,"NM",26,0)
 BSDX DEPARTMENT RESOURCE^^0
-"BLD",7645,"KRN",8994,"NM",27,0)
+"BLD",7648,"KRN",8994,"NM",27,0)
 BSDX DEPARTMENTS BY USER^^0
-"BLD",7645,"KRN",8994,"NM",28,0)
+"BLD",7648,"KRN",8994,"NM",28,0)
 BSDX RESOURCES BY USER^^0
-"BLD",7645,"KRN",8994,"NM",29,0)
+"BLD",7648,"KRN",8994,"NM",29,0)
 BSDX ADD ACCESS GROUP ITEM^^0
-"BLD",7645,"KRN",8994,"NM",30,0)
+"BLD",7648,"KRN",8994,"NM",30,0)
 BSDX ADD RES GROUP ITEM^^0
-"BLD",7645,"KRN",8994,"NM",31,0)
+"BLD",7648,"KRN",8994,"NM",31,0)
 BSDX ADD/EDIT ACCESS GROUP^^0
-"BLD",7645,"KRN",8994,"NM",32,0)
+"BLD",7648,"KRN",8994,"NM",32,0)
 BSDX DELETE ACCESS GROUP^^0
-"BLD",7645,"KRN",8994,"NM",33,0)
+"BLD",7648,"KRN",8994,"NM",33,0)
 BSDX DELETE ACCESS GROUP ITEM^^0
-"BLD",7645,"KRN",8994,"NM",34,0)
+"BLD",7648,"KRN",8994,"NM",34,0)
 BSDX REGISTER EVENT^^0
-"BLD",7645,"KRN",8994,"NM",35,0)
+"BLD",7648,"KRN",8994,"NM",35,0)
 BSDX UNREGISTER EVENT^^0
-"BLD",7645,"KRN",8994,"NM",36,0)
+"BLD",7648,"KRN",8994,"NM",36,0)
 BSDX RAISE EVENT^^0
-"BLD",7645,"KRN",8994,"NM",37,0)
+"BLD",7648,"KRN",8994,"NM",37,0)
 BSDX SEARCH AVAILABILITY^^0
-"BLD",7645,"KRN",8994,"NM",38,0)
+"BLD",7648,"KRN",8994,"NM",38,0)
 BSDX CHECKIN APPOINTMENT^^0
-"BLD",7645,"KRN",8994,"NM",39,0)
+"BLD",7648,"KRN",8994,"NM",39,0)
 BSDX EDIT APPOINTMENT^^0
-"BLD",7645,"KRN",8994,"NM",40,0)
+"BLD",7648,"KRN",8994,"NM",40,0)
 BSDX PATIENT APPT DISPLAY^^0
-"BLD",7645,"KRN",8994,"NM",41,0)
+"BLD",7648,"KRN",8994,"NM",41,0)
 BSDXPatientLookupRS^^0
-"BLD",7645,"KRN",8994,"NM",42,0)
+"BLD",7648,"KRN",8994,"NM",42,0)
 BSDX SPACEBAR SET^^0
-"BLD",7645,"KRN",8994,"NM",43,0)
+"BLD",7648,"KRN",8994,"NM",43,0)
 BSDX COPY APPOINTMENT CANCEL^^0
-"BLD",7645,"KRN",8994,"NM",44,0)
+"BLD",7648,"KRN",8994,"NM",44,0)
 BSDX COPY APPOINTMENT STATUS^^0
-"BLD",7645,"KRN",8994,"NM",45,0)
+"BLD",7648,"KRN",8994,"NM",45,0)
 BSDX COPY APPOINTMENTS^^0
-"BLD",7645,"KRN",8994,"NM",46,0)
+"BLD",7648,"KRN",8994,"NM",46,0)
 BSDX CLINIC LETTERS^^0
-"BLD",7645,"KRN",8994,"NM",47,0)
+"BLD",7648,"KRN",8994,"NM",47,0)
 BSDX NOSHOW^^0
-"BLD",7645,"KRN",8994,"NM",48,0)
+"BLD",7648,"KRN",8994,"NM",48,0)
 BSDX IM HERE^^0
-"BLD",7645,"KRN",8994,"NM",49,0)
+"BLD",7648,"KRN",8994,"NM",49,0)
 BSDX HOSPITAL LOCATION^^0
-"BLD",7645,"KRN",8994,"NM",50,0)
+"BLD",7648,"KRN",8994,"NM",50,0)
 BSDX CLINIC SETUP^^0
-"BLD",7645,"KRN",8994,"NM",51,0)
+"BLD",7648,"KRN",8994,"NM",51,0)
 BSDX REBOOK LIST^^0
-"BLD",7645,"KRN",8994,"NM",52,0)
+"BLD",7648,"KRN",8994,"NM",52,0)
 BSDX REBOOK CLINIC LIST^^0
-"BLD",7645,"KRN",8994,"NM",53,0)
+"BLD",7648,"KRN",8994,"NM",53,0)
 BSDX REBOOK SET^^0
-"BLD",7645,"KRN",8994,"NM",54,0)
+"BLD",7648,"KRN",8994,"NM",54,0)
 BSDX RESOURCE LETTERS^^0
-"BLD",7645,"KRN",8994,"NM",55,0)
+"BLD",7648,"KRN",8994,"NM",55,0)
 BSDX CANCEL CLINIC LIST^^0
-"BLD",7645,"KRN",8994,"NM",56,0)
+"BLD",7648,"KRN",8994,"NM",56,0)
 BSDX CANCEL AV BY DATE^^0
-"BLD",7645,"KRN",8994,"NM",57,0)
+"BLD",7648,"KRN",8994,"NM",57,0)
 BSDX REBOOK NEXT BLOCK^^0
-"BLD",7645,"KRN",8994,"NM",58,0)
+"BLD",7648,"KRN",8994,"NM",58,0)
 BSDX EHR PATIENT^^0
-"BLD",7645,"KRN",8994,"NM","B","BSDX ADD ACCESS GROUP ITEM",29)
+"BLD",7648,"KRN",8994,"NM",59,0)
+BSDX HOSP LOC PROVIDERS^^0
+"BLD",7648,"KRN",8994,"NM","B","BSDX ADD ACCESS GROUP ITEM",29)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX ADD NEW APPOINTMENT",1)
+"BLD",7648,"KRN",8994,"NM","B","BSDX ADD NEW APPOINTMENT",1)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX ADD NEW AVAILABILITY",2)
+"BLD",7648,"KRN",8994,"NM","B","BSDX ADD NEW AVAILABILITY",2)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX ADD RES GROUP ITEM",30)
+"BLD",7648,"KRN",8994,"NM","B","BSDX ADD RES GROUP ITEM",30)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX ADD/EDIT ACCESS GROUP",31)
+"BLD",7648,"KRN",8994,"NM","B","BSDX ADD/EDIT ACCESS GROUP",31)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX ADD/EDIT ACCESS TYPE",13)
+"BLD",7648,"KRN",8994,"NM","B","BSDX ADD/EDIT ACCESS TYPE",13)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX ADD/EDIT RESOURCE",20)
+"BLD",7648,"KRN",8994,"NM","B","BSDX ADD/EDIT RESOURCE",20)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX ADD/EDIT RESOURCE GROUP",23)
+"BLD",7648,"KRN",8994,"NM","B","BSDX ADD/EDIT RESOURCE GROUP",23)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX ADD/EDIT RESOURCEUSER",17)
+"BLD",7648,"KRN",8994,"NM","B","BSDX ADD/EDIT RESOURCEUSER",17)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX APPT BLOCKS OVERLAP",3)
+"BLD",7648,"KRN",8994,"NM","B","BSDX APPT BLOCKS OVERLAP",3)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX CANCEL APPOINTMENT",4)
+"BLD",7648,"KRN",8994,"NM","B","BSDX CANCEL APPOINTMENT",4)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX CANCEL AV BY DATE",56)
+"BLD",7648,"KRN",8994,"NM","B","BSDX CANCEL AV BY DATE",56)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX CANCEL AVAILABILITY",5)
+"BLD",7648,"KRN",8994,"NM","B","BSDX CANCEL AVAILABILITY",5)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX CANCEL CLINIC LIST",55)
+"BLD",7648,"KRN",8994,"NM","B","BSDX CANCEL CLINIC LIST",55)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX CHECKIN APPOINTMENT",38)
+"BLD",7648,"KRN",8994,"NM","B","BSDX CHECKIN APPOINTMENT",38)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX CLINIC LETTERS",46)
+"BLD",7648,"KRN",8994,"NM","B","BSDX CLINIC LETTERS",46)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX CLINIC SETUP",50)
+"BLD",7648,"KRN",8994,"NM","B","BSDX CLINIC SETUP",50)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX COPY APPOINTMENT CANCEL",43)
+"BLD",7648,"KRN",8994,"NM","B","BSDX COPY APPOINTMENT CANCEL",43)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX COPY APPOINTMENT STATUS",44)
+"BLD",7648,"KRN",8994,"NM","B","BSDX COPY APPOINTMENT STATUS",44)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX COPY APPOINTMENTS",45)
+"BLD",7648,"KRN",8994,"NM","B","BSDX COPY APPOINTMENTS",45)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX CREATE APPT SCHEDULE",6)
+"BLD",7648,"KRN",8994,"NM","B","BSDX CREATE APPT SCHEDULE",6)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX CREATE ASGND SLOT SCHED",7)
+"BLD",7648,"KRN",8994,"NM","B","BSDX CREATE ASGND SLOT SCHED",7)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX DELETE ACCESS GROUP",32)
+"BLD",7648,"KRN",8994,"NM","B","BSDX DELETE ACCESS GROUP",32)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX DELETE ACCESS GROUP ITEM",33)
+"BLD",7648,"KRN",8994,"NM","B","BSDX DELETE ACCESS GROUP ITEM",33)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX DELETE RES GROUP ITEM",25)
+"BLD",7648,"KRN",8994,"NM","B","BSDX DELETE RES GROUP ITEM",25)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX DELETE RESOURCE GROUP",24)
+"BLD",7648,"KRN",8994,"NM","B","BSDX DELETE RESOURCE GROUP",24)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX DELETE RESOURCEUSER",18)
+"BLD",7648,"KRN",8994,"NM","B","BSDX DELETE RESOURCEUSER",18)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX DEPARTMENT RESOURCE",26)
+"BLD",7648,"KRN",8994,"NM","B","BSDX DEPARTMENT RESOURCE",26)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX DEPARTMENTS BY USER",27)
+"BLD",7648,"KRN",8994,"NM","B","BSDX DEPARTMENTS BY USER",27)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX EDIT APPOINTMENT",39)
+"BLD",7648,"KRN",8994,"NM","B","BSDX EDIT APPOINTMENT",39)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX EHR PATIENT",58)
+"BLD",7648,"KRN",8994,"NM","B","BSDX EHR PATIENT",58)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX GET ACCESS GROUP TYPES",14)
+"BLD",7648,"KRN",8994,"NM","B","BSDX GET ACCESS GROUP TYPES",14)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX GET BASIC REG INFO",10)
+"BLD",7648,"KRN",8994,"NM","B","BSDX GET BASIC REG INFO",10)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX GROUP RESOURCE",15)
+"BLD",7648,"KRN",8994,"NM","B","BSDX GROUP RESOURCE",15)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX HOSPITAL LOCATION",49)
+"BLD",7648,"KRN",8994,"NM","B","BSDX HOSP LOC PROVIDERS",59)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX IM HERE",48)
+"BLD",7648,"KRN",8994,"NM","B","BSDX HOSPITAL LOCATION",49)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX NOSHOW",47)
+"BLD",7648,"KRN",8994,"NM","B","BSDX IM HERE",48)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX PATIENT APPT DISPLAY",40)
+"BLD",7648,"KRN",8994,"NM","B","BSDX NOSHOW",47)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX RAISE EVENT",36)
+"BLD",7648,"KRN",8994,"NM","B","BSDX PATIENT APPT DISPLAY",40)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX REBOOK CLINIC LIST",52)
+"BLD",7648,"KRN",8994,"NM","B","BSDX RAISE EVENT",36)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX REBOOK LIST",51)
+"BLD",7648,"KRN",8994,"NM","B","BSDX REBOOK CLINIC LIST",52)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX REBOOK NEXT BLOCK",57)
+"BLD",7648,"KRN",8994,"NM","B","BSDX REBOOK LIST",51)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX REBOOK SET",53)
+"BLD",7648,"KRN",8994,"NM","B","BSDX REBOOK NEXT BLOCK",57)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX REGISTER EVENT",34)
+"BLD",7648,"KRN",8994,"NM","B","BSDX REBOOK SET",53)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX RESOURCE GROUPS BY USER",16)
+"BLD",7648,"KRN",8994,"NM","B","BSDX REGISTER EVENT",34)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX RESOURCE LETTERS",54)
+"BLD",7648,"KRN",8994,"NM","B","BSDX RESOURCE GROUPS BY USER",16)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX RESOURCES",22)
+"BLD",7648,"KRN",8994,"NM","B","BSDX RESOURCE LETTERS",54)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX RESOURCES BY USER",28)
+"BLD",7648,"KRN",8994,"NM","B","BSDX RESOURCES",22)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX SCHEDULE USER",19)
+"BLD",7648,"KRN",8994,"NM","B","BSDX RESOURCES BY USER",28)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX SCHEDULING USER INFO",21)
+"BLD",7648,"KRN",8994,"NM","B","BSDX SCHEDULE USER",19)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX SEARCH AVAILABILITY",37)
+"BLD",7648,"KRN",8994,"NM","B","BSDX SCHEDULING USER INFO",21)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX SPACEBAR SET",42)
+"BLD",7648,"KRN",8994,"NM","B","BSDX SEARCH AVAILABILITY",37)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX TYPE BLOCKS OVERLAP",12)
+"BLD",7648,"KRN",8994,"NM","B","BSDX SPACEBAR SET",42)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDX UNREGISTER EVENT",35)
+"BLD",7648,"KRN",8994,"NM","B","BSDX TYPE BLOCKS OVERLAP",12)
 
-"BLD",7645,"KRN",8994,"NM","B","BSDXPatientLookupRS",41)
+"BLD",7648,"KRN",8994,"NM","B","BSDX UNREGISTER EVENT",35)
 
-"BLD",7645,"KRN","B",.4,.4)
+"BLD",7648,"KRN",8994,"NM","B","BSDXPatientLookupRS",41)
 
-"BLD",7645,"KRN","B",.401,.401)
+"BLD",7648,"KRN","B",.4,.4)
 
-"BLD",7645,"KRN","B",.402,.402)
+"BLD",7648,"KRN","B",.401,.401)
 
-"BLD",7645,"KRN","B",.403,.403)
+"BLD",7648,"KRN","B",.402,.402)
 
-"BLD",7645,"KRN","B",.5,.5)
+"BLD",7648,"KRN","B",.403,.403)
 
-"BLD",7645,"KRN","B",.84,.84)
+"BLD",7648,"KRN","B",.5,.5)
 
-"BLD",7645,"KRN","B",3.6,3.6)
+"BLD",7648,"KRN","B",.84,.84)
 
-"BLD",7645,"KRN","B",3.8,3.8)
+"BLD",7648,"KRN","B",3.6,3.6)
 
-"BLD",7645,"KRN","B",9.2,9.2)
+"BLD",7648,"KRN","B",3.8,3.8)
 
-"BLD",7645,"KRN","B",9.8,9.8)
+"BLD",7648,"KRN","B",9.2,9.2)
 
-"BLD",7645,"KRN","B",19,19)
+"BLD",7648,"KRN","B",9.8,9.8)
 
-"BLD",7645,"KRN","B",19.1,19.1)
+"BLD",7648,"KRN","B",19,19)
 
-"BLD",7645,"KRN","B",101,101)
+"BLD",7648,"KRN","B",19.1,19.1)
 
-"BLD",7645,"KRN","B",409.61,409.61)
+"BLD",7648,"KRN","B",101,101)
 
-"BLD",7645,"KRN","B",771,771)
+"BLD",7648,"KRN","B",409.61,409.61)
 
-"BLD",7645,"KRN","B",870,870)
+"BLD",7648,"KRN","B",771,771)
 
-"BLD",7645,"KRN","B",8989.51,8989.51)
+"BLD",7648,"KRN","B",870,870)
 
-"BLD",7645,"KRN","B",8989.52,8989.52)
+"BLD",7648,"KRN","B",8989.51,8989.51)
 
-"BLD",7645,"KRN","B",8994,8994)
+"BLD",7648,"KRN","B",8989.52,8989.52)
 
-"BLD",7645,"PRE")
+"BLD",7648,"KRN","B",8994,8994)
+
+"BLD",7648,"PRE")
 BSDX2E
-"BLD",7645,"QUES",0)
+"BLD",7648,"QUES",0)
 ^9.62^^
-"BLD",7645,"REQB",0)
+"BLD",7648,"REQB",0)
 ^9.611^^
 "DATA",9002018.5,1,0)
 1^0^3040226.1015
@@ -573,7 +581,7 @@ y^y^f^^n^^n^o^n
 "FIA",9002018.1,0,"RLRO")
 
 "FIA",9002018.1,0,"VR")
-1.1T1^BSDX
+1.2T1^BSDX
 "FIA",9002018.1,9002018.1)
 0
 "FIA",9002018.1,9002018.11)
@@ -599,7 +607,7 @@ y^y^f^^n^^n^o^n
 "FIA",9002018.15,0,"RLRO")
 
 "FIA",9002018.15,0,"VR")
-1.1T1^BSDX
+1.2T1^BSDX
 "FIA",9002018.15,9002018.15)
 0
 "FIA",9002018.2)
@@ -617,7 +625,7 @@ y^y^f^^n^^n^o^n
 "FIA",9002018.2,0,"RLRO")
 
 "FIA",9002018.2,0,"VR")
-1.1T1^BSDX
+1.2T1^BSDX
 "FIA",9002018.2,9002018.2)
 0
 "FIA",9002018.2,9002018.21)
@@ -637,7 +645,7 @@ y^y^f^^n^^n^o^n
 "FIA",9002018.3,0,"RLRO")
 
 "FIA",9002018.3,0,"VR")
-1.1T1^BSDX
+1.2T1^BSDX
 "FIA",9002018.3,9002018.3)
 0
 "FIA",9002018.3,9002018.31)
@@ -657,7 +665,7 @@ y^y^f^^n^^n^o^n
 "FIA",9002018.35,0,"RLRO")
 
 "FIA",9002018.35,0,"VR")
-1.1T1^BSDX
+1.2T1^BSDX
 "FIA",9002018.35,9002018.35)
 0
 "FIA",9002018.38)
@@ -675,7 +683,7 @@ y^y^f^^n^^n^o^n
 "FIA",9002018.38,0,"RLRO")
 
 "FIA",9002018.38,0,"VR")
-1.1T1^BSDX
+1.2T1^BSDX
 "FIA",9002018.38,9002018.38)
 0
 "FIA",9002018.39)
@@ -693,7 +701,7 @@ y^y^f^^n^^n^o^n
 "FIA",9002018.39,0,"RLRO")
 
 "FIA",9002018.39,0,"VR")
-1.1T1^BSDX
+1.2T1^BSDX
 "FIA",9002018.39,9002018.39)
 0
 "FIA",9002018.4)
@@ -711,7 +719,7 @@ y^y^f^^n^^n^o^n
 "FIA",9002018.4,0,"RLRO")
 
 "FIA",9002018.4,0,"VR")
-1.1T1^BSDX
+1.2T1^BSDX
 "FIA",9002018.4,9002018.4)
 0
 "FIA",9002018.4,9002018.41)
@@ -731,7 +739,7 @@ y^y^f^^n^^y^o^n
 "FIA",9002018.5,0,"RLRO")
 
 "FIA",9002018.5,0,"VR")
-1.1T1^BSDX
+1.2T1^BSDX
 "FIA",9002018.5,9002018.5)
 0
 "INIT")
@@ -759,7 +767,7 @@ K ^BSDXAGTP("AC")
 "KRN",19,10987,0)
 BSDXRPC^WINDOWS SCHEDULING PROCEDURE CALLS^^B^^^^^^^^IHS Windows Scheduling
 "KRN",19,10987,1,0)
-^^4^4^3040121^
+^19.06^4^4^3100618^^
 "KRN",19,10987,1,1,0)
 This option hosts RPCs in the BSDX namespace.  Windows Scheduling users
 "KRN",19,10987,1,2,0)
@@ -771,7 +779,7 @@ in order to use Windows Scheduling.
 "KRN",19,10987,99.1)
 61545,63078
 "KRN",19,10987,"RPC",0)
-^19.05P^55^55
+^19.05P^56^56
 "KRN",19,10987,"RPC",1,0)
 BSDX ADD ACCESS GROUP ITEM
 "KRN",19,10987,"RPC",2,0)
@@ -880,6 +888,8 @@ BSDX CANCEL CLINIC LIST
 BSDX CANCEL AV BY DATE
 "KRN",19,10987,"RPC",55,0)
 BSDX REBOOK NEXT BLOCK
+"KRN",19,10987,"RPC",56,0)
+BSDX HOSP LOC PROVIDERS
 "KRN",19,10987,"U")
 WINDOWS SCHEDULING PROCEDURE C
 "KRN",19.1,480,-1)
@@ -1196,6 +1206,10 @@ BSDX REBOOK NEXT BLOCK^RBNEXT^BSDX33^4
 0^58
 "KRN",8994,2494,0)
 BSDX EHR PATIENT^EHRPT^BSDX30^4
+"KRN",8994,2501,-1)
+0^59
+"KRN",8994,2501,0)
+BSDX HOSP LOC PROVIDERS^P^BSDXGPRV^4
 "MBREQ")
 0
 "ORD",3,19.1)
@@ -1223,13 +1237,13 @@ IHS Windows Scheduling^BSDX^IHS Windows Scheduling Extensions
 "PKG",211,22,0)
 ^9.49I^1^1
 "PKG",211,22,1,0)
-1.1T1^3100606
+1.2T1^3100618
 "PKG",211,22,1,1,0)
-^^1^1^3100606
+^^1^1^3100618
 "PKG",211,22,1,1,1,0)
 Clinical Scheduling M Server support routines, files, options and RPCs.
 "PKG",211,"VERSION")
-1.1T1
+1.2T1
 "PRE")
 BSDX2E
 "QUES","XPF1",0)
@@ -1303,13 +1317,13 @@ NO
 "QUES","XPZ2","M")
 D XPZ2^XPDIQ
 "RTN")
-36
+37
 "RTN","BSDX01")
 0^1^B69101782
 "RTN","BSDX01",1,0)
 BSDX01 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
 "RTN","BSDX01",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX01",3,0)
  ;
 "RTN","BSDX01",4,0)
@@ -1821,7 +1835,7 @@ APSEC(BSDXKEY,BSDXDUZ) ;EP - Return TRUE (1) if user has keys BSDXKEY or XUPROGM
 "RTN","BSDX02",1,0)
 BSDX02 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
 "RTN","BSDX02",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX02",3,0)
  ;
 "RTN","BSDX02",4,0)
@@ -2037,7 +2051,7 @@ ETRAP ;EP Error trap entry
 "RTN","BSDX03",1,0)
 BSDX03 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
 "RTN","BSDX03",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX03",3,0)
  ;
 "RTN","BSDX03",4,0)
@@ -2155,7 +2169,7 @@ XR4K(BSDXDA) ;EP
 "RTN","BSDX04",1,0)
 BSDX04 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 
 "RTN","BSDX04",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX04",3,0)
  ;
 "RTN","BSDX04",4,0)
@@ -2473,7 +2487,7 @@ STCOMM(BSDXRESN,BSDXRESD,BSDXS,BSDXAD) ;
 "RTN","BSDX05",1,0)
 BSDX05 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
 "RTN","BSDX05",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX05",3,0)
  ;
 "RTN","BSDX05",4,0)
@@ -2607,7 +2621,7 @@ STCOMM(BSDXAD) ;
 "RTN","BSDX06",1,0)
 BSDX06 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
 "RTN","BSDX06",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX06",3,0)
  ;
 "RTN","BSDX06",4,0)
@@ -2733,11 +2747,11 @@ STCOMM(BSDXRESN,BSDXRESD) ;EP
 "RTN","BSDX06",64,0)
  Q
 "RTN","BSDX07")
-0^7^B73580609
+0^7^B74819104
 "RTN","BSDX07",1,0)
-BSDX07 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 
+BSDX07 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 6/7/10 2:19pm
 "RTN","BSDX07",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX07",3,0)
  ;
 "RTN","BSDX07",4,0)
@@ -3073,153 +3087,155 @@ ADDEVT3(BSDXRES) ;
 "RTN","BSDX07",169,0)
 ERR(BSDXI,BSDXERR) ;Error processing
 "RTN","BSDX07",170,0)
- S BSDXI=BSDXI+1
+ D ^%ZTER ;XXX: remove after we figure out the cause of error
 "RTN","BSDX07",171,0)
- S BSDXERR=$TR(BSDXERR,"^","~")
+    S BSDXI=BSDXI+1
 "RTN","BSDX07",172,0)
- TROLLBACK
+ S BSDXERR=$TR(BSDXERR,"^","~")
 "RTN","BSDX07",173,0)
- S ^BSDXTMP($J,BSDXI)="0^"_BSDXERR_$C(30)
+ TROLLBACK
 "RTN","BSDX07",174,0)
- S BSDXI=BSDXI+1
+ S ^BSDXTMP($J,BSDXI)="0^"_BSDXERR_$C(30)
 "RTN","BSDX07",175,0)
- S ^BSDXTMP($J,BSDXI)=$C(31)
-"RTN","BSDX07",176,0)
- L
-"RTN","BSDX07",177,0)
- Q
-"RTN","BSDX07",178,0)
- ;
-"RTN","BSDX07",179,0)
-ETRAP ;EP Error trap entry
-"RTN","BSDX07",180,0)
- D ^%ZTER
-"RTN","BSDX07",181,0)
- I '$D(BSDXI) N BSDXI S BSDXI=999999
-"RTN","BSDX07",182,0)
  S BSDXI=BSDXI+1
+"RTN","BSDX07",176,0)
+ S ^BSDXTMP($J,BSDXI)=$C(31)
+"RTN","BSDX07",177,0)
+ L
+"RTN","BSDX07",178,0)
+ Q
+"RTN","BSDX07",179,0)
+ ;
+"RTN","BSDX07",180,0)
+ETRAP ;EP Error trap entry
+"RTN","BSDX07",181,0)
+ D ^%ZTER
+"RTN","BSDX07",182,0)
+ I '$D(BSDXI) N BSDXI S BSDXI=999999
 "RTN","BSDX07",183,0)
- D ERR(BSDXI,"BSDX07 Error: "_$G(%ZTERROR))
+ S BSDXI=BSDXI+1
 "RTN","BSDX07",184,0)
- Q
+ D ERR(BSDXI,"BSDX07 Error: "_$G(%ZTERROR))
 "RTN","BSDX07",185,0)
- ;
-"RTN","BSDX07",186,0)
-DAY ;;^SUN^MON^TUES^WEDNES^THURS^FRI^SATUR
-"RTN","BSDX07",187,0)
- ;
-"RTN","BSDX07",188,0)
-DOW S %=$E(X,1,3),Y=$E(X,4,5),Y=Y>2&'(%#4)+$E("144025036146",Y)
-"RTN","BSDX07",189,0)
- F %=%:-1:281 S Y=%#4=1+1+Y
-"RTN","BSDX07",190,0)
- S Y=$E(X,6,7)+Y#7
-"RTN","BSDX07",191,0)
  Q
+"RTN","BSDX07",186,0)
+ ;
+"RTN","BSDX07",187,0)
+DAY ;;^SUN^MON^TUES^WEDNES^THURS^FRI^SATUR
+"RTN","BSDX07",188,0)
+ ;
+"RTN","BSDX07",189,0)
+DOW S %=$E(X,1,3),Y=$E(X,4,5),Y=Y>2&'(%#4)+$E("144025036146",Y)
+"RTN","BSDX07",190,0)
+ F %=%:-1:281 S Y=%#4=1+1+Y
+"RTN","BSDX07",191,0)
+ S Y=$E(X,6,7)+Y#7
 "RTN","BSDX07",192,0)
- ;
+ Q
 "RTN","BSDX07",193,0)
-AVUPDT(BSDXSCD,BSDXSTART,BSDXLEN) ;Update RPMS Clinic availability
-"RTN","BSDX07",194,0)
- ;SEE SDM1
-"RTN","BSDX07",195,0)
- N Y,DFN
-"RTN","BSDX07",196,0)
- N SL,STARTDAY,X,SC,SB,HSI,SI,STR,SDDIF,SDMAX,SDDATE,SDDMAX,SDSDATE,CCXN,MXOK,COV,SDPROG
-"RTN","BSDX07",197,0)
- N X1,SDEDT,X2,SD,SM,SS,S,SDLOCK,ST,I
-"RTN","BSDX07",198,0)
- S Y=BSDXSCD,DFN=BSDXPATID
-"RTN","BSDX07",199,0)
- S SL=$G(^SC(+Y,"SL")),X=$P(SL,U,3),STARTDAY=$S($L(X):X,1:8),SC=Y,SB=STARTDAY-1/100,X=$P(SL,U,6),HSI=$S(X=1:X,X:X,1:4),SI=$S(X="":4,X<3:4,X:X,1:4),STR="#@!$* XXWVUTSRQPONMLKJIHGFEDCBA0123456789jklmnopqrstuvwxyz",SDDIF=$S(HSI<3:8/HSI,1:2) K Y
-"RTN","BSDX07",200,0)
- ;Determine maximum days for scheduling
-"RTN","BSDX07",201,0)
- S SDMAX(1)=$P($G(^SC(+SC,"SDP")),U,2) S:'SDMAX(1) SDMAX(1)=365
-"RTN","BSDX07",202,0)
- S (SDMAX,SDDMAX)=$$FMADD^XLFDT(DT,SDMAX(1))
-"RTN","BSDX07",203,0)
- S SDDATE=BSDXSTART
-"RTN","BSDX07",204,0)
- S SDSDATE=SDDATE,SDDATE=SDDATE\1
-"RTN","BSDX07",205,0)
-1 ;L  Q:$D(SDXXX)  S CCXN=0 K MXOK,COV,SDPROT Q:DFN<0  S SC=+SC
-"RTN","BSDX07",206,0)
- Q:$D(SDXXX)  S CCXN=0 K MXOK,COV,SDPROT Q:DFN<0  S SC=+SC
-"RTN","BSDX07",207,0)
- S X1=DT,SDEDT=365 S:$D(^SC(SC,"SDP")) SDEDT=$P(^SC(SC,"SDP"),"^",2)
-"RTN","BSDX07",208,0)
- S X2=SDEDT D C^%DTC S SDEDT=X
-"RTN","BSDX07",209,0)
- S Y=BSDXSTART
-"RTN","BSDX07",210,0)
-EN1 S (X,SD)=Y,SM=0 D DOW
-"RTN","BSDX07",211,0)
-S I '$D(^SC(SC,"ST",$P(SD,"."),1)) S SS=+$O(^SC(+SC,"T"_Y,SD)) Q:SS'>0  Q:^(SS,1)=""  S ^SC(+SC,"ST",$P(SD,"."),1)=$E($P($T(DAY),U,Y+2),1,2)_" "_$E(SD,6,7)_$J("",SI+SI-6)_^(1),^(0)=$P(SD,".")
-"RTN","BSDX07",212,0)
- S S=BSDXLEN
-"RTN","BSDX07",213,0)
- ;Check if BSDXLEN evenly divisible by appointment length
-"RTN","BSDX07",214,0)
- S RPMSL=$P(SL,U)
-"RTN","BSDX07",215,0)
- I BSDXLEN<RPMSL S BSDXLEN=RPMSL
-"RTN","BSDX07",216,0)
- I BSDXLEN#RPMSL'=0 D
-"RTN","BSDX07",217,0)
- . S BSDXINC=BSDXLEN\RPMSL
-"RTN","BSDX07",218,0)
- . S BSDXINC=BSDXINC+1
-"RTN","BSDX07",219,0)
- . S BSDXLEN=RPMSL*BSDXINC
-"RTN","BSDX07",220,0)
- S SL=S_U_$P(SL,U,2,99)
-"RTN","BSDX07",221,0)
-SC S SDLOCK=$S('$D(SDLOCK):1,1:SDLOCK+1) Q:SDLOCK>9
-"RTN","BSDX07",222,0)
- L +^SC(SC,"ST",$P(SD,"."),1):5 G:'$T SC
-"RTN","BSDX07",223,0)
- S SDLOCK=0,S=^SC(SC,"ST",$P(SD,"."),1)
-"RTN","BSDX07",224,0)
- S I=SD#1-SB*100,ST=I#1*SI\.6+($P(I,".")*SI),SS=SL*HSI/60*SDDIF+ST+ST
-"RTN","BSDX07",225,0)
- I (I<1!'$F(S,"["))&(S'["CAN") L -^SC(SC,"ST",$P(SD,"."),1) Q
-"RTN","BSDX07",226,0)
- I SM<7 S %=$F(S,"[",SS-1) S:'%!($P(SL,"^",6)<3) %=999 I $F(S,"]",SS)'<%!(SDDIF=2&$E(S,ST+ST+1,SS-1)["[") S SM=7
-"RTN","BSDX07",227,0)
  ;
+"RTN","BSDX07",194,0)
+AVUPDT(BSDXSCD,BSDXSTART,BSDXLEN) ;Update RPMS Clinic availability
+"RTN","BSDX07",195,0)
+ ;SEE SDM1
+"RTN","BSDX07",196,0)
+ N Y,DFN
+"RTN","BSDX07",197,0)
+ N SL,STARTDAY,X,SC,SB,HSI,SI,STR,SDDIF,SDMAX,SDDATE,SDDMAX,SDSDATE,CCXN,MXOK,COV,SDPROG
+"RTN","BSDX07",198,0)
+ N X1,SDEDT,X2,SD,SM,SS,S,SDLOCK,ST,I
+"RTN","BSDX07",199,0)
+ S Y=BSDXSCD,DFN=BSDXPATID
+"RTN","BSDX07",200,0)
+ S SL=$G(^SC(+Y,"SL")),X=$P(SL,U,3),STARTDAY=$S($L(X):X,1:8),SC=Y,SB=STARTDAY-1/100,X=$P(SL,U,6),HSI=$S(X=1:X,X:X,1:4),SI=$S(X="":4,X<3:4,X:X,1:4),STR="#@!$* XXWVUTSRQPONMLKJIHGFEDCBA0123456789jklmnopqrstuvwxyz",SDDIF=$S(HSI<3:8/HSI,1:2) K Y
+"RTN","BSDX07",201,0)
+ ;Determine maximum days for scheduling
+"RTN","BSDX07",202,0)
+ S SDMAX(1)=$P($G(^SC(+SC,"SDP")),U,2) S:'SDMAX(1) SDMAX(1)=365
+"RTN","BSDX07",203,0)
+ S (SDMAX,SDDMAX)=$$FMADD^XLFDT(DT,SDMAX(1))
+"RTN","BSDX07",204,0)
+ S SDDATE=BSDXSTART
+"RTN","BSDX07",205,0)
+ S SDSDATE=SDDATE,SDDATE=SDDATE\1
+"RTN","BSDX07",206,0)
+1 ;L  Q:$D(SDXXX)  S CCXN=0 K MXOK,COV,SDPROT Q:DFN<0  S SC=+SC
+"RTN","BSDX07",207,0)
+ Q:$D(SDXXX)  S CCXN=0 K MXOK,COV,SDPROT Q:DFN<0  S SC=+SC
+"RTN","BSDX07",208,0)
+ S X1=DT,SDEDT=365 S:$D(^SC(SC,"SDP")) SDEDT=$P(^SC(SC,"SDP"),"^",2)
+"RTN","BSDX07",209,0)
+ S X2=SDEDT D C^%DTC S SDEDT=X
+"RTN","BSDX07",210,0)
+ S Y=BSDXSTART
+"RTN","BSDX07",211,0)
+EN1 S (X,SD)=Y,SM=0 D DOW
+"RTN","BSDX07",212,0)
+S I '$D(^SC(SC,"ST",$P(SD,"."),1)) S SS=+$O(^SC(+SC,"T"_Y,SD)) Q:SS'>0  Q:^(SS,1)=""  S ^SC(+SC,"ST",$P(SD,"."),1)=$E($P($T(DAY),U,Y+2),1,2)_" "_$E(SD,6,7)_$J("",SI+SI-6)_^(1),^(0)=$P(SD,".")
+"RTN","BSDX07",213,0)
+ S S=BSDXLEN
+"RTN","BSDX07",214,0)
+ ;Check if BSDXLEN evenly divisible by appointment length
+"RTN","BSDX07",215,0)
+ S RPMSL=$P(SL,U)
+"RTN","BSDX07",216,0)
+ I BSDXLEN<RPMSL S BSDXLEN=RPMSL
+"RTN","BSDX07",217,0)
+ I BSDXLEN#RPMSL'=0 D
+"RTN","BSDX07",218,0)
+ . S BSDXINC=BSDXLEN\RPMSL
+"RTN","BSDX07",219,0)
+ . S BSDXINC=BSDXINC+1
+"RTN","BSDX07",220,0)
+ . S BSDXLEN=RPMSL*BSDXINC
+"RTN","BSDX07",221,0)
+ S SL=S_U_$P(SL,U,2,99)
+"RTN","BSDX07",222,0)
+SC S SDLOCK=$S('$D(SDLOCK):1,1:SDLOCK+1) Q:SDLOCK>9
+"RTN","BSDX07",223,0)
+ L +^SC(SC,"ST",$P(SD,"."),1):5 G:'$T SC
+"RTN","BSDX07",224,0)
+ S SDLOCK=0,S=^SC(SC,"ST",$P(SD,"."),1)
+"RTN","BSDX07",225,0)
+ S I=SD#1-SB*100,ST=I#1*SI\.6+($P(I,".")*SI),SS=SL*HSI/60*SDDIF+ST+ST
+"RTN","BSDX07",226,0)
+ I (I<1!'$F(S,"["))&(S'["CAN") L -^SC(SC,"ST",$P(SD,"."),1) Q
+"RTN","BSDX07",227,0)
+ I SM<7 S %=$F(S,"[",SS-1) S:'%!($P(SL,"^",6)<3) %=999 I $F(S,"]",SS)'<%!(SDDIF=2&$E(S,ST+ST+1,SS-1)["[") S SM=7
 "RTN","BSDX07",228,0)
-SP I ST+ST>$L(S),$L(S)<80 S S=S_" " G SP
+ ;
 "RTN","BSDX07",229,0)
- S SDNOT=1
+SP I ST+ST>$L(S),$L(S)<80 S S=S_" " G SP
 "RTN","BSDX07",230,0)
- S ABORT=0
+ S SDNOT=1
 "RTN","BSDX07",231,0)
- F I=ST+ST:SDDIF:SS-SDDIF D  Q:ABORT
+ S ABORT=0
 "RTN","BSDX07",232,0)
- . S ST=$E(S,I+1) S:ST="" ST=" "
+ F I=ST+ST:SDDIF:SS-SDDIF D  Q:ABORT
 "RTN","BSDX07",233,0)
- . S Y=$E(STR,$F(STR,ST)-2)
+ . S ST=$E(S,I+1) S:ST="" ST=" "
 "RTN","BSDX07",234,0)
- . I S["CAN"!(ST="X"&($D(^SC(+SC,"ST",$P(SD,"."),"CAN")))) S ABORT=1 Q
+ . S Y=$E(STR,$F(STR,ST)-2)
 "RTN","BSDX07",235,0)
- . I Y="" S ABORT=1 Q
+ . I S["CAN"!(ST="X"&($D(^SC(+SC,"ST",$P(SD,"."),"CAN")))) S ABORT=1 Q
 "RTN","BSDX07",236,0)
- . S:Y'?1NL&(SM<6) SM=6 S ST=$E(S,I+2,999) S:ST="" ST=" " S S=$E(S,1,I)_Y_ST
+ . I Y="" S ABORT=1 Q
 "RTN","BSDX07",237,0)
- . Q
+ . S:Y'?1NL&(SM<6) SM=6 S ST=$E(S,I+2,999) S:ST="" ST=" " S S=$E(S,1,I)_Y_ST
 "RTN","BSDX07",238,0)
- S ^SC(SC,"ST",$P(SD,"."),1)=S
+ . Q
 "RTN","BSDX07",239,0)
- L -^SC(SC,"ST",$P(SD,"."),1)
+ S ^SC(SC,"ST",$P(SD,"."),1)=S
 "RTN","BSDX07",240,0)
+ L -^SC(SC,"ST",$P(SD,"."),1)
+"RTN","BSDX07",241,0)
  Q
 "RTN","BSDX08")
 0^8^B36863482
 "RTN","BSDX08",1,0)
 BSDX08 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
 "RTN","BSDX08",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX08",3,0)
  ;
 "RTN","BSDX08",4,0)
@@ -3569,7 +3585,7 @@ ETRAP ;EP Error trap entry
 "RTN","BSDX09",1,0)
 BSDX09 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 
 "RTN","BSDX09",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;**local**;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;**local**;NOV 01, 2007;Build 6
 "RTN","BSDX09",3,0)
  ;;local mods by WV/SMH
 "RTN","BSDX09",4,0)
@@ -3903,7 +3919,7 @@ DFN(FILE,BSDXPAT) ; -- returns ien for file
 "RTN","BSDX11",1,0)
 BSDX11 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
 "RTN","BSDX11",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX11",3,0)
  ;
 "RTN","BSDX11",4,0)
@@ -4047,7 +4063,7 @@ INSTALLD(BMXPKG) ;
 "RTN","BSDX12",1,0)
 BSDX12 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
 "RTN","BSDX12",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX12",3,0)
  ;
 "RTN","BSDX12",4,0)
@@ -4185,7 +4201,7 @@ ERR(ERRNO) ;Error processing
 "RTN","BSDX13",1,0)
 BSDX13 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
 "RTN","BSDX13",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX13",3,0)
  ;
 "RTN","BSDX13",4,0)
@@ -4455,7 +4471,7 @@ APTINBLK(BSDXAVID) ;
 "RTN","BSDX14",1,0)
 BSDX14 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
 "RTN","BSDX14",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX14",3,0)
  ;
 "RTN","BSDX14",4,0)
@@ -4601,7 +4617,7 @@ ERROR ;
 "RTN","BSDX15",1,0)
 BSDX15 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
 "RTN","BSDX15",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX15",3,0)
  ;
 "RTN","BSDX15",4,0)
@@ -4753,7 +4769,7 @@ ETRAP ;EP Error trap entry
 "RTN","BSDX16",1,0)
 BSDX16 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 
 "RTN","BSDX16",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX16",3,0)
  ;
 "RTN","BSDX16",4,0)
@@ -4965,7 +4981,7 @@ ERR(BSDXERID,ERRTXT) ;Error processing
 "RTN","BSDX17",1,0)
 BSDX17 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
 "RTN","BSDX17",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX17",3,0)
  ;
 "RTN","BSDX17",4,0)
@@ -5041,7 +5057,7 @@ SCHUSR(BSDXY) ;EP
 "RTN","BSDX18",1,0)
 BSDX18 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
 "RTN","BSDX18",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX18",3,0)
  ;
 "RTN","BSDX18",4,0)
@@ -5663,7 +5679,7 @@ MADEXST(BSDXU,BSDXR) ;
 "RTN","BSDX19",1,0)
 BSDX19 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
 "RTN","BSDX19",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX19",3,0)
  ;
 "RTN","BSDX19",4,0)
@@ -5843,7 +5859,7 @@ ERROR ;
 "RTN","BSDX20",1,0)
 BSDX20 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
 "RTN","BSDX20",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX20",3,0)
  ;
 "RTN","BSDX20",4,0)
@@ -6003,7 +6019,7 @@ ETRAP ;EP Error trap entry
 "RTN","BSDX21",1,0)
 BSDX21 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/21/10 9:42pm
 "RTN","BSDX21",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX21",3,0)
  ;
 "RTN","BSDX21",4,0)
@@ -6211,7 +6227,7 @@ ERROR ;
 "RTN","BSDX22",1,0)
 BSDX22 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
 "RTN","BSDX22",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX22",3,0)
  ;
 "RTN","BSDX22",4,0)
@@ -6393,7 +6409,7 @@ ERROR ;
 "RTN","BSDX23",1,0)
 BSDX23 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
 "RTN","BSDX23",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX23",3,0)
  ;
 "RTN","BSDX23",4,0)
@@ -6603,7 +6619,7 @@ RAISEVNT(BSDXY,BSDXEVENT,BSDXPARAM,BSDXSIP,BSDXSPT) ;EP
 "RTN","BSDX24",1,0)
 BSDX24 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
 "RTN","BSDX24",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX24",3,0)
  ;
 "RTN","BSDX24",4,0)
@@ -6859,7 +6875,7 @@ SEARCH(BSDXY,BSDXRES,BSDXSTRT,BSDXEND,BSDXTYPES,BSDXAMPM,BSDXWKDY) ;EP
 "RTN","BSDX25",1,0)
 BSDX25 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
 "RTN","BSDX25",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX25",3,0)
  ;
 "RTN","BSDX25",4,0)
@@ -7091,7 +7107,7 @@ ERR(ERRNO) ;Error processing
 "RTN","BSDX26",1,0)
 BSDX26 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
 "RTN","BSDX26",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX26",3,0)
  ;
 "RTN","BSDX26",4,0)
@@ -7203,7 +7219,7 @@ ETRAP ;EP Error trap entry
 "RTN","BSDX27",1,0)
 BSDX27 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/21/10 9:52pm
 "RTN","BSDX27",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX27",3,0)
  ;
 "RTN","BSDX27",4,0)
@@ -7699,7 +7715,7 @@ CLDISP(BSDXY,BSDXCLST,BSDXBEG,BSDXEND) ;EP
 "RTN","BSDX28",1,0)
 BSDX28 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
 "RTN","BSDX28",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX28",3,0)
  ;
 "RTN","BSDX28",4,0)
@@ -7935,7 +7951,7 @@ ERR(ERRNO) ;Error processing
 "RTN","BSDX29",1,0)
 BSDX29 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
 "RTN","BSDX29",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX29",3,0)
  ;
 "RTN","BSDX29",4,0)
@@ -8337,7 +8353,7 @@ ADDMIN(BSDXSTRT,BSDXLEN) ;
 "RTN","BSDX2E",1,0)
 BSDX2E ;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [ 08/22/2007  12:17 PM ]
 "RTN","BSDX2E",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX2E",3,0)
  ;
 "RTN","BSDX2E",4,0)
@@ -8537,7 +8553,7 @@ SORRY(XPX) ;
 "RTN","BSDX30",1,0)
 BSDX30 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; [ 09/12/2007  1:54 PM ]
 "RTN","BSDX30",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX30",3,0)
  ;
 "RTN","BSDX30",4,0)
@@ -8717,7 +8733,7 @@ PEVENT(BSDXWID,DFN) ;EP - Raise patient selection event to EHR
 "RTN","BSDX31",1,0)
 BSDX31 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
 "RTN","BSDX31",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX31",3,0)
  ;
 "RTN","BSDX31",4,0)
@@ -9021,7 +9037,7 @@ IMHERE(BSDXRES) ;EP
 "RTN","BSDX32",1,0)
 BSDX32 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
 "RTN","BSDX32",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX32",3,0)
  ;
 "RTN","BSDX32",4,0)
@@ -9211,7 +9227,7 @@ CLNSET(BSDXY) ;EP
 "RTN","BSDX33",1,0)
 BSDX33 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
 "RTN","BSDX33",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX33",3,0)
  ;
 "RTN","BSDX33",4,0)
@@ -9439,7 +9455,7 @@ ERROR2 ;
 "RTN","BSDX34",1,0)
 BSDX34 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/21/10 9:56pm
 "RTN","BSDX34",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX34",3,0)
  ;
 "RTN","BSDX34",4,0)
@@ -9785,7 +9801,7 @@ ERR(ERRNO) ;Error processing
 "RTN","BSDX35",1,0)
 BSDX35 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
 "RTN","BSDX35",2,0)
- ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 5
+ ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
 "RTN","BSDX35",3,0)
  ;
 "RTN","BSDX35",4,0)
@@ -9935,7 +9951,7 @@ ERR(ERRNO) ;Error processing
 "RTN","BSDXAPI",1,0)
 BSDXAPI ; IHS/ANMC/LJF - SCHEDULING APIs ; 4/29/10 9:42pm
 "RTN","BSDXAPI",2,0)
- ;;2.1;BSDX;;24JUL2009;Build 5
+ ;;2.1;BSDX;;24JUL2009;Build 6
 "RTN","BSDXAPI",3,0)
  ;Orignal routine is BSDAPI by IHS/LJF, HMW, and MAW
 "RTN","BSDXAPI",4,0)
@@ -10452,6 +10468,126 @@ CO(PAT,CLINIC,DATE,SDIEN) ;PEP; -- returns 1 if appt already checked-out
  ;
 "RTN","BSDXAPI",260,0)
  
+"RTN","BSDXGPRV")
+0^36^B6645474
+"RTN","BSDXGPRV",1,0)
+BSDXGPRV ; WV/SMH - WINDOWS SCHEDULING RPCS ; 6/10/10 9:01pm
+"RTN","BSDXGPRV",2,0)
+ ;;1.1;IHS WINDOWS SCHEDULING;;NOV 01, 2007;Build 6
+"RTN","BSDXGPRV",3,0)
+ ;
+"RTN","BSDXGPRV",4,0)
+ ;
+"RTN","BSDXGPRV",5,0)
+ERROR ;
+"RTN","BSDXGPRV",6,0)
+ D ERR("RPMS Error")
+"RTN","BSDXGPRV",7,0)
+ Q
+"RTN","BSDXGPRV",8,0)
+ ;
+"RTN","BSDXGPRV",9,0)
+ERR(BSDXERR) ;Error processing
+"RTN","BSDXGPRV",10,0)
+    D ^%ZTER
+"RTN","BSDXGPRV",11,0)
+ S BSDXI=BSDXI+1
+"RTN","BSDXGPRV",12,0)
+    S ^BSDXTMP($J,BSDXI)=BSDXERR
+"RTN","BSDXGPRV",13,0)
+    S BSDXI=BSDXI+1
+"RTN","BSDXGPRV",14,0)
+ S ^BSDXTMP($J,BSDXI)=$C(31)
+"RTN","BSDXGPRV",15,0)
+ Q
+"RTN","BSDXGPRV",16,0)
+ ;
+"RTN","BSDXGPRV",17,0)
+PD(BSDXY,HLIEN) ;EP Debugging entry point
+"RTN","BSDXGPRV",18,0)
+ ;
+"RTN","BSDXGPRV",19,0)
+ D DEBUG^%Serenji("P^BSDXGPRV(.BSDXY,HLIEN)","192.168.254.130")
+"RTN","BSDXGPRV",20,0)
+ ;
+"RTN","BSDXGPRV",21,0)
+ Q
+"RTN","BSDXGPRV",22,0)
+ ;
+"RTN","BSDXGPRV",23,0)
+P(BSDXY,HLIEN) ; Public Entry point; Get Providers for Hosp Location
+"RTN","BSDXGPRV",24,0)
+    ; Input: HLIEN - Hospital Location IEN
+"RTN","BSDXGPRV",25,0)
+    ; Output: ADO Datatable with columns:
+"RTN","BSDXGPRV",26,0)
+    ; - HOSPITAL_LOCATION_ID, BMXIEN, PROV_NAME, DEFAULT
+"RTN","BSDXGPRV",27,0)
+    ; If there are providers in the PROVIDER multiple of file 44 
+"RTN","BSDXGPRV",28,0)
+    ; (Hospital Location) return them;
+"RTN","BSDXGPRV",29,0)
+    ; If no providers in PROVIDER multiple of file 44, return nothing
+"RTN","BSDXGPRV",30,0)
+ ; Called by BSDX HOSP LOC PROVIDERS
+"RTN","BSDXGPRV",31,0)
+ ;
+"RTN","BSDXGPRV",32,0)
+ S BSDXI=0
+"RTN","BSDXGPRV",33,0)
+    I '$D(^SC(HLIEN,0)) D ERR("HOSPITAL LOCATION NOT FOUND") QUIT
+"RTN","BSDXGPRV",34,0)
+ D ^XBKVAR 
+"RTN","BSDXGPRV",35,0)
+    N $ET S $ET="G ERROR^BSDXGPRV"
+"RTN","BSDXGPRV",36,0)
+ K ^BSDXTMP($J)
+"RTN","BSDXGPRV",37,0)
+ S BSDXY=$NA(^BSDXTMP($J))
+"RTN","BSDXGPRV",38,0)
+ S $P(^BSDXTMP($J,BSDXI),U,1)="I00020HOSPITAL_LOCATION_ID"
+"RTN","BSDXGPRV",39,0)
+    S $P(^BSDXTMP($J,BSDXI),U,2)="I00020BMXIEN"
+"RTN","BSDXGPRV",40,0)
+    S $P(^BSDXTMP($J,BSDXI),U,3)="T00030NAME"
+"RTN","BSDXGPRV",41,0)
+    S $P(^BSDXTMP($J,BSDXI),U,4)="T00005DEFAULT"
+"RTN","BSDXGPRV",42,0)
+    S ^BSDXTMP($J,BSDXI)=^BSDXTMP($J,BSDXI)_$C(30)
+"RTN","BSDXGPRV",43,0)
+ ;
+"RTN","BSDXGPRV",44,0)
+    N OUTPUT
+"RTN","BSDXGPRV",45,0)
+    D GETS^DIQ(44,HLIEN_",","2600*","IE","OUTPUT") ; Provider Multiple
+"RTN","BSDXGPRV",46,0)
+    ; No results
+"RTN","BSDXGPRV",47,0)
+    I '$D(OUTPUT) S ^BSDXTMP($J,BSDXI+1)=$C(31) QUIT
+"RTN","BSDXGPRV",48,0)
+    ; if results, get them
+"RTN","BSDXGPRV",49,0)
+    N I S I=""
+"RTN","BSDXGPRV",50,0)
+    F  S I=$O(OUTPUT(44.1,I)) Q:I=""  D
+"RTN","BSDXGPRV",51,0)
+    . S BSDXI=BSDXI+1
+"RTN","BSDXGPRV",52,0)
+    . S $P(^BSDXTMP($J,BSDXI),U,1)=HLIEN                  ; HL IEN
+"RTN","BSDXGPRV",53,0)
+    . S $P(^BSDXTMP($J,BSDXI),U,2)=$P(OUTPUT(44.1,I,.01,"I"),",") ; PROV IEN
+"RTN","BSDXGPRV",54,0)
+    . S $P(^BSDXTMP($J,BSDXI),U,3)=$E(OUTPUT(44.1,I,.01,"E"),1,30) ; PROV NAME
+"RTN","BSDXGPRV",55,0)
+    . S $P(^BSDXTMP($J,BSDXI),U,4)=OUTPUT(44.1,I,.02,"E") ; Default - YES, NO
+"RTN","BSDXGPRV",56,0)
+    . S ^BSDXTMP($J,BSDXI)=^BSDXTMP($J,BSDXI)_$C(30)
+"RTN","BSDXGPRV",57,0)
+ S BSDXI=BSDXI+1
+"RTN","BSDXGPRV",58,0)
+ S ^BSDXTMP($J,BSDXI)=$C(31)
+"RTN","BSDXGPRV",59,0)
+ QUIT
 "SEC","^DIC",9002018.1,9002018.1,0,"AUDIT")
 @
 "SEC","^DIC",9002018.1,9002018.1,0,"DD")