391. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 10/26/2017 10:43:32 PM Eastern 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.

391.1 Files compared

# Location File Last Modified
1 OSCIF_BMS_v2_iter 2_September_2017.zip\BMS_Cand\BMS_Source_C72993\C72993-Sources.zip\C72993\Source\Sources\Database\CreationScripts\BMS_HISTORY\4.StoredProcedures dbo.usp_Rpt_VisnWaitingList.StoredProcedure.sql Fri Nov 22 17:02:56 2013 UTC
2 OSCIF_BMS_v2_iter 2_September_2017.zip\BMS_Cand\BMS_Source_C72993\C72993-Sources.zip\C72993\Source\Sources\Database\CreationScripts\BMS_HISTORY\4.StoredProcedures dbo.usp_Rpt_VisnWaitingList.StoredProcedure.sql Wed Oct 25 23:15:57 2017 UTC

391.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 11 590
Changed 10 34
Inserted 0 0
Removed 0 0

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

391.4 Active regular expressions

No regular expressions were active.

391.5 Comparison detail

  1   IF  EXISTS  (SELECT *  FROM sys. objects WH ERE object _id = OBJE CT_ID(N'[d bo].[usp_R pt_VisnWai tingList]' ) AND type  in (N'P',  N'PC'))
  2   DROP PROCE DURE [dbo] .[usp_Rpt_ VisnWaitin gList]
  3   GO
  4  
  5   SET ANSI_N ULLS ON
  6   GO
  7   SET QUOTED _IDENTIFIE R ON
  8   GO
  9  
  10   CREATE PRO CEDURE [db o].[usp_Rp t_VisnWait ingList]
  11           @D ATE_FROM D ATETIME,
  12           @D ATE_TO DAT ETIME,
  13           @T IME_ZONE_M INUTES_OFF SET INT,
  14           @U serID N DNS    AR(500),
  15           @F ACILITIES_ IDS N DNS    AR(MAX) =  '',
  16           @R EPORT_TYPE  N DNS    AR(50)
  17   AS
  18   BEGIN
  19  
  20           SE T NOCOUNT  ON;
  21           
  22           
  23           IF  (@REPORT_ TYPE = 'VI SN_WAIT_LI ST')
  24           BE GIN
  25                    
  26                    IF @ DATE_FROM  > @DATE_TO
  27                             RAISER ROR ('The  start date  is greate r than the  end date.  Please co rrect.', 1 8, 13)
  28                    ELSE
  29                    BEGI N
  30                    
  31                             set @D ATE_FROM =  DATEADD ( minute, -@ TIME_ZONE_ MINUTES_OF FSET, @DAT E_FROM );
  32                             set @D ATE_TO = D ATEADD (mi nute, -@TI ME_ZONE_MI NUTES_OFFS ET, @DATE_ TO );
  33  
  34                             --GET  INFORMATIO N ABOUT SE LECTED FAC ILITIES
  35                              CREATE TAB LE #TBL_FA CILITY (SO URCE_ID N DNS    AR(250) PR IMARY KEY,  FACILITY_ NAME N DNS    AR(250), T IMEZONE_OF FSET INT)
  36                             INSERT  INTO #TBL _FACILITY( SOURCE_ID,  FACILITY_ NAME, TIME ZONE_OFFSE T) 
  37                              SELECT DIS TINCT CONV ERT(N DNS    AR(250), F ACILITY.VA LUE), ORG. NAME,    [dbo].[ufn _GetOffset ByFacility UID](VALUE ) 
  38                             FROM d bo.ufn_Spl it(@FACILI TIES_IDS,  ',') AS FA CILITY
  39                             INNER  JOIN $(var BMS_EIS).d bo.ENTITY  AS ENTITY  ON ENTITY. IDENTIFIER  = FACILIT Y.VALUE 
  40                             INNER  JOIN $(var BMS_EIS).d bo.EHL7_OR GANIZATION  AS ORG ON  ORG.PFK_O RGANIZATIO N = ENTITY .PK_ENTITY
  41                             
  42                             
  43                             --GET  VOCABULARY  ERA                      
  44                              CREATE TAB LE #ERA(PK  INT PRIMA RY KEY, SO URCE_ID IN T, DISPLAY _NAME N DNS    AR(250))
  45                             INSERT  INTO #ERA (PK, SOURC E_ID, DISP LAY_NAME)
  46                             SELECT  MAX_WAITI NG_AREA.PK , MAX_WAIT ING_AREA.I D, CONCEPT .DISPLAY_N AME
  47                             FROM (   
  48                             SELECT  MAX(PK) A S PK, ID
  49                             FROM d bo.CONCEPT _H
  50                             WHERE  code_syste m_name = ' Era'
  51                             GROUP  BY ID) AS  MAX_WAITIN G_AREA 
  52                             INNER  JOIN DBO.C ONCEPT_H A S CONCEPT  ON CONCEPT .PK = MAX_ WAITING_AR EA.PK
  53                                                       
  54                             --GET  VOCABULARY  STRICT DE CISION
  55                              CREATE TAB LE #STRICT _DECISION  (PK INT PR IMARY KEY,  SOURCE_ID  INT, DISP LAY_NAME N DNS    AR(250))
  56                             INSERT  INTO #STR ICT_DECISI ON(PK, SOU RCE_ID, DI SPLAY_NAME )                                  
  57                             SELECT  MAX_CONCE PT_CONTRAC T._PK, MAX _CONCEPT_C ONTRACT.ID , CONCEPT_ C.DISPLAY_ NAME
  58                             FROM(
  59                                               SELECT MAX (PK) as _P K, ID
  60                                               FROM dbo.C ONCEPT_H
  61                                               WHERE code _system_na me = 'Stri ctDecision '
  62                                               GROUP BY I D ) AS MAX _CONCEPT_C ONTRACT 
  63                             INNER  JOIN dbo.C ONCEPT_H A S CONCEPT_ C ON CONCE PT_C.PK =  MAX_CONCEP T_CONTRACT ._PK
  64                                      
  65                             --GET  VOCABULARY  VISTA SPE CIALTY
  66                              CREATE TAB LE #VISTA_ SPECIALTY( PK INT PRI MARY KEY,  SOURCE_ID  INT, DISPL AY_NAME N DNS    AR(250))
  67                             INSERT  INTO #VIS TA_SPECIAL TY(PK, SOU RCE_ID, DI SPLAY_NAME )       
  68                             SELECT  MAX_CONCE PT_SERVICE ._PK, MAX_ CONCEPT_SE RVICE.ID,  CONCEPT_S. DISPLAY_NA ME  
  69                             FROM(
  70                                               SELECT MAX (PK) as _P K, ID
  71                                               FROM dbo.C ONCEPT_H
  72                                               WHERE code _system_na me = 'Vist aSpecialty '
  73                                               GROUP BY I D
  74                                              
  75                                      ) AS MAX _CONCEPT_S ERVICE 
  76                             INNER  JOIN dbo.C ONCEPT_H A S CONCEPT_ S ON CONCE PT_S.PK =  MAX_CONCEP T_SERVICE. _PK                           
  77                             
  78                             CREATE  TABLE #HI STORY_VISN _WAITING_L IST
  79                             (
  80                             [PK] [ int] NOT N ULL PRIMAR Y KEY,
  81                             [ACT_I D] [int] N OT NULL,
  82                              [FACILITY_ NAME] [N DNS    AR] (250)  NULL,
  83                             [PATIE NT_UID] [U NIQUEIDENT IFIER] NUL L,
  84                              [FACILITY_ VISN] [N DNS    AR] (100)  NULL,
  85                              [ERA] [N DNS    AR] (250)  NULL,
  86                              [CONTRACT]  [N DNS    AR] (250)  NULL,
  87                              [DIAGNOSIS ] [N DNS    AR] (250)  NULL,
  88                              [CURRENT_L OCATION] [ N DNS    AR] (250)  NULL,
  89                             [LOC_A DM_DATE] [ DATETIME]  NULL,
  90                              [COMMENTS]  [N DNS    AR] (250)    NULL,
  91                              [SPECIALTY ] [N DNS    AR] (250)  NULL,
  92                             [REQ_D ATE] [DATE TIME] NULL ,
  93                             [CREAT ED_BY] [nv archar] (5 0) NULL,
  94                             [DATE_ FAC] [DATE TIME] NULL ,
  95                             TRANSA CTION_TYPE _CODE [var char] (50)  NULL
  96                             )
  97                             CREATE  UNIQUE IN DEX IX_HIS TORY_W_L_P K_ACT_ID O N #HISTORY _VISN_WAIT ING_LIST(P K, ACT_ID)
  98                             CREATE  UNIQUE NO NCLUSTERED  INDEX IX_ HISTORY_W_ L_FAC_NAME _ACT_ID_DA TE_FAC ON  #HISTORY_V ISN_WAITIN G_LIST (FA CILITY_NAM E, ACT_ID,  DATE_FAC)  
  99                             
  100                             INSERT  INTO #HIS TORY_VISN_ WAITING_LI ST(PK, ACT _ID, FACIL ITY_NAME,  PATIENT_UI D, FACILIT Y_VISN,
  101                                                                                                               E RA,[CONTRA CT],DIAGNO SIS,CURREN T_LOCATION ,LOC_ADM_D ATE,
  102                                                                                                               C OMMENTS, S PECIALTY,  REQ_DATE,  CREATED_BY , DATE_FAC , TRANSACT ION_TYPE_C ODE)
  103                             SELECT  FIRST_ROW _COMPARED. PK, FIRST_ ROW_COMPAR ED.ACT_ID,  FAC.FACIL ITY_NAME,
  104                                               A.PATIENT_ UID,
  105                                               FIRST_ROW_ COMPARED.F ACILITY_VI SN, CONCEP T_ERA.DISP LAY_NAME,  CONCEPT_C. DISPLAY_NA ME, FIRST_ ROW_COMPAR ED.DIAGNOS IS, 
  106                                               FIRST_ROW_ COMPARED.C URRENT_LOC ATION, 
  107                                               DATEADD (m inute, 
  108                                               ISNULL(FAC .TIMEZONE_ OFFSET * 6 0,
  109                                                                @TIM E_ZONE_MIN UTES_OFFSE T), FIRST_ ROW_COMPAR ED.LOCATIO N_ADMISSIO N_DATE),
  110                                               FIRST_ROW_ COMPARED.C OMMENTS, C ONCEPT_S.D ISPLAY_NAM E,
  111                                               DATEADD (m inute, 
  112                                               ISNULL(FAC .TIMEZONE_ OFFSET * 6 0,
  113                                                                @TIM E_ZONE_MIN UTES_OFFSE T), FIRST_ ROW_COMPAR ED.REQUEST ED_DATE),
  114                                               case when  FIRST_ROW_ COMPARED.C REATED_BY  is null th en 'System ' 
  115                                                        e lse (FIRST _ROW_COMPA RED.LAST_E DIT_BY)
  116                                               end,
  117                                               DATEADD (m inute, 
  118                                               ISNULL(FAC .TIMEZONE_ OFFSET * 6 0,
  119                                                                @TIM E_ZONE_MIN UTES_OFFSE T), FIRST_ ROW_COMPAR ED.[DATE]) ,
  120                                               FIRST_ROW_ COMPARED.T RANSACTION _TYPE_CODE  
  121                             FROM T RANSFER_RE Q_H AS FIR ST_ROW_COM PARED
  122                                       INNER J OIN #TBL_F ACILITY AS  FAC ON FA C.SOURCE_I D = FIRST_ ROW_COMPAR ED.FACILIT Y_UID 
  123                                       LEFT JO IN #ERA AS  CONCEPT_E RA ON CONC EPT_ERA.SO URCE_ID =  FIRST_ROW_ COMPARED.E RA_ID
  124                                       LEFT JO IN #STRICT _DECISION  AS CONCEPT _C ON CONC EPT_C.SOUR CE_ID = FI RST_ROW_CO MPARED.CON TRACT_ID
  125                                       LEFT JO IN #VISTA_ SPECIALTY  AS CONCEPT _S ON CONC EPT_S.SOUR CE_ID = FI RST_ROW_CO MPARED.SPE CIALITY_ID       
  126                                       INNER J OIN (SELEC T distinct  ID, PATIE NT_UID FRO M dbo.ACT_ H) A ON FI RST_ROW_CO MPARED.ACT _ID = A.ID       
  127                                       LEFT JO IN TRANSFE R_REQ_H AS  SECOND_RO W_COMPARED  ON  SECON D_ROW_COMP ARED.PK =  (SELECT MA X(NEXT_ROW _COMPARED. PK)
  128                                      FROM TRA NSFER_REQ_ H AS NEXT_ ROW_COMPAR ED                                   
  129                                      WHERE NE XT_ROW_COM PARED.ACT_ ID = FIRST _ROW_COMPA RED.ACT_ID  AND  
  130                                      NEXT_ROW _COMPARED. PK < FIRST _ROW_COMPA RED.PK AND
  131                                      (NEXT_RO W_COMPARED .[DATE] >=  @DATE_FRO M and NEXT _ROW_COMPA RED.[DATE]  <= @DATE_ TO))        
  132                                               AND (FIRST _ROW_COMPA RED.FACILI TY_UID = S ECOND_ROW_ COMPARED.F ACILITY_UI D OR (FIRS T_ROW_COMP ARED.FACIL ITY_UID IS  NULL AND  SECOND_ROW _COMPARED. FACILITY_U ID IS NULL ))
  133                                               AND (FIRST _ROW_COMPA RED.FACILI TY_VISN =  SECOND_ROW _COMPARED. FACILITY_V ISN OR (FI RST_ROW_CO MPARED.FAC ILITY_VISN  IS NULL A ND SECOND_ ROW_COMPAR ED.FACILIT Y_VISN IS  NULL))  
  134                                               AND (FIRST _ROW_COMPA RED.ERA_ID  = SECOND_ ROW_COMPAR ED.ERA_ID  OR (FIRST_ ROW_COMPAR ED.ERA_ID  IS NULL AN D SECOND_R OW_COMPARE D.ERA_ID I S NULL))       
  135                                               AND (FIRST _ROW_COMPA RED.CONTRA CT_ID = SE COND_ROW_C OMPARED.CO NTRACT_ID  OR (FIRST_ ROW_COMPAR ED.CONTRAC T_ID IS NU LL AND SEC OND_ROW_CO MPARED.CON TRACT_ID I S NULL))
  136                                               AND (FIRST _ROW_COMPA RED.DIAGNO SIS = SECO ND_ROW_COM PARED.DIAG NOSIS OR ( FIRST_ROW_ COMPARED.D IAGNOSIS I S NULL AND  SECOND_RO W_COMPARED .DIAGNOSIS  IS NULL))           
  137                                               AND (FIRST _ROW_COMPA RED.CURREN T_LOCATION  = SECOND_ ROW_COMPAR ED.CURRENT _LOCATION  OR (FIRST_ ROW_COMPAR ED.CURRENT _LOCATION  IS NULL AN D SECOND_R OW_COMPARE D.CURRENT_ LOCATION I S NULL))
  138                                               AND (FIRST _ROW_COMPA RED.LOCATI ON_ADMISSI ON_DATE =  SECOND_ROW _COMPARED. LOCATION_A DMISSION_D ATE OR (FI RST_ROW_CO MPARED.LOC ATION_ADMI SSION_DATE  IS NULL A ND SECOND_ ROW_COMPAR ED.LOCATIO N_ADMISSIO N_DATE IS  NULL))           
  139                                               AND (FIRST _ROW_COMPA RED.COMMEN TS = SECON D_ROW_COMP ARED.COMME NTS OR (FI RST_ROW_CO MPARED.COM MENTS IS N ULL AND SE COND_ROW_C OMPARED.CO MMENTS IS  NULL))         
  140                                               AND (FIRST _ROW_COMPA RED.SPECIA LITY_ID =  SECOND_ROW _COMPARED. SPECIALITY _ID OR (FI RST_ROW_CO MPARED.SPE CIALITY_ID  IS NULL A ND SECOND_ ROW_COMPAR ED.SPECIAL ITY_ID IS  NULL))    
  141                                               AND (FIRST _ROW_COMPA RED.REQUES TED_DATE =  SECOND_RO W_COMPARED .REQUESTED _DATE OR ( FIRST_ROW_ COMPARED.R EQUESTED_D ATE IS NUL L AND SECO ND_ROW_COM PARED.REQU ESTED_DATE  IS NULL))                
  142                             WHERE  SECOND_ROW _COMPARED. PK IS NULL  AND FIRST _ROW_COMPA RED.[DATE]  >= @DATE_ FROM AND F IRST_ROW_C OMPARED.[D ATE] <= @D ATE_TO
  143                             ORDER  BY FIRST_R OW_COMPARE D.ACT_ID,  FIRST_ROW_ COMPARED.P K DESC
  144                             
  145                             DROP T ABLE #TBL_ FACILITY
  146                             DROP T ABLE #ERA
  147                             DROP T ABLE #STRI CT_DECISIO N
  148                             DROP T ABLE #VIST A_SPECIALT Y
  149                             
  150                             
  151                              CREATE TAB LE #PATIEN TS (PATIEN T_UID UNIQ UEIDENTIFI ER PRIMARY  KEY, PATI ENT_NAME N DNS    AR(250))
  152                             INSERT  INTO #PAT IENTS(PATI ENT_UID, P ATIENT_NAM E)
  153                             SELECT  DISTINCT  PAC.PATIEN T_UID, SUB STRING(PER SON.[NAME_ FAMILY], 1 , 1) + SUB STRING(s.[ IDENTIFIER _EXTENSION ], 7, 5)
  154                             FROM # HISTORY_VI SN_WAITING _LIST AS P AC
  155                             INNER  JOIN $(var BMS_EIS).d bo.ENTITY  AS ENTITY  ON ENTITY. IDENTIFIER  = PAC.PAT IENT_UID
  156                             INNER  JOIN $(var BMS_EIS).d bo.EHL7_PE RSON AS PE RSON ON PE RSON.PFK_P ERSON = EN TITY.PK_EN TITY
  157                             INNER  JOIN $(var BMS_EIS).d bo.EHL7_UI D AS S ON  S.FK_ENTIT Y = PERSON .PFK_PERSO N AND S.ID ENTIFIER_R OOT = 'SSN '
  158                             
  159                             SELECT  H_VISN_WA ITING_LIST .ACT_ID,
  160                             CASE H _VISN_WAIT ING_LIST.T RANSACTION _TYPE_CODE
  161                                       WHEN 'D ' THEN 
  162                                                CASE WHEN  PREVIOUS_ H_VISN_WAI TING_LIST. PK IS NOT  NULL THEN  ''
  163                                                       EL SE H_VISN_ WAITING_LI ST.FACILIT Y_NAME           
  164                                                END 
  165                                       WHEN 'I ' THEN  H_ VISN_WAITI NG_LIST.FA CILITY_NAM E
  166                                       WHEN 'U ' THEN
  167                                               CASE WHEN  PREVIOUS_H _VISN_WAIT ING_LIST.P K IS NOT N ULL AND PR EVIOUS_H_V ISN_WAITIN G_LIST.FAC ILITY_NAME  = H_VISN_ WAITING_LI ST.FACILIT Y_NAME THE N ''
  168                                                        W HEN PREVIO US_H_VISN_ WAITING_LI ST.PK IS N OT NULL AN D PREVIOUS _H_VISN_WA ITING_LIST .FACILITY_ NAME IS NO T NULL AND  H_VISN_WA ITING_LIST .FACILITY_ NAME IS NU LL THEN 'D ELETED PRE VIOUS INFO RMATION'
  169                                                        E LSE H_VISN _WAITING_L IST.FACILI TY_NAME          
  170                                               END 
  171                              END A S FACILITY ,        
  172                              CASE  H_VISN_WAI TING_LIST. TRANSACTIO N_TYPE_COD E
  173                                       WHEN 'D ' THEN 
  174                                               CASE WHEN  PREVIOUS_H _VISN_WAIT ING_LIST.P K IS NOT N ULL THEN ' '
  175                                               ELSE PATIE NT.PATIENT _NAME                
  176                                               END 
  177                                       WHEN 'I ' THEN  PA TIENT.PATI ENT_NAME
  178                                       WHEN 'U ' THEN
  179                                               CASE WHEN  PREVIOUS_H _VISN_WAIT ING_LIST.P K IS NOT N ULL AND PR EVIOUS_H_V ISN_WAITIN G_LIST.PAT IENT_UID =  H_VISN_WA ITING_LIST .PATIENT_U ID THEN ''
  180                                                        W HEN PREVIO US_H_VISN_ WAITING_LI ST.PK IS N OT NULL AN D PREVIOUS _H_VISN_WA ITING_LIST .PATIENT_U ID IS NOT  NULL AND H _VISN_WAIT ING_LIST.P ATIENT_UID  IS NULL T HEN 'DELET ED PREVIOU S INFORMAT ION'
  181                                                        E LSE PATIEN T.PATIENT_ NAME               
  182                                               END 
  183                              END A S PATIENT_ NAME,
  184                              CASE  H_VISN_WAI TING_LIST. TRANSACTIO N_TYPE_COD E
  185                                       WHEN 'D ' THEN 
  186                                               CASE WHEN  PREVIOUS_H _VISN_WAIT ING_LIST.P K IS NOT N ULL THEN ' '
  187                                               ELSE  H_VI SN_WAITING _LIST.FACI LITY_VISN
  188                                               END 
  189                                       WHEN 'I ' THEN  H_ VISN_WAITI NG_LIST.FA CILITY_VIS N
  190                                       WHEN 'U ' THEN
  191                                               CASE WHEN  PREVIOUS_H _VISN_WAIT ING_LIST.P K IS NOT N ULL AND PR EVIOUS_H_V ISN_WAITIN G_LIST.FAC ILITY_VISN  = H_VISN_ WAITING_LI ST.FACILIT Y_VISN THE N ''
  192                                                        W HEN PREVIO US_H_VISN_ WAITING_LI ST.PK IS N OT NULL AN D PREVIOUS _H_VISN_WA ITING_LIST .FACILITY_ VISN IS NO T NULL AND  H_VISN_WA ITING_LIST .FACILITY_ VISN IS NU LL THEN 'D ELETED PRE VIOUS INFO RMATION'
  193                                                        E LSE  H_VIS N_WAITING_ LIST.FACIL ITY_VISN                  
  194                                               END 
  195                              END A S VISN,
  196                              
  197                              CASE  H_VISN_WAI TING_LIST. TRANSACTIO N_TYPE_COD E
  198                                       WHEN 'D ' THEN 
  199                                               CASE WHEN  PREVIOUS_H _VISN_WAIT ING_LIST.P K IS NOT N ULL THEN ' '
  200                                               ELSE  H_VI SN_WAITING _LIST.ERA
  201                                               END 
  202                                       WHEN 'I ' THEN  H_ VISN_WAITI NG_LIST.ER A
  203                                       WHEN 'U ' THEN
  204                                               CASE WHEN  PREVIOUS_H _VISN_WAIT ING_LIST.P K IS NOT N ULL AND PR EVIOUS_H_V ISN_WAITIN G_LIST.ERA  = H_VISN_ WAITING_LI ST.ERA THE N ''
  205                                                        W HEN PREVIO US_H_VISN_ WAITING_LI ST.PK IS N OT NULL AN D PREVIOUS _H_VISN_WA ITING_LIST .ERA IS NO T NULL AND  H_VISN_WA ITING_LIST .ERA IS NU LL THEN 'D ELETED PRE VIOUS INFO RMATION'
  206                                                        E LSE  H_VIS N_WAITING_ LIST.ERA           
  207                                               END 
  208                              END A S ERA,      
  209                              CASE  H_VISN_WAI TING_LIST. TRANSACTIO N_TYPE_COD E
  210                                       WHEN 'D ' THEN 
  211                                               CASE WHEN  PREVIOUS_H _VISN_WAIT ING_LIST.P K IS NOT N ULL THEN ' '
  212                                               ELSE  H_VI SN_WAITING _LIST.[CON TRACT]
  213                                               END 
  214                                       WHEN 'I ' THEN  H_ VISN_WAITI NG_LIST.[C ONTRACT]
  215                                       WHEN 'U ' THEN
  216                                               CASE WHEN  PREVIOUS_H _VISN_WAIT ING_LIST.P K IS NOT N ULL AND PR EVIOUS_H_V ISN_WAITIN G_LIST.[CO NTRACT] =  H_VISN_WAI TING_LIST. [CONTRACT]  THEN ''
  217                                                        W HEN PREVIO US_H_VISN_ WAITING_LI ST.PK IS N OT NULL AN D PREVIOUS _H_VISN_WA ITING_LIST .[CONTRACT ] IS NOT N ULL AND H_ VISN_WAITI NG_LIST.[C ONTRACT] I S NULL THE N 'DELETED  PREVIOUS  INFORMATIO N'
  218                                                        E LSE  H_VIS N_WAITING_ LIST.[CONT RACT]            
  219                                               END 
  220                              END A S [CONTRAC T],               
  221                              CASE  H_VISN_WAI TING_LIST. TRANSACTIO N_TYPE_COD E
  222                                       WHEN 'D ' THEN 
  223                                               CASE WHEN  PREVIOUS_H _VISN_WAIT ING_LIST.P K IS NOT N ULL THEN ' '
  224                                               ELSE  H_VI SN_WAITING _LIST.DIAG NOSIS
  225                                               END 
  226                                       WHEN 'I ' THEN  H_ VISN_WAITI NG_LIST.DI AGNOSIS
  227                                       WHEN 'U ' THEN
  228                                               CASE WHEN  PREVIOUS_H _VISN_WAIT ING_LIST.P K IS NOT N ULL AND PR EVIOUS_H_V ISN_WAITIN G_LIST.DIA GNOSIS = H _VISN_WAIT ING_LIST.D IAGNOSIS T HEN ''
  229                                                        W HEN PREVIO US_H_VISN_ WAITING_LI ST.PK IS N OT NULL AN D PREVIOUS _H_VISN_WA ITING_LIST .DIAGNOSIS  IS NOT NU LL AND H_V ISN_WAITIN G_LIST.DIA GNOSIS IS  NULL THEN  'DELETED P REVIOUS IN FORMATION'
  230                                                        E LSE  H_VIS N_WAITING_ LIST.DIAGN OSIS             
  231                                               END 
  232                              END A S DIAGNOSI S,       
  233                              CASE  H_VISN_WAI TING_LIST. TRANSACTIO N_TYPE_COD E
  234                                       WHEN 'D ' THEN 
  235                                               CASE WHEN  PREVIOUS_H _VISN_WAIT ING_LIST.P K IS NOT N ULL THEN ' '
  236                                               ELSE  H_VI SN_WAITING _LIST.CURR ENT_LOCATI ON
  237                                               END 
  238                                       WHEN 'I ' THEN  H_ VISN_WAITI NG_LIST.CU RRENT_LOCA TION
  239                                       WHEN 'U ' THEN
  240                                               CASE WHEN  PREVIOUS_H _VISN_WAIT ING_LIST.P K IS NOT N ULL AND PR EVIOUS_H_V ISN_WAITIN G_LIST.CUR RENT_LOCAT ION = H_VI SN_WAITING _LIST.CURR ENT_LOCATI ON THEN ''
  241                                                        W HEN PREVIO US_H_VISN_ WAITING_LI ST.PK IS N OT NULL AN D PREVIOUS _H_VISN_WA ITING_LIST .CURRENT_L OCATION IS  NOT NULL  AND H_VISN _WAITING_L IST.CURREN T_LOCATION  IS NULL T HEN 'DELET ED PREVIOU S INFORMAT ION'
  242                                                        E LSE  H_VIS N_WAITING_ LIST.CURRE NT_LOCATIO N              
  243                                               END 
  244                              END A S CURRENT_ LOCATION,   
  245                             CASE H _VISN_WAIT ING_LIST.T RANSACTION _TYPE_CODE
  246                                       WHEN 'D ' THEN 
  247                                               CASE WHEN  PREVIOUS_H _VISN_WAIT ING_LIST.P K IS NOT N ULL THEN ' '
  248                                               ELSE conve rt(varchar (20),H_VIS N_WAITING_ LIST.LOC_A DM_DATE,10 1)+ ' '+co nvert(varc har(20),H_ VISN_WAITI NG_LIST.LO C_ADM_DATE ,108)+ ' '  +right(co nvert(varc har(30),H_ VISN_WAITI NG_LIST.LO C_ADM_DATE ,109),2) 
  249                                               END 
  250                                       WHEN 'I ' THEN con vert(varch ar(20),H_V ISN_WAITIN G_LIST.LOC _ADM_DATE, 101)+ ' '+ convert(va rchar(20), H_VISN_WAI TING_LIST. LOC_ADM_DA TE,108)+ '  ' +right( convert(va rchar(30), H_VISN_WAI TING_LIST. LOC_ADM_DA TE,109),2)  
  251                                       WHEN 'U ' THEN
  252                                               CASE WHEN  PREVIOUS_H _VISN_WAIT ING_LIST.P K IS NOT N ULL AND PR EVIOUS_H_V ISN_WAITIN G_LIST.LOC _ADM_DATE  = H_VISN_W AITING_LIS T.LOC_ADM_ DATE THEN  ''
  253                                                        W HEN PREVIO US_H_VISN_ WAITING_LI ST.PK IS N OT NULL AN D PREVIOUS _H_VISN_WA ITING_LIST .LOC_ADM_D ATE IS NOT  NULL AND  H_VISN_WAI TING_LIST. LOC_ADM_DA TE IS NULL  THEN 'DEL ETED PREVI OUS INFORM ATION'
  254                                                        E LSE   conv ert(varcha r(20),H_VI SN_WAITING _LIST.LOC_ ADM_DATE,1 01)+ ' '+c onvert(var char(20),H _VISN_WAIT ING_LIST.L OC_ADM_DAT E,108)+ '  ' +right(c onvert(var char(30),H _VISN_WAIT ING_LIST.L OC_ADM_DAT E,109),2)                 
  255                                               END 
  256                              END A S LOC_ADM_ DATE,
  257                              CASE  H_VISN_WAI TING_LIST. TRANSACTIO N_TYPE_COD E
  258                                       WHEN 'D ' THEN 
  259                                               CASE WHEN  PREVIOUS_H _VISN_WAIT ING_LIST.P K IS NOT N ULL THEN ' '
  260                                               ELSE  H_VI SN_WAITING _LIST.COMM ENTS
  261                                               END 
  262                                       WHEN 'I ' THEN  H_ VISN_WAITI NG_LIST.CO MMENTS
  263                                       WHEN 'U ' THEN
  264                                               CASE WHEN  PREVIOUS_H _VISN_WAIT ING_LIST.P K IS NOT N ULL AND PR EVIOUS_H_V ISN_WAITIN G_LIST.COM MENTS = H_ VISN_WAITI NG_LIST.CO MMENTS THE N ''
  265                                                        W HEN PREVIO US_H_VISN_ WAITING_LI ST.PK IS N OT NULL AN D PREVIOUS _H_VISN_WA ITING_LIST .COMMENTS  IS NOT NUL L AND H_VI SN_WAITING _LIST.COMM ENTS IS NU LL THEN 'D ELETED PRE VIOUS INFO RMATION'
  266                                                        E LSE  H_VIS N_WAITING_ LIST.COMME NTS              
  267                                               END 
  268                              END A S COMMENTS ,
  269                              CASE  H_VISN_WAI TING_LIST. TRANSACTIO N_TYPE_COD E
  270                                       WHEN 'D ' THEN 
  271                                               CASE WHEN  PREVIOUS_H _VISN_WAIT ING_LIST.P K IS NOT N ULL THEN ' '
  272                                               ELSE  H_VI SN_WAITING _LIST.SPEC IALTY
  273                                               END 
  274                                       WHEN 'I ' THEN  H_ VISN_WAITI NG_LIST.SP ECIALTY
  275                                       WHEN 'U ' THEN
  276                                               CASE WHEN  PREVIOUS_H _VISN_WAIT ING_LIST.P K IS NOT N ULL AND PR EVIOUS_H_V ISN_WAITIN G_LIST.SPE CIALTY = H _VISN_WAIT ING_LIST.S PECIALTY T HEN ''
  277                                                        W HEN PREVIO US_H_VISN_ WAITING_LI ST.PK IS N OT NULL AN D PREVIOUS _H_VISN_WA ITING_LIST .SPECIALTY  IS NOT NU LL AND H_V ISN_WAITIN G_LIST.SPE CIALTY IS  NULL THEN  'DELETED P REVIOUS IN FORMATION'
  278                                                        E LSE  H_VIS N_WAITING_ LIST.SPECI ALTY             
  279                                               END 
  280                              END A S SPECIALT Y, 
  281                              CASE  H_VISN_WAI TING_LIST. TRANSACTIO N_TYPE_COD E
  282                                       WHEN 'D ' THEN 
  283                                               CASE WHEN  PREVIOUS_H _VISN_WAIT ING_LIST.P K IS NOT N ULL THEN ' '
  284                                               ELSE conve rt(varchar (20),H_VIS N_WAITING_ LIST.REQ_D ATE,101)+  ' '+conver t(varchar( 20),H_VISN _WAITING_L IST.REQ_DA TE,108)+ '  ' +right( convert(va rchar(30), H_VISN_WAI TING_LIST. REQ_DATE,1 09),2) 
  285                                               END 
  286                                       WHEN 'I ' THEN con vert(varch ar(20),H_V ISN_WAITIN G_LIST.REQ _DATE,101) + ' '+conv ert(varcha r(20),H_VI SN_WAITING _LIST.REQ_ DATE,108)+  ' ' +righ t(convert( varchar(30 ),H_VISN_W AITING_LIS T.REQ_DATE ,109),2) 
  287                                       WHEN 'U ' THEN
  288                                               CASE WHEN  PREVIOUS_H _VISN_WAIT ING_LIST.P K IS NOT N ULL AND PR EVIOUS_H_V ISN_WAITIN G_LIST.REQ _DATE = H_ VISN_WAITI NG_LIST.RE Q_DATE THE N ''
  289                                                        W HEN PREVIO US_H_VISN_ WAITING_LI ST.PK IS N OT NULL AN D PREVIOUS _H_VISN_WA ITING_LIST .REQ_DATE  IS NOT NUL L AND H_VI SN_WAITING _LIST.REQ_ DATE IS NU LL THEN 'D ELETED PRE VIOUS INFO RMATION'
  290                                                        E LSE   conv ert(varcha r(20),H_VI SN_WAITING _LIST.REQ_ DATE,101)+  ' '+conve rt(varchar (20),H_VIS N_WAITING_ LIST.REQ_D ATE,108)+  ' ' +right (convert(v archar(30) ,H_VISN_WA ITING_LIST .REQ_DATE, 109),2)            
  291                                               END 
  292                              END A S REQ_DATE ,
  293                              CASE  WHEN H_VIS N_WAITING_ LIST.CREAT ED_BY IS N ULL THEN ' SYSTEM' 
  294                                                        E LSE  H_VIS N_WAITING_ LIST.CREAT ED_BY
  295                                               END AS CRE ATED_BY,
  296                              H_VIS N_WAITING_ LIST.DATE_ FAC AS DAT E_FAC,
  297                             CASE H _VISN_WAIT ING_LIST.T RANSACTION _TYPE_CODE  WHEN 'I'  THEN 'Inse rted'
  298                                               WHEN 'U' T HEN 'Updat ed' WHEN ' D' THEN 'D eleted' EN D AS EVENT _TYPE
  299                    FROM  #HISTORY_ VISN_WAITI NG_LIST AS  H_VISN_WA ITING_LIST
  300                    LEFT  JOIN #HIS TORY_VISN_ WAITING_LI ST AS PREV IOUS_H_VIS N_WAITING_ LIST ON PR EVIOUS_H_V ISN_WAITIN G_LIST.PK  = (SELECT  MAX(PK) FR OM #HISTOR Y_VISN_WAI TING_LIST  WHERE ACT_ ID = H_VIS N_WAITING_ LIST.ACT_I D AND PK <  H_VISN_WA ITING_LIST .PK)
  301                    LEFT  JOIN #PAT IENTS AS P ATIENT ON  PATIENT.PA TIENT_UID  = H_VISN_W AITING_LIS T.PATIENT_ UID
  302                    ORDE R BY  H_VI SN_WAITING _LIST.FACI LITY_NAME,  H_VISN_WA ITING_LIST .ACT_ID,   H_VISN_WAI TING_LIST. DATE_FAC 
  303    
  304                    DROP  TABLE #HI STORY_VISN _WAITING_L IST
  305                    DROP  TABLE #PA TIENTS
  306           EN D
  307                    
  308           EN D
  309           
  310   END
  311  
  312   GO

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