1: PACKAGE BODY PAY_US_GARN_FEE_RULES_F_PKG as
2: /* $Header: pygfr01t.pkb 115.1.1150.1 2000/02/10 15:53:37 pkm ship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT VARCHAR2,
5: X_Fee_Rule_Id IN OUT NUMBER,
20: X_Last_Update_Login NUMBER,
21: X_Created_By NUMBER,
22: X_Creation_Date DATE
23: ) IS
24: CURSOR C IS SELECT rowid FROM PAY_US_GARN_FEE_RULES_F
25: WHERE fee_rule_id = X_Fee_Rule_Id;
26: CURSOR C2 IS SELECT pay_us_garn_fee_rules_s.nextval FROM sys.dual;
27: BEGIN
28: if (X_Fee_Rule_Id is NULL) then
30: FETCH C2 INTO X_Fee_Rule_Id;
31: CLOSE C2;
32: end if;
33:
34: INSERT INTO PAY_US_GARN_FEE_RULES_F(
35:
36: fee_rule_id,
37: effective_start_date,
38: effective_end_date,
100: X_Take_Fee_On_Proration VARCHAR2
101: ) IS
102: CURSOR C IS
103: SELECT *
104: FROM PAY_US_GARN_FEE_RULES_F
105: WHERE rowid = X_Rowid
106: FOR UPDATE of Fee_Rule_Id NOWAIT;
107: Recinfo C%ROWTYPE;
108:
176: X_Last_Update_Login NUMBER
177:
178: ) IS
179: BEGIN
180: UPDATE PAY_US_GARN_FEE_RULES_F
181: SET
182: fee_rule_id = X_Fee_Rule_Id,
183: effective_start_date = X_Effective_Start_Date,
184: effective_end_date = X_Effective_End_Date,
202: end if;
203: END Update_Row;
204: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
205: BEGIN
206: DELETE FROM PAY_US_GARN_FEE_RULES_F
207: WHERE rowid = X_Rowid;
208:
209: if (SQL%NOTFOUND) then
210: Raise NO_DATA_FOUND;
219: BEGIN
220:
221: SELECT count(1)
222: INTO DUMMY
223: FROM pay_us_garn_fee_rules_f
224: WHERE state_code = X_State_Code
225: AND GARN_CATEGORY = X_Garn_Category;
226:
227: IF (DUMMY >= 1) then
231:
232: END check_unique;
233:
234:
235: END PAY_US_GARN_FEE_RULES_F_PKG;