DBA Data[Home] [Help]

APPS.IGS_AD_IMP_007 dependencies on IGS_AD_HLTH_INS_INT

Line 1328: FROM igs_ad_hlth_ins_int_all hii, igs_ad_interface_all i

1324: || (reverse chronological order - newest change first)
1325: */
1326: CURSOR hlth_ins(cp_interface_run_id igs_ad_interface_all.interface_run_id%TYPE) IS
1327: SELECT hii.*, i.person_id
1328: FROM igs_ad_hlth_ins_int_all hii, igs_ad_interface_all i
1329: WHERE hii.interface_run_id = cp_interface_run_id
1330: AND i.interface_id = hii.interface_id
1331: AND i.interface_run_id = cp_interface_run_id
1332: AND hii.status = '2';

Line 1341: l_dup_hlth_ins_id IGS_AD_HLTH_INS_INT.DUP_HLTH_INS_ID%TYPE;

1337: L_RULE VARCHAR2(1);
1338: L_ERROR_cODE VARCHAR2(10);
1339: L_STATUS VARCHAR2(10);
1340: l_check VARCHAR2(10);
1341: l_dup_hlth_ins_id IGS_AD_HLTH_INS_INT.DUP_HLTH_INS_ID%TYPE;
1342: l_processed_records NUMBER(5) := 0;
1343: l_prog_label VARCHAR2(4000);
1344: l_label VARCHAR2(4000);
1345: l_debug_str VARCHAR2(4000);

Line 1435: igs_ad_imp_001.logerrormessage(HLTH_INS_REC.Interface_hlth_Id,'E322','IGS_AD_HLTH_INS_INT_ALL');

1431: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
1432: END IF;
1433:
1434: IF l_enable_log = 'Y' THEN
1435: igs_ad_imp_001.logerrormessage(HLTH_INS_REC.Interface_hlth_Id,'E322','IGS_AD_HLTH_INS_INT_ALL');
1436: END IF;
1437:
1438: END Crt_Pe_hlth_ins;
1439:

Line 1509: UPDATE igs_ad_hlth_ins_int

1505: l_check := 'FALSE';
1506:
1507: EXCEPTION
1508: WHEN OTHERS THEN
1509: UPDATE igs_ad_hlth_ins_int
1510: SET error_code = p_error_code,
1511: status = '3'
1512: WHERE interface_hlth_id = hlth_ins_rec.interface_hlth_id;
1513:

Line 1515: igs_ad_imp_001.logerrormessage(hlth_ins_rec.Interface_hlth_Id,p_error_code,'IGS_AD_HLTH_INS_INT_ALL');

1511: status = '3'
1512: WHERE interface_hlth_id = hlth_ins_rec.interface_hlth_id;
1513:
1514: IF l_enable_log = 'Y' THEN
1515: igs_ad_imp_001.logerrormessage(hlth_ins_rec.Interface_hlth_Id,p_error_code,'IGS_AD_HLTH_INS_INT_ALL');
1516: END IF;
1517:
1518: l_check := 'TRUE';
1519: END;

Line 1546: UPDATE igs_ad_hlth_ins_int_all

1542: l_rule := Igs_Ad_Imp_001.FIND_SOURCE_CAT_RULE(p_source_type_id, 'PERSON_HEALTH_INSURANCE');
1543:
1544: -- If rule is E or I, then if the match_ind is not null, the combination is invalid
1545: IF l_rule IN ('E','I') THEN
1546: UPDATE igs_ad_hlth_ins_int_all
1547: SET status = cst_stat_val_3,
1548: ERROR_CODE = cst_err_val_695 -- Error code depicting incorrect combination
1549: WHERE match_ind IS NOT NULL
1550: AND status = cst_stat_val_2

Line 1556: UPDATE igs_ad_hlth_ins_int_all mi

1552: END IF;
1553:
1554: -- If rule is E and duplicate exists, update match_ind to 19 and status to 1
1555: IF l_rule = 'E' THEN
1556: UPDATE igs_ad_hlth_ins_int_all mi
1557: SET status = cst_stat_val_1,
1558: match_ind = cst_mi_val_19
1559: WHERE mi.interface_run_id = l_interface_run_id
1560: AND mi.status = cst_stat_val_2

Line 1573: UPDATE igs_ad_hlth_ins_int_all

1569:
1570: -- If rule is R and there match_ind is 18,19,22 or 23 then the records must have been
1571: -- processed in prior runs and didn't get updated .. update to status 1
1572: IF l_rule = 'R' THEN
1573: UPDATE igs_ad_hlth_ins_int_all
1574: SET status = cst_stat_val_1
1575: WHERE interface_run_id = l_interface_run_id
1576: AND match_ind IN (cst_mi_val_18,cst_mi_val_19,cst_mi_val_22,cst_mi_val_23)
1577: AND status=cst_stat_val_2;

Line 1582: UPDATE igs_ad_hlth_ins_int_all

1578: END IF;
1579:
1580: -- If rule is R and match_ind is neither 21 nor 25 then error
1581: IF l_rule = 'R' THEN
1582: UPDATE igs_ad_hlth_ins_int_all
1583: SET status = cst_stat_val_3,
1584: ERROR_CODE = cst_err_val_695
1585: WHERE interface_run_id = l_interface_run_id
1586: AND (match_ind IS NOT NULL AND match_ind NOT IN (cst_mi_val_21,cst_mi_val_25))

Line 1592: UPDATE igs_ad_hlth_ins_int_all mi

1588: END IF;
1589:
1590: -- If rule is R, set duplicated records with no discrepancy to status 1 and match_ind 23
1591: IF l_rule = 'R' THEN
1592: UPDATE igs_ad_hlth_ins_int_all mi
1593: SET status = cst_stat_val_1,
1594: match_ind = cst_mi_val_23
1595: WHERE mi.interface_run_id = l_interface_run_id
1596: AND mi.match_ind IS NULL

Line 1633: UPDATE igs_ad_hlth_ins_int_all mi

1629: END IF;
1630:
1631: -- If rule in R records still exist, they are duplicates and have discrepancy .. update status=3,match_ind=20
1632: IF l_rule = 'R' THEN
1633: UPDATE igs_ad_hlth_ins_int_all mi
1634: SET status = cst_stat_val_3,
1635: match_ind = cst_mi_val_20,
1636: dup_hlth_ins_id = (SELECT health_ins_id
1637: FROM igs_pe_hlth_ins_all pe, igs_ad_interface_all ii

Line 1670: cp_start_date IGS_AD_HLTH_INS_INT.START_DATE%TYPE) IS

1666: IF l_check <> 'TRUE' THEN
1667: DECLARE
1668: CURSOR chk_dup_pe_hlthins(cp_insurance_cd VARCHAR2,
1669: cp_person_id NUMBER,
1670: cp_start_date IGS_AD_HLTH_INS_INT.START_DATE%TYPE) IS
1671: SELECT rowid, hi.*
1672: FROM igs_pe_hlth_ins hi
1673: WHERE hi.person_id = cp_person_id
1674: AND UPPER(hi.insurance_cd) = UPPER(cp_insurance_cd)

Line 1719: UPDATE igs_ad_hlth_ins_int

1715: X_ATTRIBUTE20 => NVL(HLTH_INS_REC.ATTRIBUTE20, dup_pe_hlthins_rec.ATTRIBUTE20),
1716: x_mode =>'R',
1717: x_insurance_cd=> NVL(hlth_ins_rec.insurance_cd,dup_pe_hlthins_rec.insurance_cd));
1718:
1719: UPDATE igs_ad_hlth_ins_int
1720: SET error_code = NULL,
1721: match_ind = cst_mi_val_18,
1722: status = cst_stat_val_1
1723: WHERE interface_hlth_id = hlth_ins_rec.interface_hlth_id;

Line 1726: UPDATE igs_ad_hlth_ins_int

1722: status = cst_stat_val_1
1723: WHERE interface_hlth_id = hlth_ins_rec.interface_hlth_id;
1724: EXCEPTION
1725: WHEN OTHERS THEN
1726: UPDATE igs_ad_hlth_ins_int
1727: SET error_code = 'E014',
1728: status = '3'
1729: WHERE interface_hlth_id = hlth_ins_rec.interface_hlth_id;
1730: IF fnd_log.test(fnd_log.level_exception,l_prog_label) THEN

Line 1749: igs_ad_imp_001.logerrormessage(hlth_ins_rec.INTERFACE_HLTH_ID,'E014','IGS_AD_HLTH_INS_INT_ALL');

1745: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
1746: END IF;
1747:
1748: IF l_enable_log = 'Y' THEN
1749: igs_ad_imp_001.logerrormessage(hlth_ins_rec.INTERFACE_HLTH_ID,'E014','IGS_AD_HLTH_INS_INT_ALL');
1750: END IF;
1751:
1752:
1753: END;

Line 1788: UPDATE igs_ad_hlth_ins_int

1784: X_ATTRIBUTE18 => NVL(HLTH_INS_REC.ATTRIBUTE18, dup_pe_hlthins_rec.ATTRIBUTE18),
1785: X_ATTRIBUTE19 => NVL(HLTH_INS_REC.ATTRIBUTE19, dup_pe_hlthins_rec.ATTRIBUTE19),
1786: X_ATTRIBUTE20 => NVL(HLTH_INS_REC.ATTRIBUTE20, dup_pe_hlthins_rec.ATTRIBUTE20),
1787: x_mode =>'R');
1788: UPDATE igs_ad_hlth_ins_int
1789: SET error_code = NULL,
1790: match_ind = cst_mi_val_18,
1791: status = cst_stat_val_1
1792: WHERE interface_hlth_id = hlth_ins_rec.interface_hlth_id;

Line 1795: UPDATE igs_ad_hlth_ins_int

1791: status = cst_stat_val_1
1792: WHERE interface_hlth_id = hlth_ins_rec.interface_hlth_id;
1793: EXCEPTION
1794: WHEN OTHERS THEN
1795: UPDATE igs_ad_hlth_ins_int
1796: SET error_code = 'E014',
1797: status = '3'
1798: WHERE interface_hlth_id = hlth_ins_rec.interface_hlth_id;
1799: IF fnd_log.test(fnd_log.level_exception,l_prog_label) THEN

Line 1818: igs_ad_imp_001.logerrormessage(hlth_ins_rec.INTERFACE_HLTH_ID,'E014','IGS_AD_HLTH_INS_INT_ALL');

1814: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
1815: END IF;
1816:
1817: IF l_enable_log = 'Y' THEN
1818: igs_ad_imp_001.logerrormessage(hlth_ins_rec.INTERFACE_HLTH_ID,'E014','IGS_AD_HLTH_INS_INT_ALL');
1819: END IF;
1820: END;
1821: END IF; -- if match_ind
1822: END IF; -- if rule

Line 1828: UPDATE IGS_AD_HLTH_INS_INT

1824: crt_pe_hlth_ins(hlth_ins_rec,
1825: l_error_code,
1826: l_status);
1827:
1828: UPDATE IGS_AD_HLTH_INS_INT
1829: SET status = l_status,
1830: error_code = l_error_code
1831: WHERE INTERFACE_HLTH_ID = hlth_ins_rec.INTERFACE_HLTH_ID;
1832: END IF; -- if dup