[Home] [Help]
174: x_org_id number ) is
175: */
176: cursor cfg_src_org_cur ( x_config_item number) is
177: select distinct organization_id
178: from bom_cto_src_orgs_gt
179: where config_item_id = x_config_item ;
180: /* commented and rcv_org_id = x_org_id; */ -- bugfix 3777922
181:
182:
189: of the parent config.
190: */
191: cursor cfg_mfg_org_cur ( x_config_item number) is
192: select distinct organization_id
193: from bom_cto_src_orgs_gt
194: where config_item_id = x_config_item
195: and rcv_org_id = organization_id ;
196:
197:
416: WriteToLog('Processing Config Id : '||l_config_item||' Attrib: '||l_config_orgs);
417: WriteToLog('-------------------------------------------------------------------');
418:
419:
420: delete from bom_cto_src_orgs_gt ;
421:
422:
423: WriteToLog('deleted from bom_cto_src_orgs_gt : '|| sql%rowcount );
424: /*
419:
420: delete from bom_cto_src_orgs_gt ;
421:
422:
423: WriteToLog('deleted from bom_cto_src_orgs_gt : '|| sql%rowcount );
424: /*
425:
426:
427:
578:
579:
580: WriteToLog('get_sourcing_org: Adding dummy record for ship org. ');
581:
582: insert into bom_cto_src_orgs_gt
583: (
584: config_item_id,
585: organization_id,
586: rcv_org_id,
607: sysdate -- program_update_date
608: from dual
609: where NOT EXISTS
610: (select NULL
611: from bom_cto_src_orgs_gt
612: where rcv_org_id = p_org_id
613: and organization_id = p_org_id
614: and config_item_id = l_config_item );
615:
614: and config_item_id = l_config_item );
615:
616:
617: --
618: -- query the bom_cto_src_orgs_gt table and get all sourcing orgs for parent config.
619: --
620: open cfg_src_org_cur (l_config_item); -- bugfix 3777622
621: LOOP
622: WriteToLog ('inside cfg_src_org_cur loop for parent.');
787:
788:
789: WriteToLog('get_sourcing_org: Adding dummy record for ship org. ');
790:
791: insert into bom_cto_src_orgs_gt
792: (
793: config_item_id,
794: organization_id,
795: rcv_org_id,
816: sysdate -- program_update_date
817: from dual
818: where NOT EXISTS
819: (select NULL
820: from bom_cto_src_orgs_gt
821: where rcv_org_id = l_parent_org_id -- bugfix 3777922
822: and organization_id = l_parent_org_id -- bugfix 3777922
823: and config_item_id = l_child_config_item ) ; -- bugfix 3941383
824:
828:
829: close cfg_mfg_org_cur ;
830:
831: --
832: -- query the bom_cto_src_orgs_gt table and get all sourcing orgs for child config.
833: --
834: /* old call open cfg_src_org_cur (l_child_config_item,p_org_id); */
835:
836:
1292: begin
1293:
1294: select distinct 'Y'
1295: into l_circular_src
1296: from bom_cto_src_orgs_gt
1297: where config_item_id = p_config_item_id
1298: and rcv_org_id = l_curr_src_org;
1299:
1300: exception
1318:
1319: begin
1320:
1321:
1322: insert into bom_cto_src_orgs_gt
1323: (
1324: config_item_id,
1325: organization_id,
1326: rcv_org_id,
1347: sysdate -- program_update_date
1348: from dual
1349: where NOT EXISTS
1350: (select NULL
1351: from bom_cto_src_orgs_gt
1352: where rcv_org_id = p_organization_id
1353: and organization_id = l_curr_src_org
1354: and config_item_id = p_config_item_id );
1355:
1401:
1402: begin
1403:
1404:
1405: insert into bom_cto_src_orgs_gt
1406: (
1407: config_item_id,
1408: organization_id,
1409: rcv_org_id,
1430: sysdate -- program_update_date
1431: from dual
1432: where NOT EXISTS
1433: (select NULL
1434: from bom_cto_src_orgs_gt
1435: where rcv_org_id = p_organization_id
1436: and organization_id = l_curr_src_org
1437: and config_item_id = p_config_item_id );
1438:
1530:
1531:
1532: begin
1533:
1534: insert into bom_cto_src_orgs_gt
1535: (
1536: config_item_id,
1537: rcv_org_id,
1538: organization_id,
1558: sysdate -- program_update_date
1559: from dual
1560: where NOT EXISTS
1561: (select NULL
1562: from bom_cto_src_orgs_gt
1563: where rcv_org_id = p_organization_id
1564: and organization_id =p_organization_id
1565: and config_item_id = p_config_item_id );
1566: