[Home] [Help]
12: | This file creates the utilities that are required to create |
13: | work orders for ATO configurations. |
14: | |
15: | insert_wip_interface - inserts a record into |
16: | WIP_JOB_SCHEDULE_INTERFACE for |
17: | WIP_MASS_LOAD to create work orders |
18: | |
19: | To Do: Handle Errors. Need to discuss with Usha and Girish what |
20: | error information to include in Notification. |
221: x_message_name - Error message name
222: x_message_text - Error message text
223:
224: Description: This function inserts a record into the
225: WIP_JOB_SCHEDULE_INTERFACE table for the creation of
226: work orders through AutoCreate FAS in OM.
227:
228: *****************************************************************************/
229:
1011: --Bugfix 9319883: Commenting the IF condition.
1012: --The sequence will be generated just before calling insert_wip_interface.
1013: /*
1014: if (l_rows_selected - l_rows_errored = 1) then
1015: select wip_job_schedule_interface_s.nextval
1016: into x_wip_seq
1017: from dual;
1018: end if;
1019: */
1231: l_stmt_num := 12;
1232:
1233: --Bugfix 9319883: Moved the sequence generation logic here.
1234: if x_wip_seq = -1 then
1235: select wip_job_schedule_interface_s.nextval
1236: into x_wip_seq
1237: from dual;
1238: end if;
1239:
1269: END IF;
1270:
1271: l_rows_inserted := l_rows_inserted + 1;
1272:
1273: end if; /* end of insert into wip_job_schedule_interface*/
1274:
1275: end if; -- Checking for routing type.
1276:
1277: EXCEPTION
1327: -- If run thru SO pad (progress order), the cursor should pick that record for progressing.
1328: -- If not, return FAILURE. If we dont return FAILURE, the WF will end normal and
1329: -- move to Ship Line Notified without creating work-order and reservations.
1330: -- This could happen if this line was picked by FAS earlier but was terminated (as in PAXAR's case)
1331: -- Also, if insert into wip_job_schedule_interface fails for this order line, we will error out.
1332:
1333:
1334:
1335: if (l_line_id is not null AND x_orders_loaded = 0) then
1367:
1368: exception
1369: when no_data_found then
1370: IF PG_DEBUG <> 0 THEN
1371: oe_debug_pub.add ('get_order_lines: ' || 'Could not find a WIP job. Records probably stuck in wip job schedule interface.',1);
1372: END IF;
1373:
1374: when others then
1375: IF PG_DEBUG <> 0 THEN
1441: x_message_name - name of error message if insert
1442: fails
1443:
1444: Description: This function inserts a record into the
1445: WIP_JOB_SCHEDULE_INTERFACE table for the creation of
1446: work orders.
1447:
1448: *****************************************************************************/
1449:
1521: -- wei.bom_revision
1522: -- 2620282: Selecting bom revision info
1523: decode( nvl(msi.revision_qty_control_code , 1 ) , 1, NULL , wei.bom_revision) bom_revision,
1524: oel.org_id -- bugfix 3014000
1525: from wip_job_schedule_interface wei,
1526: oe_order_lines_all oel,
1527: mtl_sales_orders mso,
1528: oe_order_headers_all oeh,
1529: --oe_order_types_v oet
1688: set status_type = 7 -- CANCELLED
1689: where wip_entity_id = WorkOrder_Rec.wip_entity_id;
1690:
1691: l_stmt_num := 110;
1692: update wip_job_schedule_interface
1693: set process_phase = WIP_CONSTANTS.ML_VALIDATION,
1694: process_status = WIP_CONSTANTS.RUNNING
1695: where wip_entity_id = WorkOrder_Rec.wip_entity_id
1696: and group_id = p_wip_seq;
1713:
1714: l_stmt_num := 115;
1715: select status_type
1716: into l_status_type
1717: from wip_job_schedule_interface
1718: where group_id = p_wip_seq
1719: and source_line_id = WorkOrder_Rec.line_id
1720: and last_update_date <> creation_date
1721: and rownum = 1;
1771: set status_type = 7 -- CANCEL
1772: where wip_entity_id = WorkOrder_Rec.wip_entity_id;
1773:
1774: l_stmt_num := 140;
1775: update wip_job_schedule_interface
1776: set process_phase = WIP_CONSTANTS.ML_VALIDATION,
1777: process_status = WIP_CONSTANTS.RUNNING
1778: where wip_entity_id = WorkOrder_Rec.wip_entity_id
1779: and group_id = p_wip_seq;
1815: update oe_order_lines_all
1816: set program_id = null
1817: where program_id = -99
1818: and line_id in (select wei.source_line_id
1819: from wip_job_schedule_interface wei
1820: where wei.group_id = p_wip_seq);
1821: end if;
1822: -- end bugfix 3136206
1823:
1867: Description: This function is to support AutoCreate Supply for
1868: Partial Order Qty
1869: It returns the quantity for which supply has been created.
1870: Reserved Qty = Qty in mtl_reservations
1871: + Qty in wip_job_schedule_interface
1872: In case of an error, 0 qty will be returned.
1873:
1874: Modified by :
1875: Renga Kannan 09/20/01 removed the debug messages
1911: INV_RESERVATION_GLOBAL.g_source_type_internal_ord,
1912: INV_RESERVATION_GLOBAL.g_source_type_oe); --bugfix 1799874
1913:
1914:
1915: -- Cursor to get qty in wip_job_schedule_interface
1916: -- This cursor was modified for bugs 2074290, 2435875, 2455900
1917: -- Bugfix 4254404: We should treat COMPLETED records as supply due to concurrency reasons.
1918:
1919: cursor c_wjsi_qty is
1917: -- Bugfix 4254404: We should treat COMPLETED records as supply due to concurrency reasons.
1918:
1919: cursor c_wjsi_qty is
1920: select nvl(sum(wjs.start_quantity), 0)
1921: from wip_job_schedule_interface wjs,
1922: oe_order_lines_all oel
1923: where oel.line_id = pLineId
1924: and wjs.source_line_id = oel.line_id
1925: and (wjs.process_status = WIP_CONSTANTS.PENDING