1: PACKAGE BODY PAY_WC_STATE_SURCHARGES_PKG as
2: /* $Header: pywss01t.pkb 115.1 99/07/17 06:50:51 porting ship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT VARCHAR2,
5: X_Surcharge_Id IN OUT NUMBER,
8: X_Name VARCHAR2,
9: X_Position VARCHAR2,
10: X_Rate NUMBER
11: ) IS
12: CURSOR C IS SELECT rowid FROM PAY_WC_STATE_SURCHARGES
13: WHERE surcharge_id = X_Surcharge_Id;
14: CURSOR C2 IS SELECT pay_wc_state_surcharges_s.nextval FROM sys.dual;
15: BEGIN
16: --
10: X_Rate NUMBER
11: ) IS
12: CURSOR C IS SELECT rowid FROM PAY_WC_STATE_SURCHARGES
13: WHERE surcharge_id = X_Surcharge_Id;
14: CURSOR C2 IS SELECT pay_wc_state_surcharges_s.nextval FROM sys.dual;
15: BEGIN
16: --
17: -- check if unique
18: --
30: FETCH C2 INTO X_Surcharge_Id;
31: CLOSE C2;
32: end if;
33:
34: INSERT INTO PAY_WC_STATE_SURCHARGES(
35: surcharge_id,
36: state_code,
37: add_to_rt,
38: name,
66: X_Rate NUMBER
67: ) IS
68: CURSOR C IS
69: SELECT *
70: FROM PAY_WC_STATE_SURCHARGES
71: WHERE rowid = X_Rowid
72: FOR UPDATE of Surcharge_Id NOWAIT;
73: Recinfo C%ROWTYPE;
74:
123: check_position( p_state_code => x_state_code,
124: p_position => x_position,
125: p_event => 'UPDATE');
126: --
127: UPDATE PAY_WC_STATE_SURCHARGES
128: SET
129: surcharge_id = X_Surcharge_Id,
130: state_code = X_State_Code,
131: add_to_rt = X_Add_To_Rt,
139: end if;
140: END Update_Row;
141: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
142: BEGIN
143: DELETE FROM PAY_WC_STATE_SURCHARGES
144: WHERE rowid = X_Rowid;
145:
146: if (SQL%NOTFOUND) then
147: Raise NO_DATA_FOUND;
158: CURSOR chk_name IS
159: SELECT
160: 'N'
161: FROM
162: pay_wc_state_surcharges wss
163: WHERE
164: wss.name = p_name AND
165: wss.state_code = p_state_code AND
166: (wss.surcharge_id <> p_surcharge_id
170: CURSOR chk_position IS
171: SELECT
172: 'N'
173: FROM
174: pay_wc_state_surcharges wss
175: WHERE
176: wss.state_code = p_state_code AND
177: wss.position = p_position AND
178: (wss.surcharge_id <> p_surcharge_id
221: CURSOR chk_position IS
222: SELECT
223: 'Y'
224: FROM
225: pay_wc_state_surcharges wss
226: WHERE
227: wss.position = l_position AND
228: wss.state_code = p_state_code;
229: --
268: --
269: END check_position;
270:
271:
272: END PAY_WC_STATE_SURCHARGES_PKG;