DBA Data[Home] [Help]

APPS.BOMPASGR dependencies on BOMPASGR

Line 1: package body BOMPASGR as

1: package body BOMPASGR as
2: /* $Header: BOMASGRB.pls 115.7 2002/10/31 07:19:39 djebar ship $ */
3: /*==========================================================================+
4: | Copyright (c) 1993 Oracle Corporation Belmont, California, USA |
5: | All rights reserved. |

Line 128: err_text := 'BOMPASGR(bmartorg-'||stmt_num||') '|| substrb(SQLERRM,1,60);

124:
125: return(0);
126: exception
127: when others then
128: err_text := 'BOMPASGR(bmartorg-'||stmt_num||') '|| substrb(SQLERRM,1,60);
129: return(SQLCODE);
130: end bmartorg_assign_rtg_orgid;
131:
132: /*------------------------ bmasrrev_assign_rtg_revision -------------------*/

Line 275: err_text := 'BOMPASGR(' || stmt_num || ')' || substrb(SQLERRM,1,60);

271: IMPLEMENTATION_DATE = nvl(effectivity_date, sysdate)
272: where transaction_id = c1rec.TI;
273:
274: if (SQL%NOTFOUND) then
275: err_text := 'BOMPASGR(' || stmt_num || ')' || substrb(SQLERRM,1,60);
276: return(SQLCODE);
277: end if;
278:
279: <>

Line 294: err_text := 'BOMPASGR(bmasrrev-'|| stmt_num ||') ' || substrb(SQLERRM,1,60);

290:
291: return(0);
292: EXCEPTION
293: when others then
294: err_text := 'BOMPASGR(bmasrrev-'|| stmt_num ||') ' || substrb(SQLERRM,1,60);
295: return(SQLCODE);
296:
297: END bmasrrev_assign_rtg_revision;
298:

Line 651: err_text := 'BOMPASGR(bmprtgh-' || stmt_num || ')' || substrb(SQLERRM,1,60);

647: process_flag = 99
648: where transaction_id = c1rec.TI;
649:
650: if (SQL%NOTFOUND) then
651: err_text := 'BOMPASGR(bmprtgh-' || stmt_num || ')' || substrb(SQLERRM,1,60);
652: return(SQLCODE);
653: end if;
654:
655: /*

Line 778: err_text := 'BOMPASGR(bmprtgh-' || stmt_num || ') ' || substrb(SQLERRM,1,60);

774:
775: return(0);
776: EXCEPTION
777: when others then
778: err_text := 'BOMPASGR(bmprtgh-' || stmt_num || ') ' || substrb(SQLERRM,1,60);
779: return(SQLCODE);
780: END bmprtgh_assign_rtg_header;
781:
782: /*------------------------ bmasopd_assign_operation_data --------------------*/

Line 1269: err_text := substrb('BOMPASGR(bmasopd-' || stmt_num || ') ' || SQLERRM,1,240);

1265: attribute15 = nvl(attribute15, nvl(c1rec.A15, NULL))
1266: where transaction_id = c1rec.TI;
1267:
1268: if (SQL%NOTFOUND) then
1269: err_text := substrb('BOMPASGR(bmasopd-' || stmt_num || ') ' || SQLERRM,1,240);
1270: return(SQLCODE);
1271: end if;
1272: /*
1273: ** assign resources for standard operation

Line 1387: err_text := substrb('BOMPASGR(bmasopd-' || stmt_num || ') ' || SQLERRM,1,240);

1383:
1384: return(0);
1385: EXCEPTION
1386: when others then
1387: err_text := substrb('BOMPASGR(bmasopd-' || stmt_num || ') ' || SQLERRM,1,240);
1388: return(SQLCODE);
1389:
1390: END bmasopd_assign_operation_data;
1391:

Line 2087: err_text := substrb('BOMPASGR(bmasrsd-'||stmt_num||') '|| SQLERRM,1,240);

2083:
2084: return (0);
2085: EXCEPTION
2086: when others then
2087: err_text := substrb('BOMPASGR(bmasrsd-'||stmt_num||') '|| SQLERRM,1,240);
2088: return(SQLCODE);
2089: END bmasrsd_assign_resource_data;
2090:
2091:

Line 2206: err_text := 'BOMPASGR(bmgopsq) ' || substrb(SQLERRM,1,240);

2202: EXCEPTION
2203: when NO_DATA_FOUND then
2204: NULL;
2205: when others then
2206: err_text := 'BOMPASGR(bmgopsq) ' || substrb(SQLERRM,1,240);
2207: return(SQLCODE);
2208: END;
2209:
2210: select operation_sequence_id

Line 2223: err_text := 'BOMPASGR(bmgopsq): Operation does not exist';

2219: return(0);
2220:
2221: EXCEPTION
2222: when NO_DATA_FOUND then
2223: err_text := 'BOMPASGR(bmgopsq): Operation does not exist';
2224: return(9999);
2225: when others then
2226: op_seq_id := -1;
2227: err_text := 'BOMPASGR(bmgopsq) ' || substrb(SQLERRM,1,240);

Line 2227: err_text := 'BOMPASGR(bmgopsq) ' || substrb(SQLERRM,1,240);

2223: err_text := 'BOMPASGR(bmgopsq): Operation does not exist';
2224: return(9999);
2225: when others then
2226: op_seq_id := -1;
2227: err_text := 'BOMPASGR(bmgopsq) ' || substrb(SQLERRM,1,240);
2228: return(SQLCODE);
2229:
2230: END bmgopsq_get_op_sequence;
2231:

Line 2290: err_text := substrb('BOMPASGR(bmasopid-' || stmt_num || ') ' || SQLERRM,1,240);

2286: return(0);
2287:
2288: EXCEPTION
2289: when others then
2290: err_text := substrb('BOMPASGR(bmasopid-' || stmt_num || ') ' || SQLERRM,1,240);
2291: return(SQLCODE);
2292: END bmasopid_assign_op_seq_id;
2293:
2294: /*---------------------- bmasrtgid_assign_rtg_seq_id -----------------------*/

Line 2357: err_text := substrb('BOMPASGR(bmasrtgid-' || stmt_num || ') ' || SQLERRM,1,240);

2353:
2354: return(0);
2355: EXCEPTION
2356: when others then
2357: err_text := substrb('BOMPASGR(bmasrtgid-' || stmt_num || ') ' || SQLERRM,1,240);
2358: return(SQLCODE);
2359: END bmasrtgid_assign_rtg_seq_id;
2360:
2361: /*-------------------------- bmgrtin_get_rtg_info --------------------------*/

Line 2402: err_text := 'BOMPASGR(bmgrtin) ' || substrb(SQLERRM,1,240);

2398: EXCEPTION
2399: when NO_DATA_FOUND then
2400: NULL;
2401: when others then
2402: err_text := 'BOMPASGR(bmgrtin) ' || substrb(SQLERRM,1,240);
2403: return(SQLCODE);
2404: END;
2405:
2406: select assembly_item_id, organization_id, alternate_routing_designator

Line 2417: err_text := 'BOMPASGR(bmgrtin): Routing sequence id does not exist';

2413: return(0);
2414:
2415: EXCEPTION
2416: when NO_DATA_FOUND then
2417: err_text := 'BOMPASGR(bmgrtin): Routing sequence id does not exist';
2418: return(9999);
2419: when others then
2420: err_text := 'BOMPASGR(bmgrtin) ' || substrb(SQLERRM,1,240);
2421: return(SQLCODE);

Line 2420: err_text := 'BOMPASGR(bmgrtin) ' || substrb(SQLERRM,1,240);

2416: when NO_DATA_FOUND then
2417: err_text := 'BOMPASGR(bmgrtin): Routing sequence id does not exist';
2418: return(9999);
2419: when others then
2420: err_text := 'BOMPASGR(bmgrtin) ' || substrb(SQLERRM,1,240);
2421: return(SQLCODE);
2422:
2423: END bmgrtin_get_rtg_info;
2424:

Line 2461: err_text := 'BOMPASGR(bmgtdep)' || substrb(SQLERRM,1,240);

2457: and department_code = dept_code;
2458: return(0);
2459: EXCEPTION
2460: when others then
2461: err_text := 'BOMPASGR(bmgtdep)' || substrb(SQLERRM,1,240);
2462: return(SQLCODE);
2463: END bmgtdep_get_department;
2464:
2465: /*-------------------------- bmgtstdop_get_stdop ----------------------------*/

Line 2500: err_text := 'BOMPASGR(bmgtstdop)' || substrb(SQLERRM,1,240);

2496: and operation_code = stdop_code;
2497: return(0);
2498: EXCEPTION
2499: when others then
2500: err_text := 'BOMPASGR(bmgtstdop)' || substrb(SQLERRM,1,240);
2501: return(SQLCODE);
2502: END bmgtstdop_get_stdop;
2503:
2504: /*----------------------- bmasritm_assign_rtg_item_id -----------------------*/

Line 2574: err_text := 'BOMPASGR(bmasritm) ' || substrb(SQLERRM,1,240);

2570:
2571: return(0);
2572: exception
2573: when others then
2574: err_text := 'BOMPASGR(bmasritm) ' || substrb(SQLERRM,1,240);
2575: return(SQLCODE);
2576: end bmasritm_assign_rtg_item_id;
2577:
2578: END BOMPASGR;

Line 2578: END BOMPASGR;

2574: err_text := 'BOMPASGR(bmasritm) ' || substrb(SQLERRM,1,240);
2575: return(SQLCODE);
2576: end bmasritm_assign_rtg_item_id;
2577:
2578: END BOMPASGR;