[Home] [Help]
196: ELSE
197: lv_table_name := 'MRP_AP_APPS_INSTANCES';
198: END IF;
199:
200: lv_res_avail_before_sysdate := nvl(TO_NUMBER(FND_PROFILE.VAlUE('MSC_RES_AVAIL_BEFORE_SYSDAT')),1);
201:
202: IF v_instance_type <> MSC_UTIL.G_INS_OTHER THEN
203: lv_sql_stmt:= 'SELECT nvl(mar.LRD,sysdate)- '||lv_res_avail_before_sysdate
204: ||' FROM '||lv_table_name||lv_dblink||' mar'
922: v_pipe_mw := 'MSC_CL_MW'||TO_CHAR(pINSTANCE_ID);
923: v_pipe_status := 'MSC_CL_ST'||TO_CHAR(pINSTANCE_ID);
924:
925: v_instance_id := pINSTANCE_ID;
926: PBS := TO_NUMBER( FND_PROFILE.VALUE('MRP_PURGE_BATCH_SIZE'));
927: ---------------- Set Flags -----------------------------
928: -- set the flags as to whether discrete and/or process
929: -- manufacturing are being used in the same instance
930:
1202:
1203: ELSE
1204:
1205: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'debug2');
1206: lv_pbs:= TO_NUMBER( FND_PROFILE.VALUE('MRP_PURGE_BATCH_SIZE'));
1207: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'debug22:'||to_char(lv_pbs));
1208:
1209: IF p_plan_id IS NULL THEN
1210:
3079:
3080: p_TIMEOUT := pTIMEOUT;
3081: v_monitor_request_id := pMONITOR_REQUEST_ID;
3082:
3083: --PBS := TO_NUMBER( FND_PROFILE.VALUE('MRP_PURGE_BATCH_SIZE'));
3084:
3085: FND_MESSAGE.SET_NAME('MSC','MSC_CL_PURGE_BATCH_SIZE');
3086: FND_MESSAGE.SET_TOKEN('PBS',PBS);
3087: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
3549:
3550: /* CP changes start */
3551: /* Find out the MSC:Configuration profile option value. */
3552:
3553: MSC_UTIL.G_MSC_CONFIGURATION := nvl(fnd_profile.value('MSC_X_CONFIGURATION'), MSC_UTIL.G_CONF_APS);
3554:
3555: /* Put configuration related information in LOG file */
3556:
3557: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'The MSC : Configuration profile option : '||MSC_UTIL.G_MSC_CONFIGURATION);
4352: END IF;
4353:
4354: IF (pPURGE_SH = MSC_UTIL.SYS_YES) THEN
4355:
4356: SELECT DECODE(nvl(FND_PROFILE.VALUE('MSC_PURGE_ST_CONTROL'),'N'),'Y',1,2)
4357: INTO lv_delete_flag
4358: FROM DUAL;
4359: -- If the above profile option is set then we are assuming that there is only one source
4360: -- So we can safely truncate the msc_sourcing_history table to improve performance
4485: OPEN c_query_package;
4486: FETCH c_query_package INTO lv_atp_package_exists;
4487: CLOSE c_query_package;
4488: /* CHECK TO SEE IF THE ATP PROFILE INV_CTP is set to 5 */
4489: SELECT nvl(fnd_profile.value('INV_CTP'),-10)
4490: INTO lv_inv_ctp
4491: FROM dual;
4492:
4493: /* CHECK TO SEE IF THE ATP PROFILE INV_CTP is set to 5 */
4490: INTO lv_inv_ctp
4491: FROM dual;
4492:
4493: /* CHECK TO SEE IF THE ATP PROFILE INV_CTP is set to 5 */
4494: SELECT decode(nvl(fnd_profile.value('MSC_ENABLE_ATP_SUMMARY'),'N'),'Y',1,2)
4495: INTO lv_MSC_ENABLE_ATP_SUMMARY
4496: FROM dual;
4497:
4498: EXCEPTION
6134: END IF;
6135:
6136: IF pPURGE_SH = MSC_UTIL.SYS_YES THEN
6137:
6138: SELECT DECODE(nvl(FND_PROFILE.VALUE('MSC_PURGE_ST_CONTROL'),'N'),'Y',1,2)
6139: INTO lv_delete_flag
6140: FROM DUAL;
6141:
6142: IF (lv_delete_flag = 2) THEN
6256: OPEN c_query_package;
6257: FETCH c_query_package INTO lv_atp_package_exists;
6258: CLOSE c_query_package;
6259: /* CHECK TO SEE IF THE ATP PROFILE INV_CTP is set to 5 */
6260: SELECT nvl(fnd_profile.value('INV_CTP'),-10)
6261: INTO lv_inv_ctp
6262: FROM dual;
6263:
6264: /* CHECK TO SEE IF THE ATP PROFILE INV_CTP is set to 5 */
6261: INTO lv_inv_ctp
6262: FROM dual;
6263:
6264: /* CHECK TO SEE IF THE ATP PROFILE INV_CTP is set to 5 */
6265: SELECT decode(nvl(fnd_profile.value('MSC_ENABLE_ATP_SUMMARY'),'N'),'Y',1,2)
6266: INTO lv_MSC_ENABLE_ATP_SUMMARY
6267: FROM dual;
6268: EXCEPTION
6269: WHEN OTHERS THEN