[Home] [Help]
1018: s_order_type pls_idx_tbl ;
1019: o_order_type pls_idx_tbl ; -- akaruppa B4287033
1020: /* akaruppa B5007729 End*/
1021:
1022: TYPE order_number IS TABLE OF msc_st_supplies.order_number%TYPE INDEX BY BINARY_INTEGER;
1023: s_order_number order_number ;
1024: se_order_number order_number ;/* akaruppa B5007729 */
1025:
1026: /* akaruppa B5007729 */
1031: o_firm_planned_type pls_idx_tbl ; -- akaruppa B4287033
1032: s_process_seq_id pls_idx_tbl ; -- B6795244
1033: /* akaruppa B5007729 End*/
1034:
1035: TYPE wip_entity_name IS TABLE OF msc_st_supplies.wip_entity_name%TYPE INDEX BY BINARY_INTEGER;
1036: s_wip_entity_name wip_entity_name ;
1037: se_wip_entity_name wip_entity_name ;/* akaruppa B5007729 */
1038:
1039: TYPE lot_number IS TABLE OF msc_st_supplies.lot_number%TYPE INDEX BY BINARY_INTEGER;
1035: TYPE wip_entity_name IS TABLE OF msc_st_supplies.wip_entity_name%TYPE INDEX BY BINARY_INTEGER;
1036: s_wip_entity_name wip_entity_name ;
1037: se_wip_entity_name wip_entity_name ;/* akaruppa B5007729 */
1038:
1039: TYPE lot_number IS TABLE OF msc_st_supplies.lot_number%TYPE INDEX BY BINARY_INTEGER;
1040: s_lot_number lot_number ;
1041: o_lot_number lot_number ; -- akaruppa B4287033
1042: e_lot_number lot_number ; /* akaruppa B5007729 */
1043:
1050: /* akaruppa B5007729 End*/
1051:
1052: s_requested_completion_date date_idx_tbl ;
1053:
1054: TYPE stp_schedule_priority IS TABLE OF msc_st_supplies.schedule_priority%TYPE
1055: INDEX BY BINARY_INTEGER;
1056: s_schedule_priority stp_schedule_priority;
1057:
1058: /*B5100481 - 16 for pending, 3 for wip*/
1149: o_new_dock_date date_idx_tbl ;/* akaruppa B5007729 */
1150:
1151: o_deleted_flag pls_idx_tbl;/* akaruppa B5007729 */
1152:
1153: TYPE subinventory_code IS TABLE OF msc_st_supplies.subinventory_code%TYPE
1154: INDEX BY BINARY_INTEGER;
1155: o_subinventory_code subinventory_code ;
1156: e_subinventory_code subinventory_code ;/* akaruppa B5007729 */
1157:
8440: * DESCRIPTION
8441: * This procedure will take the production orders, batches and FPOs,
8442: * that have valid item/warehouse definitions as defined in the
8443: * the plant/whse eff and write them to the table msc_std_demands and \
8444: * msc_st_supplies. The products and byproducts will be written as
8445: * supplies and ingredients as demands
8446: * HISTORY
8447: * M Craig
8448: * 04/03/2000 - Using mtl_organization_id instead of organization_id from
8459: * Resource Seq is incremented only if the
8460: * activity is Changed
8461: * Sridhar 31-MAR-2003 B2882286 Ensuring the Order so that if the last batch
8462: * resource requirements are written
8463: * Sridhar 30-APR-2003 B2919303 Added Operation Seq Number in msc_st_supplies
8464: * and in msc_st_demands table
8465: * Sridhar 09-MAY-2003 B2919303 Added line_no and included in order by clause
8466: * Sridhar 12-MAY-2003 B2953953 Populated BY_PRODUCT_USING_ASSY_ID with
8467: * product_line which is the assembly_item_id
8631: || ';END;' ;
8632: EXECUTE IMMEDIATE v_sql_stmt ;
8633:
8634: BEGIN -- B6795244
8635: select NVL(max(process_seq_id),0) into l_process_seq_id from msc_st_supplies
8636: where sr_instance_id = pinstance_id ;
8637: log_message('production_orders pinstance_id = ' || pinstance_id || ' AND l_process_seq_id = ' || l_process_seq_id );
8638: EXCEPTION
8639: WHEN no_data_found then
9800: THEN
9801: prod_tab(p).batchstep_no := TO_NUMBER(NULL);
9802: END IF;
9803:
9804: -- Bug: 6080227 Vpedarla added if condition to elimate zero quantity supplies getting inseted into msc_st_supplies
9805: IF prod_tab(p).qty <> 0 THEN
9806:
9807: /* Supply Bulk Insert Assignments */
9808: s_index := s_index + 1 ;
10011: i := 1 ;
10012: log_message(s_organization_id.FIRST || ' *s*' || s_organization_id.LAST );
10013: IF s_organization_id.FIRST > 0 THEN
10014: FORALL i IN s_organization_id.FIRST..s_organization_id.LAST
10015: INSERT INTO msc_st_supplies (
10016: plan_id,
10017: inventory_item_id,
10018: organization_id,
10019: sr_instance_id,
10598: * insert_supplies
10599: *
10600: * DESCRIPTION
10601: * This procedure will take the parameter values and insert a row into
10602: * the table msc_st_supplies
10603: * HISTORY
10604: * M Craig
10605: * 2/10/2000 - Populating Order number column with Wip Entity Name ( porder_no )
10606: * 2/24/2003 - populating Firmed batches Indicator, Qty and Date
10627: vproduct_item_id NUMBER ; /* B2953953 - CoProduct */
10628: BEGIN
10629:
10630: st_supplies :=
10631: ' INSERT INTO msc_st_supplies ( '
10632: ||' plan_id, inventory_item_id, organization_id, sr_instance_id, '
10633: ||' new_schedule_date, old_schedule_date, new_wip_start_date, '
10634: ||' old_wip_start_date, last_unit_completion_date, disposition_id, '
10635: ||' order_type, order_number, new_order_quantity, old_order_quantity, '
10681: 2 ;
10682:
10683: EXCEPTION
10684: WHEN OTHERS THEN
10685: log_message('Failure occured during the insert into msc_st_supplies');
10686: log_message(sqlerrm);
10687: RAISE;
10688:
10689: END insert_supplies;
10886: * NAME
10887: * onhand_inventory
10888: *
10889: * DESCRIPTION
10890: * This procedure will insert records into the table msc_st_supplies
10891: * for the onhand balances in inventory. The insert is split into 3 parts
10892: * one for non-lot controlled, lot controlled, and lot and status
10893: * controlled item. Each inserted will need touse a distnct list from
10894: * the table gmp_item_aps. The table may contain multiple values for
10979: * NAME
10980: * extract_onhand_balances
10981: *
10982: * DESCRIPTION
10983: * This procedure will insert records into the table msc_st_supplies
10984: * for the onhand balances in inventory. The insert is split into 3 parts
10985: * one for non-lot controlled, lot controlled, and lot and status
10986: * controlled item. Each inserted will need touse a distnct list from
10987: * the table gmp_item_aps. The table may contain multiple values for
11386:
11387: insert_count := insert_count - 1;
11388:
11389: FORALL i IN 1..insert_count
11390: INSERT INTO msc_st_supplies
11391: (plan_id,
11392: inventory_item_id,
11393: organization_id,
11394: sr_instance_id,
11639: * NAME
11640: * Extract_inventory_transfer_supplies
11641: *
11642: * DESCRIPTION
11643: * This procedure will insert records into the table msc_st_supplies
11644: * and msc_st_demands for pending inventory transfers.
11645: * HISTORY
11646: * 25-Jan-2003 B1332662 Created New procedure to insert supplies
11647: * Per discussions with APS team the specifics are
11671: l_profile := NVL(get_profile_value('GMP_COLLECT_EXPR_ONHAND', pdblink ),0);
11672:
11673: return_status := TRUE ;
11674:
11675: v_sql_stmt := 'INSERT into msc_st_supplies ('
11676: || ' plan_id,'
11677: || ' inventory_item_id,'
11678: || ' organization_id,'
11679: || ' sr_instance_id,'