[Home] [Help]
PACKAGE BODY: APPS.BOMPAVRT
Source
1 package body BOMPAVRT as
2 /* $Header: BOMAVRTB.pls 115.2 99/07/16 05:09:43 porting ship $ */
3 /*==========================================================================+
4 | Copyright (c) 1993 Oracle Corporation Belmont, California, USA |
5 | All rights reserved. |
6 +===========================================================================+
7 | |
8 | File Name : BOMAVRTB.pls |
9 | DESCRIPTION : This is the main package used to assign and verify |
10 | routing 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/27/94 Russ Chaney creation date |
24 | |
25 +==========================================================================*/
26 FUNCTION bmasrtg_assign_rtg_data (
27 org_id NUMBER,
28 all_org NUMBER,
29 prog_appid NUMBER,
30 prog_id NUMBER,
31 request_id NUMBER,
32 user_id NUMBER,
33 login_id NUMBER,
34 err_text OUT VARCHAR2
35 )
36 return INTEGER
37 IS
38 err_msg VARCHAR2(2000);
39 ret_code NUMBER := 1;
40
41 begin
42
43 ret_code := BOMPASGR.bmartorg_assign_rtg_orgid(
44 err_text => err_msg);
45 if (ret_code <> 0) then
46 err_msg := ret_code || ' bmartorg_assign_rtg_orgid ' || substrb( err_msg,1,100);
47 rollback;
48 goto error_label;
49 end if;
50 commit;
51
52 ret_code := BOMPASGR.bmasrrev_assign_rtg_revision(
53 org_id => org_id,
54 all_org => all_org,
55 user_id => user_id,
56 login_id => login_id,
57 prog_appid => prog_appid,
58 prog_id => prog_id,
59 req_id => request_id,
60 err_text => err_msg);
61 if (ret_code <> 0) then
62 err_msg := ret_code||' bmasrrev_assign_rtg_revision '|| substrb(err_msg,1,100);
63 rollback;
64 goto error_label;
65 end if;
66 commit;
67
68 ret_code := BOMPASGR.bmprtgh_assign_rtg_header(
69 org_id => org_id,
70 all_org => all_org,
71 user_id => user_id,
72 login_id => login_id,
73 prog_appid => prog_appid,
74 prog_id => prog_id,
75 req_id => request_id,
76 err_text => err_msg);
77 if (ret_code <> 0) then
78 err_msg := ret_code||' bmprtgh_assign_rtg_header '|| substrb(err_msg,1,100);
79 rollback;
80 goto error_label;
81 end if;
82 commit;
83
84 ret_code := BOMPASGR.bmasopd_assign_operation_data(
85 org_id => org_id,
86 all_org => all_org,
87 user_id => user_id,
88 login_id => login_id,
89 prog_appid => prog_appid,
90 prog_id => prog_id,
91 req_id => request_id,
92 err_text => err_msg);
93 if (ret_code <> 0) then
94 err_msg := ret_code||' bmasopd_assign_operation_data '|| substrb(err_msg,1,100);
95 rollback;
96 goto error_label;
97 end if;
98 commit;
99
100 ret_code := BOMPASGR.bmasrsd_assign_resource_data(
101 org_id => org_id,
102 all_org => all_org,
103 user_id => user_id,
104 login_id => login_id,
105 prog_appid => prog_appid,
106 prog_id => prog_id,
107 req_id => request_id,
108 err_text => err_msg);
109 if (ret_code <> 0) then
110 err_msg := ret_code||' bmasrsd_assign_resource_data '|| substrb(err_msg,1,100);
111 rollback;
112 goto error_label;
113 end if;
114 commit;
115
116 return(0);
117
118 <<error_label>>
119 err_text := substrb('BOMPAVRT.bmasrtg_assign_rtg_data' || err_msg,1,200);
120 return(ret_code);
121
122 exception
123 when others then
124 err_text := substrb('BOMPAVRT.bmasrtg_assign_rtg_data' || SQLERRM,1,60);
125 return(ret_code);
126 end bmasrtg_assign_rtg_data;
127
128
129 FUNCTION bmvrrtg_verify_rtg_data (
130 org_id NUMBER,
131 all_org NUMBER,
132 prog_appid NUMBER,
133 prog_id NUMBER,
134 request_id NUMBER,
135 user_id NUMBER,
136 login_id NUMBER,
137 err_text OUT VARCHAR2
138 )
139 return INTEGER
140 IS
141 err_msg VARCHAR2(2000);
142 ret_code NUMBER := 1;
143
144 begin
145 ret_code := BOMPVALR.bmvrtgh_validate_rtg_header(
146 org_id => org_id,
147 all_org => all_org,
148 user_id => user_id,
149 login_id => login_id,
150 prog_appid => prog_appid,
151 prog_id => prog_id,
152 request_id => request_id,
153 err_text => err_msg);
154 if (ret_code <> 0) then
155 err_msg := ret_code||' bmvrtgh_validate_rtg_header ' || substrb(err_msg,1,100);
156 rollback;
157 goto error_label;
158 end if;
159 commit;
160
161 ret_code := BOMPVALR.bmvopr_validate_operations(
162 org_id => org_id,
163 all_org => all_org,
164 user_id => user_id,
165 login_id => login_id,
166 prog_appid => prog_appid,
167 prog_id => prog_id,
168 request_id => request_id,
169 err_text => err_msg);
170 if (ret_code <> 0) then
171 err_msg := ret_code||' bmvopr_validate_operations ' || substrb( err_msg,1,100);
172 rollback;
173 goto error_label;
174 end if;
175 commit;
176
177 ret_code := BOMPVALR.bmvres_validate_resources(
178 org_id => org_id,
179 all_org => all_org,
180 user_id => user_id,
181 login_id => login_id,
182 prog_appid => prog_appid,
183 prog_id => prog_id,
184 request_id => request_id,
185 err_text => err_msg);
186 if (ret_code <> 0) then
187 err_msg := ret_code||' bmvres_validate_resources ' || substrb( err_msg,1,100);
188 rollback;
189 goto error_label;
190 end if;
191 commit;
192
193 ret_code := BOMPVALR.bmvrtgrev_validate_rtg_rev(
194 org_id => org_id,
195 all_org => all_org,
196 user_id => user_id,
197 login_id => login_id,
198 prog_appid => prog_appid,
199 prog_id => prog_id,
200 req_id => request_id,
201 err_text => err_msg);
202 if (ret_code <> 0) then
203 err_msg := ret_code||' bmvrtgrev_validate_rtg_rev ' || substrb( err_msg,1,100);
204 rollback;
205 goto error_label;
206 end if;
207 commit;
208
209 return(0);
210
211 <<error_label>>
212 err_text := substrb('BOMPAVRT.bmvrrtg_verify_rtg_data ' || err_msg,1,200);
213 return(ret_code);
214
215 exception
216 when others then
217 err_text := substrb('BOMPAVRT.bmvrrtg_verify_rtg_data ' || SQLERRM,1,60);
218 return(ret_code);
219 end bmvrrtg_verify_rtg_data;
220
221 END BOMPAVRT;