1: PACKAGE BODY PA_SEGMENT_RULE_PAIRINGS_PKG as
2: /* $Header: PAXAAASB.pls 120.3 2005/08/03 10:27:36 aaggarwa noship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5: X_Application_Id NUMBER,
16: X_Last_Update_Login NUMBER,
17: X_Display_Flag VARCHAR2,
18: P_Org_Id NUMBER -- 12i MOAC changes
19: ) IS
20: CURSOR C IS SELECT rowid FROM PA_SEGMENT_RULE_PAIRINGS
21: WHERE application_id = X_Application_Id
22: AND function_code = X_Function_Code
23: AND function_transaction_code = X_Function_Transaction_Code;
24:
22: AND function_code = X_Function_Code
23: AND function_transaction_code = X_Function_Transaction_Code;
24:
25: BEGIN
26: INSERT INTO PA_SEGMENT_RULE_PAIRINGS(
27: application_id,
28: function_code,
29: function_transaction_code,
30: id_flex_code,
75: X_Display_Flag VARCHAR2
76: ) IS
77: CURSOR C IS
78: SELECT *
79: FROM PA_SEGMENT_RULE_PAIRINGS
80: WHERE rowid = X_Rowid
81: FOR UPDATE of Application_Id NOWAIT;
82: Recinfo C%ROWTYPE;
83:
125: X_Display_Flag VARCHAR2
126:
127: ) IS
128: BEGIN
129: UPDATE PA_SEGMENT_RULE_PAIRINGS
130: SET
131: application_id = X_Application_Id,
132: function_code = X_Function_Code,
133: function_transaction_code = X_Function_Transaction_Code,
146: end if;
147: END Update_Row;
148: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
149: BEGIN
150: DELETE FROM PA_SEGMENT_RULE_PAIRINGS
151: WHERE rowid = X_Rowid;
152:
153: if (SQL%NOTFOUND) then
154: Raise NO_DATA_FOUND;
154: Raise NO_DATA_FOUND;
155: end if;
156: END Delete_Row;
157:
158: END PA_SEGMENT_RULE_PAIRINGS_PKG;