[Home] [Help]
1: PACKAGE BODY IEX_DUNNINGS_pkg AS
2: /* $Header: iextdunb.pls 120.7.12000000.2 2007/03/14 14:11:26 gnramasa ship $ */
3:
4: PG_DEBUG NUMBER(2) ;
5:
38: , p_parent_dunning_id number -- Added for bug 5661324 by gnramasa 14-Mar-07
39: ) IS
40: CURSOR l_insert IS
41: SELECT ROWID
42: FROM iex_dunnings
43: WHERE dunning_id = px_dunning_id;
44: --
45: CURSOR get_seq_csr is
46: SELECT IEX_dunnings_s.nextval
42: FROM iex_dunnings
43: WHERE dunning_id = px_dunning_id;
44: --
45: CURSOR get_seq_csr is
46: SELECT IEX_dunnings_s.nextval
47: FROM sys.dual;
48: BEGIN
49: --
50: If (px_dunning_id IS NULL) OR (px_dunning_id = FND_API.G_MISS_NUM) then
52: FETCH get_seq_csr INTO px_dunning_id;
53: CLOSE get_seq_csr;
54: End If;
55: --
56: INSERT INTO IEX_DUNNINGS (
57: DUNNING_ID
58: , TEMPLATE_ID
59: , CALLBACK_YN
60: , CALLBACK_DATE
132: PROCEDURE delete_row(
133: p_dunning_id NUMBER
134: ) IS
135: BEGIN
136: DELETE FROM iex_dunnings
137: WHERE dunning_id = p_dunning_id;
138: IF (SQL%NOTFOUND) THEN
139: RAISE NO_DATA_FOUND;
140: END IF;
175: , p_delivery_status varchar2
176: , p_parent_dunning_id number
177: ) IS
178: BEGIN
179: UPDATE iex_dunnings
180: SET
181: dunning_id = DECODE(p_dunning_id, FND_API.G_MISS_NUM, NULL, p_dunning_id)
182: , template_id = DECODE(p_template_id, FND_API.G_MISS_NUM, NULL, p_template_id)
183: , callback_yn = DECODE(p_callback_yn, FND_API.G_MISS_CHAR, NULL, p_callback_yn)
249: , p_contact_party_id NUMBER
250: ) IS
251: CURSOR l_lock IS
252: SELECT *
253: FROM iex_dunnings
254: WHERE rowid = p_rowid
255: FOR UPDATE OF dunning_id NOWAIT;
256: l_table_rec l_lock%ROWTYPE;
257: BEGIN
358:
359: BEGIN
360: PG_DEBUG := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
361:
362: END iex_dunnings_pkg;