1: PACKAGE BODY PN_PAY_GROUP_RULES_PKG AS
2: --$Header: PNGRPRLB.pls 115.3 2004/02/12 08:33:15 kkhegde noship $
3:
4: /*===========================================================================+
5: | PROCEDURE insert_row
3:
4: /*===========================================================================+
5: | PROCEDURE insert_row
6: | DESCRIPTION
7: | inserts row into pn_pay_group_rules
8: | SCOPE - PUBLIC
9: | MODIFICATION HISTORY
10: |
11: | 15-DEC-2003 Kiran o Created.
38: ,x_ATTRIBUTE15 IN VARCHAR2) IS
39:
40: CURSOR group_rule IS
41: SELECT GROUPING_RULE_ID
42: FROM PN_PAY_GROUP_RULES
43: WHERE GROUPING_RULE_ID = x_GROUPING_RULE_ID;
44:
45: BEGIN
46:
43: WHERE GROUPING_RULE_ID = x_GROUPING_RULE_ID;
44:
45: BEGIN
46:
47: INSERT INTO PN_PAY_GROUP_RULES
48: (GROUPING_RULE_ID
49: ,NAME
50: ,DESCRIPTION
51: ,LAST_UPDATE_DATE
69: ,ATTRIBUTE13
70: ,ATTRIBUTE14
71: ,ATTRIBUTE15)
72: VALUES
73: (NVL(x_GROUPING_RULE_ID, PN_PAY_GROUP_RULES_S.NEXTVAL)
74: ,x_NAME
75: ,x_DESCRIPTION
76: ,x_LAST_UPDATE_DATE
77: ,x_LAST_UPDATED_BY
115:
116: /*===========================================================================+
117: | PROCEDURE update_row
118: | DESCRIPTION
119: | updates a row in pn_pay_group_rules
120: | SCOPE - PUBLIC
121: | MODIFICATION HISTORY
122: |
123: | 15-DEC-2003 Kiran o Created.
147: ,x_ATTRIBUTE15 IN VARCHAR2) IS
148:
149: BEGIN
150:
151: UPDATE PN_PAY_GROUP_RULES SET
152: NAME = x_NAME
153: ,DESCRIPTION = x_DESCRIPTION
154: ,LAST_UPDATE_DATE = x_LAST_UPDATE_DATE
155: ,LAST_UPDATED_BY = x_LAST_UPDATED_BY
197: PROCEDURE LOCK_ROW_EXCEPTION (p_column_name in varchar2,
198: p_new_value in varchar2)
199: is
200: BEGIN
201: PNP_DEBUG_PKG.debug ('PN_PAY_GROUP_RULES_PKG.LOCK_ROW_EXCEPTION (+)');
202:
203: fnd_message.set_name ('PN','PN_RECORD_CHANGED');
204: fnd_message.set_token ('COLUMN_NAME',p_column_name);
205: fnd_message.set_token ('NEW_VALUE',p_new_value);
210:
211: /*===========================================================================+
212: | PROCEDURE lock_row
213: | DESCRIPTION
214: | locks a row in pn_pay_group_rules
215: | SCOPE - PUBLIC
216: | MODIFICATION HISTORY
217: |
218: | 15-DEC-2003 Kiran o Created.
239: ,x_ATTRIBUTE15 IN VARCHAR2) IS
240:
241: CURSOR group_rule IS
242: SELECT *
243: FROM PN_PAY_GROUP_RULES
244: WHERE GROUPING_RULE_ID = x_GROUPING_RULE_ID
245: FOR UPDATE OF GROUPING_RULE_ID NOWAIT;
246:
247: tlinfo group_rule%ROWTYPE;
359:
360: /*===========================================================================+
361: | PROCEDURE delete_row
362: | DESCRIPTION
363: | deletes a row from pn_pay_group_rules
364: | SCOPE - PUBLIC
365: | MODIFICATION HISTORY
366: |
367: | 15-DEC-2003 Kiran o Created.
370: x_GROUPING_RULE_ID IN NUMBER) IS
371:
372: BEGIN
373:
374: DELETE FROM PN_PAY_GROUP_RULES
375: WHERE GROUPING_RULE_ID = x_GROUPING_RULE_ID;
376:
377: IF (SQL%NOTFOUND) THEN
378: RAISE NO_DATA_FOUND;
382: WHEN others THEN
383: RAISE;
384: END delete_row;
385:
386: END PN_PAY_GROUP_RULES_PKG;