1: PACKAGE BODY JL_ZZ_AR_TX_LGL_MSG_PKG AS
2: /* $Header: jlzztlmb.pls 120.2 2003/03/03 19:36:18 opedrega ship $ */
3:
4: PROCEDURE Insert_Row
5: (X_rowid IN OUT NOCOPY VARCHAR2,
20: X_calling_sequence IN VARCHAR2) IS
21:
22: CURSOR C IS
23: SELECT rowid
24: FROM jl_zz_ar_tx_lgl_msg
25: WHERE rule_id = X_rule_id
26: AND rule_data_id = X_rule_data_id
27: AND exception_code = X_exception_code
28: AND org_id = X_org_id;
32:
33: BEGIN
34: -- Update the calling sequence
35: --
36: current_calling_sequence := 'jl_zz_ar_tx_lgl_msg_PKG.INSERT_ROW<-' ||
37: X_calling_sequence;
38:
39: debug_info := 'Insert INTO jl_zz_ar_tx_lgl_msg ';
40: INSERT INTO jl_zz_ar_tx_lgl_msg(rule_id,
35: --
36: current_calling_sequence := 'jl_zz_ar_tx_lgl_msg_PKG.INSERT_ROW<-' ||
37: X_calling_sequence;
38:
39: debug_info := 'Insert INTO jl_zz_ar_tx_lgl_msg ';
40: INSERT INTO jl_zz_ar_tx_lgl_msg(rule_id,
41: rule_data_id,
42: exception_code,
43: message_id,
36: current_calling_sequence := 'jl_zz_ar_tx_lgl_msg_PKG.INSERT_ROW<-' ||
37: X_calling_sequence;
38:
39: debug_info := 'Insert INTO jl_zz_ar_tx_lgl_msg ';
40: INSERT INTO jl_zz_ar_tx_lgl_msg(rule_id,
41: rule_data_id,
42: exception_code,
43: message_id,
44: inventory_item_flag,
126: LAST_UPDATED_BY,
127: CREATION_DATE,
128: CREATED_BY,
129: LAST_UPDATE_LOGIN
130: FROM JL_ZZ_AR_TX_LGL_MSG
131: WHERE rule_id = X_rule_id
132: AND rule_data_id = X_rule_data_id
133: AND exception_code = X_exception_code
134: AND org_id = X_org_id
145:
146: BEGIN
147: -- Update the calling sequence
148: --
149: current_calling_sequence := 'jl_zz_ar_tx_lgl_msg_PKG.LOCK_ROW<-' ||
150: X_calling_sequence;
151:
152: debug_info := 'Open CURSOR C';
153: OPEN C;
232: X_created_by NUMBER,
233: X_calling_sequence IN VARCHAR2) IS
234:
235: BEGIN
236: UPDATE JL_ZZ_AR_TX_LGL_MSG
237: SET rule_id = X_rule_id,
238: rule_data_id = X_rule_data_id,
239: exception_code = X_exception_code,
240: message_id = X_message_id,
259: (X_rowid VARCHAR2) IS
260:
261: BEGIN
262: DELETE
263: FROM JL_ZZ_AR_TX_LGL_MSG
264: WHERE rowid = X_rowid;
265:
266: IF (SQL%NOTFOUND) THEN
267: raise NO_DATA_FOUND;
279:
280: BEGIN
281: SELECT count(1)
282: INTO dummy
283: FROM jl_zz_ar_tx_lgl_msg
284: WHERE rule_id = X_rule_id
285: AND rule_data_id = X_rule_data_id
286: AND exception_code = X_exception_code
287: AND org_id = X_org_id
293: APP_EXCEPTION.RAISE_EXCEPTION;
294: END IF;
295: END Check_Unique;
296:
297: END jl_zz_ar_tx_lgl_msg_pkg;