796: ---- dbms_output.put_line('Finding reason of autoschedule failure');
797: -- Find the reason why the autoschedule did not build
798: IF NVL(P_autoschedule_flag,'N') = 'Y' THEN
799: IF (C_SINGLE_ORG_WB_BP_NOTPROV%ROWCOUNT = 0 ) THEN
800: fnd_message.set_name('CHV','CHV_AUTOSCHEDULE_FAILED');
801: x_str := fnd_message.get;
802: ---- dbms_output.put_line(x_str);
803: x_str := null;
804: IF p_planner_code IS NOT NULL THEN
797: -- Find the reason why the autoschedule did not build
798: IF NVL(P_autoschedule_flag,'N') = 'Y' THEN
799: IF (C_SINGLE_ORG_WB_BP_NOTPROV%ROWCOUNT = 0 ) THEN
800: fnd_message.set_name('CHV','CHV_AUTOSCHEDULE_FAILED');
801: x_str := fnd_message.get;
802: ---- dbms_output.put_line(x_str);
803: x_str := null;
804: IF p_planner_code IS NOT NULL THEN
805: BEGIN
809: AND mpl.organization_id = x_organization_id
810: AND nvl(mpl.disable_date,sysdate +1 ) > sysdate;
811: EXCEPTION
812: WHEN NO_DATA_FOUND THEN
813: fnd_message.set_name('CHV','CHV_PLANNER_NOT_ACTIVE');
814: x_str := fnd_message.get;
815: ---- dbms_output.put_line(x_str);
816: x_str := null;
817: END;
810: AND nvl(mpl.disable_date,sysdate +1 ) > sysdate;
811: EXCEPTION
812: WHEN NO_DATA_FOUND THEN
813: fnd_message.set_name('CHV','CHV_PLANNER_NOT_ACTIVE');
814: x_str := fnd_message.get;
815: ---- dbms_output.put_line(x_str);
816: x_str := null;
817: END;
818: END IF;
825: AND msi.organization_id = x_organization_id
826: AND msi.buyer_id = p_buyer_id;
827: EXCEPTION
828: WHEN NO_DATA_FOUND THEN
829: fnd_message.set_name('CHV','CHV_BUYER_NOT_ACTIVE');
830: x_str := fnd_message.get;
831: ---- dbms_output.put_line(x_str);
832: x_str := null;
833: END;
826: AND msi.buyer_id = p_buyer_id;
827: EXCEPTION
828: WHEN NO_DATA_FOUND THEN
829: fnd_message.set_name('CHV','CHV_BUYER_NOT_ACTIVE');
830: x_str := fnd_message.get;
831: ---- dbms_output.put_line(x_str);
832: x_str := null;
833: END;
834: END IF;
863: x_dummy_num2;
864: EXIT WHEN (C_CHECK_ORG%NOTFOUND OR C_CHECK_ORG%ROWCOUNT > 1);
865: END LOOP;
866: IF C_CHECK_ORG%ROWCOUNT = 0 THEN
867: fnd_message.set_name('CHV','CHV_NO_ASL_FOR_ORG');
868: FND_MESSAGE.SET_TOKEN('ORG',x_organization_name);
869: x_str := fnd_message.get;
870: ---- dbms_output.put_line(x_str);
871: x_str := null;
864: EXIT WHEN (C_CHECK_ORG%NOTFOUND OR C_CHECK_ORG%ROWCOUNT > 1);
865: END LOOP;
866: IF C_CHECK_ORG%ROWCOUNT = 0 THEN
867: fnd_message.set_name('CHV','CHV_NO_ASL_FOR_ORG');
868: FND_MESSAGE.SET_TOKEN('ORG',x_organization_name);
869: x_str := fnd_message.get;
870: ---- dbms_output.put_line(x_str);
871: x_str := null;
872: END IF;
865: END LOOP;
866: IF C_CHECK_ORG%ROWCOUNT = 0 THEN
867: fnd_message.set_name('CHV','CHV_NO_ASL_FOR_ORG');
868: FND_MESSAGE.SET_TOKEN('ORG',x_organization_name);
869: x_str := fnd_message.get;
870: ---- dbms_output.put_line(x_str);
871: x_str := null;
872: END IF;
873: CLOSE C_CHECK_ORG;
881: x_dummy_num2;
882: EXIT WHEN (C_CHECK_V_VS%NOTFOUND OR C_CHECK_V_VS%ROWCOUNT > 1);
883: END LOOP;
884: IF C_CHECK_V_VS%ROWCOUNT = 0 THEN
885: fnd_message.set_name('CHV','CHV_NO_ASL_FOR_SUPPLIER');
886: FND_MESSAGE.SET_TOKEN('VENDOR',x_vendor_name);
887: FND_MESSAGE.SET_TOKEN('VENDORSITE',x_vendor_code);
888: x_str := fnd_message.get;
889: ---- dbms_output.put_line(x_str);
882: EXIT WHEN (C_CHECK_V_VS%NOTFOUND OR C_CHECK_V_VS%ROWCOUNT > 1);
883: END LOOP;
884: IF C_CHECK_V_VS%ROWCOUNT = 0 THEN
885: fnd_message.set_name('CHV','CHV_NO_ASL_FOR_SUPPLIER');
886: FND_MESSAGE.SET_TOKEN('VENDOR',x_vendor_name);
887: FND_MESSAGE.SET_TOKEN('VENDORSITE',x_vendor_code);
888: x_str := fnd_message.get;
889: ---- dbms_output.put_line(x_str);
890: END IF;
883: END LOOP;
884: IF C_CHECK_V_VS%ROWCOUNT = 0 THEN
885: fnd_message.set_name('CHV','CHV_NO_ASL_FOR_SUPPLIER');
886: FND_MESSAGE.SET_TOKEN('VENDOR',x_vendor_name);
887: FND_MESSAGE.SET_TOKEN('VENDORSITE',x_vendor_code);
888: x_str := fnd_message.get;
889: ---- dbms_output.put_line(x_str);
890: END IF;
891: CLOSE C_CHECK_V_VS;
884: IF C_CHECK_V_VS%ROWCOUNT = 0 THEN
885: fnd_message.set_name('CHV','CHV_NO_ASL_FOR_SUPPLIER');
886: FND_MESSAGE.SET_TOKEN('VENDOR',x_vendor_name);
887: FND_MESSAGE.SET_TOKEN('VENDORSITE',x_vendor_code);
888: x_str := fnd_message.get;
889: ---- dbms_output.put_line(x_str);
890: END IF;
891: CLOSE C_CHECK_V_VS;
892:
899: x_dummy_num2;
900: EXIT WHEN (C_CHECK_V_VS_ITEM%NOTFOUND OR C_CHECK_V_VS_ITEM%ROWCOUNT > 1);
901: END LOOP;
902: IF C_CHECK_V_VS_ITEM%ROWCOUNT = 0 THEN
903: fnd_message.set_name('CHV','CHV_NO_ASL_FOR_ITEM');
904: FND_MESSAGE.SET_TOKEN('ITEM',x_item_desc);
905: x_str := fnd_message.get;
906: ---- dbms_output.put_line(x_str);
907: END IF;
900: EXIT WHEN (C_CHECK_V_VS_ITEM%NOTFOUND OR C_CHECK_V_VS_ITEM%ROWCOUNT > 1);
901: END LOOP;
902: IF C_CHECK_V_VS_ITEM%ROWCOUNT = 0 THEN
903: fnd_message.set_name('CHV','CHV_NO_ASL_FOR_ITEM');
904: FND_MESSAGE.SET_TOKEN('ITEM',x_item_desc);
905: x_str := fnd_message.get;
906: ---- dbms_output.put_line(x_str);
907: END IF;
908: CLOSE C_CHECK_V_VS_ITEM;
901: END LOOP;
902: IF C_CHECK_V_VS_ITEM%ROWCOUNT = 0 THEN
903: fnd_message.set_name('CHV','CHV_NO_ASL_FOR_ITEM');
904: FND_MESSAGE.SET_TOKEN('ITEM',x_item_desc);
905: x_str := fnd_message.get;
906: ---- dbms_output.put_line(x_str);
907: END IF;
908: CLOSE C_CHECK_V_VS_ITEM;
909:
917: EXIT WHEN (C_CHECK_V_VS_ST_FLAG%NOTFOUND OR C_CHECK_V_VS_ST_FLAG%ROWCOUNT > 1);
918: END LOOP;
919: IF C_CHECK_V_VS_ST_FLAG%ROWCOUNT = 0 THEN
920: IF p_schedule_type = 'PLAN_SCHEDULE' THEN
921: fnd_message.set_name('CHV','CHV_NO_PLANNING_FLAG');
922: FND_MESSAGE.SET_TOKEN('ITEM',x_item_desc);
923: x_str := fnd_message.get;
924: ---- dbms_output.put_line(x_str);
925: ELSE
918: END LOOP;
919: IF C_CHECK_V_VS_ST_FLAG%ROWCOUNT = 0 THEN
920: IF p_schedule_type = 'PLAN_SCHEDULE' THEN
921: fnd_message.set_name('CHV','CHV_NO_PLANNING_FLAG');
922: FND_MESSAGE.SET_TOKEN('ITEM',x_item_desc);
923: x_str := fnd_message.get;
924: ---- dbms_output.put_line(x_str);
925: ELSE
926: fnd_message.set_name('CHV','CHV_NO_SHIPPING_FLAG');
919: IF C_CHECK_V_VS_ST_FLAG%ROWCOUNT = 0 THEN
920: IF p_schedule_type = 'PLAN_SCHEDULE' THEN
921: fnd_message.set_name('CHV','CHV_NO_PLANNING_FLAG');
922: FND_MESSAGE.SET_TOKEN('ITEM',x_item_desc);
923: x_str := fnd_message.get;
924: ---- dbms_output.put_line(x_str);
925: ELSE
926: fnd_message.set_name('CHV','CHV_NO_SHIPPING_FLAG');
927: FND_MESSAGE.SET_TOKEN('ITEM',x_item_desc);
922: FND_MESSAGE.SET_TOKEN('ITEM',x_item_desc);
923: x_str := fnd_message.get;
924: ---- dbms_output.put_line(x_str);
925: ELSE
926: fnd_message.set_name('CHV','CHV_NO_SHIPPING_FLAG');
927: FND_MESSAGE.SET_TOKEN('ITEM',x_item_desc);
928: x_str := fnd_message.get;
929: ---- dbms_output.put_line(x_str);
930: END IF;
923: x_str := fnd_message.get;
924: ---- dbms_output.put_line(x_str);
925: ELSE
926: fnd_message.set_name('CHV','CHV_NO_SHIPPING_FLAG');
927: FND_MESSAGE.SET_TOKEN('ITEM',x_item_desc);
928: x_str := fnd_message.get;
929: ---- dbms_output.put_line(x_str);
930: END IF;
931: END IF;
924: ---- dbms_output.put_line(x_str);
925: ELSE
926: fnd_message.set_name('CHV','CHV_NO_SHIPPING_FLAG');
927: FND_MESSAGE.SET_TOKEN('ITEM',x_item_desc);
928: x_str := fnd_message.get;
929: ---- dbms_output.put_line(x_str);
930: END IF;
931: END IF;
932: CLOSE C_CHECK_V_VS_ST_FLAG;
940: x_dummy_num2;
941: EXIT WHEN (C_CHECK_V_VS_AS_FLAG%NOTFOUND OR C_CHECK_V_VS_AS_FLAG%ROWCOUNT > 1);
942: END LOOP;
943: IF C_CHECK_V_VS_AS_FLAG%ROWCOUNT = 0 THEN
944: fnd_message.set_name('CHV','CHV_AUTOSCHED_FLAG_NOT_SET');
945: FND_MESSAGE.SET_TOKEN('ITEM',x_item_desc);
946: x_str := fnd_message.get;
947: ---- dbms_output.put_line(x_str);
948: ELSE
941: EXIT WHEN (C_CHECK_V_VS_AS_FLAG%NOTFOUND OR C_CHECK_V_VS_AS_FLAG%ROWCOUNT > 1);
942: END LOOP;
943: IF C_CHECK_V_VS_AS_FLAG%ROWCOUNT = 0 THEN
944: fnd_message.set_name('CHV','CHV_AUTOSCHED_FLAG_NOT_SET');
945: FND_MESSAGE.SET_TOKEN('ITEM',x_item_desc);
946: x_str := fnd_message.get;
947: ---- dbms_output.put_line(x_str);
948: ELSE
949: -- Check if Bucket Pattern Active
942: END LOOP;
943: IF C_CHECK_V_VS_AS_FLAG%ROWCOUNT = 0 THEN
944: fnd_message.set_name('CHV','CHV_AUTOSCHED_FLAG_NOT_SET');
945: FND_MESSAGE.SET_TOKEN('ITEM',x_item_desc);
946: x_str := fnd_message.get;
947: ---- dbms_output.put_line(x_str);
948: ELSE
949: -- Check if Bucket Pattern Active
950:
955: x_dummy_num2;
956: EXIT WHEN (C_CHECK_BP%NOTFOUND OR C_CHECK_BP%ROWCOUNT > 1);
957: END LOOP;
958: IF C_CHECK_BP%ROWCOUNT = 0 THEN
959: fnd_message.set_name('CHV','CHV_BUCKET_PATTERN_DISABLED');
960: FND_MESSAGE.SET_TOKEN('ITEM',x_item_desc);
961: x_str := fnd_message.get;
962: ---- dbms_output.put_line(x_str);
963: END IF;
956: EXIT WHEN (C_CHECK_BP%NOTFOUND OR C_CHECK_BP%ROWCOUNT > 1);
957: END LOOP;
958: IF C_CHECK_BP%ROWCOUNT = 0 THEN
959: fnd_message.set_name('CHV','CHV_BUCKET_PATTERN_DISABLED');
960: FND_MESSAGE.SET_TOKEN('ITEM',x_item_desc);
961: x_str := fnd_message.get;
962: ---- dbms_output.put_line(x_str);
963: END IF;
964: CLOSE C_CHECK_BP;
957: END LOOP;
958: IF C_CHECK_BP%ROWCOUNT = 0 THEN
959: fnd_message.set_name('CHV','CHV_BUCKET_PATTERN_DISABLED');
960: FND_MESSAGE.SET_TOKEN('ITEM',x_item_desc);
961: x_str := fnd_message.get;
962: ---- dbms_output.put_line(x_str);
963: END IF;
964: CLOSE C_CHECK_BP;
965: END IF;
1823: IF x_enable_cum_flag_l is null THEN
1824: SELECT organization_name INTO x_organization_name FROM
1825: org_organization_definitions WHERE
1826: organization_id = x_organization_id;
1827: fnd_message.set_name('CHV','CHV_NO_ACTIVE_OPEN_CUM');
1828: FND_MESSAGE.SET_TOKEN('ORG',x_organization_name);
1829: x_str := fnd_message.get;
1830: ---- dbms_output.put_line(x_str);
1831: EXIT;
1824: SELECT organization_name INTO x_organization_name FROM
1825: org_organization_definitions WHERE
1826: organization_id = x_organization_id;
1827: fnd_message.set_name('CHV','CHV_NO_ACTIVE_OPEN_CUM');
1828: FND_MESSAGE.SET_TOKEN('ORG',x_organization_name);
1829: x_str := fnd_message.get;
1830: ---- dbms_output.put_line(x_str);
1831: EXIT;
1832: END IF;
1825: org_organization_definitions WHERE
1826: organization_id = x_organization_id;
1827: fnd_message.set_name('CHV','CHV_NO_ACTIVE_OPEN_CUM');
1828: FND_MESSAGE.SET_TOKEN('ORG',x_organization_name);
1829: x_str := fnd_message.get;
1830: ---- dbms_output.put_line(x_str);
1831: EXIT;
1832: END IF;
1833: