[Home] [Help]
64: l_end_date_active DATE;
65: l_start_date_active DATE;
66: l_dup_role CS_HZ_SR_CONTACT_POINTS.party_role_code % TYPE;
67: BEGIN
68: x_return_status := FND_API.G_RET_STS_SUCCESS;
69: -- For SR Create API, no need to look for existing contact record because
70: -- there will be none.
71: IF p_mode <> 'CREATE'
72: THEN
191: END IF; --end of condition IF l_not_updated_contacts.count > 0
192: END LOOP;
193: IF l_dup_found <> 0
194: THEN
195: x_return_status := FND_API.g_ret_sts_error;
196: IF l_dup_role = 'CONTACT'
197: THEN
198: FND_MESSAGE.set_name ('CS', 'CS_SR_DUP_CONTACT_PARTY');
199: ELSE
205: END IF;
206: EXCEPTION
207: WHEN OTHERS
208: THEN
209: x_return_status := FND_API.g_ret_sts_error;
210: FND_MESSAGE.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
211: FND_MESSAGE.set_token('P_TEXT','CS_SRCONTACT_PKG.check_duplicates:'||'-'||SQLERRM);
212: FND_MSG_PUB.ADD;
213: END check_duplicates;
397: p_mode VARCHAR2(30);
398: l_today DATE;
399: BEGIN
400: l_api_name_full := 'CS_SRCONTACT_PKG.validate_contact';
401: x_return_status := FND_API.G_RET_STS_SUCCESS;
402: l_today := TRUNC(SYSDATE);
403: -- set p_mode variable.
404: -- This could be passed to this procedure too
405: IF p_old_contact_rec.party_id IS NULL
418: THEN
419: FND_MESSAGE.set_name ('CS','CS_SR_CP_CONTACT_TYPE_UPD_NA');
420: FND_MESSAGE.set_token ('API_NAME','cs_srcontact_pkg.validate_contact');
421: FND_MSG_PUB.add_detail( p_associated_column1=>'CS_HZ_SR_CONTACT_POINTS.CONTACT_TYPE');
422: RAISE FND_API.G_EXC_ERROR;
423: END IF;
424: -- check party_id update
425: IF p_new_contact_rec.party_id <> p_old_contact_rec.party_id
426: THEN
426: THEN
427: FND_MESSAGE.set_name ('CS','CS_SR_CP_PARTY_ID_UPD_NA');
428: FND_MESSAGE.set_token ('API_NAME','cs_srcontact_pkg.validate_contact');
429: FND_MSG_PUB.add_detail( p_associated_column1=>'CS_HZ_SR_CONTACT_POINTS.PARTY_ID');
430: RAISE FND_API.G_EXC_ERROR;
431: END IF;
432: -- check party_role_code update
433: IF p_new_contact_rec.party_role_code <> p_old_contact_rec.party_role_code
434: THEN
434: THEN
435: FND_MESSAGE.set_name ('CS','CS_SR_CP_PARTY_ROLE_UPD_NA');
436: FND_MESSAGE.set_token ('API_NAME','cs_srcontact_pkg.validate_contact');
437: FND_MSG_PUB.add_detail( p_associated_column1=>'CS_HZ_SR_CONTACT_POINTS.PARTY_ROLE_CODE');
438: RAISE FND_API.G_EXC_ERROR;
439: END IF;
440: END IF; -- p_mode = 'UPDATE'
441: --
442: -- Validate Contact Type
448: , p_token_np => 'p_contacts.contact_type'
449: , p_table_name => 'CS_HZ_SR_CONTACT_POINTS'
450: , p_column_name => 'CONTACT_TYPE'
451: );
452: RAISE FND_API.G_EXC_ERROR;
453: ELSIF (p_new_contact_rec.contact_type <> NVL(p_old_contact_rec.contact_type,'xx'))
454: THEN
455: IF NVL(p_new_contact_rec.party_role_code,'x') <> 'CONTACT'
456: THEN
467: , p_token_p => 'p_contacts.contact_type'
468: , p_table_name => 'CS_HZ_SR_CONTACT_POINTS'
469: , p_column_name => 'CONTACT_TYPE'
470: );
471: RAISE FND_API.G_EXC_ERROR;
472: END IF;
473: ELSE -- party role code is CONTACT
474: IF (p_new_contact_rec.contact_type = 'EMPLOYEE' OR
475: p_new_contact_rec.contact_type = 'ORGANIZATION' OR
486: p_token_v => p_new_contact_rec.contact_type,
487: p_token_p => 'p_contacts.contact_type' ,
488: p_table_name => 'CS_HZ_SR_CONTACT_POINTS',
489: p_column_name => 'CONTACT_TYPE');
490: RAISE FND_API.G_EXC_ERROR;
491: END IF;
492: END IF; -- party_role_code = contact
493: END IF; -- for change in contact type
494: --
501: p_token_np => 'p_contacts.party_id',
502: p_table_name => 'CS_HZ_SR_CONTACT_POINTS',
503: p_column_name => 'PARTY_ID'
504: );
505: RAISE FND_API.G_EXC_ERROR;
506: ELSIF (p_new_contact_rec.contact_type <> NVL(p_old_contact_rec.contact_type , 'xx') OR
507: p_new_contact_rec.party_id <> NVL(p_old_contact_rec.party_id , -1 ) OR
508: p_new_contact_rec.party_role_code <> NVL(p_old_contact_rec.party_role_code, 'CONTACT'))
509: THEN
527: , x_party_type => l_party_type
528: , x_status => l_status
529: , x_return_status => x_return_status
530: );
531: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
532: THEN
533: FND_MESSAGE.set_name('CS','CS_SR_ASSOC_PARTY_NE');
534: FND_MESSAGE.set_token('API_NAME','cs_srcontact_pkg.validate_contact');
535: FND_MESSAGE.set_token('PARTY_ID',p_new_contact_rec.party_id);
535: FND_MESSAGE.set_token('PARTY_ID',p_new_contact_rec.party_id);
536: FND_MSG_PUB.add_detail
537: ( p_associated_column1=>'CS_HZ_SR_CONTACT_POINTS.PARTY_ID'
538: );
539: RAISE FND_API.G_EXC_ERROR;
540: END IF;
541: IF l_status <> 'A'
542: THEN
543: FND_MESSAGE.set_name('CS','CS_SR_ASSOC_PARTY_INACTIVE');
545: FND_MESSAGE.set_token('PARTY_ID',p_new_contact_rec.party_id);
546: FND_MSG_PUB.add_detail
547: ( p_associated_column1=>'CS_HZ_SR_CONTACT_POINTS.PARTY_ID'
548: );
549: RAISE FND_API.G_EXC_ERROR;
550: END IF;
551: IF l_party_type <> p_new_contact_rec.contact_type
552: THEN
553: FND_MESSAGE.set_name('CS','CS_SR_ASSOC_PARTYTYPE_MISMATCH');
555: FND_MESSAGE.set_token('CONTACT_TYPE',l_party_type);
556: FND_MSG_PUB.add_detail
557: ( p_associated_column1=>'CS_HZ_SR_CONTACT_POINTS.PARTY_ID'
558: );
559: RAISE FND_API.G_EXC_ERROR;
560: END IF;
561: ELSE
562: -- This part means party role is not contact and contact type is not employee
563: -- so validate contact party and SR customer using relationship between them
579: p_org_id => NULL,
580: x_return_status => x_return_status) ;
581: END IF;
582: END IF; -- for party role_code condition
583: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
584: THEN
585: RAISE FND_API.G_EXC_ERROR;
586: END IF;
587: END IF; -- for change in contact pe or party id
581: END IF;
582: END IF; -- for party role_code condition
583: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
584: THEN
585: RAISE FND_API.G_EXC_ERROR;
586: END IF;
587: END IF; -- for change in contact pe or party id
588: --
589: -- Validate Contact point Type
597: , p_parameter_name => 'p_contact_point_type'
598: , p_contact_point_type => p_new_contact_rec.contact_point_type
599: , x_return_status => x_return_status
600: );
601: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
602: RAISE FND_API.G_EXC_ERROR;
603: END IF;
604: END IF;
605: --
598: , p_contact_point_type => p_new_contact_rec.contact_point_type
599: , x_return_status => x_return_status
600: );
601: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
602: RAISE FND_API.G_EXC_ERROR;
603: END IF;
604: END IF;
605: --
606: -- Validate Contact Point Id
629: , p_token_p => 'p_contact_point_type'
630: , p_table_name => 'CS_HZ_SR_CONTACT_POINTS'
631: , p_column_name => 'CONTACT_POINT_TYPE'
632: );
633: x_return_status := FND_API.G_RET_STS_ERROR;
634: END IF;
635: ELSE -- Contact type is either PERSON or PARTY_RELATIONSHIP
636: CS_ServiceRequest_UTIL.Validate_Per_Contact_Point_Id
637: ( p_api_name => l_api_name_full
641: , p_party_id => p_new_contact_rec.party_id
642: , x_return_status => x_return_status
643: );
644: END IF;
645: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
646: THEN
647: RAISE FND_API.G_EXC_ERROR;
648: END IF;
649: END IF; -- validate contact point id
643: );
644: END IF;
645: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
646: THEN
647: RAISE FND_API.G_EXC_ERROR;
648: END IF;
649: END IF; -- validate contact point id
650: --
651: -- validate Party role
656: CS_SERVICEREQUEST_UTIL.validate_party_role_code
657: ( p_new_contact_rec.party_role_code
658: , x_return_status
659: );
660: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
661: THEN
662: RAISE FND_API.G_EXC_ERROR;
663: END IF;
664: END IF;
658: , x_return_status
659: );
660: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
661: THEN
662: RAISE FND_API.G_EXC_ERROR;
663: END IF;
664: END IF;
665: -- validate primary flag and party role combination
666: IF p_new_contact_rec.primary_flag = 'Y' AND
668: THEN
669: FND_MESSAGE.set_name('CS','CS_SR_PRIMARY_CONTACT_ROLE');
670: FND_MESSAGE.set_token('API_NAME','cs_srcontact_pkg.validate_contact');
671: FND_MSG_PUB.add_detail(p_associated_column1=>'CS_HZ_SR_CONTACT_POINTS.PRIMARY_FLAG');
672: RAISE FND_API.G_EXC_ERROR;
673: END IF;
674: --
675: IF p_new_contact_rec.primary_flag = 'Y' AND
676: p_new_contact_rec.end_date_active IS NOT NULL
677: THEN
678: FND_MESSAGE.set_name('CS','CS_SR_PRIMARY_END_DATED');
679: FND_MESSAGE.set_token('API_NAME','cs_srcontact_pkg.validate_contact');
680: FND_MSG_PUB.add_detail(p_associated_column1=>'CS_HZ_SR_CONTACT_POINTS.PRIMARY_FLAG');
681: RAISE FND_API.G_EXC_ERROR;
682: END IF;
683: --
684: IF p_new_contact_rec.primary_flag = 'Y' AND
685: p_new_contact_rec.start_date_active > l_today
686: THEN
687: FND_MESSAGE.set_name('CS','CS_SR_PRIMARY_FUTURE_DATED');
688: FND_MESSAGE.set_token('API_NAME','cs_srcontact_pkg.validate_contact');
689: FND_MSG_PUB.add_detail(p_associated_column1=>'CS_HZ_SR_CONTACT_POINTS.PRIMARY_FLAG');
690: RAISE FND_API.G_EXC_ERROR;
691: END IF;
692: -- validate Start and End date
693: --
694: IF p_new_contact_rec.end_date_active IS NOT NULL AND
699: FND_MESSAGE.set_token('API_NAME','cs_srcontact_pkg.validate_contact');
700: FND_MESSAGE.set_token('END_DT',to_char(p_new_contact_rec.end_date_active));
701: FND_MESSAGE.set_token('START_DT',to_char(p_new_contact_rec.start_date_active));
702: FND_MSG_PUB.add_detail(p_associated_column1=>'CS_HZ_SR_CONTACT_POINTS.END_DATE_ACITVE');
703: RAISE FND_API.G_EXC_ERROR;
704: END IF;
705:
706: EXCEPTION
707: WHEN FND_API.G_EXC_ERROR THEN
703: RAISE FND_API.G_EXC_ERROR;
704: END IF;
705:
706: EXCEPTION
707: WHEN FND_API.G_EXC_ERROR THEN
708: x_return_status := FND_API.G_RET_STS_ERROR;
709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
711: WHEN OTHERS THEN
704: END IF;
705:
706: EXCEPTION
707: WHEN FND_API.G_EXC_ERROR THEN
708: x_return_status := FND_API.G_RET_STS_ERROR;
709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
711: WHEN OTHERS THEN
712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
705:
706: EXCEPTION
707: WHEN FND_API.G_EXC_ERROR THEN
708: x_return_status := FND_API.G_RET_STS_ERROR;
709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
711: WHEN OTHERS THEN
712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
713: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
706: EXCEPTION
707: WHEN FND_API.G_EXC_ERROR THEN
708: x_return_status := FND_API.G_RET_STS_ERROR;
709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
711: WHEN OTHERS THEN
712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
713: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
714: FND_MSG_PUB.Add_Exc_Msg('aa', l_api_name_full);
708: x_return_status := FND_API.G_RET_STS_ERROR;
709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
711: WHEN OTHERS THEN
712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
713: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
714: FND_MSG_PUB.Add_Exc_Msg('aa', l_api_name_full);
715: END IF;
716: END validate_contact;
778: cs_hz_sr_contact_points
779: WHERE sr_contact_point_id = p_sr_contact_point_id;
780: BEGIN
781: x_new_contact_tbl := p_new_contact_tbl;
782: x_return_status := FND_API.G_RET_STS_SUCCESS;
783: x_updated_cp_qry := ':1';
784: l_updated_cp_index := 1;
785: x_updated_cp_bind(l_updated_cp_index) := -1;
786: FOR i in x_new_contact_tbl.FIRST..x_new_contact_tbl.LAST LOOP
785: x_updated_cp_bind(l_updated_cp_index) := -1;
786: FOR i in x_new_contact_tbl.FIRST..x_new_contact_tbl.LAST LOOP
787: x_old_contact_tbl(i) := NULL;
788: IF x_new_contact_tbl(i).sr_contact_point_id IS NOT NULL AND
789: x_new_contact_tbl(i).sr_contact_point_id <> FND_API.G_MISS_NUM
790: -- so that in update mode, old record is accessed
791: -- if caller passed misspelled p_mode, no harm is done. only record
792: -- will be accessed and nothing will be found
793: THEN
822: ( 'INC_ID'
823: , TO_CHAR(p_incident_id)
824: );
825: FND_MSG_PUB.ADD_DETAIL(P_ASSOCIATED_COLUMN1=>'CS_HZ_SR_CONTACT_POINTS.SR_CONTACT_POINT_ID');
826: x_return_status := FND_API.G_RET_STS_ERROR;
827: EXIT;
828: END IF;
829: l_updated_cp_index := l_updated_cp_index + 1;
830: x_updated_cp_qry :=
832: x_updated_cp_bind(l_updated_cp_index) := x_old_contact_tbl(i).sr_contact_point_id;
833: -- CLOSE c_sr_contact; -- Coommented to resolve bug # 5629281.
834: END IF;
835: END IF;
836: IF x_new_contact_tbl(i).party_id = FND_API.G_MISS_NUM
837: THEN
838: x_new_contact_tbl(i).party_id := x_old_contact_tbl(i).party_id;
839: END IF;
840: IF x_new_contact_tbl(i).contact_type = FND_API.G_MISS_CHAR
836: IF x_new_contact_tbl(i).party_id = FND_API.G_MISS_NUM
837: THEN
838: x_new_contact_tbl(i).party_id := x_old_contact_tbl(i).party_id;
839: END IF;
840: IF x_new_contact_tbl(i).contact_type = FND_API.G_MISS_CHAR
841: THEN
842: x_new_contact_tbl(i).contact_type := x_old_contact_tbl(i).contact_type;
843: END IF;
844: IF x_new_contact_tbl(i).primary_flag = FND_API.G_MISS_CHAR
840: IF x_new_contact_tbl(i).contact_type = FND_API.G_MISS_CHAR
841: THEN
842: x_new_contact_tbl(i).contact_type := x_old_contact_tbl(i).contact_type;
843: END IF;
844: IF x_new_contact_tbl(i).primary_flag = FND_API.G_MISS_CHAR
845: THEN
846: x_new_contact_tbl(i).primary_flag := x_old_contact_tbl(i).primary_flag;
847: END IF;
848: IF x_new_contact_tbl(i).contact_point_id = FND_API.G_MISS_NUM
844: IF x_new_contact_tbl(i).primary_flag = FND_API.G_MISS_CHAR
845: THEN
846: x_new_contact_tbl(i).primary_flag := x_old_contact_tbl(i).primary_flag;
847: END IF;
848: IF x_new_contact_tbl(i).contact_point_id = FND_API.G_MISS_NUM
849: THEN
850: x_new_contact_tbl(i).contact_point_id := x_old_contact_tbl(i).contact_point_id;
851: END IF;
852: IF x_new_contact_tbl(i).contact_point_type = FND_API.G_MISS_CHAR
848: IF x_new_contact_tbl(i).contact_point_id = FND_API.G_MISS_NUM
849: THEN
850: x_new_contact_tbl(i).contact_point_id := x_old_contact_tbl(i).contact_point_id;
851: END IF;
852: IF x_new_contact_tbl(i).contact_point_type = FND_API.G_MISS_CHAR
853: THEN
854: x_new_contact_tbl(i).contact_point_type := x_old_contact_tbl(i).contact_point_type;
855: END IF;
856: IF x_new_contact_tbl(i).sr_contact_point_id = FND_API.G_MISS_NUM
852: IF x_new_contact_tbl(i).contact_point_type = FND_API.G_MISS_CHAR
853: THEN
854: x_new_contact_tbl(i).contact_point_type := x_old_contact_tbl(i).contact_point_type;
855: END IF;
856: IF x_new_contact_tbl(i).sr_contact_point_id = FND_API.G_MISS_NUM
857: THEN
858: x_new_contact_tbl(i).sr_contact_point_id:= x_old_contact_tbl(i).sr_contact_point_id;
859: END IF;
860: IF x_new_contact_tbl(i).party_role_code = FND_API.G_MISS_CHAR
856: IF x_new_contact_tbl(i).sr_contact_point_id = FND_API.G_MISS_NUM
857: THEN
858: x_new_contact_tbl(i).sr_contact_point_id:= x_old_contact_tbl(i).sr_contact_point_id;
859: END IF;
860: IF x_new_contact_tbl(i).party_role_code = FND_API.G_MISS_CHAR
861: THEN
862: x_new_contact_tbl(i).party_role_code := x_old_contact_tbl(i).party_role_code;
863: END IF;
864: IF x_new_contact_tbl(i).party_role_code IS NULL
864: IF x_new_contact_tbl(i).party_role_code IS NULL
865: THEN
866: x_new_contact_tbl(i).party_role_code := 'CONTACT';
867: END IF;
868: IF x_new_contact_tbl(i).start_date_active = FND_API.G_MISS_DATE
869: THEN
870: x_new_contact_tbl(i).start_date_active := x_old_contact_tbl(i).start_date_active;
871: END IF;
872: IF x_new_contact_tbl(i).end_date_active = FND_API.G_MISS_DATE
868: IF x_new_contact_tbl(i).start_date_active = FND_API.G_MISS_DATE
869: THEN
870: x_new_contact_tbl(i).start_date_active := x_old_contact_tbl(i).start_date_active;
871: END IF;
872: IF x_new_contact_tbl(i).end_date_active = FND_API.G_MISS_DATE
873: THEN
874: x_new_contact_tbl(i).end_date_active := x_old_contact_tbl(i).end_date_active;
875: END IF;
876: x_new_contact_tbl(i).start_date_active := TRUNC(x_new_contact_tbl(i).start_date_active);
952: BEGIN
953: l_audit_enabled := FND_PROFILE.value('CS_SR_CONT_PNT_AUDIT_ENABLED');
954: IF p_contact_tbl.COUNT = 0
955: THEN
956: x_return_status := FND_API.G_RET_STS_SUCCESS;
957: RETURN;
958: END IF;
959:
960: l_sysdate := sysdate;
1184: l_today DATE;
1185: --
1186: BEGIN
1187: l_api_name_full := 'CS_SRCONTACT_PKG.process';
1188: x_return_Status := FND_API.G_RET_STS_SUCCESS;
1189: l_today := TRUNC(SYSDATE);
1190: l_primary_found := 0;
1191: IF p_contact_tbl.COUNT = 0
1192: THEN
1201: , x_updated_cp_qry => l_updated_cp_qry
1202: , x_updated_cp_bind => l_updated_cp_bind
1203: , x_return_status => x_return_status
1204: );
1205: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1206: THEN
1207: RAISE FND_API.G_EXC_ERROR;
1208: END IF;
1209: --
1203: , x_return_status => x_return_status
1204: );
1205: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1206: THEN
1207: RAISE FND_API.G_EXC_ERROR;
1208: END IF;
1209: --
1210: -- Check for primary if contacts are being passed
1211: --
1240: , p_token_p => 'p_contacts.primary_flag'
1241: , p_table_name => 'CS_HZ_SR_CONTACT_POINTS'
1242: , p_column_name => 'PRIMARY_FLAG'
1243: );
1244: RAISE FND_API.G_EXC_ERROR;
1245: ELSIF l_primary_found = 0
1246: THEN
1247: l_existing_primary := 0;
1248: IF p_mode <> 'CREATE'
1261: CS_SERVICEREQUEST_UTIL.add_null_parameter_msg
1262: ( p_token_an => l_api_name_full
1263: , p_token_np => 'Primary Contact Information'
1264: );
1265: RAISE FND_API.G_EXC_ERROR;
1266: END IF;
1267: ELSE -- means primary contact count is exactly 1. in case of update mode
1268: -- existing primary cantact should be made non primary.
1269: IF p_mode <> 'CREATE'
1267: ELSE -- means primary contact count is exactly 1. in case of update mode
1268: -- existing primary cantact should be made non primary.
1269: IF p_mode <> 'CREATE'
1270: THEN
1271: IF l_sr_contact_point_id_pri = FND_API.G_MISS_NUM
1272: THEN
1273: l_sr_contact_point_id_pri := NULL;
1274: END IF;
1275: reset_primary_flag(p_incident_id, l_sr_contact_point_id_pri, x_return_status);
1272: THEN
1273: l_sr_contact_point_id_pri := NULL;
1274: END IF;
1275: reset_primary_flag(p_incident_id, l_sr_contact_point_id_pri, x_return_status);
1276: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1277: THEN
1278: RAISE FND_API.G_EXC_ERROR;
1279: END IF;
1280: END IF;
1274: END IF;
1275: reset_primary_flag(p_incident_id, l_sr_contact_point_id_pri, x_return_status);
1276: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1277: THEN
1278: RAISE FND_API.G_EXC_ERROR;
1279: END IF;
1280: END IF;
1281: END IF;
1282: END IF; -- l_contact_party_role_found
1282: END IF; -- l_contact_party_role_found
1283: --
1284: -- Now Validate contact records
1285: --
1286: IF p_validation_mode > FND_API.G_VALID_LEVEL_NONE
1287: THEN
1288: FOR loop_index in l_new_contact_tbl.FIRST..l_new_contact_tbl.LAST LOOP
1289: IF l_primary_found = 0 AND
1290: l_old_contact_tbl(loop_index).primary_flag = 'Y' AND -- if it is null, no execution
1299: ( 'INC_ID'
1300: , TO_CHAR(l_new_contact_tbl(loop_index).sr_contact_point_id)
1301: );
1302: FND_MSG_PUB.ADD_DETAIL(P_ASSOCIATED_COLUMN1=>'CS_HZ_SR_CONTACT_POINTS.PRIMARY_FLAG');
1303: RAISE FND_API.G_EXC_ERROR;
1304: END IF;
1305: END IF;
1306: validate_contact
1307: ( p_caller_type => p_caller_type
1309: , p_new_contact_rec => l_new_contact_tbl(loop_index)
1310: , p_old_contact_rec => l_old_contact_tbl(loop_index)
1311: , x_return_status => x_return_status
1312: );
1313: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1314: THEN
1315: RAISE FND_API.G_EXC_ERROR;
1316: END IF;
1317: END LOOP;
1311: , x_return_status => x_return_status
1312: );
1313: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1314: THEN
1315: RAISE FND_API.G_EXC_ERROR;
1316: END IF;
1317: END LOOP;
1318: --
1319: -- Check for duplicate contact point Records
1325: , p_updated_cp_bind => l_updated_cp_bind
1326: , p_incident_id => p_incident_id
1327: , x_return_status => x_return_status
1328: );
1329: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1330: THEN
1331: RAISE FND_API.G_EXC_ERROR;
1332: END IF;
1333: END IF; -- check for validation level
1327: , x_return_status => x_return_status
1328: );
1329: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1330: THEN
1331: RAISE FND_API.G_EXC_ERROR;
1332: END IF;
1333: END IF; -- check for validation level
1334: x_contact_tbl := l_new_contact_tbl;
1335: x_old_contact_tbl := l_old_contact_tbl;
1333: END IF; -- check for validation level
1334: x_contact_tbl := l_new_contact_tbl;
1335: x_old_contact_tbl := l_old_contact_tbl;
1336: EXCEPTION
1337: WHEN FND_API.G_EXC_ERROR THEN
1338: x_return_status := FND_API.G_RET_STS_ERROR;
1339: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1341: WHEN OTHERS THEN
1334: x_contact_tbl := l_new_contact_tbl;
1335: x_old_contact_tbl := l_old_contact_tbl;
1336: EXCEPTION
1337: WHEN FND_API.G_EXC_ERROR THEN
1338: x_return_status := FND_API.G_RET_STS_ERROR;
1339: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1341: WHEN OTHERS THEN
1342: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1335: x_old_contact_tbl := l_old_contact_tbl;
1336: EXCEPTION
1337: WHEN FND_API.G_EXC_ERROR THEN
1338: x_return_status := FND_API.G_RET_STS_ERROR;
1339: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1341: WHEN OTHERS THEN
1342: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1343: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1336: EXCEPTION
1337: WHEN FND_API.G_EXC_ERROR THEN
1338: x_return_status := FND_API.G_RET_STS_ERROR;
1339: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1341: WHEN OTHERS THEN
1342: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1343: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1344: FND_MSG_PUB.Add_Exc_Msg('aa', l_api_name_full);
1338: x_return_status := FND_API.G_RET_STS_ERROR;
1339: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1341: WHEN OTHERS THEN
1342: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1343: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1344: FND_MSG_PUB.Add_Exc_Msg('aa', l_api_name_full);
1345: END IF;
1346: END process;
1393: END LOOP;
1394:
1395: EXCEPTION
1396: WHEN OTHERS THEN
1397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1398: FND_MSG_PUB.Count_And_Get
1399: ( p_count => x_msg_count,
1400: p_data => x_msg_data);
1401: RAISE;