Produced by Araxis Merge on 8/17/2018 9:15:19 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.
| # | Location | File | Last Modified |
|---|---|---|---|
| 1 | ADR FY8 Q3 CIF submission.zip\ADR FY8 Q3 CIF submission\DDL\ADR | package.sql | Mon Jul 30 14:55:48 2018 UTC |
| 2 | ADR FY8 Q3 CIF submission.zip\ADR FY8 Q3 CIF submission\DDL\ADR | package.sql | Wed Aug 15 15:50:56 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 2 | 580 |
| Changed | 1 | 2 |
| Inserted | 0 | 0 |
| Removed | 0 | 0 |
| 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 |
No regular expressions were active.
| 1 | DROP PACKA GE ADR.IAM _UTIL_PKG; | |
| 2 | ||
| 3 | CREATE OR REPLACE PA CKAGE ADR. IAM_UTIL_P KG AUTHID CURRENT_US ER | |
| 4 | AS | |
| 5 | ||
| 6 | TYPE var char2_tabl e IS TABLE OF VARCHA R2(32767) INDEX BY B INARY_INTE GER; | |
| 7 | ||
| 8 | PROCEDUR E USERS_IA M_INSERT_S P( | |
| 9 | p_USER NAME IN USERS .USERNAME% TYPE, | |
| 10 | p_LAST _NAME IN USER S.LAST_NAM E%TYPE, | |
| 11 | p_FIRS T_NAME IN USE RS.FIRST_N AME%TYPE, | |
| 12 | p_MIDD LE_NAME IN US ERS.MIDDLE _NAME%TYPE , | |
| 13 | p_STD_ INSTITUTIO N_ID IN STD_INSTI TUTION.ID% TYPE, | |
| 14 | p_JOB_ TITLE IN USER S.JOB_TITL E%TYPE, | |
| 15 | p_PASS WORD IN USERS .PASSWORD% TYPE, | |
| 16 | p_ACCO UNT_EXPIRE _DATE I N USERS.AC COUNT_EXPI RE_DATE%TY PE, | |
| 17 | p_PASS WORD_EXPIR E_DATE IN USERS.P ASSWORD_EX PIRE_DATE% TYPE, | |
| 18 | p_AGRE EMENT_SIGN ATURE_CODE IN USERS. AGREEMENT_ SIGNATURE_ CODE%TYPE, | |
| 19 | p_PASS WORD_CHANG E_DATE IN USERS.P ASSWORD_CH ANGE_DATE% TYPE, | |
| 20 | p_PASS WORD_CREAT E_DATE IN USERS.P ASSWORD_CR EATE_DATE% TYPE, | |
| 21 | p_INAC TIVE_FLAG IN USERS.INAC TIVE_FLAG% TYPE, | |
| 22 | p_NUMB ER_OF_LOGI N_ATTEMPTS IN USERS. NUMBER_OF_ LOGIN_ATTE MPTS%TYPE, | |
| 23 | p_SIGN ATURE_VERI FIED_IND IN USERS. SIGNATURE_ VERIFIED_I ND%TYPE, | |
| 24 | p_ROLE S IN VARC HAR2); | |
| 25 | ||
| 26 | PROCEDUR E USERS_IA M_UPDATE_S P ( | |
| 27 | p_USER NAME IN USERS .USERNAME% TYPE, | |
| 28 | p_LAST _NAME IN USER S.LAST_NAM E%TYPE, | |
| 29 | p_FIRS T_NAME IN USE RS.FIRST_N AME%TYPE, | |
| 30 | p_MIDD LE_NAME IN US ERS.MIDDLE _NAME%TYPE , | |
| 31 | p_STD_ INSTITUTIO N_ID IN STD_INSTI TUTION.ID% TYPE, | |
| 32 | p_JOB_ TITLE IN USER S.JOB_TITL E%TYPE, | |
| 33 | p_PASS WORD IN USERS .PASSWORD% TYPE, | |
| 34 | p_ACCO UNT_EXPIRE _DATE I N USERS.AC COUNT_EXPI RE_DATE%TY PE, | |
| 35 | p_PASS WORD_EXPIR E_DATE IN USERS.P ASSWORD_EX PIRE_DATE% TYPE, | |
| 36 | p_AGRE EMENT_SIGN ATURE_CODE IN USERS. AGREEMENT_ SIGNATURE_ CODE%TYPE, | |
| 37 | p_PASS WORD_CHANG E_DATE IN USERS.P ASSWORD_CH ANGE_DATE% TYPE, | |
| 38 | p_PASS WORD_CREAT E_DATE IN USERS.P ASSWORD_CR EATE_DATE% TYPE, | |
| 39 | p_INAC TIVE_FLAG IN USERS.INAC TIVE_FLAG% TYPE, | |
| 40 | p_NUMB ER_OF_LOGI N_ATTEMPTS IN USERS. NUMBER_OF_ LOGIN_ATTE MPTS%TYPE, | |
| 41 | p_SIGN ATURE_VERI FIED_IND IN USERS. SIGNATURE_ VERIFIED_I ND%TYPE, | |
| 42 | p_ROLE S IN VARC HAR2); | |
| 43 | ||
| 44 | PROCEDUR E USERS_IA M_DELETE_S P ( | |
| 45 | p_USER NAME IN USERS .USERNAME% TYPE); | |
| 46 | ||
| 47 | PROCEDUR E delimstr ing_to_tab le | |
| 48 | ( p_de limstring IN VARCHAR 2 | |
| 49 | , p_ta ble OUT va rchar2_tab le | |
| 50 | , p_nf ields OUT INTEGER | |
| 51 | , p_de lim IN VAR CHAR2 DEFA ULT ',' | |
| 52 | ); | |
| 53 | ||
| 54 | PROCEDUR E table_to _delimstri ng | |
| 55 | ( p_ta ble IN var char2_tabl e | |
| 56 | , p_de limstring OUT VARCHA R2 | |
| 57 | , p_de lim IN VAR CHAR2 DEFA ULT ',' | |
| 58 | ); | |
| 59 | ||
| 60 | END IAM_UT IL_PKG; | |
| 61 | / | |
| 62 | ||
| 63 | ||
| 64 | CREATE OR REPLACE PU BLIC SYNON YM IAM_UTI L_PKG FOR ADR.IAM_UT IL_PKG; | |
| 65 | ||
| 66 | ||
| 67 | GRANT EXEC UTE ON ADR .IAM_UTIL_ PKG TO IAM USR; | |
| 68 | DROP PACKA GE ADR.HL7 _ARCHIVE_P KG; | |
| 69 | ||
| 70 | CREATE OR REPLACE PA CKAGE ADR. Hl7_Archiv e_Pkg -- A UTHID CURR ENT_USER | |
| 71 | AS | |
| 72 | -- Declare externall y callable procedure s | |
| 73 | ||
| 74 | FUNCTION Hl7_Archi ve_Control | |
| 75 | (PN_st atus_code | |
| 76 | IN NUMBER) | |
| 77 | RETURN VARCHAR2; | |
| 78 | ||
| 79 | FUNCTION Hl7_Delet e_Control | |
| 80 | (PN_st atus_code | |
| 81 | IN NUMBER) | |
| 82 | RETURN VARCHAR2; | |
| 83 | ||
| 84 | PROCEDUR E Hl7_Proc ess_Archiv es | |
| 85 | (PB_ru n_standalo ne | |
| 86 | IN BOOLEA N DEFAULT FALSE, | |
| 87 | PB_al low_rpt_in st | |
| 88 | IN BOOLEA N DEFAULT FALSE | |
| 89 | ); | |
| 90 | ||
| 91 | PROCEDUR E Hl7_Proc ess_Delete s | |
| 92 | (PB_ru n_standalo ne | |
| 93 | IN BOOLEA N DEFAULT FALSE, | |
| 94 | PB_al low_rpt_in st | |
| 95 | IN BOOLEA N DEFAULT FALSE | |
| 96 | ); | |
| 97 | ||
| 98 | END Hl7_Ar chive_Pkg; | |
| 99 | / | |
| 100 | ||
| 101 | ||
| 102 | GRANT EXEC UTE ON ADR .HL7_ARCHI VE_PKG TO EEUSR; | |
| 103 | DROP PACKA GE ADR.ADR _UTIL; | |
| 104 | ||
| 105 | CREATE OR REPLACE PA CKAGE ADR. adr_util A UTHID CURR ENT_USER | |
| 106 | AS | |
| 107 | PROCEDUR E ADR_PIN_ SEQ; | |
| 108 | PROCEDUR E ADR_UNPI N_SEQ; | |
| 109 | PROCEDUR E ADR_PIN_ TRIGGERS; | |
| 110 | PROCEDUR E ADR_UNPI N_TRIGGERS ; | |
| 111 | END adr_ut il; | |
| 112 | / | |
| 113 | ||
| 114 | ||
| 115 | CREATE OR REPLACE PU BLIC SYNON YM ADR_UTI L FOR ADR. ADR_UTIL; | |
| 116 | ||
| 117 | ||
| 118 | GRANT EXEC UTE ON ADR .ADR_UTIL TO AACDBA; | |
| 119 | DROP PACKA GE ADR.MEC _PERIOD_PK G; | |
| 120 | ||
| 121 | CREATE OR REPLACE PA CKAGE ADR. MEC_PERIOD _PKG | |
| 122 | AS | |
| 123 | /****** ********** ********** ********** ********** ********** ********** ********** ** | |
| 124 | NAME : ME C_PERIOD_N EXT_GEN | |
| 125 | PURP OSE: Daily update¿ME C_PERIOD_N EXT_GEN fo r new chan ges | |
| 126 | ||
| 127 | REVI SIONS: | |
| 128 | Ver Dat e A uthor Desc ription | |
| 129 | ---- ----- --- ------- - ---------- ---- ---- ---------- ---------- ---------- -- | |
| 130 | 1.0 Feb/04/201 6 DNS 1. Created this pack age. | |
| 131 | ******* ********** ********** ********** ********** ********** ********** ********** */ | |
| 132 | g_pkg_n ame CONSTA NT VARCHAR 2 (50) := 'MEC_PERIO D_PKG'; | |
| 133 | g_param _name_for_ lower_boun d CONSTA NT VARCHAR 2 (60) := 'MEC_PERIO D_LOWER_BO UND'; | |
| 134 | g_final _rec_cnt INTEGER := 0; | |
| 135 | g_job_n ame VARCHAR 2 (60); | |
| 136 | g_curre nt_lower_b ound INTEGER ; | |
| 137 | ||
| 138 | -- This is only a Public pr ocedure th at is avai lable for execution and rest o f the proc edures are all priva te. | |
| 139 | PROCEDU RE KICK_OF F_MEC_PERI OD; | |
| 140 | END MEC_PE RIOD_PKG; | |
| 141 | / | |
| 142 | ||
| 143 | ||
| 144 | CREATE OR REPLACE PU BLIC SYNON YM MEC_PER IOD_PKG FO R ADR.MEC_ PERIOD_PKG ; | |
| 145 | DROP PACKA GE ADR.SF_ TIMER; | |
| 146 | ||
| 147 | CREATE OR REPLACE PA CKAGE ADR. sf_timer | |
| 148 | IS | |
| 149 | /* Spec ification of Set/Get for "fact or" */ | |
| 150 | PROCEDU RE set_fac tor (facto r_in IN NU MBER); | |
| 151 | ||
| 152 | FUNCTIO N factor | |
| 153 | RETU RN NUMBER; | |
| 154 | ||
| 155 | /* Capt ure curren t value in DBMS_UTIL ITY.GET_TI ME */ | |
| 156 | PROCEDU RE start_t imer (cont ext_in IN VARCHAR2 : = NULL); | |
| 157 | ||
| 158 | /* Retu rn amount of time el apsed sinc e call to capture */ | |
| 159 | FUNCTIO N elapsed_ time | |
| 160 | RETU RN NUMBER; | |
| 161 | ||
| 162 | /* Cons truct mess age showin g time ela psed since call to c apture */ | |
| 163 | FUNCTIO N elapsed_ message ( | |
| 164 | pref ix_in IN VARCHAR2 : = NULL | |
| 165 | , adju st_in IN NUMBER := 0 | |
| 166 | , rese t_in IN BOOLEAN := TRUE | |
| 167 | , rese t_context_ in IN VARCHAR2 : = NULL | |
| 168 | ) | |
| 169 | RETU RN VARCHAR 2; | |
| 170 | ||
| 171 | /* Disp lay messag e of elaps ed time */ | |
| 172 | PROCEDU RE show_el apsed_time ( | |
| 173 | pref ix_in IN VARCHAR 2 := NULL | |
| 174 | , adju st_in IN NUMBER := 0 | |
| 175 | , rese t_in IN BOOLEAN := TRUE | |
| 176 | ); | |
| 177 | END sf_tim er; | |
| 178 | / | |
| 179 | ||
| 180 | ||
| 181 | CREATE OR REPLACE PU BLIC SYNON YM SF_TIME R FOR ADR. SF_TIMER; | |
| 182 | DROP PACKA GE ADR.CCN _SRV_LOAD_ PKG; | |
| 183 | ||
| 184 | CREATE OR REPLACE PA CKAGE ADR. CCN_SRV_LO AD_PKG | |
| 185 | AS | |
| 186 | ||
| 187 | -- ***** ********** ********** ********** ********** ********* | |
| 188 | -- Purpo se: This p ackage is to mainly use for va rious ADR maintenanc e tasks | |
| 189 | -- | |
| 190 | -- Versi on Date Who Des cription | |
| 191 | -- ===== == ======= === ====== ====== === ========== ========== ========== ====== | |
| 192 | ||
| 193 | -- 1.0 05/30/20 17 Richar d Do Thi s package is to load data into ccn_servi ce_log via pipe row pipelined | |
| 194 | -- Sta ging table s: | |
| 195 | -- CCN_PERSON _SELECTED_ STG' | |
| 196 | -- CCN_ADDRES S_STG | |
| 197 | -- CCN_ADDRES S_H_STG | |
| 198 | -- CCN_PREFER ED_FACILIT Y_H_STG' | |
| 199 | -- CCN_EMAIL_ STG | |
| 200 | -- CCN_GEOCOD E_TRANSMIT _STG' | |
| 201 | -- CCN_PHONE_ STG | |
| 202 | -- CCN_DATALO AD_LOG_STG | |
| 203 | -- CCN_SERVIC E_LOG_LOAD _VW | |
| 204 | -- Main SP: PROCE SS_CCN_SER VICE_LOG_M AIN | |
| 205 | -- Stat s Log tabl e: CCN_DAT ALOAD_LOG_ STG | |
| 206 | ||
| 207 | CC_MODU LE_NAME C ONSTANT VA RCHAR2(40) := 'CCN_S RV_LOAD_PK G'; | |
| 208 | gc_sp_n ame VARCHA R2(120); | |
| 209 | gc_acti on_name VARCHA R2(500); | |
| 210 | gc_cnt NUMBER ; | |
| 211 | ||
| 212 | gc_bulk _limit NUM BER DEFAUL T 10000; | |
| 213 | gc_para llel_dop PL S_INTEGER DEFAULT 10 000; | |
| 214 | ||
| 215 | TYPE CC N_SRVLOG_R EC IS RECO RD ( | |
| 216 | per son_id cc n_service_ log.person _id%TYPE, | |
| 217 | rec ord_modifi ed_date cc n_service_ log.record _modified_ date%TYPE | |
| 218 | ); | |
| 219 | ||
| 220 | TYPE CC N_SRVLOG_T ABLE IS TA BLE OF CCN _SRVLOG_RE C INDEX BY BINARY_IN TEGER; | |
| 221 | CCN_SRV LOG_TAB CC N_SRVLOG_T ABLE; | |
| 222 | ||
| 223 | TYPE cc n_staging_ rowcount_r ec IS RECO RD | |
| 224 | ( | |
| 225 | rowc ount_perso n NUMBER , | |
| 226 | rowc ount_addr NUMBER , | |
| 227 | rowc ount_addr_ h NUMBER , | |
| 228 | rowc ount_prefa c NUMBER , | |
| 229 | rowc ount_email NUMBER , | |
| 230 | rowc ount_phone NUMBER , | |
| 231 | rowc ount_geotr ans NUMBER | |
| 232 | ); | |
| 233 | ||
| 234 | ccn_s tage_rowco unt_rec ccn_stagin g_rowcount _rec; | |
| 235 | ||
| 236 | TYPE CC NSERVICELO G_TGT_REC IS RECORD( | |
| 237 | SE RVICE_LOG_ STAT_ID NUMBER( 20), | |
| 238 | PE RSON_ID NUMBER( 20), | |
| 239 | FI RST_NAME VARCHAR 2(35), | |
| 240 | LA ST_NAME VARCHAR 2(35), | |
| 241 | MI D_NAME VARCHAR 2(25), | |
| 242 | SU FFIX VARCHAR 2(10), | |
| 243 | DA TE_OF_BIRT H_TXT VARCHAR 2(30), | |
| 244 | DA TE_OF_DEAT H VARCHAR 2(20), | |
| 245 | BI RTH_SEX VARCHAR 2(1), | |
| 246 | MA ILING_ADDR ESS_H_ID NUMBER( 20) , | |
| 247 | EM AIL VARCHAR 2(128), | |
| 248 | VC ELIGIBILIT Y_H_ID NUMBER( 20), | |
| 249 | HP HONE_NUM VARCHAR 2(50), | |
| 250 | CP HONE_NUM VARCHAR 2(50), | |
| 251 | TP HONE_NUM VARCHAR 2(50), | |
| 252 | VI SN_GEO VARCHAR 2(10), | |
| 253 | RE SI_ADDRESS _H_ID NUMBER( 20), | |
| 254 | PR EFERRED_FA CILITY_H_I D NUMBER( 20), | |
| 255 | GE OCODE_STAT ION_H_ID NUMBER( 20), | |
| 256 | AD DR_RECORD_ MODIFIED_D ATE DATE, | |
| 257 | VC ELIGBTY_RE CORD_MODIF IED_DATE DATE, | |
| 258 | SV L_RECORD_M ODIFIED_DA TE DATE | |
| 259 | ); | |
| 260 | ||
| 261 | TYPE C CNSERVICEL OG_TGT_TAB IS TABLE OF CCNSERV ICELOG_TGT _REC; | |
| 262 | TYPE C CNSERVLOG_ SRC_REFCUR IS REF CU RSOR RETUR N ADR.CCN_ SERVICE_LO G_LOAD_VW% ROWTYPE; | |
| 263 | ||
| 264 | FUNCTIO N CCNSERVI CELOG_PTF (dataset_r efcur CCNS ERVLOG_SRC _REFCUR) | |
| 265 | RETURN CCNSERVIC ELOG_TGT_T AB | |
| 266 | PA RALLEL_ENA BLE(PARTIT ION datase t_refcur B Y HASH (PE RSON_ID)) PIPELINED; | |
| 267 | ||
| 268 | PROCEDU RE SET_BUL K_LOAD_LIM IT (p_bulk _load_lim IN NUMBER) ; | |
| 269 | PROCEDU RE SET_DOP (p_parall el_dop IN NUMBER); | |
| 270 | PROCEDU RE INITIAL IZE_COLLEC TION; | |
| 271 | PROCEDU RE POSTCHE CK_PROC; | |
| 272 | PROCEDU RE PRECHEC K_PROC(p_r eady_run_s tatus OUT BOOLEAN); | |
| 273 | PROCEDU RE ALTER_S ESSION_SET TINGS (p_d op NUMBER) ; | |
| 274 | PROCEDU RE PURGE_S TG_TABLE; | |
| 275 | PROCEDU RE LOAD_SE LECTED_PER SON_STG; | |
| 276 | PROCEDU RE LOAD_AD DR_STG; | |
| 277 | PROCEDU RE LOAD_AD DR_H_STG; | |
| 278 | PROCEDU RE LOAD_PR EFERED_FAC ILITY_H_ST G; | |
| 279 | PROCEDU RE LOAD_EM AIL_STG; | |
| 280 | PROCEDU RE LOAD_GE OCODE_TRAN SMIT_STG; | |
| 281 | PROCEDU RE LOAD_PH ONE_STG; | |
| 282 | PROCEDU RE LOAD_SR V_LOG_DATA (p_total_ count OUT NUMBER); | |
| 283 | PROCEDU RE UPDATE_ SRV_LOG_DA TA (p_tota l_count OU T NUMBER); | |
| 284 | -- Main program | |
| 285 | PROCEDU RE PROCESS _CCN_SERVI CE_LOG_MAI N; | |
| 286 | ||
| 287 | END CCN_SR V_LOAD_PKG ; | |
| 288 | / | |
| 289 | ||
| 290 | ||
| 291 | CREATE OR REPLACE PU BLIC SYNON YM CCN_SRV _LOAD_PKG FOR ADR.CC N_SRV_LOAD _PKG; |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.