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;