[Home] [Help]
PACKAGE BODY: APPS.OKL_ACC_CALL_PUB
Source
1 Package BODY Okl_Acc_Call_Pub AS
2 /* $Header: OKLPACCB.pls 120.3 2007/07/04 09:35:41 vpanwar ship $ */
3
4 PROCEDURE create_acc_trans(
5 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_bpd_acc_rec IN bpd_acc_rec_type)
11 IS
12
13 l_api_version NUMBER ;
14 l_init_msg_list VARCHAR2(1) ;
15 l_return_status VARCHAR2(1);
16 l_msg_count NUMBER ;
17 l_msg_data VARCHAR2(2000);
18
19 BEGIN
20 -- Set API savepoint
21 SAVEPOINT create_acc_trans;
22
23 Okl_Acc_Call_Pvt.CREATE_ACC_TRANS(
24 p_api_version
25 ,p_init_msg_list
26 ,x_return_status
27 ,x_msg_count
28 ,x_msg_data
29 ,p_bpd_acc_rec
30 );
31
32 IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
33 RAISE Fnd_Api.G_EXC_ERROR;
34 ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
35 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
36 END IF;
37
38 EXCEPTION
39 WHEN OTHERS THEN
40 ROLLBACK TO create_acc_trans;
41 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
42 x_msg_count := l_msg_count ;
43 x_msg_data := l_msg_data ;
44 Fnd_Msg_Pub.ADD_EXC_MSG('Okl_Acc_Call_Pub','create_acc_trans');
45 Fnd_Msg_Pub.count_and_get(
46 p_count => x_msg_count
47 ,p_data => x_msg_data);
48 END create_acc_trans;
49
50
51 PROCEDURE create_acc_trans(
52 p_api_version IN NUMBER
53 ,p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE
54 ,x_return_status OUT NOCOPY VARCHAR2
55 ,x_msg_count OUT NOCOPY NUMBER
56 ,x_msg_data OUT NOCOPY VARCHAR2
57 ,p_bpd_acc_tbl IN bpd_acc_tbl_type)
58 IS
59
60 l_api_version NUMBER ;
61 l_init_msg_list VARCHAR2(1) ;
62 l_return_status VARCHAR2(1);
63 l_msg_count NUMBER ;
64 l_msg_data VARCHAR2(2000);
65
66 BEGIN
67 -- Set API savepoint
68 SAVEPOINT create_acc_trans;
69
70 Okl_Acc_Call_Pvt.CREATE_ACC_TRANS(
71 p_api_version
72 ,p_init_msg_list
73 ,x_return_status
74 ,x_msg_count
75 ,x_msg_data
76 ,p_bpd_acc_tbl
77 );
78
79 IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
80 RAISE Fnd_Api.G_EXC_ERROR;
81 ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
82 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
83 END IF;
84
85 EXCEPTION
86 WHEN OTHERS THEN
87 ROLLBACK TO create_acc_trans;
88 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
89 x_msg_count := l_msg_count ;
90 x_msg_data := l_msg_data ;
91 Fnd_Msg_Pub.ADD_EXC_MSG('Okl_Acc_Call_Pub','create_acc_trans');
92 Fnd_Msg_Pub.count_and_get(
93 p_count => x_msg_count
94 ,p_data => x_msg_data);
95 END create_acc_trans;
96
97
98
99 PROCEDURE create_acc_trans_new(
100 p_api_version IN NUMBER
101 ,p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE
102 ,x_return_status OUT NOCOPY VARCHAR2
103 ,x_msg_count OUT NOCOPY NUMBER
104 ,x_msg_data OUT NOCOPY VARCHAR2
105 ,p_bpd_acc_rec IN bpd_acc_rec_type
106 ,x_tmpl_identify_rec OUT NOCOPY Okl_Account_Dist_Pub.TMPL_IDENTIFY_REC_TYPE
107 ,x_dist_info_rec OUT NOCOPY Okl_Account_Dist_Pub.DIST_INFO_REC_TYPE
108 ,x_ctxt_val_tbl OUT NOCOPY Okl_Account_Dist_Pub.CTXT_VAL_TBL_TYPE
109 ,x_acc_gen_primary_key_tbl OUT NOCOPY Okl_Account_Dist_Pub.ACC_GEN_PRIMARY_KEY)
110 IS
111
112 l_api_version NUMBER ;
113 l_init_msg_list VARCHAR2(1) ;
114 l_return_status VARCHAR2(1);
115 l_msg_count NUMBER ;
116 l_msg_data VARCHAR2(2000);
117
118 BEGIN
119 -- Set API savepoint
120 SAVEPOINT create_acc_trans_new;
121
122 Okl_Acc_Call_Pvt.create_acc_trans_new(
123 p_api_version
124 ,p_init_msg_list
125 ,x_return_status
126 ,x_msg_count
127 ,x_msg_data
128 ,p_bpd_acc_rec
129 ,x_tmpl_identify_rec
130 ,x_dist_info_rec
131 ,x_ctxt_val_tbl
132 ,x_acc_gen_primary_key_tbl
133 );
134
135 IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
136 RAISE Fnd_Api.G_EXC_ERROR;
137 ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
138 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
139 END IF;
140
141 EXCEPTION
142 WHEN OTHERS THEN
143 ROLLBACK TO create_acc_trans_new;
144 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
145 x_msg_count := l_msg_count ;
146 x_msg_data := l_msg_data ;
147 Fnd_Msg_Pub.ADD_EXC_MSG('Okl_Acc_Call_Pub','create_acc_trans_new');
148 Fnd_Msg_Pub.count_and_get(
149 p_count => x_msg_count
150 ,p_data => x_msg_data);
151 END create_acc_trans_new;
152
153
154 END Okl_Acc_Call_Pub;