[Home] [Help]
129: X_LINK_ID => x_link_id );
130:
131: EXCEPTION
132: WHEN OTHERS THEN
133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
134: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
135: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
136: FND_MSG_PUB.ADD;
137: FND_MSG_PUB.Count_And_Get(
241: -- Standard start of API savepoint
242: SAVEPOINT Create_IncidentLink_PVT;
243:
244: -- Initialize message list if p_init_msg_list is set to TRUE
245: IF FND_API.To_Boolean(p_init_msg_list) THEN
246: FND_MSG_PUB.Initialize;
247: END IF;
248:
249: -- Allow this API to be called with both version numbers, 1.2 and 2.0,
254: l_invoked_version := 2.0;
255: END IF;
256:
257: -- Standard call to check for call compatibility
258: IF NOT FND_API.Compatible_API_Call(l_invoked_version, p_api_version,
259: l_api_name, G_PKG_NAME) THEN
260: FND_MSG_PUB.Count_And_Get(
261: p_count => x_msg_count,
262: p_data => x_msg_data );
260: FND_MSG_PUB.Count_And_Get(
261: p_count => x_msg_count,
262: p_data => x_msg_data );
263:
264: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
265: END IF;
266:
267: -- Initialize API return status to success
268: x_return_status := FND_API.G_RET_STS_SUCCESS;
264: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
265: END IF;
266:
267: -- Initialize API return status to success
268: x_return_status := FND_API.G_RET_STS_SUCCESS;
269:
270: -- ----------------------------------------------------------------------
271: -- Apply parameter validations and business-rule validation to all passed
272: -- parameters if validation level is set.
271: -- Apply parameter validations and business-rule validation to all passed
272: -- parameters if validation level is set.
273: -- ----------------------------------------------------------------------
274: -- Check if the passed in link id is already used.
275: if ( p_link_rec.link_id <> FND_API.G_MISS_NUM and
276: p_link_rec.link_id IS NOT NULL ) then
277:
278: select count(*)
279: into l_count
281: where link_id = p_link_rec.link_id;
282:
283: if ( l_count > 0 ) then
284: -- link_id is already used. return error.
285: x_return_status := FND_API.G_RET_STS_ERROR;
286: CS_SERVICEREQUEST_UTIL.Add_Invalid_Argument_Msg(
287: p_token_an => l_api_name_full,
288: p_token_v => p_link_rec.link_id,
289: p_token_p => 'link_id' );
287: p_token_an => l_api_name_full,
288: p_token_v => p_link_rec.link_id,
289: p_token_p => 'link_id' );
290:
291: RAISE FND_API.G_EXC_ERROR;
292: else
293: l_link_id := p_link_rec.link_id;
294: end if;
295: else
297: into l_link_id
298: from dual;
299: end if;
300:
301: IF (p_validation_level > FND_API.G_VALID_LEVEL_NONE) THEN
302: --
303: -- Validate the user and login id's
304: --
305: CS_ServiceRequest_UTIL.Validate_Who_Info (
309: p_user_id => p_user_id,
310: p_login_id => p_login_id,
311: x_return_status => x_return_status );
312:
313: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
314: FND_MSG_PUB.Count_And_Get(
315: p_count => x_msg_count,
316: p_data => x_msg_data );
317: RAISE FND_API.G_EXC_ERROR;
313: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
314: FND_MSG_PUB.Count_And_Get(
315: p_count => x_msg_count,
316: p_data => x_msg_data );
317: RAISE FND_API.G_EXC_ERROR;
318: END IF;
319:
320: -- Sanity validation
321: -- Check if the link type passed is valid
324: X_RETURN_STATUS => x_return_status,
325: X_MSG_COUNT => x_msg_count,
326: X_MSG_DATA => x_msg_data );
327:
328: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
329: -- Specified link type is not valid.
330: RAISE FND_API.G_EXC_ERROR;
331: end if;
332:
326: X_MSG_DATA => x_msg_data );
327:
328: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
329: -- Specified link type is not valid.
330: RAISE FND_API.G_EXC_ERROR;
331: end if;
332:
333: -- Business validations.
334: -- Perform check for valid objects
341: X_RETURN_STATUS => x_return_status,
342: X_MSG_COUNT => x_msg_count,
343: X_MSG_DATA => x_msg_data ) ;
344:
345: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
346: -- Valid objects do not exist for the given Object, Related Object and Link
347: -- type combination. Please define a valid object for this combination.
348: RAISE FND_API.G_EXC_ERROR;
349: end if;
344:
345: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
346: -- Valid objects do not exist for the given Object, Related Object and Link
347: -- type combination. Please define a valid object for this combination.
348: RAISE FND_API.G_EXC_ERROR;
349: end if;
350:
351: /**********************************
352: -- Check if parameters passed are valid
368: FND_MSG_PUB.Count_And_Get(
369: p_count => x_msg_count,
370: p_data => x_msg_data);
371:
372: RAISE FND_API.G_EXC_ERROR;
373: END IF;
374:
375:
376: CS_INCIDENTLINKS_UTIL.VALIDATE_LINK_DETAILS (
386: X_RETURN_STATUS => x_return_status,
387: X_MSG_COUNT => x_msg_count,
388: X_MSG_DATA => x_msg_data );
389:
390: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
391: -- Link details are invalid.
392: RAISE FND_API.G_EXC_ERROR;
393: end if; -- if ( x_return_status <> FND_API.G_RET_STS_SUCCESS )
394:
388: X_MSG_DATA => x_msg_data );
389:
390: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
391: -- Link details are invalid.
392: RAISE FND_API.G_EXC_ERROR;
393: end if; -- if ( x_return_status <> FND_API.G_RET_STS_SUCCESS )
394:
395:
396: -- For bugs 2972584 and 2972611
389:
390: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
391: -- Link details are invalid.
392: RAISE FND_API.G_EXC_ERROR;
393: end if; -- if ( x_return_status <> FND_API.G_RET_STS_SUCCESS )
394:
395:
396: -- For bugs 2972584 and 2972611
397: -- Perform the following validation only if the invoked version is 2.0 (not 1.2)
408: x_return_status => x_return_status,
409: x_msg_count => x_msg_count,
410: x_msg_data => x_msg_data );
411:
412: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
413: -- Responsibility RESP_NAME does not have access to service
414: -- request SR_NUMBER.
415: RAISE FND_API.G_EXC_ERROR;
416: end if;
411:
412: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
413: -- Responsibility RESP_NAME does not have access to service
414: -- request SR_NUMBER.
415: RAISE FND_API.G_EXC_ERROR;
416: end if;
417: end if;
418:
419: if ( p_link_rec.object_type = 'SR' ) then
421: p_incident_id => p_link_rec.object_id,
422: x_return_status => x_return_status,
423: x_msg_count => x_msg_count,
424: x_msg_data => x_msg_data );
425: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
426: -- Responsibility RESP_NAME does not have access to service
427: -- request SR_NUMBER.
428: RAISE FND_API.G_EXC_ERROR;
429: end if;
424: x_msg_data => x_msg_data );
425: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
426: -- Responsibility RESP_NAME does not have access to service
427: -- request SR_NUMBER.
428: RAISE FND_API.G_EXC_ERROR;
429: end if;
430: end if;
431:
432: -- END OF SECURITY ACCESS CHECK FOR R11.5.10
442: X_RETURN_STATUS => x_return_status,
443: X_MSG_COUNT => x_msg_count,
444: X_MSG_DATA => x_msg_data );
445:
446: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
447: -- Duplicate link. Link already exists for given object and related object.
448: RAISE FND_API.G_EXC_ERROR;
449: end if; -- if ( x_return_status <> FND_API.G_RET_STS_SUCCESS )
450:
444: X_MSG_DATA => x_msg_data );
445:
446: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
447: -- Duplicate link. Link already exists for given object and related object.
448: RAISE FND_API.G_EXC_ERROR;
449: end if; -- if ( x_return_status <> FND_API.G_RET_STS_SUCCESS )
450:
451: END IF; -- if (l_invoked_version >= 2.0)
452:
445:
446: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
447: -- Duplicate link. Link already exists for given object and related object.
448: RAISE FND_API.G_EXC_ERROR;
449: end if; -- if ( x_return_status <> FND_API.G_RET_STS_SUCCESS )
450:
451: END IF; -- if (l_invoked_version >= 2.0)
452:
453:
476: X_RETURN_STATUS => x_return_status,
477: X_MSG_COUNT => x_msg_count,
478: X_MSG_DATA => x_msg_data );
479:
480: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
481: -- This subject is already a duplicate of another related object. A
482: -- duplicate object must have exactly one original.
483: RAISE FND_API.G_EXC_ERROR;
484: end if;
479:
480: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
481: -- This subject is already a duplicate of another related object. A
482: -- duplicate object must have exactly one original.
483: RAISE FND_API.G_EXC_ERROR;
484: end if;
485:
486: END IF; -- if (l_invoked_version >= 2.0)
487:
484: end if;
485:
486: END IF; -- if (l_invoked_version >= 2.0)
487:
488: END IF; -- (p_validation_level > FND_API.G_VALID_LEVEL_NONE)
489:
490:
491: -- if the validation level is none, then the procedure validate_link_details would not
492: -- have got executed. In this case, the subject_number and the names of the subject and
495: -- The value of the object_number is assumed to be passed coz the validation level is
496: -- none. Store this value into the variable lx_object_number to be passed to the
497: -- circular proc for message token.
498:
499: if ( p_validation_level = FND_API.G_VALID_LEVEL_NONE ) then
500: -- subject type is some valid type in JTF Object. Derive the number from
501: -- the details got from JTF_OBJECTS_VL. Using the VL so as to select the
502: -- name of the subject type for the message tokens
503: select select_id, select_name , from_table, name
519: where object_code = p_link_rec.object_type;
520:
521: -- store the passed in object_number into lx_object_number for circular message
522: lx_object_number := p_link_rec.object_number;
523: end if; -- if ( p_validation_level = FND_API.G_VALID_LEVEL_NONE )
524:
525:
526: -- For bugs 2972584 and 2972611
527: -- Perform the following validation only if the invoked version is >= 2.0
549: X_MSG_COUNT => x_msg_count,
550: X_MSG_DATA => x_msg_data );
551:
552:
553: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
554: -- Creation of link will result in a circular dependency.
555: RAISE FND_API.G_EXC_ERROR;
556: end if;
557: end if; -- if ( p_link_rec.link_type_id in (1,2) ) then
551:
552:
553: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
554: -- Creation of link will result in a circular dependency.
555: RAISE FND_API.G_EXC_ERROR;
556: end if;
557: end if; -- if ( p_link_rec.link_type_id in (1,2) ) then
558:
559: END IF; -- if (l_invoked_version >= 2.0)
604: end if; -- If (p_link_rec.subject_type = 'SR' and p_link_rec.object_type = 'SR')
605:
606: -- For bugs 2972584 and 2972611
607: -- Populate the columns initialized to NULL in the record type, based on the value passed
608: -- For columns initialized to FND_API.G_MISS_CHAR, if FND_API.G_MISS_CHAR is passed, then store NULL in database
609:
610: If p_link_rec.link_segment1 = FND_API.G_MISS_CHAR Then
611: l_link_int_rec.link_segment1 := NULL;
612: Else
606: -- For bugs 2972584 and 2972611
607: -- Populate the columns initialized to NULL in the record type, based on the value passed
608: -- For columns initialized to FND_API.G_MISS_CHAR, if FND_API.G_MISS_CHAR is passed, then store NULL in database
609:
610: If p_link_rec.link_segment1 = FND_API.G_MISS_CHAR Then
611: l_link_int_rec.link_segment1 := NULL;
612: Else
613: l_link_int_rec.link_segment1 := p_link_rec.link_segment1;
614: End If;
612: Else
613: l_link_int_rec.link_segment1 := p_link_rec.link_segment1;
614: End If;
615:
616: If p_link_rec.link_segment2 = FND_API.G_MISS_CHAR Then
617: l_link_int_rec.link_segment2 := NULL;
618: Else
619: l_link_int_rec.link_segment2 := p_link_rec.link_segment2;
620: End If;
618: Else
619: l_link_int_rec.link_segment2 := p_link_rec.link_segment2;
620: End If;
621:
622: If p_link_rec.link_segment3 = FND_API.G_MISS_CHAR Then
623: l_link_int_rec.link_segment3 := NULL;
624: Else
625: l_link_int_rec.link_segment3 := p_link_rec.link_segment3;
626: End If;
624: Else
625: l_link_int_rec.link_segment3 := p_link_rec.link_segment3;
626: End If;
627:
628: If p_link_rec.link_segment4 = FND_API.G_MISS_CHAR Then
629: l_link_int_rec.link_segment4 := NULL;
630: Else
631: l_link_int_rec.link_segment4 := p_link_rec.link_segment4;
632: End If;
630: Else
631: l_link_int_rec.link_segment4 := p_link_rec.link_segment4;
632: End If;
633:
634: If p_link_rec.link_segment5 = FND_API.G_MISS_CHAR Then
635: l_link_int_rec.link_segment5 := NULL;
636: Else
637: l_link_int_rec.link_segment5 := p_link_rec.link_segment5;
638: End If;
636: Else
637: l_link_int_rec.link_segment5 := p_link_rec.link_segment5;
638: End If;
639:
640: If p_link_rec.link_segment6 = FND_API.G_MISS_CHAR Then
641: l_link_int_rec.link_segment6 := NULL;
642: Else
643: l_link_int_rec.link_segment6 := p_link_rec.link_segment6;
644: End If;
642: Else
643: l_link_int_rec.link_segment6 := p_link_rec.link_segment6;
644: End If;
645:
646: If p_link_rec.link_segment7 = FND_API.G_MISS_CHAR Then
647: l_link_int_rec.link_segment7 := NULL;
648: Else
649: l_link_int_rec.link_segment7 := p_link_rec.link_segment7;
650: End If;
648: Else
649: l_link_int_rec.link_segment7 := p_link_rec.link_segment7;
650: End If;
651:
652: If p_link_rec.link_segment8 = FND_API.G_MISS_CHAR Then
653: l_link_int_rec.link_segment8 := NULL;
654: Else
655: l_link_int_rec.link_segment8 := p_link_rec.link_segment8;
656: End If;
654: Else
655: l_link_int_rec.link_segment8 := p_link_rec.link_segment8;
656: End If;
657:
658: If p_link_rec.link_segment9 = FND_API.G_MISS_CHAR Then
659: l_link_int_rec.link_segment9 := NULL;
660: Else
661: l_link_int_rec.link_segment9 := p_link_rec.link_segment9;
662: End If;
660: Else
661: l_link_int_rec.link_segment9 := p_link_rec.link_segment9;
662: End If;
663:
664: If p_link_rec.link_segment10 = FND_API.G_MISS_CHAR Then
665: l_link_int_rec.link_segment10 := NULL;
666: Else
667: l_link_int_rec.link_segment10 := p_link_rec.link_segment10;
668: End If;
666: Else
667: l_link_int_rec.link_segment10 := p_link_rec.link_segment10;
668: End If;
669:
670: If p_link_rec.link_segment11 = FND_API.G_MISS_CHAR Then
671: l_link_int_rec.link_segment11 := NULL;
672: Else
673: l_link_int_rec.link_segment11 := p_link_rec.link_segment11;
674: End If;
672: Else
673: l_link_int_rec.link_segment11 := p_link_rec.link_segment11;
674: End If;
675:
676: If p_link_rec.link_segment12 = FND_API.G_MISS_CHAR Then
677: l_link_int_rec.link_segment12 := NULL;
678: Else
679: l_link_int_rec.link_segment12 := p_link_rec.link_segment12;
680: End If;
678: Else
679: l_link_int_rec.link_segment12 := p_link_rec.link_segment12;
680: End If;
681:
682: If p_link_rec.link_segment13 = FND_API.G_MISS_CHAR Then
683: l_link_int_rec.link_segment13 := NULL;
684: Else
685: l_link_int_rec.link_segment13 := p_link_rec.link_segment13;
686: End If;
684: Else
685: l_link_int_rec.link_segment13 := p_link_rec.link_segment13;
686: End If;
687:
688: If p_link_rec.link_segment14 = FND_API.G_MISS_CHAR Then
689: l_link_int_rec.link_segment14 := NULL;
690: Else
691: l_link_int_rec.link_segment14 := p_link_rec.link_segment14;
692: End If;
690: Else
691: l_link_int_rec.link_segment14 := p_link_rec.link_segment14;
692: End If;
693:
694: If p_link_rec.link_segment15 = FND_API.G_MISS_CHAR Then
695: l_link_int_rec.link_segment15 := NULL;
696: Else
697: l_link_int_rec.link_segment15 := p_link_rec.link_segment15;
698: End If;
696: Else
697: l_link_int_rec.link_segment15 := p_link_rec.link_segment15;
698: End If;
699:
700: If p_link_rec.link_context = FND_API.G_MISS_CHAR Then
701: l_link_int_rec.link_context := NULL;
702: Else
703: l_link_int_rec.link_context := p_link_rec.link_context;
704: End If;
746: x_return_status => lx_return_status,
747: x_msg_count => lx_msg_count ,
748: x_msg_data => lx_msg_data );
749:
750: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
752: END IF;
753:
754: -- Fetch the reciprocal link type id; this select will have to be a success because the
747: x_msg_count => lx_msg_count ,
748: x_msg_data => lx_msg_data );
749:
750: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
752: END IF;
753:
754: -- Fetch the reciprocal link type id; this select will have to be a success because the
755: -- link_type_id should be valid for control to come to this point. If for some reason it
849: x_return_status => lx_return_status,
850: x_msg_count => lx_msg_count ,
851: x_msg_data => lx_msg_data );
852:
853: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
855: END IF;
856: END IF;
857:
850: x_msg_count => lx_msg_count ,
851: x_msg_data => lx_msg_data );
852:
853: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
855: END IF;
856: END IF;
857:
858: -- For bugs 2972584 and 2972611
878: l_links_ext_rec.last_update_login := p_login_id;
879: l_links_ext_rec.creation_date := SYSDATE;
880: l_links_ext_rec.created_by := p_user_id;
881:
882: If p_link_rec.link_segment1 = FND_API.G_MISS_CHAR Then
883: l_links_ext_rec.attribute1 := NULL;
884: Else
885: l_links_ext_rec.attribute1 := p_link_rec.link_segment1;
886: End If;
884: Else
885: l_links_ext_rec.attribute1 := p_link_rec.link_segment1;
886: End If;
887:
888: If p_link_rec.link_segment2 = FND_API.G_MISS_CHAR Then
889: l_links_ext_rec.attribute2 := NULL;
890: Else
891: l_links_ext_rec.attribute2 := p_link_rec.link_segment2;
892: End If;
890: Else
891: l_links_ext_rec.attribute2 := p_link_rec.link_segment2;
892: End If;
893:
894: If p_link_rec.link_segment3 = FND_API.G_MISS_CHAR Then
895: l_links_ext_rec.attribute3 := NULL;
896: Else
897: l_links_ext_rec.attribute3 := p_link_rec.link_segment3;
898: End If;
896: Else
897: l_links_ext_rec.attribute3 := p_link_rec.link_segment3;
898: End If;
899:
900: If p_link_rec.link_segment4 = FND_API.G_MISS_CHAR Then
901: l_links_ext_rec.attribute4 := NULL;
902: Else
903: l_links_ext_rec.attribute4 := p_link_rec.link_segment4;
904: End If;
902: Else
903: l_links_ext_rec.attribute4 := p_link_rec.link_segment4;
904: End If;
905:
906: If p_link_rec.link_segment5 = FND_API.G_MISS_CHAR Then
907: l_links_ext_rec.attribute5 := NULL;
908: Else
909: l_links_ext_rec.attribute5 := p_link_rec.link_segment5;
910: End If;
908: Else
909: l_links_ext_rec.attribute5 := p_link_rec.link_segment5;
910: End If;
911:
912: If p_link_rec.link_segment6 = FND_API.G_MISS_CHAR Then
913: l_links_ext_rec.attribute6 := NULL;
914: Else
915: l_links_ext_rec.attribute6 := p_link_rec.link_segment6;
916: End If;
914: Else
915: l_links_ext_rec.attribute6 := p_link_rec.link_segment6;
916: End If;
917:
918: If p_link_rec.link_segment7 = FND_API.G_MISS_CHAR Then
919: l_links_ext_rec.attribute7 := NULL;
920: Else
921: l_links_ext_rec.attribute7 := p_link_rec.link_segment7;
922: End If;
920: Else
921: l_links_ext_rec.attribute7 := p_link_rec.link_segment7;
922: End If;
923:
924: If p_link_rec.link_segment8 = FND_API.G_MISS_CHAR Then
925: l_links_ext_rec.attribute8 := NULL;
926: Else
927: l_links_ext_rec.attribute8 := p_link_rec.link_segment8;
928: End If;
926: Else
927: l_links_ext_rec.attribute8 := p_link_rec.link_segment8;
928: End If;
929:
930: If p_link_rec.link_segment9 = FND_API.G_MISS_CHAR Then
931: l_links_ext_rec.attribute9 := NULL;
932: Else
933: l_links_ext_rec.attribute9 := p_link_rec.link_segment9;
934: End If;
932: Else
933: l_links_ext_rec.attribute9 := p_link_rec.link_segment9;
934: End If;
935:
936: If p_link_rec.link_segment10 = FND_API.G_MISS_CHAR Then
937: l_links_ext_rec.attribute10 := NULL;
938: Else
939: l_links_ext_rec.attribute10 := p_link_rec.link_segment10;
940: End If;
938: Else
939: l_links_ext_rec.attribute10 := p_link_rec.link_segment10;
940: End If;
941:
942: If p_link_rec.link_context = FND_API.G_MISS_CHAR Then
943: l_links_ext_rec.context := NULL;
944: Else
945: l_links_ext_rec.context := p_link_rec.link_context;
946: End If;
1024: -- Raise BES event that link is created. (Only after commit???)
1025: -- *************
1026: CS_WF_EVENT_PKG.RAISE_SERVICEREQUEST_EVENT(
1027: p_api_version => 1.0,
1028: p_init_msg_list => FND_API.G_TRUE,
1029: p_commit => p_commit,
1030: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1031: p_event_code => 'RELATIONSHIP_CREATE_FOR_SR',
1032: p_incident_number => lx_subject_number,
1026: CS_WF_EVENT_PKG.RAISE_SERVICEREQUEST_EVENT(
1027: p_api_version => 1.0,
1028: p_init_msg_list => FND_API.G_TRUE,
1029: p_commit => p_commit,
1030: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1031: p_event_code => 'RELATIONSHIP_CREATE_FOR_SR',
1032: p_incident_number => lx_subject_number,
1033: p_user_id => p_user_id,
1034: p_resp_id => p_resp_id,
1041: x_return_status => lx_return_status,
1042: x_msg_count => lx_msg_count,
1043: x_msg_data => lx_msg_data );
1044:
1045: if ( lx_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1046: -- do nothing in this API. The BES wrapper API will have to trap this
1047: -- situation and send a notification to the SR owner that the BES has
1048: -- not been raised. If the BES API return back a failure status, it
1049: -- means only that the BES raise event has failed, and has nothing to
1087: -- Raise BES event that the reciprocal link is created.
1088: -- *************
1089: CS_WF_EVENT_PKG.RAISE_SERVICEREQUEST_EVENT(
1090: p_api_version => 1.0,
1091: p_init_msg_list => FND_API.G_TRUE,
1092: p_commit => p_commit,
1093: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1094: p_event_code => 'RELATIONSHIP_CREATE_FOR_SR',
1095: p_incident_number => lx_object_number, --the main link's Object, which
1089: CS_WF_EVENT_PKG.RAISE_SERVICEREQUEST_EVENT(
1090: p_api_version => 1.0,
1091: p_init_msg_list => FND_API.G_TRUE,
1092: p_commit => p_commit,
1093: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1094: p_event_code => 'RELATIONSHIP_CREATE_FOR_SR',
1095: p_incident_number => lx_object_number, --the main link's Object, which
1096: --is the reciprocal's subject
1097: p_user_id => p_user_id,
1105: x_return_status => lx_return_status,
1106: x_msg_count => lx_msg_count,
1107: x_msg_data => lx_msg_data );
1108:
1109: if ( lx_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1110: -- do nothing in this API. The BES wrapper API will have to trap this
1111: -- situation and send a notification to the SR owner that the BES has
1112: -- not been raised. If the BES API return back a failure status, it
1113: -- means only that the BES raise event has failed, and has nothing to
1115: null;
1116: end if;
1117:
1118: END IF; -- if (l_invoked_version >= 2.0)
1119: -- END IF; -- if FND_API.To_Boolean(p_commit)
1120:
1121: -- Standard check of p_commit
1122: IF FND_API.To_Boolean(p_commit) THEN
1123: COMMIT WORK;
1118: END IF; -- if (l_invoked_version >= 2.0)
1119: -- END IF; -- if FND_API.To_Boolean(p_commit)
1120:
1121: -- Standard check of p_commit
1122: IF FND_API.To_Boolean(p_commit) THEN
1123: COMMIT WORK;
1124: END IF ;
1125: -- Moved the IF - END IF of the p_commit here since the business events were not raised
1126: -- if the p_commit parameter is FALSE. This issue is faced by HTML service since the
1129: -- Standard call to get message count and if count is 1, get message info
1130: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1131:
1132: EXCEPTION
1133: WHEN FND_API.G_EXC_ERROR THEN
1134: ROLLBACK TO create_incidentlink_pvt;
1135: x_return_status := FND_API.G_RET_STS_ERROR;
1136: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1137:
1131:
1132: EXCEPTION
1133: WHEN FND_API.G_EXC_ERROR THEN
1134: ROLLBACK TO create_incidentlink_pvt;
1135: x_return_status := FND_API.G_RET_STS_ERROR;
1136: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1137:
1138: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1139: ROLLBACK TO create_incidentlink_pvt;
1134: ROLLBACK TO create_incidentlink_pvt;
1135: x_return_status := FND_API.G_RET_STS_ERROR;
1136: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1137:
1138: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1139: ROLLBACK TO create_incidentlink_pvt;
1140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1141: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1142:
1136: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1137:
1138: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1139: ROLLBACK TO create_incidentlink_pvt;
1140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1141: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1142:
1143: WHEN OTHERS THEN
1144: ROLLBACK TO create_incidentlink_pvt;
1141: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1142:
1143: WHEN OTHERS THEN
1144: ROLLBACK TO create_incidentlink_pvt;
1145: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1146: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1147: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1148: FND_MSG_PUB.ADD;
1149: FND_MSG_PUB.Count_And_Get(
1261: X_MSG_DATA => x_msg_data );
1262:
1263: EXCEPTION
1264: WHEN OTHERS THEN
1265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1266: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1267: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1268: FND_MSG_PUB.ADD;
1269: FND_MSG_PUB.Count_And_Get(
1358: -- Standard start of API savepoint
1359: SAVEPOINT Update_IncidentLink_PVT;
1360:
1361: -- Initialize message list if p_init_msg_list is set to TRUE
1362: IF FND_API.To_Boolean(p_init_msg_list) THEN
1363: FND_MSG_PUB.Initialize;
1364: END IF;
1365:
1366: -- Allow this API to be called with both version numbers, 1.2 and 2.0, introduced for bugs 2972584 and 2972611
1370: l_invoked_version := 2.0;
1371: END IF;
1372:
1373: -- Standard call to check for call compatibility, changed so that both versions 1.2 and 2.0 may be allowed
1374: IF NOT FND_API.Compatible_API_Call(l_invoked_version, p_api_version,
1375: l_api_name, G_PKG_NAME) THEN
1376: FND_MSG_PUB.Count_And_Get(
1377: p_count => x_msg_count,
1378: p_data => x_msg_data );
1375: l_api_name, G_PKG_NAME) THEN
1376: FND_MSG_PUB.Count_And_Get(
1377: p_count => x_msg_count,
1378: p_data => x_msg_data );
1379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1380: END IF;
1381:
1382: -- Initialize API return status to success
1383: x_return_status := FND_API.G_RET_STS_SUCCESS;
1379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1380: END IF;
1381:
1382: -- Initialize API return status to success
1383: x_return_status := FND_API.G_RET_STS_SUCCESS;
1384:
1385: -- Set the operation mode to update since an update link is being performed.
1386: G_OPERATION_MODE := 'UPDATE';
1387:
1399: FND_MSG_PUB.Add;
1400: FND_MSG_PUB.Count_And_Get(
1401: p_count => x_msg_count,
1402: p_data => x_msg_data );
1403: RAISE FND_API.G_EXC_ERROR;
1404: end if; -- (p_link_rec.link_id_ext IS NULL)
1405:
1406: ELSIF (l_old_values_rec.object_version_number <> p_object_version_number) THEN
1407: FND_MESSAGE.Set_Name('CS', 'CS_RECORD_HAS_BEEN_UPDATED');
1408: FND_MSG_PUB.Add;
1409: FND_MSG_PUB.Count_And_Get(
1410: p_count => x_msg_count,
1411: p_data => x_msg_data );
1412: RAISE FND_API.G_EXC_ERROR;
1413: end if; -- ( c_old_values%NOTFOUND )
1414:
1415: -- record exists, continue processing
1416: close c_old_values;
1430: x_return_status => x_return_status,
1431: x_msg_count => x_msg_count,
1432: x_msg_data => x_msg_data );
1433:
1434: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
1435: -- Responsibility RESP_NAME does not have access to service
1436: -- request SR_NUMBER.
1437: raise FND_API.G_EXC_ERROR;
1438: end if;
1433:
1434: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
1435: -- Responsibility RESP_NAME does not have access to service
1436: -- request SR_NUMBER.
1437: raise FND_API.G_EXC_ERROR;
1438: end if;
1439: end if;
1440:
1441: if ( l_old_values_rec.object_type = 'SR' ) then
1444: x_return_status => x_return_status,
1445: x_msg_count => x_msg_count,
1446: x_msg_data => x_msg_data );
1447:
1448: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
1449: -- Responsibility RESP_NAME does not have access to service
1450: -- request SR_NUMBER.
1451: RAISE FND_API.G_EXC_ERROR;
1452: end if;
1447:
1448: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
1449: -- Responsibility RESP_NAME does not have access to service
1450: -- request SR_NUMBER.
1451: RAISE FND_API.G_EXC_ERROR;
1452: end if;
1453: end if;
1454: --
1455: -- END OF SECURITY ACCESS CHECK FOR R11.5.10
1457: -- ----------------------------------------------------------------------
1458: -- Apply business-rule validation to all required and passed parameters
1459: -- if validation level is set.
1460: -- ----------------------------------------------------------------------
1461: IF (p_validation_level > FND_API.G_VALID_LEVEL_NONE) THEN
1462: --
1463: -- Validate the user and login id's
1464: --
1465: CS_ServiceRequest_UTIL.Validate_Who_Info (
1469: p_user_id => p_user_id,
1470: p_login_id => p_login_id,
1471: x_return_status => x_return_status );
1472:
1473: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1474: FND_MSG_PUB.Count_And_Get(
1475: p_count => x_msg_count,
1476: p_data => x_msg_data);
1477:
1474: FND_MSG_PUB.Count_And_Get(
1475: p_count => x_msg_count,
1476: p_data => x_msg_data);
1477:
1478: RAISE FND_API.G_EXC_ERROR;
1479: END IF;
1480: END IF;
1481:
1482: -- When updating a link say 'L1', end date 'L1' and its reciprocal; create two new
1518: x_return_status => lx_return_status,
1519: x_msg_count => lx_msg_count ,
1520: x_msg_data => lx_msg_data );
1521:
1522: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1523: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1524: END IF;
1525:
1526: -- end date the reciprocal link as well has to be a success
1519: x_msg_count => lx_msg_count ,
1520: x_msg_data => lx_msg_data );
1521:
1522: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1523: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1524: END IF;
1525:
1526: -- end date the reciprocal link as well has to be a success
1527: UPDATE CS_INCIDENT_LINKS SET
1545: x_return_status => lx_return_status,
1546: x_msg_count => lx_msg_count ,
1547: x_msg_data => lx_msg_data );
1548:
1549: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1550: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1551: END IF;
1552: END IF; -- for object_type check
1553:
1546: x_msg_count => lx_msg_count ,
1547: x_msg_data => lx_msg_data );
1548:
1549: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1550: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1551: END IF;
1552: END IF; -- for object_type check
1553:
1554: End If; -- (p_link_id IS NOT NULL)
1568: l_link_rec.program_update_date := nvl(p_link_rec.program_update_date,
1569: l_old_values_rec.program_update_date );
1570:
1571: -- For bugs 2972584 and 2972611
1572: -- For columns initialized to FND_API.G_MISS_CHAR, if FND_API.G_MISS_CHAR is passed, populate with old value in database
1573: If p_link_rec.link_segment1 = FND_API.G_MISS_CHAR Then
1574: l_link_rec.link_segment1 := l_old_values_rec.attribute1;
1575: Else
1576: l_link_rec.link_segment1 := p_link_rec.link_segment1;
1569: l_old_values_rec.program_update_date );
1570:
1571: -- For bugs 2972584 and 2972611
1572: -- For columns initialized to FND_API.G_MISS_CHAR, if FND_API.G_MISS_CHAR is passed, populate with old value in database
1573: If p_link_rec.link_segment1 = FND_API.G_MISS_CHAR Then
1574: l_link_rec.link_segment1 := l_old_values_rec.attribute1;
1575: Else
1576: l_link_rec.link_segment1 := p_link_rec.link_segment1;
1577: End If;
1575: Else
1576: l_link_rec.link_segment1 := p_link_rec.link_segment1;
1577: End If;
1578:
1579: If p_link_rec.link_segment2 = FND_API.G_MISS_CHAR Then
1580: l_link_rec.link_segment2 := l_old_values_rec.attribute2;
1581: Else
1582: l_link_rec.link_segment2 := p_link_rec.link_segment2;
1583: End If;
1581: Else
1582: l_link_rec.link_segment2 := p_link_rec.link_segment2;
1583: End If;
1584:
1585: If p_link_rec.link_segment3 = FND_API.G_MISS_CHAR Then
1586: l_link_rec.link_segment3 := l_old_values_rec.attribute3;
1587: Else
1588: l_link_rec.link_segment3 := p_link_rec.link_segment3;
1589: End If;
1587: Else
1588: l_link_rec.link_segment3 := p_link_rec.link_segment3;
1589: End If;
1590:
1591: If p_link_rec.link_segment4 = FND_API.G_MISS_CHAR Then
1592: l_link_rec.link_segment4 := l_old_values_rec.attribute4;
1593: Else
1594: l_link_rec.link_segment4 := p_link_rec.link_segment4;
1595: End If;
1593: Else
1594: l_link_rec.link_segment4 := p_link_rec.link_segment4;
1595: End If;
1596:
1597: If p_link_rec.link_segment5 = FND_API.G_MISS_CHAR Then
1598: l_link_rec.link_segment5 := l_old_values_rec.attribute5;
1599: Else
1600: l_link_rec.link_segment5 := p_link_rec.link_segment5;
1601: End If;
1599: Else
1600: l_link_rec.link_segment5 := p_link_rec.link_segment5;
1601: End If;
1602:
1603: If p_link_rec.link_segment6 = FND_API.G_MISS_CHAR Then
1604: l_link_rec.link_segment6 := l_old_values_rec.attribute6;
1605: Else
1606: l_link_rec.link_segment6 := p_link_rec.link_segment6;
1607: End If;
1605: Else
1606: l_link_rec.link_segment6 := p_link_rec.link_segment6;
1607: End If;
1608:
1609: If p_link_rec.link_segment7 = FND_API.G_MISS_CHAR Then
1610: l_link_rec.link_segment7 := l_old_values_rec.attribute7;
1611: Else
1612: l_link_rec.link_segment7 := p_link_rec.link_segment7;
1613: End If;
1611: Else
1612: l_link_rec.link_segment7 := p_link_rec.link_segment7;
1613: End If;
1614:
1615: If p_link_rec.link_segment8 = FND_API.G_MISS_CHAR Then
1616: l_link_rec.link_segment8 := l_old_values_rec.attribute8;
1617: Else
1618: l_link_rec.link_segment8 := p_link_rec.link_segment8;
1619: End If;
1617: Else
1618: l_link_rec.link_segment8 := p_link_rec.link_segment8;
1619: End If;
1620:
1621: If p_link_rec.link_segment9 = FND_API.G_MISS_CHAR Then
1622: l_link_rec.link_segment9 := l_old_values_rec.attribute9;
1623: Else
1624: l_link_rec.link_segment9 := p_link_rec.link_segment9;
1625: End If;
1623: Else
1624: l_link_rec.link_segment9 := p_link_rec.link_segment9;
1625: End If;
1626:
1627: If p_link_rec.link_segment10 = FND_API.G_MISS_CHAR Then
1628: l_link_rec.link_segment10 := l_old_values_rec.attribute10;
1629: Else
1630: l_link_rec.link_segment10 := p_link_rec.link_segment10;
1631: End If;
1629: Else
1630: l_link_rec.link_segment10 := p_link_rec.link_segment10;
1631: End If;
1632:
1633: If p_link_rec.link_segment11 = FND_API.G_MISS_CHAR Then
1634: l_link_rec.link_segment11 := l_old_values_rec.attribute11;
1635: Else
1636: l_link_rec.link_segment11 := p_link_rec.link_segment11;
1637: End If;
1635: Else
1636: l_link_rec.link_segment11 := p_link_rec.link_segment11;
1637: End If;
1638:
1639: If p_link_rec.link_segment12 = FND_API.G_MISS_CHAR Then
1640: l_link_rec.link_segment12 := l_old_values_rec.attribute12;
1641: Else
1642: l_link_rec.link_segment12 := p_link_rec.link_segment12;
1643: End If;
1641: Else
1642: l_link_rec.link_segment12 := p_link_rec.link_segment12;
1643: End If;
1644:
1645: If p_link_rec.link_segment13 = FND_API.G_MISS_CHAR Then
1646: l_link_rec.link_segment13 := l_old_values_rec.attribute13;
1647: Else
1648: l_link_rec.link_segment13 := p_link_rec.link_segment13;
1649: End If;
1647: Else
1648: l_link_rec.link_segment13 := p_link_rec.link_segment13;
1649: End If;
1650:
1651: If p_link_rec.link_segment14 = FND_API.G_MISS_CHAR Then
1652: l_link_rec.link_segment14 := l_old_values_rec.attribute14;
1653: Else
1654: l_link_rec.link_segment14 := p_link_rec.link_segment14;
1655: End If;
1653: Else
1654: l_link_rec.link_segment14 := p_link_rec.link_segment14;
1655: End If;
1656:
1657: If p_link_rec.link_segment15 = FND_API.G_MISS_CHAR Then
1658: l_link_rec.link_segment15 := l_old_values_rec.attribute15;
1659: Else
1660: l_link_rec.link_segment15 := p_link_rec.link_segment15;
1661: End If;
1659: Else
1660: l_link_rec.link_segment15 := p_link_rec.link_segment15;
1661: End If;
1662:
1663: If p_link_rec.link_context = FND_API.G_MISS_CHAR Then
1664: l_link_rec.link_context := l_old_values_rec.context;
1665: Else
1666: l_link_rec.link_context := p_link_rec.link_context;
1667: End If;
1666: l_link_rec.link_context := p_link_rec.link_context;
1667: End If;
1668:
1669: -- The following assignments were added to resolve bugs 2972584 and 2972611
1670: -- For columns initialized to NULL, if FND_API.G_MISS_CHAR/NUM is passed, populate with NULL
1671: -- For the same columns, if NULL is passed, store the old value in the database
1672: If p_link_rec.from_incident_id = FND_API.G_MISS_NUM Then
1673: l_link_rec.from_incident_id := NULL;
1674: Else
1668:
1669: -- The following assignments were added to resolve bugs 2972584 and 2972611
1670: -- For columns initialized to NULL, if FND_API.G_MISS_CHAR/NUM is passed, populate with NULL
1671: -- For the same columns, if NULL is passed, store the old value in the database
1672: If p_link_rec.from_incident_id = FND_API.G_MISS_NUM Then
1673: l_link_rec.from_incident_id := NULL;
1674: Else
1675: l_link_rec.from_incident_id := nvl(p_link_rec.subject_id, l_old_values_rec.subject_id);
1676: End If;
1674: Else
1675: l_link_rec.from_incident_id := nvl(p_link_rec.subject_id, l_old_values_rec.subject_id);
1676: End If;
1677:
1678: If p_link_rec.from_incident_number = FND_API.G_MISS_CHAR Then
1679: l_link_rec.from_incident_number := NULL;
1680: Else
1681: l_link_rec.from_incident_number := nvl(p_link_rec.from_incident_number, l_old_values_rec.from_incident_number);
1682: End If;
1680: Else
1681: l_link_rec.from_incident_number := nvl(p_link_rec.from_incident_number, l_old_values_rec.from_incident_number);
1682: End If;
1683:
1684: If p_link_rec.to_incident_id = FND_API.G_MISS_NUM Then
1685: l_link_rec.to_incident_id := NULL;
1686: Else
1687: l_link_rec.to_incident_id := nvl(p_link_rec.object_id, l_old_values_rec.object_id);
1688: End If;
1686: Else
1687: l_link_rec.to_incident_id := nvl(p_link_rec.object_id, l_old_values_rec.object_id);
1688: End If;
1689:
1690: If p_link_rec.to_incident_number = FND_API.G_MISS_CHAR Then
1691: l_link_rec.to_incident_number := NULL;
1692: Else
1693: l_link_rec.to_incident_number := nvl(p_link_rec.object_number, l_old_values_rec.object_number);
1694: End If;
1728: p_token_an => l_api_name_full,
1729: p_token_v => to_char(p_link_id),
1730: p_token_p => 'p_link_id'
1731: );
1732: RAISE FND_API.G_EXC_ERROR;
1733: End;
1734: When OTHERS THEN
1735: CS_ServiceRequest_UTIL.Add_Invalid_Argument_Msg(
1736: p_token_an => l_api_name_full,
1736: p_token_an => l_api_name_full,
1737: p_token_v => to_char(p_link_id),
1738: p_token_p => 'p_link_id'
1739: );
1740: RAISE FND_API.G_EXC_ERROR;
1741: End;
1742: END IF; -- (p_link_rec.link_id_ext IS NULL)
1743:
1744: IF (l_link_rec.subject_type <> 'SR' OR l_link_rec.object_type <> 'SR') THEN
1774: p_token_an => l_api_name_full,
1775: p_token_v => to_char(nvl(p_link_rec.link_id_ext,l_Derived_External_Link_Id)),
1776: p_token_p => 'p_link_rec.link_id_ext OR l_Derived_External_Link_Id'
1777: );
1778: RAISE FND_API.G_EXC_ERROR;
1779: END;
1780:
1781: ELSE
1782: -- If the external link is being updated to an internal link, then delete the old external link record
1794: p_token_an => l_api_name_full,
1795: p_token_v => to_char(nvl(p_link_rec.link_id_ext, l_Derived_External_Link_Id)),
1796: p_token_p => 'p_link_rec.link_id_ext OR l_Derived_External_Link_Id'
1797: );
1798: RAISE FND_API.G_EXC_ERROR;
1799:
1800: END;
1801:
1802: END IF; -- (l_link_rec.subject_type <> 'SR' OR l_link_rec.object_type <> 'SR')
1830: -- the create proc. in case there was an error in the create proc that did not raise
1831: -- any exception.
1832:
1833: x_object_version_number := lx_object_version_number ;
1834: IF ( FND_API.To_Boolean(p_commit) AND
1835: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1836: COMMIT WORK;
1837: END IF;
1838:
1831: -- any exception.
1832:
1833: x_object_version_number := lx_object_version_number ;
1834: IF ( FND_API.To_Boolean(p_commit) AND
1835: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1836: COMMIT WORK;
1837: END IF;
1838:
1839: --
1843: p_count => x_msg_count,
1844: p_data => x_msg_data);
1845:
1846: EXCEPTION
1847: WHEN FND_API.G_EXC_ERROR THEN
1848: ROLLBACK TO UPDATE_INCIDENTLINK_PVT;
1849: x_return_status := FND_API.G_RET_STS_ERROR;
1850: FND_MSG_PUB.Count_And_Get(
1851: p_count => x_msg_count,
1845:
1846: EXCEPTION
1847: WHEN FND_API.G_EXC_ERROR THEN
1848: ROLLBACK TO UPDATE_INCIDENTLINK_PVT;
1849: x_return_status := FND_API.G_RET_STS_ERROR;
1850: FND_MSG_PUB.Count_And_Get(
1851: p_count => x_msg_count,
1852: p_data => x_msg_data);
1853:
1850: FND_MSG_PUB.Count_And_Get(
1851: p_count => x_msg_count,
1852: p_data => x_msg_data);
1853:
1854: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1855: ROLLBACK TO UPDATE_INCIDENTLINK_PVT;
1856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1857: FND_MSG_PUB.Count_And_Get(
1858: p_count => x_msg_count,
1852: p_data => x_msg_data);
1853:
1854: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1855: ROLLBACK TO UPDATE_INCIDENTLINK_PVT;
1856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1857: FND_MSG_PUB.Count_And_Get(
1858: p_count => x_msg_count,
1859: p_data => x_msg_data);
1860:
1859: p_data => x_msg_data);
1860:
1861: WHEN OTHERS THEN
1862: ROLLBACK TO UPDATE_INCIDENTLINK_PVT;
1863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1864: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1865: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1866: FND_MSG_PUB.ADD;
1867: FND_MSG_PUB.Count_And_Get(
1873: -- New, overloaded procedure with the 11.5.9 signature added for bugs 2972584 and 2972611
1874: -- This procedure just calls the other Delete_IncidentLink procedure and passes a NULL value for the parameter P_LINK_ID_EXT
1875: PROCEDURE DELETE_INCIDENTLINK (
1876: P_API_VERSION IN NUMBER,
1877: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
1878: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
1879: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL, -- not used
1880: P_RESP_APPL_ID IN NUMBER := NULL, -- not used
1881: P_RESP_ID IN NUMBER := NULL, -- not used
1874: -- This procedure just calls the other Delete_IncidentLink procedure and passes a NULL value for the parameter P_LINK_ID_EXT
1875: PROCEDURE DELETE_INCIDENTLINK (
1876: P_API_VERSION IN NUMBER,
1877: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
1878: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
1879: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL, -- not used
1880: P_RESP_APPL_ID IN NUMBER := NULL, -- not used
1881: P_RESP_ID IN NUMBER := NULL, -- not used
1882: P_USER_ID IN NUMBER := NULL,
1875: PROCEDURE DELETE_INCIDENTLINK (
1876: P_API_VERSION IN NUMBER,
1877: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
1878: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
1879: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL, -- not used
1880: P_RESP_APPL_ID IN NUMBER := NULL, -- not used
1881: P_RESP_ID IN NUMBER := NULL, -- not used
1882: P_USER_ID IN NUMBER := NULL,
1883: P_LOGIN_ID IN NUMBER := FND_API.G_MISS_NUM,
1879: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL, -- not used
1880: P_RESP_APPL_ID IN NUMBER := NULL, -- not used
1881: P_RESP_ID IN NUMBER := NULL, -- not used
1882: P_USER_ID IN NUMBER := NULL,
1883: P_LOGIN_ID IN NUMBER := FND_API.G_MISS_NUM,
1884: P_ORG_ID IN NUMBER := NULL, -- not used
1885: P_LINK_ID IN NUMBER, -- no change
1886: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1887: X_MSG_COUNT OUT NOCOPY NUMBER,
1896: CS_INCIDENTLINKS_PVT.DELETE_INCIDENTLINK (
1897: P_API_VERSION => P_API_VERSION,
1898: P_INIT_MSG_LIST => p_init_msg_list,
1899: P_COMMIT => p_commit,
1900: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL, -- not used
1901: P_RESP_APPL_ID => p_resp_appl_id, -- not used
1902: P_RESP_ID => p_resp_id, -- not used
1903: P_USER_ID => p_user_id,
1904: P_LOGIN_ID => p_login_id,
1910: P_LINK_ID_EXT => NULL ); -- Added for bugs 2972584 and 2972611, to pass the external link ID
1911:
1912: EXCEPTION
1913: WHEN OTHERS THEN
1914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1915: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1916: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1917: FND_MSG_PUB.ADD;
1918: FND_MSG_PUB.Count_And_Get(
1983: -- Standard start of API savepoint
1984: SAVEPOINT Delete_IncidentLink_PVT;
1985:
1986: -- Initialize message list if p_init_msg_list is set to TRUE
1987: IF FND_API.To_Boolean(p_init_msg_list) THEN
1988: FND_MSG_PUB.Initialize;
1989: END IF;
1990:
1991: -- Allow this API to be called with both version numbers, 1.2 and 2.0, introduced for bugs 2972584 and 2972611
1995: l_invoked_version := 2.0;
1996: END IF;
1997:
1998: -- Standard call to check for call compatibility, changed so that both versions 1.2 and 2.0 may be allowed
1999: IF NOT FND_API.Compatible_API_Call(l_invoked_version, p_api_version,
2000: l_api_name, G_PKG_NAME) THEN
2001: FND_MSG_PUB.Count_And_Get(
2002: p_count => x_msg_count,
2003: p_data => x_msg_data);
2000: l_api_name, G_PKG_NAME) THEN
2001: FND_MSG_PUB.Count_And_Get(
2002: p_count => x_msg_count,
2003: p_data => x_msg_data);
2004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2005: END IF;
2006:
2007: -- Initialize API return status to success
2008: x_return_status := FND_API.G_RET_STS_SUCCESS;
2004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2005: END IF;
2006:
2007: -- Initialize API return status to success
2008: x_return_status := FND_API.G_RET_STS_SUCCESS;
2009:
2010: open c1;
2011: fetch c1 into c1rec;
2012:
2019: p_token_an => l_api_name_full,
2020: p_token_v => to_char(p_link_id),
2021: p_token_p => 'p_link_id'
2022: );
2023: RAISE FND_API.G_EXC_ERROR;
2024: end if; -- (p_link_id_ext IS NULL)
2025: end if; -- ( c1%NOTFOUND )
2026:
2027: close c1;
2038: x_return_status => x_return_status,
2039: x_msg_count => x_msg_count,
2040: x_msg_data => x_msg_data );
2041:
2042: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
2043: -- Responsibility RESP_NAME does not have access to service
2044: -- request SR_NUMBER.
2045: RAISE FND_API.G_EXC_ERROR;
2046: end if;
2041:
2042: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
2043: -- Responsibility RESP_NAME does not have access to service
2044: -- request SR_NUMBER.
2045: RAISE FND_API.G_EXC_ERROR;
2046: end if;
2047: end if;
2048:
2049: if ( c1rec.object_type = 'SR' ) then
2052: x_return_status => x_return_status,
2053: x_msg_count => x_msg_count,
2054: x_msg_data => x_msg_data );
2055:
2056: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
2057: -- Responsibility RESP_NAME does not have access to service
2058: -- request SR_NUMBER.
2059: RAISE FND_API.G_EXC_ERROR;
2060: end if;
2055:
2056: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
2057: -- Responsibility RESP_NAME does not have access to service
2058: -- request SR_NUMBER.
2059: RAISE FND_API.G_EXC_ERROR;
2060: end if;
2061: end if;
2062: --
2063: -- END OF SECURITY ACCESS CHECK FOR R11.5.10
2112: p_token_an => l_api_name_full,
2113: p_token_v => to_char(l_Derived_External_Link_Id),
2114: p_token_p => 'l_Derived_External_Link_Id'
2115: );
2116: RAISE FND_API.G_EXC_ERROR;
2117: End;
2118:
2119: END IF; -- ( p_link_id_ext IS NULL )
2120:
2134: p_token_an => l_api_name_full,
2135: p_token_v => to_char(nvl(p_link_id_ext, l_Derived_External_Link_Id)),
2136: p_token_p => 'p_link_id_ext OR l_Derived_External_Link_Id'
2137: );
2138: RAISE FND_API.G_EXC_ERROR;
2139:
2140: END;
2141: END IF; -- ( c1rec.subject_type <> 'SR' OR c1rec.object_type <> 'SR' )
2142:
2140: END;
2141: END IF; -- ( c1rec.subject_type <> 'SR' OR c1rec.object_type <> 'SR' )
2142:
2143: -- (5250937)
2144: -- IF FND_API.To_Boolean(p_commit) THEN
2145: -- COMMIT WORK;
2146: -- Recreating a savepoint, coz if the BES fails with an unhandled exception, then the
2147: -- when others in this proc. tries to rollback to the delete savepoint. Since the
2148: -- commit has happened, the context of the savepoint is lost. By re-creating it here,
2193: l_link_rec.LINK_CONTEXT := c1rec.context;
2194:
2195: CS_WF_EVENT_PKG.RAISE_SERVICEREQUEST_EVENT(
2196: p_api_version => 1.0,
2197: p_init_msg_list => FND_API.G_TRUE,
2198: p_commit => p_commit,
2199: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2200: p_event_code => 'RELATIONSHIP_DELETE_FOR_SR',
2201: p_incident_number => l_subject_number,
2195: CS_WF_EVENT_PKG.RAISE_SERVICEREQUEST_EVENT(
2196: p_api_version => 1.0,
2197: p_init_msg_list => FND_API.G_TRUE,
2198: p_commit => p_commit,
2199: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2200: p_event_code => 'RELATIONSHIP_DELETE_FOR_SR',
2201: p_incident_number => l_subject_number,
2202: p_user_id => p_user_id,
2203: p_resp_id => p_resp_id,
2210: x_return_status => lx_return_status,
2211: x_msg_count => lx_msg_count,
2212: x_msg_data => lx_msg_data );
2213:
2214: if ( lx_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2215: -- do nothing in this API. The BES wrapper API will have to trap this
2216: -- situation and send a notification to the SR owner that the BES has
2217: -- not been raised. If the BES API return back a failure status, it
2218: -- means only that the BES raise event has failed, and has nothing to
2256: l_link_rec.LINK_CONTEXT := c1rec.context;
2257:
2258: CS_WF_EVENT_PKG.RAISE_SERVICEREQUEST_EVENT(
2259: p_api_version => 1.0,
2260: p_init_msg_list => FND_API.G_TRUE,
2261: p_commit => p_commit,
2262: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2263: p_event_code => 'RELATIONSHIP_DELETE_FOR_SR',
2264: p_incident_number => c1rec.object_number,
2258: CS_WF_EVENT_PKG.RAISE_SERVICEREQUEST_EVENT(
2259: p_api_version => 1.0,
2260: p_init_msg_list => FND_API.G_TRUE,
2261: p_commit => p_commit,
2262: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2263: p_event_code => 'RELATIONSHIP_DELETE_FOR_SR',
2264: p_incident_number => c1rec.object_number,
2265: p_user_id => p_user_id,
2266: p_resp_id => p_resp_id,
2273: x_return_status => lx_return_status,
2274: x_msg_count => lx_msg_count,
2275: x_msg_data => lx_msg_data );
2276:
2277: if ( lx_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2278: -- do nothing in this API. The BES wrapper API will have to trap this
2279: -- situation and send a notification to the SR owner that the BES has
2280: -- not been raised. If the BES API return back a failure status, it
2281: -- means only that the BES raise event has failed, and has nothing to
2280: -- not been raised. If the BES API return back a failure status, it
2281: -- means only that the BES raise event has failed, and has nothing to
2282: -- do with the deletion of the link.
2283: null;
2284: end if; -- ( lx_return_status <> FND_API.G_RET_STS_SUCCESS )
2285: END IF; -- (p_api_version >= 2.0)
2286:
2287: -- 5250937
2288: IF FND_API.To_Boolean(p_commit) THEN
2284: end if; -- ( lx_return_status <> FND_API.G_RET_STS_SUCCESS )
2285: END IF; -- (p_api_version >= 2.0)
2286:
2287: -- 5250937
2288: IF FND_API.To_Boolean(p_commit) THEN
2289: COMMIT WORK;
2290: END IF; -- FND_API.To_Boolean(p_commit)
2291: -- 5250937_eof
2292:
2286:
2287: -- 5250937
2288: IF FND_API.To_Boolean(p_commit) THEN
2289: COMMIT WORK;
2290: END IF; -- FND_API.To_Boolean(p_commit)
2291: -- 5250937_eof
2292:
2293: EXCEPTION
2294: WHEN FND_API.G_EXC_ERROR THEN
2290: END IF; -- FND_API.To_Boolean(p_commit)
2291: -- 5250937_eof
2292:
2293: EXCEPTION
2294: WHEN FND_API.G_EXC_ERROR THEN
2295: ROLLBACK TO SAVEPOINT Delete_IncidentLink_PVT;
2296: x_return_status := FND_API.G_RET_STS_ERROR;
2297: FND_MSG_PUB.Count_And_Get(
2298: p_count => x_msg_count,
2292:
2293: EXCEPTION
2294: WHEN FND_API.G_EXC_ERROR THEN
2295: ROLLBACK TO SAVEPOINT Delete_IncidentLink_PVT;
2296: x_return_status := FND_API.G_RET_STS_ERROR;
2297: FND_MSG_PUB.Count_And_Get(
2298: p_count => x_msg_count,
2299: p_data => x_msg_data);
2300:
2299: p_data => x_msg_data);
2300:
2301: WHEN OTHERS THEN
2302: ROLLBACK TO SAVEPOINT Delete_IncidentLink_PVT;
2303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2304: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2305: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2306: FND_MSG_PUB.ADD;
2307: FND_MSG_PUB.Count_And_Get(
2492: */
2493: PROCEDURE Delete_IncidentLink
2494: (
2495: p_api_version_number IN NUMBER := 1.0
2496: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2497: , p_commit IN VARCHAR2 := FND_API.G_FALSE
2498: , p_object_type IN VARCHAR2
2499: , p_processing_set_id IN NUMBER
2500: , x_return_status OUT NOCOPY VARCHAR2
2493: PROCEDURE Delete_IncidentLink
2494: (
2495: p_api_version_number IN NUMBER := 1.0
2496: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2497: , p_commit IN VARCHAR2 := FND_API.G_FALSE
2498: , p_object_type IN VARCHAR2
2499: , p_processing_set_id IN NUMBER
2500: , x_return_status OUT NOCOPY VARCHAR2
2501: , x_msg_count OUT NOCOPY NUMBER
2512:
2513: x_msg_index_out NUMBER;
2514:
2515: BEGIN
2516: x_return_status := FND_API.G_RET_STS_SUCCESS;
2517:
2518: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level
2519: THEN
2520: FND_LOG.String
2554: , 'p_processing_set_id:' || p_processing_set_id
2555: );
2556: END IF ;
2557:
2558: IF NOT FND_API.Compatible_API_Call
2559: (
2560: L_API_VERSION
2561: , p_api_version_number
2562: , L_API_NAME
2567: (
2568: p_count => x_msg_count
2569: , p_data => x_msg_data
2570: );
2571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2572: END IF ;
2573:
2574: IF FND_API.to_Boolean(p_init_msg_list)
2575: THEN
2570: );
2571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2572: END IF ;
2573:
2574: IF FND_API.to_Boolean(p_init_msg_list)
2575: THEN
2576: FND_MSG_PUB.initialize;
2577: END IF ;
2578:
2597: FND_MESSAGE.Set_Token('PARAM', 'p_object_type');
2598: FND_MESSAGE.Set_Token('CURRVAL', p_object_type);
2599: FND_MSG_PUB.ADD;
2600:
2601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2602: END IF;
2603:
2604: ---
2605:
2620: FND_MESSAGE.Set_Token('PARAM', 'p_processing_set_id');
2621: FND_MESSAGE.Set_Token('CURRVAL', NVL(to_char(p_processing_set_id),'NULL'));
2622: FND_MSG_PUB.ADD;
2623:
2624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2625: END IF;
2626:
2627: ------------------------------------------------------------------------------
2628: -- Actual Logic starts below:
2686: END IF ;
2687:
2688: EXCEPTION
2689:
2690: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2692:
2693: IF fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
2694: THEN
2687:
2688: EXCEPTION
2689:
2690: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2692:
2693: IF fnd_log.level_unexpected >= fnd_log.g_current_runtime_level
2694: THEN
2695: FND_LOG.String
2695: FND_LOG.String
2696: (
2697: fnd_log.level_unexpected
2698: , L_LOG_MODULE || 'unexpected_error'
2699: , 'Inside WHEN FND_API.G_EXC_UNEXPECTED_ERROR of ' || L_API_NAME_FULL
2700: );
2701:
2702: x_msg_count := FND_MSG_PUB.Count_Msg;
2703:
2724: END IF ;
2725: END IF ;
2726:
2727: WHEN OTHERS THEN
2728: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2729: FND_MESSAGE.Set_Name('CS', 'CS_SR_LNK_DEL_FAIL');
2730: FND_MESSAGE.Set_Token('API_NAME', L_API_NAME_FULL);
2731: FND_MESSAGE.Set_Token('ERROR', SQLERRM);
2732: FND_MSG_PUB.ADD;