· 6 years ago · Jan 08, 2020, 05:28 AM
108-01-2020 10.53.18 AM 0:00:11.436: Lookup Error - DB2 Database Error: ERROR [42821] [IBM][DB2/LINUXX8664] A value is not compatible with the data type of its assignment target. Target name is "LD_HIGH_DATE".
2CombinedBatch.sql:6: CREATE OR REPLACE PROCEDURE BATCH_CM_GEN_ALERT$SP_GENERATE_TASK
3/*
4PROCEDURE NAME : BATCH_CM_GEN_ALERT$SP_GENERATE_TASK
5DESCRIPTION : AUTOMATIC GENERATION OF ALERTS DAILY BASED ON THE APPROPRIATE SCENARIOS.
6*/
7BEGIN
8 DECLARE
9 LI_ZERO_NUMB INTEGER DEFAULT 0;
10 DECLARE LI_RESTART_LINE_NUMB INTEGER DEFAULT 0;
11 DECLARE LI_ONE_MEDICAL_INSURANCE_IND INTEGER DEFAULT 1;
12 DECLARE LI_PROCESSED_RECORD_COUNT_NUMB INTEGER DEFAULT 0;
13 DECLARE LI_ROLE_PROCESSED_COUNT_NUMB INTEGER DEFAULT 0;
14 DECLARE LI_TRANSACTION_EVENT_SEQ_NUMB INTEGER DEFAULT 0;
15 DECLARE LI_CUR_CNT INTEGER DEFAULT 0;
16 DECLARE SQLCODE INTEGER DEFAULT 0;
17 DECLARE LC_S_MSG_CODE CHAR (1) DEFAULT 'S';
18 DECLARE LC_A_MSG_CODE CHAR (1) DEFAULT 'A';
19 DECLARE LC_E_ERRORE_TYPE_CODE CHAR (1) DEFAULT 'E';
20 DECLARE LC_O_CASE_STATUS_CODE CHAR (1) DEFAULT 'O';
21 DECLARE LC_D_CASE_TYPE_CODE CHAR (1) DEFAULT 'D';
22 DECLARE LC_P_STATUS_CODE CHAR (1) DEFAULT 'P';
23 DECLARE LC_N_STATUS_CODE CHAR (1) DEFAULT 'N';
24 DECLARE LC_A_CASE_PARTY_STATUS_CODE ANCHOR DATA TYPE TO CASE_PERSON.CASE_PARTY_STATUS_CODE
25 DEFAULT 'A';
26 DECLARE LC_P_CASE_PARTY_ROLE_CODE ANCHOR DATA TYPE TO CASE_PERSON.CASE_PARTY_ROLE_CODE
27 DEFAULT 'P';
28 DECLARE LC_C_CASE_PARTY_ROLE_CODE ANCHOR DATA TYPE TO CASE_PERSON.CASE_PARTY_ROLE_CODE
29 DEFAULT 'C';
30 DECLARE LC_D_CASE_PARTY_ROLE_CODE ANCHOR DATA TYPE TO CASE_PERSON.CASE_PARTY_ROLE_CODE
31 DEFAULT 'D';
32 DECLARE LC_CI_SUBSYSTEM_CODE ANCHOR DATA TYPE TO PROCESS_DETAIL.PROCESS_SUBSYSTEM_CODE
33 DEFAULT 'CI';
34 DECLARE LC_CASS_PROCESS_CODE ANCHOR DATA TYPE TO REFM_TASK_STATUS.TASK_STATUS_CODE
35 DEFAULT 'CASS';
36 DECLARE LC_STRT_PROCESS_STATUS_CODE ANCHOR DATA TYPE TO REFM_TASK_STATUS.TASK_STATUS_CODE
37 DEFAULT 'STRT';
38 DECLARE LC_DMICE_TASK_CODE ANCHOR DATA TYPE TO TASK_USER_DETAIL.TASK_CODE
39 DEFAULT 'DMICE';
40 DECLARE LC_NEWRK_TASK_CODE ANCHOR DATA TYPE TO TASK_USER_DETAIL.TASK_CODE
41 DEFAULT 'NEWRK';
42 DECLARE LC_NESUP_TASK_CODE ANCHOR DATA TYPE TO TASK_USER_DETAIL.TASK_CODE
43 DEFAULT 'NESUP';
44 DECLARE LC_CCORE_TASK_CODE ANCHOR DATA TYPE TO TASK_USER_DETAIL.TASK_CODE
45 DEFAULT 'CCORE';
46 DECLARE LC_INSOI_TASK_CODE ANCHOR DATA TYPE TO TASK_USER_DETAIL.TASK_CODE
47 DEFAULT 'INSOI';
48 DECLARE LC_RSKDT_TASK_CODE ANCHOR DATA TYPE TO TASK_USER_DETAIL.TASK_CODE
49 DEFAULT 'RSKDT';
50 DECLARE LC_SPNTD_TASK_CODE ANCHOR DATA TYPE TO TASK_USER_DETAIL.TASK_CODE
51 DEFAULT 'SPNTD';
52 DECLARE LC_BATCH_RUN_USER_CODE CHAR (5) DEFAULT 'BATCH';
53 DECLARE LC_I0162_ERROR_CODE ANCHOR DATA TYPE TO ERROR_MESSAGE.ERROR_CODE
54 DEFAULT 'I0162';
55 DECLARE LC_MSG_CODE CHAR (5) DEFAULT ' ';
56 DECLARE LC_JOB_CODE ANCHOR DATA TYPE TO JOB_PARM.JOB_CODE
57 DEFAULT 'NVB0130';
58 DECLARE LC_GEN_NOTICE_JOB_CODE ANCHOR DATA TYPE TO JOB_PARM.JOB_CODE
59 DEFAULT 'NVB0450';
60 DECLARE LS_PROCEDURE_NAME ANCHOR DATA TYPE TO BATCH_STATUS_LOG.PROCEDURE_NAME
61 DEFAULT 'SP_GENERATE_TASK';
62 DECLARE LS_PROCESS_NAME ANCHOR DATA TYPE TO BATCH_STATUS_LOG.PROCESS_NAME
63 DEFAULT 'BATCH_CM_GEN_ALERT';
64 DECLARE LD_HIGH_DATE DATE DEFAULT '12/30/9999';
65 DECLARE LD_LOW_DATE DATE DEFAULT '01/01/0001';
66 DECLARE LI_PARM_COMMIT_FREQ_NUMB INTEGER;
67 DECLARE LI_PARM_EXCEPTION_THRESHOLD_QNTY INTEGER;
68 DECLARE LC_TASKCUR_TASK_CODE CHAR (5);
69 DECLARE LC_SQLSTATE_CODE CHAR (5);
70 DECLARE LS_SQL_DESC VARCHAR (200);
71 DECLARE LS_SQL_DATA_DESC VARCHAR (2000);
72 DECLARE LS_ERROR_DESC VARCHAR (4000);
73 DECLARE LS_SQL_ERROR_DESC VARCHAR (4000);
74 DECLARE LD_RUN_DATE ANCHOR DATA TYPE TO JOB_PARM.RUN_DATE;
75 DECLARE LD_LASTRUN_DATE ANCHOR DATA TYPE TO JOB_PARM.RUN_DATE;
76 DECLARE LD_START_DATE TIMESTAMP;
77 DECLARE TASK_CUR CURSOR;
78
79 DECLARE EXIT HANDLER FOR SQLEXCEPTION
80 BEGIN
81 GET DIAGNOSTICS EXCEPTION 1
82 LS_SQL_ERROR_DESC = MESSAGE_TEXT;
83
84 --ROLLBACK TRANSACTION
85 ROLLBACK WORK TO SAVEPOINT GEN_ALERT;
86
87 IF LC_SQLSTATE_CODE <> 75000
88 THEN
89 SET LS_ERROR_DESC = LS_SQL_ERROR_DESC;
90 END IF;
91
92 CALL BATCH_COMMON$SP_GET_ERROR_DESCRIPTION (
93 AS_PROCEDURE_NAME => LS_PROCEDURE_NAME,
94 AS_ERROR_MESSAGE_DESC => LS_ERROR_DESC,
95 AS_SQL_DESC => LS_SQL_DESC,
96 AS_SQL_DATA_DESC => LS_SQL_DATA_DESC,
97 AS_ERROR_DESC => LS_ERROR_DESC);
98
99 --LOG THE STATUS OF THE BATCH WITH STATUS CODE OF A - ABEND AND THE ERROR DESCRIPTION IN BATCH_STATUS_LOG TABLE.
100 CALL BATCH_COMMON$SP_BSTL_LOG (
101 AD_RUN_DATE => LD_RUN_DATE,
102 AD_JOB_START_DTTM => LD_RUN_DATE,
103 AC_JOB_CODE => LC_JOB_CODE,
104 AS_CURSOR_LOCATION_DESC => LS_PROCESS_NAME,
105 AS_EXEC_LOCATION_DESC => LS_SQL_DESC,
106 AS_LIST_KEY_NOTE => LS_SQL_DATA_DESC,
107 AS_STATUS_NOTE => LS_ERROR_DESC,
108 AC_ERROR_STATUS_CODE => LC_A_MSG_CODE,
109 AS_UPDATED_BY_NAME => LC_BATCH_RUN_USER_CODE,
110 AI_PROCESSED_RECORD_COUNT_NUMB => LI_ZERO_NUMB,
111 AS_PROCESS_NAME => LS_PROCESS_NAME,
112 AS_PROCEDURE_NAME => LS_PROCEDURE_NAME);
113 END;
114
115 SAVEPOINT GEN_ALERT ON ROLLBACK RETAIN CURSORS;
116
117 -- SELECTING THE BATCH START TIME
118 SET LS_SQL_DESC = 'GET BATCH START DATE';
119 SET LS_SQL_DATA_DESC =
120 'JOB_CODE = ' || LC_JOB_CODE || ', RUN_DATE = ' || LD_RUN_DATE;
121 SET LD_START_DATE = BATCH_COMMON_SCALAR$SF_SYS_DATE_TIME ();
122
123 -- SELECTING DATE RUN, DATE LAST RUN, COMMIT FREQ, EXCEPTION THRESHOLD DETAILS
124 SET LS_SQL_DESC = 'BATCH_COMMON$SP_UPDATE_PARM_DATE';
125 SET LS_SQL_DATA_DESC =
126 'JOB_CODE = ' || LC_JOB_CODE || ', RUN_DATE = ' || LD_RUN_DATE;
127
128 CALL BATCH_COMMON$SP_GET_BATCH_DETAILS (
129 AC_JOB_CODE => LC_JOB_CODE,
130 AD_RUN_DATE => LD_RUN_DATE,
131 AD_LAST_RUN_DATE => LD_LASTRUN_DATE,
132 AI_COMMIT_FREQ_NUMB => LI_PARM_COMMIT_FREQ_NUMB,
133 AI_EXCEPTION_THRESHOLD_NUMB => LI_PARM_EXCEPTION_THRESHOLD_QNTY,
134 AC_MSG_CODE => LC_MSG_CODE,
135 AS_ERROR_DESC => LS_ERROR_DESC);
136
137 IF LC_MSG_CODE <> LC_S_MSG_CODE
138 THEN
139 SET LC_SQLSTATE_CODE = '75000';
140 SIGNAL SQLSTATE '75000';
141 END IF;
142
143 --CREATE TABLE TEST_DATE (DATE1 DATE,DATE2 DATE);
144 -- CHECK WHETHER THE JOB RAN ALREADY ON SAME DAY
145
146 IF LD_LASTRUN_DATE + 1 DAY > LD_RUN_DATE
147 THEN
148 SET LS_ERROR_DESC = 'PARM DATE PROBLEM';
149 SET LC_SQLSTATE_CODE = '75000';
150 SIGNAL SQLSTATE '75000';
151 END IF;
152
153 SET LS_SQL_DESC = 'DELETE THE TEMP_BULK_GENERATE';
154 SET LS_SQL_DATA_DESC =
155 'JOB_CODE = ' || LC_JOB_CODE || ', RUN_DATE = ' || LD_RUN_DATE;
156
157 DELETE FROM TEMP_BULK_GENERATE;
158
159
160 /*DMICE - DEPENDENT MEDICAL INSURANCE COVERAGE EXPIRED.
161 THE SYSTEM CHECKS IF THE CHILD'S MEDICAL INSURANCE EXPIRED FOR THE CASE BASED ON THE BELOW CONDITIONS:
162 THE CASE IS AN OPEN IV-D CASE.
163 THE PARTICIPANT IN THE CASE MUST BE A CHILD.
164 THE PARTICIPANT OF THE CASE MUST BE ACTIVE.
165 THE MEDICAL INSURANCE HAS EXPIRED ON AT LEAST ONE ACTIVE CHILD IN THE CHILD INSURANCE TABLE.*/
166
167 SET LS_SQL_DESC = 'INSERT INTO THE TEMP_BULK_GENERATE';
168 SET LS_SQL_DATA_DESC =
169 'JOB_CODE = ' || LC_JOB_CODE || ', RUN_DATE = ' || LD_RUN_DATE;
170
171 INSERT INTO TEMP_BULK_GENERATE (CASE_NUMB,
172 PERSON_NUMB,
173 TASK_CODE,
174 SUBSYSTEM_CODE,
175 COMMENT_NOTE)
176 SELECT Y.CASE_ID,
177 Y.PERSON_ID,
178 LC_DMICE_TASK_CODE AS TASK_CODE,
179 LC_CI_SUBSYSTEM_CODE,
180 ' '
181 FROM (SELECT B.CASE_ID, A.CHILD_ID AS PERSON_ID
182 FROM DEPENDENT_INSURANCE A
183 JOIN CASE_PERSON B ON A.CHILD_ID = B.PERSON_ID
184 JOIN CASE_DETAIL C ON B.CASE_ID = C.CASE_ID
185 WHERE A.INSURANCE_END_DATE BETWEEN LD_LASTRUN_DATE + 1
186 AND LD_RUN_DATE
187 AND A.MEDICAL_INSURANCE_IND = LI_ONE_MEDICAL_INSURANCE_IND
188 AND B.CASE_PARTY_ROLE_CODE = LC_D_CASE_PARTY_ROLE_CODE
189 AND B.CASE_PARTY_STATUS_CODE = LC_A_CASE_PARTY_STATUS_CODE
190 AND C.CASE_STATUS_CODE = LC_O_CASE_STATUS_CODE
191 AND C.CASE_TYPE_CODE <> LC_D_CASE_TYPE_CODE
192 GROUP BY B.CASE_ID, A.CHILD_ID) Y
193 UNION
194 /* 1. THE SYSTEM CHECKS IF THE CASE COUNTY HAS BEEN REASSIGNED BASED ON THE FOLLOWING CONDITIONS:
195A. THE CASE IS AN OPEN CASE.
196B. THE CASE IS TRANSFERRED TO A DIFFERENT COUNTY ON THE BATCH PROCESS DATE.
197C. A CASEWORKER FROM THE NEW COUNTY IS ASSIGNED TO THE CASE.*/
198 SELECT Y.CASE_ID,
199 Y.PERSON_ID,
200 LC_CCORE_TASK_CODE AS TASK_CODE,
201 LC_CI_SUBSYSTEM_CODE,
202 ' '
203 FROM (SELECT A.CASE_ID, B.PERSON_ID
204 FROM CASE_DETAIL_HIST A
205 JOIN CASE_PERSON B ON A.CASE_ID = B.CASE_ID
206 JOIN CASE_DETAIL C ON A.CASE_ID = C.CASE_ID
207 WHERE C.BEGIN_VALIDITY_DTTM = LD_RUN_DATE
208 AND A.OFFICE_CODE != C.OFFICE_CODE
209 AND B.CASE_PARTY_STATUS_CODE = LC_A_CASE_PARTY_STATUS_CODE
210 AND C.CASE_STATUS_CODE = LC_O_CASE_STATUS_CODE
211 AND EXISTS
212 (SELECT 1
213 FROM CASE_DETAIL_HIST UA
214 WHERE UA.CASE_ID = C.CASE_ID
215 AND UA.OFFICE_CODE != C.OFFICE_CODE
216 AND UA.BEGIN_VALIDITY_DTTM = LD_RUN_DATE)
217 GROUP BY A.CASE_ID, B.PERSON_ID) Y
218 UNION
219 /*
220 1. THE SYSTEM CHECKS IF THE SUPPORT ORDER RE-SEEK DATE HAS BEEN REACHED BASED ON THE FOLLOWING CONDITIONS:
221 A. THE CASE IS AN OPEN IV-D CASE.
222 B. A SUPPORT ORDER EXISTS.
223 C. THE RE-SEEK DATE IS LESS THAN OR EQUAL TO THE BATCH PROCESS DATE.
224 */
225
226 SELECT A.CASE_ID,
227 0 AS PERSON_ID,
228 LC_RSKDT_TASK_CODE AS TASK_CODE,
229 LC_CI_SUBSYSTEM_CODE,
230 ' '
231 FROM SUPPORT_ORDER A JOIN CASE_DETAIL B ON A.CASE_ID = B.CASE_ID
232 WHERE A.RESEEK_DATE BETWEEN LD_LASTRUN_DATE + 1 AND LD_RUN_DATE
233 AND B.CASE_STATUS_CODE = LC_O_CASE_STATUS_CODE
234 AND B.CASE_TYPE_CODE <> LC_D_CASE_TYPE_CODE
235 GROUP BY A.CASE_ID
236 UNION
237 /*1. THE SYSTEM CHECKS FOR REFERRALS OR NEWLY CREATED CASES WHERE CASE ASSESSMENT IS NOT COMPLETE AND 10 CALENDAR DAYS HAVE ELAPSED, BASED ON THE FOLLOWING CONDITIONS:
238 A. THE CASE IS AN OPEN IV-D CASE.
239 B. THE CASE ASSESSMENT PROCESS FLOW IS IN THE STATUS 'IN PROGRESS', AND 10 CALENDAR DAYS HAVE PASSED SINCE THE CASE WAS CREATED. OR:
240 C. THE REFERRAL FROM IV-A/IV-E/TITLE XIX IS PENDING CREATION OF A CASE FOR AT LEAST 10 CALENDAR DAYS FROM THE DATE ON WHICH THE REFERRAL WAS RECEIVED. OR:
241 D. THE NON-TANF APPLICATION IS PENDING CREATION OF A CASE FOR AT LEAST 10 CALENDAR DAYS FROM THE DATE ON WHICH THE CST SIGNED THE APPLICATION.*/
242
243 SELECT Y.CASE_ID,
244 Y.PERSON_ID,
245 LC_NEWRK_TASK_CODE AS TASK_CODE,
246 LC_CI_SUBSYSTEM_CODE,
247 ' '
248 FROM (SELECT A.CASE_ID, B.PERSON_ID
249 FROM PROCESS_STATUS_DETAIL A
250 JOIN CASE_PERSON B ON A.CASE_ID = B.CASE_ID
251 JOIN CASE_DETAIL C ON A.CASE_ID = C.CASE_ID
252 WHERE A.PROCESS_CODE = LC_CASS_PROCESS_CODE
253 AND A.PROCESS_STATUS_CODE = LC_STRT_PROCESS_STATUS_CODE
254 AND DAYS_BETWEEN (LD_RUN_DATE, C.OPENED_DATE) >= 10
255 AND B.CASE_PARTY_STATUS_CODE = LC_A_CASE_PARTY_STATUS_CODE
256 AND C.CASE_STATUS_CODE = LC_O_CASE_STATUS_CODE
257 AND C.CASE_TYPE_CODE <> LC_D_CASE_TYPE_CODE) Y
258 UNION
259 SELECT NVL (Y.CASE_ID, 0),
260 Y.PERSON_ID,
261 LC_NEWRK_TASK_CODE AS TASK_CODE,
262 LC_CI_SUBSYSTEM_CODE,
263 ' '
264 FROM (SELECT A.CASE_ID, 0 PERSON_ID
265 FROM PENDING_REFERRAL_CASE A
266 WHERE A.REFERRAL_STATUS_CODE = LC_P_STATUS_CODE
267 AND DAYS_BETWEEN (LD_RUN_DATE, A.REFERRAL_DATE) >= 10) Y
268 UNION
269 SELECT 0 CASE_ID,
270 0 PERSON_ID,
271 LC_NEWRK_TASK_CODE AS TASK_CODE,
272 LC_CI_SUBSYSTEM_CODE,
273 ' '
274 FROM APPLICATION_CASE A
275 WHERE A.APPLICATION_STATUS_CODE = LC_P_STATUS_CODE
276 AND DAYS_BETWEEN (LD_RUN_DATE, A.APPLICATION_SIGNED_DATE) >= 10
277 AND A.CASE_IGV_TYPE_CODE = LC_N_STATUS_CODE
278 UNION
279 /*1. THE SYSTEM CHECKS FOR REFERRALS FOR NON-TANF APPLICATIONS OR NEWLY CREATED CASES WHERE CASE ASSESSMENT IS NOT COMPLETE AND 14 CALENDAR DAYS HAVE ELAPSED, BASED ON THE FOLLOWING CONDITIONS:
280 A. THE CASE IS AN OPEN IV-D CASE. AND:
281 B. THE CASE ASSESSMENT PROCESS FLOW IS IN THE STATUS 'IN PROGRESS' AND 14 CALENDAR DAYS HAVE PASSED SINCE THE CASE WAS CREATED. OR:
282 C. THE REFERRAL FROM IV-A/IV-E/TITLE XIX IS PENDING CREATION OF A CASE FOR AT LEAST 14 CALENDAR DAYS FROM THE DATE ON WHICH THE REFERRAL WAS RECEIVED. OR:
283 D. THE NON-TANF APPLICATION IS PENDING CREATION OF A CASE FOR AT LEAST 14 CALENDAR DAYS FROM THE DATE ON WHICH THE CST SIGNED THE APPLICATION.*/
284
285 SELECT NVL (Y.CASE_ID, 0),
286 Y.PERSON_ID,
287 LC_NESUP_TASK_CODE AS TASK_CODE,
288 LC_CI_SUBSYSTEM_CODE,
289 ' '
290 FROM (SELECT A.CASE_ID, B.PERSON_ID
291 FROM PROCESS_STATUS_DETAIL A
292 JOIN CASE_PERSON B ON A.CASE_ID = B.CASE_ID
293 JOIN CASE_DETAIL C ON A.CASE_ID = C.CASE_ID
294 WHERE A.PROCESS_CODE = LC_CASS_PROCESS_CODE
295 AND A.PROCESS_STATUS_CODE = LC_STRT_PROCESS_STATUS_CODE
296 AND DAYS_BETWEEN (LD_RUN_DATE, C.OPENED_DATE) >= 14
297 AND B.CASE_PARTY_STATUS_CODE = LC_A_CASE_PARTY_STATUS_CODE
298 AND C.CASE_STATUS_CODE = LC_O_CASE_STATUS_CODE
299 AND C.CASE_TYPE_CODE <> LC_D_CASE_TYPE_CODE) Y
300 UNION
301 SELECT NVL (Y.CASE_ID, 0),
302 Y.PERSON_ID,
303 LC_NESUP_TASK_CODE AS TASK_CODE,
304 LC_CI_SUBSYSTEM_CODE,
305 ' '
306 FROM (SELECT A.CASE_ID, 0 PERSON_ID
307 FROM PENDING_REFERRAL_CASE A
308 WHERE A.REFERRAL_STATUS_CODE = LC_P_STATUS_CODE
309 AND DAYS_BETWEEN (LD_RUN_DATE, A.REFERRAL_DATE) >= 14) Y
310 UNION
311 SELECT 0 CASE_ID,
312 0 PERSON_ID,
313 LC_NESUP_TASK_CODE AS TASK_CODE,
314 LC_CI_SUBSYSTEM_CODE,
315 ' '
316 FROM APPLICATION_CASE A
317 WHERE A.APPLICATION_STATUS_CODE = LC_P_STATUS_CODE
318 AND DAYS_BETWEEN (LD_RUN_DATE, A.APPLICATION_SIGNED_DATE) >= 14
319 AND A.CASE_IGV_TYPE_CODE = LC_N_STATUS_CODE; --NON-TANF
320
321
322 SET LS_SQL_DESC = 'CALL BATCH_CM_GEN_ALERT$SP_UPDATE_PROCESS_PENDING_SOIN';
323 SET LS_SQL_DATA_DESC =
324 'JOB_CODE = ' || LC_JOB_CODE || ', RUN_DATE = ' || LD_RUN_DATE;
325
326 CALL BATCH_CM_GEN_ALERT$SP_UPDATE_PROCESS_PENDING_SOIN (
327 AD_RUN_DATE => LD_RUN_DATE,
328 AC_JOB_CODE => LC_JOB_CODE,
329 AC_MSG_CODE => LC_MSG_CODE,
330 AS_ERROR_DESC => LS_ERROR_DESC);
331
332 IF LC_MSG_CODE <> LC_S_MSG_CODE
333 THEN
334 SET LC_SQLSTATE_CODE = '75000';
335 SIGNAL SQLSTATE '75000';
336 END IF;
337
338 -- GET THE RECORD COUNT TO PROCESS
339 SET LS_SQL_DESC = 'GET THE RECORD COUNT FROM TEMP_BULK_GENERATE';
340 SET LS_SQL_DATA_DESC =
341 'JOB_CODE = ' || LC_JOB_CODE || ', RUN_DATE = ' || LD_RUN_DATE;
342
343 SELECT COUNT (1)
344 INTO LI_PROCESSED_RECORD_COUNT_NUMB
345 FROM TEMP_BULK_GENERATE A;
346
347 IF LI_PROCESSED_RECORD_COUNT_NUMB > 0
348 THEN
349 -- CURSOR TASK_CUR DECLARATION
350 BEGIN
351 DECLARE
352 TASK_CUR CURSOR FOR
353 SELECT A.TASK_CODE
354 FROM TEMP_BULK_GENERATE A
355 GROUP BY A.TASK_CODE;
356
357 -- OPEN CURSOR TASK_CUR
358 OPEN TASK_CUR;
359
360 FETCH_LOOP:
361 WHILE LI_CUR_CNT = 0
362 DO
363 FETCH TASK_CUR INTO LC_TASKCUR_TASK_CODE;
364
365 IF SQLCODE = 100
366 THEN
367 LEAVE FETCH_LOOP;
368 END IF;
369
370 -- GENERATE SEQUENCE NUMBER
371 SET LS_SQL_DESC = 'BATCH_COMMON$SP_GEN_SEQ_TXN_EVENT-1';
372 SET LS_SQL_DATA_DESC =
373 'JOB_CODE = '
374 || LC_JOB_CODE
375 || ', RUN_DATE = '
376 || LD_RUN_DATE;
377
378 -- CREATE TABLE TEST_RK (COL1 VARCHAR(100),COL2 VARCHAR(100),COL3 VARCHAR(100),COL4 VARCHAR(100),COL5 INTEGER,COL6 VARCHAR(100),COL7 VARCHAR(100))
379 CALL BATCH_COMMON$SP_GEN_SEQ_TXN_EVENT (
380 AS_UPDATED_BY_NAME => LC_BATCH_RUN_USER_CODE,
381 AC_SCREEN_CODE => NULL,
382 AC_JOB_CODE => LC_JOB_CODE,
383 AC_EVENT_FUNCTIONAL_CODE => NULL,
384 AI_TRANSACTION_EVENT_SEQ_NUMB =>
385 LI_TRANSACTION_EVENT_SEQ_NUMB,
386 AC_MSG_CODE => LC_MSG_CODE,
387 AS_ERROR_DESC => LS_ERROR_DESC);
388
389
390 IF LC_MSG_CODE <> LC_S_MSG_CODE
391 THEN
392 SET LC_SQLSTATE_CODE = '75000';
393 SIGNAL SQLSTATE '75000';
394 END IF;
395
396 -- CALLING BATCH_COMMON$SP_BULK_INSERT_TASK FOR THE GENERATION OF ALERTS.
397 SET LS_SQL_DESC =
398 'BATCH_COMMON$SP_BULK_INSERT_TASK - ALERT GENERATION';
399 SET LS_SQL_DATA_DESC =
400 'JOB_CODE = '
401 || LC_JOB_CODE
402 || ', RUN_DATE = '
403 || LD_RUN_DATE;
404
405 CALL BATCH_COMMON$SP_BULK_INSERT_TASK (
406 AC_TASK_CODE => LC_TASKCUR_TASK_CODE,
407 AC_PROCESS_CODE => LC_JOB_CODE,
408 AD_RUN_DATE => LD_RUN_DATE,
409 AI_UPDATED_BY_ID =>
410 BATCH_COMMON$SF_GET_USER_ID (LC_BATCH_RUN_USER_CODE),
411 AI_TRANSACTION_EVENT_SEQ_NUMB =>
412 LI_TRANSACTION_EVENT_SEQ_NUMB,
413 AS_REPLACE_DESC => NULL,
414 AC_MSG_CODE => LC_MSG_CODE,
415 AS_ERROR_DESC => LS_ERROR_DESC);
416
417 IF LC_MSG_CODE <> LC_S_MSG_CODE
418 THEN
419 BEGIN
420 SET LC_SQLSTATE_CODE = '75000';
421 SIGNAL SQLSTATE '75000';
422 END;
423 ELSEIF LC_MSG_CODE <> LC_S_MSG_CODE
424 THEN
425 BEGIN
426 -- UPDATE THE LOG IN BATCH_ERROR, IF THE BATCH_COMMON$SP_BULK_INSERT_TASK IS NOT SUCCEEDED.
427 CALL BATCH_COMMON$SP_BATE_LOG (
428 AC_JOB_CODE => LC_JOB_CODE,
429 AD_RUN_DATE => LD_RUN_DATE,
430 AC_ERROR_TYPE_CODE => LC_E_ERRORE_TYPE_CODE,
431 AI_LINE_NUMB => LI_RESTART_LINE_NUMB,
432 AC_ERROR_CODE => LC_MSG_CODE,
433 AS_ERROR_NOTE => LS_ERROR_DESC,
434 AS_LIST_KEY_NOTE => LS_SQL_DATA_DESC,
435 AS_UPDATED_BY_NAME => LC_BATCH_RUN_USER_CODE,
436 AS_PROCESS_NAME => LS_SQL_DESC,
437 AS_PROCEDURE_NAME => LS_PROCEDURE_NAME,
438 AC_MSG_CODE => LC_MSG_CODE,
439 AS_ERROR_DESC => LS_ERROR_DESC);
440
441 IF LC_MSG_CODE <> LC_S_MSG_CODE
442 THEN
443 SET LC_SQLSTATE_CODE = '75000';
444 SIGNAL SQLSTATE '75000';
445 END IF;
446 END;
447 END IF;
448 END WHILE FETCH_LOOP;
449 END;
450 ELSEIF LI_PROCESSED_RECORD_COUNT_NUMB > 0
451 THEN
452 -- UPDATE THE LOG IN BATCH_ERROR, IF NO RECORDS TO PROCESS.
453 SET LS_SQL_DESC = 'NO RECORDS TO PROCESS';
454 SET LS_SQL_DATA_DESC =
455 'JOB_CODE = ' || LC_JOB_CODE || ', RUN_DATE = ' || LD_RUN_DATE;
456 -- UPDATE THE LOG IN BATCH_ERROR, IF THE BATCH_COMMON$SP_BULK_INSERT_TASK IS NOT SUCCEEDED.
457
458 CALL BATCH_COMMON$SP_BATE_LOG (
459 AC_JOB_CODE => LC_JOB_CODE,
460 AD_RUN_DATE => LD_RUN_DATE,
461 AC_ERROR_TYPE_CODE => LC_E_ERRORE_TYPE_CODE,
462 AI_LINE_NUMB => LI_RESTART_LINE_NUMB,
463 AC_ERROR_CODE => LC_I0162_ERROR_CODE,
464 AS_ERROR_NOTE => LS_ERROR_DESC,
465 AS_LIST_KEY_NOTE => LS_SQL_DATA_DESC,
466 AS_UPDATED_BY_NAME => LC_BATCH_RUN_USER_CODE,
467 AS_PROCESS_NAME => LS_PROCESS_NAME,
468 AS_PROCEDURE_NAME => LS_PROCEDURE_NAME,
469 AC_MSG_CODE => LC_MSG_CODE,
470 AS_ERROR_DESC => LS_ERROR_DESC);
471
472 IF LC_MSG_CODE <> LC_S_MSG_CODE
473 THEN
474 SET LC_SQLSTATE_CODE = '75000';
475 SIGNAL SQLSTATE '75000';
476 END IF;
477 END IF;
478
479
480 --UPDATE THE PARAMETER TABLE WITH THE JOB RUN DATE AS THE CURRENT SYSTEM DATE.
481 SET LS_SQL_DESC = 'BATCH_COMMON$SP_UPDATE_PARM_DATE';
482 SET LS_SQL_DATA_DESC =
483 'JOB_CODE = ' || LC_JOB_CODE || ', RUN_DATE = ' || LD_RUN_DATE;
484
485
486 CALL BATCH_COMMON$SP_UPDATE_PARM_DATE (AC_JOB_CODE => LC_JOB_CODE,
487 AD_RUN_DATE => LD_RUN_DATE,
488 AC_MSG_CODE => LC_MSG_CODE,
489 AS_ERROR_DESC => LS_ERROR_DESC);
490
491 IF LC_MSG_CODE <> LC_S_MSG_CODE
492 THEN
493 SET LC_SQLSTATE_CODE = '75000';
494 SIGNAL SQLSTATE '75000';
495 END IF;
496
497
498 SET LI_PROCESSED_RECORD_COUNT_NUMB =
499 LI_PROCESSED_RECORD_COUNT_NUMB + LI_ROLE_PROCESSED_COUNT_NUMB;
500 SET LC_MSG_CODE = LC_S_MSG_CODE;
501
502 --UPDATE THE LOG IN BATCH_STATUS_LOG AS THE JOB IS SUCEEDED.
503 SET LS_SQL_DESC = 'SUCCESSFUL';
504 SET LS_SQL_DATA_DESC =
505 'JOB_CODE = ' || LC_JOB_CODE || ', RUN_DATE = ' || LD_RUN_DATE;
506
507 CALL BATCH_COMMON$SP_BSTL_LOG (
508 AD_RUN_DATE => LD_RUN_DATE,
509 AD_JOB_START_DTTM => LD_START_DATE,
510 AC_JOB_CODE => LC_JOB_CODE,
511 AS_CURSOR_LOCATION_DESC => LS_PROCESS_NAME,
512 AS_EXEC_LOCATION_DESC => LS_SQL_DATA_DESC,
513 AS_LIST_KEY_NOTE => LS_SQL_DESC,
514 AS_STATUS_NOTE => LS_ERROR_DESC,
515 AC_ERROR_STATUS_CODE => LC_S_MSG_CODE,
516 AS_UPDATED_BY_NAME => LC_BATCH_RUN_USER_CODE,
517 AI_PROCESSED_RECORD_COUNT_NUMB => LI_PROCESSED_RECORD_COUNT_NUMB,
518 AS_PROCESS_NAME => LS_PROCESS_NAME,
519 AS_PROCEDURE_NAME => LS_PROCEDURE_NAME);
520
521 COMMIT WORK;
522END
52308-01-2020 10.53.30 AM 0:00:03.788: Lookup Error - DB2 Database Error: ERROR [42821] [IBM][DB2/LINUXX8664] A value is not compatible with the data type of its assignment target. Target name is "LD_HIGH_DATE".
524CombinedBatch.sql:533: CREATE OR REPLACE PROCEDURE BATCH_CM_GEN_ALERT$SP_UPDATE_PROCESS_PENDING_SOIN (
525 IN AD_RUN_DATE DATE DEFAULT SYSDATE,
526 IN AC_JOB_CODE ANCHOR DATA TYPE TO JOB_PARM.JOB_CODE DEFAULT NULL,
527 OUT AC_MSG_CODE CHAR (5),
528 OUT AS_ERROR_DESC VARCHAR (4000))
529/*
530PROCEDURE NAME : BATCH_CM_GEN_ALERT$SP_UPDATE_PROCESS_PENDING_SOIN
531DESCRIPTION : UPDATES PROCESS PENDING SOURCE OF INCOME RECORDS STATUS TO INACTIVE
532*/
533
534BEGIN
535 --PSOI Cursor Variable Declaration Start
536 DECLARE
537 LI_PERSON_ID ANCHOR DATA TYPE TO PERSON.PERSON_ID;
538 DECLARE LC_SOI_VERIFY_STATUS_CODE ANCHOR DATA TYPE TO PERSON_SOI.PSOI_VERIFICATION_STATUS_CODE;
539 DECLARE LI_OTHER_PARTY_ID ANCHOR DATA TYPE TO PERSON_SOI.OTHER_PARTY_ID;
540 DECLARE LC_PSOI_INCOME_TYPE_CODE ANCHOR DATA TYPE TO PERSON_SOI.PSOI_INCOME_TYPE_CODE;
541 DECLARE LD_PSOI_BEGIN_DATE ANCHOR DATA TYPE TO PERSON_SOI.PSOI_BEGIN_DATE;
542 DECLARE LI_PERSON_SOI_ID ANCHOR DATA TYPE TO PERSON_SOI.PERSON_SOI_ID;
543 DECLARE LI_NEW_PERSON_SOI_ID ANCHOR DATA TYPE TO PERSON_SOI.PERSON_SOI_ID;
544 DECLARE LI_TRANSACTION_EVENT_SEQ_NUMB ANCHOR DATA TYPE TO PERSON_SOI.TRANSACTION_EVENT_SEQ_NUMB;
545 DECLARE LI_2_TRANSACTION_EVENT_SEQ_NUMB ANCHOR DATA TYPE TO PERSON_SOI.TRANSACTION_EVENT_SEQ_NUMB;
546 DECLARE LC_PSOI_SOURCE_CODE ANCHOR DATA TYPE TO PERSON_SOI.PSOI_SOURCE_CODE;
547 --PSOI Cursor Variable Declaration End
548 DECLARE LI_ROWCOUNT_QNTY INTEGER DEFAULT 0;
549 DECLARE LI_ZERO_NUMB INTEGER DEFAULT 0;
550 DECLARE LD_HIGH_DATE DATE DEFAULT '12-31-9999';
551 DECLARE LI_EXISTS_COUNT_OTHP_NUMB INTEGER DEFAULT 0;
552 DECLARE LI_EXISTS_COUNT_PSOI_NUMB INTEGER DEFAULT 0;
553 DECLARE LI_EXISTS_COUNT_RSOI_LRSI_NUMB INTEGER DEFAULT 0;
554 DECLARE LI_EXISTS_COUNT_RSOI_LRSI_2_NUMB INTEGER DEFAULT 0;
555 DECLARE LI_EXISTS_COUNT_SOIN_LRSI_NUMB INTEGER DEFAULT 0;
556 DECLARE LC_BATCH_RUN_USER_DESC CHAR (5) DEFAULT 'BATCH';
557 DECLARE LS_PROCEDURE_NAME VARCHAR (100)
558 DEFAULT 'BATCH_CM_GEN_ALERT$SP_UPDATE_PROCESS_PENDING_SOIN';
559 DECLARE LC_P_OTHP_SOI_STATUS_CODE ANCHOR DATA TYPE TO OTHER_PARTY.OTHP_SOI_STATUS_CODE
560 DEFAULT 'P';
561 DECLARE LC_A_OTHP_SOI_STATUS_CODE ANCHOR DATA TYPE TO OTHER_PARTY.OTHP_SOI_STATUS_CODE
562 DEFAULT 'A';
563 DECLARE LC_I_OTHP_SOI_STATUS_CODE ANCHOR DATA TYPE TO OTHER_PARTY.OTHP_SOI_STATUS_CODE
564 DEFAULT 'I';
565 DECLARE LC_INSOI_TASK_CODE ANCHOR DATA TYPE TO TASK_DETAIL.TASK_CODE
566 DEFAULT 'INSOI';
567 DECLARE LC_CI_SUBSYSTEM_CODE ANCHOR DATA TYPE TO REFM_SUBSYSTEM.SUBSYSTEM_CODE
568 DEFAULT 'CI';
569 DECLARE LC_P_PSOI_VERIFICATION_STATUS_CODE ANCHOR DATA TYPE TO PERSON_SOI.PSOI_VERIFICATION_STATUS_CODE
570 DEFAULT 'P';
571 DECLARE LC_N_PSOI_VERIFICATION_STATUS_CODE ANCHOR DATA TYPE TO PERSON_SOI.PSOI_VERIFICATION_STATUS_CODE
572 DEFAULT 'N';
573 DECLARE LC_Y_PSOI_VERIFICATION_STATUS_CODE ANCHOR DATA TYPE TO PERSON_SOI.PSOI_VERIFICATION_STATUS_CODE
574 DEFAULT 'Y';
575 DECLARE LC_A_CASE_PARTY_STATUS_CODE ANCHOR DATA TYPE TO CASE_PERSON.CASE_PARTY_STATUS_CODE
576 DEFAULT 'A';
577 DECLARE LC_A_CASE_PARTY_ROLE_CODE ANCHOR DATA TYPE TO CASE_PERSON.CASE_PARTY_ROLE_CODE
578 DEFAULT 'A';
579 DECLARE LC_C_CASE_PARTY_ROLE_CODE ANCHOR DATA TYPE TO CASE_PERSON.CASE_PARTY_ROLE_CODE
580 DEFAULT 'C';
581 DECLARE LC_P_CASE_PARTY_ROLE_CODE ANCHOR DATA TYPE TO CASE_PERSON.CASE_PARTY_ROLE_CODE
582 DEFAULT 'P';
583 DECLARE LC_O_CASE_STATUS_CODE ANCHOR DATA TYPE TO CASE_DETAIL.CASE_STATUS_CODE
584 DEFAULT 'O';
585 DECLARE LC_D_CASE_TYPE_CODE ANCHOR DATA TYPE TO CASE_DETAIL.CASE_TYPE_CODE
586 DEFAULT 'D';
587 DECLARE LC_MSG_CODE CHAR (5);
588 DECLARE LC_S_MSG_CODE CHAR (1) DEFAULT 'S';
589 DECLARE LC_F_MSG_CODE CHAR (1) DEFAULT 'F';
590 DECLARE LS_SQL_DESC VARCHAR (100);
591 DECLARE LS_SQL_DATA_DESC VARCHAR (1000);
592 DECLARE LS_ERROR_DESC VARCHAR (4000);
593 DECLARE LI_UPDATED_BY_ID ANCHOR DATA TYPE TO USER_DETAIL.USER_ID;
594 DECLARE LC_SQLSTATE_CODE CHAR (5);
595 DECLARE LS_SQL_ERROR_DESC VARCHAR (4000);
596
597 DECLARE
598 PSOI_CUR CURSOR FOR
599 SELECT A.PERSON_ID,
600 A.OTHER_PARTY_ID,
601 A.PSOI_VERIFICATION_STATUS_CODE,
602 A.PSOI_INCOME_TYPE_CODE,
603 A.PSOI_BEGIN_DATE,
604 A.TRANSACTION_EVENT_SEQ_NUMB,
605 A.PERSON_SOI_ID,
606 A.PSOI_SOURCE_CODE
607 FROM PERSON_SOI A
608 JOIN OTHER_PARTY B ON A.OTHER_PARTY_ID = B.OTHER_PARTY_ID
609 WHERE B.OTHP_SOI_STATUS_CODE = LC_P_OTHP_SOI_STATUS_CODE
610 AND A.PSOI_VERIFICATION_STATUS_CODE IN
611 (LC_P_PSOI_VERIFICATION_STATUS_CODE,
612 LC_N_PSOI_VERIFICATION_STATUS_CODE,
613 LC_Y_PSOI_VERIFICATION_STATUS_CODE)
614 AND A.PSOI_END_DATE = LD_HIGH_DATE;
615
616
617 DECLARE EXIT HANDLER FOR SQLEXCEPTION
618 BEGIN
619 GET DIAGNOSTICS EXCEPTION 1
620 LS_SQL_ERROR_DESC = MESSAGE_TEXT;
621
622 IF LC_SQLSTATE_CODE <> ''
623 THEN
624 SET AC_MSG_CODE = LC_MSG_CODE;
625 ELSE
626 SET AC_MSG_CODE = LC_F_MSG_CODE;
627 SET LS_ERROR_DESC = LS_SQL_ERROR_DESC;
628 END IF;
629
630 CALL BATCH_COMMON$SP_GET_ERROR_DESCRIPTION (
631 AS_PROCEDURE_NAME => LS_PROCEDURE_NAME,
632 AS_ERROR_MESSAGE_DESC => LS_ERROR_DESC,
633 AS_SQL_DESC => LS_SQL_DESC,
634 AS_SQL_DATA_DESC => LS_SQL_DATA_DESC,
635 AS_ERROR_DESC => AS_ERROR_DESC);
636 END;
637
638 SET LC_SQLSTATE_CODE = '';
639
640
641 SET LS_SQL_DESC = 'SELECT OTHER_PARTY-1';
642 SET LS_SQL_DATA_DESC =
643 'OTHP_SOI_STATUS_CODE =' || LC_P_OTHP_SOI_STATUS_CODE;
644
645 -- If no Process Pending Record exists in Other Party , the code will return success message
646 SELECT COUNT (1)
647 INTO LI_EXISTS_COUNT_OTHP_NUMB
648 FROM OTHER_PARTY A
649 WHERE OTHP_SOI_STATUS_CODE = LC_P_OTHP_SOI_STATUS_CODE;
650
651 IF LI_EXISTS_COUNT_OTHP_NUMB = 0
652 THEN
653 SET AC_MSG_CODE = LC_S_MSG_CODE;
654 RETURN;
655 END IF;
656
657 -- The system invokes common service to end date participant source of income records , if any is linked to the process pending source of income records
658 SET LS_SQL_DESC = 'SELECT PERSON_SOI , OTHER_PARTY -2';
659 SET LS_SQL_DATA_DESC =
660 'OTHP_SOI_STATUS_CODE =' || LC_P_OTHP_SOI_STATUS_CODE;
661
662 SELECT COUNT (1)
663 INTO LI_EXISTS_COUNT_PSOI_NUMB
664 FROM PERSON_SOI A
665 JOIN OTHER_PARTY B ON A.OTHER_PARTY_ID = B.OTHER_PARTY_ID
666 WHERE B.OTHP_SOI_STATUS_CODE = LC_P_OTHP_SOI_STATUS_CODE
667 AND A.PSOI_VERIFICATION_STATUS_CODE IN
668 (LC_P_PSOI_VERIFICATION_STATUS_CODE,
669 LC_N_PSOI_VERIFICATION_STATUS_CODE,
670 LC_Y_PSOI_VERIFICATION_STATUS_CODE)
671 AND A.PSOI_END_DATE = LD_HIGH_DATE
672 FETCH FIRST ROWS ONLY;
673
674 IF LI_EXISTS_COUNT_PSOI_NUMB > 0
675 THEN
676 SET LS_SQL_DESC = 'INSERT TEMP_BULK_GENERATE';
677
678 SET LS_SQL_DATA_DESC =
679 'OTHP_SOI_STATUS_CODE =' || LC_P_OTHP_SOI_STATUS_CODE;
680
681 INSERT INTO TEMP_BULK_GENERATE (CASE_NUMB,
682 PERSON_NUMB,
683 TASK_CODE,
684 SUBSYSTEM_CODE,
685 COMMENT_NOTE)
686 SELECT Y.CASE_ID,
687 Y.PERSON_ID,
688 LC_INSOI_TASK_CODE,
689 LC_CI_SUBSYSTEM_CODE,
690 ' '
691 FROM (SELECT C.CASE_ID, A.PERSON_ID
692 FROM PERSON_SOI A
693 JOIN OTHER_PARTY B ON A.OTHER_PARTY_ID = B.OTHER_PARTY_ID
694 JOIN CASE_PERSON C ON A.PERSON_ID = C.PERSON_ID
695 JOIN CASE_DETAIL D ON C.CASE_ID = D.CASE_ID
696 WHERE B.OTHP_SOI_STATUS_CODE = LC_P_OTHP_SOI_STATUS_CODE
697 AND C.CASE_PARTY_STATUS_CODE =
698 LC_A_CASE_PARTY_STATUS_CODE
699 AND C.CASE_PARTY_ROLE_CODE IN
700 (LC_A_CASE_PARTY_ROLE_CODE,
701 LC_P_CASE_PARTY_ROLE_CODE,
702 LC_C_CASE_PARTY_ROLE_CODE)
703 AND D.CASE_STATUS_CODE = LC_O_CASE_STATUS_CODE
704 AND D.CASE_TYPE_CODE <> LC_D_CASE_TYPE_CODE
705 AND A.PSOI_VERIFICATION_STATUS_CODE IN
706 (LC_P_PSOI_VERIFICATION_STATUS_CODE,
707 LC_N_PSOI_VERIFICATION_STATUS_CODE,
708 LC_Y_PSOI_VERIFICATION_STATUS_CODE)
709 AND A.PSOI_END_DATE = LD_HIGH_DATE
710 GROUP BY C.CASE_ID, A.PERSON_ID) Y;
711
712 OPEN PSOI_CUR;
713
714 SET LS_SQL_DESC = 'FETCH CASE_CUR';
715 SET LS_SQL_DATA_DESC =
716 'UPDATED_BY_NAME '
717 || LC_BATCH_RUN_USER_DESC
718 || 'JOB CODE '
719 || AC_JOB_CODE;
720
721 FETCH_PSOI_LOOP:
722 LOOP
723 FETCH PSOI_CUR
724 INTO LI_PERSON_ID,
725 LI_OTHER_PARTY_ID,
726 LC_SOI_VERIFY_STATUS_CODE,
727 LC_PSOI_INCOME_TYPE_CODE,
728 LD_PSOI_BEGIN_DATE,
729 LI_TRANSACTION_EVENT_SEQ_NUMB,
730 LI_PERSON_SOI_ID,
731 LC_PSOI_SOURCE_CODE;
732
733 IF LI_TRANSACTION_EVENT_SEQ_NUMB IS NULL
734 THEN
735 LEAVE FETCH_PSOI_LOOP;
736 END IF;
737
738 SET LS_SQL_DESC = 'CALL BATCH_COMMON$SP_PERSON_SOI_UPDATE';
739 SET LS_SQL_DATA_DESC =
740 'PERSON_ID : '
741 || NVL (LI_PERSON_ID, LI_ZERO_NUMB)
742 || ', OTHER_PARTY_ID : '
743 || NVL (LI_OTHER_PARTY_ID, LI_ZERO_NUMB)
744 || ', SOI_VERIFY_STATUS_CODE : '
745 || NVL (LC_SOI_VERIFY_STATUS_CODE, '')
746 || ', INCOME_TYPE_CODE : '
747 || NVL (LC_PSOI_INCOME_TYPE_CODE, '')
748 || ', JOB_CODE :'
749 || NVL (AC_JOB_CODE, '')
750 || ', UPDATED_BY_NAME :'
751 || LC_BATCH_RUN_USER_DESC
752 || ', TRANSACTION_EVENT_SEQ_NUMB :'
753 || LI_2_TRANSACTION_EVENT_SEQ_NUMB;
754
755
756 CALL BATCH_COMMON$SP_PERSON_SOI_UPDATE (
757 AI_PERSON_ID => LI_PERSON_ID,
758 AI_OTHER_PARTY_ID => LI_OTHER_PARTY_ID,
759 AC_PSOI_VERIFICATION_STATUS_CODE =>
760 LC_SOI_VERIFY_STATUS_CODE,
761 AC_PSOI_INCOME_TYPE_CODE => LC_PSOI_INCOME_TYPE_CODE,
762 AD_PSOI_BEGIN_DATE => LD_PSOI_BEGIN_DATE,
763 AD_PSOI_END_DATE => AD_RUN_DATE,
764 AC_PSOI_SOURCE_CODE => LC_PSOI_SOURCE_CODE,
765 AI_TRANSACTION_EVENT_SEQ_NUMB =>
766 LI_TRANSACTION_EVENT_SEQ_NUMB,
767 AI_PERSON_SOI_ID => LI_PERSON_SOI_ID,
768 AS_UPDATED_BY_NAME => LC_BATCH_RUN_USER_DESC,
769 AD_RUN_DATE => AD_RUN_DATE,
770 AC_JOB_CODE => AC_JOB_CODE,
771 AI_NEW_PERSON_SOI_ID => LI_NEW_PERSON_SOI_ID,
772 AC_MSG_CODE => LC_MSG_CODE,
773 AS_ERROR_DESC => LS_ERROR_DESC);
774
775 IF LC_MSG_CODE <> LC_S_MSG_CODE
776 THEN
777 SET LC_SQLSTATE_CODE = '75000';
778 SIGNAL SQLSTATE '75000';
779 END IF;
780
781 SET LI_TRANSACTION_EVENT_SEQ_NUMB = NULL;
782 END LOOP FETCH_PSOI_LOOP;
783
784 CLOSE PSOI_CUR;
785 END IF;
786
787 -- The system delinks any active source of income record from process pending related source of income records , if exists
788 SET LS_SQL_DESC = 'SELECT LINKED_RELATED_SOI , OTHER_PARTY -1';
789 SET LS_SQL_DATA_DESC =
790 'OTHP_SOI_STATUS_CODE =' || LC_P_OTHP_SOI_STATUS_CODE;
791
792 SELECT COUNT (1)
793 INTO LI_EXISTS_COUNT_RSOI_LRSI_NUMB
794 FROM LINKED_RELATED_SOI A
795 JOIN OTHER_PARTY B ON A.LINKED_OTHER_PARTY_ID = B.OTHER_PARTY_ID
796 JOIN OTHER_PARTY C ON A.OTHER_PARTY_ID = C.OTHER_PARTY_ID
797 WHERE B.OTHP_SOI_STATUS_CODE = LC_P_OTHP_SOI_STATUS_CODE
798 AND C.OTHP_SOI_STATUS_CODE = LC_A_OTHP_SOI_STATUS_CODE
799 FETCH FIRST ROWS ONLY;
800
801 IF LI_EXISTS_COUNT_RSOI_LRSI_NUMB > 0
802 THEN
803 SET LS_SQL_DESC = 'BATCH_COMMON$SP_GEN_SEQ_TXN_EVENT';
804 SET LS_SQL_DATA_DESC =
805 'UPDATED_BY_NAME '
806 || LC_BATCH_RUN_USER_DESC
807 || 'JOB CODE '
808 || AC_JOB_CODE;
809
810 CALL BATCH_COMMON$SP_GEN_SEQ_TXN_EVENT (
811 AS_UPDATED_BY_NAME => LC_BATCH_RUN_USER_DESC,
812 AC_SCREEN_CODE => NULL,
813 AC_JOB_CODE => AC_JOB_CODE,
814 AC_EVENT_FUNCTIONAL_CODE => NULL,
815 AI_TRANSACTION_EVENT_SEQ_NUMB =>
816 LI_2_TRANSACTION_EVENT_SEQ_NUMB,
817 AC_MSG_CODE => LC_MSG_CODE,
818 AS_ERROR_DESC => LS_ERROR_DESC);
819
820 IF LC_MSG_CODE <> LC_S_MSG_CODE
821 THEN
822 SET LS_SQL_DESC = 'BATCH_COMMON$SP_GEN_SEQ_TXN_EVENT FAILED';
823 SET LC_SQLSTATE_CODE = '75000';
824 SIGNAL SQLSTATE '75000';
825 END IF;
826
827
828 SET LS_SQL_DESC = 'BATCH_COMMON$SF_GET_USER_ID ';
829 SET LS_SQL_DATA_DESC = 'UPDATED_BY_NAME ' || LC_BATCH_RUN_USER_DESC;
830
831 SET LI_UPDATED_BY_ID =
832 BATCH_COMMON$SF_GET_USER_ID (LC_BATCH_RUN_USER_DESC);
833
834 SET LS_SQL_DESC = 'UPDATE OTHER_PARTY-1 ';
835 SET LS_SQL_DATA_DESC =
836 'UPDATED_BY_NAME = '
837 || LC_BATCH_RUN_USER_DESC
838 || ' ,TRANSACTION_EVENT_SEQ_NUMB = '
839 || LI_2_TRANSACTION_EVENT_SEQ_NUMB
840 || 'OTHP_SOI_STATUS_CODE ='
841 || LC_A_OTHP_SOI_STATUS_CODE;
842
843 UPDATE OTHER_PARTY
844 SET UPDATED_BY_ID = LI_UPDATED_BY_ID,
845 TRANSACTION_EVENT_SEQ_NUMB = LI_2_TRANSACTION_EVENT_SEQ_NUMB
846 WHERE OTHER_PARTY_ID IN
847 (SELECT A.OTHER_PARTY_ID
848 FROM LINKED_RELATED_SOI A
849 JOIN OTHER_PARTY B
850 ON A.LINKED_OTHER_PARTY_ID = B.OTHER_PARTY_ID
851 WHERE B.OTHP_SOI_STATUS_CODE = LC_P_OTHP_SOI_STATUS_CODE)
852 AND OTHP_SOI_STATUS_CODE = LC_A_OTHP_SOI_STATUS_CODE;
853
854 GET DIAGNOSTICS LI_ROWCOUNT_QNTY = ROW_COUNT;
855
856 IF LI_ROWCOUNT_QNTY = LI_ZERO_NUMB
857 THEN
858 SET LC_MSG_CODE = LC_F_MSG_CODE;
859 SET LS_ERROR_DESC = 'UPDATE OTHER_PARTY-1 FAILED';
860 SET LC_SQLSTATE_CODE = '75000';
861 SIGNAL SQLSTATE '75000';
862 END IF;
863
864
865 SET LS_SQL_DESC = 'UPDATE LINKED_RELATED_SOI-2 ';
866 SET LS_SQL_DATA_DESC =
867 'OTHP_SOI_STATUS_CODE =' || LC_P_OTHP_SOI_STATUS_CODE;
868
869 UPDATE LINKED_RELATED_SOI
870 SET LINKED_OTHER_PARTY_ID = NULL,
871 UPDATED_BY_ID = LI_UPDATED_BY_ID,
872 TRANSACTION_EVENT_SEQ_NUMB = LI_2_TRANSACTION_EVENT_SEQ_NUMB
873 WHERE LINKED_OTHER_PARTY_ID IN
874 (SELECT OTHER_PARTY_ID
875 FROM OTHER_PARTY
876 WHERE OTHP_SOI_STATUS_CODE = LC_P_OTHP_SOI_STATUS_CODE);
877
878 GET DIAGNOSTICS LI_ROWCOUNT_QNTY = ROW_COUNT;
879
880 IF LI_ROWCOUNT_QNTY = LI_ZERO_NUMB
881 THEN
882 SET LC_MSG_CODE = LC_F_MSG_CODE;
883 SET LS_ERROR_DESC = 'DELETE LINKED_RELATED_SOI-2 FAILED';
884 SET LC_SQLSTATE_CODE = '75000';
885 SIGNAL SQLSTATE '75000';
886 END IF;
887 END IF;
888
889
890 -- The system deletes process pending source of income records from LINKED_RELATED_SOI Table , if exists as the source of income is no longer valid
891 SET LS_SQL_DESC = 'SELECT LINKED_RELATED_SOI , OTHER_PARTY -3';
892 SET LS_SQL_DATA_DESC =
893 'OTHP_SOI_STATUS_CODE =' || LC_P_OTHP_SOI_STATUS_CODE;
894
895 SELECT COUNT (1)
896 INTO LI_EXISTS_COUNT_SOIN_LRSI_NUMB
897 FROM LINKED_RELATED_SOI A
898 JOIN OTHER_PARTY B ON A.OTHER_PARTY_ID = B.OTHER_PARTY_ID
899 WHERE B.OTHP_SOI_STATUS_CODE = LC_P_OTHP_SOI_STATUS_CODE
900 FETCH FIRST ROWS ONLY;
901
902 IF LI_EXISTS_COUNT_SOIN_LRSI_NUMB > 0
903 THEN
904 IF LI_2_TRANSACTION_EVENT_SEQ_NUMB IS NULL
905 THEN
906 SET LS_SQL_DESC = 'BATCH_COMMON$SP_GEN_SEQ_TXN_EVENT';
907 SET LS_SQL_DATA_DESC =
908 'UPDATED_BY_NAME '
909 || LC_BATCH_RUN_USER_DESC
910 || 'JOB CODE '
911 || AC_JOB_CODE;
912
913 CALL BATCH_COMMON$SP_GEN_SEQ_TXN_EVENT (
914 AS_UPDATED_BY_NAME => LC_BATCH_RUN_USER_DESC,
915 AC_SCREEN_CODE => NULL,
916 AC_JOB_CODE => AC_JOB_CODE,
917 AC_EVENT_FUNCTIONAL_CODE => NULL,
918 AI_TRANSACTION_EVENT_SEQ_NUMB =>
919 LI_2_TRANSACTION_EVENT_SEQ_NUMB,
920 AC_MSG_CODE => LC_MSG_CODE,
921 AS_ERROR_DESC => LS_ERROR_DESC);
922
923 IF LC_MSG_CODE <> LC_S_MSG_CODE
924 THEN
925 SET LS_SQL_DESC = 'BATCH_COMMON$SP_GEN_SEQ_TXN_EVENT FAILED';
926 SET LC_SQLSTATE_CODE = '75000';
927 SIGNAL SQLSTATE '75000';
928 END IF;
929 END IF;
930
931 IF LI_UPDATED_BY_ID IS NULL
932 THEN
933 SET LS_SQL_DESC = 'BATCH_COMMON$SF_GET_USER_ID ';
934 SET LS_SQL_DATA_DESC = 'UPDATED_BY_NAME ' || LC_BATCH_RUN_USER_DESC;
935
936 SET LI_UPDATED_BY_ID =
937 BATCH_COMMON$SF_GET_USER_ID (LC_BATCH_RUN_USER_DESC);
938 END IF;
939
940 SET LS_SQL_DESC = 'DELETE LINKED_RELATED_SOI-3 ';
941 SET LS_SQL_DATA_DESC =
942 'OTHP_SOI_STATUS_CODE =' || LC_P_OTHP_SOI_STATUS_CODE;
943
944 DELETE FROM LINKED_RELATED_SOI
945 WHERE OTHER_PARTY_ID IN
946 (SELECT OTHER_PARTY_ID
947 FROM OTHER_PARTY
948 WHERE OTHP_SOI_STATUS_CODE = LC_P_OTHP_SOI_STATUS_CODE);
949
950 GET DIAGNOSTICS LI_ROWCOUNT_QNTY = ROW_COUNT;
951
952 IF LI_ROWCOUNT_QNTY = LI_ZERO_NUMB
953 THEN
954 SET LC_MSG_CODE = LC_F_MSG_CODE;
955 SET LS_ERROR_DESC = 'DELETE LINKED_RELATED_SOI-3 FAILED';
956 SET LC_SQLSTATE_CODE = '75000';
957 SIGNAL SQLSTATE '75000';
958 END IF;
959 END IF;
960
961 -- The system inactivates process pending related source of income and source of income records
962 SET LS_SQL_DESC = ' UPDATE OTHER_PARTY-4 ';
963 SET LS_SQL_DATA_DESC =
964 'OTHP_SOI_STATUS_CODE ='
965 || LC_P_OTHP_SOI_STATUS_CODE
966 || ', UPDATED_BY_NAME ='
967 || LC_BATCH_RUN_USER_DESC
968 || ', TRANSACTION_EVENT_SEQ_NUMB ='
969 || LI_2_TRANSACTION_EVENT_SEQ_NUMB;
970
971 UPDATE OTHER_PARTY
972 SET UPDATED_BY_ID = LI_UPDATED_BY_ID,
973 TRANSACTION_EVENT_SEQ_NUMB = LI_2_TRANSACTION_EVENT_SEQ_NUMB,
974 OTHP_SOI_STATUS_CODE = LC_I_OTHP_SOI_STATUS_CODE,
975 OTHP_STATUS_DATE = AD_RUN_DATE
976 WHERE OTHP_SOI_STATUS_CODE = LC_P_OTHP_SOI_STATUS_CODE;
977
978 GET DIAGNOSTICS LI_ROWCOUNT_QNTY = ROW_COUNT;
979
980 IF LI_ROWCOUNT_QNTY = LI_ZERO_NUMB
981 THEN
982 SET LC_MSG_CODE = LC_F_MSG_CODE;
983 SET LS_ERROR_DESC = 'DELETE LINKED_RELATED_SOI-3 FAILED';
984 SET LC_SQLSTATE_CODE = '75000';
985 SIGNAL SQLSTATE '75000';
986 END IF;
987
988 SET AC_MSG_CODE = LC_S_MSG_CODE;
989 RETURN;
990END
99108-01-2020 10.53.39 AM 0:00:02.738: Lookup Error - DB2 Database Error: ERROR [42821] [IBM][DB2/LINUXX8664] A value is not compatible with the data type of its assignment target. Target name is "LD_HIGH_DATE".
992CombinedBatch.sql:1006: CREATE OR REPLACE PROCEDURE BATCH_COMMON$SP_ADDRESS_UPDATE (
993 IN AI_PERSON_ADDRESS_ID ANCHOR DATA TYPE TO PERSON_ADDRESS.PERSON_ADDRESS_ID DEFAULT NULL,
994 IN AI_PERSON_ID ANCHOR DATA TYPE TO CASE_PERSON.PERSON_ID,
995 IN AD_RUN_DATE DATE DEFAULT SYSDATE,
996 IN AI_ADDR_ID ANCHOR DATA TYPE TO ADDRESS.ADDR_ID DEFAULT NULL,
997 IN AC_ADDRESS_TYPE_CODE ANCHOR DATA TYPE TO REFM_ADDRESS_TYPE.ADDRESS_TYPE_CODE DEFAULT 'M',
998 IN AB_PRIMARY_IND ANCHOR DATA TYPE TO PERSON_ADDRESS.PRIMARY_IND DEFAULT NULL,
999 IN AD_BEGIN_DATE ANCHOR DATA TYPE TO PERSON_ADDRESS.BEGIN_DATE DEFAULT NULL,
1000 IN AD_END_DATE ANCHOR DATA TYPE TO PERSON_ADDRESS.END_DATE DEFAULT NULL,
1001 IN AS_ATTN_ADDR ANCHOR DATA TYPE TO ADDRESS.ATTN_ADDR DEFAULT NULL,
1002 IN AS_LINE1_ADDR ANCHOR DATA TYPE TO ADDRESS.LINE1_ADDR,
1003 IN AS_LINE2_ADDR ANCHOR DATA TYPE TO ADDRESS.LINE2_ADDR DEFAULT NULL,
1004 IN AS_CITY_NAME ANCHOR DATA TYPE TO CITY.CITY_NAME,
1005 IN AC_STATE_CODE ANCHOR DATA TYPE TO ADDRESS_STATE.STATE_CODE DEFAULT NULL,
1006 IN AS_POST_CODE ANCHOR DATA TYPE TO POST_CODE.POST_CODE DEFAULT NULL,
1007 IN AC_COUNTY_CODE ANCHOR DATA TYPE TO COUNTY.COUNTY_CODE DEFAULT NULL,
1008 IN AC_COUNTRY_CODE ANCHOR DATA TYPE TO REFM_COUNTRY.COUNTRY_CODE DEFAULT 'US',
1009 IN AB_ADDR_STD_IND ANCHOR DATA TYPE TO ADDRESS.ADDR_STD_IND DEFAULT FALSE,
1010 IN AC_ADDRESS_SOURCE_CODE ANCHOR DATA TYPE TO REFM_ADDRESS_SOURCE.ADDRESS_SOURCE_CODE,
1011 IN AD_ADDRESS_RECEIVED_DATE ANCHOR DATA TYPE TO PERSON_ADDRESS.ADDRESS_RECEIVED_DATE DEFAULT NULL,
1012 IN AC_ADDRESS_STATUS_CODE ANCHOR DATA TYPE TO REFM_VERIFY_STATUS.VERIFY_STATUS_CODE DEFAULT NULL,
1013 IN AD_ADDRESS_STATUS_DATE ANCHOR DATA TYPE TO PERSON_ADDRESS.ADDRESS_STATUS_DATE DEFAULT NULL,
1014 IN AC_ADDRESS_VERIFY_SOURCE_CODE ANCHOR DATA TYPE TO REFM_ADDRESS_VERIFY_SOURCE.ADDRESS_VERIFY_SOURCE_CODE DEFAULT NULL,
1015 IN AD_ADDRESS_VERIFIED_DATE ANCHOR DATA TYPE TO PERSON_ADDRESS.ADDRESS_VERIFIED_DATE DEFAULT NULL,
1016 IN AS_COMMENT_NOTE ANCHOR DATA TYPE TO PERSON_ADDRESS.COMMENT_NOTE DEFAULT NULL,
1017 IN AC_SCREEN_CODE ANCHOR DATA TYPE TO SCREEN.SCREEN_CODE DEFAULT NULL,
1018 IN AC_JOB_CODE ANCHOR DATA TYPE TO JOB_PARM.JOB_CODE DEFAULT NULL,
1019 IN AS_UPDATED_BY_NAME ANCHOR DATA TYPE TO USER_DETAIL.USER_NAME,
1020 IN AI_TRANSACTION_EVENT_SEQ_NUMB ANCHOR DATA TYPE TO GLOBAL_TRANS_EVENT_SEQUENCE.TRANSACTION_EVENT_SEQ_NUMB DEFAULT NULL,
1021 IN AC_USER_OFFICE_CODE ANCHOR DATA TYPE TO OFFICE.OFFICE_CODE DEFAULT NULL,
1022 IN AB_TRUSTED_SOURCE_IND BOOLEAN DEFAULT FALSE,
1023 OUT AI_NEW_PERSON_ADDRESS_ID ANCHOR DATA TYPE TO PERSON_ADDRESS.PERSON_ADDRESS_ID,
1024 OUT AC_MSG_CODE CHAR (5),
1025 OUT AS_ERROR_DESC VARCHAR (4000))
1026/*
1027PROCEDURE NAME : BATCH_COMMON$SP_ADDRESS_UPDATE
1028DESCRIPTION : THIS PROCEDURE RECEIVES PARTICIPANT'S ADDRESSES AND DE-DUPLICATES THE ADDRESSES WITH EXISTING
1029 ADDRESSES IN AHIS_VW AND UPDATES ADDRESSES IN AHIS_VW.
1030*/
1031BEGIN
1032 DECLARE
1033 LI_ZERO_NUMB INT DEFAULT 0;
1034 DECLARE LC_SPACE_CODE CHAR (1) DEFAULT ' ';
1035 DECLARE LC_E0153_ERROR_CODE CHAR (5) DEFAULT 'E0153';
1036 DECLARE LB_TRUE_IND BOOLEAN DEFAULT 1;
1037 DECLARE LB_FALSE_IND BOOLEAN DEFAULT 0;
1038 DECLARE LB_ADD_LSOUT_SAOUT_TASK_CODE_IND BOOLEAN DEFAULT 0;
1039 DECLARE LS_DOCUMENT_IDC ANCHOR DATA TYPE TO DOCUMENT_SET.DOCUMENT_IDC
1040 DEFAULT NULL;
1041 DECLARE LB_ESTP_PROCESS_ADD_IND BOOLEAN DEFAULT 0;
1042 DECLARE LB_GENERATE_NOTICE_IND BOOLEAN DEFAULT 0;
1043 DECLARE LC_PENDING_REQ_REASON_CODE ANCHOR DATA TYPE TO CSENET_FAR_COMBINATION.REASON_CODE;
1044 DECLARE LC_S_MSG_CODE CHAR (1) DEFAULT 'S';
1045 DECLARE LC_F_MSG_CODE CHAR (1) DEFAULT 'F';
1046 DECLARE LC_A_DUPLICATE_ADDR_STATUS_CODE CHAR (1) DEFAULT 'A';
1047 DECLARE LC_I_DUPLICATE_ADDR_STATUS_CODE CHAR (1) DEFAULT 'I';
1048 DECLARE LC_ADD_ADDR_ACTION_CODE CHAR (1) DEFAULT 'A';
1049 DECLARE LC_EDIT_ADDR_ACTION_CODE CHAR (1) DEFAULT 'E';
1050 DECLARE LC_VERIFY_ADDR_ACTION_CODE CHAR (1) DEFAULT 'V';
1051 DECLARE LC_PRI_IND_ADDR_ACTION_CODE CHAR (1) DEFAULT 'P';
1052 DECLARE LB_ADD_RCUCC_TASK_CODE_IND BOOLEAN DEFAULT 0;
1053 DECLARE LC_P_ACTION_CODE ANCHOR DATA TYPE TO CSENET_FAR_COMBINATION.ACTION_CODE
1054 DEFAULT 'P';
1055 DECLARE LC_B_ADDRESS_STATUS_CODE ANCHOR DATA TYPE TO REFM_VERIFY_STATUS.VERIFY_STATUS_CODE
1056 DEFAULT 'B';
1057 DECLARE LC_N_ADDRESS_STATUS_CODE ANCHOR DATA TYPE TO REFM_VERIFY_STATUS.VERIFY_STATUS_CODE
1058 DEFAULT 'N';
1059 DECLARE LC_P_ADDRESS_STATUS_CODE ANCHOR DATA TYPE TO REFM_VERIFY_STATUS.VERIFY_STATUS_CODE
1060 DEFAULT 'P';
1061 DECLARE LC_Y_ADDRESS_STATUS_CODE ANCHOR DATA TYPE TO REFM_VERIFY_STATUS.VERIFY_STATUS_CODE
1062 DEFAULT 'Y';
1063 DECLARE LC_M_ADDRESS_TYPE_CODE ANCHOR DATA TYPE TO REFM_ADDRESS_TYPE.ADDRESS_TYPE_CODE
1064 DEFAULT 'M';
1065 DECLARE LC_R_ADDRESS_TYPE_CODE ANCHOR DATA TYPE TO REFM_ADDRESS_TYPE.ADDRESS_TYPE_CODE
1066 DEFAULT 'R';
1067 DECLARE LC_O_ADDRESS_TYPE_CODE ANCHOR DATA TYPE TO REFM_ADDRESS_TYPE.ADDRESS_TYPE_CODE
1068 DEFAULT 'O';
1069 DECLARE LC_C_CASE_PARTY_ROLE_CODE ANCHOR DATA TYPE TO CASE_PERSON.CASE_PARTY_ROLE_CODE
1070 DEFAULT 'C';
1071 DECLARE LC_D_CASE_PARTY_ROLE_CODE ANCHOR DATA TYPE TO CASE_PERSON.CASE_PARTY_ROLE_CODE
1072 DEFAULT 'D';
1073 DECLARE LC_A_CASE_PARTY_ROLE_CODE ANCHOR DATA TYPE TO CASE_PERSON.CASE_PARTY_ROLE_CODE
1074 DEFAULT 'A';
1075 DECLARE LC_P_CASE_PARTY_ROLE_CODE ANCHOR DATA TYPE TO CASE_PERSON.CASE_PARTY_ROLE_CODE
1076 DEFAULT 'P';
1077 DECLARE LC_A_CASE_PARTY_STATUS_CODE ANCHOR DATA TYPE TO CASE_PERSON.CASE_PARTY_STATUS_CODE
1078 DEFAULT 'A';
1079 DECLARE LC_D_CASE_TYPE_CODE ANCHOR DATA TYPE TO CASE_DETAIL.CASE_TYPE_CODE
1080 DEFAULT 'D';
1081 DECLARE LC_O_CASE_STATUS_CODE ANCHOR DATA TYPE TO CASE_DETAIL.CASE_STATUS_CODE
1082 DEFAULT 'O';
1083 DECLARE LC_R_CASE_IGV_TYPE_CODE ANCHOR DATA TYPE TO CASE_DETAIL.CASE_IGV_TYPE_CODE
1084 DEFAULT 'R';
1085 DECLARE LC_N_CASE_IGV_TYPE_CODE ANCHOR DATA TYPE TO CASE_DETAIL.CASE_IGV_TYPE_CODE
1086 DEFAULT 'N';
1087 DECLARE LC_I_CASE_IGV_TYPE_CODE ANCHOR DATA TYPE TO CASE_DETAIL.CASE_IGV_TYPE_CODE
1088 DEFAULT 'I';
1089 DECLARE LC_Y_PSOI_VERIFICATION_STATUS_CODE ANCHOR DATA TYPE TO REFM_VERIFY_STATUS.VERIFY_STATUS_CODE
1090 DEFAULT 'Y';
1091 DECLARE LC_A_OTHP_SOI_STATUS_CODE ANCHOR DATA TYPE TO OTHER_PARTY.OTHP_SOI_STATUS_CODE
1092 DEFAULT 'A';
1093 DECLARE LC_NV_STATE_CODE ANCHOR DATA TYPE TO ADDRESS_STATE.STATE_CODE
1094 DEFAULT 'NV';
1095 DECLARE LC_EM_PSOI_INCOME_TYPE_CODE ANCHOR DATA TYPE TO PERSON_SOI.PSOI_INCOME_TYPE_CODE
1096 DEFAULT 'EM';
1097 DECLARE LC_SE_PSOI_INCOME_TYPE_CODE ANCHOR DATA TYPE TO PERSON_SOI.PSOI_INCOME_TYPE_CODE
1098 DEFAULT 'SE';
1099 DECLARE LC_US_COUNTRY_CODE ANCHOR DATA TYPE TO REFM_COUNTRY.COUNTRY_CODE
1100 DEFAULT 'US';
1101 DECLARE LC_ES_PROCESS_SUBSYSTEM_CODE ANCHOR DATA TYPE TO PROCESS_DETAIL.PROCESS_SUBSYSTEM_CODE
1102 DEFAULT 'ES';
1103 DECLARE LC_CI_PROCESS_SUBSYSTEM_CODE ANCHOR DATA TYPE TO PROCESS_DETAIL.PROCESS_SUBSYSTEM_CODE
1104 DEFAULT 'CI';
1105 DECLARE LC_MSC_FUNCTION_CODE ANCHOR DATA TYPE TO CSENET_FAR_COMBINATION.FUNCTION_CODE
1106 DEFAULT 'MSC';
1107 DECLARE LC_CST_ADDRESS_SOURCE_CODE ANCHOR DATA TYPE TO REFM_ADDRESS_SOURCE.ADDRESS_SOURCE_CODE
1108 DEFAULT 'CST';
1109 DECLARE LC_CSP_ADDRESS_SOURCE_CODE ANCHOR DATA TYPE TO REFM_ADDRESS_SOURCE.ADDRESS_SOURCE_CODE
1110 DEFAULT 'CSP';
1111 DECLARE LC_OSA_ADDRESS_SOURCE_CODE ANCHOR DATA TYPE TO REFM_ADDRESS_SOURCE.ADDRESS_SOURCE_CODE
1112 DEFAULT 'OSA';
1113 DECLARE LC_AHIS_SCREEN_CODE ANCHOR DATA TYPE TO SCREEN.SCREEN_CODE
1114 DEFAULT 'AHIS';
1115 DECLARE LC_VISI_SCREEN_CODE ANCHOR DATA TYPE TO SCREEN.SCREEN_CODE
1116 DEFAULT 'VISI';
1117 DECLARE LS_NVGN000091_DOCUMENT_IDC ANCHOR DATA TYPE TO DOCUMENT_SET.DOCUMENT_IDC
1118 DEFAULT 'NVGN000091';
1119 DECLARE LS_DOCUMENT_XML VARCHAR (32672);
1120 DECLARE LC_PROCESS_SUBSYSTEM_CODE ANCHOR DATA TYPE TO PROCESS_DETAIL.PROCESS_SUBSYSTEM_CODE;
1121 DECLARE LC_CASE_PROCESS_CODE ANCHOR DATA TYPE TO PROCESS_DETAIL.PROCESS_CODE
1122 DEFAULT 'CASE';
1123 DECLARE LC_ESTP_PROCESS_CODE ANCHOR DATA TYPE TO PROCESS_DETAIL.PROCESS_CODE
1124 DEFAULT 'ESTP';
1125 DECLARE LC_STRT_TASK_STATUS_CODE ANCHOR DATA TYPE TO REFM_TASK_STATUS.TASK_STATUS_CODE
1126 DEFAULT 'STRT';
1127 DECLARE LC_5270_EVENT_FUNCTIONAL_CODE ANCHOR DATA TYPE TO GLOBAL_TRANS_EVENT_SEQUENCE.EVENT_FUNCTIONAL_CODE
1128 DEFAULT '5270';
1129 DECLARE LC_5280_EVENT_FUNCTIONAL_CODE ANCHOR DATA TYPE TO GLOBAL_TRANS_EVENT_SEQUENCE.EVENT_FUNCTIONAL_CODE
1130 DEFAULT '5280';
1131 DECLARE LC_5290_EVENT_FUNCTIONAL_CODE ANCHOR DATA TYPE TO GLOBAL_TRANS_EVENT_SEQUENCE.EVENT_FUNCTIONAL_CODE
1132 DEFAULT '5290';
1133 DECLARE LC_5300_EVENT_FUNCTIONAL_CODE ANCHOR DATA TYPE TO GLOBAL_TRANS_EVENT_SEQUENCE.EVENT_FUNCTIONAL_CODE
1134 DEFAULT '5300';
1135 DECLARE LC_6340_EVENT_FUNCTIONAL_CODE ANCHOR DATA TYPE TO GLOBAL_TRANS_EVENT_SEQUENCE.EVENT_FUNCTIONAL_CODE
1136 DEFAULT '6340';
1137 DECLARE LC_6350_EVENT_FUNCTIONAL_CODE ANCHOR DATA TYPE TO GLOBAL_TRANS_EVENT_SEQUENCE.EVENT_FUNCTIONAL_CODE
1138 DEFAULT '6350';
1139 DECLARE LC_E1089_ERROR_CODE ANCHOR DATA TYPE TO ERROR_MESSAGE.ERROR_CODE
1140 DEFAULT 'E1089';
1141 DECLARE LC_RMADD_TASK_CODE ANCHOR DATA TYPE TO TASK_DETAIL.TASK_CODE
1142 DEFAULT 'RMADD';
1143 DECLARE LC_RRADD_TASK_CODE ANCHOR DATA TYPE TO TASK_DETAIL.TASK_CODE
1144 DEFAULT 'RRADD';
1145 DECLARE LC_RCUCC_TASK_CODE ANCHOR DATA TYPE TO TASK_DETAIL.TASK_CODE
1146 DEFAULT 'RCUCC';
1147 DECLARE LC_NCSCS_TASK_CODE ANCHOR DATA TYPE TO TASK_DETAIL.TASK_CODE
1148 DEFAULT 'NCSCS';
1149 DECLARE LC_LSOUT_TASK_CODE ANCHOR DATA TYPE TO TASK_DETAIL.TASK_CODE
1150 DEFAULT 'LSOUT';
1151 DECLARE LC_SAOUT_TASK_CODE ANCHOR DATA TYPE TO TASK_DETAIL.TASK_CODE
1152 DEFAULT 'SAOUT';
1153 DECLARE LC_PMLEG_TASK_CODE ANCHOR DATA TYPE TO TASK_DETAIL.TASK_CODE
1154 DEFAULT 'PMLEG';
1155 DECLARE LC_VPADR_TASK_CODE ANCHOR DATA TYPE TO TASK_DETAIL.TASK_CODE
1156 DEFAULT 'VPADR';
1157 DECLARE LC_CGADR_TASK_CODE ANCHOR DATA TYPE TO TASK_DETAIL.TASK_CODE
1158 DEFAULT 'CGADR';
1159 DECLARE LC_LSADR_REASON_CODE ANCHOR DATA TYPE TO TASK_DETAIL.TASK_CODE
1160 DEFAULT 'LSADR';
1161 DECLARE LC_LSOUT_REASON_CODE ANCHOR DATA TYPE TO TASK_DETAIL.TASK_CODE
1162 DEFAULT 'LSOUT';
1163 DECLARE LC_NVB0002_JOB_CODE ANCHOR DATA TYPE TO JOB_PARM.JOB_CODE
1164 DEFAULT 'NVB0002';
1165 DECLARE LC_NVB0005_JOB_CODE ANCHOR DATA TYPE TO JOB_PARM.JOB_CODE
1166 DEFAULT 'NVB0005';
1167 DECLARE LS_BATCH_UPDATED_BY_NAME ANCHOR DATA TYPE TO USER_DETAIL.USER_NAME
1168 DEFAULT 'BATCH';
1169 DECLARE LS_PROCEDURE_NAME VARCHAR (100)
1170 DEFAULT 'BATCH_COMMON$SP_ADDRESS_UPDATE';
1171 DECLARE LD_HIGH_DATE DATE DEFAULT '12-31-9999';
1172 DECLARE LD_LOW_DATE DATE DEFAULT '01-01-0001';
1173
1174 DECLARE LB_OLD_PRIMARY_IND ANCHOR DATA TYPE TO PERSON_ADDRESS.PRIMARY_IND;
1175 DECLARE LB_NEW_PRIMARY_IND ANCHOR DATA TYPE TO PERSON_ADDRESS.PRIMARY_IND;
1176 DECLARE LB_PRIMARY_ADDRESS_EXISTS_IND ANCHOR DATA TYPE TO PERSON_ADDRESS.PRIMARY_IND
1177 DEFAULT 0;
1178 DECLARE LB_NEW_ADDR_IND ANCHOR DATA TYPE TO PERSON_LOCATE_STATUS.ADDR_IND;
1179 DECLARE LI_ROWCOUNT_QNTY INTEGER;
1180 DECLARE LI_PRIMARY_PERSON_ADDRESS_ID ANCHOR DATA TYPE TO PERSON_ADDRESS.PERSON_ADDRESS_ID;
1181 DECLARE LI_NEW_PRIMARY_PERSON_ADDRESS_ID ANCHOR DATA TYPE TO PERSON_ADDRESS.PERSON_ADDRESS_ID;
1182 DECLARE LI_ADDR_ID ANCHOR DATA TYPE TO PERSON_ADDRESS.ADDR_ID;
1183 DECLARE LI_PERSON_ADDRESS_ID ANCHOR DATA TYPE TO PERSON_ADDRESS.PERSON_ADDRESS_ID;
1184 DECLARE LI_PROCESS_TASK_SEQ_ID ANCHOR DATA TYPE TO PROCESS_TASK_DETAIL.PROCESS_TASK_SEQ_ID;
1185 DECLARE LI_TASK_USER_ID ANCHOR DATA TYPE TO TASK_USER_DETAIL.TASK_USER_ID;
1186 DECLARE LI_CASE_JOURNAL_SEQ_ID ANCHOR DATA TYPE TO CASE_JOURNAL.CASE_JOURNAL_SEQ_ID
1187 DEFAULT 0;
1188 DECLARE LI_OLD_CASE_JOURNAL_SEQ_ID ANCHOR DATA TYPE TO CASE_JOURNAL.CASE_JOURNAL_SEQ_ID
1189 DEFAULT 0;
1190 DECLARE LI_UPDATED_BY_ID ANCHOR DATA TYPE TO USER_DETAIL.USER_ID;
1191 DECLARE LI_TRANSACTION_EVENT_SEQ_NUMB ANCHOR DATA TYPE TO GLOBAL_TRANS_EVENT_SEQUENCE.TRANSACTION_EVENT_SEQ_NUMB
1192 DEFAULT NULL;
1193 DECLARE LI_OLD_TRANSACTION_EVENT_SEQ_NUMB ANCHOR DATA TYPE TO GLOBAL_TRANS_EVENT_SEQUENCE.TRANSACTION_EVENT_SEQ_NUMB
1194 DEFAULT NULL;
1195 DECLARE LI_SECONDARY_ADDRESS_COUNT INTEGER;
1196 DECLARE LC_MSG_CODE CHAR (5);
1197 DECLARE LC_STATE_CODE ANCHOR DATA TYPE TO ADDRESS_STATE.STATE_CODE;
1198 DECLARE LC_COUNTY_CODE ANCHOR DATA TYPE TO COUNTY.COUNTY_CODE;
1199 DECLARE LC_COUNTRY_CODE ANCHOR DATA TYPE TO REFM_COUNTRY.COUNTRY_CODE;
1200 DECLARE LC_ADDRESS_STATUS_CODE ANCHOR DATA TYPE TO REFM_VERIFY_STATUS.VERIFY_STATUS_CODE;
1201 DECLARE LC_OLD_ADDRESS_STATUS_CODE ANCHOR DATA TYPE TO REFM_VERIFY_STATUS.VERIFY_STATUS_CODE;
1202 DECLARE LC_PRIMARY_ADDRESS_STATUS_CODE ANCHOR DATA TYPE TO REFM_VERIFY_STATUS.VERIFY_STATUS_CODE;
1203 DECLARE LC_PRIMARY_ADDRESS_SOURCE_CODE ANCHOR DATA TYPE TO REFM_ADDRESS_SOURCE.ADDRESS_SOURCE_CODE;
1204 -- A - Add, E - Edit, V - Edit verify source detail, P - Edit verify source and primary address information
1205 DECLARE LC_ADD_EDIT_ADDR_ACTION_CODE CHAR (1);
1206 -- A - Active , I - Inactive
1207 DECLARE LC_DUPLICATE_ADDR_STATUS_CODE CHAR (1);
1208 DECLARE LC_COMP_REVW_ADDR_TASK_CODE ANCHOR DATA TYPE TO TASK_DETAIL.TASK_CODE;
1209 DECLARE LC_LSOUT_SAOUT_TASK_CODE ANCHOR DATA TYPE TO TASK_DETAIL.TASK_CODE;
1210 DECLARE LC_REVW_SEC_ADDR_TASK_CODE ANCHOR DATA TYPE TO TASK_DETAIL.TASK_CODE;
1211 DECLARE LC_EVENT_FUNCTIONAL_CODE ANCHOR DATA TYPE TO GLOBAL_TRANS_EVENT_SEQUENCE.EVENT_FUNCTIONAL_CODE
1212 DEFAULT NULL;
1213 DECLARE LC_CASE_PARTY_ROLE_CODE ANCHOR DATA TYPE TO CASE_PERSON.CASE_PARTY_ROLE_CODE;
1214 DECLARE LC_ADD_EDIT_STS_ADDR_TASK_CODE ANCHOR DATA TYPE TO TASK_DETAIL.TASK_CODE;
1215 DECLARE LC_OLD_AHIS_COUNTY_CODE ANCHOR DATA TYPE TO COUNTY.COUNTY_CODE;
1216 DECLARE LC_OLD_AHIS_ADDRESS_STATUS_CODE ANCHOR DATA TYPE TO REFM_VERIFY_STATUS.VERIFY_STATUS_CODE;
1217 DECLARE LC_REASON_CODE ANCHOR DATA TYPE TO CSENET_FAR_COMBINATION.REASON_CODE;
1218 DECLARE LS_SQL_DESC VARCHAR (100) DEFAULT '';
1219 DECLARE LS_SQL_DATA_DESC VARCHAR (1000) DEFAULT '';
1220 DECLARE LS_ERROR_DESC VARCHAR (4000) DEFAULT '';
1221 DECLARE LC_SQLSTATE_CODE CHAR (5);
1222 DECLARE LS_SQL_ERROR_DESC VARCHAR (4000);
1223
1224 DECLARE LS_ATTN_ADDR ANCHOR DATA TYPE TO ADDRESS.ATTN_ADDR;
1225 DECLARE LS_LINE1_ADDR ANCHOR DATA TYPE TO ADDRESS.LINE1_ADDR;
1226 DECLARE LS_LINE2_ADDR ANCHOR DATA TYPE TO ADDRESS.LINE2_ADDR;
1227 DECLARE LS_CITY_NAME ANCHOR DATA TYPE TO CITY.CITY_NAME;
1228 DECLARE LS_POST_CODE ANCHOR DATA TYPE TO POST_CODE.POST_CODE;
1229 DECLARE LD_END_DATE ANCHOR DATA TYPE TO PERSON_ADDRESS.END_DATE;
1230 DECLARE LD_OLD_END_DATE ANCHOR DATA TYPE TO PERSON_ADDRESS.END_DATE;
1231 DECLARE LD_OLD_ADDRESS_VERIFIED_DATE ANCHOR DATA TYPE TO PERSON_ADDRESS.ADDRESS_VERIFIED_DATE;
1232
1233 DECLARE LI_PERSONCUR_CASE_ID ANCHOR DATA TYPE TO CASE_PERSON.CASE_ID;
1234 DECLARE LC_PERSONCUR_CASE_PARTY_ROLE_CODE ANCHOR DATA TYPE TO CASE_PERSON.CASE_PARTY_ROLE_CODE;
1235 DECLARE LC_PERSONCUR_CASE_IGV_TYPE_CODE ANCHOR DATA TYPE TO CASE_DETAIL.CASE_IGV_TYPE_CODE;
1236 DECLARE LC_PERSONCUR_CASE_TYPE_CODE ANCHOR DATA TYPE TO CASE_DETAIL.CASE_TYPE_CODE;
1237 DECLARE LI_OUT_TRANSACTION_EVENT_SEQ_NUMB ANCHOR DATA TYPE TO GLOBAL_TRANS_EVENT_SEQUENCE.TRANSACTION_EVENT_SEQ_NUMB;
1238
1239
1240 DECLARE EXIT HANDLER FOR SQLEXCEPTION
1241 BEGIN
1242 GET DIAGNOSTICS EXCEPTION 1
1243 LS_SQL_ERROR_DESC = MESSAGE_TEXT;
1244
1245 IF LC_SQLSTATE_CODE <> ''
1246 THEN
1247 SET AC_MSG_CODE = LC_MSG_CODE;
1248 ELSE
1249 SET AC_MSG_CODE = LC_F_MSG_CODE;
1250 SET LS_ERROR_DESC = LS_SQL_ERROR_DESC;
1251 END IF;
1252
1253 CALL BATCH_COMMON$SP_GET_ERROR_DESCRIPTION (
1254 AS_PROCEDURE_NAME => LS_PROCEDURE_NAME,
1255 AS_ERROR_MESSAGE_DESC => LS_ERROR_DESC,
1256 AS_SQL_DESC => LS_SQL_DESC,
1257 AS_SQL_DATA_DESC => LS_SQL_DATA_DESC,
1258 AS_ERROR_DESC => AS_ERROR_DESC);
1259 END;
1260
1261 SET LC_SQLSTATE_CODE = '';
1262
1263 SET LS_SQL_DESC = 'BATCH_COMMON$SF_GET_USER_ID';
1264 SET LS_SQL_DATA_DESC =
1265 'UPDATED_BY_NAME = ' || NVL (AS_UPDATED_BY_NAME, '');
1266
1267 SET LI_UPDATED_BY_ID = BATCH_COMMON$SF_GET_USER_ID (AS_UPDATED_BY_NAME);
1268
1269 SET LC_ADDRESS_STATUS_CODE = AC_ADDRESS_STATUS_CODE;
1270 SET LD_END_DATE = NVL (AD_END_DATE, LD_HIGH_DATE);
1271 SET AD_ADDRESS_RECEIVED_DATE = NVL (AD_ADDRESS_RECEIVED_DATE, AD_RUN_DATE);
1272 SET AD_ADDRESS_STATUS_DATE = NVL (AD_ADDRESS_STATUS_DATE, AD_RUN_DATE);
1273 SET AD_ADDRESS_VERIFIED_DATE = NVL (AD_ADDRESS_VERIFIED_DATE, AD_RUN_DATE);
1274 SET LS_LINE1_ADDR = UPPER (NVL (TRIM (AS_LINE1_ADDR), ''));
1275 SET LS_LINE2_ADDR = UPPER (NVL (TRIM (AS_LINE2_ADDR), ''));
1276 SET LS_CITY_NAME = UPPER (NVL (TRIM (AS_CITY_NAME), ''));
1277 SET LC_STATE_CODE = UPPER (NVL (TRIM (AC_STATE_CODE), ''));
1278 SET LS_POST_CODE = UPPER (NVL (TRIM (AS_POST_CODE), ''));
1279 SET LC_COUNTY_CODE = UPPER (NVL (TRIM (AC_COUNTY_CODE), ''));
1280 SET LC_COUNTRY_CODE =
1281 CASE
1282 WHEN AC_COUNTRY_CODE = '' THEN LC_US_COUNTRY_CODE
1283 ELSE UPPER (AC_COUNTRY_CODE)
1284 END;
1285 SET LS_ATTN_ADDR = UPPER (NVL (TRIM (AS_ATTN_ADDR), ''));
1286
1287 -- When Invoking Program is Batch or Any screen other than AHIS for add as well as edit
1288 IF AS_UPDATED_BY_NAME = LS_BATCH_UPDATED_BY_NAME
1289 OR AC_SCREEN_CODE <> LC_AHIS_SCREEN_CODE
1290 THEN
1291 SET AD_BEGIN_DATE = NVL (AD_BEGIN_DATE, AD_RUN_DATE);
1292
1293 -- When invoking program is batch validate address fields received and raise error if invalid
1294 IF AS_UPDATED_BY_NAME = LS_BATCH_UPDATED_BY_NAME
1295 THEN
1296 SET LS_SQL_DESC = 'BATCH_COMMON$SP_VALIDATE_ADDRESS_INFORMATION';
1297
1298 SET LS_SQL_DATA_DESC =
1299 'LINE1_ADDR ='
1300 || NVL (LS_LINE1_ADDR, '')
1301 || ', CITY_NAME ='
1302 || NVL (LS_CITY_NAME, '')
1303 || ', STATE_CODE ='
1304 || NVL (LC_STATE_CODE, '')
1305 || ', COUNTY_CODE ='
1306 || NVL (LC_COUNTY_CODE, '')
1307 || ', COUNTRY_CODE ='
1308 || NVL (LC_COUNTRY_CODE, '')
1309 || ', POST_CODE ='
1310 || NVL (LS_POST_CODE, '');
1311
1312 -- Validate Address
1313 CALL BATCH_COMMON$SP_VALIDATE_ADDRESS_INFORMATION (
1314 AS_LINE1_ADDR => LS_LINE1_ADDR,
1315 AS_CITY_NAME => LS_CITY_NAME,
1316 AC_STATE_CODE => LC_STATE_CODE,
1317 AC_COUNTY_CODE => LC_COUNTY_CODE,
1318 AC_COUNTRY_CODE => LC_COUNTRY_CODE,
1319 AS_POST_CODE => AS_POST_CODE,
1320 AC_MSG_CODE => LC_MSG_CODE,
1321 AS_ERROR_DESC => LS_ERROR_DESC);
1322
1323 IF LC_MSG_CODE <> LC_S_MSG_CODE
1324 THEN
1325 SET LS_SQL_DESC =
1326 'BATCH_COMMON$SP_VALIDATE_ADDRESS_INFORMATION FAILED';
1327 SET LC_SQLSTATE_CODE = '75000';
1328 SIGNAL SQLSTATE '75000';
1329 END IF;
1330 END IF;
1331
1332 -- Identify duplicate active record exists when received from Batch or screens other than AHIS
1333 -- Check active address exists by matching full address
1334 SET LS_SQL_DESC =
1335 'SELECT AHIS_VW - CHECK RECEIVED FULL ADDRESS MATCHING TO THE PARTICIPANT';
1336 SET LS_SQL_DATA_DESC =
1337 'PERSON_ID = '
1338 || NVL (AI_PERSON_ID, LI_ZERO_NUMB)
1339 || ', ADDRESS_TYPE_CODE = '
1340 || NVL (AC_ADDRESS_TYPE_CODE, '')
1341 || 'LINE1_ADDR ='
1342 || NVL (LS_LINE1_ADDR, '')
1343 || ', LINE2_ADDR ='
1344 || LS_LINE2_ADDR
1345 || ', CITY_NAME ='
1346 || LS_CITY_NAME
1347 || ', STATE_CODE ='
1348 || LC_STATE_CODE
1349 || ', COUNTY_CODE ='
1350 || LC_COUNTY_CODE
1351 || ', COUNTRY_CODE ='
1352 || NVL (LC_COUNTRY_CODE, '')
1353 || ', POST_CODE ='
1354 || LS_POST_CODE;
1355
1356 SELECT A.PERSON_ADDRESS_ID,
1357 A.ADDRESS_STATUS_CODE,
1358 A.PRIMARY_IND,
1359 A.TRANSACTION_EVENT_SEQ_NUMB
1360 INTO LI_PERSON_ADDRESS_ID,
1361 LC_OLD_ADDRESS_STATUS_CODE,
1362 LB_OLD_PRIMARY_IND,
1363 LI_OLD_TRANSACTION_EVENT_SEQ_NUMB
1364 FROM AHIS_VW A
1365 WHERE A.PERSON_ID = AI_PERSON_ID
1366 AND A.ADDRESS_TYPE_CODE = AC_ADDRESS_TYPE_CODE
1367 AND A.ADDRESS_STATUS_CODE <> LC_B_ADDRESS_STATUS_CODE
1368 AND A.END_DATE = LD_HIGH_DATE
1369 AND A.LINE1_ADDR = LS_LINE1_ADDR
1370 AND NVL (A.LINE2_ADDR, '') = LS_LINE2_ADDR
1371 AND NVL (A.CITY_NAME, '') = LS_CITY_NAME
1372 AND NVL (A.STATE_CODE, '') = LC_STATE_CODE
1373 AND NVL (A.POST_CODE, '') = LS_POST_CODE
1374 AND A.COUNTRY_CODE = LC_COUNTRY_CODE
1375 AND NVL (A.COUNTY_CODE, '') = LC_COUNTY_CODE;
1376
1377 -- if duplicate active address exists set LC_DUPLICATE_ADDR_STATUS_CODE as "Active" ie LC_A_DUPLICATE_ADDR_STATUS_CODE
1378 IF LC_OLD_ADDRESS_STATUS_CODE IS NOT NULL
1379 THEN
1380 SET LC_DUPLICATE_ADDR_STATUS_CODE = LC_A_DUPLICATE_ADDR_STATUS_CODE;
1381 -- If duplicate active record does not exist , identify duplicate inactive record exists , when received from Batch (Exception for Referral case creation batch) or VISI screen in order to a) Discard the duplicate inactive record received when conditions or b) set LC_DUPLICATE_ADDR_STATUS_CODE as"Inactive" ie LC_I_DUPLICATE_ADDR_STATUS_CODE
1382 ELSEIF LC_OLD_ADDRESS_STATUS_CODE IS NULL
1383 AND ( ( AS_UPDATED_BY_NAME = LS_BATCH_UPDATED_BY_NAME
1384 AND AC_JOB_CODE <> LC_NVB0002_JOB_CODE)
1385 OR (AC_SCREEN_CODE = LC_VISI_SCREEN_CODE))
1386 THEN
1387 IF EXISTS
1388 (SELECT 1
1389 FROM AHIS_VW A
1390 WHERE A.PERSON_ID = AI_PERSON_ID
1391 AND A.ADDRESS_TYPE_CODE = AC_ADDRESS_TYPE_CODE
1392 AND ( A.END_DATE <> LD_HIGH_DATE
1393 OR A.ADDRESS_STATUS_CODE =
1394 LC_B_ADDRESS_STATUS_CODE)
1395 AND A.LINE1_ADDR = LS_LINE1_ADDR
1396 AND NVL (A.POST_CODE, '') = LS_POST_CODE)
1397 THEN
1398 SET LC_DUPLICATE_ADDR_STATUS_CODE =
1399 LC_I_DUPLICATE_ADDR_STATUS_CODE;
1400
1401 -- Retrieve the most recent end dated or confirmed bad duplicate inactive record .
1402 SET LS_SQL_DESC =
1403 'SELECT AHIS_VW - CHECK RECEIVED ADDRESS MATCHING TO THE INACTIVE ADDRESS OF THE PARTICIPANT';
1404 SET LS_SQL_DATA_DESC =
1405 'PERSON_ID = '
1406 || NVL (AI_PERSON_ID, LI_ZERO_NUMB)
1407 || ', ADDRESS_TYPE_CODE = '
1408 || NVL (AC_ADDRESS_TYPE_CODE, '')
1409 || 'LINE1_ADDR ='
1410 || NVL (LS_LINE1_ADDR, '')
1411 || ', POST_CODE ='
1412 || LS_POST_CODE;
1413
1414 SELECT A.ADDRESS_STATUS_CODE,
1415 A.END_DATE,
1416 A.ADDRESS_VERIFIED_DATE,
1417 A.PRIMARY_IND,
1418 A.TRANSACTION_EVENT_SEQ_NUMB
1419 INTO LC_OLD_ADDRESS_STATUS_CODE,
1420 LD_OLD_END_DATE,
1421 LD_OLD_ADDRESS_VERIFIED_DATE,
1422 LB_OLD_PRIMARY_IND,
1423 LI_OLD_TRANSACTION_EVENT_SEQ_NUMB
1424 FROM AHIS_VW A
1425 WHERE A.PERSON_ID = AI_PERSON_ID
1426 AND A.ADDRESS_TYPE_CODE = AC_ADDRESS_TYPE_CODE
1427 AND ( A.END_DATE <> LD_HIGH_DATE
1428 OR A.ADDRESS_STATUS_CODE = LC_B_ADDRESS_STATUS_CODE)
1429 AND A.LINE1_ADDR = LS_LINE1_ADDR
1430 AND NVL (A.POST_CODE, '') = LS_POST_CODE
1431 ORDER BY CASE
1432 WHEN A.ADDRESS_STATUS_CODE <> 'B' THEN A.END_DATE
1433 ELSE A.ADDRESS_VERIFIED_DATE
1434 END DESC
1435 FETCH FIRST ROW ONLY;
1436
1437 -- The system will discard address and Return Successful Message and also Return error message E0189 - Received Address Already Exists when the duplicate inactive address is confirmed bad and six months has not passed yet or when the duplicate inactive address end date is greater than the begin date received
1438 IF LC_OLD_ADDRESS_STATUS_CODE = LC_B_ADDRESS_STATUS_CODE
1439 AND ADD_MONTHS (NVL (AD_BEGIN_DATE, AD_RUN_DATE), -6) <=
1440 LD_OLD_ADDRESS_VERIFIED_DATE
1441 OR ( LC_OLD_ADDRESS_STATUS_CODE IN
1442 (LC_Y_ADDRESS_STATUS_CODE,
1443 LC_N_ADDRESS_STATUS_CODE,
1444 LC_P_ADDRESS_STATUS_CODE)
1445 AND NVL (AD_BEGIN_DATE, AD_RUN_DATE) <= LD_OLD_END_DATE)
1446 THEN
1447 SET AC_MSG_CODE = LC_S_MSG_CODE;
1448 SET AS_ERROR_DESC = LC_E1089_ERROR_CODE;
1449 RETURN;
1450 END IF;
1451 END IF;
1452 END IF;
1453
1454 -- Received address is duplicate of an active address Determine whether need to update or discard the received address information
1455
1456 -- If the source of address is untrusted and address type is mailing or residential and active address exists in No Action Taken status and person is NCP in an active open IV-D Case
1457 -- then update address status as Verification Pending
1458 -- If the source of address is trusted and active address exists in Confirmed Good status and (active address existing primary indication is true or existing primary indication is false and --job is DMV Locate Response)
1459 -- then update address verification details
1460 -- If the source of address is trusted and active address exists in Confirmed Good status and active address existing primary indication is false and job is not DMV Locate Response or screen code is not null)
1461 -- then update address primary indication
1462 -- If the source of address is trusted and active address exists in status other than Confirmed Good status
1463 -- then update address status as Confirmed Good
1464 -- if all above conditions are not satisfied then discard address return Return Successful Message and also Return error message E0189 - Received Address Already Exists
1465 IF LC_DUPLICATE_ADDR_STATUS_CODE = LC_A_DUPLICATE_ADDR_STATUS_CODE
1466 THEN
1467 IF AB_TRUSTED_SOURCE_IND = LB_FALSE_IND
1468 AND AC_ADDRESS_TYPE_CODE IN
1469 (LC_M_ADDRESS_TYPE_CODE, LC_R_ADDRESS_TYPE_CODE)
1470 AND LC_OLD_ADDRESS_STATUS_CODE = LC_N_ADDRESS_STATUS_CODE
1471 AND EXISTS
1472 (SELECT 1
1473 FROM CASE_PERSON P
1474 JOIN CASE_DETAIL C ON C.CASE_ID = P.CASE_ID
1475 WHERE P.PERSON_ID = AI_PERSON_ID
1476 AND P.CASE_PARTY_ROLE_CODE IN
1477 (LC_A_CASE_PARTY_ROLE_CODE,
1478 LC_P_CASE_PARTY_ROLE_CODE)
1479 AND P.CASE_PARTY_STATUS_CODE =
1480 LC_A_CASE_PARTY_STATUS_CODE
1481 AND C.CASE_TYPE_CODE <> LC_D_CASE_TYPE_CODE
1482 AND C.CASE_STATUS_CODE = LC_O_CASE_STATUS_CODE)
1483 THEN
1484 SET LC_ADD_EDIT_ADDR_ACTION_CODE = LC_EDIT_ADDR_ACTION_CODE;
1485 SET LC_ADDRESS_STATUS_CODE = LC_P_ADDRESS_STATUS_CODE;
1486 ELSEIF AB_TRUSTED_SOURCE_IND = LB_TRUE_IND
1487 AND LC_OLD_ADDRESS_STATUS_CODE = LC_Y_ADDRESS_STATUS_CODE
1488 AND ( LB_OLD_PRIMARY_IND = LB_TRUE_IND
1489 OR ( AC_JOB_CODE = LC_NVB0005_JOB_CODE
1490 AND LB_OLD_PRIMARY_IND = LB_FALSE_IND))
1491 THEN
1492 SET LC_ADD_EDIT_ADDR_ACTION_CODE = LC_VERIFY_ADDR_ACTION_CODE;
1493 ELSEIF AB_TRUSTED_SOURCE_IND = LB_TRUE_IND
1494 AND LC_OLD_ADDRESS_STATUS_CODE = LC_Y_ADDRESS_STATUS_CODE
1495 AND LB_OLD_PRIMARY_IND = LB_FALSE_IND
1496 AND ( AC_JOB_CODE <> LC_NVB0005_JOB_CODE
1497 OR AC_SCREEN_CODE IS NOT NULL)
1498 THEN
1499 SET LC_ADD_EDIT_ADDR_ACTION_CODE = LC_PRI_IND_ADDR_ACTION_CODE;
1500 SET LB_NEW_PRIMARY_IND = LB_TRUE_IND;
1501 -- If the source of address is trusted and active address exists in status other than Confirmed Good status then update address status as Confirmed Good
1502 ELSEIF AB_TRUSTED_SOURCE_IND = LB_TRUE_IND
1503 AND LC_OLD_ADDRESS_STATUS_CODE <> LC_Y_ADDRESS_STATUS_CODE
1504 THEN
1505 SET LC_ADD_EDIT_ADDR_ACTION_CODE = LC_EDIT_ADDR_ACTION_CODE;
1506 SET LC_ADDRESS_STATUS_CODE = LC_Y_ADDRESS_STATUS_CODE;
1507 -- Return error message E0189 - Received Address Already Exists
1508 ELSE
1509 SET AC_MSG_CODE = LC_S_MSG_CODE;
1510 SET AS_ERROR_DESC = LC_E1089_ERROR_CODE;
1511 RETURN;
1512 END IF;
1513 -- Received address is duplicate of an inactive address or new address for the person Received address will be added as a new address and status detrmined on trustworthiness of source and default participant role and default open case type
1514
1515 ELSE
1516 SET LC_ADD_EDIT_ADDR_ACTION_CODE = LC_ADD_ADDR_ACTION_CODE;
1517
1518 -- If the source of address is trusted then add address with status as Confirmed Good
1519 IF AB_TRUSTED_SOURCE_IND = LB_TRUE_IND
1520 THEN
1521 SET LC_ADDRESS_STATUS_CODE = LC_Y_ADDRESS_STATUS_CODE;
1522 -- If the source of address is untrusted and type is Mailing or Residential
1523 -- If untrusted source and address type is Mailing and it exists as inactive and the same address exists in Residential Type in Confirmed Good Status
1524 -- then add address as Confirmed Good
1525 -- If untrusted source and address type is Residential and it exists as inactive and the same address exists in Mailing Type in Confirmed Good Status
1526 -- then add address as Confirmed Good
1527 -- If the source of address is untrusted and address type is mailing or residential and person is NCP in an active open IV-D Case
1528 -- then add address as Verification Pending
1529 -- If the source of address is untrusted and address type is mailing or residential and person is not NCP in an active open IV-D Case
1530 -- then add address as No Action Taken
1531 ELSE
1532 IF AC_ADDRESS_TYPE_CODE IN
1533 (LC_M_ADDRESS_TYPE_CODE, LC_R_ADDRESS_TYPE_CODE)
1534 THEN
1535 IF LC_DUPLICATE_ADDR_STATUS_CODE =
1536 LC_I_DUPLICATE_ADDR_STATUS_CODE
1537 AND AC_ADDRESS_TYPE_CODE = LC_M_ADDRESS_TYPE_CODE
1538 AND EXISTS
1539 (SELECT 1
1540 FROM AHIS_VW A
1541 WHERE A.PERSON_ID = AI_PERSON_ID
1542 AND A.ADDRESS_TYPE_CODE =
1543 LC_R_ADDRESS_TYPE_CODE
1544 AND A.ADDRESS_STATUS_CODE =
1545 LC_Y_ADDRESS_STATUS_CODE
1546 AND A.END_DATE = LD_HIGH_DATE
1547 AND A.LINE1_ADDR = LS_LINE1_ADDR
1548 AND NVL (A.LINE2_ADDR, '') = LS_LINE2_ADDR
1549 AND NVL (A.CITY_NAME, '') = LS_CITY_NAME
1550 AND NVL (A.STATE_CODE, '') = LC_STATE_CODE
1551 AND NVL (A.POST_CODE, '') = LS_POST_CODE
1552 AND A.COUNTRY_CODE = LC_COUNTRY_CODE
1553 AND NVL (A.COUNTY_CODE, '') = LC_COUNTY_CODE)
1554 THEN
1555 SET LC_ADDRESS_STATUS_CODE = LC_Y_ADDRESS_STATUS_CODE;
1556 ELSEIF LC_DUPLICATE_ADDR_STATUS_CODE =
1557 LC_I_DUPLICATE_ADDR_STATUS_CODE
1558 AND AC_ADDRESS_TYPE_CODE = LC_R_ADDRESS_TYPE_CODE
1559 AND EXISTS
1560 (SELECT 1
1561 FROM AHIS_VW A
1562 WHERE A.PERSON_ID = AI_PERSON_ID
1563 AND A.ADDRESS_TYPE_CODE =
1564 LC_M_ADDRESS_TYPE_CODE
1565 AND A.ADDRESS_STATUS_CODE =
1566 LC_Y_ADDRESS_STATUS_CODE
1567 AND A.END_DATE = LD_HIGH_DATE
1568 AND A.LINE1_ADDR = LS_LINE1_ADDR
1569 AND NVL (A.LINE2_ADDR, '') =
1570 LS_LINE2_ADDR
1571 AND NVL (A.CITY_NAME, '') = LS_CITY_NAME
1572 AND NVL (A.STATE_CODE, '') =
1573 LC_STATE_CODE
1574 AND NVL (A.POST_CODE, '') = LS_POST_CODE
1575 AND A.COUNTRY_CODE = LC_COUNTRY_CODE
1576 AND NVL (A.COUNTY_CODE, '') =
1577 LC_COUNTY_CODE)
1578 THEN
1579 SET LC_ADDRESS_STATUS_CODE = LC_Y_ADDRESS_STATUS_CODE;
1580 ELSEIF EXISTS
1581 (SELECT 1
1582 FROM CASE_PERSON P
1583 JOIN CASE_DETAIL C ON C.CASE_ID = P.CASE_ID
1584 WHERE P.PERSON_ID = AI_PERSON_ID
1585 AND P.CASE_PARTY_ROLE_CODE IN
1586 (LC_A_CASE_PARTY_ROLE_CODE,
1587 LC_P_CASE_PARTY_ROLE_CODE)
1588 AND P.CASE_PARTY_STATUS_CODE =
1589 LC_A_CASE_PARTY_STATUS_CODE
1590 AND C.CASE_TYPE_CODE <> LC_D_CASE_TYPE_CODE
1591 AND C.CASE_STATUS_CODE =
1592 LC_O_CASE_STATUS_CODE)
1593 THEN
1594 SET LC_ADDRESS_STATUS_CODE = LC_P_ADDRESS_STATUS_CODE;
1595 ELSE
1596 SET LC_ADDRESS_STATUS_CODE = LC_N_ADDRESS_STATUS_CODE;
1597 END IF;
1598 -- If the source of address is untrusted and address type is other than mailing or residential
1599 -- then add address as No Action Taken
1600 ELSE
1601 SET LC_ADDRESS_STATUS_CODE = LC_N_ADDRESS_STATUS_CODE;
1602 END IF;
1603 END IF;
1604 END IF;
1605 END IF;
1606
1607
1608 --when screen is AHIS and address has been edited check for concurrency
1609 IF AC_SCREEN_CODE = LC_AHIS_SCREEN_CODE
1610 AND AI_TRANSACTION_EVENT_SEQ_NUMB IS NOT NULL
1611 THEN
1612 SET LS_SQL_DESC = 'SELECT AHIS_VW - GET OLD ADDRESS DETAIL';
1613 SET LS_SQL_DATA_DESC =
1614 'PERSON_ID = '
1615 || NVL (AI_PERSON_ID, LI_ZERO_NUMB)
1616 || ', TRANSACTION_EVENT_SEQ_NUMB = '
1617 || NVL (AI_TRANSACTION_EVENT_SEQ_NUMB, LI_ZERO_NUMB);
1618
1619 SELECT A.COUNTY_CODE, A.ADDRESS_STATUS_CODE, PRIMARY_IND
1620 INTO LC_OLD_AHIS_COUNTY_CODE,
1621 LC_OLD_AHIS_ADDRESS_STATUS_CODE,
1622 LB_OLD_PRIMARY_IND
1623 FROM AHIS_VW A
1624 WHERE A.PERSON_ADDRESS_ID = AI_PERSON_ADDRESS_ID
1625 AND A.PERSON_ID = AI_PERSON_ID
1626 AND A.TRANSACTION_EVENT_SEQ_NUMB = AI_TRANSACTION_EVENT_SEQ_NUMB;
1627
1628 IF LC_OLD_AHIS_ADDRESS_STATUS_CODE IS NULL
1629 THEN
1630 SET AC_MSG_CODE = LC_E0153_ERROR_CODE;
1631 SET AS_ERROR_DESC =
1632 'THIS RECORD IS BEING ADDED/UPDATED BY ANOTHER USER, PLEASE REFRESH SCREEN';
1633 RETURN;
1634 END IF;
1635 END IF;
1636
1637 -- Determine the event function code value based on address status /and end date information
1638 -- 5300 Invalidate Participant Address
1639 -- 5290 Add/Verified a Good Address
1640 -- 5270 Add Address
1641 -- 5280 Modify Address
1642 -- 6340 Modify Primary Address Indication
1643 -- 6350 Reverified a Good Address
1644
1645 IF LD_END_DATE <> LD_HIGH_DATE
1646 OR LC_ADDRESS_STATUS_CODE = LC_B_ADDRESS_STATUS_CODE
1647 THEN
1648 SET LC_EVENT_FUNCTIONAL_CODE = LC_5300_EVENT_FUNCTIONAL_CODE;
1649 ELSEIF AC_SCREEN_CODE = LC_AHIS_SCREEN_CODE
1650 THEN
1651 SET LC_EVENT_FUNCTIONAL_CODE =
1652 CASE
1653 WHEN ( AI_TRANSACTION_EVENT_SEQ_NUMB IS NULL
1654 OR LC_OLD_AHIS_ADDRESS_STATUS_CODE <>
1655 LC_ADDRESS_STATUS_CODE)
1656 AND LC_ADDRESS_STATUS_CODE = LC_Y_ADDRESS_STATUS_CODE
1657 THEN
1658 LC_5290_EVENT_FUNCTIONAL_CODE
1659 WHEN AI_TRANSACTION_EVENT_SEQ_NUMB IS NULL
1660 THEN
1661 LC_5270_EVENT_FUNCTIONAL_CODE
1662 ELSE
1663 LC_5280_EVENT_FUNCTIONAL_CODE
1664 END;
1665 ELSE
1666 SET LC_EVENT_FUNCTIONAL_CODE =
1667 CASE
1668 WHEN LC_ADD_EDIT_ADDR_ACTION_CODE =
1669 LC_VERIFY_ADDR_ACTION_CODE
1670 THEN
1671 LC_6350_EVENT_FUNCTIONAL_CODE
1672 WHEN LC_ADD_EDIT_ADDR_ACTION_CODE =
1673 LC_PRI_IND_ADDR_ACTION_CODE
1674 THEN
1675 LC_6340_EVENT_FUNCTIONAL_CODE
1676 WHEN LC_ADD_EDIT_ADDR_ACTION_CODE IN
1677 (LC_ADD_ADDR_ACTION_CODE,
1678 LC_EDIT_ADDR_ACTION_CODE)
1679 AND LC_ADDRESS_STATUS_CODE = LC_Y_ADDRESS_STATUS_CODE
1680 THEN
1681 LC_5290_EVENT_FUNCTIONAL_CODE
1682 WHEN LC_ADD_EDIT_ADDR_ACTION_CODE = LC_ADD_ADDR_ACTION_CODE
1683 THEN
1684 LC_5270_EVENT_FUNCTIONAL_CODE
1685 WHEN LC_ADD_EDIT_ADDR_ACTION_CODE = LC_EDIT_ADDR_ACTION_CODE
1686 THEN
1687 LC_5280_EVENT_FUNCTIONAL_CODE
1688 END;
1689 END IF;
1690
1691 SET LS_SQL_DESC = 'BATCH_COMMON$SP_GEN_SEQ_TXN_EVENT';
1692 SET LS_SQL_DATA_DESC =
1693 'UPDATED_BY_NAME = '
1694 || NVL (AS_UPDATED_BY_NAME, '')
1695 || ', SCREEN_CODE = '
1696 || NVL (AC_SCREEN_CODE, '')
1697 || ', JOB_CODE ='
1698 || NVL (AC_JOB_CODE, '');
1699
1700 CALL BATCH_COMMON$SP_GEN_SEQ_TXN_EVENT (
1701 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
1702 AC_SCREEN_CODE => AC_SCREEN_CODE,
1703 AC_JOB_CODE => AC_JOB_CODE,
1704 AC_EVENT_FUNCTIONAL_CODE => LC_EVENT_FUNCTIONAL_CODE,
1705 AI_TRANSACTION_EVENT_SEQ_NUMB => LI_TRANSACTION_EVENT_SEQ_NUMB,
1706 AC_MSG_CODE => LC_MSG_CODE,
1707 AS_ERROR_DESC => LS_ERROR_DESC);
1708
1709 IF LC_MSG_CODE <> LC_S_MSG_CODE
1710 THEN
1711 SET LS_SQL_DESC = 'BATCH_COMMON$SP_GEN_SEQ_TXN_EVENT FAILED';
1712 SET LC_SQLSTATE_CODE = '75000';
1713 SIGNAL SQLSTATE '75000';
1714 END IF;
1715
1716 -- Genarate or get existing address id when address added or edited and there is change in county
1717 IF AI_TRANSACTION_EVENT_SEQ_NUMB IS NULL
1718 OR ( AI_TRANSACTION_EVENT_SEQ_NUMB IS NOT NULL
1719 AND NVL (LC_OLD_AHIS_COUNTY_CODE, '') <> LC_COUNTY_CODE)
1720 THEN
1721 SET LS_SQL_DESC = 'BATCH_COMMON$SP_GET_ADDR_ID';
1722 SET LS_SQL_DATA_DESC =
1723 'LINE1_ADDR ='
1724 || NVL (LS_LINE1_ADDR, '')
1725 || ', LINE2_ADDR ='
1726 || NVL (LS_LINE2_ADDR, '')
1727 || ', ATTN_ADDR ='
1728 || NVL (LS_ATTN_ADDR, '')
1729 || ', CITY_NAME ='
1730 || NVL (LS_CITY_NAME, '')
1731 || ', POST_CODE = '
1732 || NVL (LS_POST_CODE, '')
1733 || ', STATE_CODE = '
1734 || NVL (LC_STATE_CODE, '')
1735 || ', COUNTY_CODE = '
1736 || NVL (LC_COUNTY_CODE, '')
1737 || ', COUNTRY_CODE = '
1738 || NVL (LC_COUNTRY_CODE, '')
1739 || ', ADDR_STD_IND = '
1740 || NVL (AB_ADDR_STD_IND, LB_FALSE_IND)
1741 || ', UPDATED_BY_NAME = '
1742 || NVL (AS_UPDATED_BY_NAME, '')
1743 || ', AC_SCREEN_CODE = '
1744 || NVL (AC_SCREEN_CODE, '')
1745 || ', AC_JOB_CODE = '
1746 || NVL (AC_JOB_CODE, '');
1747
1748 -- Get the unique id of the given address
1749 CALL BATCH_COMMON$SP_GET_ADDR_ID (
1750 AS_LINE1_ADDR => LS_LINE1_ADDR,
1751 AS_LINE2_ADDR => LS_LINE2_ADDR,
1752 AS_ATTN_ADDR => LS_ATTN_ADDR,
1753 AS_CITY_NAME => LS_CITY_NAME,
1754 AS_POST_CODE => LS_POST_CODE,
1755 AC_STATE_CODE => LC_STATE_CODE,
1756 AC_COUNTY_CODE => LC_COUNTY_CODE,
1757 AC_COUNTRY_CODE => LC_COUNTRY_CODE,
1758 AB_ADDR_STD_IND => AB_ADDR_STD_IND,
1759 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
1760 AC_SCREEN_CODE => AC_SCREEN_CODE,
1761 AC_JOB_CODE => AC_JOB_CODE,
1762 AI_TRANSACTION_EVENT_SEQ_NUMB => LI_TRANSACTION_EVENT_SEQ_NUMB,
1763 AI_ADDR_ID => LI_ADDR_ID,
1764 AC_MSG_CODE => LC_MSG_CODE,
1765 AS_ERROR_DESC => LS_ERROR_DESC);
1766
1767 IF LC_MSG_CODE <> LC_S_MSG_CODE
1768 THEN
1769 SET LS_SQL_DESC = 'BATCH_COMMON$SP_GET_ADDR_ID FAILED';
1770 SET LC_SQLSTATE_CODE = '75000';
1771 SIGNAL SQLSTATE '75000';
1772 END IF;
1773 END IF;
1774
1775
1776 -- Decide Primary indication setting
1777 -- When a)When Batch / Other than AHIS screen AND address is to be added or edited
1778 -- OR b) Screen is AHIS and Primary indication is updated as true from false / address added as Primary and confirmed good
1779
1780 IF AC_ADDRESS_TYPE_CODE <> LC_O_ADDRESS_TYPE_CODE
1781 AND ( ( ( AC_SCREEN_CODE <> LC_AHIS_SCREEN_CODE
1782 OR AS_UPDATED_BY_NAME = LS_BATCH_UPDATED_BY_NAME)
1783 AND LC_ADD_EDIT_ADDR_ACTION_CODE IN
1784 (LC_ADD_ADDR_ACTION_CODE, LC_EDIT_ADDR_ACTION_CODE))
1785 OR ( AC_SCREEN_CODE = LC_AHIS_SCREEN_CODE
1786 AND LD_END_DATE = LD_HIGH_DATE
1787 AND ( AI_TRANSACTION_EVENT_SEQ_NUMB IS NULL
1788 AND AB_PRIMARY_IND = LB_TRUE_IND
1789 AND AC_ADDRESS_STATUS_CODE = 'Y')
1790 OR ( AI_TRANSACTION_EVENT_SEQ_NUMB IS NOT NULL
1791 AND LB_OLD_PRIMARY_IND = LB_FALSE_IND
1792 AND AB_PRIMARY_IND = LB_TRUE_IND)))
1793 THEN
1794 -- Get information regarding EXISTING Primary address of incoming address type for the participant
1795 SET LS_SQL_DESC =
1796 'SELECT PERSON_ADDRESS - GET EXISTING PRIMARY ADDRESS INFORMATION';
1797 SET LS_SQL_DATA_DESC =
1798 'PERSON_ID = '
1799 || NVL (AI_PERSON_ID, LI_ZERO_NUMB)
1800 || ', ADDRESS_TYPE_CODE = '
1801 || NVL (AC_ADDRESS_TYPE_CODE, '');
1802
1803 SELECT A.PERSON_ADDRESS_ID,
1804 A.ADDRESS_STATUS_CODE,
1805 A.ADDRESS_SOURCE_CODE,
1806 A.PRIMARY_IND
1807 INTO LI_PRIMARY_PERSON_ADDRESS_ID,
1808 LC_PRIMARY_ADDRESS_STATUS_CODE,
1809 LC_PRIMARY_ADDRESS_SOURCE_CODE,
1810 LB_PRIMARY_ADDRESS_EXISTS_IND
1811 FROM PERSON_ADDRESS A
1812 WHERE A.PERSON_ID = AI_PERSON_ID
1813 AND A.ADDRESS_TYPE_CODE = AC_ADDRESS_TYPE_CODE
1814 AND A.ADDRESS_STATUS_CODE <> LC_B_ADDRESS_STATUS_CODE
1815 AND A.PRIMARY_IND = LB_TRUE_IND
1816 AND A.END_DATE = LD_HIGH_DATE;
1817
1818 -- if screen is AHIS then System will determine primary indication as TRUE
1819 IF AC_SCREEN_CODE = LC_AHIS_SCREEN_CODE
1820 THEN
1821 SET LB_NEW_PRIMARY_IND = LB_TRUE_IND;
1822 -- when received from Batch or screens other than AHIS Determine primary indication of the participant address
1823 ELSEIF LC_ADD_EDIT_ADDR_ACTION_CODE IN
1824 (LC_ADD_ADDR_ACTION_CODE, LC_EDIT_ADDR_ACTION_CODE)
1825 THEN
1826 -- if no primary address exists for the address type then System will determine primary indication as TRUE
1827 IF LB_PRIMARY_ADDRESS_EXISTS_IND = LB_FALSE_IND
1828 THEN
1829 SET LB_NEW_PRIMARY_IND = LB_TRUE_IND;
1830 -- if active primary address exists for the received address type
1831 ELSE
1832 /*When system has determined the need to update existing address status to Confirmed Good and address existing primary indication is false
1833 1) System will determine primary indication as true when determined address status is Confirmed Good and (Batch is not DMV Locate Response or Screen is other than AHIS)
1834 2) System will determine primary indication as true when determined address status is Confirmed Good and Primary address is not in Confirmed Good Status and Batch is DMV Locate Response*/
1835 IF LC_ADD_EDIT_ADDR_ACTION_CODE = LC_EDIT_ADDR_ACTION_CODE
1836 AND LB_OLD_PRIMARY_IND = LB_FALSE_IND
1837 THEN
1838 SET LB_NEW_PRIMARY_IND =
1839 CASE
1840 WHEN LC_ADDRESS_STATUS_CODE =
1841 LC_Y_ADDRESS_STATUS_CODE
1842 AND ( AC_JOB_CODE <> LC_NVB0005_JOB_CODE
1843 OR AC_SCREEN_CODE <> LC_AHIS_SCREEN_CODE
1844 OR ( LC_PRIMARY_ADDRESS_STATUS_CODE <>
1845 LC_Y_ADDRESS_STATUS_CODE
1846 AND AC_JOB_CODE = LC_NVB0005_JOB_CODE))
1847 THEN
1848 LB_TRUE_IND
1849 END;
1850 -- When system has determined to add address
1851 /* 1)System will determine primary indication as FALSE when determined address status is Confirmed Good and Job is DMV Locate Response and Primary address exists as Confirmed Good
1852 2) System will determine primary indication as FALSE when determined address status is Confirmed Good and received source is not CST/CSP and Type is Mailing and participant role is CST and Primary address exists as Confirmed Good and Primary address source is CST/CSP
1853 3) System will determine primary indication as TRUE when determined address status is Confirmed Good and above 2 conditions are not satisfied
1854 4) System will determine primary indication as FALSE when determined address status is No Action Taken / Verification Pending*/
1855 ELSEIF LC_ADD_EDIT_ADDR_ACTION_CODE = LC_ADD_ADDR_ACTION_CODE
1856 THEN
1857 -- Received address is mailing
1858 IF AC_ADDRESS_TYPE_CODE = LC_M_ADDRESS_TYPE_CODE
1859 THEN
1860 -- First get the participant case relationship in open case, if no open case exists to the participant then get case relationship from closed case
1861 SET LS_SQL_DESC = 'GET CASE PERSON RELATIONSHIP CODE';
1862 SET LS_SQL_DATA_DESC =
1863 'PERSON_ID =' || NVL (AI_PERSON_ID, LI_ZERO_NUMB);
1864
1865 SELECT A.CASE_PARTY_ROLE_CODE
1866 INTO LC_CASE_PARTY_ROLE_CODE
1867 FROM CASE_PERSON A
1868 JOIN CASE_DETAIL B ON B.CASE_ID = A.CASE_ID
1869 WHERE A.PERSON_ID = AI_PERSON_ID
1870 AND A.CASE_PARTY_STATUS_CODE =
1871 LC_A_CASE_PARTY_STATUS_CODE
1872 ORDER BY B.CASE_STATUS_CODE DESC,
1873 CASE
1874 WHEN A.CASE_PARTY_ROLE_CODE = 'C' THEN 1
1875 ELSE 2
1876 END
1877 FETCH FIRST 1 ROWS ONLY;
1878 END IF;
1879
1880 SET LB_NEW_PRIMARY_IND =
1881 CASE
1882 WHEN LC_ADDRESS_STATUS_CODE =
1883 LC_Y_ADDRESS_STATUS_CODE
1884 THEN
1885 CASE
1886 WHEN AC_JOB_CODE = LC_NVB0005_JOB_CODE
1887 AND LC_PRIMARY_ADDRESS_STATUS_CODE =
1888 LC_Y_ADDRESS_STATUS_CODE
1889 THEN
1890 LB_FALSE_IND
1891 WHEN AC_ADDRESS_SOURCE_CODE NOT IN
1892 (LC_CST_ADDRESS_SOURCE_CODE,
1893 LC_CSP_ADDRESS_SOURCE_CODE)
1894 AND LC_CASE_PARTY_ROLE_CODE =
1895 LC_C_CASE_PARTY_ROLE_CODE
1896 AND AC_ADDRESS_TYPE_CODE =
1897 LC_M_ADDRESS_TYPE_CODE
1898 AND LC_PRIMARY_ADDRESS_STATUS_CODE =
1899 LC_Y_ADDRESS_STATUS_CODE
1900 AND LC_PRIMARY_ADDRESS_SOURCE_CODE IN
1901 (LC_CST_ADDRESS_SOURCE_CODE,
1902 LC_CSP_ADDRESS_SOURCE_CODE)
1903 THEN
1904 LB_FALSE_IND
1905 ELSE
1906 LB_TRUE_IND
1907 END
1908 WHEN LC_ADDRESS_STATUS_CODE IN
1909 (LC_P_ADDRESS_STATUS_CODE,
1910 LC_N_ADDRESS_STATUS_CODE)
1911 THEN
1912 LB_FALSE_IND
1913 END;
1914 END IF;
1915 END IF;
1916 END IF;
1917
1918 IF LB_PRIMARY_ADDRESS_EXISTS_IND = LB_TRUE_IND
1919 AND LB_NEW_PRIMARY_IND = LB_TRUE_IND
1920 THEN
1921 SET LS_SQL_DESC =
1922 'UPDATE PERSON_ADDRESS - CHANGE EXISTING PRIMARY ADDRESS AS SECONDARY ADDRESS';
1923 SET LS_SQL_DATA_DESC =
1924 'PERSON_ADDRES_ID = '
1925 || NVL (LI_PRIMARY_PERSON_ADDRESS_ID, LI_ZERO_NUMB)
1926 || ', PERSON_ID = '
1927 || NVL (AI_PERSON_ID, LI_ZERO_NUMB)
1928 || ', ADDRESS_TYPE_CODE = '
1929 || NVL (AC_ADDRESS_TYPE_CODE, '');
1930
1931 UPDATE PERSON_ADDRESS
1932 SET PRIMARY_IND = LB_FALSE_IND,
1933 TRANSACTION_EVENT_SEQ_NUMB = LI_TRANSACTION_EVENT_SEQ_NUMB,
1934 UPDATED_BY_ID = LI_UPDATED_BY_ID
1935 WHERE PERSON_ADDRESS_ID = LI_PRIMARY_PERSON_ADDRESS_ID
1936 AND PERSON_ID = AI_PERSON_ID
1937 AND ADDRESS_TYPE_CODE = AC_ADDRESS_TYPE_CODE
1938 AND PRIMARY_IND = LB_TRUE_IND
1939 AND END_DATE = LD_HIGH_DATE;
1940
1941 GET DIAGNOSTICS LI_ROWCOUNT_QNTY = ROW_COUNT;
1942
1943 IF LI_ROWCOUNT_QNTY = LI_ZERO_NUMB
1944 THEN
1945 SET LC_MSG_CODE = LC_F_MSG_CODE;
1946 SET LS_ERROR_DESC = 'UPDATE PERSON_ADDRESS - 1 FAILED';
1947 SET LC_SQLSTATE_CODE = '75000';
1948 SIGNAL SQLSTATE '75000';
1949 END IF;
1950 END IF;
1951 END IF;
1952
1953 -- Get address verify source code and verified date based on the address status
1954 IF LC_ADDRESS_STATUS_CODE IN
1955 (LC_P_ADDRESS_STATUS_CODE, LC_N_ADDRESS_STATUS_CODE)
1956 THEN
1957 SET AC_ADDRESS_VERIFY_SOURCE_CODE = NULL;
1958 SET AD_ADDRESS_VERIFIED_DATE = NULL;
1959 END IF;
1960
1961 -- Caseworker adds address or system determines address needs to be added
1962 IF AI_TRANSACTION_EVENT_SEQ_NUMB IS NULL
1963 AND ( LC_ADD_EDIT_ADDR_ACTION_CODE IS NULL
1964 OR LC_ADD_EDIT_ADDR_ACTION_CODE = LC_ADD_ADDR_ACTION_CODE)
1965 THEN
1966 -- Add Person Address Information
1967 SET LS_SQL_DESC = 'INSERT PERSON_ADDRESS - 1';
1968 SET LS_SQL_DATA_DESC =
1969 'PERSON_ID = '
1970 || NVL (AI_PERSON_ID, LI_ZERO_NUMB)
1971 || ', ADDRESS_TYPE_CODE = '
1972 || NVL (AC_ADDRESS_TYPE_CODE, '')
1973 || ', TRANSACTION_EVENT_SEQ_NUMB = '
1974 || NVL (LI_TRANSACTION_EVENT_SEQ_NUMB, LI_ZERO_NUMB)
1975 || ', ADDR_ID = '
1976 || NVL (LI_ADDR_ID, LI_ZERO_NUMB)
1977 || ', ADDRESS_SOURCE_CODE = '
1978 || NVL (AC_ADDRESS_SOURCE_CODE, '')
1979 || ', ADDRESS_STATUS_CODE = '
1980 || NVL (NVL (AC_ADDRESS_STATUS_CODE, LC_ADDRESS_STATUS_CODE),
1981 '')
1982 || ', ADDRESS_STATUS_DATE = '
1983 || NVL (AD_ADDRESS_STATUS_DATE, '')
1984 || ', ADDRESS_VERIFY_SOURCE_CODE = '
1985 || NVL (AC_ADDRESS_VERIFY_SOURCE_CODE, '')
1986 || ', ADDRESS_VERIFIED_DATE = '
1987 || NVL (AD_ADDRESS_VERIFIED_DATE, LD_LOW_DATE)
1988 || ', ADDRESS_RECEIVED_DATE = '
1989 || NVL (AD_ADDRESS_RECEIVED_DATE, LD_LOW_DATE)
1990 || ', PRIMARY_IND = '
1991 || NVL (NVL (AB_PRIMARY_IND, LB_NEW_PRIMARY_IND), LB_FALSE_IND)
1992 || ', BEGIN_DATE = '
1993 || NVL (AD_BEGIN_DATE, LD_LOW_DATE)
1994 || ', END_DATE = '
1995 || NVL (LD_END_DATE, LD_LOW_DATE)
1996 || ', COMMENT_NOTE = '
1997 || NVL (AS_COMMENT_NOTE, '')
1998 || ', UPDATED_BY_ID = '
1999 || NVL (LI_UPDATED_BY_ID, LI_ZERO_NUMB);
2000
2001 INSERT INTO PERSON_ADDRESS (PERSON_ADDRESS_ID,
2002 PERSON_ID,
2003 ADDR_ID,
2004 ADDRESS_TYPE_CODE,
2005 ADDRESS_SOURCE_CODE,
2006 ADDRESS_STATUS_CODE,
2007 ADDRESS_STATUS_DATE,
2008 ADDRESS_VERIFY_SOURCE_CODE,
2009 ADDRESS_VERIFIED_DATE,
2010 ADDRESS_RECEIVED_DATE,
2011 PRIMARY_IND,
2012 BEGIN_DATE,
2013 END_DATE,
2014 COMMENT_NOTE,
2015 TRANSACTION_EVENT_SEQ_NUMB,
2016 UPDATED_BY_ID)
2017 VALUES (DEFAULT,
2018 AI_PERSON_ID,
2019 LI_ADDR_ID,
2020 AC_ADDRESS_TYPE_CODE,
2021 AC_ADDRESS_SOURCE_CODE,
2022 NVL (AC_ADDRESS_STATUS_CODE, LC_ADDRESS_STATUS_CODE),
2023 AD_ADDRESS_STATUS_DATE,
2024 AC_ADDRESS_VERIFY_SOURCE_CODE,
2025 AD_ADDRESS_VERIFIED_DATE,
2026 AD_ADDRESS_RECEIVED_DATE,
2027 NVL (AB_PRIMARY_IND, NVL (LB_NEW_PRIMARY_IND, FALSE)),
2028 AD_BEGIN_DATE,
2029 LD_END_DATE,
2030 AS_COMMENT_NOTE,
2031 LI_TRANSACTION_EVENT_SEQ_NUMB,
2032 LI_UPDATED_BY_ID);
2033
2034
2035 GET DIAGNOSTICS LI_ROWCOUNT_QNTY = ROW_COUNT;
2036
2037 IF LI_ROWCOUNT_QNTY = LI_ZERO_NUMB
2038 THEN
2039 SET LC_MSG_CODE = LC_F_MSG_CODE;
2040 SET LS_ERROR_DESC = 'INSERT PERSON_ADDRESS - 1 FAILED';
2041 SET LC_SQLSTATE_CODE = '75000';
2042 SIGNAL SQLSTATE '75000';
2043 END IF;
2044
2045 -- Retrieve the inserted new person address id
2046 SET AI_NEW_PERSON_ADDRESS_ID = IDENTITY_VAL_LOCAL ();
2047 -- Caseworker edits address or system determines existing address status is to be updated
2048 ELSEIF AI_TRANSACTION_EVENT_SEQ_NUMB IS NOT NULL
2049 OR LC_ADD_EDIT_ADDR_ACTION_CODE = LC_EDIT_ADDR_ACTION_CODE
2050 THEN
2051 SET LS_SQL_DESC = 'UPDATE PERSON_ADDRESS - INFORMATION';
2052 SET LS_SQL_DATA_DESC =
2053 'PERSON_ADDRESS_ID = '
2054 || NVL (NVL (AI_PERSON_ADDRESS_ID, LI_PERSON_ADDRESS_ID),
2055 LI_ZERO_NUMB)
2056 || ', PERSON_ID = '
2057 || NVL (AI_PERSON_ID, LI_ZERO_NUMB)
2058 || ', ADDRESS_TYPE_CODE = '
2059 || NVL (AC_ADDRESS_TYPE_CODE, '')
2060 || ', TRANSACTION_EVENT_SEQ_NUMB = '
2061 || NVL (
2062 NVL (AI_TRANSACTION_EVENT_SEQ_NUMB,
2063 LI_OLD_TRANSACTION_EVENT_SEQ_NUMB),
2064 LI_ZERO_NUMB)
2065 || ', ADDR_ID = '
2066 || NVL (LI_ADDR_ID, LI_ZERO_NUMB)
2067 || ', ADDRESS_STATUS_CODE = '
2068 || NVL (NVL (AC_ADDRESS_STATUS_CODE, LC_ADDRESS_STATUS_CODE),
2069 '')
2070 || ', ADDRESS_STATUS_DATE = '
2071 || NVL (AD_ADDRESS_STATUS_DATE, LD_LOW_DATE)
2072 || ', ADDRESS_VERIFY_SOURCE_CODE = '
2073 || NVL (AC_ADDRESS_VERIFY_SOURCE_CODE, '')
2074 || ', PRIMARY_IND = '
2075 || NVL (NVL (AB_PRIMARY_IND, LB_NEW_PRIMARY_IND), LB_FALSE_IND)
2076 || ', ADDRESS_VERIFIED_DATE = '
2077 || NVL (AD_ADDRESS_VERIFIED_DATE, LD_LOW_DATE)
2078 || ', END_DATE = '
2079 || NVL (LD_END_DATE, LD_LOW_DATE)
2080 || ', COMMENT_NOTE = '
2081 || NVL (AS_COMMENT_NOTE, '')
2082 || ', UPDATED_BY_ID = '
2083 || NVL (LI_UPDATED_BY_ID, LI_ZERO_NUMB);
2084
2085 UPDATE PERSON_ADDRESS
2086 SET ADDR_ID = NVL (LI_ADDR_ID, ADDR_ID),
2087 ADDRESS_STATUS_CODE =
2088 NVL (AC_ADDRESS_STATUS_CODE, LC_ADDRESS_STATUS_CODE),
2089 ADDRESS_STATUS_DATE = AD_ADDRESS_STATUS_DATE,
2090 ADDRESS_VERIFY_SOURCE_CODE = AC_ADDRESS_VERIFY_SOURCE_CODE,
2091 PRIMARY_IND =
2092 CASE
2093 WHEN AB_PRIMARY_IND IS NOT NULL THEN AB_PRIMARY_IND
2094 WHEN LB_NEW_PRIMARY_IND IS NOT NULL THEN LB_NEW_PRIMARY_IND
2095 ELSE PRIMARY_IND
2096 END,
2097 ADDRESS_VERIFIED_DATE = AD_ADDRESS_VERIFIED_DATE,
2098 END_DATE = LD_END_DATE,
2099 COMMENT_NOTE = AS_COMMENT_NOTE,
2100 TRANSACTION_EVENT_SEQ_NUMB = LI_TRANSACTION_EVENT_SEQ_NUMB,
2101 UPDATED_BY_ID = LI_UPDATED_BY_ID
2102 WHERE PERSON_ADDRESS_ID =
2103 NVL (AI_PERSON_ADDRESS_ID, LI_PERSON_ADDRESS_ID)
2104 AND PERSON_ID = AI_PERSON_ID
2105 AND ADDRESS_TYPE_CODE = AC_ADDRESS_TYPE_CODE
2106 AND TRANSACTION_EVENT_SEQ_NUMB =
2107 NVL (AI_TRANSACTION_EVENT_SEQ_NUMB,
2108 LI_OLD_TRANSACTION_EVENT_SEQ_NUMB);
2109
2110 GET DIAGNOSTICS LI_ROWCOUNT_QNTY = ROW_COUNT;
2111
2112 IF LI_ROWCOUNT_QNTY = LI_ZERO_NUMB
2113 THEN
2114 SET LC_MSG_CODE = LC_F_MSG_CODE;
2115 SET LS_ERROR_DESC = 'UPDATE PERSON_ADDRESS - 3 FAILED';
2116 SET LC_SQLSTATE_CODE = '75000';
2117 SIGNAL SQLSTATE '75000';
2118 END IF;
2119 -- System determined to update address primary indication or address verification details
2120 ELSEIF LC_ADD_EDIT_ADDR_ACTION_CODE IN
2121 (LC_VERIFY_ADDR_ACTION_CODE, LC_PRI_IND_ADDR_ACTION_CODE)
2122 THEN
2123 -- Updated person address primary indicator, verification source and verified date
2124 SET LS_SQL_DESC =
2125 'UPDATE PERSON_ADDRESS - VERIFICATION INFORMATION AND PRIMARY INDICATION';
2126 SET LS_SQL_DATA_DESC =
2127 'PERSON_ADDRESS_ID = '
2128 || NVL (LI_PERSON_ADDRESS_ID, LI_ZERO_NUMB)
2129 || ', PERSON_ID = '
2130 || NVL (AI_PERSON_ID, LI_ZERO_NUMB)
2131 || ', ADDRESS_TYPE_CODE = '
2132 || NVL (AC_ADDRESS_TYPE_CODE, '')
2133 || ', ADDRESS_VERIFY_SOURCE_CODE = '
2134 || NVL (AC_ADDRESS_VERIFY_SOURCE_CODE, '')
2135 || ', ADDRESS_VERIFIED_DATE = '
2136 || NVL (AD_RUN_DATE, LD_LOW_DATE)
2137 || ', PRIMARY_IND = '
2138 || NVL (LB_NEW_PRIMARY_IND, LB_FALSE_IND)
2139 || ', UPDATED_BY_ID = '
2140 || NVL (LI_UPDATED_BY_ID, LI_ZERO_NUMB);
2141
2142 UPDATE PERSON_ADDRESS
2143 SET ADDRESS_VERIFY_SOURCE_CODE = AC_ADDRESS_VERIFY_SOURCE_CODE,
2144 ADDRESS_VERIFIED_DATE = AD_RUN_DATE,
2145 PRIMARY_IND = NVL (LB_NEW_PRIMARY_IND, PRIMARY_IND),
2146 TRANSACTION_EVENT_SEQ_NUMB = LI_TRANSACTION_EVENT_SEQ_NUMB,
2147 UPDATED_BY_ID = LI_UPDATED_BY_ID
2148 WHERE PERSON_ADDRESS_ID = LI_PERSON_ADDRESS_ID
2149 AND PERSON_ID = AI_PERSON_ID
2150 AND ADDRESS_TYPE_CODE = AC_ADDRESS_TYPE_CODE;
2151
2152 GET DIAGNOSTICS LI_ROWCOUNT_QNTY = ROW_COUNT;
2153
2154 IF LI_ROWCOUNT_QNTY = LI_ZERO_NUMB
2155 THEN
2156 SET LC_MSG_CODE = LC_F_MSG_CODE;
2157 SET LS_ERROR_DESC = 'UPDATE PERSON_ADDRESS - 2 FAILED';
2158 SET LC_SQLSTATE_CODE = '75000';
2159 SIGNAL SQLSTATE '75000';
2160 END IF;
2161
2162 -- Update determined is updating person address verification information alone then ADDRESS UPDATE process is complete
2163 IF LC_ADD_EDIT_ADDR_ACTION_CODE = LC_VERIFY_ADDR_ACTION_CODE
2164 THEN
2165 SET AC_MSG_CODE = LC_S_MSG_CODE;
2166 RETURN;
2167 END IF;
2168 END IF;
2169
2170 IF AC_SCREEN_CODE = LC_AHIS_SCREEN_CODE
2171 AND AB_PRIMARY_IND = LB_TRUE_IND
2172 AND ( LD_END_DATE <> LD_HIGH_DATE
2173 OR AC_ADDRESS_STATUS_CODE = LC_B_ADDRESS_STATUS_CODE)
2174 AND AI_PERSON_ADDRESS_ID IS NOT NULL
2175 AND AC_ADDRESS_TYPE_CODE <> LC_O_ADDRESS_TYPE_CODE
2176 THEN
2177 -- Checking whether any other confirmed good address exists for same address type and if exists then get the address with most recent verification date to update as primary
2178 SET LS_SQL_DESC =
2179 'SELECT PERSON_ADDRESS - GET LATEST VERIFIED SECONDARY CONFIRMED GOOD ADDRESS';
2180 SET LS_SQL_DATA_DESC =
2181 'PERSON_ID = '
2182 || NVL (AI_PERSON_ID, LI_ZERO_NUMB)
2183 || ', ADDRESS_TYPE_CODE = '
2184 || NVL (AC_ADDRESS_TYPE_CODE, '');
2185
2186 SELECT A.PERSON_ADDRESS_ID
2187 INTO LI_NEW_PRIMARY_PERSON_ADDRESS_ID
2188 FROM PERSON_ADDRESS A
2189 WHERE A.PERSON_ID = AI_PERSON_ID
2190 AND A.ADDRESS_TYPE_CODE = AC_ADDRESS_TYPE_CODE
2191 AND A.ADDRESS_STATUS_CODE = LC_Y_ADDRESS_STATUS_CODE
2192 AND A.END_DATE = LD_HIGH_DATE
2193 ORDER BY A.ADDRESS_VERIFIED_DATE DESC
2194 FETCH FIRST ROW ONLY;
2195
2196 -- Check whether any other address exists in same address type in status other than confirmed good when no other address exists in confirmed good status
2197 IF LI_NEW_PRIMARY_PERSON_ADDRESS_ID IS NULL
2198 THEN
2199 SET LS_SQL_DESC =
2200 'SELECT PERSON_ADDRESS - GET THE COUNT OF SECONDARY PENDING/NO ACTION TAKEN ADDRESS';
2201 SET LS_SQL_DATA_DESC =
2202 'PERSON_ID = '
2203 || NVL (AI_PERSON_ID, LI_ZERO_NUMB)
2204 || ', ADDRESS_TYPE_CODE = '
2205 || NVL (AC_ADDRESS_TYPE_CODE, '');
2206
2207 SELECT COUNT (1)
2208 INTO LI_SECONDARY_ADDRESS_COUNT
2209 FROM PERSON_ADDRESS A
2210 WHERE A.PERSON_ID = AI_PERSON_ID
2211 AND A.ADDRESS_TYPE_CODE = AC_ADDRESS_TYPE_CODE
2212 AND A.ADDRESS_STATUS_CODE IN
2213 (LC_P_ADDRESS_STATUS_CODE, LC_N_ADDRESS_STATUS_CODE)
2214 AND A.END_DATE = LD_HIGH_DATE;
2215
2216 -- If More than one address exists for the participant with status as pending or no action taken and address type is mailing/residential then generate action task to caseworker
2217 IF LI_SECONDARY_ADDRESS_COUNT > 1
2218 AND AC_ADDRESS_TYPE_CODE IN
2219 (LC_M_ADDRESS_TYPE_CODE, LC_R_ADDRESS_TYPE_CODE)
2220 THEN
2221 SET LC_REVW_SEC_ADDR_TASK_CODE =
2222 CASE
2223 WHEN AC_ADDRESS_TYPE_CODE = LC_M_ADDRESS_TYPE_CODE
2224 THEN
2225 LC_RMADD_TASK_CODE
2226 ELSE
2227 LC_RRADD_TASK_CODE
2228 END;
2229 -- If one or More than one address exists for the participant with status as pending or no action taken and address type is other than mailing/residential then get the most recently added secondary record as primary
2230 ELSEIF LI_SECONDARY_ADDRESS_COUNT > LI_ZERO_NUMB
2231 THEN
2232 SET LS_SQL_DESC =
2233 'SELECT PERSON_ADDRESS - GET SECONDARY PENDING/NO ACTION TAKEN ADDRESS';
2234 SET LS_SQL_DATA_DESC =
2235 'PERSON_ID = '
2236 || NVL (AI_PERSON_ID, LI_ZERO_NUMB)
2237 || ', ADDRESS_TYPE_CODE = '
2238 || NVL (AC_ADDRESS_TYPE_CODE, '');
2239
2240 SELECT A.PERSON_ADDRESS_ID
2241 INTO LI_NEW_PRIMARY_PERSON_ADDRESS_ID
2242 FROM PERSON_ADDRESS A
2243 WHERE A.PERSON_ID = AI_PERSON_ID
2244 AND A.ADDRESS_TYPE_CODE = AC_ADDRESS_TYPE_CODE
2245 AND A.ADDRESS_STATUS_CODE IN
2246 (LC_P_ADDRESS_STATUS_CODE, LC_N_ADDRESS_STATUS_CODE)
2247 AND A.END_DATE = LD_HIGH_DATE
2248 ORDER BY A.ADDRESS_STATUS_DATE DESC
2249 FETCH FIRST ROW ONLY;
2250 END IF;
2251 END IF;
2252
2253 -- Update existing address as primary address
2254 IF LI_NEW_PRIMARY_PERSON_ADDRESS_ID IS NOT NULL
2255 THEN
2256 SET LS_SQL_DESC =
2257 'UPDATE PERSON_ADDRESS - UPDATE SECONDARY ADDRESS AS PRIMARY ADDRESS';
2258 SET LS_SQL_DATA_DESC =
2259 'PERSON_ADDRESS_ID = '
2260 || NVL (AI_PERSON_ADDRESS_ID, LI_ZERO_NUMB)
2261 || ', PERSON_ID = '
2262 || NVL (AI_PERSON_ID, LI_ZERO_NUMB)
2263 || ', ADDRESS_TYPE_CODE = '
2264 || NVL (AC_ADDRESS_TYPE_CODE, '');
2265
2266 UPDATE PERSON_ADDRESS
2267 SET PRIMARY_IND = LB_TRUE_IND,
2268 TRANSACTION_EVENT_SEQ_NUMB = LI_TRANSACTION_EVENT_SEQ_NUMB,
2269 UPDATED_BY_ID = LI_UPDATED_BY_ID
2270 WHERE PERSON_ADDRESS_ID = LI_NEW_PRIMARY_PERSON_ADDRESS_ID
2271 AND PERSON_ID = AI_PERSON_ID
2272 AND ADDRESS_TYPE_CODE = AC_ADDRESS_TYPE_CODE
2273 AND END_DATE = LD_HIGH_DATE;
2274
2275 GET DIAGNOSTICS LI_ROWCOUNT_QNTY = ROW_COUNT;
2276
2277 IF LI_ROWCOUNT_QNTY = LI_ZERO_NUMB
2278 THEN
2279 SET LC_MSG_CODE = LC_F_MSG_CODE;
2280 SET LS_ERROR_DESC = 'UPDATE PERSON_ADDRESS - 4 FAILED';
2281 SET LC_SQLSTATE_CODE = '75000';
2282 SIGNAL SQLSTATE '75000';
2283 END IF;
2284 END IF;
2285 END IF;
2286
2287 -- Updated Participant Locate State When Participant is CST/NCP and Mailing/Residential address added/edited as confirmed good or end dated as confirmed good
2288 IF EXISTS
2289 (SELECT 1
2290 FROM CASE_PERSON C
2291 WHERE C.PERSON_ID = AI_PERSON_ID
2292 AND C.CASE_PARTY_ROLE_CODE IN
2293 (LC_C_CASE_PARTY_ROLE_CODE,
2294 LC_A_CASE_PARTY_ROLE_CODE,
2295 LC_P_CASE_PARTY_ROLE_CODE)
2296 AND C.CASE_PARTY_STATUS_CODE =
2297 LC_A_CASE_PARTY_STATUS_CODE)
2298 AND AC_ADDRESS_TYPE_CODE IN
2299 (LC_M_ADDRESS_TYPE_CODE, LC_R_ADDRESS_TYPE_CODE)
2300 AND LC_ADDRESS_STATUS_CODE = LC_Y_ADDRESS_STATUS_CODE
2301 THEN
2302 -- update participant locate status
2303 SET LS_SQL_DESC = 'BATCH_COMMON$SP_INSERT_LOCATE_STATUS';
2304 SET LS_SQL_DATA_DESC =
2305 'PERSON_ID ='
2306 || NVL (AI_PERSON_ID, LI_ZERO_NUMB)
2307 || ', ADDRESS_SOURCE_CODE = '
2308 || NVL (AC_ADDRESS_SOURCE_CODE, '')
2309 || ', UPDATED_BY_NAME = '
2310 || NVL (AS_UPDATED_BY_NAME, '')
2311 || ', AC_SCREEN_CODE = '
2312 || NVL (AC_SCREEN_CODE, '')
2313 || ', AC_JOB_CODE = '
2314 || NVL (AC_JOB_CODE, '')
2315 || ', TRANSACTION_EVENT_SEQ_NUMB = '
2316 || NVL (LI_TRANSACTION_EVENT_SEQ_NUMB, LI_ZERO_NUMB);
2317
2318 CALL BATCH_COMMON$SP_INSERT_LOCATE_STATUS (
2319 AI_PERSON_ID => AI_PERSON_ID,
2320 AD_RUN_DATE => AD_RUN_DATE,
2321 AC_ADDR_SOURCE_CODE => AC_ADDRESS_SOURCE_CODE,
2322 AC_PSOI_SOURCE_CODE => NULL,
2323 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
2324 AC_SCREEN_CODE => AC_SCREEN_CODE,
2325 AC_JOB_CODE => AC_JOB_CODE,
2326 AI_TRANSACTION_EVENT_SEQ_NUMB => LI_TRANSACTION_EVENT_SEQ_NUMB,
2327 AB_NEW_ADDR_IND => LB_NEW_ADDR_IND,
2328 AC_MSG_CODE => LC_MSG_CODE,
2329 AS_ERROR_DESC => LS_ERROR_DESC);
2330
2331 IF LC_MSG_CODE <> LC_S_MSG_CODE
2332 THEN
2333 SET LS_SQL_DESC = 'BATCH_COMMON$SP_INSERT_LOCATE_STATUS FAILED';
2334 SET LC_SQLSTATE_CODE = '75000';
2335 SIGNAL SQLSTATE '75000';
2336 END IF;
2337 END IF;
2338
2339 --Mailing/Residential Address added or edited as primary and Active 'RMADD'/'RRADD' task exists to casewoker of the given person then get the Review Address tasks to be completed
2340 IF AC_ADDRESS_TYPE_CODE IN
2341 (LC_M_ADDRESS_TYPE_CODE, LC_R_ADDRESS_TYPE_CODE)
2342 AND LB_PRIMARY_ADDRESS_EXISTS_IND = FALSE
2343 AND ( ( AB_PRIMARY_IND = LB_TRUE_IND
2344 AND LD_END_DATE = LD_HIGH_DATE
2345 AND AC_ADDRESS_STATUS_CODE <> LC_B_ADDRESS_STATUS_CODE)
2346 OR LB_NEW_PRIMARY_IND = LB_TRUE_IND)
2347 AND EXISTS
2348 (SELECT 1
2349 FROM TASK_USER_DETAIL A
2350 WHERE A.PERSON_ID = AI_PERSON_ID
2351 AND A.TASK_CODE =
2352 CASE
2353 WHEN AC_ADDRESS_TYPE_CODE = LC_M_ADDRESS_TYPE_CODE
2354 THEN
2355 LC_RMADD_TASK_CODE
2356 ELSE
2357 LC_RRADD_TASK_CODE
2358 END
2359 AND A.TASK_STATUS_CODE = LC_STRT_TASK_STATUS_CODE)
2360 THEN
2361 SET LC_COMP_REVW_ADDR_TASK_CODE =
2362 CASE
2363 WHEN AC_ADDRESS_TYPE_CODE = LC_M_ADDRESS_TYPE_CODE
2364 THEN
2365 LC_RMADD_TASK_CODE
2366 ELSE
2367 LC_RRADD_TASK_CODE
2368 END;
2369 END IF;
2370
2371 IF LC_ADDRESS_STATUS_CODE IN
2372 (LC_Y_ADDRESS_STATUS_CODE, LC_P_ADDRESS_STATUS_CODE)
2373 AND LD_END_DATE = LD_HIGH_DATE
2374 THEN
2375 /*Check if Person address added or edited as confirmed good or pending, If yes then generate a case journal task
2376 a) Address status is Confirmed Good then set the task to generate as 'CGADR'
2377 b) Address status is Verification Pending then set the task to generate as 'VPADR'*/
2378 SET LC_ADD_EDIT_STS_ADDR_TASK_CODE =
2379 CASE
2380 WHEN AI_PERSON_ADDRESS_ID IS NOT NULL
2381 AND LC_OLD_AHIS_ADDRESS_STATUS_CODE =
2382 LC_ADDRESS_STATUS_CODE
2383 THEN
2384 NULL
2385 WHEN LC_ADDRESS_STATUS_CODE = LC_P_ADDRESS_STATUS_CODE
2386 THEN
2387 LC_VPADR_TASK_CODE
2388 ELSE
2389 LC_CGADR_TASK_CODE
2390 END;
2391
2392 --When Address status is Confirmed and active and address type is mailing/residential then based on address received, set indications for checking each case for a)Generating LSOUT and SAOUT tasks b) generating csenet pending request and c) Starting Establishment Workflow Process
2393 IF AC_ADDRESS_TYPE_CODE IN
2394 (LC_M_ADDRESS_TYPE_CODE, LC_R_ADDRESS_TYPE_CODE)
2395 AND LC_ADDRESS_STATUS_CODE = LC_Y_ADDRESS_STATUS_CODE
2396 THEN
2397 IF AC_STATE_CODE <> 'NV'
2398 THEN
2399 SET LB_ADD_LSOUT_SAOUT_TASK_CODE_IND = TRUE;
2400
2401 IF AC_ADDRESS_SOURCE_CODE <> 'OSA'
2402 THEN
2403 SET LC_PENDING_REQ_REASON_CODE = 'LSOUT';
2404 END IF;
2405 ELSEIF AC_STATE_CODE = 'NV' AND AC_ADDRESS_SOURCE_CODE <> 'OSA'
2406 THEN
2407 SET LC_PENDING_REQ_REASON_CODE = 'LSADR';
2408 END IF;
2409
2410 IF LB_NEW_ADDR_IND = TRUE
2411 THEN
2412 SET LB_ESTP_PROCESS_ADD_IND = TRUE;
2413 END IF;
2414 --When Address status is Verification Pending and active and address type is mailing/residential and it is an US address then set indications for a)Generating address verification notice
2415 ELSEIF AC_ADDRESS_TYPE_CODE IN
2416 (LC_M_ADDRESS_TYPE_CODE, LC_R_ADDRESS_TYPE_CODE)
2417 AND LC_ADDRESS_STATUS_CODE = LC_P_ADDRESS_STATUS_CODE
2418 AND LC_COUNTRY_CODE = 'US'
2419 THEN
2420 SET LB_GENERATE_NOTICE_IND = TRUE;
2421 END IF;
2422 --When Address made inactive and address type is mailing/residential then set indications for a)Generating RCUCC task
2423 ELSEIF ( LD_END_DATE <> LD_HIGH_DATE
2424 OR AC_ADDRESS_STATUS_CODE = LC_B_ADDRESS_STATUS_CODE)
2425 AND LB_NEW_ADDR_IND = LB_FALSE_IND
2426 AND AC_ADDRESS_TYPE_CODE IN
2427 (LC_M_ADDRESS_TYPE_CODE, LC_R_ADDRESS_TYPE_CODE)
2428 THEN
2429 SET LB_ADD_RCUCC_TASK_CODE_IND = TRUE;
2430 END IF;
2431
2432 BEGIN
2433 DECLARE
2434 PERSON_CUR CURSOR FOR
2435 SELECT A.CASE_ID,
2436 A.CASE_PARTY_ROLE_CODE,
2437 B.CASE_IGV_TYPE_CODE,
2438 B.CASE_TYPE_CODE
2439 FROM CASE_PERSON A JOIN CASE_DETAIL B ON A.CASE_ID = B.CASE_ID
2440 WHERE A.PERSON_ID = AI_PERSON_ID
2441 AND A.CASE_PARTY_STATUS_CODE = LC_A_CASE_PARTY_STATUS_CODE
2442 AND B.CASE_STATUS_CODE = LC_O_CASE_STATUS_CODE;
2443
2444 SET LS_SQL_DESC = 'OPEN PERSON_CUR -1';
2445 SET LS_SQL_DATA_DESC = '';
2446
2447 OPEN PERSON_CUR;
2448
2449 -- for each case where based on scenarion need to complete or generate task/case journal entry , notice, csenet pending request , establishment workflow process
2450 FETCH_GEN_TASKS_LOOP:
2451 LOOP
2452 SET LS_SQL_DESC = 'FETCH CASE_CUR -1';
2453 SET LS_SQL_DATA_DESC = '';
2454
2455 FETCH PERSON_CUR
2456 INTO LI_PERSONCUR_CASE_ID,
2457 LC_PERSONCUR_CASE_PARTY_ROLE_CODE,
2458 LC_PERSONCUR_CASE_IGV_TYPE_CODE,
2459 LC_PERSONCUR_CASE_TYPE_CODE;
2460
2461 -- checking whether cursor contains records.
2462 IF LI_PERSONCUR_CASE_ID IS NULL
2463 THEN
2464 LEAVE FETCH_GEN_TASKS_LOOP;
2465 END IF;
2466
2467 --When case has review tasks in STRT status then Complete the tasks RMADD Review Multiple Secondary Mailing Address / RRADD Review Multiple Secondary Residential Address when residential/mailing address added or edited as primary address and
2468 IF LC_COMP_REVW_ADDR_TASK_CODE IS NOT NULL
2469 AND EXISTS
2470 (SELECT 1
2471 FROM TASK_USER_DETAIL A
2472 WHERE A.CASE_ID = LI_PERSONCUR_CASE_ID
2473 AND A.PERSON_ID = AI_PERSON_ID
2474 AND A.PROCESS_CODE = LC_CASE_PROCESS_CODE
2475 AND A.TASK_CODE = LC_COMP_REVW_ADDR_TASK_CODE
2476 AND A.TASK_STATUS_CODE = LC_STRT_TASK_STATUS_CODE)
2477 THEN
2478 SET LS_SQL_DESC = 'BATCH_COMMON$SP_UPDATE_ACTION_TASK';
2479 SET LS_SQL_DATA_DESC =
2480 'CASE_ID = '
2481 || NVL (LI_PERSONCUR_CASE_ID, LI_ZERO_NUMB)
2482 || ', PROCESS_CODE = '
2483 || NVL (LC_CASE_PROCESS_CODE, '')
2484 || ', TASK_CODE = '
2485 || NVL (LC_COMP_REVW_ADDR_TASK_CODE, '')
2486 || ', PERSON_ID = '
2487 || NVL (AI_PERSON_ID, LI_ZERO_NUMB)
2488 || ', UPDATED_BY_NAME = '
2489 || NVL (AS_UPDATED_BY_NAME, '')
2490 || ', RUN_DATE = '
2491 || NVL (AD_RUN_DATE, LD_LOW_DATE);
2492
2493 CALL BATCH_COMMON$SP_UPDATE_ACTION_TASK (
2494 AI_CASE_ID => LI_PERSONCUR_CASE_ID,
2495 AC_PROCESS_CODE => LC_CASE_PROCESS_CODE,
2496 AC_TASK_CODE => LC_COMP_REVW_ADDR_TASK_CODE,
2497 AI_PERSON_ID => AI_PERSON_ID,
2498 AI_TRANSACTION_EVENT_SEQ_NUMB =>
2499 LI_TRANSACTION_EVENT_SEQ_NUMB,
2500 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
2501 AD_RUN_DATE => AD_RUN_DATE,
2502 AC_MSG_CODE => LC_MSG_CODE,
2503 AS_ERROR_DESC => LS_ERROR_DESC);
2504
2505 IF LC_MSG_CODE <> LC_S_MSG_CODE
2506 THEN
2507 SET LS_SQL_DESC = 'BATCH_COMMON$SP_UPDATE_ACTION_TASK FAILED';
2508 SET LC_SQLSTATE_CODE = '75000';
2509 SIGNAL SQLSTATE '75000';
2510 END IF;
2511 END IF;
2512
2513 -- Address added/edited as a) Confirmed Good then generate the 'CGADR' task and b) Verification pending then generate the 'VPADR' task
2514 IF LC_ADD_EDIT_STS_ADDR_TASK_CODE IS NOT NULL
2515 THEN
2516 SET LS_SQL_DESC = 'BATCH_COMMON$SP_INSERT_TASK - 1';
2517 SET LS_SQL_DATA_DESC =
2518 'CASE_ID = '
2519 || NVL (LI_PERSONCUR_CASE_ID, LI_ZERO_NUMB)
2520 || ', PERSON_ID = '
2521 || NVL (AI_PERSON_ID, LI_ZERO_NUMB)
2522 || ', PROCESS_CODE = '
2523 || LC_CASE_PROCESS_CODE
2524 || ', TASK_CODE = '
2525 || LC_ADD_EDIT_STS_ADDR_TASK_CODE
2526 || ',PROCESS_SUBSYSTEM_CODE = '
2527 || LC_CI_PROCESS_SUBSYSTEM_CODE
2528 || ', UPDATED_BY_NAME = '
2529 || NVL (AS_UPDATED_BY_NAME, '')
2530 || ', AC_SCREEN_CODE = '
2531 || NVL (AC_SCREEN_CODE, '')
2532 || ', AC_JOB_CODE = '
2533 || NVL (AC_JOB_CODE, '');
2534
2535 CALL BATCH_COMMON$SP_INSERT_TASK (
2536 AI_CASE_ID => LI_PERSONCUR_CASE_ID,
2537 AI_PERSON_ID => AI_PERSON_ID,
2538 AC_PROCESS_CODE => LC_CASE_PROCESS_CODE,
2539 AC_TASK_CODE => LC_ADD_EDIT_STS_ADDR_TASK_CODE,
2540 AC_PROCESS_SUBSYSTEM_CODE =>
2541 LC_CI_PROCESS_SUBSYSTEM_CODE,
2542 AI_TRANSACTION_EVENT_SEQ_NUMB =>
2543 LI_TRANSACTION_EVENT_SEQ_NUMB,
2544 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
2545 AD_RUN_DATE => AD_RUN_DATE,
2546 AC_SCREEN_CODE => AC_SCREEN_CODE,
2547 AC_JOB_CODE => AC_JOB_CODE,
2548 AI_SOURCE_NUMB => AI_PERSON_ID,
2549 AI_OUT_PROCESS_TASK_SEQ_ID => LI_PROCESS_TASK_SEQ_ID,
2550 AI_OUT_TASK_USER_ID => LI_TASK_USER_ID,
2551 AI_OUT_CASE_JOURNAL_SEQ_ID => LI_CASE_JOURNAL_SEQ_ID,
2552 AI_OUT_TRANSACTION_EVENT_SEQ_NUMB =>
2553 LI_OUT_TRANSACTION_EVENT_SEQ_NUMB,
2554 AC_MSG_CODE => LC_MSG_CODE,
2555 AS_ERROR_DESC => LS_ERROR_DESC);
2556
2557 IF LC_MSG_CODE <> LC_S_MSG_CODE
2558 THEN
2559 SET LS_SQL_DESC = 'BATCH_COMMON$SP_INSERT_TASK - 1 FAILED';
2560 SET LC_SQLSTATE_CODE = '75000';
2561 SIGNAL SQLSTATE '75000';
2562 END IF;
2563 END IF;
2564
2565 -- Case is a iv-d case
2566 IF LC_PERSONCUR_CASE_TYPE_CODE <> LC_D_CASE_TYPE_CODE
2567 THEN
2568 --Generate 'RRADD'/'RMADD' task when confirmed good primary residential/mailing address end dated and multiple verficiation pending status address only exists
2569 IF LC_REVW_SEC_ADDR_TASK_CODE IS NOT NULL
2570 THEN
2571 SET LS_SQL_DESC = 'BATCH_COMMON$SP_INSERT_TASK - 3 ';
2572 SET LS_SQL_DATA_DESC =
2573 'CASE_ID = '
2574 || NVL (LI_PERSONCUR_CASE_ID, LI_ZERO_NUMB)
2575 || ', PERSON_ID = '
2576 || NVL (AI_PERSON_ID, LI_ZERO_NUMB)
2577 || ', PROCESS_CODE = '
2578 || NVL (LC_CASE_PROCESS_CODE, '')
2579 || ', TASK_CODE = '
2580 || NVL (LC_REVW_SEC_ADDR_TASK_CODE, '')
2581 || ',PROCESS_SUBSYSTEM_CODE = '
2582 || NVL (LC_CI_PROCESS_SUBSYSTEM_CODE, '')
2583 || ', UPDATED_BY_NAME = '
2584 || NVL (AS_UPDATED_BY_NAME, '')
2585 || ', AC_SCREEN_CODE = '
2586 || NVL (AC_SCREEN_CODE, '')
2587 || ', AC_JOB_CODE = '
2588 || NVL (AC_JOB_CODE, '');
2589
2590 CALL BATCH_COMMON$SP_INSERT_TASK (
2591 AI_CASE_ID => LI_PERSONCUR_CASE_ID,
2592 AI_PERSON_ID => AI_PERSON_ID,
2593 AC_PROCESS_CODE => LC_CASE_PROCESS_CODE,
2594 AC_TASK_CODE => LC_REVW_SEC_ADDR_TASK_CODE,
2595 AC_PROCESS_SUBSYSTEM_CODE =>
2596 LC_CI_PROCESS_SUBSYSTEM_CODE,
2597 AI_TRANSACTION_EVENT_SEQ_NUMB =>
2598 LI_TRANSACTION_EVENT_SEQ_NUMB,
2599 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
2600 AD_RUN_DATE => AD_RUN_DATE,
2601 AC_SCREEN_CODE => AC_SCREEN_CODE,
2602 AC_JOB_CODE => AC_JOB_CODE,
2603 AI_OUT_PROCESS_TASK_SEQ_ID => LI_PROCESS_TASK_SEQ_ID,
2604 AI_OUT_TASK_USER_ID => LI_TASK_USER_ID,
2605 AI_OUT_CASE_JOURNAL_SEQ_ID => LI_CASE_JOURNAL_SEQ_ID,
2606 AI_OUT_TRANSACTION_EVENT_SEQ_NUMB =>
2607 LI_OUT_TRANSACTION_EVENT_SEQ_NUMB,
2608 AC_MSG_CODE => LC_MSG_CODE,
2609 AS_ERROR_DESC => LS_ERROR_DESC);
2610
2611 IF LC_MSG_CODE <> LC_S_MSG_CODE
2612 THEN
2613 SET LS_SQL_DESC = 'BATCH_COMMON$SP_INSERT_TASK - 3 FAILED';
2614 SET LC_SQLSTATE_CODE = '75000';
2615 SIGNAL SQLSTATE '75000';
2616 END IF;
2617 END IF;
2618
2619 /*Participant is CST in case and the participant confirmed good mailing/residential address is end dated and now no more confirmed good mailing/residential address
2620 exists then generate the 'RCUCC' task'*/
2621 IF LB_ADD_RCUCC_TASK_CODE_IND = TRUE
2622 AND LC_PERSONCUR_CASE_PARTY_ROLE_CODE =
2623 LC_C_CASE_PARTY_ROLE_CODE
2624 THEN
2625 SET LS_SQL_DESC = 'BATCH_COMMON$SP_INSERT_TASK - 2 ';
2626 SET LS_SQL_DATA_DESC =
2627 'CASE_ID = '
2628 || NVL (LI_PERSONCUR_CASE_ID, LI_ZERO_NUMB)
2629 || ', PERSON_ID = '
2630 || NVL (AI_PERSON_ID, LI_ZERO_NUMB)
2631 || ', PROCESS_CODE = '
2632 || NVL (LC_CASE_PROCESS_CODE, '')
2633 || ', TASK_CODE = '
2634 || NVL (LC_RCUCC_TASK_CODE, '')
2635 || ',PROCESS_SUBSYSTEM_CODE = '
2636 || NVL (LC_CI_PROCESS_SUBSYSTEM_CODE, '')
2637 || ', UPDATED_BY_NAME = '
2638 || NVL (AS_UPDATED_BY_NAME, '')
2639 || ', AC_SCREEN_CODE = '
2640 || NVL (AC_SCREEN_CODE, '')
2641 || ', AC_JOB_CODE = '
2642 || NVL (AC_JOB_CODE, '');
2643
2644 CALL BATCH_COMMON$SP_INSERT_TASK (
2645 AI_CASE_ID => LI_PERSONCUR_CASE_ID,
2646 AI_PERSON_ID => AI_PERSON_ID,
2647 AC_PROCESS_CODE => LC_CASE_PROCESS_CODE,
2648 AC_TASK_CODE => LC_RCUCC_TASK_CODE,
2649 AC_PROCESS_SUBSYSTEM_CODE =>
2650 LC_CI_PROCESS_SUBSYSTEM_CODE,
2651 AI_TRANSACTION_EVENT_SEQ_NUMB =>
2652 LI_TRANSACTION_EVENT_SEQ_NUMB,
2653 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
2654 AD_RUN_DATE => AD_RUN_DATE,
2655 AC_SCREEN_CODE => AC_SCREEN_CODE,
2656 AC_JOB_CODE => AC_JOB_CODE,
2657 AI_OUT_PROCESS_TASK_SEQ_ID => LI_PROCESS_TASK_SEQ_ID,
2658 AI_OUT_TASK_USER_ID => LI_TASK_USER_ID,
2659 AI_OUT_CASE_JOURNAL_SEQ_ID => LI_CASE_JOURNAL_SEQ_ID,
2660 AI_OUT_TRANSACTION_EVENT_SEQ_NUMB =>
2661 LI_OUT_TRANSACTION_EVENT_SEQ_NUMB,
2662 AC_MSG_CODE => LC_MSG_CODE,
2663 AS_ERROR_DESC => LS_ERROR_DESC);
2664
2665 IF LC_MSG_CODE <> LC_S_MSG_CODE
2666 THEN
2667 SET LS_SQL_DESC = 'BATCH_COMMON$SP_INSERT_TASK - 2 FAILED';
2668 SET LC_SQLSTATE_CODE = '75000';
2669 SIGNAL SQLSTATE '75000';
2670 END IF;
2671 -- Received confirmed good address and in the case the participant role is NCP/PF then below steps will be processed
2672 ELSEIF LC_ADD_EDIT_STS_ADDR_TASK_CODE = LC_CGADR_TASK_CODE
2673 AND LC_PERSONCUR_CASE_PARTY_ROLE_CODE IN
2674 (LC_A_CASE_PARTY_ROLE_CODE,
2675 LC_P_CASE_PARTY_ROLE_CODE)
2676 THEN
2677 /*Received address state is not 'NV' and the Participant Case is Responding / instate
2678 a. Participant case is Responding case and participant dont have confirmed good residential/mailing address in NV and also participant dont have confirmed good
2679 source of income then generate the 'LSOUT' task
2680 b. Participant case is instate case then generate the 'SAOUT' task */
2681 IF LB_ADD_LSOUT_SAOUT_TASK_CODE_IND = TRUE
2682 AND LC_PERSONCUR_CASE_IGV_TYPE_CODE IN
2683 (LC_R_CASE_IGV_TYPE_CODE, LC_N_CASE_IGV_TYPE_CODE)
2684 THEN
2685 IF LC_PERSONCUR_CASE_IGV_TYPE_CODE =
2686 LC_R_CASE_IGV_TYPE_CODE
2687 AND NOT EXISTS
2688 (SELECT 1
2689 FROM AHIS_VW A
2690 WHERE A.PERSON_ID = AI_PERSON_ID
2691 AND A.STATE_CODE = LC_NV_STATE_CODE
2692 AND A.ADDRESS_TYPE_CODE IN
2693 (LC_R_ADDRESS_TYPE_CODE,
2694 LC_M_ADDRESS_TYPE_CODE)
2695 AND A.ADDRESS_STATUS_CODE =
2696 LC_Y_ADDRESS_STATUS_CODE
2697 AND A.END_DATE = LD_HIGH_DATE)
2698 AND NOT EXISTS
2699 (SELECT 1
2700 FROM PERSON_SOI P
2701 JOIN OTHER_PARTY O
2702 ON P.OTHER_PARTY_ID = O.OTHER_PARTY_ID
2703 WHERE P.PERSON_ID = AI_PERSON_ID
2704 AND P.PSOI_VERIFICATION_STATUS_CODE =
2705 LC_Y_PSOI_VERIFICATION_STATUS_CODE
2706 AND O.OTHP_SOI_STATUS_CODE =
2707 LC_A_OTHP_SOI_STATUS_CODE
2708 AND P.PSOI_INCOME_TYPE_CODE IN
2709 (LC_EM_PSOI_INCOME_TYPE_CODE,
2710 LC_SE_PSOI_INCOME_TYPE_CODE)
2711 AND P.PSOI_END_DATE = LD_HIGH_DATE)
2712 THEN
2713 SET LC_LSOUT_SAOUT_TASK_CODE = LC_LSOUT_TASK_CODE;
2714 ELSEIF LC_PERSONCUR_CASE_IGV_TYPE_CODE =
2715 LC_N_CASE_IGV_TYPE_CODE
2716 THEN
2717 SET LC_LSOUT_SAOUT_TASK_CODE = LC_SAOUT_TASK_CODE;
2718 END IF;
2719
2720 IF LC_LSOUT_SAOUT_TASK_CODE IS NOT NULL
2721 THEN
2722 SET LS_SQL_DESC = 'BATCH_COMMON$SP_INSERT_TASK - 4';
2723 SET LS_SQL_DATA_DESC =
2724 'CASE_ID = '
2725 || NVL (LI_PERSONCUR_CASE_ID, LI_ZERO_NUMB)
2726 || ', PERSON_ID = '
2727 || NVL (AI_PERSON_ID, LI_ZERO_NUMB)
2728 || ', PROCESS_CODE = '
2729 || NVL (LC_CASE_PROCESS_CODE, '')
2730 || ', TASK_CODE = '
2731 || NVL (LC_LSOUT_SAOUT_TASK_CODE, '')
2732 || ',PROCESS_SUBSYSTEM_CODE = '
2733 || NVL (LC_CI_PROCESS_SUBSYSTEM_CODE, '')
2734 || ', UPDATED_BY_NAME = '
2735 || NVL (AS_UPDATED_BY_NAME, '')
2736 || ', AC_SCREEN_CODE = '
2737 || NVL (AC_SCREEN_CODE, '')
2738 || ', AC_JOB_CODE = '
2739 || NVL (AC_JOB_CODE, '');
2740
2741 CALL BATCH_COMMON$SP_INSERT_TASK (
2742 AI_CASE_ID => LI_PERSONCUR_CASE_ID,
2743 AI_PERSON_ID => AI_PERSON_ID,
2744 AC_PROCESS_CODE => LC_CASE_PROCESS_CODE,
2745 AC_TASK_CODE => LC_LSOUT_SAOUT_TASK_CODE,
2746 AC_PROCESS_SUBSYSTEM_CODE =>
2747 LC_CI_PROCESS_SUBSYSTEM_CODE,
2748 AI_TRANSACTION_EVENT_SEQ_NUMB =>
2749 LI_TRANSACTION_EVENT_SEQ_NUMB,
2750 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
2751 AD_RUN_DATE => AD_RUN_DATE,
2752 AC_SCREEN_CODE => AC_SCREEN_CODE,
2753 AC_JOB_CODE => AC_JOB_CODE,
2754 AI_OUT_PROCESS_TASK_SEQ_ID =>
2755 LI_PROCESS_TASK_SEQ_ID,
2756 AI_OUT_TASK_USER_ID => LI_TASK_USER_ID,
2757 AI_OUT_CASE_JOURNAL_SEQ_ID =>
2758 LI_CASE_JOURNAL_SEQ_ID,
2759 AI_OUT_TRANSACTION_EVENT_SEQ_NUMB =>
2760 LI_OUT_TRANSACTION_EVENT_SEQ_NUMB,
2761 AC_MSG_CODE => LC_MSG_CODE,
2762 AS_ERROR_DESC => LS_ERROR_DESC);
2763
2764 IF LC_MSG_CODE <> LC_S_MSG_CODE
2765 THEN
2766 SET LS_SQL_DESC =
2767 'BATCH_COMMON$SP_INSERT_TASK - 4 FAILED';
2768 SET LC_SQLSTATE_CODE = '75000';
2769 SIGNAL SQLSTATE '75000';
2770 END IF;
2771 END IF;
2772 END IF;
2773
2774 -- Received address for the Participant is a 'NCP'/'PF' in the case and the received address is same as CST address in that case then generate the 'NCSCS' task
2775 IF EXISTS
2776 (SELECT 1
2777 FROM CASE_PERSON A
2778 JOIN AHIS_VW B ON A.PERSON_ID = B.PERSON_ID
2779 WHERE A.CASE_ID = LI_PERSONCUR_CASE_ID
2780 AND A.CASE_PARTY_ROLE_CODE =
2781 LC_C_CASE_PARTY_ROLE_CODE
2782 AND B.LINE1_ADDR = LS_LINE1_ADDR
2783 AND NVL (B.LINE2_ADDR, '') =
2784 NVL (LS_LINE2_ADDR, '')
2785 AND NVL (B.CITY_NAME, '') =
2786 NVL (LS_CITY_NAME, '')
2787 AND NVL (B.STATE_CODE, '') =
2788 NVL (LC_STATE_CODE, '')
2789 AND B.COUNTRY_CODE = LC_COUNTRY_CODE
2790 AND NVL (B.POST_CODE, '') =
2791 NVL (LS_POST_CODE, '')
2792 AND B.ADDRESS_STATUS_CODE =
2793 LC_Y_ADDRESS_STATUS_CODE
2794 AND B.ADDRESS_TYPE_CODE IN
2795 (LC_M_ADDRESS_TYPE_CODE,
2796 LC_R_ADDRESS_TYPE_CODE)
2797 AND B.END_DATE = LD_HIGH_DATE)
2798 THEN
2799 SET LS_SQL_DESC = 'BATCH_COMMON$SP_INSERT_TASK - 5';
2800 SET LS_SQL_DATA_DESC =
2801 'CASE_ID = '
2802 || NVL (LI_PERSONCUR_CASE_ID, LI_ZERO_NUMB)
2803 || ', PERSON_ID = '
2804 || NVL (AI_PERSON_ID, LI_ZERO_NUMB)
2805 || ', PROCESS_CODE = '
2806 || NVL (LC_CASE_PROCESS_CODE, '')
2807 || ', TASK_CODE = '
2808 || NVL (LC_NCSCS_TASK_CODE, '')
2809 || ',PROCESS_SUBSYSTEM_CODE = '
2810 || NVL (LC_CI_PROCESS_SUBSYSTEM_CODE, '')
2811 || ', UPDATED_BY_NAME = '
2812 || NVL (AS_UPDATED_BY_NAME, '')
2813 || ', AC_SCREEN_CODE = '
2814 || NVL (AC_SCREEN_CODE, '')
2815 || ', AC_JOB_CODE = '
2816 || NVL (AC_JOB_CODE, '');
2817
2818 CALL BATCH_COMMON$SP_INSERT_TASK (
2819 AI_CASE_ID => LI_PERSONCUR_CASE_ID,
2820 AI_PERSON_ID => AI_PERSON_ID,
2821 AC_PROCESS_CODE => LC_CASE_PROCESS_CODE,
2822 AC_TASK_CODE => LC_NCSCS_TASK_CODE,
2823 AC_PROCESS_SUBSYSTEM_CODE =>
2824 LC_CI_PROCESS_SUBSYSTEM_CODE,
2825 AI_TRANSACTION_EVENT_SEQ_NUMB =>
2826 LI_TRANSACTION_EVENT_SEQ_NUMB,
2827 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
2828 AD_RUN_DATE => AD_RUN_DATE,
2829 AC_SCREEN_CODE => AC_SCREEN_CODE,
2830 AC_JOB_CODE => AC_JOB_CODE,
2831 AI_OUT_PROCESS_TASK_SEQ_ID =>
2832 LI_PROCESS_TASK_SEQ_ID,
2833 AI_OUT_TASK_USER_ID => LI_TASK_USER_ID,
2834 AI_OUT_CASE_JOURNAL_SEQ_ID =>
2835 LI_CASE_JOURNAL_SEQ_ID,
2836 AI_OUT_TRANSACTION_EVENT_SEQ_NUMB =>
2837 LI_OUT_TRANSACTION_EVENT_SEQ_NUMB,
2838 AC_MSG_CODE => LC_MSG_CODE,
2839 AS_ERROR_DESC => LS_ERROR_DESC);
2840
2841 IF LC_MSG_CODE <> LC_S_MSG_CODE
2842 THEN
2843 SET LS_SQL_DESC =
2844 'BATCH_COMMON$SP_INSERT_TASK - 5 FAILED';
2845 SET LC_SQLSTATE_CODE = '75000';
2846 SIGNAL SQLSTATE '75000';
2847 END IF;
2848 END IF;
2849
2850 -- NCP Participant case is 'Initiating'/'Responding' and address received source is not 'OSA' then insert a csenet pending request
2851 IF LC_PENDING_REQ_REASON_CODE IS NOT NULL
2852 AND LC_PERSONCUR_CASE_IGV_TYPE_CODE IN
2853 (LC_I_CASE_IGV_TYPE_CODE, LC_R_CASE_IGV_TYPE_CODE)
2854 AND EXISTS
2855 (SELECT 1
2856 FROM INTERGOVERNMENTAL_CASE_DETAIL I
2857 WHERE I.CASE_ID = LI_PERSONCUR_CASE_ID
2858 AND I.RESPONDENT_ID = AI_PERSON_ID
2859 AND I.CASE_STATUS_CODE =
2860 LC_O_CASE_STATUS_CODE
2861 AND I.END_DATE = LD_HIGH_DATE)
2862 THEN
2863 SET LS_SQL_DESC = 'BATCH_COMMON$SP_INSERT_PENDING_REQUEST';
2864 SET LS_SQL_DATA_DESC =
2865 'CASE_ID = '
2866 || NVL (LI_PERSONCUR_CASE_ID, LI_ZERO_NUMB)
2867 || ', PERSON_ID = '
2868 || NVL (AI_PERSON_ID, LI_ZERO_NUMB)
2869 || ', FUNCTION_CODE = '
2870 || LC_MSC_FUNCTION_CODE
2871 || ', ACTION_CODE = '
2872 || LC_P_ACTION_CODE
2873 || ', REASON_CODE = '
2874 || LC_REASON_CODE
2875 || ', GENERATED_DATE = '
2876 || NVL (AD_RUN_DATE, LD_LOW_DATE)
2877 || ', UPDATED_BY_NAME = '
2878 || NVL (AS_UPDATED_BY_NAME, '')
2879 || ', AC_SCREEN_CODE = '
2880 || NVL (AC_SCREEN_CODE, '')
2881 || ', AC_JOB_CODE = '
2882 || NVL (AC_JOB_CODE, '');
2883
2884 CALL BATCH_COMMON$SP_INSERT_PENDING_REQUEST (
2885 AI_CASE_ID => LI_PERSONCUR_CASE_ID,
2886 AI_RESPONDENT_ID => AI_PERSON_ID,
2887 AC_FUNCTION_CODE => LC_MSC_FUNCTION_CODE,
2888 AC_ACTION_CODE => LC_P_ACTION_CODE,
2889 AC_REASON_CODE => LC_PENDING_REQ_REASON_CODE,
2890 AC_STATE_FIPS_CODE => NULL,
2891 AC_COUNTY_FIPS_CODE => NULL,
2892 AC_OFFICE_FIPS_CODE => NULL,
2893 AS_OTHER_STATE_CASE_IDC => NULL,
2894 AD_GENERATED_DATE => AD_RUN_DATE,
2895 AI_FORM_NUMB => NULL,
2896 AS_FORM_WEB_URL => NULL,
2897 AI_TRANS_HEADER_ID => NULL,
2898 AS_COMMENT_NOTE => NULL,
2899 AI_FORMER_CASE_NUMB => NULL,
2900 AS_INS_CARRIER_NAME => NULL,
2901 AS_INS_POLICY_DESC => NULL,
2902 AD_HEARING_DATE => NULL,
2903 AD_DISMISSAL_DATE => NULL,
2904 AD_GENETIC_TEST_DATE => NULL,
2905 AD_PFNOSHOW_DATE => NULL,
2906 AB_ATTACHMENT_IND => NULL,
2907 AS_DOCKET_IDC => NULL,
2908 AD_ARREAR_COMPUTED_DATE => NULL,
2909 AN_TOTAL_INTEREST_OWED_AMT => LI_ZERO_NUMB,
2910 AN_TOTAL_ARREAR_OWED_AMT => LI_ZERO_NUMB,
2911 AC_SCREEN_CODE => AC_SCREEN_CODE,
2912 AC_JOB_CODE => AC_JOB_CODE,
2913 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
2914 AI_TRANSACTION_EVENT_SEQ_NUMB =>
2915 LI_TRANSACTION_EVENT_SEQ_NUMB,
2916 AC_MSG_CODE => LC_MSG_CODE,
2917 AS_ERROR_DESC => LS_ERROR_DESC);
2918
2919 IF LC_MSG_CODE <> LC_S_MSG_CODE
2920 THEN
2921 SET LS_SQL_DESC =
2922 'BATCH_COMMON$SP_INSERT_PENDING_REQUEST FAILED';
2923 SET LC_SQLSTATE_CODE = '75000';
2924 SIGNAL SQLSTATE '75000';
2925 END IF;
2926 END IF;
2927
2928 /* Received confirmed good residential/mailing address of the Participant who doesn't have confirmed good mailing/residential address
2929 and no active support order exists to the participant case then initiate the ESTP Process to that case */
2930 IF LB_ESTP_PROCESS_ADD_IND = LB_TRUE_IND
2931 AND NOT EXISTS
2932 (SELECT 1
2933 FROM SORD_VW A
2934 WHERE A.CASE_ID = LI_PERSONCUR_CASE_ID
2935 AND A.ORDER_END_DATE >= AD_RUN_DATE)
2936 THEN
2937 SET LS_SQL_DESC = 'BATCH_ENF_ELFC$SP_INITIATE_PROCESS';
2938 SET LS_SQL_DATA_DESC =
2939 'CASE_ID = '
2940 || NVL (LI_PERSONCUR_CASE_ID, LI_ZERO_NUMB)
2941 || ', PERSON_ID = '
2942 || NVL (AI_PERSON_ID, LI_ZERO_NUMB)
2943 || ', SOURCE_NUMB = '
2944 || NVL (AI_PERSON_ID, LI_ZERO_NUMB)
2945 || ', SOURCE_TYPE_CODE = '
2946 || NVL (LC_PERSONCUR_CASE_PARTY_ROLE_CODE, '')
2947 || ', PROCESS_CODE = '
2948 || LC_ESTP_PROCESS_CODE
2949 || ',PROCESS_SUBSYSTEM_CODE = '
2950 || LC_ES_PROCESS_SUBSYSTEM_CODE
2951 || ', UPDATED_BY_NAME = '
2952 || NVL (AS_UPDATED_BY_NAME, '')
2953 || ', AC_SCREEN_CODE = '
2954 || NVL (AC_SCREEN_CODE, '')
2955 || ', AC_JOB_CODE = '
2956 || NVL (AC_JOB_CODE, '');
2957
2958 CALL BATCH_ENF_ELFC$SP_INITIATE_PROCESS (
2959 AC_TYPE_CHANGE_CODE => NULL,
2960 AI_CASE_ID => LI_PERSONCUR_CASE_ID,
2961 AI_SUPPORT_ORDER_ID => NULL,
2962 AI_PERSON_ID => AI_PERSON_ID,
2963 AI_SOURCE_NUMB => AI_PERSON_ID,
2964 AC_SOURCE_TYPE_CODE =>
2965 LC_PERSONCUR_CASE_PARTY_ROLE_CODE,
2966 AC_PROCESS_CODE => LC_ESTP_PROCESS_CODE,
2967 AC_PROCESS_SUBSYSTEM_CODE =>
2968 LC_ES_PROCESS_SUBSYSTEM_CODE,
2969 AI_TRANSACTION_EVENT_SEQ_NUMB =>
2970 LI_TRANSACTION_EVENT_SEQ_NUMB,
2971 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
2972 AD_RUN_DATE => AD_RUN_DATE,
2973 AC_SCREEN_CODE => AC_SCREEN_CODE,
2974 AC_JOB_CODE => AC_JOB_CODE,
2975 AC_MSG_CODE => LC_MSG_CODE,
2976 AS_ERROR_DESC => LS_ERROR_DESC);
2977
2978 IF LC_MSG_CODE <> LC_S_MSG_CODE
2979 THEN
2980 SET LS_SQL_DESC =
2981 'BATCH_ENF_ELFC$SP_INITIATE_PROCESS FAILED';
2982 SET LC_SQLSTATE_CODE = '75000';
2983 SIGNAL SQLSTATE '75000';
2984 END IF;
2985 END IF;
2986 -- Verification pending address received to the participant and address country is 'US' then generate post office letter and 'PMLEG' task
2987 ELSEIF LB_GENERATE_NOTICE_IND = TRUE
2988 THEN
2989 SET LC_PROCESS_SUBSYSTEM_CODE = LC_CI_PROCESS_SUBSYSTEM_CODE;
2990
2991 -- check if notice already generated , if not then only generate notice
2992 IF LI_OLD_CASE_JOURNAL_SEQ_ID = LI_ZERO_NUMB
2993 THEN
2994 SET LS_DOCUMENT_IDC = LS_NVGN000091_DOCUMENT_IDC;
2995 SET LS_DOCUMENT_XML =
2996 '<document_xml><person_address_id>'
2997 || AI_NEW_PERSON_ADDRESS_ID
2998 || '</person_address_id></document_xml>';
2999 ELSE
3000 SET LS_DOCUMENT_IDC = LC_SPACE_CODE;
3001 SET LS_DOCUMENT_XML = LC_SPACE_CODE;
3002 END IF;
3003
3004 SET LS_SQL_DESC = 'BATCH_COMMON$SP_INSERT_TASK-2 ';
3005 SET LS_SQL_DATA_DESC =
3006 ' CASE_ID = '
3007 || NVL (LI_PERSONCUR_CASE_ID, LI_ZERO_NUMB)
3008 || ', PERSON_ID = '
3009 || NVL (AI_PERSON_ID, LI_ZERO_NUMB)
3010 || ', PROCESS_CODE = '
3011 || NVL (LC_CASE_PROCESS_CODE, '')
3012 || ', TASK_CODE = '
3013 || NVL (LC_PMLEG_TASK_CODE, '')
3014 || ', PROCESS_SUBSYSTEM_CODE = '
3015 || NVL (LC_PROCESS_SUBSYSTEM_CODE, '')
3016 || ', TRANSACTION_EVENT_SEQ_NUMB = '
3017 || NVL (LI_TRANSACTION_EVENT_SEQ_NUMB, LI_ZERO_NUMB)
3018 || ', UPDATED_BY_NAME = '
3019 || NVL (AS_UPDATED_BY_NAME, '')
3020 || ', RUN_DATE = '
3021 || NVL (AD_RUN_DATE, LD_LOW_DATE)
3022 || ',DOCUMENT_IDC = '
3023 || NVL (LS_DOCUMENT_IDC, '')
3024 || ', JOB_CODE = '
3025 || NVL (AC_JOB_CODE, '')
3026 || ', CASE_JOURNAL_SEQ_ID = '
3027 || NVL (LI_OLD_CASE_JOURNAL_SEQ_ID, LI_ZERO_NUMB)
3028 || ', SOURCE_NUMB = '
3029 || NVL (AI_PERSON_ID, LI_ZERO_NUMB);
3030
3031
3032 CALL BATCH_COMMON$SP_INSERT_TASK (
3033 AI_CASE_ID => LI_PERSONCUR_CASE_ID,
3034 AI_PERSON_ID => AI_PERSON_ID,
3035 AC_PROCESS_CODE => LC_CASE_PROCESS_CODE,
3036 AC_TASK_CODE => LC_PMLEG_TASK_CODE,
3037 AS_COMMENT_NOTE => NULL,
3038 AC_PROCESS_SUBSYSTEM_CODE =>
3039 LC_PROCESS_SUBSYSTEM_CODE,
3040 AI_TRANSACTION_EVENT_SEQ_NUMB =>
3041 LI_TRANSACTION_EVENT_SEQ_NUMB,
3042 AS_DOCUMENT_IDC => LS_DOCUMENT_IDC,
3043 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
3044 AD_RUN_DATE => AD_RUN_DATE,
3045 AC_SCREEN_CODE => AC_SCREEN_CODE,
3046 AC_JOB_CODE => AC_JOB_CODE,
3047 AS_DOCUMENT_XML => LS_DOCUMENT_XML,
3048 AI_CASE_JOURNAL_SEQ_ID => LI_OLD_CASE_JOURNAL_SEQ_ID,
3049 AI_SOURCE_NUMB => AI_PERSON_ID,
3050 AI_OUT_PROCESS_TASK_SEQ_ID => LI_PROCESS_TASK_SEQ_ID,
3051 AI_OUT_TASK_USER_ID => LI_TASK_USER_ID,
3052 AI_OUT_CASE_JOURNAL_SEQ_ID => LI_CASE_JOURNAL_SEQ_ID,
3053 AI_OUT_TRANSACTION_EVENT_SEQ_NUMB =>
3054 LI_OUT_TRANSACTION_EVENT_SEQ_NUMB,
3055 AC_MSG_CODE => LC_MSG_CODE,
3056 AS_ERROR_DESC => LS_ERROR_DESC);
3057
3058 IF LC_MSG_CODE <> LC_S_MSG_CODE
3059 THEN
3060 SET LS_SQL_DESC = 'BATCH_COMMON$SP_INSERT_TASK-2 FAILED';
3061 SET LC_SQLSTATE_CODE = '75000';
3062 SIGNAL SQLSTATE '75000';
3063 END IF;
3064
3065 SET LI_OLD_CASE_JOURNAL_SEQ_ID = LI_CASE_JOURNAL_SEQ_ID;
3066 END IF;
3067 END IF;
3068
3069 SET LI_PERSONCUR_CASE_ID = NULL;
3070 END LOOP FETCH_GEN_TASKS_LOOP;
3071
3072 CLOSE PERSON_CUR;
3073 END;
3074
3075 SET AC_MSG_CODE = LC_S_MSG_CODE;
3076END
307708-01-2020 10.53.42 AM 0:00:00.063: Lookup Error - DB2 Database Error: ERROR [42821] [IBM][DB2/LINUXX8664] A value is not compatible with the data type of its assignment target. Target name is "LD_LOW_DATE".
3078CombinedBatch.sql:3097: CREATE OR REPLACE PROCEDURE BATCH_COMMON$SP_BATCH_RESTART_UPDATE (
3079 IN AC_JOB_CODE ANCHOR DATA TYPE TO JOB_PARM.JOB_CODE,
3080 IN AD_RUN_DATE DATE,
3081 IN AS_RESTART_KEY_DESC ANCHOR DATA TYPE TO BATCH_RESTART.RESTART_KEY_DESC,
3082 OUT AC_MSG_CODE CHAR (1),
3083 OUT AS_ERROR_DESC VARCHAR (4000))
3084/*
3085PROCEDURE NAME : BATCH_COMMON$SP_BATCH_RESTART_UPDATE
3086DESCRIPTION : THIS PROCEDURE IS USED TO INSERT / UPDATE RESTART KEY VALUE IN BATCH_RESTART
3087 TABLE USING INPUT JOB_CODE AND RUN_DATE.
3088*/
3089
3090BEGIN
3091 DECLARE
3092 LI_ONE_NUMB INTEGER DEFAULT 1;
3093 DECLARE LC_F_MSG_CODE CHAR (1) DEFAULT 'F';
3094 DECLARE LC_S_MSG_CODE CHAR (1) DEFAULT 'S';
3095 DECLARE LS_PROCEDURE_NAME ANCHOR DATA TYPE TO JOB_PARM.PROCEDURE_NAME
3096 DEFAULT 'SP_BATCH_RESTART_UPDATE';
3097 DECLARE LI_ROWCOUNT_QNTY SMALLINT;
3098 DECLARE LS_SQL_DESC VARCHAR (50);
3099 DECLARE LS_SQL_DATA_DESC VARCHAR (200);
3100 DECLARE LC_MSG_CODE CHAR (1);
3101 DECLARE LS_ERROR_DESC VARCHAR (4000);
3102 DECLARE LI_EXISTS_COUNT_QNTY INTEGER DEFAULT 0;
3103 DECLARE LC_SQLSTATE_CODE CHAR (5);
3104 DECLARE LS_SQL_ERROR_DESC VARCHAR (4000);
3105 DECLARE LD_LOW_DATE DATE DEFAULT '01-01-0001';
3106
3107 DECLARE EXIT HANDLER FOR SQLEXCEPTION
3108 BEGIN
3109 GET DIAGNOSTICS EXCEPTION 1
3110 LS_SQL_ERROR_DESC = MESSAGE_TEXT;
3111
3112 IF LC_SQLSTATE_CODE <> ''
3113 THEN
3114 SET AC_MSG_CODE = LC_MSG_CODE;
3115 ELSE
3116 SET AC_MSG_CODE = LC_F_MSG_CODE;
3117 SET LS_ERROR_DESC = LS_SQL_ERROR_DESC;
3118 END IF;
3119
3120 CALL BATCH_COMMON$SP_GET_ERROR_DESCRIPTION (
3121 AS_PROCEDURE_NAME => LS_PROCEDURE_NAME,
3122 AS_ERROR_MESSAGE_DESC => LS_ERROR_DESC,
3123 AS_SQL_DESC => LS_SQL_DESC,
3124 AS_SQL_DATA_DESC => LS_SQL_DATA_DESC,
3125 AS_ERROR_DESC => AS_ERROR_DESC);
3126 END;
3127
3128 SET LC_SQLSTATE_CODE = '';
3129 SET AC_MSG_CODE = '';
3130 SET AS_ERROR_DESC = '';
3131
3132 SET LS_SQL_DESC = 'SELECT BATCH_RESTART';
3133 SET LS_SQL_DATA_DESC =
3134 'JOB_CODE '
3135 || NVL (AC_JOB_CODE, '')
3136 || ', RUN_DATE '
3137 || NVL (AD_RUN_DATE, LD_LOW_DATE);
3138
3139
3140 SELECT COUNT (1)
3141 INTO LI_EXISTS_COUNT_QNTY
3142 FROM BATCH_RESTART R
3143 WHERE R.JOB_CODE = AC_JOB_CODE AND R.RUN_DATE = AD_RUN_DATE;
3144
3145
3146 IF LI_EXISTS_COUNT_QNTY = LI_ONE_NUMB
3147 THEN
3148 SET LS_SQL_DESC = 'UPDATE BATCH_RESTART';
3149 SET LS_SQL_DATA_DESC =
3150 'JOB_CODE '
3151 || NVL (AC_JOB_CODE, '')
3152 || ', RUN_DATE '
3153 || NVL (AD_RUN_DATE, LD_LOW_DATE);
3154
3155 --UPDATE THE RESTART KEY DESCRIPTION FOR INCOMING JOB_CODE
3156
3157 UPDATE BATCH_RESTART
3158 SET RESTART_KEY_DESC = AS_RESTART_KEY_DESC
3159 WHERE JOB_CODE = AC_JOB_CODE AND RUN_DATE = AD_RUN_DATE;
3160
3161 GET DIAGNOSTICS LI_ROWCOUNT_QNTY = ROW_COUNT;
3162
3163 IF LI_ROWCOUNT_QNTY != LI_ONE_NUMB
3164 THEN
3165 SET LC_MSG_CODE = LC_F_MSG_CODE;
3166 SET LS_ERROR_DESC = 'ERROR WHILE UPDATING RESTART KEY';
3167 SET LC_SQLSTATE_CODE = '75000';
3168 SIGNAL SQLSTATE '75000';
3169 END IF;
3170 ELSE
3171 SET LS_SQL_DESC = 'INSERT BATCH_RESTART';
3172 SET LS_SQL_DATA_DESC =
3173 'JOB_CODE '
3174 || NVL (AC_JOB_CODE, '')
3175 || ', RUN_DATE '
3176 || NVL (AD_RUN_DATE, LD_LOW_DATE)
3177 || ', RESTART_KEY_TEXT '
3178 || NVL (AS_RESTART_KEY_DESC, '');
3179
3180 -- INSERT BATCH RESTART DETAILS FOR INCOMING JOB_CODE
3181
3182 INSERT INTO BATCH_RESTART (JOB_CODE, RUN_DATE, RESTART_KEY_DESC)
3183 VALUES (AC_JOB_CODE, AD_RUN_DATE, AS_RESTART_KEY_DESC);
3184
3185 GET DIAGNOSTICS LI_ROWCOUNT_QNTY = ROW_COUNT;
3186
3187 IF LI_ROWCOUNT_QNTY != LI_ONE_NUMB
3188 THEN
3189 SET LC_MSG_CODE = LC_F_MSG_CODE;
3190 SET LS_ERROR_DESC = 'ERROR WHILE INSERTING RESTART KEY';
3191 SET LC_SQLSTATE_CODE = '75000';
3192 SIGNAL SQLSTATE '75000';
3193 END IF;
3194 END IF;
3195
3196 SET AC_MSG_CODE = LC_S_MSG_CODE;
3197END
319808-01-2020 10.53.43 AM 0:00:00.815: Lookup Error - DB2 Database Error: ERROR [42821] [IBM][DB2/LINUXX8664] A value is not compatible with the data type of its assignment target. Target name is "LD_HIGH_DATE".
3199CombinedBatch.sql:3482: CREATE OR REPLACE PROCEDURE BATCH_COMMON$SP_BULK_INSERT_TASK (
3200 IN AC_TASK_CODE ANCHOR DATA TYPE TO PROCESS_TASK_DETAIL.TASK_CODE,
3201 IN AC_PROCESS_CODE ANCHOR DATA TYPE TO JOB_PARM.JOB_CODE,
3202 IN AD_RUN_DATE ANCHOR DATA TYPE TO JOB_PARM.RUN_DATE,
3203 IN AI_UPDATED_BY_ID ANCHOR DATA TYPE TO PROCESS_TASK_DETAIL.UPDATED_BY_ID,
3204 IN AI_TRANSACTION_EVENT_SEQ_NUMB ANCHOR DATA TYPE TO GLOBAL_TRANS_EVENT_SEQUENCE.TRANSACTION_EVENT_SEQ_NUMB,
3205 IN AS_REPLACE_DESC VARCHAR (50) DEFAULT 'SUBMITTED ON',
3206 OUT AC_MSG_CODE CHAR (5),
3207 OUT AS_ERROR_DESC VARCHAR (4000))
3208/*
3209PROCEDURE NAME : BATCH_COMMON$SP_BULK_INSERT_TASK
3210DESCRIPTION : THIS PROCEDURE IS TO INSERT BULK CASE JOURNAL ENTRIES OR ALERTS FOR THE
3211 RECORDS IN THE TEMP TABLE TEMP_TASK.
3212*/
3213BEGIN
3214 DECLARE
3215 LI_ZERO_NUMB INTEGER DEFAULT 0;
3216 DECLARE LI_CUR_CNT INTEGER DEFAULT 0;
3217 DECLARE SQLCODE INTEGER DEFAULT 0;
3218 DECLARE LC_S_MSG_CODE CHAR (1) DEFAULT 'S';
3219 DECLARE LC_F_MSG_CODE CHAR (1) DEFAULT 'F';
3220 DECLARE LC_YES_IND CHAR (1) DEFAULT 'Y';
3221 DECLARE LC_A_TASK_TYPE_CODE CHAR (1) DEFAULT 'A';
3222 DECLARE LC_SPACE_CODE CHAR (1) DEFAULT ' ';
3223 DECLARE LC_C_STATUS_CASECLOSE_CODE CHAR (1) DEFAULT 'C';
3224 DECLARE LC_SUPERVISOR_IND CHAR (1) DEFAULT 'S';
3225 DECLARE LC_CASE_TASK_PROCESS_CODE ANCHOR DATA TYPE TO PROCESS_DETAIL.PROCESS_CODE
3226 DEFAULT 'CASE';
3227 DECLARE LC_START_STATUS_CODE ANCHOR DATA TYPE TO PROCESS_DETAIL.PROCESS_CODE
3228 DEFAULT 'STRT';
3229 DECLARE LC_COMP_STATUS_CODE ANCHOR DATA TYPE TO PROCESS_DETAIL.PROCESS_CODE
3230 DEFAULT 'COMP';
3231 DECLARE LC_CCRCM_TASK_CODE CHAR (5) DEFAULT 'CCRCM';
3232 DECLARE LC_BATCH_RUN_USER_DESC CHAR (5) DEFAULT 'BATCH';
3233 DECLARE LC_CDFCR_TASK_CODE CHAR (5) DEFAULT 'CDFCR';
3234 DECLARE LC_NOTE_PROCESS_CODE ANCHOR DATA TYPE TO PROCESS_DETAIL.PROCESS_CODE
3235 DEFAULT 'NOTE';
3236 DECLARE LC_E0073_ERROR_CODE CHAR (5) DEFAULT 'E0073';
3237 DECLARE LC_STRT_TASK_STATUS_CODE ANCHOR DATA TYPE TO REFM_TASK_STATUS.TASK_STATUS_CODE
3238 DEFAULT 'STRT';
3239 DECLARE LC_COMP_TASK_STATUS_CODE ANCHOR DATA TYPE TO REFM_TASK_STATUS.TASK_STATUS_CODE
3240 DEFAULT 'COMP';
3241 DECLARE LC_I_TASK_TYPE_CODE ANCHOR DATA TYPE TO TASK_DETAIL.TASK_TYPE_CODE
3242 DEFAULT 'I';
3243 DECLARE LC_OPEN_TASK_STATUS_CODE ANCHOR DATA TYPE TO REFM_TASK_STATUS.TASK_STATUS_CODE
3244 DEFAULT 'OPEN';
3245 DECLARE LC_ASSIGNED_USER_ID CHAR (30) DEFAULT ' ';
3246 DECLARE LS_PROCEDURE_NAME ANCHOR DATA TYPE TO BATCH_STATUS_LOG.PROCEDURE_NAME
3247 DEFAULT 'BATCH_COMMON$SP_BULK_INSERT_TASK';
3248 DECLARE LD_LOW_DATE DATE DEFAULT '01/01/0001';
3249 DECLARE LD_HIGH_DATE DATE DEFAULT '12/30/9999';
3250 DECLARE LI_ROWCOUNT_QNTY INTEGER;
3251 DECLARE LI_ACTION_CUR_CASE_ID INTEGER;
3252 DECLARE LI_ACTION_CUR_OFFICE_CODE INTEGER;
3253 DECLARE LC_ACTION_CUR_SUBSYSTEM_CODE CHAR (2);
3254 DECLARE LC_ACTION_CURACTIVITY_TASK_CODE CHAR (5);
3255 DECLARE LC_SQLSTATE_CODE CHAR (5);
3256 DECLARE LC_ACTION_CUR_ROLE_CODE CHAR (10);
3257 DECLARE LS_ACTION_CUR_USER_ID VARCHAR (30);
3258 DECLARE LS_CASE_USER_NAME VARCHAR (70);
3259 DECLARE LS_SQL_DESC VARCHAR (200);
3260 DECLARE LS_SQL_DATA_DESC VARCHAR (2000);
3261 DECLARE LS_ERROR_DESC VARCHAR (4000);
3262 DECLARE LS_SQL_ERROR_DESC VARCHAR (4000);
3263 DECLARE LD_SYSTEM_DTTM TIMESTAMP;
3264 DECLARE ACTIVITY_CUR CURSOR;
3265
3266 DECLARE EXIT HANDLER FOR SQLEXCEPTION
3267 BEGIN
3268 GET DIAGNOSTICS EXCEPTION 1
3269 LS_SQL_ERROR_DESC = MESSAGE_TEXT;
3270
3271 IF LC_SQLSTATE_CODE <> 75000
3272 THEN
3273 SET LS_ERROR_DESC = LS_SQL_ERROR_DESC;
3274 END IF;
3275
3276 CALL BATCH_COMMON$SP_GET_ERROR_DESCRIPTION (
3277 AS_PROCEDURE_NAME => LS_PROCEDURE_NAME,
3278 AS_ERROR_MESSAGE_DESC => LS_ERROR_DESC,
3279 AS_SQL_DESC => LS_SQL_DESC,
3280 AS_SQL_DATA_DESC => LS_SQL_DATA_DESC,
3281 AS_ERROR_DESC => AS_ERROR_DESC);
3282
3283 SET AC_MSG_CODE = LC_F_MSG_CODE;
3284 END;
3285
3286
3287 DECLARE GLOBAL TEMPORARY TABLE SESSION.TEMP_TASK
3288 (
3289 CASE_ID BIGINT NOT NULL,
3290 PERSON_ID BIGINT NOT NULL,
3291 TASK_CODE CHAR (5) NOT NULL,
3292 COMMENT_NOTE VARCHAR (4000),
3293 TASK_SEQ_NUMB INTEGER
3294 )
3295 NOT LOGGED
3296 WITH REPLACE;
3297
3298 SET AS_ERROR_DESC = LC_SPACE_CODE;
3299 SET LD_SYSTEM_DTTM = BATCH_COMMON_SCALAR$SF_SYS_DATE_TIME ();
3300
3301 -- CHECK WHETHER ANY RECORD EXISTS TO PROCESS.
3302 IF NOT EXISTS
3303 (SELECT 1
3304 FROM TEMP_BULK_GENERATE A)
3305 THEN
3306 SET AC_MSG_CODE = LC_S_MSG_CODE;
3307 END IF;
3308
3309 -- CLOSED CASE ENTRY IS NOT ALLOWED EXCEPT LISTED BELOW TASK MINOR CODES OR NOTE SCREEN ENTRIES.
3310
3311 --'ARCCL','ERCCL','GNPHG', 'DNPHG',
3312 IF EXISTS
3313 (SELECT 1
3314 FROM CASE_DETAIL C
3315 JOIN TEMP_BULK_GENERATE A
3316 ON A.CASE_NUMB = C.CASE_ID
3317 AND A.TASK_CODE NOT IN
3318 (LC_CCRCM_TASK_CODE, LC_CDFCR_TASK_CODE)
3319 WHERE C.CASE_STATUS_CODE = LC_C_STATUS_CASECLOSE_CODE
3320 AND AC_PROCESS_CODE != LC_NOTE_PROCESS_CODE
3321 AND A.TASK_CODE = AC_TASK_CODE)
3322 THEN
3323 SET AC_MSG_CODE = LC_E0073_ERROR_CODE;
3324 SET AS_ERROR_DESC = 'CASE IS NOT OPEN';
3325 RETURN;
3326 END IF;
3327
3328 -- CHECK WHETHER ANY INVALID TASK CODE IS PASSED IN THE TEMP TABLE.
3329 IF EXISTS
3330 (SELECT 1
3331 FROM TEMP_BULK_GENERATE A
3332 WHERE NOT EXISTS
3333 (SELECT 1
3334 FROM TASK_DETAIL M
3335 WHERE M.TASK_CODE = A.TASK_CODE
3336 AND M.END_VALIDITY_DTTM = LD_HIGH_DATE)
3337 AND A.TASK_CODE = AC_TASK_CODE)
3338 THEN
3339 SET AC_MSG_CODE = LC_F_MSG_CODE;
3340 SET AS_ERROR_DESC = 'TASK_CODE NOT EXIST IN MASTER TABLE';
3341 RETURN;
3342 END IF;
3343
3344 SET LS_SQL_DESC = 'INSERT SESSION.TEMP_TASK';
3345 SET LS_SQL_DATA_DESC = ' RUN_DATE : ' || AD_RUN_DATE;
3346
3347 INSERT INTO SESSION.TEMP_TASK (CASE_ID,
3348 PERSON_ID,
3349 TASK_CODE,
3350 COMMENT_NOTE,
3351 TASK_SEQ_NUMB)
3352 SELECT T.CASE_NUMB,
3353 T.PERSON_NUMB,
3354 T.TASK_CODE,
3355 T.COMMENT_NOTE,
3356 T.TASK_SEQ_NUMB
3357 FROM (SELECT A.CASE_NUMB,
3358 A.PERSON_NUMB,
3359 A.TASK_CODE,
3360 A.COMMENT_NOTE,
3361 C.TASK_USER_ID AS TASK_SEQ_NUMB,
3362 ROW_NUMBER ()
3363 OVER (PARTITION BY C.CASE_ID, C.PERSON_ID, C.TASK_CODE
3364 ORDER BY C.TASK_USER_ID DESC) ROW_NUMB
3365 FROM TEMP_BULK_GENERATE A
3366 JOIN TASK_USER_DETAIL C
3367 ON C.CASE_ID = A.CASE_NUMB
3368 AND C.PERSON_ID = A.PERSON_NUMB
3369 AND C.TASK_CODE = A.TASK_CODE
3370 AND C.START_DATE BETWEEN FIRST_DAY (AD_RUN_DATE)
3371 AND AD_RUN_DATE
3372 AND A.TASK_CODE = AC_TASK_CODE) T
3373 WHERE T.ROW_NUMB = 1;
3374
3375
3376 -- UPDATE NOTES IF THERE ARE ANY CASE IN THE TABLE.
3377
3378 IF EXISTS (SELECT 1 FROM SESSION.TEMP_TASK)
3379 THEN
3380 SET LS_SQL_DESC = 'UPDATE NOTE';
3381 SET LS_SQL_DATA_DESC = ' RUN_DATE : ' || AD_RUN_DATE;
3382
3383 UPDATE NOTE N
3384 SET N.COMMENT_NOTE =
3385 N.COMMENT_NOTE
3386 || ', '
3387 || (SELECT RTRIM (
3388 LTRIM (
3389 REPLACE (B.COMMENT_NOTE, AS_REPLACE_DESC, '')))
3390 FROM SESSION.TEMP_TASK B
3391 WHERE B.CASE_ID = N.CASE_ID)
3392 WHERE EXISTS
3393 (SELECT 1
3394 FROM SESSION.TEMP_TASK A
3395 WHERE A.CASE_ID = N.CASE_ID);
3396
3397 GET DIAGNOSTICS LI_ROWCOUNT_QNTY = ROW_COUNT;
3398
3399 IF LI_ROWCOUNT_QNTY = LI_ZERO_NUMB
3400 THEN
3401 SET LS_ERROR_DESC = LS_SQL_DESC || 'INSERT FAILED';
3402
3403 SET LC_SQLSTATE_CODE = '75000';
3404 SIGNAL SQLSTATE '75000';
3405 END IF;
3406
3407
3408 --UPDATE TASK_USER_DETAIL TABLE.
3409 SET LS_SQL_DESC = 'UPDATE TASK_USER_DETAIL';
3410 SET LS_SQL_DATA_DESC = ' RUN_DATE : ' || AD_RUN_DATE;
3411
3412 UPDATE TASK_USER_DETAIL C
3413 SET C.STATUS_DATE = AD_RUN_DATE
3414 WHERE EXISTS
3415 (SELECT 1
3416 FROM SESSION.TEMP_TASK A
3417 WHERE A.CASE_ID = C.CASE_ID);
3418
3419 GET DIAGNOSTICS LI_ROWCOUNT_QNTY = ROW_COUNT;
3420
3421 IF LI_ROWCOUNT_QNTY = LI_ZERO_NUMB
3422 THEN
3423 SET LS_ERROR_DESC = LS_SQL_DESC || 'INSERT FAILED';
3424
3425 SET LC_SQLSTATE_CODE = '75000';
3426 SIGNAL SQLSTATE '75000';
3427 END IF;
3428
3429 SET LS_SQL_DESC = 'DELETE TEMP_BULK_GENERATE';
3430 SET LS_SQL_DATA_DESC = ' RUN_DATE : ' || AD_RUN_DATE;
3431
3432 DELETE FROM TEMP_BULK_GENERATE A
3433 WHERE A.TASK_CODE = AC_TASK_CODE
3434 AND EXISTS
3435 (SELECT 1
3436 FROM SESSION.TEMP_TASK T
3437 WHERE T.CASE_ID = A.CASE_NUMB
3438 AND T.PERSON_ID = A.PERSON_NUMB
3439 AND T.TASK_CODE = A.TASK_CODE);
3440
3441 GET DIAGNOSTICS LI_ROWCOUNT_QNTY = ROW_COUNT;
3442
3443 IF LI_ROWCOUNT_QNTY = LI_ZERO_NUMB
3444 THEN
3445 SET LS_ERROR_DESC = LS_SQL_DESC || 'INSERT FAILED';
3446 SET LC_SQLSTATE_CODE = '75000';
3447 SIGNAL SQLSTATE '75000';
3448 END IF;
3449 END IF;
3450
3451
3452 -- INSERT CASE JOURNAL RECORD FOR THE MINOR ACTIVITIES WHICH HAVE CASE JOURNAL INDICATOR TURNED ON.
3453 IF EXISTS
3454 (SELECT 1
3455 FROM TASK_DETAIL A
3456 JOIN TEMP_BULK_GENERATE T ON T.TASK_CODE = A.TASK_CODE
3457 WHERE A.END_DATE = LD_HIGH_DATE)
3458 THEN
3459 SET LS_SQL_DESC = 'INSERT CASE_JOURNAL';
3460 SET LS_SQL_DATA_DESC = ' RUN_DATE : ' || AD_RUN_DATE;
3461
3462 INSERT INTO CASE_JOURNAL (CASE_ID,
3463 PERSON_ID,
3464 PROCESS_CODE,
3465 TASK_STATUS_CODE,
3466 TASK_CODE,
3467 START_DATE,
3468 STATUS_DATE,
3469 UPDATED_BY_ID,
3470 TRANSACTION_EVENT_SEQ_NUMB)
3471 SELECT X.CASE_ID, -- CASE_ID
3472 X.PERSON_NUMB, -- PERSON_ID
3473 LC_CASE_TASK_PROCESS_CODE, -- PROCESS_ID
3474 LC_COMP_TASK_STATUS_CODE, -- TASK_STATUS_ID
3475 X.TASK_CODE, -- TASK_ID
3476 AD_RUN_DATE, -- START_DATE
3477 AD_RUN_DATE, -- STATUS_DATE
3478 AI_UPDATED_BY_ID, -- UPDATED_BY
3479 AI_TRANSACTION_EVENT_SEQ_NUMB -- TRANSACTION_EVENT_SEQ_NUMB
3480 FROM (SELECT T.CASE_ID,
3481 ROW_NUMBER ()
3482 OVER (PARTITION BY T.CASE_ID
3483 ORDER BY A.TASK_CODE, A.PERSON_NUMB)
3484 ROWMINOR_NUMB,
3485 A.PERSON_NUMB,
3486 A.TASK_CODE
3487 FROM (SELECT J.CASE_ID,
3488 ROW_NUMBER ()
3489 OVER (PARTITION BY J.CASE_ID
3490 ORDER BY J.TASK_USER_ID DESC) ROW_NUMB
3491 FROM TASK_USER_DETAIL J
3492 WHERE J.PROCESS_CODE = LC_CASE_TASK_PROCESS_CODE
3493 AND J.TASK_STATUS_CODE = LC_START_STATUS_CODE
3494 AND EXISTS
3495 (SELECT 1
3496 FROM TEMP_BULK_GENERATE A
3497 WHERE A.CASE_NUMB = J.CASE_ID)) T
3498 JOIN TEMP_BULK_GENERATE A ON A.CASE_NUMB = T.CASE_ID
3499 WHERE T.ROW_NUMB = 1) X
3500 WHERE X.CASE_ID <> 0 AND X.PERSON_NUMB <> 0;
3501
3502
3503
3504 GET DIAGNOSTICS LI_ROWCOUNT_QNTY = ROW_COUNT;
3505
3506 IF LI_ROWCOUNT_QNTY = LI_ZERO_NUMB
3507 THEN
3508 SET LS_ERROR_DESC = LS_SQL_DESC || 'INSERT FAILED';
3509
3510 SET LC_SQLSTATE_CODE = '75000';
3511 SIGNAL SQLSTATE '75000';
3512 END IF;
3513 END IF;
3514
3515
3516
3517 -- INSERT TASK_USER_DETAIL RECORD FOR THE MINOR ACTIVITIES WHICH HAVE CASE JOURNAL INDICATOR TURNED OFF.
3518 IF NOT EXISTS
3519 (SELECT 1
3520 FROM TASK_DETAIL A
3521 JOIN TEMP_BULK_GENERATE T ON T.TASK_CODE = A.TASK_CODE
3522 WHERE A.END_DATE = LD_HIGH_DATE AND A.TASK_CODE = AC_TASK_CODE)
3523 THEN
3524 SET LS_SQL_DESC = 'INSERT TASK_USER_DETAIL';
3525 SET LS_SQL_DATA_DESC = ' RUN_DATE : ' || AD_RUN_DATE;
3526
3527
3528 INSERT INTO TASK_USER_DETAIL (CASE_ID,
3529 PERSON_ID,
3530 TASK_STATUS_CODE,
3531 PROCESS_CODE,
3532 TASK_CODE,
3533 START_DATE,
3534 DUE_DATE,
3535 STATUS_DATE,
3536 TASK_PRIOR_DATE,
3537 TRANSACTION_EVENT_SEQ_NUMB,
3538 UPDATED_BY_ID)
3539 SELECT T.CASE_ID,
3540 T.PERSON_NUMB,
3541 CASE
3542 WHEN A.TASK_TYPE_CODE = LC_I_TASK_TYPE_CODE
3543 THEN
3544 LC_OPEN_TASK_STATUS_CODE
3545 ELSE
3546 LC_STRT_TASK_STATUS_CODE
3547 END AS TASK_STATUS_CODE,
3548 LC_CASE_TASK_PROCESS_CODE,
3549 T.TASK_CODE,
3550 AD_RUN_DATE,
3551 LD_HIGH_DATE,
3552 A.STATUS_DATE,
3553 AD_RUN_DATE,
3554 AI_TRANSACTION_EVENT_SEQ_NUMB,
3555 AI_UPDATED_BY_ID
3556 FROM (SELECT J.CASE_ID,
3557 J.TASK_STATUS_CODE,
3558 ROW_NUMBER ()
3559 OVER (
3560 PARTITION BY J.CASE_ID,
3561 A.PERSON_NUMB,
3562 A.TASK_CODE
3563 ORDER BY A.TASK_CODE DESC) ROW_NUMB,
3564 ROW_NUMBER ()
3565 OVER (PARTITION BY J.CASE_ID
3566 ORDER BY A.TASK_CODE DESC) ROWMINOR_NUMB,
3567 A.PERSON_NUMB,
3568 A.TASK_CODE
3569 FROM TASK_USER_DETAIL J
3570 JOIN TEMP_BULK_GENERATE A ON A.CASE_NUMB = J.CASE_ID
3571 WHERE J.PROCESS_CODE = LC_CASE_TASK_PROCESS_CODE
3572 AND A.TASK_CODE = AC_TASK_CODE) T
3573 JOIN
3574 (SELECT T.TASK_CODE,
3575 A.TASK_TYPE_CODE,
3576 CASE
3577 WHEN A.TASK_TYPE_CODE = LC_A_TASK_TYPE_CODE
3578 THEN
3579 LC_START_STATUS_CODE
3580 ELSE
3581 LC_COMP_STATUS_CODE
3582 END STATUS_CODE,
3583 CASE
3584 WHEN A.TASK_TYPE_CODE = LC_A_TASK_TYPE_CODE
3585 THEN
3586 LD_HIGH_DATE
3587 ELSE
3588 AD_RUN_DATE
3589 END STATUS_DATE
3590 FROM TASK_DETAIL A
3591 JOIN (SELECT DISTINCT A.TASK_CODE
3592 FROM TEMP_BULK_GENERATE A
3593 WHERE A.TASK_CODE = AC_TASK_CODE) T
3594 ON T.TASK_CODE = A.TASK_CODE
3595 WHERE A.END_DATE = LD_HIGH_DATE) A
3596 ON T.TASK_CODE = A.TASK_CODE
3597 WHERE T.ROW_NUMB = 1 AND T.CASE_ID <> 0 AND T.PERSON_NUMB <> 0;
3598
3599
3600 GET DIAGNOSTICS LI_ROWCOUNT_QNTY = ROW_COUNT;
3601
3602 IF LI_ROWCOUNT_QNTY = LI_ZERO_NUMB
3603 THEN
3604 SET LS_ERROR_DESC = LS_SQL_DESC || 'INSERT FAILED';
3605
3606 SET LC_SQLSTATE_CODE = '75000';
3607 SIGNAL SQLSTATE '75000';
3608 END IF;
3609 END IF;
3610
3611 -- UPDATE USER ID FOR ASSIGNED CASE WORKER ALERT RECORDS.
3612
3613 IF EXISTS
3614 (SELECT 1
3615 FROM TEMP_BULK_GENERATE T
3616 JOIN TASK_DETAIL A
3617 ON A.TASK_CODE = T.TASK_CODE AND A.END_DATE = LD_HIGH_DATE
3618 JOIN TASK_ROLE_DETAIL R
3619 ON R.TASK_CODE = A.TASK_CODE
3620 AND R.TASK_ROLE_ID = NULL
3621 AND R.USER_ASSIGNED_IND = LC_YES_IND
3622 AND R.END_DATE = LD_HIGH_DATE
3623 WHERE A.TASK_CODE = AC_TASK_CODE)
3624 THEN
3625 SET LS_SQL_DESC = 'UPDATE TASK_USER_DETAIL - 1';
3626 SET LS_SQL_DATA_DESC = ' RUN_DATE : ' || AD_RUN_DATE;
3627
3628
3629 UPDATE TASK_USER_DETAIL D
3630 SET D.ASSIGNED_USER_ID =
3631 (SELECT C.CASE_USER_ID
3632 FROM TEMP_BULK_GENERATE T
3633 JOIN TASK_USER_DETAIL D
3634 ON D.CASE_ID = T.CASE_NUMB
3635 AND T.TASK_CODE = D.TASK_CODE
3636 AND T.TASK_CODE = AC_TASK_CODE
3637 JOIN TASK_DETAIL A
3638 ON A.TASK_CODE = T.TASK_CODE
3639 AND A.END_DATE = LD_HIGH_DATE
3640 JOIN TASK_ROLE_DETAIL R
3641 ON R.TASK_CODE = A.TASK_CODE
3642 AND R.USER_ASSIGNED_IND = LC_YES_IND
3643 AND R.END_DATE = LD_HIGH_DATE
3644 JOIN CASE_DETAIL C ON C.CASE_ID = T.CASE_NUMB
3645 WHERE D.TRANSACTION_EVENT_SEQ_NUMB =
3646 AI_TRANSACTION_EVENT_SEQ_NUMB
3647 AND D.CASE_ID = C.CASE_ID)
3648 WHERE EXISTS
3649 (SELECT 1
3650 FROM TEMP_BULK_GENERATE T
3651 JOIN TASK_USER_DETAIL D
3652 ON D.CASE_ID = T.CASE_NUMB
3653 AND T.TASK_CODE = D.TASK_CODE
3654 AND T.TASK_CODE = AC_TASK_CODE
3655 JOIN TASK_DETAIL A
3656 ON A.TASK_CODE = T.TASK_CODE
3657 AND A.END_DATE = LD_HIGH_DATE
3658 JOIN TASK_ROLE_DETAIL R
3659 ON R.TASK_CODE = A.TASK_CODE
3660 AND R.USER_ASSIGNED_IND = LC_YES_IND
3661 AND R.END_DATE = LD_HIGH_DATE
3662 JOIN CASE_DETAIL C ON C.CASE_ID = T.CASE_NUMB
3663 WHERE D.TRANSACTION_EVENT_SEQ_NUMB =
3664 AI_TRANSACTION_EVENT_SEQ_NUMB
3665 AND D.CASE_ID = C.CASE_ID
3666 AND T.TASK_CODE = AC_TASK_CODE);
3667
3668 GET DIAGNOSTICS LI_ROWCOUNT_QNTY = ROW_COUNT;
3669
3670 IF LI_ROWCOUNT_QNTY = LI_ZERO_NUMB
3671 THEN
3672 SET LS_ERROR_DESC = LS_SQL_DESC || 'UPDATE FAILED';
3673
3674 SET LC_SQLSTATE_CODE = '75000';
3675 SIGNAL SQLSTATE '75000';
3676 END IF;
3677 END IF;
3678
3679
3680 -- INSERT NOTE ENTRIES IF DESCRIPTION NOTE EXISTS.
3681 IF EXISTS
3682 (SELECT 1
3683 FROM TEMP_BULK_GENERATE T
3684 WHERE T.COMMENT_NOTE != '' AND T.TASK_CODE = AC_TASK_CODE)
3685 THEN
3686 SET LS_SQL_DESC = 'INSERT NOTE';
3687 SET LS_SQL_DATA_DESC =
3688 'PERSON_ID : '
3689 || ''
3690 || ' CASE_ID : '
3691 || ''
3692 || ' COUNTY_CODE : '
3693 || ''
3694 || ' TASK_USER_ID : '
3695 || ''
3696 || ' PROCESS_TASK_SEQ_ID : '
3697 || ''
3698 || ' ASSIGNED_ROLE_CODE : '
3699 || ''
3700 || ' CASE_JOURNAL_SEQ_ID : '
3701 || ''
3702 || ' ASSIGNED_USER_ID : '
3703 || ''
3704 || ' CREATED_USER_ID : '
3705 || ''
3706 || ' ASSIGNED_TYPE_CODE : '
3707 || ''
3708 || ' NOTE_STATUS_CODE : '
3709 || ''
3710 || ' NOTE_CATEGORY_CODE : '
3711 || ''
3712 || ' CONTACT_METHOD_CODE : '
3713 || ''
3714 || ' CONTACT_SOURCE_CODE : '
3715 || ''
3716 || ' CONTACT_TYPE_CODE : '
3717 || ''
3718 || ' POST_NUMB : '
3719 || ''
3720 || ' START_DATE : '
3721 || AD_RUN_DATE
3722 || ' DUE_DATE : '
3723 || AD_RUN_DATE
3724 || ' RECEIVED_DATE : '
3725 || LD_HIGH_DATE
3726 || ' ACTION_DATE : '
3727 || AD_RUN_DATE
3728 || ' NOTIFY_SENDER_IND : '
3729 || ''
3730 || ' NOTE_TITLE_DESC : '
3731 || ''
3732 || ' COMMENT_NOTE : '
3733 || ''
3734 || ' TRANSACTION_EVENT_SEQ_NUMB : '
3735 || ''
3736 || ' UPDATED_BY_ID : '
3737 || '';
3738
3739 INSERT INTO NOTE (PERSON_ID,
3740 CASE_ID,
3741 COUNTY_CODE,
3742 TASK_USER_ID,
3743 PROCESS_TASK_SEQ_ID,
3744 ASSIGNED_ROLE_CODE,
3745 CASE_JOURNAL_SEQ_ID,
3746 ASSIGNED_USER_ID,
3747 CREATED_USER_ID,
3748 ASSIGNED_TYPE_CODE,
3749 NOTE_STATUS_CODE,
3750 NOTE_CATEGORY_CODE,
3751 CS_CONTACT_METHOD_CODE,
3752 CONTACT_SOURCE_CODE,
3753 CONTACT_TYPE_CODE,
3754 POST_NUMB,
3755 START_DATE,
3756 DUE_DATE,
3757 RECEIVED_DATE,
3758 ACTION_DATE,
3759 NOTIFY_SENDER_CODE,
3760 NOTE_TITLE_DESC,
3761 COMMENT_NOTE,
3762 TRANSACTION_EVENT_SEQ_NUMB,
3763 UPDATED_BY_ID)
3764 SELECT T.PERSON_NUMB, -- PERSON_ID
3765 T.CASE_NUMB, -- CASE_ID
3766 NULL, -- COUNTY_CODE
3767 U.TASK_USER_ID, -- TASK_USER_ID
3768 NULL, -- PROCESS_TASK_SEQ_ID
3769 NULL, -- ASSIGNED_ROLE_CODE
3770 NULL, -- CASE_JOURNAL_SEQ_ID
3771 NULL, -- ASSIGNED_USER_ID
3772 AI_UPDATED_BY_ID, -- CREATED_USER_ID
3773 NULL, -- ASSIGNED_TYPE_CODE
3774 NULL, -- NOTE_STATUS_CODE
3775 NULL, -- NOTE_CATEGORY_CODE
3776 NULL, -- CONTACT_METHOD_CODE
3777 NULL, -- CONTACT_SOURCE_CODE
3778 NULL, -- CONTACT_TYPE_CODE
3779 NULL, -- POST_NUMB
3780 LD_LOW_DATE, -- START_DATE
3781 LD_LOW_DATE, -- DUE_DATE
3782 LD_HIGH_DATE, -- RECEIVED_DATE
3783 LD_LOW_DATE, -- ACTION_DATE
3784 NULL, -- NOTIFY_SENDER_IND
3785 NULL, -- NOTE_TITLE_DESC
3786 T.COMMENT_NOTE, -- COMMENT_NOTE
3787 AI_TRANSACTION_EVENT_SEQ_NUMB, -- TRANSACTION_EVENT_SEQ_NUMB
3788 AI_UPDATED_BY_ID -- UPDATED_BY_ID
3789 FROM TEMP_BULK_GENERATE T
3790 JOIN TASK_USER_DETAIL U
3791 ON U.CASE_ID = T.CASE_NUMB
3792 AND U.PERSON_ID = T.PERSON_NUMB
3793 AND U.TRANSACTION_EVENT_SEQ_NUMB =
3794 AI_TRANSACTION_EVENT_SEQ_NUMB
3795 AND U.TASK_CODE = T.TASK_CODE
3796 WHERE T.COMMENT_NOTE != '' AND T.TASK_CODE = AC_TASK_CODE;
3797
3798 GET DIAGNOSTICS LI_ROWCOUNT_QNTY = ROW_COUNT;
3799
3800 IF LI_ROWCOUNT_QNTY = LI_ZERO_NUMB
3801 THEN
3802 SET LS_ERROR_DESC = LS_SQL_DESC || 'INSERT FAILED';
3803
3804 SET LC_SQLSTATE_CODE = '75000';
3805 SIGNAL SQLSTATE '75000';
3806 END IF;
3807 END IF;
3808
3809 -- FIND AND UPDATE USER ID FOR ASSIGNED SUPERVISOR OR ROLE BASED ALERT RECORDS.
3810 IF EXISTS
3811 (SELECT 1
3812 FROM TEMP_BULK_GENERATE T
3813 JOIN TASK_DETAIL A
3814 ON A.TASK_CODE = T.TASK_CODE AND A.END_DATE = LD_HIGH_DATE
3815 JOIN TASK_ROLE_DETAIL R
3816 ON R.TASK_CODE = A.TASK_CODE
3817 AND R.PROCESS_SUBSYSTEM_CODE = T.SUBSYSTEM_CODE
3818 AND ( R.USER_ASSIGNED_IND = LC_SUPERVISOR_IND
3819 OR ( R.ROLE_CODE != ''
3820 AND R.USER_ASSIGNED_IND = LC_YES_IND))
3821 AND R.END_DATE = LD_HIGH_DATE)
3822 THEN
3823 SET LS_SQL_DESC = 'DECLARE CURSOR';
3824 SET LS_SQL_DATA_DESC = ' RUN_DATE : ' || AD_RUN_DATE;
3825
3826 BEGIN
3827 DECLARE
3828 ACTIVITY_CUR CURSOR FOR
3829 SELECT T.CASE_NUMB,
3830 C.CASE_USER_ID USER_ID,
3831 C.COUNTY_CODE AS OFFICE_ID,
3832 CASE
3833 WHEN R.USER_ASSIGNED_IND = LC_SUPERVISOR_IND
3834 THEN
3835 LC_SUPERVISOR_IND
3836 ELSE
3837 R.ROLE_CODE
3838 END ROLE_CODE,
3839 T.SUBSYSTEM_CODE,
3840 T.TASK_CODE
3841 FROM TEMP_BULK_GENERATE T
3842 JOIN TASK_DETAIL A
3843 ON A.TASK_CODE = T.TASK_CODE
3844 AND A.END_DATE = LD_HIGH_DATE
3845 JOIN TASK_ROLE_DETAIL R
3846 ON R.TASK_CODE = A.TASK_CODE
3847 AND R.PROCESS_SUBSYSTEM_CODE = T.SUBSYSTEM_CODE
3848 AND ( R.USER_ASSIGNED_IND = LC_SUPERVISOR_IND
3849 OR ( R.ROLE_CODE != ''
3850 AND R.USER_ASSIGNED_IND = LC_YES_IND))
3851 AND R.END_DATE = LD_HIGH_DATE
3852 JOIN CASE_DETAIL C ON C.CASE_ID = T.CASE_NUMB;
3853
3854
3855
3856 SET LS_SQL_DESC = 'OPEN CURSOR';
3857 SET LS_SQL_DATA_DESC = ' RUN_DATE : ' || AD_RUN_DATE;
3858
3859 OPEN ACTIVITY_CUR;
3860
3861 FETCH_LOOP:
3862 WHILE LI_CUR_CNT = 0
3863 DO
3864 SET LS_SQL_DESC = 'FETCH CURSOR - 1';
3865 SET LS_SQL_DATA_DESC = ' RUN_DATE : ' || AD_RUN_DATE;
3866
3867 FETCH ACTIVITY_CUR
3868 INTO LI_ACTION_CUR_CASE_ID,
3869 LS_ACTION_CUR_USER_ID,
3870 LI_ACTION_CUR_OFFICE_CODE,
3871 LC_ACTION_CUR_ROLE_CODE,
3872 LC_ACTION_CUR_SUBSYSTEM_CODE,
3873 LC_ACTION_CURACTIVITY_TASK_CODE;
3874
3875 IF SQLCODE = 100
3876 THEN
3877 LEAVE FETCH_LOOP;
3878 END IF;
3879
3880
3881 SET LS_SQL_DESC = 'FETCH CURSOR - 1';
3882 SET LS_SQL_DATA_DESC = ' RUN_DATE : ' || AD_RUN_DATE;
3883
3884 /* CALL BATCH_COMMON$SP_GET_CASE_USER_ID(
3885 AI_CASE_ID => LI_ACTION_CUR_CASE_ID,
3886 AC_OFFICE_CODE => LI_ACTION_CUR_OFFICE_CODE,
3887 AS_CURRENT_USER_NAME => BATCH_COMMON$SF_GET_USER_ID(LS_ACTION_CUR_USER_ID),
3888 AS_ASSIGNED_USER_NAME => BATCH_COMMON$SF_GET_USER_ID(LS_ACTION_CUR_USER_ID),
3889 AS_UPDATED_BY_NAME => BATCH_COMMON$SF_GET_USER_ID(LS_ACTION_CUR_USER_ID),
3890 AC_PRIMARY_FUNCTION_CODE => NULL ,
3891 AC_ROLE_CODE => LC_ACTION_CUR_ROLE_CODE,
3892 AD_RUN_DATE => AD_RUN_DATE,
3893 AB_ACRL_IND => LC_YES_IND,
3894 AC_SCREEN_CODE => LC_BATCH_RUN_USER_DESC,
3895 AC_JOB_CODE => LC_BATCH_RUN_USER_DESC,
3896 AS_CASE_USER_NAME => LS_CASE_USER_NAME,
3897 AC_PRIMARY_ROLE_CODE => LC_ACTION_CUR_ROLE_CODE,
3898 AC_MSG_CODE => AC_MSG_CODE ,
3899 AS_ERROR_DESC => AS_ERROR_DESC ); */
3900
3901
3902
3903 SET LS_SQL_DESC = 'UPDATE TASK_USER_DETAIL - 2';
3904 SET LS_SQL_DATA_DESC =
3905 'TRANSACTIONEVENTSEQ_NUMB = '
3906 || AI_TRANSACTION_EVENT_SEQ_NUMB;
3907
3908 UPDATE (SELECT ASSIGNED_USER_ID
3909 FROM TASK_USER_DETAIL D
3910 WHERE D.CASE_ID = LI_ACTION_CUR_CASE_ID
3911 -- AND D.SUBSYSTEM_CODE = LC_ACTION_CUR_SUBSYSTEM_CODE
3912 AND D.TASK_CODE = LC_ACTION_CURACTIVITY_TASK_CODE
3913 AND D.TRANSACTION_EVENT_SEQ_NUMB =
3914 AI_TRANSACTION_EVENT_SEQ_NUMB) X
3915 SET X.ASSIGNED_USER_ID =
3916 BATCH_COMMON$SF_GET_USER_ID (LC_ASSIGNED_USER_ID);
3917
3918 GET DIAGNOSTICS LI_ROWCOUNT_QNTY = ROW_COUNT;
3919
3920 IF LI_ROWCOUNT_QNTY = LI_ZERO_NUMB
3921 THEN
3922 SET LS_ERROR_DESC = LS_SQL_DESC || 'UPDATE FAILED';
3923
3924 SET LC_SQLSTATE_CODE = '75000';
3925 SIGNAL SQLSTATE '75000';
3926 END IF;
3927
3928 IF LC_ACTION_CUR_ROLE_CODE != LC_SPACE_CODE
3929 AND NOT EXISTS
3930 (SELECT 1
3931 FROM CASE_USER CW
3932 WHERE CW.CASE_ID = LI_ACTION_CUR_CASE_ID
3933 AND CW.ROLE_CODE = LC_ACTION_CUR_ROLE_CODE
3934 AND CW.USER_ID = LC_ASSIGNED_USER_ID
3935 AND CW.END_DATE = LD_HIGH_DATE -- AND CW.EXPIRE_DATE = LD_HIGH_DATE
3936 )
3937 THEN
3938 SET LS_SQL_DESC = 'CASE_USER INSERT';
3939 SET LS_SQL_DATA_DESC = ' RUN_DATE : ' || AD_RUN_DATE;
3940
3941 INSERT INTO CASE_USER (CASE_ID,
3942 USER_ID,
3943 OFFICE_CODE,
3944 ROLE_CODE,
3945 EFFECTIVE_DATE,
3946 END_DATE,
3947 TRANSACTION_EVENT_SEQ_NUMB,
3948 UPDATED_BY_ID)
3949 VALUES (LI_ACTION_CUR_CASE_ID, -- CASE_ID
3950 LC_ASSIGNED_USER_ID, -- USER_ID
3951 LI_ACTION_CUR_OFFICE_CODE, -- OFFICE_CODE
3952 LC_ACTION_CUR_ROLE_CODE, -- ROLE_CODE
3953 AD_RUN_DATE, -- EFFECTIVE_DATE
3954 LD_HIGH_DATE, -- END_DATE
3955 AI_TRANSACTION_EVENT_SEQ_NUMB, -- TRANSACTION_EVENT_SEQ_NUMB
3956 AI_UPDATED_BY_ID -- UPDATED_BY_ID
3957 );
3958
3959 GET DIAGNOSTICS LI_ROWCOUNT_QNTY = ROW_COUNT;
3960
3961 IF LI_ROWCOUNT_QNTY = LI_ZERO_NUMB
3962 THEN
3963 SET LS_ERROR_DESC = LS_SQL_DESC || 'INSERT FAILED';
3964
3965 SET LC_SQLSTATE_CODE = '75000';
3966 SIGNAL SQLSTATE '75000';
3967 END IF;
3968 END IF;
3969 END WHILE FETCH_LOOP;
3970 END;
3971 END IF;
3972
3973 SET AC_MSG_CODE = LC_S_MSG_CODE;
3974END
397508-01-2020 10.53.44 AM 0:00:00.361: Lookup Error - DB2 Database Error: ERROR [42884] [IBM][DB2/LINUXX8664] No authorized routine named "BATCH_COMMON$SF_CALCULATE_NTH_BDAY" of type "FUNCTION" having compatible arguments was found.
3976CombinedBatch.sql:4264: CREATE OR REPLACE PROCEDURE BATCH_COMMON$SP_CALCULATE_NTH_BDAY (
3977 IN AD_PRESENT_DATE DATE,
3978 IN AI_NTHDAY_NUMB INTEGER,
3979 OUT AD_RETURN_DATE DATE)
3980/*
3981Procedure Name : BATCH_COMMON$SP_CALCULATE_NTH_BDAY
3982Description : THIS PROCEDURE CALCULATES AND RETURNS NTH BUSSINES DAY AFTER RUN DATE.
3983*/
3984BEGIN ATOMIC
3985 SET AD_RETURN_DATE =
3986 BATCH_COMMON$SF_CALCULATE_NTH_BDAY (AD_PRESENT_DATE,
3987 AI_NTHDAY_NUMB);
3988END
398908-01-2020 10.53.46 AM 0:00:09.036: Lookup Error - DB2 Database Error: ERROR [42821] [IBM][DB2/LINUXX8664] A value is not compatible with the data type of its assignment target. Target name is "LD_HIGH_DATE".
3990CombinedBatch.sql:4505: CREATE OR REPLACE PROCEDURE BATCH_COMMON$SP_CPRO_VALIDATE_PROCESS_FLOW (
3991 IN AI_CASE_ID ANCHOR DATA TYPE TO CASE_DETAIL.CASE_ID,
3992 IN AI_PERSON_ID ANCHOR DATA TYPE TO CASE_PERSON.PERSON_ID DEFAULT NULL,
3993 IN AI_SOURCE_NUMB ANCHOR DATA TYPE TO PROCESS_STATUS_DETAIL.SOURCE_NUMB DEFAULT NULL,
3994 IN AC_PROCESS_CODE ANCHOR DATA TYPE TO PROCESS_DETAIL.PROCESS_CODE,
3995 IN AC_TASK_CODE ANCHOR DATA TYPE TO TASK_DETAIL.TASK_CODE,
3996 IN AC_OUTCOME_CODE ANCHOR DATA TYPE TO OUTCOME.OUTCOME_CODE,
3997 IN AI_PROCESS_STATUS_SEQ_ID ANCHOR DATA TYPE TO PROCESS_STATUS_DETAIL.PROCESS_STATUS_SEQ_ID,
3998 IN AI_PROCESS_TASK_SEQ_ID ANCHOR DATA TYPE TO PROCESS_TASK_DETAIL.PROCESS_TASK_SEQ_ID,
3999 IN AD_RUN_DATE DATE,
4000 OUT AC_MSG_CODE CHAR (5),
4001 OUT AS_ERROR_DESC VARCHAR (4000))
4002/*
4003-------------------------------------------------------------------------------------------
4004PROCEDURE NAME : BATCH_COMMON$SP_CPRO_VALIDATE_PROCESS_FLOW
4005DESCRIPTION : THIS IS FOR DOING SYSTEM VALIDATING WHILE ADVANCING PROCESS IN CASE
4006 PROCESSOR BY CALLING THE MENTIONED PROCEDURES IN THE PROCESS FLOW TABLE.
4007-------------------------------------------------------------------------------------------
4008*/
4009BEGIN
4010 --BEGIN OF BATCH_COMMON$SP_CPRO_VALIDATE_PROCESS_FLOW
4011 DECLARE
4012 LC_SPACE_TEXT CHAR (1) DEFAULT ' ';
4013 DECLARE LI_ZERO_NUMB INTEGER DEFAULT 0;
4014 DECLARE LC_F_MSG_CODE CHAR (1) DEFAULT 'F';
4015 DECLARE LC_S_MSG_CODE CHAR (1) DEFAULT 'S';
4016 DECLARE LC_Y_YES_CODE CHAR (1) DEFAULT 'Y';
4017 DECLARE LC_D_CASE_PARTY_ROLE_CODE ANCHOR DATA TYPE TO CASE_PERSON.CASE_PARTY_ROLE_CODE
4018 DEFAULT 'D';
4019 DECLARE LC_A_CASE_PARTY_STATUS_CODE ANCHOR DATA TYPE TO CASE_PERSON.CASE_PARTY_STATUS_CODE
4020 DEFAULT 'A';
4021 DECLARE LS_PROCEDURE_NAME VARCHAR (200)
4022 DEFAULT 'BATCH_COMMONSP_CPRO_VALIDATE_PROCESS_FLOW';
4023 DECLARE LD_HIGH_DATE DATE DEFAULT '12/31/9999';
4024 DECLARE LD_LOW_DATE DATE DEFAULT '01/01/0001';
4025 DECLARE LC_E2403_ERROR_CODE ANCHOR DATA TYPE TO ERROR_MESSAGE.ERROR_CODE
4026 DEFAULT 'E2403';
4027 DECLARE LC_CASS_PROCESS_CODE ANCHOR DATA TYPE TO PROCESS_STATUS_DETAIL.PROCESS_CODE
4028 DEFAULT 'CASS';
4029 DECLARE LC_RPMBS_TASK_CODE ANCHOR DATA TYPE TO PROCESS_TASK_DETAIL.TASK_CODE
4030 DEFAULT 'RPMBS';
4031 DECLARE LC_PS_OUTCOME_CODE ANCHOR DATA TYPE TO PROCESS_TASK_DETAIL.OUTCOME_CODE
4032 DEFAULT 'PS';
4033 DECLARE LI_ROW_COUNT INTEGER DEFAULT 0;
4034 DECLARE LC_MSG_CODE CHAR (5);
4035 DECLARE LC_SQLSTATE_CODE CHAR (5);
4036 DECLARE LI_UPDATED_BY_ID ANCHOR DATA TYPE TO USER_DETAIL.UPDATED_BY_ID;
4037 DECLARE LS_SQL_DESC VARCHAR (200);
4038 DECLARE LS_SQL_DATA_DESC VARCHAR (2000);
4039 DECLARE LS_ERROR_DESC VARCHAR (4000);
4040 DECLARE LS_SQL_ERROR_DESC VARCHAR (4000);
4041
4042 DECLARE EXIT HANDLER FOR SQLEXCEPTION
4043 BEGIN
4044 GET DIAGNOSTICS EXCEPTION 1
4045 LS_ERROR_DESC = MESSAGE_TEXT;
4046
4047 IF LC_SQLSTATE_CODE <> '75000'
4048 THEN
4049 SET LC_MSG_CODE = LC_F_MSG_CODE;
4050 SET LS_ERROR_DESC = LS_SQL_ERROR_DESC;
4051 END IF;
4052
4053 CALL BATCH_COMMON$SP_GET_ERROR_DESCRIPTION (
4054 AS_PROCEDURE_NAME => LS_PROCEDURE_NAME,
4055 AS_ERROR_MESSAGE_DESC => LS_ERROR_DESC,
4056 AS_SQL_DESC => LS_SQL_DESC,
4057 AS_SQL_DATA_DESC => LS_SQL_DATA_DESC,
4058 AS_ERROR_DESC => AS_ERROR_DESC);
4059
4060 SET AC_MSG_CODE = LC_F_MSG_CODE;
4061 END;
4062
4063 SET AC_MSG_CODE = LC_SPACE_TEXT;
4064 SET AS_ERROR_DESC = LC_SPACE_TEXT;
4065
4066
4067 IF AC_PROCESS_CODE = LC_CASS_PROCESS_CODE
4068 THEN
4069 IF AC_TASK_CODE = LC_RPMBS_TASK_CODE
4070 AND AC_OUTCOME_CODE = LC_PS_OUTCOME_CODE
4071 THEN
4072 SELECT COUNT (1)
4073 INTO LI_ROW_COUNT
4074 FROM CASE_PERSON A
4075 JOIN PERSON_PATERNITY B ON (A.PERSON_ID = B.PERSON_ID)
4076 WHERE A.CASE_ID = AI_CASE_ID
4077 AND A.CASE_PARTY_ROLE_CODE = LC_D_CASE_PARTY_ROLE_CODE
4078 AND A.CASE_PARTY_STATUS_CODE = LC_A_CASE_PARTY_STATUS_CODE
4079 AND B.BIRTH_STATUS_CODE IS NOT NULL
4080 AND B.PATERNITY_EST_IND = LC_Y_YES_CODE;
4081
4082 IF LI_ROW_COUNT = LI_ZERO_NUMB
4083 THEN
4084 SET AC_MSG_CODE = LC_E2403_ERROR_CODE;
4085 SET AS_ERROR_DESC = LC_SPACE_TEXT;
4086 RETURN;
4087 END IF;
4088 END IF;
4089 END IF;
4090
4091 SET AC_MSG_CODE = LC_S_MSG_CODE;
4092END
409308-01-2020 10.53.55 AM 0:00:01.454: Lookup Error - DB2 Database Error: ERROR [42821] [IBM][DB2/LINUXX8664] A value is not compatible with the data type of its assignment target. Target name is "LD_HIGH_DATE".
4094CombinedBatch.sql:4614: CREATE OR REPLACE PROCEDURE BATCH_COMMON$SP_CREATE_CASE (
4095 IN AD_RUN_DATE ANCHOR DATA TYPE TO JOB_PARM.RUN_DATE DEFAULT SYSDATE,
4096 IN AI_APPLICATION_ID ANCHOR DATA TYPE TO APPLICANT_DETAIL.APPLICATION_ID DEFAULT NULL,
4097 IN AC_CASE_TYPE_CODE ANCHOR DATA TYPE TO NOMADS_RFRL_NCP_IB.CASE_TYPE_CODE DEFAULT NULL,
4098 IN AC_SCREEN_CODE ANCHOR DATA TYPE TO SCREEN.SCREEN_CODE DEFAULT NULL,
4099 IN AC_JOB_CODE ANCHOR DATA TYPE TO JOB_PARM.JOB_CODE DEFAULT NULL,
4100 IN AC_USER_OFFICE_CODE ANCHOR DATA TYPE TO OFFICE.OFFICE_CODE DEFAULT NULL,
4101 IN AS_UPDATED_BY_NAME ANCHOR DATA TYPE TO USER_DETAIL.USER_NAME,
4102 IN AI_TRANSACTION_EVENT_SEQ_NUMB ANCHOR DATA TYPE TO GLOBAL_TRANS_EVENT_SEQUENCE.TRANSACTION_EVENT_SEQ_NUMB,
4103 OUT AI_CASE_ID ANCHOR DATA TYPE TO CASE_DETAIL.CASE_ID,
4104 OUT AC_MSG_CODE CHAR (5),
4105 OUT AS_ERROR_DESC VARCHAR (4000))
4106/*
4107PROCEDURE NAME : BATCH_COMMON$SP_CREATE_CASE
4108DESCRIPTION : THIS PROCESS CREATES A NEW CASE AND INSERTS CASE AND PARTICIPANT INFORMATION INTO PERSON
4109 DEMOGRAPHICS, ADDRESS AND EMPLOYMENT TABLES.
4110*/
4111
4112BEGIN
4113 --Constants Declaration
4114 DECLARE
4115 LI_ZERO_NUMB INTEGER DEFAULT 0;
4116 DECLARE LI_7888889638_OTHER_PARTY_ID ANCHOR DATA TYPE TO OTHER_PARTY.OTHER_PARTY_ID
4117 DEFAULT 7888889638;
4118 DECLARE LI_7777777_OTHER_PARTY_ID ANCHOR DATA TYPE TO OTHER_PARTY.OTHER_PARTY_ID
4119 DEFAULT 7777777;
4120 DECLARE LC_F_MSG_CODE CHAR (1) DEFAULT 'F';
4121 DECLARE LC_S_MSG_CODE CHAR (1) DEFAULT 'S';
4122 DECLARE LC_Y_YES_CODE CHAR (1) DEFAULT 'Y';
4123 DECLARE LC_N_NO_CODE CHAR (1) DEFAULT 'N';
4124 DECLARE LC_E_ERROR_TYPE_CODE ANCHOR DATA TYPE TO ERROR_MESSAGE.ERROR_TYPE_CODE
4125 DEFAULT 'E';
4126 DECLARE LC_O_CASE_STATUS_CODE ANCHOR DATA TYPE TO CASE_DETAIL.CASE_TYPE_CODE
4127 DEFAULT 'O';
4128 DECLARE LC_A_CASE_TYPE_CODE ANCHOR DATA TYPE TO CASE_DETAIL.CASE_TYPE_CODE
4129 DEFAULT 'A';
4130 DECLARE LC_E_CASE_TYPE_CODE ANCHOR DATA TYPE TO CASE_DETAIL.CASE_TYPE_CODE
4131 DEFAULT 'E';
4132 DECLARE LC_M_CASE_TYPE_CODE ANCHOR DATA TYPE TO CASE_DETAIL.CASE_TYPE_CODE
4133 DEFAULT 'M';
4134 DECLARE LC_N_CASE_TYPE_CODE ANCHOR DATA TYPE TO CASE_DETAIL.CASE_TYPE_CODE
4135 DEFAULT 'N';
4136 DECLARE LC_E_WELFARE_TYPE_CODE ANCHOR DATA TYPE TO PERSON_WELFARE.WELFARE_TYPE_CODE
4137 DEFAULT 'E';
4138 DECLARE LC_R_CASE_IGV_TYPE_CODE ANCHOR DATA TYPE TO CASE_DETAIL.CASE_IGV_TYPE_CODE
4139 DEFAULT 'R';
4140 DECLARE LC_A_CASE_PARTY_STATUS_CODE ANCHOR DATA TYPE TO CASE_PERSON.CASE_PARTY_STATUS_CODE
4141 DEFAULT 'A';
4142 DECLARE LC_A_CASE_PARTY_ROLE_CODE ANCHOR DATA TYPE TO CASE_PERSON.CASE_PARTY_ROLE_CODE
4143 DEFAULT 'A';
4144 DECLARE LC_P_CASE_PARTY_ROLE_CODE ANCHOR DATA TYPE TO CASE_PERSON.CASE_PARTY_ROLE_CODE
4145 DEFAULT 'P';
4146 DECLARE LC_C_CASE_PARTY_ROLE_CODE ANCHOR DATA TYPE TO CASE_PERSON.CASE_PARTY_ROLE_CODE
4147 DEFAULT 'C';
4148 DECLARE LC_D_CASE_PARTY_ROLE_CODE ANCHOR DATA TYPE TO CASE_PERSON.CASE_PARTY_ROLE_CODE
4149 DEFAULT 'D';
4150 DECLARE LC_M_PERSON_RELATIONSHIP_CODE ANCHOR DATA TYPE TO PERSON_RELATIONSHIP.PERSON_RELATIONSHIP_CODE
4151 DEFAULT 'M';
4152 DECLARE LC_F_PERSON_RELATIONSHIP_CODE ANCHOR DATA TYPE TO PERSON_RELATIONSHIP.PERSON_RELATIONSHIP_CODE
4153 DEFAULT 'F';
4154 DECLARE LC_V_SSN_VERIF_SRCE_CODE ANCHOR DATA TYPE TO PERSON_SSN.SSN_VERIFICATION_SOURCE_CODE
4155 DEFAULT 'V';
4156 DECLARE LC_Y_SSN_STATUS_CODE ANCHOR DATA TYPE TO PERSON_SSN.SSN_STATUS_CODE
4157 DEFAULT 'Y';
4158 DECLARE LC_P_SSN_STATUS_CODE ANCHOR DATA TYPE TO PERSON_SSN.SSN_STATUS_CODE
4159 DEFAULT 'P';
4160 DECLARE LC_F_SSN_VERIFICATION_SOURCE_CODE ANCHOR DATA TYPE TO PERSON_SSN.SSN_VERIFICATION_SOURCE_CODE
4161 DEFAULT 'F';
4162 DECLARE LC_P_SSN_SSA_VALIDITY_CODE ANCHOR DATA TYPE TO PERSON_SSN.SSN_SSA_VALIDITY_CODE
4163 DEFAULT 'P';
4164 DECLARE LC_P_SSN_TYPE_CODE ANCHOR DATA TYPE TO PERSON_SSN.SSN_TYPE_CODE
4165 DEFAULT 'P';
4166 DECLARE LC_Y_ADDR_STATUS_CODE ANCHOR DATA TYPE TO PERSON_ADDRESS.ADDRESS_STATUS_CODE
4167 DEFAULT 'Y';
4168 DECLARE LC_C_ADDR_VERIFY_SOURCE_CODE ANCHOR DATA TYPE TO PERSON_ADDRESS.ADDRESS_VERIFY_SOURCE_CODE
4169 DEFAULT 'C';
4170 DECLARE LC_I_ADDR_VERIFY_SOURCE_CODE ANCHOR DATA TYPE TO PERSON_ADDRESS.ADDRESS_VERIFY_SOURCE_CODE
4171 DEFAULT 'I';
4172 DECLARE LC_C_PSOI_VERIFY_SOURCE_CODE ANCHOR DATA TYPE TO PERSON_SOI.PSOI_VERIFICATION_SOURCE_CODE
4173 DEFAULT 'C';
4174 DECLARE LC_Y_PSOI_STATUS_CODE ANCHOR DATA TYPE TO PERSON_SOI.PSOI_VERIFICATION_STATUS_CODE
4175 DEFAULT 'Y';
4176 DECLARE LC_N_PSOI_VERIFY_SOURCE_CODE ANCHOR DATA TYPE TO PERSON_SOI.PSOI_VERIFICATION_SOURCE_CODE
4177 DEFAULT 'N';
4178 DECLARE LC_P_ASST_VEHICLE_STATUS_CODE ANCHOR DATA TYPE TO PERSON_VEHICLE_ASSET.PERSON_VEHICLE_STATUS_CODE
4179 DEFAULT 'P';
4180 DECLARE LC_P_ASST_FIN_STATUS_CODE ANCHOR DATA TYPE TO PERSON_FINANCIAL_ASSET.PERSON_FIN_STATUS_CODE
4181 DEFAULT 'P';
4182 DECLARE LC_P_ASST_REAL_ESTATE_STATUS_CODE ANCHOR DATA TYPE TO PERSON_REAL_ESTATE_ASSET.REAL_ESTATE_STATUS_CODE
4183 DEFAULT 'P';
4184 DECLARE LC_N_QI_STATUS_CODE ANCHOR DATA TYPE TO PERSON_PATERNITY.QI_STATUS_CODE
4185 DEFAULT 'N';
4186 DECLARE LC_5_INSTITUTION_TYPE_CODE ANCHOR DATA TYPE TO PERSON_INCARCERATION.INSTITUTION_TYPE_CODE
4187 DEFAULT '5';
4188 DECLARE LC_A_INSTITUTION_STATUS_CODE ANCHOR DATA TYPE TO PERSON_INCARCERATION.INSTITUTION_STATUS_CODE
4189 DEFAULT 'A';
4190 DECLARE LC_A_LICENSE_STATUS_CODE ANCHOR DATA TYPE TO PERSON_LICENSE.LICENSE_STATUS_CODE
4191 DEFAULT 'A';
4192 DECLARE LC_C_APPLICATION_STATUS_CODE ANCHOR DATA TYPE TO APPLICATION_CASE.APPLICATION_STATUS_CODE
4193 DEFAULT 'C';
4194 DECLARE LC_C_REFERRAL_STATUS_CODE ANCHOR DATA TYPE TO PENDING_REFERRAL_CASE.REFERRAL_STATUS_CODE
4195 DEFAULT 'C';
4196 DECLARE LC_C_SOURCE_TYPE_CODE ANCHOR DATA TYPE TO PROCESS_STATUS_DETAIL.SOURCE_TYPE_CODE
4197 DEFAULT 'C';
4198 DECLARE LC_PE_SOI_STATUS_CODE ANCHOR DATA TYPE TO PERSON_SOI.PSOI_STATUS_CODE
4199 DEFAULT 'PE';
4200 DECLARE LC_CI_PRIMARY_FUNCTION_CODE ANCHOR DATA TYPE TO CASE_DETAIL.PRIMARY_FUNCTION_CODE
4201 DEFAULT 'CI';
4202 DECLARE LC_CI_SUBSYSTEM_CODE ANCHOR DATA TYPE TO PROCESS_DETAIL.PROCESS_SUBSYSTEM_CODE
4203 DEFAULT 'CI';
4204 DECLARE LC_CA_CURRENT_ASST_TYPE_CODE ANCHOR DATA TYPE TO CASE_DETAIL.ASSISTANCE_TYPE_CODE
4205 DEFAULT 'CA';
4206 DECLARE LC_NA_NEVER_ASST_TYPE_CODE ANCHOR DATA TYPE TO CASE_DETAIL.ASSISTANCE_TYPE_CODE
4207 DEFAULT 'NA';
4208 DECLARE LC_IVE_ADDR_SOURCE_CODE ANCHOR DATA TYPE TO PERSON_ADDRESS.ADDRESS_SOURCE_CODE
4209 DEFAULT 'IVE';
4210 DECLARE LC_FAM_ADDR_SOURCE_CODE ANCHOR DATA TYPE TO PERSON_ADDRESS.ADDRESS_SOURCE_CODE
4211 DEFAULT 'FAM';
4212 DECLARE LC_OSA_ADDR_SOURCE_CODE ANCHOR DATA TYPE TO PERSON_ADDRESS.ADDRESS_SOURCE_CODE
4213 DEFAULT 'OSA';
4214 DECLARE LC_CST_ADDR_SOURCE_CODE ANCHOR DATA TYPE TO PERSON_ADDRESS.ADDRESS_SOURCE_CODE
4215 DEFAULT 'CST';
4216 DECLARE LC_IVE_SOI_SOURCE_CODE ANCHOR DATA TYPE TO PERSON_SOI.PSOI_SOURCE_CODE
4217 DEFAULT 'IVE';
4218 DECLARE LC_FAM_SOI_SOURCE_CODE ANCHOR DATA TYPE TO PERSON_SOI.PSOI_SOURCE_CODE
4219 DEFAULT 'FAM';
4220 DECLARE LC_OSA_SOI_SOURCE_CODE ANCHOR DATA TYPE TO PERSON_SOI.PSOI_SOURCE_CODE
4221 DEFAULT 'OSA';
4222 DECLARE LC_CST_SOI_SOURCE_CODE ANCHOR DATA TYPE TO PERSON_SOI.PSOI_SOURCE_CODE
4223 DEFAULT 'CST';
4224 DECLARE LC_IVE_OTHP_SOI_SOURCE_CODE ANCHOR DATA TYPE TO OTHER_PARTY.OTHP_SOI_SOURCE_CODE
4225 DEFAULT 'IVE';
4226 DECLARE LC_FAM_OTHP_SOI_SOURCE_CODE ANCHOR DATA TYPE TO OTHER_PARTY.OTHP_SOI_SOURCE_CODE
4227 DEFAULT 'FAM';
4228 DECLARE LC_OTH_INCARCERATION_SOURCE_CODE ANCHOR DATA TYPE TO PERSON_INCARCERATION.INCARCERATION_SOURCE_CODE
4229 DEFAULT 'OTH';
4230 DECLARE LC_OTH_LICENSE_VERIFY_SOURCE_CODE ANCHOR DATA TYPE TO PERSON_LICENSE.LIC_VERIF_SOURCE_CODE
4231 DEFAULT 'OTH';
4232 DECLARE LC_OTH_LICENSE_SOURCE_CODE ANCHOR DATA TYPE TO PERSON_LICENSE.LICENSE_SOURCE_CODE
4233 DEFAULT 'OTH';
4234 DECLARE LC_201_LICENSE_TYPE_CODE ANCHOR DATA TYPE TO PERSON_LICENSE.LICENSE_TYPE_CODE
4235 DEFAULT '201';
4236 DECLARE LC_CASE_TASK_PROCESS_CODE ANCHOR DATA TYPE TO TASK_USER_DETAIL.PROCESS_CODE
4237 DEFAULT 'CASE';
4238 DECLARE LC_CASS_TASK_PROCESS_CODE ANCHOR DATA TYPE TO TASK_USER_DETAIL.PROCESS_CODE
4239 DEFAULT 'CASS';
4240 DECLARE LC_5010_EVENT_FUNCTIONAL_CODE ANCHOR DATA TYPE TO REFM_EVENT_FUNCTIONAL.EVENT_FUNCTIONAL_CODE
4241 DEFAULT '5010';
4242 DECLARE LC_CCRCC_TASK_CODE ANCHOR DATA TYPE TO TASK_USER_DETAIL.TASK_CODE
4243 DEFAULT 'CCRCC';
4244 DECLARE LC_CCRCM_TASK_CODE ANCHOR DATA TYPE TO TASK_USER_DETAIL.TASK_CODE
4245 DEFAULT 'CCRCM';
4246 DECLARE LC_CCNTA_TASK_CODE ANCHOR DATA TYPE TO TASK_USER_DETAIL.TASK_CODE
4247 DEFAULT 'CCNTA';
4248 DECLARE LS_PROCEDURE_NAME VARCHAR (200)
4249 DEFAULT 'BATCH_COMMON$SP_CREATE_CASE';
4250 DECLARE LS_ROUTINE_NAME VARCHAR (200)
4251 DEFAULT 'BATCH_IVA_IVE_MEDI_REFERRAL$SP_PROCESS_REFERRALS';
4252 DECLARE LD_HIGH_DATE DATE DEFAULT '12/31/9999';
4253 DECLARE LD_LOW_DATE DATE DEFAULT '01/01/0001';
4254 DECLARE LD_INVALID_DATE DATE DEFAULT '01/01/1900';
4255 --Variable Declaration
4256 DECLARE SQLCODE INTEGER DEFAULT 0;
4257 DECLARE LI_OUT_PROCESS_TASK_SEQ_ID ANCHOR DATA TYPE TO PROCESS_TASK_DETAIL.PROCESS_TASK_SEQ_ID;
4258 DECLARE LI_OUT_TASK_USER_ID ANCHOR DATA TYPE TO TASK_USER_DETAIL.TASK_USER_ID;
4259 DECLARE LI_OUT_CASE_JOURNAL_SEQ_ID ANCHOR DATA TYPE TO CASE_JOURNAL.CASE_JOURNAL_SEQ_ID;
4260 DECLARE LI_OUT_TRANSACTION_EVENT_SEQ_NUMB ANCHOR DATA TYPE TO GLOBAL_TRANS_EVENT_SEQUENCE.TRANSACTION_EVENT_SEQ_NUMB;
4261 DECLARE LI_CONCURRENCY_NUMB INTEGER;
4262 DECLARE LI_ROW_COUNT_QNTY INTEGER;
4263 DECLARE LI_UPDATED_BY_ID ANCHOR DATA TYPE TO USER_DETAIL.UPDATED_BY_ID;
4264 DECLARE LI_TRANSACTION_EVENT_SEQ_NUMB ANCHOR DATA TYPE TO GLOBAL_TRANS_EVENT_SEQUENCE.TRANSACTION_EVENT_SEQ_NUMB;
4265 DECLARE LI_PERSON_ID ANCHOR DATA TYPE TO PERSON.PERSON_ID
4266 DEFAULT 0;
4267 DECLARE LI_NCP_PERSON_ID ANCHOR DATA TYPE TO PERSON.PERSON_ID
4268 DEFAULT 0;
4269 DECLARE LI_CST_PERSON_ID ANCHOR DATA TYPE TO PERSON.PERSON_ID
4270 DEFAULT 0;
4271 DECLARE LI_CHILD_PERSON_ID ANCHOR DATA TYPE TO PERSON.PERSON_ID
4272 DEFAULT 0;
4273 DECLARE LI_TRANS_HEADER_ID ANCHOR DATA TYPE TO APPLICATION_CASE.TRANS_HEADER_ID;
4274 DECLARE LI_NEW_INCARCERATION_ID ANCHOR DATA TYPE TO PERSON_INCARCERATION.INCARCERATION_ID;
4275 DECLARE LI_NEW_PERSON_ADDRESS_ID ANCHOR DATA TYPE TO PERSON_ADDRESS.PERSON_ADDRESS_ID;
4276 DECLARE LI_NEW_PERSON_SOI_ID ANCHOR DATA TYPE TO PERSON_SOI.PERSON_SOI_ID;
4277 DECLARE LI_NEW_PERSON_SSN_ID ANCHOR DATA TYPE TO PERSON_SSN.PERSON_SSN_ID;
4278 DECLARE LB_TRUSTED_SOURCE_IND BOOLEAN;
4279 DECLARE LB_NEW_ADDR_IND BOOLEAN;
4280 DECLARE LC_OTHER_STATE_FIPS_CODE ANCHOR DATA TYPE TO FEDERAL_INFO_PROCESS_STND.STATE_FIPS_CODE;
4281 DECLARE LC_OTHER_STATE_COUNTY_CODE ANCHOR DATA TYPE TO FEDERAL_INFO_PROCESS_STND.COUNTY_FIPS_CODE;
4282 DECLARE LC_OTHER_STATE_OFFICE_CODE ANCHOR DATA TYPE TO FEDERAL_INFO_PROCESS_STND.OFFICE_FIPS_CODE;
4283 DECLARE LS_OTHER_STATE_CASE_IDC ANCHOR DATA TYPE TO INTERGOVERNMENTAL_CASE_DETAIL.OTHER_STATE_CASE_IDC;
4284 DECLARE LC_FUNCTION_CODE ANCHOR DATA TYPE TO CSENET_FAR_COMBINATION.FUNCTION_CODE;
4285 DECLARE LC_ACTION_CODE ANCHOR DATA TYPE TO CSENET_FAR_COMBINATION.ACTION_CODE;
4286 DECLARE LC_REASON_CODE ANCHOR DATA TYPE TO INTERGOVERNMENTAL_CASE_DETAIL.REASON_CODE;
4287 DECLARE LC_CASE_TYPE_CODE ANCHOR DATA TYPE TO INTERGOVERNMENTAL_CASE_DETAIL.OTHER_STATE_CASE_TYPE_CODE;
4288 DECLARE LC_MSG_CODE CHAR (5);
4289 DECLARE LC_SQLSTATE_CODE CHAR (5);
4290 DECLARE LS_PETITIONER_NAME ANCHOR DATA TYPE TO INTERGOVERNMENTAL_CASE_DETAIL.PETITIONER_NAME;
4291 DECLARE LS_RESPONDENT_NAME ANCHOR DATA TYPE TO INTERGOVERNMENTAL_CASE_DETAIL.RESPONDENT_NAME;
4292 DECLARE LS_SQL_DESC VARCHAR (200);
4293 DECLARE LS_SQL_DATA_DESC VARCHAR (2000);
4294 DECLARE LS_SQL_ERROR_DESC VARCHAR (4000);
4295 DECLARE LS_ERROR_DESC VARCHAR (4000);
4296 DECLARE LS_COMMENT_NOTE VARCHAR (4000) DEFAULT NULL;
4297 --Person Cursor Variable Declaration
4298 DECLARE LI_PERSONCUR_APPLICATION_PERSON_ID ANCHOR DATA TYPE TO APPLICATION_PERSON.APPLICATION_PERSON_ID;
4299 DECLARE LC_PERSONCUR_CASE_PARTY_ROLE_CODE ANCHOR DATA TYPE TO CASE_PERSON.CASE_PARTY_ROLE_CODE;
4300 DECLARE LS_PERSONCUR_LAST_NAME ANCHOR DATA TYPE TO APPLICATION_PERSON.LAST_NAME;
4301 DECLARE LS_PERSONCUR_FIRST_NAME ANCHOR DATA TYPE TO APPLICATION_PERSON.FIRST_NAME;
4302 DECLARE LS_PERSONCUR_MIDDLE_NAME ANCHOR DATA TYPE TO APPLICATION_PERSON.MIDDLE_NAME;
4303 DECLARE LI_PERSONCUR_NOMADS_ICI_NUMB ANCHOR DATA TYPE TO PERSON_WELFARE.NOMADS_ICI_NUMB;
4304 DECLARE LI_PERSONCUR_NOMADS_NCP_SEQ_NUMB ANCHOR DATA TYPE TO PERSON_WELFARE.NOMADS_NCP_SEQ_NUMB;
4305 DECLARE LI_PERSONCUR_NOMADS_UPI_NUMB ANCHOR DATA TYPE TO PERSON_WELFARE.NOMADS_UPI_NUMB;
4306 DECLARE LI_PERSONCUR_DCFS_PERSON_NUMB ANCHOR DATA TYPE TO PERSON_WELFARE.DCFS_PERSON_NUMB;
4307 DECLARE LI_PERSONCUR_MEDICAID_PERSON_NUMB ANCHOR DATA TYPE TO PERSON_WELFARE.MEDICAID_PERSON_NUMB;
4308 DECLARE LC_PERSONCUR_WELFARE_TYPE_CODE ANCHOR DATA TYPE TO PERSON_WELFARE.WELFARE_TYPE_CODE;
4309 DECLARE LC_PERSONCUR_REP_RELATIONSHIP_CODE ANCHOR DATA TYPE TO CASE_PERSON.REP_RELATIONSHIP_CODE;
4310 DECLARE LC_PERSONCUR_FAMILY_VIOLENCE_CODE ANCHOR DATA TYPE TO CASE_PERSON.FAMILY_VIOLENCE_CODE;
4311 DECLARE LS_PERSONCUR_AUTH_REP_NAME ANCHOR DATA TYPE TO CASE_PERSON.AUTH_REP_NAME;
4312 DECLARE LC_PERSONCUR_NCP_RELN_TO_CHILD_CODE ANCHOR DATA TYPE TO PERSON_RELATIONSHIP.RELN_TYPE_CODE;
4313 DECLARE LC_PERSONCUR_CST_RELN_TO_CHILD_CODE ANCHOR DATA TYPE TO PERSON_RELATIONSHIP.RELN_TYPE_CODE;
4314 DECLARE LI_PERSONCUR_SSN_NUMB ANCHOR DATA TYPE TO SSN.SSN_NUMB;
4315 DECLARE LC_PERSONCUR_SSN_TYPE_CODE ANCHOR DATA TYPE TO PERSON_SSN.SSN_TYPE_CODE;
4316 DECLARE LC_PERSONCUR_SSN_SOURCE_CODE CHAR (3) DEFAULT NULL;
4317 DECLARE LC_PERSONCUR_SSN_STATUS_CODE ANCHOR DATA TYPE TO PERSON_SSN.SSN_STATUS_CODE;
4318 DECLARE LI_PERSONCUR_SSN_ID ANCHOR DATA TYPE TO SSN.SSN_ID;
4319 DECLARE LC_PERSONCUR_LICENSE_ISSUE_STATE_CODE ANCHOR DATA TYPE TO PERSON_LICENSE.ISSUING_STATE_CODE;
4320 DECLARE LS_PERSONCUR_LICENSE_DRIVER_NUMB_IDC ANCHOR DATA TYPE TO PERSON_LICENSE.LICENSE_IDC;
4321 DECLARE LD_PERSONCUR_LICENSE_ISSUE_DATE ANCHOR DATA TYPE TO PERSON_LICENSE.ISSUING_DATE;
4322 DECLARE LS_PERSONCUR_LAST_ALIAS_NAME ANCHOR DATA TYPE TO PERSON_AKA_NAME.LAST_NAME;
4323 DECLARE LS_PERSONCUR_FIRST_ALIAS_NAME ANCHOR DATA TYPE TO PERSON_AKA_NAME.FIRST_NAME;
4324 DECLARE LS_PERSONCUR_MIDDLE_ALIAS_NAME ANCHOR DATA TYPE TO PERSON_AKA_NAME.MIDDLE_NAME;
4325 DECLARE LC_PERSONCUR_ALIAS_SUFFIX_NAME_CODE ANCHOR DATA TYPE TO PERSON_AKA_NAME.SUFFIX_NAME_CODE;
4326 DECLARE LI_PERSONCUR_OTHP_INST_ID ANCHOR DATA TYPE TO PERSON_INCARCERATION.INSTITUTION_ID;
4327 DECLARE LD_PERSONCUR_INCARCERATED_START_DATE ANCHOR DATA TYPE TO PERSON_INCARCERATION.INCARCERATION_DATE;
4328 DECLARE LD_PERSONCUR_INCARCERATED_END_DATE ANCHOR DATA TYPE TO PERSON_INCARCERATION.RELEASE_DATE;
4329 DECLARE LC_PERSONCUR_ESTABLISHMENT_STATE_CODE ANCHOR DATA TYPE TO PERSON_PATERNITY.ESTABLISHMENT_STATE_CODE;
4330 DECLARE LC_PERSONCUR_ESTABLISHMENT_METHOD_CODE ANCHOR DATA TYPE TO PERSON_PATERNITY.ESTABLISHMENT_METHOD_CODE;
4331 DECLARE LB_PERSONCUR_PATERNITY_EST_IND ANCHOR DATA TYPE TO PERSON_PATERNITY.PATERNITY_EST_IND;
4332 DECLARE LD_PERSONCUR_PATERNITY_EST_DATE ANCHOR DATA TYPE TO PERSON_PATERNITY.PATERNITY_EST_DATE;
4333 DECLARE LS_PERSONCUR_ESTABLISHMENT_DOCKET_IDC ANCHOR DATA TYPE TO PERSON_PATERNITY.ESTABLISHMENT_DOCKET_IDC;
4334 DECLARE LC_PERSONCUR_EST_FATHER_RELN_CODE ANCHOR DATA TYPE TO PERSON_PATERNITY.EST_FATHER_RELN_CODE;
4335 DECLARE LI_PERSONCUR_EST_FATHER_PERSON_ID ANCHOR DATA TYPE TO PERSON_PATERNITY.EST_FATHER_PERSON_NUMB;
4336 DECLARE LS_PERSONCUR_EST_FATHER_FIRST_NAME ANCHOR DATA TYPE TO PERSON_PATERNITY.EST_FATHER_FIRST_NAME;
4337 DECLARE LS_PERSONCUR_EST_FATHER_LAST_NAME ANCHOR DATA TYPE TO PERSON_PATERNITY.EST_FATHER_LAST_NAME;
4338 DECLARE LS_PERSONCUR_EST_FATHER_MIDDLE_NAME ANCHOR DATA TYPE TO PERSON_PATERNITY.EST_FATHER_MIDDLE_NAME;
4339 DECLARE LC_PERSONCUR_EST_FATHER_SUFFIX_NAME_CODE ANCHOR DATA TYPE TO PERSON_PATERNITY.EST_FATHER_SUFFIX_CODE;
4340 DECLARE LS_PERSONCUR_EST_MOTHER_RELN_CODE ANCHOR DATA TYPE TO PERSON_PATERNITY.EST_MOTHER_RELN_CODE;
4341 DECLARE LI_PERSONCUR_EST_MOTHER_PERSON_ID ANCHOR DATA TYPE TO PERSON_PATERNITY.EST_MOTHER_PERSON_NUMB;
4342 DECLARE LS_PERSONCUR_EST_MOTHER_FIRST_NAME ANCHOR DATA TYPE TO PERSON_PATERNITY.EST_MOTHER_FIRST_NAME;
4343 DECLARE LS_PERSONCUR_EST_MOTHER_LAST_NAME ANCHOR DATA TYPE TO PERSON_PATERNITY.EST_MOTHER_LAST_NAME;
4344 DECLARE LS_PERSONCUR_EST_MOTHER_MIDDLE_NAME ANCHOR DATA TYPE TO PERSON_PATERNITY.EST_MOTHER_MIDDLE_NAME;
4345 DECLARE LC_PERSONCUR_EST_MOTHER_SUFFIX_NAME_CODE ANCHOR DATA TYPE TO PERSON_PATERNITY.EST_MOTHER_SUFFIX_CODE;
4346 DECLARE LS_PERSONCUR_COMMENT_NOTE ANCHOR DATA TYPE TO APPLICATION_PERSON.ADDITIONAL_NOTE;
4347 --Address Cursor Variable Declaration
4348 DECLARE LI_ADDRESSCUR_APPLICATION_PERSON_ID ANCHOR DATA TYPE TO APPLICATION_PERSON.APPLICATION_PERSON_ID;
4349 DECLARE LC_ADDRESSCUR_ADDR_TYPE_CODE ANCHOR DATA TYPE TO PERSON_ADDRESS.ADDRESS_TYPE_CODE;
4350 DECLARE LB_ADDRESSCUR_NORMALIZATION_IND ANCHOR DATA TYPE TO ADDRESS.ADDR_STD_IND;
4351 DECLARE LS_ADDRESSCUR_LINE1_ADDR ANCHOR DATA TYPE TO ADDRESS.LINE1_ADDR;
4352 DECLARE LS_ADDRESSCUR_LINE2_ADDR ANCHOR DATA TYPE TO ADDRESS.LINE2_ADDR;
4353 DECLARE LS_ADDRESSCUR_CITY_ADDR ANCHOR DATA TYPE TO CITY.CITY_NAME;
4354 DECLARE LC_ADDRESSCUR_STATE_CODE ANCHOR DATA TYPE TO ADDRESS_STATE.STATE_CODE;
4355 DECLARE LS_ADDRESSCUR_POST_CODE ANCHOR DATA TYPE TO POST_CODE.POST_CODE;
4356 DECLARE LS_ADDRESSCUR_ATTN_ADDR ANCHOR DATA TYPE TO ADDRESS.ATTN_ADDR;
4357 DECLARE LC_ADDRESSCUR_COUNTY_CODE ANCHOR DATA TYPE TO ADDRESS.COUNTY_CODE;
4358 DECLARE LC_ADDRESSCUR_COUNTRY_CODE ANCHOR DATA TYPE TO REFM_COUNTRY.COUNTRY_CODE;
4359 DECLARE LC_ADDRESSCUR_ADDR_SOURCE_CODE ANCHOR DATA TYPE TO PERSON_ADDRESS.ADDRESS_SOURCE_CODE;
4360 DECLARE LC_ADDRESSCUR_ADDR_STATUS_CODE ANCHOR DATA TYPE TO PERSON_ADDRESS.ADDRESS_STATUS_CODE;
4361 DECLARE LC_ADDRESSCUR_ADDR_VERIF_SRC_CODE ANCHOR DATA TYPE TO PERSON_ADDRESS.ADDRESS_VERIFY_SOURCE_CODE;
4362 DECLARE LD_ADDRESSCUR_ADDR_VERIFIED_DATE ANCHOR DATA TYPE TO PERSON_ADDRESS.ADDRESS_VERIFIED_DATE;
4363 DECLARE LB_ADDRESSCUR_TRUSTED_SOURCE_IND BOOLEAN;
4364 --Employer Cursor Variable Declaration
4365 DECLARE LI_EMPLOYERCUR_APPLICATION_PERSON_ID ANCHOR DATA TYPE TO APPLICATION_PERSON.APPLICATION_PERSON_ID;
4366 DECLARE LB_EMPLOYERCUR_NORMALIZATION_IND ANCHOR DATA TYPE TO ADDRESS.ADDR_STD_IND;
4367 DECLARE LS_EMPLOYERCUR_LINE1_ADDR ANCHOR DATA TYPE TO ADDRESS.LINE1_ADDR;
4368 DECLARE LS_EMPLOYERCUR_LINE2_ADDR ANCHOR DATA TYPE TO ADDRESS.LINE2_ADDR;
4369 DECLARE LS_EMPLOYERCUR_CITY_ADDR ANCHOR DATA TYPE TO CITY.CITY_NAME;
4370 DECLARE LC_EMPLOYERCUR_STATE_CODE ANCHOR DATA TYPE TO ADDRESS_STATE.STATE_CODE;
4371 DECLARE LS_EMPLOYERCUR_POST_CODE ANCHOR DATA TYPE TO POST_CODE.POST_CODE;
4372 DECLARE LC_EMPLOYERCUR_COUNTRY_CODE ANCHOR DATA TYPE TO REFM_COUNTRY.COUNTRY_CODE;
4373 DECLARE LC_EMPLOYERCUR_COUNTY_CODE ANCHOR DATA TYPE TO COUNTY.COUNTY_CODE;
4374 DECLARE LI_EMPLOYERCUR_FEIN_NUMB ANCHOR DATA TYPE TO OTHER_PARTY.FEIN_NUMB;
4375 DECLARE LI_EMPLOYERCUR_OTHER_PARTY_ID ANCHOR DATA TYPE TO OTHER_PARTY.OTHER_PARTY_ID;
4376 DECLARE LS_EMPLOYERCUR_OTHER_PARTY_NAME ANCHOR DATA TYPE TO OTHER_PARTY.OTHER_PARTY_NAME;
4377 DECLARE LI_EMPLOYERCUR_PHONE_NUMB ANCHOR DATA TYPE TO OTHER_PARTY.PHONE_NUMB;
4378 DECLARE LI_EMPLOYERCUR_PHONE_EXTN_NUMB ANCHOR DATA TYPE TO OTHER_PARTY.PHONE_EXTN_NUMB;
4379 DECLARE LC_EMPLOYERCUR_SOI_VERIFY_SOURCE_CODE ANCHOR DATA TYPE TO PERSON_SOI.PSOI_VERIFICATION_SOURCE_CODE;
4380 DECLARE LC_EMPLOYERCUR_SOI_VERIFY_STATUS_CODE ANCHOR DATA TYPE TO PERSON_SOI.PSOI_VERIFICATION_STATUS_CODE;
4381 DECLARE LC_EMPLOYERCUR_SOI_SOURCE_CODE ANCHOR DATA TYPE TO PERSON_SOI.PSOI_SOURCE_CODE;
4382 DECLARE LC_EMPLOYERCUR_SOI_STATUS_CODE ANCHOR DATA TYPE TO PERSON_SOI.PSOI_STATUS_CODE;
4383 DECLARE LC_EMPLOYERCUR_OTHER_PARTY_TYPE_CODE ANCHOR DATA TYPE TO PERSON_SOI.PSOI_INCOME_TYPE_CODE;
4384 DECLARE LC_EMPLOYERCUR_MILITARY_BRANCH_CODE ANCHOR DATA TYPE TO PERSON_SOI_MILITARY_DETAIL.MILITARY_BRANCH_CODE;
4385 DECLARE LC_EMPLOYERCUR_CONTACT_WORK_CODE ANCHOR DATA TYPE TO PERSON_SOI.CONTACT_PERSON_WORK_CODE;
4386 DECLARE LS_EMPLOYERCUR_OCCUPATION_DESC ANCHOR DATA TYPE TO PERSON_SOI.PSOI_OCCUPATION_DESC;
4387 DECLARE LS_EMPLOYERCUR_TRADE_SKILL_DESC ANCHOR DATA TYPE TO PERSON_SOI.PSOI_TRADE_SKILL_DESC;
4388 DECLARE LS_EMPLOYERCUR_PSOI_UNION_MEMBERSHIP_DESC ANCHOR DATA TYPE TO PERSON_SOI.PSOI_UNION_MEMBERSHIP_DESC;
4389 DECLARE LB_EMPLOYERCUR_TRUSTED_SOURCE_IND BOOLEAN;
4390
4391 --Insurance Cursor Variable Declaration
4392 DECLARE LI_INSURANCECUR_APPLICATION_PERSON_ID ANCHOR DATA TYPE TO APPLICATION_PERSON_INSURANCE.APPLICATION_PERSON_ID;
4393 DECLARE LC_INSURANCECUR_INSURANCE_TYPE_CODE ANCHOR DATA TYPE TO APPLICATION_PERSON_INSURANCE.COVERAGE_CODE;
4394 DECLARE LC_INSURANCECUR_OTHP_SOI_SOURCE_CODE ANCHOR DATA TYPE TO OTHER_PARTY.OTHP_SOI_SOURCE_CODE;
4395 DECLARE LS_INSURANCECUR_INSURANCE_CARRIER_NAME ANCHOR DATA TYPE TO NOMADS_RFRL_CHILD_INSURANCE_IB.INSURANCE_CARRIER_NAME;
4396 DECLARE LB_INSURANCECUR_ADDR_STD_IND ANCHOR DATA TYPE TO ADDRESS.ADDR_STD_IND;
4397 DECLARE LS_INSURANCECUR_LINE1_ADDR ANCHOR DATA TYPE TO ADDRESS.LINE1_ADDR;
4398 DECLARE LS_INSURANCECUR_LINE2_ADDR ANCHOR DATA TYPE TO ADDRESS.LINE2_ADDR;
4399 DECLARE LS_INSURANCECUR_CITY_ADDR ANCHOR DATA TYPE TO CITY.CITY_NAME;
4400 DECLARE LC_INSURANCECUR_STATE_CODE ANCHOR DATA TYPE TO ADDRESS_STATE.STATE_CODE;
4401 DECLARE LS_INSURANCECUR_POST_CODE ANCHOR DATA TYPE TO POST_CODE.POST_CODE;
4402 DECLARE LC_INSURANCECUR_COUNTRY_CODE ANCHOR DATA TYPE TO REFM_COUNTRY.COUNTRY_CODE;
4403 DECLARE LC_INSURANCECUR_COUNTY_CODE ANCHOR DATA TYPE TO COUNTY.COUNTY_CODE;
4404 DECLARE LS_INSURANCECUR_POLICY_IDC ANCHOR DATA TYPE TO PERSON_INSURANCE.INSURANCE_POLICY_IDC;
4405 DECLARE LI_INSURANCECUR_POLICY_HOLDER_SSN_NUMB ANCHOR DATA TYPE TO SSN.SSN_NUMB;
4406 DECLARE LS_INSURANCECUR_POLICY_HOLDER_LAST_NAME ANCHOR DATA TYPE TO PERSON.LAST_NAME;
4407 DECLARE LS_INSURANCECUR_POLICY_HOLDER_FIRST_NAME ANCHOR DATA TYPE TO PERSON.FIRST_NAME;
4408 DECLARE LS_INSURANCECUR_POLICY_HOLDER_MIDDLE_NAME ANCHOR DATA TYPE TO PERSON.MIDDLE_NAME;
4409 DECLARE LC_INSURANCECUR_POLICY_HOLDER_SUFFIX_NAME ANCHOR DATA TYPE TO PERSON.SUFFIX_NAME_CODE;
4410 DECLARE LD_INSURANCECUR_COVERAGE_BEGIN_DATE ANCHOR DATA TYPE TO PERSON_INSURANCE.INSURANCE_EFFECTIVE_DATE;
4411 DECLARE LD_INSURANCECUR_COVERAGE_END_DATE ANCHOR DATA TYPE TO PERSON_INSURANCE.INSURANCE_END_DATE;
4412 --Task Cursor Variable Declaration
4413 DECLARE LI_TASKCUR_SEQ_ID INTEGER;
4414 DECLARE LC_TASKCUR_TASK_CODE ANCHOR DATA TYPE TO TASK_DETAIL.TASK_CODE;
4415 DECLARE LS_TASKCUR_COMMENT_NOTE ANCHOR DATA TYPE TO NOTE.COMMENT_NOTE;
4416 -- Asset Cursor Variable Declaration
4417 DECLARE LI_ASSETCUR_APPLICATION_PERSON_ID ANCHOR DATA TYPE TO APPLICATION_PERSON.APPLICATION_PERSON_ID;
4418 DECLARE LC_ASSETCUR_VEHICLE_ASSET_TYPE_CODE ANCHOR DATA TYPE TO APPLICATION_PERSON_REG_VECLE.VEHICLE_ASSET_TYPE_CODE;
4419 DECLARE LC_ASSETCUR_VEHICLE_ASSESSED_STATE_CODE ANCHOR DATA TYPE TO APPLICATION_PERSON_REG_VECLE.VEHICLE_ASSESSED_STATE_CODE;
4420 DECLARE LS_ASSETCUR_VEHICLE_MODEL_NAME ANCHOR DATA TYPE TO APPLICATION_PERSON_REG_VECLE.VEHICLE_MODEL_NAME;
4421 DECLARE LI_ASSETCUR_VEHICLE_YEAR_NUMB ANCHOR DATA TYPE TO APPLICATION_PERSON_REG_VECLE.VEHICLE_YEAR_NUMB;
4422 DECLARE LS_ASSETCUR_VEHICLE_MAKE_NAME ANCHOR DATA TYPE TO APPLICATION_PERSON_REG_VECLE.VEHICLE_MAKE_NAME;
4423 DECLARE LS_ASSETCUR_VEHICLE_LICENSE_IDC ANCHOR DATA TYPE TO APPLICATION_PERSON_REG_VECLE.VEHICLE_LICENSE_IDC;
4424 DECLARE LC_ASSETCUR_REAL_ESTATE_ASSET_TYPE_CODE ANCHOR DATA TYPE TO APPLICATION_PERSON_RLTY_ASSET.REAL_ESTATE_ASSET_TYPE_CODE;
4425 DECLARE LS_ASSETCUR_LINE1_ADDR ANCHOR DATA TYPE TO ADDRESS.LINE1_ADDR;
4426 DECLARE LS_ASSETCUR_LINE2_ADDR ANCHOR DATA TYPE TO ADDRESS.LINE2_ADDR;
4427 DECLARE LS_ASSETCUR_CITY_ADDR ANCHOR DATA TYPE TO CITY.CITY_NAME;
4428 DECLARE LC_ASSETCUR_COUNTY_CODE ANCHOR DATA TYPE TO ADDRESS.COUNTY_CODE;
4429 DECLARE LC_ASSETCUR_STATE_CODE ANCHOR DATA TYPE TO CITY.STATE_CODE;
4430 DECLARE LC_ASSETCUR_COUNTRY_CODE ANCHOR DATA TYPE TO CITY.COUNTRY_CODE;
4431 DECLARE LS_ASSETCUR_POST_CODE ANCHOR DATA TYPE TO POST_CODE.POST_CODE;
4432 DECLARE LC_ASSETCUR_APPLN_FIN_ASSET_TYPE_CODE ANCHOR DATA TYPE TO APPLICATION_PERSON_FIN_ASSET.APPLN_FIN_ASSET_TYPE_CODE;
4433 DECLARE LI_ASSETCUR_APPLICATION_OTHP_FIN_ID ANCHOR DATA TYPE TO APPLICATION_PERSON_FIN_ASSET.APPLICATION_OTHP_FIN_ID;
4434
4435 DECLARE EXIT HANDLER FOR SQLEXCEPTION
4436 BEGIN
4437 GET DIAGNOSTICS EXCEPTION 1
4438 LS_SQL_ERROR_DESC = MESSAGE_TEXT;
4439
4440 IF LC_SQLSTATE_CODE <> '75000'
4441 THEN
4442 SET AC_MSG_CODE = LC_F_MSG_CODE;
4443 SET LS_ERROR_DESC = LS_SQL_ERROR_DESC;
4444 END IF;
4445
4446 CALL BATCH_COMMON$SP_GET_ERROR_DESCRIPTION (
4447 AS_PROCEDURE_NAME => LS_PROCEDURE_NAME,
4448 AS_ERROR_MESSAGE_DESC => LS_ERROR_DESC,
4449 AS_SQL_DESC => LS_SQL_DESC,
4450 AS_SQL_DATA_DESC => LS_SQL_DATA_DESC,
4451 AS_ERROR_DESC => AS_ERROR_DESC);
4452
4453 SET AC_MSG_CODE = LC_MSG_CODE;
4454 END;
4455
4456 DECLARE GLOBAL TEMPORARY TABLE SESSION.TEMP_TASK_DETAIL
4457 (
4458 SEQ_ID INTEGER
4459 NOT NULL
4460 GENERATED ALWAYS AS IDENTITY
4461(
4462 START WITH 1
4463 ,
4464 INCREMENT BY 1
4465 ,
4466 NO MINVALUE
4467 ,
4468 NO MAXVALUE
4469 ,
4470 NO CACHE
4471 ) ,
4472 TASK_CODE CHAR (5),
4473 COMMENT_NOTE VARCHAR (4000)
4474 )
4475 NOT LOGGED
4476 WITH REPLACE;
4477
4478 BEGIN
4479 DECLARE
4480 PERSON_CUR CURSOR FOR
4481 SELECT A.APPLICATION_PERSON_ID,
4482 A.CASE_PARTY_ROLE_CODE,
4483 B.LAST_NAME,
4484 B.FIRST_NAME,
4485 B.MIDDLE_NAME,
4486 W.NOMADS_ICI_NUMB,
4487 W.NOMADS_NCP_SEQ_NUMB,
4488 W.NOMADS_UPI_NUMB,
4489 W.DCFS_PERSON_NUMB,
4490 W.MEDICAID_PERSON_NUMB,
4491 W.WELFARE_TYPE_CODE,
4492 A.AUTH_REP_RELATIONSHIP_CODE,
4493 A.FAMILY_VIOLENCE_CODE,
4494 A.AUTH_REP_NAME,
4495 E.RELN_TYPE_CODE NCP_RELN_TO_CHILD_CODE,
4496 C.RELN_TYPE_CODE CST_RELN_TO_CHILD_CODE,
4497 S.SSN_NUMB,
4498 LC_P_SSN_TYPE_CODE SSN_TYPE_CODE,
4499 'CP' SSN_SOURCE_CODE,
4500 LC_P_SSN_STATUS_CODE SSN_STATUS_CODE,
4501 B.SSN_ID,
4502 L.LICENSE_ISSUE_STATE_CODE,
4503 L.LICENSE_DRIVER_NUMB_IDC,
4504 L.LICENSE_ISSUE_DATE,
4505 B.LAST_ALIAS_NAME,
4506 B.FIRST_ALIAS_NAME,
4507 B.MIDDLE_ALIAS_NAME,
4508 B.SUFFIX_ALIAS_NAME_CODE,
4509 R.OTHP_INST_ID,
4510 R.INCARCERATED_START_DATE,
4511 R.INCARCERATED_END_DATE,
4512 P.ESTABLISHMENT_STATE_CODE,
4513 P.ESTABLISHMENT_METHOD_CODE,
4514 P.PATERNITY_EST_IND,
4515 P.PATERNITY_EST_DATE,
4516 P.ESTABLISHMENT_DOCKET_IDC,
4517 P.EST_FATHER_RELN_CODE,
4518 P.EST_FATHER_PERSON_NUMB,
4519 P.EST_FATHER_FIRST_NAME,
4520 P.EST_FATHER_LAST_NAME,
4521 P.EST_FATHER_MIDDLE_NAME,
4522 P.EST_FATHER_SUFFIX_NAME_CODE,
4523 P.EST_MOTHER_RELN_CODE,
4524 P.EST_MOTHER_PERSON_NUMB,
4525 P.EST_MOTHER_FIRST_NAME,
4526 P.EST_MOTHER_LAST_NAME,
4527 P.EST_MOTHER_MIDDLE_NAME,
4528 P.EST_MOTHER_SUFFIX_NAME_CODE,
4529 B.ADDITIONAL_NOTE
4530 FROM APPLICATION_CASE_PERSON A
4531 JOIN APPLICATION_PERSON B
4532 ON A.APPLICATION_PERSON_ID = B.APPLICATION_PERSON_ID
4533 LEFT OUTER JOIN SSN S ON B.SSN_ID = S.SSN_ID
4534 LEFT OUTER JOIN APPLICATION_PERSON_RELATION C
4535 ON C.APPLICATION_PERSON_ID = B.APPLICATION_PERSON_ID
4536 AND C.PERSON_RELATIONSHIP_CODE =
4537 LC_F_PERSON_RELATIONSHIP_CODE
4538 LEFT OUTER JOIN APPLICATION_PERSON_RELATION E
4539 ON E.APPLICATION_PERSON_ID = B.APPLICATION_PERSON_ID
4540 AND E.PERSON_RELATIONSHIP_CODE =
4541 LC_M_PERSON_RELATIONSHIP_CODE
4542 LEFT OUTER JOIN APPLICATION_PERSON_LICENSE L
4543 ON L.APPLICATION_PERSON_ID = B.APPLICATION_PERSON_ID
4544 LEFT OUTER JOIN APPLICATION_PERSON_PATERNITY P
4545 ON A.APPLICATION_PERSON_ID = P.APPLICATION_PERSON_ID
4546 LEFT OUTER JOIN APPLICATION_PERSON_WELFARE W
4547 ON A.APPLICATION_PERSON_ID = W.APPLICATION_PERSON_ID
4548 LEFT OUTER JOIN APPLICATION_PERSON_PRISON R
4549 ON B.APPLICATION_PERSON_ID = R.APPLICATION_PERSON_ID
4550 WHERE A.APPLICATION_ID = AI_APPLICATION_ID
4551 AND A.CHILD_DELETE_IND = FALSE
4552 ORDER BY CASE
4553 WHEN A.CASE_PARTY_ROLE_CODE =
4554 LC_C_CASE_PARTY_ROLE_CODE
4555 THEN
4556 1
4557 WHEN A.CASE_PARTY_ROLE_CODE IN
4558 (LC_A_CASE_PARTY_ROLE_CODE,
4559 LC_P_CASE_PARTY_ROLE_CODE)
4560 THEN
4561 2
4562 ELSE
4563 3
4564 END;
4565
4566 DECLARE
4567 ADDRESS_CUR CURSOR FOR
4568 SELECT A.APPLICATION_PERSON_ID,
4569 A.ATTN_ADDR,
4570 TRIM (A.LINE1_ADDR) LINE1_ADDR,
4571 TRIM (A.LINE2_ADDR) LINE2_ADDR,
4572 TRIM (A.CITY_NAME) CITY_NAME,
4573 A.STATE_CODE,
4574 TRIM (A.POST_CODE) POST_CODE,
4575 A.COUNTRY_CODE,
4576 A.COUNTY_CODE,
4577 A.ADDR_STD_IND NORMALIZATION_IND,
4578 A.ADDR_TYPE_CODE,
4579 CASE
4580 WHEN C.TRANS_HEADER_ID IS NOT NULL
4581 THEN
4582 LC_OSA_ADDR_SOURCE_CODE
4583 WHEN AC_CASE_TYPE_CODE = LC_E_CASE_TYPE_CODE
4584 THEN
4585 LC_IVE_ADDR_SOURCE_CODE
4586 WHEN AC_CASE_TYPE_CODE IN
4587 (LC_A_CASE_TYPE_CODE, LC_M_CASE_TYPE_CODE)
4588 THEN
4589 LC_FAM_ADDR_SOURCE_CODE
4590 ELSE
4591 LC_CST_ADDR_SOURCE_CODE
4592 END ADDR_SOURCE_CODE,
4593 A.ADDR_STATUS_CODE,
4594 CASE
4595 WHEN A.ADDR_STATUS_CODE = LC_Y_ADDR_STATUS_CODE
4596 THEN
4597 CASE
4598 WHEN C.TRANS_HEADER_ID IS NOT NULL
4599 THEN
4600 LC_I_ADDR_VERIFY_SOURCE_CODE
4601 ELSE
4602 LC_C_ADDR_VERIFY_SOURCE_CODE
4603 END
4604 ELSE
4605 NULL
4606 END ADDR_VERIF_SRC_CODE,
4607 CASE
4608 WHEN A.ADDR_STATUS_CODE = LC_Y_ADDR_STATUS_CODE
4609 THEN
4610 AD_RUN_DATE
4611 ELSE
4612 NULL
4613 END ADDR_VERIFIED_DATE,
4614 CASE
4615 WHEN A.ADDR_STATUS_CODE = LC_Y_ADDR_STATUS_CODE
4616 THEN
4617 TRUE
4618 ELSE
4619 FALSE
4620 END TRUSTED_SOURCE_IND
4621 FROM APPLICATION_PERSON_ADDRESS A
4622 LEFT OUTER JOIN APPLICATION_CASE_PERSON B
4623 ON A.APPLICATION_PERSON_ID = B.APPLICATION_PERSON_ID
4624 LEFT OUTER JOIN APPLICATION_CASE C
4625 ON B.APPLICATION_ID = C.APPLICATION_ID
4626 WHERE C.APPLICATION_ID = AI_APPLICATION_ID
4627 AND A.APPLICATION_PERSON_ID =
4628 LI_PERSONCUR_APPLICATION_PERSON_ID;
4629
4630 DECLARE
4631 EMPLOYER_CUR CURSOR FOR
4632 SELECT A.APPLICATION_PERSON_ID,
4633 A.ADDR_STD_IND NORMALIZATION_IND,
4634 TRIM (A.LINE1_ADDR) LINE1_ADDR,
4635 TRIM (A.LINE2_ADDR) LINE2_ADDR,
4636 TRIM (A.CITY_NAME) CITY_NAME,
4637 A.STATE_CODE,
4638 TRIM (A.POST_CODE) POST_CODE,
4639 A.COUNTRY_CODE,
4640 A.COUNTY_CODE,
4641 TRIM (A.FEIN_NUMB) FEIN_NUMB,
4642 A.OTHER_PARTY_ID,
4643 TRIM (A.OTHER_PARTY_NAME) OTHER_PARTY_NAME,
4644 A.PHONE_NUMB,
4645 A.PHONE_EXTN_NUMB,
4646 CASE
4647 WHEN C.TRANS_HEADER_ID IS NOT NULL
4648 THEN
4649 LC_OSA_SOI_SOURCE_CODE
4650 WHEN AC_CASE_TYPE_CODE = LC_E_CASE_TYPE_CODE
4651 THEN
4652 LC_IVE_SOI_SOURCE_CODE
4653 WHEN AC_CASE_TYPE_CODE IN
4654 (LC_A_CASE_TYPE_CODE, LC_M_CASE_TYPE_CODE)
4655 THEN
4656 LC_FAM_SOI_SOURCE_CODE
4657 ELSE
4658 LC_CST_SOI_SOURCE_CODE
4659 END SOI_SOURCE_CODE,
4660 A.PSOI_VERIFICATION_STATUS_CODE,
4661 CASE
4662 WHEN AC_SCREEN_CODE IS NOT NULL
4663 AND C.IVD_APPLICANT_CODE IN
4664 (LC_A_CASE_PARTY_ROLE_CODE,
4665 LC_P_CASE_PARTY_ROLE_CODE)
4666 THEN
4667 LC_N_PSOI_VERIFY_SOURCE_CODE
4668 WHEN AC_SCREEN_CODE IS NOT NULL
4669 AND C.IVD_APPLICANT_CODE =
4670 LC_C_CASE_PARTY_ROLE_CODE
4671 THEN
4672 LC_C_PSOI_VERIFY_SOURCE_CODE
4673 ELSE
4674 NULL
4675 END SOI_VERIF_SRC_CODE,
4676 LC_PE_SOI_STATUS_CODE SOI_STATUS_CODE,
4677 A.OTHER_PARTY_TYPE_INCOME_CODE,
4678 A.MILITARY_BRANCH_CODE,
4679 A.CONTACT_WORK_CODE,
4680 A.OCCUPATION_DESC,
4681 A.TRADE_SKILL_DESC,
4682 A.PSOI_UNION_MEMBERSHIP_DESC,
4683 CASE
4684 WHEN A.PSOI_VERIFICATION_STATUS_CODE =
4685 PSOI_VERIFICATION_STATUS_CODE
4686 THEN
4687 TRUE
4688 ELSE
4689 FALSE
4690 END TRUSTED_SOURCE_IND
4691 FROM APPLICATION_PERSON_SOI A
4692 LEFT OUTER JOIN APPLICATION_CASE_PERSON B
4693 ON A.APPLICATION_PERSON_ID = B.APPLICATION_PERSON_ID
4694 LEFT OUTER JOIN APPLICATION_CASE C
4695 ON B.APPLICATION_ID = C.APPLICATION_ID
4696 WHERE C.APPLICATION_ID = AI_APPLICATION_ID
4697 AND A.APPLICATION_PERSON_ID =
4698 LI_PERSONCUR_APPLICATION_PERSON_ID;
4699
4700 DECLARE
4701 INSURANCE_CUR CURSOR FOR
4702 SELECT A.APPLICATION_PERSON_ID,
4703 A.COVERAGE_CODE,
4704 CASE
4705 WHEN AC_CASE_TYPE_CODE = LC_E_CASE_TYPE_CODE
4706 THEN
4707 LC_IVE_OTHP_SOI_SOURCE_CODE
4708 ELSE
4709 LC_FAM_OTHP_SOI_SOURCE_CODE
4710 END
4711 OTHP_SOI_SOURCE_CODE,
4712 TRIM (A.OTHER_PARTY_NAME)
4713 OTHER_PARTY_NAME,
4714 CASE
4715 WHEN A.ADDR_STD_IND = LC_N_NO_CODE THEN TRUE
4716 ELSE FALSE
4717 END,
4718 TRIM (A.LINE1_ADDR)
4719 LINE1_ADDR,
4720 TRIM (A.LINE2_ADDR)
4721 LINE2_ADDR,
4722 TRIM (A.CITY_NAME)
4723 CITY_NAME,
4724 A.STATE_CODE,
4725 TRIM (A.POST_CODE)
4726 POST_CODE,
4727 A.COUNTRY_CODE,
4728 A.COUNTY_CODE,
4729 TRIM (A.POLICY_IDC)
4730 POLICY_IDC,
4731 TRIM (A.POLICY_HOLDER_SSN_NUMB)
4732 POLICY_HOLDER_SSN_NUMB,
4733 TRIM (A.POLICY_HOLDER_LAST_NAME)
4734 POLICY_HOLDER_LAST_NAME,
4735 TRIM (A.POLICY_HOLDER_FIRST_NAME)
4736 POLICY_HOLDER_FIRST_NAME,
4737 TRIM (A.POLICY_HOLDER_MIDDLE_NAME)
4738 POLICY_HOLDER_MIDDLE_NAME,
4739 TRIM (A.POLICY_HOLDER_SUFFIX_CODE)
4740 POLICY_HOLDER_SUFFIX_CODE,
4741 A.COVERAGE_BEGIN_DATE,
4742 A.COVERAGE_END_DATE
4743 FROM APPLICATION_PERSON_INSURANCE A
4744 WHERE A.APPLICATION_PERSON_ID =
4745 LI_PERSONCUR_APPLICATION_PERSON_ID
4746 UNION ALL
4747 SELECT NULL,
4748 PI.INSURANCE_TYPE_CODE,
4749 CASE
4750 WHEN PR.WELFARE_TYPE_CODE = LC_E_WELFARE_TYPE_CODE
4751 THEN
4752 LC_IVE_OTHP_SOI_SOURCE_CODE
4753 ELSE
4754 LC_FAM_OTHP_SOI_SOURCE_CODE
4755 END
4756 OTHP_SOI_SOURCE_CODE,
4757 TRIM (PI.INSURANCE_CARRIER_NAME),
4758 PI.ADDR_STD_IND,
4759 TRIM (PI.LINE1_ADDR)
4760 LINE1_ADDR,
4761 TRIM (PI.LINE2_ADDR)
4762 LINE2_ADDR,
4763 TRIM (PI.CITY_NAME)
4764 CITY_NAME,
4765 PI.STATE_CODE,
4766 TRIM (PI.POST_CODE)
4767 POST_CODE,
4768 PI.COUNTRY_CODE,
4769 PI.COUNTY_CODE,
4770 TRIM (PI.POLICY_IDC)
4771 POLICY_IDC,
4772 TRIM (PI.POLICY_HOLDER_SSN_NUMB)
4773 POLICY_HOLDER_SSN_NUMB,
4774 TRIM (PI.POLICY_HOLDER_LAST_NAME)
4775 POLICY_HOLDER_LAST_NAME,
4776 TRIM (PI.POLICY_HOLDER_FIRST_NAME)
4777 POLICY_HOLDER_FIRST_NAME,
4778 TRIM (PI.POLICY_HOLDER_MIDDLE_NAME)
4779 POLICY_HOLDER_MIDDLE_NAME,
4780 TRIM (PI.POLICY_HOLDER_SUFFIX_CODE)
4781 POLICY_HOLDER_SUFFIX_CODE,
4782 PI.COVERAGE_BEGIN_DATE,
4783 PI.COVERAGE_END_DATE
4784 FROM PENDING_REFERRAL_INSURANCE PI
4785 JOIN PENDING_REFERRAL_PERSON PR
4786 ON PI.PENDING_REFERRAL_PERSON_ID =
4787 PR.PENDING_REFERRAL_PERSON_ID
4788 AND CASE_PARTY_ROLE_CODE = LC_D_CASE_PARTY_ROLE_CODE
4789 JOIN PENDING_REFERRAL_CASE PC
4790 ON PC.PENDING_REFERRAL_CASE_ID =
4791 PR.PENDING_REFERRAL_CASE_ID
4792 JOIN APPLICATION_CASE A
4793 ON A.APPLICATION_ID = PC.APPLICATION_ID
4794 WHERE A.APPLICATION_ID = AI_APPLICATION_ID
4795 AND A.PENDING_REFERRAL_CASE_ID IS NOT NULL
4796 AND PI.POLICY_IDC IS NOT NULL;
4797
4798 DECLARE
4799 TASK_CUR CURSOR FOR
4800 SELECT TMP.SEQ_ID, TMP.TASK_CODE, TMP.COMMENT_NOTE
4801 FROM SESSION.TEMP_TASK_DETAIL TMP;
4802
4803 DECLARE
4804 ASSET_CUR CURSOR FOR
4805 SELECT A.APPLICATION_PERSON_ID,
4806 A.VEHICLE_ASSET_TYPE_CODE,
4807 A.VEHICLE_ASSESSED_STATE_CODE,
4808 A.VEHICLE_MODEL_NAME,
4809 A.VEHICLE_YEAR_NUMB,
4810 A.VEHICLE_MAKE_NAME,
4811 A.VEHICLE_LICENSE_IDC,
4812 A.REAL_ESTATE_ASSET_TYPE_CODE,
4813 A.LINE1_ADDR,
4814 A.LINE2_ADDR,
4815 A.CITY_ADDR,
4816 A.COUNTY_CODE,
4817 A.STATE_CODE,
4818 A.COUNTRY_CODE,
4819 A.POST_CODE,
4820 A.APPLN_FIN_ASSET_TYPE_CODE,
4821 A.APPLICATION_OTHP_FIN_ID
4822 FROM (SELECT A.APPLICATION_PERSON_ID,
4823 A.VEHICLE_ASSET_TYPE_CODE,
4824 A.VEHICLE_ASSESSED_STATE_CODE,
4825 A.VEHICLE_MODEL_NAME,
4826 A.VEHICLE_YEAR_NUMB,
4827 A.VEHICLE_MAKE_NAME,
4828 A.VEHICLE_LICENSE_IDC,
4829 NULL REAL_ESTATE_ASSET_TYPE_CODE,
4830 NULL LINE1_ADDR,
4831 NULL LINE2_ADDR,
4832 NULL CITY_ADDR,
4833 NULL COUNTY_CODE,
4834 NULL STATE_CODE,
4835 NULL COUNTRY_CODE,
4836 NULL POST_CODE,
4837 NULL APPLN_FIN_ASSET_TYPE_CODE,
4838 NULL APPLICATION_OTHP_FIN_ID
4839 FROM APPLICATION_PERSON_REG_VECLE A
4840 LEFT OUTER JOIN APPLICATION_CASE_PERSON B
4841 ON A.APPLICATION_PERSON_ID =
4842 B.APPLICATION_PERSON_ID
4843 LEFT OUTER JOIN APPLICATION_CASE C
4844 ON B.APPLICATION_ID = C.APPLICATION_ID
4845 WHERE C.APPLICATION_ID = AI_APPLICATION_ID
4846 AND A.APPLICATION_PERSON_ID =
4847 LI_PERSONCUR_APPLICATION_PERSON_ID
4848 UNION ALL
4849 SELECT A.APPLICATION_PERSON_ID,
4850 NULL VEHICLE_ASSET_TYPE_CODE,
4851 NULL VEHICLE_ASSESSED_STATE_CODE,
4852 NULL VEHICLE_MODEL_NAME,
4853 NULL VEHICLE_YEAR_NUMB,
4854 NULL VEHICLE_MAKE_NAME,
4855 NULL VEHICLE_LICENSE_IDC,
4856 A.REAL_ESTATE_ASSET_TYPE_CODE,
4857 A.LINE1_ADDR,
4858 A.LINE2_ADDR,
4859 A.CITY_NAME AS CITY_ADDR,
4860 A.COUNTY_CODE,
4861 A.STATE_CODE,
4862 A.COUNTRY_CODE,
4863 A.POST_CODE,
4864 NULL APPLN_FIN_ASSET_TYPE_CODE,
4865 NULL APPLICATION_OTHP_FIN_ID
4866 FROM APPLICATION_PERSON_RLTY_ASSET A
4867 LEFT OUTER JOIN APPLICATION_CASE_PERSON B
4868 ON A.APPLICATION_PERSON_ID =
4869 B.APPLICATION_PERSON_ID
4870 LEFT OUTER JOIN APPLICATION_CASE C
4871 ON B.APPLICATION_ID = C.APPLICATION_ID
4872 WHERE C.APPLICATION_ID = AI_APPLICATION_ID
4873 AND A.APPLICATION_PERSON_ID =
4874 LI_PERSONCUR_APPLICATION_PERSON_ID
4875 UNION ALL
4876 SELECT A.APPLICATION_PERSON_ID,
4877 NULL VEHICLE_ASSET_TYPE_CODE,
4878 NULL VEHICLE_ASSESSED_STATE_CODE,
4879 NULL VEHICLE_MODEL_NAME,
4880 NULL VEHICLE_YEAR_NUMB,
4881 NULL VEHICLE_MAKE_NAME,
4882 NULL VEHICLE_LICENSE_IDC,
4883 NULL REAL_ESTATE_ASSET_TYPE_CODE,
4884 NULL LINE1_ADDR,
4885 NULL LINE2_ADDR,
4886 NULL CITY_ADDR,
4887 NULL COUNTY_CODE,
4888 NULL STATE_CODE,
4889 NULL COUNTRY_CODE,
4890 NULL POST_CODE,
4891 A.APPLN_FIN_ASSET_TYPE_CODE,
4892 A.APPLICATION_OTHP_FIN_ID
4893 FROM APPLICATION_PERSON_FIN_ASSET A
4894 LEFT OUTER JOIN APPLICATION_CASE_PERSON B
4895 ON A.APPLICATION_PERSON_ID =
4896 B.APPLICATION_PERSON_ID
4897 LEFT OUTER JOIN APPLICATION_CASE C
4898 ON B.APPLICATION_ID = C.APPLICATION_ID
4899 WHERE C.APPLICATION_ID = AI_APPLICATION_ID
4900 AND A.APPLICATION_PERSON_ID =
4901 LI_PERSONCUR_APPLICATION_PERSON_ID) A;
4902
4903 SET LC_SQLSTATE_CODE = '';
4904
4905 IF AC_SCREEN_CODE IS NOT NULL
4906 THEN
4907 IF AI_TRANSACTION_EVENT_SEQ_NUMB IS NOT NULL
4908 THEN
4909 SET LS_SQL_DESC = 'CONCURRENCY CHECK';
4910 SET LS_SQL_DATA_DESC =
4911 'TRANSACTION_EVENT_SEQ_NUMB '
4912 || NVL (AI_TRANSACTION_EVENT_SEQ_NUMB, 0);
4913
4914 SELECT COUNT (1)
4915 INTO LI_CONCURRENCY_NUMB
4916 FROM APPLICATION_CASE A
4917 WHERE A.APPLICATION_ID = AI_APPLICATION_ID
4918 AND A.TRANSACTION_EVENT_SEQ_NUMB =
4919 AI_TRANSACTION_EVENT_SEQ_NUMB;
4920
4921 IF LI_CONCURRENCY_NUMB = 0
4922 THEN
4923 SET LC_SQLSTATE_CODE = '75000';
4924 SIGNAL SQLSTATE '75000';
4925 END IF;
4926 END IF;
4927
4928 SET LS_SQL_DESC = 'BATCH_COMMON$SP_GEN_SEQ_TXN_EVENT';
4929 SET LS_SQL_DATA_DESC =
4930 'UPDATED_BY_NAME '
4931 || NVL (AS_UPDATED_BY_NAME, '')
4932 || 'SCREEN/JOB CODE '
4933 || NVL (AC_SCREEN_CODE, AC_JOB_CODE);
4934
4935 CALL BATCH_COMMON$SP_GEN_SEQ_TXN_EVENT (
4936 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
4937 AC_SCREEN_CODE => AC_SCREEN_CODE,
4938 AC_JOB_CODE => AC_JOB_CODE,
4939 AC_EVENT_FUNCTIONAL_CODE => LC_5010_EVENT_FUNCTIONAL_CODE,
4940 AI_TRANSACTION_EVENT_SEQ_NUMB =>
4941 LI_TRANSACTION_EVENT_SEQ_NUMB,
4942 AC_MSG_CODE => LC_MSG_CODE,
4943 AS_ERROR_DESC => LS_ERROR_DESC);
4944
4945 IF LC_MSG_CODE <> LC_S_MSG_CODE
4946 THEN
4947 SET LC_SQLSTATE_CODE = '75000';
4948 SIGNAL SQLSTATE '75000';
4949 END IF;
4950 ELSE
4951 SET LI_TRANSACTION_EVENT_SEQ_NUMB = AI_TRANSACTION_EVENT_SEQ_NUMB;
4952 END IF;
4953
4954 SET LS_SQL_DESC = 'SELECT USER_DETAIL';
4955 SET LS_SQL_DATA_DESC =
4956 ' UPDATED_BY_NAME : ' || NVL (AS_UPDATED_BY_NAME, '');
4957
4958 SET LI_UPDATED_BY_ID = BATCH_COMMON$SF_GET_USER_ID (AS_UPDATED_BY_NAME);
4959
4960 SET LS_SQL_DESC = 'INSERT CASE_DETAIL';
4961 SET LS_SQL_DATA_DESC = 'APPLICATION_ID :' || NVL (AI_APPLICATION_ID, 0);
4962
4963 SELECT CASE_ID
4964 INTO AI_CASE_ID
4965 FROM NEW TABLE (
4966
4967INSERT INTO CASE_DETAIL (APPLICATION_ID,
4968 CASE_TYPE_CODE,
4969 CASE_STATUS_CODE,
4970 CASE_IGV_TYPE_CODE,
4971 SOURCE_REFERRAL_CODE,
4972 COOPERATION_CODE,
4973 CASE_CATEGORY_TYPE_CODE,
4974 ASSISTANCE_TYPE_CODE,
4975 OFFICE_CODE,
4976 CASE_CLOSURE_REASON_CODE,
4977 ENFORCE_STATUS_CODE,
4978 PRIMARY_FUNCTION_CODE,
4979 COUNTY_CODE,
4980 CASE_USER_ID,
4981 ASSIGNED_OFFICE_CODE,
4982 APPLICATION_FEE_TYPE_DESC,
4983 IVD_APPLICANT_CODE,
4984 GOOD_CAUSE_CLAIM_REASON_CODE,
4985 GOOD_CAUSE_DETERMINATION_CODE,
4986 GOOD_CAUSE_CLAIM_DATE,
4987 GOOD_CAUSE_DETERMINATION_DATE,
4988 OPENED_DATE,
4989 CASE_SOURCE_REFERRAL_DATE,
4990 CASE_STATUS_DATE,
4991 COOPERATION_DATE,
4992 APPLICATION_REQUESTED_DATE,
4993 APPLICATION_SENT_DATE,
4994 APPLICATION_RECEIVED_DATE,
4995 APPLICATION_SIGNED_DATE,
4996 NOMADS_CASE_IDC,
4997 TRANSACTION_EVENT_SEQ_NUMB,
4998 UPDATED_BY_ID)
4999 SELECT A.APPLICATION_ID,
5000 A.CASE_TYPE_CODE,
5001 LC_O_CASE_STATUS_CODE,
5002 A.CASE_IGV_TYPE_CODE,
5003 A.SOURCE_REFERRAL_CODE,
5004 A.COOPERATION_CODE,
5005 A.CASE_CATEGORY_TYPE_CODE,
5006 CASE
5007 WHEN A.CASE_TYPE_CODE IN
5008 (LC_A_CASE_TYPE_CODE,
5009 LC_E_CASE_TYPE_CODE)
5010 THEN
5011 LC_CA_CURRENT_ASST_TYPE_CODE
5012 WHEN A.CASE_TYPE_CODE IN
5013 (LC_N_CASE_TYPE_CODE,
5014 LC_M_CASE_TYPE_CODE)
5015 THEN
5016 LC_NA_NEVER_ASST_TYPE_CODE
5017 ELSE
5018 NULL
5019 END ASSISTANCE_TYPE_CODE,
5020 A.OFFICE_CODE,
5021 NULL,
5022 NULL,
5023 LC_CI_PRIMARY_FUNCTION_CODE,
5024 NULL,
5025 LI_UPDATED_BY_ID,
5026 AC_USER_OFFICE_CODE,
5027 A.APPLICATION_FEE_TYPE_DESC,
5028 A.IVD_APPLICANT_CODE,
5029 A.GOOD_CAUSE_CODE,
5030 A.GOOD_CAUSE_DETERMINATION_CODE,
5031 A.GOOD_CAUSE_DATE,
5032 A.GOOD_CAUSE_DETERMINATION_DATE,
5033 AD_RUN_DATE,
5034 A.REFERRAL_DATE,
5035 AD_RUN_DATE,
5036 A.COOPERATION_DATE,
5037 NULL,
5038 A.APPLICATION_REQUESTED_DATE,
5039 A.APPLICATION_SENT_DATE,
5040 A.APPLICATION_RECEIVED_DATE,
5041 A.APPLICATION_SIGNED_DATE,
5042 AI_TRANSACTION_EVENT_SEQ_NUMB,
5043 LI_UPDATED_BY_ID
5044 FROM APPLICATION_CASE A
5045 WHERE A.APPLICATION_ID = AI_APPLICATION_ID
5046
5047);
5048
5049 GET DIAGNOSTICS LI_ROW_COUNT_QNTY = ROW_COUNT;
5050
5051 IF LI_ROW_COUNT_QNTY = 0
5052 THEN
5053 SET LC_MSG_CODE = LC_F_MSG_CODE;
5054 SET LS_ERROR_DESC = 'INSERT CASE_DETAIL FAILED';
5055 SET LC_SQLSTATE_CODE = '75000';
5056 SIGNAL SQLSTATE '75000';
5057 END IF;
5058
5059 IF EXISTS
5060 (SELECT 1
5061 FROM PENDING_REFERRAL_CASE
5062 WHERE APPLICATION_ID = AI_APPLICATION_ID)
5063 THEN
5064 SET LS_SQL_DESC = 'UPDATE PENDING_REFERRAL_CASE';
5065 SET LS_SQL_DATA_DESC =
5066 'APPLICATION_ID' || NVL (AI_APPLICATION_ID, 0);
5067
5068 UPDATE PENDING_REFERRAL_CASE
5069 SET CASE_ID = AI_CASE_ID,
5070 REFERRAL_STATUS_CODE = LC_C_REFERRAL_STATUS_CODE
5071 WHERE APPLICATION_ID = AI_APPLICATION_ID;
5072 END IF;
5073
5074 IF AC_CASE_TYPE_CODE = LC_E_CASE_TYPE_CODE
5075 THEN
5076 SET LS_SQL_DESC = 'INSERT CASE_OTHER_PARTY';
5077 SET LS_SQL_DATA_DESC =
5078 'CASE_ID : '
5079 || NVL (AI_CASE_ID, 0)
5080 || ',TRANSACTION_EVENT_SEQ_NUMB :'
5081 || NVL (AI_TRANSACTION_EVENT_SEQ_NUMB, 0)
5082 || ', UPDATED_BY_ID : '
5083 || NVL (LI_UPDATED_BY_ID, 0);
5084
5085 INSERT INTO CASE_OTHER_PARTY (CASE_ID,
5086 OTHER_PARTY_ID,
5087 TRANSACTION_EVENT_SEQ_NUMB,
5088 UPDATED_BY_ID)
5089 VALUES (AI_CASE_ID,
5090 LI_7777777_OTHER_PARTY_ID,
5091 AI_TRANSACTION_EVENT_SEQ_NUMB,
5092 LI_UPDATED_BY_ID);
5093
5094 GET DIAGNOSTICS LI_ROW_COUNT_QNTY = ROW_COUNT;
5095
5096 IF LI_ROW_COUNT_QNTY = 0
5097 THEN
5098 SET LC_MSG_CODE = LC_F_MSG_CODE;
5099 SET LS_ERROR_DESC = 'INSERT CASE_OTHER_PARTY FAILED';
5100 SET LC_SQLSTATE_CODE = '75000';
5101 SIGNAL SQLSTATE '75000';
5102 END IF;
5103 END IF;
5104
5105 OPEN PERSON_CUR;
5106
5107 SET LS_SQL_DESC = 'FETCH PERSON_CUR';
5108 SET LS_SQL_DATA_DESC =
5109 'UPDATED_BY_NAME '
5110 || NVL (AS_UPDATED_BY_NAME, '')
5111 || 'SCREEN/JOB CODE '
5112 || NVL (AC_SCREEN_CODE, AC_JOB_CODE);
5113
5114 FETCH_PERSON_LOOP:
5115 LOOP
5116 FETCH PERSON_CUR
5117 INTO LI_PERSONCUR_APPLICATION_PERSON_ID,
5118 LC_PERSONCUR_CASE_PARTY_ROLE_CODE,
5119 LS_PERSONCUR_LAST_NAME,
5120 LS_PERSONCUR_FIRST_NAME,
5121 LS_PERSONCUR_MIDDLE_NAME,
5122 LI_PERSONCUR_NOMADS_ICI_NUMB,
5123 LI_PERSONCUR_NOMADS_NCP_SEQ_NUMB,
5124 LI_PERSONCUR_NOMADS_UPI_NUMB,
5125 LI_PERSONCUR_DCFS_PERSON_NUMB,
5126 LI_PERSONCUR_MEDICAID_PERSON_NUMB,
5127 LC_PERSONCUR_WELFARE_TYPE_CODE,
5128 LC_PERSONCUR_REP_RELATIONSHIP_CODE,
5129 LC_PERSONCUR_FAMILY_VIOLENCE_CODE,
5130 LS_PERSONCUR_AUTH_REP_NAME,
5131 LC_PERSONCUR_NCP_RELN_TO_CHILD_CODE,
5132 LC_PERSONCUR_CST_RELN_TO_CHILD_CODE,
5133 LI_PERSONCUR_SSN_NUMB,
5134 LC_PERSONCUR_SSN_TYPE_CODE,
5135 LC_PERSONCUR_SSN_SOURCE_CODE,
5136 LC_PERSONCUR_SSN_STATUS_CODE,
5137 LI_PERSONCUR_SSN_ID,
5138 LC_PERSONCUR_LICENSE_ISSUE_STATE_CODE,
5139 LS_PERSONCUR_LICENSE_DRIVER_NUMB_IDC,
5140 LD_PERSONCUR_LICENSE_ISSUE_DATE,
5141 LS_PERSONCUR_LAST_ALIAS_NAME,
5142 LS_PERSONCUR_FIRST_ALIAS_NAME,
5143 LS_PERSONCUR_MIDDLE_ALIAS_NAME,
5144 LC_PERSONCUR_ALIAS_SUFFIX_NAME_CODE,
5145 LI_PERSONCUR_OTHP_INST_ID,
5146 LD_PERSONCUR_INCARCERATED_START_DATE,
5147 LD_PERSONCUR_INCARCERATED_END_DATE,
5148 LC_PERSONCUR_ESTABLISHMENT_STATE_CODE,
5149 LC_PERSONCUR_ESTABLISHMENT_METHOD_CODE,
5150 LB_PERSONCUR_PATERNITY_EST_IND,
5151 LD_PERSONCUR_PATERNITY_EST_DATE,
5152 LS_PERSONCUR_ESTABLISHMENT_DOCKET_IDC,
5153 LC_PERSONCUR_EST_FATHER_RELN_CODE,
5154 LI_PERSONCUR_EST_FATHER_PERSON_ID,
5155 LS_PERSONCUR_EST_FATHER_FIRST_NAME,
5156 LS_PERSONCUR_EST_FATHER_LAST_NAME,
5157 LS_PERSONCUR_EST_FATHER_MIDDLE_NAME,
5158 LC_PERSONCUR_EST_FATHER_SUFFIX_NAME_CODE,
5159 LS_PERSONCUR_EST_MOTHER_RELN_CODE,
5160 LI_PERSONCUR_EST_MOTHER_PERSON_ID,
5161 LS_PERSONCUR_EST_MOTHER_FIRST_NAME,
5162 LS_PERSONCUR_EST_MOTHER_LAST_NAME,
5163 LS_PERSONCUR_EST_MOTHER_MIDDLE_NAME,
5164 LC_PERSONCUR_EST_MOTHER_SUFFIX_NAME_CODE,
5165 LS_PERSONCUR_COMMENT_NOTE;
5166
5167 IF SQLCODE = 100
5168 THEN
5169 LEAVE FETCH_PERSON_LOOP;
5170 END IF;
5171
5172 SET LS_SQL_DESC = 'BATCH_COMMON$SP_UPDATE_PERSON_DETAIL';
5173 SET LS_SQL_DATA_DESC =
5174 'RUN_DATE :'
5175 || AD_RUN_DATE
5176 || ', APPLICATION_ID :'
5177 || NVL (AI_APPLICATION_ID, 0)
5178 || ', CASE_ID :'
5179 || NVL (AI_CASE_ID, 0)
5180 || ', APPLICATION_PERSON_ID :'
5181 || NVL (LI_PERSONCUR_APPLICATION_PERSON_ID, 0)
5182 || ', CASE_TYPE_CODE :'
5183 || NVL (AC_CASE_TYPE_CODE, '')
5184 || ', CASE_PARTY_ROLE_CODE :'
5185 || NVL (LC_PERSONCUR_CASE_PARTY_ROLE_CODE, '')
5186 || ', SCREEN_CODE :'
5187 || NVL (AC_SCREEN_CODE, '')
5188 || ', JOB_CODE :'
5189 || NVL (AC_JOB_CODE, '')
5190 || ', UPDATED_BY_NAME :'
5191 || AS_UPDATED_BY_NAME
5192 || ', TRANSACTION_EVENT_SEQ_NUMB :'
5193 || LI_TRANSACTION_EVENT_SEQ_NUMB;
5194
5195 CALL BATCH_COMMON$SP_UPDATE_PERSON_DETAIL (
5196 AD_RUN_DATE => AD_RUN_DATE,
5197 AI_CASE_ID => AI_CASE_ID,
5198 AI_APPLICATION_ID => AI_APPLICATION_ID,
5199 AI_APPLICATION_PERSON_ID =>
5200 LI_PERSONCUR_APPLICATION_PERSON_ID,
5201 AC_CASE_TYPE_CODE => AC_CASE_TYPE_CODE,
5202 AC_CASE_PARTY_ROLE_CODE =>
5203 LC_PERSONCUR_CASE_PARTY_ROLE_CODE,
5204 AI_TRANSACTION_EVENT_SEQ_NUMB =>
5205 LI_TRANSACTION_EVENT_SEQ_NUMB,
5206 AC_SCREEN_CODE => AC_SCREEN_CODE,
5207 AC_JOB_CODE => AC_JOB_CODE,
5208 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
5209 AI_OUT_PERSON_ID => LI_PERSON_ID,
5210 AC_MSG_CODE => LC_MSG_CODE,
5211 AS_ERROR_DESC => LS_ERROR_DESC);
5212
5213 IF LC_MSG_CODE <> LC_S_MSG_CODE
5214 THEN
5215 SET LC_SQLSTATE_CODE = '75000';
5216 SIGNAL SQLSTATE '75000';
5217 END IF;
5218
5219 IF EXISTS
5220 (SELECT 1
5221 FROM PENDING_REFERRAL_CASE
5222 WHERE APPLICATION_ID = AI_APPLICATION_ID)
5223 THEN
5224 SET LS_SQL_DESC = 'UPDATE PENDING_REFERRAL_PERSON';
5225 SET LS_SQL_DATA_DESC =
5226 'APPLICATION_ID :'
5227 || NVL (AI_APPLICATION_ID, 0)
5228 || ', NOMADS_UPI_NUMB : '
5229 || NVL (LI_PERSONCUR_NOMADS_UPI_NUMB, 0);
5230
5231 UPDATE PENDING_REFERRAL_PERSON
5232 SET PERSON_ID = LI_PERSON_ID
5233 WHERE EXISTS
5234 (SELECT 1
5235 FROM PENDING_REFERRAL_CASE A
5236 WHERE A.PENDING_REFERRAL_CASE_ID =
5237 PENDING_REFERRAL_PERSON.PENDING_REFERRAL_CASE_ID
5238 AND A.APPLICATION_ID = AI_APPLICATION_ID
5239 AND A.NOMADS_ICI_NUMB =
5240 LI_PERSONCUR_NOMADS_ICI_NUMB
5241 AND A.NOMADS_NCP_SEQ_NUMB =
5242 LI_PERSONCUR_NOMADS_NCP_SEQ_NUMB)
5243 AND PENDING_REFERRAL_PERSON.NOMADS_UPI_NUMB =
5244 LI_PERSONCUR_NOMADS_UPI_NUMB;
5245 END IF;
5246
5247 IF LC_PERSONCUR_CASE_PARTY_ROLE_CODE IN
5248 (LC_A_CASE_PARTY_ROLE_CODE, LC_P_CASE_PARTY_ROLE_CODE)
5249 THEN
5250 SET LI_NCP_PERSON_ID = LI_PERSON_ID;
5251 SET LS_RESPONDENT_NAME =
5252 NVL (LS_PERSONCUR_LAST_NAME, '')
5253 || NVL (LS_PERSONCUR_FIRST_NAME, '')
5254 || NVL (LS_PERSONCUR_MIDDLE_NAME, '');
5255 ELSEIF LC_PERSONCUR_CASE_PARTY_ROLE_CODE = LC_C_CASE_PARTY_ROLE_CODE
5256 THEN
5257 SET LI_CST_PERSON_ID = LI_PERSON_ID;
5258 SET LS_PETITIONER_NAME =
5259 NVL (LS_PERSONCUR_LAST_NAME, '')
5260 || NVL (LS_PERSONCUR_FIRST_NAME, '')
5261 || NVL (LS_PERSONCUR_MIDDLE_NAME, '');
5262 ELSEIF LC_PERSONCUR_CASE_PARTY_ROLE_CODE = LC_D_CASE_PARTY_ROLE_CODE
5263 THEN
5264 SET LI_CHILD_PERSON_ID = LI_PERSON_ID;
5265 END IF;
5266
5267 SET LS_SQL_DESC = 'BATCH_COMMON$SP_INSERT_CPER';
5268 SET LS_SQL_DATA_DESC =
5269 'CASE_ID :'
5270 || NVL (AI_CASE_ID, 0)
5271 || ', PERSON_ID :'
5272 || NVL (LI_PERSON_ID, 0)
5273 || ', CASE_PARTY_ROLE_CODE :'
5274 || NVL (LC_PERSONCUR_CASE_PARTY_ROLE_CODE, '')
5275 || ', REP_RELATIONSHIP_CODE:'
5276 || NVL (LC_PERSONCUR_REP_RELATIONSHIP_CODE, '')
5277 || ', FAMILY_VIOLENCE_CODE:'
5278 || NVL (LC_PERSONCUR_FAMILY_VIOLENCE_CODE, '')
5279 || ', SCREEN_CODE :'
5280 || NVL (AC_SCREEN_CODE, '')
5281 || ', UPDATED_BY_NAME :'
5282 || AS_UPDATED_BY_NAME
5283 || ', TRANSACTION_EVENT_SEQ_NUMB :'
5284 || LI_TRANSACTION_EVENT_SEQ_NUMB;
5285
5286 CALL BATCH_COMMON$SP_INSERT_CPER (
5287 AI_CASE_ID => AI_CASE_ID,
5288 AI_PERSON_ID => LI_PERSON_ID,
5289 AC_CASE_PARTY_ROLE_CODE =>
5290 LC_PERSONCUR_CASE_PARTY_ROLE_CODE,
5291 AC_CASE_PARTY_STATUS_CODE => LC_A_CASE_PARTY_STATUS_CODE,
5292 AC_REP_RELATIONSHIP_CODE =>
5293 LC_PERSONCUR_REP_RELATIONSHIP_CODE,
5294 AC_FAMILY_VIOLENCE_CODE =>
5295 LC_PERSONCUR_FAMILY_VIOLENCE_CODE,
5296 AS_AUTH_REP_NAME => LS_PERSONCUR_AUTH_REP_NAME,
5297 AD_EFFECTIVE_DATE => AD_RUN_DATE,
5298 AI_TRANSACTION_EVENT_SEQ_NUMB =>
5299 LI_TRANSACTION_EVENT_SEQ_NUMB,
5300 AC_SCREEN_CODE => AC_SCREEN_CODE,
5301 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
5302 AD_RUN_DATE => AD_RUN_DATE,
5303 AC_MSG_CODE => LC_MSG_CODE,
5304 AS_ERROR_DESC => LS_ERROR_DESC);
5305
5306 IF LC_MSG_CODE <> LC_S_MSG_CODE
5307 THEN
5308 SET LC_SQLSTATE_CODE = '75000';
5309 SIGNAL SQLSTATE '75000';
5310 END IF;
5311
5312 SET LS_SQL_DESC = 'BATCH_COMMON$SP_INSERT_PHIS';
5313 SET LS_SQL_DATA_DESC =
5314 'CASE_ID :'
5315 || NVL (AI_CASE_ID, 0)
5316 || ', PERSON_ID :'
5317 || NVL (LI_PERSON_ID, 0)
5318 || ', WELFARE_TYPE_CODE :'
5319 || NVL (LC_PERSONCUR_WELFARE_TYPE_CODE, '')
5320 || ', NOMADS_ICI_NUMB :'
5321 || NVL (LI_PERSONCUR_NOMADS_ICI_NUMB, 0)
5322 || ', NOMADS_NCP_SEQ_NUMB :'
5323 || NVL (LI_PERSONCUR_NOMADS_NCP_SEQ_NUMB, 0)
5324 || ', NOMADS_UPI_NUMB :'
5325 || NVL (LI_PERSONCUR_NOMADS_UPI_NUMB, 0)
5326 || ', MEDICAID_PERSON_NUMB :'
5327 || NVL (LI_PERSONCUR_MEDICAID_PERSON_NUMB, 0)
5328 || ', DCFS_PERSON_NUMB :'
5329 || NVL (LI_PERSONCUR_DCFS_PERSON_NUMB, 0)
5330 || ', EFFECTIVE_DATE :'
5331 || AD_RUN_DATE
5332 || ', END DATE :'
5333 || LD_HIGH_DATE
5334 || ', SCREEN_CODE :'
5335 || NVL (AC_SCREEN_CODE, '')
5336 || ', JOB_CODE :'
5337 || NVL (AC_JOB_CODE, '')
5338 || ', UPDATED_BY_NAME :'
5339 || AS_UPDATED_BY_NAME
5340 || ', TRANSACTION_EVENT_SEQ_NUMB :'
5341 || LI_TRANSACTION_EVENT_SEQ_NUMB;
5342
5343 CALL BATCH_COMMON$SP_INSERT_PHIS (
5344 AI_CASE_ID => AI_CASE_ID,
5345 AI_PERSON_ID => LI_PERSON_ID,
5346 AC_WELFARE_TYPE_CODE => LC_PERSONCUR_WELFARE_TYPE_CODE,
5347 AI_NOMADS_ICI_NUMB => LI_PERSONCUR_NOMADS_ICI_NUMB,
5348 AI_NOMADS_NCP_SEQ_NUMB => LI_PERSONCUR_NOMADS_NCP_SEQ_NUMB,
5349 AI_NOMADS_UPI_NUMB => LI_PERSONCUR_NOMADS_UPI_NUMB,
5350 AI_MEDICAID_PERSON_NUMB =>
5351 LI_PERSONCUR_MEDICAID_PERSON_NUMB,
5352 AI_DCFS_PERSON_NUMB => LI_PERSONCUR_DCFS_PERSON_NUMB,
5353 AD_EFFECTIVE_DATE => AD_RUN_DATE,
5354 AD_END_DATE => LD_HIGH_DATE,
5355 AC_MODIFICATION_REASON_CODE => NULL,
5356 AI_TRANSACTION_EVENT_SEQ_NUMB =>
5357 LI_TRANSACTION_EVENT_SEQ_NUMB,
5358 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
5359 AD_RUN_DATE => AD_RUN_DATE,
5360 AC_MSG_CODE => LC_MSG_CODE,
5361 AS_ERROR_DESC => LS_ERROR_DESC);
5362
5363 IF LC_MSG_CODE <> LC_S_MSG_CODE
5364 THEN
5365 SET LC_SQLSTATE_CODE = '75000';
5366 SIGNAL SQLSTATE '75000';
5367 END IF;
5368
5369 IF LI_PERSONCUR_SSN_NUMB IS NOT NULL
5370 THEN
5371 SET LS_SQL_DESC = 'BATCH_COMMON$SP_SSN_UPDATE';
5372 SET LS_SQL_DATA_DESC =
5373 'PERSON_ID : '
5374 || NVL (LI_PERSON_ID, 0)
5375 || ', SSN_NUMB : '
5376 || NVL (LI_PERSONCUR_SSN_NUMB, 0)
5377 || ', SSN_ID : '
5378 || NVL (LI_PERSONCUR_SSN_ID, 0)
5379 || ', SSN_TYPE_CODE : '
5380 || NVL (LC_PERSONCUR_SSN_TYPE_CODE, '')
5381 || ', SSN_STATUS_CODE : '
5382 || NVL (LC_PERSONCUR_SSN_STATUS_CODE, '')
5383 || ', SSN_SOURCE_CODE : '
5384 || NVL (LC_PERSONCUR_SSN_SOURCE_CODE, '')
5385 || ', SSN_TRUSTED_SOURCE_IND : FALSE, SCREEN_CODE :'
5386 || NVL (AC_SCREEN_CODE, '')
5387 || ', JOB_CODE :'
5388 || NVL (AC_JOB_CODE, '')
5389 || ', UPDATED_BY_NAME :'
5390 || AS_UPDATED_BY_NAME;
5391
5392 CALL BATCH_COMMON$SP_SSN_UPDATE (
5393 AI_PERSON_ID => LI_PERSON_ID,
5394 AI_SSN_NUMB => LI_PERSONCUR_SSN_NUMB,
5395 AI_SSN_ID => LI_PERSONCUR_SSN_ID,
5396 AI_PERSON_SSN_ID => LI_PERSONCUR_SSN_NUMB,
5397 AC_SSN_TYPE_CODE => LC_PERSONCUR_SSN_TYPE_CODE,
5398 AC_SSN_STATUS_CODE => LC_PERSONCUR_SSN_STATUS_CODE,
5399 AC_SSN_SOURCE_CODE => LC_PERSONCUR_SSN_SOURCE_CODE,
5400 AC_SSN_VERIFICATION_SOURCE_CODE => NULL,
5401 AC_SSN_SSA_VALIDITY_CODE => NULL,
5402 AB_SSN_TRUSTED_SOURCE_IND => FALSE,
5403 AD_SSN_VERIFICATION_DATE => NULL,
5404 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
5405 AI_TRANSACTION_EVENT_SEQ_NUMB => NULL,
5406 AD_RUN_DATE => AD_RUN_DATE,
5407 AC_SCREEN_CODE => AC_SCREEN_CODE,
5408 AC_JOB_CODE => AC_JOB_CODE,
5409 AI_NEW_PERSON_SSN_ID => LI_NEW_PERSON_SSN_ID,
5410 AC_MSG_CODE => LC_MSG_CODE,
5411 AS_ERROR_DESC => LS_ERROR_DESC);
5412
5413 IF ( ( AC_SCREEN_CODE IS NOT NULL
5414 AND LC_MSG_CODE <> LC_S_MSG_CODE)
5415 OR LC_MSG_CODE = LC_F_MSG_CODE
5416 OR ( LC_MSG_CODE <> LC_S_MSG_CODE
5417 AND BATCH_COMMON$SF_GET_BATE_ERROR_TYPE (LC_MSG_CODE) =
5418 LC_E_ERROR_TYPE_CODE))
5419 THEN
5420 SET LC_SQLSTATE_CODE = '75000';
5421 SIGNAL SQLSTATE '75000';
5422 ELSE
5423 IF LC_MSG_CODE <> LC_S_MSG_CODE
5424 THEN
5425 SET LS_SQL_DESC =
5426 LS_SQL_DESC || ' ' || 'BATCH_COMMON$SP_BATE_LOG';
5427
5428 CALL BATCH_COMMON$SP_BATE_LOG (
5429 AC_JOB_CODE => AC_JOB_CODE,
5430 AD_RUN_DATE => AD_RUN_DATE,
5431 AC_ERROR_TYPE_CODE => LC_E_ERROR_TYPE_CODE,
5432 AI_LINE_NUMB => 0,
5433 AC_ERROR_CODE => LC_MSG_CODE,
5434 AS_ERROR_NOTE => LS_ERROR_DESC,
5435 AS_LIST_KEY_NOTE => LS_SQL_DATA_DESC,
5436 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
5437 AS_PROCESS_NAME => LS_ROUTINE_NAME,
5438 AS_PROCEDURE_NAME => LS_PROCEDURE_NAME,
5439 AC_MSG_CODE => LC_MSG_CODE,
5440 AS_ERROR_DESC => LS_ERROR_DESC);
5441
5442 IF LC_MSG_CODE = LC_F_MSG_CODE
5443 THEN
5444 SET LC_SQLSTATE_CODE = '75000';
5445 SIGNAL SQLSTATE '75000';
5446 END IF;
5447 END IF;
5448 END IF;
5449 END IF;
5450
5451 IF LI_CHILD_PERSON_ID > 0
5452 THEN
5453 IF TRIM (LC_PERSONCUR_NCP_RELN_TO_CHILD_CODE) <> ''
5454 THEN
5455 SET LS_SQL_DESC =
5456 'BATCH_COMMON$SP_UPDATE_PRRL - NCP_RELN_TO_CHILD';
5457 SET LS_SQL_DATA_DESC =
5458 'CASE_ID :'
5459 || NVL (AI_CASE_ID, 0)
5460 || ', NCP_PERSON_ID :'
5461 || NVL (LI_NCP_PERSON_ID, 0)
5462 || ', CHILD_PERSON_ID :'
5463 || NVL (LI_CHILD_PERSON_ID, 0)
5464 || ', PERSON_RELATIONSHIP_CODE :'
5465 || LC_M_PERSON_RELATIONSHIP_CODE
5466 || ', RELATIONSHIP_TYPE_CODE:'
5467 || NVL (LC_PERSONCUR_NCP_RELN_TO_CHILD_CODE, '')
5468 || ', SCREEN_CODE :'
5469 || NVL (AC_SCREEN_CODE, '')
5470 || ', JOB_CODE :'
5471 || NVL (AC_JOB_CODE, '')
5472 || ', UPDATED_BY_NAME :'
5473 || AS_UPDATED_BY_NAME
5474 || ', TRANSACTION_EVENT_SEQ_NUMB :'
5475 || LI_TRANSACTION_EVENT_SEQ_NUMB;
5476
5477 CALL BATCH_COMMON$SP_UPDATE_PRRL (
5478 AI_PERSON_RELATIONSHIP_ID => NULL,
5479 AI_CASE_ID => AI_CASE_ID,
5480 AI_RELATED_PERSON_ID => LI_NCP_PERSON_ID,
5481 AI_PERSON_ID => LI_CHILD_PERSON_ID,
5482 AC_PERSON_RELATIONSHIP_CODE =>
5483 LC_M_PERSON_RELATIONSHIP_CODE,
5484 AC_RELN_TYPE_CODE =>
5485 LC_PERSONCUR_NCP_RELN_TO_CHILD_CODE,
5486 AI_TRANSACTION_EVENT_SEQ_NUMB =>
5487 LI_TRANSACTION_EVENT_SEQ_NUMB,
5488 AC_SCREEN_CODE => AC_SCREEN_CODE,
5489 AC_JOB_CODE => AC_JOB_CODE,
5490 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
5491 AC_MSG_CODE => LC_MSG_CODE,
5492 AS_ERROR_DESC => LS_ERROR_DESC);
5493
5494 IF LC_MSG_CODE <> LC_S_MSG_CODE
5495 THEN
5496 IF AC_SCREEN_CODE IS NULL
5497 THEN
5498 SET LS_SQL_DESC =
5499 LS_SQL_DESC || ' ' || 'BATCH_COMMON$SP_BATE_LOG';
5500
5501 CALL BATCH_COMMON$SP_BATE_LOG (
5502 AC_JOB_CODE => AC_JOB_CODE,
5503 AD_RUN_DATE => AD_RUN_DATE,
5504 AC_ERROR_TYPE_CODE => LC_E_ERROR_TYPE_CODE,
5505 AI_LINE_NUMB => 0,
5506 AC_ERROR_CODE => NULL,
5507 AS_ERROR_NOTE => LS_ERROR_DESC,
5508 AS_LIST_KEY_NOTE => LS_SQL_DATA_DESC,
5509 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
5510 AS_PROCESS_NAME => LS_ROUTINE_NAME,
5511 AS_PROCEDURE_NAME => LS_PROCEDURE_NAME,
5512 AC_MSG_CODE => LC_MSG_CODE,
5513 AS_ERROR_DESC => LS_ERROR_DESC);
5514
5515 IF LC_MSG_CODE = LC_F_MSG_CODE
5516 THEN
5517 SET LC_SQLSTATE_CODE = '75000';
5518 SIGNAL SQLSTATE '75000';
5519 END IF;
5520 ELSE
5521 SET LC_SQLSTATE_CODE = '75000';
5522 SIGNAL SQLSTATE '75000';
5523 END IF;
5524 END IF;
5525 END IF;
5526
5527 IF AC_CASE_TYPE_CODE <> LC_E_CASE_TYPE_CODE
5528 AND TRIM (LC_PERSONCUR_CST_RELN_TO_CHILD_CODE) <> ''
5529 THEN
5530 SET LS_SQL_DESC =
5531 'BATCH_COMMON$SP_UPDATE_PRRL - CST_RELN_TO_CHILD';
5532 SET LS_SQL_DATA_DESC =
5533 'CASE_ID :'
5534 || NVL (AI_CASE_ID, 0)
5535 || ', CST_PERSON_ID :'
5536 || NVL (LI_CST_PERSON_ID, 0)
5537 || ', CHILD_PERSON_ID :'
5538 || NVL (LI_CHILD_PERSON_ID, 0)
5539 || ', PERSON_RELATIONSHIP_CODE :'
5540 || LC_F_PERSON_RELATIONSHIP_CODE
5541 || ', RELATIONSHIP_TYPE_CODE:'
5542 || NVL (LC_PERSONCUR_CST_RELN_TO_CHILD_CODE, '')
5543 || ', SCREEN_CODE :'
5544 || NVL (AC_SCREEN_CODE, '')
5545 || ', JOB_CODE :'
5546 || NVL (AC_JOB_CODE, '')
5547 || ', UPDATED_BY_NAME :'
5548 || AS_UPDATED_BY_NAME
5549 || ', TRANSACTION_EVENT_SEQ_NUMB :'
5550 || LI_TRANSACTION_EVENT_SEQ_NUMB;
5551
5552 CALL BATCH_COMMON$SP_UPDATE_PRRL (
5553 AI_PERSON_RELATIONSHIP_ID => NULL,
5554 AI_CASE_ID => AI_CASE_ID,
5555 AI_RELATED_PERSON_ID => LI_CST_PERSON_ID,
5556 AI_PERSON_ID => LI_CHILD_PERSON_ID,
5557 AC_PERSON_RELATIONSHIP_CODE =>
5558 LC_F_PERSON_RELATIONSHIP_CODE,
5559 AC_RELN_TYPE_CODE =>
5560 LC_PERSONCUR_CST_RELN_TO_CHILD_CODE,
5561 AI_TRANSACTION_EVENT_SEQ_NUMB =>
5562 LI_TRANSACTION_EVENT_SEQ_NUMB,
5563 AC_SCREEN_CODE => AC_SCREEN_CODE,
5564 AC_JOB_CODE => AC_JOB_CODE,
5565 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
5566 AC_MSG_CODE => LC_MSG_CODE,
5567 AS_ERROR_DESC => LS_ERROR_DESC);
5568
5569 IF LC_MSG_CODE <> LC_S_MSG_CODE
5570 THEN
5571 IF AC_SCREEN_CODE IS NULL
5572 THEN
5573 SET LS_SQL_DESC =
5574 LS_SQL_DESC || ' ' || 'BATCH_COMMON$SP_BATE_LOG';
5575
5576 CALL BATCH_COMMON$SP_BATE_LOG (
5577 AC_JOB_CODE => AC_JOB_CODE,
5578 AD_RUN_DATE => AD_RUN_DATE,
5579 AC_ERROR_TYPE_CODE => LC_E_ERROR_TYPE_CODE,
5580 AI_LINE_NUMB => 0,
5581 AC_ERROR_CODE => NULL,
5582 AS_ERROR_NOTE => LS_ERROR_DESC,
5583 AS_LIST_KEY_NOTE => LS_SQL_DATA_DESC,
5584 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
5585 AS_PROCESS_NAME => LS_ROUTINE_NAME,
5586 AS_PROCEDURE_NAME => LS_PROCEDURE_NAME,
5587 AC_MSG_CODE => LC_MSG_CODE,
5588 AS_ERROR_DESC => LS_ERROR_DESC);
5589
5590 IF LC_MSG_CODE = LC_F_MSG_CODE
5591 THEN
5592 SET LC_SQLSTATE_CODE = '75000';
5593 SIGNAL SQLSTATE '75000';
5594 END IF;
5595 ELSE
5596 SET LC_SQLSTATE_CODE = '75000';
5597 SIGNAL SQLSTATE '75000';
5598 END IF;
5599 END IF;
5600 END IF;
5601
5602 OPEN INSURANCE_CUR;
5603
5604 SET LS_SQL_DESC = 'FETCH INSURANCE_CUR';
5605 SET LS_SQL_DATA_DESC =
5606 'UPDATED_BY_NAME '
5607 || NVL (AS_UPDATED_BY_NAME, '')
5608 || 'SCREEN/JOB CODE '
5609 || NVL (AC_SCREEN_CODE, AC_JOB_CODE);
5610
5611 FETCH_INSURANCE_LOOP:
5612 LOOP
5613 FETCH INSURANCE_CUR
5614 INTO LI_INSURANCECUR_APPLICATION_PERSON_ID,
5615 LC_INSURANCECUR_INSURANCE_TYPE_CODE,
5616 LC_INSURANCECUR_OTHP_SOI_SOURCE_CODE,
5617 LS_INSURANCECUR_INSURANCE_CARRIER_NAME,
5618 LB_INSURANCECUR_ADDR_STD_IND,
5619 LS_INSURANCECUR_LINE1_ADDR,
5620 LS_INSURANCECUR_LINE2_ADDR,
5621 LS_INSURANCECUR_CITY_ADDR,
5622 LC_INSURANCECUR_STATE_CODE,
5623 LS_INSURANCECUR_POST_CODE,
5624 LC_INSURANCECUR_COUNTRY_CODE,
5625 LC_INSURANCECUR_COUNTY_CODE,
5626 LS_INSURANCECUR_POLICY_IDC,
5627 LI_INSURANCECUR_POLICY_HOLDER_SSN_NUMB,
5628 LS_INSURANCECUR_POLICY_HOLDER_LAST_NAME,
5629 LS_INSURANCECUR_POLICY_HOLDER_FIRST_NAME,
5630 LS_INSURANCECUR_POLICY_HOLDER_MIDDLE_NAME,
5631 LC_INSURANCECUR_POLICY_HOLDER_SUFFIX_NAME,
5632 LD_INSURANCECUR_COVERAGE_BEGIN_DATE,
5633 LD_INSURANCECUR_COVERAGE_END_DATE;
5634
5635 IF SQLCODE = 100
5636 THEN
5637 LEAVE FETCH_INSURANCE_LOOP;
5638 END IF;
5639
5640 SET LS_SQL_DESC = 'CALL BATCH_COMMON$SP_INSURANCE_UPDATE';
5641 SET LS_SQL_DATA_DESC =
5642 'CHILD_ID :'
5643 || NVL (LI_CHILD_PERSON_ID, 0)
5644 || 'PERSON_ID :'
5645 || NVL (LI_NCP_PERSON_ID, 0)
5646 || 'INSURANCE_CARRIER_NAME :'
5647 || NVL (LS_INSURANCECUR_INSURANCE_CARRIER_NAME, '')
5648 || ', INS_OTHP_SOI_SOURCE_CODE :'
5649 || NVL (LC_INSURANCECUR_OTHP_SOI_SOURCE_CODE, '')
5650 || ', INS_HOLDER_EMP_LINE1_ADDR :'
5651 || NVL (LS_INSURANCECUR_LINE1_ADDR, '')
5652 || ', INS_HOLDER_EMP_LINE2_ADDR :'
5653 || NVL (LS_INSURANCECUR_LINE2_ADDR, '')
5654 || ', INS_HOLDER_EMP_CITY_NAME :'
5655 || NVL (LS_INSURANCECUR_CITY_ADDR, '')
5656 || ', INS_HOLDER_EMP_STATE_CODE:'
5657 || NVL (LC_INSURANCECUR_STATE_CODE, '')
5658 || ', INS_HOLDER_EMP_POST_CODE:'
5659 || NVL (LS_INSURANCECUR_POST_CODE, '')
5660 || ', COVERAGE_CODE:'
5661 || NVL (LC_INSURANCECUR_INSURANCE_TYPE_CODE, '')
5662 || ', INSURANCE_POLICY_IDC:'
5663 || NVL (LS_INSURANCECUR_POLICY_IDC, '')
5664 || ', POLICY_HOLDER_SSN_NUMB:'
5665 || NVL (LI_INSURANCECUR_POLICY_HOLDER_SSN_NUMB, 0)
5666 || ', POLICY_HOLDER_LAST_NAME:'
5667 || NVL (LS_INSURANCECUR_POLICY_HOLDER_LAST_NAME, '')
5668 || ', POLICY_HOLDER_FIRST_NAME:'
5669 || NVL (LS_INSURANCECUR_POLICY_HOLDER_FIRST_NAME, '')
5670 || ', POLICY_HOLDER_MIDDLE_NAME:'
5671 || NVL (LS_INSURANCECUR_POLICY_HOLDER_MIDDLE_NAME, '')
5672 || ', POLICY_HOLDER_SUFFIX_NAME_CODE:'
5673 || NVL (LC_INSURANCECUR_POLICY_HOLDER_SUFFIX_NAME, '')
5674 || ', INSURANCE_EFFECTIVE_DATE:'
5675 || NVL (LD_INSURANCECUR_COVERAGE_BEGIN_DATE,
5676 LD_LOW_DATE)
5677 || ', INSURANCE_END_DATE:'
5678 || NVL (LD_INSURANCECUR_COVERAGE_END_DATE, LD_LOW_DATE)
5679 || ', SCREEN_CODE :'
5680 || NVL (AC_SCREEN_CODE, '')
5681 || ', JOB_CODE :'
5682 || NVL (AC_JOB_CODE, '')
5683 || ', UPDATED_BY_NAME :'
5684 || AS_UPDATED_BY_NAME
5685 || ', TRANSACTION_EVENT_SEQ_NUMB :'
5686 || AI_TRANSACTION_EVENT_SEQ_NUMB;
5687
5688 CALL BATCH_COMMON$SP_INSURANCE_UPDATE (
5689 AI_CHILD_ID => LI_CHILD_PERSON_ID,
5690 AI_PERSON_ID => LI_NCP_PERSON_ID,
5691 AS_INSURANCE_CARRIER_NAME =>
5692 LS_INSURANCECUR_INSURANCE_CARRIER_NAME,
5693 AS_INSURANCE_COMP_LINE1_ADDR =>
5694 LS_INSURANCECUR_LINE1_ADDR,
5695 AS_INSURANCE_COMP_LINE2_ADDR =>
5696 LS_INSURANCECUR_LINE2_ADDR,
5697 AS_INSURANCE_COMP_CITY_NAME =>
5698 LS_INSURANCECUR_CITY_ADDR,
5699 AC_INSURANCE_COMP_STATE_CODE =>
5700 LC_INSURANCECUR_STATE_CODE,
5701 AS_INSURANCE_COMP_POST_CODE =>
5702 LS_INSURANCECUR_POST_CODE,
5703 AC_COVERAGE_CODE =>
5704 LC_INSURANCECUR_INSURANCE_TYPE_CODE,
5705 AS_INSURANCE_POLICY_IDC => LS_INSURANCECUR_POLICY_IDC,
5706 AI_POLICY_HOLDER_SSN_NUMB =>
5707 LI_INSURANCECUR_POLICY_HOLDER_SSN_NUMB,
5708 AS_POLICY_HOLDER_LAST_NAME =>
5709 LS_INSURANCECUR_POLICY_HOLDER_LAST_NAME,
5710 AS_POLICY_HOLDER_FIRST_NAME =>
5711 LS_INSURANCECUR_POLICY_HOLDER_FIRST_NAME,
5712 AS_POLICY_HOLDER_MIDDLE_NAME =>
5713 LS_INSURANCECUR_POLICY_HOLDER_MIDDLE_NAME,
5714 AC_POLICY_HOLDER_SUFFIX_NAME_CODE =>
5715 LC_INSURANCECUR_POLICY_HOLDER_SUFFIX_NAME,
5716 AD_INSURANCE_EFFECTIVE_DATE =>
5717 LD_INSURANCECUR_COVERAGE_BEGIN_DATE,
5718 AD_INSURANCE_END_DATE =>
5719 LD_INSURANCECUR_COVERAGE_END_DATE,
5720 AC_SCREEN_CODE => AC_SCREEN_CODE,
5721 AC_JOB_CODE => AC_JOB_CODE,
5722 AC_OTHP_SOI_SOURCE_CODE =>
5723 LC_INSURANCECUR_OTHP_SOI_SOURCE_CODE,
5724 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
5725 AI_TRANSACTION_EVENT_SEQ_NUMB =>
5726 AI_TRANSACTION_EVENT_SEQ_NUMB,
5727 AC_MSG_CODE => LC_MSG_CODE,
5728 AS_ERROR_DESC => LS_ERROR_DESC);
5729
5730 IF ( LC_MSG_CODE = LC_F_MSG_CODE
5731 OR ( LC_MSG_CODE <> LC_S_MSG_CODE
5732 AND BATCH_COMMON$SF_GET_BATE_ERROR_TYPE (LC_MSG_CODE) =
5733 LC_E_ERROR_TYPE_CODE))
5734 THEN
5735 SET LC_SQLSTATE_CODE = '75000';
5736 SIGNAL SQLSTATE '75000';
5737 ELSE
5738 IF LC_MSG_CODE <> LC_S_MSG_CODE
5739 THEN
5740 SET LS_SQL_DESC =
5741 LS_SQL_DESC || ' ' || 'BATCH_COMMON$SP_BATE_LOG';
5742
5743 CALL BATCH_COMMON$SP_BATE_LOG (
5744 AC_JOB_CODE => AC_JOB_CODE,
5745 AD_RUN_DATE => AD_RUN_DATE,
5746 AC_ERROR_TYPE_CODE => LC_E_ERROR_TYPE_CODE,
5747 AI_LINE_NUMB => 0,
5748 AC_ERROR_CODE => LC_MSG_CODE,
5749 AS_ERROR_NOTE => LS_ERROR_DESC,
5750 AS_LIST_KEY_NOTE => LS_SQL_DATA_DESC,
5751 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
5752 AS_PROCESS_NAME => LS_ROUTINE_NAME,
5753 AS_PROCEDURE_NAME => LS_PROCEDURE_NAME,
5754 AC_MSG_CODE => LC_MSG_CODE,
5755 AS_ERROR_DESC => LS_ERROR_DESC);
5756
5757 IF LC_MSG_CODE = LC_F_MSG_CODE
5758 THEN
5759 SET LC_SQLSTATE_CODE = '75000';
5760 SIGNAL SQLSTATE '75000';
5761 END IF;
5762 END IF;
5763 END IF;
5764 END LOOP FETCH_INSURANCE_LOOP;
5765
5766 CLOSE INSURANCE_CUR;
5767 END IF;
5768
5769 IF AC_SCREEN_CODE IS NOT NULL
5770 THEN
5771 IF LS_PERSONCUR_LICENSE_DRIVER_NUMB_IDC IS NOT NULL
5772 THEN
5773 SET LS_SQL_DESC = 'BATCH_COMMON$SP_LICENSE_UPDATE';
5774 SET LS_SQL_DATA_DESC =
5775 'PERSON_ID : '
5776 || NVL (LI_PERSON_ID, 0)
5777 || ', LICENSE_TYPE_CODE : '
5778 || LC_201_LICENSE_TYPE_CODE
5779 || ', LICENSE_STATUS_CODE : '
5780 || LC_A_LICENSE_STATUS_CODE
5781 || ', OTHER_PARTY_ID : '
5782 || LI_7888889638_OTHER_PARTY_ID
5783 || ', ISSUING_STATE_CODE : '
5784 || NVL (LC_PERSONCUR_LICENSE_ISSUE_STATE_CODE, '')
5785 || ', LICENSE_VERIFICATION_SOURCE_CODE : '
5786 || LC_OTH_LICENSE_VERIFY_SOURCE_CODE
5787 || ', LICENSE_SOURCE_CODE : '
5788 || LC_OTH_LICENSE_SOURCE_CODE
5789 || ', LICENSE_NUMBER : '
5790 || LS_PERSONCUR_LICENSE_DRIVER_NUMB_IDC
5791 || ', ISSUING_DATE : '
5792 || NVL (LD_PERSONCUR_LICENSE_ISSUE_DATE, LD_LOW_DATE)
5793 || ', JOB_CODE :'
5794 || NVL (AC_JOB_CODE, '')
5795 || ', UPDATED_BY_NAME :'
5796 || AS_UPDATED_BY_NAME
5797 || ', TRANSACTION_EVENT_SEQ_NUMB :'
5798 || LI_TRANSACTION_EVENT_SEQ_NUMB;
5799
5800 CALL BATCH_COMMON$SP_LICENSE_UPDATE (
5801 AI_PERSON_ID => LI_PERSON_ID,
5802 AC_LICENSE_TYPE_CODE => LC_201_LICENSE_TYPE_CODE,
5803 AC_LICENSE_STATUS_CODE => LC_A_LICENSE_STATUS_CODE,
5804 AI_OTHER_PARTY_ID =>
5805 LI_7888889638_OTHER_PARTY_ID,
5806 AC_ISSUING_STATE_CODE =>
5807 LC_PERSONCUR_LICENSE_ISSUE_STATE_CODE,
5808 AC_LIC_VERIF_SOURCE_CODE =>
5809 LC_OTH_LICENSE_VERIFY_SOURCE_CODE,
5810 AC_LICENSE_SOURCE_CODE => LC_OTH_LICENSE_SOURCE_CODE,
5811 AS_LICENSE_IDC =>
5812 LS_PERSONCUR_LICENSE_DRIVER_NUMB_IDC,
5813 AD_ISSUING_DATE =>
5814 LD_PERSONCUR_LICENSE_ISSUE_DATE,
5815 AC_JOB_CODE => AC_JOB_CODE,
5816 AD_RUN_DATE => AD_RUN_DATE,
5817 AI_TRANSACTION_EVENT_SEQ_NUMB =>
5818 LI_TRANSACTION_EVENT_SEQ_NUMB,
5819 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
5820 AC_MSG_CODE => LC_MSG_CODE,
5821 AS_ERROR_DESC => LS_ERROR_DESC);
5822
5823 IF LC_MSG_CODE <> LC_S_MSG_CODE
5824 THEN
5825 SET LC_SQLSTATE_CODE = '75000';
5826 SIGNAL SQLSTATE '75000';
5827 END IF;
5828 END IF;
5829
5830 IF LS_PERSONCUR_LAST_ALIAS_NAME IS NOT NULL
5831 OR LS_PERSONCUR_FIRST_ALIAS_NAME IS NOT NULL
5832 OR LS_PERSONCUR_MIDDLE_ALIAS_NAME IS NOT NULL
5833 OR LC_PERSONCUR_ALIAS_SUFFIX_NAME_CODE IS NOT NULL
5834 THEN
5835 SET LS_SQL_DESC = 'BATCH_COMMON$SP_UPDATE_PANM';
5836 SET LS_SQL_DATA_DESC =
5837 'PERSON_ID : '
5838 || NVL (LI_PERSON_ID, 0)
5839 || ', SUFFIX_NAME_CODE : '
5840 || NVL (LC_PERSONCUR_ALIAS_SUFFIX_NAME_CODE, '')
5841 || ', LAST_NAME : '
5842 || NVL (LS_PERSONCUR_LAST_ALIAS_NAME, '')
5843 || ', FIRST_NAME : '
5844 || NVL (LS_PERSONCUR_FIRST_ALIAS_NAME, '')
5845 || ', MIDDLE_NAME : '
5846 || NVL (LS_PERSONCUR_MIDDLE_ALIAS_NAME, '')
5847 || ', SCREEN_CODE :'
5848 || NVL (AC_SCREEN_CODE, '')
5849 || ', JOB_CODE :'
5850 || NVL (AC_JOB_CODE, '')
5851 || ', UPDATED_BY_NAME :'
5852 || AS_UPDATED_BY_NAME
5853 || ', TRANSACTION_EVENT_SEQ_NUMB :'
5854 || LI_TRANSACTION_EVENT_SEQ_NUMB;
5855
5856 CALL BATCH_COMMON$SP_UPDATE_PANM (
5857 AI_PERSON_AKA_ID => NULL,
5858 AI_PERSON_ID => LI_PERSON_ID,
5859 AC_SUFFIX_NAME_CODE =>
5860 LC_PERSONCUR_ALIAS_SUFFIX_NAME_CODE,
5861 AS_LAST_NAME => LS_PERSONCUR_LAST_ALIAS_NAME,
5862 AS_FIRST_NAME => LS_PERSONCUR_FIRST_ALIAS_NAME,
5863 AS_MIDDLE_NAME => LS_PERSONCUR_MIDDLE_ALIAS_NAME,
5864 AI_TRANSACTION_EVENT_SEQ_NUMB =>
5865 LI_TRANSACTION_EVENT_SEQ_NUMB,
5866 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
5867 AC_SCREEN_CODE => AC_SCREEN_CODE,
5868 AC_JOB_CODE => AC_JOB_CODE,
5869 AC_MSG_CODE => LC_MSG_CODE,
5870 AS_ERROR_DESC => LS_ERROR_DESC);
5871
5872 IF LC_MSG_CODE <> LC_S_MSG_CODE
5873 THEN
5874 SET LC_SQLSTATE_CODE = '75000';
5875 SIGNAL SQLSTATE '75000';
5876 END IF;
5877 END IF;
5878
5879 IF LI_PERSONCUR_OTHP_INST_ID IS NOT NULL
5880 THEN
5881 SET LS_SQL_DESC = 'BATCH_COMMON$SP_UPDATE_PINC ';
5882 SET LS_SQL_DATA_DESC =
5883 'PERSON_ID : '
5884 || NVL (LI_PERSON_ID, 0)
5885 || ', INSTITUTION_ID : '
5886 || NVL (LI_PERSONCUR_OTHP_INST_ID, 0)
5887 || ', INSTITUTION_TYPE_CODE : '
5888 || LC_5_INSTITUTION_TYPE_CODE
5889 || ', INCARCERATION_SOURCE_CODE : '
5890 || LC_OTH_INCARCERATION_SOURCE_CODE
5891 || ', INSTITUTION_STATUS_CODE : '
5892 || LC_A_INSTITUTION_STATUS_CODE
5893 || ', INCARCERATION_DATE : '
5894 || NVL (LD_PERSONCUR_INCARCERATED_START_DATE,
5895 LD_LOW_DATE)
5896 || ', RELEASE_DATE : '
5897 || NVL (LD_PERSONCUR_INCARCERATED_END_DATE,
5898 LD_LOW_DATE)
5899 || ', SCREEN_CODE :'
5900 || NVL (AC_SCREEN_CODE, '')
5901 || ', JOB_CODE :'
5902 || NVL (AC_JOB_CODE, '')
5903 || ', UPDATED_BY_NAME :'
5904 || AS_UPDATED_BY_NAME;
5905
5906 CALL BATCH_COMMON$SP_UPDATE_PINC (
5907 AI_PERSON_ID => LI_PERSON_ID,
5908 AI_INSTITUTION_ID => LI_PERSONCUR_OTHP_INST_ID,
5909 AC_INSTITUTION_TYPE_CODE =>
5910 LC_5_INSTITUTION_TYPE_CODE,
5911 AC_INCARCERATION_SOURCE_CODE =>
5912 LC_OTH_INCARCERATION_SOURCE_CODE,
5913 AC_INSTITUTION_STATUS_CODE =>
5914 LC_A_INSTITUTION_STATUS_CODE,
5915 AD_RELEASE_DATE =>
5916 LD_PERSONCUR_INCARCERATED_END_DATE,
5917 AD_INCARCERATION_DATE =>
5918 LD_PERSONCUR_INCARCERATED_START_DATE,
5919 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
5920 AC_SCREEN_CODE => AC_SCREEN_CODE,
5921 AC_JOB_CODE => AC_JOB_CODE,
5922 AI_NEW_INCARCERATION_ID => LI_NEW_INCARCERATION_ID,
5923 AC_MSG_CODE => LC_MSG_CODE,
5924 AS_ERROR_DESC => LS_ERROR_DESC);
5925
5926 IF LC_MSG_CODE <> LC_S_MSG_CODE
5927 THEN
5928 SET LC_SQLSTATE_CODE = '75000';
5929 SIGNAL SQLSTATE '75000';
5930 END IF;
5931 END IF;
5932
5933 IF LB_PERSONCUR_PATERNITY_EST_IND IS NOT NULL
5934 THEN
5935 SET LS_SQL_DESC = 'CALL BATCH_COMMON$SP_UPDATE_PPAT';
5936 SET LS_SQL_DATA_DESC =
5937 'PERSON_ID : '
5938 || NVL (LI_PERSON_ID, 0)
5939 || ', EST_FATHER_RELN_CODE : '
5940 || NVL (LC_PERSONCUR_EST_FATHER_RELN_CODE, '')
5941 || ', EST_FATHER_PERSON_ID : '
5942 || NVL (LI_PERSONCUR_EST_FATHER_PERSON_ID, 0)
5943 || ', EST_FATHER_LAST_NAME : '
5944 || NVL (LS_PERSONCUR_EST_FATHER_LAST_NAME, '')
5945 || ', EST_FATHER_FIRST_NAME : '
5946 || NVL (LS_PERSONCUR_EST_FATHER_FIRST_NAME, '')
5947 || ', EST_FATHER_MIDDLE_NAME : '
5948 || NVL (LS_PERSONCUR_EST_FATHER_MIDDLE_NAME, '')
5949 || ', EST_FATHER_SUFFIX_NAME_CODE : '
5950 || NVL (LC_PERSONCUR_EST_FATHER_SUFFIX_NAME_CODE, '')
5951 || ', EST_MOTHER_RELN_CODE : '
5952 || NVL (LS_PERSONCUR_EST_MOTHER_RELN_CODE, '')
5953 || ', EST_MOTHER_PERSON_ID : '
5954 || NVL (LI_PERSONCUR_EST_MOTHER_PERSON_ID, 0)
5955 || ', EST_MOTHER_LAST_NAME : '
5956 || NVL (LS_PERSONCUR_EST_MOTHER_LAST_NAME, '')
5957 || ', EST_MOTHER_FIRST_NAME : '
5958 || NVL (LS_PERSONCUR_EST_MOTHER_FIRST_NAME, '')
5959 || ', EST_MOTHER_MIDDLE_NAME : '
5960 || NVL (LS_PERSONCUR_EST_MOTHER_MIDDLE_NAME, '')
5961 || ', EST_MOTHER_SUFFIX_NAME_CODE : '
5962 || NVL (LC_PERSONCUR_EST_MOTHER_SUFFIX_NAME_CODE, '')
5963 || ', ESTABLISHMENT_METHOD_CODE : '
5964 || NVL (LC_PERSONCUR_ESTABLISHMENT_METHOD_CODE, '')
5965 || ', PATERNITY_EST_DATE : '
5966 || NVL (LD_PERSONCUR_PATERNITY_EST_DATE, LD_LOW_DATE)
5967 || ', ESTABLISHMENT_STATE_CODE : '
5968 || NVL (LC_PERSONCUR_ESTABLISHMENT_STATE_CODE, '')
5969 || ', ESTABLISHMENT_DOCKET_IDC : '
5970 || NVL (LS_PERSONCUR_ESTABLISHMENT_DOCKET_IDC, '')
5971 || ', SCREEN_CODE :'
5972 || NVL (AC_SCREEN_CODE, '')
5973 || ', JOB_CODE :'
5974 || NVL (AC_JOB_CODE, '')
5975 || ', UPDATED_BY_NAME :'
5976 || AS_UPDATED_BY_NAME
5977 || ', TRANSACTION_EVENT_SEQ_NUMB :'
5978 || LI_TRANSACTION_EVENT_SEQ_NUMB;
5979
5980 CALL BATCH_COMMON$SP_UPDATE_PPAT (
5981 AI_PERSON_PATERNITY_ID => NULL,
5982 AI_PERSON_ID => LI_PERSON_ID,
5983 AC_EST_MOTHER_RELN_CODE =>
5984 LC_PERSONCUR_EST_FATHER_RELN_CODE,
5985 AI_EST_MOTHER_PERSON_NUMB =>
5986 LI_PERSONCUR_EST_FATHER_PERSON_ID,
5987 AS_EST_MOTHER_LAST_NAME =>
5988 LS_PERSONCUR_EST_FATHER_LAST_NAME,
5989 AS_EST_MOTHER_FIRST_NAME =>
5990 LS_PERSONCUR_EST_FATHER_FIRST_NAME,
5991 AS_EST_MOTHER_MIDDLE_NAME =>
5992 LS_PERSONCUR_EST_FATHER_MIDDLE_NAME,
5993 AC_EST_MOTHER_SUFFIX_CODE =>
5994 LC_PERSONCUR_EST_FATHER_SUFFIX_NAME_CODE,
5995 AC_EST_FATHER_RELN_CODE =>
5996 LS_PERSONCUR_EST_MOTHER_RELN_CODE,
5997 AI_EST_FATHER_PERSON_NUMB =>
5998 LI_PERSONCUR_EST_MOTHER_PERSON_ID,
5999 AS_EST_FATHER_LAST_NAME =>
6000 LS_PERSONCUR_EST_MOTHER_LAST_NAME,
6001 AS_EST_FATHER_FIRST_NAME =>
6002 LS_PERSONCUR_EST_MOTHER_FIRST_NAME,
6003 AS_EST_FATHER_MIDDLE_NAME =>
6004 LS_PERSONCUR_EST_MOTHER_MIDDLE_NAME,
6005 AC_EST_FATHER_SUFFIX_CODE =>
6006 LC_PERSONCUR_EST_MOTHER_SUFFIX_NAME_CODE,
6007 AB_PATERNITY_EST_IND =>
6008 LB_PERSONCUR_PATERNITY_EST_IND,
6009 AC_ESTABLISHMENT_METHOD_CODE =>
6010 LC_PERSONCUR_ESTABLISHMENT_METHOD_CODE,
6011 AD_PATERNITY_EST_DATE =>
6012 LD_PERSONCUR_PATERNITY_EST_DATE,
6013 AC_ESTABLISHMENT_STATE_CODE =>
6014 LC_PERSONCUR_ESTABLISHMENT_STATE_CODE,
6015 AS_ESTABLISHMENT_DOCKET_IDC =>
6016 LS_PERSONCUR_ESTABLISHMENT_DOCKET_IDC,
6017 AC_QI_STATUS_CODE => LC_N_QI_STATUS_CODE,
6018 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
6019 AI_TRANSACTION_EVENT_SEQ_NUMB =>
6020 LI_TRANSACTION_EVENT_SEQ_NUMB,
6021 AC_SCREEN_CODE => AC_SCREEN_CODE,
6022 AC_JOB_CODE => AC_JOB_CODE,
6023 AC_MSG_CODE => LC_MSG_CODE,
6024 AS_ERROR_DESC => LS_ERROR_DESC);
6025
6026 IF LC_MSG_CODE <> LC_S_MSG_CODE
6027 THEN
6028 SET LC_SQLSTATE_CODE = '75000';
6029 SIGNAL SQLSTATE '75000';
6030 END IF;
6031 END IF;
6032
6033 IF LC_PERSONCUR_CASE_PARTY_ROLE_CODE IN
6034 (LC_A_CASE_PARTY_ROLE_CODE, LC_P_CASE_PARTY_ROLE_CODE)
6035 THEN
6036 OPEN ASSET_CUR;
6037
6038 SET LS_SQL_DESC = 'FETCH ASSET_CUR';
6039 SET LS_SQL_DATA_DESC =
6040 'UPDATED_BY_NAME '
6041 || NVL (AS_UPDATED_BY_NAME, '')
6042 || 'SCREEN/JOB CODE '
6043 || NVL (AC_SCREEN_CODE, AC_JOB_CODE);
6044
6045 FETCH_ASSET_LOOP:
6046 LOOP
6047 FETCH ASSET_CUR
6048 INTO LI_ASSETCUR_APPLICATION_PERSON_ID,
6049 LC_ASSETCUR_VEHICLE_ASSET_TYPE_CODE,
6050 LC_ASSETCUR_VEHICLE_ASSESSED_STATE_CODE,
6051 LS_ASSETCUR_VEHICLE_MODEL_NAME,
6052 LI_ASSETCUR_VEHICLE_YEAR_NUMB,
6053 LS_ASSETCUR_VEHICLE_MAKE_NAME,
6054 LS_ASSETCUR_VEHICLE_LICENSE_IDC,
6055 LC_ASSETCUR_REAL_ESTATE_ASSET_TYPE_CODE,
6056 LS_ASSETCUR_LINE1_ADDR,
6057 LS_ASSETCUR_LINE2_ADDR,
6058 LS_ASSETCUR_CITY_ADDR,
6059 LC_ASSETCUR_COUNTY_CODE,
6060 LC_ASSETCUR_STATE_CODE,
6061 LC_ASSETCUR_COUNTRY_CODE,
6062 LS_ASSETCUR_POST_CODE,
6063 LC_ASSETCUR_APPLN_FIN_ASSET_TYPE_CODE,
6064 LI_ASSETCUR_APPLICATION_OTHP_FIN_ID;
6065
6066 IF SQLCODE = 100
6067 THEN
6068 LEAVE FETCH_ASSET_LOOP;
6069 END IF;
6070
6071 SET LS_SQL_DESC = 'CALL BATCH_COMMON$SP_UPDATE_ASSET';
6072 SET LS_SQL_DATA_DESC =
6073 'PERSON_ID : '
6074 || NVL (LI_NCP_PERSON_ID, 0)
6075 || ', APPLN_FIN_ASSET_TYPE_CODE : '
6076 || NVL (LC_ASSETCUR_APPLN_FIN_ASSET_TYPE_CODE, '')
6077 || ', ASST_FIN_STATUS_CODE : '
6078 || LC_P_ASST_FIN_STATUS_CODE
6079 || ', APPLICATION_OTHP_FIN_ID : '
6080 || NVL (LI_ASSETCUR_APPLICATION_OTHP_FIN_ID, 0)
6081 || ', LINE1_ADDR : '
6082 || NVL (LS_ASSETCUR_LINE1_ADDR, '')
6083 || ', LINE2_ADDR : '
6084 || NVL (LS_ASSETCUR_LINE2_ADDR, '')
6085 || ', CITY_ADDR : '
6086 || NVL (LS_ASSETCUR_CITY_ADDR, '')
6087 || ', POST_CODE : '
6088 || NVL (LS_ASSETCUR_POST_CODE, '')
6089 || ', STATE_CODE : '
6090 || NVL (LC_ASSETCUR_STATE_CODE, '')
6091 || ', COUNTRY_CODE : '
6092 || NVL (LC_ASSETCUR_COUNTRY_CODE, '')
6093 || ', REAL_ESTATE_ASSET_TYPE_CODE : '
6094 || NVL (LC_ASSETCUR_REAL_ESTATE_ASSET_TYPE_CODE, '')
6095 || ', ASST_REAL_ESTATE_STATUS_CODE : '
6096 || LC_P_ASST_REAL_ESTATE_STATUS_CODE
6097 || ', VEHICLE_ASSET_TYPE_CODE : '
6098 || NVL (LC_ASSETCUR_VEHICLE_ASSET_TYPE_CODE, '')
6099 || ', VEHICLE_ASSESSED_STATE_CODE : '
6100 || NVL (LC_ASSETCUR_VEHICLE_ASSESSED_STATE_CODE, '')
6101 || ', ASST_VEHICLE_STATUS_CODE : '
6102 || LC_P_ASST_VEHICLE_STATUS_CODE
6103 || ', VEHICLE_MAKE_NAME : '
6104 || NVL (LS_ASSETCUR_VEHICLE_MAKE_NAME, '')
6105 || ', VEHICLE_MODEL_NAME : '
6106 || NVL (LS_ASSETCUR_VEHICLE_MODEL_NAME, '')
6107 || ', VEHICLE_YEAR_NUMB : '
6108 || NVL (LI_ASSETCUR_VEHICLE_YEAR_NUMB, 0)
6109 || ', VEHICLE_LICENSE_IDC : '
6110 || NVL (LS_ASSETCUR_VEHICLE_LICENSE_IDC, '')
6111 || ', SCREEN_CODE :'
6112 || NVL (AC_SCREEN_CODE, '')
6113 || ', JOB_CODE :'
6114 || NVL (AC_JOB_CODE, '')
6115 || ', UPDATED_BY_NAME :'
6116 || AS_UPDATED_BY_NAME
6117 || ', TRANSACTION_EVENT_SEQ_NUMB :'
6118 || LI_TRANSACTION_EVENT_SEQ_NUMB;
6119
6120 CALL BATCH_COMMON$SP_UPDATE_ASSET (
6121 AI_PERSON_ID => LI_NCP_PERSON_ID,
6122 AC_FIN_ASSET_TYPE_CODE =>
6123 LC_ASSETCUR_APPLN_FIN_ASSET_TYPE_CODE,
6124 AC_PERSON_FIN_STATUS_CODE =>
6125 LC_P_ASST_FIN_STATUS_CODE,
6126 AI_FIN_OTHER_PARTY_ID =>
6127 LI_ASSETCUR_APPLICATION_OTHP_FIN_ID,
6128 AS_LINE1_ADDR => LS_ASSETCUR_LINE1_ADDR,
6129 AS_LINE2_ADDR => LS_ASSETCUR_LINE2_ADDR,
6130 AS_CITY_NAME => LS_ASSETCUR_CITY_ADDR,
6131 AS_POST_CODE => LS_ASSETCUR_POST_CODE,
6132 AC_STATE_CODE => LC_ASSETCUR_STATE_CODE,
6133 AC_COUNTRY_CODE => LC_ASSETCUR_COUNTRY_CODE,
6134 AC_REAL_ESTATE_ASSET_TYPE_CODE =>
6135 LC_ASSETCUR_REAL_ESTATE_ASSET_TYPE_CODE,
6136 AC_REAL_ESTATE_STATUS_CODE =>
6137 LC_P_ASST_REAL_ESTATE_STATUS_CODE,
6138 AC_VEHICLE_ASSET_TYPE_CODE =>
6139 LC_ASSETCUR_VEHICLE_ASSET_TYPE_CODE,
6140 AC_VEHICLE_ASSESSED_STATE_CODE =>
6141 LC_ASSETCUR_VEHICLE_ASSESSED_STATE_CODE,
6142 AC_PERSON_VEHICLE_STATUS_CODE =>
6143 LC_P_ASST_VEHICLE_STATUS_CODE,
6144 AS_VEHICLE_MAKE_NAME =>
6145 LS_ASSETCUR_VEHICLE_MAKE_NAME,
6146 AS_VEHICLE_MODEL_NAME =>
6147 LS_ASSETCUR_VEHICLE_MODEL_NAME,
6148 AI_VEHICLE_YEAR_NUMB =>
6149 LI_ASSETCUR_VEHICLE_YEAR_NUMB,
6150 AS_VEHICLE_LICENSE_IDC =>
6151 LS_ASSETCUR_VEHICLE_LICENSE_IDC,
6152 AI_TRANSACTION_EVENT_SEQ_NUMB =>
6153 LI_TRANSACTION_EVENT_SEQ_NUMB,
6154 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
6155 AC_SCREEN_CODE => AC_SCREEN_CODE,
6156 AC_JOB_CODE => AC_JOB_CODE,
6157 AC_MSG_CODE => LC_MSG_CODE,
6158 AS_ERROR_DESC => LS_ERROR_DESC);
6159
6160 IF LC_MSG_CODE <> LC_S_MSG_CODE
6161 THEN
6162 SET LC_SQLSTATE_CODE = '75000';
6163 SIGNAL SQLSTATE '75000';
6164 END IF;
6165 END LOOP FETCH_ASSET_LOOP;
6166
6167 CLOSE ASSET_CUR;
6168 END IF;
6169 END IF;
6170
6171 OPEN ADDRESS_CUR;
6172
6173 SET LS_SQL_DESC = 'FETCH ADDRESS_CUR';
6174 SET LS_SQL_DATA_DESC =
6175 'UPDATED_BY_NAME '
6176 || NVL (AS_UPDATED_BY_NAME, '')
6177 || 'SCREEN/JOB CODE '
6178 || NVL (AC_SCREEN_CODE, AC_JOB_CODE);
6179
6180 FETCH_ADDRESS_LOOP:
6181 LOOP
6182 FETCH ADDRESS_CUR
6183 INTO LI_ADDRESSCUR_APPLICATION_PERSON_ID,
6184 LS_ADDRESSCUR_ATTN_ADDR,
6185 LS_ADDRESSCUR_LINE1_ADDR,
6186 LS_ADDRESSCUR_LINE2_ADDR,
6187 LS_ADDRESSCUR_CITY_ADDR,
6188 LC_ADDRESSCUR_STATE_CODE,
6189 LS_ADDRESSCUR_POST_CODE,
6190 LC_ADDRESSCUR_COUNTRY_CODE,
6191 LC_ADDRESSCUR_COUNTY_CODE,
6192 LB_ADDRESSCUR_NORMALIZATION_IND,
6193 LC_ADDRESSCUR_ADDR_TYPE_CODE,
6194 LC_ADDRESSCUR_ADDR_SOURCE_CODE,
6195 LC_ADDRESSCUR_ADDR_STATUS_CODE,
6196 LC_ADDRESSCUR_ADDR_VERIF_SRC_CODE,
6197 LD_ADDRESSCUR_ADDR_VERIFIED_DATE,
6198 LB_ADDRESSCUR_TRUSTED_SOURCE_IND;
6199
6200 IF SQLCODE = 100
6201 THEN
6202 LEAVE FETCH_ADDRESS_LOOP;
6203 END IF;
6204
6205 SET LS_SQL_DESC = 'CALL BATCH_COMMON$SP_ADDRESS_UPDATE';
6206 SET LS_SQL_DATA_DESC =
6207 'PERSON_ID : '
6208 || NVL (LI_PERSON_ID, 0)
6209 || ', ADDR_TYPE_CODE : '
6210 || NVL (LC_ADDRESSCUR_ADDR_TYPE_CODE, '')
6211 || ', BEGIN_DATE : '
6212 || AD_RUN_DATE
6213 || ', ATTN_ADDR : '
6214 || NVL (LS_ADDRESSCUR_ATTN_ADDR, '')
6215 || ', LINE1_ADDR : '
6216 || NVL (LS_ADDRESSCUR_LINE1_ADDR, '')
6217 || ', LINE2_ADDR : '
6218 || NVL (LS_ADDRESSCUR_LINE2_ADDR, '')
6219 || ', CITY_ADDR : '
6220 || NVL (LS_ADDRESSCUR_CITY_ADDR, '')
6221 || ', POST_CODE : '
6222 || NVL (LS_ADDRESSCUR_POST_CODE, '')
6223 || ', STATE_CODE : '
6224 || NVL (LC_ADDRESSCUR_STATE_CODE, '')
6225 || ', COUNTRY_CODE : '
6226 || NVL (LC_ADDRESSCUR_COUNTRY_CODE, '')
6227 || ', COUNTY_CODE : '
6228 || NVL (LC_ADDRESSCUR_COUNTY_CODE, '')
6229 || ', ADDR_STD_IND : '
6230 || LB_ADDRESSCUR_NORMALIZATION_IND
6231 || ', ADDR_SOURCE_CODE : '
6232 || NVL (LC_ADDRESSCUR_ADDR_SOURCE_CODE, '')
6233 || ', RECEIVED_DATE : '
6234 || AD_RUN_DATE
6235 || ', ADDR_STATUS_CODE : '
6236 || NVL (LC_ADDRESSCUR_ADDR_STATUS_CODE, '')
6237 || ', STATUS_DATE : '
6238 || AD_RUN_DATE
6239 || ', ADDR_VERIF_SRC_CODE : '
6240 || NVL (LC_ADDRESSCUR_ADDR_VERIF_SRC_CODE, '')
6241 || ', ADDR_VERIFIED_DATE : '
6242 || NVL (LD_ADDRESSCUR_ADDR_VERIFIED_DATE, LD_LOW_DATE)
6243 || ', TRUSTED_SOURCE_IND : '
6244 || LB_ADDRESSCUR_TRUSTED_SOURCE_IND
6245 || ', SCREEN_CODE :'
6246 || NVL (AC_SCREEN_CODE, '')
6247 || ', JOB_CODE :'
6248 || NVL (AC_JOB_CODE, '')
6249 || ', UPDATED_BY_NAME :'
6250 || AS_UPDATED_BY_NAME
6251 || ', TRANSACTION_EVENT_SEQ_NUMB :'
6252 || LI_TRANSACTION_EVENT_SEQ_NUMB;
6253
6254 CALL BATCH_COMMON$SP_ADDRESS_UPDATE (
6255 AI_PERSON_ADDRESS_ID => NULL,
6256 AI_PERSON_ID => LI_PERSON_ID,
6257 AD_RUN_DATE => AD_RUN_DATE,
6258 AC_ADDRESS_TYPE_CODE => LC_ADDRESSCUR_ADDR_TYPE_CODE,
6259 AD_BEGIN_DATE => AD_RUN_DATE,
6260 AS_ATTN_ADDR => LS_ADDRESSCUR_ATTN_ADDR,
6261 AS_LINE1_ADDR => LS_ADDRESSCUR_LINE1_ADDR,
6262 AS_LINE2_ADDR => LS_ADDRESSCUR_LINE2_ADDR,
6263 AS_CITY_NAME => LS_ADDRESSCUR_CITY_ADDR,
6264 AC_STATE_CODE => LC_ADDRESSCUR_STATE_CODE,
6265 AS_POST_CODE => LS_ADDRESSCUR_POST_CODE,
6266 AC_COUNTY_CODE => LC_ADDRESSCUR_COUNTY_CODE,
6267 AC_COUNTRY_CODE => LC_ADDRESSCUR_COUNTRY_CODE,
6268 AB_ADDR_STD_IND => LB_ADDRESSCUR_NORMALIZATION_IND,
6269 AC_ADDRESS_SOURCE_CODE => LC_ADDRESSCUR_ADDR_SOURCE_CODE,
6270 AD_ADDRESS_RECEIVED_DATE => AD_RUN_DATE,
6271 AC_ADDRESS_STATUS_CODE =>
6272 LC_ADDRESSCUR_ADDR_STATUS_CODE,
6273 AD_ADDRESS_STATUS_DATE => AD_RUN_DATE,
6274 AC_ADDRESS_VERIFY_SOURCE_CODE =>
6275 LC_ADDRESSCUR_ADDR_VERIF_SRC_CODE,
6276 AD_ADDRESS_VERIFIED_DATE =>
6277 LD_ADDRESSCUR_ADDR_VERIFIED_DATE,
6278 AC_SCREEN_CODE => AC_SCREEN_CODE,
6279 AC_JOB_CODE => AC_JOB_CODE,
6280 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
6281 AI_TRANSACTION_EVENT_SEQ_NUMB => NULL,
6282 AC_USER_OFFICE_CODE => NULL,
6283 AB_TRUSTED_SOURCE_IND =>
6284 LB_ADDRESSCUR_TRUSTED_SOURCE_IND,
6285 AI_NEW_PERSON_ADDRESS_ID =>
6286 LI_NEW_PERSON_ADDRESS_ID,
6287 AC_MSG_CODE => LC_MSG_CODE,
6288 AS_ERROR_DESC => LS_ERROR_DESC);
6289
6290 IF ( ( AC_SCREEN_CODE IS NOT NULL
6291 AND LC_MSG_CODE <> LC_S_MSG_CODE)
6292 OR LC_MSG_CODE = LC_F_MSG_CODE
6293 OR ( LC_MSG_CODE <> LC_S_MSG_CODE
6294 AND BATCH_COMMON$SF_GET_BATE_ERROR_TYPE (LC_MSG_CODE) =
6295 LC_E_ERROR_TYPE_CODE))
6296 THEN
6297 SET LC_SQLSTATE_CODE = '75000';
6298 SIGNAL SQLSTATE '75000';
6299 ELSE
6300 IF LC_MSG_CODE <> LC_S_MSG_CODE
6301 THEN
6302 SET LS_SQL_DESC =
6303 LS_SQL_DESC || ' ' || 'BATCH_COMMON$SP_BATE_LOG';
6304
6305 CALL BATCH_COMMON$SP_BATE_LOG (
6306 AC_JOB_CODE => AC_JOB_CODE,
6307 AD_RUN_DATE => AD_RUN_DATE,
6308 AC_ERROR_TYPE_CODE => LC_E_ERROR_TYPE_CODE,
6309 AI_LINE_NUMB => 0,
6310 AC_ERROR_CODE => LC_MSG_CODE,
6311 AS_ERROR_NOTE => LS_ERROR_DESC,
6312 AS_LIST_KEY_NOTE => LS_SQL_DATA_DESC,
6313 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
6314 AS_PROCESS_NAME => LS_ROUTINE_NAME,
6315 AS_PROCEDURE_NAME => LS_PROCEDURE_NAME,
6316 AC_MSG_CODE => LC_MSG_CODE,
6317 AS_ERROR_DESC => LS_ERROR_DESC);
6318
6319 IF LC_MSG_CODE = LC_F_MSG_CODE
6320 THEN
6321 SET LC_SQLSTATE_CODE = '75000';
6322 SIGNAL SQLSTATE '75000';
6323 END IF;
6324 END IF;
6325 END IF;
6326 END LOOP FETCH_ADDRESS_LOOP;
6327
6328 CLOSE ADDRESS_CUR;
6329
6330 OPEN EMPLOYER_CUR;
6331
6332 SET LS_SQL_DESC = 'FETCH EMPLOYER_CUR';
6333 SET LS_SQL_DATA_DESC =
6334 'UPDATED_BY_NAME '
6335 || NVL (AS_UPDATED_BY_NAME, '')
6336 || 'SCREEN/JOB CODE '
6337 || NVL (AC_SCREEN_CODE, AC_JOB_CODE);
6338
6339 FETCH_EMPLOYER_LOOP:
6340 LOOP
6341 FETCH EMPLOYER_CUR
6342 INTO LI_EMPLOYERCUR_APPLICATION_PERSON_ID,
6343 LB_EMPLOYERCUR_NORMALIZATION_IND,
6344 LS_EMPLOYERCUR_LINE1_ADDR,
6345 LS_EMPLOYERCUR_LINE2_ADDR,
6346 LS_EMPLOYERCUR_CITY_ADDR,
6347 LC_EMPLOYERCUR_STATE_CODE,
6348 LS_EMPLOYERCUR_POST_CODE,
6349 LC_EMPLOYERCUR_COUNTRY_CODE,
6350 LC_EMPLOYERCUR_COUNTY_CODE,
6351 LI_EMPLOYERCUR_FEIN_NUMB,
6352 LI_EMPLOYERCUR_OTHER_PARTY_ID,
6353 LS_EMPLOYERCUR_OTHER_PARTY_NAME,
6354 LI_EMPLOYERCUR_PHONE_NUMB,
6355 LI_EMPLOYERCUR_PHONE_EXTN_NUMB,
6356 LC_EMPLOYERCUR_SOI_SOURCE_CODE,
6357 LC_EMPLOYERCUR_SOI_VERIFY_STATUS_CODE,
6358 LC_EMPLOYERCUR_SOI_VERIFY_SOURCE_CODE,
6359 LC_EMPLOYERCUR_SOI_STATUS_CODE,
6360 LC_EMPLOYERCUR_OTHER_PARTY_TYPE_CODE,
6361 LC_EMPLOYERCUR_MILITARY_BRANCH_CODE,
6362 LC_EMPLOYERCUR_CONTACT_WORK_CODE,
6363 LS_EMPLOYERCUR_OCCUPATION_DESC,
6364 LS_EMPLOYERCUR_TRADE_SKILL_DESC,
6365 LS_EMPLOYERCUR_PSOI_UNION_MEMBERSHIP_DESC,
6366 LB_EMPLOYERCUR_TRUSTED_SOURCE_IND;
6367
6368 IF SQLCODE = 100
6369 THEN
6370 LEAVE FETCH_EMPLOYER_LOOP;
6371 END IF;
6372
6373 IF LI_EMPLOYERCUR_OTHER_PARTY_ID IS NULL
6374 THEN
6375 SET LS_SQL_DESC = 'CALL BATCH_COMMON$SP_GET_OTHP';
6376 SET LS_SQL_DATA_DESC =
6377 ' PERSON_ID : '
6378 || NVL (LI_PERSON_ID, 0)
6379 || ', OTHER_PARTY_TYPE_CODE : '
6380 || NVL (LC_EMPLOYERCUR_OTHER_PARTY_TYPE_CODE, '')
6381 || ', OTHER_PARTY_NAME : '
6382 || NVL (LS_EMPLOYERCUR_OTHER_PARTY_NAME, '')
6383 || ', LINE1_ADDR : '
6384 || NVL (LS_EMPLOYERCUR_LINE1_ADDR, '')
6385 || ', LINE2_ADDR : '
6386 || NVL (LS_EMPLOYERCUR_LINE2_ADDR, '')
6387 || ', CITY_ADDR : '
6388 || NVL (LS_EMPLOYERCUR_CITY_ADDR, '')
6389 || ', STATE_CODE : '
6390 || NVL (LC_EMPLOYERCUR_STATE_CODE, '')
6391 || ', COUNTY_CODE : '
6392 || NVL (LC_EMPLOYERCUR_COUNTY_CODE, '')
6393 || ', COUNTRY_CODE : '
6394 || NVL (LC_EMPLOYERCUR_COUNTRY_CODE, '')
6395 || ', POST_CODE : '
6396 || NVL (LS_EMPLOYERCUR_POST_CODE, '')
6397 || ', NORMALIZATION_IND : '
6398 || LB_EMPLOYERCUR_NORMALIZATION_IND
6399 || ', PHONE_NUMB : '
6400 || NVL (LI_EMPLOYERCUR_PHONE_NUMB, 0)
6401 || ', PHONE_EXTN_NUMB : '
6402 || NVL (LI_EMPLOYERCUR_PHONE_EXTN_NUMB, 0)
6403 || ', OTHP_SOI_SOURCE_CODE : '
6404 || NVL (LC_EMPLOYERCUR_SOI_SOURCE_CODE, '')
6405 || ', OTHP_SOI_VERIF_SOURCE_CODE : '
6406 || NVL (LC_EMPLOYERCUR_SOI_VERIFY_SOURCE_CODE, '')
6407 || ', FEIN_NUMB : '
6408 || NVL (LI_EMPLOYERCUR_FEIN_NUMB, 0)
6409 || ', SCREEN_CODE :'
6410 || NVL (AC_SCREEN_CODE, '')
6411 || ', JOB_CODE :'
6412 || NVL (AC_JOB_CODE, '')
6413 || ', UPDATED_BY_NAME :'
6414 || AS_UPDATED_BY_NAME;
6415
6416 CALL BATCH_COMMON$SP_GET_OTHP (
6417 AD_RUN_DATE => AD_RUN_DATE,
6418 AI_PERSON_ID => LI_PERSON_ID,
6419 AC_OTHER_PARTY_TYPE_CODE =>
6420 LC_EMPLOYERCUR_OTHER_PARTY_TYPE_CODE,
6421 AS_OTHER_PARTY_NAME =>
6422 LS_EMPLOYERCUR_OTHER_PARTY_NAME,
6423 AS_ATTN_ADDR => NULL,
6424 AS_LINE1_ADDR => LS_EMPLOYERCUR_LINE1_ADDR,
6425 AS_LINE2_ADDR => LS_EMPLOYERCUR_LINE2_ADDR,
6426 AS_CITY_NAME => LS_EMPLOYERCUR_CITY_ADDR,
6427 AC_STATE_CODE => LC_EMPLOYERCUR_STATE_CODE,
6428 AC_COUNTY_CODE => LC_EMPLOYERCUR_COUNTY_CODE,
6429 AC_COUNTRY_CODE => LC_EMPLOYERCUR_COUNTRY_CODE,
6430 AS_POST_CODE => LS_EMPLOYERCUR_POST_CODE,
6431 AB_ADDR_STD_IND => LB_EMPLOYERCUR_NORMALIZATION_IND,
6432 AI_PHONE_NUMB => LI_EMPLOYERCUR_PHONE_NUMB,
6433 AI_PHONE_EXTN_NUMB => LI_EMPLOYERCUR_PHONE_EXTN_NUMB,
6434 AC_OTHP_SOI_SOURCE_CODE =>
6435 LC_EMPLOYERCUR_SOI_SOURCE_CODE,
6436 AC_OTHP_SOI_VERIF_SOURCE_CODE =>
6437 LC_EMPLOYERCUR_SOI_VERIFY_SOURCE_CODE,
6438 AD_VERIFIED_DATE => AD_RUN_DATE,
6439 AI_FEIN_NUMB => LI_EMPLOYERCUR_FEIN_NUMB,
6440 AC_SCREEN_CODE => AC_SCREEN_CODE,
6441 AC_JOB_CODE => AC_JOB_CODE,
6442 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
6443 AI_OTHER_PARTY_ID => LI_EMPLOYERCUR_OTHER_PARTY_ID,
6444 AC_MSG_CODE => LC_MSG_CODE,
6445 AS_ERROR_DESC => LS_ERROR_DESC);
6446 END IF;
6447
6448 IF LI_EMPLOYERCUR_OTHER_PARTY_ID IS NOT NULL
6449 AND LI_EMPLOYERCUR_OTHER_PARTY_ID > 0
6450 THEN
6451 SET LS_SQL_DESC = 'CALL BATCH_COMMON$SP_PERSON_SOI_UPDATE';
6452 SET LS_SQL_DATA_DESC =
6453 'PERSON_ID : '
6454 || NVL (LI_PERSON_ID, 0)
6455 || ', OTHER_PARTY_ID : '
6456 || NVL (LI_EMPLOYERCUR_OTHER_PARTY_ID, 0)
6457 || ', SOI_VERIFY_STATUS_CODE : '
6458 || NVL (LC_EMPLOYERCUR_SOI_VERIFY_STATUS_CODE, '')
6459 || ', SOI_VERIFY_SOURCE_CODE : '
6460 || NVL (LC_EMPLOYERCUR_SOI_VERIFY_SOURCE_CODE, '')
6461 || ', SOI_STATUS_CODE : '
6462 || NVL (LC_EMPLOYERCUR_SOI_STATUS_CODE, '')
6463 || ', OTHER_PARTY_TYPE_CODE : '
6464 || NVL (LC_EMPLOYERCUR_OTHER_PARTY_TYPE_CODE, '')
6465 || ', BEGIN_DATE : '
6466 || AD_RUN_DATE
6467 || ', RECEIVED_DATE : '
6468 || AD_RUN_DATE
6469 || ', SOI_SOURCE_CODE : '
6470 || NVL (LC_EMPLOYERCUR_SOI_SOURCE_CODE, '')
6471 || ', MILITARY_BRANCH_CODE : '
6472 || NVL (LC_EMPLOYERCUR_MILITARY_BRANCH_CODE, '')
6473 || ', CONTACT_PERSON_WORK_CODE : '
6474 || NVL (LC_EMPLOYERCUR_CONTACT_WORK_CODE, '')
6475 || ', OCCUPATION_DESC : '
6476 || NVL (LS_EMPLOYERCUR_OCCUPATION_DESC, '')
6477 || ', TRADE_SKILL_DESC : '
6478 || NVL (LS_EMPLOYERCUR_TRADE_SKILL_DESC, '')
6479 || ', PSOI_UNION_MEMBERSHIP_DESC : '
6480 || NVL (LS_EMPLOYERCUR_PSOI_UNION_MEMBERSHIP_DESC, '')
6481 || ', SCREEN_CODE :'
6482 || NVL (AC_SCREEN_CODE, '')
6483 || ', JOB_CODE :'
6484 || NVL (AC_JOB_CODE, '')
6485 || ', UPDATED_BY_NAME :'
6486 || AS_UPDATED_BY_NAME
6487 || ', TRANSACTION_EVENT_SEQ_NUMB :'
6488 || NVL (LI_TRANSACTION_EVENT_SEQ_NUMB, 0)
6489 || ', TRUSTED_SOURCE_IND :'
6490 || LB_EMPLOYERCUR_TRUSTED_SOURCE_IND;
6491
6492
6493 CALL BATCH_COMMON$SP_PERSON_SOI_UPDATE (
6494 AI_PERSON_ID => LI_PERSON_ID,
6495 AI_OTHER_PARTY_ID => LI_EMPLOYERCUR_OTHER_PARTY_ID,
6496 AC_PSOI_VERIFICATION_STATUS_CODE =>
6497 LC_EMPLOYERCUR_SOI_VERIFY_STATUS_CODE,
6498 AC_PSOI_VERIFICATION_SOURCE_CODE =>
6499 LC_EMPLOYERCUR_SOI_VERIFY_SOURCE_CODE,
6500 AC_PSOI_STATUS_CODE => LC_EMPLOYERCUR_SOI_STATUS_CODE,
6501 AC_PSOI_INCOME_TYPE_CODE =>
6502 LC_EMPLOYERCUR_OTHER_PARTY_TYPE_CODE,
6503 AD_PSOI_BEGIN_DATE => AD_RUN_DATE,
6504 AD_PSOI_RECEIVED_DATE => AD_RUN_DATE,
6505 AC_PSOI_SOURCE_CODE =>
6506 LC_EMPLOYERCUR_SOI_SOURCE_CODE,
6507 AC_MILITARY_BRANCH_CODE =>
6508 LC_EMPLOYERCUR_MILITARY_BRANCH_CODE,
6509 AS_PSOI_OCCUPATION_DESC =>
6510 LS_EMPLOYERCUR_OCCUPATION_DESC,
6511 AS_PSOI_TRADE_SKILL_DESC =>
6512 LS_EMPLOYERCUR_TRADE_SKILL_DESC,
6513 AS_PSOI_UNION_MEMBERSHIP_DESC =>
6514 LS_EMPLOYERCUR_PSOI_UNION_MEMBERSHIP_DESC,
6515 AC_CONTACT_PERSON_WORK_CODE =>
6516 LC_EMPLOYERCUR_CONTACT_WORK_CODE,
6517 AI_TRANSACTION_EVENT_SEQ_NUMB => NULL,
6518 AI_PERSON_SOI_ID => NULL,
6519 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
6520 AB_TRUSTED_SOURCE_IND =>
6521 LB_EMPLOYERCUR_TRUSTED_SOURCE_IND,
6522 AD_RUN_DATE => AD_RUN_DATE,
6523 AC_SCREEN_CODE => AC_SCREEN_CODE,
6524 AC_JOB_CODE => AC_JOB_CODE,
6525 AC_USER_OFFICE_CODE => NULL,
6526 AI_NEW_PERSON_SOI_ID => LI_NEW_PERSON_SOI_ID,
6527 AC_MSG_CODE => LC_MSG_CODE,
6528 AS_ERROR_DESC => LS_ERROR_DESC);
6529
6530 IF ( ( AC_SCREEN_CODE IS NOT NULL
6531 AND LC_MSG_CODE <> LC_S_MSG_CODE)
6532 OR LC_MSG_CODE = LC_F_MSG_CODE
6533 OR ( LC_MSG_CODE <> LC_S_MSG_CODE
6534 AND BATCH_COMMON$SF_GET_BATE_ERROR_TYPE (LC_MSG_CODE) =
6535 LC_E_ERROR_TYPE_CODE))
6536 THEN
6537 SET LC_SQLSTATE_CODE = '75000';
6538 SIGNAL SQLSTATE '75000';
6539 ELSE
6540 IF LC_MSG_CODE <> LC_S_MSG_CODE
6541 THEN
6542 SET LS_SQL_DESC =
6543 LS_SQL_DESC || ' ' || 'BATCH_COMMON$SP_BATE_LOG';
6544
6545 CALL BATCH_COMMON$SP_BATE_LOG (
6546 AC_JOB_CODE => AC_JOB_CODE,
6547 AD_RUN_DATE => AD_RUN_DATE,
6548 AC_ERROR_TYPE_CODE => LC_E_ERROR_TYPE_CODE,
6549 AI_LINE_NUMB => 0,
6550 AC_ERROR_CODE => LC_MSG_CODE,
6551 AS_ERROR_NOTE => LS_ERROR_DESC,
6552 AS_LIST_KEY_NOTE => LS_SQL_DATA_DESC,
6553 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
6554 AS_PROCESS_NAME => LS_ROUTINE_NAME,
6555 AS_PROCEDURE_NAME => LS_PROCEDURE_NAME,
6556 AC_MSG_CODE => LC_MSG_CODE,
6557 AS_ERROR_DESC => LS_ERROR_DESC);
6558
6559 IF LC_MSG_CODE = LC_F_MSG_CODE
6560 THEN
6561 SET LC_SQLSTATE_CODE = '75000';
6562 SIGNAL SQLSTATE '75000';
6563 END IF;
6564 END IF;
6565 END IF;
6566 ELSEIF ( ( AC_SCREEN_CODE IS NOT NULL
6567 AND LC_MSG_CODE <> LC_S_MSG_CODE)
6568 OR LC_MSG_CODE = LC_F_MSG_CODE
6569 OR ( LC_MSG_CODE <> LC_S_MSG_CODE
6570 AND BATCH_COMMON$SF_GET_BATE_ERROR_TYPE (LC_MSG_CODE) =
6571 LC_E_ERROR_TYPE_CODE))
6572 THEN
6573 SET LC_SQLSTATE_CODE = '75000';
6574 SIGNAL SQLSTATE '75000';
6575 ELSE
6576 IF LC_MSG_CODE <> LC_S_MSG_CODE
6577 THEN
6578 SET LS_SQL_DESC =
6579 LS_SQL_DESC || ' ' || 'BATCH_COMMON$SP_BATE_LOG';
6580
6581 CALL BATCH_COMMON$SP_BATE_LOG (
6582 AC_JOB_CODE => AC_JOB_CODE,
6583 AD_RUN_DATE => AD_RUN_DATE,
6584 AC_ERROR_TYPE_CODE => LC_E_ERROR_TYPE_CODE,
6585 AI_LINE_NUMB => 0,
6586 AC_ERROR_CODE => LC_MSG_CODE,
6587 AS_ERROR_NOTE => LS_ERROR_DESC,
6588 AS_LIST_KEY_NOTE => LS_SQL_DATA_DESC,
6589 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
6590 AS_PROCESS_NAME => LS_ROUTINE_NAME,
6591 AS_PROCEDURE_NAME => LS_PROCEDURE_NAME,
6592 AC_MSG_CODE => LC_MSG_CODE,
6593 AS_ERROR_DESC => LS_ERROR_DESC);
6594
6595 IF LC_MSG_CODE = LC_F_MSG_CODE
6596 THEN
6597 SET LC_SQLSTATE_CODE = '75000';
6598 SIGNAL SQLSTATE '75000';
6599 END IF;
6600 END IF;
6601 END IF;
6602 END LOOP FETCH_EMPLOYER_LOOP;
6603
6604 CLOSE EMPLOYER_CUR;
6605
6606 IF LC_PERSONCUR_CASE_PARTY_ROLE_CODE IN
6607 (LC_A_CASE_PARTY_ROLE_CODE,
6608 LC_P_CASE_PARTY_ROLE_CODE,
6609 LC_C_CASE_PARTY_ROLE_CODE)
6610 AND BATCH_COMMON$SF_GET_LOCATE_STATUS (LI_PERSON_ID) IS NULL
6611 THEN
6612 SET LS_SQL_DESC = 'CALL BATCH_COMMON$SP_INSERT_LOCATE_STATUS';
6613 SET LS_SQL_DATA_DESC =
6614 'PERSON_ID = '
6615 || NVL (LI_PERSON_ID, 0)
6616 || ', RUN_DATE = '
6617 || AD_RUN_DATE
6618 || ', SCREEN_CODE = '
6619 || NVL (AC_SCREEN_CODE, '')
6620 || ', JOB_CODE = '
6621 || NVL (AC_JOB_CODE, '')
6622 || ', UPDATED_BY_NAME = '
6623 || AS_UPDATED_BY_NAME;
6624
6625 CALL BATCH_COMMON$SP_INSERT_LOCATE_STATUS (
6626 AI_PERSON_ID => LI_PERSON_ID,
6627 AD_RUN_DATE => AD_RUN_DATE,
6628 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
6629 AC_SCREEN_CODE => AC_SCREEN_CODE,
6630 AC_JOB_CODE => AC_JOB_CODE,
6631 AI_TRANSACTION_EVENT_SEQ_NUMB =>
6632 LI_TRANSACTION_EVENT_SEQ_NUMB,
6633 AB_NEW_ADDR_IND => LB_NEW_ADDR_IND,
6634 AC_MSG_CODE => LC_MSG_CODE,
6635 AS_ERROR_DESC => LS_ERROR_DESC);
6636
6637 IF ( ( AC_SCREEN_CODE IS NOT NULL
6638 AND LC_MSG_CODE <> LC_S_MSG_CODE)
6639 OR LC_MSG_CODE = LC_F_MSG_CODE
6640 OR ( LC_MSG_CODE <> LC_S_MSG_CODE
6641 AND BATCH_COMMON$SF_GET_BATE_ERROR_TYPE (LC_MSG_CODE) =
6642 LC_E_ERROR_TYPE_CODE))
6643 THEN
6644 SET LC_SQLSTATE_CODE = '75000';
6645 SIGNAL SQLSTATE '75000';
6646 ELSE
6647 IF LC_MSG_CODE <> LC_S_MSG_CODE
6648 THEN
6649 SET LS_SQL_DESC =
6650 LS_SQL_DESC || ' ' || 'BATCH_COMMON$SP_BATE_LOG';
6651
6652 CALL BATCH_COMMON$SP_BATE_LOG (
6653 AC_JOB_CODE => AC_JOB_CODE,
6654 AD_RUN_DATE => AD_RUN_DATE,
6655 AC_ERROR_TYPE_CODE => LC_E_ERROR_TYPE_CODE,
6656 AI_LINE_NUMB => 0,
6657 AC_ERROR_CODE => LC_MSG_CODE,
6658 AS_ERROR_NOTE => LS_ERROR_DESC,
6659 AS_LIST_KEY_NOTE => LS_SQL_DATA_DESC,
6660 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
6661 AS_PROCESS_NAME => LS_ROUTINE_NAME,
6662 AS_PROCEDURE_NAME => LS_PROCEDURE_NAME,
6663 AC_MSG_CODE => LC_MSG_CODE,
6664 AS_ERROR_DESC => LS_ERROR_DESC);
6665
6666 IF LC_MSG_CODE = LC_F_MSG_CODE
6667 THEN
6668 SET LC_SQLSTATE_CODE = '75000';
6669 SIGNAL SQLSTATE '75000';
6670 END IF;
6671 END IF;
6672 END IF;
6673 END IF;
6674
6675 IF NVL (LS_PERSONCUR_COMMENT_NOTE, '') <> ''
6676 THEN
6677 SET LS_COMMENT_NOTE =
6678 NVL (LS_COMMENT_NOTE, ' ')
6679 || ' PERSON ID : '
6680 || NVL (LI_PERSON_ID, 0)
6681 || ' = '
6682 || TRIM (LS_PERSONCUR_COMMENT_NOTE);
6683 END IF;
6684 END LOOP FETCH_PERSON_LOOP;
6685
6686 CLOSE PERSON_CUR;
6687
6688 IF EXISTS
6689 (SELECT 1
6690 FROM APPLICATION_CASE A
6691 WHERE A.APPLICATION_ID = AI_APPLICATION_ID
6692 AND A.TRANS_HEADER_ID IS NOT NULL)
6693 THEN
6694 SELECT A.TRANS_HEADER_ID,
6695 A.OTHER_STATE_FIPS_CODE,
6696 A.OTHER_STATE_COUNTY_CODE,
6697 A.OTHER_STATE_OFFICE_CODE,
6698 A.OTHER_STATE_CASE_IDC,
6699 A.FUNCTION_CODE,
6700 A.ACTION_CODE,
6701 A.REASON_CODE,
6702 B.CASE_TYPE_CODE
6703 INTO LI_TRANS_HEADER_ID,
6704 LC_OTHER_STATE_FIPS_CODE,
6705 LC_OTHER_STATE_COUNTY_CODE,
6706 LC_OTHER_STATE_OFFICE_CODE,
6707 LS_OTHER_STATE_CASE_IDC,
6708 LC_FUNCTION_CODE,
6709 LC_ACTION_CODE,
6710 LC_REASON_CODE,
6711 LC_CASE_TYPE_CODE
6712 FROM CTHB_VW A
6713 LEFT OUTER JOIN CSDB_VW B
6714 ON A.TRANS_HEADER_ID = B.TRANS_HEADER_ID
6715 WHERE A.TRANS_HEADER_ID =
6716 (SELECT A.TRANS_HEADER_ID
6717 FROM APPLICATION_CASE A
6718 WHERE A.APPLICATION_ID = AI_APPLICATION_ID);
6719
6720 SET LS_SQL_DESC = 'BATCH_COMMON$SP_INSERT_INTERGOVERNMENTAL_CASE';
6721 SET LS_SQL_DATA_DESC =
6722 ' CASE_ID :'
6723 || NVL (AI_CASE_ID, 0)
6724 || ',RESPONDENT_ID :'
6725 || NVL (LI_NCP_PERSON_ID, 0)
6726 || ',PETITIONER_ID :'
6727 || NVL (LI_CST_PERSON_ID, 0)
6728 || ', STATE_FIPS_CODE :'
6729 || NVL (LC_OTHER_STATE_FIPS_CODE, '')
6730 || ', COUNTY_FIPS_CODE :'
6731 || NVL (LC_OTHER_STATE_COUNTY_CODE, '')
6732 || ', OFFICE_FIPS_CODE :'
6733 || NVL (LC_OTHER_STATE_OFFICE_CODE, '')
6734 || ', OTHER_STATE_CASE_TYPE_CODE :'
6735 || NVL (LC_CASE_TYPE_CODE, '')
6736 || ', REASON_CODE :'
6737 || NVL (LC_REASON_CODE, '')
6738 || ', OTHER_STATE_CASE_IDC :'
6739 || NVL (LS_OTHER_STATE_CASE_IDC, '')
6740 || ', PETITIONER_NAME :'
6741 || NVL (LS_PETITIONER_NAME, '')
6742 || ', RESPONDENT_NAME :'
6743 || NVL (LS_RESPONDENT_NAME, '')
6744 || ', SCREEN_CODE :'
6745 || NVL (AC_SCREEN_CODE, '')
6746 || ', JOB_CODE :'
6747 || NVL (AC_JOB_CODE, '')
6748 || ', UPDATED_BY_NAME :'
6749 || AS_UPDATED_BY_NAME
6750 || ', TRANSACTION_EVENT_SEQ_NUMB :'
6751 || LI_TRANSACTION_EVENT_SEQ_NUMB;
6752
6753 CALL BATCH_COMMON$SP_INSERT_INTERGOVERNMENTAL_CASE (
6754 AI_CASE_ID => AI_CASE_ID,
6755 AI_RESPONDENT_ID => LI_NCP_PERSON_ID,
6756 AI_PETITIONER_ID => LI_CST_PERSON_ID,
6757 AC_STATE_FIPS_CODE => LC_OTHER_STATE_FIPS_CODE,
6758 AC_COUNTY_FIPS_CODE => LC_OTHER_STATE_COUNTY_CODE,
6759 AC_OFFICE_FIPS_CODE => LC_OTHER_STATE_OFFICE_CODE,
6760 AI_DOCKET_ID => NULL,
6761 AC_COUNTY_CODE => NULL,
6762 AC_CASE_STATUS_CODE => LC_O_CASE_STATUS_CODE,
6763 AC_CASE_IGV_TYPE_CODE => LC_R_CASE_IGV_TYPE_CODE,
6764 AC_OTHER_STATE_CASE_TYPE_CODE => LC_CASE_TYPE_CODE,
6765 AC_REASON_CODE => LC_REASON_CODE,
6766 AS_OTHER_STATE_CASE_IDC => LS_OTHER_STATE_CASE_IDC,
6767 AS_OTHER_STATE_DOCKET_IDC => NULL,
6768 AD_CONTROL_ORDER_DATE => NULL,
6769 AI_CONTROL_ORDER_NUMB => NULL,
6770 AS_PETITIONER_NAME => LS_PETITIONER_NAME,
6771 AS_RESPONDENT_NAME => LS_RESPONDENT_NAME,
6772 AS_CONTACT_FIRST_NAME => NULL,
6773 AS_CONTACT_LAST_NAME => NULL,
6774 AS_CONTACT_MIDDLE_NAME => NULL,
6775 AC_CONTACT_SUFFIX_NAME => NULL,
6776 AI_CONTACT_PHONE_NUMB => NULL,
6777 AI_CONTACT_PHONE_EXTN_NUMB => NULL,
6778 AS_CONTACT_EML => NULL,
6779 AI_CONTACT_FAX_NUMB => NULL,
6780 AD_REFERRAL_DATE => CURRENT_DATE,
6781 AS_COMMENT_NOTE => NULL,
6782 AC_SCREEN_CODE => AC_SCREEN_CODE,
6783 AC_JOB_CODE => AC_JOB_CODE,
6784 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
6785 AI_TRANSACTION_EVENT_SEQ_NUMB =>
6786 LI_TRANSACTION_EVENT_SEQ_NUMB,
6787 AC_MSG_CODE => LC_MSG_CODE,
6788 AS_ERROR_DESC => LS_ERROR_DESC);
6789
6790 IF LC_MSG_CODE <> LC_S_MSG_CODE
6791 THEN
6792 SET LC_SQLSTATE_CODE = '75000';
6793 SIGNAL SQLSTATE '75000';
6794 END IF;
6795
6796 SET LS_SQL_DESC = 'BATCH_COMMON$SP_INSERT_PENDING_REQUEST';
6797 SET LS_SQL_DATA_DESC =
6798 ' CASE_ID :'
6799 || NVL (AI_CASE_ID, 0)
6800 || ',RESPONDENT_ID :'
6801 || NVL (LI_NCP_PERSON_ID, 0)
6802 || ', STATE_FIPS_CODE :'
6803 || NVL (LC_OTHER_STATE_FIPS_CODE, '')
6804 || ', COUNTY_FIPS_CODE :'
6805 || NVL (LC_OTHER_STATE_COUNTY_CODE, '')
6806 || ', OFFICE_FIPS_CODE :'
6807 || NVL (LC_OTHER_STATE_OFFICE_CODE, '')
6808 || ', REASON_CODE :'
6809 || NVL (LC_REASON_CODE, '')
6810 || ', FUNCTION_CODE :'
6811 || NVL (LC_FUNCTION_CODE, '')
6812 || ', ACTION_CODE :'
6813 || NVL (LC_ACTION_CODE, '')
6814 || ', OTHER_STATE_CASE_IDC :'
6815 || NVL (LS_OTHER_STATE_CASE_IDC, '')
6816 || ', PETITIONER_NAME :'
6817 || NVL (LS_PETITIONER_NAME, '')
6818 || ', RESPONDENT_NAME :'
6819 || NVL (LS_RESPONDENT_NAME, '')
6820 || ', SCREEN_CODE :'
6821 || NVL (AC_SCREEN_CODE, '')
6822 || ', JOB_CODE :'
6823 || NVL (AC_JOB_CODE, '')
6824 || ', UPDATED_BY_NAME :'
6825 || AS_UPDATED_BY_NAME
6826 || ', TRANSACTION_EVENT_SEQ_NUMB :'
6827 || LI_TRANSACTION_EVENT_SEQ_NUMB;
6828
6829
6830 CALL BATCH_COMMON$SP_INSERT_PENDING_REQUEST (
6831 AI_CASE_ID => AI_CASE_ID,
6832 AI_RESPONDENT_ID => LI_NCP_PERSON_ID,
6833 AC_FUNCTION_CODE => LC_FUNCTION_CODE,
6834 AC_ACTION_CODE => LC_ACTION_CODE,
6835 AC_REASON_CODE => LC_REASON_CODE,
6836 AC_STATE_FIPS_CODE => LC_OTHER_STATE_FIPS_CODE,
6837 AC_COUNTY_FIPS_CODE => LC_OTHER_STATE_COUNTY_CODE,
6838 AC_OFFICE_FIPS_CODE => LC_OTHER_STATE_OFFICE_CODE,
6839 AS_OTHER_STATE_CASE_IDC => LS_OTHER_STATE_CASE_IDC,
6840 AD_GENERATED_DATE => CURRENT_DATE,
6841 AI_FORM_NUMB => NULL,
6842 AS_FORM_WEB_URL => NULL,
6843 AI_TRANS_HEADER_ID => LI_TRANS_HEADER_ID,
6844 AS_COMMENT_NOTE => NULL,
6845 AI_FORMER_CASE_NUMB => NULL,
6846 AS_INS_CARRIER_NAME => NULL,
6847 AS_INS_POLICY_DESC => NULL,
6848 AD_HEARING_DATE => NULL,
6849 AD_DISMISSAL_DATE => NULL,
6850 AD_GENETIC_TEST_DATE => NULL,
6851 AD_PFNOSHOW_DATE => NULL,
6852 AS_DOCKET_IDC => NULL,
6853 AD_ARREAR_COMPUTED_DATE => NULL,
6854 AN_TOTAL_INTEREST_OWED_AMT => NULL,
6855 AN_TOTAL_ARREAR_OWED_AMT => NULL,
6856 AC_SCREEN_CODE => AC_SCREEN_CODE,
6857 AC_JOB_CODE => AC_JOB_CODE,
6858 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
6859 AI_TRANSACTION_EVENT_SEQ_NUMB =>
6860 LI_TRANSACTION_EVENT_SEQ_NUMB,
6861 AC_MSG_CODE => LC_MSG_CODE,
6862 AS_ERROR_DESC => LS_ERROR_DESC);
6863
6864 IF LC_MSG_CODE <> LC_S_MSG_CODE
6865 THEN
6866 SET LC_SQLSTATE_CODE = '75000';
6867 SIGNAL SQLSTATE '75000';
6868 END IF;
6869 END IF;
6870
6871 SET LS_SQL_DESC = 'BATCH_COMMON$SP_USER_ASSIGNMENT';
6872 SET LS_SQL_DATA_DESC =
6873 'CASE_ID :'
6874 || AI_CASE_ID
6875 || ', SCREEN_CODE :'
6876 || NVL (AC_SCREEN_CODE, ' ')
6877 || ', JOB_CODE :'
6878 || NVL (AC_JOB_CODE, ' ')
6879 || ', UPDATED_BY_NAME :'
6880 || AS_UPDATED_BY_NAME
6881 || ', TRANSACTION_EVENT_SEQ_NUMB :'
6882 || LI_TRANSACTION_EVENT_SEQ_NUMB;
6883
6884 CALL BATCH_COMMON$SP_USER_ASSIGNMENT (
6885 AI_CASE_ID => AI_CASE_ID,
6886 AC_PROCESS_SUBSYSTEM_CODE => LC_CI_SUBSYSTEM_CODE,
6887 AI_PROCESS_STATUS_SEQ_ID => NULL,
6888 AI_PROCESS_TASK_SEQ_ID => NULL,
6889 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
6890 AI_TRANSACTION_EVENT_SEQ_NUMB => LI_TRANSACTION_EVENT_SEQ_NUMB,
6891 AD_RUN_DATE => AD_RUN_DATE,
6892 AC_SCREEN_CODE => AC_SCREEN_CODE,
6893 AC_JOB_CODE => AC_JOB_CODE,
6894 AC_MSG_CODE => LC_MSG_CODE,
6895 AS_ERROR_DESC => LS_ERROR_DESC);
6896
6897 IF LC_MSG_CODE <> LC_S_MSG_CODE
6898 THEN
6899 SET LC_SQLSTATE_CODE = '75000';
6900 SIGNAL SQLSTATE '75000';
6901 END IF;
6902
6903 IF AI_CASE_ID IS NOT NULL
6904 THEN
6905 INSERT INTO SESSION.TEMP_TASK_DETAIL (TASK_CODE, COMMENT_NOTE)
6906 VALUES (LC_CCRCC_TASK_CODE, NULL);
6907 END IF;
6908
6909 IF AC_SCREEN_CODE IS NULL AND LTRIM (LS_COMMENT_NOTE) <> ''
6910 THEN
6911 INSERT INTO SESSION.TEMP_TASK_DETAIL (TASK_CODE, COMMENT_NOTE)
6912 VALUES (LC_CCRCM_TASK_CODE, LTRIM (LS_COMMENT_NOTE));
6913 END IF;
6914
6915 IF AC_SCREEN_CODE IS NOT NULL
6916 AND EXISTS
6917 (SELECT 1
6918 FROM CASE_DETAIL A
6919 WHERE A.CASE_ID = AI_CASE_ID
6920 AND A.CASE_STATUS_CODE = LC_O_CASE_STATUS_CODE
6921 AND A.CASE_TYPE_CODE = LC_N_CASE_TYPE_CODE)
6922 THEN
6923 INSERT INTO SESSION.TEMP_TASK_DETAIL (TASK_CODE, COMMENT_NOTE)
6924 VALUES (LC_CCNTA_TASK_CODE, NULL);
6925 END IF;
6926
6927 OPEN TASK_CUR;
6928
6929 SET LS_SQL_DESC = 'FETCH TASK_CUR';
6930 SET LS_SQL_DATA_DESC =
6931 'UPDATED_BY_NAME '
6932 || NVL (AS_UPDATED_BY_NAME, '')
6933 || 'SCREEN/JOB CODE '
6934 || NVL (AC_SCREEN_CODE, AC_JOB_CODE);
6935
6936 FETCH_TASK_LOOP:
6937 LOOP
6938 FETCH TASK_CUR
6939 INTO LI_TASKCUR_SEQ_ID,
6940 LC_TASKCUR_TASK_CODE,
6941 LS_TASKCUR_COMMENT_NOTE;
6942
6943 IF SQLCODE = 100
6944 THEN
6945 LEAVE FETCH_TASK_LOOP;
6946 END IF;
6947
6948 SET LS_SQL_DESC = 'CALL BATCH_COMMON$SP_INSERT_TASK';
6949 SET LS_SQL_DATA_DESC =
6950 'CASE_ID = '
6951 || NVL (AI_CASE_ID, 0)
6952 || ', PERSON_ID = '
6953 || NVL (LI_NCP_PERSON_ID, 0)
6954 || ', PROCESS_CODE = '
6955 || NVL (LC_CASE_TASK_PROCESS_CODE, '')
6956 || ', TASK_CODE = '
6957 || NVL (LC_TASKCUR_TASK_CODE, '')
6958 || ', COMMENT_NOTE = '
6959 || NVL (LS_TASKCUR_COMMENT_NOTE, '')
6960 || ', PROCESS_SUBSYSTEM_CODE = '
6961 || NVL (LC_CI_SUBSYSTEM_CODE, '')
6962 || ', RUN_DATE = '
6963 || AD_RUN_DATE
6964 || ', JOB_CODE = '
6965 || NVL (AC_JOB_CODE, '')
6966 || ', TRANSACTION_EVENT_SEQ_NUMB = '
6967 || NVL (LI_TRANSACTION_EVENT_SEQ_NUMB, 0)
6968 || ', UPDATED_BY_NAME = '
6969 || NVL (AS_UPDATED_BY_NAME, '');
6970
6971 CALL BATCH_COMMON$SP_INSERT_TASK (
6972 AI_CASE_ID => AI_CASE_ID,
6973 AI_PERSON_ID => LI_NCP_PERSON_ID,
6974 AC_PROCESS_CODE => LC_CASE_TASK_PROCESS_CODE,
6975 AC_TASK_CODE => LC_TASKCUR_TASK_CODE,
6976 AS_COMMENT_NOTE => LS_TASKCUR_COMMENT_NOTE,
6977 AC_PROCESS_SUBSYSTEM_CODE => LC_CI_SUBSYSTEM_CODE,
6978 AI_TRANSACTION_EVENT_SEQ_NUMB =>
6979 LI_TRANSACTION_EVENT_SEQ_NUMB,
6980 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
6981 AD_RUN_DATE => AD_RUN_DATE,
6982 AC_SCREEN_CODE => AC_SCREEN_CODE,
6983 AC_JOB_CODE => AC_JOB_CODE,
6984 AI_OUT_PROCESS_TASK_SEQ_ID => LI_OUT_PROCESS_TASK_SEQ_ID,
6985 AI_OUT_TASK_USER_ID => LI_OUT_TASK_USER_ID,
6986 AI_OUT_CASE_JOURNAL_SEQ_ID => LI_OUT_CASE_JOURNAL_SEQ_ID,
6987 AI_OUT_TRANSACTION_EVENT_SEQ_NUMB =>
6988 LI_OUT_TRANSACTION_EVENT_SEQ_NUMB,
6989 AC_MSG_CODE => LC_MSG_CODE,
6990 AS_ERROR_DESC => LS_ERROR_DESC);
6991
6992 IF ( (AC_SCREEN_CODE IS NOT NULL AND LC_MSG_CODE <> LC_S_MSG_CODE)
6993 OR LC_MSG_CODE = LC_F_MSG_CODE
6994 OR ( LC_MSG_CODE <> LC_S_MSG_CODE
6995 AND BATCH_COMMON$SF_GET_BATE_ERROR_TYPE (LC_MSG_CODE) =
6996 LC_E_ERROR_TYPE_CODE))
6997 THEN
6998 SET LC_SQLSTATE_CODE = '75000';
6999 SIGNAL SQLSTATE '75000';
7000 ELSE
7001 IF LC_MSG_CODE <> LC_S_MSG_CODE
7002 THEN
7003 SET LS_SQL_DESC =
7004 LS_SQL_DESC || ' ' || 'BATCH_COMMON$SP_BATE_LOG';
7005
7006 CALL BATCH_COMMON$SP_BATE_LOG (
7007 AC_JOB_CODE => AC_JOB_CODE,
7008 AD_RUN_DATE => AD_RUN_DATE,
7009 AC_ERROR_TYPE_CODE => LC_E_ERROR_TYPE_CODE,
7010 AI_LINE_NUMB => 0,
7011 AC_ERROR_CODE => LC_MSG_CODE,
7012 AS_ERROR_NOTE => LS_ERROR_DESC,
7013 AS_LIST_KEY_NOTE => LS_SQL_DATA_DESC,
7014 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
7015 AS_PROCESS_NAME => LS_ROUTINE_NAME,
7016 AS_PROCEDURE_NAME => LS_PROCEDURE_NAME,
7017 AC_MSG_CODE => LC_MSG_CODE,
7018 AS_ERROR_DESC => LS_ERROR_DESC);
7019
7020 IF LC_MSG_CODE = LC_F_MSG_CODE
7021 THEN
7022 SET LC_SQLSTATE_CODE = '75000';
7023 SIGNAL SQLSTATE '75000';
7024 END IF;
7025 END IF;
7026 END IF;
7027 END LOOP FETCH_TASK_LOOP;
7028
7029 CLOSE TASK_CUR;
7030
7031 SET LS_SQL_DESC = 'CALL BATCH_ENF_ELFC$SP_INITIATE_PROCESS';
7032 SET LS_SQL_DATA_DESC =
7033 'CASE_ID = '
7034 || NVL (AI_CASE_ID, 0)
7035 || ', PERSON_ID = '
7036 || NVL (LI_NCP_PERSON_ID, 0)
7037 || ', SOURCE_NUMB = '
7038 || NVL (LI_CST_PERSON_ID, 0)
7039 || ', PROCESS_CODE = '
7040 || NVL (LC_CASS_TASK_PROCESS_CODE, '')
7041 || ', PROCESS_SUBSYSTEM_CODE = '
7042 || NVL (LC_CI_SUBSYSTEM_CODE, '')
7043 || ', RUN_DATE = '
7044 || AD_RUN_DATE
7045 || ', SCREEN_CODE = '
7046 || NVL (AC_SCREEN_CODE, '')
7047 || ', JOB_CODE = '
7048 || NVL (AC_JOB_CODE, '')
7049 || ', TRANSACTION_EVENT_SEQ_NUMB = '
7050 || NVL (LI_TRANSACTION_EVENT_SEQ_NUMB, 0)
7051 || ', UPDATED_BY_NAME = '
7052 || NVL (AS_UPDATED_BY_NAME, '');
7053
7054 CALL BATCH_ENF_ELFC$SP_INITIATE_PROCESS (
7055 AC_TYPE_CHANGE_CODE => NULL,
7056 AI_CASE_ID => AI_CASE_ID,
7057 AI_SUPPORT_ORDER_ID => NULL,
7058 AI_PERSON_ID => LI_NCP_PERSON_ID,
7059 AI_SOURCE_NUMB => LI_CST_PERSON_ID,
7060 AC_SOURCE_TYPE_CODE => LC_C_SOURCE_TYPE_CODE,
7061 AC_PROCESS_CODE => LC_CASS_TASK_PROCESS_CODE,
7062 AC_PROCESS_SUBSYSTEM_CODE => LC_CI_SUBSYSTEM_CODE,
7063 AI_TRANSACTION_EVENT_SEQ_NUMB => LI_TRANSACTION_EVENT_SEQ_NUMB,
7064 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
7065 AD_RUN_DATE => AD_RUN_DATE,
7066 AC_SCREEN_CODE => AC_SCREEN_CODE,
7067 AC_JOB_CODE => AC_JOB_CODE,
7068 AC_MSG_CODE => LC_MSG_CODE,
7069 AS_ERROR_DESC => LS_ERROR_DESC);
7070
7071 IF ( (AC_SCREEN_CODE IS NOT NULL AND LC_MSG_CODE <> LC_S_MSG_CODE)
7072 OR LC_MSG_CODE = LC_F_MSG_CODE
7073 OR ( LC_MSG_CODE <> LC_S_MSG_CODE
7074 AND BATCH_COMMON$SF_GET_BATE_ERROR_TYPE (LC_MSG_CODE) =
7075 LC_E_ERROR_TYPE_CODE))
7076 THEN
7077 SET LC_SQLSTATE_CODE = '75000';
7078 SIGNAL SQLSTATE '75000';
7079 ELSE
7080 IF LC_MSG_CODE <> LC_S_MSG_CODE
7081 THEN
7082 SET LS_SQL_DESC =
7083 LS_SQL_DESC || ' ' || 'BATCH_COMMON$SP_BATE_LOG';
7084
7085 CALL BATCH_COMMON$SP_BATE_LOG (
7086 AC_JOB_CODE => AC_JOB_CODE,
7087 AD_RUN_DATE => AD_RUN_DATE,
7088 AC_ERROR_TYPE_CODE => LC_E_ERROR_TYPE_CODE,
7089 AI_LINE_NUMB => 0,
7090 AC_ERROR_CODE => LC_MSG_CODE,
7091 AS_ERROR_NOTE => LS_ERROR_DESC,
7092 AS_LIST_KEY_NOTE => LS_SQL_DATA_DESC,
7093 AS_UPDATED_BY_NAME => AS_UPDATED_BY_NAME,
7094 AS_PROCESS_NAME => LS_ROUTINE_NAME,
7095 AS_PROCEDURE_NAME => LS_PROCEDURE_NAME,
7096 AC_MSG_CODE => LC_MSG_CODE,
7097 AS_ERROR_DESC => LS_ERROR_DESC);
7098
7099 IF LC_MSG_CODE = LC_F_MSG_CODE
7100 THEN
7101 SET LC_SQLSTATE_CODE = '75000';
7102 SIGNAL SQLSTATE '75000';
7103 END IF;
7104 END IF;
7105 END IF;
7106
7107 SET LS_SQL_DESC = 'UPDATE APPLICATION_CASE';
7108 SET LS_SQL_DATA_DESC = 'APPLICATION_ID ' || NVL (AI_APPLICATION_ID, 0);
7109
7110 UPDATE APPLICATION_CASE
7111 SET APPLICATION_STATUS_CODE = LC_C_APPLICATION_STATUS_CODE,
7112 TRANSACTION_EVENT_SEQ_NUMB = LI_TRANSACTION_EVENT_SEQ_NUMB
7113 WHERE APPLICATION_ID = AI_APPLICATION_ID;
7114
7115 GET DIAGNOSTICS LI_ROW_COUNT_QNTY = ROW_COUNT;
7116
7117 IF LI_ROW_COUNT_QNTY = LI_ZERO_NUMB
7118 THEN
7119 SET LC_MSG_CODE = LC_F_MSG_CODE;
7120 SET LS_ERROR_DESC = 'UPDATE APPLICATION_CASE FAILED';
7121 SET LC_SQLSTATE_CODE = '75000';
7122 SIGNAL SQLSTATE '75000';
7123 END IF;
7124
7125 SET AC_MSG_CODE = LC_S_MSG_CODE;
7126 END;
7127END