[Home] [Help]
PACKAGE BODY: APPS.OKL_INS_CLAIM_ASSET_PUB
Source
1 PACKAGE BODY OKL_INS_CLAIM_ASSET_PUB AS
2 /* $Header: OKLPCLAB.pls 115.7 2004/04/13 10:37:49 rnaik noship $ */
3
4 PROCEDURE create_lease_claim(
5 p_api_version IN NUMBER,
6 p_init_msg_list IN VARCHAR2 ,
7 x_return_status OUT NOCOPY VARCHAR2,
8 x_msg_count OUT NOCOPY NUMBER,
9 x_msg_data OUT NOCOPY VARCHAR2,
10 px_clmv_tbl IN OUT NOCOPY clmv_tbl_type,
11 px_acdv_tbl IN OUT NOCOPY acdv_tbl_type,
12 px_acnv_tbl IN OUT NOCOPY acnv_tbl_type
13 ) IS
14 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
15 l_msg_count NUMBER;
16 l_msg_data VARCHAR2(2000);
17 l_api_version NUMBER ;
18 l_init_msg_list VARCHAR2(1) ;
19 l_clmv_tbl CLMV_TBL_TYPE;
20 l_acdv_tbl acdv_tbl_type;
21 l_acnv_tbl acnv_tbl_type;
22 BEGIN
23
24 l_return_status := x_return_status;
25 l_msg_count := x_msg_count;
26 l_msg_data := x_msg_data;
27 l_api_version := p_api_version ;
28 l_init_msg_list := p_init_msg_list ;
29 l_clmv_tbl := px_clmv_tbl;
30 l_acdv_tbl := px_acdv_tbl;
31 l_acnv_tbl := px_acnv_tbl;
32
33 --SAVEPOINT create_fulfillment;
34 ------------ Call to Private Process API--------------
35 OKL_INS_CLAIM_ASSET_pvt.create_lease_claim(
36 p_api_version => l_api_version,
37 p_init_msg_list => l_init_msg_list,
38 x_return_status => l_return_status,
39 x_msg_count => l_msg_count,
40 x_msg_data => l_msg_data,
41 px_clmv_tbl => l_clmv_tbl,
42 px_acdv_tbl => l_acdv_tbl,
43 px_acnv_tbl => l_acnv_tbl
44 );
45 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
46 x_return_status := l_return_status;
47 --return(l_return_status);
48 RAISE OKL_API.G_EXCEPTION_ERROR;
49 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
50 x_return_status := l_return_status;
51 --return(l_return_status);
52 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
53 END IF;
54 ------------ End Call to Private Process API--------------
55
56 px_clmv_tbl := l_clmv_tbl;
57 px_acdv_tbl := l_acdv_tbl;
58 px_acnv_tbl := l_acnv_tbl;
59 x_return_status := l_return_status;
60
61 --return(l_return_status);
62 EXCEPTION
63 WHEN OKL_API.G_EXCEPTION_ERROR THEN
64 --ROLLBACK TO create_fulfillment;
65 l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
66 FND_MSG_PUB.count_and_get(p_count => l_msg_count,
67 p_data => l_msg_data);
68 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
69 --ROLLBACK TO create_fulfillment;
70 l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
71 FND_MSG_PUB.count_and_get(p_count => l_msg_count,
72 p_data => l_msg_data);
73 WHEN OTHERS THEN
74 --ROLLBACK TO create_fulfillment;
75 l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
76 FND_MSG_PUB.ADD_EXC_MSG('OKL_INS_CLAIM_ASSET_PUB','create_lease_claim');
77 FND_MSG_PUB.count_and_get(p_count => l_msg_count,
78 p_data => l_msg_data);
79 x_return_status:=l_return_status;
80 END create_lease_claim;
81
82 PROCEDURE hold_streams(
83 p_api_version IN NUMBER,
84 p_init_msg_list IN VARCHAR2 ,
85 x_return_status OUT NOCOPY VARCHAR2,
86 x_msg_count OUT NOCOPY NUMBER,
87 x_msg_data OUT NOCOPY VARCHAR2,
88 p_lsm_id IN stmid_rec_type_tbl_type
89 )IS
90 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
91 l_msg_count NUMBER;
92 l_msg_data VARCHAR2(2000);
93 l_api_version NUMBER ;
94 l_init_msg_list VARCHAR2(1) ;
95 l_lsm_id stmid_rec_type_tbl_type;
96 BEGIN
97 -- Fix for Bug 2511187 LockOut Fees
98 l_lsm_id :=p_lsm_id ;
99 l_return_status := X_return_status ;
100 l_msg_count := X_msg_count;
101 l_api_version := P_api_version ;
102 l_init_msg_list := p_init_msg_list ;
103
104 --SAVEPOINT create_fulfillment;
105 ------------ Call to Private Process API--------------
106 OKL_INS_CLAIM_ASSET_pvt.hold_streams(
107 p_api_version => l_api_version,
108 p_init_msg_list => l_init_msg_list,
109 x_return_status => l_return_status,
110 x_msg_count => l_msg_count,
111 x_msg_data => l_msg_data,
112 p_lsm_id => l_lsm_id
113 );
114 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
115 x_return_status := l_return_status;
116 --return(l_return_status);
117 RAISE OKL_API.G_EXCEPTION_ERROR;
118 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
119 x_return_status := l_return_status;
120 --return(l_return_status);
121 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
122 END IF;
123 ------------ End Call to Private Process API--------------
124 x_return_status := l_return_status;
125 --return(l_return_status);
126 EXCEPTION
127 WHEN OKL_API.G_EXCEPTION_ERROR THEN
128 --ROLLBACK TO create_fulfillment;
129 l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
130 FND_MSG_PUB.count_and_get(p_count => l_msg_count,
131 p_data => l_msg_data);
132 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
133 --ROLLBACK TO create_fulfillment;
134 l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
135 FND_MSG_PUB.count_and_get(p_count => l_msg_count,
136 p_data => l_msg_data);
137 WHEN OTHERS THEN
138 --ROLLBACK TO create_fulfillment;
139 l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
140 FND_MSG_PUB.ADD_EXC_MSG('OKL_INS_CLAIM_ASSET_PUB','hold_streams');
141 FND_MSG_PUB.count_and_get(p_count => l_msg_count,
142 p_data => l_msg_data);
143 x_return_status := l_return_status;
144
145 END hold_streams;
146
147 END OKL_INS_CLAIM_ASSET_PUB;