409: l_insert_sql VARCHAR2(500);
410: cursor_select INTEGER;
411: cursor_insert INTEGER;
412: cursor_execute INTEGER;
413: l_item_id_table DBMS_SQL.NUMBER_TABLE;
414: l_org_id_table DBMS_SQL.NUMBER_TABLE;
415: l_conc_req_id_table DBMS_SQL.NUMBER_TABLE;
416: indx NUMBER(10) := 1;
417:
410: cursor_select INTEGER;
411: cursor_insert INTEGER;
412: cursor_execute INTEGER;
413: l_item_id_table DBMS_SQL.NUMBER_TABLE;
414: l_org_id_table DBMS_SQL.NUMBER_TABLE;
415: l_conc_req_id_table DBMS_SQL.NUMBER_TABLE;
416: indx NUMBER(10) := 1;
417:
418: l_program_name VARCHAR2(99) := 'INITIALIZE_ACCESS_ITEMS';
411: cursor_insert INTEGER;
412: cursor_execute INTEGER;
413: l_item_id_table DBMS_SQL.NUMBER_TABLE;
414: l_org_id_table DBMS_SQL.NUMBER_TABLE;
415: l_conc_req_id_table DBMS_SQL.NUMBER_TABLE;
416: indx NUMBER(10) := 1;
417:
418: l_program_name VARCHAR2(99) := 'INITIALIZE_ACCESS_ITEMS';
419:
466:
467: l_insert_sql := 'INSERT INTO EGO_LOGIN_ITEMS_TEMP (INVENTORY_ITEM_ID, ORGANIZATION_ID, CONC_REQUEST_ID) ';
468: l_insert_sql := l_insert_sql || ' VALUES (:l_item_id_table, :l_org_id_table, :l_conc_req_id_table) ';
469:
470: cursor_select := DBMS_SQL.OPEN_CURSOR;
471: cursor_insert := DBMS_SQL.OPEN_CURSOR;
472: DBMS_SQL.PARSE(cursor_select,l_select_sql,DBMS_SQL.NATIVE);
473: DBMS_SQL.PARSE(cursor_insert,l_insert_sql,DBMS_SQL.NATIVE);
474:
467: l_insert_sql := 'INSERT INTO EGO_LOGIN_ITEMS_TEMP (INVENTORY_ITEM_ID, ORGANIZATION_ID, CONC_REQUEST_ID) ';
468: l_insert_sql := l_insert_sql || ' VALUES (:l_item_id_table, :l_org_id_table, :l_conc_req_id_table) ';
469:
470: cursor_select := DBMS_SQL.OPEN_CURSOR;
471: cursor_insert := DBMS_SQL.OPEN_CURSOR;
472: DBMS_SQL.PARSE(cursor_select,l_select_sql,DBMS_SQL.NATIVE);
473: DBMS_SQL.PARSE(cursor_insert,l_insert_sql,DBMS_SQL.NATIVE);
474:
475: DBMS_SQL.DEFINE_ARRAY(cursor_select, 1,l_item_id_table,2500, indx);
468: l_insert_sql := l_insert_sql || ' VALUES (:l_item_id_table, :l_org_id_table, :l_conc_req_id_table) ';
469:
470: cursor_select := DBMS_SQL.OPEN_CURSOR;
471: cursor_insert := DBMS_SQL.OPEN_CURSOR;
472: DBMS_SQL.PARSE(cursor_select,l_select_sql,DBMS_SQL.NATIVE);
473: DBMS_SQL.PARSE(cursor_insert,l_insert_sql,DBMS_SQL.NATIVE);
474:
475: DBMS_SQL.DEFINE_ARRAY(cursor_select, 1,l_item_id_table,2500, indx);
476: DBMS_SQL.DEFINE_ARRAY(cursor_select, 2,l_org_id_table,2500, indx);
469:
470: cursor_select := DBMS_SQL.OPEN_CURSOR;
471: cursor_insert := DBMS_SQL.OPEN_CURSOR;
472: DBMS_SQL.PARSE(cursor_select,l_select_sql,DBMS_SQL.NATIVE);
473: DBMS_SQL.PARSE(cursor_insert,l_insert_sql,DBMS_SQL.NATIVE);
474:
475: DBMS_SQL.DEFINE_ARRAY(cursor_select, 1,l_item_id_table,2500, indx);
476: DBMS_SQL.DEFINE_ARRAY(cursor_select, 2,l_org_id_table,2500, indx);
477: DBMS_SQL.DEFINE_ARRAY(cursor_select, 3,l_conc_req_id_table,2500, indx);
471: cursor_insert := DBMS_SQL.OPEN_CURSOR;
472: DBMS_SQL.PARSE(cursor_select,l_select_sql,DBMS_SQL.NATIVE);
473: DBMS_SQL.PARSE(cursor_insert,l_insert_sql,DBMS_SQL.NATIVE);
474:
475: DBMS_SQL.DEFINE_ARRAY(cursor_select, 1,l_item_id_table,2500, indx);
476: DBMS_SQL.DEFINE_ARRAY(cursor_select, 2,l_org_id_table,2500, indx);
477: DBMS_SQL.DEFINE_ARRAY(cursor_select, 3,l_conc_req_id_table,2500, indx);
478:
479: Write_Debug('Select Access Items execute...');
472: DBMS_SQL.PARSE(cursor_select,l_select_sql,DBMS_SQL.NATIVE);
473: DBMS_SQL.PARSE(cursor_insert,l_insert_sql,DBMS_SQL.NATIVE);
474:
475: DBMS_SQL.DEFINE_ARRAY(cursor_select, 1,l_item_id_table,2500, indx);
476: DBMS_SQL.DEFINE_ARRAY(cursor_select, 2,l_org_id_table,2500, indx);
477: DBMS_SQL.DEFINE_ARRAY(cursor_select, 3,l_conc_req_id_table,2500, indx);
478:
479: Write_Debug('Select Access Items execute...');
480: cursor_execute := DBMS_SQL.EXECUTE(cursor_select);
473: DBMS_SQL.PARSE(cursor_insert,l_insert_sql,DBMS_SQL.NATIVE);
474:
475: DBMS_SQL.DEFINE_ARRAY(cursor_select, 1,l_item_id_table,2500, indx);
476: DBMS_SQL.DEFINE_ARRAY(cursor_select, 2,l_org_id_table,2500, indx);
477: DBMS_SQL.DEFINE_ARRAY(cursor_select, 3,l_conc_req_id_table,2500, indx);
478:
479: Write_Debug('Select Access Items execute...');
480: cursor_execute := DBMS_SQL.EXECUTE(cursor_select);
481:
476: DBMS_SQL.DEFINE_ARRAY(cursor_select, 2,l_org_id_table,2500, indx);
477: DBMS_SQL.DEFINE_ARRAY(cursor_select, 3,l_conc_req_id_table,2500, indx);
478:
479: Write_Debug('Select Access Items execute...');
480: cursor_execute := DBMS_SQL.EXECUTE(cursor_select);
481:
482: LOOP
483: l_count := DBMS_SQL.FETCH_ROWS(cursor_select);
484: DBMS_SQL.COLUMN_VALUE(cursor_select, 1, l_item_id_table);
479: Write_Debug('Select Access Items execute...');
480: cursor_execute := DBMS_SQL.EXECUTE(cursor_select);
481:
482: LOOP
483: l_count := DBMS_SQL.FETCH_ROWS(cursor_select);
484: DBMS_SQL.COLUMN_VALUE(cursor_select, 1, l_item_id_table);
485: DBMS_SQL.COLUMN_VALUE(cursor_select, 2, l_org_id_table);
486: DBMS_SQL.COLUMN_VALUE(cursor_select, 3, l_conc_req_id_table);
487:
480: cursor_execute := DBMS_SQL.EXECUTE(cursor_select);
481:
482: LOOP
483: l_count := DBMS_SQL.FETCH_ROWS(cursor_select);
484: DBMS_SQL.COLUMN_VALUE(cursor_select, 1, l_item_id_table);
485: DBMS_SQL.COLUMN_VALUE(cursor_select, 2, l_org_id_table);
486: DBMS_SQL.COLUMN_VALUE(cursor_select, 3, l_conc_req_id_table);
487:
488: DBMS_SQL.BIND_ARRAY(cursor_insert,':l_item_id_table',l_item_id_table);
481:
482: LOOP
483: l_count := DBMS_SQL.FETCH_ROWS(cursor_select);
484: DBMS_SQL.COLUMN_VALUE(cursor_select, 1, l_item_id_table);
485: DBMS_SQL.COLUMN_VALUE(cursor_select, 2, l_org_id_table);
486: DBMS_SQL.COLUMN_VALUE(cursor_select, 3, l_conc_req_id_table);
487:
488: DBMS_SQL.BIND_ARRAY(cursor_insert,':l_item_id_table',l_item_id_table);
489: DBMS_SQL.BIND_ARRAY(cursor_insert,':l_org_id_table',l_org_id_table);
482: LOOP
483: l_count := DBMS_SQL.FETCH_ROWS(cursor_select);
484: DBMS_SQL.COLUMN_VALUE(cursor_select, 1, l_item_id_table);
485: DBMS_SQL.COLUMN_VALUE(cursor_select, 2, l_org_id_table);
486: DBMS_SQL.COLUMN_VALUE(cursor_select, 3, l_conc_req_id_table);
487:
488: DBMS_SQL.BIND_ARRAY(cursor_insert,':l_item_id_table',l_item_id_table);
489: DBMS_SQL.BIND_ARRAY(cursor_insert,':l_org_id_table',l_org_id_table);
490: DBMS_SQL.BIND_ARRAY(cursor_insert,':l_conc_req_id_table',l_conc_req_id_table);
484: DBMS_SQL.COLUMN_VALUE(cursor_select, 1, l_item_id_table);
485: DBMS_SQL.COLUMN_VALUE(cursor_select, 2, l_org_id_table);
486: DBMS_SQL.COLUMN_VALUE(cursor_select, 3, l_conc_req_id_table);
487:
488: DBMS_SQL.BIND_ARRAY(cursor_insert,':l_item_id_table',l_item_id_table);
489: DBMS_SQL.BIND_ARRAY(cursor_insert,':l_org_id_table',l_org_id_table);
490: DBMS_SQL.BIND_ARRAY(cursor_insert,':l_conc_req_id_table',l_conc_req_id_table);
491:
492: Write_Debug('Inserting ''Access Items'' into table');
485: DBMS_SQL.COLUMN_VALUE(cursor_select, 2, l_org_id_table);
486: DBMS_SQL.COLUMN_VALUE(cursor_select, 3, l_conc_req_id_table);
487:
488: DBMS_SQL.BIND_ARRAY(cursor_insert,':l_item_id_table',l_item_id_table);
489: DBMS_SQL.BIND_ARRAY(cursor_insert,':l_org_id_table',l_org_id_table);
490: DBMS_SQL.BIND_ARRAY(cursor_insert,':l_conc_req_id_table',l_conc_req_id_table);
491:
492: Write_Debug('Inserting ''Access Items'' into table');
493: cursor_execute := DBMS_SQL.EXECUTE(cursor_insert);
486: DBMS_SQL.COLUMN_VALUE(cursor_select, 3, l_conc_req_id_table);
487:
488: DBMS_SQL.BIND_ARRAY(cursor_insert,':l_item_id_table',l_item_id_table);
489: DBMS_SQL.BIND_ARRAY(cursor_insert,':l_org_id_table',l_org_id_table);
490: DBMS_SQL.BIND_ARRAY(cursor_insert,':l_conc_req_id_table',l_conc_req_id_table);
491:
492: Write_Debug('Inserting ''Access Items'' into table');
493: cursor_execute := DBMS_SQL.EXECUTE(cursor_insert);
494: l_item_id_table.DELETE;
489: DBMS_SQL.BIND_ARRAY(cursor_insert,':l_org_id_table',l_org_id_table);
490: DBMS_SQL.BIND_ARRAY(cursor_insert,':l_conc_req_id_table',l_conc_req_id_table);
491:
492: Write_Debug('Inserting ''Access Items'' into table');
493: cursor_execute := DBMS_SQL.EXECUTE(cursor_insert);
494: l_item_id_table.DELETE;
495: l_org_id_table.DELETE;
496: l_conc_req_id_table.DELETE;
497:
498: --For the final batch of records, either it will be 0 or < 2500
499: EXIT WHEN l_count <> 2500;
500: END LOOP;
501:
502: DBMS_SQL.CLOSE_CURSOR(cursor_select);
503: DBMS_SQL.CLOSE_CURSOR(cursor_insert);
504:
505: Write_Debug('Cursors Insert Access Items and Select Access Items closed...');
506: EXCEPTION
499: EXIT WHEN l_count <> 2500;
500: END LOOP;
501:
502: DBMS_SQL.CLOSE_CURSOR(cursor_select);
503: DBMS_SQL.CLOSE_CURSOR(cursor_insert);
504:
505: Write_Debug('Cursors Insert Access Items and Select Access Items closed...');
506: EXCEPTION
507: WHEN OTHERS THEN
506: EXCEPTION
507: WHEN OTHERS THEN
508: Write_Debug(' EXCEPTION in Initialize_Access_items');
509: x_retcode := RETCODE_ERROR;
510: IF DBMS_SQL.IS_OPEN(cursor_select) THEN
511: DBMS_SQL.CLOSE_CURSOR(cursor_select);
512: END IF;
513: IF DBMS_SQL.IS_OPEN(cursor_insert) THEN
514: DBMS_SQL.CLOSE_CURSOR(cursor_insert);
507: WHEN OTHERS THEN
508: Write_Debug(' EXCEPTION in Initialize_Access_items');
509: x_retcode := RETCODE_ERROR;
510: IF DBMS_SQL.IS_OPEN(cursor_select) THEN
511: DBMS_SQL.CLOSE_CURSOR(cursor_select);
512: END IF;
513: IF DBMS_SQL.IS_OPEN(cursor_insert) THEN
514: DBMS_SQL.CLOSE_CURSOR(cursor_insert);
515: END IF;
509: x_retcode := RETCODE_ERROR;
510: IF DBMS_SQL.IS_OPEN(cursor_select) THEN
511: DBMS_SQL.CLOSE_CURSOR(cursor_select);
512: END IF;
513: IF DBMS_SQL.IS_OPEN(cursor_insert) THEN
514: DBMS_SQL.CLOSE_CURSOR(cursor_insert);
515: END IF;
516: RAISE;
517: END Initialize_Access_Items;
510: IF DBMS_SQL.IS_OPEN(cursor_select) THEN
511: DBMS_SQL.CLOSE_CURSOR(cursor_select);
512: END IF;
513: IF DBMS_SQL.IS_OPEN(cursor_insert) THEN
514: DBMS_SQL.CLOSE_CURSOR(cursor_insert);
515: END IF;
516: RAISE;
517: END Initialize_Access_Items;
518: