469:
470: procedure fetch_and_delete(
471: p_hdr_id in number,
472: p_act_id in number,
473: p_serials in out nocopy wip_serial_temp_cleanup.mtl_serial_numbers_temp_rec) is
474:
475: i number := 0;
476:
477: cursor get_serials(
494: to_serial_number,
495: serial_prefix,
496: error_code error_code,
497: group_header_id
498: from mtl_serial_numbers_temp
499: where
500: transaction_temp_id in
501: (select transaction_temp_id
502: from mtl_material_transactions_temp
555:
556: close get_serials;
557:
558: if (p_serials.numrecs > 0) then
559: delete from mtl_serial_numbers_temp
560: where
561: transaction_temp_id in
562: (select transaction_temp_id
563: from mtl_material_transactions_temp
577:
578: procedure fetch_and_delete(
579: p_hdr_id in number,
580: p_act_id in number,
581: p_dyn_sns in out nocopy wip_serial_number_cleanup.mtl_serial_numbers_rec) is
582:
583: i number := 0;
584:
585: cursor get_serials(
638: ATTRIBUTE15,
639: GROUP_MARK_ID,
640: LINE_MARK_ID,
641: LOT_LINE_MARK_ID
642: from mtl_serial_numbers
643: where current_status = 6
644: and group_mark_id = c_hdr_id
645: and (line_mark_id in
646: (select transaction_temp_id
736:
737: close get_serials;
738:
739: if (p_dyn_sns.numrecs > 0) then
740: delete mtl_serial_numbers
741: where current_status = 6
742: and group_mark_id = p_hdr_id
743: and (line_mark_id in
744: (select transaction_temp_id
759:
760: procedure fetch_and_unmark(
761: p_hdr_id in number,
762: p_act_id in number,
763: p_serials in out nocopy wip_serial_number_cleanup.mtl_serial_numbers_mark_rec) is
764: i number := 0;
765:
766: cursor get_serials(
767: c_hdr_id number,
771: INVENTORY_ITEM_ID,
772: GROUP_MARK_ID,
773: LINE_MARK_ID,
774: LOT_LINE_MARK_ID
775: from mtl_serial_numbers
776: where group_mark_id = c_hdr_id
777: and (line_mark_id in
778: (select transaction_temp_id
779: from mtl_material_transactions_temp
820:
821: close get_serials;
822:
823: if (p_serials.numrecs > 0) then
824: update mtl_serial_numbers
825: set group_mark_id = null,
826: line_mark_id = null,
827: lot_line_mark_id = null
828: where group_mark_id = p_hdr_id
847: p_hdr_id in number,
848: p_act_id in number default NULL,
849: p_materials in out nocopy mtl_transactions_temp_rec,
850: p_lots in out nocopy wip_lot_temp_cleanup.mtl_transaction_lots_temp_rec,
851: p_serials in out nocopy wip_serial_temp_cleanup.mtl_serial_numbers_temp_rec,
852: p_dyn_serials in out nocopy wip_serial_number_cleanup.mtl_serial_numbers_rec,
853: p_ser_marks in out nocopy wip_serial_number_cleanup.mtl_serial_numbers_mark_rec) is
854: begin
855: -- get marked serial numbers
848: p_act_id in number default NULL,
849: p_materials in out nocopy mtl_transactions_temp_rec,
850: p_lots in out nocopy wip_lot_temp_cleanup.mtl_transaction_lots_temp_rec,
851: p_serials in out nocopy wip_serial_temp_cleanup.mtl_serial_numbers_temp_rec,
852: p_dyn_serials in out nocopy wip_serial_number_cleanup.mtl_serial_numbers_rec,
853: p_ser_marks in out nocopy wip_serial_number_cleanup.mtl_serial_numbers_mark_rec) is
854: begin
855: -- get marked serial numbers
856: fetch_and_unmark(
849: p_materials in out nocopy mtl_transactions_temp_rec,
850: p_lots in out nocopy wip_lot_temp_cleanup.mtl_transaction_lots_temp_rec,
851: p_serials in out nocopy wip_serial_temp_cleanup.mtl_serial_numbers_temp_rec,
852: p_dyn_serials in out nocopy wip_serial_number_cleanup.mtl_serial_numbers_rec,
853: p_ser_marks in out nocopy wip_serial_number_cleanup.mtl_serial_numbers_mark_rec) is
854: begin
855: -- get marked serial numbers
856: fetch_and_unmark(
857: p_hdr_id => p_hdr_id,
1228:
1229: procedure insert_rows(
1230: p_materials in mtl_transactions_temp_rec,
1231: p_lots in wip_lot_temp_cleanup.mtl_transaction_lots_temp_rec,
1232: p_serials in wip_serial_temp_cleanup.mtl_serial_numbers_temp_rec,
1233: p_dyn_serials in wip_serial_number_cleanup.mtl_serial_numbers_rec,
1234: p_ser_marks in wip_serial_number_cleanup.mtl_serial_numbers_mark_rec,
1235: p_retcode out nocopy number,
1236: p_app out nocopy varchar2,
1229: procedure insert_rows(
1230: p_materials in mtl_transactions_temp_rec,
1231: p_lots in wip_lot_temp_cleanup.mtl_transaction_lots_temp_rec,
1232: p_serials in wip_serial_temp_cleanup.mtl_serial_numbers_temp_rec,
1233: p_dyn_serials in wip_serial_number_cleanup.mtl_serial_numbers_rec,
1234: p_ser_marks in wip_serial_number_cleanup.mtl_serial_numbers_mark_rec,
1235: p_retcode out nocopy number,
1236: p_app out nocopy varchar2,
1237: p_msg out nocopy varchar2) is
1230: p_materials in mtl_transactions_temp_rec,
1231: p_lots in wip_lot_temp_cleanup.mtl_transaction_lots_temp_rec,
1232: p_serials in wip_serial_temp_cleanup.mtl_serial_numbers_temp_rec,
1233: p_dyn_serials in wip_serial_number_cleanup.mtl_serial_numbers_rec,
1234: p_ser_marks in wip_serial_number_cleanup.mtl_serial_numbers_mark_rec,
1235: p_retcode out nocopy number,
1236: p_app out nocopy varchar2,
1237: p_msg out nocopy varchar2) is
1238: x_retcode number;