DBA Data[Home] [Help]

APPS.IGS_AD_IMP_007 dependencies on IGS_PE_IMMU_DTL_INT

Line 654: FROM igs_pe_immu_dtl_int ai, igs_ad_interface_all i

650: || (reverse chronological order - newest change first)
651: */
652: CURSOR c_immu_dtls_cur(cp_interface_run_id igs_ad_interface_all.interface_run_id%TYPE) IS
653: SELECT ai.*, i.person_id
654: FROM igs_pe_immu_dtl_int ai, igs_ad_interface_all i
655: WHERE ai.interface_run_id = cp_interface_run_id
656: AND ai.interface_id = i.interface_id
657: AND ai.interface_run_id = cp_interface_run_id
658: AND ai.status = '2';

Line 675: l_error_code igs_pe_immu_dtl_int.error_code%TYPE;

671: l_dup_var BOOLEAN;
672: l_immu_details_id igs_pe_immu_dtls.immu_details_id%TYPE;
673: l_var VARCHAR2(1);
674: l_rule VARCHAR2(1);
675: l_error_code igs_pe_immu_dtl_int.error_code%TYPE;
676: l_status igs_pe_immu_dtl_int.status%TYPE;
677: l_count NUMBER(10);
678: lv_rowid VARCHAR2(25);
679: l_processed_records NUMBER(5) := 0;

Line 676: l_status igs_pe_immu_dtl_int.status%TYPE;

672: l_immu_details_id igs_pe_immu_dtls.immu_details_id%TYPE;
673: l_var VARCHAR2(1);
674: l_rule VARCHAR2(1);
675: l_error_code igs_pe_immu_dtl_int.error_code%TYPE;
676: l_status igs_pe_immu_dtl_int.status%TYPE;
677: l_count NUMBER(10);
678: lv_rowid VARCHAR2(25);
679: l_processed_records NUMBER(5) := 0;
680: l_prog_label VARCHAR2(4000);

Line 763: UPDATE igs_pe_immu_dtl_int

759:
760: EXCEPTION
761: WHEN NO_DATA_FOUND THEN
762: -- Validation Unsuccessful
763: UPDATE igs_pe_immu_dtl_int
764: SET status = '3',
765: error_code = p_error_code
766: WHERE interface_immu_dtls_id = p_health_insur_rec.interface_immu_dtls_id;
767:

Line 769: igs_ad_imp_001.logerrormessage(p_health_insur_rec.interface_immu_dtls_id,p_error_code,'IGS_PE_IMMU_DTL_INT');

765: error_code = p_error_code
766: WHERE interface_immu_dtls_id = p_health_insur_rec.interface_immu_dtls_id;
767:
768: IF l_enable_log = 'Y' THEN
769: igs_ad_imp_001.logerrormessage(p_health_insur_rec.interface_immu_dtls_id,p_error_code,'IGS_PE_IMMU_DTL_INT');
770: END IF;
771:
772: END validate_record_health; -- End of Local Procedure validate_record_health
773:

Line 844: igs_ad_imp_001.logerrormessage(health_insur_rec.INTERFACE_IMMU_DTLS_ID,'E255','IGS_PE_IMMU_DTL_INT');

840:
841: p_status:='3';
842: p_error_code:='E255';
843: IF l_enable_log = 'Y' THEN
844: igs_ad_imp_001.logerrormessage(health_insur_rec.INTERFACE_IMMU_DTLS_ID,'E255','IGS_PE_IMMU_DTL_INT');
845: END IF;
846: ELSE
847: igs_pe_immu_dtls_pkg.INSERT_ROW (
848: x_rowid => l_rowid,

Line 881: UPDATE igs_pe_immu_dtl_int

877:
878: p_error_code := NULL;
879: p_status := '1';
880:
881: UPDATE igs_pe_immu_dtl_int
882: SET status = '1',
883: ERROR_CODE = p_error_code
884: WHERE interface_immu_dtls_id = health_insur_rec.interface_immu_dtls_id;
885: END IF;

Line 892: UPDATE igs_pe_immu_dtl_int

888: WHEN OTHERS THEN
889: p_STATUS := '3';
890: p_ERROR_CODE := 'E159';
891:
892: UPDATE igs_pe_immu_dtl_int
893: SET status = p_status,
894: ERROR_CODE = p_error_code
895: WHERE interface_immu_dtls_id = health_insur_rec.interface_immu_dtls_id;
896: -- Call Log detail

Line 919: igs_ad_imp_001.logerrormessage(health_insur_rec.interface_immu_dtls_id,'E159','IGS_PE_IMMU_DTL_INT');

915: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
916: END IF;
917:
918: IF l_enable_log = 'Y' THEN
919: igs_ad_imp_001.logerrormessage(health_insur_rec.interface_immu_dtls_id,'E159','IGS_PE_IMMU_DTL_INT');
920: END IF;
921:
922: END crt_health_ins;
923:

Line 955: UPDATE igs_pe_immu_dtl_int

951: p_category => 'PERSON_HEALTH_INSURANCE');
952:
953: -- If rule is E or I, then if the match_ind is not null, the combination is invalid
954: IF l_rule IN ('E','I') THEN
955: UPDATE igs_pe_immu_dtl_int
956: SET status = cst_stat_val_3,
957: ERROR_CODE = cst_err_val_695 -- Error code depicting incorrect combination
958: WHERE match_ind IS NOT NULL
959: AND status = cst_stat_val_2

Line 965: UPDATE igs_pe_immu_dtl_int mi

961: END IF;
962:
963: -- If rule is E and duplicate exists, update match_ind to 19 and status to 1
964: IF l_rule = 'E' THEN
965: UPDATE igs_pe_immu_dtl_int mi
966: SET status = cst_stat_val_1,
967: match_ind = cst_mi_val_19
968: WHERE mi.interface_run_id = l_interface_run_id
969: AND mi.status = cst_stat_val_2

Line 982: UPDATE igs_pe_immu_dtl_int

978:
979: -- If rule is R and there match_ind is 18,19,22 or 23 then the records must have been
980: -- processed in prior runs and didn't get updated .. update to status 1
981: IF l_rule = 'R' THEN
982: UPDATE igs_pe_immu_dtl_int
983: SET status = cst_stat_val_1
984: WHERE interface_run_id = l_interface_run_id
985: AND match_ind IN (cst_mi_val_18,cst_mi_val_19,cst_mi_val_22,cst_mi_val_23)
986: AND status = cst_stat_val_2;

Line 991: UPDATE igs_pe_immu_dtl_int

987: END IF;
988:
989: -- If rule is R and match_ind is neither 21 nor 25 then error
990: IF l_rule = 'R' THEN
991: UPDATE igs_pe_immu_dtl_int
992: SET status = cst_stat_val_3,
993: ERROR_CODE = cst_err_val_695
994: WHERE interface_run_id = l_interface_run_id
995: AND status = cst_stat_val_2

Line 1001: UPDATE igs_pe_immu_dtl_int mi

997: END IF;
998:
999: -- If rule is R, set duplicated records with no discrepancy to status 1 and match_ind 23
1000: IF l_rule = 'R' THEN
1001: UPDATE igs_pe_immu_dtl_int mi
1002: SET status = cst_stat_val_1,
1003: match_ind = cst_mi_val_23
1004: WHERE mi.interface_run_id = l_interface_run_id
1005: AND mi.match_ind IS NULL

Line 1021: UPDATE igs_pe_immu_dtl_int mi

1017: END IF;
1018:
1019: -- If rule is R records still exist, they are duplicates and have discrepancy .. update status=3,match_ind=20
1020: IF l_rule = 'R' THEN
1021: UPDATE igs_pe_immu_dtl_int mi
1022: SET status = cst_stat_val_3,
1023: match_ind = cst_mi_val_20,
1024: dup_immu_details_id = (SELECT pe.immu_details_id
1025: FROM igs_pe_immu_dtls pe, igs_ad_interface_all ii

Line 1088: igs_ad_imp_001.logerrormessage(pe_health_rec.interface_immu_dtls_id,'E255','IGS_PE_IMMU_DTL_INT');

1084: p_attribute20 =>pe_health_rec.attribute20 ,
1085: p_desc_flex_name =>'IGS_PE_IMMU_DTLS_FLEX' ) THEN
1086:
1087: IF l_enable_log = 'Y' THEN
1088: igs_ad_imp_001.logerrormessage(pe_health_rec.interface_immu_dtls_id,'E255','IGS_PE_IMMU_DTL_INT');
1089: END IF;
1090:
1091: UPDATE igs_pe_immu_dtl_int
1092: SET ERROR_CODE ='E255',

Line 1091: UPDATE igs_pe_immu_dtl_int

1087: IF l_enable_log = 'Y' THEN
1088: igs_ad_imp_001.logerrormessage(pe_health_rec.interface_immu_dtls_id,'E255','IGS_PE_IMMU_DTL_INT');
1089: END IF;
1090:
1091: UPDATE igs_pe_immu_dtl_int
1092: SET ERROR_CODE ='E255',
1093: status = '3'
1094: WHERE INTERFACE_IMMU_DTLS_ID = pe_health_rec.interface_immu_dtls_id;
1095:

Line 1131: UPDATE igs_pe_immu_dtl_int

1127: x_mode =>'R'
1128: );
1129: l_error_code := NULL;
1130: l_status := '1';
1131: UPDATE igs_pe_immu_dtl_int
1132: SET match_ind = cst_mi_val_18,
1133: status = l_status,
1134: ERROR_CODE = l_error_code
1135: WHERE interface_immu_dtls_id = pe_health_rec.interface_immu_dtls_id;

Line 1142: UPDATE igs_pe_immu_dtl_int

1138: EXCEPTION
1139: WHEN OTHERS THEN
1140: l_error_code := 'E160'; -- Could not update Immunization details
1141: l_status := '3';
1142: UPDATE igs_pe_immu_dtl_int
1143: SET status = l_status,
1144: ERROR_CODE = l_error_code
1145: WHERE interface_immu_dtls_id = pe_health_rec.interface_immu_dtls_id;
1146:

Line 1167: igs_ad_imp_001.logerrormessage(pe_health_rec.interface_immu_dtls_id,l_error_code,'IGS_PE_IMMU_DTL_INT');

1163: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
1164: END IF;
1165:
1166: IF l_enable_log = 'Y' THEN
1167: igs_ad_imp_001.logerrormessage(pe_health_rec.interface_immu_dtls_id,l_error_code,'IGS_PE_IMMU_DTL_INT');
1168: END IF;
1169:
1170: END;
1171: END IF;

Line 1204: igs_ad_imp_001.logerrormessage(pe_health_rec.INTERFACE_IMMU_DTLS_ID,'E255','IGS_PE_IMMU_DTL_INT');

1200: p_attribute20 =>pe_health_rec.attribute20 ,
1201: p_desc_flex_name =>'IGS_PE_IMMU_DTLS_FLEX' ) THEN
1202:
1203: IF l_enable_log = 'Y' THEN
1204: igs_ad_imp_001.logerrormessage(pe_health_rec.INTERFACE_IMMU_DTLS_ID,'E255','IGS_PE_IMMU_DTL_INT');
1205: END IF;
1206:
1207: UPDATE igs_pe_immu_dtl_int
1208: SET ERROR_CODE ='E255',

Line 1207: UPDATE igs_pe_immu_dtl_int

1203: IF l_enable_log = 'Y' THEN
1204: igs_ad_imp_001.logerrormessage(pe_health_rec.INTERFACE_IMMU_DTLS_ID,'E255','IGS_PE_IMMU_DTL_INT');
1205: END IF;
1206:
1207: UPDATE igs_pe_immu_dtl_int
1208: SET ERROR_CODE ='E255',
1209: status = '3'
1210: WHERE INTERFACE_IMMU_DTLS_ID = pe_health_rec.INTERFACE_IMMU_DTLS_ID;
1211: ELSE

Line 1246: UPDATE igs_pe_immu_dtl_int

1242: x_mode =>'R'
1243: );
1244: l_error_code := NULL;
1245: l_status := '1';
1246: UPDATE igs_pe_immu_dtl_int
1247: SET match_ind = cst_mi_val_18,
1248: status = l_status,
1249: ERROR_CODE = l_error_code
1250: WHERE interface_immu_dtls_id = pe_health_rec.interface_immu_dtls_id;

Line 1256: UPDATE igs_pe_immu_dtl_int

1252: EXCEPTION
1253: WHEN OTHERS THEN
1254: l_error_code := 'E160'; -- Could not update Immunization details
1255: l_status := '3';
1256: UPDATE igs_pe_immu_dtl_int
1257: SET status = l_status,
1258: ERROR_CODE = l_error_code
1259: WHERE interface_immu_dtls_id = pe_health_rec.interface_immu_dtls_id;
1260:

Line 1281: igs_ad_imp_001.logerrormessage(pe_health_rec.interface_immu_dtls_id,l_error_code,'IGS_PE_IMMU_DTL_INT');

1277: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
1278: END IF;
1279:
1280: IF l_enable_log = 'Y' THEN
1281: igs_ad_imp_001.logerrormessage(pe_health_rec.interface_immu_dtls_id,l_error_code,'IGS_PE_IMMU_DTL_INT');
1282: END IF;
1283: END;
1284: END IF; -- if error_code = null (of validate record)
1285: END IF; -- pe_health_rec.MATCH_IND check