[Home] [Help]
PACKAGE BODY: APPS.OKL_CONS_BILL_PUB
Source
1 PACKAGE BODY OKL_CONS_BILL_PUB AS
2 /* $Header: OKLPKONB.pls 120.5 2005/09/06 16:51:01 stmathew noship $ */
3
4 PROCEDURE create_cons_bill (
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_inv_msg IN VARCHAR2,
11 p_assigned_process IN VARCHAR2
12 )
13 IS
14
15 l_api_version NUMBER ;
16 l_init_msg_list VARCHAR2(1) ;
17 l_return_status VARCHAR2(1);
18 l_msg_count NUMBER ;
19 l_msg_data VARCHAR2(2000);
20
21 BEGIN
22
23 Okl_Cons_Bill.CREATE_CONS_BILL(
24 p_api_version => p_api_version,
25 p_init_msg_list => p_init_msg_list,
26 p_commit => FND_API.G_TRUE,
27 x_return_status => x_return_status,
28 x_msg_count => x_msg_count,
29 x_msg_data => x_msg_data,
30 p_inv_msg => p_inv_msg,
31 p_assigned_process => p_assigned_process);
32
33 EXCEPTION
34 WHEN OTHERS THEN
35 -- -------------------------------------------
36 -- Purge data from the Parallel process Table
37 -- -------------------------------------------
38 IF p_assigned_process IS NOT NULL THEN
39 DELETE OKL_PARALLEL_PROCESSES
40 WHERE assigned_process = p_assigned_process;
41 COMMIT;
42 END IF;
43
44 END create_cons_bill;
45
46 PROCEDURE create_cons_bill
47 ( errbuf OUT NOCOPY VARCHAR2
48 , retcode OUT NOCOPY NUMBER
49 , p_inv_msg IN VARCHAR2
50 , p_assigned_process IN VARCHAR2
51 ) IS
52
53 l_api_vesrions NUMBER := 1;
54 lx_msg_count NUMBER;
55 l_count1 NUMBER;
56 l_count2 NUMBER;
57 l_count NUMBER;
58 lx_msg_data VARCHAR2(450);
59 i NUMBER:=0;
60 l_msg_index_out NUMBER:=0;
61 lx_return_status VARCHAR2(1);
62
63 BEGIN
64
65
66 create_cons_bill( p_api_version => l_api_vesrions,
67 p_init_msg_list => OKC_API.G_FALSE,
68 x_return_status => lx_return_status,
69 x_msg_count => lx_msg_count,
70 x_msg_data => errbuf,
71 p_inv_msg => p_inv_msg,
72 p_assigned_process => p_assigned_process
73 );
74 EXCEPTION
75 WHEN OTHERS THEN
76 -- -------------------------------------------
77 -- Purge data from the Parallel process Table
78 -- -------------------------------------------
79 IF p_assigned_process IS NOT NULL THEN
80 DELETE OKL_PARALLEL_PROCESSES
81 WHERE assigned_process = p_assigned_process;
82 COMMIT;
83 END IF;
84
85 END;
86
87 END Okl_Cons_Bill_Pub;