[Home] [Help]
PACKAGE BODY: APPS.OKL_PROP_TAX_ADJ_PUB
Source
1 PACKAGE BODY OKL_PROP_TAX_ADJ_PUB AS
2 /* $Header: OKLPEPRB.pls 120.3 2005/10/30 04:01:34 appldev noship $ */
3
4 PROCEDURE create_adjustment_invoice (
5 p_api_version IN NUMBER,
6 p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
7 x_return_status OUT NOCOPY VARCHAR2,
8 x_msg_count OUT NOCOPY NUMBER,
9 x_msg_data OUT NOCOPY VARCHAR2,
10 p_contract_number IN VARCHAR2,
11 p_asset_number IN VARCHAR2)
12 IS
13
14 l_api_version NUMBER ;
15 l_init_msg_list VARCHAR2(1) ;
16 l_return_status VARCHAR2(1);
17 l_msg_count NUMBER ;
18 l_msg_data VARCHAR2(2000);
19
20 BEGIN
21
22 OKL_PROP_TAX_ADJ_PVT.create_adjustment_invoice(
23 p_api_version => p_api_version,
24 p_init_msg_list => p_init_msg_list,
25 x_return_status => x_return_status,
26 x_msg_count => x_msg_count,
27 x_msg_data => x_msg_data,
28 p_contract_number => p_contract_number,
29 p_asset_number => p_asset_number);
30
31 END create_adjustment_invoice;
32
33 PROCEDURE create_adjust_invoice_conc
34 (errbuf OUT NOCOPY VARCHAR2
35 ,retcode OUT NOCOPY NUMBER
36 ,p_contract_number IN VARCHAR2
37 ,p_asset_number IN VARCHAR2)
38 IS
39
40 l_api_vesrions NUMBER := 1;
41 lx_msg_count NUMBER;
42 lx_msg_data VARCHAR2(450);
43 i NUMBER:=0;
44 l_msg_index_out NUMBER:=0;
45 lx_return_status VARCHAR2(1);
46
47 BEGIN
48
49 create_adjustment_invoice(
50 p_api_version => l_api_vesrions,
51 p_init_msg_list => OKC_API.G_FALSE,
52 x_return_status => lx_return_status,
53 x_msg_count => lx_msg_count,
54 x_msg_data => errbuf,
55 p_contract_number => p_contract_number,
56 p_asset_number => p_asset_number);
57
58 FND_FILE.PUT_LINE (FND_FILE.LOG, 'Property Tax Reconciliation');
59 FND_FILE.PUT_LINE (FND_FILE.LOG, '***********************************************');
60 FND_FILE.PUT_LINE (FND_FILE.LOG, 'Program Run Date:'||SYSDATE);
61 FND_FILE.PUT_LINE (FND_FILE.LOG, '***********************************************');
62 FND_FILE.PUT_LINE (FND_FILE.LOG, 'Detailed Error Messages For Each Record:');
63
64 BEGIN
65 IF lx_msg_count > 0 THEN
66 FOR i IN 1..lx_msg_count LOOP
67 fnd_msg_pub.get (p_msg_index => i,
68 p_encoded => 'F',
69 p_data => lx_msg_data,
70 p_msg_index_out => l_msg_index_out);
71 FND_FILE.PUT_LINE (FND_FILE.LOG,TO_CHAR(i) || ': ' || lx_msg_data);
72 END LOOP;
73 END IF;
74 EXCEPTION
75 WHEN OTHERS THEN
76 FND_FILE.PUT_LINE (FND_FILE.LOG,'Error '||TO_CHAR(SQLCODE)||': '||SQLERRM);
77 END;
78
79 END create_adjust_invoice_conc;
80
81 END OKL_PROP_TAX_ADJ_PUB;