258: (pSUPPLIER_SITE_ID IS NOT NULL) OR
259: (pHORIZON_START_DATE IS NOT NULL) OR
260: (pHORIZON_END_DATE IS NOT NULL) THEN
261:
262: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INCONSISTENT_DATA');
263: FND_MESSAGE.SET_TOKEN('DESIGNATOR', pDESIGNATOR);
264: FND_MESSAGE.SET_TOKEN('PREVIOUS_PLAN_RUN_DATE', to_char(lv_previous_plan_start_date));
265: FND_MESSAGE.SET_TOKEN('CURRENT_PLAN_RUN_DATE', to_char(c_rec.plan_start_date));
266:
259: (pHORIZON_START_DATE IS NOT NULL) OR
260: (pHORIZON_END_DATE IS NOT NULL) THEN
261:
262: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INCONSISTENT_DATA');
263: FND_MESSAGE.SET_TOKEN('DESIGNATOR', pDESIGNATOR);
264: FND_MESSAGE.SET_TOKEN('PREVIOUS_PLAN_RUN_DATE', to_char(lv_previous_plan_start_date));
265: FND_MESSAGE.SET_TOKEN('CURRENT_PLAN_RUN_DATE', to_char(c_rec.plan_start_date));
266:
267: v_retcode := G_WARNING;
260: (pHORIZON_END_DATE IS NOT NULL) THEN
261:
262: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INCONSISTENT_DATA');
263: FND_MESSAGE.SET_TOKEN('DESIGNATOR', pDESIGNATOR);
264: FND_MESSAGE.SET_TOKEN('PREVIOUS_PLAN_RUN_DATE', to_char(lv_previous_plan_start_date));
265: FND_MESSAGE.SET_TOKEN('CURRENT_PLAN_RUN_DATE', to_char(c_rec.plan_start_date));
266:
267: v_retcode := G_WARNING;
268: LOG_MESSAGE('------------------------------------------------------------------------');
261:
262: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INCONSISTENT_DATA');
263: FND_MESSAGE.SET_TOKEN('DESIGNATOR', pDESIGNATOR);
264: FND_MESSAGE.SET_TOKEN('PREVIOUS_PLAN_RUN_DATE', to_char(lv_previous_plan_start_date));
265: FND_MESSAGE.SET_TOKEN('CURRENT_PLAN_RUN_DATE', to_char(c_rec.plan_start_date));
266:
267: v_retcode := G_WARNING;
268: LOG_MESSAGE('------------------------------------------------------------------------');
269: LOG_MESSAGE(FND_MESSAGE.GET);
265: FND_MESSAGE.SET_TOKEN('CURRENT_PLAN_RUN_DATE', to_char(c_rec.plan_start_date));
266:
267: v_retcode := G_WARNING;
268: LOG_MESSAGE('------------------------------------------------------------------------');
269: LOG_MESSAGE(FND_MESSAGE.GET);
270: LOG_MESSAGE('------------------------------------------------------------------------');
271:
272: END IF;
273:
891: WHEN NO_DATA_FOUND THEN
892:
893: RETCODE := G_ERROR;
894:
895: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
896: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
897: ERRBUF:= FND_MESSAGE.GET;
898:
899: RETURN;
892:
893: RETCODE := G_ERROR;
894:
895: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
896: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
897: ERRBUF:= FND_MESSAGE.GET;
898:
899: RETURN;
900:
893: RETCODE := G_ERROR;
894:
895: FND_MESSAGE.SET_NAME('MSC', 'MSC_DP_INVALID_INSTANCE_ID');
896: FND_MESSAGE.SET_TOKEN('INSTANCE_ID', pINSTANCE_ID);
897: ERRBUF:= FND_MESSAGE.GET;
898:
899: RETURN;
900:
901: WHEN OTHERS THEN
972:
973: EXECUTE IMMEDIATE lv_sql_stmt USING pDESIGNATOR,pINSTANCE_ID, pBUY_ORDERS_ONLY;
974:
975: ELSE
976: fnd_message.set_name ('MSC', 'MSC_BUYORDER_NOT_FOUND');
977: fnd_message.set_token ('PLAN_NAME', pDESIGNATOR);
978: LOG_MESSAGE(fnd_message.get);
979: END IF;
980: END LOOP;
973: EXECUTE IMMEDIATE lv_sql_stmt USING pDESIGNATOR,pINSTANCE_ID, pBUY_ORDERS_ONLY;
974:
975: ELSE
976: fnd_message.set_name ('MSC', 'MSC_BUYORDER_NOT_FOUND');
977: fnd_message.set_token ('PLAN_NAME', pDESIGNATOR);
978: LOG_MESSAGE(fnd_message.get);
979: END IF;
980: END LOOP;
981:
974:
975: ELSE
976: fnd_message.set_name ('MSC', 'MSC_BUYORDER_NOT_FOUND');
977: fnd_message.set_token ('PLAN_NAME', pDESIGNATOR);
978: LOG_MESSAGE(fnd_message.get);
979: END IF;
980: END LOOP;
981:
982: RAISE A2A_EXCEPTION;