4365:
4366: -- initialize distributions list table
4367: l_distribution_id_tbl := po_tbl_number();
4368:
4369: -- insert NEW/OLD records of standard po distributions into PO_ENCUMBRANCE_GT
4370: OPEN l_changed_po_dists_csr(p_group_id);
4371:
4372: FETCH l_changed_po_dists_csr BULK COLLECT
4373: INTO l_distribution_id_tbl;
4390: x_errcode := 'FC_FAIL';
4391: RETURN;
4392: END IF;
4393:
4394: -- insert NEW/OLD records of release distributions into PO_ENCUMBRANCE_GT
4395:
4396: -- re-initialize distributions list table
4397: l_distribution_id_tbl.delete;
4398:
4395:
4396: -- re-initialize distributions list table
4397: l_distribution_id_tbl.delete;
4398:
4399: -- insert standard po distributions into PO_ENCUMBRANCE_GT
4400: OPEN l_changed_rel_dists_csr(p_group_id);
4401:
4402: FETCH l_changed_rel_dists_csr BULK COLLECT
4403: INTO l_distribution_id_tbl;
4420: x_errcode := 'FC_FAIL';
4421: RETURN;
4422: END IF;
4423:
4424: -- Update NEW record in PO_ENCUMBRANCE_GT with the new
4425: -- values
4426:
4427:
4428: x_retmsg := 'SMRCH003';
4626: l_rec_tax, l_nonrec_tax);
4627: l_new_tax := l_nonrec_tax;
4628:
4629:
4630: -- update new values in PO_ENCUMBRANCE_GT
4631: UPDATE po_encumbrance_gt
4632: SET
4633: amount_ordered = l_new_amount,
4634: quantity_ordered = l_new_quantity,
4627: l_new_tax := l_nonrec_tax;
4628:
4629:
4630: -- update new values in PO_ENCUMBRANCE_GT
4631: UPDATE po_encumbrance_gt
4632: SET
4633: amount_ordered = l_new_amount,
4634: quantity_ordered = l_new_quantity,
4635: price = l_new_price,
6469:
6470: -- initialize distributions list table
6471: l_distribution_id_tbl := po_tbl_number();
6472:
6473: -- insert NEW/OLD records of standard po distributions into PO_ENCUMBRANCE_GT
6474: OPEN l_changed_req_dists_csr(p_group_id);
6475:
6476: FETCH l_changed_req_dists_csr BULK COLLECT
6477: INTO l_distribution_id_tbl;
6501:
6502: -- re-initialize distributions list table
6503: l_distribution_id_tbl.delete;
6504:
6505: -- Update NEW record in PO_ENCUMBRANCE_GT with the new
6506: -- values
6507: x_retmsg := 'SMRCH003';
6508:
6509: /*
6544: po_debug.debug_var(l_log_head, x_retmsg, 'l_rec_tax=', l_rec_tax);
6545: po_debug.debug_var(l_log_head, x_retmsg, 'l_nonrec_tax=', l_nonrec_tax);
6546: END IF;
6547:
6548: -- update new values in PO_ENCUMBRANCE_GT
6549: UPDATE po_encumbrance_gt
6550: SET
6551: amount_ordered = l_new_amount,
6552: quantity_ordered = l_new_quantity,
6545: po_debug.debug_var(l_log_head, x_retmsg, 'l_nonrec_tax=', l_nonrec_tax);
6546: END IF;
6547:
6548: -- update new values in PO_ENCUMBRANCE_GT
6549: UPDATE po_encumbrance_gt
6550: SET
6551: amount_ordered = l_new_amount,
6552: quantity_ordered = l_new_quantity,
6553: price = l_new_price,