1: PACKAGE BODY JL_ZZ_AR_TX_CUS_CLS_PKG AS
2: /* $Header: jlzztacb.pls 120.2 2003/03/03 19:32:04 opedrega ship $ */
3:
4:
5: PROCEDURE Populate_Cus_Cls_Rows
6: (X_address_id NUMBER,
7: X_class_code VARCHAR2,
8: X_org_id NUMBER) IS
9: BEGIN
10: Insert into JL_ZZ_AR_TX_CUS_CLS(cus_class_id,
11: address_id,
12: tax_attr_class_code,
13: tax_category_id,
14: tax_attribute_name,
19: last_updated_by,
20: last_update_login,
21: creation_date,
22: created_by)
23: SELECT JL_ZZ_AR_TX_CUS_CLS_S.nextval,
24: X_address_id,
25: X_class_code,
26: tax_category_id,
27: tax_attribute_name,
65: X_calling_sequence IN VARCHAR2) IS
66:
67: CURSOR C IS
68: SELECT rowid
69: FROM JL_ZZ_AR_TX_CUS_CLS
70: WHERE tax_attr_class_code = X_tax_attr_class_code
71: AND tax_category_id = X_tax_category_id
72: AND tax_attribute_name = X_tax_attribute_name
73: AND org_id = X_org_id;
78: BEGIN
79:
80: -- Update the calling sequence
81:
82: current_calling_sequence := 'JL_ZZ_AR_TX_CUS_CLS_PKG.INSERT_ROW<-' ||
83: X_calling_sequence;
84:
85: debug_info := 'Insert into JL_ZZ_AR_TX_CUS_CLS ';
86:
81:
82: current_calling_sequence := 'JL_ZZ_AR_TX_CUS_CLS_PKG.INSERT_ROW<-' ||
83: X_calling_sequence;
84:
85: debug_info := 'Insert into JL_ZZ_AR_TX_CUS_CLS ';
86:
87: INSERT INTO JL_ZZ_AR_TX_CUS_CLS(cus_class_id,
88: address_id,
89: tax_attr_class_code,
83: X_calling_sequence;
84:
85: debug_info := 'Insert into JL_ZZ_AR_TX_CUS_CLS ';
86:
87: INSERT INTO JL_ZZ_AR_TX_CUS_CLS(cus_class_id,
88: address_id,
89: tax_attr_class_code,
90: tax_category_id,
91: tax_attribute_name,
155: X_created_by NUMBER,
156: X_calling_sequence IN VARCHAR2) IS
157:
158: BEGIN
159: UPDATE JL_ZZ_AR_TX_CUS_CLS
160: SET cus_class_id = X_cus_class_id,
161: address_id = X_address_id,
162: tax_attr_class_code = X_tax_attr_class_code,
163: tax_category_id = X_tax_category_id,
183:
184: BEGIN
185:
186: DELETE
187: FROM JL_ZZ_AR_TX_CUS_CLS
188: WHERE rowid = X_rowid;
189:
190: IF (SQL%NOTFOUND) THEN
191: raise NO_DATA_FOUND;
223: LAST_UPDATED_BY,
224: LAST_UPDATE_LOGIN,
225: CREATION_DATE,
226: CREATED_BY
227: FROM JL_ZZ_AR_TX_CUS_CLS
228: WHERE cus_class_id = X_cus_class_id
229: FOR UPDATE of tax_attr_class_code,
230: tax_category_id,
231: tax_attribute_name,
238: debug_info VARCHAR2(100);
239:
240: BEGIN
241:
242: current_calling_sequence := 'JL_ZZ_AR_TX_CUS_CLS_PKG.LOCK_ROW<-' ||
243: X_calling_sequence;
244: debug_info := 'Open cursor C';
245: OPEN C;
246: debug_info := 'Fetch cursor C';
314:
315: BEGIN
316: -- Update the calling sequence
317: --
318: current_calling_sequence := 'JL_ZZ_AR_TX_CUS_CLS_PKG.CHECK_UNIQUE<-' ||
319: X_calling_sequence;
320: SELECT COUNT(1)
321: INTO l_dummy
322: FROM JL_ZZ_AR_TX_CUS_CLS
318: current_calling_sequence := 'JL_ZZ_AR_TX_CUS_CLS_PKG.CHECK_UNIQUE<-' ||
319: X_calling_sequence;
320: SELECT COUNT(1)
321: INTO l_dummy
322: FROM JL_ZZ_AR_TX_CUS_CLS
323: WHERE address_id = X_address_id
324: AND tax_attr_class_code = X_tax_attr_class_code
325: AND tax_category_id = X_tax_category_id
326: AND tax_attribute_name = X_tax_attribute_name
339: APP_EXCEPTION.RAISE_EXCEPTION;
340: END IF;
341: END Check_Unique;
342:
343: END JL_ZZ_AR_TX_CUS_CLS_PKG;