515: /*
516: OPEN cs_sr_status;
517: FETCH cs_sr_status INTO l_sr_status_id;
518: IF ( cs_sr_status%NOTFOUND) THEN
519: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_STATUS_ERROR');
520: Fnd_Msg_Pub.ADD;
521: x_return_status := FND_API.G_RET_STS_ERROR;
522: END IF;
523: */
771: = p_x_sr_task_rec.customer_id;
772:
773: IF (l_customer_name <> nvl(p_x_sr_task_rec.customer_name,l_customer_name) and
774: (p_x_sr_task_rec.customer_name <> FND_API.G_MISS_CHAR) ) THEN
775: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_NAME_MISMATCH');
776: Fnd_Message.SET_TOKEN('CUST_NAME',p_x_sr_task_rec.customer_name);
777: Fnd_Message.SET_TOKEN('CUST_ID',p_x_sr_task_rec.customer_id);
778: Fnd_Msg_Pub.ADD;
779: x_return_status := FND_API.G_RET_STS_ERROR;
772:
773: IF (l_customer_name <> nvl(p_x_sr_task_rec.customer_name,l_customer_name) and
774: (p_x_sr_task_rec.customer_name <> FND_API.G_MISS_CHAR) ) THEN
775: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_NAME_MISMATCH');
776: Fnd_Message.SET_TOKEN('CUST_NAME',p_x_sr_task_rec.customer_name);
777: Fnd_Message.SET_TOKEN('CUST_ID',p_x_sr_task_rec.customer_id);
778: Fnd_Msg_Pub.ADD;
779: x_return_status := FND_API.G_RET_STS_ERROR;
780: END IF;
773: IF (l_customer_name <> nvl(p_x_sr_task_rec.customer_name,l_customer_name) and
774: (p_x_sr_task_rec.customer_name <> FND_API.G_MISS_CHAR) ) THEN
775: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_NAME_MISMATCH');
776: Fnd_Message.SET_TOKEN('CUST_NAME',p_x_sr_task_rec.customer_name);
777: Fnd_Message.SET_TOKEN('CUST_ID',p_x_sr_task_rec.customer_id);
778: Fnd_Msg_Pub.ADD;
779: x_return_status := FND_API.G_RET_STS_ERROR;
780: END IF;
781:
780: END IF;
781:
782: EXCEPTION
783: WHEN NO_DATA_FOUND THEN
784: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_ID_INVALID');
785: Fnd_Message.SET_TOKEN('CUST_ID',p_x_sr_task_rec.customer_id);
786: Fnd_Msg_Pub.ADD;
787: x_return_status := FND_API.G_RET_STS_ERROR;
788: WHEN TOO_MANY_ROWS THEN
781:
782: EXCEPTION
783: WHEN NO_DATA_FOUND THEN
784: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_ID_INVALID');
785: Fnd_Message.SET_TOKEN('CUST_ID',p_x_sr_task_rec.customer_id);
786: Fnd_Msg_Pub.ADD;
787: x_return_status := FND_API.G_RET_STS_ERROR;
788: WHEN TOO_MANY_ROWS THEN
789: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_ID_NOT_UNIQUE');
785: Fnd_Message.SET_TOKEN('CUST_ID',p_x_sr_task_rec.customer_id);
786: Fnd_Msg_Pub.ADD;
787: x_return_status := FND_API.G_RET_STS_ERROR;
788: WHEN TOO_MANY_ROWS THEN
789: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_ID_NOT_UNIQUE');
790: Fnd_Message.SET_TOKEN('CUST_ID',p_x_sr_task_rec.customer_id);
791: Fnd_Msg_Pub.ADD;
792: x_return_status := FND_API.G_RET_STS_ERROR;
793: END;
786: Fnd_Msg_Pub.ADD;
787: x_return_status := FND_API.G_RET_STS_ERROR;
788: WHEN TOO_MANY_ROWS THEN
789: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_ID_NOT_UNIQUE');
790: Fnd_Message.SET_TOKEN('CUST_ID',p_x_sr_task_rec.customer_id);
791: Fnd_Msg_Pub.ADD;
792: x_return_status := FND_API.G_RET_STS_ERROR;
793: END;
794:
807: p_x_sr_task_rec.customer_id := l_customer_id;
808:
809: EXCEPTION
810: WHEN NO_DATA_FOUND THEN
811: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_NAME_INVALID');
812: Fnd_Message.SET_TOKEN('CUST_NAME',p_x_sr_task_rec.customer_name);
813: Fnd_Msg_Pub.ADD;
814: x_return_status := FND_API.G_RET_STS_ERROR;
815: WHEN TOO_MANY_ROWS THEN
808:
809: EXCEPTION
810: WHEN NO_DATA_FOUND THEN
811: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_NAME_INVALID');
812: Fnd_Message.SET_TOKEN('CUST_NAME',p_x_sr_task_rec.customer_name);
813: Fnd_Msg_Pub.ADD;
814: x_return_status := FND_API.G_RET_STS_ERROR;
815: WHEN TOO_MANY_ROWS THEN
816: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_NAME_NOT_UNIQUE');
812: Fnd_Message.SET_TOKEN('CUST_NAME',p_x_sr_task_rec.customer_name);
813: Fnd_Msg_Pub.ADD;
814: x_return_status := FND_API.G_RET_STS_ERROR;
815: WHEN TOO_MANY_ROWS THEN
816: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_NAME_NOT_UNIQUE');
817: Fnd_Message.SET_TOKEN('CUST_NAME',p_x_sr_task_rec.customer_name);
818: Fnd_Msg_Pub.ADD;
819: x_return_status := FND_API.G_RET_STS_ERROR;
820: END;
813: Fnd_Msg_Pub.ADD;
814: x_return_status := FND_API.G_RET_STS_ERROR;
815: WHEN TOO_MANY_ROWS THEN
816: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_NAME_NOT_UNIQUE');
817: Fnd_Message.SET_TOKEN('CUST_NAME',p_x_sr_task_rec.customer_name);
818: Fnd_Msg_Pub.ADD;
819: x_return_status := FND_API.G_RET_STS_ERROR;
820: END;
821: -- NR MR ER - start
854:
855:
856: IF(l_contact_name <> nvl(p_x_sr_task_rec.contact_name,l_contact_name) and
857: (p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR) )THEN
858: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_MISMATCH');
859: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
860: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
861: Fnd_Msg_Pub.ADD;
862: x_return_status := FND_API.G_RET_STS_ERROR;
855:
856: IF(l_contact_name <> nvl(p_x_sr_task_rec.contact_name,l_contact_name) and
857: (p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR) )THEN
858: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_MISMATCH');
859: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
860: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
861: Fnd_Msg_Pub.ADD;
862: x_return_status := FND_API.G_RET_STS_ERROR;
863: END IF;
856: IF(l_contact_name <> nvl(p_x_sr_task_rec.contact_name,l_contact_name) and
857: (p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR) )THEN
858: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_MISMATCH');
859: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
860: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
861: Fnd_Msg_Pub.ADD;
862: x_return_status := FND_API.G_RET_STS_ERROR;
863: END IF;
864:
863: END IF;
864:
865: EXCEPTION
866: WHEN NO_DATA_FOUND THEN
867: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_INVALID');
868: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
869: Fnd_Msg_Pub.ADD;
870: x_return_status := FND_API.G_RET_STS_ERROR;
871: WHEN TOO_MANY_ROWS THEN
864:
865: EXCEPTION
866: WHEN NO_DATA_FOUND THEN
867: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_INVALID');
868: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
869: Fnd_Msg_Pub.ADD;
870: x_return_status := FND_API.G_RET_STS_ERROR;
871: WHEN TOO_MANY_ROWS THEN
872: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_NOT_UNIQUE');
868: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
869: Fnd_Msg_Pub.ADD;
870: x_return_status := FND_API.G_RET_STS_ERROR;
871: WHEN TOO_MANY_ROWS THEN
872: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_NOT_UNIQUE');
873: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
874: Fnd_Msg_Pub.ADD;
875: x_return_status := FND_API.G_RET_STS_ERROR;
876: END;
869: Fnd_Msg_Pub.ADD;
870: x_return_status := FND_API.G_RET_STS_ERROR;
871: WHEN TOO_MANY_ROWS THEN
872: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_NOT_UNIQUE');
873: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
874: Fnd_Msg_Pub.ADD;
875: x_return_status := FND_API.G_RET_STS_ERROR;
876: END;
877:
892:
893:
894: EXCEPTION
895: WHEN NO_DATA_FOUND THEN
896: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_INVALID');
897: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
898: Fnd_Msg_Pub.ADD;
899: x_return_status := FND_API.G_RET_STS_ERROR;
900: WHEN TOO_MANY_ROWS THEN
893:
894: EXCEPTION
895: WHEN NO_DATA_FOUND THEN
896: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_INVALID');
897: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
898: Fnd_Msg_Pub.ADD;
899: x_return_status := FND_API.G_RET_STS_ERROR;
900: WHEN TOO_MANY_ROWS THEN
901: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_NOT_UNIQUE');
897: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
898: Fnd_Msg_Pub.ADD;
899: x_return_status := FND_API.G_RET_STS_ERROR;
900: WHEN TOO_MANY_ROWS THEN
901: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_NOT_UNIQUE');
902: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
903: Fnd_Msg_Pub.ADD;
904: x_return_status := FND_API.G_RET_STS_ERROR;
905: END;
898: Fnd_Msg_Pub.ADD;
899: x_return_status := FND_API.G_RET_STS_ERROR;
900: WHEN TOO_MANY_ROWS THEN
901: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_NOT_UNIQUE');
902: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
903: Fnd_Msg_Pub.ADD;
904: x_return_status := FND_API.G_RET_STS_ERROR;
905: END;
906: -- NR MR ER -- start
941:
942:
943: IF(l_contact_name <> nvl(p_x_sr_task_rec.contact_name,l_contact_name) and
944: (p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR) ) THEN
945: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_MISMATCH');
946: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
947: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
948: Fnd_Msg_Pub.ADD;
949: x_return_status := FND_API.G_RET_STS_ERROR;
942:
943: IF(l_contact_name <> nvl(p_x_sr_task_rec.contact_name,l_contact_name) and
944: (p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR) ) THEN
945: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_MISMATCH');
946: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
947: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
948: Fnd_Msg_Pub.ADD;
949: x_return_status := FND_API.G_RET_STS_ERROR;
950: END IF;
943: IF(l_contact_name <> nvl(p_x_sr_task_rec.contact_name,l_contact_name) and
944: (p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR) ) THEN
945: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_MISMATCH');
946: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
947: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
948: Fnd_Msg_Pub.ADD;
949: x_return_status := FND_API.G_RET_STS_ERROR;
950: END IF;
951:
950: END IF;
951:
952: EXCEPTION
953: WHEN NO_DATA_FOUND THEN
954: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_INVALID');
955: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
956: Fnd_Msg_Pub.ADD;
957: x_return_status := FND_API.G_RET_STS_ERROR;
958: WHEN TOO_MANY_ROWS THEN
951:
952: EXCEPTION
953: WHEN NO_DATA_FOUND THEN
954: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_INVALID');
955: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
956: Fnd_Msg_Pub.ADD;
957: x_return_status := FND_API.G_RET_STS_ERROR;
958: WHEN TOO_MANY_ROWS THEN
959: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_NOT_UNIQUE');
955: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
956: Fnd_Msg_Pub.ADD;
957: x_return_status := FND_API.G_RET_STS_ERROR;
958: WHEN TOO_MANY_ROWS THEN
959: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_NOT_UNIQUE');
960: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
961: Fnd_Msg_Pub.ADD;
962: x_return_status := FND_API.G_RET_STS_ERROR;
963: END;
956: Fnd_Msg_Pub.ADD;
957: x_return_status := FND_API.G_RET_STS_ERROR;
958: WHEN TOO_MANY_ROWS THEN
959: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_NOT_UNIQUE');
960: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
961: Fnd_Msg_Pub.ADD;
962: x_return_status := FND_API.G_RET_STS_ERROR;
963: END;
964:
980: p_x_sr_task_rec.contact_id := l_contact_id;
981:
982: EXCEPTION
983: WHEN NO_DATA_FOUND THEN
984: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_INVALID');
985: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
986: Fnd_Msg_Pub.ADD;
987: x_return_status := FND_API.G_RET_STS_ERROR;
988: WHEN TOO_MANY_ROWS THEN
981:
982: EXCEPTION
983: WHEN NO_DATA_FOUND THEN
984: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_INVALID');
985: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
986: Fnd_Msg_Pub.ADD;
987: x_return_status := FND_API.G_RET_STS_ERROR;
988: WHEN TOO_MANY_ROWS THEN
989: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_NOT_UNIQUE');
985: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
986: Fnd_Msg_Pub.ADD;
987: x_return_status := FND_API.G_RET_STS_ERROR;
988: WHEN TOO_MANY_ROWS THEN
989: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_NOT_UNIQUE');
990: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
991: Fnd_Msg_Pub.ADD;
992: x_return_status := FND_API.G_RET_STS_ERROR;
993: END;
986: Fnd_Msg_Pub.ADD;
987: x_return_status := FND_API.G_RET_STS_ERROR;
988: WHEN TOO_MANY_ROWS THEN
989: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_NOT_UNIQUE');
990: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
991: Fnd_Msg_Pub.ADD;
992: x_return_status := FND_API.G_RET_STS_ERROR;
993: END;
994: -- NR MR ER -- start
1043: -- SR API doesnt throw any error if the problem code is invalid neither
1044: -- it updates invalid value. Hence throwing error explicitly
1045: -- Part of NR MR ER.
1046: IF p_x_sr_task_rec.problem_code IS NULL THEN
1047: Fnd_Message.SET_NAME('AHL','AHL_PRD_PROBLEM_CODE_INVALID');
1048: Fnd_Message.SET_TOKEN('CODE',p_x_sr_task_rec.problem_meaning);
1049: Fnd_Msg_Pub.ADD;
1050: x_return_status := FND_API.G_RET_STS_ERROR;
1051: END IF;
1044: -- it updates invalid value. Hence throwing error explicitly
1045: -- Part of NR MR ER.
1046: IF p_x_sr_task_rec.problem_code IS NULL THEN
1047: Fnd_Message.SET_NAME('AHL','AHL_PRD_PROBLEM_CODE_INVALID');
1048: Fnd_Message.SET_TOKEN('CODE',p_x_sr_task_rec.problem_meaning);
1049: Fnd_Msg_Pub.ADD;
1050: x_return_status := FND_API.G_RET_STS_ERROR;
1051: END IF;
1052: -- NR MR ER - end
1061:
1062: OPEN sr_qality_inspection_type(p_x_sr_task_rec.quality_inspection_type);
1063: FETCH sr_qality_inspection_type INTO p_x_sr_task_rec.quality_inspection_type_code;
1064: IF (sr_qality_inspection_type%NOTFOUND ) THEN
1065: Fnd_Message.SET_NAME('AHL','AHL_PRD_QA_INSP_TYPE_INVALID');
1066: Fnd_Message.SET_TOKEN('CODE',p_x_sr_task_rec.quality_inspection_type);
1067: Fnd_Msg_Pub.ADD;
1068: x_return_status := FND_API.G_RET_STS_ERROR;
1069: END IF;
1062: OPEN sr_qality_inspection_type(p_x_sr_task_rec.quality_inspection_type);
1063: FETCH sr_qality_inspection_type INTO p_x_sr_task_rec.quality_inspection_type_code;
1064: IF (sr_qality_inspection_type%NOTFOUND ) THEN
1065: Fnd_Message.SET_NAME('AHL','AHL_PRD_QA_INSP_TYPE_INVALID');
1066: Fnd_Message.SET_TOKEN('CODE',p_x_sr_task_rec.quality_inspection_type);
1067: Fnd_Msg_Pub.ADD;
1068: x_return_status := FND_API.G_RET_STS_ERROR;
1069: END IF;
1070: CLOSE sr_qality_inspection_type;
1087: -- SR API doesnt throw any error if the resolution code is invalid neither
1088: -- it updates invalid value. Hence throwing error explicitly
1089: -- Part of NR MR ER
1090: IF p_x_sr_task_rec.resolution_code IS NULL THEN
1091: Fnd_Message.SET_NAME('AHL','AHL_PRD_RESL_CODE_INV');
1092: Fnd_Message.SET_TOKEN('CODE',p_x_sr_task_rec.resolution_meaning);
1093: Fnd_Msg_Pub.ADD;
1094: x_return_status := FND_API.G_RET_STS_ERROR;
1095: END IF;
1088: -- it updates invalid value. Hence throwing error explicitly
1089: -- Part of NR MR ER
1090: IF p_x_sr_task_rec.resolution_code IS NULL THEN
1091: Fnd_Message.SET_NAME('AHL','AHL_PRD_RESL_CODE_INV');
1092: Fnd_Message.SET_TOKEN('CODE',p_x_sr_task_rec.resolution_meaning);
1093: Fnd_Msg_Pub.ADD;
1094: x_return_status := FND_API.G_RET_STS_ERROR;
1095: END IF;
1096: -- NR MR ER -- end
1123: END IF;
1124:
1125: EXCEPTION
1126: WHEN NO_DATA_FOUND THEN
1127: Fnd_Message.SET_NAME('AHL', 'AHL_WARRANTY_INVALID_CNTR_NUM');
1128: Fnd_Message.SET_TOKEN('CNTR_NUM', p_x_sr_task_rec.warranty_contract_number);
1129: Fnd_Msg_Pub.ADD;
1130: x_return_status := FND_API.G_RET_STS_ERROR;
1131: END;
1124:
1125: EXCEPTION
1126: WHEN NO_DATA_FOUND THEN
1127: Fnd_Message.SET_NAME('AHL', 'AHL_WARRANTY_INVALID_CNTR_NUM');
1128: Fnd_Message.SET_TOKEN('CNTR_NUM', p_x_sr_task_rec.warranty_contract_number);
1129: Fnd_Msg_Pub.ADD;
1130: x_return_status := FND_API.G_RET_STS_ERROR;
1131: END;
1132:
1155: = p_x_sr_task_rec.contact_id;
1156:
1157: IF(l_contact_name <> nvl(p_x_sr_task_rec.contact_name,l_contact_name) and
1158: (p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR) )THEN
1159: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_MISMATCH');
1160: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
1161: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
1162: Fnd_Msg_Pub.ADD;
1163: x_return_status := FND_API.G_RET_STS_ERROR;
1156:
1157: IF(l_contact_name <> nvl(p_x_sr_task_rec.contact_name,l_contact_name) and
1158: (p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR) )THEN
1159: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_MISMATCH');
1160: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
1161: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
1162: Fnd_Msg_Pub.ADD;
1163: x_return_status := FND_API.G_RET_STS_ERROR;
1164: END IF;
1157: IF(l_contact_name <> nvl(p_x_sr_task_rec.contact_name,l_contact_name) and
1158: (p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR) )THEN
1159: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_MISMATCH');
1160: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
1161: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
1162: Fnd_Msg_Pub.ADD;
1163: x_return_status := FND_API.G_RET_STS_ERROR;
1164: END IF;
1165:
1165:
1166:
1167: EXCEPTION
1168: WHEN NO_DATA_FOUND THEN
1169: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_INVALID');
1170: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
1171: Fnd_Msg_Pub.ADD;
1172: x_return_status := FND_API.G_RET_STS_ERROR;
1173: WHEN TOO_MANY_ROWS THEN
1166:
1167: EXCEPTION
1168: WHEN NO_DATA_FOUND THEN
1169: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_INVALID');
1170: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
1171: Fnd_Msg_Pub.ADD;
1172: x_return_status := FND_API.G_RET_STS_ERROR;
1173: WHEN TOO_MANY_ROWS THEN
1174: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_NOT_UNIQUE');
1170: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
1171: Fnd_Msg_Pub.ADD;
1172: x_return_status := FND_API.G_RET_STS_ERROR;
1173: WHEN TOO_MANY_ROWS THEN
1174: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_NOT_UNIQUE');
1175: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
1176: Fnd_Msg_Pub.ADD;
1177: x_return_status := FND_API.G_RET_STS_ERROR;
1178: END;
1171: Fnd_Msg_Pub.ADD;
1172: x_return_status := FND_API.G_RET_STS_ERROR;
1173: WHEN TOO_MANY_ROWS THEN
1174: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_NOT_UNIQUE');
1175: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
1176: Fnd_Msg_Pub.ADD;
1177: x_return_status := FND_API.G_RET_STS_ERROR;
1178: END;
1179:
1193: p_x_sr_task_rec.contact_id := l_contact_id;
1194:
1195: EXCEPTION
1196: WHEN NO_DATA_FOUND THEN
1197: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_INVALID');
1198: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
1199: Fnd_Msg_Pub.ADD;
1200: x_return_status := FND_API.G_RET_STS_ERROR;
1201: WHEN TOO_MANY_ROWS THEN
1194:
1195: EXCEPTION
1196: WHEN NO_DATA_FOUND THEN
1197: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_INVALID');
1198: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
1199: Fnd_Msg_Pub.ADD;
1200: x_return_status := FND_API.G_RET_STS_ERROR;
1201: WHEN TOO_MANY_ROWS THEN
1202: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_NOT_UNIQUE');
1198: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
1199: Fnd_Msg_Pub.ADD;
1200: x_return_status := FND_API.G_RET_STS_ERROR;
1201: WHEN TOO_MANY_ROWS THEN
1202: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_NOT_UNIQUE');
1203: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
1204: Fnd_Msg_Pub.ADD;
1205: x_return_status := FND_API.G_RET_STS_ERROR;
1206: END;
1199: Fnd_Msg_Pub.ADD;
1200: x_return_status := FND_API.G_RET_STS_ERROR;
1201: WHEN TOO_MANY_ROWS THEN
1202: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_NOT_UNIQUE');
1203: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
1204: Fnd_Msg_Pub.ADD;
1205: x_return_status := FND_API.G_RET_STS_ERROR;
1206: END;
1207: -- NR MR ER -- start
1242: and trunc(nvl(effective_end_date,sysdate));
1243:
1244: IF(l_contact_name <> nvl(p_x_sr_task_rec.contact_name,l_contact_name) and
1245: (p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR) )THEN
1246: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_MISMATCH');
1247: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
1248: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
1249: Fnd_Msg_Pub.ADD;
1250: x_return_status := FND_API.G_RET_STS_ERROR;
1243:
1244: IF(l_contact_name <> nvl(p_x_sr_task_rec.contact_name,l_contact_name) and
1245: (p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR) )THEN
1246: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_MISMATCH');
1247: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
1248: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
1249: Fnd_Msg_Pub.ADD;
1250: x_return_status := FND_API.G_RET_STS_ERROR;
1251: END IF;
1244: IF(l_contact_name <> nvl(p_x_sr_task_rec.contact_name,l_contact_name) and
1245: (p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR) )THEN
1246: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_MISMATCH');
1247: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
1248: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
1249: Fnd_Msg_Pub.ADD;
1250: x_return_status := FND_API.G_RET_STS_ERROR;
1251: END IF;
1252:
1251: END IF;
1252:
1253: EXCEPTION
1254: WHEN NO_DATA_FOUND THEN
1255: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_INVALID');
1256: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
1257: Fnd_Msg_Pub.ADD;
1258: x_return_status := FND_API.G_RET_STS_ERROR;
1259: WHEN TOO_MANY_ROWS THEN
1252:
1253: EXCEPTION
1254: WHEN NO_DATA_FOUND THEN
1255: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_INVALID');
1256: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
1257: Fnd_Msg_Pub.ADD;
1258: x_return_status := FND_API.G_RET_STS_ERROR;
1259: WHEN TOO_MANY_ROWS THEN
1260: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_NOT_UNIQUE');
1256: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
1257: Fnd_Msg_Pub.ADD;
1258: x_return_status := FND_API.G_RET_STS_ERROR;
1259: WHEN TOO_MANY_ROWS THEN
1260: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_NOT_UNIQUE');
1261: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
1262: Fnd_Msg_Pub.ADD;
1263: x_return_status := FND_API.G_RET_STS_ERROR;
1264: END;
1257: Fnd_Msg_Pub.ADD;
1258: x_return_status := FND_API.G_RET_STS_ERROR;
1259: WHEN TOO_MANY_ROWS THEN
1260: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_NOT_UNIQUE');
1261: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
1262: Fnd_Msg_Pub.ADD;
1263: x_return_status := FND_API.G_RET_STS_ERROR;
1264: END;
1265:
1281: p_x_sr_task_rec.contact_id := l_contact_id;
1282:
1283: EXCEPTION
1284: WHEN NO_DATA_FOUND THEN
1285: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_INVALID');
1286: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
1287: Fnd_Msg_Pub.ADD;
1288: x_return_status := FND_API.G_RET_STS_ERROR;
1289: WHEN TOO_MANY_ROWS THEN
1282:
1283: EXCEPTION
1284: WHEN NO_DATA_FOUND THEN
1285: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_INVALID');
1286: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
1287: Fnd_Msg_Pub.ADD;
1288: x_return_status := FND_API.G_RET_STS_ERROR;
1289: WHEN TOO_MANY_ROWS THEN
1290: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_NOT_UNIQUE');
1286: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
1287: Fnd_Msg_Pub.ADD;
1288: x_return_status := FND_API.G_RET_STS_ERROR;
1289: WHEN TOO_MANY_ROWS THEN
1290: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_NOT_UNIQUE');
1291: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
1292: Fnd_Msg_Pub.ADD;
1293: x_return_status := FND_API.G_RET_STS_ERROR;
1294: END;
1287: Fnd_Msg_Pub.ADD;
1288: x_return_status := FND_API.G_RET_STS_ERROR;
1289: WHEN TOO_MANY_ROWS THEN
1290: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_NOT_UNIQUE');
1291: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
1292: Fnd_Msg_Pub.ADD;
1293: x_return_status := FND_API.G_RET_STS_ERROR;
1294: END;
1295: -- NR MR ER -- start
1321: -- SR API doesnt throw any error if the problem code is invalid neither
1322: -- it updates invalid value. Hence throwing error explicitly
1323: -- Part of NR MR ER.
1324: IF p_x_sr_task_rec.problem_code IS NULL THEN
1325: Fnd_Message.SET_NAME('AHL','AHL_PRD_PROBLEM_CODE_INVALID');
1326: Fnd_Message.SET_TOKEN('CODE',p_x_sr_task_rec.problem_meaning);
1327: Fnd_Msg_Pub.ADD;
1328: x_return_status := FND_API.G_RET_STS_ERROR;
1329: END IF;
1322: -- it updates invalid value. Hence throwing error explicitly
1323: -- Part of NR MR ER.
1324: IF p_x_sr_task_rec.problem_code IS NULL THEN
1325: Fnd_Message.SET_NAME('AHL','AHL_PRD_PROBLEM_CODE_INVALID');
1326: Fnd_Message.SET_TOKEN('CODE',p_x_sr_task_rec.problem_meaning);
1327: Fnd_Msg_Pub.ADD;
1328: x_return_status := FND_API.G_RET_STS_ERROR;
1329: END IF;
1330: -- NR MR ER -- end
1346: -- SR API doesnt throw any error if the resolution code is invalid neither
1347: -- it updates invalid value. Hence throwing error explicitly
1348: -- Part of NR MR ER
1349: IF p_x_sr_task_rec.resolution_code IS NULL THEN
1350: Fnd_Message.SET_NAME('AHL','AHL_PRD_RESL_CODE_INV');
1351: Fnd_Message.SET_TOKEN('CODE',p_x_sr_task_rec.resolution_meaning);
1352: Fnd_Msg_Pub.ADD;
1353: x_return_status := FND_API.G_RET_STS_ERROR;
1354: END IF;
1347: -- it updates invalid value. Hence throwing error explicitly
1348: -- Part of NR MR ER
1349: IF p_x_sr_task_rec.resolution_code IS NULL THEN
1350: Fnd_Message.SET_NAME('AHL','AHL_PRD_RESL_CODE_INV');
1351: Fnd_Message.SET_TOKEN('CODE',p_x_sr_task_rec.resolution_meaning);
1352: Fnd_Msg_Pub.ADD;
1353: x_return_status := FND_API.G_RET_STS_ERROR;
1354: END IF;
1355: -- NR MR ER -- end
1496: -- Check if instance id is not null. If instance id
1497: -- is null then return error message.
1498: IF (p_x_sr_task_rec.instance_id is null or p_x_sr_task_rec.instance_id = FND_API.G_MISS_NUM) THEN
1499:
1500: Fnd_Message.SET_NAME('AHL','AHL_PRD_INSTANCE_VALUE_REQ');
1501: Fnd_Msg_Pub.ADD;
1502: RAISE FND_API.G_EXC_ERROR;
1503:
1504: END IF;
1506: -- If originating work order id is null then
1507: -- return an error message.
1508: IF (p_x_sr_task_rec.originating_wo_id is null or p_x_sr_task_rec.originating_wo_id = FND_API.G_MISS_NUM) THEN
1509:
1510: Fnd_Message.SET_NAME('AHL','AHL_PRD_TASK_ORG_WOID_REQ');
1511: Fnd_Msg_Pub.ADD;
1512: RAISE FND_API.G_EXC_ERROR;
1513:
1514: END IF;
1522:
1523: IF ( p_x_sr_task_rec.resolution_meaning IS NULL OR
1524: p_x_sr_task_rec.resolution_meaning = FND_API.G_MISS_CHAR) THEN
1525:
1526: Fnd_Message.SET_NAME('AHL','AHL_PRD_RESL_CODE_REQ');
1527: Fnd_Msg_Pub.ADD;
1528: RAISE FND_API.G_EXC_ERROR;
1529:
1530: END IF;
1545: p_ue_id => NULL,
1546: p_visit_id => NULL,
1547: p_item_instance_id => NULL);
1548: IF l_return_status = FND_API.G_TRUE THEN
1549: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_CRT_SR_UNTLCKD');
1550: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
1551: FND_MSG_PUB.ADD;
1552: RAISE FND_API.G_EXC_ERROR;
1553: END IF;
1546: p_visit_id => NULL,
1547: p_item_instance_id => NULL);
1548: IF l_return_status = FND_API.G_TRUE THEN
1549: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_CRT_SR_UNTLCKD');
1550: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
1551: FND_MSG_PUB.ADD;
1552: RAISE FND_API.G_EXC_ERROR;
1553: END IF;
1554: -- rroy
1563: IF (fnd_profile.value('AHL_PRD_SR_TYPE') is not null) THEN
1564: p_x_sr_task_rec.type_id := fnd_profile.value('AHL_PRD_SR_TYPE');
1565: p_x_sr_task_rec.type_name := fnd_profile.value('AHL_PRD_SR_TYPE');
1566: ELSE
1567: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_TYPE_REQ');
1568: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1569: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1570: Fnd_Msg_Pub.ADD;
1571: x_return_status := FND_API.G_RET_STS_ERROR;
1564: p_x_sr_task_rec.type_id := fnd_profile.value('AHL_PRD_SR_TYPE');
1565: p_x_sr_task_rec.type_name := fnd_profile.value('AHL_PRD_SR_TYPE');
1566: ELSE
1567: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_TYPE_REQ');
1568: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1569: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1570: Fnd_Msg_Pub.ADD;
1571: x_return_status := FND_API.G_RET_STS_ERROR;
1572: END IF;
1565: p_x_sr_task_rec.type_name := fnd_profile.value('AHL_PRD_SR_TYPE');
1566: ELSE
1567: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_TYPE_REQ');
1568: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1569: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1570: Fnd_Msg_Pub.ADD;
1571: x_return_status := FND_API.G_RET_STS_ERROR;
1572: END IF;
1573:
1586: -- and we should use incident_status_id directly. - Balaji.
1587: /*
1588: OPEN cs_sr_status;
1589: IF( cs_sr_status%NOTFOUND) THEN
1590: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_STATUS_DEFAULT_ERR');
1591: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1592: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1593: Fnd_Msg_Pub.ADD;
1594: x_return_status := FND_API.G_RET_STS_ERROR;
1587: /*
1588: OPEN cs_sr_status;
1589: IF( cs_sr_status%NOTFOUND) THEN
1590: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_STATUS_DEFAULT_ERR');
1591: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1592: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1593: Fnd_Msg_Pub.ADD;
1594: x_return_status := FND_API.G_RET_STS_ERROR;
1595: ELSE
1588: OPEN cs_sr_status;
1589: IF( cs_sr_status%NOTFOUND) THEN
1590: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_STATUS_DEFAULT_ERR');
1591: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1592: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1593: Fnd_Msg_Pub.ADD;
1594: x_return_status := FND_API.G_RET_STS_ERROR;
1595: ELSE
1596: FETCH cs_sr_status INTO p_x_sr_task_rec.status_id;
1605: --MANESING::Supplier Warranty, 04-Oct-2010, cannot modify warranty contract when the SR is in Closed status
1606: IF (p_mr_asso_count = 0 and
1607: p_x_sr_task_rec.status_id = 2 and p_x_sr_task_rec.warranty_contract_id IS NOT null) THEN
1608: x_return_status := FND_API.G_RET_STS_ERROR;
1609: FND_MESSAGE.set_name('AHL', 'AHL_PRD_NR_WARR_CNTR_RO');
1610: FND_MSG_PUB.ADD;
1611: END IF;
1612:
1613: -- If severity is null then derive it from profile.
1621: -- Validate the severity value
1622: OPEN cs_sr_severity_validate(p_x_sr_task_rec.severity_id);
1623:
1624: IF ( cs_sr_severity_validate%NOTFOUND) THEN
1625: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_SEVERITY_INVALID');
1626: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1627: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1628: Fnd_Msg_Pub.ADD;
1629: x_return_status := FND_API.G_RET_STS_ERROR;
1622: OPEN cs_sr_severity_validate(p_x_sr_task_rec.severity_id);
1623:
1624: IF ( cs_sr_severity_validate%NOTFOUND) THEN
1625: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_SEVERITY_INVALID');
1626: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1627: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1628: Fnd_Msg_Pub.ADD;
1629: x_return_status := FND_API.G_RET_STS_ERROR;
1630: END IF;
1623:
1624: IF ( cs_sr_severity_validate%NOTFOUND) THEN
1625: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_SEVERITY_INVALID');
1626: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1627: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1628: Fnd_Msg_Pub.ADD;
1629: x_return_status := FND_API.G_RET_STS_ERROR;
1630: END IF;
1631:
1630: END IF;
1631:
1632: CLOSE cs_sr_severity_validate;
1633: ELSE
1634: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_SEVERITY_REQ');
1635: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1636: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1637: Fnd_Msg_Pub.ADD;
1638: x_return_status := FND_API.G_RET_STS_ERROR;
1631:
1632: CLOSE cs_sr_severity_validate;
1633: ELSE
1634: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_SEVERITY_REQ');
1635: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1636: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1637: Fnd_Msg_Pub.ADD;
1638: x_return_status := FND_API.G_RET_STS_ERROR;
1639: END IF;
1632: CLOSE cs_sr_severity_validate;
1633: ELSE
1634: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_SEVERITY_REQ');
1635: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1636: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1637: Fnd_Msg_Pub.ADD;
1638: x_return_status := FND_API.G_RET_STS_ERROR;
1639: END IF;
1640:
1661: -- If summary is null then return an
1662: -- error message.
1663: IF (p_x_sr_task_rec.summary is null or p_x_sr_task_rec.summary = FND_API.G_MISS_CHAR) THEN
1664:
1665: Fnd_Message.SET_NAME('AHL','AHL_PRD_SUMMARY_REQ');
1666: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1667: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1668: Fnd_Msg_Pub.ADD;
1669: x_return_status := FND_API.G_RET_STS_ERROR;
1662: -- error message.
1663: IF (p_x_sr_task_rec.summary is null or p_x_sr_task_rec.summary = FND_API.G_MISS_CHAR) THEN
1664:
1665: Fnd_Message.SET_NAME('AHL','AHL_PRD_SUMMARY_REQ');
1666: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1667: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1668: Fnd_Msg_Pub.ADD;
1669: x_return_status := FND_API.G_RET_STS_ERROR;
1670:
1663: IF (p_x_sr_task_rec.summary is null or p_x_sr_task_rec.summary = FND_API.G_MISS_CHAR) THEN
1664:
1665: Fnd_Message.SET_NAME('AHL','AHL_PRD_SUMMARY_REQ');
1666: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1667: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1668: Fnd_Msg_Pub.ADD;
1669: x_return_status := FND_API.G_RET_STS_ERROR;
1670:
1671: END IF;
1694: p_x_sr_task_rec.customer_name
1695: from hz_parties
1696: where party_id = p_x_sr_task_rec.customer_id;
1697: IF ( default_party_id%NOTFOUND) THEN
1698: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_CUST_ERROR');
1699: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1700: Fnd_Message.SET_TOKEN('INSTANCE_NUM',null);
1701: Fnd_Msg_Pub.ADD;
1702: x_return_status := FND_API.G_RET_STS_ERROR;
1695: from hz_parties
1696: where party_id = p_x_sr_task_rec.customer_id;
1697: IF ( default_party_id%NOTFOUND) THEN
1698: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_CUST_ERROR');
1699: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1700: Fnd_Message.SET_TOKEN('INSTANCE_NUM',null);
1701: Fnd_Msg_Pub.ADD;
1702: x_return_status := FND_API.G_RET_STS_ERROR;
1703: END IF;
1696: where party_id = p_x_sr_task_rec.customer_id;
1697: IF ( default_party_id%NOTFOUND) THEN
1698: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_CUST_ERROR');
1699: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1700: Fnd_Message.SET_TOKEN('INSTANCE_NUM',null);
1701: Fnd_Msg_Pub.ADD;
1702: x_return_status := FND_API.G_RET_STS_ERROR;
1703: END IF;
1704: OPEN owner_customer_type(p_x_sr_task_rec.customer_id);
1703: END IF;
1704: OPEN owner_customer_type(p_x_sr_task_rec.customer_id);
1705: FETCH owner_customer_type INTO p_x_sr_task_rec.customer_type;
1706: IF ( owner_customer_type%NOTFOUND) THEN
1707: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_CUST_ERROR'); -- Customer Type is Invalid
1708: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1709: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1710: Fnd_Msg_Pub.ADD;
1711: x_return_status := FND_API.G_RET_STS_ERROR;
1704: OPEN owner_customer_type(p_x_sr_task_rec.customer_id);
1705: FETCH owner_customer_type INTO p_x_sr_task_rec.customer_type;
1706: IF ( owner_customer_type%NOTFOUND) THEN
1707: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_CUST_ERROR'); -- Customer Type is Invalid
1708: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1709: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1710: Fnd_Msg_Pub.ADD;
1711: x_return_status := FND_API.G_RET_STS_ERROR;
1712: END IF;
1705: FETCH owner_customer_type INTO p_x_sr_task_rec.customer_type;
1706: IF ( owner_customer_type%NOTFOUND) THEN
1707: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_CUST_ERROR'); -- Customer Type is Invalid
1708: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1709: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1710: Fnd_Msg_Pub.ADD;
1711: x_return_status := FND_API.G_RET_STS_ERROR;
1712: END IF;
1713:
1715: -- Defalut contact is Same
1716: OPEN default_contact;
1717: FETCH default_contact INTO p_x_sr_task_rec.contact_id;
1718: IF ( default_contact%NOTFOUND ) THEN
1719: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_CONT_ERROR');
1720: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1721: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1722: Fnd_Msg_Pub.ADD;
1723: x_return_status := FND_API.G_RET_STS_ERROR;
1716: OPEN default_contact;
1717: FETCH default_contact INTO p_x_sr_task_rec.contact_id;
1718: IF ( default_contact%NOTFOUND ) THEN
1719: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_CONT_ERROR');
1720: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1721: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1722: Fnd_Msg_Pub.ADD;
1723: x_return_status := FND_API.G_RET_STS_ERROR;
1724: ELSE
1717: FETCH default_contact INTO p_x_sr_task_rec.contact_id;
1718: IF ( default_contact%NOTFOUND ) THEN
1719: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_CONT_ERROR');
1720: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1721: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1722: Fnd_Msg_Pub.ADD;
1723: x_return_status := FND_API.G_RET_STS_ERROR;
1724: ELSE
1725: p_x_sr_task_rec.contact_type := 'EMPLOYEE';
1732: OPEN default_party_id(p_x_sr_task_rec.instance_id);
1733: FETCH default_party_id INTO l_owner_id ;
1734: IF( l_owner_id <> nvl(p_x_sr_task_rec.customer_id,l_owner_id) and
1735: (p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR) )THEN
1736: Fnd_Message.SET_NAME('AHL','AHL_PRD_INVALID_OWNER'); -- New Error Message Should be added
1737: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1738: Fnd_Msg_Pub.ADD;
1739: x_return_status := FND_API.G_RET_STS_ERROR;
1740: END IF;
1733: FETCH default_party_id INTO l_owner_id ;
1734: IF( l_owner_id <> nvl(p_x_sr_task_rec.customer_id,l_owner_id) and
1735: (p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR) )THEN
1736: Fnd_Message.SET_NAME('AHL','AHL_PRD_INVALID_OWNER'); -- New Error Message Should be added
1737: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1738: Fnd_Msg_Pub.ADD;
1739: x_return_status := FND_API.G_RET_STS_ERROR;
1740: END IF;
1741:
1753: OPEN default_customer_type;
1754: FETCH default_customer_type INTO p_x_sr_task_rec.customer_type;
1755:
1756: IF ( default_customer_type%NOTFOUND) THEN
1757: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_CUST_ERROR');
1758: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1759: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1760: Fnd_Msg_Pub.ADD;
1761: x_return_status := FND_API.G_RET_STS_ERROR;
1754: FETCH default_customer_type INTO p_x_sr_task_rec.customer_type;
1755:
1756: IF ( default_customer_type%NOTFOUND) THEN
1757: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_CUST_ERROR');
1758: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1759: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1760: Fnd_Msg_Pub.ADD;
1761: x_return_status := FND_API.G_RET_STS_ERROR;
1762: ELSE
1755:
1756: IF ( default_customer_type%NOTFOUND) THEN
1757: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_CUST_ERROR');
1758: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1759: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1760: Fnd_Msg_Pub.ADD;
1761: x_return_status := FND_API.G_RET_STS_ERROR;
1762: ELSE
1763: p_x_sr_task_rec.customer_id := fnd_profile.value('AHL_PRD_SR_CUSTOMER_NAME');
1767:
1768: OPEN default_contact;
1769: FETCH default_contact INTO p_x_sr_task_rec.contact_id;
1770: IF ( default_contact%NOTFOUND ) THEN
1771: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_CONT_ERROR');
1772: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1773: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1774: Fnd_Msg_Pub.ADD;
1775: x_return_status := FND_API.G_RET_STS_ERROR;
1768: OPEN default_contact;
1769: FETCH default_contact INTO p_x_sr_task_rec.contact_id;
1770: IF ( default_contact%NOTFOUND ) THEN
1771: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_CONT_ERROR');
1772: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1773: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1774: Fnd_Msg_Pub.ADD;
1775: x_return_status := FND_API.G_RET_STS_ERROR;
1776: ELSE
1769: FETCH default_contact INTO p_x_sr_task_rec.contact_id;
1770: IF ( default_contact%NOTFOUND ) THEN
1771: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_CONT_ERROR');
1772: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1773: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1774: Fnd_Msg_Pub.ADD;
1775: x_return_status := FND_API.G_RET_STS_ERROR;
1776: ELSE
1777: p_x_sr_task_rec.contact_type := 'EMPLOYEE';
1780: CLOSE default_contact;
1781:
1782: ELSE
1783:
1784: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_PROFILE_REQ');
1785: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1786: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1787: Fnd_Msg_Pub.ADD;
1788: x_return_status := FND_API.G_RET_STS_ERROR;
1781:
1782: ELSE
1783:
1784: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_PROFILE_REQ');
1785: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1786: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1787: Fnd_Msg_Pub.ADD;
1788: x_return_status := FND_API.G_RET_STS_ERROR;
1789:
1782: ELSE
1783:
1784: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_PROFILE_REQ');
1785: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1786: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1787: Fnd_Msg_Pub.ADD;
1788: x_return_status := FND_API.G_RET_STS_ERROR;
1789:
1790: END IF;
1796: -- null then return an error message.
1797: IF (p_x_sr_task_rec.customer_id is not null and
1798: (p_x_sr_task_rec.customer_type is null or p_x_sr_task_rec.customer_type = FND_API.G_MISS_CHAR)) THEN
1799:
1800: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_TYPE_REQ');
1801: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1802: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1803: Fnd_Msg_Pub.ADD;
1804: x_return_status := FND_API.G_RET_STS_ERROR;
1797: IF (p_x_sr_task_rec.customer_id is not null and
1798: (p_x_sr_task_rec.customer_type is null or p_x_sr_task_rec.customer_type = FND_API.G_MISS_CHAR)) THEN
1799:
1800: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_TYPE_REQ');
1801: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1802: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1803: Fnd_Msg_Pub.ADD;
1804: x_return_status := FND_API.G_RET_STS_ERROR;
1805:
1798: (p_x_sr_task_rec.customer_type is null or p_x_sr_task_rec.customer_type = FND_API.G_MISS_CHAR)) THEN
1799:
1800: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_TYPE_REQ');
1801: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1802: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1803: Fnd_Msg_Pub.ADD;
1804: x_return_status := FND_API.G_RET_STS_ERROR;
1805:
1806: END IF;
1810: -- null then return an error message.
1811: IF (p_x_sr_task_rec.contact_id is not null and
1812: (p_x_sr_task_rec.contact_type is null or p_x_sr_task_rec.contact_type = FND_API.G_MISS_CHAR)) THEN
1813:
1814: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_TYPE_REQ');
1815: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1816: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1817: Fnd_Msg_Pub.ADD;
1818: x_return_status := FND_API.G_RET_STS_ERROR;
1811: IF (p_x_sr_task_rec.contact_id is not null and
1812: (p_x_sr_task_rec.contact_type is null or p_x_sr_task_rec.contact_type = FND_API.G_MISS_CHAR)) THEN
1813:
1814: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_TYPE_REQ');
1815: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1816: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1817: Fnd_Msg_Pub.ADD;
1818: x_return_status := FND_API.G_RET_STS_ERROR;
1819:
1812: (p_x_sr_task_rec.contact_type is null or p_x_sr_task_rec.contact_type = FND_API.G_MISS_CHAR)) THEN
1813:
1814: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_TYPE_REQ');
1815: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1816: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1817: Fnd_Msg_Pub.ADD;
1818: x_return_status := FND_API.G_RET_STS_ERROR;
1819:
1820: END IF;
1824: -- is null then return an error message.
1825: IF (p_x_sr_task_rec.customer_id is not null and
1826: (p_x_sr_task_rec.contact_id is null or p_x_sr_task_rec.contact_id = FND_API.G_MISS_NUM)) THEN
1827:
1828: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONTACT_REQ');
1829: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1830: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1831: Fnd_Msg_Pub.ADD;
1832: x_return_status := FND_API.G_RET_STS_ERROR;
1825: IF (p_x_sr_task_rec.customer_id is not null and
1826: (p_x_sr_task_rec.contact_id is null or p_x_sr_task_rec.contact_id = FND_API.G_MISS_NUM)) THEN
1827:
1828: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONTACT_REQ');
1829: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1830: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1831: Fnd_Msg_Pub.ADD;
1832: x_return_status := FND_API.G_RET_STS_ERROR;
1833:
1826: (p_x_sr_task_rec.contact_id is null or p_x_sr_task_rec.contact_id = FND_API.G_MISS_NUM)) THEN
1827:
1828: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONTACT_REQ');
1829: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1830: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1831: Fnd_Msg_Pub.ADD;
1832: x_return_status := FND_API.G_RET_STS_ERROR;
1833:
1834: -- If Contact is not null but Customer is null then
1835: -- return an error message.
1836: ELSIF((p_x_sr_task_rec.customer_id is null or p_x_sr_task_rec.customer_id = FND_API.G_MISS_NUM) and
1837: p_x_sr_task_rec.contact_id is not null ) THEN
1838:
1839: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUSTOMER_REQ');
1840: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1841: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1842: Fnd_Msg_Pub.ADD;
1843: x_return_status := FND_API.G_RET_STS_ERROR;
1836: ELSIF((p_x_sr_task_rec.customer_id is null or p_x_sr_task_rec.customer_id = FND_API.G_MISS_NUM) and
1837: p_x_sr_task_rec.contact_id is not null ) THEN
1838:
1839: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUSTOMER_REQ');
1840: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1841: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1842: Fnd_Msg_Pub.ADD;
1843: x_return_status := FND_API.G_RET_STS_ERROR;
1844:
1837: p_x_sr_task_rec.contact_id is not null ) THEN
1838:
1839: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUSTOMER_REQ');
1840: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1841: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1842: Fnd_Msg_Pub.ADD;
1843: x_return_status := FND_API.G_RET_STS_ERROR;
1844:
1845: END IF;
1848: -- If visit id is null then return an error
1849: -- message.
1850: IF (p_x_sr_task_rec.visit_id is null or p_x_sr_task_rec.visit_id = FND_API.G_MISS_NUM) THEN
1851:
1852: Fnd_Message.SET_NAME('AHL','AHL_PRD_VISIT_VALUE_REQ');
1853: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1854: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1855: Fnd_Msg_Pub.ADD;
1856: x_return_status := FND_API.G_RET_STS_ERROR;
1849: -- message.
1850: IF (p_x_sr_task_rec.visit_id is null or p_x_sr_task_rec.visit_id = FND_API.G_MISS_NUM) THEN
1851:
1852: Fnd_Message.SET_NAME('AHL','AHL_PRD_VISIT_VALUE_REQ');
1853: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1854: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1855: Fnd_Msg_Pub.ADD;
1856: x_return_status := FND_API.G_RET_STS_ERROR;
1857:
1850: IF (p_x_sr_task_rec.visit_id is null or p_x_sr_task_rec.visit_id = FND_API.G_MISS_NUM) THEN
1851:
1852: Fnd_Message.SET_NAME('AHL','AHL_PRD_VISIT_VALUE_REQ');
1853: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1854: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1855: Fnd_Msg_Pub.ADD;
1856: x_return_status := FND_API.G_RET_STS_ERROR;
1857:
1858: END IF;
1869: CLOSE sr_service_type_code;
1870:
1871: EXCEPTION
1872: WHEN NO_DATA_FOUND THEN
1873: Fnd_Message.SET_NAME('AHL','AHL_PRD_SERVICE_TYPE_INVALID');
1874: -- Fnd_Message.SET_TOKEN('SERVICE_TYPE',p_x_sr_task_rec.service_type);
1875: Fnd_Msg_Pub.ADD;
1876: x_return_status := FND_API.G_RET_STS_ERROR;
1877: END;
1870:
1871: EXCEPTION
1872: WHEN NO_DATA_FOUND THEN
1873: Fnd_Message.SET_NAME('AHL','AHL_PRD_SERVICE_TYPE_INVALID');
1874: -- Fnd_Message.SET_TOKEN('SERVICE_TYPE',p_x_sr_task_rec.service_type);
1875: Fnd_Msg_Pub.ADD;
1876: x_return_status := FND_API.G_RET_STS_ERROR;
1877: END;
1878: ELSE
1880: END IF;
1881:
1882: --amsriniv. Issue 105. Begin ER 6014567
1883: IF (p_x_sr_task_rec.instance_quantity IS NOT NULL AND p_x_sr_task_rec.instance_quantity <= 0) THEN
1884: Fnd_Message.SET_NAME('AHL','AHL_POSITIVE_TSK_QTY');
1885: Fnd_Msg_Pub.ADD;
1886: x_return_status := FND_API.G_RET_STS_ERROR;
1887: END IF;
1888:
1889: IF (upper(p_x_sr_task_rec.WO_Create_flag) = 'N') THEN
1890: OPEN check_inst_nonserial(p_x_sr_task_rec.Instance_id, p_x_sr_task_rec.originating_wo_id);
1891: FETCH check_inst_nonserial INTO l_dummy;
1892: IF (check_inst_nonserial%FOUND) THEN
1893: Fnd_Message.SET_NAME('AHL','AHL_NO_CREATE_WO_NONSER');
1894: Fnd_Message.SET_TOKEN('FIELD',l_instance_num);
1895: Fnd_Msg_Pub.ADD;
1896: x_return_status := FND_API.G_RET_STS_ERROR;
1897: END IF;
1890: OPEN check_inst_nonserial(p_x_sr_task_rec.Instance_id, p_x_sr_task_rec.originating_wo_id);
1891: FETCH check_inst_nonserial INTO l_dummy;
1892: IF (check_inst_nonserial%FOUND) THEN
1893: Fnd_Message.SET_NAME('AHL','AHL_NO_CREATE_WO_NONSER');
1894: Fnd_Message.SET_TOKEN('FIELD',l_instance_num);
1895: Fnd_Msg_Pub.ADD;
1896: x_return_status := FND_API.G_RET_STS_ERROR;
1897: END IF;
1898: CLOSE check_inst_nonserial;
1902: IF (upper(p_x_sr_task_rec.WO_Create_flag) = 'Y' and upper(p_x_sr_task_rec.WO_Release_flag) = 'Y') THEN
1903: OPEN validate_quantity(p_x_sr_task_rec.Instance_id , p_x_sr_task_rec.originating_wo_id);
1904: FETCH validate_quantity INTO l_quantity;
1905: IF (validate_quantity%NOTFOUND) THEN
1906: Fnd_Message.SET_NAME('AHL','AHL_INST_NOT_ISSUED');
1907: Fnd_Message.SET_TOKEN('INS_NUM',l_instance_num);
1908: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1909: Fnd_Msg_Pub.ADD;
1910: x_return_status := FND_API.G_RET_STS_ERROR;
1903: OPEN validate_quantity(p_x_sr_task_rec.Instance_id , p_x_sr_task_rec.originating_wo_id);
1904: FETCH validate_quantity INTO l_quantity;
1905: IF (validate_quantity%NOTFOUND) THEN
1906: Fnd_Message.SET_NAME('AHL','AHL_INST_NOT_ISSUED');
1907: Fnd_Message.SET_TOKEN('INS_NUM',l_instance_num);
1908: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1909: Fnd_Msg_Pub.ADD;
1910: x_return_status := FND_API.G_RET_STS_ERROR;
1911: ELSIF (l_quantity < p_x_sr_task_rec.instance_quantity) THEN
1904: FETCH validate_quantity INTO l_quantity;
1905: IF (validate_quantity%NOTFOUND) THEN
1906: Fnd_Message.SET_NAME('AHL','AHL_INST_NOT_ISSUED');
1907: Fnd_Message.SET_TOKEN('INS_NUM',l_instance_num);
1908: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1909: Fnd_Msg_Pub.ADD;
1910: x_return_status := FND_API.G_RET_STS_ERROR;
1911: ELSIF (l_quantity < p_x_sr_task_rec.instance_quantity) THEN
1912: Fnd_Message.SET_NAME('AHL','AHL_INST_NOT_AVAIL');
1908: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1909: Fnd_Msg_Pub.ADD;
1910: x_return_status := FND_API.G_RET_STS_ERROR;
1911: ELSIF (l_quantity < p_x_sr_task_rec.instance_quantity) THEN
1912: Fnd_Message.SET_NAME('AHL','AHL_INST_NOT_AVAIL');
1913: Fnd_Message.SET_TOKEN('INS_NAME',l_instance_num);
1914: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1915: Fnd_Message.SET_TOKEN('QUANT_USER',TO_CHAR(p_x_sr_task_rec.instance_quantity));
1916: Fnd_Message.SET_TOKEN('QUANT_AVAIL',TO_CHAR(l_quantity));
1909: Fnd_Msg_Pub.ADD;
1910: x_return_status := FND_API.G_RET_STS_ERROR;
1911: ELSIF (l_quantity < p_x_sr_task_rec.instance_quantity) THEN
1912: Fnd_Message.SET_NAME('AHL','AHL_INST_NOT_AVAIL');
1913: Fnd_Message.SET_TOKEN('INS_NAME',l_instance_num);
1914: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1915: Fnd_Message.SET_TOKEN('QUANT_USER',TO_CHAR(p_x_sr_task_rec.instance_quantity));
1916: Fnd_Message.SET_TOKEN('QUANT_AVAIL',TO_CHAR(l_quantity));
1917: Fnd_Msg_Pub.ADD;
1910: x_return_status := FND_API.G_RET_STS_ERROR;
1911: ELSIF (l_quantity < p_x_sr_task_rec.instance_quantity) THEN
1912: Fnd_Message.SET_NAME('AHL','AHL_INST_NOT_AVAIL');
1913: Fnd_Message.SET_TOKEN('INS_NAME',l_instance_num);
1914: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1915: Fnd_Message.SET_TOKEN('QUANT_USER',TO_CHAR(p_x_sr_task_rec.instance_quantity));
1916: Fnd_Message.SET_TOKEN('QUANT_AVAIL',TO_CHAR(l_quantity));
1917: Fnd_Msg_Pub.ADD;
1918: x_return_status := FND_API.G_RET_STS_ERROR;
1911: ELSIF (l_quantity < p_x_sr_task_rec.instance_quantity) THEN
1912: Fnd_Message.SET_NAME('AHL','AHL_INST_NOT_AVAIL');
1913: Fnd_Message.SET_TOKEN('INS_NAME',l_instance_num);
1914: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1915: Fnd_Message.SET_TOKEN('QUANT_USER',TO_CHAR(p_x_sr_task_rec.instance_quantity));
1916: Fnd_Message.SET_TOKEN('QUANT_AVAIL',TO_CHAR(l_quantity));
1917: Fnd_Msg_Pub.ADD;
1918: x_return_status := FND_API.G_RET_STS_ERROR;
1919: END IF;
1912: Fnd_Message.SET_NAME('AHL','AHL_INST_NOT_AVAIL');
1913: Fnd_Message.SET_TOKEN('INS_NAME',l_instance_num);
1914: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1915: Fnd_Message.SET_TOKEN('QUANT_USER',TO_CHAR(p_x_sr_task_rec.instance_quantity));
1916: Fnd_Message.SET_TOKEN('QUANT_AVAIL',TO_CHAR(l_quantity));
1917: Fnd_Msg_Pub.ADD;
1918: x_return_status := FND_API.G_RET_STS_ERROR;
1919: END IF;
1920: ELSE
1917: Fnd_Msg_Pub.ADD;
1918: x_return_status := FND_API.G_RET_STS_ERROR;
1919: END IF;
1920: ELSE
1921: Fnd_Message.SET_NAME('AHL','AHL_NR_WO_NOT_RELEASED');
1922: Fnd_Msg_Pub.ADD;
1923: x_return_status := FND_API.G_RET_STS_ERROR;
1924: END IF;
1925: END IF;
1937:
1938: IF ( p_x_sr_task_rec.resolution_meaning IS NULL OR
1939: p_x_sr_task_rec.resolution_meaning = FND_API.G_MISS_CHAR) THEN
1940:
1941: Fnd_Message.SET_NAME('AHL','AHL_PRD_RESL_CODE_REQ');
1942: Fnd_Msg_Pub.ADD;
1943: RAISE FND_API.G_EXC_ERROR;
1944:
1945: END IF;
1959: p_ue_id => NULL,
1960: p_visit_id => NULL,
1961: p_item_instance_id => NULL);
1962: IF l_return_status = FND_API.G_TRUE THEN
1963: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_UPD_SR_UNTLCKD');
1964: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
1965: FND_MSG_PUB.ADD;
1966: RAISE FND_API.G_EXC_ERROR;
1967: END IF;
1960: p_visit_id => NULL,
1961: p_item_instance_id => NULL);
1962: IF l_return_status = FND_API.G_TRUE THEN
1963: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_UPD_SR_UNTLCKD');
1964: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
1965: FND_MSG_PUB.ADD;
1966: RAISE FND_API.G_EXC_ERROR;
1967: END IF;
1968: -- rroy
1973: -- If contact id is null then return an
1974: -- error message.
1975: IF (p_x_sr_task_rec.contact_id is null or p_x_sr_task_rec.contact_id = FND_API.G_MISS_NUM) THEN
1976:
1977: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONTACT_REQ');
1978: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1979: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1980: Fnd_Msg_Pub.ADD;
1981: x_return_status := FND_API.G_RET_STS_ERROR;
1974: -- error message.
1975: IF (p_x_sr_task_rec.contact_id is null or p_x_sr_task_rec.contact_id = FND_API.G_MISS_NUM) THEN
1976:
1977: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONTACT_REQ');
1978: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1979: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1980: Fnd_Msg_Pub.ADD;
1981: x_return_status := FND_API.G_RET_STS_ERROR;
1982:
1975: IF (p_x_sr_task_rec.contact_id is null or p_x_sr_task_rec.contact_id = FND_API.G_MISS_NUM) THEN
1976:
1977: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONTACT_REQ');
1978: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1979: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1980: Fnd_Msg_Pub.ADD;
1981: x_return_status := FND_API.G_RET_STS_ERROR;
1982:
1983: END IF;
1987: -- message.
1988: IF (p_x_sr_task_rec.contact_id is not null and
1989: (p_x_sr_task_rec.contact_type is null or p_x_sr_task_rec.contact_type = FND_API.G_MISS_CHAR)) THEN
1990:
1991: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_TYPE_REQ');
1992: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1993: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1994: Fnd_Msg_Pub.ADD;
1995: x_return_status := FND_API.G_RET_STS_ERROR;
1988: IF (p_x_sr_task_rec.contact_id is not null and
1989: (p_x_sr_task_rec.contact_type is null or p_x_sr_task_rec.contact_type = FND_API.G_MISS_CHAR)) THEN
1990:
1991: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_TYPE_REQ');
1992: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1993: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1994: Fnd_Msg_Pub.ADD;
1995: x_return_status := FND_API.G_RET_STS_ERROR;
1996:
1989: (p_x_sr_task_rec.contact_type is null or p_x_sr_task_rec.contact_type = FND_API.G_MISS_CHAR)) THEN
1990:
1991: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_TYPE_REQ');
1992: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1993: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1994: Fnd_Msg_Pub.ADD;
1995: x_return_status := FND_API.G_RET_STS_ERROR;
1996:
1997: END IF;
2001: -- error message.
2002: IF ((p_x_sr_task_rec.status_id is null or p_x_sr_task_rec.status_id = FND_API.G_MISS_NUM)and
2003: (p_x_sr_task_rec.status_name is null or p_x_sr_task_rec.status_name = FND_API.G_MISS_CHAR)) THEN
2004:
2005: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_STATUS_REQ');
2006: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
2007: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
2008: Fnd_Msg_Pub.ADD;
2009: x_return_status := FND_API.G_RET_STS_ERROR;
2002: IF ((p_x_sr_task_rec.status_id is null or p_x_sr_task_rec.status_id = FND_API.G_MISS_NUM)and
2003: (p_x_sr_task_rec.status_name is null or p_x_sr_task_rec.status_name = FND_API.G_MISS_CHAR)) THEN
2004:
2005: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_STATUS_REQ');
2006: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
2007: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
2008: Fnd_Msg_Pub.ADD;
2009: x_return_status := FND_API.G_RET_STS_ERROR;
2010:
2003: (p_x_sr_task_rec.status_name is null or p_x_sr_task_rec.status_name = FND_API.G_MISS_CHAR)) THEN
2004:
2005: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_STATUS_REQ');
2006: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
2007: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
2008: Fnd_Msg_Pub.ADD;
2009: x_return_status := FND_API.G_RET_STS_ERROR;
2010:
2011: END IF;
2016: -- return an error message.
2017: IF (p_x_sr_task_rec.incident_object_version_number is null or
2018: p_x_sr_task_rec.incident_object_version_number = FND_API.G_MISS_NUM) THEN
2019:
2020: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_OBJ_VER_ID_REQ');
2021: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
2022: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
2023: Fnd_Msg_Pub.ADD;
2024: x_return_status := FND_API.G_RET_STS_ERROR;
2017: IF (p_x_sr_task_rec.incident_object_version_number is null or
2018: p_x_sr_task_rec.incident_object_version_number = FND_API.G_MISS_NUM) THEN
2019:
2020: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_OBJ_VER_ID_REQ');
2021: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
2022: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
2023: Fnd_Msg_Pub.ADD;
2024: x_return_status := FND_API.G_RET_STS_ERROR;
2025:
2018: p_x_sr_task_rec.incident_object_version_number = FND_API.G_MISS_NUM) THEN
2019:
2020: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_OBJ_VER_ID_REQ');
2021: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
2022: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
2023: Fnd_Msg_Pub.ADD;
2024: x_return_status := FND_API.G_RET_STS_ERROR;
2025:
2026: END IF;
2031: p_x_sr_task_rec.incident_number = FND_API.G_MISS_CHAR) and
2032: (p_x_sr_task_rec.incident_id is null or
2033: p_x_sr_task_rec.incident_id = FND_API.G_MISS_NUM)THEN
2034:
2035: Fnd_Message.SET_NAME('AHL','AHL_PRD_INCIDENT_VALUE_REQ');
2036: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
2037: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
2038: Fnd_Msg_Pub.ADD;
2039: x_return_status := FND_API.G_RET_STS_ERROR;
2032: (p_x_sr_task_rec.incident_id is null or
2033: p_x_sr_task_rec.incident_id = FND_API.G_MISS_NUM)THEN
2034:
2035: Fnd_Message.SET_NAME('AHL','AHL_PRD_INCIDENT_VALUE_REQ');
2036: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
2037: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
2038: Fnd_Msg_Pub.ADD;
2039: x_return_status := FND_API.G_RET_STS_ERROR;
2040: END IF;
2033: p_x_sr_task_rec.incident_id = FND_API.G_MISS_NUM)THEN
2034:
2035: Fnd_Message.SET_NAME('AHL','AHL_PRD_INCIDENT_VALUE_REQ');
2036: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
2037: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
2038: Fnd_Msg_Pub.ADD;
2039: x_return_status := FND_API.G_RET_STS_ERROR;
2040: END IF;
2041:
2167: l_service_request_rec.customer_product_id := p_x_sr_task_rec.instance_id;
2168: open default_item_org_id(p_x_sr_task_rec.Originating_wo_id);
2169: Fetch default_item_org_id INTO l_service_request_rec.inventory_item_id,l_service_request_rec.inventory_org_id;
2170: IF (default_item_org_id%NOTFOUND ) THEN
2171: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_ORG_ERROR');
2172: Fnd_Msg_Pub.ADD;
2173: x_return_status := FND_API.G_RET_STS_ERROR;
2174: END IF;
2175: CLOSE default_item_org_id;
2196: open default_incident_type_id;
2197: Fetch default_incident_type_id INTO l_service_request_rec.type_id,l_service_request_rec.type_name;
2198:
2199: IF ( default_incident_type_id%NOTFOUND) THEN
2200: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_INCIDENT_ERROR');
2201: Fnd_Msg_Pub.ADD;
2202: x_return_status := FND_API.G_RET_STS_ERROR;
2203: END IF;
2204:
2316:
2317: EXCEPTION
2318:
2319: WHEN OTHERS THEN
2320: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_ORIGINWO_UPD_FAILED');
2321: Fnd_Msg_Pub.ADD;
2322: x_return_status := FND_API.G_RET_STS_ERROR;
2323:
2324: END;
2426: FND_LOG.string(l_log_statement, l_full_name, 'invalid SR id for updating warranty entitlement record');
2427: END IF;
2428:
2429: x_return_status := FND_API.G_RET_STS_ERROR;
2430: FND_MESSAGE.set_name('AHL', 'AHL_UMP_INVALID_INCIDENT_ID');
2431: FND_MESSAGE.set_token('INCIDENT_ID', l_sr_task_rec.incident_id);
2432: FND_MSG_PUB.ADD;
2433: RETURN;
2434: END IF;
2427: END IF;
2428:
2429: x_return_status := FND_API.G_RET_STS_ERROR;
2430: FND_MESSAGE.set_name('AHL', 'AHL_UMP_INVALID_INCIDENT_ID');
2431: FND_MESSAGE.set_token('INCIDENT_ID', l_sr_task_rec.incident_id);
2432: FND_MSG_PUB.ADD;
2433: RETURN;
2434: END IF;
2435: CLOSE Get_warranty_entl_rec_csr;
2479: FND_LOG.string(l_log_statement, l_full_name, 'invalid visit task id for updating warranty entitlement record');
2480: END IF;
2481:
2482: x_return_status := FND_API.G_RET_STS_ERROR;
2483: FND_MESSAGE.set_name('AHL', 'AHL_LTP_TASK_ID_INVALID');
2484: FND_MESSAGE.set_token('TASK_ID', l_visit_task_id);
2485: FND_MSG_PUB.ADD;
2486: RETURN;
2487: END IF;
2480: END IF;
2481:
2482: x_return_status := FND_API.G_RET_STS_ERROR;
2483: FND_MESSAGE.set_name('AHL', 'AHL_LTP_TASK_ID_INVALID');
2484: FND_MESSAGE.set_token('TASK_ID', l_visit_task_id);
2485: FND_MSG_PUB.ADD;
2486: RETURN;
2487: END IF;
2488: CLOSE Get_workorder_id_csr;
2777: FETCH c_get_ue_id into l_unit_effectivity_id ;
2778: IF c_get_ue_id%NotFound
2779: THEN
2780: x_return_status := FND_API.G_RET_STS_ERROR;
2781: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_INVALID_SR');
2782: FND_MESSAGE.SET_TOKEN('WO_ID',p_x_task_tbl(i).originating_wo_id);
2783: FND_MSG_PUB.ADD;
2784: RAISE FND_API.G_EXC_ERROR;
2785: END IF;
2778: IF c_get_ue_id%NotFound
2779: THEN
2780: x_return_status := FND_API.G_RET_STS_ERROR;
2781: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_INVALID_SR');
2782: FND_MESSAGE.SET_TOKEN('WO_ID',p_x_task_tbl(i).originating_wo_id);
2783: FND_MSG_PUB.ADD;
2784: RAISE FND_API.G_EXC_ERROR;
2785: END IF;
2786: CLOSE c_get_ue_id;
3237: Fetch GetOrgTaskDet into l_org_task_id;
3238:
3239: If GetOrgTaskDet%Found and GetOrgTaskDet%rowcount >1
3240: Then
3241: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_TASK_ID_NOT_UNIQUE');
3242: FND_MESSAGE.SET_TOKEN('WO_ID',p_x_task_tbl(i).originating_wo_id);
3243: Fnd_Msg_Pub.ADD;
3244: RAISE FND_API.G_EXC_ERROR;
3245: ElsIf GetOrgTaskDet%NotFound
3238:
3239: If GetOrgTaskDet%Found and GetOrgTaskDet%rowcount >1
3240: Then
3241: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_TASK_ID_NOT_UNIQUE');
3242: FND_MESSAGE.SET_TOKEN('WO_ID',p_x_task_tbl(i).originating_wo_id);
3243: Fnd_Msg_Pub.ADD;
3244: RAISE FND_API.G_EXC_ERROR;
3245: ElsIf GetOrgTaskDet%NotFound
3246: Then
3243: Fnd_Msg_Pub.ADD;
3244: RAISE FND_API.G_EXC_ERROR;
3245: ElsIf GetOrgTaskDet%NotFound
3246: Then
3247: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_INVALID_WO_ID');
3248: FND_MESSAGE.SET_TOKEN('WO_ID',p_x_task_tbl(i).originating_wo_id);
3249: Fnd_Msg_Pub.ADD;
3250: RAISE FND_API.G_EXC_ERROR;
3251: End if;
3244: RAISE FND_API.G_EXC_ERROR;
3245: ElsIf GetOrgTaskDet%NotFound
3246: Then
3247: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_INVALID_WO_ID');
3248: FND_MESSAGE.SET_TOKEN('WO_ID',p_x_task_tbl(i).originating_wo_id);
3249: Fnd_Msg_Pub.ADD;
3250: RAISE FND_API.G_EXC_ERROR;
3251: End if;
3252: Close GetOrgTaskDet;
3282: Open getUnitEffectivity(p_x_task_tbl(i).incident_id);
3283: Fetch getUnitEffectivity into l_unit_effectivity_id ;
3284: IF getUnitEffectivity%NotFound
3285: Then
3286: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_INVALID_SR'); -- New Message needed to be added
3287: FND_MESSAGE.SET_TOKEN('WO_ID',p_x_task_tbl(i).originating_wo_id);
3288: Fnd_Msg_Pub.ADD;
3289: RAISE FND_API.G_EXC_ERROR;
3290: End if;
3283: Fetch getUnitEffectivity into l_unit_effectivity_id ;
3284: IF getUnitEffectivity%NotFound
3285: Then
3286: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_INVALID_SR'); -- New Message needed to be added
3287: FND_MESSAGE.SET_TOKEN('WO_ID',p_x_task_tbl(i).originating_wo_id);
3288: Fnd_Msg_Pub.ADD;
3289: RAISE FND_API.G_EXC_ERROR;
3290: End if;
3291: Close getUnitEffectivity;
3593: -- No exceptions were handled in previous code.
3594: -- Changed the big lengthy Begin------End; code for each sql to Cursor.
3595: -- Too many (Invalid) exception handling got reduced.
3596:
3597: fnd_message.set_name('AHL','AHL_PRD_SR_NOTE');
3598: fnd_message.set_token('PART_NUMBER',l_part_number);
3599: fnd_message.set_token('SERIAL_NUMBER',l_serial_number);
3600: x_note := fnd_message.get;
3601:
3594: -- Changed the big lengthy Begin------End; code for each sql to Cursor.
3595: -- Too many (Invalid) exception handling got reduced.
3596:
3597: fnd_message.set_name('AHL','AHL_PRD_SR_NOTE');
3598: fnd_message.set_token('PART_NUMBER',l_part_number);
3599: fnd_message.set_token('SERIAL_NUMBER',l_serial_number);
3600: x_note := fnd_message.get;
3601:
3602: fnd_message.set_name('AHL','AHL_PRD_SR_NOTE_DETAIL');
3595: -- Too many (Invalid) exception handling got reduced.
3596:
3597: fnd_message.set_name('AHL','AHL_PRD_SR_NOTE');
3598: fnd_message.set_token('PART_NUMBER',l_part_number);
3599: fnd_message.set_token('SERIAL_NUMBER',l_serial_number);
3600: x_note := fnd_message.get;
3601:
3602: fnd_message.set_name('AHL','AHL_PRD_SR_NOTE_DETAIL');
3603: fnd_message.set_token('WO_NAME',l_wo_name);
3596:
3597: fnd_message.set_name('AHL','AHL_PRD_SR_NOTE');
3598: fnd_message.set_token('PART_NUMBER',l_part_number);
3599: fnd_message.set_token('SERIAL_NUMBER',l_serial_number);
3600: x_note := fnd_message.get;
3601:
3602: fnd_message.set_name('AHL','AHL_PRD_SR_NOTE_DETAIL');
3603: fnd_message.set_token('WO_NAME',l_wo_name);
3604: fnd_message.set_token('INSTANCE_NUMBER',l_instance_number);
3598: fnd_message.set_token('PART_NUMBER',l_part_number);
3599: fnd_message.set_token('SERIAL_NUMBER',l_serial_number);
3600: x_note := fnd_message.get;
3601:
3602: fnd_message.set_name('AHL','AHL_PRD_SR_NOTE_DETAIL');
3603: fnd_message.set_token('WO_NAME',l_wo_name);
3604: fnd_message.set_token('INSTANCE_NUMBER',l_instance_number);
3605: x_note_detail := fnd_message.get;
3606:
3599: fnd_message.set_token('SERIAL_NUMBER',l_serial_number);
3600: x_note := fnd_message.get;
3601:
3602: fnd_message.set_name('AHL','AHL_PRD_SR_NOTE_DETAIL');
3603: fnd_message.set_token('WO_NAME',l_wo_name);
3604: fnd_message.set_token('INSTANCE_NUMBER',l_instance_number);
3605: x_note_detail := fnd_message.get;
3606:
3607: END get_note_value;
3600: x_note := fnd_message.get;
3601:
3602: fnd_message.set_name('AHL','AHL_PRD_SR_NOTE_DETAIL');
3603: fnd_message.set_token('WO_NAME',l_wo_name);
3604: fnd_message.set_token('INSTANCE_NUMBER',l_instance_number);
3605: x_note_detail := fnd_message.get;
3606:
3607: END get_note_value;
3608:
3601:
3602: fnd_message.set_name('AHL','AHL_PRD_SR_NOTE_DETAIL');
3603: fnd_message.set_token('WO_NAME',l_wo_name);
3604: fnd_message.set_token('INSTANCE_NUMBER',l_instance_number);
3605: x_note_detail := fnd_message.get;
3606:
3607: END get_note_value;
3608:
3609: -----------------------------------