[Home] [Help]
PACKAGE BODY: APPS.OKL_LCKBX_CSH_APP_PUB
Source
1 PACKAGE BODY okl_lckbx_csh_app_pub AS
2 /* $Header: OKLPLBXB.pls 115.3 2002/12/18 12:23:26 kjinger noship $ */
3
4 --Object type procedure for insert
5 PROCEDURE handle_auto_pay ( p_api_version IN NUMBER
6 ,p_init_msg_list IN VARCHAR2 DEFAULT Okc_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_trans_req_id IN AR_PAYMENTS_INTERFACE.TRANSMISSION_REQUEST_ID%TYPE
11 ) IS
12
13 l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
14 l_api_version NUMBER := 1;
15 l_init_msg_list VARCHAR2(1);
16 l_msg_count NUMBER;
17 l_msg_data VARCHAR(2000);
18
19 lp_trans_req_id AR_PAYMENTS_INTERFACE.TRANSMISSION_REQUEST_ID%TYPE;
20 lx_trans_req_id AR_PAYMENTS_INTERFACE.TRANSMISSION_REQUEST_ID%TYPE;
21
22 BEGIN
23
24 SAVEPOINT save_Insert_row;
25
26 l_api_version := p_api_version;
27 l_init_msg_list := p_init_msg_list;
28 lp_trans_req_id := p_trans_req_id;
29
30 -- customer pre-processing
31
32
33
34 OKL_LCKBX_CSH_APP_PVT.handle_auto_pay ( p_api_version
35 ,p_init_msg_list
36 ,x_return_status
37 ,x_msg_count
38 ,x_msg_data
39 ,lp_trans_req_id
40 );
41
42
43 IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
44 RAISE G_EXCEPTION_HALT_VALIDATION;
45 ELSE
46 IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
47 l_return_status := x_return_status;
48 END IF;
49 END IF;
50
51 --Assign value to OUT variables
52
53 x_return_status := l_return_status ;
54 x_msg_count := l_msg_count ;
55 x_msg_data := l_msg_data ;
56
57 EXCEPTION
58
59 WHEN Fnd_Api.G_EXC_ERROR THEN
60 ROLLBACK TO save_Insert_row;
61 x_return_status := Fnd_Api.G_RET_STS_ERROR;
62 x_msg_count := l_msg_count ;
63 x_msg_data := l_msg_data ;
64 Fnd_Msg_Pub.count_and_get(
65 p_count => x_msg_count
66 ,p_data => x_msg_data);
67 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
68 ROLLBACK TO save_Insert_row;
69 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
70 x_msg_count := l_msg_count ;
71 x_msg_data := l_msg_data ;
72 Fnd_Msg_Pub.count_and_get(
73 p_count => x_msg_count
74 ,p_data => x_msg_data);
75 WHEN OTHERS THEN
76 ROLLBACK TO save_Insert_row;
77 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
78 x_msg_count := l_msg_count ;
79 x_msg_data := l_msg_data ;
80 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_LCKBX_CSH_APP_PUB','insert_row');
81 Fnd_Msg_Pub.count_and_get(
82 p_count => x_msg_count
83 ,p_data => x_msg_data);
84
85 END ;
86
87 END OKL_LCKBX_CSH_APP_PUB;