1199: END;
1200:
1201: PROCEDURE import_data_purge(errbuf OUT nocopy VARCHAR2, retcode OUT nocopy NUMBER, p_source IN VARCHAR2, p_group_id IN NUMBER DEFAULT NULL, p_review_required IN VARCHAR2) IS
1202:
1203: l_qryctx dbms_xmlgen.ctxhandle;
1204: l_result_clob CLOB;
1205: l_current_calling_sequence VARCHAR2(2000);
1206: l_debug_info VARCHAR2(200);
1207:
1301: put_element('FROM_LE_NAME', rec3.from_le_name);
1302: put_element('GROUP_ID', rec.group_id);
1303:
1304: --Batch Record generation
1305: l_qryctx := dbms_xmlgen.newcontext('SELECT FIB.GROUP_ID GROUP_ID,
1306: FIB.CURRENCY_CODE CURRENCY_CODE,
1307: FIB.FROM_LE_NAME FROM_LE_NAME,
1308: FIB.FROM_LE_ID FROM_LE_ID,
1309: FIB.INITIATOR_NAME INITIATOR_NAME,
1351: AND HCR.ROLE_TYPE = ''INTERCOMPANY_CONTACT_FOR''
1352: AND HZR.SUBJECT_ID = :SUBJECT_ID
1353: AND HZR.STATUS = ''A''');
1354:
1355: dbms_xmlgen.setrowsettag(l_qryctx, 'BATCH_SET');
1356: dbms_xmlgen.setrowtag(l_qryctx, 'BATCH_RECORD');
1357: dbms_xmlgen.setbindvalue(l_qryctx, 'GROUP_ID', rec.group_id);
1358: dbms_xmlgen.setbindvalue(l_qryctx, 'CURRENCY_CODE', rec2.currency_code);
1359: dbms_xmlgen.setbindvalue(l_qryctx, 'FROM_LE_NAME', rec3.from_le_name);
1352: AND HZR.SUBJECT_ID = :SUBJECT_ID
1353: AND HZR.STATUS = ''A''');
1354:
1355: dbms_xmlgen.setrowsettag(l_qryctx, 'BATCH_SET');
1356: dbms_xmlgen.setrowtag(l_qryctx, 'BATCH_RECORD');
1357: dbms_xmlgen.setbindvalue(l_qryctx, 'GROUP_ID', rec.group_id);
1358: dbms_xmlgen.setbindvalue(l_qryctx, 'CURRENCY_CODE', rec2.currency_code);
1359: dbms_xmlgen.setbindvalue(l_qryctx, 'FROM_LE_NAME', rec3.from_le_name);
1360: dbms_xmlgen.setbindvalue(l_qryctx, 'GRANTEE_KEY', l_grantee_key);
1353: AND HZR.STATUS = ''A''');
1354:
1355: dbms_xmlgen.setrowsettag(l_qryctx, 'BATCH_SET');
1356: dbms_xmlgen.setrowtag(l_qryctx, 'BATCH_RECORD');
1357: dbms_xmlgen.setbindvalue(l_qryctx, 'GROUP_ID', rec.group_id);
1358: dbms_xmlgen.setbindvalue(l_qryctx, 'CURRENCY_CODE', rec2.currency_code);
1359: dbms_xmlgen.setbindvalue(l_qryctx, 'FROM_LE_NAME', rec3.from_le_name);
1360: dbms_xmlgen.setbindvalue(l_qryctx, 'GRANTEE_KEY', l_grantee_key);
1361: dbms_xmlgen.setbindvalue(l_qryctx, 'SUBJECT_ID', l_user_id);
1354:
1355: dbms_xmlgen.setrowsettag(l_qryctx, 'BATCH_SET');
1356: dbms_xmlgen.setrowtag(l_qryctx, 'BATCH_RECORD');
1357: dbms_xmlgen.setbindvalue(l_qryctx, 'GROUP_ID', rec.group_id);
1358: dbms_xmlgen.setbindvalue(l_qryctx, 'CURRENCY_CODE', rec2.currency_code);
1359: dbms_xmlgen.setbindvalue(l_qryctx, 'FROM_LE_NAME', rec3.from_le_name);
1360: dbms_xmlgen.setbindvalue(l_qryctx, 'GRANTEE_KEY', l_grantee_key);
1361: dbms_xmlgen.setbindvalue(l_qryctx, 'SUBJECT_ID', l_user_id);
1362: l_result_clob := dbms_xmlgen.getxml(l_qryctx);
1355: dbms_xmlgen.setrowsettag(l_qryctx, 'BATCH_SET');
1356: dbms_xmlgen.setrowtag(l_qryctx, 'BATCH_RECORD');
1357: dbms_xmlgen.setbindvalue(l_qryctx, 'GROUP_ID', rec.group_id);
1358: dbms_xmlgen.setbindvalue(l_qryctx, 'CURRENCY_CODE', rec2.currency_code);
1359: dbms_xmlgen.setbindvalue(l_qryctx, 'FROM_LE_NAME', rec3.from_le_name);
1360: dbms_xmlgen.setbindvalue(l_qryctx, 'GRANTEE_KEY', l_grantee_key);
1361: dbms_xmlgen.setbindvalue(l_qryctx, 'SUBJECT_ID', l_user_id);
1362: l_result_clob := dbms_xmlgen.getxml(l_qryctx);
1363: l_result_clob := SUBSTR(l_result_clob, instr(l_result_clob, '>') + 1);
1356: dbms_xmlgen.setrowtag(l_qryctx, 'BATCH_RECORD');
1357: dbms_xmlgen.setbindvalue(l_qryctx, 'GROUP_ID', rec.group_id);
1358: dbms_xmlgen.setbindvalue(l_qryctx, 'CURRENCY_CODE', rec2.currency_code);
1359: dbms_xmlgen.setbindvalue(l_qryctx, 'FROM_LE_NAME', rec3.from_le_name);
1360: dbms_xmlgen.setbindvalue(l_qryctx, 'GRANTEE_KEY', l_grantee_key);
1361: dbms_xmlgen.setbindvalue(l_qryctx, 'SUBJECT_ID', l_user_id);
1362: l_result_clob := dbms_xmlgen.getxml(l_qryctx);
1363: l_result_clob := SUBSTR(l_result_clob, instr(l_result_clob, '>') + 1);
1364: dbms_xmlgen.closecontext(l_qryctx);
1357: dbms_xmlgen.setbindvalue(l_qryctx, 'GROUP_ID', rec.group_id);
1358: dbms_xmlgen.setbindvalue(l_qryctx, 'CURRENCY_CODE', rec2.currency_code);
1359: dbms_xmlgen.setbindvalue(l_qryctx, 'FROM_LE_NAME', rec3.from_le_name);
1360: dbms_xmlgen.setbindvalue(l_qryctx, 'GRANTEE_KEY', l_grantee_key);
1361: dbms_xmlgen.setbindvalue(l_qryctx, 'SUBJECT_ID', l_user_id);
1362: l_result_clob := dbms_xmlgen.getxml(l_qryctx);
1363: l_result_clob := SUBSTR(l_result_clob, instr(l_result_clob, '>') + 1);
1364: dbms_xmlgen.closecontext(l_qryctx);
1365: clob_to_file(l_result_clob);
1358: dbms_xmlgen.setbindvalue(l_qryctx, 'CURRENCY_CODE', rec2.currency_code);
1359: dbms_xmlgen.setbindvalue(l_qryctx, 'FROM_LE_NAME', rec3.from_le_name);
1360: dbms_xmlgen.setbindvalue(l_qryctx, 'GRANTEE_KEY', l_grantee_key);
1361: dbms_xmlgen.setbindvalue(l_qryctx, 'SUBJECT_ID', l_user_id);
1362: l_result_clob := dbms_xmlgen.getxml(l_qryctx);
1363: l_result_clob := SUBSTR(l_result_clob, instr(l_result_clob, '>') + 1);
1364: dbms_xmlgen.closecontext(l_qryctx);
1365: clob_to_file(l_result_clob);
1366: l_temp_batch_count := 0;
1360: dbms_xmlgen.setbindvalue(l_qryctx, 'GRANTEE_KEY', l_grantee_key);
1361: dbms_xmlgen.setbindvalue(l_qryctx, 'SUBJECT_ID', l_user_id);
1362: l_result_clob := dbms_xmlgen.getxml(l_qryctx);
1363: l_result_clob := SUBSTR(l_result_clob, instr(l_result_clob, '>') + 1);
1364: dbms_xmlgen.closecontext(l_qryctx);
1365: clob_to_file(l_result_clob);
1366: l_temp_batch_count := 0;
1367:
1368: --selecting teh batches to be purged.