[Home] [Help]
PACKAGE BODY: APPS.BOMPAVBM
Source
1 package body BOMPAVBM as
2 /* $Header: BOMAVBMB.pls 115.2 99/07/16 05:09:35 porting ship $ */
3 -- ==========================================================================
4 -- Copyright (c) 1993 Oracle Corporation Belmont, California, USA
5 -- All rights reserved.
6 -- ==========================================================================
7 --
8 -- File Name : BOMAVBMB.pls
9 -- DESCRIPTION : This is the main package used to assign and verify bill
10 -- data
11 -- Parameters: org_id organization_id
12 -- all_org process all orgs or just current org
13 -- 1 - all orgs
14 -- 2 - only org_id
15 -- prog_appid program application_id
16 -- prog_id program id
17 -- request_id request_id
18 -- user_id user id
19 -- login_id login id
20 -- Return: 1 if success
21 -- SQLCODE if failure
22 -- History:
23 -- 04/08/94 Julie Maeyama creation date
24 --
25 -- =========================================================================
26
27 G_maxlen constant number := 60; -- maximum size of sql error
28
29 FUNCTION bmasbill_assign_bill_data (
30 org_id NUMBER,
31 all_org NUMBER := 1,
32 prog_appid NUMBER := -1,
33 prog_id NUMBER := -1,
34 request_id NUMBER := -1,
35 user_id NUMBER := -1,
36 login_id NUMBER := -1,
37 err_text OUT VARCHAR2
38 )
39 return INTEGER
40 IS
41 err_msg VARCHAR2(2000);
42 ret_code NUMBER := 1;
43
44 begin
45
46 ret_code := BOMPASGB.bmablorg_assign_bill_orgid(
47 err_text => err_msg);
48 if (ret_code <> 0) then
49 err_msg := ret_code || ' bmablorg_assign_bill_orgid ' || substrb(err_msg,1,100);
50 rollback;
51 goto error_label;
52 end if;
53 commit;
54
55 ret_code := BOMPASGB.bmasrev_assign_revision(
56 org_id => org_id,
57 all_org => all_org,
58 user_id => user_id,
59 login_id => login_id,
60 prog_appid => prog_appid,
61 prog_id => prog_id,
62 req_id => request_id,
63 err_text => err_msg);
64 if (ret_code <> 0) then
65 err_msg := ' bmasrev_assign_revision ' || substr(err_msg,1,100);
66 rollback;
67 goto error_label;
68 end if;
69 commit;
70
71 ret_code := BOMPASGB.bmasbilh_assign_bill_header(
72 org_id => org_id,
73 all_org => all_org,
74 user_id => user_id,
75 login_id => login_id,
76 prog_appid => prog_appid,
77 prog_id => prog_id,
78 req_id => request_id,
79 err_text => err_msg);
80 if (ret_code <> 0) then
81 err_msg := ' bmasbilh_assign_bill_header ' || substr(err_msg,1,100);
82 rollback;
83 goto error_label;
84 end if;
85 commit;
86
87 ret_code := BOMPASGB.bmascomp_assign_comp(
88 org_id => org_id,
89 all_org => all_org,
90 user_id => user_id,
91 login_id => login_id,
92 prog_appid => prog_appid,
93 prog_id => prog_id,
94 req_id => request_id,
95 err_text => err_msg);
96 if (ret_code <> 0) then
97 err_msg := ' bmascomp_assign_comp ' || substr(err_msg,1,100);
98 rollback;
99 goto error_label;
100 end if;
101 commit;
102
103 ret_code := BOMPASGB.bmasrefd_assign_ref_desg_data(
104 org_id => org_id,
105 all_org => all_org,
106 user_id => user_id,
107 login_id => login_id,
108 prog_appid => prog_appid,
109 prog_id => prog_id,
110 req_id => request_id,
111 err_text => err_msg);
112 if (ret_code <> 0) then
113 err_msg := ' bmasrefd_assign_ref_desg_data ' || substr(err_msg,1,100);
114 rollback;
115 goto error_label;
116 end if;
117 commit;
118
119 ret_code := BOMPASGB.bmassubd_assign_sub_comp_data(
120 org_id => org_id,
121 all_org => all_org,
122 user_id => user_id,
123 login_id => login_id,
124 prog_appid => prog_appid,
125 prog_id => prog_id,
126 req_id => request_id,
127 err_text => err_msg);
128 if (ret_code <> 0) then
129 err_msg := ' bmassubd_assign_sub_comp_data ' || substr(err_msg,1,100);
130 rollback;
131 goto error_label;
132 end if;
133 commit;
134
135 return(0);
136
137 <<error_label>>
138 err_text := 'BOMPAVBM.bmasbill_assign_bill_data' || substr(err_msg,1,200);
139 return(ret_code);
140
141 exception
142 when others then
143 err_text := 'BOMPAVBM.bmasbill_assign_bill_data' ||
144 substrb(SQLERRM, 1, G_maxlen);
145 return(ret_code);
146 end bmasbill_assign_bill_data;
147
148
149 FUNCTION bmvrbill_verify_bill_data (
150 org_id NUMBER,
151 all_org NUMBER := 1,
152 prog_appid NUMBER := -1,
153 prog_id NUMBER := -1,
154 request_id NUMBER := -1,
155 user_id NUMBER := -1,
156 login_id NUMBER := -1,
157 err_text OUT VARCHAR2
158 )
159 return INTEGER
160 IS
161 err_msg VARCHAR2(2000);
162 ret_code NUMBER := 1;
163
164 begin
165
166 ret_code := BOMPVALB.bmvbomh_validate_bom_header(
167 org_id => org_id,
168 all_org => all_org,
169 user_id => user_id,
170 login_id => login_id,
171 prog_appid => prog_appid,
172 prog_id => prog_id,
173 request_id => request_id,
174 err_text => err_msg);
175 if (ret_code <> 0) then
176 err_msg := ' bmvbomh_validate_bom_header ' || substr(err_msg,1,100);
177 rollback;
178 goto error_label;
179 end if;
180 commit;
181
182 ret_code := BOMPVALB.bmvcomp_validate_components(
183 org_id => org_id,
184 all_org => all_org,
185 user_id => user_id,
186 login_id => login_id,
187 prog_appid => prog_appid,
188 prog_id => prog_id,
189 request_id => request_id,
190 err_text => err_msg);
191 if (ret_code <> 0) then
192 err_msg := ' bmvcomp_validate_components ' || substr(err_msg,1,100);
193 rollback;
194 goto error_label;
195 end if;
196 commit;
197
198 ret_code := BOMPVALB.bmvref_validate_ref_desgs(
199 org_id => org_id,
200 all_org => all_org,
201 user_id => user_id,
202 login_id => login_id,
203 prog_appid => prog_appid,
204 prog_id => prog_id,
205 request_id => request_id,
206 err_text => err_msg);
207 if (ret_code <> 0) then
208 err_msg := ' bmvref_validate_ref_desgs ' || substr(err_msg,1,100);
209 rollback;
210 goto error_label;
211 end if;
212 commit;
213
214 ret_code := BOMPVALB.bmvsubs_validate_sub_comps(
215 org_id => org_id,
216 all_org => all_org,
217 user_id => user_id,
218 login_id => login_id,
219 prog_appid => prog_appid,
220 prog_id => prog_id,
221 request_id => request_id,
222 err_text => err_msg);
223 if (ret_code <> 0) then
224 err_msg := ' bmvsubs_validate_sub_comps ' || substr(err_msg,1,100);
225 rollback;
226 goto error_label;
227 end if;
228 commit;
229
230 ret_code := BOMPVALB.bmvitmrev_validate_itm_rev(
231 org_id => org_id,
232 all_org => all_org,
233 user_id => user_id,
234 login_id => login_id,
235 prog_appid => prog_appid,
236 prog_id => prog_id,
237 req_id => request_id,
238 err_text => err_msg);
239 if (ret_code <> 0) then
240 err_msg := ' bmvitmrev_validate_itm_rev ' || substr(err_msg,1,100);
241 rollback;
242 goto error_label;
243 end if;
244 commit;
245
246 return(0);
247
248 <<error_label>>
249 err_text := 'BOMPAVBM.bmvrbill_verify_bill_data ' || substr(err_msg,1,200);
250 return(ret_code);
251
252 exception
253 when others then
254 err_text := 'BOMPAVBM.bmvrbill_verify_bill_data ' ||
255 substrb(SQLERRM, 1, G_maxlen);
256 return(ret_code);
257 end bmvrbill_verify_bill_data;
258
259 END BOMPAVBM;