35: l_org_id NUMBER;
36:
37: BEGIN
38:
39: pnp_debug_pkg.debug(l_desc ||' (+)');
40:
41:
42: IF x_org_id IS NULL THEN
43: FOR rec IN org_cur LOOP
78: x_created_by,
79: x_last_update_login
80: ) RETURNING expense_class_dtl_id INTO x_expense_class_dtl_id;
81:
82: pnp_debug_pkg.debug(l_desc ||' (-)');
83:
84: EXCEPTION
85: WHEN OTHERS THEN
86: RAISE_APPLICATION_ERROR(-20001, to_char(sqlcode));
111: IS
112: l_desc VARCHAR2(100) := 'pn_rec_expcl_dtl_pkg.update_row';
113: BEGIN
114:
115: pnp_debug_pkg.debug(l_desc ||' (+)');
116:
117: UPDATE pn_rec_expcl_dtl_all
118: SET
119: expense_class_id = x_expense_class_id,
129: created_by = x_created_by,
130: last_update_login = x_last_update_login
131: WHERE expense_class_dtl_id = x_expense_class_dtl_id;
132:
133: pnp_debug_pkg.debug(l_desc ||' (-)');
134:
135: EXCEPTION
136: WHEN OTHERS THEN
137: RAISE_APPLICATION_ERROR(-20001, to_char(sqlcode));
148: PROCEDURE delete_row(x_expense_class_dtl_id pn_rec_expcl_dtl.expense_class_dtl_id%TYPE) IS
149: l_desc VARCHAR2(100) := 'pn_rec_expcl_dtl_pkg.delete_row';
150: BEGIN
151:
152: pnp_debug_pkg.debug(l_desc ||' (+)');
153:
154: DELETE pn_rec_expcl_dtl_all
155: WHERE expense_class_dtl_id = x_expense_class_dtl_id;
156:
153:
154: DELETE pn_rec_expcl_dtl_all
155: WHERE expense_class_dtl_id = x_expense_class_dtl_id;
156:
157: pnp_debug_pkg.debug(l_desc ||' (-)');
158:
159: EXCEPTION
160: WHEN OTHERS THEN
161: RAISE_APPLICATION_ERROR(-20001, to_char(sqlcode));