[Home] [Help]
1: PACKAGE BODY IEX_DUNNING_PUB AS
2: /* $Header: iexpdunb.pls 120.52.12020000.15 2013/02/20 19:46:25 ehuh ship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30):= 'IEX_DUNNING_PUB';
1: PACKAGE BODY IEX_DUNNING_PUB AS
2: /* $Header: iexpdunb.pls 120.52.12020000.15 2013/02/20 19:46:25 ehuh ship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30):= 'IEX_DUNNING_PUB';
6: G_FILE_NAME CONSTANT VARCHAR2(12) := 'iexpdunb.pls';
7: G_Batch_Size NUMBER := to_number(nvl(fnd_profile.value('IEX_BATCH_SIZE'), '100000'));
8:
9: --PG_DEBUG NUMBER(2) := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
24: Procedure Create_AG_DN_XREF
25: (p_api_version IN NUMBER := 1.0,
26: p_init_msg_list IN VARCHAR2 ,
27: p_commit IN VARCHAR2 ,
28: P_AG_DN_XREF_TBL IN IEX_DUNNING_PUB.AG_DN_XREF_TBL_TYPE ,
29: x_return_status OUT NOCOPY VARCHAR2,
30: x_msg_count OUT NOCOPY NUMBER,
31: x_msg_data OUT NOCOPY VARCHAR2,
32: x_AG_DN_XREF_ID_TBL OUT NOCOPY IEX_DUNNING_PUB.AG_DN_XREF_ID_TBL_TYPE)
28: P_AG_DN_XREF_TBL IN IEX_DUNNING_PUB.AG_DN_XREF_TBL_TYPE ,
29: x_return_status OUT NOCOPY VARCHAR2,
30: x_msg_count OUT NOCOPY NUMBER,
31: x_msg_data OUT NOCOPY VARCHAR2,
32: x_AG_DN_XREF_ID_TBL OUT NOCOPY IEX_DUNNING_PUB.AG_DN_XREF_ID_TBL_TYPE)
33:
34: IS
35: l_api_name CONSTANT VARCHAR2(30) := 'Create_AG_DN_XREF';
36: l_api_version_number CONSTANT NUMBER := 1.0;
37: l_return_status VARCHAR2(1);
38: l_msg_count NUMBER;
39: l_msg_data VARCHAR2(32767);
40: errmsg VARCHAR2(32767);
41: l_AG_DN_XREF_rec IEX_DUNNING_PUB.AG_DN_XREF_REC_TYPE;
42: x_ag_dn_xref_id NUMBER;
43: l_AG_DN_XREF_ID_TBL IEX_DUNNING_PUB.AG_DN_XREF_ID_TBL_TYPE;
44:
45:
39: l_msg_data VARCHAR2(32767);
40: errmsg VARCHAR2(32767);
41: l_AG_DN_XREF_rec IEX_DUNNING_PUB.AG_DN_XREF_REC_TYPE;
42: x_ag_dn_xref_id NUMBER;
43: l_AG_DN_XREF_ID_TBL IEX_DUNNING_PUB.AG_DN_XREF_ID_TBL_TYPE;
44:
45:
46: BEGIN
47: -- Standard Start of API savepoint
159: Procedure Update_AG_DN_XREF
160: (p_api_version IN NUMBER := 1.0,
161: p_init_msg_list IN VARCHAR2 ,
162: p_commit IN VARCHAR2 ,
163: P_AG_DN_XREF_TBL IN IEX_DUNNING_PUB.AG_DN_XREF_TBL_TYPE ,
164: x_return_status OUT NOCOPY VARCHAR2,
165: x_msg_count OUT NOCOPY NUMBER,
166: x_msg_data OUT NOCOPY VARCHAR2)
167: IS
170: l_return_status VARCHAR2(1);
171: l_msg_count NUMBER;
172: l_msg_data VARCHAR2(32767);
173: errmsg VARCHAR2(32767);
174: l_AG_DN_XREF_rec IEX_DUNNING_PUB.AG_DN_XREF_REC_TYPE ;
175:
176: BEGIN
177:
178: -- Standard Start of API savepoint
574:
575: --Start adding for bug 8489610 by gnramasa 14-May-09
576: l_req_id number;
577:
578: l_dunning_rec_upd IEX_DUNNING_PUB.DUNNING_REC_TYPE;
579: l_submit_request_id NUMBER;
580: l_xml_request_id NUMBER;
581: l_conf_mode varchar2(10);
582: l_status varchar2(10);
1753: Procedure Daily_Dunning
1754: (p_api_version IN NUMBER := 1.0,
1755: p_init_msg_list IN VARCHAR2 ,
1756: p_commit IN VARCHAR2 ,
1757: --p_dunning_tbl IN IEX_DUNNING_PUB.DUNNING_TBL_TYPE,
1758: p_running_level IN VARCHAR2 ,
1759: x_return_status OUT NOCOPY VARCHAR2,
1760: x_msg_count OUT NOCOPY NUMBER,
1761: x_msg_data OUT NOCOPY VARCHAR2)
1961: --
1962: else
1963: FND_FILE.PUT_LINE(FND_FILE.LOG, '>>>>>Process Dunning Callbacks');
1964: WriteLog(G_PKG_NAME || ' ' || l_api_name || ' - starting Daily_Dunning');
1965: IEX_DUNNING_PUB.Daily_Dunning(
1966: p_api_version => l_api_version
1967: , p_init_msg_list => FND_API.G_TRUE
1968: , p_commit => FND_API.G_TRUE
1969: , p_running_level => l_running_level
2409: END IF;
2410: --l_correspondence_date := nvl(p_correspondence_date, trunc(sysdate));
2411: l_correspondence_date := trunc(nvl(to_date(substr(p_correspondence_date, 1, 10), 'YYYY/MM/DD'),to_date(to_char(sysdate,'YYYY/MM/DD'),'YYYY/MM/DD')));
2412:
2413: IEX_DUNNING_PUB.SEND_DUNNING(
2414: p_api_version => l_api_version
2415: , p_init_msg_list => FND_API.G_TRUE
2416: , p_commit => FND_API.G_TRUE
2417: , p_running_level => l_running_level
2980:
2981: PG_DEBUG := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2982:
2983:
2984: END IEX_DUNNING_PUB;