31. 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.

31.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_PPBPUsageAuditLog.sql Thu Aug 30 15:11:46 2018 UTC
2 BMS_Source.zip\Source\Sources\Database\BMSv2Updates\2.1.6.3\Reports DROP_CREATE_BMS_HISTORY_usp_Rpt_PPBPUsageAuditLog.sql Thu Aug 30 19:19:27 2018 UTC

31.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 376
Changed 1 6
Inserted 0 0
Removed 0 0

31.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

31.4 Active regular expressions

No regular expressions were active.

31.5 Comparison detail

  1   USE [BMS_H ISTORY]
  2   GO
  3  
  4   /****** Ob ject:  Sto redProcedu re [dbo].[ usp_Rpt_PP BPUsageAud itLog]     Script Dat e: 6/14/20 16 9:13:10  AM ****** /
  5   DROP PROCE DURE [dbo] .[usp_Rpt_ PPBPUsageA uditLog]
  6   GO
  7  
  8   /****** Ob ject:  Sto redProcedu re [dbo].[ usp_Rpt_PP BPUsageAud itLog]     Script Dat e: 6/14/20 16 9:13:10  AM ****** /
  9   SET ANSI_N ULLS ON
  10   GO
  11  
  12   SET QUOTED _IDENTIFIE R ON
  13   GO
  14  
  15  
  16   --PPBP Usa ge Audit L og Report
  17   --Need Ent ered D/T,  Requested  D/T, Remov ed D/T, Ed it Event D /t, User,  Transactio n ("Patien t" + recor d history)
  18   --select *  from TRAN SFER_REQ_H  WHERE ACT _ID =378
  19   --EXEC usp _Rpt_PPBPU sageAuditL og '4/23/2 001', '4/2 9/2016', 0 , ' DNS             \vhaisdhor nd', '6937 8E0F-B210- 493B-B2A1- 2130C9F7F3 94', 'PPBP UsageAudit Log'
  20   --EXEC usp _Rpt_PPBPU sageAuditL og '4/23/2 001', '4/2 9/2016', 0 , 'aac.dva . DNS     \bms_svc_s qa', '6937 8E0F-B210- 493B-B2A1- 2130C9F7F3 94', 'PPBP UsageAudit Log'
  21   --exec usp _Rpt_PPBPU sageAuditL og @DATE_F ROM='2016- 05-10 00:0 0:01',@DAT E_TO='2016 -05-17 23: 59:59',@TI ME_ZONE_MI NUTES_OFFS ET=-360,@U serID=N'
D NS     HORND@ DNS             ',@FACILIT IES_IDS=N' 27127BEC-7 FFC-4AE3-A B51-5FC12E 94978E,DE5 F7D7A-2B23 -4238-A62C -95F98C799 FBF,B9BD1F 1E-F01D-44 36-A119-C3 F3411F1768 ,AD3296DE- 4489-4C86- 9073-116BC BFC5807,BF 033FD3-C3F F-4597-930 9-8506AF02 5CCF,03459 64C-1C40-4 C67-9926-0 FF3646F76E 3,384246E5 -2383-4164 -A5F8-BBC4 DB65268C,0 74A4A23-BD 1C-4645-BA 17-FD4285C B8DD1,8266 4146-A432- 4D5D-ACE9- 3473A94A48 43,199D6E6 C-B791-457 0-BD0C-A4F 21C11B1C9, B76FD5CC-4 5A6-4396-B AE5-390BBF D9608A,E89 0E0DD-2A5B -4DF2-9BD3 -A80FF7880 D68,6B2EEF 5C-B569-42 9B-817D-11 D67F4FB7A4 ,37BB9F69- E6A0-4686- 96CF-E0D6A 65A4229,12 3F5F3D-022 0-448B-A3E A-30CC2744 0D3E,D7D99 DDA-6395-4 230-9769-7 D34281218B D,BD0BE09A -DA6B-4BC9 -8512-55DB 164A3936,8 3993150-11 EB-46B6-A1 40-6624940 7EA99,4228 A303-D83B- 4D29-9C63- 9CF38723A6 09,B8E1949 3-FF5D-4D0 F-9475-531 AB2876D55, A4D69C85-2 EFE-4E58-8 F51-87A336 7D5360,603 990B0-6C86 -4DCC-A0A2 -EDB7EDCF8 6EE,C91205 16-1CA1-48 8D-A9B7-9F 7E8C5CB163 ,451FDA5B- BF99-4356- A6AD-BD5D1 619CD8D,3D C03304-259 3-4CE7-BB7 C-DAD5036C C466,142B2 12F-FBBB-4 E03-ADB3-6 BFDE81EAF3 C,5D59E39A -D5DF-4FDB -AD16-DFBF 49A2333F,2 CF9A166-C3 D4-49EC-8C 62-F0E3691 86F37,2908 DE1A-AE4A- 469C-9C9F- F10857B236 39,86831D2 0-AEBE-428 0-B67D-BE0 B653280D5, 69378E0F-B 210-493B-B 2A1-2130C9 F7F394,85A 09908-5BFA -47F1-BEB5 -FEBB2E7BE 543,AB1977 9C-94E5-4A 50-9139-58 1A21A84109 ,158D29E4- 76F3-4346- B0E0-D9763 CE19C83,AB 3A91F8-718 0-49B5-B67 D-EE7EEBDA EC84,11239 2FE-7168-4 997-A045-2 46A3622F25 4,66591DB9 -16B7-436A -8BA3-C58D 167A588D,0 59BE374-E5 2D-4959-AA B4-4BA098F F61E8,3CE8 A5F0-82BF- 41A2-B159- 200B90641A 43,160CA25 C-AF38-45A 6-8F97-B66 80627F971, 8BF6E455-0 BAA-4C62-B 649-D5FC37 AA88FB,50F F2AC9-0BDC -4C47-8605 -68A0558E2 B6E,898805 07-FF65-45 70-A1C4-A6 825A3429B5 ,93AFBDDE- 9B8A-4625- 932B-2F8FA 88646E4,80 4892C0-C26 4-46E7-BD1 C-9609B4CA 4F1C,51517 17F-9911-4 6CE-936D-E AEB881ED4B 0,E4EF5C91 -C8C7-4979 -A652-9B74 F43A3C29,A CA61E46-00 9A-4878-B5 E6-70CDEAB 1E040,4547 5D91-28BF- 4018-9949- C418A0671D DD,BEAE8EC D-F483-453 8-BE2D-673 CAB60DFE5, CC262497-9 ED7-4A61-A FFA-9F2619 7603AB,888 EEAE2-2369 -49DE-98CF -A9A8E9EE1 7F5,286566 E2-E679-4F B5-88A9-BA 37B3561B3D ,E95499CA- 500C-482D- 9ECB-BA4B7 599EB82,A8 4FE131-C31 C-4044-AFD B-3B61A531 919A,DD64B 757-F066-4 F2D-AF89-E C50A8AF1CD 7,44330A17 -1C70-463F -A099-5666 8281B80A,3 3617A96-3E 0F-487C-8A 4C-3E141AA 6B5F1,4F62 B779-57D7- 4ECC-91C5- 24A1F40B08 9A,CE0BE57 1-1C7A-4B5 4-8013-105 44D9777E1, 324DB4DF-8 BA2-46B7-9 C6D-48004D 412BCE,2F4 332A8-9489 -4AC6-BBB9 -7719508A3 0E1,FCED40 B3-BF53-4F B0-A7CB-F4 3BD99E2D30 ,FBB30408- 0C7B-4B6E- AAC5-67F98 970DF6F,4F 0216B5-1AD 6-42DD-AEE 0-C76DA395 B8E3,5873D C3C-7727-4 B33-A2DB-B AE85FFBB93 B,719FF4AF -FC82-4031 -9386-CA8F BCB291AF,3 A31E917-69 85-4C49-BB 3A-7F1EACC 32431,C472 1CB8-126C- 474D-A75D- E1ECA55A9E 26,82F22B4 5-1DC4-44A 1-B574-76A ED9EE08ED, FC6080D7-C 9CA-455F-8 A9A-0CDEF9 084821,505 5F460-A241 -494D-97B7 -AAF1CE94C 088,F29D21 34-C562-45 27-9539-8D 3A6D6460CB ,5A2AB598- B1E8-490E- 9FDD-8EA4E 2A51BAB,92 4662F7-942 5-48B0-A1D 1-84FD8380 5B2B,4EA4A C4F-D512-4 ADF-8014-4 D21FE1A828 9,A98558D4 -505C-4046 -A24D-BCC2 4A46D5B0,6 9450451-12 E8-4084-B6 FA-013309A 5F814,15E5 38E4-EFCB- 474A-95F2- 599E6CFE1A F8,0A8AD10 5-4069-4EE B-815B-C13 C8DFB2E09, DF945CD2-2 5F7-48E5-B E40-C7AB08 23D0ED,D51 D0E56-2883 -4F66-BE47 -4D99ED6DE 082,3F246B 9F-E91F-4B C7-8131-56 F6174C776A ,C2785D26- C5A0-41C0- 9906-3C0DA A86D07A,28 0DFF7D-D68 9-43FA-AD2 5-0BCFB980 2954,87D64 3D5-A086-4 E03-892C-1 73C76C0CF5 8,8EAFB939 -1824-4A75 -B808-A9B5 4C393399,F 21774A4-A8 32-4AB9-B5 AB-AA38615 F1730,7982 F659-534B- 4DC9-AEE9- 36AA7E0BF0 35,17F6135 E-2ECA-416 C-B066-F23 6EDD752AF, 8F30BEDF-C 177-4ECB-9 328-4F1294 327A6B,8FE 3BD98-079F -4B27-8129 -CDFAA27A5 992,E8934F DE-8AC4-43 6E-B9FD-D7 4075C2CBFC ,726332B6- 3EEB-469D- BEBF-68A37 5685473,7F 661DD6-880 1-4FA8-92F 0-B514818A EEB8,0023C C35-177F-4 052-8B0B-8 ECA94670B3 B,FA854ED7 -7249-4398 -BD29-62A2 6483D53B,B C9DF7D5-39 29-4AC0-BD 5F-CD091FF 337F4,6B16 0084-A6E6- 4F2B-9016- 168B5BCD78 0C,304DB2B E-36AC-4CB 8-8B61-3A6 DBDD0E675, 5E4D685F-3 3E8-4FFE-A 46E-C420EE 4DC889,D49 8F5AC-788A -4CFD-87CB -F6832AD5C 085,0E99FA 6A-FA78-4F 88-B88C-24 293994876F ,6ED340B4- DE87-4DC3- B888-31124 86D6348,68 2D2688-417 5-4140-BDB B-55188C4B 49D2,07F2F 24E-E08F-4 95C-8DE4-E F75EA32EF2 5,09B3BEEA -D078-41E5 -ACBA-6618 38CD0E25,1 924A041-47 69-4219-AE 42-11C7B8F AB6FE,A09C 8658-C40F- 4825-BA67- 375F11B50B D9,2A82DF7 9-0691-481 1-9B9C-032 31DDF4E6A, 487D5CD0-8 08A-4FF0-A 353-B566F1 5CB107,EEE 2965C-5849 -4B9E-912A -1D6046A48 C61,2C6DA1 BE-D0A1-42 BD-AAAA-87 94CAC69E00 ,FCD16EFC- D965-4853- 9B13-C3304 2268561,C3 3E6708-FBB 1-47DE-839 4-505A8FE1 688C,72244 CFC-3520-4 547-8F69-C 496AECC378 4,6BB1F574 -1082-43C3 -9A5B-475B 83334F3B,0 E3BF04C-9A 89-4F47-AF C7-5A62F88 45F47,2209 77D6-F59B- 447F-95E4- B4AE1E3067 02,145C69B D-B35C-481 A-8F30-7C6 4FD089FCE, 188D2285-3 956-409D-9 E32-27F9C2 0184EE,806 203F9-B7D0 -4247-A046 -079A00A73 F07,B64FD9 FB-E6AF-41 05-8007-67 918B163230 ,E67EA882- EA3E-4B84- 94A2-8BE35 EE8869C,0E 13380A-F2F 1-4612-A29 F-78EF36F5 11AB,4AD9D FDC-3BCE-4 C6E-A84F-4 6905DC0009 A,8D84989D -68C0-48DA -8E02-5CF2 EE48B57F,A 3B79F41-49 3E-43B4-8A 3D-3A7254C E2017,CCA2 47D3-98BA- 49BB-BA3B- 43AAF4A3EC 56,E2DCB40 6-9E91-4AF 3-891E-F4A 6427F3D62, 3E1925AC-9 7DC-4755-B 733-60170B FD8A1F,913 090D9-CE98 -4D34-9351 -7D7E0E7F6 B37,5354BB 42-B12F-4A C6-8FEC-C6 071B0DB9DE ,5F1AB3DC- E4C6-4EAF- ACD3-475DC BC1CD6D,F2 E591EB-019 E-4676-ACE 0-F29AB560 8E37,71399 753-46C7-4 B53-90DF-A EFC3BBF3E7 2,CED3D7F7 -0C1E-429A -AC1B-8530 25B2EE51,9 80EE0B5-AF 61-4FE1-93 20-8C745D6 55569,D94F 05E0-0243- 42D2-A43C- 83E3C81FB8 56,BD20282 9-2A88-4DC 2-A207-CBB AB892C3C2, 5DB10171-F 7A4-4D3E-A 1C2-B73A3E 93783C,77E 6C1A6-3194 -4F2A-B847 -01B1C57DA 8BD,84B147 93-D236-4E 26-8D62-EC EF51A8B914 ',@REPORT_ TYPE=N'PPB PUsageAudi tLog'
  22  
  23   CREATE PRO CEDURE [db o].[usp_Rp t_PPBPUsag eAuditLog]
  24           @D ATE_FROM D ATETIME,
  25           @D ATE_TO DAT ETIME,
  26           @T IME_ZONE_M INUTES_OFF SET INT,
  27           @U serID NVAR CHAR(500),
  28           @F ACILITIES_ IDS NVARCH AR(MAX) =  '',
  29           @R EPORT_TYPE  NVARCHAR( 50)
  30   AS
  31   BEGIN
  32   SET NOCOUN T ON;
  33  
  34   IF (@REPOR T_TYPE = ' PPBPUsageA uditLog')
  35   BEGIN
  36  
  37           CR EATE TABLE  #TBL_FACI LITY (
  38                    SOUR CE_ID NVAR CHAR(250)  PRIMARY KE Y, 
  39                    FACI LITY_NAME  NVARCHAR(2 50), 
  40                    TIME ZONE_OFFSE T INT)
  41           
  42           IN SERT INTO  #TBL_FACIL ITY(SOURCE _ID, FACIL ITY_NAME,  TIMEZONE_O FFSET) 
  43           SE LECT DISTI NCT CONVER T(NVARCHAR (250), FAC ILITY.VALU E), ORG.NA ME,  [dbo] .[ufn_GetO ffsetByFac ilityUID]( VALUE) 
  44           FR OM dbo.ufn _Split(@FA CILITIES_I DS, ',') A S FACILITY
  45           IN NER JOIN B MS_EIS.dbo .ENTITY AS  ENTITY 
  46              ON ENTITY. IDENTIFIER  = FACILIT Y.VALUE 
  47           IN NER JOIN B MS_EIS.dbo .EHL7_ORGA NIZATION A S ORG 
  48              ON ORG.PFK _ORGANIZAT ION = ENTI TY.PK_ENTI TY
  49  
  50           CR EATE TABLE  #TRANHIST ORY (
  51                             PK int ,
  52                             ACT_ID  int,
  53                             TRANSA CTION_TYPE _CODE varc har(50), 
  54                             ERA_ID  int,
  55                             DIAGNO SIS nvarch ar(250),
  56                             CURREN T_LOCATION  nvarchar( 150),
  57                             COMMEN TS nvarcha r(250),
  58                             SPECIA LTY_ID int ,
  59                             LOCATI ON_ADMISSI ON_DATE da tetime,
  60                             CONTRA CT_ID int,
  61                             IS_NAT IONAL_WAIT _LIST bit,
  62                             FACILI TY_UID uni queidentif ier,
  63                             ENTERE D_DATE dat etime,
  64                             REQUES TED_DATE d atetime,
  65                             REMOVE D_DATE dat etime,
  66                             EDITED  datetime,
  67                             LAST_E DIT_BY nva rchar(100) ,
  68                             PATIEN T_NAME nva rchar(50),
  69                             ACTION _HISTORY v archar(max )
  70           )
  71           IN SERT #TRAN HISTORY
  72           SE LECT  TRAN HISTORY.PK ,
  73                             TRANHI STORY.ACT_ ID,
  74                             TRANHI STORY.TRAN SACTION_TY PE_CODE,
  75                             TRANHI STORY.ERA_ ID,
  76                             TRANHI STORY.DIAG NOSIS,
  77                             TRANHI STORY.CURR ENT_LOCATI ON,
  78                             TRANHI STORY.COMM ENTS,
  79                             TRANHI STORY.SPEC IALITY_ID,
  80                             TRANHI STORY.LOCA TION_ADMIS SION_DATE,
  81                             TRANHI STORY.CONT RACT_ID,
  82                             TRANHI STORY.IS_N ATIONAL_WA IT_LIST,
  83                             TRANHI STORY.FACI LITY_UID,
  84                             --TRAN HISTORY.DA TE as ENTE RED_DATE,
  85                             ACTHIS TORY.CREAT ION_DATE a s ENTERED_ DATE, 
  86                             TRANHI STORY.REQU ESTED_DATE  as REQUES TED_DATE, 
  87                             TRANEV NH.DISPOSI TION_DATE  AS REMOVED _DATE,
  88                             TRANHI STORY.EDIT ED as EDIT _EVENT, 
  89                             --ACTH ISTORY.DAT E as EDIT_ EVENT,
  90                             TRANHI STORY.LAST _EDIT_BY a s LAST_EDI T_BY, 
  91  
  92                             SUBSTR ING(PERSON .[NAME_FIR ST_GIVEN],  1, 1) + P ERSON.[NAM E_FAMILY]  + ' ' + SU BSTRING(s. [IDENTIFIE R_EXTENSIO N], 8, 4)  AS PATIENT NAME,
  93                             CASE W HEN TRANHI STORY.TRAN SACTION_TY PE_CODE =  'I' THEN ' NEW RECORD ' 
  94                                       WHEN TR ANHISTORY. TRANSACTIO N_TYPE_COD E = 'U' TH EN 'UPDATE D'
  95                                       WHEN TR ANHISTORY. TRANSACTIO N_TYPE_COD E = 'D' TH EN 'DELETE D'
  96                             END as  ACTIONTYP E 
  97           FR OM TRANSFE R_REQ_H TR ANHISTORY
  98           IN NER JOIN # TBL_FACILI TY FAC
  99                    ON T RANHISTORY .FACILITY_ UID = FAC. SOURCE_ID
  100           IN NER JOIN A CT_H ACTHI STORY
  101                    ON T RANHISTORY .ACT_ID =  ACTHISTORY .ID
  102           IN NER JOIN B MS_EIS.dbo .ENTITY AS  ENTITY 
  103                    ON E NTITY.IDEN TIFIER = A CTHISTORY. PATIENT_UI D
  104           IN NER JOIN B MS_EIS.dbo .EHL7_PERS ON AS PERS ON 
  105                    ON P ERSON.PFK_ PERSON = E NTITY.PK_E NTITY
  106           IN NER JOIN B MS_EIS.dbo .EHL7_UID  AS S 
  107                    ON S .FK_ENTITY  = PERSON. PFK_PERSON  AND S.IDE NTIFIER_RO OT = 'SSN'
  108           LE FT JOIN AC T_H ACTLAS T
  109                    ON T RANHISTORY .ACT_ID =  ACTLAST.PA RENT_ACT_I D
  110           LE FT JOIN TR ANSFER_EVN _H TRANEVN H
  111                    ON A CTLAST.ID  = TRANEVNH .ACT_ID
  112  
  113           WH ERE TRANHI STORY.EDIT ED BETWEEN  @DATE_FRO M AND @DAT E_TO
  114           OP TION (MAXD OP 1) 
  115           -- SELECT * F ROM #TRANH ISTORY
  116  
  117           SE LECT DISTI NCT 
  118                       C ONVERT(VAR CHAR, DATE ADD (minut e, @TIME_Z ONE_MINUTE S_OFFSET,  H_WAITING_ LIST.ENTER ED_DATE),  101) + ' '  
  119                              + CON VERT(VARCH AR(5), DAT EADD (minu te, @TIME_ ZONE_MINUT ES_OFFSET,  H_WAITING _LIST.ENTE RED_DATE),  108) as E NTERED_DAT E, 
  120                       C ONVERT(VAR CHAR, DATE ADD (minut e, @TIME_Z ONE_MINUTE S_OFFSET,  H_WAITING_ LIST.REQUE STED_DATE) , 101) + '  ' 
  121                              + CON VERT(VARCH AR(5), DAT EADD (minu te, @TIME_ ZONE_MINUT ES_OFFSET,  H_WAITING _LIST.REQU ESTED_DATE ), 108) as  REQUESTED _DATE,
  122                       C ONVERT(VAR CHAR, DATE ADD (minut e, @TIME_Z ONE_MINUTE S_OFFSET,  H_WAITING_ LIST.REMOV ED_DATE),  101) + ' '  
  123                              + CON VERT(VARCH AR(5), DAT EADD (minu te, @TIME_ ZONE_MINUT ES_OFFSET,  H_WAITING _LIST.REMO VED_DATE),  108) as R EMOVED_DAT E,
  124                       C ONVERT(VAR CHAR, DATE ADD (minut e, @TIME_Z ONE_MINUTE S_OFFSET,  H_WAITING_ LIST.EDITE D), 101) +  ' ' 
  125                              + CON VERT(VARCH AR(5), DAT EADD (minu te, @TIME_ ZONE_MINUT ES_OFFSET,  H_WAITING _LIST.EDIT ED), 108)  as EDITED,
  126                       H _WAITING_L IST.LAST_E DIT_BY,
  127                             H_WAIT ING_LIST.P ATIENT_NAM E,
  128                       H _WAITING_L IST.ACT_ID ,
  129                       H _WAITING_L IST.ACTION _HISTORY,
  130                       - -H_WAITING _LIST.ACTI ON_HISTORY ,
  131           CA SE WHEN H_ WAITING_LI ST.TRANSAC TION_TYPE_ CODE = 'U'  THEN 
  132                    CASE  WHEN H_WA ITING_LIST .ERA_ID <>  PREVIOUS_ H_WAITING_ LIST.ERA_I D OR (H_WA ITING_LIST .ERA_ID IS  NULL AND  PREVIOUS_H _WAITING_L IST.ERA_ID  IS NOT NU LL) OR (H_ WAITING_LI ST.ERA_ID  IS NOT NUL L AND PREV IOUS_H_WAI TING_LIST. ERA_ID IS  NULL)
  133                             THEN   'ERA FROM  ' + ISNULL (ERA1.DISP LAY_NAME,' <EMPTY>')  + ' TO ' +  ISNULL(ER A2.DISPLAY _NAME,'')  + char(13) +char(10)  ELSE '' EN D + ' '+
  134                    CASE  WHEN H_WA ITING_LIST .DIAGNOSIS  <> PREVIO US_H_WAITI NG_LIST.DI AGNOSIS OR  (H_WAITIN G_LIST.DIA GNOSIS IS  NULL AND P REVIOUS_H_ WAITING_LI ST.DIAGNOS IS IS NOT  NULL) OR ( H_WAITING_ LIST.DIAGN OSIS IS NO T NULL AND  PREVIOUS_ H_WAITING_ LIST.DIAGN OSIS IS NU LL)
  135                             THEN   'DIAGNOSIS  FROM ' +  ISNULL(PRE VIOUS_H_WA ITING_LIST .DIAGNOSIS ,'<EMPTY>' ) + ' TO '  + ISNULL( H_WAITING_ LIST.DIAGN OSIS,'')   + char(13) +char(10)  ELSE '' EN D + ' ' +
  136                    CASE  WHEN H_WA ITING_LIST .CURRENT_L OCATION <>  PREVIOUS_ H_WAITING_ LIST.CURRE NT_LOCATIO N OR (H_WA ITING_LIST .CURRENT_L OCATION IS  NULL AND  PREVIOUS_H _WAITING_L IST.CURREN T_LOCATION  IS NOT NU LL) OR (H_ WAITING_LI ST.CURRENT _LOCATION  IS NOT NUL L AND PREV IOUS_H_WAI TING_LIST. CURRENT_LO CATION IS  NULL)
  137                             THEN   'CURRENT L OCATION FR OM ' + ISN ULL(PREVIO US_H_WAITI NG_LIST.CU RRENT_LOCA TION, '<EM PTY>') + '  TO ' + IS NULL(H_WAI TING_LIST. CURRENT_LO CATION,'')  + char(13 )+char(10)  ELSE '' E ND + ' ' +
  138                    CASE  WHEN H_WA ITING_LIST .SPECIALTY _ID <> PRE VIOUS_H_WA ITING_LIST .SPECIALTY _ID OR (H_ WAITING_LI ST.SPECIAL TY_ID IS N ULL AND PR EVIOUS_H_W AITING_LIS T.SPECIALT Y_ID IS NO T NULL) OR  (H_WAITIN G_LIST.SPE CIALTY_ID  IS NOT NUL L AND PREV IOUS_H_WAI TING_LIST. SPECIALTY_ ID IS NULL )
  139                             THEN   'SPECIALIT Y FROM ' +  ISNULL(SP ECIALTY1.D ISPLAY_NAM E,'<EMPTY> ') + ' TO  ' + ISNULL (SPECIALTY 2.DISPLAY_ NAME,'') +  char(13)+ char(10) E LSE '' END  + ' ' +
  140                    CASE  WHEN H_WA ITING_LIST .IS_NATION AL_WAIT_LI ST <> PREV IOUS_H_WAI TING_LIST. IS_NATIONA L_WAIT_LIS T THEN 'NA TIONAL WAI T LIST FRO M ' + 
  141                             CASE W HEN PREVIO US_H_WAITI NG_LIST.IS _NATIONAL_ WAIT_LIST  = 1 THEN ' Yes' ELSE  'No' END +  ' TO ' + 
  142                             CASE W HEN H_WAIT ING_LIST.I S_NATIONAL _WAIT_LIST  = 1 THEN  'Yes' ELSE  'No' END  + char(13) +char(10)  ELSE '' EN D + ' ' +
  143                    CASE  WHEN H_WA ITING_LIST .REQUESTED _DATE <> P REVIOUS_H_ WAITING_LI ST.REQUEST ED_DATE OR  (H_WAITIN G_LIST.REQ UESTED_DAT E IS NULL  AND PREVIO US_H_WAITI NG_LIST.RE QUESTED_DA TE IS NOT  NULL) OR ( H_WAITING_ LIST.REQUE STED_DATE  IS NOT NUL L AND PREV IOUS_H_WAI TING_LIST. REQUESTED_ DATE IS NU LL) 
  144                             THEN ' REQUESTED  ADMISSION  DATE FROM  ' + CASE W HEN PREVIO US_H_WAITI NG_LIST.RE QUESTED_DA TE IS NULL  THEN '<Em pty>' ELSE  ISNULL(co nvert(varc har(20),PR EVIOUS_H_W AITING_LIS T.REQUESTE D_DATE,101 ), '') + '  ' + ISNUL L(convert( varchar(20 ),PREVIOUS _H_WAITING _LIST.REQU ESTED_DATE ,108), '')  + ' ' + I SNULL(righ t(convert( varchar(30 ),PREVIOUS _H_WAITING _LIST.REQU ESTED_DATE ,109),2),' ') END +
  145                                      ' TO ' +  CASE WHEN  H_WAITING _LIST.REQU ESTED_DATE  IS NULL T HEN '<Empt y>' ELSE I SNULL(conv ert(varcha r(20),H_WA ITING_LIST .REQUESTED _DATE,101) , '') + '  ' + ISNULL (convert(v archar(20) ,H_WAITING _LIST.REQU ESTED_DATE ,108),'')  + ' ' + IS NULL(right (convert(v archar(30) ,H_WAITING _LIST.REQU ESTED_DATE ,109),2),' ') + char( 13)+char(1 0) END ELS E '' END +  ' ' +
  146                    CASE  WHEN H_WA ITING_LIST .LOCATION_ ADMISSION_ DATE <> PR EVIOUS_H_W AITING_LIS T.LOCATION _ADMISSION _DATE OR ( H_WAITING_ LIST.LOCAT ION_ADMISS ION_DATE I S NULL AND  PREVIOUS_ H_WAITING_ LIST.LOCAT ION_ADMISS ION_DATE I S NOT NULL ) OR (H_WA ITING_LIST .LOCATION_ ADMISSION_ DATE IS NO T NULL AND  PREVIOUS_ H_WAITING_ LIST.LOCAT ION_ADMISS ION_DATE I S NULL)
  147                             THEN ' COMM HOSP  ADMISSION  DATE FROM  ' + CASE W HEN PREVIO US_H_WAITI NG_LIST.LO CATION_ADM ISSION_DAT E IS NULL  THEN '<Emp ty>' ELSE  ISNULL(con vert(varch ar(20),PRE VIOUS_H_WA ITING_LIST .LOCATION_ ADMISSION_ DATE,101), '') + ' '+  ISNULL(co nvert(varc har(20),PR EVIOUS_H_W AITING_LIS T.LOCATION _ADMISSION _DATE,108) ,'') + ' '  + ISNULL( right(conv ert(varcha r(30),PREV IOUS_H_WAI TING_LIST. LOCATION_A DMISSION_D ATE,109),2 ),'') END  +
  148                                      ' TO ' +  CASE WHEN  H_WAITING _LIST.LOCA TION_ADMIS SION_DATE  IS NULL TH EN '<Empty >' ELSE IS NULL(conve rt(varchar (20),H_WAI TING_LIST. LOCATION_A DMISSION_D ATE,101),' ') + ' ' +  ISNULL(co nvert(varc har(20),H_ WAITING_LI ST.LOCATIO N_ADMISSIO N_DATE,108 ),'') + '  ' + ISNULL (right(con vert(varch ar(30),H_W AITING_LIS T.LOCATION _ADMISSION _DATE,109) ,2),'') +  char(13)+c har(10) EN D ELSE ''  END + ' '  +
  149                    CASE  WHEN H_WA ITING_LIST .CONTRACT_ ID <> PREV IOUS_H_WAI TING_LIST. CONTRACT_I D OR (H_WA ITING_LIST .CONTRACT_ ID IS NULL  AND PREVI OUS_H_WAIT ING_LIST.C ONTRACT_ID  IS NOT NU LL) OR (H_ WAITING_LI ST.CONTRAC T_ID IS NO T NULL AND  PREVIOUS_ H_WAITING_ LIST.CONTR ACT_ID IS  NULL)
  150                             THEN ' CONTRACT F ROM ' + IS NULL(CONTR ACT1.DISPL AY_NAME,'< EMPTY>') +  ' TO ' +  ISNULL(CON TRACT2.DIS PLAY_NAME, '') + char (13)+char( 10) ELSE ' ' END + '  ' +
  151                    CASE  WHEN H_WA ITING_LIST .FACILITY_ UID <> PRE VIOUS_H_WA ITING_LIST .FACILITY_ UID OR (H_ WAITING_LI ST.FACILIT Y_UID IS N ULL AND PR EVIOUS_H_W AITING_LIS T.FACILITY _UID IS NO T NULL) OR  (H_WAITIN G_LIST.FAC ILITY_UID  IS NOT NUL L AND PREV IOUS_H_WAI TING_LIST. FACILITY_U ID IS NULL )
  152                             THEN ' VA ADMISSI ON FACILIT Y FROM ' +  ISNULL(OR G1.NAME,'< EMPTY>') +  ' TO ' +  ISNULL(ORG 2.NAME,'')  + char(13 )+char(10)  ELSE '' E ND  
  153           EL SE ''--H_W AITING_LIS T.ACTION_H ISTORY 
  154           EN D as TRAN_ UPDS,
  155           CA SE WHEN H_ WAITING_LI ST.COMMENT S <> PREVI OUS_H_WAIT ING_LIST.C OMMENTS OR  (H_WAITIN G_LIST.COM MENTS IS N ULL AND PR EVIOUS_H_W AITING_LIS T.COMMENTS  IS NOT NU LL) OR (H_ WAITING_LI ST.COMMENT S IS NOT N ULL AND PR EVIOUS_H_W AITING_LIS T.COMMENTS  IS NULL)
  156                    THEN   'COMMENT S FROM ' +  ISNULL(PR EVIOUS_H_W AITING_LIS T.COMMENTS ,'<EMPTY>' ) + ' TO '  + ISNULL( H_WAITING_ LIST.COMME NTS,'') +  char(13)+c har(10) EL SE '' END  as TRAN_CO MMENTS
  157           FR OM #TRANHI STORY H_WA ITING_LIST
  158           LE FT JOIN #T RANHISTORY  AS PREVIO US_H_WAITI NG_LIST ON
  159           PR EVIOUS_H_W AITING_LIS T.ACT_ID =  H_WAITING _LIST.ACT_ ID AND
  160           PR EVIOUS_H_W AITING_LIS T.PK < H_W AITING_LIS T.PK
  161           LE FT JOIN CO NCEPT_H as  ERA1 
  162           ON  PREVIOUS_ H_WAITING_ LIST.ERA_I D = ERA1.I D
  163           AN D ERA1.COD E_SYSTEM_N AME = 'ERA '
  164           LE FT JOIN CO NCEPT_H as  ERA2 
  165           ON  H_WAITING _LIST.ERA_ ID = ERA2. ID
  166           AN D ERA2.COD E_SYSTEM_N AME = 'ERA '
  167           LE FT JOIN CO NCEPT_H as  SPECIALTY 1
  168           ON  PREVIOUS_ H_WAITING_ LIST.SPECI ALTY_ID =  SPECIALTY1 .ID
  169           AN D SPECIALT Y1.CODE_SY STEM_NAME  = 'VistaSp ecialty'       
  170           LE FT JOIN CO NCEPT_H as  SPECIALTY 2
  171           ON  H_WAITING _LIST.SPEC IALTY_ID =  SPECIALTY 2.ID
  172           AN D SPECIALT Y1.CODE_SY STEM_NAME  = 'VistaSp ecialty'
  173           LE FT JOIN CO NCEPT_H as  CONTRACT1
  174           ON  PREVIOUS_ H_WAITING_ LIST.CONTR ACT_ID = C ONTRACT1.I D
  175           AN D CONTRACT 1.CODE_SYS TEM_NAME =  'StrictDe cision'
  176           LE FT JOIN CO NCEPT_H as  CONTRACT2
  177           ON  H_WAITING _LIST.CONT RACT_ID =  CONTRACT2. ID
  178           AN D CONTRACT 2.CODE_SYS TEM_NAME =  ' StrictD ecision'
  179           LE FT JOIN BM S_EIS.dbo. ENTITY AS  ENTITY1 ON  ENTITY1.I DENTIFIER  = PREVIOUS _H_WAITING _LIST.FACI LITY_UID
  180           LE FT JOIN BM S_EIS.dbo. EHL7_ORGAN IZATION AS  ORG1 ON O RG1.PFK_OR GANIZATION  = ENTITY1 .PK_ENTITY
  181           LE FT JOIN BM S_EIS.dbo. ENTITY AS  ENTITY2 ON  ENTITY2.I DENTIFIER  = H_WAITIN G_LIST.FAC ILITY_UID
  182           LE FT JOIN BM S_EIS.dbo. EHL7_ORGAN IZATION AS  ORG2 ON O RG2.PFK_OR GANIZATION  = ENTITY2 .PK_ENTITY
  183           OP TION (MAXD OP 1) 
  184           DR OP TABLE # TRANHISTOR Y
  185  
  186   END
  187   END
  188  
  189   GO
  190  
  191  

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