1: PACKAGE BODY PO_REQ_DISTRIBUTIONS_PKG1 as
2: /* $Header: POXRID1B.pls 120.2 2005/06/09 23:56:58 sjadhav noship $ */
3:
4: /**
5: * For now, nonrecoverable and recoverable tax are not inserted and updated.
73: IS
74:
75: x_unique BOOLEAN := TRUE;
76:
77: CURSOR C IS SELECT rowid FROM PO_REQ_DISTRIBUTIONS
78: WHERE distribution_id = X_Distribution_Id;
79:
80:
81:
80:
81:
82:
83:
84: CURSOR C2 IS SELECT po_req_distributions_s.nextval FROM sys.dual;
85:
86: BEGIN
87:
88: /* Check if the distribution_number entered by user is unique */
94: FETCH C2 INTO X_Distribution_Id;
95: CLOSE C2;
96: end if;
97:
98: INSERT INTO PO_REQ_DISTRIBUTIONS(
99: distribution_id,
100: last_update_date,
101: last_updated_by,
102: requisition_line_id,
304: encumbered_flag and encumbered_amount using database values rather than client
305: varables.
306: */
307:
308: UPDATE PO_REQ_DISTRIBUTIONS
309: SET
310: distribution_id = X_Distribution_Id,
311: last_update_date = X_Last_Update_Date,
312: last_updated_by = X_Last_Updated_By,
370:
371:
372: END Update_Row;
373:
374: END PO_REQ_DISTRIBUTIONS_PKG1;