[Home] [Help]
329: /*
330: * Procedure that populates the resource availability into
331: * MRP_NET_RESOURCE_AVAIL.
332: */
333: PROCEDURE Populate_Individual_Res_Avails (p_simulation_set IN VARCHAR2,
334: p_organization_id IN NUMBER,
335: p_resource_id IN NUMBER,
336: p_start_date IN DATE,
337: p_cutoff_date IN DATE,
361: ELSE
362: -- Check to make sure that if the resource information is already inserted
363: -- in MRP_NET_RESOURCE_AVAIL, then no need to call MRP again
364: -- The p_start_date, p_cutoff_date can be modified by
365: -- individual_res_info_found_in_mrp function if this function
366: -- returns FALSE so that we can get a new from_date and to_date to
367: -- call MRP_RHX_RESOURCE_AVAILABILITY
368: IF (single_res_info_found_in_mrp(p_simulation_set,
369: p_organization_id,
388:
389: EXCEPTION
390: WHEN OTHERS THEN
391: p_errnum := -1 ;
392: p_errmesg := 'Populate_Individual_Res_Avails Failed - ' ||
393: to_char(SQLCODE) || ': ' || SQLERRM;
394:
395: RETURN ;
396:
393: to_char(SQLCODE) || ': ' || SQLERRM;
394:
395: RETURN ;
396:
397: END Populate_Individual_Res_Avails ;
398:
399: /*
400: * Procedure that populates the resource availability into
401: * MRP_NET_RESOURCE_AVAIL.
399: /*
400: * Procedure that populates the resource availability into
401: * MRP_NET_RESOURCE_AVAIL.
402: */
403: PROCEDURE Populate_Individual_Ins_Avails (p_simulation_set IN VARCHAR2,
404: p_organization_id IN NUMBER,
405: p_resource_id IN NUMBER,
406: p_instance_id IN NUMBER,
407: p_serial_number IN VARCHAR2,
419:
420: p_errnum := 0;
421: p_errmesg := 'Success';
422:
423: /*dbms_output.put_line('Populate_Individual_Ins_Avails '||
424: to_char(p_resource_id)|| ': '||
425: to_char(p_instance_id)||': '||
426: p_serial_number||': ' ||
427: to_char(p_start_date)|| '--'||
442: ELSE
443: -- Check to make sure that if the resource information is already inserted
444: -- in MRP_NET_RESOURCE_AVAIL, then no need to call MRP again
445: -- The p_start_date, p_cutoff_date can be modified by
446: -- individual_res_info_found_in_mrp function if this function
447: -- returns FALSE so that we can get a new from_date and to_date to
448: -- call MRP_RHX_RESOURCE_AVAILABILITY
449: IF (single_ins_info_found_in_mrp(p_simulation_set,
450: p_organization_id,
474:
475: EXCEPTION
476: WHEN OTHERS THEN
477: p_errnum := -1 ;
478: p_errmesg := 'Populate_Individual_Res_Avails Failed - ' ||
479: to_char(SQLCODE) || ': ' || SQLERRM;
480:
481: RETURN ;
482:
479: to_char(SQLCODE) || ': ' || SQLERRM;
480:
481: RETURN ;
482:
483: END Populate_Individual_Ins_Avails ;
484:
485: /*
486: * Wrapper on top of MRP_RHX_RESOURCE_AVAILABILITY.calc_res_avail.
487: * Basically delete the MRP_NET_RESOURCE_AVAIL table only for the date
1094: PROCEDURE INCREMENT_BATCH_SEQ(NUMBER_OF_NEW_BATCHES NUMBER) IS
1095: dummy NUMBER;
1096: BEGIN
1097: for i in 1..NUMBER_OF_NEW_BATCHES loop
1098: SELECT WIP_PROCESSING_BATCH_S.NEXTVAL INTO dummy FROM DUAL;
1099: end loop;
1100:
1101: END increment_batch_seq;
1102:
1401: if (p_cust_name is not null) then
1402: begin
1403: select 'T'
1404: into ret
1405: from dual
1406: where exists (
1407: select 1
1408: from hz_cust_accounts hca, hz_parties hp,
1409: mtl_reservations mr, oe_order_lines_all ool
1433:
1434: if (p_so_name is not null) then
1435: select 'T'
1436: into ret
1437: from dual
1438: where exists (
1439: select 1
1440: from mtl_reservations mr , mtl_sales_orders mso
1441: where mso.sales_order_id = mr.demand_source_header_id