1: PACKAGE BODY PO_DISTRIBUTIONS_PKG1 as
2: /* $Header: POXP1PDB.pls 120.10.12000000.2 2007/10/17 11:53:41 ppadilam ship $ */
3:
4:
5: /**
105: X_distribution_type IN VARCHAR2 default null, --
106: X_amount_to_encumber IN NUMBER default null, --
107: p_org_id IN NUMBER DEFAULT NULL --
108: ) IS
109: CURSOR C IS SELECT rowid FROM PO_DISTRIBUTIONS
110: WHERE po_distribution_id = X_Po_Distribution_Id;
111:
112:
113:
110: WHERE po_distribution_id = X_Po_Distribution_Id;
111:
112:
113:
114: CURSOR C2 IS SELECT po_distributions_s.nextval FROM sys.dual;
115:
116: l_tax_attribute_update_code PO_DISTRIBUTIONS_ALL.tax_attribute_update_code%type; --
117:
118: BEGIN
112:
113:
114: CURSOR C2 IS SELECT po_distributions_s.nextval FROM sys.dual;
115:
116: l_tax_attribute_update_code PO_DISTRIBUTIONS_ALL.tax_attribute_update_code%type; --
118: BEGIN
119: if (X_Po_Distribution_Id is NULL) then
120: OPEN C2;
128: IF X_Distribution_Type IN ('STANDARD', 'PLANNED', 'BLANKET', 'SCHEDULED') THEN
129: l_tax_attribute_update_code := 'CREATE';
130: END IF;
131:
132: INSERT INTO PO_DISTRIBUTIONS(
133: po_distribution_id,
134: last_update_date,
135: last_updated_by,
136: po_header_id,
429: X_distribution_type IN VARCHAR2 default null, --
430: X_amount_to_encumber IN NUMBER default null --
431: ) IS
432:
433: l_tax_attribute_update_code PO_DISTRIBUTIONS_ALL.tax_attribute_update_code%type; --
435: BEGIN
436:
437:
478: l_tax_attribute_update_code := 'UPDATE';
479: END IF;
480: --
481:
482: UPDATE PO_DISTRIBUTIONS
483: SET
484: po_distribution_id = X_Po_Distribution_Id,
485: last_update_date = X_Last_Update_Date,
486: last_updated_by = X_Last_Updated_By,
579: end if;
580:
581: END Update_Row;
582:
583: END PO_DISTRIBUTIONS_PKG1;