[Home] [Help]
58: | are modified to handle BUY model type also. This
59: | change is done as part of 'Procuring config' and
60: | Auto create Req for ATO item project(Patch set G)
61: | The changes made in the CTOATPIB.pls file is replicated
62: | here .Look at the individual places for Further comments.
63: | Get_all_item_orgs procedure is modified as part of this
64: | Project
65: | Modified on 24-AUG-2001 by Sushant Sawant: BUG #1957336
66: | Added a new functionality for preconfigure bom.
1020: gLoginId, -- last_update_login
1021: null, -- program_application_id,??
1022: null, -- program_id,??
1023: sysdate -- program_update_date
1024: from dual;
1025:
1026: /*
1027: This statement has to be there to exit after the first pass
1028: for buy and dropship to avoid pursuing make/transfer, make/transfer chains
1113: gLoginId, -- last_update_login
1114: null, -- program_application_id,??
1115: null, -- program_id,??
1116: sysdate -- program_update_date
1117: from dual
1118: where NOT EXISTS
1119: (select NULL
1120: from bom_cto_src_orgs
1121: where line_id = pLineId
1176: gLoginId, -- last_update_login
1177: null, -- program_application_id,??
1178: null, -- program_id,??
1179: sysdate -- program_update_date
1180: from dual
1181: where NOT EXISTS
1182: (select NULL
1183: from bom_cto_src_orgs
1184: where line_id = pLineId
1289: gLoginId, -- last_update_login
1290: null, -- program_application_id,??
1291: null, -- program_id,??
1292: sysdate -- program_update_date
1293: from dual
1294: where NOT EXISTS
1295: (select NULL
1296: from bom_cto_src_orgs
1297: where line_id = pLineId
1442: gLoginId, -- last_update_login
1443: null, -- program_application_id,??
1444: null, -- program_id,??
1445: sysdate -- program_update_date
1446: from dual
1447: where NOT EXISTS
1448: (select NULL
1449: from bom_cto_src_orgs
1450: where line_id = pLineId
1939: -- get assignment id for config item
1940: --
1941: SELECT mrp_sr_assignments_s.nextval
1942: INTO lConfigAssignmentId
1943: FROM DUAL;
1944:
1945: --
1946: -- form lAssignmentTbl from lAssignmentRec
1947: --
2201: v_step := 'Step A1' ;
2202:
2203: select bom_explosion_temp_s.nextval
2204: into v_mfg_comp_seq_id
2205: from dual;
2206:
2207: IF PG_DEBUG <> 0 THEN
2208: oe_debug_pub.add('populate_bcol: ' || ' sequence ' || v_mfg_comp_seq_id , 3);
2209: END IF;
4128:
4129: l_stmt := 40;
4130: select fnd_attached_documents_s.nextval
4131: into l_attached_document_id
4132: from dual;
4133:
4134: l_stmt := 50;
4135:
4136: FND_ATTACHED_DOCUMENTS_PKG.INSERT_ROW
4813: End if;
4814:
4815: select bom_explosion_temp_s.nextval
4816: into xGrpId
4817: from dual;
4818:
4819: If PG_DEBUG <> 0 Then
4820: cto_wip_workflow_api_pk.cto_debug('create_isp_bom', 'xGrpId::'||to_char(xGrpId));
4821: cto_wip_workflow_api_pk.cto_debug('create_isp_bom', 'ItemId::'||to_char(p_item_id));
6755:
6756: v_oe_bcol_diff:= 'N' ;
6757:
6758: begin
6759: select 'Y' into v_oe_bcol_diff from dual
6760: where exists
6761: ((Select 1
6762: from oe_order_lines_all oel
6763: Where not exists