[Home] [Help]
204: ELSE
205: lv_table_name := 'MRP_AP_APPS_INSTANCES';
206: END IF;
207:
208: lv_res_avail_before_sysdate := nvl(TO_NUMBER(FND_PROFILE.VAlUE('MSC_RES_AVAIL_BEFORE_SYSDAT')),1);
209:
210: IF v_instance_type <> MSC_UTIL.G_INS_OTHER THEN
211: lv_sql_stmt:= 'SELECT nvl(mar.LRD,systimestamp) , nvl(mar.LRD,sysdate)- '||lv_res_avail_before_sysdate
212: ||' FROM '||lv_table_name||lv_dblink||' mar'
930: v_pipe_mw := 'MSC_CL_MW'||TO_CHAR(pINSTANCE_ID);
931: v_pipe_status := 'MSC_CL_ST'||TO_CHAR(pINSTANCE_ID);
932:
933: v_instance_id := pINSTANCE_ID;
934: PBS := TO_NUMBER( FND_PROFILE.VALUE('MRP_PURGE_BATCH_SIZE'));
935: ---------------- Set Flags -----------------------------
936: -- set the flags as to whether discrete and/or process
937: -- manufacturing are being used in the same instance
938:
1220:
1221: ELSE
1222:
1223: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'debug2');
1224: lv_pbs:= TO_NUMBER( FND_PROFILE.VALUE('MRP_PURGE_BATCH_SIZE'));
1225: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'debug22:'||to_char(lv_pbs));
1226:
1227: IF p_plan_id IS NULL THEN
1228:
3676:
3677: p_TIMEOUT := pTIMEOUT;
3678: v_monitor_request_id := pMONITOR_REQUEST_ID;
3679:
3680: --PBS := TO_NUMBER( FND_PROFILE.VALUE('MRP_PURGE_BATCH_SIZE'));
3681:
3682: FND_MESSAGE.SET_NAME('MSC','MSC_CL_PURGE_BATCH_SIZE');
3683: FND_MESSAGE.SET_TOKEN('PBS',PBS);
3684: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, FND_MESSAGE.GET);
4150:
4151: /* CP changes start */
4152: /* Find out the MSC:Configuration profile option value. */
4153:
4154: MSC_UTIL.G_MSC_CONFIGURATION := nvl(fnd_profile.value('MSC_X_CONFIGURATION'), MSC_UTIL.G_CONF_APS);
4155:
4156: /* Put configuration related information in LOG file */
4157:
4158: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_STATUS, 'The MSC : Configuration profile option : '||MSC_UTIL.G_MSC_CONFIGURATION);
5006: END IF;
5007:
5008: IF (pPURGE_SH = MSC_UTIL.SYS_YES) THEN
5009:
5010: SELECT DECODE(nvl(FND_PROFILE.VALUE('MSC_PURGE_ST_CONTROL'),'N'),'Y',1,2)
5011: INTO lv_delete_flag
5012: FROM DUAL;
5013: -- If the above profile option is set then we are assuming that there is only one source
5014: -- So we can safely truncate the msc_sourcing_history table to improve performance
5139: OPEN c_query_package;
5140: FETCH c_query_package INTO lv_atp_package_exists;
5141: CLOSE c_query_package;
5142: /* CHECK TO SEE IF THE ATP PROFILE INV_CTP is set to 5 */
5143: SELECT nvl(fnd_profile.value('INV_CTP'),-10)
5144: INTO lv_inv_ctp
5145: FROM dual;
5146:
5147: /* CHECK TO SEE IF THE ATP PROFILE INV_CTP is set to 5 */
5144: INTO lv_inv_ctp
5145: FROM dual;
5146:
5147: /* CHECK TO SEE IF THE ATP PROFILE INV_CTP is set to 5 */
5148: SELECT decode(nvl(fnd_profile.value('MSC_ENABLE_ATP_SUMMARY'),'N'),'Y',1,2)
5149: INTO lv_MSC_ENABLE_ATP_SUMMARY
5150: FROM dual;
5151:
5152: EXCEPTION
6970: END IF;
6971:
6972: IF pPURGE_SH = MSC_UTIL.SYS_YES THEN
6973:
6974: SELECT DECODE(nvl(FND_PROFILE.VALUE('MSC_PURGE_ST_CONTROL'),'N'),'Y',1,2)
6975: INTO lv_delete_flag
6976: FROM DUAL;
6977:
6978: IF (lv_delete_flag = 2) THEN
7093: OPEN c_query_package;
7094: FETCH c_query_package INTO lv_atp_package_exists;
7095: CLOSE c_query_package;
7096: /* CHECK TO SEE IF THE ATP PROFILE INV_CTP is set to 5 */
7097: SELECT nvl(fnd_profile.value('INV_CTP'),-10)
7098: INTO lv_inv_ctp
7099: FROM dual;
7100:
7101: /* CHECK TO SEE IF THE ATP PROFILE INV_CTP is set to 5 */
7098: INTO lv_inv_ctp
7099: FROM dual;
7100:
7101: /* CHECK TO SEE IF THE ATP PROFILE INV_CTP is set to 5 */
7102: SELECT decode(nvl(fnd_profile.value('MSC_ENABLE_ATP_SUMMARY'),'N'),'Y',1,2)
7103: INTO lv_MSC_ENABLE_ATP_SUMMARY
7104: FROM dual;
7105: EXCEPTION
7106: WHEN OTHERS THEN