29. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 8/31/2018 11:26:36 AM Central Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

29.1 Files compared

# Location File Last Modified
1 BMS_Source.zip\Source\Sources\Database\BMSv2Updates\2.1.6.3\Reports DROP_CREATE_BMS_HISTORY_usp_Rpt_IconUsageHistory.sql Thu Aug 30 15:11:48 2018 UTC
2 BMS_Source.zip\Source\Sources\Database\BMSv2Updates\2.1.6.3\Reports DROP_CREATE_BMS_HISTORY_usp_Rpt_IconUsageHistory.sql Thu Aug 30 19:19:26 2018 UTC

29.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 346
Changed 1 10
Inserted 0 0
Removed 0 0

29.3 Comparison options

Whitespace
Character case Differences in character case are significant
Line endings Differences in line endings (CR and LF characters) are ignored
CR/LF characters Not shown in the comparison detail

29.4 Active regular expressions

No regular expressions were active.

29.5 Comparison detail

  1   USE [BMS_H ISTORY]
  2   GO
  3  
  4   /****** Ob ject:  Sto redProcedu re [dbo].[ usp_Rpt_Ic onUsageHis tory]    S cript Date : 6/14/201 6 9:13:58  AM ******/
  5   DROP PROCE DURE [dbo] .[usp_Rpt_ IconUsageH istory]
  6   GO
  7  
  8   /****** Ob ject:  Sto redProcedu re [dbo].[ usp_Rpt_Ic onUsageHis tory]    S cript Date : 6/14/201 6 9:13:58  AM ******/
  9   SET ANSI_N ULLS ON
  10   GO
  11  
  12   SET QUOTED _IDENTIFIE R ON
  13   GO
  14  
  15  
  16   --exec usp _Rpt_IconU sageHistor y @UserID= N'aac.dva. DNS     \bms_svc_s qa',@FACIL ITIES_IDS= N'144;143_ 1,145;142_ 2,146;141_ 3,147;140_ 4,148;139_ 5,149;138_ 6,150;137_ 7,151;136_ 8,161;135_ 9,162;134_ 10,163;133 _11,164;13 2_12,165;1 31_13,166; 130_14,167 ;129_15,16 8;128_16,1 69;127_17, 170;126_18 ,171;125_1 9,172;124_ 20,173;123 _21,174;12 2_22,175;1 21_23,176; 120_24,177 ;119_25,17 8;118_26,1 79;117_27, 180;116_28 ,181;115_2 9,182;114_ 30,183;113 _31,184;11 2_32,185;1 11_33,186; 110_34,187 ;109_35,18 8;108_36,1 89;107_37, 190;106_38 ,191;105_3 9,192;104_ 40,193;103 _41,194;10 2_42,195;1 01_43,196; 100_44,197 ;99_45,198 ;98_46,199 ;97_47,200 ;96_48,201 ;95_49,202 ;94_50,203 ;93_51,204 ;92_52,205 ;91_53,206 ;90_54,207 ;89_55,208 ;88_56,209 ;87_57,210 ;86_58,211 ;85_59,212 ;84_60,213 ;83_61,214 ;82_62,215 ;81_63,216 ;80_64,217 ;79_65,218 ;78_66,219 ;77_67,220 ;76_68,221 ;75_69,222 ;74_70,223 ;73_71,224 ;72_72,225 ;71_73,226 ;70_74,227 ;69_75,228 ;68_76,229 ;67_77,230 ;66_78,231 ;65_79,232 ;64_80,233 ;63_81,234 ;62_82,235 ;61_83,236 ;60_84,237 ;59_85,238 ;58_86,239 ;57_87,240 ;56_88,241 ;55_89,242 ;54_90,243 ;53_91,244 ;52_92,245 ;51_93,246 ;50_94,247 ;49_95,248 ;48_96,249 ;47_97,250 ;46_98,251 ;45_99,252 ;44_100,25 3;43_101,2 54;42_102, 255;41_103 ,256;40_10 4,257;39_1 05,258;38_ 106,259;37 _107,260;3 6_108,261; 35_109,262 ;34_110,26 3;33_111,2 64;32_112, 265;31_113 ,266;30_11 4,267;29_1 15,268;28_ 116,269;27 _117,270;2 6_118,271; 25_119,272 ;24_120,27 3;23_121,2 74;22_122, 275;21_123 ,276;20_12 4,277;19_1 25,278;18_ 126,279;17 _127,280;1 6_128,281; 15_129,282 ;14_130,28 3;13_131,2 84;12_132, 285;11_133 ,286;10_13 4,287;9_13 5,295;8_13 6,296;7_13 7,297;6_13 8,298;5_13 9,299;4_14 0,300;3_14 1,301;2_14 2,302;1_14 3',@ICON_T YPES=N'18; -2_27_1,19 ;-3_26_2,2 0;-1_25_3, 21;-2_24_4 ,23;-2_23_ 5,24;-1_22 _6,26;-2_2 1_7,27;-1_ 20_8,29;-2 _19_9,30;- 1_18_10,32 ;-2_17_11, 33;-1_16_1 2,35;-2_15 _13,37;-2_ 14_14,39;- 2_13_15,42 ;-2_12_16, 44;-2_11_1 7,45;-2_10 _18,46;-2_ 9_19,47;-2 _8_20,48;- 2_7_21,49; -2_6_22,50 ;-2_5_23,5 1;-1_4_24, 52;-2_3_25 ,53;-1_2_2 6,54;-1_1_ 27',@DATE_ FROM = '1/ 1/2008', @ DATE_TO='1 2/29/2016' , @ICON_GR OUP=N'-3'
  17   --exec usp _Rpt_IconU sageHistor y @UserID= N'aac.dva. DNS     \bms_svc_s qa',@FACIL ITIES_IDS= N'144;143_ 1,146;141_ 3,162;134_ 10,147;140 _4,163;133 _11,164;13 2_12,165;1 31_13,166; 130_14,148 ;139_5,145 ;142_2,149 ;138_6,150 ;137_7,151 ;136_8,168 ;128_16,16 7;129_15,1 97;99_45,1 98;98_46,1 99;97_47,1 69;127_17, 170;126_18 ,171;125_1 9,172;124_ 20,200;96_ 48,201;95_ 49,202;94_ 50,203;93_ 51,173;123 _21,174;12 2_22,175;1 21_23,176; 120_24,204 ;92_52,205 ;91_53,206 ;90_54,207 ;89_55,208 ;88_56,177 ;119_25,17 8;118_26,1 79;117_27, 180;116_28 ,209;87_57 ,210;86_58 ,224;72_72 ,225;71_73 ,181;115_2 9,182;114_ 30,183;113 _31,184;11 2_32,226;7 0_74,227;6 9_75,228;6 8_76,229;6 7_77,185;1 11_33,186; 110_34,187 ;109_35,18 8;108_36,2 30;66_78,2 31;65_79,2 32;64_80,2 33;63_81,2 34;62_82,1 89;107_37, 190;106_38 ,191;105_3 9,192;104_ 40,235;61_ 83,236;60_ 84,237;59_ 85,238;58_ 86,193;103 _41,194;10 2_42,195;1 01_43,196; 100_44,253 ;43_101,25 4;42_102,2 55;41_103, 256;40_104 ,211;85_59 ,212;84_60 ,213;83_61 ,214;82_62 ,257;39_10 5,258;38_1 06,259;37_ 107,260;36 _108,261;3 5_109,215; 81_63,216; 80_64,217; 79_65,218; 78_66,262; 34_110,263 ;33_111,26 4;32_112,2 65;31_113, 219;77_67, 220;76_68, 221;75_69, 222;74_70, 266;30_114 ,267;29_11 5,268;28_1 16,269;27_ 117,223;73 _71,239;57 _87,240;56 _88,241;55 _89,242;54 _90,270;26 _118,271;2 5_119,272; 24_120,273 ;23_121,24 3;53_91,24 4;52_92,24 5;51_93,24 6;50_94,30 2;1_143,27 4;22_122,2 75;21_123, 276;20_124 ,277;19_12 5,247;49_9 5,248;48_9 6,249;47_9 7,161;135_ 9,250;46_9 8,278;18_1 26,279;17_ 127,280;16 _128,295;8 _136,251;4 5_99,252;4 4_100,281; 15_129,282 ;14_130,28 3;13_131,2 96;7_137,2 97;6_138,2 98;5_139,2 99;4_140,2 84;12_132, 285;11_133 ,286;10_13 4,287;9_13 5,300;3_14 1,301;2_14 2',@ICON_T YPES=N'27; -1_6_3',@D ATE_FROM=' 2016-05-27  00:00:01' ,@DATE_TO= '2016-05-2 7 23:59:59 ',@ICON_GR OUP=N'-1'
  18   --exec usp _Rpt_IconU sageHistor y @UserID= N'aac.dva. DNS     \bms_svc_s qa',@FACIL ITIES_IDS= N'144;143_ 1,146;141_ 3,162;134_ 10,147;140 _4,163;133 _11,164;13 2_12,165;1 31_13,166; 130_14,148 ;139_5,145 ;142_2,149 ;138_6,150 ;137_7,151 ;136_8,168 ;128_16,16 7;129_15,1 97;99_45,1 98;98_46,1 99;97_47,1 69;127_17, 170;126_18 ,171;125_1 9,172;124_ 20,200;96_ 48,201;95_ 49,202;94_ 50,203;93_ 51,173;123 _21,174;12 2_22,175;1 21_23,176; 120_24,204 ;92_52,205 ;91_53,206 ;90_54,207 ;89_55,208 ;88_56,177 ;119_25,17 8;118_26,1 79;117_27, 180;116_28 ,209;87_57 ,210;86_58 ,224;72_72 ,225;71_73 ,181;115_2 9,182;114_ 30,183;113 _31,184;11 2_32,226;7 0_74,227;6 9_75,228;6 8_76,229;6 7_77,185;1 11_33,186; 110_34,187 ;109_35,18 8;108_36,2 30;66_78,2 31;65_79,2 32;64_80,2 33;63_81,2 34;62_82,1 89;107_37, 190;106_38 ,191;105_3 9,192;104_ 40,235;61_ 83,236;60_ 84,237;59_ 85,238;58_ 86,193;103 _41,194;10 2_42,195;1 01_43,196; 100_44,253 ;43_101,25 4;42_102,2 55;41_103, 256;40_104 ,211;85_59 ,212;84_60 ,213;83_61 ,214;82_62 ,257;39_10 5,258;38_1 06,259;37_ 107,260;36 _108,261;3 5_109,215; 81_63,216; 80_64,217; 79_65,218; 78_66,262; 34_110,263 ;33_111,26 4;32_112,2 65;31_113, 219;77_67, 220;76_68, 221;75_69, 222;74_70, 266;30_114 ,267;29_11 5,268;28_1 16,269;27_ 117,223;73 _71,239;57 _87,240;56 _88,241;55 _89,242;54 _90,270;26 _118,271;2 5_119,272; 24_120,273 ;23_121,24 3;53_91,24 4;52_92,24 5;51_93,24 6;50_94,30 2;1_143,27 4;22_122,2 75;21_123, 276;20_124 ,277;19_12 5,247;49_9 5,248;48_9 6,249;47_9 7,161;135_ 9,250;46_9 8,278;18_1 26,279;17_ 127,280;16 _128,295;8 _136,251;4 5_99,252;4 4_100,281; 15_129,282 ;14_130,28 3;13_131,2 96;7_137,2 97;6_138,2 98;5_139,2 99;4_140,2 84;12_132, 285;11_133 ,286;10_13 4,287;9_13 5,300;3_14 1,301;2_14 2',@ICON_T YPES=N'32; -2_13_6',@ DATE_FROM= '2016-05-2 7 00:00:01 ',@DATE_TO ='2016-05- 27 23:59:5 9',@ICON_G ROUP=N'-2'
  19   --exec usp _Rpt_IconU sageHistor y @UserID= N'aac.dva. DNS     \bms_svc_s qa',@FACIL ITIES_IDS= N'144;143_ 1,146;141_ 3,162;134_ 10,147;140 _4,163;133 _11,164;13 2_12,165;1 31_13,166; 130_14,148 ;139_5,145 ;142_2,149 ;138_6,150 ;137_7,151 ;136_8,168 ;128_16,16 7;129_15,1 97;99_45,1 98;98_46,1 99;97_47,1 69;127_17, 170;126_18 ,171;125_1 9,172;124_ 20,200;96_ 48,201;95_ 49,202;94_ 50,203;93_ 51,173;123 _21,174;12 2_22,175;1 21_23,176; 120_24,204 ;92_52,205 ;91_53,206 ;90_54,207 ;89_55,208 ;88_56,177 ;119_25,17 8;118_26,1 79;117_27, 180;116_28 ,209;87_57 ,210;86_58 ,224;72_72 ,225;71_73 ,181;115_2 9,182;114_ 30,183;113 _31,184;11 2_32,226;7 0_74,227;6 9_75,228;6 8_76,229;6 7_77,185;1 11_33,186; 110_34,187 ;109_35,18 8;108_36,2 30;66_78,2 31;65_79,2 32;64_80,2 33;63_81,2 34;62_82,1 89;107_37, 190;106_38 ,191;105_3 9,192;104_ 40,235;61_ 83,236;60_ 84,237;59_ 85,238;58_ 86,193;103 _41,194;10 2_42,195;1 01_43,196; 100_44,253 ;43_101,25 4;42_102,2 55;41_103, 256;40_104 ,211;85_59 ,212;84_60 ,213;83_61 ,214;82_62 ,257;39_10 5,258;38_1 06,259;37_ 107,260;36 _108,261;3 5_109,215; 81_63,216; 80_64,217; 79_65,218; 78_66,262; 34_110,263 ;33_111,26 4;32_112,2 65;31_113, 219;77_67, 220;76_68, 221;75_69, 222;74_70, 266;30_114 ,267;29_11 5,268;28_1 16,269;27_ 117,223;73 _71,239;57 _87,240;56 _88,241;55 _89,242;54 _90,270;26 _118,271;2 5_119,272; 24_120,273 ;23_121,24 3;53_91,24 4;52_92,24 5;51_93,24 6;50_94,30 2;1_143,27 4;22_122,2 75;21_123, 276;20_124 ,277;19_12 5,247;49_9 5,248;48_9 6,249;47_9 7,161;135_ 9,250;46_9 8,278;18_1 26,279;17_ 127,280;16 _128,295;8 _136,251;4 5_99,252;4 4_100,281; 15_129,282 ;14_130,28 3;13_131,2 96;7_137,2 97;6_138,2 98;5_139,2 99;4_140,2 84;12_132, 285;11_133 ,286;10_13 4,287;9_13 5,300;3_14 1,301;2_14 2',@ICON_T YPES=N'51; -1_3_6,30; -1_5_4,53; -1_2_7,54; -1_1_8,33; -1_4_5,20; -1_8_1,27; -1_6_3,24; -1_7_2',@D ATE_FROM=' 2016-05-27  00:00:01' ,@DATE_TO= '2016-05-2 7 23:59:59 ',@ICON_GR OUP=N'-2'
  20   --exec usp _Rpt_IconU sageHistor y @UserID= N'
D NS     HORND@ DNS             ',@FACILIT IES_IDS=N' 153;141_2, 155;139_4, 152;142_1, 156;138_5, 157;137_6, 158;136_7, 159;135_8, 160;134_9, 161;133_10 ,154;140_3 ,162;132_1 1,163;131_ 12,164;130 _13,165;12 9_14,166;1 28_15,167; 127_16,168 ;126_17,16 9;125_18,1 70;124_19, 171;123_20 ,172;122_2 1,173;121_ 22,174;120 _23,175;11 9_24,176;1 18_25,177; 117_26,178 ;116_27,17 9;115_28,1 80;114_29, 181;113_30 ,182;112_3 1,183;111_ 32,184;110 _33,185;10 9_34,186;1 08_35,187; 107_36,188 ;106_37,18 9;105_38,1 90;104_39, 191;103_40 ,192;102_4 1,193;101_ 42,194;100 _43,195;99 _44,196;98 _45,197;97 _46,198;96 _47,199;95 _48,200;94 _49,201;93 _50,202;92 _51,203;91 _52,204;90 _53,205;89 _54,206;88 _55,207;87 _56,208;86 _57,209;85 _58,210;84 _59,211;83 _60,212;82 _61,213;81 _62,214;80 _63,215;79 _64,216;78 _65,217;77 _66,218;76 _67,219;75 _68,220;74 _69,221;73 _70,222;72 _71,223;71 _72,224;70 _73,225;69 _74,226;68 _75,227;67 _76,228;66 _77,229;65 _78,230;64 _79,231;63 _80,232;62 _81,233;61 _82,234;60 _83,235;59 _84,236;58 _85,237;57 _86,238;56 _87,239;55 _88,240;54 _89,241;53 _90,242;52 _91,243;51 _92,244;50 _93,245;49 _94,246;48 _95,247;47 _96,248;46 _97,249;45 _98,250;44 _99,251;43 _100,252;4 2_101,253; 41_102,254 ;40_103,25 5;39_104,2 56;38_105, 257;37_106 ,258;36_10 7,259;35_1 08,260;34_ 109,261;33 _110,262;3 2_111,263; 31_112,264 ;30_113,26 5;29_114,2 93;1_142,2 66;28_115, 267;27_116 ,268;26_11 7,269;25_1 18,270;24_ 119,271;23 _120,272;2 2_121,273; 21_122,274 ;20_123,27 5;19_124,2 76;18_125, 277;17_126 ,278;16_12 7,279;15_1 28,280;14_ 129,281;13 _130,282;1 2_131,283; 11_132,284 ;10_133,28 5;9_134,28 6;8_135,28 7;7_136,28 8;6_137,28 9;5_138,29 0;4_139,29 1;3_140,29 2;2_141',@ ICON_TYPES =N'59;-1_1 _41,51;-1_ 9_33,57;-1 _3_39,30;- 1_29_13,53 ;-1_7_35,5 4;-1_6_36, 33;-1_26_1 6,20;-1_39 _3,27;-1_3 2_10,24;-1 _35_7,56;- 2_4_38,35; -2_24_18,3 2;-2_27_15 ,48;-2_12_ 30,26;-2_3 3_9,21;-2_ 38_4,47;-2 _13_29,42; -2_17_25,1 8;-2_41_1, 37;-2_22_2 0,50;-2_10 _32,29;-2_ 30_12,52;- 2_8_34,44; -2_16_26,2 3;-2_36_6, 39;-2_20_2 2,45;-2_15 _27,46;-2_ 14_28,55;- 2_5_37,58; -2_2_40,49 ;-2_11_31, 22;-3_37_5 ,25;-3_34_ 8,28;-3_31 _11,34;-3_ 25_17,36;- 3_23_19,31 ;-3_28_14, 38;-3_21_2 1,19;-3_40 _2,41;-3_1 8_24,40;-3 _19_23',@D ATE_FROM=' 2016-06-01  00:00:01' ,@DATE_TO= '2016-06-1 2 23:59:59 ',@ICON_GR OUP=N'-1,- 2,-3'
  21   CREATE PRO CEDURE [db o].[usp_Rp t_IconUsag eHistory] 
  22           @U serID NVAR CHAR(500),
  23           @F ACILITIES_ IDS NVARCH AR(MAX) =  '',
  24           @I CON_TYPES  NVARCHAR(M AX),
  25           @D ATE_FROM D ATETIME,
  26           @D ATE_TO DAT ETIME,
  27           @I CON_GROUP  nvarchar(2 0)
  28  
  29   AS
  30   BEGIN
  31  
  32           /* SELECT NUL L as CODE,  NULL as [ DESCRIPTIO N], NULL a s FLAG_ID,  NULL as I CON_NAME,  NULL as AC TIVE, NULL  as PT_REC , 
  33                       N ULL as BED _REC, NULL  as IMAGE_ BYTES, NUL L as SHORT _DESCRIPTI ON, NULL a s IMAGE_NA ME, NULL a s SUBGROUP ,
  34                       N ULL as WAR D, NULL as  BED, NULL  as PATIEN T */
  35  
  36           DE CLARE @TBL _FACILITY  TABLE (ID  INT PRIMAR Y KEY)
  37           DE CLARE @TBL _ICON_TYPE  TABLE (CO DE VARCHAR (250) PRIM ARY KEY)
  38           DE CLARE @TBL _ICON_GROU P TABLE (C ODE VARCHA R(20) PRIM ARY KEY)
  39           DE CLARE @TBL _ICON_SUBG ROUP TABLE  (NAME VAR CHAR(30) P RIMARY KEY )                  
  40           DE CLARE @TBL _ENTITY TA BLE (PK_EN TITY INT P RIMARY KEY , IDENTIFI ER NVARCHA R(250))           
  41  
  42   --LEFT JOI N BMS_EIS. dbo.ENTITY  AS E1 ON  E1.IDENTIF IER = ICON _ASSOCIATI ON.PATIENT _UID
  43   --LEFT JOI N BMS_EIS. dbo.EHL7_P ERSON AS P ERSON_P ON  PERSON_P. PFK_PERSON  = E1.PK_E NTITY
  44  
  45           IN SERT INTO  @TBL_ENTIT Y 
  46                    SELE CT PK_ENTI TY, IDENTI FIER FROM  BMS_EIS.db o.ENTITY
  47  
  48           IN SERT INTO  @TBL_FACIL ITY(ID) 
  49           SE LECT CASE  WHEN CHARI NDEX(';',F .ID) > 0 T HEN CAST(S UBSTRING(F .ID,1, CHA RINDEX(';' ,F.ID) -1)  AS INT) 
  50                                 EL SE CAST(F. ID AS INT)  
  51                       E ND
  52           FR OM (SELECT   VALUE AS  ID FROM d bo.ufn_Spl it(@FACILI TIES_IDS,  ','))F
  53  
  54           IN SERT INTO  @TBL_ICON_ TYPE(CODE)  
  55           SE LECT CONVE RT(VARCHAR (20), VALU E) FROM db o.ufn_Spli t(@ICON_TY PES, ',')
  56           
  57           IN SERT INTO  @TBL_ICON_ GROUP(CODE )
  58           SE LECT CONVE RT(VARCHAR (50), VALU E) FROM db o.ufn_Spli t(@ICON_GR OUP, ',')
  59  
  60           IN SERT INTO  @TBL_ICON_ SUBGROUP ( NAME)
  61           SE LECT 
  62                    CASE  WHEN IG.C ODE = '-1'  THEN 'EME RGENCY_ICO N' 
  63                              WHEN  IG.CODE =  '-2' THEN  'STANDARD_ ICON'
  64                              WHEN  IG.CODE =  '-3' THEN  'SITE_CONF IGURABLE_I CON'
  65                    END
  66           FR OM @TBL_IC ON_GROUP I G
  67  
  68           DE CLARE @TBL _ICONS tab le (id int  PRIMARY K EY)
  69           
  70           IN SERT INTO  @TBL_ICONS (id)
  71           SE LECT CASE  WHEN CHARI NDEX(';',c ode) > 0 t hen 
  72                             substr ing(code,1 ,charindex (';',code)  -1) 
  73                             else c ode end
  74           fr om @TBL_IC ON_TYPE
  75                             
  76           IF  EXISTS(SE LECT 1  FR OM @TBL_FA CILITY)
  77                    BEGI N
  78                    
  79                    CREA TE TABLE # TBL_TEMP 
  80                    (
  81                             ID INT  IDENTITY( 1,1) PRIMA RY KEY,
  82                             CODE_B  NVARCHAR( 250),
  83                             CODE_P  NVARCHAR( 250),
  84                             FLAG_I D INT,
  85                             [DESCR IPTION] NV ARCHAR(250 ), 
  86                             ICON_N AME NVARCH AR(250), 
  87                             ACTIVE  CHAR(1), 
  88                             PT_REC  NVARCHAR( 10), 
  89                             BED_RE C NVARCHAR (10),
  90                             IMAGE_ BYTES nvar char(max),
  91                             SHORT_ DESCRIPTIO N NVARCHAR (250),
  92                             IMAGE_ NAME nvarc har(250),
  93                             SUBGRO UP nvarcha r(250),
  94                             PATIEN T_P nvarch ar(250),
  95                             PATIEN T_B nvarch ar(250),
  96                             BED_B  nvarchar(2 0),
  97                             WARD_B  nvarchar( 100),
  98                             BED_P  nvarchar(2 0),
  99                             WARD_P  nvarchar( 100)
  100                    )
  101  
  102                    INSE RT INTO #T BL_TEMP(CO DE_B, CODE _P, FLAG_I D, ICON_NA ME, [DESCR IPTION],   ACTIVE, PT _REC, BED_ REC, IMAGE _BYTES, 
  103                                                                  SH ORT_DESCRI PTION, IMA GE_NAME, S UBGROUP, P ATIENT_P,  PATIENT_B,  BED_B, WA RD_B, BED_ P, WARD_P)           
  104                             SELECT   SUBSTRIN G(ORG_B.NA ME, 4,3) a s CODE_B,
  105                                      SUBSTRIN G(ORG_P.NA ME, 4,3) A S CODE_P, 
  106                                      ISNULL(I CON_FLAG.I D, IFF.ICO N_FLAG_ID)  as FLAG_I D, 
  107                                      ISNULL(I CON_FLAG.[ SHORT_DESC RIPTION],  IFF.DESCRI PTION) as  [DESCRIPTI ON],
  108                                      ISNULL(I CON_FLAG.I CON_NAME,  IFF.ICON_N AME) as IC ON_NAME,
  109                                      'Y' AS A CTIVE, 
  110                                      CASE WHE N ICON_ASS OCIATION.P ATIENT_UID  IS NOT NU LL THEN 'Y ' ELSE 'N'  END AS PT _REC,
  111                                      CASE WHE N ICON_ASS OCIATION.B ED_UID IS  NOT NULL T HEN 'Y' EL SE 'N' END  AS BED_RE C,
  112                                      ISNULL(I CON_FLAG.I MAGE_BYTES , ICON_FLA G2.IMAGE_B YTES) as I MAGE_BYTES ,
  113                                      ISNULL(I CON_FLAG.S HORT_DESCR IPTION, IF F.DESCRIPT ION) AS SH ORT_DESCRI PTION,
  114                                      ISNULL(I CON_FLAG.I MAGE_NAME,  IFF.ICON_ NAME) as I MAGE_NAME,
  115                                      ISNULL(I CON_FLAG.S UBGROUP, I CON_FLAG2. SUBGROUP)  as SUBGROU P,
  116                                      PERSON_P .[NAME_FAM ILY] + SUB STRING(S1. [IDENTIFIE R_EXTENSIO N], 7, 5)  AS PATIENT _P,
  117                                      PERSON_B .[NAME_FAM ILY] + SUB STRING(S2. [IDENTIFIE R_EXTENSIO N], 7, 5)  AS PATIENT _B,
  118                                      BED_PLAC EB.NAME AS  BED_B,
  119                                      WARD_PLA CEB.NAME A S WARD_B,
  120                                      BED_PLAC EP.NAME AS  BED_P,
  121                                      WARD_PLA CEP.NAME a s WARD_P
  122                             FROM I CON_ASSOCI ATION_H AS  ICON_ASSO CIATION
  123                             LEFT J OIN ICON_F LAG_H ICON _FLAG ON I CON_ASSOCI ATION.ICON _FLAG_ID =  ICON_FLAG .ID
  124                             INNER  JOIN @TBL_ ICONS ICON S ON ICON_ ASSOCIATIO N.ICON_FLA G_ID = ICO NS.ID
  125                             LEFT J OIN ICON_F LAG_FACILI TY_H IFF O N ICON_ASS OCIATION.I CON_FLAG_F ACILITY_ID  = IFF.ID
  126                             LEFT J OIN ICON_F LAG_H ICON _FLAG2 ON  IFF.ICON_F LAG_ID = I CON_FLAG2. ID
  127                             LEFT J OIN ADMISS ION_EVN_H  ADM_B ON I CON_ASSOCI ATION.BED_ UID = ADM_ B.BED_UID
  128                             LEFT J OIN @TBL_E NTITY AS E 1 ON E1.ID ENTIFIER =  ICON_ASSO CIATION.PA TIENT_UID
  129                             LEFT J OIN BMS_EI S.dbo.EHL7 _PERSON AS  PERSON_P  ON PERSON_ P.PFK_PERS ON = E1.PK _ENTITY
  130                             LEFT J OIN BMS_EI S.dbo.EHL7 _UID AS S1  ON S1.FK_ ENTITY = P ERSON_P.PF K_PERSON A ND S1.IDEN TIFIER_ROO T = 'SSN'
  131                             LEFT J OIN @TBL_E NTITY AS E 2 ON E2.ID ENTIFIER =  ICON_ASSO CIATION.BE D_UID
  132                             LEFT J OIN BMS_EI S.dbo.EHL7 _PLACE AS  BED_PLACEB  ON BED_PL ACEB.PFK_P LACE = E2. PK_ENTITY
  133                             LEFT J OIN @TBL_E NTITY AS E 3 ON E3.ID ENTIFIER =  ADM_B.WAR D_UID
  134                             LEFT J OIN BMS_EI S.dbo.EHL7 _PLACE AS  WARD_PLACE B ON WARD_ PLACEB.PFK _PLACE =E3 .PK_ENTITY
  135                             LEFT J OIN ADMISS ION_EVN_H  ADM_P ON I CON_ASSOCI ATION.PATI ENT_UID =  ADM_P.PATI ENT_UID
  136                             LEFT J OIN @TBL_E NTITY AS E 4 ON E4.ID ENTIFIER =  ADM_P.BED _UID 
  137                             LEFT J OIN BMS_EI S.dbo.EHL7 _PLACE AS  BED_PLACEP  ON BED_PL ACEP.PFK_P LACE = E4. PK_ENTITY
  138                             LEFT J OIN @TBL_E NTITY AS E 5 ON E5.ID ENTIFIER =  ADM_P.WAR D_UID 
  139                             LEFT J OIN BMS_EI S.dbo.EHL7 _PLACE AS  WARD_PLACE P ON WARD_ PLACEP.PFK _PLACE = E 5.PK_ENTIT Y
  140                             LEFT J OIN @TBL_E NTITY AS E 6 ON E6.ID ENTIFIER =  ADM_B.VIS TA_SITE_UI D
  141                             LEFT J OIN BMS_EI S.dbo.EHL7 _ORGANIZAT ION ORG_B  ON ORG_B.P FK_ORGANIZ ATION = E6 .PK_ENTITY
  142                             LEFT J OIN @TBL_E NTITY AS E 7 ON E7.ID ENTIFIER =  ADM_P.VIS TA_SITE_UI D
  143                             LEFT J OIN BMS_EI S.dbo.EHL7 _ORGANIZAT ION ORG_P  ON ORG_P.P FK_ORGANIZ ATION = E7 .PK_ENTITY
  144                             LEFT J OIN @TBL_E NTITY AS E 8 ON E8.ID ENTIFIER =  ADM_B.PAT IENT_UID
  145                             LEFT J OIN BMS_EI S.dbo.EHL7 _PERSON AS  PERSON_B  ON PERSON_ B.PFK_PERS ON = E8.PK _ENTITY
  146                             LEFT J OIN BMS_EI S.dbo.EHL7 _UID AS S2  ON S2.FK_ ENTITY = P ERSON_B.PF K_PERSON A ND S2.IDEN TIFIER_ROO T = 'SSN'
  147                    WHER E ICON_ASS OCIATION.D ATE BETWEE N @DATE_FR OM AND @DA TE_TO 
  148                    OPTI ON (MAXDOP  1)                         
  149                    -- c ount how m any patien ts or beds  have the  icon assoc iated
  150                    
  151                    sele ct DISTINC T ISNULL(I SNULL(CODE _B, CODE_P ), 'N/A')  AS CODE, 
  152                                [DE SCRIPTION] , 
  153                                FLA G_ID, ICON _NAME, ACT IVE,
  154                                PT_ REC,
  155                                BED _REC,
  156                                IMA GE_BYTES,
  157                                SHO RT_DESCRIP TION,
  158                                IMA GE_NAME,
  159                                SUB GROUP,
  160                                ISN ULL(WARD_B , WARD_P)  as WARD,
  161                                ISN ULL(BED_B,  BED_P) as  BED,
  162                                ISN ULL(PATIEN T_B, PATIE NT_P) as P ATIENT
  163                    from  #TBL_TEMP  T
  164                    INNE R JOIN @TB L_ICON_SUB GROUP ISG  ON T.SUBGR OUP = ISG. NAME
  165                    
  166                    grou p by ISNUL L(CODE_B,  CODE_P), [ DESCRIPTIO N], FLAG_I D, ICON_NA ME, ACTIVE , BED_REC,  PT_REC, I MAGE_BYTES , SHORT_DE SCRIPTION,  IMAGE_NAM E, SUBGROU P, ISNULL( WARD_B, WA RD_P),ISNU LL(PATIENT _B, PATIEN T_P),
  167                                ISN ULL(BED_B,  BED_P)
  168                    orde r by CODE,  [DESCRIPT ION]
  169           
  170   --               sele ct * from  @TBL_ICONS
  171                    DROP  TABLE #TB L_TEMP
  172                    
  173           EN D
  174   END
  175  
  176   GO
  177  
  178  

Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.