[Home] [Help]
PACKAGE BODY: APPS.MSC_CL_COPY_STG_TBL
Source
1 PACKAGE BODY MSC_CL_COPY_STG_TBL AS -- body
2 /* $Header: MSCCOPYB.pls 120.5 2009/09/15 03:43:02 harshsha noship $ */
3
4 -- Global variable Definition
5 v_dblink VARCHAR2(100); -- DB Link for APS server.
6 v_instance_id NUMBER;
7 v_inst_rp_src_id NUMBER;
8 v_ascp_inst VARCHAR2(10);
9 v_src_instance_id NUMBER;
10 v_icode VARCHAR2(10);
11 v_retcode NUMBER; --to keep track of warnings returned by copy procedures
12
13 PROCEDURE MSC_INITIALIZE(lv_user_id IN NUMBER,
14 lv_resp_id IN NUMBER,
15 lv_application_id IN NUMBER) IS
16 PRAGMA AUTONOMOUS_TRANSACTION;
17 BEGIN
18 FND_GLOBAL.APPS_INITIALIZE
19 ( lv_user_id,
20 lv_resp_id,
21 lv_application_id);
22 COMMIT;
23 END;
24
25 PROCEDURE GET_SOURCE_INSTANCE_ID (
26 SOURCE_ID_INDICATOR IN NUMBER,
27 SOURCE_INSTANCE_CODE OUT NOCOPY VARCHAR2,
28 SOURCE_INSTANCE_ID OUT NOCOPY NUMBER ) IS
29
30 CURSOR source_instances IS
31 SELECT m2a_dblink
32 , instance_id
33 , instance_code
34 FROM msc_apps_instances
35 WHERE
36 m2a_dblink IS NOT NULL;
37
38 lv_sql_stmt VARCHAR2 (1000);
39 lv_found_source NUMBER;
40 BEGIN
41
42 FOR c_rec in source_instances LOOP
43 BEGIN
44
45 lv_found_source := 0;
46 lv_sql_stmt :=
47 'SELECT 1 FROM MRP_AP_APPS_INSTANCES_ALL@' || c_rec.m2a_dblink ||
48 ' WHERE ' ||
49 ' RP_SOURCE_IND = '|| to_char(SOURCE_ID_INDICATOR);
50
51 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'The formed SQL to get the source instance: ' ||
52 lv_sql_stmt);
53 EXECUTE IMMEDIATE lv_sql_stmt INTO lv_found_source;
54
55 IF (lv_found_source = 1) THEN
56
57 SOURCE_INSTANCE_ID := c_rec.instance_id;
58 SOURCE_INSTANCE_CODE := c_rec.instance_code||':';
59 EXIT;
60
61 END IF;
62
63 EXCEPTION
64 WHEN OTHERS THEN
65 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Skipping Source: ' ||
66 c_rec.instance_code);
67 END;
68 END LOOP;
69
70 IF (lv_found_source = 0) THEN
71 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,
72 'No Common Source found for APS and RP servers');
73 SOURCE_INSTANCE_ID := -23453;
74 ELSE
75 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Source Instance ID : ' ||
76 to_char (SOURCE_INSTANCE_ID));
77 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'Source Instance Code : ' ||
78 SOURCE_INSTANCE_CODE);
79
80 END IF;
81
82 END GET_SOURCE_INSTANCE_ID;
83
84 PROCEDURE SUBMIT_COPY_REQUEST(instance_id in NUMBER
85 ,sr_instance_id in NUMBER,
86 rp_source_ind in NUMBER,
87 p_request_id OUT NOCOPY NUMBER)
88 IS
89 lv_request_id NUMBER;
90 lv_timeout NUMBER := 180;
91 BEGIN
92 lv_request_id := FND_REQUEST.SUBMIT_REQUEST(
93 'MSC',
94 'MSCCPYST',
95 NULL, -- description
96 NULL, -- start date
97 FALSE,
98 instance_id,
99 sr_instance_id,
100 lv_timeout,
101 3, --Hardcode value for number of workers
102 rp_source_ind
103 );
104 p_request_id := lv_request_id;
105
106 END SUBMIT_COPY_REQUEST;
107
108
109 PROCEDURE RP_INITIALIZE_AND_LAUNCH(p_user_name IN VARCHAR2,
110 p_resp_name IN VARCHAR2,
111 p_application_name IN VARCHAR2,
112 p_sr_instance_id IN NUMBER,
113 p_instance_id IN NUMBER,
114 p_RP_source_ind IN NUMBER,
115 p_request_id OUT NOCOPY NUMBER)
116 IS
117 l_user_id NUMBER;
118 l_application_id NUMBER;
119 l_resp_id NUMBER;
120 l_trace1 varchar2(500);
121 l_trace2 varchar2(500);
122
123 BEGIN
124 l_trace1 := 'ALTER SESSION SET TRACEFILE_IDENTIFIER = ''copyb_fn''';
125 execute immediate l_trace1;
126 l_trace2 := 'ALTER SESSION SET EVENTS=''10046 TRACE NAME CONTEXT FOREVER, LEVEL 4''';
127 execute immediate l_trace2;
128
129 BEGIN
130
131 SELECT USER_ID
132 INTO l_user_id
133 FROM FND_USER
134 WHERE USER_NAME = p_user_name;
135 BEGIN
136 SELECT APPLICATION_ID
137 INTO l_application_id
138 FROM FND_APPLICATION_VL
139 WHERE APPLICATION_NAME = p_application_name;
140 EXCEPTION
141 WHEN NO_DATA_FOUND THEN
142 if p_application_name = 'Advanced Supply Chain Planning' then
143 l_application_id := 724;
144 end if;
145 END;
146
147 SELECT responsibility_id
148 INTO l_resp_id
149 FROM FND_responsibility_vl
150 WHERE responsibility_name = p_resp_name
151 AND application_Id = l_application_id;
152
153 EXCEPTION
154
155 WHEN NO_DATA_FOUND THEN RAISE;
156 WHEN OTHERS THEN RAISE;
157
158 END;
159
160 MSC_INITIALIZE( l_user_id,
161 l_resp_id,
162 l_application_id);
163
164 /*
165 * Now call the function to submit the request
166 *
167 */
168 SUBMIT_COPY_REQUEST(p_instance_id,p_sr_instance_id,p_RP_source_ind,p_request_id);
169
170 END RP_INITIALIZE_AND_LAUNCH;
171
172 PROCEDURE LAUNCH_MONITOR( ERRBUF OUT NOCOPY VARCHAR2,
173 RETCODE OUT NOCOPY NUMBER,
174 pINSTANCE_ID IN NUMBER,
175 pSRC_INSTANCE_ID IN NUMBER,
176 pTIMEOUT IN NUMBER,
177 pTotalWorkerNum IN NUMBER,
178 RP_Source_Indicator IN NUMBER)
179 IS
180
181 lv_coll_start_time DATE;
182 lv_so_tbl_status NUMBER;
183 lv_so_lrtype VARCHAR2(1);
184 lv_lrtype VARCHAR2(1);
185 lv_sql_stmt VARCHAR2 (1000);
186 lv_request_id NUMBER;
187 lv_errbuf VARCHAR2(2048);
188 lv_retcode NUMBER;
189
190 BEGIN
191
192 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'pInstance Id: '|| pINSTANCE_ID);
193 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'pSRC_Instance Id: '|| pSRC_INSTANCE_ID);
194 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'pTimeout : '|| pTIMEOUT);
195 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'pTotalWorkerNum Id: '|| pTotalWorkerNum);
196 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'RP_Source_Indicator : '|| RP_Source_Indicator);
197 -- Initialize Global Variables
198 v_instance_id := pSRC_INSTANCE_ID;
199 -- v_dblink := '@ma0yd101';
200 BEGIN
201 SELECT DECODE(M2A_DBLINK,
202 NULL,'',
203 '@'||M2A_DBLINK)
204 , INSTANCE_CODE||':'
205 INTO v_dblink, v_icode
206 FROM MSC_APPS_INSTANCES
207 WHERE
208 INSTANCE_ID=v_instance_id;
209
210 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'DB Link 1 : '|| v_dblink ||':'|| v_icode);
211 EXCEPTION
212 WHEN NO_DATA_FOUND THEN
213 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,
214 'Source Instance Not defined for instance_id:' ||
215 to_char(v_instance_id));
216 RETCODE := MSC_UTIL.G_ERROR;
217 ERRBUF := 'Source Instance Not defined for instance_id';
218 RETURN;
219 WHEN OTHERS THEN
220 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
221 RETCODE := MSC_UTIL.G_ERROR;
222 ERRBUF := SQLERRM;
223 RETURN;
224 END;
225
226 -- Now get the parameters from msc_apps_instances of the source ASCP
227 -- instance
228
229 BEGIN
230 v_sql_stmt:=
231 'SELECT ' ||
232 'INSTANCE_CODE, ' ||
233 'COLLECTIONS_START_TIME, ' ||
234 'SO_TBL_STATUS, ' ||
235 'SO_LRTYPE,'||
236 'LRTYPE '||
237 'FROM MSC_APPS_INSTANCES'||v_dblink ||
238 ' WHERE ' ||
239 ' ST_STATUS IN (' || to_char(MSC_UTIL.G_ST_READY)||','||to_char(MSC_UTIL.G_ST_COLLECTING)||')'||
240 ' AND instance_id = ' || to_char(pINSTANCE_ID);
241
242 EXECUTE IMMEDIATE v_sql_stmt INTO v_ascp_inst,
243 lv_coll_start_time,
244 lv_so_tbl_status,
245 lv_so_lrtype,
246 lv_lrtype;
247
248 EXCEPTION
249 WHEN NO_DATA_FOUND THEN
250 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'DB Link 2 : '|| v_dblink);
251 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'Formed SQL : '|| v_sql_stmt);
252 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,
253 'Data Not Collected Into Staging table on APS server Select stmt:' ||
254 to_char(v_instance_id));
255 RETCODE := MSC_UTIL.G_ERROR;
256 ERRBUF := 'Data Not Collected Into Staging table on APS server';
257 RETURN;
258 END;
259 -- Append a ':' to the instance code.
260 v_ascp_inst := v_ascp_inst||':';
261
262 GET_SOURCE_INSTANCE_ID (
263 RP_Source_Indicator,
264 v_icode,
265 v_inst_rp_src_id) ;
266 IF (v_inst_rp_src_id = -23453) THEN
267 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'In Launch Monitor 121' );
268 RETCODE := MSC_UTIL.G_ERROR;
269 ERRBUF := 'No Common Source found for APS and RP servers';
270 RETURN;
271
272 END IF;
273 BEGIN
274 -- Now update msc_apps_instances
275 UPDATE MSC_APPS_INSTANCES
276 SET
277 COLLECTIONS_START_TIME = lv_coll_start_time,
278 SO_TBL_STATUS = lv_so_tbl_status,
279 LRTYPE =lv_lrtype,
280 SO_LRTYPE = lv_so_lrtype,
281 ST_STATUS = MSC_UTIL.G_ST_READY
282 WHERE
283 INSTANCE_ID=v_inst_rp_src_id;
284
285 EXCEPTION
286 WHEN NO_DATA_FOUND THEN
287 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,
288 'Data Not Collected Into Staging table on APS server:' ||
289 to_char(v_instance_id));
290 RETCODE := MSC_UTIL.G_ERROR;
291 ERRBUF := 'Data Not Collected Into Staging table on APS server';
292 RETURN;
293
294 WHEN OTHERS THEN
295 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
296 RETCODE := MSC_UTIL.G_ERROR;
297 ERRBUF := SQLERRM;
298 RETURN;
299
300 END;
301 v_src_instance_id := pINSTANCE_ID;
302 -- Now call the procedures to copy the staging table data.
303 v_retcode := 0;
304 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'Update statement is '||lv_lrtype);
305 /*
306 --harshit - This code has been commented out since we achieve the same in the previous update of msc_apps_instances
307 lv_sql_stmt := 'update msc_apps_instances set lrtype = (select lrtype from msc_apps_instances'||
308 v_dblink||'where instance_id = '||v_src_instance_id||') where instance_id = '||v_inst_rp_src_id;
309
310 EXECUTE IMMEDIATE lv_sql_stmt;
311 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'Update statement is '||lv_sql_stmt);*/
312
313 COPY_CALENDAR_ASSIGNMENTS;
314 COPY_JOB_OPERATION_NETWORKS;
315 COPY_JOB_OPERATIONS;
316 COPY_JOB_REQUIREMENT_OPS;
317 COPY_JOB_OP_RESOURCES;
318 COPY_APPS_INSTANCES;
319 COPY_REGION_SITES;
320 COPY_TRIPS;
321 COPY_TRIP_STOPS;
322 COPY_CARRIER_SERVICES;
323 COPY_ASSIGNMENT_SETS;
324 COPY_ATP_RULES;
325 COPY_BILL_OF_RESOURCES;
326 COPY_BIS_BUSINESS_PLANS;
327 COPY_BIS_PERIODS;
328 COPY_BIS_PFMC_MEASURES;
329 COPY_BIS_TARGETS;
330 COPY_BIS_TARGET_LEVELS;
331 COPY_BOMS;
332 COPY_BOM_COMPONENTS;
333 COPY_BOR_REQUIREMENTS;
334 COPY_CALENDARS;
335 COPY_CALENDAR_DATES;
336 COPY_CALENDAR_EXCEPTIONS;
337 COPY_CALENDAR_SHIFTS;
338 COPY_CAL_WEEK_START_DATES;
339 COPY_CAL_YEAR_START_DATES;
340 COPY_CATEGORY_SETS;
341 COPY_COMPANY_USERS;
342 COPY_COMPONENT_SUBSTITUTES;
343 COPY_CO_PRODUCTS;
344 COPY_DEMANDS;
345 COPY_DEMAND_CLASSES;
346 COPY_DEPARTMENT_RESOURCES;
347 COPY_DESIGNATORS;
348 COPY_GROUPS;
349 COPY_GROUP_COMPANIES;
350 COPY_INTERORG_SHIP_METHODS;
351 COPY_ITEM_CATEGORIES;
352 COPY_ITEM_CUSTOMERS;
353 COPY_ITEM_SOURCING;
354 COPY_ITEM_SUBSTITUTES;
355 COPY_ITEM_SUPPLIERS;
356 COPY_LOCATION_ASSOCIATIONS;
357 COPY_NET_RESOURCE_AVAIL;
358 COPY_OPERATION_COMPONENTS;
359 COPY_OPERATION_NETWORKS;
360 COPY_OPERATION_RESOURCES;
361 COPY_OPERATION_RESOURCE_SEQS;
362 COPY_PARAMETERS;
363 COPY_PARTNER_CONTACTS;
364 COPY_PERIOD_START_DATES;
365 COPY_PLANNERS;
366 COPY_PROCESS_EFFECTIVITY;
367 COPY_PROJECTS;
368 COPY_PROJECT_TASKS;
369 COPY_REGIONS;
370 COPY_REGION_LOCATIONS;
371 COPY_RESERVATIONS;
372 COPY_RESOURCE_CHANGES;
373 COPY_RESOURCE_GROUPS;
374 COPY_RESOURCE_REQUIREMENTS;
375 COPY_RESOURCE_SHIFTS;
376 COPY_ROUTINGS;
377 COPY_ROUTING_OPERATIONS;
378 COPY_SAFETY_STOCKS;
379 COPY_SALES_ORDERS;
380 COPY_SHIFT_DATES;
381 COPY_SHIFT_EXCEPTIONS;
382 COPY_SHIFT_TIMES;
383 COPY_SIMULATION_SETS;
384 COPY_SOURCING_HISTORY;
385 COPY_SOURCING_RULES;
386 COPY_SR_ASSIGNMENTS;
387 COPY_SR_RECEIPT_ORG;
388 COPY_SR_SOURCE_ORG;
389 COPY_SUB_INVENTORIES;
390 COPY_SUPPLIER_CAPACITIES;
391 COPY_SUPPLIER_FLEX_FENCES;
392 COPY_SUPPLIES;
393 COPY_SYSTEM_ITEMS;
394 COPY_TRADING_PARTNERS;
395 COPY_TRADING_PARTNER_SITES;
396 COPY_UNITS_OF_MEASURE;
397 COPY_UNIT_NUMBERS;
398 COPY_UOM_CLASS_CONVERSIONS;
399 COPY_UOM_CONVERSIONS;
400 COPY_WORKDAY_PATTERNS;
401 COPY_ZONE_REGIONS;
402 COPY_SR_LOOKUPS;
403 COPY_DEPT_RES_INSTANCES;
404 COPY_NET_RES_INST_AVAIL;
405 COPY_JOB_OP_RES_INSTANCES;
406 COPY_RESOURCE_INSTANCE_REQS;
407 COPY_RESOURCE_SETUPS;
408 COPY_SETUP_TRANSITIONS;
409 COPY_RES_INSTANCE_CHANGES;
410 COPY_STD_OP_RESOURCES;
411 COPY_RESOURCE_CHARGES;
412 COPY_CALENDAR_MONTHS;
413 COPY_OPEN_PAYBACKS;
414 COPY_COLL_PARAMETERS (pINSTANCE_ID);
415
416 IF MSC_CL_PULL.SET_ST_STATUS( lv_errbuf, lv_retcode,
417 v_inst_rp_src_id, G_ST_READY) THEN
418 COMMIT;
419 END IF;
420
421
422
423 IF (v_retcode > 0)
424 THEN
425 RETCODE := v_retcode;
426 ELSE
427 RETCODE := 0;
428 END IF;
429
430 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'The instance_id passed to planning ODS load is '|| v_inst_rp_src_id);
431 lv_request_id := FND_REQUEST.SUBMIT_REQUEST(
432 'MSC',
433 'MSCPDC',
434 NULL, -- description
435 NULL, -- start date
436 FALSE, -- TRUE,
437 -- pINSTANCE_ID,
438 v_inst_rp_src_id,
439 pTIMEOUT,
440 4,
441 MSC_UTIL.SYS_NO, --- Recalc NRA
442 MSC_UTIL.SYS_NO, -- Recalc sourcing history
443 MSC_UTIL.SYS_NO,
444 MSC_UTIL.SYS_NO -- APCC Repository
445 );
446
447
448 --Do an fnd_request (submit_request) to launch ods load instead of this
449 /* MSC_CL_COLLECTION.LAUNCH_MONITOR(
450 ERRBUF,
451 RETCODE,
452 pINSTANCE_ID,
453 pTIMEOUT,
454 MSC_UTIL.SYS_NO, --- Recalc NRA
455 MSC_UTIL.SYS_NO, -- Recalc sourcing history
456 MSC_UTIL.SYS_YES, --exchange_mode
457 MSC_UTIL.SYS_YES);
458 RETCODE := MSC_UTIL.G_SUCCESS;
459 */
460
461 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'Reaches after Copy,Value of v_retcode = '|| v_retcode);
462 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'Reaches after Copy,Value of RETCODE = '|| RETCODE);
463 lv_sql_stmt := 'update msc_apps_instances'||v_dblink||
464 ' set staging_copy_complete = 1 '||
465 ' where instance_id = '||pINSTANCE_ID;
466 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'Update statement is '||lv_sql_stmt);
467
468 EXECUTE IMMEDIATE lv_sql_stmt;
469 --USING v_instance_id;
470
471 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'Reaches after update,Value of v_dblink = '|| v_dblink);
472 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,'Reaches after update of msc_apps_instances');
473 EXCEPTION
474 WHEN OTHERS THEN
475 ROLLBACK;
476 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'An Error was encountered during the copy');
477 retcode := MSC_UTIL.G_ERROR;
478 END LAUNCH_MONITOR;
479
480
481 PROCEDURE COPY_COLL_PARAMETERS (
482 pINSTANCE_ID IN NUMBER) IS
483 BEGIN
484
485 -- First delete the existing record for that instance from
486 -- msc_coll_parameters
487
488 DELETE FROM MSC_COLL_PARAMETERS
489 WHERE
490 INSTANCE_ID = v_inst_rp_src_id;
491 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_COLL_PARAMETERS');
492 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'pInstance Id: '|| pINSTANCE_ID);
493 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, 'db link: '|| v_dblink);
494 v_sql_stmt:=
495 'INSERT INTO MSC_COLL_PARAMETERS ('
496 || 'INSTANCE_ID,'
497 || 'DELETE_ODS_DATA,'
498 || 'SUPPLIER_CAPACITY,'
499 || 'ATP_RULES,'
500 || 'BOM,'
501 || 'BOR,'
502 || 'CALENDAR_CHECK,'
503 || 'DEMAND_CLASS,'
504 || 'FORECAST,'
505 || 'ITEM,'
506 || 'KPI_TARGETS_BIS,'
507 || 'MDS,'
508 || 'MPS,'
509 || 'OH,'
510 || 'PARAMETER,'
511 || 'PLANNERS,'
512 || 'PROJECTS,'
513 || 'PO,'
514 || 'RESERVATIONS,'
515 || 'NRA,'
516 || 'SAFETY_STOCK,'
517 || 'SALES_ORDER,'
518 || 'SOURCING_HISTORY,'
519 || 'SOURCING,'
520 || 'SUB_INVENTORIES,'
521 || 'CUSTOMER,'
522 || 'SUPPLIER,'
523 || 'UNIT_NUMBERS,'
524 || 'UOM,'
525 || 'USER_SUPPLY_DEMAND,'
526 || 'WIP,'
527 || 'LAST_UPDATE_DATE,'
528 || 'LAST_UPDATED_BY,'
529 || 'CREATION_DATE,'
530 || 'CREATED_BY,'
531 || 'ITEM_SUBSTITUTES,'
532 || 'USER_COMP_ASSOCIATION,'
533 || 'BOM_SN_FLAG,'
534 || 'BOR_SN_FLAG,'
535 || 'ITEM_SN_FLAG,'
536 || 'OH_SN_FLAG,'
537 || 'USUP_SN_FLAG,'
538 || 'UDMD_SN_FLAG,'
539 || 'SO_SN_FLAG,'
540 || 'FCST_SN_FLAG,'
541 || 'WIP_SN_FLAG,'
542 || 'SUPCAP_SN_FLAG,'
543 || 'PO_SN_FLAG,'
544 || 'MDS_SN_FLAG,'
545 || 'MPS_SN_FLAG,'
546 || 'NOSNAP_FLAG,'
547 || 'SUPPLIER_RESPONSE,'
548 || 'SUPREP_SN_FLAG,'
549 || 'ORG_GROUP,'
550 || 'THRESHOLD,'
551 || 'TRIP,'
552 || 'TRIP_SN_FLAG,'
553 || 'SALES_CHANNEL,'
554 || 'FISCAL_CALENDAR,'
555 || 'PAYBACK_DEMAND_SUPPLY '
556 || ')'
557 ||'SELECT '
558 || ':v_inst_rp_src_id,'
559 --|| '34064,'
560 || 'DELETE_ODS_DATA,'
561 || 'SUPPLIER_CAPACITY,'
562 || 'ATP_RULES,'
563 || 'BOM,'
564 || 'BOR,'
565 || 'CALENDAR_CHECK,'
566 || 'DEMAND_CLASS,'
567 || 'FORECAST,'
568 || 'ITEM,'
569 || 'KPI_TARGETS_BIS,'
570 || 'MDS,'
571 || 'MPS,'
572 || 'OH,'
573 || 'PARAMETER,'
574 || 'PLANNERS,'
575 || 'PROJECTS,'
576 || 'PO,'
577 || 'RESERVATIONS,'
578 || 'NRA,'
579 || 'SAFETY_STOCK,'
580 || 'SALES_ORDER,'
581 || 'SOURCING_HISTORY,'
582 || 'SOURCING,'
583 || 'SUB_INVENTORIES,'
584 || 'CUSTOMER,'
585 || 'SUPPLIER,'
586 || 'UNIT_NUMBERS,'
587 || 'UOM,'
588 || 'USER_SUPPLY_DEMAND,'
589 || 'WIP,'
590 || 'LAST_UPDATE_DATE,'
591 || 'LAST_UPDATED_BY,'
592 || 'CREATION_DATE,'
593 || 'CREATED_BY,'
594 || 'ITEM_SUBSTITUTES,'
595 || 'USER_COMP_ASSOCIATION,'
596 || 'BOM_SN_FLAG,'
597 || 'BOR_SN_FLAG,'
598 || 'ITEM_SN_FLAG,'
599 || 'OH_SN_FLAG,'
600 || 'USUP_SN_FLAG,'
601 || 'UDMD_SN_FLAG,'
602 || 'SO_SN_FLAG,'
603 || 'FCST_SN_FLAG,'
604 || 'WIP_SN_FLAG,'
605 || 'SUPCAP_SN_FLAG,'
606 || 'PO_SN_FLAG,'
607 || 'MDS_SN_FLAG,'
608 || 'MPS_SN_FLAG,'
609 || 'NOSNAP_FLAG,'
610 || 'SUPPLIER_RESPONSE,'
611 || 'SUPREP_SN_FLAG,'
612 || 'ORG_GROUP,'
613 || 'THRESHOLD,'
614 || 'TRIP,'
615 || 'TRIP_SN_FLAG,'
616 || 'SALES_CHANNEL,'
617 || 'FISCAL_CALENDAR,'
618 || 'PAYBACK_DEMAND_SUPPLY '
619 ||'FROM MSC_COLL_PARAMETERS'|| v_dblink
620 ||' WHERE '
621 ||' instance_id = ' || to_char(pINSTANCE_ID);
622
623 EXECUTE IMMEDIATE v_sql_stmt USING v_inst_rp_src_id;
624 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
625 --EXECUTE IMMEDIATE v_sql_stmt;
626 COMMIT;
627
628 EXCEPTION
629 WHEN OTHERS THEN
630 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
631 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
632 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying msc_coll_parameters');
633 v_retcode := 2;
634 RAISE;
635 ELSE
636 IF v_retcode < 2 THEN
637 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
638 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying msc_coll_parameters');
639 v_retcode := 1;
640 END IF;
641 RETURN;
642 END IF;
643
644 END COPY_COLL_PARAMETERS;
645 PROCEDURE COPY_CALENDAR_ASSIGNMENTS IS
646
647 BEGIN
648
649 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'MSC_ST_CALENDAR_ASSIGNMENTS');
650 v_sql_stmt:=
651 'INSERT INTO MSC_ST_CALENDAR_ASSIGNMENTS ('
652 || 'ASSOCIATION_TYPE,'
653 || 'CALENDAR_CODE,'
654 || 'CALENDAR_TYPE,'
655 || 'PARTNER_ID,'
656 || 'PARTNER_SITE_ID,'
657 || 'ORGANIZATION_ID,'
658 || 'SR_INSTANCE_ID,'
659 || 'CARRIER_PARTNER_ID,'
660 || 'PARTNER_TYPE,'
661 || 'ASSOCIATION_LEVEL,'
662 || 'SHIP_METHOD_CODE,'
663 || 'REFRESH_ID,'
664 || 'LAST_UPDATE_DATE,'
665 || 'LAST_UPDATED_BY,'
666 || 'CREATION_DATE,'
667 || 'CREATED_BY,'
668 || 'LAST_UPDATE_LOGIN,'
669 || 'PARTNER_NAME,'
670 || 'PARTNER_SITE_CODE,'
671 || 'ORGANIZATION_CODE,'
672 || 'SR_INSTANCE_CODE,'
673 || 'COMPANY_NAME,'
674 || 'BATCH_ID,'
675 || 'PROCESS_FLAG,'
676 || 'ST_TRANSACTION_ID,'
677 || 'DATA_SOURCE_TYPE,'
678 || 'DELETED_FLAG,'
679 || 'CARRIER_PARTNER_CODE,'
680 || 'MESSAGE_ID,'
681 || 'REQUEST_ID,'
682 || 'ERROR_TEXT,'
683 || 'PROGRAM_UPDATE_DATE,'
684 || 'PROGRAM_ID,'
685 || 'PROGRAM_APPLICATION_ID '
686 || ')'
687 ||'SELECT '
688 || 'ASSOCIATION_TYPE,'
689 || 'REPLACE(CALENDAR_CODE,:v_ascp_inst,:v_icode),'
690 || 'CALENDAR_TYPE,'
691 || 'PARTNER_ID,'
692 || 'PARTNER_SITE_ID,'
693 || 'ORGANIZATION_ID,'
694 || ':v_inst_rp_src_id,'
695 || 'CARRIER_PARTNER_ID,'
696 || 'PARTNER_TYPE,'
697 || 'ASSOCIATION_LEVEL,'
698 || 'SHIP_METHOD_CODE,'
699 || 'REFRESH_ID,'
700 || 'LAST_UPDATE_DATE,'
701 || 'LAST_UPDATED_BY,'
702 || 'CREATION_DATE,'
703 || 'CREATED_BY,'
704 || 'LAST_UPDATE_LOGIN,'
705 || 'REPLACE(PARTNER_NAME,:v_ascp_inst,:v_icode),'
706 || 'PARTNER_SITE_CODE,'
707 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
708 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
709 || 'COMPANY_NAME,'
710 || 'BATCH_ID,'
711 || 'PROCESS_FLAG,'
712 || 'ST_TRANSACTION_ID,'
713 || 'DATA_SOURCE_TYPE,'
714 || 'DELETED_FLAG,'
715 || 'CARRIER_PARTNER_CODE,'
716 || 'MESSAGE_ID,'
717 || 'REQUEST_ID,'
718 || 'ERROR_TEXT,'
719 || 'PROGRAM_UPDATE_DATE,'
720 || 'PROGRAM_ID,'
721 || 'PROGRAM_APPLICATION_ID '
722 ||'FROM MSC_ST_CALENDAR_ASSIGNMENTS'|| v_dblink
723 ||' WHERE '
724 ||' sr_instance_id = ' || to_char(v_src_instance_id);
725
726 EXECUTE IMMEDIATE v_sql_stmt USING
727 v_ascp_inst,v_icode
728 ,v_inst_rp_src_id
729 ,v_ascp_inst,v_icode
730 ,v_ascp_inst,v_icode
731 ,v_ascp_inst,v_icode
732 ;
733
734 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
735 COMMIT;
736 EXCEPTION
737 WHEN OTHERS THEN
738 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
739 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
740 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_CALENDAR_ASSIGNMENTS');
741 v_retcode := 2;
742 RAISE;
743 ELSE
744 IF v_retcode < 2 THEN
745 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
746 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_CALENDAR_ASSIGNMENTS');
747 v_retcode := 1;
748 END IF;
749 RETURN;
750 END IF;
751
752 END COPY_CALENDAR_ASSIGNMENTS;
753 PROCEDURE COPY_JOB_OPERATION_NETWORKS IS
754
755 BEGIN
756 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_JOB_OPERATION_NETWORKS');
757 v_sql_stmt:=
758 'INSERT INTO MSC_ST_JOB_OPERATION_NETWORKS ('
759 || 'WIP_ENTITY_ID,'
760 || 'SR_INSTANCE_ID,'
761 || 'ORGANIZATION_ID,'
762 || 'FROM_OP_SEQ_NUM,'
763 || 'TO_OP_SEQ_NUM,'
764 || 'FROM_OP_SEQ_ID,'
765 || 'TO_OP_SEQ_ID,'
766 || 'RECOMMENDED,'
767 || 'TRANSITION_TYPE,'
768 || 'PLANNING_PCT,'
769 || 'LAST_UPDATE_DATE,'
770 || 'LAST_UPDATED_BY,'
771 || 'LAST_UPDATE_LOGIN,'
772 || 'CREATION_DATE,'
773 || 'CREATED_BY,'
774 || 'REQUEST_ID,'
775 || 'PROGRAM_APPLICATION_ID,'
776 || 'PROGRAM_ID,'
777 || 'PROGRAM_UPDATE_DATE,'
778 || 'DELETED_FLAG,'
779 || 'REFRESH_ID,'
780 || 'COMPANY_NAME,'
781 || 'SR_INSTANCE_CODE,'
782 || 'WIP_ENTITY_NAME,'
783 || 'ORGANIZATION_CODE,'
784 || 'FROM_OPERATION_SEQ_CODE,'
785 || 'TO_OPERATION_SEQ_CODE,'
786 || 'FROM_OP_EFFECTIVITY_DATE,'
787 || 'TO_OP_EFFECTIVITY_DATE,'
788 || 'ROUTING_NAME,'
789 || 'ASSEMBLY_NAME,'
790 || 'ALTERNATE_ROUTING_DESIGNATOR,'
791 || 'ROUTING_SEQUENCE_ID,'
792 || 'DATA_SOURCE_TYPE,'
793 || 'BATCH_ID,'
794 || 'ST_TRANSACTION_ID,'
795 || 'MESSAGE_ID,'
796 || 'ERROR_TEXT,'
797 || 'PROCESS_FLAG,'
798 || 'TO_WIP_ENTITY_ID,'
799 || 'TRANSFER_QTY,'
800 || 'TRANSFER_UOM,'
801 || 'TRANSFER_PCT,'
802 || 'FROM_ITEM_ID,'
803 || 'MINIMUM_TRANSFER_QTY,'
804 || 'MINIMUM_TIME_OFFSET,'
805 || 'MAXIMUM_TIME_OFFSET,'
806 || 'APPLY_TO_CHARGES,'
807 || 'DEPENDENCY_TYPE '
808 || ')'
809 ||'SELECT '
810 || 'WIP_ENTITY_ID,'
811 || ':v_inst_rp_src_id,'
812 || 'ORGANIZATION_ID,'
813 || 'FROM_OP_SEQ_NUM,'
814 || 'TO_OP_SEQ_NUM,'
815 || 'FROM_OP_SEQ_ID,'
816 || 'TO_OP_SEQ_ID,'
817 || 'RECOMMENDED,'
818 || 'TRANSITION_TYPE,'
819 || 'PLANNING_PCT,'
820 || 'LAST_UPDATE_DATE,'
821 || 'LAST_UPDATED_BY,'
822 || 'LAST_UPDATE_LOGIN,'
823 || 'CREATION_DATE,'
824 || 'CREATED_BY,'
825 || 'REQUEST_ID,'
826 || 'PROGRAM_APPLICATION_ID,'
827 || 'PROGRAM_ID,'
828 || 'PROGRAM_UPDATE_DATE,'
829 || 'DELETED_FLAG,'
830 || 'REFRESH_ID,'
831 || 'COMPANY_NAME,'
832 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
833 || 'WIP_ENTITY_NAME,'
834 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
835 || 'FROM_OPERATION_SEQ_CODE,'
836 || 'TO_OPERATION_SEQ_CODE,'
837 || 'FROM_OP_EFFECTIVITY_DATE,'
838 || 'TO_OP_EFFECTIVITY_DATE,'
839 || 'ROUTING_NAME,'
840 || 'ASSEMBLY_NAME,'
841 || 'ALTERNATE_ROUTING_DESIGNATOR,'
842 || 'ROUTING_SEQUENCE_ID,'
843 || 'DATA_SOURCE_TYPE,'
844 || 'BATCH_ID,'
845 || 'ST_TRANSACTION_ID,'
846 || 'MESSAGE_ID,'
847 || 'ERROR_TEXT,'
848 || 'PROCESS_FLAG,'
849 || 'TO_WIP_ENTITY_ID,'
850 || 'TRANSFER_QTY,'
851 || 'TRANSFER_UOM,'
852 || 'TRANSFER_PCT,'
853 || 'FROM_ITEM_ID,'
854 || 'MINIMUM_TRANSFER_QTY,'
855 || 'MINIMUM_TIME_OFFSET,'
856 || 'MAXIMUM_TIME_OFFSET,'
857 || 'APPLY_TO_CHARGES,'
858 || 'DEPENDENCY_TYPE '
859 ||'FROM MSC_ST_JOB_OPERATION_NETWORKS'|| v_dblink
860 ||' WHERE '
861 ||' sr_instance_id = ' || to_char(v_src_instance_id);
862
863 EXECUTE IMMEDIATE v_sql_stmt USING
864 v_inst_rp_src_id
865 ,v_ascp_inst,v_icode
866 ,v_ascp_inst,v_icode
867 ;
868
869 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
870
871 COMMIT;
872 EXCEPTION
873 WHEN OTHERS THEN
874 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
875 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
876 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_JOB_OPERATION_NETWORKS');
877 v_retcode := 2;
878 RAISE;
879 ELSE
880 IF v_retcode < 2 THEN
881 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
882 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_JOB_OPERATION_NETWORKS');
883 v_retcode := 1;
884 END IF;
885 RETURN;
886 END IF;
887
888 END COPY_JOB_OPERATION_NETWORKS;
889 PROCEDURE COPY_JOB_OPERATIONS IS
890
891 BEGIN
892
893 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_JOB_OPERATIONS');
894 v_sql_stmt:=
895 'INSERT INTO MSC_ST_JOB_OPERATIONS ('
896 || 'WIP_ENTITY_ID,'
897 || 'SR_INSTANCE_ID,'
898 || 'OPERATION_SEQ_NUM,'
899 || 'RECOMMENDED,'
900 || 'NETWORK_START_END,'
901 || 'RECO_START_DATE,'
902 || 'RECO_COMPLETION_DATE,'
903 || 'OPERATION_SEQUENCE_ID,'
904 || 'ORGANIZATION_ID,'
905 || 'STANDARD_OPERATION_CODE,'
906 || 'DEPARTMENT_ID,'
907 || 'OPERATION_LEAD_TIME_PERCENT,'
908 || 'MINIMUM_TRANSFER_QUANTITY,'
909 || 'EFFECTIVITY_DATE,'
910 || 'DISABLE_DATE,'
911 || 'OPERATION_TYPE,'
912 || 'YIELD,'
913 || 'CUMULATIVE_YIELD,'
914 || 'REVERSE_CUMULATIVE_YIELD,'
915 || 'NET_PLANNING_PERCENT,'
916 || 'LAST_UPDATE_DATE,'
917 || 'LAST_UPDATED_BY,'
918 || 'LAST_UPDATE_LOGIN,'
919 || 'CREATION_DATE,'
920 || 'CREATED_BY,'
921 || 'REQUEST_ID,'
922 || 'PROGRAM_APPLICATION_ID,'
923 || 'PROGRAM_ID,'
924 || 'PROGRAM_UPDATE_DATE,'
925 || 'REFRESH_ID,'
926 || 'DELETED_FLAG,'
927 || 'COMPANY_NAME,'
928 || 'SR_INSTANCE_CODE,'
929 || 'WIP_ENTITY_NAME,'
930 || 'ORGANIZATION_CODE,'
931 || 'OPERATION_SEQ_CODE,'
932 || 'ROUTING_NAME,'
933 || 'ASSEMBLY_NAME,'
934 || 'ALTERNATE_ROUTING_DESIGNATOR,'
935 || 'DEPARTMENT_CODE,'
936 || 'ROUTING_SEQUENCE_ID,'
937 || 'DATA_SOURCE_TYPE,'
938 || 'BATCH_ID,'
939 || 'ST_TRANSACTION_ID,'
940 || 'MESSAGE_ID,'
941 || 'PROCESS_FLAG,'
942 || 'ERROR_TEXT '
943 || ')'
944 ||'SELECT '
945 || 'WIP_ENTITY_ID,'
946 || ':v_inst_rp_src_id,'
947 || 'OPERATION_SEQ_NUM,'
948 || 'RECOMMENDED,'
949 || 'NETWORK_START_END,'
950 || 'RECO_START_DATE,'
951 || 'RECO_COMPLETION_DATE,'
952 || 'OPERATION_SEQUENCE_ID,'
953 || 'ORGANIZATION_ID,'
954 || 'STANDARD_OPERATION_CODE,'
955 || 'DEPARTMENT_ID,'
956 || 'OPERATION_LEAD_TIME_PERCENT,'
957 || 'MINIMUM_TRANSFER_QUANTITY,'
958 || 'EFFECTIVITY_DATE,'
959 || 'DISABLE_DATE,'
960 || 'OPERATION_TYPE,'
961 || 'YIELD,'
962 || 'CUMULATIVE_YIELD,'
963 || 'REVERSE_CUMULATIVE_YIELD,'
964 || 'NET_PLANNING_PERCENT,'
965 || 'LAST_UPDATE_DATE,'
966 || 'LAST_UPDATED_BY,'
967 || 'LAST_UPDATE_LOGIN,'
968 || 'CREATION_DATE,'
969 || 'CREATED_BY,'
970 || 'REQUEST_ID,'
971 || 'PROGRAM_APPLICATION_ID,'
972 || 'PROGRAM_ID,'
973 || 'PROGRAM_UPDATE_DATE,'
974 || 'REFRESH_ID,'
975 || 'DELETED_FLAG,'
976 || 'COMPANY_NAME,'
977 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
978 || 'WIP_ENTITY_NAME,'
979 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
980 || 'OPERATION_SEQ_CODE,'
981 || 'ROUTING_NAME,'
982 || 'ASSEMBLY_NAME,'
983 || 'ALTERNATE_ROUTING_DESIGNATOR,'
984 || 'DEPARTMENT_CODE,'
985 || 'ROUTING_SEQUENCE_ID,'
986 || 'DATA_SOURCE_TYPE,'
987 || 'BATCH_ID,'
988 || 'ST_TRANSACTION_ID,'
989 || 'MESSAGE_ID,'
990 || 'PROCESS_FLAG,'
991 || 'ERROR_TEXT '
992 ||'FROM MSC_ST_JOB_OPERATIONS'|| v_dblink
993 ||' WHERE '
994 ||' sr_instance_id = ' || to_char(v_src_instance_id);
995
996
997 EXECUTE IMMEDIATE v_sql_stmt USING
998 v_inst_rp_src_id
999 ,v_ascp_inst,v_icode
1000 ,v_ascp_inst,v_icode
1001 ;
1002
1003 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
1004 COMMIT;
1005
1006 EXCEPTION
1007 WHEN OTHERS THEN
1008 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
1009 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1010 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_JOB_OPERATIONS');
1011 v_retcode := 2;
1012 RAISE;
1013 ELSE
1014 IF v_retcode < 2 THEN
1015 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
1016 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_JOB_OPERATIONS');
1017 v_retcode := 1;
1018 END IF;
1019 RETURN;
1020 END IF;
1021
1022
1023 END COPY_JOB_OPERATIONS;
1024 PROCEDURE COPY_JOB_REQUIREMENT_OPS IS
1025
1026 BEGIN
1027
1028 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_JOB_REQUIREMENT_OPS');
1029 v_sql_stmt:=
1030 'INSERT INTO MSC_ST_JOB_REQUIREMENT_OPS ('
1031 || 'WIP_ENTITY_ID,'
1032 || 'SR_INSTANCE_ID,'
1033 || 'OPERATION_SEQ_NUM,'
1034 || 'COMPONENT_ITEM_ID,'
1035 || 'PRIMARY_COMPONENT_ID,'
1036 || 'SOURCE_PHANTOM_ID,'
1037 || 'RECOMMENDED,'
1038 || 'RECO_DATE_REQUIRED,'
1039 || 'ORGANIZATION_ID,'
1040 || 'COMPONENT_SEQUENCE_ID,'
1041 || 'COMPONENT_PRIORITY,'
1042 || 'DEPARTMENT_ID,'
1043 || 'QUANTITY_PER_ASSEMBLY,'
1044 || 'COMPONENT_YIELD_FACTOR,'
1045 || 'EFFECTIVITY_DATE,'
1046 || 'DISABLE_DATE,'
1047 || 'PLANNING_FACTOR,'
1048 || 'LOW_QUANTITY,'
1049 || 'HIGH_QUANTITY,'
1050 || 'OPERATION_LEAD_TIME_PERCENT,'
1051 || 'WIP_SUPPLY_TYPE,'
1052 || 'FROM_END_ITEM_UNIT_NUMBER,'
1053 || 'TO_END_ITEM_UNIT_NUMBER,'
1054 || 'LAST_UPDATE_DATE,'
1055 || 'LAST_UPDATED_BY,'
1056 || 'LAST_UPDATE_LOGIN,'
1057 || 'CREATION_DATE,'
1058 || 'CREATED_BY,'
1059 || 'REQUEST_ID,'
1060 || 'PROGRAM_APPLICATION_ID,'
1061 || 'PROGRAM_ID,'
1062 || 'PROGRAM_UPDATE_DATE,'
1063 || 'REFRESH_ID,'
1064 || 'DELETED_FLAG,'
1065 || 'SR_INSTANCE_CODE,'
1066 || 'COMPANY_NAME,'
1067 || 'WIP_ENTITY_NAME,'
1068 || 'ORGANIZATION_CODE,'
1069 || 'OPERATION_SEQ_CODE,'
1070 || 'ROUTING_NAME,'
1071 || 'COMPONENT_NAME,'
1072 || 'ASSEMBLY_ITEM_NAME,'
1073 || 'PRIMARY_COMPONENT_NAME,'
1074 || 'ALTERNATE_ROUTING_DESIGNATOR,'
1075 || 'ALTERNATE_BOM_DESIGNATOR,'
1076 || 'ROUTING_SEQUENCE_ID,'
1077 || 'DEPARTMENT_CODE,'
1078 || 'DATA_SOURCE_TYPE,'
1079 || 'BATCH_ID,'
1080 || 'ST_TRANSACTION_ID,'
1081 || 'MESSAGE_ID,'
1082 || 'ERROR_TEXT,'
1083 || 'PROCESS_FLAG,'
1084 || 'OP_EFFECTIVITY_DATE,'
1085 || 'SOURCE_PHANTOM_NAME '
1086 || ')'
1087 ||'SELECT '
1088 || 'WIP_ENTITY_ID,'
1089 || ':v_inst_rp_src_id,'
1090 || 'OPERATION_SEQ_NUM,'
1091 || 'COMPONENT_ITEM_ID,'
1092 || 'PRIMARY_COMPONENT_ID,'
1093 || 'SOURCE_PHANTOM_ID,'
1094 || 'RECOMMENDED,'
1095 || 'RECO_DATE_REQUIRED,'
1096 || 'ORGANIZATION_ID,'
1097 || 'COMPONENT_SEQUENCE_ID,'
1098 || 'COMPONENT_PRIORITY,'
1099 || 'DEPARTMENT_ID,'
1100 || 'QUANTITY_PER_ASSEMBLY,'
1101 || 'COMPONENT_YIELD_FACTOR,'
1102 || 'EFFECTIVITY_DATE,'
1103 || 'DISABLE_DATE,'
1104 || 'PLANNING_FACTOR,'
1105 || 'LOW_QUANTITY,'
1106 || 'HIGH_QUANTITY,'
1107 || 'OPERATION_LEAD_TIME_PERCENT,'
1108 || 'WIP_SUPPLY_TYPE,'
1109 || 'FROM_END_ITEM_UNIT_NUMBER,'
1110 || 'TO_END_ITEM_UNIT_NUMBER,'
1111 || 'LAST_UPDATE_DATE,'
1112 || 'LAST_UPDATED_BY,'
1113 || 'LAST_UPDATE_LOGIN,'
1114 || 'CREATION_DATE,'
1115 || 'CREATED_BY,'
1116 || 'REQUEST_ID,'
1117 || 'PROGRAM_APPLICATION_ID,'
1118 || 'PROGRAM_ID,'
1119 || 'PROGRAM_UPDATE_DATE,'
1120 || 'REFRESH_ID,'
1121 || 'DELETED_FLAG,'
1122 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
1123 || 'COMPANY_NAME,'
1124 || 'WIP_ENTITY_NAME,'
1125 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
1126 || 'OPERATION_SEQ_CODE,'
1127 || 'ROUTING_NAME,'
1128 || 'COMPONENT_NAME,'
1129 || 'ASSEMBLY_ITEM_NAME,'
1130 || 'PRIMARY_COMPONENT_NAME,'
1131 || 'ALTERNATE_ROUTING_DESIGNATOR,'
1132 || 'ALTERNATE_BOM_DESIGNATOR,'
1133 || 'ROUTING_SEQUENCE_ID,'
1134 || 'DEPARTMENT_CODE,'
1135 || 'DATA_SOURCE_TYPE,'
1136 || 'BATCH_ID,'
1137 || 'ST_TRANSACTION_ID,'
1138 || 'MESSAGE_ID,'
1139 || 'ERROR_TEXT,'
1140 || 'PROCESS_FLAG,'
1141 || 'OP_EFFECTIVITY_DATE,'
1142 || 'SOURCE_PHANTOM_NAME '
1143 ||'FROM MSC_ST_JOB_REQUIREMENT_OPS'|| v_dblink
1144 ||' WHERE '
1145 ||' sr_instance_id = ' || to_char(v_src_instance_id);
1146
1147
1148 EXECUTE IMMEDIATE v_sql_stmt USING
1149 v_inst_rp_src_id
1150 ,v_ascp_inst,v_icode
1151 ,v_ascp_inst,v_icode
1152 ;
1153
1154 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
1155 COMMIT;
1156 EXCEPTION
1157 WHEN OTHERS THEN
1158 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
1159 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1160 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_JOB_REQUIREMENT_OPS');
1161 v_retcode := 2;
1162 RAISE;
1163 ELSE
1164 IF v_retcode < 2 THEN
1165 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
1166 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_JOB_REQUIREMENT_OPS');
1167 v_retcode := 1;
1168 END IF;
1169 RETURN;
1170 END IF;
1171
1172 END COPY_JOB_REQUIREMENT_OPS;
1173 PROCEDURE COPY_JOB_OP_RESOURCES IS
1174
1175 BEGIN
1176
1177 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_JOB_OP_RESOURCES');
1178 v_sql_stmt:=
1179 'INSERT INTO MSC_ST_JOB_OP_RESOURCES ('
1180 || 'WIP_ENTITY_ID,'
1181 || 'SR_INSTANCE_ID,'
1182 || 'OPERATION_SEQ_NUM,'
1183 || 'RESOURCE_SEQ_NUM,'
1184 || 'ORGANIZATION_ID,'
1185 || 'ALTERNATE_NUM,'
1186 || 'RECOMMENDED,'
1187 || 'RECO_START_DATE,'
1188 || 'RECO_COMPLETION_DATE,'
1189 || 'RESOURCE_ID,'
1190 || 'ASSIGNED_UNITS,'
1191 || 'USAGE_RATE_OR_AMOUNT,'
1192 || 'UOM_CODE,'
1193 || 'BASIS_TYPE,'
1194 || 'SCHEDULE_FLAG,'
1195 || 'RESOURCE_OFFSET_PERCENT,'
1196 || 'SCHEDULE_SEQ_NUM,'
1197 || 'PRINCIPAL_FLAG,'
1198 || 'DEPARTMENT_ID,'
1199 || 'ACTIVITY_GROUP_ID,'
1200 || 'LAST_UPDATE_DATE,'
1201 || 'LAST_UPDATED_BY,'
1202 || 'LAST_UPDATE_LOGIN,'
1203 || 'CREATION_DATE,'
1204 || 'CREATED_BY,'
1205 || 'REQUEST_ID,'
1206 || 'PROGRAM_APPLICATION_ID,'
1207 || 'PROGRAM_ID,'
1208 || 'PROGRAM_UPDATE_DATE,'
1209 || 'REFRESH_ID,'
1210 || 'DELETED_FLAG,'
1211 || 'SR_INSTANCE_CODE,'
1212 || 'COMPANY_NAME,'
1213 || 'WIP_ENTITY_NAME,'
1214 || 'ORGANIZATION_CODE,'
1215 || 'OPERATION_SEQ_CODE,'
1216 || 'ROUTING_SEQUENCE_ID,'
1217 || 'DATA_SOURCE_TYPE,'
1218 || 'BATCH_ID,'
1219 || 'ST_TRANSACTION_ID,'
1220 || 'MESSAGE_ID,'
1221 || 'ERROR_TEXT,'
1222 || 'PROCESS_FLAG,'
1223 || 'RESOURCE_SEQ_CODE,'
1224 || 'OPERATION_EFFECTIVITY_DATE,'
1225 || 'DEPARTMENT_CODE,'
1226 || 'ALTERNATE_ROUTING_DESIGNATOR,'
1227 || 'ITEM_NAME,'
1228 || 'ROUTING_NAME,'
1229 || 'RESOURCE_CODE,'
1230 || 'SETUP_ID,'
1231 || 'GROUP_SEQUENCE_ID,'
1232 || 'GROUP_SEQUENCE_NUMBER,'
1233 || 'MAXIMUM_ASSIGNED_UNITS,'
1234 || 'BATCH_NUMBER,'
1235 || 'PARENT_SEQ_NUM,'
1236 || 'FIRM_FLAG '
1237 || ')'
1238 ||'SELECT '
1239 || 'WIP_ENTITY_ID,'
1240 || ':v_inst_rp_src_id,'
1241 || 'OPERATION_SEQ_NUM,'
1242 || 'RESOURCE_SEQ_NUM,'
1243 || 'ORGANIZATION_ID,'
1244 || 'ALTERNATE_NUM,'
1245 || 'RECOMMENDED,'
1246 || 'RECO_START_DATE,'
1247 || 'RECO_COMPLETION_DATE,'
1248 || 'RESOURCE_ID,'
1249 || 'ASSIGNED_UNITS,'
1250 || 'USAGE_RATE_OR_AMOUNT,'
1251 || 'UOM_CODE,'
1252 || 'BASIS_TYPE,'
1253 || 'SCHEDULE_FLAG,'
1254 || 'RESOURCE_OFFSET_PERCENT,'
1255 || 'SCHEDULE_SEQ_NUM,'
1256 || 'PRINCIPAL_FLAG,'
1257 || 'DEPARTMENT_ID,'
1258 || 'ACTIVITY_GROUP_ID,'
1259 || 'LAST_UPDATE_DATE,'
1260 || 'LAST_UPDATED_BY,'
1261 || 'LAST_UPDATE_LOGIN,'
1262 || 'CREATION_DATE,'
1263 || 'CREATED_BY,'
1264 || 'REQUEST_ID,'
1265 || 'PROGRAM_APPLICATION_ID,'
1266 || 'PROGRAM_ID,'
1267 || 'PROGRAM_UPDATE_DATE,'
1268 || 'REFRESH_ID,'
1269 || 'DELETED_FLAG,'
1270 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
1271 || 'COMPANY_NAME,'
1272 || 'WIP_ENTITY_NAME,'
1273 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
1274 || 'OPERATION_SEQ_CODE,'
1275 || 'ROUTING_SEQUENCE_ID,'
1276 || 'DATA_SOURCE_TYPE,'
1277 || 'BATCH_ID,'
1278 || 'ST_TRANSACTION_ID,'
1279 || 'MESSAGE_ID,'
1280 || 'ERROR_TEXT,'
1281 || 'PROCESS_FLAG,'
1282 || 'RESOURCE_SEQ_CODE,'
1283 || 'OPERATION_EFFECTIVITY_DATE,'
1284 || 'DEPARTMENT_CODE,'
1285 || 'ALTERNATE_ROUTING_DESIGNATOR,'
1286 || 'ITEM_NAME,'
1287 || 'ROUTING_NAME,'
1288 || 'RESOURCE_CODE,'
1289 || 'SETUP_ID,'
1290 || 'GROUP_SEQUENCE_ID,'
1291 || 'GROUP_SEQUENCE_NUMBER,'
1292 || 'MAXIMUM_ASSIGNED_UNITS,'
1293 || 'BATCH_NUMBER,'
1294 || 'PARENT_SEQ_NUM,'
1295 || 'FIRM_FLAG '
1296 ||'FROM MSC_ST_JOB_OP_RESOURCES'|| v_dblink
1297 ||' WHERE '
1298 ||' sr_instance_id = ' || to_char(v_src_instance_id);
1299
1300 EXECUTE IMMEDIATE v_sql_stmt USING
1301 v_inst_rp_src_id
1302 ,v_ascp_inst,v_icode
1303 ,v_ascp_inst,v_icode
1304 ;
1305
1306 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
1307 COMMIT;
1308 EXCEPTION
1309 WHEN OTHERS THEN
1310 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
1311 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1312 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_JOB_OP_RESOURCES');
1313 v_retcode := 2;
1314 RAISE;
1315 ELSE
1316 IF v_retcode < 2 THEN
1317 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
1318 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_JOB_OP_RESOURCES');
1319 v_retcode := 1;
1320 END IF;
1321 RETURN;
1322 END IF;
1323
1324
1325 END COPY_JOB_OP_RESOURCES;
1326 PROCEDURE COPY_APPS_INSTANCES IS
1327
1328 BEGIN
1329
1330 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_APPS_INSTANCES');
1331 v_sql_stmt:=
1332 'INSERT INTO MSC_ST_APPS_INSTANCES ('
1333 || 'MSC_ORG_FOR_BOM_EXPLOSION,'
1334 || 'WSM_CREATE_LBJ_COPY_ROUTING,'
1335 || 'DELETED_FLAG,'
1336 || 'PROCESS_FLAG,'
1337 || 'DATA_SOURCE_TYPE,'
1338 || 'LAST_UPDATE_LOGIN,'
1339 || 'LAST_UPDATE_DATE,'
1340 || 'CREATION_DATE,'
1341 || 'ST_TRANSACTION_ID,'
1342 || 'REFRESH_ID,'
1343 || 'ERROR_TEXT,'
1344 || 'MESSAGE_ID,'
1345 || 'CREATED_BY,'
1346 || 'SR_INSTANCE_CODE,'
1347 || 'SR_INSTANCE_ID,'
1348 || 'LAST_UPDATED_BY,'
1349 || 'REQUEST_ID,'
1350 || 'PROGRAM_UPDATE_DATE,'
1351 || 'PROGRAM_ID,'
1352 || 'PROGRAM_APPLICATION_ID,'
1353 || 'VALIDATION_ORG_ID '
1354 || ')'
1355 ||'SELECT '
1356 || 'MSC_ORG_FOR_BOM_EXPLOSION,'
1357 || 'WSM_CREATE_LBJ_COPY_ROUTING,'
1358 || 'DELETED_FLAG,'
1359 || 'PROCESS_FLAG,'
1360 || 'DATA_SOURCE_TYPE,'
1361 || 'LAST_UPDATE_LOGIN,'
1362 || 'LAST_UPDATE_DATE,'
1363 || 'CREATION_DATE,'
1364 || 'ST_TRANSACTION_ID,'
1365 || 'REFRESH_ID,'
1366 || 'ERROR_TEXT,'
1367 || 'MESSAGE_ID,'
1368 || 'CREATED_BY,'
1369 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
1370 || ':v_inst_rp_src_id,'
1371 || 'LAST_UPDATED_BY,'
1372 || 'REQUEST_ID,'
1373 || 'PROGRAM_UPDATE_DATE,'
1374 || 'PROGRAM_ID,'
1375 || 'PROGRAM_APPLICATION_ID,'
1376 || 'VALIDATION_ORG_ID '
1377 ||'FROM MSC_ST_APPS_INSTANCES'|| v_dblink
1378 ||' WHERE '
1379 ||' sr_instance_id = ' || to_char(v_src_instance_id);
1380
1381 EXECUTE IMMEDIATE v_sql_stmt USING
1382 v_ascp_inst,v_icode
1383 ,v_inst_rp_src_id
1384 ;
1385
1386 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
1387 COMMIT;
1388
1389 EXCEPTION
1390 WHEN OTHERS THEN
1391 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
1392 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1393 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_APPS_INSTANCES');
1394 v_retcode := 2;
1395 RAISE;
1396 ELSE
1397 IF v_retcode < 2 THEN
1398 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
1399 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_APPS_INSTANCES');
1400 v_retcode := 1;
1401 END IF;
1402 RETURN;
1403 END IF;
1404
1405 END COPY_APPS_INSTANCES;
1406 PROCEDURE COPY_REGION_SITES IS
1407
1408 BEGIN
1409
1410 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_REGION_SITES');
1411 v_sql_stmt:=
1412 'INSERT INTO MSC_ST_REGION_SITES ('
1413 || 'REGION_ID,'
1414 || 'VENDOR_SITE_ID,'
1415 || 'REGION_TYPE,'
1416 || 'ZONE_LEVEL,'
1417 || 'REFRESH_ID,'
1418 || 'SR_INSTANCE_ID,'
1419 || 'SR_INSTANCE_CODE,'
1420 || 'DELETED_FLAG,'
1421 || 'PROCESS_FLAG,'
1422 || 'DATA_SOURCE_TYPE,'
1423 || 'ST_TRANSACTION_ID,'
1424 || 'ERROR_TEXT,'
1425 || 'BATCH_ID,'
1426 || 'MESSAGE_ID,'
1427 || 'COMPANY_NAME,'
1428 || 'VENDOR_NAME,'
1429 || 'VENDOR_SITE_CODE,'
1430 || 'COUNTRY,'
1431 || 'COUNTRY_CODE,'
1432 || 'STATE,'
1433 || 'STATE_CODE,'
1434 || 'CITY,'
1435 || 'CITY_CODE,'
1436 || 'ZONE,'
1437 || 'POSTAL_CODE_FROM,'
1438 || 'POSTAL_CODE_TO,'
1439 || 'CREATED_BY,'
1440 || 'CREATION_DATE,'
1441 || 'LAST_UPDATED_BY,'
1442 || 'LAST_UPDATE_DATE,'
1443 || 'REQUEST_ID,'
1444 || 'PROGRAM_APPLICATION_ID,'
1445 || 'PROGRAM_ID,'
1446 || 'PROGRAM_UPDATE_DATE,'
1447 || 'LAST_UPDATE_LOGIN '
1448 || ')'
1449 ||'SELECT '
1450 || 'REGION_ID,'
1451 || 'VENDOR_SITE_ID,'
1452 || 'REGION_TYPE,'
1453 || 'ZONE_LEVEL,'
1454 || 'REFRESH_ID,'
1455 || ':v_inst_rp_src_id,'
1456 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
1457 || 'DELETED_FLAG,'
1458 || 'PROCESS_FLAG,'
1459 || 'DATA_SOURCE_TYPE,'
1460 || 'ST_TRANSACTION_ID,'
1461 || 'ERROR_TEXT,'
1462 || 'BATCH_ID,'
1463 || 'MESSAGE_ID,'
1464 || 'COMPANY_NAME,'
1465 || 'VENDOR_NAME,'
1466 || 'VENDOR_SITE_CODE,'
1467 || 'COUNTRY,'
1468 || 'COUNTRY_CODE,'
1469 || 'STATE,'
1470 || 'STATE_CODE,'
1471 || 'CITY,'
1472 || 'CITY_CODE,'
1473 || 'ZONE,'
1474 || 'POSTAL_CODE_FROM,'
1475 || 'POSTAL_CODE_TO,'
1476 || 'CREATED_BY,'
1477 || 'CREATION_DATE,'
1478 || 'LAST_UPDATED_BY,'
1479 || 'LAST_UPDATE_DATE,'
1480 || 'REQUEST_ID,'
1481 || 'PROGRAM_APPLICATION_ID,'
1482 || 'PROGRAM_ID,'
1483 || 'PROGRAM_UPDATE_DATE,'
1484 || 'LAST_UPDATE_LOGIN '
1485 ||'FROM MSC_ST_REGION_SITES'|| v_dblink
1486 ||' WHERE '
1487 ||' sr_instance_id = ' || to_char(v_src_instance_id);
1488
1489 EXECUTE IMMEDIATE v_sql_stmt USING
1490 v_inst_rp_src_id
1491 ,v_ascp_inst,v_icode
1492 ;
1493
1494 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
1495
1496 COMMIT;
1497 EXCEPTION
1498 WHEN OTHERS THEN
1499 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
1500 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1501 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_REGION_SITES');
1502 v_retcode := 2;
1503 RAISE;
1504 ELSE
1505 IF v_retcode < 2 THEN
1506 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
1507 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_REGION_SITES');
1508 v_retcode := 1;
1509 END IF;
1510 RETURN;
1511 END IF;
1512
1513
1514 END COPY_REGION_SITES;
1515 PROCEDURE COPY_TRIPS IS
1516
1517 BEGIN
1518
1519 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_TRIPS');
1520 v_sql_stmt:=
1521 'INSERT INTO MSC_ST_TRIPS ('
1522 || 'TRIP_ID,'
1523 || 'NAME,'
1524 || 'SHIP_METHOD_CODE,'
1525 || 'PLANNED_FLAG,'
1526 || 'STATUS_CODE,'
1527 || 'WEIGHT_CAPACITY,'
1528 || 'WEIGHT_UOM,'
1529 || 'VOLUME_CAPACITY,'
1530 || 'VOLUME_UOM,'
1531 || 'SR_INSTANCE_ID,'
1532 || 'DELETED_FLAG,'
1533 || 'REFRESH_ID '
1534 || ')'
1535 ||'SELECT '
1536 || 'TRIP_ID,'
1537 || 'NAME,'
1538 || 'SHIP_METHOD_CODE,'
1539 || 'PLANNED_FLAG,'
1540 || 'STATUS_CODE,'
1541 || 'WEIGHT_CAPACITY,'
1542 || 'WEIGHT_UOM,'
1543 || 'VOLUME_CAPACITY,'
1544 || 'VOLUME_UOM,'
1545 || ':v_inst_rp_src_id,'
1546 || 'DELETED_FLAG,'
1547 || 'REFRESH_ID '
1548 ||'FROM MSC_ST_TRIPS'|| v_dblink
1549 ||' WHERE '
1550 ||' sr_instance_id = ' || to_char(v_src_instance_id);
1551
1552 EXECUTE IMMEDIATE v_sql_stmt USING
1553 v_inst_rp_src_id
1554 ;
1555
1556
1557 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
1558 COMMIT;
1559
1560 EXCEPTION
1561 WHEN OTHERS THEN
1562 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
1563 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1564 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_TRIPS');
1565 v_retcode := 2;
1566 RAISE;
1567 ELSE
1568 IF v_retcode < 2 THEN
1569 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
1570 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_TRIPS');
1571 v_retcode := 1;
1572 END IF;
1573 RETURN;
1574 END IF;
1575 END COPY_TRIPS;
1576 PROCEDURE COPY_TRIP_STOPS IS
1577
1578 BEGIN
1579
1580 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_TRIP_STOPS');
1581 v_sql_stmt:=
1582 'INSERT INTO MSC_ST_TRIP_STOPS ('
1583 || 'STOP_ID,'
1584 || 'STOP_LOCATION_ID,'
1585 || 'STATUS_CODE,'
1586 || 'STOP_SEQUENCE_NUMBER,'
1587 || 'PLANNED_ARRIVAL_DATE,'
1588 || 'PLANNED_DEPARTURE_DATE,'
1589 || 'TRIP_ID,'
1590 || 'SR_INSTANCE_ID,'
1591 || 'DELETED_FLAG,'
1592 || 'REFRESH_ID '
1593 || ')'
1594 ||'SELECT '
1595 || 'STOP_ID,'
1596 || 'STOP_LOCATION_ID,'
1597 || 'STATUS_CODE,'
1598 || 'STOP_SEQUENCE_NUMBER,'
1599 || 'PLANNED_ARRIVAL_DATE,'
1600 || 'PLANNED_DEPARTURE_DATE,'
1601 || 'TRIP_ID,'
1602 || ':v_inst_rp_src_id,'
1603 || 'DELETED_FLAG,'
1604 || 'REFRESH_ID '
1605 ||'FROM MSC_ST_TRIP_STOPS'|| v_dblink
1606 ||' WHERE '
1607 ||' sr_instance_id = ' || to_char(v_src_instance_id);
1608
1609 EXECUTE IMMEDIATE v_sql_stmt USING
1610 v_inst_rp_src_id
1611 ;
1612
1613 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
1614 COMMIT;
1615
1616 EXCEPTION
1617 WHEN OTHERS THEN
1618 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
1619 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1620 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_TRIP_STOPS');
1621 v_retcode := 2;
1622 RAISE;
1623 ELSE
1624 IF v_retcode < 2 THEN
1625 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
1626 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_TRIPS_STOPS');
1627 v_retcode := 1;
1628 END IF;
1629 RETURN;
1630 END IF;
1631 END COPY_TRIP_STOPS;
1632 PROCEDURE COPY_CARRIER_SERVICES IS
1633
1634 BEGIN
1635
1636 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_CARRIER_SERVICES');
1637 v_sql_stmt:=
1638 'INSERT INTO MSC_ST_CARRIER_SERVICES ('
1639 || 'SHIP_METHOD_CODE,'
1640 || 'CARRIER_ID,'
1641 || 'SERVICE_LEVEL,'
1642 || 'MODE_OF_TRANSPORT,'
1643 || 'SR_INSTANCE_ID,'
1644 || 'DELETED_FLAG,'
1645 || 'REFRESH_ID '
1646 || ')'
1647 ||'SELECT '
1648 || 'SHIP_METHOD_CODE,'
1649 || 'CARRIER_ID,'
1650 || 'SERVICE_LEVEL,'
1651 || 'MODE_OF_TRANSPORT,'
1652 || ':v_inst_rp_src_id,'
1653 || 'DELETED_FLAG,'
1654 || 'REFRESH_ID '
1655 ||'FROM MSC_ST_CARRIER_SERVICES'|| v_dblink
1656 ||' WHERE '
1657 ||' sr_instance_id = ' || to_char(v_src_instance_id);
1658
1659 EXECUTE IMMEDIATE v_sql_stmt USING
1660 v_inst_rp_src_id
1661 ;
1662
1663 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
1664 COMMIT;
1665
1666 EXCEPTION
1667 WHEN OTHERS THEN
1668 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
1669 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1670 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_CARRIER_SERVICES');
1671 v_retcode := 2;
1672 RAISE;
1673 ELSE
1674 IF v_retcode < 2 THEN
1675 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
1676 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_CARRIER_SERVICES');
1677 v_retcode := 1;
1678 END IF;
1679 RETURN;
1680 END IF;
1681 END COPY_CARRIER_SERVICES;
1682 PROCEDURE COPY_ASSIGNMENT_SETS IS
1683
1684 BEGIN
1685
1686 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_ASSIGNMENT_SETS');
1687 v_sql_stmt:=
1688 'INSERT INTO MSC_ST_ASSIGNMENT_SETS ('
1689 || 'SR_ASSIGNMENT_SET_ID,'
1690 || 'ASSIGNMENT_SET_NAME,'
1691 || 'DESCRIPTION,'
1692 || 'DELETED_FLAG,'
1693 || 'LAST_UPDATE_DATE,'
1694 || 'LAST_UPDATED_BY,'
1695 || 'CREATION_DATE,'
1696 || 'CREATED_BY,'
1697 || 'LAST_UPDATE_LOGIN,'
1698 || 'REQUEST_ID,'
1699 || 'PROGRAM_APPLICATION_ID,'
1700 || 'PROGRAM_ID,'
1701 || 'PROGRAM_UPDATE_DATE,'
1702 || 'SR_INSTANCE_ID,'
1703 || 'REFRESH_ID '
1704 || ')'
1705 ||'SELECT '
1706 || 'SR_ASSIGNMENT_SET_ID,'
1707 || 'REPLACE(ASSIGNMENT_SET_NAME,:v_ascp_inst,:v_icode),'
1708 || 'DESCRIPTION,'
1709 || 'DELETED_FLAG,'
1710 || 'LAST_UPDATE_DATE,'
1711 || 'LAST_UPDATED_BY,'
1712 || 'CREATION_DATE,'
1713 || 'CREATED_BY,'
1714 || 'LAST_UPDATE_LOGIN,'
1715 || 'REQUEST_ID,'
1716 || 'PROGRAM_APPLICATION_ID,'
1717 || 'PROGRAM_ID,'
1718 || 'PROGRAM_UPDATE_DATE,'
1719 || ':v_inst_rp_src_id,'
1720 || 'REFRESH_ID '
1721 ||'FROM MSC_ST_ASSIGNMENT_SETS'|| v_dblink
1722 ||' WHERE '
1723 ||' sr_instance_id = ' || to_char(v_src_instance_id);
1724
1725 EXECUTE IMMEDIATE v_sql_stmt USING
1726 v_ascp_inst,v_icode
1727 ,v_inst_rp_src_id;
1728
1729 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
1730 COMMIT;
1731
1732 EXCEPTION
1733 WHEN OTHERS THEN
1734 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
1735 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1736 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_ASSIGNMENT_SETS');
1737 v_retcode := 2;
1738 RAISE;
1739 ELSE
1740 IF v_retcode < 2 THEN
1741 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
1742 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_ASSIGNMENT_SETS');
1743 v_retcode := 1;
1744 END IF;
1745 RETURN;
1746 END IF;
1747 END COPY_ASSIGNMENT_SETS;
1748 PROCEDURE COPY_ATP_RULES IS
1749
1750 BEGIN
1751
1752 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_ATP_RULES');
1753 v_sql_stmt:=
1754 'INSERT INTO MSC_ST_ATP_RULES ('
1755 || 'RULE_ID,'
1756 || 'SR_INSTANCE_ID,'
1757 || 'RULE_NAME,'
1758 || 'DESCRIPTION,'
1759 || 'ACCUMULATE_AVAILABLE_FLAG,'
1760 || 'BACKWARD_CONSUMPTION_FLAG,'
1761 || 'FORWARD_CONSUMPTION_FLAG,'
1762 || 'PAST_DUE_DEMAND_CUTOFF_FENCE,'
1763 || 'PAST_DUE_SUPPLY_CUTOFF_FENCE,'
1764 || 'INFINITE_SUPPLY_FENCE_CODE,'
1765 || 'INFINITE_SUPPLY_TIME_FENCE,'
1766 || 'ACCEPTABLE_EARLY_FENCE,'
1767 || 'ACCEPTABLE_LATE_FENCE,'
1768 || 'DEFAULT_ATP_SOURCES,'
1769 || 'INCLUDE_SALES_ORDERS,'
1770 || 'INCLUDE_DISCRETE_WIP_DEMAND,'
1771 || 'INCLUDE_REP_WIP_DEMAND,'
1772 || 'INCLUDE_NONSTD_WIP_DEMAND,'
1773 || 'INCLUDE_DISCRETE_MPS,'
1774 || 'INCLUDE_USER_DEFINED_DEMAND,'
1775 || 'INCLUDE_PURCHASE_ORDERS,'
1776 || 'INCLUDE_DISCRETE_WIP_RECEIPTS,'
1777 || 'INCLUDE_REP_WIP_RECEIPTS,'
1778 || 'INCLUDE_NONSTD_WIP_RECEIPTS,'
1779 || 'INCLUDE_INTERORG_TRANSFERS,'
1780 || 'INCLUDE_ONHAND_AVAILABLE,'
1781 || 'INCLUDE_USER_DEFINED_SUPPLY,'
1782 || 'ACCUMULATION_WINDOW,'
1783 || 'INCLUDE_REP_MPS,'
1784 || 'INCLUDE_INTERNAL_REQS,'
1785 || 'INCLUDE_SUPPLIER_REQS,'
1786 || 'INCLUDE_INTERNAL_ORDERS,'
1787 || 'INCLUDE_FLOW_SCHEDULE_DEMAND,'
1788 || 'USER_ATP_SUPPLY_TABLE_NAME,'
1789 || 'USER_ATP_DEMAND_TABLE_NAME,'
1790 || 'MPS_DESIGNATOR,'
1791 || 'LAST_UPDATE_DATE,'
1792 || 'LAST_UPDATED_BY,'
1793 || 'CREATION_DATE,'
1794 || 'CREATED_BY,'
1795 || 'LAST_UPDATE_LOGIN,'
1796 || 'REQUEST_ID,'
1797 || 'PROGRAM_APPLICATION_ID,'
1798 || 'PROGRAM_ID,'
1799 || 'PROGRAM_UPDATE_DATE,'
1800 || 'REFRESH_ID,'
1801 || 'DEMAND_CLASS_ATP_FLAG,'
1802 || 'INCLUDE_FLOW_SCHEDULE_RECEIPTS,'
1803 || 'AGGREGATE_TIME_FENCE_CODE,'
1804 || 'AGGREGATE_TIME_FENCE '
1805 || ')'
1806 ||'SELECT '
1807 || 'RULE_ID,'
1808 || ':v_inst_rp_src_id,'
1809 || 'RULE_NAME,'
1810 || 'DESCRIPTION,'
1811 || 'ACCUMULATE_AVAILABLE_FLAG,'
1812 || 'BACKWARD_CONSUMPTION_FLAG,'
1813 || 'FORWARD_CONSUMPTION_FLAG,'
1814 || 'PAST_DUE_DEMAND_CUTOFF_FENCE,'
1815 || 'PAST_DUE_SUPPLY_CUTOFF_FENCE,'
1816 || 'INFINITE_SUPPLY_FENCE_CODE,'
1817 || 'INFINITE_SUPPLY_TIME_FENCE,'
1818 || 'ACCEPTABLE_EARLY_FENCE,'
1819 || 'ACCEPTABLE_LATE_FENCE,'
1820 || 'DEFAULT_ATP_SOURCES,'
1821 || 'INCLUDE_SALES_ORDERS,'
1822 || 'INCLUDE_DISCRETE_WIP_DEMAND,'
1823 || 'INCLUDE_REP_WIP_DEMAND,'
1824 || 'INCLUDE_NONSTD_WIP_DEMAND,'
1825 || 'INCLUDE_DISCRETE_MPS,'
1826 || 'INCLUDE_USER_DEFINED_DEMAND,'
1827 || 'INCLUDE_PURCHASE_ORDERS,'
1828 || 'INCLUDE_DISCRETE_WIP_RECEIPTS,'
1829 || 'INCLUDE_REP_WIP_RECEIPTS,'
1830 || 'INCLUDE_NONSTD_WIP_RECEIPTS,'
1831 || 'INCLUDE_INTERORG_TRANSFERS,'
1832 || 'INCLUDE_ONHAND_AVAILABLE,'
1833 || 'INCLUDE_USER_DEFINED_SUPPLY,'
1834 || 'ACCUMULATION_WINDOW,'
1835 || 'INCLUDE_REP_MPS,'
1836 || 'INCLUDE_INTERNAL_REQS,'
1837 || 'INCLUDE_SUPPLIER_REQS,'
1838 || 'INCLUDE_INTERNAL_ORDERS,'
1839 || 'INCLUDE_FLOW_SCHEDULE_DEMAND,'
1840 || 'USER_ATP_SUPPLY_TABLE_NAME,'
1841 || 'USER_ATP_DEMAND_TABLE_NAME,'
1842 || 'MPS_DESIGNATOR,'
1843 || 'LAST_UPDATE_DATE,'
1844 || 'LAST_UPDATED_BY,'
1845 || 'CREATION_DATE,'
1846 || 'CREATED_BY,'
1847 || 'LAST_UPDATE_LOGIN,'
1848 || 'REQUEST_ID,'
1849 || 'PROGRAM_APPLICATION_ID,'
1850 || 'PROGRAM_ID,'
1851 || 'PROGRAM_UPDATE_DATE,'
1852 || 'REFRESH_ID,'
1853 || 'DEMAND_CLASS_ATP_FLAG,'
1854 || 'INCLUDE_FLOW_SCHEDULE_RECEIPTS,'
1855 || 'AGGREGATE_TIME_FENCE_CODE,'
1856 || 'AGGREGATE_TIME_FENCE '
1857 ||'FROM MSC_ST_ATP_RULES'|| v_dblink
1858 ||' WHERE '
1859 ||' sr_instance_id = ' || to_char(v_src_instance_id);
1860
1861 EXECUTE IMMEDIATE v_sql_stmt USING
1862 v_inst_rp_src_id
1863 ;
1864
1865 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
1866 COMMIT;
1867
1868 EXCEPTION
1869 WHEN OTHERS THEN
1870 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
1871 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1872 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_ATP_RULES');
1873 v_retcode := 2;
1874 RAISE;
1875 ELSE
1876 IF v_retcode < 2 THEN
1877 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
1878 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_ATP_RULES');
1879 v_retcode := 1;
1880 END IF;
1881 RETURN;
1882 END IF;
1883
1884 END COPY_ATP_RULES;
1885 PROCEDURE COPY_BILL_OF_RESOURCES IS
1886
1887 BEGIN
1888
1889 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_BILL_OF_RESOURCES');
1890 v_sql_stmt:=
1891 'INSERT INTO MSC_ST_BILL_OF_RESOURCES ('
1892 || 'ORGANIZATION_ID,'
1893 || 'BILL_OF_RESOURCES,'
1894 || 'DESCRIPTION,'
1895 || 'DISABLE_DATE,'
1896 || 'ROLLUP_START_DATE,'
1897 || 'ROLLUP_COMPLETION_DATE,'
1898 || 'DELETED_FLAG,'
1899 || 'LAST_UPDATE_DATE,'
1900 || 'LAST_UPDATED_BY,'
1901 || 'CREATION_DATE,'
1902 || 'CREATED_BY,'
1903 || 'LAST_UPDATE_LOGIN,'
1904 || 'REQUEST_ID,'
1905 || 'PROGRAM_APPLICATION_ID,'
1906 || 'PROGRAM_ID,'
1907 || 'PROGRAM_UPDATE_DATE,'
1908 || 'SR_INSTANCE_ID,'
1909 || 'REFRESH_ID '
1910 || ')'
1911 ||'SELECT '
1912 || 'ORGANIZATION_ID,'
1913 || 'BILL_OF_RESOURCES,'
1914 || 'DESCRIPTION,'
1915 || 'DISABLE_DATE,'
1916 || 'ROLLUP_START_DATE,'
1917 || 'ROLLUP_COMPLETION_DATE,'
1918 || 'DELETED_FLAG,'
1919 || 'LAST_UPDATE_DATE,'
1920 || 'LAST_UPDATED_BY,'
1921 || 'CREATION_DATE,'
1922 || 'CREATED_BY,'
1923 || 'LAST_UPDATE_LOGIN,'
1924 || 'REQUEST_ID,'
1925 || 'PROGRAM_APPLICATION_ID,'
1926 || 'PROGRAM_ID,'
1927 || 'PROGRAM_UPDATE_DATE,'
1928 || ':v_inst_rp_src_id,'
1929 || 'REFRESH_ID '
1930 ||'FROM MSC_ST_BILL_OF_RESOURCES'|| v_dblink
1931 ||' WHERE '
1932 ||' sr_instance_id = ' || to_char(v_src_instance_id);
1933
1934 EXECUTE IMMEDIATE v_sql_stmt USING
1935 v_inst_rp_src_id
1936
1937 ;
1938
1939 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
1940 COMMIT;
1941
1942 EXCEPTION
1943 WHEN OTHERS THEN
1944 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
1945 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
1946 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_BILL_OF_RESOURCES');
1947 v_retcode := 2;
1948 RAISE;
1949 ELSE
1950 IF v_retcode < 2 THEN
1951 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
1952 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_BILL_OF_RESOURCES');
1953 v_retcode := 1;
1954 END IF;
1955 RETURN;
1956 END IF;
1957
1958 END COPY_BILL_OF_RESOURCES;
1959 PROCEDURE COPY_BIS_BUSINESS_PLANS IS
1960
1961 BEGIN
1962
1963 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_BIS_BUSINESS_PLANS');
1964 v_sql_stmt:=
1965 'INSERT INTO MSC_ST_BIS_BUSINESS_PLANS ('
1966 || 'BUSINESS_PLAN_ID,'
1967 || 'SHORT_NAME,'
1968 || 'NAME,'
1969 || 'DESCRIPTION,'
1970 || 'VERSION_NO,'
1971 || 'CURRENT_PLAN_FLAG,'
1972 || 'DELETED_FLAG,'
1973 || 'LAST_UPDATE_DATE,'
1974 || 'LAST_UPDATED_BY,'
1975 || 'CREATION_DATE,'
1976 || 'CREATED_BY,'
1977 || 'LAST_UPDATE_LOGIN,'
1978 || 'REQUEST_ID,'
1979 || 'PROGRAM_APPLICATION_ID,'
1980 || 'PROGRAM_ID,'
1981 || 'PROGRAM_UPDATE_DATE,'
1982 || 'REFRESH_ID,'
1983 || 'SR_INSTANCE_ID '
1984 || ')'
1985 ||'SELECT '
1986 || 'BUSINESS_PLAN_ID,'
1987 || 'SHORT_NAME,'
1988 || 'NAME,'
1989 || 'DESCRIPTION,'
1990 || 'VERSION_NO,'
1991 || 'CURRENT_PLAN_FLAG,'
1992 || 'DELETED_FLAG,'
1993 || 'LAST_UPDATE_DATE,'
1994 || 'LAST_UPDATED_BY,'
1995 || 'CREATION_DATE,'
1996 || 'CREATED_BY,'
1997 || 'LAST_UPDATE_LOGIN,'
1998 || 'REQUEST_ID,'
1999 || 'PROGRAM_APPLICATION_ID,'
2000 || 'PROGRAM_ID,'
2001 || 'PROGRAM_UPDATE_DATE,'
2002 || 'REFRESH_ID,'
2003 || ':v_inst_rp_src_id '
2004 ||'FROM MSC_ST_BIS_BUSINESS_PLANS'|| v_dblink
2005 ||' WHERE '
2006 ||' sr_instance_id = ' || to_char(v_src_instance_id);
2007
2008 EXECUTE IMMEDIATE v_sql_stmt USING
2009 v_inst_rp_src_id
2010 ;
2011
2012 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
2013 COMMIT;
2014
2015
2016 EXCEPTION
2017 WHEN OTHERS THEN
2018 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
2019 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
2020 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_BIS_BUSINESS_PLANS');
2021 v_retcode := 2;
2022 RAISE;
2023 ELSE
2024 IF v_retcode < 2 THEN
2025 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
2026 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_BIS_BUSINESS_PLANS');
2027 v_retcode := 1;
2028 END IF;
2029 RETURN;
2030 END IF;
2031
2032 END COPY_BIS_BUSINESS_PLANS;
2033 PROCEDURE COPY_BIS_PERIODS IS
2034
2035 BEGIN
2036
2037 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_BIS_PERIODS');
2038 v_sql_stmt:=
2039 'INSERT INTO MSC_ST_BIS_PERIODS ('
2040 || 'ORGANIZATION_ID,'
2041 || 'PERIOD_SET_NAME,'
2042 || 'PERIOD_NAME,'
2043 || 'START_DATE,'
2044 || 'END_DATE,'
2045 || 'PERIOD_TYPE,'
2046 || 'PERIOD_YEAR,'
2047 || 'PERIOD_NUM,'
2048 || 'QUARTER_NUM,'
2049 || 'ENTERED_PERIOD_NAME,'
2050 || 'ADJUSTMENT_PERIOD_FLAG,'
2051 || 'DESCRIPTION,'
2052 || 'CONTEXT,'
2053 || 'YEAR_START_DATE,'
2054 || 'QUARTER_START_DATE,'
2055 || 'LAST_UPDATE_DATE,'
2056 || 'LAST_UPDATED_BY,'
2057 || 'CREATION_DATE,'
2058 || 'CREATED_BY,'
2059 || 'LAST_UPDATE_LOGIN,'
2060 || 'REQUEST_ID,'
2061 || 'PROGRAM_APPLICATION_ID,'
2062 || 'PROGRAM_ID,'
2063 || 'PROGRAM_UPDATE_DATE,'
2064 || 'REFRESH_ID,'
2065 || 'SR_INSTANCE_ID '
2066 || ')'
2067 ||'SELECT '
2068 || 'ORGANIZATION_ID,'
2069 || 'PERIOD_SET_NAME,'
2070 || 'PERIOD_NAME,'
2071 || 'START_DATE,'
2072 || 'END_DATE,'
2073 || 'PERIOD_TYPE,'
2074 || 'PERIOD_YEAR,'
2075 || 'PERIOD_NUM,'
2076 || 'QUARTER_NUM,'
2077 || 'ENTERED_PERIOD_NAME,'
2078 || 'ADJUSTMENT_PERIOD_FLAG,'
2079 || 'DESCRIPTION,'
2080 || 'CONTEXT,'
2081 || 'YEAR_START_DATE,'
2082 || 'QUARTER_START_DATE,'
2083 || 'LAST_UPDATE_DATE,'
2084 || 'LAST_UPDATED_BY,'
2085 || 'CREATION_DATE,'
2086 || 'CREATED_BY,'
2087 || 'LAST_UPDATE_LOGIN,'
2088 || 'REQUEST_ID,'
2089 || 'PROGRAM_APPLICATION_ID,'
2090 || 'PROGRAM_ID,'
2091 || 'PROGRAM_UPDATE_DATE,'
2092 || 'REFRESH_ID,'
2093 || ':v_inst_rp_src_id '
2094 ||'FROM MSC_ST_BIS_PERIODS'|| v_dblink
2095 ||' WHERE '
2096 ||' sr_instance_id = ' || to_char(v_src_instance_id);
2097
2098 EXECUTE IMMEDIATE v_sql_stmt USING
2099 v_inst_rp_src_id
2100 ;
2101
2102 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
2103 COMMIT;
2104
2105 EXCEPTION
2106 WHEN OTHERS THEN
2107 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
2108 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
2109 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_BIS_PERIODS');
2110 v_retcode := 2;
2111 RAISE;
2112 ELSE
2113 IF v_retcode < 2 THEN
2114 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
2115 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_BIS_PERIODS');
2116 v_retcode := 1;
2117 END IF;
2118 RETURN;
2119 END IF;
2120
2121 END COPY_BIS_PERIODS;
2122 PROCEDURE COPY_BIS_PFMC_MEASURES IS
2123
2124 BEGIN
2125
2126 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_BIS_PFMC_MEASURES');
2127 v_sql_stmt:=
2128 'INSERT INTO MSC_ST_BIS_PFMC_MEASURES ('
2129 || 'MEASURE_ID,'
2130 || 'MEASURE_SHORT_NAME,'
2131 || 'MEASURE_NAME,'
2132 || 'DESCRIPTION,'
2133 || 'ORG_DIMENSION_ID,'
2134 || 'TIME_DIMENSION_ID,'
2135 || 'DIMENSION1_ID,'
2136 || 'DIMENSION2_ID,'
2137 || 'DIMENSION3_ID,'
2138 || 'DIMENSION4_ID,'
2139 || 'DIMENSION5_ID,'
2140 || 'UNIT_OF_MEASURE_CLASS,'
2141 || 'DELETED_FLAG,'
2142 || 'LAST_UPDATE_DATE,'
2143 || 'LAST_UPDATED_BY,'
2144 || 'CREATION_DATE,'
2145 || 'CREATED_BY,'
2146 || 'LAST_UPDATE_LOGIN,'
2147 || 'REQUEST_ID,'
2148 || 'PROGRAM_APPLICATION_ID,'
2149 || 'PROGRAM_ID,'
2150 || 'PROGRAM_UPDATE_DATE,'
2151 || 'REFRESH_ID,'
2152 || 'SR_INSTANCE_ID '
2153 || ')'
2154 ||'SELECT '
2155 || 'MEASURE_ID,'
2156 || 'MEASURE_SHORT_NAME,'
2157 || 'MEASURE_NAME,'
2158 || 'DESCRIPTION,'
2159 || 'ORG_DIMENSION_ID,'
2160 || 'TIME_DIMENSION_ID,'
2161 || 'DIMENSION1_ID,'
2162 || 'DIMENSION2_ID,'
2163 || 'DIMENSION3_ID,'
2164 || 'DIMENSION4_ID,'
2165 || 'DIMENSION5_ID,'
2166 || 'UNIT_OF_MEASURE_CLASS,'
2167 || 'DELETED_FLAG,'
2168 || 'LAST_UPDATE_DATE,'
2169 || 'LAST_UPDATED_BY,'
2170 || 'CREATION_DATE,'
2171 || 'CREATED_BY,'
2172 || 'LAST_UPDATE_LOGIN,'
2173 || 'REQUEST_ID,'
2174 || 'PROGRAM_APPLICATION_ID,'
2175 || 'PROGRAM_ID,'
2176 || 'PROGRAM_UPDATE_DATE,'
2177 || 'REFRESH_ID,'
2178 || ':v_inst_rp_src_id '
2179 ||'FROM MSC_ST_BIS_PFMC_MEASURES'|| v_dblink
2180 ||' WHERE '
2181 ||' sr_instance_id = ' || to_char(v_src_instance_id);
2182
2183 EXECUTE IMMEDIATE v_sql_stmt USING
2184 v_inst_rp_src_id
2185 ;
2186
2187 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
2188 COMMIT;
2189
2190 EXCEPTION
2191 WHEN OTHERS THEN
2192 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
2193 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
2194 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_BIS_PFMC_MEASURES');
2195 v_retcode := 2;
2196 RAISE;
2197 ELSE
2198 IF v_retcode < 2 THEN
2199 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
2200 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_BIS_PFMC_MEASURES');
2201 v_retcode := 1;
2202 END IF;
2203 RETURN;
2204 END IF;
2205 END COPY_BIS_PFMC_MEASURES;
2206 PROCEDURE COPY_BIS_TARGETS IS
2207
2208 BEGIN
2209
2210 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_BIS_TARGETS');
2211 v_sql_stmt:=
2212 'INSERT INTO MSC_ST_BIS_TARGETS ('
2213 || 'TARGET_ID,'
2214 || 'TARGET_LEVEL_ID,'
2215 || 'BUSINESS_PLAN_ID,'
2216 || 'ORG_LEVEL_VALUE_ID,'
2217 || 'TIME_LEVEL_VALUE_ID,'
2218 || 'DIM1_LEVEL_VALUE_ID,'
2219 || 'DIM2_LEVEL_VALUE_ID,'
2220 || 'DIM3_LEVEL_VALUE_ID,'
2221 || 'DIM4_LEVEL_VALUE_ID,'
2222 || 'DIM5_LEVEL_VALUE_ID,'
2223 || 'TARGET,'
2224 || 'RANGE1_LOW,'
2225 || 'RANGE1_HIGH,'
2226 || 'RANGE2_LOW,'
2227 || 'RANGE2_HIGH,'
2228 || 'RANGE3_LOW,'
2229 || 'RANGE3_HIGH,'
2230 || 'NOTIFY_RESP1_ID,'
2231 || 'NOTIFY_RESP1_SHORT_NAME,'
2232 || 'NOTIFY_RESP2_ID,'
2233 || 'NOTIFY_RESP2_SHORT_NAME,'
2234 || 'NOTIFY_RESP3_ID,'
2235 || 'NOTIFY_RESP3_SHORT_NAME,'
2236 || 'DELETED_FLAG,'
2237 || 'LAST_UPDATE_DATE,'
2238 || 'LAST_UPDATED_BY,'
2239 || 'CREATION_DATE,'
2240 || 'CREATED_BY,'
2241 || 'LAST_UPDATE_LOGIN,'
2242 || 'REQUEST_ID,'
2243 || 'PROGRAM_APPLICATION_ID,'
2244 || 'PROGRAM_ID,'
2245 || 'PROGRAM_UPDATE_DATE,'
2246 || 'REFRESH_ID,'
2247 || 'SR_INSTANCE_ID '
2248 || ')'
2249 ||'SELECT '
2250 || 'TARGET_ID,'
2251 || 'TARGET_LEVEL_ID,'
2252 || 'BUSINESS_PLAN_ID,'
2253 || 'ORG_LEVEL_VALUE_ID,'
2254 || 'TIME_LEVEL_VALUE_ID,'
2255 || 'DIM1_LEVEL_VALUE_ID,'
2256 || 'DIM2_LEVEL_VALUE_ID,'
2257 || 'DIM3_LEVEL_VALUE_ID,'
2258 || 'DIM4_LEVEL_VALUE_ID,'
2259 || 'DIM5_LEVEL_VALUE_ID,'
2260 || 'TARGET,'
2261 || 'RANGE1_LOW,'
2262 || 'RANGE1_HIGH,'
2263 || 'RANGE2_LOW,'
2264 || 'RANGE2_HIGH,'
2265 || 'RANGE3_LOW,'
2266 || 'RANGE3_HIGH,'
2267 || 'NOTIFY_RESP1_ID,'
2268 || 'NOTIFY_RESP1_SHORT_NAME,'
2269 || 'NOTIFY_RESP2_ID,'
2270 || 'NOTIFY_RESP2_SHORT_NAME,'
2271 || 'NOTIFY_RESP3_ID,'
2272 || 'NOTIFY_RESP3_SHORT_NAME,'
2273 || 'DELETED_FLAG,'
2274 || 'LAST_UPDATE_DATE,'
2275 || 'LAST_UPDATED_BY,'
2276 || 'CREATION_DATE,'
2277 || 'CREATED_BY,'
2278 || 'LAST_UPDATE_LOGIN,'
2279 || 'REQUEST_ID,'
2280 || 'PROGRAM_APPLICATION_ID,'
2281 || 'PROGRAM_ID,'
2282 || 'PROGRAM_UPDATE_DATE,'
2283 || 'REFRESH_ID,'
2284 || ':v_inst_rp_src_id '
2285 ||'FROM MSC_ST_BIS_TARGETS'|| v_dblink
2286 ||' WHERE '
2287 ||' sr_instance_id = ' || to_char(v_src_instance_id);
2288
2289 EXECUTE IMMEDIATE v_sql_stmt USING
2290 v_inst_rp_src_id
2291 ;
2292
2293 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
2294 COMMIT;
2295
2296
2297 EXCEPTION
2298 WHEN OTHERS THEN
2299 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
2300 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
2301 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_BIS_TARGETS');
2302 v_retcode := 2;
2303 RAISE;
2304 ELSE
2305 IF v_retcode < 2 THEN
2306 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
2307 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_BIS_TARGETS');
2308 v_retcode := 1;
2309 END IF;
2310 RETURN;
2311 END IF;
2312
2313 END COPY_BIS_TARGETS;
2314 PROCEDURE COPY_BIS_TARGET_LEVELS IS
2315
2316 BEGIN
2317
2318 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_BIS_TARGET_LEVELS');
2319 v_sql_stmt:=
2320 'INSERT INTO MSC_ST_BIS_TARGET_LEVELS ('
2321 || 'TARGET_LEVEL_ID,'
2322 || 'TARGET_LEVEL_SHORT_NAME,'
2323 || 'TARGET_LEVEL_NAME,'
2324 || 'DESCRIPTION,'
2325 || 'MEASURE_ID,'
2326 || 'ORG_LEVEL_ID,'
2327 || 'TIME_LEVEL_ID,'
2328 || 'DIMENSION1_LEVEL_ID,'
2329 || 'DIMENSION2_LEVEL_ID,'
2330 || 'DIMENSION3_LEVEL_ID,'
2331 || 'DIMENSION4_LEVEL_ID,'
2332 || 'DIMENSION5_LEVEL_ID,'
2333 || 'WORKFLOW_ITEM_TYPE,'
2334 || 'WORKFLOW_PROCESS_SHORT_NAME,'
2335 || 'DEFAULT_NOTIFY_RESP_ID,'
2336 || 'DEFAULT_NOTIFY_RESP_SHORT_NAME,'
2337 || 'COMPUTING_FUNCTION_ID,'
2338 || 'REPORT_FUNCTION_ID,'
2339 || 'UNIT_OF_MEASURE,'
2340 || 'SYSTEM_FLAG,'
2341 || 'DELETED_FLAG,'
2342 || 'LAST_UPDATE_DATE,'
2343 || 'LAST_UPDATED_BY,'
2344 || 'CREATION_DATE,'
2345 || 'CREATED_BY,'
2346 || 'LAST_UPDATE_LOGIN,'
2347 || 'REQUEST_ID,'
2348 || 'PROGRAM_APPLICATION_ID,'
2349 || 'PROGRAM_ID,'
2350 || 'PROGRAM_UPDATE_DATE,'
2351 || 'REFRESH_ID,'
2352 || 'SR_INSTANCE_ID '
2353 || ')'
2354 ||'SELECT '
2355 || 'TARGET_LEVEL_ID,'
2356 || 'TARGET_LEVEL_SHORT_NAME,'
2357 || 'TARGET_LEVEL_NAME,'
2358 || 'DESCRIPTION,'
2359 || 'MEASURE_ID,'
2360 || 'ORG_LEVEL_ID,'
2361 || 'TIME_LEVEL_ID,'
2362 || 'DIMENSION1_LEVEL_ID,'
2363 || 'DIMENSION2_LEVEL_ID,'
2364 || 'DIMENSION3_LEVEL_ID,'
2365 || 'DIMENSION4_LEVEL_ID,'
2366 || 'DIMENSION5_LEVEL_ID,'
2367 || 'WORKFLOW_ITEM_TYPE,'
2368 || 'WORKFLOW_PROCESS_SHORT_NAME,'
2369 || 'DEFAULT_NOTIFY_RESP_ID,'
2370 || 'DEFAULT_NOTIFY_RESP_SHORT_NAME,'
2371 || 'COMPUTING_FUNCTION_ID,'
2372 || 'REPORT_FUNCTION_ID,'
2373 || 'UNIT_OF_MEASURE,'
2374 || 'SYSTEM_FLAG,'
2375 || 'DELETED_FLAG,'
2376 || 'LAST_UPDATE_DATE,'
2377 || 'LAST_UPDATED_BY,'
2378 || 'CREATION_DATE,'
2379 || 'CREATED_BY,'
2380 || 'LAST_UPDATE_LOGIN,'
2381 || 'REQUEST_ID,'
2382 || 'PROGRAM_APPLICATION_ID,'
2383 || 'PROGRAM_ID,'
2384 || 'PROGRAM_UPDATE_DATE,'
2385 || 'REFRESH_ID,'
2386 || ':v_inst_rp_src_id '
2387 ||'FROM MSC_ST_BIS_TARGET_LEVELS'|| v_dblink
2388 ||' WHERE '
2389 ||' sr_instance_id = ' || to_char(v_src_instance_id);
2390
2391 EXECUTE IMMEDIATE v_sql_stmt USING
2392 v_inst_rp_src_id
2393
2394 ;
2395
2396 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
2397 COMMIT;
2398
2399 EXCEPTION
2400 WHEN OTHERS THEN
2401 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
2402 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
2403 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_BIS_TARGET_LEVELS');
2404 v_retcode := 2;
2405 RAISE;
2406 ELSE
2407 IF v_retcode < 2 THEN
2408 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
2409 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_BIS_TARGET_LEVELS');
2410 v_retcode := 1;
2411 END IF;
2412 RETURN;
2413 END IF;
2414
2415 END COPY_BIS_TARGET_LEVELS;
2416 PROCEDURE COPY_BOMS IS
2417
2418 BEGIN
2419
2420 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_BOMS');
2421 v_sql_stmt:=
2422 'INSERT INTO MSC_ST_BOMS ('
2423 || 'BILL_SEQUENCE_ID,'
2424 || 'ORGANIZATION_ID,'
2425 || 'ASSEMBLY_ITEM_ID,'
2426 || 'ASSEMBLY_TYPE,'
2427 || 'ALTERNATE_BOM_DESIGNATOR,'
2428 || 'SPECIFIC_ASSEMBLY_COMMENT,'
2429 || 'PENDING_FROM_ECN,'
2430 || 'COMMON_BILL_SEQUENCE_ID,'
2431 || 'SCALING_TYPE,'
2432 || 'BOM_SCALING_TYPE,'
2433 || 'ASSEMBLY_QUANTITY,'
2434 || 'UOM,'
2435 || 'DELETED_FLAG,'
2436 || 'LAST_UPDATE_DATE,'
2437 || 'LAST_UPDATED_BY,'
2438 || 'CREATION_DATE,'
2439 || 'CREATED_BY,'
2440 || 'LAST_UPDATE_LOGIN,'
2441 || 'REQUEST_ID,'
2442 || 'PROGRAM_APPLICATION_ID,'
2443 || 'PROGRAM_ID,'
2444 || 'PROGRAM_UPDATE_DATE,'
2445 || 'SR_INSTANCE_ID,'
2446 || 'REFRESH_ID,'
2447 || 'COMPANY_ID,'
2448 || 'COMPANY_NAME,'
2449 || 'BOM_NAME,'
2450 || 'ORGANIZATION_CODE,'
2451 || 'ASSEMBLY_NAME,'
2452 || 'SR_INSTANCE_CODE,'
2453 || 'MESSAGE_ID,'
2454 || 'PROCESS_FLAG,'
2455 || 'ERROR_TEXT,'
2456 || 'DATA_SOURCE_TYPE,'
2457 || 'ST_TRANSACTION_ID,'
2458 || 'BATCH_ID,'
2459 || 'ITEM_PROCESS_COST,'
2460 || 'SOURCE_ORGANIZATION_ID,'
2461 || 'SOURCE_BILL_SEQUENCE_ID,'
2462 || 'SOURCE_INVENTORY_ITEM_ID,'
2463 || 'OPERATION_SEQ_NUM '
2464 || ')'
2465 ||'SELECT '
2466 || 'BILL_SEQUENCE_ID,'
2467 || 'ORGANIZATION_ID,'
2468 || 'ASSEMBLY_ITEM_ID,'
2469 || 'ASSEMBLY_TYPE,'
2470 || 'ALTERNATE_BOM_DESIGNATOR,'
2471 || 'SPECIFIC_ASSEMBLY_COMMENT,'
2472 || 'PENDING_FROM_ECN,'
2473 || 'COMMON_BILL_SEQUENCE_ID,'
2474 || 'SCALING_TYPE,'
2475 || 'BOM_SCALING_TYPE,'
2476 || 'ASSEMBLY_QUANTITY,'
2477 || 'UOM,'
2478 || 'DELETED_FLAG,'
2479 || 'LAST_UPDATE_DATE,'
2480 || 'LAST_UPDATED_BY,'
2481 || 'CREATION_DATE,'
2482 || 'CREATED_BY,'
2483 || 'LAST_UPDATE_LOGIN,'
2484 || 'REQUEST_ID,'
2485 || 'PROGRAM_APPLICATION_ID,'
2486 || 'PROGRAM_ID,'
2487 || 'PROGRAM_UPDATE_DATE,'
2488 || ':v_inst_rp_src_id,'
2489 || 'REFRESH_ID,'
2490 || 'COMPANY_ID,'
2491 || 'COMPANY_NAME,'
2492 || 'BOM_NAME,'
2493 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
2494 || 'ASSEMBLY_NAME,'
2495 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
2496 || 'MESSAGE_ID,'
2497 || 'PROCESS_FLAG,'
2498 || 'ERROR_TEXT,'
2499 || 'DATA_SOURCE_TYPE,'
2500 || 'ST_TRANSACTION_ID,'
2501 || 'BATCH_ID,'
2502 || 'ITEM_PROCESS_COST,'
2503 || 'SOURCE_ORGANIZATION_ID,'
2504 || 'SOURCE_BILL_SEQUENCE_ID,'
2505 || 'SOURCE_INVENTORY_ITEM_ID,'
2506 || 'OPERATION_SEQ_NUM '
2507 ||'FROM MSC_ST_BOMS'|| v_dblink
2508 ||' WHERE '
2509 ||' sr_instance_id = ' || to_char(v_src_instance_id);
2510
2511 EXECUTE IMMEDIATE v_sql_stmt USING
2512 v_inst_rp_src_id
2513 ,v_ascp_inst,v_icode
2514 ,v_ascp_inst,v_icode
2515 ;
2516
2517 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
2518 COMMIT;
2519
2520 EXCEPTION
2521 WHEN OTHERS THEN
2522 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
2523 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
2524 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_BOMS');
2525 v_retcode := 2;
2526 RAISE;
2527 ELSE
2528 IF v_retcode < 2 THEN
2529 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
2530 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_BOMS');
2531 v_retcode := 1;
2532 END IF;
2533 RETURN;
2534 END IF;
2535
2536 END COPY_BOMS;
2537 PROCEDURE COPY_BOM_COMPONENTS IS
2538
2539 BEGIN
2540
2541 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_BOM_COMPONENTS');
2542 v_sql_stmt:=
2543 'INSERT INTO MSC_ST_BOM_COMPONENTS ('
2544 || 'COMPONENT_SEQUENCE_ID,'
2545 || 'ORGANIZATION_ID,'
2546 || 'INVENTORY_ITEM_ID,'
2547 || 'USING_ASSEMBLY_ID,'
2548 || 'BILL_SEQUENCE_ID,'
2549 || 'COMPONENT_TYPE,'
2550 || 'SCALING_TYPE,'
2551 || 'CHANGE_NOTICE,'
2552 || 'REVISION,'
2553 || 'UOM_CODE,'
2554 || 'USAGE_QUANTITY,'
2555 || 'EFFECTIVITY_DATE,'
2556 || 'DISABLE_DATE,'
2557 || 'FROM_UNIT_NUMBER,'
2558 || 'TO_UNIT_NUMBER,'
2559 || 'USE_UP_CODE,'
2560 || 'SUGGESTED_EFFECTIVITY_DATE,'
2561 || 'DRIVING_ITEM_ID,'
2562 || 'OPERATION_OFFSET_PERCENT,'
2563 || 'OPTIONAL_COMPONENT,'
2564 || 'OLD_EFFECTIVITY_DATE,'
2565 || 'WIP_SUPPLY_TYPE,'
2566 || 'PLANNING_FACTOR,'
2567 || 'ATP_FLAG,'
2568 || 'COMPONENT_YIELD_FACTOR,'
2569 || 'REVISED_ITEM_SEQUENCE_ID,'
2570 || 'STATUS_TYPE,'
2571 || 'DELETED_FLAG,'
2572 || 'LAST_UPDATE_DATE,'
2573 || 'LAST_UPDATED_BY,'
2574 || 'CREATION_DATE,'
2575 || 'CREATED_BY,'
2576 || 'LAST_UPDATE_LOGIN,'
2577 || 'REQUEST_ID,'
2578 || 'PROGRAM_APPLICATION_ID,'
2579 || 'PROGRAM_ID,'
2580 || 'PROGRAM_UPDATE_DATE,'
2581 || 'SR_INSTANCE_ID,'
2582 || 'REFRESH_ID,'
2583 || 'COMPANY_ID,'
2584 || 'COMPANY_NAME,'
2585 || 'BOM_NAME,'
2586 || 'ORGANIZATION_CODE,'
2587 || 'ASSEMBLY_NAME,'
2588 || 'SR_INSTANCE_CODE,'
2589 || 'COMPONENT_NAME,'
2590 || 'OPERATION_SEQ_CODE,'
2591 || 'DRIVING_ITEM_NAME,'
2592 || 'ALTERNATE_BOM_DESIGNATOR,'
2593 || 'ERROR_TEXT,'
2594 || 'MESSAGE_ID,'
2595 || 'PROCESS_FLAG,'
2596 || 'DATA_SOURCE_TYPE,'
2597 || 'ST_TRANSACTION_ID,'
2598 || 'BATCH_ID,'
2599 || 'SCALE_MULTIPLE,'
2600 || 'SCALE_ROUNDING_VARIANCE,'
2601 || 'ROUNDING_DIRECTION,'
2602 || 'PRIMARY_FLAG,'
2603 || 'SOURCE_ORGANIZATION_ID,'
2604 || 'SOURCE_BILL_SEQUENCE_ID,'
2605 || 'SOURCE_COMPONENT_SEQUENCE_ID,'
2606 || 'SOURCE_USING_ASSEMBLY_ID,'
2607 || 'SOURCE_INVENTORY_ITEM_ID,'
2608 || 'SOURCE_DRIVING_ITEM_ID,'
2609 || 'CONTRIBUTE_TO_STEP_QTY '
2610 || ')'
2611 ||'SELECT '
2612 || 'COMPONENT_SEQUENCE_ID,'
2613 || 'ORGANIZATION_ID,'
2614 || 'INVENTORY_ITEM_ID,'
2615 || 'USING_ASSEMBLY_ID,'
2616 || 'BILL_SEQUENCE_ID,'
2617 || 'COMPONENT_TYPE,'
2618 || 'SCALING_TYPE,'
2619 || 'CHANGE_NOTICE,'
2620 || 'REVISION,'
2621 || 'UOM_CODE,'
2622 || 'USAGE_QUANTITY,'
2623 || 'EFFECTIVITY_DATE,'
2624 || 'DISABLE_DATE,'
2625 || 'FROM_UNIT_NUMBER,'
2626 || 'TO_UNIT_NUMBER,'
2627 || 'USE_UP_CODE,'
2628 || 'SUGGESTED_EFFECTIVITY_DATE,'
2629 || 'DRIVING_ITEM_ID,'
2630 || 'OPERATION_OFFSET_PERCENT,'
2631 || 'OPTIONAL_COMPONENT,'
2632 || 'OLD_EFFECTIVITY_DATE,'
2633 || 'WIP_SUPPLY_TYPE,'
2634 || 'PLANNING_FACTOR,'
2635 || 'ATP_FLAG,'
2636 || 'COMPONENT_YIELD_FACTOR,'
2637 || 'REVISED_ITEM_SEQUENCE_ID,'
2638 || 'STATUS_TYPE,'
2639 || 'DELETED_FLAG,'
2640 || 'LAST_UPDATE_DATE,'
2641 || 'LAST_UPDATED_BY,'
2642 || 'CREATION_DATE,'
2643 || 'CREATED_BY,'
2644 || 'LAST_UPDATE_LOGIN,'
2645 || 'REQUEST_ID,'
2646 || 'PROGRAM_APPLICATION_ID,'
2647 || 'PROGRAM_ID,'
2648 || 'PROGRAM_UPDATE_DATE,'
2649 || ':v_inst_rp_src_id,'
2650 || 'REFRESH_ID,'
2651 || 'COMPANY_ID,'
2652 || 'COMPANY_NAME,'
2653 || 'BOM_NAME,'
2654 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
2655 || 'ASSEMBLY_NAME,'
2656 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
2657 || 'COMPONENT_NAME,'
2658 || 'OPERATION_SEQ_CODE,'
2659 || 'DRIVING_ITEM_NAME,'
2660 || 'ALTERNATE_BOM_DESIGNATOR,'
2661 || 'ERROR_TEXT,'
2662 || 'MESSAGE_ID,'
2663 || 'PROCESS_FLAG,'
2664 || 'DATA_SOURCE_TYPE,'
2665 || 'ST_TRANSACTION_ID,'
2666 || 'BATCH_ID,'
2667 || 'SCALE_MULTIPLE,'
2668 || 'SCALE_ROUNDING_VARIANCE,'
2669 || 'ROUNDING_DIRECTION,'
2670 || 'PRIMARY_FLAG,'
2671 || 'SOURCE_ORGANIZATION_ID,'
2672 || 'SOURCE_BILL_SEQUENCE_ID,'
2673 || 'SOURCE_COMPONENT_SEQUENCE_ID,'
2674 || 'SOURCE_USING_ASSEMBLY_ID,'
2675 || 'SOURCE_INVENTORY_ITEM_ID,'
2676 || 'SOURCE_DRIVING_ITEM_ID,'
2677 || 'CONTRIBUTE_TO_STEP_QTY '
2678 ||'FROM MSC_ST_BOM_COMPONENTS'|| v_dblink
2679 ||' WHERE '
2680 ||' sr_instance_id = ' || to_char(v_src_instance_id);
2681
2682 EXECUTE IMMEDIATE v_sql_stmt USING
2683 v_inst_rp_src_id
2684 ,v_ascp_inst,v_icode
2685 ,v_ascp_inst,v_icode
2686 ;
2687
2688 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
2689 COMMIT;
2690
2691 EXCEPTION
2692 WHEN OTHERS THEN
2693 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
2694 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
2695 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_BOM_COMPONENTS');
2696 v_retcode := 2;
2697 RAISE;
2698 ELSE
2699 IF v_retcode < 2 THEN
2700 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
2701 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_BOM_COMPONENTS');
2702 v_retcode := 1;
2703 END IF;
2704 RETURN;
2705 END IF;
2706 END COPY_BOM_COMPONENTS;
2707 PROCEDURE COPY_BOR_REQUIREMENTS IS
2708
2709 BEGIN
2710
2711 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_BOR_REQUIREMENTS');
2712 v_sql_stmt:=
2713 'INSERT INTO MSC_ST_BOR_REQUIREMENTS ('
2714 || 'BILL_OF_RESOURCES,'
2715 || 'ORGANIZATION_ID,'
2716 || 'ASSEMBLY_ITEM_ID,'
2717 || 'SR_TRANSACTION_ID,'
2718 || 'SOURCE_ITEM_ID,'
2719 || 'RESOURCE_ID,'
2720 || 'RESOURCE_DEPARTMENT_HOURS,'
2721 || 'OPERATION_SEQUENCE_ID,'
2722 || 'OPERATION_SEQ_NUM,'
2723 || 'RESOURCE_SEQ_NUM,'
2724 || 'SETBACK_DAYS,'
2725 || 'DEPARTMENT_ID,'
2726 || 'LINE_ID,'
2727 || 'ASSEMBLY_USAGE,'
2728 || 'ORIGINATION_TYPE,'
2729 || 'RESOURCE_UNITS,'
2730 || 'BASIS,'
2731 || 'DELETED_FLAG,'
2732 || 'LAST_UPDATE_DATE,'
2733 || 'LAST_UPDATED_BY,'
2734 || 'CREATION_DATE,'
2735 || 'CREATED_BY,'
2736 || 'LAST_UPDATE_LOGIN,'
2737 || 'REQUEST_ID,'
2738 || 'PROGRAM_APPLICATION_ID,'
2739 || 'PROGRAM_ID,'
2740 || 'PROGRAM_UPDATE_DATE,'
2741 || 'SR_INSTANCE_ID,'
2742 || 'REFRESH_ID '
2743 || ')'
2744 ||'SELECT '
2745 || 'BILL_OF_RESOURCES,'
2746 || 'ORGANIZATION_ID,'
2747 || 'ASSEMBLY_ITEM_ID,'
2748 || 'SR_TRANSACTION_ID,'
2749 || 'SOURCE_ITEM_ID,'
2750 || 'RESOURCE_ID,'
2751 || 'RESOURCE_DEPARTMENT_HOURS,'
2752 || 'OPERATION_SEQUENCE_ID,'
2753 || 'OPERATION_SEQ_NUM,'
2754 || 'RESOURCE_SEQ_NUM,'
2755 || 'SETBACK_DAYS,'
2756 || 'DEPARTMENT_ID,'
2757 || 'LINE_ID,'
2758 || 'ASSEMBLY_USAGE,'
2759 || 'ORIGINATION_TYPE,'
2760 || 'RESOURCE_UNITS,'
2761 || 'BASIS,'
2762 || 'DELETED_FLAG,'
2763 || 'LAST_UPDATE_DATE,'
2764 || 'LAST_UPDATED_BY,'
2765 || 'CREATION_DATE,'
2766 || 'CREATED_BY,'
2767 || 'LAST_UPDATE_LOGIN,'
2768 || 'REQUEST_ID,'
2769 || 'PROGRAM_APPLICATION_ID,'
2770 || 'PROGRAM_ID,'
2771 || 'PROGRAM_UPDATE_DATE,'
2772 || ':v_inst_rp_src_id,'
2773 || 'REFRESH_ID '
2774 ||'FROM MSC_ST_BOR_REQUIREMENTS'|| v_dblink
2775 ||' WHERE '
2776 ||' sr_instance_id = ' || to_char(v_src_instance_id);
2777
2778 EXECUTE IMMEDIATE v_sql_stmt USING
2779 v_inst_rp_src_id
2780 ;
2781
2782 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
2783 COMMIT;
2784
2785 EXCEPTION
2786 WHEN OTHERS THEN
2787 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
2788 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
2789 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_BOR_REQUIREMENTS');
2790 v_retcode := 2;
2791 RAISE;
2792 ELSE
2793 IF v_retcode < 2 THEN
2794 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
2795 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_BOR_REQUIREMENTS');
2796 v_retcode := 1;
2797 END IF;
2798 RETURN;
2799 END IF;
2800 END COPY_BOR_REQUIREMENTS;
2801 PROCEDURE COPY_CALENDARS IS
2802
2803 BEGIN
2804
2805 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_CALENDARS');
2806 v_sql_stmt:=
2807 'INSERT INTO MSC_ST_CALENDARS ('
2808 || 'CALENDAR_CODE,'
2809 || 'DESCRIPTION,'
2810 || 'DAYS_ON,'
2811 || 'DAYS_OFF,'
2812 || 'CALENDAR_START_DATE,'
2813 || 'CALENDAR_END_DATE,'
2814 || 'QUARTERLY_CALENDAR_TYPE,'
2815 || 'SR_INSTANCE_CODE,'
2816 || 'SR_INSTANCE_ID,'
2817 || 'DELETED_FLAG,'
2818 || 'LAST_UPDATE_DATE,'
2819 || 'LAST_UPDATED_BY,'
2820 || 'CREATION_DATE,'
2821 || 'CREATED_BY,'
2822 || 'LAST_UPDATE_LOGIN,'
2823 || 'REQUEST_ID,'
2824 || 'PROGRAM_APPLICATION_ID,'
2825 || 'PROGRAM_ID,'
2826 || 'PROGRAM_UPDATE_DATE,'
2827 || 'REFRESH_ID,'
2828 || 'MESSAGE_ID,'
2829 || 'PROCESS_FLAG,'
2830 || 'DATA_SOURCE_TYPE,'
2831 || 'ST_TRANSACTION_ID,'
2832 || 'ERROR_TEXT,'
2833 || 'OVERWRITE_FLAG,'
2834 || 'WEEK_START_DAY,'
2835 || 'COMPANY_NAME,'
2836 || 'COMPANY_ID '
2837 || ')'
2838 ||'SELECT '
2839 || 'REPLACE(CALENDAR_CODE,:v_ascp_inst,:v_icode),'
2840 || 'DESCRIPTION,'
2841 || 'DAYS_ON,'
2842 || 'DAYS_OFF,'
2843 || 'CALENDAR_START_DATE,'
2844 || 'CALENDAR_END_DATE,'
2845 || 'QUARTERLY_CALENDAR_TYPE,'
2846 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
2847 || ':v_inst_rp_src_id,'
2848 || 'DELETED_FLAG,'
2849 || 'LAST_UPDATE_DATE,'
2850 || 'LAST_UPDATED_BY,'
2851 || 'CREATION_DATE,'
2852 || 'CREATED_BY,'
2853 || 'LAST_UPDATE_LOGIN,'
2854 || 'REQUEST_ID,'
2855 || 'PROGRAM_APPLICATION_ID,'
2856 || 'PROGRAM_ID,'
2857 || 'PROGRAM_UPDATE_DATE,'
2858 || 'REFRESH_ID,'
2859 || 'MESSAGE_ID,'
2860 || 'PROCESS_FLAG,'
2861 || 'DATA_SOURCE_TYPE,'
2862 || 'ST_TRANSACTION_ID,'
2863 || 'ERROR_TEXT,'
2864 || 'OVERWRITE_FLAG,'
2865 || 'WEEK_START_DAY,'
2866 || 'COMPANY_NAME,'
2867 || 'COMPANY_ID '
2868 ||'FROM MSC_ST_CALENDARS'|| v_dblink
2869 ||' WHERE '
2870 ||' sr_instance_id = ' || to_char(v_src_instance_id);
2871
2872 EXECUTE IMMEDIATE v_sql_stmt USING
2873 v_ascp_inst,v_icode
2874 ,v_ascp_inst,v_icode
2875 ,v_inst_rp_src_id
2876 ;
2877
2878 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
2879 COMMIT;
2880
2881 EXCEPTION
2882 WHEN OTHERS THEN
2883 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
2884 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
2885 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_CALENDARS');
2886 v_retcode := 2;
2887 RAISE;
2888 ELSE
2889 IF v_retcode < 2 THEN
2890 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
2891 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_CALENDARS');
2892 v_retcode := 1;
2893 END IF;
2894 RETURN;
2895 END IF;
2896 END COPY_CALENDARS;
2897 PROCEDURE COPY_CALENDAR_DATES IS
2898
2899 BEGIN
2900
2901 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_CALENDAR_DATES');
2902 v_sql_stmt:=
2903 'INSERT INTO MSC_ST_CALENDAR_DATES ('
2904 || 'CALENDAR_DATE,'
2905 || 'CALENDAR_CODE,'
2906 || 'EXCEPTION_SET_ID,'
2907 || 'SEQ_NUM,'
2908 || 'NEXT_SEQ_NUM,'
2909 || 'PRIOR_SEQ_NUM,'
2910 || 'NEXT_DATE,'
2911 || 'PRIOR_DATE,'
2912 || 'CALENDAR_START_DATE,'
2913 || 'CALENDAR_END_DATE,'
2914 || 'DESCRIPTION,'
2915 || 'DELETED_FLAG,'
2916 || 'LAST_UPDATE_DATE,'
2917 || 'LAST_UPDATED_BY,'
2918 || 'CREATION_DATE,'
2919 || 'CREATED_BY,'
2920 || 'LAST_UPDATE_LOGIN,'
2921 || 'REQUEST_ID,'
2922 || 'PROGRAM_APPLICATION_ID,'
2923 || 'PROGRAM_ID,'
2924 || 'PROGRAM_UPDATE_DATE,'
2925 || 'SR_INSTANCE_ID,'
2926 || 'REFRESH_ID '
2927 || ')'
2928 ||'SELECT '
2929 || 'CALENDAR_DATE,'
2930 || 'REPLACE(CALENDAR_CODE,:v_ascp_inst,:v_icode),'
2931 || 'EXCEPTION_SET_ID,'
2932 || 'SEQ_NUM,'
2933 || 'NEXT_SEQ_NUM,'
2934 || 'PRIOR_SEQ_NUM,'
2935 || 'NEXT_DATE,'
2936 || 'PRIOR_DATE,'
2937 || 'CALENDAR_START_DATE,'
2938 || 'CALENDAR_END_DATE,'
2939 || 'DESCRIPTION,'
2940 || 'DELETED_FLAG,'
2941 || 'LAST_UPDATE_DATE,'
2942 || 'LAST_UPDATED_BY,'
2943 || 'CREATION_DATE,'
2944 || 'CREATED_BY,'
2945 || 'LAST_UPDATE_LOGIN,'
2946 || 'REQUEST_ID,'
2947 || 'PROGRAM_APPLICATION_ID,'
2948 || 'PROGRAM_ID,'
2949 || 'PROGRAM_UPDATE_DATE,'
2950 || ':v_inst_rp_src_id,'
2951 || 'REFRESH_ID '
2952 ||'FROM MSC_ST_CALENDAR_DATES'|| v_dblink
2953 ||' WHERE '
2954 ||' sr_instance_id = ' || to_char(v_src_instance_id);
2955
2956 EXECUTE IMMEDIATE v_sql_stmt USING
2957 v_ascp_inst,v_icode
2958 ,v_inst_rp_src_id
2959 ;
2960
2961 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
2962 COMMIT;
2963
2964 EXCEPTION
2965 WHEN OTHERS THEN
2966 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
2967 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
2968 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_CALENDAR_DATES');
2969 v_retcode := 2;
2970 RAISE;
2971 ELSE
2972 IF v_retcode < 2 THEN
2973 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
2974 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_CALENDAR_DATES');
2975 v_retcode := 1;
2976 END IF;
2977 RETURN;
2978 END IF;
2979 END COPY_CALENDAR_DATES;
2980 PROCEDURE COPY_CALENDAR_EXCEPTIONS IS
2981
2982 BEGIN
2983
2984 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_CALENDAR_EXCEPTIONS');
2985 v_sql_stmt:=
2986 'INSERT INTO MSC_ST_CALENDAR_EXCEPTIONS ('
2987 || 'CALENDAR_CODE,'
2988 || 'EXCEPTION_DATE,'
2989 || 'EXCEPTION_TYPE,'
2990 || 'SR_INSTANCE_ID,'
2991 || 'DELETED_FLAG,'
2992 || 'LAST_UPDATE_DATE,'
2993 || 'LAST_UPDATED_BY,'
2994 || 'CREATION_DATE,'
2995 || 'CREATED_BY,'
2996 || 'LAST_UPDATE_LOGIN,'
2997 || 'REQUEST_ID,'
2998 || 'PROGRAM_APPLICATION_ID,'
2999 || 'PROGRAM_ID,'
3000 || 'PROGRAM_UPDATE_DATE,'
3001 || 'REFRESH_ID,'
3002 || 'EXCEPTION_SET_ID,'
3003 || 'SR_INSTANCE_CODE,'
3004 || 'MESSAGE_ID,'
3005 || 'PROCESS_FLAG,'
3006 || 'DATA_SOURCE_TYPE,'
3007 || 'ST_TRANSACTION_ID,'
3008 || 'ERROR_TEXT,'
3009 || 'COMPANY_NAME,'
3010 || 'COMPANY_ID '
3011 || ')'
3012 ||'SELECT '
3013 || 'REPLACE(CALENDAR_CODE,:v_ascp_inst,:v_icode),'
3014 || 'EXCEPTION_DATE,'
3015 || 'EXCEPTION_TYPE,'
3016 || ':v_inst_rp_src_id,'
3017 || 'DELETED_FLAG,'
3018 || 'LAST_UPDATE_DATE,'
3019 || 'LAST_UPDATED_BY,'
3020 || 'CREATION_DATE,'
3021 || 'CREATED_BY,'
3022 || 'LAST_UPDATE_LOGIN,'
3023 || 'REQUEST_ID,'
3024 || 'PROGRAM_APPLICATION_ID,'
3025 || 'PROGRAM_ID,'
3026 || 'PROGRAM_UPDATE_DATE,'
3027 || 'REFRESH_ID,'
3028 || 'EXCEPTION_SET_ID,'
3029 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
3030 || 'MESSAGE_ID,'
3031 || 'PROCESS_FLAG,'
3032 || 'DATA_SOURCE_TYPE,'
3033 || 'ST_TRANSACTION_ID,'
3034 || 'ERROR_TEXT,'
3035 || 'COMPANY_NAME,'
3036 || 'COMPANY_ID '
3037 ||'FROM MSC_ST_CALENDAR_EXCEPTIONS'|| v_dblink
3038 ||' WHERE '
3039 ||' sr_instance_id = ' || to_char(v_src_instance_id);
3040
3041 EXECUTE IMMEDIATE v_sql_stmt USING
3042 v_ascp_inst,v_icode
3043 ,v_inst_rp_src_id
3044 ,v_ascp_inst,v_icode
3045 ;
3046
3047 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
3048 COMMIT;
3049
3050 EXCEPTION
3051 WHEN OTHERS THEN
3052 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
3053 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3054 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_CALENDAR_EXCEPTIONS');
3055 v_retcode := 2;
3056 RAISE;
3057 ELSE
3058 IF v_retcode < 2 THEN
3059 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
3060 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_CALENDAR_EXCEPTIONS');
3061 v_retcode := 1;
3062 END IF;
3063 RETURN;
3064 END IF;
3065 END COPY_CALENDAR_EXCEPTIONS;
3066 PROCEDURE COPY_CALENDAR_SHIFTS IS
3067
3068 BEGIN
3069
3070 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_CALENDAR_SHIFTS');
3071 v_sql_stmt:=
3072 'INSERT INTO MSC_ST_CALENDAR_SHIFTS ('
3073 || 'CALENDAR_CODE,'
3074 || 'SHIFT_NUM,'
3075 || 'DAYS_ON,'
3076 || 'DAYS_OFF,'
3077 || 'DESCRIPTION,'
3078 || 'DELETED_FLAG,'
3079 || 'LAST_UPDATE_DATE,'
3080 || 'LAST_UPDATED_BY,'
3081 || 'CREATION_DATE,'
3082 || 'CREATED_BY,'
3083 || 'LAST_UPDATE_LOGIN,'
3084 || 'REQUEST_ID,'
3085 || 'PROGRAM_APPLICATION_ID,'
3086 || 'PROGRAM_ID,'
3087 || 'PROGRAM_UPDATE_DATE,'
3088 || 'REFRESH_ID,'
3089 || 'SR_INSTANCE_ID,'
3090 || 'COMPANY_ID,'
3091 || 'COMPANY_NAME,'
3092 || 'SHIFT_NAME,'
3093 || 'SR_INSTANCE_CODE,'
3094 || 'MESSAGE_ID,'
3095 || 'PROCESS_FLAG,'
3096 || 'DATA_SOURCE_TYPE,'
3097 || 'ST_TRANSACTION_ID,'
3098 || 'ERROR_TEXT '
3099 || ')'
3100 ||'SELECT '
3101 || 'REPLACE(CALENDAR_CODE,:v_ascp_inst,:v_icode),'
3102 || 'SHIFT_NUM,'
3103 || 'DAYS_ON,'
3104 || 'DAYS_OFF,'
3105 || 'DESCRIPTION,'
3106 || 'DELETED_FLAG,'
3107 || 'LAST_UPDATE_DATE,'
3108 || 'LAST_UPDATED_BY,'
3109 || 'CREATION_DATE,'
3110 || 'CREATED_BY,'
3111 || 'LAST_UPDATE_LOGIN,'
3112 || 'REQUEST_ID,'
3113 || 'PROGRAM_APPLICATION_ID,'
3114 || 'PROGRAM_ID,'
3115 || 'PROGRAM_UPDATE_DATE,'
3116 || 'REFRESH_ID,'
3117 || ':v_inst_rp_src_id,'
3118 || 'COMPANY_ID,'
3119 || 'COMPANY_NAME,'
3120 || 'SHIFT_NAME,'
3121 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
3122 || 'MESSAGE_ID,'
3123 || 'PROCESS_FLAG,'
3124 || 'DATA_SOURCE_TYPE,'
3125 || 'ST_TRANSACTION_ID,'
3126 || 'ERROR_TEXT '
3127 ||'FROM MSC_ST_CALENDAR_SHIFTS'|| v_dblink
3128 ||' WHERE '
3129 ||' sr_instance_id = ' || to_char(v_src_instance_id);
3130
3131 EXECUTE IMMEDIATE v_sql_stmt USING
3132 v_ascp_inst,v_icode
3133 ,v_inst_rp_src_id
3134 ,v_ascp_inst,v_icode
3135 ;
3136
3137 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
3138 COMMIT;
3139
3140 EXCEPTION
3141 WHEN OTHERS THEN
3142 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
3143 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3144 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_CALENDAR_SHIFTS');
3145 v_retcode := 2;
3146 RAISE;
3147 ELSE
3148 IF v_retcode < 2 THEN
3149 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
3150 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_CALENDAR_SHIFTS');
3151 v_retcode := 1;
3152 END IF;
3153 RETURN;
3154 END IF;
3155 END COPY_CALENDAR_SHIFTS;
3156 PROCEDURE COPY_CAL_WEEK_START_DATES IS
3157
3158 BEGIN
3159
3160 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_CAL_WEEK_START_DATES');
3161 v_sql_stmt:=
3162 'INSERT INTO MSC_ST_CAL_WEEK_START_DATES ('
3163 || 'CALENDAR_CODE,'
3164 || 'EXCEPTION_SET_ID,'
3165 || 'WEEK_START_DATE,'
3166 || 'NEXT_DATE,'
3167 || 'PRIOR_DATE,'
3168 || 'SEQ_NUM,'
3169 || 'DELETED_FLAG,'
3170 || 'LAST_UPDATE_DATE,'
3171 || 'LAST_UPDATED_BY,'
3172 || 'CREATION_DATE,'
3173 || 'CREATED_BY,'
3174 || 'LAST_UPDATE_LOGIN,'
3175 || 'REQUEST_ID,'
3176 || 'PROGRAM_APPLICATION_ID,'
3177 || 'PROGRAM_ID,'
3178 || 'PROGRAM_UPDATE_DATE,'
3179 || 'REFRESH_ID,'
3180 || 'SR_INSTANCE_ID '
3181 || ')'
3182 ||'SELECT '
3183 || 'REPLACE(CALENDAR_CODE,:v_ascp_inst,:v_icode),'
3184 || 'EXCEPTION_SET_ID,'
3185 || 'WEEK_START_DATE,'
3186 || 'NEXT_DATE,'
3187 || 'PRIOR_DATE,'
3188 || 'SEQ_NUM,'
3189 || 'DELETED_FLAG,'
3190 || 'LAST_UPDATE_DATE,'
3191 || 'LAST_UPDATED_BY,'
3192 || 'CREATION_DATE,'
3193 || 'CREATED_BY,'
3194 || 'LAST_UPDATE_LOGIN,'
3195 || 'REQUEST_ID,'
3196 || 'PROGRAM_APPLICATION_ID,'
3197 || 'PROGRAM_ID,'
3198 || 'PROGRAM_UPDATE_DATE,'
3199 || 'REFRESH_ID,'
3200 || ':v_inst_rp_src_id '
3201 ||'FROM MSC_ST_CAL_WEEK_START_DATES'|| v_dblink
3202 ||' WHERE '
3203 ||' sr_instance_id = ' || to_char(v_src_instance_id);
3204
3205 EXECUTE IMMEDIATE v_sql_stmt USING
3206 v_ascp_inst,v_icode
3207 ,v_inst_rp_src_id
3208 ;
3209
3210 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
3211 COMMIT;
3212
3213 EXCEPTION
3214 WHEN OTHERS THEN
3215 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
3216 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3217 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_CAL_WEEK_START_DATES');
3218 v_retcode := 2;
3219 RAISE;
3220 ELSE
3221 IF v_retcode < 2 THEN
3222 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
3223 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_CAL_WEEK_START_DATES');
3224 v_retcode := 1;
3225 END IF;
3226 RETURN;
3227 END IF;
3228 END COPY_CAL_WEEK_START_DATES;
3229 PROCEDURE COPY_CAL_YEAR_START_DATES IS
3230
3231 BEGIN
3232
3233 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_CAL_YEAR_START_DATES');
3234 v_sql_stmt:=
3235 'INSERT INTO MSC_ST_CAL_YEAR_START_DATES ('
3236 || 'CALENDAR_CODE,'
3237 || 'EXCEPTION_SET_ID,'
3238 || 'YEAR_START_DATE,'
3239 || 'DELETED_FLAG,'
3240 || 'LAST_UPDATE_DATE,'
3241 || 'LAST_UPDATED_BY,'
3242 || 'CREATION_DATE,'
3243 || 'CREATED_BY,'
3244 || 'LAST_UPDATE_LOGIN,'
3245 || 'REQUEST_ID,'
3246 || 'PROGRAM_APPLICATION_ID,'
3247 || 'PROGRAM_ID,'
3248 || 'PROGRAM_UPDATE_DATE,'
3249 || 'REFRESH_ID,'
3250 || 'SR_INSTANCE_ID '
3251 || ')'
3252 ||'SELECT '
3253 || 'REPLACE(CALENDAR_CODE,:v_ascp_inst,:v_icode),'
3254 || 'EXCEPTION_SET_ID,'
3255 || 'YEAR_START_DATE,'
3256 || 'DELETED_FLAG,'
3257 || 'LAST_UPDATE_DATE,'
3258 || 'LAST_UPDATED_BY,'
3259 || 'CREATION_DATE,'
3260 || 'CREATED_BY,'
3261 || 'LAST_UPDATE_LOGIN,'
3262 || 'REQUEST_ID,'
3263 || 'PROGRAM_APPLICATION_ID,'
3264 || 'PROGRAM_ID,'
3265 || 'PROGRAM_UPDATE_DATE,'
3266 || 'REFRESH_ID,'
3267 || ':v_inst_rp_src_id '
3268 ||'FROM MSC_ST_CAL_YEAR_START_DATES'|| v_dblink
3269 ||' WHERE '
3270 ||' sr_instance_id = ' || to_char(v_src_instance_id);
3271
3272 EXECUTE IMMEDIATE v_sql_stmt USING
3273 v_ascp_inst,v_icode
3274 ,v_inst_rp_src_id
3275 ;
3276
3277 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
3278 COMMIT;
3279
3280 EXCEPTION
3281 WHEN OTHERS THEN
3282 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
3283 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3284 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_CAL_YEAR_START_DATES');
3285 v_retcode := 2;
3286 RAISE;
3287 ELSE
3288 IF v_retcode < 2 THEN
3289 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
3290 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_CAL_YEAR_START_DATES');
3291 v_retcode := 1;
3292 END IF;
3293 RETURN;
3294 END IF;
3295 END COPY_CAL_YEAR_START_DATES;
3296 PROCEDURE COPY_CATEGORY_SETS IS
3297
3298 BEGIN
3299
3300 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_CATEGORY_SETS');
3301 v_sql_stmt:=
3302 'INSERT INTO MSC_ST_CATEGORY_SETS ('
3303 || 'CATEGORY_SET_ID,'
3304 || 'SR_CATEGORY_SET_ID,'
3305 || 'CATEGORY_SET_NAME,'
3306 || 'DESCRIPTION,'
3307 || 'CONTROL_LEVEL,'
3308 || 'DEFAULT_FLAG,'
3309 || 'DELETED_FLAG,'
3310 || 'LAST_UPDATE_DATE,'
3311 || 'LAST_UPDATED_BY,'
3312 || 'CREATION_DATE,'
3313 || 'CREATED_BY,'
3314 || 'LAST_UPDATE_LOGIN,'
3315 || 'REQUEST_ID,'
3316 || 'PROGRAM_APPLICATION_ID,'
3317 || 'PROGRAM_ID,'
3318 || 'PROGRAM_UPDATE_DATE,'
3319 || 'SR_INSTANCE_ID,'
3320 || 'REFRESH_ID,'
3321 || 'COMPANY_ID,'
3322 || 'COMPANY_NAME,'
3323 || 'SR_INSTANCE_CODE,'
3324 || 'MESSAGE_ID,'
3325 || 'PROCESS_FLAG,'
3326 || 'DATA_SOURCE_TYPE,'
3327 || 'ST_TRANSACTION_ID,'
3328 || 'ERROR_TEXT,'
3329 || 'BATCH_ID,'
3330 || 'SOURCE_SR_CATEGORY_SET_ID '
3331 || ')'
3332 ||'SELECT '
3333 || 'CATEGORY_SET_ID,'
3334 || 'SR_CATEGORY_SET_ID,'
3335 || 'CATEGORY_SET_NAME,'
3336 || 'DESCRIPTION,'
3337 || 'CONTROL_LEVEL,'
3338 || 'DEFAULT_FLAG,'
3339 || 'DELETED_FLAG,'
3340 || 'LAST_UPDATE_DATE,'
3341 || 'LAST_UPDATED_BY,'
3342 || 'CREATION_DATE,'
3343 || 'CREATED_BY,'
3344 || 'LAST_UPDATE_LOGIN,'
3345 || 'REQUEST_ID,'
3346 || 'PROGRAM_APPLICATION_ID,'
3347 || 'PROGRAM_ID,'
3348 || 'PROGRAM_UPDATE_DATE,'
3349 || ':v_inst_rp_src_id,'
3350 || 'REFRESH_ID,'
3351 || 'COMPANY_ID,'
3352 || 'COMPANY_NAME,'
3353 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
3354 || 'MESSAGE_ID,'
3355 || 'PROCESS_FLAG,'
3356 || 'DATA_SOURCE_TYPE,'
3357 || 'ST_TRANSACTION_ID,'
3358 || 'ERROR_TEXT,'
3359 || 'BATCH_ID,'
3360 || 'SOURCE_SR_CATEGORY_SET_ID '
3361 ||'FROM MSC_ST_CATEGORY_SETS'|| v_dblink
3362 ||' WHERE '
3363 ||' sr_instance_id = ' || to_char(v_src_instance_id);
3364
3365
3366 EXECUTE IMMEDIATE v_sql_stmt USING
3367 v_inst_rp_src_id
3368 ,v_ascp_inst,v_icode
3369 ;
3370
3371 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
3372 COMMIT;
3373 EXCEPTION
3374 WHEN OTHERS THEN
3375 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
3376 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3377 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_CATEGORY_SETS');
3378 v_retcode := 2;
3379 RAISE;
3380 ELSE
3381 IF v_retcode < 2 THEN
3382 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
3383 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_CATEGORY_SETS');
3384 v_retcode := 1;
3385 END IF;
3386 RETURN;
3387 END IF;
3388 END COPY_CATEGORY_SETS;
3389 PROCEDURE COPY_COMPANY_USERS IS
3390
3391 BEGIN
3392
3393 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_COMPANY_USERS');
3394 v_sql_stmt:=
3395 'INSERT INTO MSC_ST_COMPANY_USERS ('
3396 || 'USER_NAME,'
3397 || 'SR_COMPANY_ID,'
3398 || 'SR_INSTANCE_ID,'
3399 || 'PARTNER_TYPE,'
3400 || 'START_DATE,'
3401 || 'END_DATE,'
3402 || 'DESCRIPTION,'
3403 || 'EMAIL_ADDRESS,'
3404 || 'FAX,'
3405 || 'COMPANY_NAME,'
3406 || 'LAST_UPDATE_LOGIN,'
3407 || 'LAST_UPDATE_DATE,'
3408 || 'CREATION_DATE,'
3409 || 'CREATED_BY,'
3410 || 'SR_INSTANCE_CODE,'
3411 || 'MESSAGE_ID,'
3412 || 'PROCESS_FLAG,'
3413 || 'ERROR_TEXT,'
3414 || 'DATA_SOURCE_TYPE,'
3415 || 'ST_TRANSACTION_ID,'
3416 || 'BATCH_ID,'
3417 || 'REFRESH_ID,'
3418 || 'REQUEST_ID,'
3419 || 'LAST_UPDATED_BY,'
3420 || 'COLLECTION_PARAMETER '
3421 || ')'
3422 ||'SELECT '
3423 || 'USER_NAME,'
3424 || 'SR_COMPANY_ID,'
3425 || ':v_inst_rp_src_id,'
3426 || 'PARTNER_TYPE,'
3427 || 'START_DATE,'
3428 || 'END_DATE,'
3429 || 'DESCRIPTION,'
3430 || 'EMAIL_ADDRESS,'
3431 || 'FAX,'
3432 || 'COMPANY_NAME,'
3433 || 'LAST_UPDATE_LOGIN,'
3434 || 'LAST_UPDATE_DATE,'
3435 || 'CREATION_DATE,'
3436 || 'CREATED_BY,'
3437 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
3438 || 'MESSAGE_ID,'
3439 || 'PROCESS_FLAG,'
3440 || 'ERROR_TEXT,'
3441 || 'DATA_SOURCE_TYPE,'
3442 || 'ST_TRANSACTION_ID,'
3443 || 'BATCH_ID,'
3444 || 'REFRESH_ID,'
3445 || 'REQUEST_ID,'
3446 || 'LAST_UPDATED_BY,'
3447 || 'COLLECTION_PARAMETER '
3448 ||'FROM MSC_ST_COMPANY_USERS'|| v_dblink
3449 ||' WHERE '
3450 ||' sr_instance_id = ' || to_char(v_src_instance_id);
3451
3452
3453 EXECUTE IMMEDIATE v_sql_stmt USING
3454 v_inst_rp_src_id
3455 ,v_ascp_inst,v_icode
3456 ;
3457
3458 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
3459 COMMIT;
3460
3461 EXCEPTION
3462 WHEN OTHERS THEN
3463 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
3464 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3465 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_COMPANY_USERS');
3466 v_retcode := 2;
3467 RAISE;
3468 ELSE
3469 IF v_retcode < 2 THEN
3470 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
3471 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_COMPANY_USERS');
3472 v_retcode := 1;
3473 END IF;
3474 RETURN;
3475 END IF;
3476 END COPY_COMPANY_USERS;
3477 PROCEDURE COPY_COMPONENT_SUBSTITUTES IS
3478
3479 BEGIN
3480
3481 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_COMPONENT_SUBSTITUTES');
3482 v_sql_stmt:=
3483 'INSERT INTO MSC_ST_COMPONENT_SUBSTITUTES ('
3484 || 'COMPONENT_SEQUENCE_ID,'
3485 || 'SUBSTITUTE_ITEM_ID,'
3486 || 'USAGE_QUANTITY,'
3487 || 'ORGANIZATION_ID,'
3488 || 'PRIORITY,'
3489 || 'DELETED_FLAG,'
3490 || 'LAST_UPDATE_DATE,'
3491 || 'LAST_UPDATED_BY,'
3492 || 'CREATION_DATE,'
3493 || 'CREATED_BY,'
3494 || 'LAST_UPDATE_LOGIN,'
3495 || 'REQUEST_ID,'
3496 || 'PROGRAM_APPLICATION_ID,'
3497 || 'PROGRAM_ID,'
3498 || 'PROGRAM_UPDATE_DATE,'
3499 || 'SR_INSTANCE_ID,'
3500 || 'REFRESH_ID,'
3501 || 'BILL_SEQUENCE_ID,'
3502 || 'COMPANY_ID,'
3503 || 'COMPANY_NAME,'
3504 || 'BOM_NAME,'
3505 || 'ORGANIZATION_CODE,'
3506 || 'ASSEMBLY_NAME,'
3507 || 'SR_INSTANCE_CODE,'
3508 || 'COMPONENT_NAME,'
3509 || 'OPERATION_SEQ_CODE,'
3510 || 'EFFECTIVITY_DATE,'
3511 || 'SUB_ITEM_NAME,'
3512 || 'ALTERNATE_BOM_DESIGNATOR,'
3513 || 'ERROR_TEXT,'
3514 || 'MESSAGE_ID,'
3515 || 'PROCESS_FLAG,'
3516 || 'DATA_SOURCE_TYPE,'
3517 || 'ST_TRANSACTION_ID,'
3518 || 'BATCH_ID,'
3519 || 'ROUNDING_DIRECTION '
3520 || ')'
3521 ||'SELECT '
3522 || 'COMPONENT_SEQUENCE_ID,'
3523 || 'SUBSTITUTE_ITEM_ID,'
3524 || 'USAGE_QUANTITY,'
3525 || 'ORGANIZATION_ID,'
3526 || 'PRIORITY,'
3527 || 'DELETED_FLAG,'
3528 || 'LAST_UPDATE_DATE,'
3529 || 'LAST_UPDATED_BY,'
3530 || 'CREATION_DATE,'
3531 || 'CREATED_BY,'
3532 || 'LAST_UPDATE_LOGIN,'
3533 || 'REQUEST_ID,'
3534 || 'PROGRAM_APPLICATION_ID,'
3535 || 'PROGRAM_ID,'
3536 || 'PROGRAM_UPDATE_DATE,'
3537 || ':v_inst_rp_src_id,'
3538 || 'REFRESH_ID,'
3539 || 'BILL_SEQUENCE_ID,'
3540 || 'COMPANY_ID,'
3541 || 'COMPANY_NAME,'
3542 || 'BOM_NAME,'
3543 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
3544 || 'ASSEMBLY_NAME,'
3545 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
3546 || 'COMPONENT_NAME,'
3547 || 'OPERATION_SEQ_CODE,'
3548 || 'EFFECTIVITY_DATE,'
3549 || 'SUB_ITEM_NAME,'
3550 || 'ALTERNATE_BOM_DESIGNATOR,'
3551 || 'ERROR_TEXT,'
3552 || 'MESSAGE_ID,'
3553 || 'PROCESS_FLAG,'
3554 || 'DATA_SOURCE_TYPE,'
3555 || 'ST_TRANSACTION_ID,'
3556 || 'BATCH_ID,'
3557 || 'ROUNDING_DIRECTION '
3558 ||'FROM MSC_ST_COMPONENT_SUBSTITUTES'|| v_dblink
3559 ||' WHERE '
3560 ||' sr_instance_id = ' || to_char(v_src_instance_id);
3561
3562
3563 EXECUTE IMMEDIATE v_sql_stmt USING
3564 v_inst_rp_src_id
3565 ,v_ascp_inst,v_icode
3566 ,v_ascp_inst,v_icode
3567 ;
3568
3569 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
3570 COMMIT;
3571
3572 EXCEPTION
3573 WHEN OTHERS THEN
3574 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
3575 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3576 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_COMPONENT_SUBSTITUTES');
3577 v_retcode := 2;
3578 RAISE;
3579 ELSE
3580 IF v_retcode < 2 THEN
3581 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
3582 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_COMPONENT_SUBSTITUTES');
3583 v_retcode := 1;
3584 END IF;
3585 RETURN;
3586 END IF;
3587 END COPY_COMPONENT_SUBSTITUTES;
3588 PROCEDURE COPY_CO_PRODUCTS IS
3589
3590 BEGIN
3591
3592 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_CO_PRODUCTS');
3593 v_sql_stmt:=
3594 'INSERT INTO MSC_ST_CO_PRODUCTS ('
3595 || 'COMPONENT_NAME,'
3596 || 'COMPONENT_ID,'
3597 || 'CO_PRODUCT_NAME,'
3598 || 'CO_PRODUCT_ID,'
3599 || 'SPLIT,'
3600 || 'PRIMARY_FLAG,'
3601 || 'ORGANIZATION_CODE,'
3602 || 'DELETED_FLAG,'
3603 || 'SR_INSTANCE_ID,'
3604 || 'COMPANY_NAME,'
3605 || 'LAST_UPDATE_LOGIN,'
3606 || 'LAST_UPDATE_DATE,'
3607 || 'CREATION_DATE,'
3608 || 'CREATED_BY,'
3609 || 'SR_INSTANCE_CODE,'
3610 || 'MESSAGE_ID,'
3611 || 'PROCESS_FLAG,'
3612 || 'ERROR_TEXT,'
3613 || 'DATA_SOURCE_TYPE,'
3614 || 'ST_TRANSACTION_ID,'
3615 || 'BATCH_ID,'
3616 || 'REFRESH_ID,'
3617 || 'LAST_UPDATED_BY,'
3618 || 'REQUEST_ID,'
3619 || 'PROGRAM_APPLICATION_ID,'
3620 || 'PROGRAM_ID,'
3621 || 'PROGRAM_UPDATE_DATE,'
3622 || 'CO_PRODUCT_GROUP_ID,'
3623 || 'SOURCE_COMPONENT_ID,'
3624 || 'SOURCE_CO_PRODUCT_ID,'
3625 || 'SOURCE_CO_PRODUCT_GROUP_ID '
3626 || ')'
3627 ||'SELECT '
3628 || 'COMPONENT_NAME,'
3629 || 'COMPONENT_ID,'
3630 || 'CO_PRODUCT_NAME,'
3631 || 'CO_PRODUCT_ID,'
3632 || 'SPLIT,'
3633 || 'PRIMARY_FLAG,'
3634 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
3635 || 'DELETED_FLAG,'
3636 || ':v_inst_rp_src_id,'
3637 || 'COMPANY_NAME,'
3638 || 'LAST_UPDATE_LOGIN,'
3639 || 'LAST_UPDATE_DATE,'
3640 || 'CREATION_DATE,'
3641 || 'CREATED_BY,'
3642 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
3643 || 'MESSAGE_ID,'
3644 || 'PROCESS_FLAG,'
3645 || 'ERROR_TEXT,'
3646 || 'DATA_SOURCE_TYPE,'
3647 || 'ST_TRANSACTION_ID,'
3648 || 'BATCH_ID,'
3649 || 'REFRESH_ID,'
3650 || 'LAST_UPDATED_BY,'
3651 || 'REQUEST_ID,'
3652 || 'PROGRAM_APPLICATION_ID,'
3653 || 'PROGRAM_ID,'
3654 || 'PROGRAM_UPDATE_DATE,'
3655 || 'CO_PRODUCT_GROUP_ID,'
3656 || 'SOURCE_COMPONENT_ID,'
3657 || 'SOURCE_CO_PRODUCT_ID,'
3658 || 'SOURCE_CO_PRODUCT_GROUP_ID '
3659 ||'FROM MSC_ST_CO_PRODUCTS'|| v_dblink
3660 ||' WHERE '
3661 ||' sr_instance_id = ' || to_char(v_src_instance_id);
3662
3663
3664 EXECUTE IMMEDIATE v_sql_stmt USING
3665 v_ascp_inst,v_icode
3666 ,v_inst_rp_src_id
3667 ,v_ascp_inst,v_icode
3668 ;
3669
3670 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
3671 COMMIT;
3672
3673 EXCEPTION
3674 WHEN OTHERS THEN
3675 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
3676 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3677 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_CO_PRODUCTS');
3678 v_retcode := 2;
3679 RAISE;
3680 ELSE
3681 IF v_retcode < 2 THEN
3682 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
3683 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_CO_PRODUCTS');
3684 v_retcode := 1;
3685 END IF;
3686 RETURN;
3687 END IF;
3688 END COPY_CO_PRODUCTS;
3689 PROCEDURE COPY_DEMANDS IS
3690
3691 BEGIN
3692
3693 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_DEMANDS');
3694 v_sql_stmt:=
3695 'INSERT INTO MSC_ST_DEMANDS ('
3696 || 'ORDER_PRIORITY,'
3697 || 'DEMAND_ID,'
3698 || 'INVENTORY_ITEM_ID,'
3699 || 'ORGANIZATION_ID,'
3700 || 'USING_ASSEMBLY_ITEM_ID,'
3701 || 'USING_ASSEMBLY_DEMAND_DATE,'
3702 || 'USING_REQUIREMENT_QUANTITY,'
3703 || 'ASSEMBLY_DEMAND_COMP_DATE,'
3704 || 'DEMAND_TYPE,'
3705 || 'DAILY_DEMAND_RATE,'
3706 || 'ORIGINATION_TYPE,'
3707 || 'SOURCE_ORGANIZATION_ID,'
3708 || 'DISPOSITION_ID,'
3709 || 'RESERVATION_ID,'
3710 || 'DEMAND_SCHEDULE_NAME,'
3711 || 'PROJECT_ID,'
3712 || 'TASK_ID,'
3713 || 'PLANNING_GROUP,'
3714 || 'END_ITEM_UNIT_NUMBER,'
3715 || 'SCHEDULE_DATE,'
3716 || 'OPERATION_SEQ_NUM,'
3717 || 'QUANTITY_ISSUED,'
3718 || 'DEMAND_CLASS,'
3719 || 'SALES_ORDER_NUMBER,'
3720 || 'SALES_ORDER_PRIORITY,'
3721 || 'FORECAST_PRIORITY,'
3722 || 'MPS_DATE_REQUIRED,'
3723 || 'PO_NUMBER,'
3724 || 'WIP_ENTITY_NAME,'
3725 || 'DELETED_FLAG,'
3726 || 'LAST_UPDATE_DATE,'
3727 || 'LAST_UPDATED_BY,'
3728 || 'CREATION_DATE,'
3729 || 'CREATED_BY,'
3730 || 'LAST_UPDATE_LOGIN,'
3731 || 'REQUEST_ID,'
3732 || 'PROGRAM_APPLICATION_ID,'
3733 || 'PROGRAM_ID,'
3734 || 'PROGRAM_UPDATE_DATE,'
3735 || 'SR_INSTANCE_ID,'
3736 || 'REFRESH_ID,'
3737 || 'REPETITIVE_SCHEDULE_ID,'
3738 || 'WIP_ENTITY_ID,'
3739 || 'SELLING_PRICE,'
3740 || 'DMD_LATENESS_COST,'
3741 || 'DMD_SATISFIED_DATE,'
3742 || 'DMD_SPLIT_FLAG,'
3743 || 'REQUEST_DATE,'
3744 || 'ORDER_NUMBER,'
3745 || 'WIP_STATUS_CODE,'
3746 || 'WIP_SUPPLY_TYPE,'
3747 || 'ATTRIBUTE1,'
3748 || 'ATTRIBUTE2,'
3749 || 'ATTRIBUTE3,'
3750 || 'ATTRIBUTE4,'
3751 || 'ATTRIBUTE5,'
3752 || 'ATTRIBUTE6,'
3753 || 'ATTRIBUTE7,'
3754 || 'ATTRIBUTE8,'
3755 || 'ATTRIBUTE9,'
3756 || 'ATTRIBUTE10,'
3757 || 'ATTRIBUTE11,'
3758 || 'ATTRIBUTE12,'
3759 || 'ATTRIBUTE13,'
3760 || 'ATTRIBUTE14,'
3761 || 'ATTRIBUTE15,'
3762 || 'SALES_ORDER_LINE_ID,'
3763 || 'CONFIDENCE_PERCENTAGE,'
3764 || 'BUCKET_TYPE,'
3765 || 'BILL_ID,'
3766 || 'CUSTOMER_ID,'
3767 || 'PROBABILITY,'
3768 || 'SERVICE_LEVEL,'
3769 || 'FORECAST_MAD,'
3770 || 'FORECAST_DESIGNATOR,'
3771 || 'ORIGINAL_SYSTEM_REFERENCE,'
3772 || 'ORIGINAL_SYSTEM_LINE_REFERENCE,'
3773 || 'DEMAND_SOURCE_TYPE,'
3774 || 'SHIP_TO_SITE_ID,'
3775 || 'COMPANY_ID,'
3776 || 'COMPANY_NAME,'
3777 || 'CUSTOMER_NAME,'
3778 || 'CUSTOMER_SITE_ID,'
3779 || 'CUSTOMER_SITE_CODE,'
3780 || 'BILL_CODE,'
3781 || 'ITEM_NAME,'
3782 || 'ROUTING_NAME,'
3783 || 'ALTERNATE_ROUTING_DESIGNATOR,'
3784 || 'OPERATION_EFFECTIVITY_DATE,'
3785 || 'USING_ASSEMBLY_ITEM_NAME,'
3786 || 'PROJECT_NUMBER,'
3787 || 'TASK_NUMBER,'
3788 || 'SCHEDULE_LINE_NUM,'
3789 || 'OPERATION_SEQ_CODE,'
3790 || 'ORGANIZATION_CODE,'
3791 || 'SR_INSTANCE_CODE,'
3792 || 'MESSAGE_ID,'
3793 || 'PROCESS_FLAG,'
3794 || 'BATCH_ID,'
3795 || 'DATA_SOURCE_TYPE,'
3796 || 'ST_TRANSACTION_ID,'
3797 || 'ERROR_TEXT,'
3798 || 'COMMENTS,'
3799 || 'PROMISE_DATE,'
3800 || 'LINK_TO_LINE_ID,'
3801 || 'QUANTITY_PER_ASSEMBLY,'
3802 || 'ORDER_DATE_TYPE_CODE,'
3803 || 'LATEST_ACCEPTABLE_DATE,'
3804 || 'SHIPPING_METHOD_CODE,'
3805 || 'SCHEDULE_SHIP_DATE,'
3806 || 'SCHEDULE_ARRIVAL_DATE,'
3807 || 'REQUEST_SHIP_DATE,'
3808 || 'PROMISE_SHIP_DATE,'
3809 || 'SOURCE_ORG_ID,'
3810 || 'SOURCE_INVENTORY_ITEM_ID,'
3811 || 'SOURCE_USING_ASSEMBLY_ITEM_ID,'
3812 || 'SOURCE_SALES_ORDER_LINE_ID,'
3813 || 'SOURCE_PROJECT_ID,'
3814 || 'SOURCE_TASK_ID,'
3815 || 'SOURCE_CUSTOMER_SITE_ID,'
3816 || 'SOURCE_BILL_ID,'
3817 || 'SOURCE_DISPOSITION_ID,'
3818 || 'SOURCE_CUSTOMER_ID,'
3819 || 'SOURCE_OPERATION_SEQ_NUM,'
3820 || 'SOURCE_WIP_ENTITY_ID,'
3821 || 'ROUTING_SEQUENCE_ID '
3822 || ')'
3823 ||'SELECT '
3824 || 'ORDER_PRIORITY,'
3825 || 'DEMAND_ID,'
3826 || 'INVENTORY_ITEM_ID,'
3827 || 'ORGANIZATION_ID,'
3828 || 'USING_ASSEMBLY_ITEM_ID,'
3829 || 'USING_ASSEMBLY_DEMAND_DATE,'
3830 || 'USING_REQUIREMENT_QUANTITY,'
3831 || 'ASSEMBLY_DEMAND_COMP_DATE,'
3832 || 'DEMAND_TYPE,'
3833 || 'DAILY_DEMAND_RATE,'
3834 || 'ORIGINATION_TYPE,'
3835 || 'SOURCE_ORGANIZATION_ID,'
3836 || 'DISPOSITION_ID,'
3837 || 'RESERVATION_ID,'
3838 || 'DEMAND_SCHEDULE_NAME,'
3839 || 'PROJECT_ID,'
3840 || 'TASK_ID,'
3841 || 'PLANNING_GROUP,'
3842 || 'END_ITEM_UNIT_NUMBER,'
3843 || 'SCHEDULE_DATE,'
3844 || 'OPERATION_SEQ_NUM,'
3845 || 'QUANTITY_ISSUED,'
3846 || 'DEMAND_CLASS,'
3847 || 'SALES_ORDER_NUMBER,'
3848 || 'SALES_ORDER_PRIORITY,'
3849 || 'FORECAST_PRIORITY,'
3850 || 'MPS_DATE_REQUIRED,'
3851 || 'PO_NUMBER,'
3852 || 'WIP_ENTITY_NAME,'
3853 || 'DELETED_FLAG,'
3854 || 'LAST_UPDATE_DATE,'
3855 || 'LAST_UPDATED_BY,'
3856 || 'CREATION_DATE,'
3857 || 'CREATED_BY,'
3858 || 'LAST_UPDATE_LOGIN,'
3859 || 'REQUEST_ID,'
3860 || 'PROGRAM_APPLICATION_ID,'
3861 || 'PROGRAM_ID,'
3862 || 'PROGRAM_UPDATE_DATE,'
3863 || ':v_inst_rp_src_id,'
3864 || 'REFRESH_ID,'
3865 || 'REPETITIVE_SCHEDULE_ID,'
3866 || 'WIP_ENTITY_ID,'
3867 || 'SELLING_PRICE,'
3868 || 'DMD_LATENESS_COST,'
3869 || 'DMD_SATISFIED_DATE,'
3870 || 'DMD_SPLIT_FLAG,'
3871 || 'REQUEST_DATE,'
3872 || 'ORDER_NUMBER,'
3873 || 'WIP_STATUS_CODE,'
3874 || 'WIP_SUPPLY_TYPE,'
3875 || 'ATTRIBUTE1,'
3876 || 'ATTRIBUTE2,'
3877 || 'ATTRIBUTE3,'
3878 || 'ATTRIBUTE4,'
3879 || 'ATTRIBUTE5,'
3880 || 'ATTRIBUTE6,'
3881 || 'ATTRIBUTE7,'
3882 || 'ATTRIBUTE8,'
3883 || 'ATTRIBUTE9,'
3884 || 'ATTRIBUTE10,'
3885 || 'ATTRIBUTE11,'
3886 || 'ATTRIBUTE12,'
3887 || 'ATTRIBUTE13,'
3888 || 'ATTRIBUTE14,'
3889 || 'ATTRIBUTE15,'
3890 || 'SALES_ORDER_LINE_ID,'
3891 || 'CONFIDENCE_PERCENTAGE,'
3892 || 'BUCKET_TYPE,'
3893 || 'BILL_ID,'
3894 || 'CUSTOMER_ID,'
3895 || 'PROBABILITY,'
3896 || 'SERVICE_LEVEL,'
3897 || 'FORECAST_MAD,'
3898 || 'FORECAST_DESIGNATOR,'
3899 || 'ORIGINAL_SYSTEM_REFERENCE,'
3900 || 'ORIGINAL_SYSTEM_LINE_REFERENCE,'
3901 || 'DEMAND_SOURCE_TYPE,'
3902 || 'SHIP_TO_SITE_ID,'
3903 || 'COMPANY_ID,'
3904 || 'COMPANY_NAME,'
3905 || 'CUSTOMER_NAME,'
3906 || 'CUSTOMER_SITE_ID,'
3907 || 'CUSTOMER_SITE_CODE,'
3908 || 'BILL_CODE,'
3909 || 'ITEM_NAME,'
3910 || 'ROUTING_NAME,'
3911 || 'ALTERNATE_ROUTING_DESIGNATOR,'
3912 || 'OPERATION_EFFECTIVITY_DATE,'
3913 || 'USING_ASSEMBLY_ITEM_NAME,'
3914 || 'PROJECT_NUMBER,'
3915 || 'TASK_NUMBER,'
3916 || 'SCHEDULE_LINE_NUM,'
3917 || 'OPERATION_SEQ_CODE,'
3918 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
3919 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
3920 || 'MESSAGE_ID,'
3921 || 'PROCESS_FLAG,'
3922 || 'BATCH_ID,'
3923 || 'DATA_SOURCE_TYPE,'
3924 || 'ST_TRANSACTION_ID,'
3925 || 'ERROR_TEXT,'
3926 || 'COMMENTS,'
3927 || 'PROMISE_DATE,'
3928 || 'LINK_TO_LINE_ID,'
3929 || 'QUANTITY_PER_ASSEMBLY,'
3930 || 'ORDER_DATE_TYPE_CODE,'
3931 || 'LATEST_ACCEPTABLE_DATE,'
3932 || 'SHIPPING_METHOD_CODE,'
3933 || 'SCHEDULE_SHIP_DATE,'
3934 || 'SCHEDULE_ARRIVAL_DATE,'
3935 || 'REQUEST_SHIP_DATE,'
3936 || 'PROMISE_SHIP_DATE,'
3937 || 'SOURCE_ORG_ID,'
3938 || 'SOURCE_INVENTORY_ITEM_ID,'
3939 || 'SOURCE_USING_ASSEMBLY_ITEM_ID,'
3940 || 'SOURCE_SALES_ORDER_LINE_ID,'
3941 || 'SOURCE_PROJECT_ID,'
3942 || 'SOURCE_TASK_ID,'
3943 || 'SOURCE_CUSTOMER_SITE_ID,'
3944 || 'SOURCE_BILL_ID,'
3945 || 'SOURCE_DISPOSITION_ID,'
3946 || 'SOURCE_CUSTOMER_ID,'
3947 || 'SOURCE_OPERATION_SEQ_NUM,'
3948 || 'SOURCE_WIP_ENTITY_ID,'
3949 || 'ROUTING_SEQUENCE_ID '
3950 ||'FROM MSC_ST_DEMANDS'|| v_dblink
3951 ||' WHERE '
3952 ||' sr_instance_id = ' || to_char(v_src_instance_id);
3953
3954
3955 EXECUTE IMMEDIATE v_sql_stmt USING
3956 v_inst_rp_src_id
3957 ,v_ascp_inst,v_icode
3958 ,v_ascp_inst,v_icode
3959 ;
3960
3961 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
3962 COMMIT;
3963
3964 EXCEPTION
3965 WHEN OTHERS THEN
3966 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
3967 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
3968 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_DEMANDS');
3969 v_retcode := 2;
3970 RAISE;
3971 ELSE
3972 IF v_retcode < 2 THEN
3973 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
3974 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_DEMANDS');
3975 v_retcode := 1;
3976 END IF;
3977 RETURN;
3978 END IF;
3979 END COPY_DEMANDS;
3980 PROCEDURE COPY_DEMAND_CLASSES IS
3981
3982 BEGIN
3983
3984 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_DEMAND_CLASSES');
3985 v_sql_stmt:=
3986 'INSERT INTO MSC_ST_DEMAND_CLASSES ('
3987 || 'DEMAND_CLASS,'
3988 || 'MEANING,'
3989 || 'DESCRIPTION,'
3990 || 'FROM_DATE,'
3991 || 'TO_DATE,'
3992 || 'ENABLED_FLAG,'
3993 || 'SR_INSTANCE_ID,'
3994 || 'LAST_UPDATE_DATE,'
3995 || 'LAST_UPDATED_BY,'
3996 || 'CREATION_DATE,'
3997 || 'CREATED_BY,'
3998 || 'LAST_UPDATE_LOGIN,'
3999 || 'REQUEST_ID,'
4000 || 'PROGRAM_APPLICATION_ID,'
4001 || 'PROGRAM_ID,'
4002 || 'PROGRAM_UPDATE_DATE,'
4003 || 'ATTRIBUTE_CATEGORY,'
4004 || 'ATTRIBUTE1,'
4005 || 'ATTRIBUTE2,'
4006 || 'ATTRIBUTE3,'
4007 || 'ATTRIBUTE4,'
4008 || 'ATTRIBUTE5,'
4009 || 'ATTRIBUTE6,'
4010 || 'ATTRIBUTE7,'
4011 || 'ATTRIBUTE8,'
4012 || 'ATTRIBUTE9,'
4013 || 'ATTRIBUTE10,'
4014 || 'ATTRIBUTE11,'
4015 || 'ATTRIBUTE12,'
4016 || 'ATTRIBUTE13,'
4017 || 'ATTRIBUTE14,'
4018 || 'ATTRIBUTE15,'
4019 || 'DELETED_FLAG,'
4020 || 'REFRESH_ID,'
4021 || 'SR_INSTANCE_CODE,'
4022 || 'MESSAGE_ID,'
4023 || 'PROCESS_FLAG,'
4024 || 'DATA_SOURCE_TYPE,'
4025 || 'ST_TRANSACTION_ID,'
4026 || 'ERROR_TEXT,'
4027 || 'BATCH_ID,'
4028 || 'COMPANY_NAME '
4029 || ')'
4030 ||'SELECT '
4031 || 'DEMAND_CLASS,'
4032 || 'MEANING,'
4033 || 'DESCRIPTION,'
4034 || 'FROM_DATE,'
4035 || 'TO_DATE,'
4036 || 'ENABLED_FLAG,'
4037 || ':v_inst_rp_src_id,'
4038 || 'LAST_UPDATE_DATE,'
4039 || 'LAST_UPDATED_BY,'
4040 || 'CREATION_DATE,'
4041 || 'CREATED_BY,'
4042 || 'LAST_UPDATE_LOGIN,'
4043 || 'REQUEST_ID,'
4044 || 'PROGRAM_APPLICATION_ID,'
4045 || 'PROGRAM_ID,'
4046 || 'PROGRAM_UPDATE_DATE,'
4047 || 'ATTRIBUTE_CATEGORY,'
4048 || 'ATTRIBUTE1,'
4049 || 'ATTRIBUTE2,'
4050 || 'ATTRIBUTE3,'
4051 || 'ATTRIBUTE4,'
4052 || 'ATTRIBUTE5,'
4053 || 'ATTRIBUTE6,'
4054 || 'ATTRIBUTE7,'
4055 || 'ATTRIBUTE8,'
4056 || 'ATTRIBUTE9,'
4057 || 'ATTRIBUTE10,'
4058 || 'ATTRIBUTE11,'
4059 || 'ATTRIBUTE12,'
4060 || 'ATTRIBUTE13,'
4061 || 'ATTRIBUTE14,'
4062 || 'ATTRIBUTE15,'
4063 || 'DELETED_FLAG,'
4064 || 'REFRESH_ID,'
4065 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
4066 || 'MESSAGE_ID,'
4067 || 'PROCESS_FLAG,'
4068 || 'DATA_SOURCE_TYPE,'
4069 || 'ST_TRANSACTION_ID,'
4070 || 'ERROR_TEXT,'
4071 || 'BATCH_ID,'
4072 || 'COMPANY_NAME '
4073 ||'FROM MSC_ST_DEMAND_CLASSES'|| v_dblink
4074 ||' WHERE '
4075 ||' sr_instance_id = ' || to_char(v_src_instance_id);
4076
4077
4078 EXECUTE IMMEDIATE v_sql_stmt USING
4079 v_inst_rp_src_id
4080 ,v_ascp_inst,v_icode
4081 ;
4082
4083 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
4084 COMMIT;
4085
4086 EXCEPTION
4087 WHEN OTHERS THEN
4088 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
4089 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
4090 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_DEMAND_CLASSES');
4091 v_retcode := 2;
4092 RAISE;
4093 ELSE
4094 IF v_retcode < 2 THEN
4095 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
4096 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_DEMAND_CLASSES');
4097 v_retcode := 1;
4098 END IF;
4099 RETURN;
4100 END IF;
4101 END COPY_DEMAND_CLASSES;
4102 PROCEDURE COPY_DEPARTMENT_RESOURCES IS
4103
4104 BEGIN
4105
4106 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_DEPARTMENT_RESOURCES');
4107 v_sql_stmt:=
4108 'INSERT INTO MSC_ST_DEPARTMENT_RESOURCES ('
4109 || 'ORGANIZATION_ID,'
4110 || 'RESOURCE_ID,'
4111 || 'RESOURCE_CODE,'
4112 || 'DEPARTMENT_ID,'
4113 || 'DEPARTMENT_CODE,'
4114 || 'DEPARTMENT_CLASS,'
4115 || 'LINE_FLAG,'
4116 || 'OWNING_DEPARTMENT_ID,'
4117 || 'CAPACITY_UNITS,'
4118 || 'MAX_RATE,'
4119 || 'MIN_RATE,'
4120 || 'AGGREGATED_RESOURCE_ID,'
4121 || 'AGGREGATED_RESOURCE_FLAG,'
4122 || 'RESOURCE_GROUP_NAME,'
4123 || 'RESOURCE_GROUP_CODE,'
4124 || 'RESOURCE_BALANCE_FLAG,'
4125 || 'BOTTLENECK_FLAG,'
4126 || 'START_TIME,'
4127 || 'STOP_TIME,'
4128 || 'DEPARTMENT_DESCRIPTION,'
4129 || 'RESOURCE_DESCRIPTION,'
4130 || 'OVER_UTILIZED_PERCENT,'
4131 || 'UNDER_UTILIZED_PERCENT,'
4132 || 'RESOURCE_SHORTAGE_TYPE,'
4133 || 'RESOURCE_EXCESS_TYPE,'
4134 || 'USER_TIME_FENCE,'
4135 || 'UTILIZATION,'
4136 || 'EFFICIENCY,'
4137 || 'RESOURCE_INCLUDE_FLAG,'
4138 || 'CRITICAL_RESOURCE_FLAG,'
4139 || 'RESOURCE_TYPE,'
4140 || 'DISABLE_DATE,'
4141 || 'LINE_DISABLE_DATE,'
4142 || 'AVAILABLE_24_HOURS_FLAG,'
4143 || 'CTP_FLAG,'
4144 || 'DELETED_FLAG,'
4145 || 'LAST_UPDATE_DATE,'
4146 || 'LAST_UPDATED_BY,'
4147 || 'CREATION_DATE,'
4148 || 'CREATED_BY,'
4149 || 'LAST_UPDATE_LOGIN,'
4150 || 'REQUEST_ID,'
4151 || 'PROGRAM_APPLICATION_ID,'
4152 || 'PROGRAM_ID,'
4153 || 'PROGRAM_UPDATE_DATE,'
4154 || 'SR_INSTANCE_ID,'
4155 || 'REFRESH_ID,'
4156 || 'DEPT_OVERHEAD_COST,'
4157 || 'RESOURCE_COST,'
4158 || 'RESOURCE_OVER_UTIL_COST,'
4159 || 'PLANNING_EXCEPTION_SET,'
4160 || 'BATCHABLE_FLAG,'
4161 || 'BATCHING_WINDOW,'
4162 || 'MIN_CAPACITY,'
4163 || 'MAX_CAPACITY,'
4164 || 'UNIT_OF_MEASURE,'
4165 || 'UOM_CLASS_TYPE,'
4166 || 'COMPANY_ID,'
4167 || 'COMPANY_NAME,'
4168 || 'OWNING_DEPARTMENT_CODE,'
4169 || 'ORGANIZATION_CODE,'
4170 || 'SR_INSTANCE_CODE,'
4171 || 'MESSAGE_ID,'
4172 || 'PROCESS_FLAG,'
4173 || 'ERROR_TEXT,'
4174 || 'ST_TRANSACTION_ID,'
4175 || 'BATCH_ID,'
4176 || 'DATA_SOURCE_TYPE,'
4177 || 'ATP_RULE_ID,'
4178 || 'SOURCE_ORGANIZATION_ID,'
4179 || 'SOURCE_DEPARTMENT_ID,'
4180 || 'SOURCE_RESOURCE_ID,'
4181 || 'SOURCE_OWNING_DEPARTMENT_ID,'
4182 || 'CAPACITY_TOLERANCE,'
4183 || 'CHARGEABLE_FLAG,'
4184 || 'IDLE_TIME_TOLERANCE,'
4185 || 'BATCHING_PENALTY,'
4186 || 'LAST_KNOWN_SETUP,'
4187 || 'SCHEDULE_TO_INSTANCE,'
4188 || 'SDS_SCHEDULING_WINDOW,'
4189 || 'SETUP_TIME_PERCENT,'
4190 || 'UTILIZATION_CHANGE_PERCENT,'
4191 || 'SETUP_TIME_TYPE,'
4192 || 'UTILIZATION_CHANGE_TYPE '
4193 || ')'
4194 ||'SELECT '
4195 || 'ORGANIZATION_ID,'
4196 || 'RESOURCE_ID,'
4197 || 'RESOURCE_CODE,'
4198 || 'DEPARTMENT_ID,'
4199 || 'DEPARTMENT_CODE,'
4200 || 'DEPARTMENT_CLASS,'
4201 || 'LINE_FLAG,'
4202 || 'OWNING_DEPARTMENT_ID,'
4203 || 'CAPACITY_UNITS,'
4204 || 'MAX_RATE,'
4205 || 'MIN_RATE,'
4206 || 'AGGREGATED_RESOURCE_ID,'
4207 || 'AGGREGATED_RESOURCE_FLAG,'
4208 || 'RESOURCE_GROUP_NAME,'
4209 || 'RESOURCE_GROUP_CODE,'
4210 || 'RESOURCE_BALANCE_FLAG,'
4211 || 'BOTTLENECK_FLAG,'
4212 || 'START_TIME,'
4213 || 'STOP_TIME,'
4214 || 'DEPARTMENT_DESCRIPTION,'
4215 || 'RESOURCE_DESCRIPTION,'
4216 || 'OVER_UTILIZED_PERCENT,'
4217 || 'UNDER_UTILIZED_PERCENT,'
4218 || 'RESOURCE_SHORTAGE_TYPE,'
4219 || 'RESOURCE_EXCESS_TYPE,'
4220 || 'USER_TIME_FENCE,'
4221 || 'UTILIZATION,'
4222 || 'EFFICIENCY,'
4223 || 'RESOURCE_INCLUDE_FLAG,'
4224 || 'CRITICAL_RESOURCE_FLAG,'
4225 || 'RESOURCE_TYPE,'
4226 || 'DISABLE_DATE,'
4227 || 'LINE_DISABLE_DATE,'
4228 || 'AVAILABLE_24_HOURS_FLAG,'
4229 || 'CTP_FLAG,'
4230 || 'DELETED_FLAG,'
4231 || 'LAST_UPDATE_DATE,'
4232 || 'LAST_UPDATED_BY,'
4233 || 'CREATION_DATE,'
4234 || 'CREATED_BY,'
4235 || 'LAST_UPDATE_LOGIN,'
4236 || 'REQUEST_ID,'
4237 || 'PROGRAM_APPLICATION_ID,'
4238 || 'PROGRAM_ID,'
4239 || 'PROGRAM_UPDATE_DATE,'
4240 || ':v_inst_rp_src_id,'
4241 || 'REFRESH_ID,'
4242 || 'DEPT_OVERHEAD_COST,'
4243 || 'RESOURCE_COST,'
4244 || 'RESOURCE_OVER_UTIL_COST,'
4245 || 'PLANNING_EXCEPTION_SET,'
4246 || 'BATCHABLE_FLAG,'
4247 || 'BATCHING_WINDOW,'
4248 || 'MIN_CAPACITY,'
4249 || 'MAX_CAPACITY,'
4250 || 'UNIT_OF_MEASURE,'
4251 || 'UOM_CLASS_TYPE,'
4252 || 'COMPANY_ID,'
4253 || 'COMPANY_NAME,'
4254 || 'OWNING_DEPARTMENT_CODE,'
4255 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
4256 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
4257 || 'MESSAGE_ID,'
4258 || 'PROCESS_FLAG,'
4259 || 'ERROR_TEXT,'
4260 || 'ST_TRANSACTION_ID,'
4261 || 'BATCH_ID,'
4262 || 'DATA_SOURCE_TYPE,'
4263 || 'ATP_RULE_ID,'
4264 || 'SOURCE_ORGANIZATION_ID,'
4265 || 'SOURCE_DEPARTMENT_ID,'
4266 || 'SOURCE_RESOURCE_ID,'
4267 || 'SOURCE_OWNING_DEPARTMENT_ID,'
4268 || 'CAPACITY_TOLERANCE,'
4269 || 'CHARGEABLE_FLAG,'
4270 || 'IDLE_TIME_TOLERANCE,'
4271 || 'BATCHING_PENALTY,'
4272 || 'LAST_KNOWN_SETUP,'
4273 || 'SCHEDULE_TO_INSTANCE,'
4274 || 'SDS_SCHEDULING_WINDOW,'
4275 || 'SETUP_TIME_PERCENT,'
4276 || 'UTILIZATION_CHANGE_PERCENT,'
4277 || 'SETUP_TIME_TYPE,'
4278 || 'UTILIZATION_CHANGE_TYPE '
4279 ||'FROM MSC_ST_DEPARTMENT_RESOURCES'|| v_dblink
4280 ||' WHERE '
4281 ||' sr_instance_id = ' || to_char(v_src_instance_id);
4282
4283
4284 EXECUTE IMMEDIATE v_sql_stmt USING
4285 v_inst_rp_src_id
4286 ,v_ascp_inst,v_icode
4287 ,v_ascp_inst,v_icode
4288 ;
4289
4290 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
4291 COMMIT;
4292
4293 EXCEPTION
4294 WHEN OTHERS THEN
4295 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
4296 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
4297 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_DEPARTMENT_RESOURCES');
4298 v_retcode := 2;
4299 RAISE;
4300 ELSE
4301 IF v_retcode < 2 THEN
4302 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
4303 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_DEPARTMENT_RESOURCES');
4304 v_retcode := 1;
4305 END IF;
4306 RETURN;
4307 END IF;
4308 END COPY_DEPARTMENT_RESOURCES;
4309 PROCEDURE COPY_DESIGNATORS IS
4310
4311 BEGIN
4312
4313 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'MSC_ST_DESIGNATORS');
4314 v_sql_stmt:=
4315 'INSERT INTO MSC_ST_DESIGNATORS ('
4316 || 'DESIGNATOR_ID,'
4317 || 'DESIGNATOR,'
4318 || 'SR_DESIGNATOR,'
4319 || 'ORGANIZATION_ID,'
4320 || 'SR_ORGANIZATION_ID,'
4321 || 'MPS_RELIEF,'
4322 || 'INVENTORY_ATP_FLAG,'
4323 || 'DESCRIPTION,'
4324 || 'DISABLE_DATE,'
4325 || 'DEMAND_CLASS,'
4326 || 'ORGANIZATION_SELECTION,'
4327 || 'PRODUCTION,'
4328 || 'RECOMMENDATION_RELEASE,'
4329 || 'DESIGNATOR_TYPE,'
4330 || 'DELETED_FLAG,'
4331 || 'LAST_UPDATE_DATE,'
4332 || 'LAST_UPDATED_BY,'
4333 || 'CREATION_DATE,'
4334 || 'CREATED_BY,'
4335 || 'LAST_UPDATE_LOGIN,'
4336 || 'REQUEST_ID,'
4337 || 'PROGRAM_APPLICATION_ID,'
4338 || 'PROGRAM_ID,'
4339 || 'PROGRAM_UPDATE_DATE,'
4340 || 'SR_INSTANCE_ID,'
4341 || 'REFRESH_ID,'
4342 || 'CONSUME_FORECAST,'
4343 || 'UPDATE_TYPE,'
4344 || 'FORWARD_UPDATE_TIME_FENCE,'
4345 || 'BACKWARD_UPDATE_TIME_FENCE,'
4346 || 'OUTLIER_UPDATE_PERCENTAGE,'
4347 || 'FORECAST_SET_ID,'
4348 || 'CUSTOMER_ID,'
4349 || 'SHIP_ID,'
4350 || 'BILL_ID,'
4351 || 'BUCKET_TYPE,'
4352 || 'PROBABILITY,'
4353 || 'FORECAST_SET,'
4354 || 'COMPANY_ID,'
4355 || 'COMPANY_NAME,'
4356 || 'ORGANIZATION_CODE,'
4357 || 'CUSTOMER_NAME,'
4358 || 'SHIP_TO_SITE_CODE,'
4359 || 'BILL_TO_SITE_CODE,'
4360 || 'SR_INSTANCE_CODE,'
4361 || 'MESSAGE_ID,'
4362 || 'PROCESS_FLAG,'
4363 || 'DATA_SOURCE_TYPE,'
4364 || 'ST_TRANSACTION_ID,'
4365 || 'ERROR_TEXT,'
4366 || 'BATCH_ID,'
4367 || 'SELLER_FLAG '
4368 || ')'
4369 ||'SELECT '
4370 || 'DESIGNATOR_ID,'
4371 || 'DESIGNATOR,'
4372 || 'SR_DESIGNATOR,'
4373 || 'ORGANIZATION_ID,'
4374 || 'SR_ORGANIZATION_ID,'
4375 || 'MPS_RELIEF,'
4376 || 'INVENTORY_ATP_FLAG,'
4377 || 'DESCRIPTION,'
4378 || 'DISABLE_DATE,'
4379 || 'DEMAND_CLASS,'
4380 || 'ORGANIZATION_SELECTION,'
4381 || 'PRODUCTION,'
4382 || 'RECOMMENDATION_RELEASE,'
4383 || 'DESIGNATOR_TYPE,'
4384 || 'DELETED_FLAG,'
4385 || 'LAST_UPDATE_DATE,'
4386 || 'LAST_UPDATED_BY,'
4387 || 'CREATION_DATE,'
4388 || 'CREATED_BY,'
4389 || 'LAST_UPDATE_LOGIN,'
4390 || 'REQUEST_ID,'
4391 || 'PROGRAM_APPLICATION_ID,'
4392 || 'PROGRAM_ID,'
4393 || 'PROGRAM_UPDATE_DATE,'
4394 || ':v_inst_rp_src_id,'
4395 || 'REFRESH_ID,'
4396 || 'CONSUME_FORECAST,'
4397 || 'UPDATE_TYPE,'
4398 || 'FORWARD_UPDATE_TIME_FENCE,'
4399 || 'BACKWARD_UPDATE_TIME_FENCE,'
4400 || 'OUTLIER_UPDATE_PERCENTAGE,'
4401 || 'FORECAST_SET_ID,'
4402 || 'CUSTOMER_ID,'
4403 || 'SHIP_ID,'
4404 || 'BILL_ID,'
4405 || 'BUCKET_TYPE,'
4406 || 'PROBABILITY,'
4407 || 'FORECAST_SET,'
4408 || 'COMPANY_ID,'
4409 || 'COMPANY_NAME,'
4410 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
4411 || 'CUSTOMER_NAME,'
4412 || 'SHIP_TO_SITE_CODE,'
4413 || 'BILL_TO_SITE_CODE,'
4414 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
4415 || 'MESSAGE_ID,'
4416 || 'PROCESS_FLAG,'
4417 || 'DATA_SOURCE_TYPE,'
4418 || 'ST_TRANSACTION_ID,'
4419 || 'ERROR_TEXT,'
4420 || 'BATCH_ID,'
4421 || 'SELLER_FLAG '
4422 ||'FROM MSC_ST_DESIGNATORS'|| v_dblink
4423 ||' WHERE '
4424 ||' sr_instance_id = ' || to_char(v_src_instance_id);
4425
4426
4427 EXECUTE IMMEDIATE v_sql_stmt USING
4428 v_inst_rp_src_id
4429 ,v_ascp_inst,v_icode
4430 ,v_ascp_inst,v_icode
4431 ;
4432
4433 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
4434 COMMIT;
4435
4436 EXCEPTION
4437 WHEN OTHERS THEN
4438 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
4439 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
4440 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_DESIGNATORS');
4441 v_retcode := 2;
4442 RAISE;
4443 ELSE
4444 IF v_retcode < 2 THEN
4445 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
4446 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_DESIGNATORS');
4447 v_retcode := 1;
4448 END IF;
4449 RETURN;
4450 END IF;
4451 END COPY_DESIGNATORS;
4452 PROCEDURE COPY_GROUPS IS
4453
4454 BEGIN
4455
4456 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_GROUPS');
4457 v_sql_stmt:=
4458 'INSERT INTO MSC_ST_GROUPS ('
4459 || 'GROUP_ID,'
4460 || 'GROUP_NAME,'
4461 || 'DESCRIPTION,'
4462 || 'GROUP_TYPE,'
4463 || 'GROUP_OWNER_ID,'
4464 || 'CONTACT_USER_NAME,'
4465 || 'CONTACT_USER_ID,'
4466 || 'CONTRACT_DOC_URL,'
4467 || 'EFFECTIVE_DATE,'
4468 || 'DISABLE_DATE,'
4469 || 'CREATION_DATE,'
4470 || 'CREATED_BY,'
4471 || 'LAST_UPDATE_DATE,'
4472 || 'LAST_UPDATED_BY,'
4473 || 'LAST_UPDATE_LOGIN,'
4474 || 'CONTEXT,'
4475 || 'ATTRIBUTE1,'
4476 || 'ATTRIBUTE2,'
4477 || 'ATTRIBUTE3,'
4478 || 'ATTRIBUTE4,'
4479 || 'ATTRIBUTE5,'
4480 || 'ATTRIBUTE6,'
4481 || 'ATTRIBUTE7,'
4482 || 'ATTRIBUTE8,'
4483 || 'ATTRIBUTE9,'
4484 || 'ATTRIBUTE10,'
4485 || 'ATTRIBUTE11,'
4486 || 'ATTRIBUTE12,'
4487 || 'ATTRIBUTE13,'
4488 || 'ATTRIBUTE14,'
4489 || 'ATTRIBUTE15,'
4490 || 'SR_INSTANCE_CODE,'
4491 || 'SR_INSTANCE_ID,'
4492 || 'BATCH_ID,'
4493 || 'REQUEST_ID,'
4494 || 'PROCESS_FLAG,'
4495 || 'ERROR_TEXT,'
4496 || 'DELETED_FLAG,'
4497 || 'MESSAGE_ID,'
4498 || 'DATA_SOURCE_TYPE,'
4499 || 'ST_TRANSACTION_ID,'
4500 || 'PROGRAM_APPLICATION_ID,'
4501 || 'PROGRAM_ID,'
4502 || 'PROGRAM_UPDATE_DATE '
4503 || ')'
4504 ||'SELECT '
4505 || 'GROUP_ID,'
4506 || 'GROUP_NAME,'
4507 || 'DESCRIPTION,'
4508 || 'GROUP_TYPE,'
4509 || 'GROUP_OWNER_ID,'
4510 || 'CONTACT_USER_NAME,'
4511 || 'CONTACT_USER_ID,'
4512 || 'CONTRACT_DOC_URL,'
4513 || 'EFFECTIVE_DATE,'
4514 || 'DISABLE_DATE,'
4515 || 'CREATION_DATE,'
4516 || 'CREATED_BY,'
4517 || 'LAST_UPDATE_DATE,'
4518 || 'LAST_UPDATED_BY,'
4519 || 'LAST_UPDATE_LOGIN,'
4520 || 'CONTEXT,'
4521 || 'ATTRIBUTE1,'
4522 || 'ATTRIBUTE2,'
4523 || 'ATTRIBUTE3,'
4524 || 'ATTRIBUTE4,'
4525 || 'ATTRIBUTE5,'
4526 || 'ATTRIBUTE6,'
4527 || 'ATTRIBUTE7,'
4528 || 'ATTRIBUTE8,'
4529 || 'ATTRIBUTE9,'
4530 || 'ATTRIBUTE10,'
4531 || 'ATTRIBUTE11,'
4532 || 'ATTRIBUTE12,'
4533 || 'ATTRIBUTE13,'
4534 || 'ATTRIBUTE14,'
4535 || 'ATTRIBUTE15,'
4536 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
4537 || ':v_inst_rp_src_id,'
4538 || 'BATCH_ID,'
4539 || 'REQUEST_ID,'
4540 || 'PROCESS_FLAG,'
4541 || 'ERROR_TEXT,'
4542 || 'DELETED_FLAG,'
4543 || 'MESSAGE_ID,'
4544 || 'DATA_SOURCE_TYPE,'
4545 || 'ST_TRANSACTION_ID,'
4546 || 'PROGRAM_APPLICATION_ID,'
4547 || 'PROGRAM_ID,'
4548 || 'PROGRAM_UPDATE_DATE '
4549 ||'FROM MSC_ST_GROUPS'|| v_dblink
4550 ||' WHERE '
4551 ||' sr_instance_id = ' || to_char(v_src_instance_id);
4552
4553
4554 EXECUTE IMMEDIATE v_sql_stmt USING
4555 v_ascp_inst,v_icode
4556 ,v_inst_rp_src_id
4557 ;
4558
4559 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
4560 COMMIT;
4561
4562 EXCEPTION
4563 WHEN OTHERS THEN
4564 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
4565 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
4566 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_GROUPS');
4567 v_retcode := 2;
4568 RAISE;
4569 ELSE
4570 IF v_retcode < 2 THEN
4571 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
4572 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_GROUPS');
4573 v_retcode := 1;
4574 END IF;
4575 RETURN;
4576 END IF;
4577 END COPY_GROUPS;
4578 PROCEDURE COPY_GROUP_COMPANIES IS
4579
4580 BEGIN
4581
4582 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_GROUP_COMPANIES');
4583 v_sql_stmt:=
4584 'INSERT INTO MSC_ST_GROUP_COMPANIES ('
4585 || 'GROUP_ID,'
4586 || 'GROUP_NAME,'
4587 || 'COMPANY_NAME,'
4588 || 'COMPANY_ID,'
4589 || 'EFFECTIVE_DATE,'
4590 || 'DISABLE_DATE,'
4591 || 'CONTACT_USER_NAME,'
4592 || 'CONTACT_USER_ID,'
4593 || 'CREATION_DATE,'
4594 || 'CREATED_BY,'
4595 || 'LAST_UPDATE_DATE,'
4596 || 'LAST_UPDATED_BY,'
4597 || 'LAST_UPDATE_LOGIN,'
4598 || 'CONTEXT,'
4599 || 'ATTRIBUTE1,'
4600 || 'ATTRIBUTE2,'
4601 || 'ATTRIBUTE3,'
4602 || 'ATTRIBUTE4,'
4603 || 'ATTRIBUTE5,'
4604 || 'ATTRIBUTE6,'
4605 || 'ATTRIBUTE7,'
4606 || 'ATTRIBUTE8,'
4607 || 'ATTRIBUTE9,'
4608 || 'ATTRIBUTE10,'
4609 || 'ATTRIBUTE11,'
4610 || 'ATTRIBUTE12,'
4611 || 'ATTRIBUTE13,'
4612 || 'ATTRIBUTE14,'
4613 || 'ATTRIBUTE15,'
4614 || 'SR_INSTANCE_CODE,'
4615 || 'SR_INSTANCE_ID,'
4616 || 'BATCH_ID,'
4617 || 'REQUEST_ID,'
4618 || 'PROCESS_FLAG,'
4619 || 'ERROR_TEXT,'
4620 || 'DELETED_FLAG,'
4621 || 'MESSAGE_ID,'
4622 || 'DATA_SOURCE_TYPE,'
4623 || 'ST_TRANSACTION_ID,'
4624 || 'POSTING_PARTY_ID,'
4625 || 'PROGRAM_APPLICATION_ID,'
4626 || 'PROGRAM_ID,'
4627 || 'PROGRAM_UPDATE_DATE '
4628 || ')'
4629 ||'SELECT '
4630 || 'GROUP_ID,'
4631 || 'GROUP_NAME,'
4632 || 'COMPANY_NAME,'
4633 || 'COMPANY_ID,'
4634 || 'EFFECTIVE_DATE,'
4635 || 'DISABLE_DATE,'
4636 || 'CONTACT_USER_NAME,'
4637 || 'CONTACT_USER_ID,'
4638 || 'CREATION_DATE,'
4639 || 'CREATED_BY,'
4640 || 'LAST_UPDATE_DATE,'
4641 || 'LAST_UPDATED_BY,'
4642 || 'LAST_UPDATE_LOGIN,'
4643 || 'CONTEXT,'
4644 || 'ATTRIBUTE1,'
4645 || 'ATTRIBUTE2,'
4646 || 'ATTRIBUTE3,'
4647 || 'ATTRIBUTE4,'
4648 || 'ATTRIBUTE5,'
4649 || 'ATTRIBUTE6,'
4650 || 'ATTRIBUTE7,'
4651 || 'ATTRIBUTE8,'
4652 || 'ATTRIBUTE9,'
4653 || 'ATTRIBUTE10,'
4654 || 'ATTRIBUTE11,'
4655 || 'ATTRIBUTE12,'
4656 || 'ATTRIBUTE13,'
4657 || 'ATTRIBUTE14,'
4658 || 'ATTRIBUTE15,'
4659 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
4660 || ':v_inst_rp_src_id,'
4661 || 'BATCH_ID,'
4662 || 'REQUEST_ID,'
4663 || 'PROCESS_FLAG,'
4664 || 'ERROR_TEXT,'
4665 || 'DELETED_FLAG,'
4666 || 'MESSAGE_ID,'
4667 || 'DATA_SOURCE_TYPE,'
4668 || 'ST_TRANSACTION_ID,'
4669 || 'POSTING_PARTY_ID,'
4670 || 'PROGRAM_APPLICATION_ID,'
4671 || 'PROGRAM_ID,'
4672 || 'PROGRAM_UPDATE_DATE '
4673 ||'FROM MSC_ST_GROUP_COMPANIES'|| v_dblink
4674 ||' WHERE '
4675 ||' sr_instance_id = ' || to_char(v_src_instance_id);
4676
4677
4678 EXECUTE IMMEDIATE v_sql_stmt USING
4679 v_ascp_inst,v_icode
4680 ,v_inst_rp_src_id
4681 ;
4682
4683 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
4684 COMMIT;
4685
4686 EXCEPTION
4687 WHEN OTHERS THEN
4688 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
4689 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
4690 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_GROUP_COMPANIES');
4691
4692 v_retcode := 2;
4693 RAISE;
4694 ELSE
4695 IF v_retcode < 2 THEN
4696 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
4697 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_GROUP_COMPANIES');
4698 v_retcode := 1;
4699 END IF;
4700 RETURN;
4701 END IF;
4702 END COPY_GROUP_COMPANIES;
4703 PROCEDURE COPY_INTERORG_SHIP_METHODS IS
4704
4705 BEGIN
4706
4707 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_INTERORG_SHIP_METHODS');
4708 v_sql_stmt:=
4709 'INSERT INTO MSC_ST_INTERORG_SHIP_METHODS ('
4710 || 'FROM_ORGANIZATION_ID,'
4711 || 'TO_ORGANIZATION_ID,'
4712 || 'SHIP_METHOD,'
4713 || 'TIME_UOM_CODE,'
4714 || 'INSTRANSIT_TIME,'
4715 || 'DEFAULT_FLAG,'
4716 || 'FROM_LOCATION_ID,'
4717 || 'TO_LOCATION_ID,'
4718 || 'AVAILABILITY_DATE,'
4719 || 'WEIGHT_CAPACITY,'
4720 || 'WEIGHT_UOM,'
4721 || 'VOLUME_CAPACITY,'
4722 || 'VOLUME_UOM,'
4723 || 'COST_PER_WEIGHT_UNIT,'
4724 || 'COST_PER_VOLUME_UNIT,'
4725 || 'INTRANSIT_TIME,'
4726 || 'DELETED_FLAG,'
4727 || 'LAST_UPDATE_DATE,'
4728 || 'LAST_UPDATED_BY,'
4729 || 'CREATION_DATE,'
4730 || 'CREATED_BY,'
4731 || 'LAST_UPDATE_LOGIN,'
4732 || 'REQUEST_ID,'
4733 || 'PROGRAM_APPLICATION_ID,'
4734 || 'PROGRAM_ID,'
4735 || 'PROGRAM_UPDATE_DATE,'
4736 || 'REFRESH_ID,'
4737 || 'SR_INSTANCE_ID,'
4738 || 'TRANSPORT_CAP_OVER_UTIL_COST,'
4739 || 'SR_INSTANCE_ID2,'
4740 || 'TO_REGION_ID,'
4741 || 'FROM_ORGANIZATION_CODE,'
4742 || 'TO_ORGANIZATION_CODE,'
4743 || 'SR_INSTANCE_CODE,'
4744 || 'MESSAGE_ID,'
4745 || 'PROCESS_FLAG,'
4746 || 'DATA_SOURCE_TYPE,'
4747 || 'ST_TRANSACTION_ID,'
4748 || 'ERROR_TEXT,'
4749 || 'BATCH_ID,'
4750 || 'COMPANY_NAME,'
4751 || 'FROM_LOCATION_CODE,'
4752 || 'TO_LOCATION_CODE,'
4753 || 'FROM_REGION_ID,'
4754 || 'CURRENCY,'
4755 || 'TO_REGION_TYPE,'
4756 || 'TO_COUNTRY,'
4757 || 'TO_COUNTRY_CODE,'
4758 || 'TO_STATE,'
4759 || 'TO_STATE_CODE,'
4760 || 'TO_CITY,'
4761 || 'TO_CITY_CODE,'
4762 || 'TO_POSTAL_CODE_FROM,'
4763 || 'TO_POSTAL_CODE_TO,'
4764 || 'TO_ZONE,'
4765 || 'FROM_REGION_TYPE,'
4766 || 'FROM_COUNTRY,'
4767 || 'FROM_COUNTRY_CODE,'
4768 || 'FROM_STATE,'
4769 || 'FROM_STATE_CODE,'
4770 || 'FROM_CITY,'
4771 || 'FROM_CITY_CODE,'
4772 || 'FROM_POSTAL_CODE_FROM,'
4773 || 'FROM_POSTAL_CODE_TO,'
4774 || 'FROM_ZONE,'
4775 || 'SHIP_METHOD_TEXT '
4776 || ')'
4777 ||'SELECT '
4778 || 'FROM_ORGANIZATION_ID,'
4779 || 'TO_ORGANIZATION_ID,'
4780 || 'SHIP_METHOD,'
4781 || 'TIME_UOM_CODE,'
4782 || 'INSTRANSIT_TIME,'
4783 || 'DEFAULT_FLAG,'
4784 || 'FROM_LOCATION_ID,'
4785 || 'TO_LOCATION_ID,'
4786 || 'AVAILABILITY_DATE,'
4787 || 'WEIGHT_CAPACITY,'
4788 || 'WEIGHT_UOM,'
4789 || 'VOLUME_CAPACITY,'
4790 || 'VOLUME_UOM,'
4791 || 'COST_PER_WEIGHT_UNIT,'
4792 || 'COST_PER_VOLUME_UNIT,'
4793 || 'INTRANSIT_TIME,'
4794 || 'DELETED_FLAG,'
4795 || 'LAST_UPDATE_DATE,'
4796 || 'LAST_UPDATED_BY,'
4797 || 'CREATION_DATE,'
4798 || 'CREATED_BY,'
4799 || 'LAST_UPDATE_LOGIN,'
4800 || 'REQUEST_ID,'
4801 || 'PROGRAM_APPLICATION_ID,'
4802 || 'PROGRAM_ID,'
4803 || 'PROGRAM_UPDATE_DATE,'
4804 || 'REFRESH_ID,'
4805 || ':v_inst_rp_src_id,'
4806 || 'TRANSPORT_CAP_OVER_UTIL_COST,'
4807 || ':v_inst_rp_src_id,'
4808 || 'TO_REGION_ID,'
4809 || 'FROM_ORGANIZATION_CODE,'
4810 || 'TO_ORGANIZATION_CODE,'
4811 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
4812 || 'MESSAGE_ID,'
4813 || 'PROCESS_FLAG,'
4814 || 'DATA_SOURCE_TYPE,'
4815 || 'ST_TRANSACTION_ID,'
4816 || 'ERROR_TEXT,'
4817 || 'BATCH_ID,'
4818 || 'COMPANY_NAME,'
4819 || 'FROM_LOCATION_CODE,'
4820 || 'TO_LOCATION_CODE,'
4821 || 'FROM_REGION_ID,'
4822 || 'CURRENCY,'
4823 || 'TO_REGION_TYPE,'
4824 || 'TO_COUNTRY,'
4825 || 'TO_COUNTRY_CODE,'
4826 || 'TO_STATE,'
4827 || 'TO_STATE_CODE,'
4828 || 'TO_CITY,'
4829 || 'TO_CITY_CODE,'
4830 || 'TO_POSTAL_CODE_FROM,'
4831 || 'TO_POSTAL_CODE_TO,'
4832 || 'TO_ZONE,'
4833 || 'FROM_REGION_TYPE,'
4834 || 'FROM_COUNTRY,'
4835 || 'FROM_COUNTRY_CODE,'
4836 || 'FROM_STATE,'
4837 || 'FROM_STATE_CODE,'
4838 || 'FROM_CITY,'
4839 || 'FROM_CITY_CODE,'
4840 || 'FROM_POSTAL_CODE_FROM,'
4841 || 'FROM_POSTAL_CODE_TO,'
4842 || 'FROM_ZONE,'
4843 || 'SHIP_METHOD_TEXT '
4844 ||'FROM MSC_ST_INTERORG_SHIP_METHODS'|| v_dblink
4845 ||' WHERE '
4846 ||' sr_instance_id = ' || to_char(v_src_instance_id);
4847
4848
4849 EXECUTE IMMEDIATE v_sql_stmt USING
4850 v_inst_rp_src_id
4851 ,v_inst_rp_src_id
4852 ,v_ascp_inst,v_icode
4853 ;
4854
4855 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
4856 COMMIT;
4857
4858 EXCEPTION
4859 WHEN OTHERS THEN
4860 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
4861 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
4862 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_INTERORG_SHIP_METHODS');
4863 v_retcode := 2;
4864 RAISE;
4865 ELSE
4866 IF v_retcode < 2 THEN
4867 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
4868 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_INTERORG_SHIP_METHODS');
4869 v_retcode := 1;
4870 END IF;
4871 RETURN;
4872 END IF;
4873 END COPY_INTERORG_SHIP_METHODS;
4874 PROCEDURE COPY_ITEM_CATEGORIES IS
4875
4876 BEGIN
4877
4878 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_ITEM_CATEGORIES');
4879 v_sql_stmt:=
4880 'INSERT INTO MSC_ST_ITEM_CATEGORIES ('
4881 || 'INVENTORY_ITEM_ID,'
4882 || 'ORGANIZATION_ID,'
4883 || 'SR_CATEGORY_SET_ID,'
4884 || 'SR_CATEGORY_ID,'
4885 || 'CATEGORY_NAME,'
4886 || 'DESCRIPTION,'
4887 || 'DISABLE_DATE,'
4888 || 'SUMMARY_FLAG,'
4889 || 'ENABLED_FLAG,'
4890 || 'START_DATE_ACTIVE,'
4891 || 'END_DATE_ACTIVE,'
4892 || 'CATEGORY_SET_NAME,'
4893 || 'DELETED_FLAG,'
4894 || 'LAST_UPDATE_DATE,'
4895 || 'LAST_UPDATED_BY,'
4896 || 'CREATION_DATE,'
4897 || 'CREATED_BY,'
4898 || 'LAST_UPDATE_LOGIN,'
4899 || 'REQUEST_ID,'
4900 || 'PROGRAM_APPLICATION_ID,'
4901 || 'PROGRAM_ID,'
4902 || 'PROGRAM_UPDATE_DATE,'
4903 || 'SR_INSTANCE_ID,'
4904 || 'REFRESH_ID,'
4905 || 'COMPANY_ID,'
4906 || 'COMPANY_NAME,'
4907 || 'ITEM_NAME,'
4908 || 'ORGANIZATION_CODE,'
4909 || 'SR_INSTANCE_CODE,'
4910 || 'MESSAGE_ID,'
4911 || 'PROCESS_FLAG,'
4912 || 'DATA_SOURCE_TYPE,'
4913 || 'ST_TRANSACTION_ID,'
4914 || 'BATCH_ID,'
4915 || 'ERROR_TEXT,'
4916 || 'SOURCE_ORG_ID,'
4917 || 'SOURCE_INVENTORY_ITEM_ID,'
4918 || 'SOURCE_SR_CATEGORY_SET_ID,'
4919 || 'SOURCE_SR_CATEGORY_ID '
4920 || ')'
4921 ||'SELECT '
4922 || 'INVENTORY_ITEM_ID,'
4923 || 'ORGANIZATION_ID,'
4924 || 'SR_CATEGORY_SET_ID,'
4925 || 'SR_CATEGORY_ID,'
4926 || 'CATEGORY_NAME,'
4927 || 'DESCRIPTION,'
4928 || 'DISABLE_DATE,'
4929 || 'SUMMARY_FLAG,'
4930 || 'ENABLED_FLAG,'
4931 || 'START_DATE_ACTIVE,'
4932 || 'END_DATE_ACTIVE,'
4933 || 'CATEGORY_SET_NAME,'
4934 || 'DELETED_FLAG,'
4935 || 'LAST_UPDATE_DATE,'
4936 || 'LAST_UPDATED_BY,'
4937 || 'CREATION_DATE,'
4938 || 'CREATED_BY,'
4939 || 'LAST_UPDATE_LOGIN,'
4940 || 'REQUEST_ID,'
4941 || 'PROGRAM_APPLICATION_ID,'
4942 || 'PROGRAM_ID,'
4943 || 'PROGRAM_UPDATE_DATE,'
4944 || ':v_inst_rp_src_id,'
4945 || 'REFRESH_ID,'
4946 || 'COMPANY_ID,'
4947 || 'COMPANY_NAME,'
4948 || 'ITEM_NAME,'
4949 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
4950 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
4951 || 'MESSAGE_ID,'
4952 || 'PROCESS_FLAG,'
4953 || 'DATA_SOURCE_TYPE,'
4954 || 'ST_TRANSACTION_ID,'
4955 || 'BATCH_ID,'
4956 || 'ERROR_TEXT,'
4957 || 'SOURCE_ORG_ID,'
4958 || 'SOURCE_INVENTORY_ITEM_ID,'
4959 || 'SOURCE_SR_CATEGORY_SET_ID,'
4960 || 'SOURCE_SR_CATEGORY_ID '
4961 ||'FROM MSC_ST_ITEM_CATEGORIES'|| v_dblink
4962 ||' WHERE '
4963 ||' sr_instance_id = ' || to_char(v_src_instance_id);
4964
4965
4966 EXECUTE IMMEDIATE v_sql_stmt USING
4967 v_inst_rp_src_id
4968 ,v_ascp_inst,v_icode
4969 ,v_ascp_inst,v_icode
4970 ;
4971
4972 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
4973 COMMIT;
4974
4975 EXCEPTION
4976 WHEN OTHERS THEN
4977 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
4978 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
4979 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_ITEM_CATEGORIES');
4980 v_retcode := 2;
4981 RAISE;
4982 ELSE
4983 IF v_retcode < 2 THEN
4984 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
4985 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_ITEM_CATEGORIES');
4986 v_retcode := 1;
4987 END IF;
4988 RETURN;
4989 END IF;
4990 END COPY_ITEM_CATEGORIES;
4991 PROCEDURE COPY_ITEM_CUSTOMERS IS
4992
4993 BEGIN
4994
4995 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_ITEM_CUSTOMERS');
4996 v_sql_stmt:=
4997 'INSERT INTO MSC_ST_ITEM_CUSTOMERS ('
4998 || 'INVENTORY_ITEM_ID,'
4999 || 'SR_INSTANCE_ID,'
5000 || 'CUSTOMER_ID,'
5001 || 'CUSTOMER_NAME,'
5002 || 'CUSTOMER_SITE_ID,'
5003 || 'CUSTOMER_SITE_NAME,'
5004 || 'ITEM_NAME,'
5005 || 'CUSTOMER_ITEM_NAME,'
5006 || 'DESCRIPTION,'
5007 || 'LEAD_TIME,'
5008 || 'UOM_CODE,'
5009 || 'LIST_PRICE,'
5010 || 'PLANNER_CODE,'
5011 || 'REFRESH_NUMBER,'
5012 || 'PROCESS_FLAG,'
5013 || 'LAST_UPDATE_DATE,'
5014 || 'LAST_UPDATED_BY,'
5015 || 'CREATION_DATE,'
5016 || 'CREATED_BY,'
5017 || 'LAST_UPDATE_LOGIN,'
5018 || 'COMPANY_ID,'
5019 || 'REQUEST_ID,'
5020 || 'SR_INSTANCE_CODE,'
5021 || 'MESSAGE_ID,'
5022 || 'ERROR_TEXT,'
5023 || 'DATA_SOURCE_TYPE,'
5024 || 'DELETED_FLAG,'
5025 || 'COMPANY_NAME,'
5026 || 'PROGRAM_UPDATE_DATE,'
5027 || 'PROGRAM_ID,'
5028 || 'PROGRAM_APPLICATION_ID,'
5029 || 'BATCH_ID,'
5030 || 'ST_TRANSACTION_ID,'
5031 || 'REFRESH_ID '
5032 || ')'
5033 ||'SELECT '
5034 || 'INVENTORY_ITEM_ID,'
5035 || ':v_inst_rp_src_id,'
5036 || 'CUSTOMER_ID,'
5037 || 'CUSTOMER_NAME,'
5038 || 'CUSTOMER_SITE_ID,'
5039 || 'CUSTOMER_SITE_NAME,'
5040 || 'ITEM_NAME,'
5041 || 'CUSTOMER_ITEM_NAME,'
5042 || 'DESCRIPTION,'
5043 || 'LEAD_TIME,'
5044 || 'UOM_CODE,'
5045 || 'LIST_PRICE,'
5046 || 'PLANNER_CODE,'
5047 || 'REFRESH_NUMBER,'
5048 || 'PROCESS_FLAG,'
5049 || 'LAST_UPDATE_DATE,'
5050 || 'LAST_UPDATED_BY,'
5051 || 'CREATION_DATE,'
5052 || 'CREATED_BY,'
5053 || 'LAST_UPDATE_LOGIN,'
5054 || 'COMPANY_ID,'
5055 || 'REQUEST_ID,'
5056 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
5057 || 'MESSAGE_ID,'
5058 || 'ERROR_TEXT,'
5059 || 'DATA_SOURCE_TYPE,'
5060 || 'DELETED_FLAG,'
5061 || 'COMPANY_NAME,'
5062 || 'PROGRAM_UPDATE_DATE,'
5063 || 'PROGRAM_ID,'
5064 || 'PROGRAM_APPLICATION_ID,'
5065 || 'BATCH_ID,'
5066 || 'ST_TRANSACTION_ID,'
5067 || 'REFRESH_ID '
5068 ||'FROM MSC_ST_ITEM_CUSTOMERS'|| v_dblink
5069 ||' WHERE '
5070 ||' sr_instance_id = ' || to_char(v_src_instance_id);
5071
5072
5073 EXECUTE IMMEDIATE v_sql_stmt USING
5074 v_inst_rp_src_id
5075 ,v_ascp_inst,v_icode
5076 ;
5077
5078 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
5079 COMMIT;
5080
5081 EXCEPTION
5082 WHEN OTHERS THEN
5083 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
5084 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
5085 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_ITEM_CUSTOMERS');
5086 v_retcode := 2;
5087 RAISE;
5088 ELSE
5089 IF v_retcode < 2 THEN
5090 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
5091 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_ITEM_CUSTOMERS');
5092 v_retcode := 1;
5093 END IF;
5094 RETURN;
5095 END IF;
5096 END COPY_ITEM_CUSTOMERS;
5097 PROCEDURE COPY_ITEM_SOURCING IS
5098
5099 BEGIN
5100
5101 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_ITEM_SOURCING');
5102 v_sql_stmt:=
5103 'INSERT INTO MSC_ST_ITEM_SOURCING ('
5104 || 'SR_SOURCE_ID,'
5105 || 'SR_RECEIPT_ID,'
5106 || 'REFRESH_ID,'
5107 || 'ASSIGNMENT_ID,'
5108 || 'SOURCING_RULE_ID,'
5109 || 'ASSIGNMENT_SET_ID,'
5110 || 'CATEGORY_ID,'
5111 || 'CATEGORY_SET_ID,'
5112 || 'INVENTORY_ITEM_ID,'
5113 || 'ORGANIZATION_ID,'
5114 || 'SR_INSTANCE_ID,'
5115 || 'RECEIPT_ORGANIZATION_ID,'
5116 || 'RECEIPT_ORG_INSTANCE_ID,'
5117 || 'EFFECTIVE_DATE,'
5118 || 'DISABLE_DATE,'
5119 || 'SOURCE_ORGANIZATION_ID,'
5120 || 'SOURCE_ORG_INSTANCE_ID,'
5121 || 'SOURCE_PARTNER_ID,'
5122 || 'SOURCE_PARTNER_SITE_ID,'
5123 || 'ALLOCATION_PERCENT,'
5124 || 'RANK,'
5125 || 'SOURCE_TYPE,'
5126 || 'DESCRIPTION,'
5127 || 'PLANNING_ACTIVE,'
5128 || 'SHIP_METHOD,'
5129 || 'ASSIGNMENT_TYPE,'
5130 || 'ITEM_NAME,'
5131 || 'CATEGORY_NAME,'
5132 || 'ORGANIZATION_CODE,'
5133 || 'SR_INSTANCE_CODE,'
5134 || 'RECEIPT_ORGANIZATION_CODE,'
5135 || 'RECEIPT_ORG_INSTANCE_CODE,'
5136 || 'SOURCE_ORGANIZATION_CODE,'
5137 || 'SOURCE_ORG_INSTANCE_CODE,'
5138 || 'SOURCE_PARTNER_NAME,'
5139 || 'SOURCE_PARTNER_SITE_CODE,'
5140 || 'SOURCING_RULE_NAME,'
5141 || 'ASSIGNMENT_SET_NAME,'
5142 || 'DELETED_FLAG,'
5143 || 'MESSAGE_ID,'
5144 || 'ERROR_TEXT,'
5145 || 'PROCESS_FLAG,'
5146 || 'BATCH_ID,'
5147 || 'DATA_SOURCE_TYPE,'
5148 || 'ST_TRANSACTION_ID,'
5149 || 'LAST_UPDATED_BY,'
5150 || 'LAST_UPDATE_DATE,'
5151 || 'CREATED_BY,'
5152 || 'CREATION_DATE,'
5153 || 'LAST_UPDATE_LOGIN,'
5154 || 'REQUEST_ID,'
5155 || 'PROGRAM_APPLICATION_ID,'
5156 || 'PROGRAM_ID,'
5157 || 'PROGRAM_UPDATE_DATE,'
5158 || 'COMPANY_NAME,'
5159 || 'COMPANY_ID,'
5160 || 'SOURCE_ORG_ID,'
5161 || 'SOURCE_RECEIPT_ORGANIZATION_ID,'
5162 || 'SOURCE_INVENTORY_ITEM_ID,'
5163 || 'SOURCE_CATEGORY_SET_ID,'
5164 || 'SOURCE_CATEGORY_ID,'
5165 || 'SOURCE_SOURCE_PARTNER_ID,'
5166 || 'SOURCE_SOURCE_PARTNER_SITE_ID,'
5167 || 'SOURCE_SOURCE_ORGANIZATION_ID,'
5168 || 'SOURCE_SOURCING_RULE_ID,'
5169 || 'SOURCE_ASSIGNMENT_SET_ID,'
5170 || 'SOURCE_SR_RECEIPT_ID,'
5171 || 'SOURCE_SR_SOURCE_ID,'
5172 || 'SOURCE_ASSIGNMENT_ID '
5173 || ')'
5174 ||'SELECT '
5175 || 'SR_SOURCE_ID,'
5176 || 'SR_RECEIPT_ID,'
5177 || 'REFRESH_ID,'
5178 || 'ASSIGNMENT_ID,'
5179 || 'SOURCING_RULE_ID,'
5180 || 'ASSIGNMENT_SET_ID,'
5181 || 'CATEGORY_ID,'
5182 || 'CATEGORY_SET_ID,'
5183 || 'INVENTORY_ITEM_ID,'
5184 || 'ORGANIZATION_ID,'
5185 || ':v_inst_rp_src_id,'
5186 || 'RECEIPT_ORGANIZATION_ID,'
5187 || 'RECEIPT_ORG_INSTANCE_ID,'
5188 || 'EFFECTIVE_DATE,'
5189 || 'DISABLE_DATE,'
5190 || 'SOURCE_ORGANIZATION_ID,'
5191 || 'SOURCE_ORG_INSTANCE_ID,'
5192 || 'SOURCE_PARTNER_ID,'
5193 || 'SOURCE_PARTNER_SITE_ID,'
5194 || 'ALLOCATION_PERCENT,'
5195 || 'RANK,'
5196 || 'SOURCE_TYPE,'
5197 || 'DESCRIPTION,'
5198 || 'PLANNING_ACTIVE,'
5199 || 'SHIP_METHOD,'
5200 || 'ASSIGNMENT_TYPE,'
5201 || 'ITEM_NAME,'
5202 || 'CATEGORY_NAME,'
5203 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
5204 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
5205 || 'RECEIPT_ORGANIZATION_CODE,'
5206 || 'REPLACE(RECEIPT_ORG_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
5207 || 'SOURCE_ORGANIZATION_CODE,'
5208 || 'REPLACE(SOURCE_ORG_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
5209 || 'SOURCE_PARTNER_NAME,'
5210 || 'SOURCE_PARTNER_SITE_CODE,'
5211 || 'SOURCING_RULE_NAME,'
5212 || 'REPLACE(ASSIGNMENT_SET_NAME,:v_ascp_inst,:v_icode),'
5213 || 'DELETED_FLAG,'
5214 || 'MESSAGE_ID,'
5215 || 'ERROR_TEXT,'
5216 || 'PROCESS_FLAG,'
5217 || 'BATCH_ID,'
5218 || 'DATA_SOURCE_TYPE,'
5219 || 'ST_TRANSACTION_ID,'
5220 || 'LAST_UPDATED_BY,'
5221 || 'LAST_UPDATE_DATE,'
5222 || 'CREATED_BY,'
5223 || 'CREATION_DATE,'
5224 || 'LAST_UPDATE_LOGIN,'
5225 || 'REQUEST_ID,'
5226 || 'PROGRAM_APPLICATION_ID,'
5227 || 'PROGRAM_ID,'
5228 || 'PROGRAM_UPDATE_DATE,'
5229 || 'COMPANY_NAME,'
5230 || 'COMPANY_ID,'
5231 || 'SOURCE_ORG_ID,'
5232 || 'SOURCE_RECEIPT_ORGANIZATION_ID,'
5233 || 'SOURCE_INVENTORY_ITEM_ID,'
5234 || 'SOURCE_CATEGORY_SET_ID,'
5235 || 'SOURCE_CATEGORY_ID,'
5236 || 'SOURCE_SOURCE_PARTNER_ID,'
5237 || 'SOURCE_SOURCE_PARTNER_SITE_ID,'
5238 || 'SOURCE_SOURCE_ORGANIZATION_ID,'
5239 || 'SOURCE_SOURCING_RULE_ID,'
5240 || 'SOURCE_ASSIGNMENT_SET_ID,'
5241 || 'SOURCE_SR_RECEIPT_ID,'
5242 || 'SOURCE_SR_SOURCE_ID,'
5243 || 'SOURCE_ASSIGNMENT_ID '
5244 ||'FROM MSC_ST_ITEM_SOURCING'|| v_dblink
5245 ||' WHERE '
5246 ||' sr_instance_id = ' || to_char(v_src_instance_id);
5247
5248
5249 EXECUTE IMMEDIATE v_sql_stmt USING
5250 v_inst_rp_src_id
5251 ,v_ascp_inst,v_icode
5252 ,v_ascp_inst,v_icode
5253 ,v_ascp_inst,v_icode
5254 ,v_ascp_inst,v_icode
5255 ,v_ascp_inst,v_icode
5256 ;
5257
5258 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
5259 COMMIT;
5260
5261 EXCEPTION
5262 WHEN OTHERS THEN
5263 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
5264 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
5265 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_ITEM_SOURCING');
5266 v_retcode := 2;
5267 RAISE;
5268 ELSE
5269 IF v_retcode < 2 THEN
5270 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
5271 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_ITEM_SOURCING');
5272 v_retcode := 1;
5273 END IF;
5274 RETURN;
5275 END IF;
5276 END COPY_ITEM_SOURCING;
5277 PROCEDURE COPY_ITEM_SUBSTITUTES IS
5278
5279 BEGIN
5280
5281 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_ITEM_SUBSTITUTES');
5282 v_sql_stmt:=
5283 'INSERT INTO MSC_ST_ITEM_SUBSTITUTES ('
5284 || 'SR_INSTANCE_ID,'
5285 || 'LOWER_ITEM_ID,'
5286 || 'HIGHER_ITEM_ID,'
5287 || 'HIGHEST_ITEM_ID,'
5288 || 'CUSTOMER_ID,'
5289 || 'CUSTOMER_SITE_ID,'
5290 || 'EFFECTIVE_DATE,'
5291 || 'DISABLE_DATE,'
5292 || 'RELATIONSHIP_TYPE,'
5293 || 'RECIPROCAL_FLAG,'
5294 || 'SUBSTITUTION_SET,'
5295 || 'PARTIAL_FULFILLMENT_FLAG,'
5296 || 'LAST_UPDATE_DATE,'
5297 || 'LAST_UPDATED_BY,'
5298 || 'LAST_UPDATE_LOGIN,'
5299 || 'CREATION_DATE,'
5300 || 'CREATED_BY,'
5301 || 'SUBSTITUTE_ITEM_NAME,'
5302 || 'ITEM_NAME,'
5303 || 'CUSTOMER_NAME,'
5304 || 'CUSTOMER_SITE_CODE,'
5305 || 'SR_INSTANCE_CODE,'
5306 || 'MESSAGE_ID,'
5307 || 'PROCESS_FLAG,'
5308 || 'DATA_SOURCE_TYPE,'
5309 || 'ST_TRANSACTION_ID,'
5310 || 'ERROR_TEXT,'
5311 || 'BATCH_ID,'
5312 || 'DELETED_FLAG,'
5313 || 'COMPANY_NAME,'
5314 || 'REQUEST_ID,'
5315 || 'PROGRAM_APPLICATION_ID,'
5316 || 'PROGRAM_ID,'
5317 || 'PROGRAM_UPDATE_DATE,'
5318 || 'ORGANIZATION_ID '
5319 || ')'
5320 ||'SELECT '
5321 || ':v_inst_rp_src_id,'
5322 || 'LOWER_ITEM_ID,'
5323 || 'HIGHER_ITEM_ID,'
5324 || 'HIGHEST_ITEM_ID,'
5325 || 'CUSTOMER_ID,'
5326 || 'CUSTOMER_SITE_ID,'
5327 || 'EFFECTIVE_DATE,'
5328 || 'DISABLE_DATE,'
5329 || 'RELATIONSHIP_TYPE,'
5330 || 'RECIPROCAL_FLAG,'
5331 || 'SUBSTITUTION_SET,'
5332 || 'PARTIAL_FULFILLMENT_FLAG,'
5333 || 'LAST_UPDATE_DATE,'
5334 || 'LAST_UPDATED_BY,'
5335 || 'LAST_UPDATE_LOGIN,'
5336 || 'CREATION_DATE,'
5337 || 'CREATED_BY,'
5338 || 'SUBSTITUTE_ITEM_NAME,'
5339 || 'ITEM_NAME,'
5340 || 'CUSTOMER_NAME,'
5341 || 'CUSTOMER_SITE_CODE,'
5342 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
5343 || 'MESSAGE_ID,'
5344 || 'PROCESS_FLAG,'
5345 || 'DATA_SOURCE_TYPE,'
5346 || 'ST_TRANSACTION_ID,'
5347 || 'ERROR_TEXT,'
5348 || 'BATCH_ID,'
5349 || 'DELETED_FLAG,'
5350 || 'COMPANY_NAME,'
5351 || 'REQUEST_ID,'
5352 || 'PROGRAM_APPLICATION_ID,'
5353 || 'PROGRAM_ID,'
5354 || 'PROGRAM_UPDATE_DATE,'
5355 || 'ORGANIZATION_ID '
5356 ||'FROM MSC_ST_ITEM_SUBSTITUTES'|| v_dblink
5357 ||' WHERE '
5358 ||' sr_instance_id = ' || to_char(v_src_instance_id);
5359
5360
5361 EXECUTE IMMEDIATE v_sql_stmt USING
5362 v_inst_rp_src_id
5363 ,v_ascp_inst,v_icode
5364 ;
5365
5366 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
5367 COMMIT;
5368
5369 EXCEPTION
5370 WHEN OTHERS THEN
5371 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
5372 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
5373 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_ITEM_SUBSTITUTES');
5374 v_retcode := 2;
5375 RAISE;
5376 ELSE
5377 IF v_retcode < 2 THEN
5378 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
5379 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_ITEM_SUBSTITUTES');
5380 v_retcode := 1;
5381 END IF;
5382 RETURN;
5383 END IF;
5384 END COPY_ITEM_SUBSTITUTES;
5385 PROCEDURE COPY_ITEM_SUPPLIERS IS
5386
5387 BEGIN
5388
5389 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_ITEM_SUPPLIERS');
5390 v_sql_stmt:=
5391 'INSERT INTO MSC_ST_ITEM_SUPPLIERS ('
5392 || 'INVENTORY_ITEM_ID,'
5393 || 'ORGANIZATION_ID,'
5394 || 'SUPPLIER_ID,'
5395 || 'SUPPLIER_SITE_ID,'
5396 || 'USING_ORGANIZATION_ID,'
5397 || 'ASL_ID,'
5398 || 'PROCESSING_LEAD_TIME,'
5399 || 'MINIMUM_ORDER_QUANTITY,'
5400 || 'FIXED_LOT_MULTIPLE,'
5401 || 'DELIVERY_CALENDAR_CODE,'
5402 || 'VENDOR_NAME,'
5403 || 'VENDOR_SITE_CODE,'
5404 || 'SUPPLIER_CAP_OVER_UTIL_COST,'
5405 || 'DELETED_FLAG,'
5406 || 'LAST_UPDATE_DATE,'
5407 || 'LAST_UPDATED_BY,'
5408 || 'CREATION_DATE,'
5409 || 'CREATED_BY,'
5410 || 'LAST_UPDATE_LOGIN,'
5411 || 'REQUEST_ID,'
5412 || 'PROGRAM_APPLICATION_ID,'
5413 || 'PROGRAM_ID,'
5414 || 'PROGRAM_UPDATE_DATE,'
5415 || 'SR_INSTANCE_ID,'
5416 || 'SR_INSTANCE_ID2,'
5417 || 'REFRESH_ID,'
5418 || 'PURCHASING_UNIT_OF_MEASURE,'
5419 || 'ITEM_PRICE,'
5420 || 'COMPANY_ID,'
5421 || 'COMPANY_NAME,'
5422 || 'ITEM_NAME,'
5423 || 'ORGANIZATION_CODE,'
5424 || 'SR_INSTANCE_CODE,'
5425 || 'MESSAGE_ID,'
5426 || 'PROCESS_FLAG,'
5427 || 'DATA_SOURCE_TYPE,'
5428 || 'ST_TRANSACTION_ID,'
5429 || 'ERROR_TEXT,'
5430 || 'BATCH_ID,'
5431 || 'SUPPLIER_ITEM_NAME,'
5432 || 'PLANNER_CODE,'
5433 || 'SUPPLIER_COMPANY_ID,'
5434 || 'SUPPLIER_COMPANY_SITE_ID,'
5435 || 'VMI_FLAG,'
5436 || 'MIN_MINMAX_QUANTITY,'
5437 || 'MAX_MINMAX_QUANTITY,'
5438 || 'MAXIMUM_ORDER_QUANTITY,'
5439 || 'VMI_REPLENISHMENT_APPROVAL,'
5440 || 'ENABLE_VMI_AUTO_REPLENISH_FLAG,'
5441 || 'ASL_LEVEL,'
5442 || 'USING_ORGANIZATION_CODE,'
5443 || 'MIN_MINMAX_DAYS,'
5444 || 'MAX_MINMAX_DAYS,'
5445 || 'FIXED_ORDER_QUANTITY,'
5446 || 'FORECAST_HORIZON,'
5447 || 'REPLENISHMENT_METHOD,'
5448 || 'ASL_ATTRIBUTE_CREATION_DATE '
5449 || ')'
5450 ||'SELECT '
5451 || 'INVENTORY_ITEM_ID,'
5452 || 'ORGANIZATION_ID,'
5453 || 'SUPPLIER_ID,'
5454 || 'SUPPLIER_SITE_ID,'
5455 || 'USING_ORGANIZATION_ID,'
5456 || 'ASL_ID,'
5457 || 'PROCESSING_LEAD_TIME,'
5458 || 'MINIMUM_ORDER_QUANTITY,'
5459 || 'FIXED_LOT_MULTIPLE,'
5460 || 'REPLACE(DELIVERY_CALENDAR_CODE,:v_ascp_inst,:v_icode),'
5461 || 'VENDOR_NAME,'
5462 || 'VENDOR_SITE_CODE,'
5463 || 'SUPPLIER_CAP_OVER_UTIL_COST,'
5464 || 'DELETED_FLAG,'
5465 || 'LAST_UPDATE_DATE,'
5466 || 'LAST_UPDATED_BY,'
5467 || 'CREATION_DATE,'
5468 || 'CREATED_BY,'
5469 || 'LAST_UPDATE_LOGIN,'
5470 || 'REQUEST_ID,'
5471 || 'PROGRAM_APPLICATION_ID,'
5472 || 'PROGRAM_ID,'
5473 || 'PROGRAM_UPDATE_DATE,'
5474 || ':v_inst_rp_src_id,'
5475 || ':v_inst_rp_src_id,'
5476 || 'REFRESH_ID,'
5477 || 'PURCHASING_UNIT_OF_MEASURE,'
5478 || 'ITEM_PRICE,'
5479 || 'COMPANY_ID,'
5480 || 'COMPANY_NAME,'
5481 || 'ITEM_NAME,'
5482 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
5483 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
5484 || 'MESSAGE_ID,'
5485 || 'PROCESS_FLAG,'
5486 || 'DATA_SOURCE_TYPE,'
5487 || 'ST_TRANSACTION_ID,'
5488 || 'ERROR_TEXT,'
5489 || 'BATCH_ID,'
5490 || 'SUPPLIER_ITEM_NAME,'
5491 || 'PLANNER_CODE,'
5492 || 'SUPPLIER_COMPANY_ID,'
5493 || 'SUPPLIER_COMPANY_SITE_ID,'
5494 || 'VMI_FLAG,'
5495 || 'MIN_MINMAX_QUANTITY,'
5496 || 'MAX_MINMAX_QUANTITY,'
5497 || 'MAXIMUM_ORDER_QUANTITY,'
5498 || 'VMI_REPLENISHMENT_APPROVAL,'
5499 || 'ENABLE_VMI_AUTO_REPLENISH_FLAG,'
5500 || 'ASL_LEVEL,'
5501 || 'USING_ORGANIZATION_CODE,'
5502 || 'MIN_MINMAX_DAYS,'
5503 || 'MAX_MINMAX_DAYS,'
5504 || 'FIXED_ORDER_QUANTITY,'
5505 || 'FORECAST_HORIZON,'
5506 || 'REPLENISHMENT_METHOD,'
5507 || 'ASL_ATTRIBUTE_CREATION_DATE '
5508 ||'FROM MSC_ST_ITEM_SUPPLIERS'|| v_dblink
5509 ||' WHERE '
5510 ||' sr_instance_id = ' || to_char(v_src_instance_id);
5511
5512
5513 EXECUTE IMMEDIATE v_sql_stmt USING
5514 v_ascp_inst,v_icode
5515 ,v_inst_rp_src_id
5516 ,v_inst_rp_src_id
5517 ,v_ascp_inst,v_icode
5518 ,v_ascp_inst,v_icode
5519 ;
5520
5521 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
5522 COMMIT;
5523
5524 EXCEPTION
5525 WHEN OTHERS THEN
5526 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
5527 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
5528 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_ITEM_SUPPLIERS');
5529 v_retcode := 2;
5530 RAISE;
5531 ELSE
5532 IF v_retcode < 2 THEN
5533 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
5534 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_ITEM_SUPPLIERS');
5535 v_retcode := 1;
5536 END IF;
5537 RETURN;
5538 END IF;
5539 END COPY_ITEM_SUPPLIERS;
5540 PROCEDURE COPY_LOCATION_ASSOCIATIONS IS
5541
5542 BEGIN
5543
5544 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_LOCATION_ASSOCIATIONS');
5545 v_sql_stmt:=
5546 'INSERT INTO MSC_ST_LOCATION_ASSOCIATIONS ('
5547 || 'LOCATION_ID,'
5548 || 'SR_INSTANCE_ID,'
5549 || 'LOCATION_CODE,'
5550 || 'ORGANIZATON_ID,'
5551 || 'PARTNER_ID,'
5552 || 'PARTNER_SITE_ID,'
5553 || 'SR_TP_ID,'
5554 || 'SR_TP_SITE_ID,'
5555 || 'LAST_UPDATE_DATE,'
5556 || 'LAST_UPDATED_BY,'
5557 || 'CREATION_DATE,'
5558 || 'CREATED_BY,'
5559 || 'LAST_UPDATE_LOGIN,'
5560 || 'REQUEST_ID,'
5561 || 'PROGRAM_APPLICATION_ID,'
5562 || 'PROGRAM_ID,'
5563 || 'PROGRAM_UPDATE_DATE,'
5564 || 'ORGANIZATION_ID,'
5565 || 'REFRESH_ID,'
5566 || 'PARTNER_TYPE,'
5567 || 'COMPANY_ID,'
5568 || 'COMPANY_NAME,'
5569 || 'PARTNER_NAME,'
5570 || 'ORGANIZATION_CODE,'
5571 || 'TP_SITE_CODE,'
5572 || 'SR_INSTANCE_CODE,'
5573 || 'MESSAGE_ID,'
5574 || 'PROCESS_FLAG,'
5575 || 'DELETED_FLAG,'
5576 || 'DATA_SOURCE_TYPE,'
5577 || 'ST_TRANSACTION_ID,'
5578 || 'BATCH_ID,'
5579 || 'ERROR_TEXT,'
5580 || 'SOURCE_SR_TP_ID,'
5581 || 'SOURCE_SR_TP_SITE_ID,'
5582 || 'SOURCE_LOCATION_ID '
5583 || ')'
5584 ||'SELECT '
5585 || 'LOCATION_ID,'
5586 || ':v_inst_rp_src_id,'
5587 || 'LOCATION_CODE,'
5588 || 'ORGANIZATON_ID,'
5589 || 'PARTNER_ID,'
5590 || 'PARTNER_SITE_ID,'
5591 || 'SR_TP_ID,'
5592 || 'SR_TP_SITE_ID,'
5593 || 'LAST_UPDATE_DATE,'
5594 || 'LAST_UPDATED_BY,'
5595 || 'CREATION_DATE,'
5596 || 'CREATED_BY,'
5597 || 'LAST_UPDATE_LOGIN,'
5598 || 'REQUEST_ID,'
5599 || 'PROGRAM_APPLICATION_ID,'
5600 || 'PROGRAM_ID,'
5601 || 'PROGRAM_UPDATE_DATE,'
5602 || 'ORGANIZATION_ID,'
5603 || 'REFRESH_ID,'
5604 || 'PARTNER_TYPE,'
5605 || 'COMPANY_ID,'
5606 || 'COMPANY_NAME,'
5607 || 'REPLACE(PARTNER_NAME,:v_ascp_inst,:v_icode),'
5608 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
5609 || 'TP_SITE_CODE,'
5610 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
5611 || 'MESSAGE_ID,'
5612 || 'PROCESS_FLAG,'
5613 || 'DELETED_FLAG,'
5614 || 'DATA_SOURCE_TYPE,'
5615 || 'ST_TRANSACTION_ID,'
5616 || 'BATCH_ID,'
5617 || 'ERROR_TEXT,'
5618 || 'SOURCE_SR_TP_ID,'
5619 || 'SOURCE_SR_TP_SITE_ID,'
5620 || 'SOURCE_LOCATION_ID '
5621 ||'FROM MSC_ST_LOCATION_ASSOCIATIONS'|| v_dblink
5622 ||' WHERE '
5623 ||' sr_instance_id = ' || to_char(v_src_instance_id);
5624
5625
5626 EXECUTE IMMEDIATE v_sql_stmt USING
5627 v_inst_rp_src_id
5628 ,v_ascp_inst,v_icode
5629 ,v_ascp_inst,v_icode
5630 ,v_ascp_inst,v_icode
5631 ;
5632
5633 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
5634 COMMIT;
5635
5636 EXCEPTION
5637 WHEN OTHERS THEN
5638 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
5639 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
5640 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_LOCATION_ASSOCIATIONS');
5641 v_retcode := 2;
5642 RAISE;
5643 ELSE
5644 IF v_retcode < 2 THEN
5645 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
5646 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_LOCATION_ASSOCIATIONS');
5647 v_retcode := 1;
5648 END IF;
5649 RETURN;
5650 END IF;
5651 END COPY_LOCATION_ASSOCIATIONS;
5652 PROCEDURE COPY_NET_RESOURCE_AVAIL IS
5653
5654 BEGIN
5655
5656 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_NET_RESOURCE_AVAIL');
5657 v_sql_stmt:=
5658 'INSERT INTO MSC_ST_NET_RESOURCE_AVAIL ('
5659 || 'ORGANIZATION_ID,'
5660 || 'DEPARTMENT_ID,'
5661 || 'RESOURCE_ID,'
5662 || 'SHIFT_NUM,'
5663 || 'SHIFT_DATE,'
5664 || 'FROM_TIME,'
5665 || 'TO_TIME,'
5666 || 'CAPACITY_UNITS,'
5667 || 'SIMULATION_SET,'
5668 || 'AGGREGATE_RESOURCE_ID,'
5669 || 'DELETED_FLAG,'
5670 || 'LAST_UPDATE_DATE,'
5671 || 'LAST_UPDATED_BY,'
5672 || 'CREATION_DATE,'
5673 || 'CREATED_BY,'
5674 || 'LAST_UPDATE_LOGIN,'
5675 || 'REQUEST_ID,'
5676 || 'PROGRAM_APPLICATION_ID,'
5677 || 'PROGRAM_ID,'
5678 || 'PROGRAM_UPDATE_DATE,'
5679 || 'SR_INSTANCE_ID,'
5680 || 'REFRESH_ID '
5681 || ')'
5682 ||'SELECT '
5683 || 'ORGANIZATION_ID,'
5684 || 'DEPARTMENT_ID,'
5685 || 'RESOURCE_ID,'
5686 || 'SHIFT_NUM,'
5687 || 'SHIFT_DATE,'
5688 || 'FROM_TIME,'
5689 || 'TO_TIME,'
5690 || 'CAPACITY_UNITS,'
5691 || 'SIMULATION_SET,'
5692 || 'AGGREGATE_RESOURCE_ID,'
5693 || 'DELETED_FLAG,'
5694 || 'LAST_UPDATE_DATE,'
5695 || 'LAST_UPDATED_BY,'
5696 || 'CREATION_DATE,'
5697 || 'CREATED_BY,'
5698 || 'LAST_UPDATE_LOGIN,'
5699 || 'REQUEST_ID,'
5700 || 'PROGRAM_APPLICATION_ID,'
5701 || 'PROGRAM_ID,'
5702 || 'PROGRAM_UPDATE_DATE,'
5703 || ':v_inst_rp_src_id,'
5704 || 'REFRESH_ID '
5705 ||'FROM MSC_ST_NET_RESOURCE_AVAIL'|| v_dblink
5706 ||' WHERE '
5707 ||' sr_instance_id = ' || to_char(v_src_instance_id);
5708
5709
5710 EXECUTE IMMEDIATE v_sql_stmt USING
5711 v_inst_rp_src_id
5712 ;
5713
5714 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
5715 COMMIT;
5716
5717 EXCEPTION
5718 WHEN OTHERS THEN
5719 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
5720 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
5721 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_NET_RESOURCE_AVAIL');
5722 v_retcode := 2;
5723 RAISE;
5724 ELSE
5725 IF v_retcode < 2 THEN
5726 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
5727 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_NET_RESOURCE_AVAIL');
5728 v_retcode := 1;
5729 END IF;
5730 RETURN;
5731 END IF;
5732 END COPY_NET_RESOURCE_AVAIL;
5733 PROCEDURE COPY_OPERATION_COMPONENTS IS
5734
5735 BEGIN
5736
5737 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_OPERATION_COMPONENTS');
5738 v_sql_stmt:=
5739 'INSERT INTO MSC_ST_OPERATION_COMPONENTS ('
5740 || 'ORGANIZATION_ID,'
5741 || 'OPERATION_SEQUENCE_ID,'
5742 || 'COMPONENT_SEQUENCE_ID,'
5743 || 'BILL_SEQUENCE_ID,'
5744 || 'ROUTING_SEQUENCE_ID,'
5745 || 'DELETED_FLAG,'
5746 || 'LAST_UPDATE_DATE,'
5747 || 'LAST_UPDATED_BY,'
5748 || 'CREATION_DATE,'
5749 || 'CREATED_BY,'
5750 || 'LAST_UPDATE_LOGIN,'
5751 || 'REQUEST_ID,'
5752 || 'PROGRAM_APPLICATION_ID,'
5753 || 'PROGRAM_ID,'
5754 || 'PROGRAM_UPDATE_DATE,'
5755 || 'REFRESH_ID,'
5756 || 'SR_INSTANCE_ID '
5757 || ')'
5758 ||'SELECT '
5759 || 'ORGANIZATION_ID,'
5760 || 'OPERATION_SEQUENCE_ID,'
5761 || 'COMPONENT_SEQUENCE_ID,'
5762 || 'BILL_SEQUENCE_ID,'
5763 || 'ROUTING_SEQUENCE_ID,'
5764 || 'DELETED_FLAG,'
5765 || 'LAST_UPDATE_DATE,'
5766 || 'LAST_UPDATED_BY,'
5767 || 'CREATION_DATE,'
5768 || 'CREATED_BY,'
5769 || 'LAST_UPDATE_LOGIN,'
5770 || 'REQUEST_ID,'
5771 || 'PROGRAM_APPLICATION_ID,'
5772 || 'PROGRAM_ID,'
5773 || 'PROGRAM_UPDATE_DATE,'
5774 || 'REFRESH_ID,'
5775 || ':v_inst_rp_src_id '
5776 ||'FROM MSC_ST_OPERATION_COMPONENTS'|| v_dblink
5777 ||' WHERE '
5778 ||' sr_instance_id = ' || to_char(v_src_instance_id);
5779
5780
5781 EXECUTE IMMEDIATE v_sql_stmt USING
5782 v_inst_rp_src_id
5783 ;
5784
5785 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
5786 COMMIT;
5787
5788 EXCEPTION
5789 WHEN OTHERS THEN
5790 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
5791 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
5792 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_OPERATION_COMPONENTS');
5793 v_retcode := 2;
5794 RAISE;
5795 ELSE
5796 IF v_retcode < 2 THEN
5797 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
5798 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_OPERATION_COMPONENTS');
5799 v_retcode := 1;
5800 END IF;
5801 RETURN;
5802 END IF;
5803 END COPY_OPERATION_COMPONENTS;
5804 PROCEDURE COPY_OPERATION_NETWORKS IS
5805
5806 BEGIN
5807
5808 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_OPERATION_NETWORKS:');
5809 v_sql_stmt:=
5810 'INSERT INTO MSC_ST_OPERATION_NETWORKS ('
5811 || 'FROM_OP_SEQ_ID,'
5812 || 'TO_OP_SEQ_ID,'
5813 || 'TRANSITION_TYPE,'
5814 || 'DELETED_FLAG,'
5815 || 'REFRESH_ID,'
5816 || 'ORIGINAL_SYSTEM_REFERENCE,'
5817 || 'PLANNING_PCT,'
5818 || 'CUMMULATIVE_PCT,'
5819 || 'EFECTIVITY_DATE,'
5820 || 'DISABLE_DATE,'
5821 || 'PLAN_ID,'
5822 || 'SR_INSTANCE_ID,'
5823 || 'CREATED_BY,'
5824 || 'CREATION_DATE,'
5825 || 'LAST_UPDATED_BY,'
5826 || 'LAST_UPDATE_DATE,'
5827 || 'LAST_UPDATE_LOGIN,'
5828 || 'ATTRIBUTE_CATEGORY,'
5829 || 'ATTRIBUTE1,'
5830 || 'ATTRIBUTE2,'
5831 || 'ATTRIBUTE3,'
5832 || 'ATTRIBUTE4,'
5833 || 'ATTRIBUTE5,'
5834 || 'ATTRIBUTE6,'
5835 || 'ATTRIBUTE7,'
5836 || 'ATTRIBUTE8,'
5837 || 'ATTRIBUTE9,'
5838 || 'ATTRIBUTE10,'
5839 || 'ATTRIBUTE11,'
5840 || 'ATTRIBUTE12,'
5841 || 'ATTRIBUTE13,'
5842 || 'ATTRIBUTE14,'
5843 || 'ATTRIBUTE15,'
5844 || 'ROUTING_SEQUENCE_ID,'
5845 || 'FROM_OP_SEQ_NUM,'
5846 || 'TO_OP_SEQ_NUM,'
5847 || 'FROM_OPERATION_SEQ_CODE,'
5848 || 'FROM_OP_EFFECTIVITY_DATE,'
5849 || 'FROM_OP_DISABLE_DATE,'
5850 || 'TO_OPERATION_SEQ_CODE,'
5851 || 'TO_OP_EFFECTIVITY_DATE,'
5852 || 'TO_OP_DISABLE_DATE,'
5853 || 'ROUTING_NAME,'
5854 || 'ASSEMBLY_NAME,'
5855 || 'ALTERNATE_ROUTING_DESIGNATOR,'
5856 || 'COMPANY_NAME,'
5857 || 'ORGANIZATION_CODE,'
5858 || 'SR_INSTANCE_CODE,'
5859 || 'MESSAGE_ID,'
5860 || 'PROCESS_FLAG,'
5861 || 'DATA_SOURCE_TYPE,'
5862 || 'BATCH_ID,'
5863 || 'ERROR_TEXT,'
5864 || 'PROGRAM_APPLICATION_ID,'
5865 || 'REQUEST_ID,'
5866 || 'PROGRAM_ID,'
5867 || 'PROGRAM_UPDATE_DATE,'
5868 || 'ST_TRANSACTION_ID,'
5869 || 'TO_ROUTING_SEQUENCE_ID,'
5870 || 'FROM_ITEM_ID,'
5871 || 'MINIMUM_TRANSFER_QTY,'
5872 || 'MINIMUM_TIME_OFFSET,'
5873 || 'MAXIMUM_TIME_OFFSET,'
5874 || 'TO_ALT_ROUTING_DESIGNATOR,'
5875 || 'APPLY_TO_CHARGES,'
5876 || 'TRANSFER_QTY,'
5877 || 'TRANSFER_UOM,'
5878 || 'TRANSFER_PCT,'
5879 || 'DEPENDENCY_TYPE,'
5880 || 'ORGANIZATION_ID '
5881 || ')'
5882 ||'SELECT '
5883 || 'FROM_OP_SEQ_ID,'
5884 || 'TO_OP_SEQ_ID,'
5885 || 'TRANSITION_TYPE,'
5886 || 'DELETED_FLAG,'
5887 || 'REFRESH_ID,'
5888 || 'ORIGINAL_SYSTEM_REFERENCE,'
5889 || 'PLANNING_PCT,'
5890 || 'CUMMULATIVE_PCT,'
5891 || 'EFECTIVITY_DATE,'
5892 || 'DISABLE_DATE,'
5893 || 'PLAN_ID,'
5894 || ':v_inst_rp_src_id,'
5895 || 'CREATED_BY,'
5896 || 'CREATION_DATE,'
5897 || 'LAST_UPDATED_BY,'
5898 || 'LAST_UPDATE_DATE,'
5899 || 'LAST_UPDATE_LOGIN,'
5900 || 'ATTRIBUTE_CATEGORY,'
5901 || 'ATTRIBUTE1,'
5902 || 'ATTRIBUTE2,'
5903 || 'ATTRIBUTE3,'
5904 || 'ATTRIBUTE4,'
5905 || 'ATTRIBUTE5,'
5906 || 'ATTRIBUTE6,'
5907 || 'ATTRIBUTE7,'
5908 || 'ATTRIBUTE8,'
5909 || 'ATTRIBUTE9,'
5910 || 'ATTRIBUTE10,'
5911 || 'ATTRIBUTE11,'
5912 || 'ATTRIBUTE12,'
5913 || 'ATTRIBUTE13,'
5914 || 'ATTRIBUTE14,'
5915 || 'ATTRIBUTE15,'
5916 || 'ROUTING_SEQUENCE_ID,'
5917 || 'FROM_OP_SEQ_NUM,'
5918 || 'TO_OP_SEQ_NUM,'
5919 || 'FROM_OPERATION_SEQ_CODE,'
5920 || 'FROM_OP_EFFECTIVITY_DATE,'
5921 || 'FROM_OP_DISABLE_DATE,'
5922 || 'TO_OPERATION_SEQ_CODE,'
5923 || 'TO_OP_EFFECTIVITY_DATE,'
5924 || 'TO_OP_DISABLE_DATE,'
5925 || 'ROUTING_NAME,'
5926 || 'ASSEMBLY_NAME,'
5927 || 'ALTERNATE_ROUTING_DESIGNATOR,'
5928 || 'COMPANY_NAME,'
5929 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
5930 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
5931 || 'MESSAGE_ID,'
5932 || 'PROCESS_FLAG,'
5933 || 'DATA_SOURCE_TYPE,'
5934 || 'BATCH_ID,'
5935 || 'ERROR_TEXT,'
5936 || 'PROGRAM_APPLICATION_ID,'
5937 || 'REQUEST_ID,'
5938 || 'PROGRAM_ID,'
5939 || 'PROGRAM_UPDATE_DATE,'
5940 || 'ST_TRANSACTION_ID,'
5941 || 'TO_ROUTING_SEQUENCE_ID,'
5942 || 'FROM_ITEM_ID,'
5943 || 'MINIMUM_TRANSFER_QTY,'
5944 || 'MINIMUM_TIME_OFFSET,'
5945 || 'MAXIMUM_TIME_OFFSET,'
5946 || 'TO_ALT_ROUTING_DESIGNATOR,'
5947 || 'APPLY_TO_CHARGES,'
5948 || 'TRANSFER_QTY,'
5949 || 'TRANSFER_UOM,'
5950 || 'TRANSFER_PCT,'
5951 || 'DEPENDENCY_TYPE,'
5952 || 'ORGANIZATION_ID '
5953 ||'FROM MSC_ST_OPERATION_NETWORKS'|| v_dblink
5954 ||' WHERE '
5955 ||' sr_instance_id = ' || to_char(v_src_instance_id);
5956
5957
5958 EXECUTE IMMEDIATE v_sql_stmt USING
5959 v_inst_rp_src_id
5960 ,v_ascp_inst,v_icode
5961 ,v_ascp_inst,v_icode
5962 ;
5963
5964 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
5965 COMMIT;
5966
5967 EXCEPTION
5968 WHEN OTHERS THEN
5969 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
5970 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
5971 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_OPERATION_NETWORKS');
5972 v_retcode := 2;
5973 RAISE;
5974 ELSE
5975 IF v_retcode < 2 THEN
5976 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
5977 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_OPERATION_NETWORKS');
5978 v_retcode := 1;
5979 END IF;
5980 RETURN;
5981 END IF;
5982 END COPY_OPERATION_NETWORKS;
5983 PROCEDURE COPY_OPERATION_RESOURCES IS
5984
5985 BEGIN
5986
5987 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_OPERATION_RESOURCES');
5988 v_sql_stmt:=
5989 'INSERT INTO MSC_ST_OPERATION_RESOURCES ('
5990 || 'ROUTING_SEQUENCE_ID,'
5991 || 'RESOURCE_TYPE,'
5992 || 'OPERATION_SEQUENCE_ID,'
5993 || 'RESOURCE_SEQ_NUM,'
5994 || 'RESOURCE_ID,'
5995 || 'ALTERNATE_NUMBER,'
5996 || 'PRINCIPAL_FLAG,'
5997 || 'BASIS_TYPE,'
5998 || 'RESOURCE_USAGE,'
5999 || 'MAX_RESOURCE_UNITS,'
6000 || 'RESOURCE_UNITS,'
6001 || 'UOM_CODE,'
6002 || 'DELETED_FLAG,'
6003 || 'LAST_UPDATE_DATE,'
6004 || 'LAST_UPDATED_BY,'
6005 || 'CREATION_DATE,'
6006 || 'CREATED_BY,'
6007 || 'LAST_UPDATE_LOGIN,'
6008 || 'REQUEST_ID,'
6009 || 'PROGRAM_APPLICATION_ID,'
6010 || 'PROGRAM_ID,'
6011 || 'PROGRAM_UPDATE_DATE,'
6012 || 'SR_INSTANCE_ID,'
6013 || 'REFRESH_ID,'
6014 || 'COMPANY_ID,'
6015 || 'COMPANY_NAME,'
6016 || 'ROUTING_NAME,'
6017 || 'ALTERNATE_ROUTING_DESIGNATOR,'
6018 || 'ORGANIZATION_CODE,'
6019 || 'ASSEMBLY_NAME,'
6020 || 'OPERATION_EFFECTIVITY_DATE,'
6021 || 'SR_INSTANCE_CODE,'
6022 || 'OPERATION_SEQ_CODE,'
6023 || 'RESOURCE_SEQ_CODE,'
6024 || 'DEPARTMENT_ID,'
6025 || 'DEPARTMENT_CODE,'
6026 || 'RESOURCE_CODE,'
6027 || 'ERROR_TEXT,'
6028 || 'MESSAGE_ID,'
6029 || 'PROCESS_FLAG,'
6030 || 'DATA_SOURCE_TYPE,'
6031 || 'ST_TRANSACTION_ID,'
6032 || 'BATCH_ID,'
6033 || 'ACTIVITY_GROUP_ID,'
6034 || 'SCHEDULE_FLAG,'
6035 || 'ORGANIZATION_ID,'
6036 || 'RESOURCE_OFFSET_PERCENT,'
6037 || 'SOURCE_ROUTING_SEQUENCE_ID,'
6038 || 'SOURCE_OPERATION_SEQUENCE_ID,'
6039 || 'SOURCE_RESOURCE_SEQ_NUM,'
6040 || 'SOURCE_RESOURCE_ID,'
6041 || 'SOURCE_DEPARTMENT_ID,'
6042 || 'SOURCE_ORGANIZATION_ID,'
6043 || 'SETUP_ID,'
6044 || 'MINIMUM_CAPACITY,'
6045 || 'MAXIMUM_CAPACITY,'
6046 || 'ORIG_RESOURCE_SEQ_NUM,'
6047 || 'BREAKABLE_ACTIVITY_FLAG '
6048 || ')'
6049 ||'SELECT '
6050 || 'ROUTING_SEQUENCE_ID,'
6051 || 'RESOURCE_TYPE,'
6052 || 'OPERATION_SEQUENCE_ID,'
6053 || 'RESOURCE_SEQ_NUM,'
6054 || 'RESOURCE_ID,'
6055 || 'ALTERNATE_NUMBER,'
6056 || 'PRINCIPAL_FLAG,'
6057 || 'BASIS_TYPE,'
6058 || 'RESOURCE_USAGE,'
6059 || 'MAX_RESOURCE_UNITS,'
6060 || 'RESOURCE_UNITS,'
6061 || 'UOM_CODE,'
6062 || 'DELETED_FLAG,'
6063 || 'LAST_UPDATE_DATE,'
6064 || 'LAST_UPDATED_BY,'
6065 || 'CREATION_DATE,'
6066 || 'CREATED_BY,'
6067 || 'LAST_UPDATE_LOGIN,'
6068 || 'REQUEST_ID,'
6069 || 'PROGRAM_APPLICATION_ID,'
6070 || 'PROGRAM_ID,'
6071 || 'PROGRAM_UPDATE_DATE,'
6072 || ':v_inst_rp_src_id,'
6073 || 'REFRESH_ID,'
6074 || 'COMPANY_ID,'
6075 || 'COMPANY_NAME,'
6076 || 'ROUTING_NAME,'
6077 || 'ALTERNATE_ROUTING_DESIGNATOR,'
6078 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
6079 || 'ASSEMBLY_NAME,'
6080 || 'OPERATION_EFFECTIVITY_DATE,'
6081 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
6082 || 'OPERATION_SEQ_CODE,'
6083 || 'RESOURCE_SEQ_CODE,'
6084 || 'DEPARTMENT_ID,'
6085 || 'DEPARTMENT_CODE,'
6086 || 'RESOURCE_CODE,'
6087 || 'ERROR_TEXT,'
6088 || 'MESSAGE_ID,'
6089 || 'PROCESS_FLAG,'
6090 || 'DATA_SOURCE_TYPE,'
6091 || 'ST_TRANSACTION_ID,'
6092 || 'BATCH_ID,'
6093 || 'ACTIVITY_GROUP_ID,'
6094 || 'SCHEDULE_FLAG,'
6095 || 'ORGANIZATION_ID,'
6096 || 'RESOURCE_OFFSET_PERCENT,'
6097 || 'SOURCE_ROUTING_SEQUENCE_ID,'
6098 || 'SOURCE_OPERATION_SEQUENCE_ID,'
6099 || 'SOURCE_RESOURCE_SEQ_NUM,'
6100 || 'SOURCE_RESOURCE_ID,'
6101 || 'SOURCE_DEPARTMENT_ID,'
6102 || 'SOURCE_ORGANIZATION_ID,'
6103 || 'SETUP_ID,'
6104 || 'MINIMUM_CAPACITY,'
6105 || 'MAXIMUM_CAPACITY,'
6106 || 'ORIG_RESOURCE_SEQ_NUM,'
6107 || 'BREAKABLE_ACTIVITY_FLAG '
6108 ||'FROM MSC_ST_OPERATION_RESOURCES'|| v_dblink
6109 ||' WHERE '
6110 ||' sr_instance_id = ' || to_char(v_src_instance_id);
6111
6112
6113 EXECUTE IMMEDIATE v_sql_stmt USING
6114 v_inst_rp_src_id
6115 ,v_ascp_inst,v_icode
6116 ,v_ascp_inst,v_icode
6117 ;
6118
6119 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
6120 COMMIT;
6121
6122 EXCEPTION
6123 WHEN OTHERS THEN
6124 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
6125 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
6126 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_OPERATION_RESOURCES');
6127 v_retcode := 2;
6128 RAISE;
6129 ELSE
6130 IF v_retcode < 2 THEN
6131 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
6132 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_OPERATION_RESOURCES');
6133 v_retcode := 1;
6134 END IF;
6135 RETURN;
6136 END IF;
6137 END COPY_OPERATION_RESOURCES;
6138 PROCEDURE COPY_OPERATION_RESOURCE_SEQS IS
6139
6140 BEGIN
6141
6142 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_OPERATION_RESOURCE_SEQS');
6143 v_sql_stmt:=
6144 'INSERT INTO MSC_ST_OPERATION_RESOURCE_SEQS ('
6145 || 'ROUTING_SEQUENCE_ID,'
6146 || 'OPERATION_SEQUENCE_ID,'
6147 || 'RESOURCE_SEQ_NUM,'
6148 || 'SCHEDULE_FLAG,'
6149 || 'RESOURCE_OFFSET_PERCENT,'
6150 || 'DEPARTMENT_ID,'
6151 || 'DELETED_FLAG,'
6152 || 'LAST_UPDATE_DATE,'
6153 || 'LAST_UPDATED_BY,'
6154 || 'CREATION_DATE,'
6155 || 'CREATED_BY,'
6156 || 'LAST_UPDATE_LOGIN,'
6157 || 'REQUEST_ID,'
6158 || 'PROGRAM_APPLICATION_ID,'
6159 || 'PROGRAM_ID,'
6160 || 'PROGRAM_UPDATE_DATE,'
6161 || 'SR_INSTANCE_ID,'
6162 || 'REFRESH_ID,'
6163 || 'CUMMULATIVE_PCT,'
6164 || 'ACTIVITY_GROUP_ID,'
6165 || 'ORGANIZATION_ID '
6166 || ')'
6167 ||'SELECT '
6168 || 'ROUTING_SEQUENCE_ID,'
6169 || 'OPERATION_SEQUENCE_ID,'
6170 || 'RESOURCE_SEQ_NUM,'
6171 || 'SCHEDULE_FLAG,'
6172 || 'RESOURCE_OFFSET_PERCENT,'
6173 || 'DEPARTMENT_ID,'
6174 || 'DELETED_FLAG,'
6175 || 'LAST_UPDATE_DATE,'
6176 || 'LAST_UPDATED_BY,'
6177 || 'CREATION_DATE,'
6178 || 'CREATED_BY,'
6179 || 'LAST_UPDATE_LOGIN,'
6180 || 'REQUEST_ID,'
6181 || 'PROGRAM_APPLICATION_ID,'
6182 || 'PROGRAM_ID,'
6183 || 'PROGRAM_UPDATE_DATE,'
6184 || ':v_inst_rp_src_id,'
6185 || 'REFRESH_ID,'
6186 || 'CUMMULATIVE_PCT,'
6187 || 'ACTIVITY_GROUP_ID,'
6188 || 'ORGANIZATION_ID '
6189 ||'FROM MSC_ST_OPERATION_RESOURCE_SEQS'|| v_dblink
6190 ||' WHERE '
6191 ||' sr_instance_id = ' || to_char(v_src_instance_id);
6192
6193
6194 EXECUTE IMMEDIATE v_sql_stmt USING
6195 v_inst_rp_src_id
6196 ;
6197
6198 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
6199 COMMIT;
6200
6201 EXCEPTION
6202 WHEN OTHERS THEN
6203 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
6204 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
6205 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_OPERATION_RESOURCE_SEQS');
6206 v_retcode := 2;
6207 RAISE;
6208 ELSE
6209 IF v_retcode < 2 THEN
6210 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
6211 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_OPERATION_RESOURCE_SEQS');
6212 v_retcode := 1;
6213 END IF;
6214 RETURN;
6215 END IF;
6216 END COPY_OPERATION_RESOURCE_SEQS;
6217 PROCEDURE COPY_PARAMETERS IS
6218
6219 BEGIN
6220
6221 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_PARAMETERS');
6222 v_sql_stmt:=
6223 'INSERT INTO MSC_ST_PARAMETERS ('
6224 || 'ORGANIZATION_ID,'
6225 || 'DEMAND_TIME_FENCE_FLAG,'
6226 || 'PLANNING_TIME_FENCE_FLAG,'
6227 || 'OPERATION_SCHEDULE_TYPE,'
6228 || 'CONSIDER_WIP,'
6229 || 'CONSIDER_PO,'
6230 || 'SNAPSHOT_LOCK,'
6231 || 'PLAN_SAFETY_STOCK,'
6232 || 'CONSIDER_RESERVATIONS,'
6233 || 'PART_INCLUDE_TYPE,'
6234 || 'DEFAULT_ABC_ASSIGNMENT_GROUP,'
6235 || 'PERIOD_TYPE,'
6236 || 'RESCHED_ASSUMPTION,'
6237 || 'PLAN_DATE_DEFAULT_TYPE,'
6238 || 'INCLUDE_REP_SUPPLY_DAYS,'
6239 || 'INCLUDE_MDS_DAYS,'
6240 || 'DELETED_FLAG,'
6241 || 'LAST_UPDATE_DATE,'
6242 || 'LAST_UPDATED_BY,'
6243 || 'CREATION_DATE,'
6244 || 'CREATED_BY,'
6245 || 'LAST_UPDATE_LOGIN,'
6246 || 'REQUEST_ID,'
6247 || 'PROGRAM_APPLICATION_ID,'
6248 || 'PROGRAM_ID,'
6249 || 'PROGRAM_UPDATE_DATE,'
6250 || 'SR_INSTANCE_ID,'
6251 || 'REFRESH_ID,'
6252 || 'REPETITIVE_HORIZON1,'
6253 || 'REPETITIVE_HORIZON2,'
6254 || 'REPETITIVE_BUCKET_SIZE1,'
6255 || 'REPETITIVE_BUCKET_SIZE2,'
6256 || 'REPETITIVE_BUCKET_SIZE3,'
6257 || 'REPETITIVE_ANCHOR_DATE '
6258 || ')'
6259 ||'SELECT '
6260 || 'ORGANIZATION_ID,'
6261 || 'DEMAND_TIME_FENCE_FLAG,'
6262 || 'PLANNING_TIME_FENCE_FLAG,'
6263 || 'OPERATION_SCHEDULE_TYPE,'
6264 || 'CONSIDER_WIP,'
6265 || 'CONSIDER_PO,'
6266 || 'SNAPSHOT_LOCK,'
6267 || 'PLAN_SAFETY_STOCK,'
6268 || 'CONSIDER_RESERVATIONS,'
6269 || 'PART_INCLUDE_TYPE,'
6270 || 'DEFAULT_ABC_ASSIGNMENT_GROUP,'
6271 || 'PERIOD_TYPE,'
6272 || 'RESCHED_ASSUMPTION,'
6273 || 'PLAN_DATE_DEFAULT_TYPE,'
6274 || 'INCLUDE_REP_SUPPLY_DAYS,'
6275 || 'INCLUDE_MDS_DAYS,'
6276 || 'DELETED_FLAG,'
6277 || 'LAST_UPDATE_DATE,'
6278 || 'LAST_UPDATED_BY,'
6279 || 'CREATION_DATE,'
6280 || 'CREATED_BY,'
6281 || 'LAST_UPDATE_LOGIN,'
6282 || 'REQUEST_ID,'
6283 || 'PROGRAM_APPLICATION_ID,'
6284 || 'PROGRAM_ID,'
6285 || 'PROGRAM_UPDATE_DATE,'
6286 || ':v_inst_rp_src_id,'
6287 || 'REFRESH_ID,'
6288 || 'REPETITIVE_HORIZON1,'
6289 || 'REPETITIVE_HORIZON2,'
6290 || 'REPETITIVE_BUCKET_SIZE1,'
6291 || 'REPETITIVE_BUCKET_SIZE2,'
6292 || 'REPETITIVE_BUCKET_SIZE3,'
6293 || 'REPETITIVE_ANCHOR_DATE '
6294 ||'FROM MSC_ST_PARAMETERS'|| v_dblink
6295 ||' WHERE '
6296 ||' sr_instance_id = ' || to_char(v_src_instance_id);
6297
6298
6299 EXECUTE IMMEDIATE v_sql_stmt USING
6300 v_inst_rp_src_id
6301 ;
6302
6303 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
6304 COMMIT;
6305
6306 EXCEPTION
6307 WHEN OTHERS THEN
6308 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
6309 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
6310 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_PARAMETERS');
6311 v_retcode := 2;
6312 RAISE;
6313 ELSE
6314 IF v_retcode < 2 THEN
6315 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
6316 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_PARAMETERS');
6317 v_retcode := 1;
6318 END IF;
6319 RETURN;
6320 END IF;
6321 END COPY_PARAMETERS;
6322 PROCEDURE COPY_PARTNER_CONTACTS IS
6323
6324 BEGIN
6325
6326 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_PARTNER_CONTACTS');
6327 v_sql_stmt:=
6328 'INSERT INTO MSC_ST_PARTNER_CONTACTS ('
6329 || 'NAME,'
6330 || 'DISPLAY_NAME,'
6331 || 'PARTNER_ID,'
6332 || 'PARTNER_SITE_ID,'
6333 || 'PARTNER_TYPE,'
6334 || 'EMAIL,'
6335 || 'FAX,'
6336 || 'ENABLED_FLAG,'
6337 || 'DELETED_FLAG,'
6338 || 'REFRESH_ID,'
6339 || 'SR_INSTANCE_ID,'
6340 || 'LAST_UPDATE_DATE,'
6341 || 'LAST_UPDATED_BY,'
6342 || 'CREATION_DATE,'
6343 || 'CREATED_BY,'
6344 || 'LAST_UPDATE_LOGIN,'
6345 || 'REQUEST_ID,'
6346 || 'PROGRAM_APPLICATION_ID,'
6347 || 'PROGRAM_ID,'
6348 || 'PROGRAM_UPDATE_DATE,'
6349 || 'COMPANY_ID,'
6350 || 'COMPANY_NAME,'
6351 || 'SR_INSTANCE_CODE,'
6352 || 'TP_SITE_CODE,'
6353 || 'PARTNER_NAME,'
6354 || 'MESSAGE_ID,'
6355 || 'PROCESS_FLAG,'
6356 || 'DATA_SOURCE_TYPE,'
6357 || 'ST_TRANSACTION_ID,'
6358 || 'BATCH_ID,'
6359 || 'ERROR_TEXT '
6360 || ')'
6361 ||'SELECT '
6362 || 'NAME,'
6363 || 'DISPLAY_NAME,'
6364 || 'PARTNER_ID,'
6365 || 'PARTNER_SITE_ID,'
6366 || 'PARTNER_TYPE,'
6367 || 'EMAIL,'
6368 || 'FAX,'
6369 || 'ENABLED_FLAG,'
6370 || 'DELETED_FLAG,'
6371 || 'REFRESH_ID,'
6372 || ':v_inst_rp_src_id,'
6373 || 'LAST_UPDATE_DATE,'
6374 || 'LAST_UPDATED_BY,'
6375 || 'CREATION_DATE,'
6376 || 'CREATED_BY,'
6377 || 'LAST_UPDATE_LOGIN,'
6378 || 'REQUEST_ID,'
6379 || 'PROGRAM_APPLICATION_ID,'
6380 || 'PROGRAM_ID,'
6381 || 'PROGRAM_UPDATE_DATE,'
6382 || 'COMPANY_ID,'
6383 || 'COMPANY_NAME,'
6384 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
6385 || 'TP_SITE_CODE,'
6386 || 'REPLACE(PARTNER_NAME,:v_ascp_inst,:v_icode),'
6387 || 'MESSAGE_ID,'
6388 || 'PROCESS_FLAG,'
6389 || 'DATA_SOURCE_TYPE,'
6390 || 'ST_TRANSACTION_ID,'
6391 || 'BATCH_ID,'
6392 || 'ERROR_TEXT '
6393 ||'FROM MSC_ST_PARTNER_CONTACTS'|| v_dblink
6394 ||' WHERE '
6395 ||' sr_instance_id = ' || to_char(v_src_instance_id);
6396
6397
6398 EXECUTE IMMEDIATE v_sql_stmt USING
6399 v_inst_rp_src_id
6400 ,v_ascp_inst,v_icode
6401 ,v_ascp_inst,v_icode
6402 ;
6403
6404 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
6405 COMMIT;
6406
6407 EXCEPTION
6408 WHEN OTHERS THEN
6409 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
6410 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
6411 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_PARTNER_CONTACTS');
6412 v_retcode := 2;
6413 RAISE;
6414 ELSE
6415 IF v_retcode < 2 THEN
6416 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
6417 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_PARTNER_CONTACTS');
6418 v_retcode := 1;
6419 END IF;
6420 RETURN;
6421 END IF;
6422 END COPY_PARTNER_CONTACTS;
6423 PROCEDURE COPY_PERIOD_START_DATES IS
6424
6425 BEGIN
6426
6427 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_PERIOD_START_DATES');
6428 v_sql_stmt:=
6429 'INSERT INTO MSC_ST_PERIOD_START_DATES ('
6430 || 'CALENDAR_CODE,'
6431 || 'EXCEPTION_SET_ID,'
6432 || 'PERIOD_START_DATE,'
6433 || 'PERIOD_SEQUENCE_NUM,'
6434 || 'PERIOD_NAME,'
6435 || 'NEXT_DATE,'
6436 || 'PRIOR_DATE,'
6437 || 'DELETED_FLAG,'
6438 || 'LAST_UPDATE_DATE,'
6439 || 'LAST_UPDATED_BY,'
6440 || 'CREATION_DATE,'
6441 || 'CREATED_BY,'
6442 || 'LAST_UPDATE_LOGIN,'
6443 || 'REQUEST_ID,'
6444 || 'PROGRAM_APPLICATION_ID,'
6445 || 'PROGRAM_ID,'
6446 || 'PROGRAM_UPDATE_DATE,'
6447 || 'REFRESH_ID,'
6448 || 'SR_INSTANCE_ID '
6449 || ')'
6450 ||'SELECT '
6451 || 'REPLACE(CALENDAR_CODE,:v_ascp_inst,:v_icode),'
6452 || 'EXCEPTION_SET_ID,'
6453 || 'PERIOD_START_DATE,'
6454 || 'PERIOD_SEQUENCE_NUM,'
6455 || 'PERIOD_NAME,'
6456 || 'NEXT_DATE,'
6457 || 'PRIOR_DATE,'
6458 || 'DELETED_FLAG,'
6459 || 'LAST_UPDATE_DATE,'
6460 || 'LAST_UPDATED_BY,'
6461 || 'CREATION_DATE,'
6462 || 'CREATED_BY,'
6463 || 'LAST_UPDATE_LOGIN,'
6464 || 'REQUEST_ID,'
6465 || 'PROGRAM_APPLICATION_ID,'
6466 || 'PROGRAM_ID,'
6467 || 'PROGRAM_UPDATE_DATE,'
6468 || 'REFRESH_ID,'
6469 || ':v_inst_rp_src_id '
6470 ||'FROM MSC_ST_PERIOD_START_DATES'|| v_dblink
6471 ||' WHERE '
6472 ||' sr_instance_id = ' || to_char(v_src_instance_id);
6473
6474
6475 EXECUTE IMMEDIATE v_sql_stmt USING
6476 v_ascp_inst,v_icode
6477 ,v_inst_rp_src_id
6478 ;
6479
6480 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
6481 COMMIT;
6482
6483 EXCEPTION
6484 WHEN OTHERS THEN
6485 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
6486 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
6487 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_PERIOD_START_DATES');
6488 v_retcode := 2;
6489 RAISE;
6490 ELSE
6491 IF v_retcode < 2 THEN
6492 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
6493 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_PERIOD_START_DATES');
6494 v_retcode := 1;
6495 END IF;
6496 RETURN;
6497 END IF;
6498 END COPY_PERIOD_START_DATES;
6499 PROCEDURE COPY_PLANNERS IS
6500
6501 BEGIN
6502
6503 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_PLANNERS');
6504 v_sql_stmt:=
6505 'INSERT INTO MSC_ST_PLANNERS ('
6506 || 'PLANNER_CODE,'
6507 || 'ORGANIZATION_ID,'
6508 || 'SR_INSTANCE_ID,'
6509 || 'LAST_UPDATE_DATE,'
6510 || 'LAST_UPDATED_BY,'
6511 || 'CREATION_DATE,'
6512 || 'CREATED_BY,'
6513 || 'LAST_UPDATE_LOGIN,'
6514 || 'DESCRIPTION,'
6515 || 'DISABLE_DATE,'
6516 || 'ATTRIBUTE_CATEGORY,'
6517 || 'ATTRIBUTE1,'
6518 || 'ATTRIBUTE2,'
6519 || 'ATTRIBUTE3,'
6520 || 'ATTRIBUTE4,'
6521 || 'ATTRIBUTE5,'
6522 || 'ATTRIBUTE6,'
6523 || 'ATTRIBUTE7,'
6524 || 'ATTRIBUTE8,'
6525 || 'ATTRIBUTE9,'
6526 || 'ATTRIBUTE10,'
6527 || 'ATTRIBUTE11,'
6528 || 'ATTRIBUTE12,'
6529 || 'ATTRIBUTE13,'
6530 || 'ATTRIBUTE14,'
6531 || 'ATTRIBUTE15,'
6532 || 'REQUEST_ID,'
6533 || 'PROGRAM_APPLICATION_ID,'
6534 || 'PROGRAM_ID,'
6535 || 'PROGRAM_UPDATE_DATE,'
6536 || 'ELECTRONIC_MAIL_ADDRESS,'
6537 || 'EMPLOYEE_ID,'
6538 || 'CURRENT_EMPLOYEE_FLAG,'
6539 || 'REFRESH_ID,'
6540 || 'DELETED_FLAG,'
6541 || 'USER_NAME,'
6542 || 'ORGANIZATION_CODE,'
6543 || 'COMPANY_NAME,'
6544 || 'SR_INSTANCE_CODE,'
6545 || 'MESSAGE_ID,'
6546 || 'PROCESS_FLAG,'
6547 || 'DATA_SOURCE_TYPE,'
6548 || 'ST_TRANSACTION_ID,'
6549 || 'ERROR_TEXT,'
6550 || 'BATCH_ID '
6551 || ')'
6552 ||'SELECT '
6553 || 'PLANNER_CODE,'
6554 || 'ORGANIZATION_ID,'
6555 || ':v_inst_rp_src_id,'
6556 || 'LAST_UPDATE_DATE,'
6557 || 'LAST_UPDATED_BY,'
6558 || 'CREATION_DATE,'
6559 || 'CREATED_BY,'
6560 || 'LAST_UPDATE_LOGIN,'
6561 || 'DESCRIPTION,'
6562 || 'DISABLE_DATE,'
6563 || 'ATTRIBUTE_CATEGORY,'
6564 || 'ATTRIBUTE1,'
6565 || 'ATTRIBUTE2,'
6566 || 'ATTRIBUTE3,'
6567 || 'ATTRIBUTE4,'
6568 || 'ATTRIBUTE5,'
6569 || 'ATTRIBUTE6,'
6570 || 'ATTRIBUTE7,'
6571 || 'ATTRIBUTE8,'
6572 || 'ATTRIBUTE9,'
6573 || 'ATTRIBUTE10,'
6574 || 'ATTRIBUTE11,'
6575 || 'ATTRIBUTE12,'
6576 || 'ATTRIBUTE13,'
6577 || 'ATTRIBUTE14,'
6578 || 'ATTRIBUTE15,'
6579 || 'REQUEST_ID,'
6580 || 'PROGRAM_APPLICATION_ID,'
6581 || 'PROGRAM_ID,'
6582 || 'PROGRAM_UPDATE_DATE,'
6583 || 'ELECTRONIC_MAIL_ADDRESS,'
6584 || 'EMPLOYEE_ID,'
6585 || 'CURRENT_EMPLOYEE_FLAG,'
6586 || 'REFRESH_ID,'
6587 || 'DELETED_FLAG,'
6588 || 'USER_NAME,'
6589 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
6590 || 'COMPANY_NAME,'
6591 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
6592 || 'MESSAGE_ID,'
6593 || 'PROCESS_FLAG,'
6594 || 'DATA_SOURCE_TYPE,'
6595 || 'ST_TRANSACTION_ID,'
6596 || 'ERROR_TEXT,'
6597 || 'BATCH_ID '
6598 ||'FROM MSC_ST_PLANNERS'|| v_dblink
6599 ||' WHERE '
6600 ||' sr_instance_id = ' || to_char(v_src_instance_id);
6601
6602
6603 EXECUTE IMMEDIATE v_sql_stmt USING
6604 v_inst_rp_src_id
6605 ,v_ascp_inst,v_icode
6606 ,v_ascp_inst,v_icode
6607 ;
6608
6609 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
6610 COMMIT;
6611
6612 EXCEPTION
6613 WHEN OTHERS THEN
6614 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
6615 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
6616 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_PLANNERS');
6617 v_retcode := 2;
6618 RAISE;
6619 ELSE
6620 IF v_retcode < 2 THEN
6621 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
6622 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_PLANNERS');
6623 v_retcode := 1;
6624 END IF;
6625 RETURN;
6626 END IF;
6627 END COPY_PLANNERS;
6628 PROCEDURE COPY_PROCESS_EFFECTIVITY IS
6629
6630 BEGIN
6631
6632 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_PROCESS_EFFECTIVITY');
6633 v_sql_stmt:=
6634 'INSERT INTO MSC_ST_PROCESS_EFFECTIVITY ('
6635 || 'PROCESS_SEQUENCE_ID,'
6636 || 'ITEM_ID,'
6637 || 'ORGANIZATION_ID,'
6638 || 'EFFECTIVITY_DATE,'
6639 || 'DISABLE_DATE,'
6640 || 'MINIMUM_QUANTITY,'
6641 || 'MAXIMUM_QUANTITY,'
6642 || 'PREFERENCE,'
6643 || 'ROUTING_SEQUENCE_ID,'
6644 || 'BILL_SEQUENCE_ID,'
6645 || 'TOTAL_PRODUCT_CYCLE_TIME,'
6646 || 'ITEM_PROCESS_COST,'
6647 || 'LINE_ID,'
6648 || 'DELETED_FLAG,'
6649 || 'LAST_UPDATE_DATE,'
6650 || 'LAST_UPDATED_BY,'
6651 || 'CREATION_DATE,'
6652 || 'CREATED_BY,'
6653 || 'LAST_UPDATE_LOGIN,'
6654 || 'REQUEST_ID,'
6655 || 'PROGRAM_APPLICATION_ID,'
6656 || 'PROGRAM_ID,'
6657 || 'PROGRAM_UPDATE_DATE,'
6658 || 'REFRESH_ID,'
6659 || 'SR_INSTANCE_ID,'
6660 || 'PRIMARY_LINE_FLAG,'
6661 || 'PRODUCTION_LINE_RATE,'
6662 || 'LOAD_DISTRIBUTION_PRIORITY '
6663 || ')'
6664 ||'SELECT '
6665 || 'PROCESS_SEQUENCE_ID,'
6666 || 'ITEM_ID,'
6667 || 'ORGANIZATION_ID,'
6668 || 'EFFECTIVITY_DATE,'
6669 || 'DISABLE_DATE,'
6670 || 'MINIMUM_QUANTITY,'
6671 || 'MAXIMUM_QUANTITY,'
6672 || 'PREFERENCE,'
6673 || 'ROUTING_SEQUENCE_ID,'
6674 || 'BILL_SEQUENCE_ID,'
6675 || 'TOTAL_PRODUCT_CYCLE_TIME,'
6676 || 'ITEM_PROCESS_COST,'
6677 || 'LINE_ID,'
6678 || 'DELETED_FLAG,'
6679 || 'LAST_UPDATE_DATE,'
6680 || 'LAST_UPDATED_BY,'
6681 || 'CREATION_DATE,'
6682 || 'CREATED_BY,'
6683 || 'LAST_UPDATE_LOGIN,'
6684 || 'REQUEST_ID,'
6685 || 'PROGRAM_APPLICATION_ID,'
6686 || 'PROGRAM_ID,'
6687 || 'PROGRAM_UPDATE_DATE,'
6688 || 'REFRESH_ID,'
6689 || ':v_inst_rp_src_id,'
6690 || 'PRIMARY_LINE_FLAG,'
6691 || 'PRODUCTION_LINE_RATE,'
6692 || 'LOAD_DISTRIBUTION_PRIORITY '
6693 ||'FROM MSC_ST_PROCESS_EFFECTIVITY'|| v_dblink
6694 ||' WHERE '
6695 ||' sr_instance_id = ' || to_char(v_src_instance_id);
6696
6697
6698
6699 EXECUTE IMMEDIATE v_sql_stmt USING
6700 v_inst_rp_src_id
6701 ;
6702
6703 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
6704 COMMIT;
6705
6706 EXCEPTION
6707 WHEN OTHERS THEN
6708 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
6709 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
6710 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_PROCESS_EFFECTIVITY');
6711 v_retcode := 2;
6712 RAISE;
6713 ELSE
6714 IF v_retcode < 2 THEN
6715 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
6716 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_PROCESS_EFFECTIVITY');
6717 v_retcode := 1;
6718 END IF;
6719 RETURN;
6720 END IF;
6721 END COPY_PROCESS_EFFECTIVITY;
6722 PROCEDURE COPY_PROJECTS IS
6723
6724 BEGIN
6725
6726 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_PROJECTS');
6727 v_sql_stmt:=
6728 'INSERT INTO MSC_ST_PROJECTS ('
6729 || 'PROJECT_ID,'
6730 || 'ORGANIZATION_ID,'
6731 || 'PLANNING_GROUP,'
6732 || 'COSTING_GROUP_ID,'
6733 || 'WIP_ACCT_CLASS_CODE,'
6734 || 'SEIBAN_NUMBER_FLAG,'
6735 || 'PROJECT_NAME,'
6736 || 'PROJECT_NUMBER,'
6737 || 'PROJECT_NUMBER_SORT_ORDER,'
6738 || 'PROJECT_DESCRIPTION,'
6739 || 'START_DATE,'
6740 || 'COMPLETION_DATE,'
6741 || 'OPERATING_UNIT,'
6742 || 'DELETED_FLAG,'
6743 || 'LAST_UPDATE_DATE,'
6744 || 'LAST_UPDATED_BY,'
6745 || 'CREATION_DATE,'
6746 || 'CREATED_BY,'
6747 || 'LAST_UPDATE_LOGIN,'
6748 || 'REQUEST_ID,'
6749 || 'PROGRAM_APPLICATION_ID,'
6750 || 'PROGRAM_ID,'
6751 || 'PROGRAM_UPDATE_DATE,'
6752 || 'SR_INSTANCE_ID,'
6753 || 'REFRESH_ID,'
6754 || 'MATERIAL_ACCOUNT,'
6755 || 'MANAGER_CONTACT '
6756 || ')'
6757 ||'SELECT '
6758 || 'PROJECT_ID,'
6759 || 'ORGANIZATION_ID,'
6760 || 'PLANNING_GROUP,'
6761 || 'COSTING_GROUP_ID,'
6762 || 'WIP_ACCT_CLASS_CODE,'
6763 || 'SEIBAN_NUMBER_FLAG,'
6764 || 'PROJECT_NAME,'
6765 || 'PROJECT_NUMBER,'
6766 || 'PROJECT_NUMBER_SORT_ORDER,'
6767 || 'PROJECT_DESCRIPTION,'
6768 || 'START_DATE,'
6769 || 'COMPLETION_DATE,'
6770 || 'OPERATING_UNIT,'
6771 || 'DELETED_FLAG,'
6772 || 'LAST_UPDATE_DATE,'
6773 || 'LAST_UPDATED_BY,'
6774 || 'CREATION_DATE,'
6775 || 'CREATED_BY,'
6776 || 'LAST_UPDATE_LOGIN,'
6777 || 'REQUEST_ID,'
6778 || 'PROGRAM_APPLICATION_ID,'
6779 || 'PROGRAM_ID,'
6780 || 'PROGRAM_UPDATE_DATE,'
6781 || ':v_inst_rp_src_id,'
6782 || 'REFRESH_ID,'
6783 || 'MATERIAL_ACCOUNT,'
6784 || 'MANAGER_CONTACT '
6785 ||'FROM MSC_ST_PROJECTS'|| v_dblink
6786 ||' WHERE '
6787 ||' sr_instance_id = ' || to_char(v_src_instance_id);
6788
6789
6790
6791 EXECUTE IMMEDIATE v_sql_stmt USING
6792 v_inst_rp_src_id
6793 ;
6794
6795 COMMIT;
6796
6797 EXCEPTION
6798 WHEN OTHERS THEN
6799 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
6800 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
6801 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_PROJECTS');
6802 v_retcode := 2;
6803 RAISE;
6804 ELSE
6805 IF v_retcode < 2 THEN
6806 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
6807 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_PROJECTS');
6808 v_retcode := 1;
6809 END IF;
6810 RETURN;
6811 END IF;
6812 END COPY_PROJECTS;
6813 PROCEDURE COPY_PROJECT_TASKS IS
6814
6815 BEGIN
6816
6817 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_PROJECT_TASKS');
6818 v_sql_stmt:=
6819 'INSERT INTO MSC_ST_PROJECT_TASKS ('
6820 || 'PROJECT_ID,'
6821 || 'TASK_ID,'
6822 || 'ORGANIZATION_ID,'
6823 || 'TASK_NUMBER,'
6824 || 'TASK_NAME,'
6825 || 'DESCRIPTION,'
6826 || 'MANAGER,'
6827 || 'START_DATE,'
6828 || 'END_DATE,'
6829 || 'DELETED_FLAG,'
6830 || 'LAST_UPDATE_DATE,'
6831 || 'LAST_UPDATED_BY,'
6832 || 'CREATION_DATE,'
6833 || 'CREATED_BY,'
6834 || 'LAST_UPDATE_LOGIN,'
6835 || 'REQUEST_ID,'
6836 || 'PROGRAM_APPLICATION_ID,'
6837 || 'PROGRAM_ID,'
6838 || 'PROGRAM_UPDATE_DATE,'
6839 || 'SR_INSTANCE_ID,'
6840 || 'REFRESH_ID,'
6841 || 'MANAGER_CONTACT,'
6842 || 'COMPANY_ID,'
6843 || 'COMPANY_NAME,'
6844 || 'PROJECT_NUMBER,'
6845 || 'COSTING_GROUP_ID,'
6846 || 'COSTING_GROUP_CODE,'
6847 || 'SEIBAN_NUMBER_FLAG,'
6848 || 'PROJECT_DESCRIPTION,'
6849 || 'PLANNING_GROUP,'
6850 || 'WIP_ACCT_CLASS_CODE,'
6851 || 'PROJECT_START_DATE,'
6852 || 'PROJECT_COMPLETION_DATE,'
6853 || 'MATERIAL_ACCOUNT,'
6854 || 'ORGANIZATION_CODE,'
6855 || 'SR_INSTANCE_CODE,'
6856 || 'MESSAGE_ID,'
6857 || 'PROCESS_FLAG,'
6858 || 'ERROR_TEXT,'
6859 || 'DATA_SOURCE_TYPE,'
6860 || 'ST_TRANSACTION_ID,'
6861 || 'BATCH_ID,'
6862 || 'SOURCE_ORG_ID,'
6863 || 'SOURCE_PROJECT_ID,'
6864 || 'SOURCE_TASK_ID,'
6865 || 'SOURCE_COSTING_GROUP_ID '
6866 || ')'
6867 ||'SELECT '
6868 || 'PROJECT_ID,'
6869 || 'TASK_ID,'
6870 || 'ORGANIZATION_ID,'
6871 || 'TASK_NUMBER,'
6872 || 'TASK_NAME,'
6873 || 'DESCRIPTION,'
6874 || 'MANAGER,'
6875 || 'START_DATE,'
6876 || 'END_DATE,'
6877 || 'DELETED_FLAG,'
6878 || 'LAST_UPDATE_DATE,'
6879 || 'LAST_UPDATED_BY,'
6880 || 'CREATION_DATE,'
6881 || 'CREATED_BY,'
6882 || 'LAST_UPDATE_LOGIN,'
6883 || 'REQUEST_ID,'
6884 || 'PROGRAM_APPLICATION_ID,'
6885 || 'PROGRAM_ID,'
6886 || 'PROGRAM_UPDATE_DATE,'
6887 || ':v_inst_rp_src_id,'
6888 || 'REFRESH_ID,'
6889 || 'MANAGER_CONTACT,'
6890 || 'COMPANY_ID,'
6891 || 'COMPANY_NAME,'
6892 || 'PROJECT_NUMBER,'
6893 || 'COSTING_GROUP_ID,'
6894 || 'COSTING_GROUP_CODE,'
6895 || 'SEIBAN_NUMBER_FLAG,'
6896 || 'PROJECT_DESCRIPTION,'
6897 || 'PLANNING_GROUP,'
6898 || 'WIP_ACCT_CLASS_CODE,'
6899 || 'PROJECT_START_DATE,'
6900 || 'PROJECT_COMPLETION_DATE,'
6901 || 'MATERIAL_ACCOUNT,'
6902 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
6903 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
6904 || 'MESSAGE_ID,'
6905 || 'PROCESS_FLAG,'
6906 || 'ERROR_TEXT,'
6907 || 'DATA_SOURCE_TYPE,'
6908 || 'ST_TRANSACTION_ID,'
6909 || 'BATCH_ID,'
6910 || 'SOURCE_ORG_ID,'
6911 || 'SOURCE_PROJECT_ID,'
6912 || 'SOURCE_TASK_ID,'
6913 || 'SOURCE_COSTING_GROUP_ID '
6914 ||'FROM MSC_ST_PROJECT_TASKS'|| v_dblink
6915 ||' WHERE '
6916 ||' sr_instance_id = ' || to_char(v_src_instance_id);
6917
6918
6919 EXECUTE IMMEDIATE v_sql_stmt USING
6920 v_inst_rp_src_id
6921 ,v_ascp_inst,v_icode
6922 ,v_ascp_inst,v_icode
6923 ;
6924
6925 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
6926 COMMIT;
6927
6928 EXCEPTION
6929 WHEN OTHERS THEN
6930 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
6931 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
6932 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_PROJECT_TASKS');
6933 v_retcode := 2;
6934 RAISE;
6935 ELSE
6936 IF v_retcode < 2 THEN
6937 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
6938 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_PROJECT_TASKS');
6939 v_retcode := 1;
6940 END IF;
6941 RETURN;
6942 END IF;
6943 END COPY_PROJECT_TASKS;
6944 PROCEDURE COPY_REGIONS IS
6945
6946 BEGIN
6947
6948 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_REGIONS');
6949 v_sql_stmt:=
6950 'INSERT INTO MSC_ST_REGIONS ('
6951 || 'REGION_ID,'
6952 || 'REGION_TYPE,'
6953 || 'PARENT_REGION_ID,'
6954 || 'COUNTRY_CODE,'
6955 || 'COUNTRY_REGION_CODE,'
6956 || 'STATE_CODE,'
6957 || 'CITY_CODE,'
6958 || 'PORT_FLAG,'
6959 || 'AIRPORT_FLAG,'
6960 || 'ROAD_TERMINAL_FLAG,'
6961 || 'RAIL_TERMINAL_FLAG,'
6962 || 'LONGITUDE,'
6963 || 'TIMEZONE,'
6964 || 'SR_INSTANCE_ID,'
6965 || 'CREATED_BY,'
6966 || 'CREATION_DATE,'
6967 || 'LAST_UPDATED_BY,'
6968 || 'LAST_UPDATE_DATE,'
6969 || 'LAST_UPDATE_LOGIN,'
6970 || 'REQUEST_ID,'
6971 || 'PROGRAM_APPLICATION_ID,'
6972 || 'PROGRAM_ID,'
6973 || 'PROGRAM_UPDATE_DATE,'
6974 || 'LATITUDE,'
6975 || 'CONTINENT,'
6976 || 'COUNTRY,'
6977 || 'COUNTRY_REGION,'
6978 || 'STATE,'
6979 || 'CITY,'
6980 || 'ZONE,'
6981 || 'ZONE_LEVEL,'
6982 || 'POSTAL_CODE_FROM,'
6983 || 'POSTAL_CODE_TO,'
6984 || 'ALTERNATE_NAME,'
6985 || 'COUNTY,'
6986 || 'ZONE_USAGE,'
6987 || 'SR_INSTANCE_CODE,'
6988 || 'DELETED_FLAG,'
6989 || 'PROCESS_FLAG,'
6990 || 'DATA_SOURCE_TYPE,'
6991 || 'ST_TRANSACTION_ID,'
6992 || 'ERROR_TEXT,'
6993 || 'BATCH_ID,'
6994 || 'MESSAGE_ID,'
6995 || 'COMPANY_NAME '
6996 || ')'
6997 ||'SELECT '
6998 || 'REGION_ID,'
6999 || 'REGION_TYPE,'
7000 || 'PARENT_REGION_ID,'
7001 || 'COUNTRY_CODE,'
7002 || 'COUNTRY_REGION_CODE,'
7003 || 'STATE_CODE,'
7004 || 'CITY_CODE,'
7005 || 'PORT_FLAG,'
7006 || 'AIRPORT_FLAG,'
7007 || 'ROAD_TERMINAL_FLAG,'
7008 || 'RAIL_TERMINAL_FLAG,'
7009 || 'LONGITUDE,'
7010 || 'TIMEZONE,'
7011 || ':v_inst_rp_src_id,'
7012 || 'CREATED_BY,'
7013 || 'CREATION_DATE,'
7014 || 'LAST_UPDATED_BY,'
7015 || 'LAST_UPDATE_DATE,'
7016 || 'LAST_UPDATE_LOGIN,'
7017 || 'REQUEST_ID,'
7018 || 'PROGRAM_APPLICATION_ID,'
7019 || 'PROGRAM_ID,'
7020 || 'PROGRAM_UPDATE_DATE,'
7021 || 'LATITUDE,'
7022 || 'CONTINENT,'
7023 || 'COUNTRY,'
7024 || 'COUNTRY_REGION,'
7025 || 'STATE,'
7026 || 'CITY,'
7027 || 'ZONE,'
7028 || 'ZONE_LEVEL,'
7029 || 'POSTAL_CODE_FROM,'
7030 || 'POSTAL_CODE_TO,'
7031 || 'ALTERNATE_NAME,'
7032 || 'COUNTY,'
7033 || 'ZONE_USAGE,'
7034 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
7035 || 'DELETED_FLAG,'
7036 || 'PROCESS_FLAG,'
7037 || 'DATA_SOURCE_TYPE,'
7038 || 'ST_TRANSACTION_ID,'
7039 || 'ERROR_TEXT,'
7040 || 'BATCH_ID,'
7041 || 'MESSAGE_ID,'
7042 || 'COMPANY_NAME '
7043 ||'FROM MSC_ST_REGIONS'|| v_dblink
7044 ||' WHERE '
7045 ||' sr_instance_id = ' || to_char(v_src_instance_id);
7046
7047
7048
7049 EXECUTE IMMEDIATE v_sql_stmt USING
7050 v_inst_rp_src_id
7051 ,v_ascp_inst,v_icode
7052 ;
7053
7054 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
7055 COMMIT;
7056
7057 EXCEPTION
7058 WHEN OTHERS THEN
7059 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
7060 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
7061 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_REGIONS');
7062 v_retcode := 2;
7063 RAISE;
7064 ELSE
7065 IF v_retcode < 2 THEN
7066 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
7067 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_REGIONS');
7068 v_retcode := 1;
7069 END IF;
7070 RETURN;
7071 END IF;
7072 END COPY_REGIONS;
7073 PROCEDURE COPY_REGION_LOCATIONS IS
7074
7075 BEGIN
7076
7077 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_REGION_LOCATIONS');
7078 v_sql_stmt:=
7079 'INSERT INTO MSC_ST_REGION_LOCATIONS ('
7080 || 'REGION_ID,'
7081 || 'LOCATION_ID,'
7082 || 'LOCATION_SOURCE,'
7083 || 'REGION_TYPE,'
7084 || 'LAST_UPDATE_DATE,'
7085 || 'LAST_UPDATE_LOGIN,'
7086 || 'LAST_UPDATED_BY,'
7087 || 'CREATION_DATE,'
7088 || 'CREATED_BY,'
7089 || 'PARENT_REGION_FLAG,'
7090 || 'EXCEPTION_TYPE,'
7091 || 'SR_INSTANCE_ID,'
7092 || 'SR_INSTANCE_CODE,'
7093 || 'DELETED_FLAG,'
7094 || 'PROCESS_FLAG,'
7095 || 'DATA_SOURCE_TYPE,'
7096 || 'ST_TRANSACTION_ID,'
7097 || 'ERROR_TEXT,'
7098 || 'BATCH_ID,'
7099 || 'MESSAGE_ID,'
7100 || 'COMPANY_NAME,'
7101 || 'LOCATION_CODE,'
7102 || 'COUNTRY,'
7103 || 'COUNTRY_CODE,'
7104 || 'STATE,'
7105 || 'STATE_CODE,'
7106 || 'CITY,'
7107 || 'CITY_CODE,'
7108 || 'POSTAL_CODE_FROM,'
7109 || 'REQUEST_ID,'
7110 || 'PROGRAM_APPLICATION_ID,'
7111 || 'PROGRAM_ID,'
7112 || 'PROGRAM_UPDATE_DATE,'
7113 || 'POSTAL_CODE_TO '
7114 || ')'
7115 ||'SELECT '
7116 || 'REGION_ID,'
7117 || 'LOCATION_ID,'
7118 || 'LOCATION_SOURCE,'
7119 || 'REGION_TYPE,'
7120 || 'LAST_UPDATE_DATE,'
7121 || 'LAST_UPDATE_LOGIN,'
7122 || 'LAST_UPDATED_BY,'
7123 || 'CREATION_DATE,'
7124 || 'CREATED_BY,'
7125 || 'PARENT_REGION_FLAG,'
7126 || 'EXCEPTION_TYPE,'
7127 || ':v_inst_rp_src_id,'
7128 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
7129 || 'DELETED_FLAG,'
7130 || 'PROCESS_FLAG,'
7131 || 'DATA_SOURCE_TYPE,'
7132 || 'ST_TRANSACTION_ID,'
7133 || 'ERROR_TEXT,'
7134 || 'BATCH_ID,'
7135 || 'MESSAGE_ID,'
7136 || 'COMPANY_NAME,'
7137 || 'LOCATION_CODE,'
7138 || 'COUNTRY,'
7139 || 'COUNTRY_CODE,'
7140 || 'STATE,'
7141 || 'STATE_CODE,'
7142 || 'CITY,'
7143 || 'CITY_CODE,'
7144 || 'POSTAL_CODE_FROM,'
7145 || 'REQUEST_ID,'
7146 || 'PROGRAM_APPLICATION_ID,'
7147 || 'PROGRAM_ID,'
7148 || 'PROGRAM_UPDATE_DATE,'
7149 || 'POSTAL_CODE_TO '
7150 ||'FROM MSC_ST_REGION_LOCATIONS'|| v_dblink
7151 ||' WHERE '
7152 ||' sr_instance_id = ' || to_char(v_src_instance_id);
7153
7154
7155 EXECUTE IMMEDIATE v_sql_stmt USING
7156 v_inst_rp_src_id
7157 ,v_ascp_inst,v_icode
7158 ;
7159
7160 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
7161 COMMIT;
7162
7163 EXCEPTION
7164 WHEN OTHERS THEN
7165 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
7166 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
7167 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_REGION_LOCATIONS');
7168 v_retcode := 2;
7169 RAISE;
7170 ELSE
7171 IF v_retcode < 2 THEN
7172 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
7173 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_REGION_LOCATIONS');
7174 v_retcode := 1;
7175 END IF;
7176 RETURN;
7177 END IF;
7178
7179 END COPY_REGION_LOCATIONS;
7180 PROCEDURE COPY_RESERVATIONS IS
7181
7182 BEGIN
7183
7184 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_RESERVATIONS');
7185 v_sql_stmt:=
7186 'INSERT INTO MSC_ST_RESERVATIONS ('
7187 || 'INVENTORY_ITEM_ID,'
7188 || 'ORGANIZATION_ID,'
7189 || 'TRANSACTION_ID,'
7190 || 'PARENT_DEMAND_ID,'
7191 || 'DISPOSITION_ID,'
7192 || 'REQUIREMENT_DATE,'
7193 || 'REVISION,'
7194 || 'RESERVED_QUANTITY,'
7195 || 'DISPOSITION_TYPE,'
7196 || 'SUBINVENTORY,'
7197 || 'RESERVATION_TYPE,'
7198 || 'DEMAND_CLASS,'
7199 || 'AVAILABLE_TO_MRP,'
7200 || 'RESERVATION_FLAG,'
7201 || 'PROJECT_ID,'
7202 || 'TASK_ID,'
7203 || 'PLANNING_GROUP,'
7204 || 'DELETED_FLAG,'
7205 || 'LAST_UPDATE_DATE,'
7206 || 'LAST_UPDATED_BY,'
7207 || 'CREATION_DATE,'
7208 || 'CREATED_BY,'
7209 || 'LAST_UPDATE_LOGIN,'
7210 || 'REQUEST_ID,'
7211 || 'PROGRAM_APPLICATION_ID,'
7212 || 'PROGRAM_ID,'
7213 || 'PROGRAM_UPDATE_DATE,'
7214 || 'SR_INSTANCE_ID,'
7215 || 'REFRESH_ID,'
7216 || 'ORGANIZATION_CODE,'
7217 || 'ITEM_NAME,'
7218 || 'SALES_ORDER_NUMBER,'
7219 || 'LINE_NUM,'
7220 || 'SR_INSTANCE_CODE,'
7221 || 'MESSAGE_ID,'
7222 || 'PROCESS_FLAG,'
7223 || 'DATA_SOURCE_TYPE,'
7224 || 'ST_TRANSACTION_ID,'
7225 || 'ERROR_TEXT,'
7226 || 'BATCH_ID,'
7227 || 'COMPANY_NAME,'
7228 || 'PROJECT_NUMBER,'
7229 || 'TASK_NUMBER '
7230 || ')'
7231 ||'SELECT '
7232 || 'INVENTORY_ITEM_ID,'
7233 || 'ORGANIZATION_ID,'
7234 || 'TRANSACTION_ID,'
7235 || 'PARENT_DEMAND_ID,'
7236 || 'DISPOSITION_ID,'
7237 || 'REQUIREMENT_DATE,'
7238 || 'REVISION,'
7239 || 'RESERVED_QUANTITY,'
7240 || 'DISPOSITION_TYPE,'
7241 || 'SUBINVENTORY,'
7242 || 'RESERVATION_TYPE,'
7243 || 'DEMAND_CLASS,'
7244 || 'AVAILABLE_TO_MRP,'
7245 || 'RESERVATION_FLAG,'
7246 || 'PROJECT_ID,'
7247 || 'TASK_ID,'
7248 || 'PLANNING_GROUP,'
7249 || 'DELETED_FLAG,'
7250 || 'LAST_UPDATE_DATE,'
7251 || 'LAST_UPDATED_BY,'
7252 || 'CREATION_DATE,'
7253 || 'CREATED_BY,'
7254 || 'LAST_UPDATE_LOGIN,'
7255 || 'REQUEST_ID,'
7256 || 'PROGRAM_APPLICATION_ID,'
7257 || 'PROGRAM_ID,'
7258 || 'PROGRAM_UPDATE_DATE,'
7259 || ':v_inst_rp_src_id,'
7260 || 'REFRESH_ID,'
7261 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
7262 || 'ITEM_NAME,'
7263 || 'SALES_ORDER_NUMBER,'
7264 || 'LINE_NUM,'
7265 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
7266 || 'MESSAGE_ID,'
7267 || 'PROCESS_FLAG,'
7268 || 'DATA_SOURCE_TYPE,'
7269 || 'ST_TRANSACTION_ID,'
7270 || 'ERROR_TEXT,'
7271 || 'BATCH_ID,'
7272 || 'COMPANY_NAME,'
7273 || 'PROJECT_NUMBER,'
7274 || 'TASK_NUMBER '
7275 ||'FROM MSC_ST_RESERVATIONS'|| v_dblink
7276 ||' WHERE '
7277 ||' sr_instance_id = ' || to_char(v_src_instance_id);
7278
7279
7280
7281 EXECUTE IMMEDIATE v_sql_stmt USING
7282 v_inst_rp_src_id
7283 ,v_ascp_inst,v_icode
7284 ,v_ascp_inst,v_icode
7285 ;
7286
7287 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
7288 COMMIT;
7289
7290 EXCEPTION
7291 WHEN OTHERS THEN
7292 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
7293 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
7294 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_RESERVATIONS');
7295 v_retcode := 2;
7296 RAISE;
7297 ELSE
7298 IF v_retcode < 2 THEN
7299 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
7300 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_RESERVATIONS');
7301 v_retcode := 1;
7302 END IF;
7303 RETURN;
7304 END IF;
7305
7306 END COPY_RESERVATIONS;
7307 PROCEDURE COPY_RESOURCE_CHANGES IS
7308
7309 BEGIN
7310
7311 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_RESOURCE_CHANGES');
7312 v_sql_stmt:=
7313 'INSERT INTO MSC_ST_RESOURCE_CHANGES ('
7314 || 'DEPARTMENT_ID,'
7315 || 'RESOURCE_ID,'
7316 || 'SHIFT_NUM,'
7317 || 'FROM_DATE,'
7318 || 'TO_DATE,'
7319 || 'FROM_TIME,'
7320 || 'TO_TIME,'
7321 || 'CAPACITY_CHANGE,'
7322 || 'SIMULATION_SET,'
7323 || 'ACTION_TYPE,'
7324 || 'DELETED_FLAG,'
7325 || 'LAST_UPDATE_DATE,'
7326 || 'LAST_UPDATED_BY,'
7327 || 'CREATION_DATE,'
7328 || 'CREATED_BY,'
7329 || 'LAST_UPDATE_LOGIN,'
7330 || 'REQUEST_ID,'
7331 || 'PROGRAM_APPLICATION_ID,'
7332 || 'PROGRAM_ID,'
7333 || 'PROGRAM_UPDATE_DATE,'
7334 || 'REFRESH_ID,'
7335 || 'SR_INSTANCE_ID,'
7336 || 'COMPANY_ID,'
7337 || 'COMPANY_NAME,'
7338 || 'DEPARTMENT_CODE,'
7339 || 'RESOURCE_CODE,'
7340 || 'ORGANIZATION_CODE,'
7341 || 'SHIFT_NAME,'
7342 || 'SR_INSTANCE_CODE,'
7343 || 'ORGANIZATION_ID,'
7344 || 'MESSAGE_ID,'
7345 || 'PROCESS_FLAG,'
7346 || 'ERROR_TEXT,'
7347 || 'ST_TRANSACTION_ID,'
7348 || 'BATCH_ID,'
7349 || 'DATA_SOURCE_TYPE '
7350 || ')'
7351 ||'SELECT '
7352 || 'DEPARTMENT_ID,'
7353 || 'RESOURCE_ID,'
7354 || 'SHIFT_NUM,'
7355 || 'FROM_DATE,'
7356 || 'TO_DATE,'
7357 || 'FROM_TIME,'
7358 || 'TO_TIME,'
7359 || 'CAPACITY_CHANGE,'
7360 || 'SIMULATION_SET,'
7361 || 'ACTION_TYPE,'
7362 || 'DELETED_FLAG,'
7363 || 'LAST_UPDATE_DATE,'
7364 || 'LAST_UPDATED_BY,'
7365 || 'CREATION_DATE,'
7366 || 'CREATED_BY,'
7367 || 'LAST_UPDATE_LOGIN,'
7368 || 'REQUEST_ID,'
7369 || 'PROGRAM_APPLICATION_ID,'
7370 || 'PROGRAM_ID,'
7371 || 'PROGRAM_UPDATE_DATE,'
7372 || 'REFRESH_ID,'
7373 || ':v_inst_rp_src_id,'
7374 || 'COMPANY_ID,'
7375 || 'COMPANY_NAME,'
7376 || 'DEPARTMENT_CODE,'
7377 || 'RESOURCE_CODE,'
7378 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
7379 || 'SHIFT_NAME,'
7380 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
7381 || 'ORGANIZATION_ID,'
7382 || 'MESSAGE_ID,'
7383 || 'PROCESS_FLAG,'
7384 || 'ERROR_TEXT,'
7385 || 'ST_TRANSACTION_ID,'
7386 || 'BATCH_ID,'
7387 || 'DATA_SOURCE_TYPE '
7388 ||'FROM MSC_ST_RESOURCE_CHANGES'|| v_dblink
7389 ||' WHERE '
7390 ||' sr_instance_id = ' || to_char(v_src_instance_id);
7391
7392
7393
7394 EXECUTE IMMEDIATE v_sql_stmt USING
7395 v_inst_rp_src_id
7396 ,v_ascp_inst,v_icode
7397 ,v_ascp_inst,v_icode
7398 ;
7399
7400 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
7401 COMMIT;
7402
7403 EXCEPTION
7404 WHEN OTHERS THEN
7405 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
7406 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
7407 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_RESOURCE_CHANGES');
7408 v_retcode := 2;
7409 RAISE;
7410 ELSE
7411 IF v_retcode < 2 THEN
7412 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
7413 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_RESOURCE_CHANGES');
7414 v_retcode := 1;
7415 END IF;
7416 RETURN;
7417 END IF;
7418
7419 END COPY_RESOURCE_CHANGES;
7420 PROCEDURE COPY_RESOURCE_GROUPS IS
7421
7422 BEGIN
7423
7424 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_RESOURCE_GROUPS');
7425 v_sql_stmt:=
7426 'INSERT INTO MSC_ST_RESOURCE_GROUPS ('
7427 || 'GROUP_CODE,'
7428 || 'MEANING,'
7429 || 'DESCRIPTION,'
7430 || 'FROM_DATE,'
7431 || 'TO_DATE,'
7432 || 'ENABLED_FLAG,'
7433 || 'SR_INSTANCE_ID,'
7434 || 'LAST_UPDATE_DATE,'
7435 || 'LAST_UPDATED_BY,'
7436 || 'CREATION_DATE,'
7437 || 'CREATED_BY,'
7438 || 'LAST_UPDATE_LOGIN,'
7439 || 'REQUEST_ID,'
7440 || 'PROGRAM_APPLICATION_ID,'
7441 || 'PROGRAM_ID,'
7442 || 'PROGRAM_UPDATE_DATE,'
7443 || 'ATTRIBUTE_CATEGORY,'
7444 || 'ATTRIBUTE1,'
7445 || 'ATTRIBUTE2,'
7446 || 'ATTRIBUTE3,'
7447 || 'ATTRIBUTE4,'
7448 || 'ATTRIBUTE5,'
7449 || 'ATTRIBUTE6,'
7450 || 'ATTRIBUTE7,'
7451 || 'ATTRIBUTE8,'
7452 || 'ATTRIBUTE9,'
7453 || 'ATTRIBUTE10,'
7454 || 'ATTRIBUTE11,'
7455 || 'ATTRIBUTE12,'
7456 || 'ATTRIBUTE13,'
7457 || 'ATTRIBUTE14,'
7458 || 'ATTRIBUTE15,'
7459 || 'DELETED_FLAG,'
7460 || 'REFRESH_ID,'
7461 || 'SR_INSTANCE_CODE,'
7462 || 'MESSAGE_ID,'
7463 || 'PROCESS_FLAG,'
7464 || 'DATA_SOURCE_TYPE,'
7465 || 'ST_TRANSACTION_ID,'
7466 || 'ERROR_TEXT,'
7467 || 'BATCH_ID,'
7468 || 'COMPANY_NAME '
7469 || ')'
7470 ||'SELECT '
7471 || 'GROUP_CODE,'
7472 || 'MEANING,'
7473 || 'DESCRIPTION,'
7474 || 'FROM_DATE,'
7475 || 'TO_DATE,'
7476 || 'ENABLED_FLAG,'
7477 || ':v_inst_rp_src_id,'
7478 || 'LAST_UPDATE_DATE,'
7479 || 'LAST_UPDATED_BY,'
7480 || 'CREATION_DATE,'
7481 || 'CREATED_BY,'
7482 || 'LAST_UPDATE_LOGIN,'
7483 || 'REQUEST_ID,'
7484 || 'PROGRAM_APPLICATION_ID,'
7485 || 'PROGRAM_ID,'
7486 || 'PROGRAM_UPDATE_DATE,'
7487 || 'ATTRIBUTE_CATEGORY,'
7488 || 'ATTRIBUTE1,'
7489 || 'ATTRIBUTE2,'
7490 || 'ATTRIBUTE3,'
7491 || 'ATTRIBUTE4,'
7492 || 'ATTRIBUTE5,'
7493 || 'ATTRIBUTE6,'
7494 || 'ATTRIBUTE7,'
7495 || 'ATTRIBUTE8,'
7496 || 'ATTRIBUTE9,'
7497 || 'ATTRIBUTE10,'
7498 || 'ATTRIBUTE11,'
7499 || 'ATTRIBUTE12,'
7500 || 'ATTRIBUTE13,'
7501 || 'ATTRIBUTE14,'
7502 || 'ATTRIBUTE15,'
7503 || 'DELETED_FLAG,'
7504 || 'REFRESH_ID,'
7505 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
7506 || 'MESSAGE_ID,'
7507 || 'PROCESS_FLAG,'
7508 || 'DATA_SOURCE_TYPE,'
7509 || 'ST_TRANSACTION_ID,'
7510 || 'ERROR_TEXT,'
7511 || 'BATCH_ID,'
7512 || 'COMPANY_NAME '
7513 ||'FROM MSC_ST_RESOURCE_GROUPS'|| v_dblink
7514 ||' WHERE '
7515 ||' sr_instance_id = ' || to_char(v_src_instance_id);
7516
7517
7518
7519 EXECUTE IMMEDIATE v_sql_stmt USING
7520 v_inst_rp_src_id
7521 ,v_ascp_inst,v_icode
7522 ;
7523
7524 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
7525 COMMIT;
7526
7527 EXCEPTION
7528 WHEN OTHERS THEN
7529 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
7530 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
7531 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_RESOURCE_GROUPS');
7532 v_retcode := 2;
7533 RAISE;
7534 ELSE
7535 IF v_retcode < 2 THEN
7536 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
7537 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_RESOURCE_GROUPS');
7538 v_retcode := 1;
7539 END IF;
7540 RETURN;
7541 END IF;
7542
7543 END COPY_RESOURCE_GROUPS;
7544 PROCEDURE COPY_RESOURCE_REQUIREMENTS IS
7545
7546 BEGIN
7547
7548 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_RESOURCE_REQUIREMENTS');
7549 v_sql_stmt:=
7550 'INSERT INTO MSC_ST_RESOURCE_REQUIREMENTS ('
7551 || 'DEPARTMENT_ID,'
7552 || 'RESOURCE_ID,'
7553 || 'ORGANIZATION_ID,'
7554 || 'INVENTORY_ITEM_ID,'
7555 || 'SUPPLY_ID,'
7556 || 'OPERATION_SEQ_NUM,'
7557 || 'OPERATION_SEQUENCE_ID,'
7558 || 'RESOURCE_SEQ_NUM,'
7559 || 'START_DATE,'
7560 || 'OPERATION_HOURS_REQUIRED,'
7561 || 'HOURS_EXPENDED,'
7562 || 'DEMAND_CLASS,'
7563 || 'BASIS_TYPE,'
7564 || 'ASSIGNED_UNITS,'
7565 || 'END_DATE,'
7566 || 'WIP_JOB_TYPE,'
7567 || 'SCHEDULED_COMPLETION_DATE,'
7568 || 'SCHEDULED_QUANTITY,'
7569 || 'QUANTITY_COMPLETED,'
7570 || 'DELETED_FLAG,'
7571 || 'LAST_UPDATE_DATE,'
7572 || 'LAST_UPDATED_BY,'
7573 || 'CREATION_DATE,'
7574 || 'CREATED_BY,'
7575 || 'LAST_UPDATE_LOGIN,'
7576 || 'REQUEST_ID,'
7577 || 'PROGRAM_APPLICATION_ID,'
7578 || 'PROGRAM_ID,'
7579 || 'PROGRAM_UPDATE_DATE,'
7580 || 'SR_INSTANCE_ID,'
7581 || 'REFRESH_ID,'
7582 || 'WIP_ENTITY_ID,'
7583 || 'STD_OP_CODE,'
7584 || 'SUPPLY_TYPE,'
7585 || 'CUMMULATIVE_QAUNTITY,'
7586 || 'MINIMUM_TRANSFER_QUANTITY,'
7587 || 'FIRM_FLAG,'
7588 || 'COMPANY_ID,'
7589 || 'COMPANY_NAME,'
7590 || 'WIP_ENTITY_NAME,'
7591 || 'ITEM_NAME,'
7592 || 'ORGANIZATION_CODE,'
7593 || 'SR_INSTANCE_CODE,'
7594 || 'OPERATION_SEQ_CODE,'
7595 || 'RESOURCE_SEQ_CODE,'
7596 || 'DEPARTMENT_CODE,'
7597 || 'RESOURCE_CODE,'
7598 || 'ROUTING_NAME,'
7599 || 'ALTERNATE_ROUTING_DESIGNATOR,'
7600 || 'OPERATION_EFFECTIVITY_DATE,'
7601 || 'ALTERNATE_NUMBER,'
7602 || 'ERROR_TEXT,'
7603 || 'MESSAGE_ID,'
7604 || 'PROCESS_FLAG,'
7605 || 'DATA_SOURCE_TYPE,'
7606 || 'ST_TRANSACTION_ID,'
7607 || 'BATCH_ID,'
7608 || 'PARENT_SEQ_NUM,'
7609 || 'SETUP_ID,'
7610 || 'SCHEDULE_FLAG,'
7611 || 'QUANTITY_IN_QUEUE,'
7612 || 'QUANTITY_RUNNING,'
7613 || 'QUANTITY_WAITING_TO_MOVE,'
7614 || 'YIELD,'
7615 || 'USAGE_RATE,'
7616 || 'ACTIVITY_GROUP_ID,'
7617 || 'PRINCIPAL_FLAG,'
7618 || 'SOURCE_ORGANIZATION_ID,'
7619 || 'SOURCE_DEPARTMENT_ID,'
7620 || 'SOURCE_RESOURCE_ID,'
7621 || 'SOURCE_RESOURCE_SEQ_NUM,'
7622 || 'SOURCE_OPERATION_SEQUENCE_ID,'
7623 || 'SOURCE_WIP_ENTITY_ID,'
7624 || 'SOURCE_OPERATION_SEQ_NUM,'
7625 || 'ORIG_RESOURCE_SEQ_NUM,'
7626 || 'ROUTING_SEQUENCE_ID,'
7627 || 'GROUP_SEQUENCE_ID,'
7628 || 'GROUP_SEQUENCE_NUMBER,'
7629 || 'BATCH_NUMBER,'
7630 || 'MAXIMUM_ASSIGNED_UNITS,'
7631 || 'MINIMUM_CAPACITY,'
7632 || 'MAXIMUM_CAPACITY,'
7633 || 'BREAKABLE_ACTIVITY_FLAG,'
7634 || 'STEP_QUANTITY,'
7635 || 'STEP_QUANTITY_UOM,'
7636 || 'UNADJUSTED_RESOURCE_HOURS,'
7637 || 'TOUCH_TIME '
7638 || ')'
7639 ||'SELECT '
7640 || 'DEPARTMENT_ID,'
7641 || 'RESOURCE_ID,'
7642 || 'ORGANIZATION_ID,'
7643 || 'INVENTORY_ITEM_ID,'
7644 || 'SUPPLY_ID,'
7645 || 'OPERATION_SEQ_NUM,'
7646 || 'OPERATION_SEQUENCE_ID,'
7647 || 'RESOURCE_SEQ_NUM,'
7648 || 'START_DATE,'
7649 || 'OPERATION_HOURS_REQUIRED,'
7650 || 'HOURS_EXPENDED,'
7651 || 'DEMAND_CLASS,'
7652 || 'BASIS_TYPE,'
7653 || 'ASSIGNED_UNITS,'
7654 || 'END_DATE,'
7655 || 'WIP_JOB_TYPE,'
7656 || 'SCHEDULED_COMPLETION_DATE,'
7657 || 'SCHEDULED_QUANTITY,'
7658 || 'QUANTITY_COMPLETED,'
7659 || 'DELETED_FLAG,'
7660 || 'LAST_UPDATE_DATE,'
7661 || 'LAST_UPDATED_BY,'
7662 || 'CREATION_DATE,'
7663 || 'CREATED_BY,'
7664 || 'LAST_UPDATE_LOGIN,'
7665 || 'REQUEST_ID,'
7666 || 'PROGRAM_APPLICATION_ID,'
7667 || 'PROGRAM_ID,'
7668 || 'PROGRAM_UPDATE_DATE,'
7669 || ':v_inst_rp_src_id,'
7670 || 'REFRESH_ID,'
7671 || 'WIP_ENTITY_ID,'
7672 || 'STD_OP_CODE,'
7673 || 'SUPPLY_TYPE,'
7674 || 'CUMMULATIVE_QAUNTITY,'
7675 || 'MINIMUM_TRANSFER_QUANTITY,'
7676 || 'FIRM_FLAG,'
7677 || 'COMPANY_ID,'
7678 || 'COMPANY_NAME,'
7679 || 'WIP_ENTITY_NAME,'
7680 || 'ITEM_NAME,'
7681 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
7682 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
7683 || 'OPERATION_SEQ_CODE,'
7684 || 'RESOURCE_SEQ_CODE,'
7685 || 'DEPARTMENT_CODE,'
7686 || 'RESOURCE_CODE,'
7687 || 'ROUTING_NAME,'
7688 || 'ALTERNATE_ROUTING_DESIGNATOR,'
7689 || 'OPERATION_EFFECTIVITY_DATE,'
7690 || 'ALTERNATE_NUMBER,'
7691 || 'ERROR_TEXT,'
7692 || 'MESSAGE_ID,'
7693 || 'PROCESS_FLAG,'
7694 || 'DATA_SOURCE_TYPE,'
7695 || 'ST_TRANSACTION_ID,'
7696 || 'BATCH_ID,'
7697 || 'PARENT_SEQ_NUM,'
7698 || 'SETUP_ID,'
7699 || 'SCHEDULE_FLAG,'
7700 || 'QUANTITY_IN_QUEUE,'
7701 || 'QUANTITY_RUNNING,'
7702 || 'QUANTITY_WAITING_TO_MOVE,'
7703 || 'YIELD,'
7704 || 'USAGE_RATE,'
7705 || 'ACTIVITY_GROUP_ID,'
7706 || 'PRINCIPAL_FLAG,'
7707 || 'SOURCE_ORGANIZATION_ID,'
7708 || 'SOURCE_DEPARTMENT_ID,'
7709 || 'SOURCE_RESOURCE_ID,'
7710 || 'SOURCE_RESOURCE_SEQ_NUM,'
7711 || 'SOURCE_OPERATION_SEQUENCE_ID,'
7712 || 'SOURCE_WIP_ENTITY_ID,'
7713 || 'SOURCE_OPERATION_SEQ_NUM,'
7714 || 'ORIG_RESOURCE_SEQ_NUM,'
7715 || 'ROUTING_SEQUENCE_ID,'
7716 || 'GROUP_SEQUENCE_ID,'
7717 || 'GROUP_SEQUENCE_NUMBER,'
7718 || 'BATCH_NUMBER,'
7719 || 'MAXIMUM_ASSIGNED_UNITS,'
7720 || 'MINIMUM_CAPACITY,'
7721 || 'MAXIMUM_CAPACITY,'
7722 || 'BREAKABLE_ACTIVITY_FLAG,'
7723 || 'STEP_QUANTITY,'
7724 || 'STEP_QUANTITY_UOM,'
7725 || 'UNADJUSTED_RESOURCE_HOURS,'
7726 || 'TOUCH_TIME '
7727 ||'FROM MSC_ST_RESOURCE_REQUIREMENTS'|| v_dblink
7728 ||' WHERE '
7729 ||' sr_instance_id = ' || to_char(v_src_instance_id);
7730
7731
7732 EXECUTE IMMEDIATE v_sql_stmt USING
7733 v_inst_rp_src_id
7734 ,v_ascp_inst,v_icode
7735 ,v_ascp_inst,v_icode
7736 ;
7737
7738 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
7739 COMMIT;
7740
7741 EXCEPTION
7742 WHEN OTHERS THEN
7743 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
7744 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
7745 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_RESOURCE_REQUIREMENTS');
7746 v_retcode := 2;
7747 RAISE;
7748 ELSE
7749 IF v_retcode < 2 THEN
7750 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
7751 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_RESOURCE_REQUIREMENTS');
7752 v_retcode := 1;
7753 END IF;
7754 RETURN;
7755 END IF;
7756
7757 END COPY_RESOURCE_REQUIREMENTS;
7758 PROCEDURE COPY_RESOURCE_SHIFTS IS
7759
7760 BEGIN
7761
7762 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_RESOURCE_SHIFTS');
7763 v_sql_stmt:=
7764 'INSERT INTO MSC_ST_RESOURCE_SHIFTS ('
7765 || 'DEPARTMENT_ID,'
7766 || 'RESOURCE_ID,'
7767 || 'SHIFT_NUM,'
7768 || 'DELETED_FLAG,'
7769 || 'LAST_UPDATE_DATE,'
7770 || 'LAST_UPDATED_BY,'
7771 || 'CREATION_DATE,'
7772 || 'CREATED_BY,'
7773 || 'LAST_UPDATE_LOGIN,'
7774 || 'REQUEST_ID,'
7775 || 'PROGRAM_APPLICATION_ID,'
7776 || 'PROGRAM_ID,'
7777 || 'PROGRAM_UPDATE_DATE,'
7778 || 'REFRESH_ID,'
7779 || 'SR_INSTANCE_ID,'
7780 || 'COMPANY_ID,'
7781 || 'COMPANY_NAME,'
7782 || 'DEPARTMENT_CODE,'
7783 || 'RESOURCE_CODE,'
7784 || 'ORGANIZATION_CODE,'
7785 || 'SR_INSTANCE_CODE,'
7786 || 'SHIFT_NAME,'
7787 || 'MESSAGE_ID,'
7788 || 'PROCESS_FLAG,'
7789 || 'ERROR_TEXT,'
7790 || 'ST_TRANSACTION_ID,'
7791 || 'BATCH_ID,'
7792 || 'DATA_SOURCE_TYPE,'
7793 || 'CAPACITY_UNITS '
7794 || ')'
7795 ||'SELECT '
7796 || 'DEPARTMENT_ID,'
7797 || 'RESOURCE_ID,'
7798 || 'SHIFT_NUM,'
7799 || 'DELETED_FLAG,'
7800 || 'LAST_UPDATE_DATE,'
7801 || 'LAST_UPDATED_BY,'
7802 || 'CREATION_DATE,'
7803 || 'CREATED_BY,'
7804 || 'LAST_UPDATE_LOGIN,'
7805 || 'REQUEST_ID,'
7806 || 'PROGRAM_APPLICATION_ID,'
7807 || 'PROGRAM_ID,'
7808 || 'PROGRAM_UPDATE_DATE,'
7809 || 'REFRESH_ID,'
7810 || ':v_inst_rp_src_id,'
7811 || 'COMPANY_ID,'
7812 || 'COMPANY_NAME,'
7813 || 'DEPARTMENT_CODE,'
7814 || 'RESOURCE_CODE,'
7815 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
7816 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
7817 || 'SHIFT_NAME,'
7818 || 'MESSAGE_ID,'
7819 || 'PROCESS_FLAG,'
7820 || 'ERROR_TEXT,'
7821 || 'ST_TRANSACTION_ID,'
7822 || 'BATCH_ID,'
7823 || 'DATA_SOURCE_TYPE,'
7824 || 'CAPACITY_UNITS '
7825 ||'FROM MSC_ST_RESOURCE_SHIFTS'|| v_dblink
7826 ||' WHERE '
7827 ||' sr_instance_id = ' || to_char(v_src_instance_id);
7828
7829
7830 EXECUTE IMMEDIATE v_sql_stmt USING
7831 v_inst_rp_src_id
7832 ,v_ascp_inst,v_icode
7833 ,v_ascp_inst,v_icode
7834 ;
7835
7836 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
7837 COMMIT;
7838
7839 EXCEPTION
7840 WHEN OTHERS THEN
7841 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
7842 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
7843 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_RESOURCE_SHIFTS');
7844 v_retcode := 2;
7845 RAISE;
7846 ELSE
7847 IF v_retcode < 2 THEN
7848 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
7849 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_RESOURCE_SHIFTS');
7850 v_retcode := 1;
7851 END IF;
7852 RETURN;
7853 END IF;
7854
7855 END COPY_RESOURCE_SHIFTS;
7856 PROCEDURE COPY_ROUTINGS IS
7857
7858 BEGIN
7859
7860 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_ROUTINGS');
7861 v_sql_stmt:=
7862 'INSERT INTO MSC_ST_ROUTINGS ('
7863 || 'ROUTING_SEQUENCE_ID,'
7864 || 'ASSEMBLY_ITEM_ID,'
7865 || 'ROUTING_TYPE,'
7866 || 'ROUTING_COMMENT,'
7867 || 'PRIORITY,'
7868 || 'ALTERNATE_ROUTING_DESIGNATOR,'
7869 || 'PROJECT_ID,'
7870 || 'TASK_ID,'
7871 || 'LINE_ID,'
7872 || 'UOM_CODE,'
7873 || 'CFM_ROUTING_FLAG,'
7874 || 'CTP_FLAG,'
7875 || 'ROUTING_QUANTITY,'
7876 || 'COMPLETION_SUBINVENTORY,'
7877 || 'COMPLETION_LOCATOR_ID,'
7878 || 'COMMON_ROUTING_SEQUENCE_ID,'
7879 || 'MIXED_MODEL_MAP_FLAG,'
7880 || 'TOTAL_PRODUCT_CYCLE_TIME,'
7881 || 'ORGANIZATION_ID,'
7882 || 'DELETED_FLAG,'
7883 || 'LAST_UPDATE_DATE,'
7884 || 'LAST_UPDATED_BY,'
7885 || 'CREATION_DATE,'
7886 || 'CREATED_BY,'
7887 || 'LAST_UPDATE_LOGIN,'
7888 || 'REQUEST_ID,'
7889 || 'PROGRAM_APPLICATION_ID,'
7890 || 'PROGRAM_ID,'
7891 || 'PROGRAM_UPDATE_DATE,'
7892 || 'SR_INSTANCE_ID,'
7893 || 'REFRESH_ID,'
7894 || 'FIRST_OP_SEQ_NUM,'
7895 || 'LAST_OP_SEQ_NUM,'
7896 || 'COMPANY_ID,'
7897 || 'COMPANY_NAME,'
7898 || 'BOM_NAME,'
7899 || 'ROUTING_NAME,'
7900 || 'BILL_SEQUENCE_ID,'
7901 || 'ORGANIZATION_CODE,'
7902 || 'ASSEMBLY_NAME,'
7903 || 'SR_INSTANCE_CODE,'
7904 || 'LINE_CODE,'
7905 || 'PROJECT_NUMBER,'
7906 || 'TASK_NUMBER,'
7907 || 'ALTERNATE_BOM_DESIGNATOR,'
7908 || 'MESSAGE_ID,'
7909 || 'PROCESS_FLAG,'
7910 || 'ERROR_TEXT,'
7911 || 'DATA_SOURCE_TYPE,'
7912 || 'ST_TRANSACTION_ID,'
7913 || 'BATCH_ID,'
7914 || 'FIRST_OPERATION_SEQ_CODE,'
7915 || 'LAST_OPERATION_SEQ_CODE,'
7916 || 'COMMON_ROUTING_NAME,'
7917 || 'ITEM_PROCESS_COST,'
7918 || 'SOURCE_ORGANIZATION_ID,'
7919 || 'SOURCE_ASSEMBLY_ITEM_ID,'
7920 || 'SOURCE_ROUTING_SEQUENCE_ID,'
7921 || 'SOURCE_TASK_ID,'
7922 || 'SOURCE_PROJECT_ID,'
7923 || 'SOURCE_BILL_SEQUENCE_ID,'
7924 || 'SOURCE_COMMON_ROUTING_SEQ_ID,'
7925 || 'SOURCE_LINE_ID,'
7926 || 'AUTO_STEP_QTY_FLAG '
7927 || ')'
7928 ||'SELECT '
7929 || 'ROUTING_SEQUENCE_ID,'
7930 || 'ASSEMBLY_ITEM_ID,'
7931 || 'ROUTING_TYPE,'
7932 || 'ROUTING_COMMENT,'
7933 || 'PRIORITY,'
7934 || 'ALTERNATE_ROUTING_DESIGNATOR,'
7935 || 'PROJECT_ID,'
7936 || 'TASK_ID,'
7937 || 'LINE_ID,'
7938 || 'UOM_CODE,'
7939 || 'CFM_ROUTING_FLAG,'
7940 || 'CTP_FLAG,'
7941 || 'ROUTING_QUANTITY,'
7942 || 'COMPLETION_SUBINVENTORY,'
7943 || 'COMPLETION_LOCATOR_ID,'
7944 || 'COMMON_ROUTING_SEQUENCE_ID,'
7945 || 'MIXED_MODEL_MAP_FLAG,'
7946 || 'TOTAL_PRODUCT_CYCLE_TIME,'
7947 || 'ORGANIZATION_ID,'
7948 || 'DELETED_FLAG,'
7949 || 'LAST_UPDATE_DATE,'
7950 || 'LAST_UPDATED_BY,'
7951 || 'CREATION_DATE,'
7952 || 'CREATED_BY,'
7953 || 'LAST_UPDATE_LOGIN,'
7954 || 'REQUEST_ID,'
7955 || 'PROGRAM_APPLICATION_ID,'
7956 || 'PROGRAM_ID,'
7957 || 'PROGRAM_UPDATE_DATE,'
7958 || ':v_inst_rp_src_id,'
7959 || 'REFRESH_ID,'
7960 || 'FIRST_OP_SEQ_NUM,'
7961 || 'LAST_OP_SEQ_NUM,'
7962 || 'COMPANY_ID,'
7963 || 'COMPANY_NAME,'
7964 || 'BOM_NAME,'
7965 || 'ROUTING_NAME,'
7966 || 'BILL_SEQUENCE_ID,'
7967 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
7968 || 'ASSEMBLY_NAME,'
7969 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
7970 || 'LINE_CODE,'
7971 || 'PROJECT_NUMBER,'
7972 || 'TASK_NUMBER,'
7973 || 'ALTERNATE_BOM_DESIGNATOR,'
7974 || 'MESSAGE_ID,'
7975 || 'PROCESS_FLAG,'
7976 || 'ERROR_TEXT,'
7977 || 'DATA_SOURCE_TYPE,'
7978 || 'ST_TRANSACTION_ID,'
7979 || 'BATCH_ID,'
7980 || 'FIRST_OPERATION_SEQ_CODE,'
7981 || 'LAST_OPERATION_SEQ_CODE,'
7982 || 'COMMON_ROUTING_NAME,'
7983 || 'ITEM_PROCESS_COST,'
7984 || 'SOURCE_ORGANIZATION_ID,'
7985 || 'SOURCE_ASSEMBLY_ITEM_ID,'
7986 || 'SOURCE_ROUTING_SEQUENCE_ID,'
7987 || 'SOURCE_TASK_ID,'
7988 || 'SOURCE_PROJECT_ID,'
7989 || 'SOURCE_BILL_SEQUENCE_ID,'
7990 || 'SOURCE_COMMON_ROUTING_SEQ_ID,'
7991 || 'SOURCE_LINE_ID,'
7992 || 'AUTO_STEP_QTY_FLAG '
7993 ||'FROM MSC_ST_ROUTINGS'|| v_dblink
7994 ||' WHERE '
7995 ||' sr_instance_id = ' || to_char(v_src_instance_id);
7996
7997
7998 EXECUTE IMMEDIATE v_sql_stmt USING
7999 v_inst_rp_src_id
8000 ,v_ascp_inst,v_icode
8001 ,v_ascp_inst,v_icode
8002 ;
8003
8004 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
8005 COMMIT;
8006
8007 EXCEPTION
8008 WHEN OTHERS THEN
8009 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
8010 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
8011 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_ROUTINGS');
8012 v_retcode := 2;
8013 RAISE;
8014 ELSE
8015 IF v_retcode < 2 THEN
8016 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
8017 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_ROUTINGS');
8018 v_retcode := 1;
8019 END IF;
8020 RETURN;
8021 END IF;
8022
8023 END COPY_ROUTINGS;
8024 PROCEDURE COPY_ROUTING_OPERATIONS IS
8025
8026 BEGIN
8027
8028 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_ROUTING_OPERATIONS');
8029 v_sql_stmt:=
8030 'INSERT INTO MSC_ST_ROUTING_OPERATIONS ('
8031 || 'OPERATION_SEQUENCE_ID,'
8032 || 'ROUTING_SEQUENCE_ID,'
8033 || 'OPERATION_SEQ_NUM,'
8034 || 'OPERATION_DESCRIPTION,'
8035 || 'EFFECTIVITY_DATE,'
8036 || 'DISABLE_DATE,'
8037 || 'FROM_UNIT_NUMBER,'
8038 || 'TO_UNIT_NUMBER,'
8039 || 'OPTION_DEPENDENT_FLAG,'
8040 || 'OPERATION_TYPE,'
8041 || 'MINIMUM_TRANSFER_QUANTITY,'
8042 || 'YIELD,'
8043 || 'DEPARTMENT_ID,'
8044 || 'DEPARTMENT_CODE,'
8045 || 'OPERATION_LEAD_TIME_PERCENT,'
8046 || 'CUMULATIVE_YIELD,'
8047 || 'REVERSE_CUMULATIVE_YIELD,'
8048 || 'NET_PLANNING_PERCENT,'
8049 || 'TEAR_DOWN_DURATION,'
8050 || 'SETUP_DURATION,'
8051 || 'UOM_CODE,'
8052 || 'STANDARD_OPERATION_CODE,'
8053 || 'ORGANIZATION_ID,'
8054 || 'DELETED_FLAG,'
8055 || 'LAST_UPDATE_DATE,'
8056 || 'LAST_UPDATED_BY,'
8057 || 'CREATION_DATE,'
8058 || 'CREATED_BY,'
8059 || 'LAST_UPDATE_LOGIN,'
8060 || 'REQUEST_ID,'
8061 || 'PROGRAM_APPLICATION_ID,'
8062 || 'PROGRAM_ID,'
8063 || 'PROGRAM_UPDATE_DATE,'
8064 || 'SR_INSTANCE_ID,'
8065 || 'REFRESH_ID,'
8066 || 'COMPANY_ID,'
8067 || 'COMPANY_NAME,'
8068 || 'ROUTING_NAME,'
8069 || 'ALTERNATE_ROUTING_DESIGNATOR,'
8070 || 'ORGANIZATION_CODE,'
8071 || 'ASSEMBLY_NAME,'
8072 || 'SR_INSTANCE_CODE,'
8073 || 'OPERATION_SEQ_CODE,'
8074 || 'PROCESS_FLAG,'
8075 || 'DATA_SOURCE_TYPE,'
8076 || 'ERROR_TEXT,'
8077 || 'MESSAGE_ID,'
8078 || 'ST_TRANSACTION_ID,'
8079 || 'BATCH_ID,'
8080 || 'SOURCE_ORGANIZATION_ID,'
8081 || 'SOURCE_OPERATION_SEQUENCE_ID,'
8082 || 'SOURCE_OPERATION_SEQ_NUM,'
8083 || 'SOURCE_DEPARTMENT_ID,'
8084 || 'STEP_QUANTITY,'
8085 || 'STEP_QUANTITY_UOM '
8086 || ')'
8087 ||'SELECT '
8088 || 'OPERATION_SEQUENCE_ID,'
8089 || 'ROUTING_SEQUENCE_ID,'
8090 || 'OPERATION_SEQ_NUM,'
8091 || 'OPERATION_DESCRIPTION,'
8092 || 'EFFECTIVITY_DATE,'
8093 || 'DISABLE_DATE,'
8094 || 'FROM_UNIT_NUMBER,'
8095 || 'TO_UNIT_NUMBER,'
8096 || 'OPTION_DEPENDENT_FLAG,'
8097 || 'OPERATION_TYPE,'
8098 || 'MINIMUM_TRANSFER_QUANTITY,'
8099 || 'YIELD,'
8100 || 'DEPARTMENT_ID,'
8101 || 'DEPARTMENT_CODE,'
8102 || 'OPERATION_LEAD_TIME_PERCENT,'
8103 || 'CUMULATIVE_YIELD,'
8104 || 'REVERSE_CUMULATIVE_YIELD,'
8105 || 'NET_PLANNING_PERCENT,'
8106 || 'TEAR_DOWN_DURATION,'
8107 || 'SETUP_DURATION,'
8108 || 'UOM_CODE,'
8109 || 'STANDARD_OPERATION_CODE,'
8110 || 'ORGANIZATION_ID,'
8111 || 'DELETED_FLAG,'
8112 || 'LAST_UPDATE_DATE,'
8113 || 'LAST_UPDATED_BY,'
8114 || 'CREATION_DATE,'
8115 || 'CREATED_BY,'
8116 || 'LAST_UPDATE_LOGIN,'
8117 || 'REQUEST_ID,'
8118 || 'PROGRAM_APPLICATION_ID,'
8119 || 'PROGRAM_ID,'
8120 || 'PROGRAM_UPDATE_DATE,'
8121 || ':v_inst_rp_src_id,'
8122 || 'REFRESH_ID,'
8123 || 'COMPANY_ID,'
8124 || 'COMPANY_NAME,'
8125 || 'ROUTING_NAME,'
8126 || 'ALTERNATE_ROUTING_DESIGNATOR,'
8127 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
8128 || 'ASSEMBLY_NAME,'
8129 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
8130 || 'OPERATION_SEQ_CODE,'
8131 || 'PROCESS_FLAG,'
8132 || 'DATA_SOURCE_TYPE,'
8133 || 'ERROR_TEXT,'
8134 || 'MESSAGE_ID,'
8135 || 'ST_TRANSACTION_ID,'
8136 || 'BATCH_ID,'
8137 || 'SOURCE_ORGANIZATION_ID,'
8138 || 'SOURCE_OPERATION_SEQUENCE_ID,'
8139 || 'SOURCE_OPERATION_SEQ_NUM,'
8140 || 'SOURCE_DEPARTMENT_ID,'
8141 || 'STEP_QUANTITY,'
8142 || 'STEP_QUANTITY_UOM '
8143 ||'FROM MSC_ST_ROUTING_OPERATIONS'|| v_dblink
8144 ||' WHERE '
8145 ||' sr_instance_id = ' || to_char(v_src_instance_id);
8146
8147
8148 EXECUTE IMMEDIATE v_sql_stmt USING
8149 v_inst_rp_src_id
8150 ,v_ascp_inst,v_icode
8151 ,v_ascp_inst,v_icode
8152 ;
8153
8154 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
8155 COMMIT;
8156
8157 EXCEPTION
8158 WHEN OTHERS THEN
8159 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
8160 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
8161 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_ROUTING_OPERATIONS');
8162 v_retcode := 2;
8163 RAISE;
8164 ELSE
8165 IF v_retcode < 2 THEN
8166 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
8167 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_ROUTING_OPERATIONS');
8168 v_retcode := 1;
8169 END IF;
8170 RETURN;
8171 END IF;
8172
8173 END COPY_ROUTING_OPERATIONS;
8174 PROCEDURE COPY_SAFETY_STOCKS IS
8175
8176 BEGIN
8177
8178 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_SAFETY_STOCKS');
8179 v_sql_stmt:=
8180 'INSERT INTO MSC_ST_SAFETY_STOCKS ('
8181 || 'ORGANIZATION_ID,'
8182 || 'INVENTORY_ITEM_ID,'
8183 || 'PERIOD_START_DATE,'
8184 || 'SAFETY_STOCK_QUANTITY,'
8185 || 'UPDATED,'
8186 || 'STATUS,'
8187 || 'DELETED_FLAG,'
8188 || 'LAST_UPDATE_DATE,'
8189 || 'LAST_UPDATED_BY,'
8190 || 'CREATION_DATE,'
8191 || 'CREATED_BY,'
8192 || 'LAST_UPDATE_LOGIN,'
8193 || 'REQUEST_ID,'
8194 || 'PROGRAM_APPLICATION_ID,'
8195 || 'PROGRAM_ID,'
8196 || 'PROGRAM_UPDATE_DATE,'
8197 || 'SR_INSTANCE_ID,'
8198 || 'REFRESH_ID,'
8199 || 'ORGANIZATION_CODE,'
8200 || 'ITEM_NAME,'
8201 || 'SR_INSTANCE_CODE,'
8202 || 'MESSAGE_ID,'
8203 || 'PROCESS_FLAG,'
8204 || 'DATA_SOURCE_TYPE,'
8205 || 'ST_TRANSACTION_ID,'
8206 || 'ERROR_TEXT,'
8207 || 'BATCH_ID,'
8208 || 'COMPANY_NAME,'
8209 || 'PROJECT_ID,'
8210 || 'TASK_ID,'
8211 || 'PLANNING_GROUP,'
8212 || 'PROJECT_NUMBER,'
8213 || 'TASK_NUMBER '
8214 || ')'
8215 ||'SELECT '
8216 || 'ORGANIZATION_ID,'
8217 || 'INVENTORY_ITEM_ID,'
8218 || 'PERIOD_START_DATE,'
8219 || 'SAFETY_STOCK_QUANTITY,'
8220 || 'UPDATED,'
8221 || 'STATUS,'
8222 || 'DELETED_FLAG,'
8223 || 'LAST_UPDATE_DATE,'
8224 || 'LAST_UPDATED_BY,'
8225 || 'CREATION_DATE,'
8226 || 'CREATED_BY,'
8227 || 'LAST_UPDATE_LOGIN,'
8228 || 'REQUEST_ID,'
8229 || 'PROGRAM_APPLICATION_ID,'
8230 || 'PROGRAM_ID,'
8231 || 'PROGRAM_UPDATE_DATE,'
8232 || ':v_inst_rp_src_id,'
8233 || 'REFRESH_ID,'
8234 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
8235 || 'ITEM_NAME,'
8236 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
8237 || 'MESSAGE_ID,'
8238 || 'PROCESS_FLAG,'
8239 || 'DATA_SOURCE_TYPE,'
8240 || 'ST_TRANSACTION_ID,'
8241 || 'ERROR_TEXT,'
8242 || 'BATCH_ID,'
8243 || 'COMPANY_NAME,'
8244 || 'PROJECT_ID,'
8245 || 'TASK_ID,'
8246 || 'PLANNING_GROUP,'
8247 || 'PROJECT_NUMBER,'
8248 || 'TASK_NUMBER '
8249 ||'FROM MSC_ST_SAFETY_STOCKS'|| v_dblink
8250 ||' WHERE '
8251 ||' sr_instance_id = ' || to_char(v_src_instance_id);
8252
8253
8254 EXECUTE IMMEDIATE v_sql_stmt USING
8255 v_inst_rp_src_id
8256 ,v_ascp_inst,v_icode
8257 ,v_ascp_inst,v_icode
8258 ;
8259
8260 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
8261 COMMIT;
8262
8263 EXCEPTION
8264 WHEN OTHERS THEN
8265 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
8266 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
8267 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_SAFETY_STOCKS');
8268 v_retcode := 2;
8269 RAISE;
8270 ELSE
8271 IF v_retcode < 2 THEN
8272 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
8273 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_SAFETY_STOCKS');
8274 v_retcode := 1;
8275 END IF;
8276 RETURN;
8277 END IF;
8278
8279 END COPY_SAFETY_STOCKS;
8280 PROCEDURE COPY_SALES_ORDERS IS
8281
8282 BEGIN
8283
8284 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_SALES_ORDERS');
8285 v_sql_stmt:=
8286 'INSERT INTO MSC_ST_SALES_ORDERS ('
8287 || 'INVENTORY_ITEM_ID,'
8288 || 'ORGANIZATION_ID,'
8289 || 'DEMAND_ID,'
8290 || 'PRIMARY_UOM_QUANTITY,'
8291 || 'RESERVATION_TYPE,'
8292 || 'RESERVATION_QUANTITY,'
8293 || 'DEMAND_SOURCE_TYPE,'
8294 || 'DEMAND_SOURCE_HEADER_ID,'
8295 || 'COMPLETED_QUANTITY,'
8296 || 'SUBINVENTORY,'
8297 || 'DEMAND_CLASS,'
8298 || 'REQUIREMENT_DATE,'
8299 || 'DEMAND_SOURCE_LINE,'
8300 || 'DEMAND_SOURCE_DELIVERY,'
8301 || 'DEMAND_SOURCE_NAME,'
8302 || 'PARENT_DEMAND_ID,'
8303 || 'DELETED_FLAG,'
8304 || 'LAST_UPDATE_DATE,'
8305 || 'LAST_UPDATED_BY,'
8306 || 'CREATION_DATE,'
8307 || 'CREATED_BY,'
8308 || 'LAST_UPDATE_LOGIN,'
8309 || 'REQUEST_ID,'
8310 || 'PROGRAM_APPLICATION_ID,'
8311 || 'PROGRAM_ID,'
8312 || 'PROGRAM_UPDATE_DATE,'
8313 || 'REFRESH_ID,'
8314 || 'SR_INSTANCE_ID,'
8315 || 'SALES_ORDER_NUMBER,'
8316 || 'SALESREP_CONTACT,'
8317 || 'ORDERED_ITEM_ID,'
8318 || 'AVAILABLE_TO_MRP,'
8319 || 'CUSTOMER_ID,'
8320 || 'SHIP_TO_SITE_USE_ID,'
8321 || 'BILL_TO_SITE_USE_ID,'
8322 || 'LINE_NUM,'
8323 || 'TERRITORY_ID,'
8324 || 'UPDATE_SEQ_NUM,'
8325 || 'DEMAND_TYPE,'
8326 || 'PROJECT_ID,'
8327 || 'TASK_ID,'
8328 || 'PLANNING_GROUP,'
8329 || 'END_ITEM_UNIT_NUMBER,'
8330 || 'DEMAND_PRIORITY,'
8331 || 'ATP_REFRESH_NUMBER,'
8332 || 'REQUEST_DATE,'
8333 || 'SELLING_PRICE,'
8334 || 'DEMAND_VISIBLE,'
8335 || 'FORECAST_VISIBLE,'
8336 || 'CTO_FLAG,'
8337 || 'ORIGINAL_SYSTEM_REFERENCE,'
8338 || 'ORIGINAL_SYSTEM_LINE_REFERENCE,'
8339 || 'COMPANY_ID,'
8340 || 'COMPANY_NAME,'
8341 || 'ITEM_NAME,'
8342 || 'ORDERED_ITEM_NAME,'
8343 || 'CUSTOMER_NAME,'
8344 || 'SHIP_TO_SITE_CODE,'
8345 || 'BILL_TO_SITE_CODE,'
8346 || 'ORGANIZATION_CODE,'
8347 || 'SR_INSTANCE_CODE,'
8348 || 'PROJECT_NUMBER,'
8349 || 'TASK_NUMBER,'
8350 || 'MESSAGE_ID,'
8351 || 'PROCESS_FLAG,'
8352 || 'BATCH_ID,'
8353 || 'DATA_SOURCE_TYPE,'
8354 || 'ST_TRANSACTION_ID,'
8355 || 'ERROR_TEXT,'
8356 || 'COMMENTS,'
8357 || 'ORDER_RELEASE_NUMBER,'
8358 || 'END_ORDER_NUMBER,'
8359 || 'END_ORDER_RELEASE_NUMBER,'
8360 || 'END_ORDER_LINE_NUMBER,'
8361 || 'END_ORDER_TYPE,'
8362 || 'NEW_ORDER_PLACEMENT_DATE,'
8363 || 'ORIGINAL_ITEM_ID,'
8364 || 'PROMISE_DATE,'
8365 || 'ORIGINAL_ITEM_NAME,'
8366 || 'LINK_TO_LINE_ID,'
8367 || 'CUST_PO_NUMBER,'
8368 || 'CUSTOMER_LINE_NUMBER,'
8369 || 'MFG_LEAD_TIME,'
8370 || 'ORDER_DATE_TYPE_CODE,'
8371 || 'LATEST_ACCEPTABLE_DATE,'
8372 || 'SHIPPING_METHOD_CODE,'
8373 || 'SCHEDULE_ARRIVAL_DATE,'
8374 || 'ORG_FIRM_FLAG,'
8375 || 'SHIP_SET_ID,'
8376 || 'ARRIVAL_SET_ID,'
8377 || 'SOURCE_DEMAND_SOURCE_HEADER_ID,'
8378 || 'SOURCE_ORGANIZATION_ID,'
8379 || 'SOURCE_ORIGINAL_ITEM_ID,'
8380 || 'SOURCE_DEMAND_ID,'
8381 || 'SOURCE_INVENTORY_ITEM_ID,'
8382 || 'SOURCE_CUSTOMER_ID,'
8383 || 'SOURCE_BILL_TO_SITE_USE_ID,'
8384 || 'SOURCE_SHIP_TO_SITE_USE_ID,'
8385 || 'ATO_LINE_ID,'
8386 || 'SHIP_SET_NAME,'
8387 || 'ARRIVAL_SET_NAME,'
8388 || 'SALESREP_ID,'
8389 || 'INTRANSIT_LEAD_TIME,'
8390 || 'SOURCE_DEMAND_SOURCE_LINE, '
8391 || 'ROW_TYPE '
8392 || ')'
8393 ||'SELECT '
8394 || 'INVENTORY_ITEM_ID,'
8395 || 'ORGANIZATION_ID,'
8396 || 'DEMAND_ID,'
8397 || 'PRIMARY_UOM_QUANTITY,'
8398 || 'RESERVATION_TYPE,'
8399 || 'RESERVATION_QUANTITY,'
8400 || 'DEMAND_SOURCE_TYPE,'
8401 || 'DEMAND_SOURCE_HEADER_ID,'
8402 || 'COMPLETED_QUANTITY,'
8403 || 'SUBINVENTORY,'
8404 || 'DEMAND_CLASS,'
8405 || 'REQUIREMENT_DATE,'
8406 || 'DEMAND_SOURCE_LINE,'
8407 || 'DEMAND_SOURCE_DELIVERY,'
8408 || 'DEMAND_SOURCE_NAME,'
8409 || 'PARENT_DEMAND_ID,'
8410 || 'DELETED_FLAG,'
8411 || 'LAST_UPDATE_DATE,'
8412 || 'LAST_UPDATED_BY,'
8413 || 'CREATION_DATE,'
8414 || 'CREATED_BY,'
8415 || 'LAST_UPDATE_LOGIN,'
8416 || 'REQUEST_ID,'
8417 || 'PROGRAM_APPLICATION_ID,'
8418 || 'PROGRAM_ID,'
8419 || 'PROGRAM_UPDATE_DATE,'
8420 || 'REFRESH_ID,'
8421 || ':v_inst_rp_src_id,'
8422 || 'SALES_ORDER_NUMBER,'
8423 || 'SALESREP_CONTACT,'
8424 || 'ORDERED_ITEM_ID,'
8425 || 'AVAILABLE_TO_MRP,'
8426 || 'CUSTOMER_ID,'
8427 || 'SHIP_TO_SITE_USE_ID,'
8428 || 'BILL_TO_SITE_USE_ID,'
8429 || 'LINE_NUM,'
8430 || 'TERRITORY_ID,'
8431 || 'UPDATE_SEQ_NUM,'
8432 || 'DEMAND_TYPE,'
8433 || 'PROJECT_ID,'
8434 || 'TASK_ID,'
8435 || 'PLANNING_GROUP,'
8436 || 'END_ITEM_UNIT_NUMBER,'
8437 || 'DEMAND_PRIORITY,'
8438 || 'ATP_REFRESH_NUMBER,'
8439 || 'REQUEST_DATE,'
8440 || 'SELLING_PRICE,'
8441 || 'DEMAND_VISIBLE,'
8442 || 'FORECAST_VISIBLE,'
8443 || 'CTO_FLAG,'
8444 || 'ORIGINAL_SYSTEM_REFERENCE,'
8445 || 'ORIGINAL_SYSTEM_LINE_REFERENCE,'
8446 || 'COMPANY_ID,'
8447 || 'COMPANY_NAME,'
8448 || 'ITEM_NAME,'
8449 || 'ORDERED_ITEM_NAME,'
8450 || 'CUSTOMER_NAME,'
8451 || 'SHIP_TO_SITE_CODE,'
8452 || 'BILL_TO_SITE_CODE,'
8453 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
8454 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
8455 || 'PROJECT_NUMBER,'
8456 || 'TASK_NUMBER,'
8457 || 'MESSAGE_ID,'
8458 || 'PROCESS_FLAG,'
8459 || 'BATCH_ID,'
8460 || 'DATA_SOURCE_TYPE,'
8461 || 'ST_TRANSACTION_ID,'
8462 || 'ERROR_TEXT,'
8463 || 'COMMENTS,'
8464 || 'ORDER_RELEASE_NUMBER,'
8465 || 'END_ORDER_NUMBER,'
8466 || 'END_ORDER_RELEASE_NUMBER,'
8467 || 'END_ORDER_LINE_NUMBER,'
8468 || 'END_ORDER_TYPE,'
8469 || 'NEW_ORDER_PLACEMENT_DATE,'
8470 || 'ORIGINAL_ITEM_ID,'
8471 || 'PROMISE_DATE,'
8472 || 'ORIGINAL_ITEM_NAME,'
8473 || 'LINK_TO_LINE_ID,'
8474 || 'CUST_PO_NUMBER,'
8475 || 'CUSTOMER_LINE_NUMBER,'
8476 || 'MFG_LEAD_TIME,'
8477 || 'ORDER_DATE_TYPE_CODE,'
8478 || 'LATEST_ACCEPTABLE_DATE,'
8479 || 'SHIPPING_METHOD_CODE,'
8480 || 'SCHEDULE_ARRIVAL_DATE,'
8481 || 'ORG_FIRM_FLAG,'
8482 || 'SHIP_SET_ID,'
8483 || 'ARRIVAL_SET_ID,'
8484 || 'SOURCE_DEMAND_SOURCE_HEADER_ID,'
8485 || 'SOURCE_ORGANIZATION_ID,'
8486 || 'SOURCE_ORIGINAL_ITEM_ID,'
8487 || 'SOURCE_DEMAND_ID,'
8488 || 'SOURCE_INVENTORY_ITEM_ID,'
8489 || 'SOURCE_CUSTOMER_ID,'
8490 || 'SOURCE_BILL_TO_SITE_USE_ID,'
8491 || 'SOURCE_SHIP_TO_SITE_USE_ID,'
8492 || 'ATO_LINE_ID,'
8493 || 'SHIP_SET_NAME,'
8494 || 'ARRIVAL_SET_NAME,'
8495 || 'SALESREP_ID,'
8496 || 'INTRANSIT_LEAD_TIME,'
8497 || 'SOURCE_DEMAND_SOURCE_LINE, '
8498 || 'DECODE (RESERVATION_TYPE, '
8499 || ' 1, DECODE(DEMAND_SOURCE_TYPE, '
8500 || ' 100, 4,'
8501 || ' DECODE(AVAILABLE_TO_MRP, '
8502 || ' 1, 2,'
8503 || ' 3)),'
8504 || ' 1) '
8505 ||' FROM MSC_ST_SALES_ORDERS'|| v_dblink
8506 ||' WHERE '
8507 ||' sr_instance_id = ' || to_char(v_src_instance_id);
8508
8509
8510
8511 EXECUTE IMMEDIATE v_sql_stmt USING
8512 v_inst_rp_src_id
8513 ,v_ascp_inst,v_icode
8514 ,v_ascp_inst,v_icode
8515 ;
8516
8517 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
8518 COMMIT;
8519
8520 EXCEPTION
8521 WHEN OTHERS THEN
8522 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
8523 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
8524 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_SALES_ORDERS');
8525 v_retcode := 2;
8526 RAISE;
8527 ELSE
8528 IF v_retcode < 2 THEN
8529 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
8530 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_SALES_ORDERS');
8531 v_retcode := 1;
8532 END IF;
8533 RETURN;
8534 END IF;
8535
8536 END COPY_SALES_ORDERS;
8537 PROCEDURE COPY_SHIFT_DATES IS
8538
8539 BEGIN
8540
8541 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_SHIFT_DATES');
8542 v_sql_stmt:=
8543 'INSERT INTO MSC_ST_SHIFT_DATES ('
8544 || 'CALENDAR_CODE,'
8545 || 'EXCEPTION_SET_ID,'
8546 || 'SHIFT_NUM,'
8547 || 'SHIFT_DATE,'
8548 || 'SEQ_NUM,'
8549 || 'NEXT_SEQ_NUM,'
8550 || 'PRIOR_SEQ_NUM,'
8551 || 'NEXT_DATE,'
8552 || 'PRIOR_DATE,'
8553 || 'DELETED_FLAG,'
8554 || 'LAST_UPDATE_DATE,'
8555 || 'LAST_UPDATED_BY,'
8556 || 'CREATION_DATE,'
8557 || 'CREATED_BY,'
8558 || 'LAST_UPDATE_LOGIN,'
8559 || 'REQUEST_ID,'
8560 || 'PROGRAM_APPLICATION_ID,'
8561 || 'PROGRAM_ID,'
8562 || 'PROGRAM_UPDATE_DATE,'
8563 || 'REFRESH_ID,'
8564 || 'SR_INSTANCE_ID '
8565 || ')'
8566 ||'SELECT '
8567 || 'REPLACE(CALENDAR_CODE,:v_ascp_inst,:v_icode),'
8568 || 'EXCEPTION_SET_ID,'
8569 || 'SHIFT_NUM,'
8570 || 'SHIFT_DATE,'
8571 || 'SEQ_NUM,'
8572 || 'NEXT_SEQ_NUM,'
8573 || 'PRIOR_SEQ_NUM,'
8574 || 'NEXT_DATE,'
8575 || 'PRIOR_DATE,'
8576 || 'DELETED_FLAG,'
8577 || 'LAST_UPDATE_DATE,'
8578 || 'LAST_UPDATED_BY,'
8579 || 'CREATION_DATE,'
8580 || 'CREATED_BY,'
8581 || 'LAST_UPDATE_LOGIN,'
8582 || 'REQUEST_ID,'
8583 || 'PROGRAM_APPLICATION_ID,'
8584 || 'PROGRAM_ID,'
8585 || 'PROGRAM_UPDATE_DATE,'
8586 || 'REFRESH_ID,'
8587 || ':v_inst_rp_src_id '
8588 ||'FROM MSC_ST_SHIFT_DATES'|| v_dblink
8589 ||' WHERE '
8590 ||' sr_instance_id = ' || to_char(v_src_instance_id);
8591
8592
8593
8594 EXECUTE IMMEDIATE v_sql_stmt USING
8595 v_ascp_inst,v_icode
8596 ,v_inst_rp_src_id
8597 ;
8598
8599 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
8600 COMMIT;
8601
8602 EXCEPTION
8603 WHEN OTHERS THEN
8604 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
8605 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
8606 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_SHIFT_DATES');
8607 v_retcode := 2;
8608 RAISE;
8609 ELSE
8610 IF v_retcode < 2 THEN
8611 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
8612 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_SHIFT_DATES');
8613 v_retcode := 1;
8614 END IF;
8615 RETURN;
8616 END IF;
8617
8618 END COPY_SHIFT_DATES;
8619 PROCEDURE COPY_SHIFT_EXCEPTIONS IS
8620
8621 BEGIN
8622
8623 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_SHIFT_EXCEPTIONS');
8624 v_sql_stmt:=
8625 'INSERT INTO MSC_ST_SHIFT_EXCEPTIONS ('
8626 || 'CALENDAR_CODE,'
8627 || 'SHIFT_NUM,'
8628 || 'EXCEPTION_SET_ID,'
8629 || 'EXCEPTION_DATE,'
8630 || 'EXCEPTION_TYPE,'
8631 || 'DELETED_FLAG,'
8632 || 'LAST_UPDATE_DATE,'
8633 || 'LAST_UPDATED_BY,'
8634 || 'CREATION_DATE,'
8635 || 'CREATED_BY,'
8636 || 'LAST_UPDATE_LOGIN,'
8637 || 'REQUEST_ID,'
8638 || 'PROGRAM_APPLICATION_ID,'
8639 || 'PROGRAM_ID,'
8640 || 'PROGRAM_UPDATE_DATE,'
8641 || 'REFRESH_ID,'
8642 || 'SR_INSTANCE_ID,'
8643 || 'COMPANY_ID,'
8644 || 'COMPANY_NAME,'
8645 || 'SHIFT_NAME,'
8646 || 'SR_INSTANCE_CODE,'
8647 || 'MESSAGE_ID,'
8648 || 'PROCESS_FLAG,'
8649 || 'DATA_SOURCE_TYPE,'
8650 || 'ST_TRANSACTION_ID,'
8651 || 'ERROR_TEXT '
8652 || ')'
8653 ||'SELECT '
8654 || 'REPLACE(CALENDAR_CODE,:v_ascp_inst,:v_icode),'
8655 || 'SHIFT_NUM,'
8656 || 'EXCEPTION_SET_ID,'
8657 || 'EXCEPTION_DATE,'
8658 || 'EXCEPTION_TYPE,'
8659 || 'DELETED_FLAG,'
8660 || 'LAST_UPDATE_DATE,'
8661 || 'LAST_UPDATED_BY,'
8662 || 'CREATION_DATE,'
8663 || 'CREATED_BY,'
8664 || 'LAST_UPDATE_LOGIN,'
8665 || 'REQUEST_ID,'
8666 || 'PROGRAM_APPLICATION_ID,'
8667 || 'PROGRAM_ID,'
8668 || 'PROGRAM_UPDATE_DATE,'
8669 || 'REFRESH_ID,'
8670 || ':v_inst_rp_src_id,'
8671 || 'COMPANY_ID,'
8672 || 'COMPANY_NAME,'
8673 || 'SHIFT_NAME,'
8674 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
8675 || 'MESSAGE_ID,'
8676 || 'PROCESS_FLAG,'
8677 || 'DATA_SOURCE_TYPE,'
8678 || 'ST_TRANSACTION_ID,'
8679 || 'ERROR_TEXT '
8680 ||'FROM MSC_ST_SHIFT_EXCEPTIONS'|| v_dblink
8681 ||' WHERE '
8682 ||' sr_instance_id = ' || to_char(v_src_instance_id);
8683
8684
8685
8686 EXECUTE IMMEDIATE v_sql_stmt USING
8687 v_ascp_inst,v_icode
8688 ,v_inst_rp_src_id
8689 ,v_ascp_inst,v_icode
8690 ;
8691
8692 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
8693 COMMIT;
8694
8695 EXCEPTION
8696 WHEN OTHERS THEN
8697 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
8698 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
8699 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_SHIFT_EXCEPTIONS');
8700 v_retcode := 2;
8701 RAISE;
8702 ELSE
8703 IF v_retcode < 2 THEN
8704 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
8705 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_SHIFT_EXCEPTIONS');
8706 v_retcode := 1;
8707 END IF;
8708 RETURN;
8709 END IF;
8710
8711 END COPY_SHIFT_EXCEPTIONS;
8712 PROCEDURE COPY_SHIFT_TIMES IS
8713
8714 BEGIN
8715
8716 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_SHIFT_TIMES');
8717 v_sql_stmt:=
8718 'INSERT INTO MSC_ST_SHIFT_TIMES ('
8719 || 'CALENDAR_CODE,'
8720 || 'SHIFT_NUM,'
8721 || 'FROM_TIME,'
8722 || 'TO_TIME,'
8723 || 'DELETED_FLAG,'
8724 || 'LAST_UPDATE_DATE,'
8725 || 'LAST_UPDATED_BY,'
8726 || 'CREATION_DATE,'
8727 || 'CREATED_BY,'
8728 || 'LAST_UPDATE_LOGIN,'
8729 || 'REQUEST_ID,'
8730 || 'PROGRAM_APPLICATION_ID,'
8731 || 'PROGRAM_ID,'
8732 || 'PROGRAM_UPDATE_DATE,'
8733 || 'REFRESH_ID,'
8734 || 'SR_INSTANCE_ID,'
8735 || 'COMPANY_ID,'
8736 || 'COMPANY_NAME,'
8737 || 'SHIFT_NAME,'
8738 || 'SR_INSTANCE_CODE,'
8739 || 'MESSAGE_ID,'
8740 || 'PROCESS_FLAG,'
8741 || 'DATA_SOURCE_TYPE,'
8742 || 'ST_TRANSACTION_ID,'
8743 || 'ERROR_TEXT '
8744 || ')'
8745 ||'SELECT '
8746 || 'REPLACE(CALENDAR_CODE,:v_ascp_inst,:v_icode),'
8747 || 'SHIFT_NUM,'
8748 || 'FROM_TIME,'
8749 || 'TO_TIME,'
8750 || 'DELETED_FLAG,'
8751 || 'LAST_UPDATE_DATE,'
8752 || 'LAST_UPDATED_BY,'
8753 || 'CREATION_DATE,'
8754 || 'CREATED_BY,'
8755 || 'LAST_UPDATE_LOGIN,'
8756 || 'REQUEST_ID,'
8757 || 'PROGRAM_APPLICATION_ID,'
8758 || 'PROGRAM_ID,'
8759 || 'PROGRAM_UPDATE_DATE,'
8760 || 'REFRESH_ID,'
8761 || ':v_inst_rp_src_id,'
8762 || 'COMPANY_ID,'
8763 || 'COMPANY_NAME,'
8764 || 'SHIFT_NAME,'
8765 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
8766 || 'MESSAGE_ID,'
8767 || 'PROCESS_FLAG,'
8768 || 'DATA_SOURCE_TYPE,'
8769 || 'ST_TRANSACTION_ID,'
8770 || 'ERROR_TEXT '
8771 ||'FROM MSC_ST_SHIFT_TIMES'|| v_dblink
8772 ||' WHERE '
8773 ||' sr_instance_id = ' || to_char(v_src_instance_id);
8774
8775
8776
8777 EXECUTE IMMEDIATE v_sql_stmt USING
8778 v_ascp_inst,v_icode
8779 ,v_inst_rp_src_id
8780 ,v_ascp_inst,v_icode
8781 ;
8782
8783 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
8784 COMMIT;
8785
8786 EXCEPTION
8787 WHEN OTHERS THEN
8788 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
8789 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
8790 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_SHIFT_EXCEPTIONS');
8791 v_retcode := 2;
8792 RAISE;
8793 ELSE
8794 IF v_retcode < 2 THEN
8795 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
8796 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_SHIFT_EXCEPTIONS');
8797 v_retcode := 1;
8798 END IF;
8799 RETURN;
8800 END IF;
8801
8802 END COPY_SHIFT_TIMES;
8803 PROCEDURE COPY_SIMULATION_SETS IS
8804
8805 BEGIN
8806
8807 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_SIMULATION_SETS');
8808 v_sql_stmt:=
8809 'INSERT INTO MSC_ST_SIMULATION_SETS ('
8810 || 'ORGANIZATION_ID,'
8811 || 'SIMULATION_SET,'
8812 || 'DESCRIPTION,'
8813 || 'USE_IN_WIP_FLAG,'
8814 || 'DELETED_FLAG,'
8815 || 'LAST_UPDATE_DATE,'
8816 || 'LAST_UPDATED_BY,'
8817 || 'CREATION_DATE,'
8818 || 'CREATED_BY,'
8819 || 'LAST_UPDATE_LOGIN,'
8820 || 'REQUEST_ID,'
8821 || 'PROGRAM_APPLICATION_ID,'
8822 || 'PROGRAM_ID,'
8823 || 'PROGRAM_UPDATE_DATE,'
8824 || 'SR_INSTANCE_ID,'
8825 || 'REFRESH_ID '
8826 || ')'
8827 ||'SELECT '
8828 || 'ORGANIZATION_ID,'
8829 || 'SIMULATION_SET,'
8830 || 'DESCRIPTION,'
8831 || 'USE_IN_WIP_FLAG,'
8832 || 'DELETED_FLAG,'
8833 || 'LAST_UPDATE_DATE,'
8834 || 'LAST_UPDATED_BY,'
8835 || 'CREATION_DATE,'
8836 || 'CREATED_BY,'
8837 || 'LAST_UPDATE_LOGIN,'
8838 || 'REQUEST_ID,'
8839 || 'PROGRAM_APPLICATION_ID,'
8840 || 'PROGRAM_ID,'
8841 || 'PROGRAM_UPDATE_DATE,'
8842 || ':v_inst_rp_src_id,'
8843 || 'REFRESH_ID '
8844 ||'FROM MSC_ST_SIMULATION_SETS'|| v_dblink
8845 ||' WHERE '
8846 ||' sr_instance_id = ' || to_char(v_src_instance_id);
8847
8848
8849
8850 EXECUTE IMMEDIATE v_sql_stmt USING
8851 v_inst_rp_src_id
8852 ;
8853
8854 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
8855 COMMIT;
8856
8857 EXCEPTION
8858 WHEN OTHERS THEN
8859 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
8860 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
8861 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_SIMULATION_SETS');
8862 v_retcode := 2;
8863 RAISE;
8864 ELSE
8865 IF v_retcode < 2 THEN
8866 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
8867 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_SIMULATION_SETS');
8868 v_retcode := 1;
8869 END IF;
8870 RETURN;
8871 END IF;
8872
8873 END COPY_SIMULATION_SETS;
8874 PROCEDURE COPY_SOURCING_HISTORY IS
8875
8876 BEGIN
8877
8878 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_SOURCING_HISTORY');
8879 v_sql_stmt:=
8880 'INSERT INTO MSC_ST_SOURCING_HISTORY ('
8881 || 'INVENTORY_ITEM_ID,'
8882 || 'ORGANIZATION_ID,'
8883 || 'SR_INSTANCE_ID,'
8884 || 'SOURCING_RULE_ID,'
8885 || 'SOURCE_ORG_ID,'
8886 || 'SOURCE_SR_INSTANCE_ID,'
8887 || 'SUPPLIER_ID,'
8888 || 'SUPPLIER_SITE_ID,'
8889 || 'HISTORICAL_ALLOCATION,'
8890 || 'REFRESH_NUMBER,'
8891 || 'LAST_CALCULATED_DATE,'
8892 || 'LAST_UPDATED_BY,'
8893 || 'LAST_UPDATE_DATE,'
8894 || 'CREATION_DATE,'
8895 || 'CREATED_BY,'
8896 || 'LAST_UPDATE_LOGIN,'
8897 || 'REQUEST_ID,'
8898 || 'PROGRAM_APPLICATION_ID,'
8899 || 'PROGRAM_ID,'
8900 || 'PROGRAM_UPDATE_DATE '
8901 || ')'
8902 ||'SELECT '
8903 || 'INVENTORY_ITEM_ID,'
8904 || 'ORGANIZATION_ID,'
8905 || ':v_inst_rp_src_id,'
8906 || 'SOURCING_RULE_ID,'
8907 || 'SOURCE_ORG_ID,'
8908 || 'SOURCE_SR_INSTANCE_ID,'
8909 || 'SUPPLIER_ID,'
8910 || 'SUPPLIER_SITE_ID,'
8911 || 'HISTORICAL_ALLOCATION,'
8912 || 'REFRESH_NUMBER,'
8913 || 'LAST_CALCULATED_DATE,'
8914 || 'LAST_UPDATED_BY,'
8915 || 'LAST_UPDATE_DATE,'
8916 || 'CREATION_DATE,'
8917 || 'CREATED_BY,'
8918 || 'LAST_UPDATE_LOGIN,'
8919 || 'REQUEST_ID,'
8920 || 'PROGRAM_APPLICATION_ID,'
8921 || 'PROGRAM_ID,'
8922 || 'PROGRAM_UPDATE_DATE '
8923 ||'FROM MSC_ST_SOURCING_HISTORY'|| v_dblink
8924 ||' WHERE '
8925 ||' sr_instance_id = ' || to_char(v_src_instance_id);
8926
8927
8928
8929 EXECUTE IMMEDIATE v_sql_stmt USING
8930 v_inst_rp_src_id
8931 ;
8932
8933 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
8934 COMMIT;
8935
8936 EXCEPTION
8937 WHEN OTHERS THEN
8938 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
8939 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
8940 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_SOURCING_HISTORY');
8941 v_retcode := 2;
8942 RAISE;
8943 ELSE
8944 IF v_retcode < 2 THEN
8945 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
8946 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_SOURCING_HISTORY');
8947 v_retcode := 1;
8948 END IF;
8949 RETURN;
8950 END IF;
8951
8952 END COPY_SOURCING_HISTORY;
8953 PROCEDURE COPY_SOURCING_RULES IS
8954
8955 BEGIN
8956
8957 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_SOURCING_RULES');
8958 v_sql_stmt:=
8959 'INSERT INTO MSC_ST_SOURCING_RULES ('
8960 || 'SOURCING_RULE_ID,'
8961 || 'SR_SOURCING_RULE_ID,'
8962 || 'SOURCING_RULE_NAME,'
8963 || 'ORGANIZATION_ID,'
8964 || 'DESCRIPTION,'
8965 || 'STATUS,'
8966 || 'SOURCING_RULE_TYPE,'
8967 || 'PLANNING_ACTIVE,'
8968 || 'DELETED_FLAG,'
8969 || 'LAST_UPDATE_DATE,'
8970 || 'LAST_UPDATED_BY,'
8971 || 'CREATION_DATE,'
8972 || 'CREATED_BY,'
8973 || 'LAST_UPDATE_LOGIN,'
8974 || 'REQUEST_ID,'
8975 || 'PROGRAM_APPLICATION_ID,'
8976 || 'PROGRAM_ID,'
8977 || 'PROGRAM_UPDATE_DATE,'
8978 || 'SR_INSTANCE_ID,'
8979 || 'REFRESH_ID '
8980 || ')'
8981 ||'SELECT '
8982 || 'SOURCING_RULE_ID,'
8983 || 'SR_SOURCING_RULE_ID,'
8984 || 'SOURCING_RULE_NAME,'
8985 || 'ORGANIZATION_ID,'
8986 || 'DESCRIPTION,'
8987 || 'STATUS,'
8988 || 'SOURCING_RULE_TYPE,'
8989 || 'PLANNING_ACTIVE,'
8990 || 'DELETED_FLAG,'
8991 || 'LAST_UPDATE_DATE,'
8992 || 'LAST_UPDATED_BY,'
8993 || 'CREATION_DATE,'
8994 || 'CREATED_BY,'
8995 || 'LAST_UPDATE_LOGIN,'
8996 || 'REQUEST_ID,'
8997 || 'PROGRAM_APPLICATION_ID,'
8998 || 'PROGRAM_ID,'
8999 || 'PROGRAM_UPDATE_DATE,'
9000 || ':v_inst_rp_src_id,'
9001 || 'REFRESH_ID '
9002 ||'FROM MSC_ST_SOURCING_RULES'|| v_dblink
9003 ||' WHERE '
9004 ||' sr_instance_id = ' || to_char(v_src_instance_id);
9005
9006
9007
9008 EXECUTE IMMEDIATE v_sql_stmt USING
9009 v_inst_rp_src_id
9010 ;
9011
9012 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
9013 COMMIT;
9014
9015 EXCEPTION
9016 WHEN OTHERS THEN
9017 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
9018 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
9019 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_SOURCING_RULES');
9020 v_retcode := 2;
9021 RAISE;
9022 ELSE
9023 IF v_retcode < 2 THEN
9024 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
9025 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_SOURCING_RULES');
9026 v_retcode := 1;
9027 END IF;
9028 RETURN;
9029 END IF;
9030
9031 END COPY_SOURCING_RULES;
9032 PROCEDURE COPY_SR_ASSIGNMENTS IS
9033
9034 BEGIN
9035
9036 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_SR_ASSIGNMENTS');
9037 v_sql_stmt:=
9038 'INSERT INTO MSC_ST_SR_ASSIGNMENTS ('
9039 || 'ASSIGNMENT_ID,'
9040 || 'SR_ASSIGNMENT_ID,'
9041 || 'ASSIGNMENT_SET_ID,'
9042 || 'ASSIGNMENT_TYPE,'
9043 || 'SOURCING_RULE_ID,'
9044 || 'SOURCING_RULE_TYPE,'
9045 || 'INVENTORY_ITEM_ID,'
9046 || 'PARTNER_ID,'
9047 || 'SHIP_TO_SITE_ID,'
9048 || 'CUSTOMER_NAME,'
9049 || 'SITE_USE_CODE,'
9050 || 'LOCATION,'
9051 || 'ORGANIZATION_ID,'
9052 || 'CATEGORY_ID,'
9053 || 'CATEGORY_NAME,'
9054 || 'CATEGORY_SET_IDENTIFIER,'
9055 || 'CATEGORY_SET_NAME,'
9056 || 'DELETED_FLAG,'
9057 || 'LAST_UPDATE_DATE,'
9058 || 'LAST_UPDATED_BY,'
9059 || 'CREATION_DATE,'
9060 || 'CREATED_BY,'
9061 || 'LAST_UPDATE_LOGIN,'
9062 || 'REQUEST_ID,'
9063 || 'PROGRAM_APPLICATION_ID,'
9064 || 'PROGRAM_ID,'
9065 || 'PROGRAM_UPDATE_DATE,'
9066 || 'SR_INSTANCE_ID,'
9067 || 'REFRESH_ID,'
9068 || 'SR_ASSIGNMENT_INSTANCE_ID,'
9069 || 'REGION_ID '
9070 || ')'
9071 ||'SELECT '
9072 || 'ASSIGNMENT_ID,'
9073 || 'SR_ASSIGNMENT_ID,'
9074 || 'ASSIGNMENT_SET_ID,'
9075 || 'ASSIGNMENT_TYPE,'
9076 || 'SOURCING_RULE_ID,'
9077 || 'SOURCING_RULE_TYPE,'
9078 || 'INVENTORY_ITEM_ID,'
9079 || 'PARTNER_ID,'
9080 || 'SHIP_TO_SITE_ID,'
9081 || 'CUSTOMER_NAME,'
9082 || 'SITE_USE_CODE,'
9083 || 'LOCATION,'
9084 || 'ORGANIZATION_ID,'
9085 || 'CATEGORY_ID,'
9086 || 'CATEGORY_NAME,'
9087 || 'CATEGORY_SET_IDENTIFIER,'
9088 || 'CATEGORY_SET_NAME,'
9089 || 'DELETED_FLAG,'
9090 || 'LAST_UPDATE_DATE,'
9091 || 'LAST_UPDATED_BY,'
9092 || 'CREATION_DATE,'
9093 || 'CREATED_BY,'
9094 || 'LAST_UPDATE_LOGIN,'
9095 || 'REQUEST_ID,'
9096 || 'PROGRAM_APPLICATION_ID,'
9097 || 'PROGRAM_ID,'
9098 || 'PROGRAM_UPDATE_DATE,'
9099 || ':v_inst_rp_src_id,'
9100 || 'REFRESH_ID,'
9101 || 'SR_ASSIGNMENT_INSTANCE_ID,'
9102 || 'REGION_ID '
9103 ||'FROM MSC_ST_SR_ASSIGNMENTS'|| v_dblink;
9104
9105 EXECUTE IMMEDIATE v_sql_stmt USING
9106 v_inst_rp_src_id
9107 ;
9108
9109 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
9110 COMMIT;
9111
9112 EXCEPTION
9113 WHEN OTHERS THEN
9114 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
9115 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
9116 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_SR_ASSIGNMENTS');
9117 v_retcode := 2;
9118 RAISE;
9119 ELSE
9120 IF v_retcode < 2 THEN
9121 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
9122 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_SR_ASSIGNMENTS');
9123 v_retcode := 1;
9124 END IF;
9125 RETURN;
9126 END IF;
9127
9128 END COPY_SR_ASSIGNMENTS;
9129 PROCEDURE COPY_SR_RECEIPT_ORG IS
9130
9131 BEGIN
9132
9133 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_SR_RECEIPT_ORG');
9134 v_sql_stmt:=
9135 'INSERT INTO MSC_ST_SR_RECEIPT_ORG ('
9136 || 'SR_RECEIPT_ID,'
9137 || 'SR_SR_RECEIPT_ORG,'
9138 || 'SOURCING_RULE_ID,'
9139 || 'RECEIPT_PARTNER_ID,'
9140 || 'RECEIPT_PARTNER_SITE_ID,'
9141 || 'EFFECTIVE_DATE,'
9142 || 'DISABLE_DATE,'
9143 || 'DELETED_FLAG,'
9144 || 'LAST_UPDATE_DATE,'
9145 || 'LAST_UPDATED_BY,'
9146 || 'CREATION_DATE,'
9147 || 'CREATED_BY,'
9148 || 'LAST_UPDATE_LOGIN,'
9149 || 'REQUEST_ID,'
9150 || 'PROGRAM_APPLICATION_ID,'
9151 || 'PROGRAM_ID,'
9152 || 'PROGRAM_UPDATE_DATE,'
9153 || 'SR_INSTANCE_ID,'
9154 || 'REFRESH_ID,'
9155 || 'RECEIPT_ORG_INSTANCE_ID '
9156 || ')'
9157 ||'SELECT '
9158 || 'SR_RECEIPT_ID,'
9159 || 'SR_SR_RECEIPT_ORG,'
9160 || 'SOURCING_RULE_ID,'
9161 || 'RECEIPT_PARTNER_ID,'
9162 || 'RECEIPT_PARTNER_SITE_ID,'
9163 || 'EFFECTIVE_DATE,'
9164 || 'DISABLE_DATE,'
9165 || 'DELETED_FLAG,'
9166 || 'LAST_UPDATE_DATE,'
9167 || 'LAST_UPDATED_BY,'
9168 || 'CREATION_DATE,'
9169 || 'CREATED_BY,'
9170 || 'LAST_UPDATE_LOGIN,'
9171 || 'REQUEST_ID,'
9172 || 'PROGRAM_APPLICATION_ID,'
9173 || 'PROGRAM_ID,'
9174 || 'PROGRAM_UPDATE_DATE,'
9175 || ':v_inst_rp_src_id,'
9176 || 'REFRESH_ID,'
9177 || 'RECEIPT_ORG_INSTANCE_ID '
9178 ||'FROM MSC_ST_SR_RECEIPT_ORG'|| v_dblink;
9179
9180 EXECUTE IMMEDIATE v_sql_stmt USING
9181 v_inst_rp_src_id
9182 ;
9183
9184 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
9185 COMMIT;
9186
9187 EXCEPTION
9188 WHEN OTHERS THEN
9189 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
9190 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
9191 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_SR_RECEIPT_ORG');
9192 v_retcode := 2;
9193 RAISE;
9194 ELSE
9195 IF v_retcode < 2 THEN
9196 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
9197 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_SR_RECEIPT_ORG');
9198 v_retcode := 1;
9199 END IF;
9200 RETURN;
9201 END IF;
9202
9203 END COPY_SR_RECEIPT_ORG;
9204 PROCEDURE COPY_SR_SOURCE_ORG IS
9205
9206 BEGIN
9207
9208 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_SR_SOURCE_ORG');
9209 v_sql_stmt:=
9210 'INSERT INTO MSC_ST_SR_SOURCE_ORG ('
9211 || 'SR_SOURCE_ID,'
9212 || 'SR_SR_SOURCE_ID,'
9213 || 'SR_RECEIPT_ID,'
9214 || 'SOURCE_ORGANIZATION_ID,'
9215 || 'SOURCE_PARTNER_ID,'
9216 || 'SOURCE_PARTNER_SITE_ID,'
9217 || 'SECONDARY_INVENTORY,'
9218 || 'SOURCE_TYPE,'
9219 || 'ALLOCATION_PERCENT,'
9220 || 'RANK,'
9221 || 'VENDOR_NAME,'
9222 || 'VENDOR_SITE_CODE,'
9223 || 'SHIP_METHOD,'
9224 || 'DELETED_FLAG,'
9225 || 'LAST_UPDATE_DATE,'
9226 || 'LAST_UPDATED_BY,'
9227 || 'CREATION_DATE,'
9228 || 'CREATED_BY,'
9229 || 'LAST_UPDATE_LOGIN,'
9230 || 'REQUEST_ID,'
9231 || 'PROGRAM_APPLICATION_ID,'
9232 || 'PROGRAM_ID,'
9233 || 'PROGRAM_UPDATE_DATE,'
9234 || 'SR_INSTANCE_ID,'
9235 || 'REFRESH_ID,'
9236 || 'SOURCE_ORG_INSTANCE_ID '
9237 || ')'
9238 ||'SELECT '
9239 || 'SR_SOURCE_ID,'
9240 || 'SR_SR_SOURCE_ID,'
9241 || 'SR_RECEIPT_ID,'
9242 || 'SOURCE_ORGANIZATION_ID,'
9243 || 'SOURCE_PARTNER_ID,'
9244 || 'SOURCE_PARTNER_SITE_ID,'
9245 || 'SECONDARY_INVENTORY,'
9246 || 'SOURCE_TYPE,'
9247 || 'ALLOCATION_PERCENT,'
9248 || 'RANK,'
9249 || 'VENDOR_NAME,'
9250 || 'VENDOR_SITE_CODE,'
9251 || 'SHIP_METHOD,'
9252 || 'DELETED_FLAG,'
9253 || 'LAST_UPDATE_DATE,'
9254 || 'LAST_UPDATED_BY,'
9255 || 'CREATION_DATE,'
9256 || 'CREATED_BY,'
9257 || 'LAST_UPDATE_LOGIN,'
9258 || 'REQUEST_ID,'
9259 || 'PROGRAM_APPLICATION_ID,'
9260 || 'PROGRAM_ID,'
9261 || 'PROGRAM_UPDATE_DATE,'
9262 || ':v_inst_rp_src_id,'
9263 || 'REFRESH_ID,'
9264 || 'SOURCE_ORG_INSTANCE_ID '
9265 ||'FROM MSC_ST_SR_SOURCE_ORG'|| v_dblink;
9266
9267 EXECUTE IMMEDIATE v_sql_stmt USING
9268 v_inst_rp_src_id
9269 ;
9270
9271 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
9272 COMMIT;
9273
9274 EXCEPTION
9275 WHEN OTHERS THEN
9276 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
9277 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
9278 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_SR_SOURCE_ORG');
9279 v_retcode := 2;
9280 RAISE;
9281 ELSE
9282 IF v_retcode < 2 THEN
9283 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
9284 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_SR_SOURCE_ORG');
9285 v_retcode := 1;
9286 END IF;
9287 RETURN;
9288 END IF;
9289
9290 END COPY_SR_SOURCE_ORG;
9291 PROCEDURE COPY_SUB_INVENTORIES IS
9292
9293 BEGIN
9294
9295 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_SUB_INVENTORIES');
9296 v_sql_stmt:=
9297 'INSERT INTO MSC_ST_SUB_INVENTORIES ('
9298 || 'ORGANIZATION_ID,'
9299 || 'SUB_INVENTORY_CODE,'
9300 || 'DESCRIPTION,'
9301 || 'DISABLE_DATE,'
9302 || 'NETTING_TYPE,'
9303 || 'DEMAND_CLASS,'
9304 || 'PROJECT_ID,'
9305 || 'TASK_ID,'
9306 || 'DELETED_FLAG,'
9307 || 'LAST_UPDATE_DATE,'
9308 || 'LAST_UPDATED_BY,'
9309 || 'CREATION_DATE,'
9310 || 'CREATED_BY,'
9311 || 'LAST_UPDATE_LOGIN,'
9312 || 'REQUEST_ID,'
9313 || 'PROGRAM_APPLICATION_ID,'
9314 || 'PROGRAM_ID,'
9315 || 'PROGRAM_UPDATE_DATE,'
9316 || 'SR_INSTANCE_ID,'
9317 || 'REFRESH_ID,'
9318 || 'INVENTORY_ATP_CODE,'
9319 || 'COMPANY_ID,'
9320 || 'COMPANY_NAME,'
9321 || 'ORGANIZATION_CODE,'
9322 || 'SR_INSTANCE_CODE,'
9323 || 'PROJECT_NUMBER,'
9324 || 'TASK_NUMBER,'
9325 || 'MESSAGE_ID,'
9326 || 'PROCESS_FLAG,'
9327 || 'DATA_SOURCE_TYPE,'
9328 || 'ST_TRANSACTION_ID,'
9329 || 'BATCH_ID,'
9330 || 'ERROR_TEXT '
9331 || ')'
9332 ||'SELECT '
9333 || 'ORGANIZATION_ID,'
9334 || 'SUB_INVENTORY_CODE,'
9335 || 'DESCRIPTION,'
9336 || 'DISABLE_DATE,'
9337 || 'NETTING_TYPE,'
9338 || 'DEMAND_CLASS,'
9339 || 'PROJECT_ID,'
9340 || 'TASK_ID,'
9341 || 'DELETED_FLAG,'
9342 || 'LAST_UPDATE_DATE,'
9343 || 'LAST_UPDATED_BY,'
9344 || 'CREATION_DATE,'
9345 || 'CREATED_BY,'
9346 || 'LAST_UPDATE_LOGIN,'
9347 || 'REQUEST_ID,'
9348 || 'PROGRAM_APPLICATION_ID,'
9349 || 'PROGRAM_ID,'
9350 || 'PROGRAM_UPDATE_DATE,'
9351 || ':v_inst_rp_src_id,'
9352 || 'REFRESH_ID,'
9353 || 'INVENTORY_ATP_CODE,'
9354 || 'COMPANY_ID,'
9355 || 'COMPANY_NAME,'
9356 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
9357 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
9358 || 'PROJECT_NUMBER,'
9359 || 'TASK_NUMBER,'
9360 || 'MESSAGE_ID,'
9361 || 'PROCESS_FLAG,'
9362 || 'DATA_SOURCE_TYPE,'
9363 || 'ST_TRANSACTION_ID,'
9364 || 'BATCH_ID,'
9365 || 'ERROR_TEXT '
9366 ||'FROM MSC_ST_SUB_INVENTORIES'|| v_dblink
9367 ||' WHERE '
9368 ||' sr_instance_id = ' || to_char(v_src_instance_id);
9369
9370
9371
9372 EXECUTE IMMEDIATE v_sql_stmt USING
9373 v_inst_rp_src_id
9374 ,v_ascp_inst,v_icode
9375 ,v_ascp_inst,v_icode
9376 ;
9377
9378 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
9379 COMMIT;
9380
9381 EXCEPTION
9382 WHEN OTHERS THEN
9383 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
9384 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
9385 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_SUB_INVENTORIES');
9386 v_retcode := 2;
9387 RAISE;
9388 ELSE
9389 IF v_retcode < 2 THEN
9390 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
9391 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_SUB_INVENTORIES');
9392 v_retcode := 1;
9393 END IF;
9394 RETURN;
9395 END IF;
9396
9397
9398 END COPY_SUB_INVENTORIES;
9399 PROCEDURE COPY_SUPPLIER_CAPACITIES IS
9400
9401 BEGIN
9402
9403 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_SUPPLIER_CAPACITIES');
9404 v_sql_stmt:=
9405 'INSERT INTO MSC_ST_SUPPLIER_CAPACITIES ('
9406 || 'SUPPLIER_ID,'
9407 || 'SUPPLIER_SITE_ID,'
9408 || 'ORGANIZATION_ID,'
9409 || 'USING_ORGANIZATION_ID,'
9410 || 'INVENTORY_ITEM_ID,'
9411 || 'VENDOR_NAME,'
9412 || 'VENDOR_SITE_CODE,'
9413 || 'FROM_DATE,'
9414 || 'TO_DATE,'
9415 || 'CAPACITY,'
9416 || 'DELETED_FLAG,'
9417 || 'LAST_UPDATE_DATE,'
9418 || 'LAST_UPDATED_BY,'
9419 || 'CREATION_DATE,'
9420 || 'CREATED_BY,'
9421 || 'LAST_UPDATE_LOGIN,'
9422 || 'REQUEST_ID,'
9423 || 'PROGRAM_APPLICATION_ID,'
9424 || 'PROGRAM_ID,'
9425 || 'PROGRAM_UPDATE_DATE,'
9426 || 'SR_INSTANCE_ID,'
9427 || 'REFRESH_ID,'
9428 || 'ITEM_NAME,'
9429 || 'BUCKET_TYPE,'
9430 || 'ROW_STATUS,'
9431 || 'COMPANY_ID,'
9432 || 'COMPANY_NAME,'
9433 || 'ORGANIZATION_CODE,'
9434 || 'SR_INSTANCE_CODE,'
9435 || 'MESSAGE_ID,'
9436 || 'PROCESS_FLAG,'
9437 || 'DATA_SOURCE_TYPE,'
9438 || 'ST_TRANSACTION_ID,'
9439 || 'ERROR_TEXT,'
9440 || 'BATCH_ID '
9441 || ')'
9442 ||'SELECT '
9443 || 'SUPPLIER_ID,'
9444 || 'SUPPLIER_SITE_ID,'
9445 || 'ORGANIZATION_ID,'
9446 || 'USING_ORGANIZATION_ID,'
9447 || 'INVENTORY_ITEM_ID,'
9448 || 'VENDOR_NAME,'
9449 || 'VENDOR_SITE_CODE,'
9450 || 'FROM_DATE,'
9451 || 'TO_DATE,'
9452 || 'CAPACITY,'
9453 || 'DELETED_FLAG,'
9454 || 'LAST_UPDATE_DATE,'
9455 || 'LAST_UPDATED_BY,'
9456 || 'CREATION_DATE,'
9457 || 'CREATED_BY,'
9458 || 'LAST_UPDATE_LOGIN,'
9459 || 'REQUEST_ID,'
9460 || 'PROGRAM_APPLICATION_ID,'
9461 || 'PROGRAM_ID,'
9462 || 'PROGRAM_UPDATE_DATE,'
9463 || ':v_inst_rp_src_id,'
9464 || 'REFRESH_ID,'
9465 || 'ITEM_NAME,'
9466 || 'BUCKET_TYPE,'
9467 || 'ROW_STATUS,'
9468 || 'COMPANY_ID,'
9469 || 'COMPANY_NAME,'
9470 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
9471 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
9472 || 'MESSAGE_ID,'
9473 || 'PROCESS_FLAG,'
9474 || 'DATA_SOURCE_TYPE,'
9475 || 'ST_TRANSACTION_ID,'
9476 || 'ERROR_TEXT,'
9477 || 'BATCH_ID '
9478 ||'FROM MSC_ST_SUPPLIER_CAPACITIES'|| v_dblink
9479 ||' WHERE '
9480 ||' sr_instance_id = ' || to_char(v_src_instance_id);
9481
9482
9483 EXECUTE IMMEDIATE v_sql_stmt USING
9484 v_inst_rp_src_id
9485 ,v_ascp_inst,v_icode
9486 ,v_ascp_inst,v_icode
9487 ;
9488
9489 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
9490 COMMIT;
9491
9492 EXCEPTION
9493 WHEN OTHERS THEN
9494 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
9495 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
9496 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_SUPPLIER_CAPACITIES');
9497 v_retcode := 2;
9498 RAISE;
9499 ELSE
9500 IF v_retcode < 2 THEN
9501 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
9502 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_SUPPLIER_CAPACITIES');
9503 v_retcode := 1;
9504 END IF;
9505 RETURN;
9506 END IF;
9507
9508 END COPY_SUPPLIER_CAPACITIES;
9509 PROCEDURE COPY_SUPPLIER_FLEX_FENCES IS
9510
9511 BEGIN
9512
9513 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_SUPPLIER_FLEX_FENCES');
9514 v_sql_stmt:=
9515 'INSERT INTO MSC_ST_SUPPLIER_FLEX_FENCES ('
9516 || 'SUPPLIER_ID,'
9517 || 'SUPPLIER_SITE_ID,'
9518 || 'ORGANIZATION_ID,'
9519 || 'USING_ORGANIZATION_ID,'
9520 || 'INVENTORY_ITEM_ID,'
9521 || 'VENDOR_NAME,'
9522 || 'VENDOR_SITE_CODE,'
9523 || 'FENCE_DAYS,'
9524 || 'TOLERANCE_PERCENTAGE,'
9525 || 'DELETED_FLAG,'
9526 || 'LAST_UPDATE_DATE,'
9527 || 'LAST_UPDATED_BY,'
9528 || 'CREATION_DATE,'
9529 || 'CREATED_BY,'
9530 || 'LAST_UPDATE_LOGIN,'
9531 || 'REQUEST_ID,'
9532 || 'PROGRAM_APPLICATION_ID,'
9533 || 'PROGRAM_ID,'
9534 || 'PROGRAM_UPDATE_DATE,'
9535 || 'SR_INSTANCE_ID,'
9536 || 'REFRESH_ID,'
9537 || 'COMPANY_ID,'
9538 || 'COMPANY_NAME,'
9539 || 'ITEM_NAME,'
9540 || 'ORGANIZATION_CODE,'
9541 || 'SR_INSTANCE_CODE,'
9542 || 'MESSAGE_ID,'
9543 || 'PROCESS_FLAG,'
9544 || 'DATA_SOURCE_TYPE,'
9545 || 'ST_TRANSACTION_ID,'
9546 || 'ERROR_TEXT,'
9547 || 'BATCH_ID '
9548 || ')'
9549 ||'SELECT '
9550 || 'SUPPLIER_ID,'
9551 || 'SUPPLIER_SITE_ID,'
9552 || 'ORGANIZATION_ID,'
9553 || 'USING_ORGANIZATION_ID,'
9554 || 'INVENTORY_ITEM_ID,'
9555 || 'VENDOR_NAME,'
9556 || 'VENDOR_SITE_CODE,'
9557 || 'FENCE_DAYS,'
9558 || 'TOLERANCE_PERCENTAGE,'
9559 || 'DELETED_FLAG,'
9560 || 'LAST_UPDATE_DATE,'
9561 || 'LAST_UPDATED_BY,'
9562 || 'CREATION_DATE,'
9563 || 'CREATED_BY,'
9564 || 'LAST_UPDATE_LOGIN,'
9565 || 'REQUEST_ID,'
9566 || 'PROGRAM_APPLICATION_ID,'
9567 || 'PROGRAM_ID,'
9568 || 'PROGRAM_UPDATE_DATE,'
9569 || ':v_inst_rp_src_id,'
9570 || 'REFRESH_ID,'
9571 || 'COMPANY_ID,'
9572 || 'COMPANY_NAME,'
9573 || 'ITEM_NAME,'
9574 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
9575 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
9576 || 'MESSAGE_ID,'
9577 || 'PROCESS_FLAG,'
9578 || 'DATA_SOURCE_TYPE,'
9579 || 'ST_TRANSACTION_ID,'
9580 || 'ERROR_TEXT,'
9581 || 'BATCH_ID '
9582 ||'FROM MSC_ST_SUPPLIER_FLEX_FENCES'|| v_dblink
9583 ||' WHERE '
9584 ||' sr_instance_id = ' || to_char(v_src_instance_id);
9585
9586
9587 EXECUTE IMMEDIATE v_sql_stmt USING
9588 v_inst_rp_src_id
9589 ,v_ascp_inst,v_icode
9590 ,v_ascp_inst,v_icode
9591 ;
9592
9593 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
9594 COMMIT;
9595
9596 EXCEPTION
9597 WHEN OTHERS THEN
9598 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
9599 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
9600 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_SUPPLIER_FLEX_FENCES');
9601 v_retcode := 2;
9602 RAISE;
9603 ELSE
9604 IF v_retcode < 2 THEN
9605 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
9606 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_SUPPLIER_FLEX_FENCES');
9607 v_retcode := 1;
9608 END IF;
9609 RETURN;
9610 END IF;
9611
9612 END COPY_SUPPLIER_FLEX_FENCES;
9613 PROCEDURE COPY_SUPPLIES IS
9614
9615 BEGIN
9616
9617 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_SUPPLIES');
9618 v_sql_stmt:=
9619 'INSERT INTO MSC_ST_SUPPLIES ('
9620 || 'PLAN_ID,'
9621 || 'TRANSACTION_ID,'
9622 || 'INVENTORY_ITEM_ID,'
9623 || 'ORGANIZATION_ID,'
9624 || 'SCHEDULE_DESIGNATOR_ID,'
9625 || 'SOURCE_SCHEDULE_NAME,'
9626 || 'REVISION,'
9627 || 'UNIT_NUMBER,'
9628 || 'NEW_SCHEDULE_DATE,'
9629 || 'OLD_SCHEDULE_DATE,'
9630 || 'NEW_WIP_START_DATE,'
9631 || 'OLD_WIP_START_DATE,'
9632 || 'FIRST_UNIT_COMPLETION_DATE,'
9633 || 'LAST_UNIT_COMPLETION_DATE,'
9634 || 'FIRST_UNIT_START_DATE,'
9635 || 'LAST_UNIT_START_DATE,'
9636 || 'DISPOSITION_ID,'
9637 || 'DISPOSITION_STATUS_TYPE,'
9638 || 'ORDER_TYPE,'
9639 || 'SUPPLIER_ID,'
9640 || 'NEW_ORDER_QUANTITY,'
9641 || 'OLD_ORDER_QUANTITY,'
9642 || 'NEW_ORDER_PLACEMENT_DATE,'
9643 || 'OLD_ORDER_PLACEMENT_DATE,'
9644 || 'RESCHEDULE_DAYS,'
9645 || 'RESCHEDULE_FLAG,'
9646 || 'SCHEDULE_COMPRESS_DAYS,'
9647 || 'NEW_PROCESSING_DAYS,'
9648 || 'PURCH_LINE_NUM,'
9649 || 'QUANTITY_IN_PROCESS,'
9650 || 'IMPLEMENTED_QUANTITY,'
9651 || 'FIRM_PLANNED_TYPE,'
9652 || 'FIRM_QUANTITY,'
9653 || 'FIRM_DATE,'
9654 || 'IMPLEMENT_DEMAND_CLASS,'
9655 || 'IMPLEMENT_DATE,'
9656 || 'IMPLEMENT_QUANTITY,'
9657 || 'IMPLEMENT_FIRM,'
9658 || 'IMPLEMENT_WIP_CLASS_CODE,'
9659 || 'IMPLEMENT_JOB_NAME,'
9660 || 'IMPLEMENT_DOCK_DATE,'
9661 || 'IMPLEMENT_STATUS_CODE,'
9662 || 'IMPLEMENT_UOM_CODE,'
9663 || 'IMPLEMENT_LOCATION_ID,'
9664 || 'IMPLEMENT_SOURCE_ORG_ID,'
9665 || 'IMPLEMENT_SUPPLIER_ID,'
9666 || 'IMPLEMENT_SUPPLIER_SITE_ID,'
9667 || 'IMPLEMENT_AS,'
9668 || 'RELEASE_STATUS,'
9669 || 'LOAD_TYPE,'
9670 || 'PROCESS_SEQ_ID,'
9671 || 'SCO_SUPPLY_FLAG,'
9672 || 'ALTERNATE_BOM_DESIGNATOR,'
9673 || 'ALTERNATE_ROUTING_DESIGNATOR,'
9674 || 'OPERATION_SEQ_NUM,'
9675 || 'SOURCE,'
9676 || 'BY_PRODUCT_USING_ASSY_ID,'
9677 || 'SOURCE_ORGANIZATION_ID,'
9678 || 'SOURCE_SR_INSTANCE_ID,'
9679 || 'SOURCE_SUPPLIER_SITE_ID,'
9680 || 'SOURCE_SUPPLIER_ID,'
9681 || 'SHIP_METHOD,'
9682 || 'WEIGHT_CAPACITY_USED,'
9683 || 'VOLUME_CAPACITY_USED,'
9684 || 'SOURCE_SUPPLY_SCHEDULE_NAME,'
9685 || 'NEW_SHIP_DATE,'
9686 || 'NEW_DOCK_DATE,'
9687 || 'LINE_ID,'
9688 || 'PROJECT_ID,'
9689 || 'TASK_ID,'
9690 || 'PLANNING_GROUP,'
9691 || 'IMPLEMENT_PROJECT_ID,'
9692 || 'IMPLEMENT_TASK_ID,'
9693 || 'IMPLEMENT_SCHEDULE_GROUP_ID,'
9694 || 'IMPLEMENT_BUILD_SEQUENCE,'
9695 || 'IMPLEMENT_ALTERNATE_BOM,'
9696 || 'IMPLEMENT_ALTERNATE_ROUTING,'
9697 || 'IMPLEMENT_UNIT_NUMBER,'
9698 || 'IMPLEMENT_LINE_ID,'
9699 || 'RELEASE_ERRORS,'
9700 || 'NUMBER1,'
9701 || 'SOURCE_ITEM_ID,'
9702 || 'ORDER_NUMBER,'
9703 || 'SCHEDULE_GROUP_ID,'
9704 || 'SCHEDULE_GROUP_NAME,'
9705 || 'BUILD_SEQUENCE,'
9706 || 'WIP_ENTITY_ID,'
9707 || 'WIP_ENTITY_NAME,'
9708 || 'WO_LATENESS_COST,'
9709 || 'IMPLEMENT_PROCESSING_DAYS,'
9710 || 'DELIVERY_PRICE,'
9711 || 'LATE_SUPPLY_DATE,'
9712 || 'LATE_SUPPLY_QTY,'
9713 || 'SUBINVENTORY_CODE,'
9714 || 'DELETED_FLAG,'
9715 || 'LAST_UPDATE_DATE,'
9716 || 'LAST_UPDATED_BY,'
9717 || 'CREATION_DATE,'
9718 || 'CREATED_BY,'
9719 || 'LAST_UPDATE_LOGIN,'
9720 || 'REQUEST_ID,'
9721 || 'PROGRAM_APPLICATION_ID,'
9722 || 'PROGRAM_ID,'
9723 || 'PROGRAM_UPDATE_DATE,'
9724 || 'SR_INSTANCE_ID,'
9725 || 'SCHEDULE_DESIGNATOR,'
9726 || 'VENDOR_ID,'
9727 || 'VENDOR_SITE_ID,'
9728 || 'SUPPLIER_SITE_ID,'
9729 || 'PURCH_ORDER_ID,'
9730 || 'EXPECTED_SCRAP_QTY,'
9731 || 'QTY_SCRAPPED,'
9732 || 'QTY_COMPLETED,'
9733 || 'LOT_NUMBER,'
9734 || 'EXPIRATION_DATE,'
9735 || 'WIP_STATUS_CODE,'
9736 || 'DAILY_RATE,'
9737 || 'LOCATOR_ID,'
9738 || 'SERIAL_NUMBER,'
9739 || 'REFRESH_ID,'
9740 || 'LOCATOR_NAME,'
9741 || 'ONHAND_SOURCE_TYPE,'
9742 || 'SR_MTL_SUPPLY_ID,'
9743 || 'DEMAND_CLASS,'
9744 || 'FROM_ORGANIZATION_ID,'
9745 || 'WIP_SUPPLY_TYPE,'
9746 || 'PO_LINE_ID,'
9747 || 'BILL_SEQUENCE_ID,'
9748 || 'ROUTING_SEQUENCE_ID,'
9749 || 'COPRODUCTS_SUPPLY,'
9750 || 'CFM_ROUTING_FLAG,'
9751 || 'COMPANY_ID,'
9752 || 'COMPANY_NAME,'
9753 || 'ITEM_NAME,'
9754 || 'ORGANIZATION_CODE,'
9755 || 'FROM_ORGANIZATION_CODE,'
9756 || 'SUPPLIER_NAME,'
9757 || 'SOURCE_SR_INSTANCE_CODE,'
9758 || 'SOURCE_SUPPLIER_SITE_CODE,'
9759 || 'SOURCE_SUPPLIER_NAME,'
9760 || 'PROJECT_NUMBER,'
9761 || 'TASK_NUMBER,'
9762 || 'SR_INSTANCE_CODE,'
9763 || 'VENDOR_NAME,'
9764 || 'VENDOR_SITE_CODE,'
9765 || 'SUPPLIER_SITE_CODE,'
9766 || 'MESSAGE_ID,'
9767 || 'PROCESS_FLAG,'
9768 || 'DATA_SOURCE_TYPE,'
9769 || 'ST_TRANSACTION_ID,'
9770 || 'SCHEDULE_LINE_NUM,'
9771 || 'ERROR_TEXT,'
9772 || 'OPERATION_SEQ_CODE,'
9773 || 'BATCH_ID,'
9774 || 'BILL_NAME,'
9775 || 'ROUTING_NAME,'
9776 || 'CURR_OP_SEQ_ID,'
9777 || 'LINE_CODE,'
9778 || 'EFFECTIVITY_DATE,'
9779 || 'SHIP_FROM_PARTY_NAME,'
9780 || 'SHIP_FROM_SITE_CODE,'
9781 || 'END_ORDER_NUMBER,'
9782 || 'END_ORDER_RELEASE_NUMBER,'
9783 || 'END_ORDER_LINE_NUMBER,'
9784 || 'ORDER_RELEASE_NUMBER,'
9785 || 'COMMENTS,'
9786 || 'SHIP_TO_PARTY_NAME,'
9787 || 'SHIP_TO_SITE_CODE,'
9788 || 'PLANNING_PARTNER_SITE_ID,'
9789 || 'PLANNING_TP_TYPE,'
9790 || 'OWNING_PARTNER_SITE_ID,'
9791 || 'OWNING_TP_TYPE,'
9792 || 'VMI_FLAG,'
9793 || 'NON_NETTABLE_QTY,'
9794 || 'ORIGINAL_NEED_BY_DATE,'
9795 || 'ORIGINAL_QUANTITY,'
9796 || 'PROMISED_DATE,'
9797 || 'NEED_BY_DATE,'
9798 || 'ACCEPTANCE_REQUIRED_FLAG,'
9799 || 'END_ORDER_SHIPMENT_NUMBER,'
9800 || 'POSTPROCESSING_LEAD_TIME,'
9801 || 'WIP_START_QUANTITY,'
9802 || 'ORDER_LINE_NUMBER,'
9803 || 'UOM_CODE,'
9804 || 'QUANTITY_PER_ASSEMBLY,'
9805 || 'QUANTITY_ISSUED,'
9806 || 'ACK_REFERENCE_NUMBER,'
9807 || 'JOB_OP_SEQ_NUM,'
9808 || 'JUMP_OP_SEQ_NUM,'
9809 || 'JOB_OP_SEQ_CODE,'
9810 || 'JUMP_OP_SEQ_CODE,'
9811 || 'JUMP_OP_EFFECTIVITY_DATE,'
9812 || 'SOURCE_ORG_ID,'
9813 || 'SOURCE_INVENTORY_ITEM_ID,'
9814 || 'SOURCE_VENDOR_ID,'
9815 || 'SOURCE_VENDOR_SITE_ID,'
9816 || 'SOURCE_TASK_ID,'
9817 || 'SOURCE_PROJECT_ID,'
9818 || 'SOURCE_FROM_ORGANIZATION_ID,'
9819 || 'SOURCE_SR_MTL_SUPPLY_ID,'
9820 || 'SOURCE_DISPOSITION_ID,'
9821 || 'SOURCE_BILL_SEQUENCE_ID,'
9822 || 'SOURCE_ROUTING_SEQUENCE_ID,'
9823 || 'SOURCE_SCHEDULE_GROUP_ID,'
9824 || 'SOURCE_WIP_ENTITY_ID,'
9825 || 'PO_LINE_LOCATION_ID,'
9826 || 'PO_DISTRIBUTION_ID,'
9827 || 'REQUESTED_START_DATE,'
9828 || 'REQUESTED_COMPLETION_DATE,'
9829 || 'SCHEDULE_PRIORITY,'
9830 || 'SCHEDULE_ORIGINATION_TYPE '
9831 || ')'
9832 ||'SELECT '
9833 || 'PLAN_ID,'
9834 || 'TRANSACTION_ID,'
9835 || 'INVENTORY_ITEM_ID,'
9836 || 'ORGANIZATION_ID,'
9837 || 'SCHEDULE_DESIGNATOR_ID,'
9838 || 'SOURCE_SCHEDULE_NAME,'
9839 || 'REVISION,'
9840 || 'UNIT_NUMBER,'
9841 || 'NEW_SCHEDULE_DATE,'
9842 || 'OLD_SCHEDULE_DATE,'
9843 || 'NEW_WIP_START_DATE,'
9844 || 'OLD_WIP_START_DATE,'
9845 || 'FIRST_UNIT_COMPLETION_DATE,'
9846 || 'LAST_UNIT_COMPLETION_DATE,'
9847 || 'FIRST_UNIT_START_DATE,'
9848 || 'LAST_UNIT_START_DATE,'
9849 || 'DISPOSITION_ID,'
9850 || 'DISPOSITION_STATUS_TYPE,'
9851 || 'ORDER_TYPE,'
9852 || 'SUPPLIER_ID,'
9853 || 'NEW_ORDER_QUANTITY,'
9854 || 'OLD_ORDER_QUANTITY,'
9855 || 'NEW_ORDER_PLACEMENT_DATE,'
9856 || 'OLD_ORDER_PLACEMENT_DATE,'
9857 || 'RESCHEDULE_DAYS,'
9858 || 'RESCHEDULE_FLAG,'
9859 || 'SCHEDULE_COMPRESS_DAYS,'
9860 || 'NEW_PROCESSING_DAYS,'
9861 || 'PURCH_LINE_NUM,'
9862 || 'QUANTITY_IN_PROCESS,'
9863 || 'IMPLEMENTED_QUANTITY,'
9864 || 'FIRM_PLANNED_TYPE,'
9865 || 'FIRM_QUANTITY,'
9866 || 'FIRM_DATE,'
9867 || 'IMPLEMENT_DEMAND_CLASS,'
9868 || 'IMPLEMENT_DATE,'
9869 || 'IMPLEMENT_QUANTITY,'
9870 || 'IMPLEMENT_FIRM,'
9871 || 'IMPLEMENT_WIP_CLASS_CODE,'
9872 || 'IMPLEMENT_JOB_NAME,'
9873 || 'IMPLEMENT_DOCK_DATE,'
9874 || 'IMPLEMENT_STATUS_CODE,'
9875 || 'IMPLEMENT_UOM_CODE,'
9876 || 'IMPLEMENT_LOCATION_ID,'
9877 || 'IMPLEMENT_SOURCE_ORG_ID,'
9878 || 'IMPLEMENT_SUPPLIER_ID,'
9879 || 'IMPLEMENT_SUPPLIER_SITE_ID,'
9880 || 'IMPLEMENT_AS,'
9881 || 'RELEASE_STATUS,'
9882 || 'LOAD_TYPE,'
9883 || 'PROCESS_SEQ_ID,'
9884 || 'SCO_SUPPLY_FLAG,'
9885 || 'ALTERNATE_BOM_DESIGNATOR,'
9886 || 'ALTERNATE_ROUTING_DESIGNATOR,'
9887 || 'OPERATION_SEQ_NUM,'
9888 || 'SOURCE,'
9889 || 'BY_PRODUCT_USING_ASSY_ID,'
9890 || 'SOURCE_ORGANIZATION_ID,'
9891 || 'SOURCE_SR_INSTANCE_ID,'
9892 || 'SOURCE_SUPPLIER_SITE_ID,'
9893 || 'SOURCE_SUPPLIER_ID,'
9894 || 'SHIP_METHOD,'
9895 || 'WEIGHT_CAPACITY_USED,'
9896 || 'VOLUME_CAPACITY_USED,'
9897 || 'SOURCE_SUPPLY_SCHEDULE_NAME,'
9898 || 'NEW_SHIP_DATE,'
9899 || 'NEW_DOCK_DATE,'
9900 || 'LINE_ID,'
9901 || 'PROJECT_ID,'
9902 || 'TASK_ID,'
9903 || 'PLANNING_GROUP,'
9904 || 'IMPLEMENT_PROJECT_ID,'
9905 || 'IMPLEMENT_TASK_ID,'
9906 || 'IMPLEMENT_SCHEDULE_GROUP_ID,'
9907 || 'IMPLEMENT_BUILD_SEQUENCE,'
9908 || 'IMPLEMENT_ALTERNATE_BOM,'
9909 || 'IMPLEMENT_ALTERNATE_ROUTING,'
9910 || 'IMPLEMENT_UNIT_NUMBER,'
9911 || 'IMPLEMENT_LINE_ID,'
9912 || 'RELEASE_ERRORS,'
9913 || 'NUMBER1,'
9914 || 'SOURCE_ITEM_ID,'
9915 || 'ORDER_NUMBER,'
9916 || 'SCHEDULE_GROUP_ID,'
9917 || 'SCHEDULE_GROUP_NAME,'
9918 || 'BUILD_SEQUENCE,'
9919 || 'WIP_ENTITY_ID,'
9920 || 'WIP_ENTITY_NAME,'
9921 || 'WO_LATENESS_COST,'
9922 || 'IMPLEMENT_PROCESSING_DAYS,'
9923 || 'DELIVERY_PRICE,'
9924 || 'LATE_SUPPLY_DATE,'
9925 || 'LATE_SUPPLY_QTY,'
9926 || 'SUBINVENTORY_CODE,'
9927 || 'DELETED_FLAG,'
9928 || 'LAST_UPDATE_DATE,'
9929 || 'LAST_UPDATED_BY,'
9930 || 'CREATION_DATE,'
9931 || 'CREATED_BY,'
9932 || 'LAST_UPDATE_LOGIN,'
9933 || 'REQUEST_ID,'
9934 || 'PROGRAM_APPLICATION_ID,'
9935 || 'PROGRAM_ID,'
9936 || 'PROGRAM_UPDATE_DATE,'
9937 || ':v_inst_rp_src_id,'
9938 || 'SCHEDULE_DESIGNATOR,'
9939 || 'VENDOR_ID,'
9940 || 'VENDOR_SITE_ID,'
9941 || 'SUPPLIER_SITE_ID,'
9942 || 'PURCH_ORDER_ID,'
9943 || 'EXPECTED_SCRAP_QTY,'
9944 || 'QTY_SCRAPPED,'
9945 || 'QTY_COMPLETED,'
9946 || 'LOT_NUMBER,'
9947 || 'EXPIRATION_DATE,'
9948 || 'WIP_STATUS_CODE,'
9949 || 'DAILY_RATE,'
9950 || 'LOCATOR_ID,'
9951 || 'SERIAL_NUMBER,'
9952 || 'REFRESH_ID,'
9953 || 'LOCATOR_NAME,'
9954 || 'ONHAND_SOURCE_TYPE,'
9955 || 'SR_MTL_SUPPLY_ID,'
9956 || 'DEMAND_CLASS,'
9957 || 'FROM_ORGANIZATION_ID,'
9958 || 'WIP_SUPPLY_TYPE,'
9959 || 'PO_LINE_ID,'
9960 || 'BILL_SEQUENCE_ID,'
9961 || 'ROUTING_SEQUENCE_ID,'
9962 || 'COPRODUCTS_SUPPLY,'
9963 || 'CFM_ROUTING_FLAG,'
9964 || 'COMPANY_ID,'
9965 || 'COMPANY_NAME,'
9966 || 'ITEM_NAME,'
9967 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
9968 || 'FROM_ORGANIZATION_CODE,'
9969 || 'SUPPLIER_NAME,'
9970 || 'REPLACE(SOURCE_SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
9971 || 'SOURCE_SUPPLIER_SITE_CODE,'
9972 || 'SOURCE_SUPPLIER_NAME,'
9973 || 'PROJECT_NUMBER,'
9974 || 'TASK_NUMBER,'
9975 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
9976 || 'VENDOR_NAME,'
9977 || 'VENDOR_SITE_CODE,'
9978 || 'SUPPLIER_SITE_CODE,'
9979 || 'MESSAGE_ID,'
9980 || 'PROCESS_FLAG,'
9981 || 'DATA_SOURCE_TYPE,'
9982 || 'ST_TRANSACTION_ID,'
9983 || 'SCHEDULE_LINE_NUM,'
9984 || 'ERROR_TEXT,'
9985 || 'OPERATION_SEQ_CODE,'
9986 || 'BATCH_ID,'
9987 || 'BILL_NAME,'
9988 || 'ROUTING_NAME,'
9989 || 'CURR_OP_SEQ_ID,'
9990 || 'LINE_CODE,'
9991 || 'EFFECTIVITY_DATE,'
9992 || 'SHIP_FROM_PARTY_NAME,'
9993 || 'SHIP_FROM_SITE_CODE,'
9994 || 'END_ORDER_NUMBER,'
9995 || 'END_ORDER_RELEASE_NUMBER,'
9996 || 'END_ORDER_LINE_NUMBER,'
9997 || 'ORDER_RELEASE_NUMBER,'
9998 || 'COMMENTS,'
9999 || 'SHIP_TO_PARTY_NAME,'
10000 || 'SHIP_TO_SITE_CODE,'
10001 || 'PLANNING_PARTNER_SITE_ID,'
10002 || 'PLANNING_TP_TYPE,'
10003 || 'OWNING_PARTNER_SITE_ID,'
10004 || 'OWNING_TP_TYPE,'
10005 || 'VMI_FLAG,'
10006 || 'NON_NETTABLE_QTY,'
10007 || 'ORIGINAL_NEED_BY_DATE,'
10008 || 'ORIGINAL_QUANTITY,'
10009 || 'PROMISED_DATE,'
10010 || 'NEED_BY_DATE,'
10011 || 'ACCEPTANCE_REQUIRED_FLAG,'
10012 || 'END_ORDER_SHIPMENT_NUMBER,'
10013 || 'POSTPROCESSING_LEAD_TIME,'
10014 || 'WIP_START_QUANTITY,'
10015 || 'ORDER_LINE_NUMBER,'
10016 || 'UOM_CODE,'
10017 || 'QUANTITY_PER_ASSEMBLY,'
10018 || 'QUANTITY_ISSUED,'
10019 || 'ACK_REFERENCE_NUMBER,'
10020 || 'JOB_OP_SEQ_NUM,'
10021 || 'JUMP_OP_SEQ_NUM,'
10022 || 'JOB_OP_SEQ_CODE,'
10023 || 'JUMP_OP_SEQ_CODE,'
10024 || 'JUMP_OP_EFFECTIVITY_DATE,'
10025 || 'SOURCE_ORG_ID,'
10026 || 'SOURCE_INVENTORY_ITEM_ID,'
10027 || 'SOURCE_VENDOR_ID,'
10028 || 'SOURCE_VENDOR_SITE_ID,'
10029 || 'SOURCE_TASK_ID,'
10030 || 'SOURCE_PROJECT_ID,'
10031 || 'SOURCE_FROM_ORGANIZATION_ID,'
10032 || 'SOURCE_SR_MTL_SUPPLY_ID,'
10033 || 'SOURCE_DISPOSITION_ID,'
10034 || 'SOURCE_BILL_SEQUENCE_ID,'
10035 || 'SOURCE_ROUTING_SEQUENCE_ID,'
10036 || 'SOURCE_SCHEDULE_GROUP_ID,'
10037 || 'SOURCE_WIP_ENTITY_ID,'
10038 || 'PO_LINE_LOCATION_ID,'
10039 || 'PO_DISTRIBUTION_ID,'
10040 || 'REQUESTED_START_DATE,'
10041 || 'REQUESTED_COMPLETION_DATE,'
10042 || 'SCHEDULE_PRIORITY,'
10043 || 'SCHEDULE_ORIGINATION_TYPE '
10044 ||'FROM MSC_ST_SUPPLIES'|| v_dblink
10045 ||' WHERE '
10046 ||' sr_instance_id = ' || to_char(v_src_instance_id);
10047
10048
10049 EXECUTE IMMEDIATE v_sql_stmt USING
10050 v_inst_rp_src_id
10051 ,v_ascp_inst,v_icode
10052 ,v_ascp_inst,v_icode
10053 ,v_ascp_inst,v_icode
10054 ;
10055
10056 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
10057 COMMIT;
10058
10059 EXCEPTION
10060 WHEN OTHERS THEN
10061 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
10062 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
10063 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_SUPPLIES');
10064 v_retcode := 2;
10065 RAISE;
10066 ELSE
10067 IF v_retcode < 2 THEN
10068 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
10069 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_SUPPLIES');
10070 v_retcode := 1;
10071 END IF;
10072 RETURN;
10073 END IF;
10074
10075 END COPY_SUPPLIES;
10076 PROCEDURE COPY_SYSTEM_ITEMS IS
10077
10078 BEGIN
10079
10080 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_SYSTEM_ITEMS');
10081 v_sql_stmt:=
10082 'INSERT INTO MSC_ST_SYSTEM_ITEMS ('
10083 || 'ORGANIZATION_ID,'
10084 || 'SR_ORGANIZATION_ID,'
10085 || 'INVENTORY_ITEM_ID,'
10086 || 'SR_INVENTORY_ITEM_ID,'
10087 || 'ITEM_NAME,'
10088 || 'LOTS_EXPIRATION,'
10089 || 'LOT_CONTROL_CODE,'
10090 || 'SHRINKAGE_RATE,'
10091 || 'FIXED_DAYS_SUPPLY,'
10092 || 'FIXED_ORDER_QUANTITY,'
10093 || 'FIXED_LOT_MULTIPLIER,'
10094 || 'MINIMUM_ORDER_QUANTITY,'
10095 || 'MAXIMUM_ORDER_QUANTITY,'
10096 || 'ROUNDING_CONTROL_TYPE,'
10097 || 'PLANNING_TIME_FENCE_DAYS,'
10098 || 'DEMAND_TIME_FENCE_DAYS,'
10099 || 'RELEASE_TIME_FENCE_CODE,'
10100 || 'RELEASE_TIME_FENCE_DAYS,'
10101 || 'DESCRIPTION,'
10102 || 'IN_SOURCE_PLAN,'
10103 || 'REVISION,'
10104 || 'SR_CATEGORY_ID,'
10105 || 'CATEGORY_NAME,'
10106 || 'ABC_CLASS_ID,'
10107 || 'ABC_CLASS_NAME,'
10108 || 'MRP_PLANNING_CODE,'
10109 || 'FIXED_LEAD_TIME,'
10110 || 'VARIABLE_LEAD_TIME,'
10111 || 'PREPROCESSING_LEAD_TIME,'
10112 || 'POSTPROCESSING_LEAD_TIME,'
10113 || 'FULL_LEAD_TIME,'
10114 || 'CUMULATIVE_TOTAL_LEAD_TIME,'
10115 || 'CUM_MANUFACTURING_LEAD_TIME,'
10116 || 'UOM_CODE,'
10117 || 'UNIT_WEIGHT,'
10118 || 'UNIT_VOLUME,'
10119 || 'WEIGHT_UOM,'
10120 || 'VOLUME_UOM,'
10121 || 'PRODUCT_FAMILY_ID,'
10122 || 'ATP_RULE_ID,'
10123 || 'MRP_CALCULATE_ATP_FLAG,'
10124 || 'ATP_COMPONENTS_FLAG,'
10125 || 'BUILT_IN_WIP_FLAG,'
10126 || 'PURCHASING_ENABLED_FLAG,'
10127 || 'PLANNING_MAKE_BUY_CODE,'
10128 || 'REPETITIVE_TYPE,'
10129 || 'STANDARD_COST,'
10130 || 'CARRYING_COST,'
10131 || 'ORDER_COST,'
10132 || 'DMD_LATENESS_COST,'
10133 || 'SS_PENALTY_COST,'
10134 || 'SUPPLIER_CAP_OVERUTIL_COST,'
10135 || 'LIST_PRICE,'
10136 || 'AVERAGE_DISCOUNT,'
10137 || 'END_ASSEMBLY_PEGGING_FLAG,'
10138 || 'END_ASSEMBLY_PEGGING,'
10139 || 'FULL_PEGGING,'
10140 || 'ENGINEERING_ITEM_FLAG,'
10141 || 'WIP_SUPPLY_TYPE,'
10142 || 'MRP_SAFETY_STOCK_CODE,'
10143 || 'MRP_SAFETY_STOCK_PERCENT,'
10144 || 'SAFETY_STOCK_BUCKET_DAYS,'
10145 || 'INVENTORY_USE_UP_DATE,'
10146 || 'BUYER_NAME,'
10147 || 'PLANNER_CODE,'
10148 || 'PLANNING_EXCEPTION_SET,'
10149 || 'EXCESS_QUANTITY,'
10150 || 'EXCEPTION_SHORTAGE_DAYS,'
10151 || 'EXCEPTION_EXCESS_DAYS,'
10152 || 'EXCEPTION_OVERPROMISED_DAYS,'
10153 || 'REPETITIVE_VARIANCE_DAYS,'
10154 || 'BASE_ITEM_ID,'
10155 || 'BOM_ITEM_TYPE,'
10156 || 'ATO_FORECAST_CONTROL,'
10157 || 'ORGANIZATION_CODE,'
10158 || 'EFFECTIVITY_CONTROL,'
10159 || 'ACCEPTABLE_EARLY_DELIVERY,'
10160 || 'INVENTORY_PLANNING_CODE,'
10161 || 'INVENTORY_TYPE,'
10162 || 'ACCEPTABLE_RATE_INCREASE,'
10163 || 'ACCEPTABLE_RATE_DECREASE,'
10164 || 'PRIMARY_SUPPLIER_ID,'
10165 || 'DELETED_FLAG,'
10166 || 'LAST_UPDATE_DATE,'
10167 || 'LAST_UPDATED_BY,'
10168 || 'CREATION_DATE,'
10169 || 'CREATED_BY,'
10170 || 'LAST_UPDATE_LOGIN,'
10171 || 'REQUEST_ID,'
10172 || 'PROGRAM_APPLICATION_ID,'
10173 || 'PROGRAM_ID,'
10174 || 'PROGRAM_UPDATE_DATE,'
10175 || 'SR_INSTANCE_ID,'
10176 || 'REFRESH_ID,'
10177 || 'ATP_FLAG,'
10178 || 'INVENTORY_ITEM_FLAG,'
10179 || 'REVISION_QTY_CONTROL_CODE,'
10180 || 'EXPENSE_ACCOUNT,'
10181 || 'INVENTORY_ASSET_FLAG,'
10182 || 'BUYER_ID,'
10183 || 'MATERIAL_COST,'
10184 || 'RESOURCE_COST,'
10185 || 'SOURCE_ORG_ID,'
10186 || 'PICK_COMPONENTS_FLAG,'
10187 || 'ALLOWED_UNITS_LOOKUP_CODE,'
10188 || 'SERVICE_LEVEL,'
10189 || 'REPLENISH_TO_ORDER_FLAG,'
10190 || 'PIP_FLAG,'
10191 || 'COMPANY_ID,'
10192 || 'COMPANY_NAME,'
10193 || 'SR_INSTANCE_CODE,'
10194 || 'ATP_RULE_CODE,'
10195 || 'BASE_ITEM_NAME,'
10196 || 'PRIMARY_SUPPLIER_NAME,'
10197 || 'SOURCE_ORG_CODE,'
10198 || 'MESSAGE_ID,'
10199 || 'PROCESS_FLAG,'
10200 || 'ERROR_TEXT,'
10201 || 'DATA_SOURCE_TYPE,'
10202 || 'ST_TRANSACTION_ID,'
10203 || 'BATCH_ID,'
10204 || 'MIN_MINMAX_QUANTITY,'
10205 || 'MAX_MINMAX_QUANTITY,'
10206 || 'YIELD_CONV_FACTOR,'
10207 || 'SOURCE_TYPE,'
10208 || 'SUBSTITUTION_WINDOW,'
10209 || 'CREATE_SUPPLY_FLAG,'
10210 || 'SERIAL_NUMBER_CONTROL_CODE,'
10211 || 'CRITICAL_COMPONENT_FLAG,'
10212 || 'REDUCE_MPS,'
10213 || 'SOURCE_SR_INVENTORY_ITEM_ID,'
10214 || 'SOURCE_SOURCE_ORG_ID,'
10215 || 'SOURCE_PRIMARY_SUPPLIER_ID,'
10216 || 'SOURCE_BASE_ITEM_ID,'
10217 || 'SOURCE_ABC_CLASS_ID,'
10218 || 'VMI_MINIMUM_UNITS,'
10219 || 'VMI_MINIMUM_DAYS,'
10220 || 'VMI_MAXIMUM_UNITS,'
10221 || 'VMI_MAXIMUM_DAYS,'
10222 || 'VMI_FIXED_ORDER_QUANTITY,'
10223 || 'SO_AUTHORIZATION_FLAG,'
10224 || 'CONSIGNED_FLAG,'
10225 || 'ASN_AUTOEXPIRE_FLAG,'
10226 || 'VMI_FORECAST_TYPE,'
10227 || 'FORECAST_HORIZON,'
10228 || 'BUDGET_CONSTRAINED,'
10229 || 'DAYS_TGT_INV_SUPPLY,'
10230 || 'DAYS_TGT_INV_WINDOW,'
10231 || 'DAYS_MAX_INV_SUPPLY,'
10232 || 'DAYS_MAX_INV_WINDOW,'
10233 || 'DRP_PLANNED,'
10234 || 'CONTINOUS_TRANSFER,'
10235 || 'CONVERGENCE,'
10236 || 'DIVERGENCE,'
10237 || 'PRODUCT_FAMILY_ITEM_NAME,'
10238 || 'ITEM_CREATION_DATE,'
10239 || 'SHORTAGE_TYPE,'
10240 || 'EXCESS_TYPE,'
10241 || 'PLANNING_TIME_FENCE_CODE,'
10242 || 'PEGGING_DEMAND_WINDOW_DAYS,'
10243 || 'PEGGING_SUPPLY_WINDOW_DAYS '
10244 || ')'
10245 ||'SELECT '
10246 || 'ORGANIZATION_ID,'
10247 || 'SR_ORGANIZATION_ID,'
10248 || 'INVENTORY_ITEM_ID,'
10249 || 'SR_INVENTORY_ITEM_ID,'
10250 || 'ITEM_NAME,'
10251 || 'LOTS_EXPIRATION,'
10252 || 'LOT_CONTROL_CODE,'
10253 || 'SHRINKAGE_RATE,'
10254 || 'FIXED_DAYS_SUPPLY,'
10255 || 'FIXED_ORDER_QUANTITY,'
10256 || 'FIXED_LOT_MULTIPLIER,'
10257 || 'MINIMUM_ORDER_QUANTITY,'
10258 || 'MAXIMUM_ORDER_QUANTITY,'
10259 || 'ROUNDING_CONTROL_TYPE,'
10260 || 'PLANNING_TIME_FENCE_DAYS,'
10261 || 'DEMAND_TIME_FENCE_DAYS,'
10262 || 'RELEASE_TIME_FENCE_CODE,'
10263 || 'RELEASE_TIME_FENCE_DAYS,'
10264 || 'DESCRIPTION,'
10265 || 'IN_SOURCE_PLAN,'
10266 || 'REVISION,'
10267 || 'SR_CATEGORY_ID,'
10268 || 'CATEGORY_NAME,'
10269 || 'ABC_CLASS_ID,'
10270 || 'ABC_CLASS_NAME,'
10271 || 'MRP_PLANNING_CODE,'
10272 || 'FIXED_LEAD_TIME,'
10273 || 'VARIABLE_LEAD_TIME,'
10274 || 'PREPROCESSING_LEAD_TIME,'
10275 || 'POSTPROCESSING_LEAD_TIME,'
10276 || 'FULL_LEAD_TIME,'
10277 || 'CUMULATIVE_TOTAL_LEAD_TIME,'
10278 || 'CUM_MANUFACTURING_LEAD_TIME,'
10279 || 'UOM_CODE,'
10280 || 'UNIT_WEIGHT,'
10281 || 'UNIT_VOLUME,'
10282 || 'WEIGHT_UOM,'
10283 || 'VOLUME_UOM,'
10284 || 'PRODUCT_FAMILY_ID,'
10285 || 'ATP_RULE_ID,'
10286 || 'MRP_CALCULATE_ATP_FLAG,'
10287 || 'ATP_COMPONENTS_FLAG,'
10288 || 'BUILT_IN_WIP_FLAG,'
10289 || 'PURCHASING_ENABLED_FLAG,'
10290 || 'PLANNING_MAKE_BUY_CODE,'
10291 || 'REPETITIVE_TYPE,'
10292 || 'STANDARD_COST,'
10293 || 'CARRYING_COST,'
10294 || 'ORDER_COST,'
10295 || 'DMD_LATENESS_COST,'
10296 || 'SS_PENALTY_COST,'
10297 || 'SUPPLIER_CAP_OVERUTIL_COST,'
10298 || 'LIST_PRICE,'
10299 || 'AVERAGE_DISCOUNT,'
10300 || 'END_ASSEMBLY_PEGGING_FLAG,'
10301 || 'END_ASSEMBLY_PEGGING,'
10302 || 'FULL_PEGGING,'
10303 || 'ENGINEERING_ITEM_FLAG,'
10304 || 'WIP_SUPPLY_TYPE,'
10305 || 'MRP_SAFETY_STOCK_CODE,'
10306 || 'MRP_SAFETY_STOCK_PERCENT,'
10307 || 'SAFETY_STOCK_BUCKET_DAYS,'
10308 || 'INVENTORY_USE_UP_DATE,'
10309 || 'BUYER_NAME,'
10310 || 'PLANNER_CODE,'
10311 || 'PLANNING_EXCEPTION_SET,'
10312 || 'EXCESS_QUANTITY,'
10313 || 'EXCEPTION_SHORTAGE_DAYS,'
10314 || 'EXCEPTION_EXCESS_DAYS,'
10315 || 'EXCEPTION_OVERPROMISED_DAYS,'
10316 || 'REPETITIVE_VARIANCE_DAYS,'
10317 || 'BASE_ITEM_ID,'
10318 || 'BOM_ITEM_TYPE,'
10319 || 'ATO_FORECAST_CONTROL,'
10320 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
10321 || 'EFFECTIVITY_CONTROL,'
10322 || 'ACCEPTABLE_EARLY_DELIVERY,'
10323 || 'INVENTORY_PLANNING_CODE,'
10324 || 'INVENTORY_TYPE,'
10325 || 'ACCEPTABLE_RATE_INCREASE,'
10326 || 'ACCEPTABLE_RATE_DECREASE,'
10327 || 'PRIMARY_SUPPLIER_ID,'
10328 || 'DELETED_FLAG,'
10329 || 'LAST_UPDATE_DATE,'
10330 || 'LAST_UPDATED_BY,'
10331 || 'CREATION_DATE,'
10332 || 'CREATED_BY,'
10333 || 'LAST_UPDATE_LOGIN,'
10334 || 'REQUEST_ID,'
10335 || 'PROGRAM_APPLICATION_ID,'
10336 || 'PROGRAM_ID,'
10337 || 'PROGRAM_UPDATE_DATE,'
10338 || ':v_inst_rp_src_id,'
10339 || 'REFRESH_ID,'
10340 || 'ATP_FLAG,'
10341 || 'INVENTORY_ITEM_FLAG,'
10342 || 'REVISION_QTY_CONTROL_CODE,'
10343 || 'EXPENSE_ACCOUNT,'
10344 || 'INVENTORY_ASSET_FLAG,'
10345 || 'BUYER_ID,'
10346 || 'MATERIAL_COST,'
10347 || 'RESOURCE_COST,'
10348 || 'SOURCE_ORG_ID,'
10349 || 'PICK_COMPONENTS_FLAG,'
10350 || 'ALLOWED_UNITS_LOOKUP_CODE,'
10351 || 'SERVICE_LEVEL,'
10352 || 'REPLENISH_TO_ORDER_FLAG,'
10353 || 'PIP_FLAG,'
10354 || 'COMPANY_ID,'
10355 || 'COMPANY_NAME,'
10356 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
10357 || 'ATP_RULE_CODE,'
10358 || 'BASE_ITEM_NAME,'
10359 || 'PRIMARY_SUPPLIER_NAME,'
10360 || 'SOURCE_ORG_CODE,'
10361 || 'MESSAGE_ID,'
10362 || 'PROCESS_FLAG,'
10363 || 'ERROR_TEXT,'
10364 || 'DATA_SOURCE_TYPE,'
10365 || 'ST_TRANSACTION_ID,'
10366 || 'BATCH_ID,'
10367 || 'MIN_MINMAX_QUANTITY,'
10368 || 'MAX_MINMAX_QUANTITY,'
10369 || 'YIELD_CONV_FACTOR,'
10370 || 'SOURCE_TYPE,'
10371 || 'SUBSTITUTION_WINDOW,'
10372 || 'CREATE_SUPPLY_FLAG,'
10373 || 'SERIAL_NUMBER_CONTROL_CODE,'
10374 || 'CRITICAL_COMPONENT_FLAG,'
10375 || 'REDUCE_MPS,'
10376 || 'SOURCE_SR_INVENTORY_ITEM_ID,'
10377 || 'SOURCE_SOURCE_ORG_ID,'
10378 || 'SOURCE_PRIMARY_SUPPLIER_ID,'
10379 || 'SOURCE_BASE_ITEM_ID,'
10380 || 'SOURCE_ABC_CLASS_ID,'
10381 || 'VMI_MINIMUM_UNITS,'
10382 || 'VMI_MINIMUM_DAYS,'
10383 || 'VMI_MAXIMUM_UNITS,'
10384 || 'VMI_MAXIMUM_DAYS,'
10385 || 'VMI_FIXED_ORDER_QUANTITY,'
10386 || 'SO_AUTHORIZATION_FLAG,'
10387 || 'CONSIGNED_FLAG,'
10388 || 'ASN_AUTOEXPIRE_FLAG,'
10389 || 'VMI_FORECAST_TYPE,'
10390 || 'FORECAST_HORIZON,'
10391 || 'BUDGET_CONSTRAINED,'
10392 || 'DAYS_TGT_INV_SUPPLY,'
10393 || 'DAYS_TGT_INV_WINDOW,'
10394 || 'DAYS_MAX_INV_SUPPLY,'
10395 || 'DAYS_MAX_INV_WINDOW,'
10396 || 'DRP_PLANNED,'
10397 || 'CONTINOUS_TRANSFER,'
10398 || 'CONVERGENCE,'
10399 || 'DIVERGENCE,'
10400 || 'PRODUCT_FAMILY_ITEM_NAME,'
10401 || 'ITEM_CREATION_DATE,'
10402 || 'SHORTAGE_TYPE,'
10403 || 'EXCESS_TYPE,'
10404 || 'PLANNING_TIME_FENCE_CODE,'
10405 || 'PEGGING_DEMAND_WINDOW_DAYS,'
10406 || 'PEGGING_SUPPLY_WINDOW_DAYS '
10407 ||'FROM MSC_ST_SYSTEM_ITEMS'|| v_dblink
10408 ||' WHERE '
10409 ||' sr_instance_id = ' || to_char(v_src_instance_id);
10410
10411
10412 EXECUTE IMMEDIATE v_sql_stmt USING
10413 v_ascp_inst,v_icode
10414 ,v_inst_rp_src_id
10415 ,v_ascp_inst,v_icode
10416 ;
10417
10418 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
10419 COMMIT;
10420
10421 EXCEPTION
10422 WHEN OTHERS THEN
10423 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
10424 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
10425 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_SYSTEM_ITEMS');
10426 v_retcode := 2;
10427 RAISE;
10428 ELSE
10429 IF v_retcode < 2 THEN
10430 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
10431 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_SYSTEM_ITEMS');
10432 v_retcode := 1;
10433 END IF;
10434 RETURN;
10435 END IF;
10436
10437 END COPY_SYSTEM_ITEMS;
10438 PROCEDURE COPY_TRADING_PARTNERS IS
10439
10440 BEGIN
10441
10442 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_TRADING_PARTNERS');
10443 v_sql_stmt:=
10444 'INSERT INTO MSC_ST_TRADING_PARTNERS ('
10445 || 'PARTNER_ID,'
10446 || 'ORGANIZATION_CODE,'
10447 || 'SR_TP_ID,'
10448 || 'DISABLE_DATE,'
10449 || 'STATUS,'
10450 || 'MASTER_ORGANIZATION,'
10451 || 'PARTNER_TYPE,'
10452 || 'PARTNER_NAME,'
10453 || 'PARTNER_NUMBER,'
10454 || 'CALENDAR_CODE,'
10455 || 'CALENDAR_EXCEPTION_SET_ID,'
10456 || 'OPERATING_UNIT,'
10457 || 'MAXIMUM_WEIGHT,'
10458 || 'MAXIMUM_VOLUME,'
10459 || 'WEIGHT_UOM,'
10460 || 'VOLUME_UOM,'
10461 || 'PROJECT_REFERENCE_ENABLED,'
10462 || 'PROJECT_CONTROL_LEVEL,'
10463 || 'DEMAND_LATENESS_COST,'
10464 || 'SUPPLIER_CAP_OVERUTIL_COST,'
10465 || 'RESOURCE_CAP_OVERUTIL_COST,'
10466 || 'DELETED_FLAG,'
10467 || 'LAST_UPDATE_DATE,'
10468 || 'LAST_UPDATED_BY,'
10469 || 'CREATION_DATE,'
10470 || 'CREATED_BY,'
10471 || 'LAST_UPDATE_LOGIN,'
10472 || 'REQUEST_ID,'
10473 || 'PROGRAM_APPLICATION_ID,'
10474 || 'PROGRAM_ID,'
10475 || 'PROGRAM_UPDATE_DATE,'
10476 || 'SR_INSTANCE_ID,'
10477 || 'REFRESH_ID,'
10478 || 'MODELED_CUSTOMER_ID,'
10479 || 'MODELED_CUSTOMER_SITE_ID,'
10480 || 'MODELED_SUPPLIER_ID,'
10481 || 'MODELED_SUPPLIER_SITE_ID,'
10482 || 'TRANSPORT_CAP_OVER_UTIL_COST,'
10483 || 'USE_PHANTOM_ROUTINGS,'
10484 || 'INHERIT_PHANTOM_OP_SEQ,'
10485 || 'DEFAULT_ATP_RULE_ID,'
10486 || 'DEFAULT_DEMAND_CLASS,'
10487 || 'MATERIAL_ACCOUNT,'
10488 || 'EXPENSE_ACCOUNT,'
10489 || 'SOURCE_ORG_ID,'
10490 || 'ORGANIZATION_TYPE,'
10491 || 'SERVICE_LEVEL,'
10492 || 'CUSTOMER_CLASS_CODE,'
10493 || 'COMPANY_ID,'
10494 || 'COMPANY_NAME,'
10495 || 'SR_INSTANCE_CODE,'
10496 || 'DEFAULT_ATP_RULE_NAME,'
10497 || 'SOURCE_ORG_CODE,'
10498 || 'MESSAGE_ID,'
10499 || 'PROCESS_FLAG,'
10500 || 'DATA_SOURCE_TYPE,'
10501 || 'ST_TRANSACTION_ID,'
10502 || 'ERROR_TEXT,'
10503 || 'BATCH_ID,'
10504 || 'PLANNING_ENABLED_FLAG,'
10505 || 'MODELED_CUSTOMER_NAME,'
10506 || 'MODELED_SUPPLIER_NAME,'
10507 || 'MODELED_CUSTOMER_SITE_CODE,'
10508 || 'MODELED_SUPPLIER_SITE_CODE,'
10509 || 'MASTER_ORGANIZATION_CODE,'
10510 || 'INHERIT_OC_OP_SEQ_NUM,'
10511 || 'AGGREGATE_DEMAND_FLAG,'
10512 || 'SOURCE_SOURCE_ORG_ID,'
10513 || 'SOURCE_SR_TP_ID,'
10514 || 'BUSINESS_GROUP_ID,'
10515 || 'LEGAL_ENTITY,'
10516 || 'SET_OF_BOOKS_ID,'
10517 || 'CHART_OF_ACCOUNTS_ID,'
10518 || 'BUSINESS_GROUP_NAME,'
10519 || 'LEGAL_ENTITY_NAME,'
10520 || 'OPERATING_UNIT_NAME,'
10521 || 'CUSTOMER_TYPE,'
10522 || 'CUST_ACCOUNT_NUMBER,'
10523 || 'CURRENCY_CODE '
10524 || ')'
10525 ||'SELECT '
10526 || 'PARTNER_ID,'
10527 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
10528 || 'SR_TP_ID,'
10529 || 'DISABLE_DATE,'
10530 || 'STATUS,'
10531 || 'MASTER_ORGANIZATION,'
10532 || 'PARTNER_TYPE,'
10533 || 'REPLACE(PARTNER_NAME,:v_ascp_inst,:v_icode),'
10534 || 'PARTNER_NUMBER,'
10535 || 'REPLACE(CALENDAR_CODE,:v_ascp_inst,:v_icode),'
10536 || 'CALENDAR_EXCEPTION_SET_ID,'
10537 || 'OPERATING_UNIT,'
10538 || 'MAXIMUM_WEIGHT,'
10539 || 'MAXIMUM_VOLUME,'
10540 || 'WEIGHT_UOM,'
10541 || 'VOLUME_UOM,'
10542 || 'PROJECT_REFERENCE_ENABLED,'
10543 || 'PROJECT_CONTROL_LEVEL,'
10544 || 'DEMAND_LATENESS_COST,'
10545 || 'SUPPLIER_CAP_OVERUTIL_COST,'
10546 || 'RESOURCE_CAP_OVERUTIL_COST,'
10547 || 'DELETED_FLAG,'
10548 || 'LAST_UPDATE_DATE,'
10549 || 'LAST_UPDATED_BY,'
10550 || 'CREATION_DATE,'
10551 || 'CREATED_BY,'
10552 || 'LAST_UPDATE_LOGIN,'
10553 || 'REQUEST_ID,'
10554 || 'PROGRAM_APPLICATION_ID,'
10555 || 'PROGRAM_ID,'
10556 || 'PROGRAM_UPDATE_DATE,'
10557 || ':v_inst_rp_src_id,'
10558 || 'REFRESH_ID,'
10559 || 'MODELED_CUSTOMER_ID,'
10560 || 'MODELED_CUSTOMER_SITE_ID,'
10561 || 'MODELED_SUPPLIER_ID,'
10562 || 'MODELED_SUPPLIER_SITE_ID,'
10563 || 'TRANSPORT_CAP_OVER_UTIL_COST,'
10564 || 'USE_PHANTOM_ROUTINGS,'
10565 || 'INHERIT_PHANTOM_OP_SEQ,'
10566 || 'DEFAULT_ATP_RULE_ID,'
10567 || 'DEFAULT_DEMAND_CLASS,'
10568 || 'MATERIAL_ACCOUNT,'
10569 || 'EXPENSE_ACCOUNT,'
10570 || 'SOURCE_ORG_ID,'
10571 || 'ORGANIZATION_TYPE,'
10572 || 'SERVICE_LEVEL,'
10573 || 'CUSTOMER_CLASS_CODE,'
10574 || 'COMPANY_ID,'
10575 || 'COMPANY_NAME,'
10576 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
10577 || 'DEFAULT_ATP_RULE_NAME,'
10578 || 'SOURCE_ORG_CODE,'
10579 || 'MESSAGE_ID,'
10580 || 'PROCESS_FLAG,'
10581 || 'DATA_SOURCE_TYPE,'
10582 || 'ST_TRANSACTION_ID,'
10583 || 'ERROR_TEXT,'
10584 || 'BATCH_ID,'
10585 || 'PLANNING_ENABLED_FLAG,'
10586 || 'MODELED_CUSTOMER_NAME,'
10587 || 'MODELED_SUPPLIER_NAME,'
10588 || 'MODELED_CUSTOMER_SITE_CODE,'
10589 || 'MODELED_SUPPLIER_SITE_CODE,'
10590 || 'MASTER_ORGANIZATION_CODE,'
10591 || 'INHERIT_OC_OP_SEQ_NUM,'
10592 || 'AGGREGATE_DEMAND_FLAG,'
10593 || 'SOURCE_SOURCE_ORG_ID,'
10594 || 'SOURCE_SR_TP_ID,'
10595 || 'BUSINESS_GROUP_ID,'
10596 || 'LEGAL_ENTITY,'
10597 || 'SET_OF_BOOKS_ID,'
10598 || 'CHART_OF_ACCOUNTS_ID,'
10599 || 'BUSINESS_GROUP_NAME,'
10600 || 'LEGAL_ENTITY_NAME,'
10601 || 'OPERATING_UNIT_NAME,'
10602 || 'CUSTOMER_TYPE,'
10603 || 'CUST_ACCOUNT_NUMBER,'
10604 || 'CURRENCY_CODE '
10605 ||'FROM MSC_ST_TRADING_PARTNERS'|| v_dblink
10606 ||' WHERE '
10607 ||' sr_instance_id = ' || to_char(v_src_instance_id)
10608 ||' and company_id is NULL';
10609
10610 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'The formed SQL is'||v_sql_stmt);
10611 EXECUTE IMMEDIATE v_sql_stmt USING
10612 v_ascp_inst,v_icode
10613 ,v_ascp_inst,v_icode
10614 ,v_ascp_inst,v_icode
10615 ,v_inst_rp_src_id
10616 ,v_ascp_inst,v_icode
10617 ;
10618
10619 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
10620 COMMIT;
10621
10622 EXCEPTION
10623 WHEN OTHERS THEN
10624 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
10625 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
10626 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_TRADING_PARTNERS');
10627 v_retcode := 2;
10628 RAISE;
10629 ELSE
10630 IF v_retcode < 2 THEN
10631 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
10632 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_TRADING_PARTNERS');
10633 v_retcode := 1;
10634 END IF;
10635 RETURN;
10636 END IF;
10637
10638 END COPY_TRADING_PARTNERS;
10639 PROCEDURE COPY_TRADING_PARTNER_SITES IS
10640
10641 BEGIN
10642
10643 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_TRADING_PARTNER_SITES');
10644 v_sql_stmt:=
10645 'INSERT INTO MSC_ST_TRADING_PARTNER_SITES ('
10646 || 'PARTNER_ID,'
10647 || 'PARTNER_SITE_ID,'
10648 || 'PARTNER_ADDRESS,'
10649 || 'SR_TP_ID,'
10650 || 'SR_TP_SITE_ID,'
10651 || 'TP_SITE_CODE,'
10652 || 'LOCATION,'
10653 || 'PARTNER_TYPE,'
10654 || 'DELETED_FLAG,'
10655 || 'LAST_UPDATE_DATE,'
10656 || 'LAST_UPDATED_BY,'
10657 || 'CREATION_DATE,'
10658 || 'CREATED_BY,'
10659 || 'LAST_UPDATE_LOGIN,'
10660 || 'REQUEST_ID,'
10661 || 'PROGRAM_APPLICATION_ID,'
10662 || 'PROGRAM_ID,'
10663 || 'PROGRAM_UPDATE_DATE,'
10664 || 'SR_INSTANCE_ID,'
10665 || 'REFRESH_ID,'
10666 || 'LONGITUDE,'
10667 || 'LATITUDE,'
10668 || 'OPERATING_UNIT_NAME,'
10669 || 'COMPANY_ID,'
10670 || 'COMPANY_NAME,'
10671 || 'PARTNER_NAME,'
10672 || 'SR_INSTANCE_CODE,'
10673 || 'MESSAGE_ID,'
10674 || 'PROCESS_FLAG,'
10675 || 'DATA_SOURCE_TYPE,'
10676 || 'ST_TRANSACTION_ID,'
10677 || 'BATCH_ID,'
10678 || 'ERROR_TEXT,'
10679 || 'COUNTRY,'
10680 || 'STATE,'
10681 || 'CITY,'
10682 || 'POSTAL_CODE,'
10683 || 'ORGANIZATION_CODE,'
10684 || 'PARTNER_SITE_NUMBER,'
10685 || 'ADDRESS1,'
10686 || 'ADDRESS2,'
10687 || 'ADDRESS3,'
10688 || 'ADDRESS4,'
10689 || 'PROVINCE,'
10690 || 'COUNTY,'
10691 || 'OPERATING_UNIT,'
10692 || 'LOCATION_ID,'
10693 || 'SHIPPING_CONTROL,'
10694 || 'SOURCE_SR_TP_ID,'
10695 || 'SOURCE_SR_TP_SITE_ID '
10696 || ')'
10697 ||'SELECT '
10698 || 'PARTNER_ID,'
10699 || 'PARTNER_SITE_ID,'
10700 || 'PARTNER_ADDRESS,'
10701 || 'SR_TP_ID,'
10702 || 'SR_TP_SITE_ID,'
10703 || 'TP_SITE_CODE,'
10704 || 'LOCATION,'
10705 || 'PARTNER_TYPE,'
10706 || 'DELETED_FLAG,'
10707 || 'LAST_UPDATE_DATE,'
10708 || 'LAST_UPDATED_BY,'
10709 || 'CREATION_DATE,'
10710 || 'CREATED_BY,'
10711 || 'LAST_UPDATE_LOGIN,'
10712 || 'REQUEST_ID,'
10713 || 'PROGRAM_APPLICATION_ID,'
10714 || 'PROGRAM_ID,'
10715 || 'PROGRAM_UPDATE_DATE,'
10716 || ':v_inst_rp_src_id,'
10717 || 'REFRESH_ID,'
10718 || 'LONGITUDE,'
10719 || 'LATITUDE,'
10720 || 'OPERATING_UNIT_NAME,'
10721 || 'COMPANY_ID,'
10722 || 'COMPANY_NAME,'
10723 || 'REPLACE(PARTNER_NAME,:v_ascp_inst,:v_icode),'
10724 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
10725 || 'MESSAGE_ID,'
10726 || 'PROCESS_FLAG,'
10727 || 'DATA_SOURCE_TYPE,'
10728 || 'ST_TRANSACTION_ID,'
10729 || 'BATCH_ID,'
10730 || 'ERROR_TEXT,'
10731 || 'COUNTRY,'
10732 || 'STATE,'
10733 || 'CITY,'
10734 || 'POSTAL_CODE,'
10735 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
10736 || 'PARTNER_SITE_NUMBER,'
10737 || 'ADDRESS1,'
10738 || 'ADDRESS2,'
10739 || 'ADDRESS3,'
10740 || 'ADDRESS4,'
10741 || 'PROVINCE,'
10742 || 'COUNTY,'
10743 || 'OPERATING_UNIT,'
10744 || 'LOCATION_ID,'
10745 || 'SHIPPING_CONTROL,'
10746 || 'SOURCE_SR_TP_ID,'
10747 || 'SOURCE_SR_TP_SITE_ID '
10748 ||'FROM MSC_ST_TRADING_PARTNER_SITES'|| v_dblink
10749 ||' WHERE '
10750 ||' sr_instance_id = ' || to_char(v_src_instance_id);
10751
10752
10753
10754 EXECUTE IMMEDIATE v_sql_stmt USING
10755 v_inst_rp_src_id
10756 ,v_ascp_inst,v_icode
10757 ,v_ascp_inst,v_icode
10758 ,v_ascp_inst,v_icode
10759 ;
10760
10761 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
10762 COMMIT;
10763
10764 EXCEPTION
10765 WHEN OTHERS THEN
10766 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
10767 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
10768 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_TRADING_PARTNER_SITES');
10769 v_retcode := 2;
10770 RAISE;
10771 ELSE
10772 IF v_retcode < 2 THEN
10773 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
10774 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_TRADING_PARTNER_SITES');
10775 v_retcode := 1;
10776 END IF;
10777 RETURN;
10778 END IF;
10779
10780 END COPY_TRADING_PARTNER_SITES;
10781 PROCEDURE COPY_UNITS_OF_MEASURE IS
10782
10783 BEGIN
10784
10785 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_UNITS_OF_MEASURE');
10786 v_sql_stmt:=
10787 'INSERT INTO MSC_ST_UNITS_OF_MEASURE ('
10788 || 'UNIT_OF_MEASURE,'
10789 || 'UOM_CODE,'
10790 || 'UOM_CLASS,'
10791 || 'BASE_UOM_FLAG,'
10792 || 'DISABLE_DATE,'
10793 || 'DESCRIPTION,'
10794 || 'DELETED_FLAG,'
10795 || 'LAST_UPDATE_DATE,'
10796 || 'LAST_UPDATED_BY,'
10797 || 'CREATION_DATE,'
10798 || 'CREATED_BY,'
10799 || 'LAST_UPDATE_LOGIN,'
10800 || 'REQUEST_ID,'
10801 || 'PROGRAM_APPLICATION_ID,'
10802 || 'PROGRAM_ID,'
10803 || 'PROGRAM_UPDATE_DATE,'
10804 || 'SR_INSTANCE_ID,'
10805 || 'REFRESH_ID,'
10806 || 'COMPANY_ID,'
10807 || 'COMPANY_NAME,'
10808 || 'SR_INSTANCE_CODE,'
10809 || 'MESSAGE_ID,'
10810 || 'PROCESS_FLAG,'
10811 || 'DATA_SOURCE_TYPE,'
10812 || 'ST_TRANSACTION_ID,'
10813 || 'ERROR_TEXT,'
10814 || 'BATCH_ID '
10815 || ')'
10816 ||'SELECT '
10817 || 'UNIT_OF_MEASURE,'
10818 || 'UOM_CODE,'
10819 || 'UOM_CLASS,'
10820 || 'BASE_UOM_FLAG,'
10821 || 'DISABLE_DATE,'
10822 || 'DESCRIPTION,'
10823 || 'DELETED_FLAG,'
10824 || 'LAST_UPDATE_DATE,'
10825 || 'LAST_UPDATED_BY,'
10826 || 'CREATION_DATE,'
10827 || 'CREATED_BY,'
10828 || 'LAST_UPDATE_LOGIN,'
10829 || 'REQUEST_ID,'
10830 || 'PROGRAM_APPLICATION_ID,'
10831 || 'PROGRAM_ID,'
10832 || 'PROGRAM_UPDATE_DATE,'
10833 || ':v_inst_rp_src_id,'
10834 || 'REFRESH_ID,'
10835 || 'COMPANY_ID,'
10836 || 'COMPANY_NAME,'
10837 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
10838 || 'MESSAGE_ID,'
10839 || 'PROCESS_FLAG,'
10840 || 'DATA_SOURCE_TYPE,'
10841 || 'ST_TRANSACTION_ID,'
10842 || 'ERROR_TEXT,'
10843 || 'BATCH_ID '
10844 ||'FROM MSC_ST_UNITS_OF_MEASURE'|| v_dblink
10845 ||' WHERE '
10846 ||' sr_instance_id = ' || to_char(v_src_instance_id);
10847
10848
10849 EXECUTE IMMEDIATE v_sql_stmt USING
10850 v_inst_rp_src_id
10851 ,v_ascp_inst,v_icode
10852 ;
10853
10854 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
10855 COMMIT;
10856
10857 EXCEPTION
10858 WHEN OTHERS THEN
10859 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
10860 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
10861 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_UNITS_OF_MEASURE');
10862 v_retcode := 2;
10863 RAISE;
10864 ELSE
10865 IF v_retcode < 2 THEN
10866 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
10867 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_UNITS_OF_MEASURE');
10868 v_retcode := 1;
10869 END IF;
10870 RETURN;
10871 END IF;
10872
10873 END COPY_UNITS_OF_MEASURE;
10874 PROCEDURE COPY_UNIT_NUMBERS IS
10875
10876 BEGIN
10877
10878 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_UNITS_OF_MEASURE');
10879 v_sql_stmt:=
10880 'INSERT INTO MSC_ST_UNIT_NUMBERS ('
10881 || 'UNIT_NUMBER,'
10882 || 'END_ITEM_ID,'
10883 || 'MASTER_ORGANIZATION_ID,'
10884 || 'COMMENTS,'
10885 || 'DELETED_FLAG,'
10886 || 'LAST_UPDATE_DATE,'
10887 || 'LAST_UPDATED_BY,'
10888 || 'CREATION_DATE,'
10889 || 'CREATED_BY,'
10890 || 'LAST_UPDATE_LOGIN,'
10891 || 'REQUEST_ID,'
10892 || 'PROGRAM_APPLICATION_ID,'
10893 || 'PROGRAM_ID,'
10894 || 'PROGRAM_UPDATE_DATE,'
10895 || 'SR_INSTANCE_ID,'
10896 || 'REFRESH_ID '
10897 || ')'
10898 ||'SELECT '
10899 || 'UNIT_NUMBER,'
10900 || 'END_ITEM_ID,'
10901 || 'MASTER_ORGANIZATION_ID,'
10902 || 'COMMENTS,'
10903 || 'DELETED_FLAG,'
10904 || 'LAST_UPDATE_DATE,'
10905 || 'LAST_UPDATED_BY,'
10906 || 'CREATION_DATE,'
10907 || 'CREATED_BY,'
10908 || 'LAST_UPDATE_LOGIN,'
10909 || 'REQUEST_ID,'
10910 || 'PROGRAM_APPLICATION_ID,'
10911 || 'PROGRAM_ID,'
10912 || 'PROGRAM_UPDATE_DATE,'
10913 || ':v_inst_rp_src_id,'
10914 || 'REFRESH_ID '
10915 ||'FROM MSC_ST_UNIT_NUMBERS'|| v_dblink
10916 ||' WHERE '
10917 ||' sr_instance_id = ' || to_char(v_src_instance_id);
10918
10919
10920 EXECUTE IMMEDIATE v_sql_stmt USING
10921 v_inst_rp_src_id
10922 ;
10923
10924 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
10925 COMMIT;
10926
10927 EXCEPTION
10928 WHEN OTHERS THEN
10929 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
10930 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
10931 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_UNIT_NUMBERS');
10932 v_retcode := 2;
10933 RAISE;
10934 ELSE
10935 IF v_retcode < 2 THEN
10936 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
10937 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_UNIT_NUMBERS');
10938 v_retcode := 1;
10939 END IF;
10940 RETURN;
10941 END IF;
10942
10943 END COPY_UNIT_NUMBERS;
10944 PROCEDURE COPY_UOM_CLASS_CONVERSIONS IS
10945
10946 BEGIN
10947
10948 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_UOM_CLASS_CONVERSIONS');
10949 v_sql_stmt:=
10950 'INSERT INTO MSC_ST_UOM_CLASS_CONVERSIONS ('
10951 || 'INVENTORY_ITEM_ID,'
10952 || 'FROM_UNIT_OF_MEASURE,'
10953 || 'FROM_UOM_CODE,'
10954 || 'FROM_UOM_CLASS,'
10955 || 'TO_UNIT_OF_MEASURE,'
10956 || 'TO_UOM_CODE,'
10957 || 'TO_UOM_CLASS,'
10958 || 'CONVERSION_RATE,'
10959 || 'DISABLE_DATE,'
10960 || 'DELETED_FLAG,'
10961 || 'LAST_UPDATE_DATE,'
10962 || 'LAST_UPDATED_BY,'
10963 || 'CREATION_DATE,'
10964 || 'CREATED_BY,'
10965 || 'LAST_UPDATE_LOGIN,'
10966 || 'REQUEST_ID,'
10967 || 'PROGRAM_APPLICATION_ID,'
10968 || 'PROGRAM_ID,'
10969 || 'PROGRAM_UPDATE_DATE,'
10970 || 'SR_INSTANCE_ID,'
10971 || 'REFRESH_ID,'
10972 || 'COMPANY_ID,'
10973 || 'COMPANY_NAME,'
10974 || 'ITEM_NAME,'
10975 || 'ORGANIZATION_ID,'
10976 || 'ORGANIZATION_CODE,'
10977 || 'SR_INSTANCE_CODE,'
10978 || 'MESSAGE_ID,'
10979 || 'PROCESS_FLAG,'
10980 || 'DATA_SOURCE_TYPE,'
10981 || 'ST_TRANSACTION_ID,'
10982 || 'ERROR_TEXT,'
10983 || 'BATCH_ID '
10984 || ')'
10985 ||'SELECT '
10986 || 'INVENTORY_ITEM_ID,'
10987 || 'FROM_UNIT_OF_MEASURE,'
10988 || 'FROM_UOM_CODE,'
10989 || 'FROM_UOM_CLASS,'
10990 || 'TO_UNIT_OF_MEASURE,'
10991 || 'TO_UOM_CODE,'
10992 || 'TO_UOM_CLASS,'
10993 || 'CONVERSION_RATE,'
10994 || 'DISABLE_DATE,'
10995 || 'DELETED_FLAG,'
10996 || 'LAST_UPDATE_DATE,'
10997 || 'LAST_UPDATED_BY,'
10998 || 'CREATION_DATE,'
10999 || 'CREATED_BY,'
11000 || 'LAST_UPDATE_LOGIN,'
11001 || 'REQUEST_ID,'
11002 || 'PROGRAM_APPLICATION_ID,'
11003 || 'PROGRAM_ID,'
11004 || 'PROGRAM_UPDATE_DATE,'
11005 || ':v_inst_rp_src_id,'
11006 || 'REFRESH_ID,'
11007 || 'COMPANY_ID,'
11008 || 'COMPANY_NAME,'
11009 || 'ITEM_NAME,'
11010 || 'ORGANIZATION_ID,'
11011 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
11012 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
11013 || 'MESSAGE_ID,'
11014 || 'PROCESS_FLAG,'
11015 || 'DATA_SOURCE_TYPE,'
11016 || 'ST_TRANSACTION_ID,'
11017 || 'ERROR_TEXT,'
11018 || 'BATCH_ID '
11019 ||'FROM MSC_ST_UOM_CLASS_CONVERSIONS'|| v_dblink
11020 ||' WHERE '
11021 ||' sr_instance_id = ' || to_char(v_src_instance_id);
11022
11023
11024 EXECUTE IMMEDIATE v_sql_stmt USING
11025 v_inst_rp_src_id
11026 ,v_ascp_inst,v_icode
11027 ,v_ascp_inst,v_icode
11028 ;
11029
11030 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
11031 COMMIT;
11032
11033 EXCEPTION
11034 WHEN OTHERS THEN
11035 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
11036 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
11037 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_UOM_CLASS_CONVERSIONS');
11038 v_retcode := 2;
11039 RAISE;
11040 ELSE
11041 IF v_retcode < 2 THEN
11042 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
11043 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_UOM_CLASS_CONVERSIONS');
11044 v_retcode := 1;
11045 END IF;
11046 RETURN;
11047 END IF;
11048
11049 END COPY_UOM_CLASS_CONVERSIONS;
11050 PROCEDURE COPY_UOM_CONVERSIONS IS
11051
11052 BEGIN
11053
11054 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_UOM_CONVERSIONS');
11055 v_sql_stmt:=
11056 'INSERT INTO MSC_ST_UOM_CONVERSIONS ('
11057 || 'UNIT_OF_MEASURE,'
11058 || 'UOM_CODE,'
11059 || 'UOM_CLASS,'
11060 || 'INVENTORY_ITEM_ID,'
11061 || 'CONVERSION_RATE,'
11062 || 'DEFAULT_CONVERSION_FLAG,'
11063 || 'DISABLE_DATE,'
11064 || 'DELETED_FLAG,'
11065 || 'LAST_UPDATE_DATE,'
11066 || 'LAST_UPDATED_BY,'
11067 || 'CREATION_DATE,'
11068 || 'CREATED_BY,'
11069 || 'LAST_UPDATE_LOGIN,'
11070 || 'REQUEST_ID,'
11071 || 'PROGRAM_APPLICATION_ID,'
11072 || 'PROGRAM_ID,'
11073 || 'PROGRAM_UPDATE_DATE,'
11074 || 'SR_INSTANCE_ID,'
11075 || 'REFRESH_ID,'
11076 || 'COMPANY_ID,'
11077 || 'COMPANY_NAME,'
11078 || 'ITEM_NAME,'
11079 || 'ORGANIZATION_ID,'
11080 || 'ORGANIZATION_CODE,'
11081 || 'SR_INSTANCE_CODE,'
11082 || 'MESSAGE_ID,'
11083 || 'PROCESS_FLAG,'
11084 || 'DATA_SOURCE_TYPE,'
11085 || 'ST_TRANSACTION_ID,'
11086 || 'ERROR_TEXT,'
11087 || 'BATCH_ID '
11088 || ')'
11089 ||'SELECT '
11090 || 'UNIT_OF_MEASURE,'
11091 || 'UOM_CODE,'
11092 || 'UOM_CLASS,'
11093 || 'INVENTORY_ITEM_ID,'
11094 || 'CONVERSION_RATE,'
11095 || 'DEFAULT_CONVERSION_FLAG,'
11096 || 'DISABLE_DATE,'
11097 || 'DELETED_FLAG,'
11098 || 'LAST_UPDATE_DATE,'
11099 || 'LAST_UPDATED_BY,'
11100 || 'CREATION_DATE,'
11101 || 'CREATED_BY,'
11102 || 'LAST_UPDATE_LOGIN,'
11103 || 'REQUEST_ID,'
11104 || 'PROGRAM_APPLICATION_ID,'
11105 || 'PROGRAM_ID,'
11106 || 'PROGRAM_UPDATE_DATE,'
11107 || ':v_inst_rp_src_id,'
11108 || 'REFRESH_ID,'
11109 || 'COMPANY_ID,'
11110 || 'COMPANY_NAME,'
11111 || 'ITEM_NAME,'
11112 || 'ORGANIZATION_ID,'
11113 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
11114 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
11115 || 'MESSAGE_ID,'
11116 || 'PROCESS_FLAG,'
11117 || 'DATA_SOURCE_TYPE,'
11118 || 'ST_TRANSACTION_ID,'
11119 || 'ERROR_TEXT,'
11120 || 'BATCH_ID '
11121 ||'FROM MSC_ST_UOM_CONVERSIONS'|| v_dblink
11122 ||' WHERE '
11123 ||' sr_instance_id = ' || to_char(v_src_instance_id);
11124
11125
11126 EXECUTE IMMEDIATE v_sql_stmt USING
11127 v_inst_rp_src_id
11128 ,v_ascp_inst,v_icode
11129 ,v_ascp_inst,v_icode
11130 ;
11131
11132 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
11133 COMMIT;
11134
11135 EXCEPTION
11136 WHEN OTHERS THEN
11137 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
11138 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
11139 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_UOM_CONVERSIONS');
11140 v_retcode := 2;
11141 RAISE;
11142 ELSE
11143 IF v_retcode < 2 THEN
11144 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
11145 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_UOM_CONVERSIONS');
11146 v_retcode := 1;
11147 END IF;
11148 RETURN;
11149 END IF;
11150
11151 END COPY_UOM_CONVERSIONS;
11152 PROCEDURE COPY_WORKDAY_PATTERNS IS
11153
11154 BEGIN
11155
11156 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_WORKDAY_PATTERNS');
11157 v_sql_stmt:=
11158 'INSERT INTO MSC_ST_WORKDAY_PATTERNS ('
11159 || 'CALENDAR_CODE,'
11160 || 'DESCRIPTION,'
11161 || 'SR_INSTANCE_CODE,'
11162 || 'SR_INSTANCE_ID,'
11163 || 'DELETED_FLAG,'
11164 || 'SHIFT_NAME,'
11165 || 'SHIFT_NUM,'
11166 || 'SEQ_NUM,'
11167 || 'LAST_UPDATE_DATE,'
11168 || 'LAST_UPDATED_BY,'
11169 || 'CREATION_DATE,'
11170 || 'CREATED_BY,'
11171 || 'LAST_UPDATE_LOGIN,'
11172 || 'DAYS_ON,'
11173 || 'DAYS_OFF,'
11174 || 'REQUEST_ID,'
11175 || 'PROGRAM_APPLICATION_ID,'
11176 || 'PROGRAM_ID,'
11177 || 'PROGRAM_UPDATE_DATE,'
11178 || 'REFRESH_ID,'
11179 || 'MESSAGE_ID,'
11180 || 'PROCESS_FLAG,'
11181 || 'DATA_SOURCE_TYPE,'
11182 || 'ST_TRANSACTION_ID,'
11183 || 'ERROR_TEXT,'
11184 || 'COMPANY_NAME,'
11185 || 'COMPANY_ID '
11186 || ')'
11187 ||'SELECT '
11188 || 'REPLACE(CALENDAR_CODE,:v_ascp_inst,:v_icode),'
11189 || 'DESCRIPTION,'
11190 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
11191 || ':v_inst_rp_src_id,'
11192 || 'DELETED_FLAG,'
11193 || 'SHIFT_NAME,'
11194 || 'SHIFT_NUM,'
11195 || 'SEQ_NUM,'
11196 || 'LAST_UPDATE_DATE,'
11197 || 'LAST_UPDATED_BY,'
11198 || 'CREATION_DATE,'
11199 || 'CREATED_BY,'
11200 || 'LAST_UPDATE_LOGIN,'
11201 || 'DAYS_ON,'
11202 || 'DAYS_OFF,'
11203 || 'REQUEST_ID,'
11204 || 'PROGRAM_APPLICATION_ID,'
11205 || 'PROGRAM_ID,'
11206 || 'PROGRAM_UPDATE_DATE,'
11207 || 'REFRESH_ID,'
11208 || 'MESSAGE_ID,'
11209 || 'PROCESS_FLAG,'
11210 || 'DATA_SOURCE_TYPE,'
11211 || 'ST_TRANSACTION_ID,'
11212 || 'ERROR_TEXT,'
11213 || 'COMPANY_NAME,'
11214 || 'COMPANY_ID '
11215 ||'FROM MSC_ST_WORKDAY_PATTERNS'|| v_dblink
11216 ||' WHERE '
11217 ||' sr_instance_id = ' || to_char(v_src_instance_id);
11218
11219
11220 EXECUTE IMMEDIATE v_sql_stmt USING
11221 v_ascp_inst,v_icode
11222 ,v_ascp_inst,v_icode
11223 ,v_inst_rp_src_id
11224 ;
11225
11226 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
11227 COMMIT;
11228
11229 EXCEPTION
11230 WHEN OTHERS THEN
11231 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
11232 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
11233 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_WORKDAY_PATTERNS');
11234 v_retcode := 2;
11235 RAISE;
11236 ELSE
11237 IF v_retcode < 2 THEN
11238 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
11239 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_WORKDAY_PATTERNS');
11240 v_retcode := 1;
11241 END IF;
11242 RETURN;
11243 END IF;
11244
11245 END COPY_WORKDAY_PATTERNS;
11246 PROCEDURE COPY_ZONE_REGIONS IS
11247
11248 BEGIN
11249
11250 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_ZONE_REGIONS');
11251 v_sql_stmt:=
11252 'INSERT INTO MSC_ST_ZONE_REGIONS ('
11253 || 'ZONE_REGION_ID,'
11254 || 'REGION_ID,'
11255 || 'PARENT_REGION_ID,'
11256 || 'PARTY_ID,'
11257 || 'SR_INSTANCE_ID,'
11258 || 'CREATED_BY,'
11259 || 'CREATION_DATE,'
11260 || 'LAST_UPDATED_BY,'
11261 || 'LAST_UPDATE_DATE,'
11262 || 'LAST_UPDATE_LOGIN,'
11263 || 'REQUEST_ID,'
11264 || 'PROGRAM_APPLICATION_ID,'
11265 || 'PROGRAM_ID,'
11266 || 'PROGRAM_UPDATE_DATE,'
11267 || 'SR_INSTANCE_CODE,'
11268 || 'DELETED_FLAG,'
11269 || 'PROCESS_FLAG,'
11270 || 'DATA_SOURCE_TYPE,'
11271 || 'ST_TRANSACTION_ID,'
11272 || 'ERROR_TEXT,'
11273 || 'BATCH_ID,'
11274 || 'MESSAGE_ID,'
11275 || 'COMPANY_NAME,'
11276 || 'ZONE,'
11277 || 'REGION_TYPE,'
11278 || 'COUNTRY,'
11279 || 'COUNTRY_CODE,'
11280 || 'STATE,'
11281 || 'STATE_CODE,'
11282 || 'CITY,'
11283 || 'CITY_CODE,'
11284 || 'POSTAL_CODE_FROM,'
11285 || 'POSTAL_CODE_TO '
11286 || ')'
11287 ||'SELECT '
11288 || 'ZONE_REGION_ID,'
11289 || 'REGION_ID,'
11290 || 'PARENT_REGION_ID,'
11291 || 'PARTY_ID,'
11292 || ':v_inst_rp_src_id,'
11293 || 'CREATED_BY,'
11294 || 'CREATION_DATE,'
11295 || 'LAST_UPDATED_BY,'
11296 || 'LAST_UPDATE_DATE,'
11297 || 'LAST_UPDATE_LOGIN,'
11298 || 'REQUEST_ID,'
11299 || 'PROGRAM_APPLICATION_ID,'
11300 || 'PROGRAM_ID,'
11301 || 'PROGRAM_UPDATE_DATE,'
11302 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
11303 || 'DELETED_FLAG,'
11304 || 'PROCESS_FLAG,'
11305 || 'DATA_SOURCE_TYPE,'
11306 || 'ST_TRANSACTION_ID,'
11307 || 'ERROR_TEXT,'
11308 || 'BATCH_ID,'
11309 || 'MESSAGE_ID,'
11310 || 'COMPANY_NAME,'
11311 || 'ZONE,'
11312 || 'REGION_TYPE,'
11313 || 'COUNTRY,'
11314 || 'COUNTRY_CODE,'
11315 || 'STATE,'
11316 || 'STATE_CODE,'
11317 || 'CITY,'
11318 || 'CITY_CODE,'
11319 || 'POSTAL_CODE_FROM,'
11320 || 'POSTAL_CODE_TO '
11321 ||'FROM MSC_ST_ZONE_REGIONS'|| v_dblink
11322 ||' WHERE '
11323 ||' sr_instance_id = ' || to_char(v_src_instance_id);
11324
11325
11326 EXECUTE IMMEDIATE v_sql_stmt USING
11327 v_inst_rp_src_id
11328 ,v_ascp_inst,v_icode
11329 ;
11330
11331 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
11332 COMMIT;
11333
11334 EXCEPTION
11335 WHEN OTHERS THEN
11336 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
11337 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
11338 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_ZONE_REGIONS');
11339 v_retcode := 2;
11340 RAISE;
11341 ELSE
11342 IF v_retcode < 2 THEN
11343 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
11344 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_ZONE_REGIONS');
11345 v_retcode := 1;
11346 END IF;
11347 RETURN;
11348 END IF;
11349
11350 END COPY_ZONE_REGIONS;
11351 PROCEDURE COPY_SR_LOOKUPS IS
11352
11353 BEGIN
11354
11355 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_SR_LOOKUPS');
11356 v_sql_stmt:=
11357 'INSERT INTO MSC_ST_SR_LOOKUPS ('
11358 || 'LOOKUP_CODE,'
11359 || 'LOOKUP_TYPE,'
11360 || 'MEANING,'
11361 || 'DESCRIPTION,'
11362 || 'FROM_DATE,'
11363 || 'TO_DATE,'
11364 || 'ENABLED_FLAG,'
11365 || 'SR_INSTANCE_ID,'
11366 || 'LAST_UPDATE_DATE,'
11367 || 'LAST_UPDATED_BY,'
11368 || 'CREATION_DATE,'
11369 || 'CREATED_BY,'
11370 || 'LAST_UPDATE_LOGIN,'
11371 || 'REQUEST_ID,'
11372 || 'PROGRAM_APPLICATION_ID,'
11373 || 'PROGRAM_ID,'
11374 || 'PROGRAM_UPDATE_DATE,'
11375 || 'ATTRIBUTE_CATEGORY,'
11376 || 'ATTRIBUTE1,'
11377 || 'ATTRIBUTE2,'
11378 || 'ATTRIBUTE3,'
11379 || 'ATTRIBUTE4,'
11380 || 'ATTRIBUTE5,'
11381 || 'ATTRIBUTE6,'
11382 || 'ATTRIBUTE7,'
11383 || 'ATTRIBUTE8,'
11384 || 'ATTRIBUTE9,'
11385 || 'ATTRIBUTE10,'
11386 || 'ATTRIBUTE11,'
11387 || 'ATTRIBUTE12,'
11388 || 'ATTRIBUTE13,'
11389 || 'ATTRIBUTE14,'
11390 || 'ATTRIBUTE15,'
11391 || 'DELETED_FLAG,'
11392 || 'REFRESH_ID,'
11393 || 'SR_INSTANCE_CODE,'
11394 || 'MESSAGE_ID,'
11395 || 'PROCESS_FLAG,'
11396 || 'DATA_SOURCE_TYPE,'
11397 || 'ST_TRANSACTION_ID,'
11398 || 'ERROR_TEXT,'
11399 || 'BATCH_ID,'
11400 || 'COMPANY_NAME '
11401 || ')'
11402 ||'SELECT '
11403 || 'LOOKUP_CODE,'
11404 || 'LOOKUP_TYPE,'
11405 || 'MEANING,'
11406 || 'DESCRIPTION,'
11407 || 'FROM_DATE,'
11408 || 'TO_DATE,'
11409 || 'ENABLED_FLAG,'
11410 || ':v_inst_rp_src_id,'
11411 || 'LAST_UPDATE_DATE,'
11412 || 'LAST_UPDATED_BY,'
11413 || 'CREATION_DATE,'
11414 || 'CREATED_BY,'
11415 || 'LAST_UPDATE_LOGIN,'
11416 || 'REQUEST_ID,'
11417 || 'PROGRAM_APPLICATION_ID,'
11418 || 'PROGRAM_ID,'
11419 || 'PROGRAM_UPDATE_DATE,'
11420 || 'ATTRIBUTE_CATEGORY,'
11421 || 'ATTRIBUTE1,'
11422 || 'ATTRIBUTE2,'
11423 || 'ATTRIBUTE3,'
11424 || 'ATTRIBUTE4,'
11425 || 'ATTRIBUTE5,'
11426 || 'ATTRIBUTE6,'
11427 || 'ATTRIBUTE7,'
11428 || 'ATTRIBUTE8,'
11429 || 'ATTRIBUTE9,'
11430 || 'ATTRIBUTE10,'
11431 || 'ATTRIBUTE11,'
11432 || 'ATTRIBUTE12,'
11433 || 'ATTRIBUTE13,'
11434 || 'ATTRIBUTE14,'
11435 || 'ATTRIBUTE15,'
11436 || 'DELETED_FLAG,'
11437 || 'REFRESH_ID,'
11438 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
11439 || 'MESSAGE_ID,'
11440 || 'PROCESS_FLAG,'
11441 || 'DATA_SOURCE_TYPE,'
11442 || 'ST_TRANSACTION_ID,'
11443 || 'ERROR_TEXT,'
11444 || 'BATCH_ID,'
11445 || 'COMPANY_NAME '
11446 ||'FROM MSC_ST_SR_LOOKUPS'|| v_dblink
11447 ||' WHERE '
11448 ||' sr_instance_id = ' || to_char(v_src_instance_id);
11449
11450
11451 EXECUTE IMMEDIATE v_sql_stmt USING
11452 v_inst_rp_src_id
11453 ,v_ascp_inst,v_icode
11454 ;
11455
11456 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
11457 COMMIT;
11458
11459 EXCEPTION
11460 WHEN OTHERS THEN
11461 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
11462 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
11463 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_SR_LOOKUPS');
11464 v_retcode := 2;
11465 RAISE;
11466 ELSE
11467 IF v_retcode < 2 THEN
11468 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
11469 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_SR_LOOKUPS');
11470 v_retcode := 1;
11471 END IF;
11472 RETURN;
11473 END IF;
11474
11475 END COPY_SR_LOOKUPS;
11476 PROCEDURE COPY_DEPT_RES_INSTANCES IS
11477
11478 BEGIN
11479
11480 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_DEPT_RES_INSTANCES');
11481 v_sql_stmt:=
11482 'INSERT INTO MSC_ST_DEPT_RES_INSTANCES ('
11483 || 'SR_INSTANCE_ID,'
11484 || 'RES_INSTANCE_ID,'
11485 || 'RESOURCE_ID,'
11486 || 'DEPARTMENT_ID,'
11487 || 'ORGANIZATION_ID,'
11488 || 'SERIAL_NUMBER,'
11489 || 'EQUIPMENT_ITEM_ID,'
11490 || 'EFFECTIVE_START_DATE,'
11491 || 'EFFECTIVE_END_DATE,'
11492 || 'LAST_KNOWN_SETUP,'
11493 || 'LAST_KNOWN_SETUP_CODE,'
11494 || 'ORGAINZATION_CODE,'
11495 || 'RESOURCE_CODE,'
11496 || 'DEPARTMENT_CODE,'
11497 || 'DEPARTMENT_CLASS,'
11498 || 'EQUIPMENT_ITEM_NAME,'
11499 || 'REFRESH_ID,'
11500 || 'COMPANY_ID,'
11501 || 'COMPANY_NAME,'
11502 || 'ORGANIZATION_CODE,'
11503 || 'SR_INSTANCE_CODE,'
11504 || 'MESSAGE_ID,'
11505 || 'PROCESS_FLAG,'
11506 || 'ERROR_TEXT,'
11507 || 'ST_TRANSACTION_ID,'
11508 || 'BATCH_ID,'
11509 || 'DATA_SOURCE_TYPE,'
11510 || 'DELETED_FLAG,'
11511 || 'LAST_UPDATE_DATE,'
11512 || 'LAST_UPDATED_BY,'
11513 || 'CREATION_DATE,'
11514 || 'CREATED_BY,'
11515 || 'LAST_UPDATE_LOGIN,'
11516 || 'REQUEST_ID,'
11517 || 'PROGRAM_APPLICATION_ID,'
11518 || 'PROGRAM_ID,'
11519 || 'PROGRAM_UPDATE_DATE '
11520 || ')'
11521 ||'SELECT '
11522 || ':v_inst_rp_src_id,'
11523 || 'RES_INSTANCE_ID,'
11524 || 'RESOURCE_ID,'
11525 || 'DEPARTMENT_ID,'
11526 || 'ORGANIZATION_ID,'
11527 || 'SERIAL_NUMBER,'
11528 || 'EQUIPMENT_ITEM_ID,'
11529 || 'EFFECTIVE_START_DATE,'
11530 || 'EFFECTIVE_END_DATE,'
11531 || 'LAST_KNOWN_SETUP,'
11532 || 'LAST_KNOWN_SETUP_CODE,'
11533 || 'ORGAINZATION_CODE,'
11534 || 'RESOURCE_CODE,'
11535 || 'DEPARTMENT_CODE,'
11536 || 'DEPARTMENT_CLASS,'
11537 || 'EQUIPMENT_ITEM_NAME,'
11538 || 'REFRESH_ID,'
11539 || 'COMPANY_ID,'
11540 || 'COMPANY_NAME,'
11541 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
11542 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
11543 || 'MESSAGE_ID,'
11544 || 'PROCESS_FLAG,'
11545 || 'ERROR_TEXT,'
11546 || 'ST_TRANSACTION_ID,'
11547 || 'BATCH_ID,'
11548 || 'DATA_SOURCE_TYPE,'
11549 || 'DELETED_FLAG,'
11550 || 'LAST_UPDATE_DATE,'
11551 || 'LAST_UPDATED_BY,'
11552 || 'CREATION_DATE,'
11553 || 'CREATED_BY,'
11554 || 'LAST_UPDATE_LOGIN,'
11555 || 'REQUEST_ID,'
11556 || 'PROGRAM_APPLICATION_ID,'
11557 || 'PROGRAM_ID,'
11558 || 'PROGRAM_UPDATE_DATE '
11559 ||'FROM MSC_ST_DEPT_RES_INSTANCES'|| v_dblink
11560 ||' WHERE '
11561 ||' sr_instance_id = ' || to_char(v_src_instance_id);
11562
11563
11564 EXECUTE IMMEDIATE v_sql_stmt USING
11565 v_inst_rp_src_id
11566 ,v_ascp_inst,v_icode
11567 ,v_ascp_inst,v_icode
11568 ;
11569
11570 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
11571 COMMIT;
11572
11573 EXCEPTION
11574 WHEN OTHERS THEN
11575 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
11576 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
11577 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_DEPT_RES_INSTANCES');
11578 v_retcode := 2;
11579 RAISE;
11580 ELSE
11581 IF v_retcode < 2 THEN
11582 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
11583 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_DEPT_RES_INSTANCES');
11584 v_retcode := 1;
11585 END IF;
11586 RETURN;
11587 END IF;
11588
11589 END COPY_DEPT_RES_INSTANCES;
11590 PROCEDURE COPY_NET_RES_INST_AVAIL IS
11591
11592 BEGIN
11593
11594 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_NET_RES_INST_AVAIL');
11595 v_sql_stmt:=
11596 'INSERT INTO MSC_ST_NET_RES_INST_AVAIL ('
11597 || 'SR_INSTANCE_ID,'
11598 || 'RES_INSTANCE_ID,'
11599 || 'RESOURCE_ID,'
11600 || 'DEPARTMENT_ID,'
11601 || 'ORGANIZATION_ID,'
11602 || 'SERIAL_NUMBER,'
11603 || 'EQUIPMENT_ITEM_ID,'
11604 || 'SIMULATION_SET,'
11605 || 'SHIFT_NUM,'
11606 || 'SHIFT_DATE,'
11607 || 'FROM_TIME,'
11608 || 'TO_TIME,'
11609 || 'REFRESH_ID,'
11610 || 'DELETED_FLAG,'
11611 || 'LAST_UPDATE_DATE,'
11612 || 'LAST_UPDATED_BY,'
11613 || 'CREATION_DATE,'
11614 || 'CREATED_BY,'
11615 || 'LAST_UPDATE_LOGIN,'
11616 || 'REQUEST_ID,'
11617 || 'PROGRAM_APPLICATION_ID,'
11618 || 'PROGRAM_ID,'
11619 || 'PROGRAM_UPDATE_DATE '
11620 || ')'
11621 ||'SELECT '
11622 || ':v_inst_rp_src_id,'
11623 || 'RES_INSTANCE_ID,'
11624 || 'RESOURCE_ID,'
11625 || 'DEPARTMENT_ID,'
11626 || 'ORGANIZATION_ID,'
11627 || 'SERIAL_NUMBER,'
11628 || 'EQUIPMENT_ITEM_ID,'
11629 || 'SIMULATION_SET,'
11630 || 'SHIFT_NUM,'
11631 || 'SHIFT_DATE,'
11632 || 'FROM_TIME,'
11633 || 'TO_TIME,'
11634 || 'REFRESH_ID,'
11635 || 'DELETED_FLAG,'
11636 || 'LAST_UPDATE_DATE,'
11637 || 'LAST_UPDATED_BY,'
11638 || 'CREATION_DATE,'
11639 || 'CREATED_BY,'
11640 || 'LAST_UPDATE_LOGIN,'
11641 || 'REQUEST_ID,'
11642 || 'PROGRAM_APPLICATION_ID,'
11643 || 'PROGRAM_ID,'
11644 || 'PROGRAM_UPDATE_DATE '
11645 ||'FROM MSC_ST_NET_RES_INST_AVAIL'|| v_dblink
11646 ||' WHERE '
11647 ||' sr_instance_id = ' || to_char(v_src_instance_id);
11648
11649
11650 EXECUTE IMMEDIATE v_sql_stmt USING
11651 v_inst_rp_src_id
11652 ;
11653
11654 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
11655 COMMIT;
11656
11657 EXCEPTION
11658 WHEN OTHERS THEN
11659 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
11660 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
11661 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_NET_RES_INST_AVAIL');
11662 v_retcode := 2;
11663 RAISE;
11664 ELSE
11665 IF v_retcode < 2 THEN
11666 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
11667 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_NET_RES_INST_AVAIL');
11668 v_retcode := 1;
11669 END IF;
11670 RETURN;
11671 END IF;
11672
11673 END COPY_NET_RES_INST_AVAIL;
11674 PROCEDURE COPY_JOB_OP_RES_INSTANCES IS
11675
11676 BEGIN
11677
11678 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_JOB_OP_RES_INSTANCES');
11679 v_sql_stmt:=
11680 'INSERT INTO MSC_ST_JOB_OP_RES_INSTANCES ('
11681 || 'WIP_ENTITY_ID,'
11682 || 'OPERATION_SEQ_NUM,'
11683 || 'OPERATION_SEQUENCE_ID,'
11684 || 'RESOURCE_SEQ_NUM,'
11685 || 'RESOURCE_ID,'
11686 || 'RES_INSTANCE_ID,'
11687 || 'SERIAL_NUMBER,'
11688 || 'EQUIPMENT_ITEM_ID,'
11689 || 'START_DATE,'
11690 || 'COMPLETION_DATE,'
11691 || 'ORGANIZATION_ID,'
11692 || 'SR_INSTANCE_ID,'
11693 || 'BATCH_NUMBER,'
11694 || 'DELETED_FLAG,'
11695 || 'WIP_ENTITY_NAME,'
11696 || 'OPERATION_SEQ_CODE,'
11697 || 'ORGAINZATION_CODE,'
11698 || 'RESOURCE_CODE,'
11699 || 'RES_INSTANCE_CODE,'
11700 || 'DEPARTMENT_ID,'
11701 || 'PARENT_SEQ_NUM,'
11702 || 'REFRESH_ID,'
11703 || 'COMPANY_ID,'
11704 || 'COMPANY_NAME,'
11705 || 'SR_INSTANCE_CODE,'
11706 || 'MESSAGE_ID,'
11707 || 'PROCESS_FLAG,'
11708 || 'ERROR_TEXT,'
11709 || 'ST_TRANSACTION_ID,'
11710 || 'BATCH_ID,'
11711 || 'DATA_SOURCE_TYPE,'
11712 || 'LAST_UPDATE_DATE,'
11713 || 'LAST_UPDATED_BY,'
11714 || 'CREATION_DATE,'
11715 || 'CREATED_BY,'
11716 || 'LAST_UPDATE_LOGIN,'
11717 || 'REQUEST_ID,'
11718 || 'PROGRAM_APPLICATION_ID,'
11719 || 'PROGRAM_ID,'
11720 || 'PROGRAM_UPDATE_DATE '
11721 || ')'
11722 ||'SELECT '
11723 || 'WIP_ENTITY_ID,'
11724 || 'OPERATION_SEQ_NUM,'
11725 || 'OPERATION_SEQUENCE_ID,'
11726 || 'RESOURCE_SEQ_NUM,'
11727 || 'RESOURCE_ID,'
11728 || 'RES_INSTANCE_ID,'
11729 || 'SERIAL_NUMBER,'
11730 || 'EQUIPMENT_ITEM_ID,'
11731 || 'START_DATE,'
11732 || 'COMPLETION_DATE,'
11733 || 'ORGANIZATION_ID,'
11734 || ':v_inst_rp_src_id,'
11735 || 'BATCH_NUMBER,'
11736 || 'DELETED_FLAG,'
11737 || 'WIP_ENTITY_NAME,'
11738 || 'OPERATION_SEQ_CODE,'
11739 || 'ORGAINZATION_CODE,'
11740 || 'RESOURCE_CODE,'
11741 || 'REPLACE(RES_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
11742 || 'DEPARTMENT_ID,'
11743 || 'PARENT_SEQ_NUM,'
11744 || 'REFRESH_ID,'
11745 || 'COMPANY_ID,'
11746 || 'COMPANY_NAME,'
11747 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
11748 || 'MESSAGE_ID,'
11749 || 'PROCESS_FLAG,'
11750 || 'ERROR_TEXT,'
11751 || 'ST_TRANSACTION_ID,'
11752 || 'BATCH_ID,'
11753 || 'DATA_SOURCE_TYPE,'
11754 || 'LAST_UPDATE_DATE,'
11755 || 'LAST_UPDATED_BY,'
11756 || 'CREATION_DATE,'
11757 || 'CREATED_BY,'
11758 || 'LAST_UPDATE_LOGIN,'
11759 || 'REQUEST_ID,'
11760 || 'PROGRAM_APPLICATION_ID,'
11761 || 'PROGRAM_ID,'
11762 || 'PROGRAM_UPDATE_DATE '
11763 ||'FROM MSC_ST_JOB_OP_RES_INSTANCES'|| v_dblink
11764 ||' WHERE '
11765 ||' sr_instance_id = ' || to_char(v_src_instance_id);
11766
11767
11768 EXECUTE IMMEDIATE v_sql_stmt USING
11769 v_inst_rp_src_id
11770 ,v_ascp_inst,v_icode
11771 ,v_ascp_inst,v_icode
11772 ;
11773
11774 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
11775 COMMIT;
11776
11777 EXCEPTION
11778 WHEN OTHERS THEN
11779 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
11780 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
11781 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_JOB_OP_RES_INSTANCES');
11782 v_retcode := 2;
11783 RAISE;
11784 ELSE
11785 IF v_retcode < 2 THEN
11786 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
11787 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_JOB_OP_RES_INSTANCES');
11788 v_retcode := 1;
11789 END IF;
11790 RETURN;
11791 END IF;
11792
11793 END COPY_JOB_OP_RES_INSTANCES;
11794 PROCEDURE COPY_RESOURCE_INSTANCE_REQS IS
11795
11796 BEGIN
11797
11798 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_RESOURCE_INSTANCE_REQS');
11799 v_sql_stmt:=
11800 'INSERT INTO MSC_ST_RESOURCE_INSTANCE_REQS ('
11801 || 'RESOURCE_ID,'
11802 || 'RES_INSTANCE_ID,'
11803 || 'ORGANIZATION_ID,'
11804 || 'DEPARTMENT_ID,'
11805 || 'SUPPLY_ID,'
11806 || 'OPERATION_SEQ_NUM,'
11807 || 'RESOURCE_SEQ_NUM,'
11808 || 'WIP_ENTITY_ID,'
11809 || 'SR_INSTANCE_ID,'
11810 || 'START_DATE,'
11811 || 'END_DATE,'
11812 || 'SERIAL_NUMBER,'
11813 || 'EQUIPMENT_ITEM_ID,'
11814 || 'ORIG_RESOURCE_SEQ_NUM,'
11815 || 'PARENT_ID,'
11816 || 'RESOURCE_INSTANCE_HOURS,'
11817 || 'BATCH_NUMBER,'
11818 || 'PARENT_SEQ_NUM,'
11819 || 'SETUP_SEQUENCE_NUM,'
11820 || 'DELETED_FLAG,'
11821 || 'WIP_ENTITY_NAME,'
11822 || 'OPERATION_SEQ_CODE,'
11823 || 'ORGAINZATION_CODE,'
11824 || 'DEPARTMENT_CODE,'
11825 || 'RESOURCE_CODE,'
11826 || 'RES_INSTANCE_CODE,'
11827 || 'REFRESH_ID,'
11828 || 'COMPANY_ID,'
11829 || 'COMPANY_NAME,'
11830 || 'SR_INSTANCE_CODE,'
11831 || 'MESSAGE_ID,'
11832 || 'PROCESS_FLAG,'
11833 || 'ERROR_TEXT,'
11834 || 'ST_TRANSACTION_ID,'
11835 || 'BATCH_ID,'
11836 || 'DATA_SOURCE_TYPE,'
11837 || 'LAST_UPDATE_DATE,'
11838 || 'LAST_UPDATED_BY,'
11839 || 'CREATION_DATE,'
11840 || 'CREATED_BY,'
11841 || 'LAST_UPDATE_LOGIN,'
11842 || 'REQUEST_ID,'
11843 || 'PROGRAM_APPLICATION_ID,'
11844 || 'PROGRAM_ID,'
11845 || 'PROGRAM_UPDATE_DATE '
11846 || ')'
11847 ||'SELECT '
11848 || 'RESOURCE_ID,'
11849 || 'RES_INSTANCE_ID,'
11850 || 'ORGANIZATION_ID,'
11851 || 'DEPARTMENT_ID,'
11852 || 'SUPPLY_ID,'
11853 || 'OPERATION_SEQ_NUM,'
11854 || 'RESOURCE_SEQ_NUM,'
11855 || 'WIP_ENTITY_ID,'
11856 || ':v_inst_rp_src_id,'
11857 || 'START_DATE,'
11858 || 'END_DATE,'
11859 || 'SERIAL_NUMBER,'
11860 || 'EQUIPMENT_ITEM_ID,'
11861 || 'ORIG_RESOURCE_SEQ_NUM,'
11862 || 'PARENT_ID,'
11863 || 'RESOURCE_INSTANCE_HOURS,'
11864 || 'BATCH_NUMBER,'
11865 || 'PARENT_SEQ_NUM,'
11866 || 'SETUP_SEQUENCE_NUM,'
11867 || 'DELETED_FLAG,'
11868 || 'WIP_ENTITY_NAME,'
11869 || 'OPERATION_SEQ_CODE,'
11870 || 'ORGAINZATION_CODE,'
11871 || 'DEPARTMENT_CODE,'
11872 || 'RESOURCE_CODE,'
11873 || 'REPLACE(RES_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
11874 || 'REFRESH_ID,'
11875 || 'COMPANY_ID,'
11876 || 'COMPANY_NAME,'
11877 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
11878 || 'MESSAGE_ID,'
11879 || 'PROCESS_FLAG,'
11880 || 'ERROR_TEXT,'
11881 || 'ST_TRANSACTION_ID,'
11882 || 'BATCH_ID,'
11883 || 'DATA_SOURCE_TYPE,'
11884 || 'LAST_UPDATE_DATE,'
11885 || 'LAST_UPDATED_BY,'
11886 || 'CREATION_DATE,'
11887 || 'CREATED_BY,'
11888 || 'LAST_UPDATE_LOGIN,'
11889 || 'REQUEST_ID,'
11890 || 'PROGRAM_APPLICATION_ID,'
11891 || 'PROGRAM_ID,'
11892 || 'PROGRAM_UPDATE_DATE '
11893 ||'FROM MSC_ST_RESOURCE_INSTANCE_REQS'|| v_dblink
11894 ||' WHERE '
11895 ||' sr_instance_id = ' || to_char(v_src_instance_id);
11896
11897
11898 EXECUTE IMMEDIATE v_sql_stmt USING
11899 v_inst_rp_src_id
11900 ,v_ascp_inst,v_icode
11901 ,v_ascp_inst,v_icode
11902 ;
11903
11904 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
11905 COMMIT;
11906
11907 EXCEPTION
11908 WHEN OTHERS THEN
11909 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
11910 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
11911 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_RESOURCE_INSTANCE_REQS');
11912 v_retcode := 2;
11913 RAISE;
11914 ELSE
11915 IF v_retcode < 2 THEN
11916 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
11917 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_RESOURCE_INSTANCE_REQS');
11918 v_retcode := 1;
11919 END IF;
11920 RETURN;
11921 END IF;
11922
11923 END COPY_RESOURCE_INSTANCE_REQS;
11924 PROCEDURE COPY_RESOURCE_SETUPS IS
11925
11926 BEGIN
11927
11928 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_RESOURCE_SETUPS');
11929 v_sql_stmt:=
11930 'INSERT INTO MSC_ST_RESOURCE_SETUPS ('
11931 || 'SR_INSTANCE_ID,'
11932 || 'RESOURCE_ID,'
11933 || 'ORGANIZATION_ID,'
11934 || 'SETUP_ID,'
11935 || 'SETUP_CODE,'
11936 || 'SETUP_DESCRIPTION,'
11937 || 'ORGANIZATION_CODE,'
11938 || 'RESOURCE_CODE,'
11939 || 'DELETED_FLAG,'
11940 || 'REFRESH_ID,'
11941 || 'COMPANY_ID,'
11942 || 'COMPANY_NAME,'
11943 || 'SR_INSTANCE_CODE,'
11944 || 'MESSAGE_ID,'
11945 || 'PROCESS_FLAG,'
11946 || 'ERROR_TEXT,'
11947 || 'ST_TRANSACTION_ID,'
11948 || 'BATCH_ID,'
11949 || 'DATA_SOURCE_TYPE,'
11950 || 'LAST_UPDATE_DATE,'
11951 || 'LAST_UPDATED_BY,'
11952 || 'CREATION_DATE,'
11953 || 'CREATED_BY,'
11954 || 'LAST_UPDATE_LOGIN,'
11955 || 'REQUEST_ID,'
11956 || 'PROGRAM_APPLICATION_ID,'
11957 || 'PROGRAM_ID,'
11958 || 'PROGRAM_UPDATE_DATE '
11959 || ')'
11960 ||'SELECT '
11961 || ':v_inst_rp_src_id,'
11962 || 'RESOURCE_ID,'
11963 || 'ORGANIZATION_ID,'
11964 || 'SETUP_ID,'
11965 || 'SETUP_CODE,'
11966 || 'SETUP_DESCRIPTION,'
11967 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
11968 || 'RESOURCE_CODE,'
11969 || 'DELETED_FLAG,'
11970 || 'REFRESH_ID,'
11971 || 'COMPANY_ID,'
11972 || 'COMPANY_NAME,'
11973 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
11974 || 'MESSAGE_ID,'
11975 || 'PROCESS_FLAG,'
11976 || 'ERROR_TEXT,'
11977 || 'ST_TRANSACTION_ID,'
11978 || 'BATCH_ID,'
11979 || 'DATA_SOURCE_TYPE,'
11980 || 'LAST_UPDATE_DATE,'
11981 || 'LAST_UPDATED_BY,'
11982 || 'CREATION_DATE,'
11983 || 'CREATED_BY,'
11984 || 'LAST_UPDATE_LOGIN,'
11985 || 'REQUEST_ID,'
11986 || 'PROGRAM_APPLICATION_ID,'
11987 || 'PROGRAM_ID,'
11988 || 'PROGRAM_UPDATE_DATE '
11989 ||'FROM MSC_ST_RESOURCE_SETUPS'|| v_dblink
11990 ||' WHERE '
11991 ||' sr_instance_id = ' || to_char(v_src_instance_id);
11992
11993
11994 EXECUTE IMMEDIATE v_sql_stmt USING
11995 v_inst_rp_src_id
11996 ,v_ascp_inst,v_icode
11997 ,v_ascp_inst,v_icode
11998 ;
11999
12000 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
12001 COMMIT;
12002
12003 EXCEPTION
12004 WHEN OTHERS THEN
12005 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
12006 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
12007 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_RESOURCE_SETUPS');
12008 v_retcode := 2;
12009 RAISE;
12010 ELSE
12011 IF v_retcode < 2 THEN
12012 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
12013 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_RESOURCE_SETUPS');
12014 v_retcode := 1;
12015 END IF;
12016 RETURN;
12017 END IF;
12018
12019 END COPY_RESOURCE_SETUPS;
12020 PROCEDURE COPY_SETUP_TRANSITIONS IS
12021
12022 BEGIN
12023
12024 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_SETUP_TRANSITIONS');
12025 v_sql_stmt:=
12026 'INSERT INTO MSC_ST_SETUP_TRANSITIONS ('
12027 || 'SR_INSTANCE_ID,'
12028 || 'RESOURCE_ID,'
12029 || 'ORGANIZATION_ID,'
12030 || 'FROM_SETUP_ID,'
12031 || 'TO_SETUP_ID,'
12032 || 'STANDARD_OPERATION_CODE,'
12033 || 'FROM_SETUP_CODE,'
12034 || 'TO_SETUP_CODE,'
12035 || 'TRANSITION_TIME,'
12036 || 'TRANSITION_UOM,'
12037 || 'TRANSITION_PENALTY,'
12038 || 'ORGANIZATION_CODE,'
12039 || 'RESOURCE_CODE,'
12040 || 'DELETED_FLAG,'
12041 || 'REFRESH_ID,'
12042 || 'COMPANY_ID,'
12043 || 'COMPANY_NAME,'
12044 || 'SR_INSTANCE_CODE,'
12045 || 'MESSAGE_ID,'
12046 || 'PROCESS_FLAG,'
12047 || 'ERROR_TEXT,'
12048 || 'ST_TRANSACTION_ID,'
12049 || 'BATCH_ID,'
12050 || 'DATA_SOURCE_TYPE,'
12051 || 'LAST_UPDATE_DATE,'
12052 || 'LAST_UPDATED_BY,'
12053 || 'CREATION_DATE,'
12054 || 'CREATED_BY,'
12055 || 'LAST_UPDATE_LOGIN,'
12056 || 'REQUEST_ID,'
12057 || 'PROGRAM_APPLICATION_ID,'
12058 || 'PROGRAM_ID,'
12059 || 'PROGRAM_UPDATE_DATE,'
12060 || 'STANDARD_OPERATION_ID '
12061 || ')'
12062 ||'SELECT '
12063 || ':v_inst_rp_src_id,'
12064 || 'RESOURCE_ID,'
12065 || 'ORGANIZATION_ID,'
12066 || 'FROM_SETUP_ID,'
12067 || 'TO_SETUP_ID,'
12068 || 'STANDARD_OPERATION_CODE,'
12069 || 'FROM_SETUP_CODE,'
12070 || 'TO_SETUP_CODE,'
12071 || 'TRANSITION_TIME,'
12072 || 'TRANSITION_UOM,'
12073 || 'TRANSITION_PENALTY,'
12074 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
12075 || 'RESOURCE_CODE,'
12076 || 'DELETED_FLAG,'
12077 || 'REFRESH_ID,'
12078 || 'COMPANY_ID,'
12079 || 'COMPANY_NAME,'
12080 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
12081 || 'MESSAGE_ID,'
12082 || 'PROCESS_FLAG,'
12083 || 'ERROR_TEXT,'
12084 || 'ST_TRANSACTION_ID,'
12085 || 'BATCH_ID,'
12086 || 'DATA_SOURCE_TYPE,'
12087 || 'LAST_UPDATE_DATE,'
12088 || 'LAST_UPDATED_BY,'
12089 || 'CREATION_DATE,'
12090 || 'CREATED_BY,'
12091 || 'LAST_UPDATE_LOGIN,'
12092 || 'REQUEST_ID,'
12093 || 'PROGRAM_APPLICATION_ID,'
12094 || 'PROGRAM_ID,'
12095 || 'PROGRAM_UPDATE_DATE,'
12096 || 'STANDARD_OPERATION_ID '
12097 ||'FROM MSC_ST_SETUP_TRANSITIONS'|| v_dblink
12098 ||' WHERE '
12099 ||' sr_instance_id = ' || to_char(v_src_instance_id);
12100
12101
12102 EXECUTE IMMEDIATE v_sql_stmt USING
12103 v_inst_rp_src_id
12104 ,v_ascp_inst,v_icode
12105 ,v_ascp_inst,v_icode
12106 ;
12107
12108 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
12109 COMMIT;
12110
12111 EXCEPTION
12112 WHEN OTHERS THEN
12113 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
12114 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
12115 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_SETUP_TRANSITIONS');
12116 v_retcode := 2;
12117 RAISE;
12118 ELSE
12119 IF v_retcode < 2 THEN
12120 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
12121 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_SETUP_TRANSITIONS');
12122 v_retcode := 1;
12123 END IF;
12124 RETURN;
12125 END IF;
12126
12127 END COPY_SETUP_TRANSITIONS;
12128 PROCEDURE COPY_RES_INSTANCE_CHANGES IS
12129
12130 BEGIN
12131
12132 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_RES_INSTANCE_CHANGES');
12133 v_sql_stmt:=
12134 'INSERT INTO MSC_ST_RES_INSTANCE_CHANGES ('
12135 || 'SR_INSTANCE_ID,'
12136 || 'DEPARTMENT_ID,'
12137 || 'RESOURCE_ID,'
12138 || 'ORGANIZATION_ID,'
12139 || 'RES_INSTANCE_ID,'
12140 || 'SERIAL_NUMBER,'
12141 || 'SHIFT_NUM,'
12142 || 'FROM_DATE,'
12143 || 'FROM_TIME,'
12144 || 'TO_DATE,'
12145 || 'TO_TIME,'
12146 || 'SIMULATION_SET,'
12147 || 'CAPACITY_CHANGE,'
12148 || 'ORGAINZATION_CODE,'
12149 || 'RESOURCE_CODE,'
12150 || 'RES_INSTANCE_CODE,'
12151 || 'DEPARTMENT_CODE,'
12152 || 'ACTION_TYPE,'
12153 || 'DELETED_FLAG,'
12154 || 'REFRESH_ID,'
12155 || 'COMPANY_ID,'
12156 || 'COMPANY_NAME,'
12157 || 'SR_INSTANCE_CODE,'
12158 || 'MESSAGE_ID,'
12159 || 'PROCESS_FLAG,'
12160 || 'ERROR_TEXT,'
12161 || 'ST_TRANSACTION_ID,'
12162 || 'BATCH_ID,'
12163 || 'DATA_SOURCE_TYPE,'
12164 || 'LAST_UPDATE_DATE,'
12165 || 'LAST_UPDATED_BY,'
12166 || 'CREATION_DATE,'
12167 || 'CREATED_BY,'
12168 || 'LAST_UPDATE_LOGIN,'
12169 || 'REQUEST_ID,'
12170 || 'PROGRAM_APPLICATION_ID,'
12171 || 'PROGRAM_ID,'
12172 || 'PROGRAM_UPDATE_DATE '
12173 || ')'
12174 ||'SELECT '
12175 || ':v_inst_rp_src_id,'
12176 || 'DEPARTMENT_ID,'
12177 || 'RESOURCE_ID,'
12178 || 'ORGANIZATION_ID,'
12179 || 'RES_INSTANCE_ID,'
12180 || 'SERIAL_NUMBER,'
12181 || 'SHIFT_NUM,'
12182 || 'FROM_DATE,'
12183 || 'FROM_TIME,'
12184 || 'TO_DATE,'
12185 || 'TO_TIME,'
12186 || 'SIMULATION_SET,'
12187 || 'CAPACITY_CHANGE,'
12188 || 'ORGAINZATION_CODE,'
12189 || 'RESOURCE_CODE,'
12190 || 'REPLACE(RES_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
12191 || 'DEPARTMENT_CODE,'
12192 || 'ACTION_TYPE,'
12193 || 'DELETED_FLAG,'
12194 || 'REFRESH_ID,'
12195 || 'COMPANY_ID,'
12196 || 'COMPANY_NAME,'
12197 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
12198 || 'MESSAGE_ID,'
12199 || 'PROCESS_FLAG,'
12200 || 'ERROR_TEXT,'
12201 || 'ST_TRANSACTION_ID,'
12202 || 'BATCH_ID,'
12203 || 'DATA_SOURCE_TYPE,'
12204 || 'LAST_UPDATE_DATE,'
12205 || 'LAST_UPDATED_BY,'
12206 || 'CREATION_DATE,'
12207 || 'CREATED_BY,'
12208 || 'LAST_UPDATE_LOGIN,'
12209 || 'REQUEST_ID,'
12210 || 'PROGRAM_APPLICATION_ID,'
12211 || 'PROGRAM_ID,'
12212 || 'PROGRAM_UPDATE_DATE '
12213 ||'FROM MSC_ST_RES_INSTANCE_CHANGES'|| v_dblink
12214 ||' WHERE '
12215 ||' sr_instance_id = ' || to_char(v_src_instance_id);
12216
12217
12218 EXECUTE IMMEDIATE v_sql_stmt USING
12219 v_inst_rp_src_id
12220 ,v_ascp_inst,v_icode
12221 ,v_ascp_inst,v_icode
12222 ;
12223
12224 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
12225 COMMIT;
12226
12227 EXCEPTION
12228 WHEN OTHERS THEN
12229 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
12230 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
12231 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_RES_INSTANCE_CHANGES');
12232 v_retcode := 2;
12233 RAISE;
12234 ELSE
12235 IF v_retcode < 2 THEN
12236 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
12237 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_RES_INSTANCE_CHANGES');
12238 v_retcode := 1;
12239 END IF;
12240 RETURN;
12241 END IF;
12242
12243 END COPY_RES_INSTANCE_CHANGES;
12244 PROCEDURE COPY_STD_OP_RESOURCES IS
12245
12246 BEGIN
12247
12248 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_STD_OP_RESOURCES');
12249 v_sql_stmt:=
12250 'INSERT INTO MSC_ST_STD_OP_RESOURCES ('
12251 || 'SR_INSTANCE_ID,'
12252 || 'STANDARD_OPERATION_ID,'
12253 || 'RESOURCE_ID,'
12254 || 'ORGANIZATION_ID,'
12255 || 'DEPARTMENT_ID,'
12256 || 'RESOURCE_SEQ_NUM,'
12257 || 'RESOURCE_USAGE,'
12258 || 'BASIS_TYPE,'
12259 || 'RESOURCE_UNITS,'
12260 || 'SUBSTITUTE_GROUP_NUM,'
12261 || 'UOM_CODE,'
12262 || 'SCHEDULE_FLAG,'
12263 || 'OPERATION_CODE,'
12264 || 'REFRESH_ID,'
12265 || 'COMPANY_ID,'
12266 || 'COMPANY_NAME,'
12267 || 'ORGANIZATION_CODE,'
12268 || 'RESOURCE_CODE,'
12269 || 'DEPARTMENT_CODE,'
12270 || 'SR_INSTANCE_CODE,'
12271 || 'MESSAGE_ID,'
12272 || 'PROCESS_FLAG,'
12273 || 'ERROR_TEXT,'
12274 || 'BATCH_ID,'
12275 || 'DATA_SOURCE_TYPE,'
12276 || 'DELETED_FLAG,'
12277 || 'LAST_UPDATE_DATE,'
12278 || 'LAST_UPDATED_BY,'
12279 || 'CREATION_DATE,'
12280 || 'CREATED_BY,'
12281 || 'LAST_UPDATE_LOGIN,'
12282 || 'REQUEST_ID,'
12283 || 'PROGRAM_APPLICATION_ID,'
12284 || 'PROGRAM_ID,'
12285 || 'PROGRAM_UPDATE_DATE '
12286 || ')'
12287 ||'SELECT '
12288 || ':v_inst_rp_src_id,'
12289 || 'STANDARD_OPERATION_ID,'
12290 || 'RESOURCE_ID,'
12291 || 'ORGANIZATION_ID,'
12292 || 'DEPARTMENT_ID,'
12293 || 'RESOURCE_SEQ_NUM,'
12294 || 'RESOURCE_USAGE,'
12295 || 'BASIS_TYPE,'
12296 || 'RESOURCE_UNITS,'
12297 || 'SUBSTITUTE_GROUP_NUM,'
12298 || 'UOM_CODE,'
12299 || 'SCHEDULE_FLAG,'
12300 || 'OPERATION_CODE,'
12301 || 'REFRESH_ID,'
12302 || 'COMPANY_ID,'
12303 || 'COMPANY_NAME,'
12304 || 'REPLACE(ORGANIZATION_CODE,:v_ascp_inst,:v_icode),'
12305 || 'RESOURCE_CODE,'
12306 || 'DEPARTMENT_CODE,'
12307 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
12308 || 'MESSAGE_ID,'
12309 || 'PROCESS_FLAG,'
12310 || 'ERROR_TEXT,'
12311 || 'BATCH_ID,'
12312 || 'DATA_SOURCE_TYPE,'
12313 || 'DELETED_FLAG,'
12314 || 'LAST_UPDATE_DATE,'
12315 || 'LAST_UPDATED_BY,'
12316 || 'CREATION_DATE,'
12317 || 'CREATED_BY,'
12318 || 'LAST_UPDATE_LOGIN,'
12319 || 'REQUEST_ID,'
12320 || 'PROGRAM_APPLICATION_ID,'
12321 || 'PROGRAM_ID,'
12322 || 'PROGRAM_UPDATE_DATE '
12323 ||'FROM MSC_ST_STD_OP_RESOURCES'|| v_dblink
12324 ||' WHERE '
12325 ||' sr_instance_id = ' || to_char(v_src_instance_id);
12326
12327
12328 EXECUTE IMMEDIATE v_sql_stmt USING
12329 v_inst_rp_src_id
12330 ,v_ascp_inst,v_icode
12331 ,v_ascp_inst,v_icode
12332 ;
12333
12334 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
12335 COMMIT;
12336
12337 EXCEPTION
12338 WHEN OTHERS THEN
12339 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
12340 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
12341 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_STD_OP_RESOURCES');
12342 v_retcode := 2;
12343 RAISE;
12344 ELSE
12345 IF v_retcode < 2 THEN
12346 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
12347 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_STD_OP_RESOURCES');
12348 v_retcode := 1;
12349 END IF;
12350 RETURN;
12351 END IF;
12352
12353 END COPY_STD_OP_RESOURCES;
12354 PROCEDURE COPY_RESOURCE_CHARGES IS
12355
12356 BEGIN
12357
12358 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_RESOURCE_CHARGES');
12359 v_sql_stmt:=
12360 'INSERT INTO MSC_ST_RESOURCE_CHARGES ('
12361 || 'SR_INSTANCE_ID,'
12362 || 'RESOURCE_ID,'
12363 || 'ORGANIZATION_ID,'
12364 || 'DEPARTMENT_ID,'
12365 || 'ROUTING_SEQUENCE_ID,'
12366 || 'WIP_ENTITY_ID,'
12367 || 'OPERATION_SEQUENCE_ID,'
12368 || 'OPERATION_SEQ_NUM,'
12369 || 'RESOURCE_SEQ_NUM,'
12370 || 'CHARGE_NUMBER,'
12371 || 'CHARGE_QUANTITY,'
12372 || 'CHARGE_START_DATETIME,'
12373 || 'CHARGE_END_DATETIME,'
12374 || 'ALTERNATE_NUM,'
12375 || 'ORGAINZATION_CODE,'
12376 || 'RESOURCE_CODE,'
12377 || 'OPERATION_SEQ_CODE,'
12378 || 'ROUTING_NAME,'
12379 || 'WIP_ENTITY_NAME,'
12380 || 'DELETED_FLAG,'
12381 || 'REFRESH_ID,'
12382 || 'COMPANY_ID,'
12383 || 'COMPANY_NAME,'
12384 || 'SR_INSTANCE_CODE,'
12385 || 'MESSAGE_ID,'
12386 || 'PROCESS_FLAG,'
12387 || 'ERROR_TEXT,'
12388 || 'ST_TRANSACTION_ID,'
12389 || 'BATCH_ID,'
12390 || 'DATA_SOURCE_TYPE,'
12391 || 'LAST_UPDATE_DATE,'
12392 || 'LAST_UPDATED_BY,'
12393 || 'CREATION_DATE,'
12394 || 'CREATED_BY,'
12395 || 'LAST_UPDATE_LOGIN,'
12396 || 'REQUEST_ID,'
12397 || 'PROGRAM_APPLICATION_ID,'
12398 || 'PROGRAM_ID,'
12399 || 'PROGRAM_UPDATE_DATE '
12400 || ')'
12401 ||'SELECT '
12402 || ':v_inst_rp_src_id,'
12403 || 'RESOURCE_ID,'
12404 || 'ORGANIZATION_ID,'
12405 || 'DEPARTMENT_ID,'
12406 || 'ROUTING_SEQUENCE_ID,'
12407 || 'WIP_ENTITY_ID,'
12408 || 'OPERATION_SEQUENCE_ID,'
12409 || 'OPERATION_SEQ_NUM,'
12410 || 'RESOURCE_SEQ_NUM,'
12411 || 'CHARGE_NUMBER,'
12412 || 'CHARGE_QUANTITY,'
12413 || 'CHARGE_START_DATETIME,'
12414 || 'CHARGE_END_DATETIME,'
12415 || 'ALTERNATE_NUM,'
12416 || 'ORGAINZATION_CODE,'
12417 || 'RESOURCE_CODE,'
12418 || 'OPERATION_SEQ_CODE,'
12419 || 'ROUTING_NAME,'
12420 || 'WIP_ENTITY_NAME,'
12421 || 'DELETED_FLAG,'
12422 || 'REFRESH_ID,'
12423 || 'COMPANY_ID,'
12424 || 'COMPANY_NAME,'
12425 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
12426 || 'MESSAGE_ID,'
12427 || 'PROCESS_FLAG,'
12428 || 'ERROR_TEXT,'
12429 || 'ST_TRANSACTION_ID,'
12430 || 'BATCH_ID,'
12431 || 'DATA_SOURCE_TYPE,'
12432 || 'LAST_UPDATE_DATE,'
12433 || 'LAST_UPDATED_BY,'
12434 || 'CREATION_DATE,'
12435 || 'CREATED_BY,'
12436 || 'LAST_UPDATE_LOGIN,'
12437 || 'REQUEST_ID,'
12438 || 'PROGRAM_APPLICATION_ID,'
12439 || 'PROGRAM_ID,'
12440 || 'PROGRAM_UPDATE_DATE '
12441 ||'FROM MSC_ST_RESOURCE_CHARGES'|| v_dblink
12442 ||' WHERE '
12443 ||' sr_instance_id = ' || to_char(v_src_instance_id);
12444
12445
12446 EXECUTE IMMEDIATE v_sql_stmt USING
12447 v_inst_rp_src_id
12448 ,v_ascp_inst,v_icode ;
12449
12450 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
12451 COMMIT;
12452
12453 EXCEPTION
12454 WHEN OTHERS THEN
12455 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
12456 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
12457 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_RESOURCE_CHARGES');
12458 v_retcode := 2;
12459 RAISE;
12460 ELSE
12461 IF v_retcode < 2 THEN
12462 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
12463 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_RESOURCE_CHARGES');
12464 v_retcode := 1;
12465 END IF;
12466 RETURN;
12467 END IF;
12468
12469 END COPY_RESOURCE_CHARGES;
12470 PROCEDURE COPY_CALENDAR_MONTHS IS
12471
12472 BEGIN
12473
12474 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_CALENDAR_MONTHS');
12475 v_sql_stmt:=
12476 'INSERT INTO MSC_ST_CALENDAR_MONTHS ('
12477 || 'SR_INSTANCE_ID,'
12478 || 'CALENDAR_CODE,'
12479 || 'CALENDAR_TYPE,'
12480 || 'YEAR,'
12481 || 'YEAR_DESCRIPTION,'
12482 || 'YEAR_START_DATE,'
12483 || 'YEAR_END_DATE,'
12484 || 'QUARTER,'
12485 || 'QUARTER_DESCRIPTION,'
12486 || 'QUARTER_START_DATE,'
12487 || 'QUARTER_END_DATE,'
12488 || 'MONTH,'
12489 || 'MONTH_DESCRIPTION,'
12490 || 'MONTH_START_DATE,'
12491 || 'MONTH_END_DATE,'
12492 || 'LAST_UPDATE_DATE,'
12493 || 'LAST_UPDATED_BY,'
12494 || 'CREATION_DATE,'
12495 || 'CREATED_BY,'
12496 || 'LAST_UPDATE_LOGIN,'
12497 || 'REQUEST_ID,'
12498 || 'PROGRAM_APPLICATION_ID,'
12499 || 'PROGRAM_ID,'
12500 || 'PROGRAM_UPDATE_DATE,'
12501 || 'SR_INSTANCE_CODE,'
12502 || 'PROCESS_FLAG,'
12503 || 'BATCH_ID,'
12504 || 'ST_TRANSACTION_ID,'
12505 || 'DATA_SOURCE_TYPE,'
12506 || 'ERROR_TEXT,'
12507 || 'MESSAGE_ID,'
12508 || 'DELETED_FLAG,'
12509 || 'REFRESH_ID,'
12510 || 'ATTRIBUTE_CATEGORY,'
12511 || 'ATTRIBUTE1,'
12512 || 'ATTRIBUTE2,'
12513 || 'ATTRIBUTE3,'
12514 || 'ATTRIBUTE4,'
12515 || 'ATTRIBUTE5,'
12516 || 'ATTRIBUTE6,'
12517 || 'ATTRIBUTE7,'
12518 || 'ATTRIBUTE8,'
12519 || 'ATTRIBUTE9,'
12520 || 'ATTRIBUTE10,'
12521 || 'ATTRIBUTE11,'
12522 || 'ATTRIBUTE12,'
12523 || 'ATTRIBUTE13,'
12524 || 'ATTRIBUTE14,'
12525 || 'ATTRIBUTE15 '
12526 || ')'
12527 ||'SELECT '
12528 || ':v_inst_rp_src_id,'
12529 || 'REPLACE(CALENDAR_CODE,:v_ascp_inst,:v_icode),'
12530 || 'CALENDAR_TYPE,'
12531 || 'YEAR,'
12532 || 'YEAR_DESCRIPTION,'
12533 || 'YEAR_START_DATE,'
12534 || 'YEAR_END_DATE,'
12535 || 'QUARTER,'
12536 || 'QUARTER_DESCRIPTION,'
12537 || 'QUARTER_START_DATE,'
12538 || 'QUARTER_END_DATE,'
12539 || 'MONTH,'
12540 || 'MONTH_DESCRIPTION,'
12541 || 'MONTH_START_DATE,'
12542 || 'MONTH_END_DATE,'
12543 || 'LAST_UPDATE_DATE,'
12544 || 'LAST_UPDATED_BY,'
12545 || 'CREATION_DATE,'
12546 || 'CREATED_BY,'
12547 || 'LAST_UPDATE_LOGIN,'
12548 || 'REQUEST_ID,'
12549 || 'PROGRAM_APPLICATION_ID,'
12550 || 'PROGRAM_ID,'
12551 || 'PROGRAM_UPDATE_DATE,'
12552 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
12553 || 'PROCESS_FLAG,'
12554 || 'BATCH_ID,'
12555 || 'ST_TRANSACTION_ID,'
12556 || 'DATA_SOURCE_TYPE,'
12557 || 'ERROR_TEXT,'
12558 || 'MESSAGE_ID,'
12559 || 'DELETED_FLAG,'
12560 || 'REFRESH_ID,'
12561 || 'ATTRIBUTE_CATEGORY,'
12562 || 'ATTRIBUTE1,'
12563 || 'ATTRIBUTE2,'
12564 || 'ATTRIBUTE3,'
12565 || 'ATTRIBUTE4,'
12566 || 'ATTRIBUTE5,'
12567 || 'ATTRIBUTE6,'
12568 || 'ATTRIBUTE7,'
12569 || 'ATTRIBUTE8,'
12570 || 'ATTRIBUTE9,'
12571 || 'ATTRIBUTE10,'
12572 || 'ATTRIBUTE11,'
12573 || 'ATTRIBUTE12,'
12574 || 'ATTRIBUTE13,'
12575 || 'ATTRIBUTE14,'
12576 || 'ATTRIBUTE15 '
12577 ||'FROM MSC_ST_CALENDAR_MONTHS'|| v_dblink
12578 ||' WHERE '
12579 ||' sr_instance_id = ' || to_char(v_src_instance_id);
12580
12581
12582 EXECUTE IMMEDIATE v_sql_stmt USING
12583 v_inst_rp_src_id
12584 ,v_ascp_inst,v_icode
12585 ,v_ascp_inst,v_icode
12586 ;
12587
12588 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
12589 COMMIT;
12590
12591 EXCEPTION
12592 WHEN OTHERS THEN
12593 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
12594 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
12595 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_CALENDAR_MONTHS');
12596 v_retcode := 2;
12597 RAISE;
12598 ELSE
12599 IF v_retcode < 2 THEN
12600 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
12601 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_CALENDAR_MONTHS');
12602 v_retcode := 1;
12603 END IF;
12604 RETURN;
12605 END IF;
12606
12607 END COPY_CALENDAR_MONTHS;
12608 PROCEDURE COPY_OPEN_PAYBACKS IS
12609
12610 BEGIN
12611
12612 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'COPY_OPEN_PAYBACKS');
12613 v_sql_stmt:=
12614 'INSERT INTO MSC_ST_OPEN_PAYBACKS ('
12615 || 'INVENTORY_ITEM_ID,'
12616 || 'SR_INSTANCE_ID,'
12617 || 'ORGANIZATION_ID,'
12618 || 'SCHEDULED_PAYBACK_DATE,'
12619 || 'QUANTITY,'
12620 || 'LENDING_PROJECT_ID,'
12621 || 'LENDING_TASK_ID,'
12622 || 'BORROW_PROJECT_ID,'
12623 || 'BORROW_TASK_ID,'
12624 || 'PLANNING_GROUP,'
12625 || 'LENDING_PROJ_PLANNING_GROUP,'
12626 || 'END_ITEM_UNIT_NUMBER,'
12627 || 'LAST_UPDATE_DATE,'
12628 || 'LAST_UPDATED_BY,'
12629 || 'CREATION_DATE,'
12630 || 'CREATED_BY,'
12631 || 'LAST_UPDATE_LOGIN,'
12632 || 'REQUEST_ID,'
12633 || 'PROGRAM_APPLICATION_ID,'
12634 || 'PROGRAM_ID,'
12635 || 'PROGRAM_UPDATE_DATE,'
12636 || 'REFRESH_ID,'
12637 || 'ATTRIBUTE1,'
12638 || 'ATTRIBUTE2,'
12639 || 'ATTRIBUTE3,'
12640 || 'ATTRIBUTE4,'
12641 || 'ATTRIBUTE5,'
12642 || 'ATTRIBUTE6,'
12643 || 'ATTRIBUTE7,'
12644 || 'ATTRIBUTE8,'
12645 || 'ATTRIBUTE9,'
12646 || 'ATTRIBUTE10,'
12647 || 'ATTRIBUTE11,'
12648 || 'ATTRIBUTE12,'
12649 || 'ATTRIBUTE13,'
12650 || 'ATTRIBUTE14,'
12651 || 'ATTRIBUTE15,'
12652 || 'SR_INSTANCE_CODE,'
12653 || 'MESSAGE_ID,'
12654 || 'PROCESS_FLAG,'
12655 || 'BATCH_ID,'
12656 || 'DATA_SOURCE_TYPE,'
12657 || 'ST_TRANSACTION_ID,'
12658 || 'ERROR_TEXT,'
12659 || 'COMMENTS '
12660 || ')'
12661 ||'SELECT '
12662 || 'INVENTORY_ITEM_ID,'
12663 || ':v_inst_rp_src_id,'
12664 || 'ORGANIZATION_ID,'
12665 || 'SCHEDULED_PAYBACK_DATE,'
12666 || 'QUANTITY,'
12667 || 'LENDING_PROJECT_ID,'
12668 || 'LENDING_TASK_ID,'
12669 || 'BORROW_PROJECT_ID,'
12670 || 'BORROW_TASK_ID,'
12671 || 'PLANNING_GROUP,'
12672 || 'LENDING_PROJ_PLANNING_GROUP,'
12673 || 'END_ITEM_UNIT_NUMBER,'
12674 || 'LAST_UPDATE_DATE,'
12675 || 'LAST_UPDATED_BY,'
12676 || 'CREATION_DATE,'
12677 || 'CREATED_BY,'
12678 || 'LAST_UPDATE_LOGIN,'
12679 || 'REQUEST_ID,'
12680 || 'PROGRAM_APPLICATION_ID,'
12681 || 'PROGRAM_ID,'
12682 || 'PROGRAM_UPDATE_DATE,'
12683 || 'REFRESH_ID,'
12684 || 'ATTRIBUTE1,'
12685 || 'ATTRIBUTE2,'
12686 || 'ATTRIBUTE3,'
12687 || 'ATTRIBUTE4,'
12688 || 'ATTRIBUTE5,'
12689 || 'ATTRIBUTE6,'
12690 || 'ATTRIBUTE7,'
12691 || 'ATTRIBUTE8,'
12692 || 'ATTRIBUTE9,'
12693 || 'ATTRIBUTE10,'
12694 || 'ATTRIBUTE11,'
12695 || 'ATTRIBUTE12,'
12696 || 'ATTRIBUTE13,'
12697 || 'ATTRIBUTE14,'
12698 || 'ATTRIBUTE15,'
12699 || 'REPLACE(SR_INSTANCE_CODE,:v_ascp_inst,:v_icode),'
12700 || 'MESSAGE_ID,'
12701 || 'PROCESS_FLAG,'
12702 || 'BATCH_ID,'
12703 || 'DATA_SOURCE_TYPE,'
12704 || 'ST_TRANSACTION_ID,'
12705 || 'ERROR_TEXT,'
12706 || 'COMMENTS '
12707 ||'FROM MSC_ST_OPEN_PAYBACKS'|| v_dblink
12708 ||' WHERE '
12709 ||' sr_instance_id = ' || to_char(v_src_instance_id);
12710
12711
12712 EXECUTE IMMEDIATE v_sql_stmt USING
12713 v_inst_rp_src_id
12714 ,v_ascp_inst,v_icode ;
12715
12716 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQL%ROWCOUNT||' row(s) copied');
12717 COMMIT;
12718
12719 EXCEPTION
12720 WHEN OTHERS THEN
12721 IF SQLCODE IN (-01653,-01650,-01562,-01683) THEN
12722 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, SQLERRM);
12723 MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR,'Error copying MSC_ST_OPEN_PAYBACKS');
12724 v_retcode := 2;
12725 RAISE;
12726 ELSE
12727 IF v_retcode < 2 THEN
12728 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
12729 MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS,'Warning copying MSC_ST_OPEN_PAYBACKS');
12730 v_retcode := 1;
12731 END IF;
12732 RETURN;
12733 END IF;
12734
12735 END COPY_OPEN_PAYBACKS;
12736 /*FUNCTION SUBMIT_COPY_REQUEST(instance_id in NUMBER
12737 ,sr_instance_id in NUMBER)
12738 RETURN BOOLEAN
12739 IS
12740 lv_request_id NUMBER;
12741 lv_timeout NUMBER := 180;
12742 BEGIN
12743 lv_request_id := FND_REQUEST.SUBMIT_REQUEST(
12744 'MSC',
12745 'MSCCPST',
12746 NULL, -- description
12747 NULL, -- start date
12748 FALSE,
12749 instance_id,
12750 sr_instance_id,
12751 lv_timeout,
12752 3 --Hardcode value for number of workers
12753 );
12754
12755 END SUBMIT_COPY_REQUEST;
12756 */
12757 END MSC_CL_COPY_STG_TBL;