[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: --Added by Lakshmi for 12.1.2 project,Added another 'AND' condition ,
675: --To throw an error is a primary contact is endated and Profile 'CS_SR_CONTACT_MANDATORY' is set to Yes.
676: IF p_new_contact_rec.primary_flag = 'Y' AND
679: THEN
680: FND_MESSAGE.set_name('CS','CS_SR_PRIMARY_END_DATED');
681: FND_MESSAGE.set_token('API_NAME','cs_srcontact_pkg.validate_contact');
682: FND_MSG_PUB.add_detail(p_associated_column1=>'CS_HZ_SR_CONTACT_POINTS.PRIMARY_FLAG');
683: RAISE FND_API.G_EXC_ERROR;
684: END IF;
685: --
686: IF p_new_contact_rec.primary_flag = 'Y' AND
687: p_new_contact_rec.start_date_active > l_today
688: THEN
689: FND_MESSAGE.set_name('CS','CS_SR_PRIMARY_FUTURE_DATED');
690: FND_MESSAGE.set_token('API_NAME','cs_srcontact_pkg.validate_contact');
691: FND_MSG_PUB.add_detail(p_associated_column1=>'CS_HZ_SR_CONTACT_POINTS.PRIMARY_FLAG');
692: RAISE FND_API.G_EXC_ERROR;
693: END IF;
694: -- validate Start and End date
695: --
696: IF p_new_contact_rec.end_date_active IS NOT NULL AND
701: FND_MESSAGE.set_token('API_NAME','cs_srcontact_pkg.validate_contact');
702: FND_MESSAGE.set_token('END_DT',to_char(p_new_contact_rec.end_date_active));
703: FND_MESSAGE.set_token('START_DT',to_char(p_new_contact_rec.start_date_active));
704: FND_MSG_PUB.add_detail(p_associated_column1=>'CS_HZ_SR_CONTACT_POINTS.END_DATE_ACITVE');
705: RAISE FND_API.G_EXC_ERROR;
706: END IF;
707:
708: EXCEPTION
709: WHEN FND_API.G_EXC_ERROR THEN
705: RAISE FND_API.G_EXC_ERROR;
706: END IF;
707:
708: EXCEPTION
709: WHEN FND_API.G_EXC_ERROR THEN
710: x_return_status := FND_API.G_RET_STS_ERROR;
711: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
713: WHEN OTHERS THEN
706: END IF;
707:
708: EXCEPTION
709: WHEN FND_API.G_EXC_ERROR THEN
710: x_return_status := FND_API.G_RET_STS_ERROR;
711: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
713: WHEN OTHERS THEN
714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
707:
708: EXCEPTION
709: WHEN FND_API.G_EXC_ERROR THEN
710: x_return_status := FND_API.G_RET_STS_ERROR;
711: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
713: WHEN OTHERS THEN
714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
715: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
708: EXCEPTION
709: WHEN FND_API.G_EXC_ERROR THEN
710: x_return_status := FND_API.G_RET_STS_ERROR;
711: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
713: WHEN OTHERS THEN
714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
715: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
716: FND_MSG_PUB.Add_Exc_Msg('aa', l_api_name_full);
710: x_return_status := FND_API.G_RET_STS_ERROR;
711: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
713: WHEN OTHERS THEN
714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
715: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
716: FND_MSG_PUB.Add_Exc_Msg('aa', l_api_name_full);
717: END IF;
718: END validate_contact;
780: cs_hz_sr_contact_points
781: WHERE sr_contact_point_id = p_sr_contact_point_id;
782: BEGIN
783: x_new_contact_tbl := p_new_contact_tbl;
784: x_return_status := FND_API.G_RET_STS_SUCCESS;
785: x_updated_cp_qry := ':1';
786: l_updated_cp_index := 1;
787: x_updated_cp_bind(l_updated_cp_index) := -1;
788: FOR i in x_new_contact_tbl.FIRST..x_new_contact_tbl.LAST LOOP
787: x_updated_cp_bind(l_updated_cp_index) := -1;
788: FOR i in x_new_contact_tbl.FIRST..x_new_contact_tbl.LAST LOOP
789: x_old_contact_tbl(i) := NULL;
790: IF x_new_contact_tbl(i).sr_contact_point_id IS NOT NULL AND
791: x_new_contact_tbl(i).sr_contact_point_id <> FND_API.G_MISS_NUM
792: -- so that in update mode, old record is accessed
793: -- if caller passed misspelled p_mode, no harm is done. only record
794: -- will be accessed and nothing will be found
795: THEN
824: ( 'INC_ID'
825: , TO_CHAR(p_incident_id)
826: );
827: FND_MSG_PUB.ADD_DETAIL(P_ASSOCIATED_COLUMN1=>'CS_HZ_SR_CONTACT_POINTS.SR_CONTACT_POINT_ID');
828: x_return_status := FND_API.G_RET_STS_ERROR;
829: EXIT;
830: END IF;
831: l_updated_cp_index := l_updated_cp_index + 1;
832: x_updated_cp_qry :=
834: x_updated_cp_bind(l_updated_cp_index) := x_old_contact_tbl(i).sr_contact_point_id;
835: -- CLOSE c_sr_contact; -- Coommented to resolve bug # 5629281.
836: END IF;
837: END IF;
838: IF x_new_contact_tbl(i).party_id = FND_API.G_MISS_NUM
839: THEN
840: x_new_contact_tbl(i).party_id := x_old_contact_tbl(i).party_id;
841: END IF;
842: IF x_new_contact_tbl(i).contact_type = FND_API.G_MISS_CHAR
838: IF x_new_contact_tbl(i).party_id = FND_API.G_MISS_NUM
839: THEN
840: x_new_contact_tbl(i).party_id := x_old_contact_tbl(i).party_id;
841: END IF;
842: IF x_new_contact_tbl(i).contact_type = FND_API.G_MISS_CHAR
843: THEN
844: x_new_contact_tbl(i).contact_type := x_old_contact_tbl(i).contact_type;
845: END IF;
846: IF x_new_contact_tbl(i).primary_flag = FND_API.G_MISS_CHAR
842: IF x_new_contact_tbl(i).contact_type = FND_API.G_MISS_CHAR
843: THEN
844: x_new_contact_tbl(i).contact_type := x_old_contact_tbl(i).contact_type;
845: END IF;
846: IF x_new_contact_tbl(i).primary_flag = FND_API.G_MISS_CHAR
847: THEN
848: x_new_contact_tbl(i).primary_flag := x_old_contact_tbl(i).primary_flag;
849: END IF;
850: IF x_new_contact_tbl(i).contact_point_id = FND_API.G_MISS_NUM
846: IF x_new_contact_tbl(i).primary_flag = FND_API.G_MISS_CHAR
847: THEN
848: x_new_contact_tbl(i).primary_flag := x_old_contact_tbl(i).primary_flag;
849: END IF;
850: IF x_new_contact_tbl(i).contact_point_id = FND_API.G_MISS_NUM
851: THEN
852: x_new_contact_tbl(i).contact_point_id := x_old_contact_tbl(i).contact_point_id;
853: END IF;
854: IF x_new_contact_tbl(i).contact_point_type = FND_API.G_MISS_CHAR
850: IF x_new_contact_tbl(i).contact_point_id = FND_API.G_MISS_NUM
851: THEN
852: x_new_contact_tbl(i).contact_point_id := x_old_contact_tbl(i).contact_point_id;
853: END IF;
854: IF x_new_contact_tbl(i).contact_point_type = FND_API.G_MISS_CHAR
855: THEN
856: x_new_contact_tbl(i).contact_point_type := x_old_contact_tbl(i).contact_point_type;
857: END IF;
858: IF x_new_contact_tbl(i).sr_contact_point_id = FND_API.G_MISS_NUM
854: IF x_new_contact_tbl(i).contact_point_type = FND_API.G_MISS_CHAR
855: THEN
856: x_new_contact_tbl(i).contact_point_type := x_old_contact_tbl(i).contact_point_type;
857: END IF;
858: IF x_new_contact_tbl(i).sr_contact_point_id = FND_API.G_MISS_NUM
859: THEN
860: x_new_contact_tbl(i).sr_contact_point_id:= x_old_contact_tbl(i).sr_contact_point_id;
861: END IF;
862: IF x_new_contact_tbl(i).party_role_code = FND_API.G_MISS_CHAR
858: IF x_new_contact_tbl(i).sr_contact_point_id = FND_API.G_MISS_NUM
859: THEN
860: x_new_contact_tbl(i).sr_contact_point_id:= x_old_contact_tbl(i).sr_contact_point_id;
861: END IF;
862: IF x_new_contact_tbl(i).party_role_code = FND_API.G_MISS_CHAR
863: THEN
864: x_new_contact_tbl(i).party_role_code := x_old_contact_tbl(i).party_role_code;
865: END IF;
866: IF x_new_contact_tbl(i).party_role_code IS NULL
866: IF x_new_contact_tbl(i).party_role_code IS NULL
867: THEN
868: x_new_contact_tbl(i).party_role_code := 'CONTACT';
869: END IF;
870: IF x_new_contact_tbl(i).start_date_active = FND_API.G_MISS_DATE
871: THEN
872: x_new_contact_tbl(i).start_date_active := x_old_contact_tbl(i).start_date_active;
873: END IF;
874: IF x_new_contact_tbl(i).end_date_active = FND_API.G_MISS_DATE
870: IF x_new_contact_tbl(i).start_date_active = FND_API.G_MISS_DATE
871: THEN
872: x_new_contact_tbl(i).start_date_active := x_old_contact_tbl(i).start_date_active;
873: END IF;
874: IF x_new_contact_tbl(i).end_date_active = FND_API.G_MISS_DATE
875: THEN
876: x_new_contact_tbl(i).end_date_active := x_old_contact_tbl(i).end_date_active;
877: END IF;
878: x_new_contact_tbl(i).start_date_active := TRUNC(x_new_contact_tbl(i).start_date_active);
963: --end of change siahmed
964:
965: IF p_contact_tbl.COUNT = 0
966: THEN
967: x_return_status := FND_API.G_RET_STS_SUCCESS;
968: RETURN;
969: END IF;
970:
971: l_sysdate := sysdate;
1205: l_today DATE;
1206: --
1207: BEGIN
1208: l_api_name_full := 'CS_SRCONTACT_PKG.process';
1209: x_return_Status := FND_API.G_RET_STS_SUCCESS;
1210: l_today := TRUNC(SYSDATE);
1211: l_primary_found := 0;
1212: IF p_contact_tbl.COUNT = 0
1213: THEN
1222: , x_updated_cp_qry => l_updated_cp_qry
1223: , x_updated_cp_bind => l_updated_cp_bind
1224: , x_return_status => x_return_status
1225: );
1226: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1227: THEN
1228: RAISE FND_API.G_EXC_ERROR;
1229: END IF;
1230: --
1224: , x_return_status => x_return_status
1225: );
1226: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1227: THEN
1228: RAISE FND_API.G_EXC_ERROR;
1229: END IF;
1230: --
1231: -- Check for primary if contacts are being passed
1232: --
1261: , p_token_p => 'p_contacts.primary_flag'
1262: , p_table_name => 'CS_HZ_SR_CONTACT_POINTS'
1263: , p_column_name => 'PRIMARY_FLAG'
1264: );
1265: RAISE FND_API.G_EXC_ERROR;
1266: ELSIF l_primary_found = 0
1267: THEN
1268: l_existing_primary := 0;
1269: IF p_mode <> 'CREATE'
1282: CS_SERVICEREQUEST_UTIL.add_null_parameter_msg
1283: ( p_token_an => l_api_name_full
1284: , p_token_np => 'Primary Contact Information'
1285: );
1286: RAISE FND_API.G_EXC_ERROR;
1287: END IF;
1288: ELSE -- means primary contact count is exactly 1. in case of update mode
1289: -- existing primary cantact should be made non primary.
1290: IF p_mode <> 'CREATE'
1288: ELSE -- means primary contact count is exactly 1. in case of update mode
1289: -- existing primary cantact should be made non primary.
1290: IF p_mode <> 'CREATE'
1291: THEN
1292: IF l_sr_contact_point_id_pri = FND_API.G_MISS_NUM
1293: THEN
1294: l_sr_contact_point_id_pri := NULL;
1295: END IF;
1296: reset_primary_flag(p_incident_id, l_sr_contact_point_id_pri, x_return_status);
1293: THEN
1294: l_sr_contact_point_id_pri := NULL;
1295: END IF;
1296: reset_primary_flag(p_incident_id, l_sr_contact_point_id_pri, x_return_status);
1297: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1298: THEN
1299: RAISE FND_API.G_EXC_ERROR;
1300: END IF;
1301: END IF;
1295: END IF;
1296: reset_primary_flag(p_incident_id, l_sr_contact_point_id_pri, x_return_status);
1297: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1298: THEN
1299: RAISE FND_API.G_EXC_ERROR;
1300: END IF;
1301: END IF;
1302: END IF;
1303: END IF; -- l_contact_party_role_found
1303: END IF; -- l_contact_party_role_found
1304: --
1305: -- Now Validate contact records
1306: --
1307: IF p_validation_mode > FND_API.G_VALID_LEVEL_NONE
1308: THEN
1309: FOR loop_index in l_new_contact_tbl.FIRST..l_new_contact_tbl.LAST LOOP
1310: -- Commented for 12.1.2 project ,end-dating contact points,Lakshmi
1311: /* IF l_primary_found = 0 AND
1321: ( 'INC_ID'
1322: , TO_CHAR(l_new_contact_tbl(loop_index).sr_contact_point_id)
1323: );
1324: FND_MSG_PUB.ADD_DETAIL(P_ASSOCIATED_COLUMN1=>'CS_HZ_SR_CONTACT_POINTS.PRIMARY_FLAG');
1325: RAISE FND_API.G_EXC_ERROR;
1326: END IF;
1327: END IF;*/
1328: -- Comment ends for 12.1.2 project ,end-dating contact points
1329: validate_contact
1332: , p_new_contact_rec => l_new_contact_tbl(loop_index)
1333: , p_old_contact_rec => l_old_contact_tbl(loop_index)
1334: , x_return_status => x_return_status
1335: );
1336: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1337: THEN
1338: RAISE FND_API.G_EXC_ERROR;
1339: END IF;
1340: END LOOP;
1334: , x_return_status => x_return_status
1335: );
1336: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1337: THEN
1338: RAISE FND_API.G_EXC_ERROR;
1339: END IF;
1340: END LOOP;
1341: --
1342: -- Check for duplicate contact point Records
1348: , p_updated_cp_bind => l_updated_cp_bind
1349: , p_incident_id => p_incident_id
1350: , x_return_status => x_return_status
1351: );
1352: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1353: THEN
1354: RAISE FND_API.G_EXC_ERROR;
1355: END IF;
1356: --Lakshmi - 12.1.2 Nov Project -Change starts for End Dating Contact
1350: , x_return_status => x_return_status
1351: );
1352: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1353: THEN
1354: RAISE FND_API.G_EXC_ERROR;
1355: END IF;
1356: --Lakshmi - 12.1.2 Nov Project -Change starts for End Dating Contact
1357: IF l_new_contact_tbl.count = 1 -- IF THERE ONLY ONE CONTACT
1358: THEN
1420:
1421: FND_MESSAGE.set_token ('CONTACT_LAST_NAME',l_last_name);
1422: FND_MESSAGE.set_token ('CONTACT_FIRST_NAME',l_first_name);
1423: FND_MSG_PUB.add;
1424: RAISE FND_API.G_EXC_ERROR;
1425: END IF;
1426:
1427: --End of changes for 12.1.2 -End Dating Contact by Lakshmi
1428: END IF; -- check for validation level
1428: END IF; -- check for validation level
1429: x_contact_tbl := l_new_contact_tbl;
1430: x_old_contact_tbl := l_old_contact_tbl;
1431: EXCEPTION
1432: WHEN FND_API.G_EXC_ERROR THEN
1433: x_return_status := FND_API.G_RET_STS_ERROR;
1434: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1436: WHEN OTHERS THEN
1429: x_contact_tbl := l_new_contact_tbl;
1430: x_old_contact_tbl := l_old_contact_tbl;
1431: EXCEPTION
1432: WHEN FND_API.G_EXC_ERROR THEN
1433: x_return_status := FND_API.G_RET_STS_ERROR;
1434: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1436: WHEN OTHERS THEN
1437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1430: x_old_contact_tbl := l_old_contact_tbl;
1431: EXCEPTION
1432: WHEN FND_API.G_EXC_ERROR THEN
1433: x_return_status := FND_API.G_RET_STS_ERROR;
1434: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1436: WHEN OTHERS THEN
1437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1438: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1431: EXCEPTION
1432: WHEN FND_API.G_EXC_ERROR THEN
1433: x_return_status := FND_API.G_RET_STS_ERROR;
1434: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1436: WHEN OTHERS THEN
1437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1438: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1439: FND_MSG_PUB.Add_Exc_Msg('aa', l_api_name_full);
1433: x_return_status := FND_API.G_RET_STS_ERROR;
1434: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1436: WHEN OTHERS THEN
1437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1438: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1439: FND_MSG_PUB.Add_Exc_Msg('aa', l_api_name_full);
1440: END IF;
1441: END process;
1488: END LOOP;
1489:
1490: EXCEPTION
1491: WHEN OTHERS THEN
1492: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1493: FND_MSG_PUB.Count_And_Get
1494: ( p_count => x_msg_count,
1495: p_data => x_msg_data);
1496: RAISE;