97: WHERE country_code = l_cur_country_code ;
98:
99: CURSOR c_duplicate(l_source_code Varchar2 ,l_response_country Varchar2,l_response_creation_date Date,l_response_source Varchar2) IS
100: SELECT interface_header_id
101: FROM BIM_R_RESP_INT_HEADER
102: WHERE source_code = l_source_code
103: AND country = l_response_country
104: AND response_create_date = l_response_creation_date
105: AND response_source = l_response_source;
386: l_msg_data VARCHAR2(200);
387: l_obj_type VARCHAR2(30);
388:
389: CURSOR c_header_id IS
390: SELECT bim_r_resp_int_header_s.NEXTVAL
391: FROM dual;
392:
393: CURSOR c_grade_id IS
394: SELECT bim_r_resp_int_grades_s.NEXTVAL
495: FETCH c_region_code INTO l_region_code;
496: CLOSE c_region_code;
497:
498:
499: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER '||l_interface_header_id );
500: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER object_id '||l_object_id );
501: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER source_code'||l_source_code );
502: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER source_code_id '||l_source_code_id );
503: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER response_creation_date'||l_response_creation_date );
496: CLOSE c_region_code;
497:
498:
499: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER '||l_interface_header_id );
500: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER object_id '||l_object_id );
501: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER source_code'||l_source_code );
502: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER source_code_id '||l_source_code_id );
503: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER response_creation_date'||l_response_creation_date );
504: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER region '||l_region_code );
497:
498:
499: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER '||l_interface_header_id );
500: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER object_id '||l_object_id );
501: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER source_code'||l_source_code );
502: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER source_code_id '||l_source_code_id );
503: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER response_creation_date'||l_response_creation_date );
504: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER region '||l_region_code );
505: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER landing pad hits'||l_landing_pad_hits );
498:
499: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER '||l_interface_header_id );
500: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER object_id '||l_object_id );
501: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER source_code'||l_source_code );
502: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER source_code_id '||l_source_code_id );
503: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER response_creation_date'||l_response_creation_date );
504: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER region '||l_region_code );
505: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER landing pad hits'||l_landing_pad_hits );
506: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER survey completed '||l_survey_completed );
499: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER '||l_interface_header_id );
500: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER object_id '||l_object_id );
501: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER source_code'||l_source_code );
502: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER source_code_id '||l_source_code_id );
503: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER response_creation_date'||l_response_creation_date );
504: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER region '||l_region_code );
505: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER landing pad hits'||l_landing_pad_hits );
506: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER survey completed '||l_survey_completed );
507: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER response source '||l_response_source );
500: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER object_id '||l_object_id );
501: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER source_code'||l_source_code );
502: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER source_code_id '||l_source_code_id );
503: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER response_creation_date'||l_response_creation_date );
504: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER region '||l_region_code );
505: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER landing pad hits'||l_landing_pad_hits );
506: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER survey completed '||l_survey_completed );
507: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER response source '||l_response_source );
508: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER creation_date'||SYSDATE );
501: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER source_code'||l_source_code );
502: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER source_code_id '||l_source_code_id );
503: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER response_creation_date'||l_response_creation_date );
504: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER region '||l_region_code );
505: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER landing pad hits'||l_landing_pad_hits );
506: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER survey completed '||l_survey_completed );
507: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER response source '||l_response_source );
508: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER creation_date'||SYSDATE );
509: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER created_by '||G_USER_ID );
502: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER source_code_id '||l_source_code_id );
503: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER response_creation_date'||l_response_creation_date );
504: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER region '||l_region_code );
505: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER landing pad hits'||l_landing_pad_hits );
506: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER survey completed '||l_survey_completed );
507: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER response source '||l_response_source );
508: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER creation_date'||SYSDATE );
509: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER created_by '||G_USER_ID );
510: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER last_update_login '||G_LOGIN_ID );
503: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER response_creation_date'||l_response_creation_date );
504: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER region '||l_region_code );
505: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER landing pad hits'||l_landing_pad_hits );
506: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER survey completed '||l_survey_completed );
507: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER response source '||l_response_source );
508: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER creation_date'||SYSDATE );
509: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER created_by '||G_USER_ID );
510: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER last_update_login '||G_LOGIN_ID );
511: --dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER object_type '||l_obj_type );
504: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER region '||l_region_code );
505: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER landing pad hits'||l_landing_pad_hits );
506: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER survey completed '||l_survey_completed );
507: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER response source '||l_response_source );
508: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER creation_date'||SYSDATE );
509: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER created_by '||G_USER_ID );
510: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER last_update_login '||G_LOGIN_ID );
511: --dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER object_type '||l_obj_type );
512:
505: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER landing pad hits'||l_landing_pad_hits );
506: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER survey completed '||l_survey_completed );
507: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER response source '||l_response_source );
508: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER creation_date'||SYSDATE );
509: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER created_by '||G_USER_ID );
510: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER last_update_login '||G_LOGIN_ID );
511: --dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER object_type '||l_obj_type );
512:
513: IF l_object_id IS NULL
506: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER survey completed '||l_survey_completed );
507: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER response source '||l_response_source );
508: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER creation_date'||SYSDATE );
509: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER created_by '||G_USER_ID );
510: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER last_update_login '||G_LOGIN_ID );
511: --dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER object_type '||l_obj_type );
512:
513: IF l_object_id IS NULL
514: THEN
507: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER response source '||l_response_source );
508: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER creation_date'||SYSDATE );
509: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER created_by '||G_USER_ID );
510: -- dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER last_update_login '||G_LOGIN_ID );
511: --dbms_output.put_line('before inserting into BIM_R_RESP_INT_HEADER object_type '||l_obj_type );
512:
513: IF l_object_id IS NULL
514: THEN
515: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
563: END IF;
564: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
565: END IF;
566:
567: INSERT INTO BIM_R_RESP_INT_HEADER
568: (
569: creation_date,
570: last_update_date,
571: created_by,
606: l_response_source
607:
608: );
609:
610: --dbms_output.put_line('after inserting into BIM_R_RESP_INT_HEADER '||l_interface_header_id );
611: --dbms_output.put_line('l_response_grade_table.COUNT '||l_response_grade_table.COUNT);
612: IF(l_response_grade_table.COUNT > 0) THEN
613: FOR i IN 1..l_response_grade_table.COUNT LOOP
614: