[Home] [Help]
66:
67: stmt_num := 10;
68:
69: if (l_debug = 'Y') then
70: FND_FILE.PUT_LINE(FND_FILE.log, 'CSTPACPB.cost_wip_trx <<<');
71: end if;
72:
73: select
74: inventory_item_id,
162: err_buf => l_err_msg);
163:
164: If (l_return <> 0) THEN
165: if (l_debug = 'Y') then
166: fnd_file.put_line(fnd_file.log, 'proc_fail-cstpcfms'||SQLERRM);
167: end if;
168: raise proc_fail;
169: END IF;
170:
542:
543: IF (l_action_id = 1 OR l_action_id = 27 OR
544: l_action_id = 33 OR l_action_id = 34) THEN
545: if l_debug = 'Y' then
546: fnd_file.put_line(fnd_file.log,'Calling CSTPACWB.cost_in');
547: end if;
548: CSTPACWB.cost_in(i_trx_id => l_trx_id,
549: i_layer_id => l_layer_id,
550: i_comm_iss_flag => l_comm_iss_flag,
558: err_num => l_err_num,
559: err_code => l_err_code,
560: err_msg => l_err_msg);
561: if l_debug = 'Y' then
562: fnd_file.put_line(fnd_file.log,'l_err_num: '|| to_char(l_err_num));
563: end if;
564: /* Bug 3062249 - Call EAM API only if transaction is not CITW
565: This is because, distributions have not yet been created for
566: CITW txns. For these, EAM API will be called in CSTPACIN */
575:
576: /* Update Asset cost for eam jobs */
577: if (l_entity_type in (6,7)) then
578: if l_debug = 'Y' then
579: FND_FILE.PUT_LINE(FND_FILE.log, 'calling eamCost_pub.process_matCost ');
580: end if;
581: CST_eamCost_PUB.process_matCost (
582: p_api_version => 1.0,
583: x_return_status => l_return_status,
624: -- Raise exception if there is an error in updating WPB.
625:
626: IF (l_err_num<>0) THEN
627: if (l_debug = 'Y') then
628: fnd_file.put_line(fnd_file.log, 'raising proc_fail after call to cost_in/cost_out');
629: end if;
630: raise proc_fail;
631: END IF;
632:
637:
638: EXCEPTION
639:
640: WHEN proc_fail THEN
641: FND_FILE.PUT_LINE(FND_FILE.log, 'in exception loop proc_fail raised');
642: err_num := l_err_num;
643: err_code := l_err_code;
644: err_msg := l_err_msg;
645: ROLLBACK;