1: PACKAGE BODY MSC_CL_PRE_PROCESS AS -- body
2: /* $Header: MSCCLPPB.pls 120.27.12010000.5 2008/07/10 11:03:56 arusubra ship $ */
3:
4: -- ========= Global Parameters ===========
5:
275: END LOOP;
276:
277: EXCEPTION
278: when others then
279: LOG_MESSAGE('MSC_CL_PRE_PROCESS.SEND_ERROR ('||lv_pointer||'): '||SQLERRM);
280: END;
281: */
282:
283: -- WRITE_ERROR_SUMM_LOG ===========
455:
456: EXCEPTION
457:
458: WHEN OTHERS THEN
459: lv_error_text := substr('MSC_CL_PRE_PROCESS.LAUNCH_DP_PULL'||SQLERRM,1,240);
460: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
461: RETCODE := G_WARNING;
462: ERRBUF := lv_error_text;
463:
493:
494: EXCEPTION
495:
496: WHEN OTHERS THEN
497: lv_error_text := substr('MSC_CL_PRE_PROCESS.LAUNCH_DELETE_DUPLICATES'||SQLERRM,1,240);
498: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
499: RETCODE := G_WARNING;
500: ERRBUF := lv_error_text;
501:
3381: commit;
3382:
3383: EXCEPTION
3384: WHEN OTHERS THEN
3385: lv_error_text := substr('MSC_CL_PRE_PROCESS.MODEL_ORG_SUPPLIER_CUSTOMER'||'('
3386: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
3387: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
3388: ROLLBACK;
3389:
3614:
3615: RETURN(lv_status);
3616: EXCEPTION
3617: WHEN OTHERS THEN
3618: p_error_text := substr('MSC_CL_PRE_PROCESS.PROPAGATE_CAL_ERROR'
3619: ||'('||v_sql_stmt||')'|| SQLERRM, 1, 240);
3620: return(SQLCODE);
3621:
3622: END PROPAGATE_CAL_ERROR;
3786: v_instance_code;
3787: RETURN(0);
3788: EXCEPTION
3789: WHEN OTHERS THEN
3790: p_error_text := substr('MSC_CL_PRE_PROCESS.DERIVE_SHIFT_DETAILS'
3791: ||'('||v_sql_stmt||')'|| SQLERRM, 1, 240);
3792: return(SQLCODE);
3793:
3794: END derive_shift_details;
4252: RAISE ex_critical_err;
4253: END IF;
4254:
4255: --Call to customised validation.
4256: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
4257: (ERRBUF => lv_error_text,
4258: RETCODE => lv_return,
4259: pBatchID => null,
4260: pInstanceCode => v_instance_code,
4396: END IF;
4397: END IF;
4398:
4399: --Call to customised validation.
4400: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
4401: (ERRBUF => lv_error_text,
4402: RETCODE => lv_return,
4403: pBatchID => null,
4404: pInstanceCode => v_instance_code,
4638: RAISE ex_critical_err;
4639: END;
4640:
4641: --Call to customised validation.
4642: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
4643: (ERRBUF => lv_error_text,
4644: RETCODE => lv_return,
4645: pBatchID => null,
4646: pInstanceCode => v_instance_code,
4875: END IF;
4876: END IF;
4877:
4878: --Call to customised validation.
4879: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
4880: (ERRBUF => lv_error_text,
4881: RETCODE => lv_return,
4882: pBatchID => null,
4883: pInstanceCode => v_instance_code,
5131: END IF;
5132: END IF;
5133:
5134: --Call to customised validation.
5135: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
5136: (ERRBUF => lv_error_text,
5137: RETCODE => lv_return,
5138: pBatchID => null,
5139: pInstanceCode => v_instance_code,
5663: END IF;
5664:
5665: EXCEPTION
5666: WHEN too_many_rows THEN
5667: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_CALENDAR'||'('
5668: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
5669: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
5670: ROLLBACK;
5671:
5689: COMMIT;
5690: END IF;
5691:
5692: WHEN OTHERS THEN
5693: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_CALENDAR'||'('
5694: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
5695: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
5696:
5697: ROLLBACK;
5699:
5700: END LOOP;
5701: EXCEPTION
5702: WHEN OTHERS THEN
5703: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_CALENDAR'||'('
5704: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
5705: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
5706:
5707: ROLLBACK;
6063: v_instance_code;
6064:
6065:
6066: --Call to customised validation.
6067: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
6068: (ERRBUF => lv_error_text,
6069: RETCODE => lv_return,
6070: pBatchID => lv_batch_id,
6071: pInstanceCode => v_instance_code,
6164: ||' p_instance_code => :v_instance_code, '
6165: ||' p_instance_id => :v_instance_id,'
6166: ||' p_batch_id => :lv_batch_id);'
6167: ||' IF ( retcode = '||G_WARNING||') THEN'
6168: ||' MSC_CL_PRE_PROCESS.v_flag := '||SYS_YES||';'
6169: ||' END IF;'
6170: ||' END ;';
6171:
6172:
6191:
6192: ROLLBACK;
6193:
6194: WHEN OTHERS THEN
6195: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_DEMAND_CLASS '||'('
6196: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
6197: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
6198:
6199: ROLLBACK;
7461: RAISE ex_logging_err;
7462: END IF;
7463:
7464: --Call to customised validation.
7465: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
7466: (ERRBUF => lv_error_text,
7467: RETCODE => lv_return,
7468: pBatchID => lv_batch_id,
7469: pInstanceCode => v_instance_code,
8197:
8198: END IF ; -- v_install_msc
8199:
8200: --Call to customised validation.
8201: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
8202: (ERRBUF => lv_error_text,
8203: RETCODE => lv_return,
8204: pBatchID => lv_batch_id,
8205: pInstanceCode => v_instance_code,
8711: RAISE ex_logging_err;
8712: END IF;
8713:
8714: --Call to customised validation.
8715: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
8716: (ERRBUF => lv_error_text,
8717: RETCODE => lv_return,
8718: pBatchID => lv_batch_id,
8719: pInstanceCode => v_instance_code,
9224:
9225:
9226:
9227: --Call to customised validation.
9228: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
9229: (ERRBUF => lv_error_text,
9230: RETCODE => lv_return,
9231: pBatchID => lv_batch_id,
9232: pInstanceCode => v_instance_code,
9722: RAISE ex_logging_err;
9723: END IF;
9724:
9725: --Call to customised validation.
9726: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
9727: (ERRBUF => lv_error_text,
9728: RETCODE => lv_return,
9729: pBatchID => lv_batch_id,
9730: pInstanceCode => v_instance_code,
10196: END IF;
10197:
10198: --Call to customised validation.
10199:
10200: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
10201: (ERRBUF => lv_error_text,
10202: RETCODE => lv_return,
10203: pBatchID => lv_batch_id,
10204: pInstanceCode => v_instance_code,
10899: lv_batch_id;
10900:
10901: --Call to customised validation.
10902:
10903: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
10904: (ERRBUF => lv_error_text,
10905: RETCODE => lv_return,
10906: pBatchID => lv_batch_id,
10907: pInstanceCode => v_instance_code,
11081: MODEL_ORG_SUPPLIER_CUSTOMER;
11082:
11083: EXCEPTION
11084: WHEN too_many_rows THEN
11085: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_TRADING_PARTNERS '||'('
11086: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
11087: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
11088:
11089: ROLLBACK;
11093:
11094: ROLLBACK;
11095:
11096: WHEN OTHERS THEN
11097: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_TRADING_PARTNERS '||'('
11098: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
11099: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
11100:
11101: ROLLBACK;
11875: RAISE ex_logging_err;
11876: END IF;
11877:
11878: --Call to customised validation.
11879: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
11880: (ERRBUF => lv_error_text,
11881: RETCODE => lv_return,
11882: pBatchID => lv_batch_id,
11883: pInstanceCode => v_instance_code,
11919:
11920: EXCEPTION
11921:
11922: WHEN too_many_rows THEN
11923: lv_error_text := substr('MSC_CL_PRE_PROCESS.MSC_ST_CALENDAR_ASSIGNMENTS'||'('
11924: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
11925: ROLLBACK ;
11926:
11927: WHEN ex_logging_err THEN
11928: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
11929: ROLLBACK;
11930:
11931: WHEN OTHERS THEN
11932: lv_error_text := substr('MSC_CL_PRE_PROCESS.MSC_ST_CALENDAR_ASSIGNMENTS '||'('
11933: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
11934: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
11935: ROLLBACK;
11936:
12358: USING lv_batch_id,
12359: v_instance_code;
12360:
12361: --Call to customised validation.
12362: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
12363: (ERRBUF => lv_error_text,
12364: RETCODE => lv_return,
12365: pBatchID => lv_batch_id,
12366: pInstanceCode => v_instance_code,
12469: end if;
12470:
12471: EXCEPTION
12472: WHEN OTHERS THEN
12473: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_PLANNERS'||
12474: 'Error in Inserting or Updating into MSC_PLANNERS'|| SQLERRM, 1, 240);
12475: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
12476: ROLLBACK;
12477: END;
12505: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
12506: ROLLBACK;
12507:
12508: WHEN OTHERS THEN
12509: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_PLANNERS'||'('
12510: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
12511: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
12512: ROLLBACK;
12513:
13394: end if;
13395:
13396:
13397: --Call to customised validation.
13398: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
13399: (ERRBUF => lv_error_text,
13400: RETCODE => lv_return,
13401: pBatchID => lv_batch_id,
13402: pInstanceCode => v_instance_code,
13451: END LOOP;
13452:
13453: EXCEPTION
13454: WHEN too_many_rows THEN
13455: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_SHIP_METHODS'||'('
13456: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
13457: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
13458: ROLLBACK;
13459:
13461: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
13462: ROLLBACK;
13463:
13464: WHEN OTHERS THEN
13465: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_SHIP_METHODS'||'('
13466: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
13467: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
13468: ROLLBACK;
13469:
13988: v_instance_id;
13989:
13990:
13991: --Call to customised validation.
13992: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
13993: (ERRBUF => lv_error_text,
13994: RETCODE => lv_return,
13995: pBatchID => lv_batch_id,
13996: pInstanceCode => v_instance_code,
14631: v_instance_code;
14632:
14633:
14634: --Call to customised validation.
14635: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
14636: (ERRBUF => lv_error_text,
14637: RETCODE => lv_return,
14638: pBatchID => lv_batch_id,
14639: pInstanceCode => v_instance_code,
15127: v_instance_code,
15128: v_instance_id;
15129:
15130: --Call to customised validation.
15131: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
15132: (ERRBUF => lv_error_text,
15133: RETCODE => lv_return,
15134: pBatchID => lv_batch_id,
15135: pInstanceCode => v_instance_code,
15612: v_instance_id,
15613: v_instance_id;
15614:
15615: --Call to customised validation.
15616: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
15617: (ERRBUF => lv_error_text,
15618: RETCODE => lv_return,
15619: pBatchID => lv_batch_id,
15620: pInstanceCode => v_instance_code,
15697: END LOOP;
15698:
15699: EXCEPTION
15700: WHEN too_many_rows THEN
15701: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_REGIONS'||'('
15702: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
15703: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
15704: ROLLBACK;
15705:
15707: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
15708: ROLLBACK;
15709:
15710: WHEN OTHERS THEN
15711: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_REGIONS'||'('
15712: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
15713: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
15714: ROLLBACK;
15715:
16064: USING lv_batch_id,
16065: v_instance_code;
16066:
16067: --Call to customised validation.
16068: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
16069: (ERRBUF => lv_error_text,
16070: RETCODE => lv_return,
16071: pBatchID => lv_batch_id,
16072: pInstanceCode => v_instance_code,
16152: END LOOP;
16153:
16154: EXCEPTION
16155: WHEN too_many_rows THEN
16156: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_CATEGORY_SET'||'('
16157: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
16158: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
16159: ROLLBACK;
16160:
16162: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
16163: ROLLBACK;
16164:
16165: WHEN OTHERS THEN
16166: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_CATEGORY_SET'||'('
16167: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
16168: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
16169: ROLLBACK;
16170:
16522: RAISE ex_logging_err;
16523: END IF;
16524:
16525: --Call to customised validation.
16526: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
16527: (ERRBUF => lv_error_text,
16528: RETCODE => lv_return,
16529: pBatchID => lv_batch_id,
16530: pInstanceCode => v_instance_code,
16569: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
16570: ROLLBACK;
16571:
16572: WHEN OTHERS THEN
16573: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_UOM'||'('
16574: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
16575: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
16576: ROLLBACK;
16577:
17215: lv_batch_id;
17216:
17217:
17218: --Call to customised validation.
17219: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
17220: (ERRBUF => lv_error_text,
17221: RETCODE => lv_return,
17222: pBatchID => lv_batch_id,
17223: pInstanceCode => v_instance_code,
17758: USING lv_batch_id,
17759: v_instance_code;
17760:
17761: --Call to customised validation.
17762: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
17763: (ERRBUF => lv_error_text,
17764: RETCODE => lv_return,
17765: pBatchID => lv_batch_id,
17766: pInstanceCode => v_instance_code,
17806: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
17807: ROLLBACK;
17808:
17809: WHEN OTHERS THEN
17810: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_UOM_CLASS_CONV'||'('
17811: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
17812: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
17813: ROLLBACK;
17814:
18345: RAISE ex_logging_err;
18346: END IF;
18347:
18348: --Call to customised validation.
18349: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
18350: (ERRBUF => lv_error_text,
18351: RETCODE => lv_return,
18352: pBatchID => lv_batch_id,
18353: pInstanceCode => v_instance_code,
18532: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
18533: ROLLBACK;
18534:
18535: WHEN OTHERS THEN
18536: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_DESIGNATOR'||'('
18537: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
18538: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
18539: ROLLBACK;
18540:
18732: OPEN c_lock(p_batch_id) ;
18733: EXIT;
18734: EXCEPTION
18735: WHEN busy THEN
18736: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_ITEM'||'(' ||v_sql_stmt||')'|| SQLERRM, 1, 240);
18737: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
18738: dbms_lock.sleep(5);
18739: WHEN OTHERS THEN
18740: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_ITEM'||'(' ||v_sql_stmt||')'|| SQLERRM, 1, 240);
18736: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_ITEM'||'(' ||v_sql_stmt||')'|| SQLERRM, 1, 240);
18737: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
18738: dbms_lock.sleep(5);
18739: WHEN OTHERS THEN
18740: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_ITEM'||'(' ||v_sql_stmt||')'|| SQLERRM, 1, 240);
18741: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
18742:
18743: v_sql_stmt := 02;
18744: lv_sql_stmt :=
18765: OPEN c_lock_abc(p_batch_id) ;
18766: EXIT;
18767: EXCEPTION
18768: WHEN busy THEN
18769: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_ITEM'||'(' ||v_sql_stmt||')'|| SQLERRM, 1, 240);
18770: msc_st_util.log_message(lv_error_text);
18771: dbms_lock.sleep(5);
18772: WHEN OTHERS THEN
18773: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_ITEM'||'(' ||v_sql_stmt||')'|| SQLERRM, 1, 240);
18769: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_ITEM'||'(' ||v_sql_stmt||')'|| SQLERRM, 1, 240);
18770: msc_st_util.log_message(lv_error_text);
18771: dbms_lock.sleep(5);
18772: WHEN OTHERS THEN
18773: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_ITEM'||'(' ||v_sql_stmt||')'|| SQLERRM, 1, 240);
18774: msc_st_util.log_message(lv_error_text);
18775:
18776: v_sql_stmt := 03;
18777: lv_sql_stmt :=
19327: END IF ; --v_install_msc
19328:
19329: --Call to customised validation.
19330:
19331: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
19332: (ERRBUF => lv_error_text,
19333: RETCODE => lv_return,
19334: pBatchID => lv_batch_id,
19335: pInstanceCode => v_instance_code,
20734: ||' RETCODE => retcode ,'
20735: ||' p_instance_id => :v_instance_id,'
20736: ||' p_batch_id => :lv_batch_id);'
20737: ||' IF ( retcode = '||G_WARNING||') THEN'
20738: ||' MSC_CL_PRE_PROCESS.v_flag := '||SYS_YES||';'
20739: ||' END IF;'
20740: ||' END ;';
20741:
20742: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,lv_sql_stmt);
20748:
20749:
20750: EXCEPTION
20751: WHEN too_many_rows THEN
20752: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_ITEMS'||'('
20753: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
20754: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
20755: ROLLBACK;
20756: IF c_lock%ISOPEN THEN
20762: IF c_lock%ISOPEN THEN
20763: CLOSE c_lock;
20764: END IF;
20765: WHEN OTHERS THEN
20766: lv_error_text :=substr('MSC_CL_PRE_PROCESS.LOAD_ITEMS'||'('
20767: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
20768: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
20769: ROLLBACK;
20770: IF c_lock%ISOPEN THEN
21316: v_instance_code;
21317:
21318:
21319: --Call to customised validation.
21320: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
21321: (ERRBUF => lv_error_text,
21322: RETCODE => lv_return,
21323: pBatchID => lv_batch_id,
21324: pInstanceCode => v_instance_code,
21426:
21427: EXCEPTION
21428:
21429: WHEN too_many_rows THEN
21430: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_ITEM_SUBSTITUTES'||'('
21431: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
21432: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
21433: ROLLBACK;
21434:
21436: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
21437: ROLLBACK;
21438:
21439: WHEN OTHERS THEN
21440: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_ITEM_SUBSTITUTES'||'('
21441: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
21442: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
21443: ROLLBACK;
21444:
22032:
22033:
22034:
22035: --Call to customised validation.
22036: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
22037: (ERRBUF => lv_error_text,
22038: RETCODE => lv_return,
22039: pBatchID => lv_batch_id,
22040: pInstanceCode => v_instance_code,
22558: v_instance_code;
22559:
22560:
22561: --Call to customised validation.
22562: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
22563: (ERRBUF => lv_error_text,
22564: RETCODE => lv_return,
22565: pBatchID => lv_batch_id,
22566: pInstanceCode => v_instance_code,
23037: USING lv_batch_id,
23038: v_instance_code;
23039:
23040: --Call to customised validation.
23041: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
23042: (ERRBUF => lv_error_text,
23043: RETCODE => lv_return,
23044: pBatchID => lv_batch_id,
23045: pInstanceCode => v_instance_code,
23083: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
23084: ROLLBACK;
23085:
23086: WHEN OTHERS THEN
23087: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_SUPP_CAPACITY'||'('
23088: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
23089: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
23090: ROLLBACK;
23091:
23475: RAISE ex_logging_err;
23476: END IF;
23477:
23478: --Call to customised validation.
23479: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
23480: (ERRBUF => lv_error_text,
23481: RETCODE => lv_return,
23482: pBatchID => lv_batch_id,
23483: pInstanceCode => v_instance_code,
23519: END LOOP;
23520:
23521: EXCEPTION
23522: WHEN too_many_rows THEN
23523: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_SAFETY_STOCKS'||'('
23524: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
23525: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
23526: ROLLBACK;
23527:
23529: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
23530: ROLLBACK;
23531:
23532: WHEN OTHERS THEN
23533: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_SAFETY_STOCKS'||'('
23534: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
23535: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
23536: ROLLBACK;
23537:
23948: USING v_instance_code,
23949: lv_batch_id;
23950:
23951: --Call to customised validation.
23952: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
23953: (ERRBUF => lv_error_text,
23954: RETCODE => lv_return,
23955: pBatchID => lv_batch_id,
23956: pInstanceCode => v_instance_code,
24091: ||' p_instance_id => :v_instance_id,'
24092: ||' p_batch_id => :lv_batch_id ,'
24093: ||' p_link => :p_item_rollup);'
24094: ||' IF ( retcode = '||G_WARNING||') THEN'
24095: ||' MSC_CL_PRE_PROCESS.v_flag := '||SYS_YES||';'
24096: ||' END IF;'
24097: ||' END ;';
24098:
24099: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_DEBUG_1,lv_sql_stmt);
24109: END LOOP;
24110:
24111: EXCEPTION
24112: WHEN too_many_rows THEN
24113: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_CATEGORY'||'('
24114: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
24115: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
24116: ROLLBACK;
24117:
24119: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
24120: ROLLBACK;
24121:
24122: WHEN OTHERS THEN
24123: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_CATEGORY'||'('
24124: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
24125: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
24126: ROLLBACK;
24127:
24404: IF lv_return <> 0 THEN
24405: RAISE ex_logging_err;
24406: END IF;
24407: WHEN OTHERS THEN
24408: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_SOURCING_RULE'||'('
24409: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
24410: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
24411:
24412: END ;
24410: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
24411:
24412: END ;
24413: WHEN OTHERS THEN
24414: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_CATEGORY'||'('
24415: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
24416: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
24417:
24418: END;
25314: EXECUTE IMMEDIATE lv_sql_stmt USING v_instance_code,lv_batch_id;
25315:
25316: --Call to customised validation.
25317:
25318: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
25319: (ERRBUF => lv_error_text,
25320: RETCODE => lv_return,
25321: pBatchID => lv_batch_id,
25322: pInstanceCode => v_instance_code,
26091:
26092:
26093: EXCEPTION
26094: WHEN too_many_rows THEN
26095: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_SOURCING_RULES'||'('
26096: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
26097: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
26098: ROLLBACK ;
26099:
26101: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
26102: ROLLBACK;
26103:
26104: WHEN OTHERS THEN
26105: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_SOURCING_RULE'||'('
26106: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
26107: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
26108: ROLLBACK;
26109:
26564:
26565: EXECUTE IMMEDIATE lv_sql_stmt USING v_instance_code,lv_batch_id;
26566:
26567: --Call to customised validation.
26568: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
26569: (ERRBUF => lv_error_text,
26570: RETCODE => lv_return,
26571: pBatchID => lv_batch_id,
26572: pInstanceCode => v_instance_code,
26917: END LOOP;
26918:
26919: EXCEPTION
26920: WHEN too_many_rows THEN
26921: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_PROJ_TASK'||'('
26922: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
26923: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
26924: ROLLBACK ;
26925:
26927: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
26928: ROLLBACK;
26929:
26930: WHEN OTHERS THEN
26931: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_PROJ_TASK'||'('
26932: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
26933: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
26934: ROLLBACK;
26935:
27322: RAISE ex_logging_err;
27323: END IF;
27324:
27325: --Call to customised validation.
27326: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
27327: (ERRBUF => lv_error_text,
27328: RETCODE => lv_return,
27329: pBatchID => lv_batch_id,
27330: pInstanceCode => v_instance_code,
28105: EXECUTE IMMEDIATE lv_sql_stmt USING v_instance_code,lv_batch_id;
28106:
28107: --Call to customised validation.
28108:
28109: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
28110: (ERRBUF => lv_error_text,
28111: RETCODE => lv_return,
28112: pBatchID => lv_batch_id,
28113: pInstanceCode => v_instance_code,
28895:
28896:
28897: --Call to customised validation.
28898:
28899: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
28900: (ERRBUF => lv_error_text,
28901: RETCODE => lv_return,
28902: pBatchID => lv_batch_id,
28903: pInstanceCode => v_instance_code,
29482:
29483:
29484: --Call to customised validation.
29485:
29486: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
29487: (ERRBUF => lv_error_text,
29488: RETCODE => lv_return,
29489: pBatchID => lv_batch_id,
29490: pInstanceCode => v_instance_code,
29562:
29563:
29564: EXCEPTION
29565: WHEN too_many_rows THEN
29566: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_DEPT_RES'||'('
29567: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
29568: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
29569: ROLLBACK ;
29570:
29572: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
29573: ROLLBACK;
29574:
29575: WHEN OTHERS THEN
29576: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_DEPT_RES'||'('
29577: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
29578: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
29579: ROLLBACK;
29580:
29722: OPEN c_lock(p_batch_id) ;
29723: EXIT;
29724: EXCEPTION
29725: WHEN busy THEN
29726: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_SUPPLY'||'(' ||v_sql_stmt||')'|| SQLERRM, 1, 240);
29727: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
29728: dbms_lock.sleep(5);
29729: WHEN OTHERS THEN
29730: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_SUPPLY'||'(' ||v_sql_stmt||')'|| SQLERRM, 1, 240);
29726: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_SUPPLY'||'(' ||v_sql_stmt||')'|| SQLERRM, 1, 240);
29727: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
29728: dbms_lock.sleep(5);
29729: WHEN OTHERS THEN
29730: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_SUPPLY'||'(' ||v_sql_stmt||')'|| SQLERRM, 1, 240);
29731: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
29732: v_sql_stmt := 2.0;
29733: lv_sql_stmt :=
29734: 'UPDATE msc_st_supplies '
30784: USING p_batch_id,
30785: v_instance_code;
30786:
30787: --Call to customised validation.
30788: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
30789: (ERRBUF => lv_error_text,
30790: RETCODE => lv_return,
30791: pBatchID => p_batch_id,
30792: pInstanceCode => v_instance_code,
31203: COMMIT;
31204:
31205: EXCEPTION
31206: WHEN too_many_rows THEN
31207: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_SUPPLY'||'('
31208: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
31209: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
31210: ROLLBACK;
31211: IF c_lock%ISOPEN THEN
31219: CLOSE c_lock;
31220: END IF;
31221:
31222: WHEN OTHERS THEN
31223: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_SUPPLY'||'('
31224: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
31225: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
31226: ROLLBACK;
31227: IF c_lock%ISOPEN THEN
31367: OPEN c_lock(p_batch_id) ;
31368: EXIT;
31369: EXCEPTION
31370: WHEN busy THEN
31371: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_SALES_ORDER'||'('||v_sql_stmt||')'||'p_batch_id :'||p_batch_id|| SQLERRM, 1, 240);
31372: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
31373: dbms_lock.sleep(5);
31374: WHEN OTHERS THEN
31375: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_SALES_ORDER'||'('||v_sql_stmt||')'||'p_batch_id :'||p_batch_id|| SQLERRM, 1, 240);
31371: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_SALES_ORDER'||'('||v_sql_stmt||')'||'p_batch_id :'||p_batch_id|| SQLERRM, 1, 240);
31372: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
31373: dbms_lock.sleep(5);
31374: WHEN OTHERS THEN
31375: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_SALES_ORDER'||'('||v_sql_stmt||')'||'p_batch_id :'||p_batch_id|| SQLERRM, 1, 240);
31376: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
31377:
31378: v_sql_stmt := 1.1;
31379: lv_sql_stmt :=
32365: RAISE ex_logging_err;
32366: END IF;
32367:
32368: --Call to customised validation.
32369: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
32370: (ERRBUF => lv_error_text,
32371: RETCODE => lv_return,
32372: pBatchID => p_batch_id,
32373: pInstanceCode => v_instance_code,
32714: COMMIT;
32715:
32716: EXCEPTION
32717: WHEN too_many_rows THEN
32718: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_SALES_ORDER'||'('
32719: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
32720: ROLLBACK ;
32721: IF c_lock%ISOPEN THEN
32722: CLOSE c_lock;
32730: CLOSE c_lock;
32731: END IF;
32732:
32733: WHEN OTHERS THEN
32734: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_SALES_ORDER'||'('
32735: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
32736: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
32737:
32738: ROLLBACK;
33761:
33762:
33763:
33764: --Call to customised validation.
33765: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
33766: (ERRBUF => lv_error_text,
33767: RETCODE => lv_return,
33768: pBatchID => lv_batch_id,
33769: pInstanceCode => v_instance_code,
33812:
33813: EXCEPTION
33814:
33815: WHEN too_many_rows THEN
33816: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_RESRVATIONS'||'('
33817: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
33818: ROLLBACK ;
33819:
33820: WHEN ex_logging_err THEN
33822:
33823: ROLLBACK;
33824:
33825: WHEN OTHERS THEN
33826: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_RESERVATIONS '||'('
33827: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
33828: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
33829:
33830: ROLLBACK;
34804: RAISE ex_logging_err;
34805: END IF;
34806:
34807: --Call to customised validation.
34808: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
34809: (ERRBUF => lv_error_text,
34810: RETCODE => lv_return,
34811: pBatchID => p_batch_id,
34812: pInstanceCode => v_instance_code,
34997:
34998: EXCEPTION
34999:
35000: WHEN too_many_rows THEN
35001: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_MDS_FORECAST'||'('
35002: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
35003: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
35004:
35005: ROLLBACK ;
35009:
35010: ROLLBACK;
35011:
35012: WHEN OTHERS THEN
35013: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_MDS_FORECAST'||'('
35014: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
35015: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
35016:
35017: ROLLBACK;
35185:
35186:
35187: --Call to customised validation.
35188:
35189: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
35190: (ERRBUF => lv_error_text,
35191: RETCODE => lv_return,
35192: pBatchID => lv_batch_id,
35193: pInstanceCode => v_instance_code,
35216: END LOOP;
35217:
35218: EXCEPTION
35219: WHEN too_many_rows THEN
35220: lv_error_text :=substr('MSC_CL_PRE_PROCESS.LOAD_COMPANY_USERS'||'('
35221: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
35222: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
35223:
35224: ROLLBACK ;
35223:
35224: ROLLBACK ;
35225:
35226: WHEN ex_logging_err THEN
35227: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,'MSC_CL_PRE_PROCESS.LOAD_COMPANY_USERS: '||lv_error_text);
35228: ROLLBACK;
35229:
35230: WHEN OTHERS THEN
35231: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_COMPANY_USERS'||'('
35227: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,'MSC_CL_PRE_PROCESS.LOAD_COMPANY_USERS: '||lv_error_text);
35228: ROLLBACK;
35229:
35230: WHEN OTHERS THEN
35231: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_COMPANY_USERS'||'('
35232: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
35233: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
35234: ROLLBACK;
35235:
35602:
35603: EXCEPTION
35604:
35605: WHEN OTHERS THEN
35606: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_CO_PRODUCT_BOMS'||'('
35607: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
35608: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
35609: ROLLBACK;
35610:
36185: END IF;
36186:
36187: --Call to customised validation.
36188:
36189: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
36190: (ERRBUF => lv_error_text,
36191: RETCODE => lv_return,
36192: pBatchID => lv_batch_id,
36193: pInstanceCode => v_instance_code,
37259: end if;
37260:
37261: --Call to customised validation.
37262:
37263: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
37264: (ERRBUF => lv_error_text,
37265: RETCODE => lv_return,
37266: pBatchID => lv_batch_id,
37267: pInstanceCode => v_instance_code,
38015: END IF;
38016:
38017: --Call to customised validation.
38018:
38019: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
38020: (ERRBUF => lv_error_text,
38021: RETCODE => lv_return,
38022: pBatchID => lv_batch_id,
38023: pInstanceCode => v_instance_code,
38418: -- Call to customised validation.
38419: -- Note this is called prior to next validation, so that records getting
38420: -- errored out in the customised validation later otherwise donot violate this.
38421:
38422: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
38423: (ERRBUF => lv_error_text,
38424: RETCODE => lv_return,
38425: pBatchID => lv_batch_id,
38426: pInstanceCode => v_instance_code,
38647:
38648:
38649: EXCEPTION
38650: WHEN too_many_rows THEN
38651: lv_error_text :=substr('MSC_CL_PRE_PROCESS.LOAD_BOM'||'('
38652: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
38653: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
38654: ROLLBACK ;
38655:
38657: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
38658: ROLLBACK;
38659:
38660: WHEN OTHERS THEN
38661: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_BOM'||'('
38662: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
38663: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
38664: ROLLBACK;
38665:
39453: EXECUTE IMMEDIATE lv_sql_stmt USING v_instance_code,lv_batch_id;
39454:
39455: --Call to customised validation.
39456:
39457: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
39458: (ERRBUF => lv_error_text,
39459: RETCODE => lv_return,
39460: pBatchID => lv_batch_id,
39461: pInstanceCode => v_instance_code,
40296: END IF;
40297:
40298: --Call to customised validation.
40299:
40300: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
40301: (ERRBUF => lv_error_text,
40302: RETCODE => lv_return,
40303: pBatchID => lv_batch_id,
40304: pInstanceCode => v_instance_code,
41205: END IF;
41206:
41207: --Call to customised validation.
41208:
41209: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
41210: (ERRBUF => lv_error_text,
41211: RETCODE => lv_return,
41212: pBatchID => lv_batch_id,
41213: pInstanceCode => v_instance_code,
42128:
42129:
42130: --Call to customised validation.
42131:
42132: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
42133: (ERRBUF => lv_error_text,
42134: RETCODE => lv_return,
42135: pBatchID => lv_batch_id,
42136: pInstanceCode => v_instance_code,
42271:
42272:
42273: EXCEPTION
42274: WHEN too_many_rows THEN
42275: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_ROUTING'||'('
42276: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
42277: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
42278: ROLLBACK ;
42279:
42281: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
42282: ROLLBACK;
42283:
42284: WHEN OTHERS THEN
42285: lv_error_text :=substr('MSC_CL_PRE_PROCESS.LOAD_ROUTING'||'('
42286: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
42287: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
42288: ROLLBACK;
42289:
42396:
42397: EXCEPTION
42398: WHEN OTHERS THEN
42399: ROLLBACK;
42400: lv_error_text :=substr('MSC_CL_PRE_PROCESS.LOAD_PROCESS_EFFECTIVITY'||'('
42401: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
42402: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
42403:
42404: END LOAD_PROCESS_EFFECTIVITY ;
43205: v_instance_code;
43206:
43207:
43208: --Call to customised validation.
43209: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
43210: (ERRBUF => lv_error_text,
43211: RETCODE => lv_return,
43212: pBatchID => lv_batch_id,
43213: pInstanceCode => v_instance_code,
43480: COMMIT;
43481: END LOOP;
43482: EXCEPTION
43483: WHEN too_many_rows THEN
43484: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_WO_SUPPLY'||'('
43485: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
43486: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
43487: ROLLBACK;
43488:
43490: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
43491: ROLLBACK;
43492:
43493: WHEN OTHERS THEN
43494: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_WO_SUPPLY'||'('
43495: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
43496: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
43497: ROLLBACK;
43498:
44471:
44472:
44473: --Call to customised validation.
44474:
44475: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
44476: (ERRBUF => lv_error_text,
44477: RETCODE => lv_return,
44478: pBatchID => lv_batch_id,
44479: pInstanceCode => v_instance_code,
44729:
44730: EXCEPTION
44731:
44732: WHEN too_many_rows THEN
44733: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_RES_DEMAND'||'('
44734: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
44735: ROLLBACK ;
44736:
44737: WHEN ex_logging_err THEN
44738: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
44739: ROLLBACK;
44740:
44741: WHEN OTHERS THEN
44742: lv_error_text :=substr('MSC_CL_PRE_PROCESS.LOAD_RES_DEMAND'||'('
44743: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
44744: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
44745: ROLLBACK;
44746:
45671: RAISE ex_logging_err;
45672: END IF;
45673:
45674: --Call to customised validation.
45675: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
45676: (ERRBUF => lv_error_text,
45677: RETCODE => lv_return,
45678: pBatchID => lv_batch_id,
45679: pInstanceCode => v_instance_code,
45823: END LOOP ;
45824:
45825: EXCEPTION
45826: WHEN too_many_rows THEN
45827: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_WIP_DEMAND'||'('
45828: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
45829: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
45830: ROLLBACK ;
45831:
45833: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
45834: ROLLBACK;
45835:
45836: WHEN OTHERS THEN
45837: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_WIP_DEMAND'||'('
45838: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
45839: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
45840: ROLLBACK;
45841:
46698: END IF;
46699:
46700: --Call to customised validation.
46701:
46702: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
46703: (ERRBUF => lv_error_text,
46704: RETCODE => lv_return,
46705: pBatchID => lv_batch_id,
46706: pInstanceCode => v_instance_code,
47414: EXECUTE IMMEDIATE lv_sql_stmt USING v_instance_code,lv_batch_id;
47415:
47416: --Call to customised validation.
47417:
47418: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
47419: (ERRBUF => lv_error_text,
47420: RETCODE => lv_return,
47421: pBatchID => lv_batch_id,
47422: pInstanceCode => v_instance_code,
48260:
48261:
48262:
48263: --Call to customised validation.
48264: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
48265: (ERRBUF => lv_error_text,
48266: RETCODE => lv_return,
48267: pBatchID => lv_batch_id,
48268: pInstanceCode => v_instance_code,
49098:
49099:
49100: --Call to customised validation.
49101:
49102: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
49103: (ERRBUF => lv_error_text,
49104: RETCODE => lv_return,
49105: pBatchID => lv_batch_id,
49106: pInstanceCode => v_instance_code,
49147:
49148: EXCEPTION
49149:
49150: WHEN too_many_rows THEN
49151: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_JOB_DETAILS'||'('
49152: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
49153: ROLLBACK ;
49154:
49155: WHEN ex_logging_err THEN
49156: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
49157: ROLLBACK;
49158:
49159: WHEN OTHERS THEN
49160: lv_error_text :=substr('MSC_CL_PRE_PROCESS.LOAD_JOB_DETAILS'||'('
49161: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
49162: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
49163: ROLLBACK;
49164:
49288: END IF;
49289: COMMIT;
49290: EXCEPTION
49291: WHEN OTHERS THEN
49292: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_BIS_PERIODS'||'('
49293: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
49294: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
49295: ROLLBACK;
49296:
50522:
50523:
50524: -- Call the HOOK to enable the customised validations if there is any.
50525: -- Call to customised validation.
50526: MSC_CL_PRE_PROCESS_HOOK.ENTITY_VALIDATION
50527: (ERRBUF => lv_error_text,
50528: RETCODE => lv_return,
50529: pBatchID => lv_batch_id,
50530: pInstanceCode => v_instance_code,
50574: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
50575: ROLLBACK;
50576:
50577: WHEN OTHERS THEN
50578: lv_error_text := substr('MSC_CL_PRE_PROCESS.LOAD_DESIGNATOR'||'('
50579: ||v_sql_stmt||')'|| SQLERRM, 1, 240);
50580: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
50581: ROLLBACK;
50582:
50734: ROLLBACK;
50735: RETURN 0;
50736:
50737: WHEN OTHERS THEN
50738: lv_error_text := substr('MSC_CL_PRE_PROCESS.SET_IN_PROCESS- '||p_table_name||': ('||v_sql_stmt||')'|| SQLERRM, 1, 240);
50739: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
50740: ROLLBACK;
50741: RETURN 0;
50742: END SET_IN_PROCESS ;
51234: RETURN (TRUE);
51235:
51236: EXCEPTION
51237: WHEN OTHERS THEN
51238: lv_error_text := substr('MSC_CL_PRE_PROCESS.SNAPSHOT_TABLES - '|| SQLERRM, 1, 240);
51239: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_WARNING,lv_error_text);
51240: return(FALSE);
51241:
51242: END SNAPSHOT_TABLES ;
51895: END IF; --v_install_msc
51896:
51897: EXCEPTION
51898: WHEN OTHERS THEN
51899: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,substr('MSC_CL_PRE_PROCESS.LOAD_ITEM_ABC_CLASSES'||SQLERRM,1,240));
51900:
51901: END LOAD_ITEM_ABC_CLASSES;
51902: ---------------------- Till here added for the bug fix 2191021 -------------------------------------
51903:
51917: ||' p_instance_code => :v_instance_code,'
51918: ||' p_instance_id => :v_instance_id,'
51919: ||' p_batch_id => :lv_batch_id);'
51920: ||' IF ( retcode = '||G_WARNING||') THEN'
51921: ||' MSC_CL_PRE_PROCESS.v_flag := '||SYS_YES||';'
51922: ||' END IF;'
51923: ||' END ;';
51924:
51925:
51931: END IF ;
51932:
51933: EXCEPTION
51934: WHEN OTHERS THEN
51935: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,substr('MSC_CL_PRE_PROCESS.LOAD_LEVEL_VALUE'||SQLERRM,1,240));
51936:
51937: END ;
51938:
51939: PROCEDURE LOAD_LEVEL_ASSOCIATION(p_batch_id NUMBER)
51950: ||' p_instance_code => :v_instance_code,'
51951: ||' p_instance_id => :v_instance_id,'
51952: ||' p_batch_id => :lv_batch_id);'
51953: ||' IF ( retcode = '||G_WARNING||') THEN'
51954: ||' MSC_CL_PRE_PROCESS.v_flag := '||SYS_YES||';'
51955: ||' END IF;'
51956: ||' END ;';
51957:
51958:
51964: END IF ;
51965:
51966: EXCEPTION
51967: WHEN OTHERS THEN
51968: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,substr('MSC_CL_PRE_PROCESS.LOAD_LEVEL_ASSOCIATION'||SQLERRM,1,240));
51969:
51970: END ;
51971:
51972: PROCEDURE LOAD_BOOKING_DATA (p_batch_id NUMBER )
51983: ||' p_instance_code => :v_instance_code,'
51984: ||' p_instance_id => :v_instance_id,'
51985: ||' p_batch_id => :lv_batch_id);'
51986: ||' IF ( retcode = '||G_WARNING||') THEN'
51987: ||' MSC_CL_PRE_PROCESS.v_flag := '||SYS_YES||';'
51988: ||' END IF;'
51989: ||' END ;';
51990:
51991:
51997: END IF ;
51998:
51999: EXCEPTION
52000: WHEN OTHERS THEN
52001: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,substr('MSC_CL_PRE_PROCESS.LOAD_BOOKING_DATA'||SQLERRM,1,240));
52002:
52003: END ;
52004:
52005: PROCEDURE LOAD_SHIPMENT_DATA (p_batch_id NUMBER )
52016: ||' p_instance_code => :v_instance_code,'
52017: ||' p_instance_id => :v_instance_id,'
52018: ||' p_batch_id => :lv_batch_id);'
52019: ||' IF ( retcode = '||G_WARNING||') THEN'
52020: ||' MSC_CL_PRE_PROCESS.v_flag := '||SYS_YES||';'
52021: ||' END IF;'
52022: ||' END ;';
52023:
52024:
52030: END IF ;
52031:
52032: EXCEPTION
52033: WHEN OTHERS THEN
52034: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,substr('MSC_CL_PRE_PROCESS.LOAD_SHIPMENT_DATA'||SQLERRM,1,240));
52035:
52036: END ;
52037:
52038: PROCEDURE LOAD_MFG_FORECAST (p_batch_id NUMBER )
52049: ||' p_instance_code => :v_instance_code,'
52050: ||' p_instance_id => :v_instance_id,'
52051: ||' p_batch_id => :lv_batch_id);'
52052: ||' IF ( retcode = '||G_WARNING||') THEN'
52053: ||' MSC_CL_PRE_PROCESS.v_flag := '||SYS_YES||';'
52054: ||' END IF;'
52055: ||' END ;';
52056:
52057:
52063: END IF ;
52064:
52065: EXCEPTION
52066: WHEN OTHERS THEN
52067: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,substr('MSC_CL_PRE_PROCESS.LOAD_MFG_FORECAST'||SQLERRM,1,240));
52068:
52069: END ;
52070:
52071: PROCEDURE LOAD_PRICE_LIST (p_batch_id NUMBER )
52082: ||' p_instance_code => :v_instance_code,'
52083: ||' p_instance_id => :v_instance_id,'
52084: ||' p_batch_id => :lv_batch_id);'
52085: ||' IF ( retcode = '||G_WARNING||') THEN'
52086: ||' MSC_CL_PRE_PROCESS.v_flag := '||SYS_YES||';'
52087: ||' END IF;'
52088: ||' END ;';
52089:
52090:
52096: END IF ;
52097:
52098: EXCEPTION
52099: WHEN OTHERS THEN
52100: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,substr('MSC_CL_PRE_PROCESS.LOAD_PRICE_LIST'||SQLERRM,1,240));
52101:
52102: END ;
52103: /*
52104: PROCEDURE LOAD_ITEM_LIST_PRICE(p_batch_id NUMBER )
52126: END IF ;
52127:
52128: EXCEPTION
52129: WHEN OTHERS THEN
52130: msc_st_util.log_message(substr('MSC_CL_PRE_PROCESS.LOAD_ITEM_LIST_PRICE'||SQLERRM,1,240));
52131:
52132: END ;
52133: */
52134:
52146: ||' p_instance_code => :v_instance_code,'
52147: ||' p_instance_id => :v_instance_id,'
52148: ||' p_batch_id => :lv_batch_id);'
52149: ||' IF ( retcode = '||G_WARNING||') THEN'
52150: ||' MSC_CL_PRE_PROCESS.v_flag := '||SYS_YES||';'
52151: ||' END IF;'
52152: ||' END ;';
52153:
52154:
52160: END IF ;
52161:
52162: EXCEPTION
52163: WHEN OTHERS THEN
52164: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,substr('MSC_CL_PRE_PROCESS.LOAD_CS_DATA'||SQLERRM,1,240));
52165:
52166: END ;
52167:
52168: PROCEDURE LOAD_CURR_CONV (p_batch_id NUMBER )
52179: ||' p_instance_code => :v_instance_code,'
52180: ||' p_instance_id => :v_instance_id,'
52181: ||' p_batch_id => :lv_batch_id);'
52182: ||' IF ( retcode = '||G_WARNING||') THEN'
52183: ||' MSC_CL_PRE_PROCESS.v_flag := '||SYS_YES||';'
52184: ||' END IF;'
52185: ||' END ;';
52186:
52187:
52194: END IF ;
52195:
52196: EXCEPTION
52197: WHEN OTHERS THEN
52198: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,substr('MSC_CL_PRE_PROCESS.LOAD_CURR_CONV'||SQLERRM,1,240));
52199:
52200: END ;
52201:
52202: PROCEDURE LOAD_UOM_CONV (p_batch_id NUMBER )
52213: ||' p_instance_code => :v_instance_code,'
52214: ||' p_instance_id => :v_instance_id,'
52215: ||' p_batch_id => :lv_batch_id);'
52216: ||' IF ( retcode = '||G_WARNING||') THEN'
52217: ||' MSC_CL_PRE_PROCESS.v_flag := '||SYS_YES||';'
52218: ||' END IF;'
52219: ||' END ;';
52220:
52221:
52228: END IF ;
52229:
52230: EXCEPTION
52231: WHEN OTHERS THEN
52232: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,substr('MSC_CL_PRE_PROCESS.LOAD_UOM_CONV'||SQLERRM,1,240));
52233:
52234: END ;
52235:
52236: PROCEDURE LOAD_FISCAL_TIME
52246: ||' RETCODE => retcode ,'
52247: ||' p_instance_code => :v_instance_code,'
52248: ||' p_instance_id => :v_instance_id );'
52249: ||' IF ( retcode = '||G_WARNING||') THEN'
52250: ||' MSC_CL_PRE_PROCESS.v_flag := '||SYS_YES||';'
52251: ||' END IF;'
52252: ||' END ;';
52253:
52254:
52260: END IF ;
52261:
52262: EXCEPTION
52263: WHEN OTHERS THEN
52264: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,substr('MSC_CL_PRE_PROCESS.LOAD_FISCAL_TIME'||SQLERRM,1,240));
52265:
52266: END ;
52267:
52268:
52279: ||' RETCODE => retcode ,'
52280: ||' p_instance_code => :v_instance_code,'
52281: ||' p_instance_id => :v_instance_id );'
52282: ||' IF ( retcode = '||G_WARNING||') THEN'
52283: ||' MSC_CL_PRE_PROCESS.v_flag := '||SYS_YES||';'
52284: ||' END IF;'
52285: ||' END ;';
52286:
52287:
52293: END IF ;
52294:
52295: EXCEPTION
52296: WHEN OTHERS THEN
52297: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,substr('MSC_CL_PRE_PROCESS.LOAD_COMPOSITE_TIME'||SQLERRM,1,240));
52298:
52299: END ;
52300:
52301:
52312: ||' RETCODE => retcode ,'
52313: ||' p_instance_code => :v_instance_code,'
52314: ||' p_instance_id => :v_instance_id );'
52315: ||' IF ( retcode = '||G_WARNING||') THEN'
52316: ||' MSC_CL_PRE_PROCESS.v_flag := '||SYS_YES||';'
52317: ||' END IF;'
52318: ||' END ;';
52319:
52320:
52326: END IF ;
52327:
52328: EXCEPTION
52329: WHEN OTHERS THEN
52330: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,substr('MSC_CL_PRE_PROCESS.LOAD_SETUP_PARAMETER'||SQLERRM,1,240));
52331:
52332: END ;
52333:
52334: PROCEDURE LOAD_MFG_TIME
52371: END IF ; -- v_install_msd
52372:
52373: EXCEPTION
52374: WHEN OTHERS THEN
52375: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,substr('MSC_CL_PRE_PROCESS.LOAD_MFG_TIME'||SQLERRM,1,240));
52376:
52377: END ;
52378:
52379: -- Load Profiles
52576: COMMIT;
52577:
52578: EXCEPTION
52579: WHEN OTHERS THEN
52580: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS,substr('MSC_CL_PRE_PROCESS.LOAD_PROFILES'||SQLERRM,1,240));
52581:
52582: END LOAD_PROFILES;
52583:
52584:
54673: COMMIT;
54674:
54675: END LAUNCH_MONITOR;
54676:
54677: END MSC_CL_PRE_PROCESS;