[Home] [Help]
PACKAGE BODY: APPS.OKL_ACCOUNTING_PROCESS_PUB
Source
1 PACKAGE BODY OKL_ACCOUNTING_PROCESS_PUB AS
2 /* $Header: OKLPAECB.pls 115.8 2003/01/28 12:50:46 rabhupat noship $ */
3 -- Start of wraper code generated automatically by Debug code generator
4 L_MODULE VARCHAR2(40) := 'LEASE.ACCOUNTING.PROCESS';
5 L_DEBUG_ENABLED CONSTANT VARCHAR2(10) := OKL_DEBUG_PUB.CHECK_LOG_ENABLED;
6 L_LEVEL_PROCEDURE NUMBER;
7 IS_DEBUG_PROCEDURE_ON BOOLEAN;
8 -- End of wraper code generated automatically by Debug code generator
9
10
11 PROCEDURE DO_ACCOUNTING_CON(p_api_version IN NUMBER,
12 p_init_msg_list IN VARCHAR2,
13 p_start_date IN DATE,
14 p_end_date IN DATE,
15 x_return_status OUT NOCOPY VARCHAR2,
16 x_msg_count OUT NOCOPY NUMBER,
17 x_msg_data OUT NOCOPY VARCHAR2,
18 x_request_id OUT NOCOPY NUMBER)
19
20 IS
21
22
23 l_api_version CONSTANT NUMBER := 1.0;
24 l_api_name CONSTANT VARCHAR2(30) := 'DO_ACCOUNTING_CON';
25 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
26
27 l_start_date DATE := p_start_date;
28 l_end_date DATE := p_end_date;
29 l_request_id NUMBER;
30
31
32
33
34 BEGIN
35
36 SAVEPOINT DO_ACCOUNTING_CON;
37
38 x_return_status := FND_API.G_RET_STS_SUCCESS;
39
40 -- customer pre-processing
41
42
43
44
45 -- Run the MAIN Procedure
46
47
48 -- Start of wraper code generated automatically by Debug code generator for OKL_ACCOUNTING_PROCESS_PVT.DO_ACCOUNTING_CON
49 IF(L_DEBUG_ENABLED='Y') THEN
50 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
51 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
52 END IF;
53 IF(IS_DEBUG_PROCEDURE_ON) THEN
54 BEGIN
55 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPAECB.pls call OKL_ACCOUNTING_PROCESS_PVT.DO_ACCOUNTING_CON ');
56 END;
57 END IF;
58 OKL_ACCOUNTING_PROCESS_PVT.DO_ACCOUNTING_CON(p_api_version => l_api_version,
59 p_init_msg_list => p_init_msg_list,
60 p_start_date => l_start_date,
61 p_end_date => l_end_date,
62 x_return_status => x_return_status,
63 x_msg_count => x_msg_count,
64 x_msg_data => x_msg_data,
65 x_request_id => x_request_id);
66 IF(IS_DEBUG_PROCEDURE_ON) THEN
67 BEGIN
68 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPAECB.pls call OKL_ACCOUNTING_PROCESS_PVT.DO_ACCOUNTING_CON ');
69 END;
70 END IF;
71 -- End of wraper code generated automatically by Debug code generator for OKL_ACCOUNTING_PROCESS_PVT.DO_ACCOUNTING_CON
72
73
74 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
75
76 RAISE FND_API.G_EXC_ERROR;
77
78 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
79
80 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
81
82 END IF;
83
84 l_request_id := x_request_id;
85
86
87
88
89
90
91 EXCEPTION
92
93 WHEN FND_API.G_EXC_ERROR THEN
94 ROLLBACK TO DO_ACCOUNTING_CON;
95 x_return_status := FND_API.G_RET_STS_ERROR;
96
97 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
98 ,p_count => x_msg_count
99 ,p_data => x_msg_data);
100
101 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
102 ROLLBACK TO DO_ACCOUNTING_CON;
103 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
104 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
105 ,p_count => x_msg_count
106 ,p_data => x_msg_data);
107
108 WHEN OTHERS THEN
109
110 FND_MSG_PUB.ADD_EXC_MSG('OKL_ACCOUNTING_PROCESS_PUB','DO_ACCOUNTING_CON');
111 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
112 ,p_count => x_msg_count
113 ,p_data => x_msg_data);
114 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
115
116
117 END DO_ACCOUNTING_CON;
118
119 END OKL_ACCOUNTING_PROCESS_PUB;