[Home] [Help]
42: OPEN c_org_info;
43: FETCH c_org_info INTO x_maint_org_id, x_master_org_id, x_eam_enabled_flag;
44: IF c_org_info % NOTFOUND
45: THEN
46: x_return_status := FND_API.G_RET_STS_ERROR;
47: ELSE
48: x_return_status := FND_API.G_RET_STS_SUCCESS;
49: END IF;
50: CLOSE c_org_info;
44: IF c_org_info % NOTFOUND
45: THEN
46: x_return_status := FND_API.G_RET_STS_ERROR;
47: ELSE
48: x_return_status := FND_API.G_RET_STS_SUCCESS;
49: END IF;
50: CLOSE c_org_info;
51: --
52: EXCEPTION
53: WHEN OTHERS THEN
54: FND_MESSAGE.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
55: FND_MESSAGE.set_token('P_TEXT','CS_SERVICEREQUEST_UTIL.get_org_details'||'-'||SQLERRM);
56: FND_MSG_PUB.ADD;
57: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
58: END get_org_details;
59: -- -----------------------------------------------------------------------------
60: -- Procedure Name : get_status_details
61: -- Parameter :
97: , x_return_status OUT NOCOPY VARCHAR2
98: ) IS
99: l_dt DATE;
100: BEGIN
101: x_return_status := FND_API.G_RET_STS_SUCCESS;
102: l_dt := trunc(sysdate);
103: SELECT
104: NVL(close_flag ,'N')
105: , NVL(disallow_request_update,'N')
125: -- AND NVL(end_date_active ,l_dt)
126: ;
127: EXCEPTION
128: WHEN NO_DATA_FOUND THEN
129: x_return_status := FND_API.G_RET_STS_ERROR;
130: WHEN OTHERS THEN
131: FND_MESSAGE.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
132: FND_MESSAGE.set_token ('P_TEXT','CS_SERVICEREQUEST_UTIL.get_status_details'||'-'||SQLERRM);
133: FND_MSG_PUB.ADD;
130: WHEN OTHERS THEN
131: FND_MESSAGE.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
132: FND_MESSAGE.set_token ('P_TEXT','CS_SERVICEREQUEST_UTIL.get_status_details'||'-'||SQLERRM);
133: FND_MSG_PUB.ADD;
134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
135: END get_status_details;
136: -- -----------------------------------------------------------------------------
137: -- Procedure Name : get_customer_product_details
138: -- Parameter :
209: , x_serial_number
210: ;
211: IF c_cp%NOTFOUND
212: THEN
213: x_return_status := FND_API.G_RET_STS_ERROR;
214: ELSE
215: x_return_status := FND_API.G_RET_STS_SUCCESS;
216: END IF;
217: CLOSE c_cp;
211: IF c_cp%NOTFOUND
212: THEN
213: x_return_status := FND_API.G_RET_STS_ERROR;
214: ELSE
215: x_return_status := FND_API.G_RET_STS_SUCCESS;
216: END IF;
217: CLOSE c_cp;
218: END;
219: -- -----------------------------------------------------------------------------
265: FROM
266: mtl_system_items
267: WHERE organization_id = p_inventory_org_id
268: AND inventory_item_id = p_inv_item_id;
269: x_return_status := FND_API.G_RET_STS_SUCCESS;
270: EXCEPTION
271: WHEN NO_DATA_FOUND THEN
272: x_return_status := FND_API.G_RET_STS_ERROR;
273: WHEN OTHERS THEN
268: AND inventory_item_id = p_inv_item_id;
269: x_return_status := FND_API.G_RET_STS_SUCCESS;
270: EXCEPTION
271: WHEN NO_DATA_FOUND THEN
272: x_return_status := FND_API.G_RET_STS_ERROR;
273: WHEN OTHERS THEN
274: x_return_status := FND_API.G_RET_STS_ERROR;
275: END;
276: -- -----------------------------------------------------------------------------
270: EXCEPTION
271: WHEN NO_DATA_FOUND THEN
272: x_return_status := FND_API.G_RET_STS_ERROR;
273: WHEN OTHERS THEN
274: x_return_status := FND_API.G_RET_STS_ERROR;
275: END;
276: -- -----------------------------------------------------------------------------
277: -- Function Name : get_unassigned_indicator
278: -- Parameter :
320: p_old_num_value IN NUMBER )
321: RETURN NUMBER
322: IS
323: BEGIN
324: if ( p_new_num_value = FND_API.G_MISS_NUM ) then
325: return p_old_num_value;
326: else
327: return p_new_num_value;
328: end if;
334: p_old_char_value IN VARCHAR2 )
335: RETURN VARCHAR2
336: IS
337: BEGIN
338: if ( p_new_char_value = FND_API.G_MISS_CHAR ) then
339: return p_old_char_value;
340: else
341: return p_new_char_value;
342: end if;
348: p_old_date_value IN DATE )
349: RETURN DATE
350: IS
351: BEGIN
352: if ( p_new_date_value = FND_API.G_MISS_DATE ) then
353: return p_old_date_value;
354: else
355: return p_new_date_value;
356: end if;
372: l_api_name CONSTANT VARCHAR2(30) := 'Convert_Request_Number_To_ID';
373: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
374: BEGIN
375: -- Initialize Return Status to SUCCESS
376: x_return_status := FND_API.G_RET_STS_SUCCESS;
377: BEGIN
378: SELECT incident_id INTO p_request_id
379: FROM cs_incidents_all_b
380: WHERE incident_number = p_request_number ;
379: FROM cs_incidents_all_b
380: WHERE incident_number = p_request_number ;
381: EXCEPTION
382: WHEN NO_DATA_FOUND THEN
383: x_return_status := FND_API.G_RET_STS_ERROR;
384: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
385: p_token_v => p_request_number,
386: p_token_p => p_parameter_name,
387: p_table_name => G_TABLE_NAME,
389: WHEN OTHERS THEN
390: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
391: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
392: fnd_msg_pub.ADD;
393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
394: END;
395: END Convert_Request_Number_To_ID;
396: -- --------------------------------------------------------------------------------
397: -- Convert_Type_To_ID
401: p_api_name IN VARCHAR2,
402: p_parameter_name IN VARCHAR2,
403: p_type_name IN VARCHAR2,
404: p_subtype IN VARCHAR2,
405: p_parent_type_id IN NUMBER := FND_API.G_MISS_NUM,
406: p_type_id OUT NOCOPY NUMBER,
407: x_return_status OUT NOCOPY VARCHAR2
408: ) IS
409: l_api_name CONSTANT VARCHAR2(30) := 'Convert_Type_To_ID';
410: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
411:
412: BEGIN
413: -- Initialize Return Status to SUCCESS
414: x_return_status := FND_API.G_RET_STS_SUCCESS;
415:
416: IF p_subtype = G_ACTION_SUBTYPE THEN
417: IF p_parent_type_id = FND_API.g_MISS_NUM THEN
418: -- the subtype is 'ACT' and the user did not pass in parent_type_id
413: -- Initialize Return Status to SUCCESS
414: x_return_status := FND_API.G_RET_STS_SUCCESS;
415:
416: IF p_subtype = G_ACTION_SUBTYPE THEN
417: IF p_parent_type_id = FND_API.g_MISS_NUM THEN
418: -- the subtype is 'ACT' and the user did not pass in parent_type_id
419: -- it is possible that multiple rows will be returned and hence TOO_MANY_ROWS
420: -- exception must be handled
421: BEGIN
425: AND UPPER(name) = UPPER(p_type_name);
426:
427: EXCEPTION
428: WHEN NO_DATA_FOUND THEN
429: x_return_status := FND_API.G_RET_STS_ERROR;
430: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
431: p_token_v => p_type_name,
432: p_token_p => p_parameter_name,
433: p_table_name => 'CS_INCIDENT_TYPES_VL',
432: p_token_p => p_parameter_name,
433: p_table_name => 'CS_INCIDENT_TYPES_VL',
434: p_column_name => 'NAME' );
435: WHEN TOO_MANY_ROWS THEN
436: x_return_status := FND_API.G_RET_STS_ERROR;
437: Add_Duplicate_Value_Msg( p_token_an => l_api_name_full,
438: p_token_p => p_parameter_name,
439: p_table_name => 'CS_INCIDENT_TYPES_VL',
440: p_column_name => 'NAME' );
441: WHEN OTHERS THEN
442: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
443: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
444: fnd_msg_pub.ADD;
445: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
446: END;
447: ELSE
448: -- the subtype is 'ACT' and the user did pass in parent_type_id
449: -- it is not possible that multiple rows will be returned and hence TOO_MANY_ROWS
458: AND p_parent_type_id IS NULL));
459:
460: EXCEPTION
461: WHEN NO_DATA_FOUND THEN
462: x_return_status := FND_API.G_RET_STS_ERROR;
463: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
464: p_token_v => p_type_name,
465: p_token_p => p_parameter_name,
466: p_table_name => 'CS_INCIDENT_TYPES_VL',
468: WHEN OTHERS THEN
469: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
470: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
471: fnd_msg_pub.ADD;
472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
473: END;
474: END IF;
475: ELSE
476: -- if this is a SR type
483: AND TRUNC(NVL(end_date_active, SYSDATE))
484: AND rownum<2;
485: EXCEPTION
486: WHEN NO_DATA_FOUND THEN
487: x_return_status := FND_API.G_RET_STS_ERROR;
488: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
489: p_token_v => p_type_name,
490: p_token_p => p_parameter_name,
491: p_table_name => 'CS_INCIDENT_TYPES_VL',
493: WHEN OTHERS THEN
494: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
495: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
496: fnd_msg_pub.ADD;
497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
498: END;
499: END IF;
500: END Convert_Type_To_ID;
501:
517: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
518:
519: BEGIN
520: -- Initialize Return Status to SUCCESS
521: x_return_status := FND_API.G_RET_STS_SUCCESS;
522:
523: BEGIN
524: SELECT incident_status_id INTO p_status_id
525: FROM cs_incident_statuses_vl
529: AND TRUNC(NVL(end_date_active, SYSDATE))
530: AND rownum<2;
531: EXCEPTION
532: WHEN NO_DATA_FOUND THEN
533: x_return_status := FND_API.G_RET_STS_ERROR;
534: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
535: p_token_v => p_status_name,
536: p_token_p => p_parameter_name,
537: p_table_name => 'CS_INCIDENT_STATUSES_VL',
539: WHEN OTHERS THEN
540: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
541: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
542: fnd_msg_pub.ADD;
543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
544: END;
545: END Convert_Status_to_ID;
546: -- --------------------------------------------------------------------------------
547: -- Convert_Severity_To_ID
561:
562:
563: BEGIN
564: -- Initialize Return Status to SUCCESS
565: x_return_status := FND_API.G_RET_STS_SUCCESS;
566:
567: BEGIN
568: SELECT incident_severity_id INTO p_severity_id
569: FROM cs_incident_severities_vl
573: AND TRUNC(NVL(end_date_active, SYSDATE))
574: AND rownum<2;
575: EXCEPTION
576: WHEN NO_DATA_FOUND THEN
577: x_return_status := FND_API.G_RET_STS_ERROR;
578: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
579: p_token_v => p_severity_name,
580: p_token_p => p_parameter_name,
581: p_table_name => 'CS_INCIDENT_SEVERITIES_VL',
583: WHEN OTHERS THEN
584: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
585: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
586: fnd_msg_pub.ADD;
587: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
588: END;
589: END Convert_Severity_To_ID;
590:
591: /*
605:
606:
607: BEGIN
608: -- Initialize the return status.
609: x_return_status := FND_API.G_RET_STS_SUCCESS;
610:
611: -- Fetch ID from database.
612: SELECT incident_urgency_id INTO p_urgency_id
613: FROM cs_incident_urgencies_vl
617: AND rownum<2;
618:
619: EXCEPTION
620: WHEN NO_DATA_FOUND THEN
621: x_return_status := FND_API.G_RET_STS_ERROR;
622: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
623: p_token_v => p_urgency_name,
624: p_token_p => p_parameter_name,
625: p_table_name => 'CS_INCIDENT_URGENCIES_VL',
627: WHEN OTHERS THEN
628: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
629: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
630: fnd_msg_pub.ADD;
631: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
632: END Convert_Urgency_To_ID;
633:
634: /*
635: ** Convert_Customer_To_ID
650: PROCEDURE Convert_Customer_To_ID
651: ( p_api_name IN VARCHAR2,
652: p_parameter_name_nb IN VARCHAR2,
653: p_parameter_name_n IN VARCHAR2,
654: p_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
655: p_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
656: p_customer_id OUT NOCOPY NUMBER,
657: x_return_status OUT NOCOPY VARCHAR2
658: )
651: ( p_api_name IN VARCHAR2,
652: p_parameter_name_nb IN VARCHAR2,
653: p_parameter_name_n IN VARCHAR2,
654: p_customer_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
655: p_customer_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
656: p_customer_id OUT NOCOPY NUMBER,
657: x_return_status OUT NOCOPY VARCHAR2
658: )
659: IS
660: l_api_name CONSTANT VARCHAR2(30) := 'Convert_Customer_To_ID';
661: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
662: BEGIN
663: -- Initialize the return status.
664: x_return_status := FND_API.G_RET_STS_SUCCESS;
665:
666: -- Fetch ID from database.
667:
668: IF p_customer_number <> FND_API.G_MISS_CHAR THEN
664: x_return_status := FND_API.G_RET_STS_SUCCESS;
665:
666: -- Fetch ID from database.
667:
668: IF p_customer_number <> FND_API.G_MISS_CHAR THEN
669: BEGIN
670: SELECT a.party_id INTO p_customer_id
671: FROM hz_parties a
672: WHERE a.party_number = p_customer_number;
671: FROM hz_parties a
672: WHERE a.party_number = p_customer_number;
673: EXCEPTION
674: WHEN NO_DATA_FOUND THEN
675: x_return_status := FND_API.G_RET_STS_ERROR;
676: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
677: p_token_v => p_customer_number,
678: p_token_p => p_parameter_name_nb,
679: p_table_name => G_TABLE_NAME,
681: WHEN OTHERS THEN
682: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
683: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
684: fnd_msg_pub.ADD;
685: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
686: END;
687: -- If the customer name parameter is also passed, generate an
688: -- informational message.
689:
686: END;
687: -- If the customer name parameter is also passed, generate an
688: -- informational message.
689:
690: IF p_customer_name <> FND_API.G_MISS_CHAR THEN
691: Add_Param_Ignored_Msg( p_token_an => l_api_name_full,
692: p_token_ip => p_parameter_name_n,
693: p_table_name => G_TABLE_NAME,
694: p_column_name => 'CUSTOMER_NAME' );
704: WHERE UPPER(a.party_name) = UPPER(p_customer_name);
705:
706: EXCEPTION
707: WHEN NO_DATA_FOUND THEN
708: x_return_status := FND_API.G_RET_STS_ERROR;
709: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
710: p_token_v => p_customer_name,
711: p_token_p => p_parameter_name_n,
712: p_table_name => G_TABLE_NAME,
711: p_token_p => p_parameter_name_n,
712: p_table_name => G_TABLE_NAME,
713: p_column_name => 'CUSTOMER_NAME' );
714: WHEN TOO_MANY_ROWS THEN
715: x_return_status := FND_API.G_RET_STS_ERROR;
716: Add_Duplicate_Value_Msg( p_token_an => l_api_name_full,
717: p_token_p => p_parameter_name_n,
718: p_table_name => G_TABLE_NAME,
719: p_column_name => 'CUSTOMER_NAME' );
720: WHEN OTHERS THEN
721: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
722: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
723: fnd_msg_pub.ADD;
724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
725: END;
726: **************************************************************************/
727: END IF;
728: END Convert_Customer_To_ID;
735: -----------------------------------------------------------------------------
736: PROCEDURE Convert_Employee_To_ID
737: ( p_api_name IN VARCHAR2,
738: p_parameter_name_nb IN VARCHAR2,
739: p_employee_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
740: p_employee_id OUT NOCOPY NUMBER,
741: x_return_status OUT NOCOPY VARCHAR2
742: )
743: IS
744: l_api_name CONSTANT VARCHAR2(30) := 'Convert_Employee_To_ID';
745: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
746: BEGIN
747: -- Initialize the return status.
748: x_return_status := FND_API.G_RET_STS_SUCCESS;
749:
750: -- Fetch ID from database.
751: IF (p_employee_number <> FND_API.G_MISS_CHAR) THEN
752: BEGIN
747: -- Initialize the return status.
748: x_return_status := FND_API.G_RET_STS_SUCCESS;
749:
750: -- Fetch ID from database.
751: IF (p_employee_number <> FND_API.G_MISS_CHAR) THEN
752: BEGIN
753: SELECT person_id INTO p_employee_id
754: FROM per_people_x
755: WHERE employee_number = p_employee_number;
754: FROM per_people_x
755: WHERE employee_number = p_employee_number;
756: EXCEPTION
757: WHEN NO_DATA_FOUND THEN
758: x_return_status := FND_API.G_RET_STS_ERROR;
759: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
760: p_token_v => p_employee_number,
761: p_token_p => p_parameter_name_nb,
762: p_table_name => null,
761: p_token_p => p_parameter_name_nb,
762: p_table_name => null,
763: p_column_name => 'EMPLOYEE_NUMBER' );
764: WHEN TOO_MANY_ROWS THEN
765: x_return_status := FND_API.G_RET_STS_ERROR;
766: Add_Duplicate_Value_Msg( p_token_an => l_api_name_full,
767: p_token_p => p_parameter_name_nb,
768: p_table_name => null,
769: p_column_name => 'EMPLOYEE_NUMBER' );
770: WHEN OTHERS THEN
771: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
772: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
773: fnd_msg_pub.ADD;
774: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
775:
776: END;
777: END IF;
778:
798: l_cp_ref_number csi_item_instances.instance_number % type;
799:
800: BEGIN
801: -- Initialize the return status.
802: x_return_status := FND_API.G_RET_STS_SUCCESS;
803: l_cp_ref_number := to_char(p_cp_ref_number);
804:
805: -- Fetch ID from database.
806: SELECT instance_id
809: WHERE instance_number = l_cp_ref_number;
810:
811: EXCEPTION
812: WHEN NO_DATA_FOUND THEN
813: x_return_status := FND_API.G_RET_STS_ERROR;
814: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
815: p_token_v => TO_CHAR(p_cp_ref_number),
816: p_token_p => p_parameter_name,
817: p_table_name => null,
819: WHEN OTHERS THEN
820: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
821: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
822: fnd_msg_pub.ADD;
823: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
824: END Convert_CP_Ref_Number_To_ID;
825:
826: /*
827: ** Convert_RMA_Number_To_ID
843:
844:
845: BEGIN
846: -- Initialize the return status.
847: x_return_status := FND_API.G_RET_STS_SUCCESS;
848:
849: -- Fetch ID from database.
850: SELECT header_id INTO p_rma_header_id
851: FROM so_headers_all
853: AND order_type_id = NVL(p_order_type_id,order_type_id) ;
854:
855: EXCEPTION
856: WHEN NO_DATA_FOUND THEN
857: x_return_status := FND_API.G_RET_STS_ERROR;
858:
859: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
860: p_token_v => TO_CHAR(p_rma_number),
861: p_token_p => p_parameter_name,
862: p_table_name => G_TABLE_NAME ,
863: p_column_name => 'RMA_NUMBER' );
864:
865: WHEN TOO_MANY_ROWS THEN
866: x_return_status := FND_API.G_RET_STS_ERROR;
867:
868: Add_Duplicate_Value_Msg( p_token_an => l_api_name_full,
869: p_token_p => p_parameter_name,
870: p_table_name => G_TABLE_NAME ,
872: WHEN OTHERS THEN
873: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
874: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
875: fnd_msg_pub.ADD;
876: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
877: END Convert_RMA_Number_To_ID;
878: */
879:
880: -- --------------------------------------------------------------------------------
893: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
894:
895: BEGIN
896: -- Initialize Return Status to SUCCESS
897: x_return_status := FND_API.G_RET_STS_SUCCESS;
898:
899: BEGIN
900:
901: -- Special check to not check the dates when the user ID is (-1).
912: END IF;
913:
914: EXCEPTION
915: WHEN NO_DATA_FOUND THEN
916: x_return_status := FND_API.G_RET_STS_ERROR;
917: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
918: p_token_v => TO_CHAR(p_user_id),
919: p_token_p => p_parameter_name_usr,
920: p_table_name => G_TABLE_NAME,
922: WHEN OTHERS THEN
923: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
924: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
925: fnd_msg_pub.ADD;
926: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
927:
928: RETURN;
929: END;
930:
936: WHERE login_id = p_login_id
937: AND user_id = p_user_id;
938: EXCEPTION
939: WHEN NO_DATA_FOUND THEN
940: x_return_status := FND_API.G_RET_STS_ERROR;
941: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
942: p_token_v => TO_CHAR(p_login_id),
943: p_token_p => p_parameter_name_login,
944: p_table_name => G_TABLE_NAME,
947: WHEN OTHERS THEN
948: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
949: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
950: fnd_msg_pub.ADD;
951: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
952: END;
953: END IF;
954: END Validate_Who_Info;
955:
1000: AND TRUNC(NVL(end_date_active, SYSDATE));
1001:
1002: BEGIN
1003: -- Initialize the return status.
1004: x_return_status := FND_API.G_RET_STS_SUCCESS;
1005: x_CMRO_flag := NULL;
1006: x_maintenance_flag := NULL;
1007:
1008: l_profile := FND_PROFILE.VALUE('CS_SR_USE_TYPE_RESPON_SETUP');
1013: OPEN val_type_map;
1014: FETCH val_type_map INTO l_dummy;
1015: IF (val_type_map%NOTFOUND) THEN
1016: CLOSE val_type_map;
1017: x_return_status := FND_API.G_RET_STS_ERROR;
1018: fnd_message.set_name ('CS', 'CS_SR_TYPE_BY_RESP');
1019: fnd_message.set_token ('OPERATION',p_operation);
1020: fnd_msg_pub.ADD;
1021: ELSE
1018: fnd_message.set_name ('CS', 'CS_SR_TYPE_BY_RESP');
1019: fnd_message.set_token ('OPERATION',p_operation);
1020: fnd_msg_pub.ADD;
1021: ELSE
1022: x_return_status := FND_API.G_RET_STS_SUCCESS;
1023: --Fixed bug 2809312, moved this close cursor here from
1024: --after the if.
1025: CLOSE val_type_map;
1026: END IF;
1029: -- for cmro_eam
1030: FETCH val_type INTO x_CMRO_flag,x_maintenance_flag;
1031: IF (val_type%NOTFOUND) THEN
1032: CLOSE val_type;
1033: x_return_status := FND_API.G_RET_STS_ERROR;
1034: RAISE NO_DATA_FOUND ;
1035: ELSE
1036: x_return_status := FND_API.G_RET_STS_SUCCESS;
1037: --Fixed bug 2809312, moved this close cursor here from
1032: CLOSE val_type;
1033: x_return_status := FND_API.G_RET_STS_ERROR;
1034: RAISE NO_DATA_FOUND ;
1035: ELSE
1036: x_return_status := FND_API.G_RET_STS_SUCCESS;
1037: --Fixed bug 2809312, moved this close cursor here from
1038: --after the if.
1039: CLOSE val_type;
1040: END IF;
1041: END IF;
1042:
1043: EXCEPTION
1044: WHEN NO_DATA_FOUND THEN
1045: x_return_status := FND_API.G_RET_STS_ERROR;
1046: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1047: p_token_v => TO_CHAR(p_type_id),
1048: p_token_p => p_parameter_name,
1049: p_table_name => G_TABLE_NAME,
1052: WHEN OTHERS THEN
1053: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1054: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1055: fnd_msg_pub.ADD;
1056: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1057: END Validate_Type;
1058:
1059: *******************************/
1060:
1111: -- and trunc(nvl(end_date_active, sysdate));
1112:
1113: BEGIN
1114: -- Initialize the return status.
1115: x_return_status := FND_API.G_RET_STS_SUCCESS;
1116: x_cmro_flag := NULL;
1117: x_maintenance_flag := NULL;
1118:
1119: -- Verify the type ID against the database.
1123: fetch val_type_map into l_dummy;
1124: close val_type_map;
1125:
1126: if ( l_dummy = 'x' ) then
1127: x_return_status := FND_API.G_RET_STS_SUCCESS;
1128: else
1129: -- new message for 11.5.10
1130: -- You do not have access to the service request type that is
1131: -- being created. Please contact your system administrator.
1130: -- You do not have access to the service request type that is
1131: -- being created. Please contact your system administrator.
1132: fnd_message.set_name ('CS', 'CS_SR_WEB_NO_PRIV');
1133: fnd_msg_pub.ADD;
1134: x_return_status := FND_API.G_RET_STS_ERROR;
1135: end if;
1136: else
1137: -- For bug 3474365 - included an if condition while called for validating old sr type
1138: -- for self_Service applications.
1148: -- as a valid type.
1149: fnd_message.set_name ('CS', 'CS_SR_INVALID_TYPE');
1150: fnd_message.set_token('API_NAME', l_api_name_full);
1151: fnd_msg_pub.ADD;
1152: x_return_status := FND_API.G_RET_STS_ERROR;
1153:
1154: elsif (not( trunc(sysdate) >= trunc(nvl(l_start_date, sysdate))
1155: and trunc(sysdate) <= trunc(nvl(l_end_date, sysdate)) )) then
1156: fnd_message.set_name ('CS', 'CS_SR_INVALID_TYPE');
1155: and trunc(sysdate) <= trunc(nvl(l_end_date, sysdate)) )) then
1156: fnd_message.set_name ('CS', 'CS_SR_INVALID_TYPE');
1157: fnd_message.set_token('API_NAME', l_api_name_full);
1158: fnd_msg_pub.ADD;
1159: x_return_status := FND_API.G_RET_STS_ERROR;
1160: else
1161: l_flags_set := 'Y';
1162: x_return_status := FND_API.G_RET_STS_SUCCESS;
1163: end if;
1158: fnd_msg_pub.ADD;
1159: x_return_status := FND_API.G_RET_STS_ERROR;
1160: else
1161: l_flags_set := 'Y';
1162: x_return_status := FND_API.G_RET_STS_SUCCESS;
1163: end if;
1164: close val_type_unsecure;
1165:
1166: elsif ( p_operation = 'UPDATE_OLD') then
1173: -- as a valid type.
1174: fnd_message.set_name ('CS', 'CS_SR_INVALID_TYPE');
1175: fnd_message.set_token('API_NAME', l_api_name_full);
1176: fnd_msg_pub.ADD;
1177: x_return_status := FND_API.G_RET_STS_ERROR;
1178: else
1179: l_flags_set := 'Y';
1180: x_return_status := FND_API.G_RET_STS_SUCCESS;
1181: end if;
1176: fnd_msg_pub.ADD;
1177: x_return_status := FND_API.G_RET_STS_ERROR;
1178: else
1179: l_flags_set := 'Y';
1180: x_return_status := FND_API.G_RET_STS_SUCCESS;
1181: end if;
1182: close val_type_unsecure;
1183:
1184: end if; -- if ( p_operation = 'UPDATE') then
1199: -- service requests of this type. Please contact your system administrator.
1200: fnd_message.set_name ('CS', 'CS_SR_AGENT_NO_PRIV');
1201: fnd_message.set_token('API_NAME', l_api_name_full);
1202: fnd_msg_pub.ADD;
1203: x_return_status := FND_API.G_RET_STS_ERROR;
1204: elsif (not( trunc(sysdate) >= trunc(nvl(l_start_date, sysdate))
1205: and trunc(sysdate) <= trunc(nvl(l_end_date, sysdate)) )) then
1206: fnd_message.set_name ('CS', 'CS_SR_INVALID_TYPE');
1207: fnd_message.set_token('API_NAME', l_api_name_full);
1205: and trunc(sysdate) <= trunc(nvl(l_end_date, sysdate)) )) then
1206: fnd_message.set_name ('CS', 'CS_SR_INVALID_TYPE');
1207: fnd_message.set_token('API_NAME', l_api_name_full);
1208: fnd_msg_pub.ADD;
1209: x_return_status := FND_API.G_RET_STS_ERROR;
1210: else
1211: l_flags_set := 'Y';
1212: x_return_status := FND_API.G_RET_STS_SUCCESS;
1213: end if;
1208: fnd_msg_pub.ADD;
1209: x_return_status := FND_API.G_RET_STS_ERROR;
1210: else
1211: l_flags_set := 'Y';
1212: x_return_status := FND_API.G_RET_STS_SUCCESS;
1213: end if;
1214: close val_type_secure;
1215: elsif ( p_operation = 'UPDATE_OLD') then
1216: open val_type_secure;
1224: --fnd_message.set_name ('CS', 'CS_SR_INVALID_TYPE');
1225: fnd_message.set_name ('CS', 'CS_SR_AGENT_NO_PRIV');
1226: fnd_message.set_token('API_NAME', l_api_name_full);
1227: fnd_msg_pub.ADD;
1228: x_return_status := FND_API.G_RET_STS_ERROR;
1229: else
1230: l_flags_set := 'Y';
1231: x_return_status := FND_API.G_RET_STS_SUCCESS;
1232: end if;
1227: fnd_msg_pub.ADD;
1228: x_return_status := FND_API.G_RET_STS_ERROR;
1229: else
1230: l_flags_set := 'Y';
1231: x_return_status := FND_API.G_RET_STS_SUCCESS;
1232: end if;
1233: close val_type_secure;
1234:
1235: end if; -- if ( p_operation = 'UPDATE') then
1235: end if; -- if ( p_operation = 'UPDATE') then
1236: end if; -- if ( p_business_usage = 'SELF_SERVICE' ) then
1237:
1238: -- get the values of the flags for the out parameters if not set
1239: if ( x_return_status = FND_API.G_RET_STS_SUCCESS and
1240: l_flags_set = 'N' ) then
1241: open val_type_unsecure;
1242: fetch val_type_unsecure into x_cmro_flag, x_maintenance_flag,l_start_date,l_end_date;
1243: close val_type_unsecure;
1244: end if;
1245:
1246: EXCEPTION
1247: WHEN NO_DATA_FOUND THEN
1248: x_return_status := FND_API.G_RET_STS_ERROR;
1249: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1250: p_token_v => TO_CHAR(p_type_id),
1251: p_token_p => p_parameter_name,
1252: p_table_name => G_TABLE_NAME,
1255: WHEN OTHERS THEN
1256: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1257: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1258: fnd_msg_pub.ADD;
1259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1260: END Validate_Type;
1261: /*
1262: ** Validate_Status
1263: ** Note : This procedure is used during Create Service Request.
1336: l_api_name CONSTANT VARCHAR2(30) := 'Validate_Status';
1337: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
1338: BEGIN
1339: -- Initialize the return status.
1340: x_return_status := FND_API.G_RET_STS_SUCCESS;
1341:
1342: IF NVL(p_operation,'CREATE') = 'CREATE' THEN
1343:
1344: OPEN all_statuses_Csr;
1390:
1391:
1392: EXCEPTION
1393: WHEN NO_DATA_FOUND THEN
1394: x_return_status := FND_API.G_RET_STS_ERROR;
1395:
1396: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1397: p_token_v => TO_CHAR(p_status_id),
1398: p_token_p => p_parameter_name,
1401: WHEN OTHERS THEN
1402: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1403: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1404: fnd_msg_pub.ADD;
1405: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1406: END Validate_Status;
1407:
1408: /*
1409: ** Validate_Updated_Status
1505:
1506: BEGIN
1507:
1508: -- Initialize the return status.
1509: x_return_status := FND_API.G_RET_STS_SUCCESS;
1510: l_status_valid := 'N' ;
1511:
1512: -- Verify the given status against the cs_incident_statuses table.
1513: -- Get all the values for the flags.
1622: END IF;
1623: END IF;
1624: EXCEPTION
1625: WHEN NO_DATA_FOUND THEN
1626: x_return_status := FND_API.G_RET_STS_ERROR;
1627: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1628: p_token_v => TO_CHAR(p_new_status_id),
1629: p_token_p => p_parameter_name,
1630: p_table_name => G_TABLE_NAME,
1632: WHEN OTHERS THEN
1633: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1634: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1635: fnd_msg_pub.ADD;
1636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1637: END Validate_Updated_Status;
1638:
1639:
1640: -- Validate_Severity
1653: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
1654:
1655: BEGIN
1656: -- Initialize Return Status to SUCCESS
1657: x_return_status := FND_API.G_RET_STS_SUCCESS;
1658:
1659: BEGIN
1660: SELECT 'x' INTO l_dummy
1661: FROM cs_incident_severities_b
1664: AND TRUNC(SYSDATE) BETWEEN TRUNC(NVL(start_date_active, SYSDATE))
1665: AND TRUNC(NVL(end_date_active, SYSDATE));
1666: EXCEPTION
1667: WHEN NO_DATA_FOUND THEN
1668: x_return_status := FND_API.G_RET_STS_ERROR;
1669: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1670: p_token_v => TO_CHAR(p_severity_id),
1671: p_token_p => p_parameter_name,
1672: p_table_name => G_TABLE_NAME,
1674: WHEN OTHERS THEN
1675: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1676: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1677: fnd_msg_pub.ADD;
1678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1679:
1680: END;
1681: END Validate_Severity ;
1682:
1697: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
1698:
1699: BEGIN
1700: -- Initialize Return Status to SUCCESS
1701: x_return_status := FND_API.G_RET_STS_SUCCESS;
1702:
1703: BEGIN
1704: SELECT 'x' INTO l_dummy
1705: FROM cs_incident_urgencies_b
1707: AND TRUNC(SYSDATE) BETWEEN TRUNC(NVL(start_date_active, SYSDATE))
1708: AND TRUNC(NVL(end_date_active, SYSDATE));
1709: EXCEPTION
1710: WHEN NO_DATA_FOUND THEN
1711: x_return_status := FND_API.G_RET_STS_ERROR;
1712: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1713: p_token_v => TO_CHAR(p_urgency_id),
1714: p_token_p => p_parameter_name,
1715: p_table_name => G_TABLE_NAME,
1717: WHEN OTHERS THEN
1718: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1719: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1720: fnd_msg_pub.ADD;
1721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1722:
1723: END;
1724: END Validate_Urgency;
1725:
1744:
1745:
1746: BEGIN
1747: IF p_closed_date >= p_request_date THEN
1748: x_return_status := FND_API.G_RET_STS_SUCCESS;
1749: ELSE
1750: x_return_status := FND_API.G_RET_STS_ERROR;
1751: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1752: p_token_v => TO_CHAR(p_closed_date),
1746: BEGIN
1747: IF p_closed_date >= p_request_date THEN
1748: x_return_status := FND_API.G_RET_STS_SUCCESS;
1749: ELSE
1750: x_return_status := FND_API.G_RET_STS_ERROR;
1751: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1752: p_token_v => TO_CHAR(p_closed_date),
1753: p_token_p => p_parameter_name,
1754: p_table_name => G_TABLE_NAME ,
1759: WHEN OTHERS THEN
1760: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1761: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1762: fnd_msg_pub.ADD;
1763: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1764:
1765: END Validate_Closed_Date;
1766:
1767: ---- Added for Enh# 1830701
1780: /* p_request_date is the incident date and the incident date
1781: should be greater than and equal to the incident occured_date*/
1782:
1783: IF p_request_date >= p_inc_occurred_date THEN
1784: x_return_status := FND_API.G_RET_STS_SUCCESS;
1785: ELSE
1786: x_return_status := FND_API.G_RET_STS_ERROR;
1787: fnd_message.set_name ('CS','CS_INC_DATES_MISMATCH');
1788: fnd_message.set_token ('INCIDENT_DATE',TO_CHAR(p_request_date));
1782:
1783: IF p_request_date >= p_inc_occurred_date THEN
1784: x_return_status := FND_API.G_RET_STS_SUCCESS;
1785: ELSE
1786: x_return_status := FND_API.G_RET_STS_ERROR;
1787: fnd_message.set_name ('CS','CS_INC_DATES_MISMATCH');
1788: fnd_message.set_token ('INCIDENT_DATE',TO_CHAR(p_request_date));
1789: fnd_message.set_token ('INCIDENT_OCC_DATE',TO_CHAR(p_inc_occurred_date));
1790: FND_MSG_PUB.ADD;
1793: WHEN OTHERS THEN
1794: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1795: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1796: fnd_msg_pub.ADD;
1797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1798:
1799: END Validate_Inc_Reported_Date;
1800:
1801: PROCEDURE Validate_Inc_Occurred_Date
1810: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
1811:
1812: BEGIN
1813: IF p_inc_occurred_date <= p_request_date THEN
1814: x_return_status := FND_API.G_RET_STS_SUCCESS;
1815: ELSE
1816: x_return_status := FND_API.G_RET_STS_ERROR;
1817: fnd_message.set_name ('CS','CS_INC_DATES_MISMATCH');
1818: fnd_message.set_token ('INCIDENT_DATE',TO_CHAR(p_request_date));
1812: BEGIN
1813: IF p_inc_occurred_date <= p_request_date THEN
1814: x_return_status := FND_API.G_RET_STS_SUCCESS;
1815: ELSE
1816: x_return_status := FND_API.G_RET_STS_ERROR;
1817: fnd_message.set_name ('CS','CS_INC_DATES_MISMATCH');
1818: fnd_message.set_token ('INCIDENT_DATE',TO_CHAR(p_request_date));
1819: fnd_message.set_token ('INCIDENT_OCC_DATE',TO_CHAR(p_inc_occurred_date));
1820: FND_MSG_PUB.ADD;
1823: WHEN OTHERS THEN
1824: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1825: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1826: fnd_msg_pub.ADD;
1827: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1828:
1829: END Validate_Inc_Occurred_Date;
1830:
1831: PROCEDURE Validate_Inc_Resolved_Date
1840: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
1841:
1842: BEGIN
1843: IF p_inc_resolved_date >= p_request_date THEN
1844: x_return_status := FND_API.G_RET_STS_SUCCESS;
1845: ELSE
1846: x_return_status := FND_API.G_RET_STS_ERROR;
1847: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1848: p_token_v => TO_CHAR(p_inc_resolved_date),
1842: BEGIN
1843: IF p_inc_resolved_date >= p_request_date THEN
1844: x_return_status := FND_API.G_RET_STS_SUCCESS;
1845: ELSE
1846: x_return_status := FND_API.G_RET_STS_ERROR;
1847: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1848: p_token_v => TO_CHAR(p_inc_resolved_date),
1849: p_token_p => p_parameter_name,
1850: p_table_name => G_TABLE_NAME,
1854: WHEN OTHERS THEN
1855: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1856: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1857: fnd_msg_pub.ADD;
1858: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1859:
1860: END Validate_Inc_Resolved_Date;
1861:
1862: PROCEDURE Validate_Inc_Responded_Date
1871: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
1872:
1873: BEGIN
1874: IF p_inc_responded_by_date >= p_request_date THEN
1875: x_return_status := FND_API.G_RET_STS_SUCCESS;
1876: ELSE
1877: x_return_status := FND_API.G_RET_STS_ERROR;
1878: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1879: p_token_v => TO_CHAR(p_inc_responded_by_date),
1873: BEGIN
1874: IF p_inc_responded_by_date >= p_request_date THEN
1875: x_return_status := FND_API.G_RET_STS_SUCCESS;
1876: ELSE
1877: x_return_status := FND_API.G_RET_STS_ERROR;
1878: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1879: p_token_v => TO_CHAR(p_inc_responded_by_date),
1880: p_token_p => p_parameter_name,
1881: p_table_name => G_TABLE_NAME,
1885: WHEN OTHERS THEN
1886: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1887: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1888: fnd_msg_pub.ADD;
1889: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1890:
1891: END Validate_Inc_Responded_Date;
1892:
1893: ---- Added for Enh# 1830701
1917:
1918: BEGIN
1919:
1920: -- Initialize Return Status to SUCCESS
1921: x_return_status := FND_API.G_RET_STS_SUCCESS;
1922:
1923: BEGIN
1924: -- IF block added for validation based on location type --anmukher -- 08/18/03
1925: If p_incident_location_type = 'HZ_LOCATION' Then
1943:
1944:
1945: EXCEPTION
1946: WHEN NO_DATA_FOUND THEN
1947: x_return_status := FND_API.G_RET_STS_ERROR;
1948: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1949: p_token_v => TO_CHAR(p_incident_location_id),
1950: p_token_p => p_parameter_name,
1951: p_table_name => G_TABLE_NAME ,
1951: p_table_name => G_TABLE_NAME ,
1952: p_column_name => 'INCIDENT_LOCATION_ID' );
1953: -- Added for validation based on location type --anmukher -- 08/18/03
1954: WHEN e_invalid_location_type THEN
1955: x_return_status := FND_API.G_RET_STS_ERROR;
1956: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1957: p_token_v => p_incident_location_type,
1958: p_token_p => 'p_incident_location_type',
1959: p_table_name => G_TABLE_NAME ,
1961: WHEN OTHERS THEN
1962: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1963: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1964: fnd_msg_pub.ADD;
1965: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1966:
1967: END;
1968: END Validate_Inc_Location_Id;
1969:
1980:
1981: BEGIN
1982:
1983: -- Initialize Return Status to SUCCESS
1984: x_return_status := FND_API.G_RET_STS_SUCCESS;
1985:
1986: BEGIN
1987: SELECT 'x' INTO l_dummy
1988: FROM fnd_territories
1989: WHERE territory_code = p_incident_country;
1990:
1991: EXCEPTION
1992: WHEN NO_DATA_FOUND THEN
1993: x_return_status := FND_API.G_RET_STS_ERROR;
1994: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1995: p_token_v => p_incident_country,
1996: p_token_p => p_parameter_name,
1997: p_table_name => G_TABLE_NAME,
1999: WHEN OTHERS THEN
2000: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2001: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2002: fnd_msg_pub.ADD;
2003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2004:
2005: END;
2006: END Validate_Incident_Country;
2007:
2040: AND NVL(hr.termination_date,SYSDATE) >= SYSDATE;
2041:
2042: BEGIN
2043: -- Initialize return status to success
2044: x_return_status := FND_API.G_RET_STS_SUCCESS;
2045:
2046: OPEN employee;
2047: FETCH employee INTO l_dummy;
2048: IF (employee%NOTFOUND) THEN
2045:
2046: OPEN employee;
2047: FETCH employee INTO l_dummy;
2048: IF (employee%NOTFOUND) THEN
2049: x_return_status := FND_API.G_RET_STS_ERROR;
2050: CLOSE employee;
2051:
2052: RAISE NO_DATA_FOUND;
2053: END IF;
2054: CLOSE employee;
2055:
2056: EXCEPTION
2057: WHEN NO_DATA_FOUND THEN
2058: x_return_status := FND_API.G_RET_STS_ERROR;
2059: Add_Invalid_Argument_Msg
2060: ( p_token_an => l_api_name_full,
2061: p_token_v => TO_CHAR(p_employee_id),
2062: p_token_p => p_parameter_name,
2066: WHEN OTHERS THEN
2067: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2068: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2069: fnd_msg_pub.ADD;
2070: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2071: END Validate_Employee;
2072:
2073: -- --------------------------------------------------------------------------------
2074: -- Validate_Customer
2093: l_token_v VARCHAR2(4000);
2094:
2095: BEGIN
2096: -- Initialize Return Status to SUCCESS
2097: x_return_status := FND_API.G_RET_STS_SUCCESS;
2098:
2099: --For bug 2885111
2100: l_associated_col1 := G_TABLE_NAME ||'.'||'CUSTOMER_ID';
2101: l_token_v := TO_CHAR(p_customer_id);
2108: AND a.party_type IN ('ORGANIZATION','PERSON');
2109:
2110: EXCEPTION
2111: WHEN NO_DATA_FOUND THEN
2112: x_return_status := FND_API.G_RET_STS_ERROR;
2113:
2114: -- For bug 2885111 - adding a new error message
2115: FND_MESSAGE.Set_Name('CS', 'CS_SR_INVALID_CUSTOMER');
2116: FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
2127: WHEN OTHERS THEN
2128: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2129: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2130: fnd_msg_pub.ADD;
2131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2132:
2133: END;
2134: --Addition for 3666089 starts
2135: IF (l_party_type <> p_caller_type) THEN
2132:
2133: END;
2134: --Addition for 3666089 starts
2135: IF (l_party_type <> p_caller_type) THEN
2136: x_return_status := FND_API.G_RET_STS_ERROR;
2137: FND_MESSAGE.Set_Name('CS', 'CS_SR_INVALID_CUST_TYPE');
2138: FND_MSG_PUB.ADD; --3666089 (Jun 15)
2139: END IF;
2140: --Addition for 3666089 Ends
2181: AND NVL(r.end_date, SYSDATE+1) > SYSDATE;
2182:
2183: BEGIN
2184: -- Initialize the return status.
2185: x_return_status := FND_API.G_RET_STS_SUCCESS;
2186:
2187: /*
2188: IF (p_bill_to_party_id = p_bill_to_contact_id AND
2189: p_customer_type = 'PERSON') THEN
2186:
2187: /*
2188: IF (p_bill_to_party_id = p_bill_to_contact_id AND
2189: p_customer_type = 'PERSON') THEN
2190: x_return_status := FND_API.G_RET_STS_SUCCESS;
2191: */
2192: /* if bill_to_party_id is same as bill_to_contact_id then bill_to_party_id
2193: has to be of type PERSON because contact has has to be of type PERSON
2194: 2/11/04 smisra Bug 3379631
2198: OPEN bill_to_party_type_csr;
2199: FETCH bill_to_party_type_csr into l_party_type;
2200: CLOSE bill_to_party_type_csr;
2201: IF (l_party_type <> 'PERSON') then
2202: x_return_status := FND_API.G_RET_STS_ERROR;
2203: RAISE NO_DATA_FOUND;
2204: END IF;
2205: ELSE
2206: OPEN validate_bill_to_contact_csr;
2206: OPEN validate_bill_to_contact_csr;
2207: FETCH validate_bill_to_contact_csr INTO l_dummy;
2208:
2209: IF (validate_bill_to_contact_csr%NOTFOUND) THEN
2210: x_return_status := FND_API.G_RET_STS_ERROR;
2211: CLOSE validate_bill_to_contact_csr;
2212: RAISE NO_DATA_FOUND;
2213: END IF;
2214:
2216: END IF;
2217:
2218: EXCEPTION
2219: WHEN NO_DATA_FOUND THEN
2220: x_return_status := FND_API.G_RET_STS_ERROR;
2221: Add_Invalid_Argument_Msg(p_token_an => l_api_name_full,
2222: p_token_v => TO_CHAR(p_bill_to_contact_id),
2223: p_token_p => p_parameter_name ,
2224: p_table_name => G_TABLE_NAME,
2227: WHEN OTHERS THEN
2228: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2229: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2230: fnd_msg_pub.ADD;
2231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2232:
2233: END Validate_Bill_To_Ship_To_Ct;
2234:
2235:
2277: AND NVL(r.end_date, SYSDATE+1) > SYSDATE;
2278:
2279: BEGIN
2280: -- Initialize the return status.
2281: x_return_status := FND_API.G_RET_STS_SUCCESS;
2282:
2283: IF ( p_customer_id = p_customer_contact_id AND
2284: p_customer_type = 'PERSON') THEN
2285: x_return_status := FND_API.G_RET_STS_SUCCESS;
2281: x_return_status := FND_API.G_RET_STS_SUCCESS;
2282:
2283: IF ( p_customer_id = p_customer_contact_id AND
2284: p_customer_type = 'PERSON') THEN
2285: x_return_status := FND_API.G_RET_STS_SUCCESS;
2286: ELSE
2287: OPEN validate_bill_to_contact_csr;
2288: FETCH validate_bill_to_contact_csr INTO l_dummy;
2289:
2287: OPEN validate_bill_to_contact_csr;
2288: FETCH validate_bill_to_contact_csr INTO l_dummy;
2289:
2290: IF (validate_bill_to_contact_csr%NOTFOUND) THEN
2291: x_return_status := FND_API.G_RET_STS_ERROR;
2292: CLOSE validate_bill_to_contact_csr;
2293: RAISE NO_DATA_FOUND;
2294: END IF;
2295:
2297:
2298: END IF;
2299: EXCEPTION
2300: WHEN NO_DATA_FOUND THEN
2301: x_return_status := FND_API.G_RET_STS_ERROR;
2302: Add_Invalid_Argument_Msg(
2303: p_token_an => l_api_name_full,
2304: p_token_v => TO_CHAR(p_customer_contact_id),
2305: p_token_p => p_parameter_name,
2309: WHEN OTHERS THEN
2310: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2311: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2312: fnd_msg_pub.ADD;
2313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2314:
2315: END Validate_Customer_Contact;
2316:
2317: --Procedure added to support contacts of type relation
2352: AND NVL(r.end_date, SYSDATE+1) > SYSDATE;
2353:
2354: BEGIN
2355: -- Initialize the return status.
2356: x_return_status := FND_API.G_RET_STS_SUCCESS;
2357:
2358: OPEN party_relationship;
2359: FETCH party_relationship INTO l_dummy;
2360:
2358: OPEN party_relationship;
2359: FETCH party_relationship INTO l_dummy;
2360:
2361: IF (party_relationship%NOTFOUND) THEN
2362: x_return_status := FND_API.G_RET_STS_ERROR;
2363: CLOSE party_relationship;
2364: RAISE NO_DATA_FOUND;
2365: END IF;
2366:
2367: CLOSE party_relationship;
2368:
2369: EXCEPTION
2370: WHEN NO_DATA_FOUND THEN
2371: x_return_status := FND_API.G_RET_STS_ERROR;
2372: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
2373: p_token_v => TO_CHAR(p_customer_contact_id),
2374: p_token_p => p_parameter_name,
2375: p_table_name => G_TABLE_NAME,
2377: WHEN OTHERS THEN
2378: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2379: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2380: fnd_msg_pub.ADD;
2381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2382:
2383: END Validate_Org_Relationship;
2384:
2385: -- Made the LOV query and cursor query in sync.by shijain dated 11th oct 2002
2416: AND NVL(r.end_date, SYSDATE+1) > SYSDATE;
2417:
2418: BEGIN
2419: -- Initialize the return status.
2420: x_return_status := FND_API.G_RET_STS_SUCCESS;
2421:
2422: IF p_customer_id = p_customer_contact_id THEN
2423: x_return_status := FND_API.G_RET_STS_SUCCESS;
2424: ELSE
2419: -- Initialize the return status.
2420: x_return_status := FND_API.G_RET_STS_SUCCESS;
2421:
2422: IF p_customer_id = p_customer_contact_id THEN
2423: x_return_status := FND_API.G_RET_STS_SUCCESS;
2424: ELSE
2425: OPEN party_relationship_per;
2426: FETCH party_relationship_per INTO l_dummy;
2427: IF (party_relationship_per%NOTFOUND) THEN
2424: ELSE
2425: OPEN party_relationship_per;
2426: FETCH party_relationship_per INTO l_dummy;
2427: IF (party_relationship_per%NOTFOUND) THEN
2428: x_return_status := FND_API.G_RET_STS_ERROR;
2429: CLOSE party_relationship_per;
2430:
2431: RAISE NO_DATA_FOUND;
2432: END IF;
2434: END IF;
2435:
2436: EXCEPTION
2437: WHEN NO_DATA_FOUND THEN
2438: x_return_status := FND_API.G_RET_STS_ERROR;
2439: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
2440: p_token_v => TO_CHAR(p_customer_contact_id),
2441: p_token_p => p_parameter_name,
2442: p_table_name => G_TABLE_NAME,
2444: WHEN OTHERS THEN
2445: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2446: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2447: fnd_msg_pub.ADD;
2448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2449:
2450: END Validate_Person_Relationship;
2451:
2452: -----------------------------------------------------------------------------
2469: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
2470:
2471: BEGIN
2472: -- Initialize the return status.
2473: x_return_status := FND_API.G_RET_STS_SUCCESS;
2474:
2475: -- Changes made by shijain dec 4th 2002, added the check if the profile
2476: -- value of cs_sr_restrict_ib is yes then check for hz_party_sites and
2477: -- hz_locations else don't need to check anything
2534: END IF;
2535:
2536: EXCEPTION
2537: WHEN NO_DATA_FOUND THEN
2538: x_return_status := FND_API.G_RET_STS_ERROR;
2539: Add_Invalid_Argument_Msg(
2540: p_token_an => l_api_name_full,
2541: p_token_v => TO_CHAR(p_customer_product_id),
2542: p_token_p => p_parameter_name,
2546: WHEN OTHERS THEN
2547: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2548: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2549: fnd_msg_pub.ADD;
2550: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2551:
2552: END Validate_Customer_Product;
2553:
2554: /*
2577:
2578:
2579: BEGIN
2580: -- Initialize the return status.
2581: x_return_status := FND_API.G_RET_STS_SUCCESS;
2582:
2583: --Check if installed base or not
2584: --Added a condition to fix bug# 1902127, since the script
2585: --fails while creating/updating an SR for non-IB.
2584: --Added a condition to fix bug# 1902127, since the script
2585: --fails while creating/updating an SR for non-IB.
2586:
2587: IF ( p_customer_product_id IS NOT NULL ) AND
2588: ( p_customer_product_id <> FND_API.G_MISS_NUM ) THEN
2589:
2590: -- Changes made by shijain dec 4th 2002, added the check if the profile
2591: -- value of cs_sr_restrict_ib is yes then check for hz_party_sites and
2592: -- hz_locations else don't need to check anything
2638: END IF;
2639:
2640: EXCEPTION
2641: WHEN NO_DATA_FOUND THEN
2642: x_return_status := FND_API.G_RET_STS_ERROR;
2643: Add_Invalid_Argument_Msg(p_token_an => l_api_name_full,
2644: p_token_v => p_current_serial_number,
2645: p_token_p => p_parameter_name ,
2646: p_table_name => G_TABLE_NAME,
2649: WHEN OTHERS THEN
2650: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2651: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2652: fnd_msg_pub.ADD;
2653: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2654:
2655: END Validate_Current_Serial;
2656:
2657: -- for cmro_eam
2681: l_maint_org_id mtl_parameters.maint_organization_id % TYPE;
2682: l_master_org_id mtl_parameters.master_organization_id % TYPE;
2683: BEGIN
2684: -- Initialize Return Status to SUCCESS
2685: x_return_status := FND_API.G_RET_STS_SUCCESS;
2686: x_inv_org_master_org_flag := NULL;
2687:
2688: get_org_details
2689: ( p_org_id => p_inv_org_id
2691: , x_maint_org_id => l_maint_org_id
2692: , x_master_org_id => l_master_org_id
2693: , x_return_Status => x_return_status
2694: );
2695: IF x_return_status = FND_API.G_RET_STS_ERROR
2696: THEN
2697: RAISE NO_DATA_FOUND;
2698: END IF;
2699: IF p_inv_org_id = l_master_org_id
2708: where organization_id = p_inv_org_id;
2709: ***/
2710: EXCEPTION
2711: WHEN NO_DATA_FOUND THEN
2712: x_return_status := FND_API.G_RET_STS_ERROR;
2713: Add_Invalid_Argument_Msg(
2714: p_token_an => l_api_name_full,
2715: p_token_v => p_inv_org_id,
2716: p_token_p => p_parameter_name ,
2721: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2722: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2723: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2724: fnd_msg_pub.ADD;
2725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2726:
2727: END Validate_Inventory_Org;
2728:
2729: -- ------------------------------------------------------------------------------
2743: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
2744: l_dummy VARCHAR2(1);
2745: BEGIN
2746: -- Initialize Return Status to SUCCESS
2747: x_return_status := FND_API.G_RET_STS_SUCCESS;
2748:
2749: IF (p_maintenance_flag = 'Y' or p_maintenance_flag = 'y') THEN
2750: IF (p_owning_dept_id IS NOT NULL AND
2751: p_owning_dept_id <> FND_API.G_MISS_NUM) THEN
2747: x_return_status := FND_API.G_RET_STS_SUCCESS;
2748:
2749: IF (p_maintenance_flag = 'Y' or p_maintenance_flag = 'y') THEN
2750: IF (p_owning_dept_id IS NOT NULL AND
2751: p_owning_dept_id <> FND_API.G_MISS_NUM) THEN
2752: select 'x' INTO l_dummy
2753: from bom_departments b
2754: where b.department_id = p_owning_dept_id
2755: and TRUNC(NVL(b.disable_date,SYSDATE+1)) > TRUNC(SYSDATE)
2758: END IF;
2759:
2760: EXCEPTION
2761: WHEN NO_DATA_FOUND THEN
2762: x_return_status := FND_API.G_RET_STS_ERROR;
2763: Add_Invalid_Argument_Msg(
2764: p_token_an => l_api_name_full,
2765: p_token_v => p_owning_dept_id,
2766: p_token_p => p_parameter_name ,
2770: WHEN OTHERS THEN
2771: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2772: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2773: fnd_msg_pub.ADD;
2774: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2775:
2776: END Validate_Owning_Department;
2777:
2778: -- --------------------------------------------------------------------------------
2815:
2816:
2817: BEGIN
2818: -- Initialize Return Status to SUCCESS
2819: x_return_status := FND_API.G_RET_STS_SUCCESS;
2820: -- for cmro_eam
2821: IF (p_maintenance_flag = 'Y' or p_maintenance_flag = 'y') THEN
2822: IF p_maint_organization_id IS NULL OR
2823: p_maint_organization_id = FND_API.G_MISS_NUM
2819: x_return_status := FND_API.G_RET_STS_SUCCESS;
2820: -- for cmro_eam
2821: IF (p_maintenance_flag = 'Y' or p_maintenance_flag = 'y') THEN
2822: IF p_maint_organization_id IS NULL OR
2823: p_maint_organization_id = FND_API.G_MISS_NUM
2824: THEN
2825: x_return_status := FND_API.G_RET_STS_ERROR;
2826: Add_Null_Parameter_Msg
2827: ( p_token_an => l_api_name_full
2821: IF (p_maintenance_flag = 'Y' or p_maintenance_flag = 'y') THEN
2822: IF p_maint_organization_id IS NULL OR
2823: p_maint_organization_id = FND_API.G_MISS_NUM
2824: THEN
2825: x_return_status := FND_API.G_RET_STS_ERROR;
2826: Add_Null_Parameter_Msg
2827: ( p_token_an => l_api_name_full
2828: , p_token_np => 'p_maint_organization_id'
2829: , p_table_name => G_TABLE_NAME
2874: AND msi.organization_id = p_inventory_org_id;
2875: END IF;
2876: EXCEPTION
2877: WHEN NO_DATA_FOUND THEN
2878: x_return_status := FND_API.G_RET_STS_ERROR;
2879: Add_Invalid_Argument_Msg
2880: ( p_token_an => l_api_name_full
2881: , p_token_v => TO_CHAR(p_inventory_item_id)
2882: , p_token_p => p_parameter_name
2886: WHEN OTHERS THEN
2887: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2888: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2889: fnd_msg_pub.ADD;
2890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2891: END Validate_Product;
2892:
2893:
2894: -- --------------------------------------------------------------------------------
2924: lx_msg_data VARCHAR2(2000);
2925:
2926: BEGIN
2927: -- Initialize Return Status to SUCCESS
2928: x_return_status := FND_API.G_RET_STS_SUCCESS;
2929:
2930: -- populate the problem code mapping record type
2931: l_pc_rec.service_request_type_id := p_incident_type_id;
2932: l_pc_rec.inventory_item_id := p_inventory_item_id;
2939: -- pre 11.5.10
2940:
2941: cs_sr_prob_code_mapping_pkg.validate_problem_code (
2942: p_api_version => 1.0,
2943: p_init_msg_list => FND_API.G_TRUE,
2944: p_probcode_criteria_rec => l_pc_rec,
2945: p_problem_code => p_problem_code,
2946: x_return_status => x_return_status,
2947: x_msg_count => lx_msg_count,
2946: x_return_status => x_return_status,
2947: x_msg_count => lx_msg_count,
2948: x_msg_data => lx_msg_data );
2949:
2950: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
2951: -- new message for 11.5.10
2952: -- Problem code is not valid. Please check the values for the following:\
2953: -- Service request type, inventory item and product category.
2954: fnd_message.set_name ('CS', 'CS_SR_PROB_CODE_INVALID');
2961: WHEN OTHERS THEN
2962: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2963: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2964: fnd_msg_pub.ADD;
2965: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2966:
2967: END Validate_Problem_Code;
2968:
2969: -- -----------------------------------------------------------------------------
2982: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
2983:
2984: BEGIN
2985: -- Initialize Return Status to SUCCESS
2986: x_return_status := FND_API.G_RET_STS_SUCCESS;
2987:
2988: BEGIN
2989: SELECT 'x' INTO l_dummy
2990: FROM cs_sr_preferred_lang_v
2993: AND trunc(nvl(end_date_active,sysdate));
2994:
2995: EXCEPTION
2996: WHEN NO_DATA_FOUND THEN
2997: x_return_status := FND_API.G_RET_STS_ERROR;
2998: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
2999: p_token_v => p_cust_pref_lang_code,
3000: p_token_p => p_parameter_name,
3001: p_table_name => G_TABLE_NAME,
3003: WHEN OTHERS THEN
3004: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3005: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3006: fnd_msg_pub.ADD;
3007: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3008:
3009: END;
3010: END Validate_Cust_Pref_Lang_Code;
3011:
3023: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
3024:
3025: BEGIN
3026: -- Initialize Return Status to SUCCESS
3027: x_return_status := FND_API.G_RET_STS_SUCCESS;
3028:
3029: BEGIN
3030: SELECT DISTINCT lookup_code INTO l_dummy
3031: FROM ar_lookups
3033: AND lookup_code = p_comm_pref_code;
3034:
3035: EXCEPTION
3036: WHEN NO_DATA_FOUND THEN
3037: x_return_status := FND_API.G_RET_STS_ERROR;
3038: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
3039: p_token_v => p_comm_pref_code,
3040: p_token_p => p_parameter_name,
3041: p_table_name => G_TABLE_NAME,
3043: WHEN OTHERS THEN
3044: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3045: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3046: fnd_msg_pub.ADD;
3047: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3048: END;
3049: END Validate_Comm_Pref_Code;
3050:
3051: -- --------------------------------------------------------------------------------
3075: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
3076:
3077: BEGIN
3078: -- Initialize Return Status to SUCCESS
3079: x_return_status := FND_API.G_RET_STS_SUCCESS;
3080: -- Changed the Profile CS_SR_PLATFORM_CATEGORY_SET to
3081: -- CS_SR_DEFAULT_CATEGORY_SET.Fix for Bug# 2102330
3082:
3083: --l_profile := FND_PROFILE.VALUE('CS_SR_DEFAULT_CATEGORY_SET');
3100: END IF;
3101:
3102: EXCEPTION
3103: WHEN NO_DATA_FOUND THEN
3104: x_return_status := FND_API.G_RET_STS_ERROR;
3105: fnd_message.set_name ('CS', 'CS_SR_CAT_CATSET_COMB_INVALID');
3106: fnd_message.set_token ('CAT_SET',nvl(l_profile,'NULL'));
3107: fnd_message.set_token ('CAT_ID',p_category_id);
3108: fnd_msg_pub.ADD;
3109: WHEN OTHERS THEN
3110: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3111: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3112: fnd_msg_pub.ADD;
3113: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3114:
3115: END;
3116: END Validate_Category_Id;
3117:
3142:
3143: l_validation varchar2(1);
3144: BEGIN
3145: -- Initialize Return Status to SUCCESS
3146: x_return_status := FND_API.G_RET_STS_SUCCESS;
3147:
3148: IF (p_inventory_item_id IS NULL OR
3149: p_inventory_item_id = FND_API.G_MISS_NUM) THEN
3150: l_validation := 'C';
3145: -- Initialize Return Status to SUCCESS
3146: x_return_status := FND_API.G_RET_STS_SUCCESS;
3147:
3148: IF (p_inventory_item_id IS NULL OR
3149: p_inventory_item_id = FND_API.G_MISS_NUM) THEN
3150: l_validation := 'C';
3151: SELECT 'x' INTO l_dummy
3152: FROM mtl_category_set_valid_cats
3153: WHERE category_id = p_category_id
3165: END IF;
3166:
3167: EXCEPTION
3168: WHEN NO_DATA_FOUND THEN
3169: x_return_status := FND_API.G_RET_STS_ERROR;
3170: IF (l_validation = 'I') THEN
3171: fnd_message.set_name ('CS', 'CS_SR_CAT_ITEM_COMB_INVALID');
3172: fnd_message.set_token ('CAT_SET',p_category_set_id);
3173: fnd_message.set_token ('CAT_ID',nvl(to_char(p_category_id),'NULL'));
3182: WHEN OTHERS THEN
3183: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3184: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3185: fnd_msg_pub.ADD;
3186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3187:
3188: END Validate_Category_Set_Id;
3189:
3190: -- --------------------------------------------------------------------------------
3224: AND organization_id = p_inventory_org_id;
3225:
3226: BEGIN
3227:
3228: x_return_status := FND_API.G_RET_STS_SUCCESS;
3229:
3230: -- For bug 3746983
3231:
3232: IF ( p_customer_product_id IS NOT NULL ) AND
3229:
3230: -- For bug 3746983
3231:
3232: IF ( p_customer_product_id IS NOT NULL ) AND
3233: ( p_customer_product_id <> FND_API.G_MISS_NUM ) THEN
3234:
3235: IF CS_ServiceRequest_PVT.g_restrict_ib = 'YES' THEN
3236:
3237: SELECT 'x' INTO l_dummy
3315: END IF;
3316:
3317: EXCEPTION
3318: WHEN NO_DATA_FOUND THEN
3319: x_return_status := FND_API.G_RET_STS_ERROR;
3320: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
3321: p_token_v => p_external_reference,
3322: p_token_p => p_parameter_name ,
3323: p_table_name => G_TABLE_NAME,
3325: WHEN OTHERS THEN
3326: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3327: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3328: fnd_msg_pub.ADD;
3329: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3330:
3331: END Validate_External_Reference;
3332:
3333: -- --------------------------------------------------------------------------------
3346: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
3347:
3348: BEGIN
3349: -- Initialize Return Status to SUCCESS
3350: x_return_status := FND_API.G_RET_STS_SUCCESS;
3351:
3352: SELECT 'x' INTO l_dummy
3353: FROM csi_systems_vl
3354: WHERE system_id = p_system_id;
3354: WHERE system_id = p_system_id;
3355:
3356: EXCEPTION
3357: WHEN NO_DATA_FOUND THEN
3358: x_return_status := FND_API.G_RET_STS_ERROR;
3359: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
3360: p_token_v => TO_CHAR(p_system_id),
3361: p_token_p => p_parameter_name,
3362: p_table_name => G_TABLE_NAME,
3364: WHEN OTHERS THEN
3365: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3366: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3367: fnd_msg_pub.ADD;
3368: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3369:
3370: END Validate_System_Id;
3371:
3372: --------------------------------------------------------------------
3390: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
3391:
3392: BEGIN
3393: IF p_exp_resolution_date >= p_request_date THEN
3394: x_return_status := FND_API.G_RET_STS_SUCCESS;
3395: ELSE
3396: x_return_status := FND_API.G_RET_STS_ERROR;
3397: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
3398: p_token_v => TO_CHAR(p_exp_resolution_date),
3392: BEGIN
3393: IF p_exp_resolution_date >= p_request_date THEN
3394: x_return_status := FND_API.G_RET_STS_SUCCESS;
3395: ELSE
3396: x_return_status := FND_API.G_RET_STS_ERROR;
3397: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
3398: p_token_v => TO_CHAR(p_exp_resolution_date),
3399: p_token_p => p_parameter_name,
3400: p_table_name => G_TABLE_NAME ,
3405: WHEN OTHERS THEN
3406: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3407: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3408: fnd_msg_pub.ADD;
3409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3410:
3411: END Validate_Exp_Resolution_Date;
3412:
3413:
3450: l_dummy VARCHAR2(5);
3451: l_customer_type VARCHAR2(30);
3452: BEGIN
3453: -- Initialize return status to success
3454: x_return_status := FND_API.G_RET_STS_SUCCESS;
3455:
3456: /* Changes made for 1159, added the condition that if the customer_id
3457: is same as the bill_to_party_id then we should just return success
3458: else we should check if its a valid relationship*/
3457: is same as the bill_to_party_id then we should just return success
3458: else we should check if its a valid relationship*/
3459:
3460: IF (p_customer_id=p_bill_to_party_id) THEN
3461: x_return_status := FND_API.G_RET_STS_SUCCESS;
3462: ELSE
3463: OPEN bill_to_party;
3464: FETCH bill_to_party INTO l_customer_type;
3465: x_customer_type:= l_customer_type;
3463: OPEN bill_to_party;
3464: FETCH bill_to_party INTO l_customer_type;
3465: x_customer_type:= l_customer_type;
3466: IF (bill_to_party%NOTFOUND) THEN
3467: x_return_status := FND_API.G_RET_STS_ERROR;
3468: CLOSE bill_to_party;
3469:
3470: RAISE NO_DATA_FOUND;
3471: END IF;
3473: END IF;
3474:
3475: EXCEPTION
3476: WHEN NO_DATA_FOUND THEN
3477: x_return_status := FND_API.G_RET_STS_ERROR;
3478: Add_Invalid_Argument_Msg
3479: ( p_token_an => l_api_name_full,
3480: p_token_v => TO_CHAR(p_bill_to_party_id),
3481: p_token_p => p_parameter_name,
3484: WHEN OTHERS THEN
3485: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3486: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3487: fnd_msg_pub.ADD;
3488: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3489: END Validate_Bill_To_Ship_To_Party;
3490:
3491: -- --------------------------------------------------------------------------------
3492: -- Validate_Bill_To_Ship_To_Site (New Procedure for 11.5.9)
3525:
3526: l_dummy VARCHAR2(5);
3527: BEGIN
3528: -- Initialize return status to success
3529: x_return_status := FND_API.G_RET_STS_SUCCESS;
3530:
3531: OPEN bill_to_site;
3532: FETCH bill_to_site INTO x_site_use_id;
3533: IF (bill_to_site%NOTFOUND) THEN
3530:
3531: OPEN bill_to_site;
3532: FETCH bill_to_site INTO x_site_use_id;
3533: IF (bill_to_site%NOTFOUND) THEN
3534: x_return_status := FND_API.G_RET_STS_ERROR;
3535: CLOSE bill_to_site;
3536:
3537: RAISE NO_DATA_FOUND;
3538: END IF;
3548: WHEN OTHERS THEN
3549: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3550: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3551: fnd_msg_pub.ADD;
3552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3553: END Validate_Bill_To_Ship_To_Site ;
3554:
3555:
3556: PROCEDURE Validate_Install_Site
3566: l_install_customer_id NUMBER;
3567:
3568: BEGIN
3569: -- Initialize Return Status to SUCCESS
3570: x_return_status := FND_API.G_RET_STS_SUCCESS;
3571:
3572: BEGIN
3573:
3574: -- Fix to bug # 2529361.included keyword distinct in select clause.
3607: AND r.subject_id = sub.party_id ));
3608:
3609: EXCEPTION
3610: WHEN NO_DATA_FOUND THEN
3611: x_return_status := FND_API.G_RET_STS_ERROR;
3612: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
3613: p_token_v => TO_CHAR(p_install_site_id),
3614: p_token_p => p_parameter_name,
3615: p_table_name => G_TABLE_NAME,
3618: WHEN OTHERS THEN
3619: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3620: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3621: fnd_msg_pub.ADD;
3622: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3623:
3624: END;
3625:
3626: END Validate_Install_Site;
3640: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
3641:
3642: BEGIN
3643: -- Initialize the return status.
3644: x_return_status := FND_API.G_RET_STS_SUCCESS;
3645:
3646:
3647:
3648:
3647:
3648:
3649: EXCEPTION
3650: WHEN NO_DATA_FOUND THEN
3651: x_return_status := FND_API.G_RET_STS_ERROR;
3652: Add_Invalid_Argument_Msg(
3653: p_token_an => l_api_name_full,
3654: p_token_v => p_resolution_code,
3655: p_token_p => p_parameter_name,
3658: WHEN OTHERS THEN
3659: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3660: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3661: fnd_msg_pub.ADD;
3662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3663:
3664: END Validate_Resolution_Code;
3665:
3666: -- --------------------------------------------------------------------------------
3681:
3682: BEGIN
3683:
3684: IF p_act_resolution_date >= p_request_date THEN
3685: x_return_status := FND_API.G_RET_STS_SUCCESS;
3686: ELSE
3687: x_return_status := FND_API.G_RET_STS_ERROR;
3688: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
3689: p_token_v => TO_CHAR(p_act_resolution_date),
3683:
3684: IF p_act_resolution_date >= p_request_date THEN
3685: x_return_status := FND_API.G_RET_STS_SUCCESS;
3686: ELSE
3687: x_return_status := FND_API.G_RET_STS_ERROR;
3688: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
3689: p_token_v => TO_CHAR(p_act_resolution_date),
3690: p_token_p => p_parameter_name,
3691: p_table_name => G_TABLE_NAME,
3695: WHEN OTHERS THEN
3696: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3697: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3698: fnd_msg_pub.ADD;
3699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3700:
3701: END Validate_Act_Resolution_Date;
3702:
3703: ----------------------------
3717: l_contract_id NUMBER;
3718:
3719: BEGIN
3720: -- Initialize the return status.
3721: x_return_status := FND_API.G_RET_STS_SUCCESS;
3722:
3723: select chr_id
3724: into l_contract_id
3725: from okc_k_lines_b
3730: SELECT contract_number INTO x_contract_number
3731: FROM okc_k_headers_all_b
3732: WHERE id = l_contract_id;
3733:
3734: if (l_contract_id <> x_contract_id AND x_contract_id IS NOT NULL AND x_contract_id <> FND_API.G_MISS_NUM) then
3735: x_contract_id := l_contract_id;
3736: Add_Param_Ignored_Msg( p_token_an => l_api_name_full,
3737: p_token_ip => 'p_contract_id',
3738: p_table_name => G_TABLE_NAME,
3752: --WHERE id = p_contract_service_id;
3753:
3754: EXCEPTION
3755: WHEN NO_DATA_FOUND THEN
3756: x_return_status := FND_API.G_RET_STS_ERROR;
3757: Add_Invalid_Argument_Msg(p_token_an => l_api_name_full,
3758: p_token_v => p_contract_service_id,
3759: p_token_p => p_parameter_name ,
3760: p_table_name => G_TABLE_NAME,
3763: WHEN OTHERS THEN
3764: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3765: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3766: fnd_msg_pub.ADD;
3767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3768: END Validate_Contract_Service_Id;
3769: ---------------------------------------------------------------------------
3770:
3771: PROCEDURE Validate_Contract_Id
3781:
3782: BEGIN
3783:
3784: -- Initialize the return status.
3785: x_return_status := FND_API.G_RET_STS_SUCCESS;
3786:
3787: SELECT contract_number
3788: INTO x_contract_number
3789: FROM okc_k_headers_all_b
3790: WHERE id = p_contract_id ;
3791:
3792: EXCEPTION
3793: WHEN NO_DATA_FOUND THEN
3794: x_return_status := FND_API.G_RET_STS_ERROR;
3795: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
3796: p_token_v => p_contract_id,
3797: p_token_p => p_parameter_name,
3798: p_table_name => G_TABLE_NAME,
3801: WHEN OTHERS THEN
3802: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3803: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3804: fnd_msg_pub.ADD;
3805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3806:
3807:
3808: END Validate_Contract_Id;
3809:
3833: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
3834: BEGIN
3835:
3836: -- Initialize the return status.
3837: x_return_status := FND_API.G_RET_STS_ERROR;
3838: /****
3839: Bug 4869065
3840: The sql is very expensive. Support site is a denormalized col.
3841: so validation of resource id will determine the support site too. no need to
3839: Bug 4869065
3840: The sql is very expensive. Support site is a denormalized col.
3841: so validation of resource id will determine the support site too. no need to
3842: cross validate support site and resource
3843: x_return_status := FND_API.G_RET_STS_SUCCESS;
3844:
3845: SELECT 'x'
3846: INTO l_test
3847: FROM cs_sr_owners_v
3850: AND support_site_id = p_support_site_id ;
3851: ****/
3852: EXCEPTION
3853: WHEN NO_DATA_FOUND THEN
3854: x_return_status := FND_API.G_RET_STS_ERROR;
3855: Add_Invalid_Argument_Msg(p_token_an => l_api_name_full,
3856: p_token_v => p_support_site_id,
3857: p_token_p => p_parameter_name,
3858: p_table_name => null,
3861: WHEN OTHERS THEN
3862: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3863: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3864: fnd_msg_pub.ADD;
3865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3866: END Validate_Support_Site_Id;
3867: ---------------------------------------------------------
3868:
3869: PROCEDURE Validate_Group_Type
3879:
3880: BEGIN
3881:
3882: -- Initialize the return status.
3883: x_return_status := FND_API.G_RET_STS_SUCCESS;
3884:
3885: /* For 1159, we changed the logic, as RS_TEAM is not supported anymore,
3886: if the resource_type is not RS_GROUP, we raise an error oherwise
3887: just return success by shijain*/
3886: if the resource_type is not RS_GROUP, we raise an error oherwise
3887: just return success by shijain*/
3888:
3889: IF (p_group_type = 'RS_GROUP') THEN
3890: x_return_status := FND_API.G_RET_STS_SUCCESS;
3891: ELSE
3892: x_return_status := FND_API.G_RET_STS_ERROR;
3893: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
3894: p_token_v => p_group_type,
3888:
3889: IF (p_group_type = 'RS_GROUP') THEN
3890: x_return_status := FND_API.G_RET_STS_SUCCESS;
3891: ELSE
3892: x_return_status := FND_API.G_RET_STS_ERROR;
3893: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
3894: p_token_v => p_group_type,
3895: p_token_p => p_parameter_name ,
3896: p_table_name => G_TABLE_NAME ,
3897: p_column_name => 'GROUP_TYPE' );
3898: END IF;
3899: EXCEPTION
3900: WHEN NO_DATA_FOUND THEN
3901: x_return_status := FND_API.G_RET_STS_ERROR;
3902: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
3903: p_token_v => p_group_type,
3904: p_token_p => p_parameter_name,
3905: p_table_name => G_TABLE_NAME ,
3908: WHEN OTHERS THEN
3909: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3910: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3911: fnd_msg_pub.ADD;
3912: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3913:
3914:
3915: END Validate_Group_Type;
3916:
3930:
3931: BEGIN
3932:
3933: -- Initialize the return status.
3934: x_return_status := FND_API.G_RET_STS_SUCCESS;
3935:
3936: /* This change is for 1159, only RS_GROUP group type is checked, if its not RS_GROUP then return an error*/
3937:
3938: IF ( p_group_type = 'RS_GROUP' ) THEN
3944: AND usg.usage = 'SUPPORT'
3945: AND SYSDATE BETWEEN NVL(start_date_active, SYSDATE)
3946: AND NVL( end_date_active, SYSDATE ) ;
3947: ELSE
3948: x_return_status := FND_API.G_RET_STS_ERROR;
3949: -- 3303106
3950: -- Add_Invalid_Argument_Msg
3951: Add_Null_Parameter_Msg ( p_token_an => l_api_name_full,
3952: p_token_np => 'p_group_type',
3956:
3957:
3958: EXCEPTION
3959: WHEN NO_DATA_FOUND THEN
3960: x_return_status := FND_API.G_RET_STS_ERROR;
3961: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
3962: p_token_v => p_owner_group_id,
3963: p_token_p => p_parameter_name,
3964: p_table_name => G_TABLE_NAME,
3967: WHEN OTHERS THEN
3968: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3969: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3970: fnd_msg_pub.ADD;
3971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3972: END Validate_Group_Id;
3973:
3974: ----------------------------------------
3975: -- DJ API Cleanup
4022: AND grp.resource_id = res.resource_id;
4023:
4024: BEGIN
4025: -- Initialize the return status.
4026: x_return_status := FND_API.G_RET_STS_SUCCESS;
4027:
4028: -- set the context of the SR type before querying the CS Secure view
4029: -- for JTF resources
4030: cs_sr_security_context.set_sr_security_context (
4031: p_context_attribute => 'SRTYPE_ID',
4032: p_context_attribute_value => p_incident_type_id );
4033:
4034: IF ( p_owner_group_id IS NOT NULL
4035: AND p_owner_group_id <> FND_API.G_MISS_NUM )
4036: THEN
4037: OPEN get_valid_owner;
4038: FETCH get_valid_owner INTO x_owner_name, x_owner_id, x_resource_type, x_support_site_id;
4039: IF ( get_valid_owner%NOTFOUND ) THEN
4061: EXCEPTION
4062: WHEN NO_DATA_FOUND THEN
4063: IF p_mode = 'CREATE'
4064: THEN
4065: x_return_status := FND_API.G_RET_STS_SUCCESS;
4066: -- 3277647 changed from error to warning Add_Invalid_Argument_Msg
4067:
4068: Add_Param_Ignored_MSg ( p_token_an => l_api_name_full,
4069: p_token_ip => p_parameter_name,
4069: p_token_ip => p_parameter_name,
4070: p_table_name => null,
4071: p_column_name => 'P_OWNER_ID');
4072: ELSE
4073: x_return_status := FND_API.G_RET_STS_ERROR;
4074: Add_Invalid_Argument_Msg
4075: ( p_token_an => l_api_name_full
4076: , p_token_v => TO_CHAR(p_owner_id)
4077: , p_token_p => p_parameter_name
4082: WHEN OTHERS THEN
4083: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4084: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4085: fnd_msg_pub.ADD;
4086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4087: END Validate_Owner;
4088:
4089: ------------------------------------------------------
4090:
4101:
4102: BEGIN
4103:
4104: -- Initialize the return status.
4105: x_return_status := FND_API.G_RET_STS_SUCCESS;
4106:
4107: IF (UPPER(p_resource_type) IN ('RS_EMPLOYEE','RS_OTHER','RS_SUPPLIER_CONTACT', 'RS_PARTNER','RS_PARTY','RS_TBH'))
4108: THEN
4109: x_return_status := FND_API.G_RET_STS_SUCCESS;
4105: x_return_status := FND_API.G_RET_STS_SUCCESS;
4106:
4107: IF (UPPER(p_resource_type) IN ('RS_EMPLOYEE','RS_OTHER','RS_SUPPLIER_CONTACT', 'RS_PARTNER','RS_PARTY','RS_TBH'))
4108: THEN
4109: x_return_status := FND_API.G_RET_STS_SUCCESS;
4110: ELSE
4111: RAISE NO_DATA_FOUND;
4112: END IF;
4113: EXCEPTION
4111: RAISE NO_DATA_FOUND;
4112: END IF;
4113: EXCEPTION
4114: WHEN NO_DATA_FOUND THEN
4115: x_return_status := FND_API.G_RET_STS_ERROR;
4116: Add_Invalid_Argument_Msg( p_token_an => p_api_name,
4117: p_token_v => p_resource_type,
4118: p_token_p => p_parameter_name,
4119: p_table_name => G_TABLE_NAME,
4122: WHEN OTHERS THEN
4123: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4124: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4125: fnd_msg_pub.ADD;
4126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4127: END Validate_Resource_Type;
4128:
4129: ----------------------------------------------------
4130: -- Validate Platform Id
4148: no_platform_excp EXCEPTION;
4149:
4150: BEGIN
4151: -- Initialize the return status.
4152: x_return_status := FND_API.G_RET_STS_SUCCESS;
4153:
4154: SELECT NVL(revision_qty_control_code,0)
4155: INTO l_control_code
4156: FROM mtl_system_items_vl item,
4169:
4170: EXCEPTION
4171: WHEN no_data_found THEN
4172: x_serial_controlled_flag := 'N';
4173: x_return_status := FND_API.G_RET_STS_ERROR;
4174:
4175: Add_Invalid_Argument_Msg(p_token_an => p_api_name,
4176: p_token_v => p_platform_id,
4177: p_token_p => p_parameter_name,
4181: WHEN OTHERS THEN
4182: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4183: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4184: fnd_msg_pub.ADD;
4185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4186:
4187: END Validate_Platform_Id;
4188:
4189: -- Validate Component Id
4202: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
4203:
4204: BEGIN
4205: -- Initialize the return status.
4206: x_return_status := FND_API.G_RET_STS_SUCCESS;
4207:
4208: SELECT 'x'
4209: INTO l_test
4210: FROM cs_sr_new_acc_cp_rg_v
4212: AND object_id = p_customer_product_id
4213: AND rownum < 2;
4214: EXCEPTION
4215: WHEN NO_DATA_FOUND THEN
4216: x_return_status := FND_API.G_RET_STS_ERROR;
4217: Add_Invalid_Argument_Msg( p_token_an => p_api_name,
4218: p_token_v => p_cp_component_id,
4219: p_token_p => p_parameter_name,
4220: p_table_name => G_TABLE_NAME ,
4223: WHEN OTHERS THEN
4224: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4225: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4226: fnd_msg_pub.ADD;
4227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4228:
4229: END Validate_CP_Comp_Id;
4230:
4231: -- Validate Product Revision
4245: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
4246:
4247: BEGIN
4248: -- Initialize the return status.
4249: x_return_status := FND_API.G_RET_STS_SUCCESS;
4250: BEGIN
4251: SELECT revision_qty_control_code
4252: INTO l_rev_control_code
4253: FROM mtl_system_items_b
4263: AND inventory_revision = p_product_revision;
4264:
4265: EXCEPTION
4266: WHEN NO_DATA_FOUND THEN
4267: x_return_status := FND_API.G_RET_STS_ERROR;
4268: Add_Invalid_Argument_Msg(
4269: p_token_an => p_api_name,
4270: p_token_v => p_product_revision,
4271: p_token_p => p_parameter_name,
4275: WHEN OTHERS THEN
4276: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4277: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4278: fnd_msg_pub.ADD;
4279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4280: END;
4281: END IF;
4282: EXCEPTION
4283: WHEN NO_DATA_FOUND THEN
4280: END;
4281: END IF;
4282: EXCEPTION
4283: WHEN NO_DATA_FOUND THEN
4284: x_return_status := FND_API.G_RET_STS_ERROR;
4285: Add_Invalid_Argument_Msg( p_token_an => p_api_name,
4286: p_token_v => p_product_revision,
4287: p_token_p => p_parameter_name,
4288: p_table_name => G_TABLE_NAME ,
4288: p_table_name => G_TABLE_NAME ,
4289: p_column_name => 'PRODUCT_REVISION');
4290:
4291: WHEN OTHERS THEN
4292: x_return_status := FND_API.G_RET_STS_ERROR;
4293: Add_Invalid_Argument_Msg( p_token_an => p_api_name,
4294: p_token_v => TO_CHAR(p_inventory_item_id),
4295: p_token_p => p_parameter_name,
4296: p_table_name => G_TABLE_NAME ,
4333: AND organization_id = p_inventory_org_id;
4334:
4335: BEGIN
4336: -- Initialize the return status.
4337: x_return_status := FND_API.G_RET_STS_SUCCESS;
4338: IF p_instance_id is null THEN
4339: p_product_version := null;
4340: ELSE
4341:
4348: CLOSE c_rev_code;
4349:
4350:
4351: IF l_rev_control_code = 2 THEN
4352: IF (p_product_version = FND_API.G_MISS_CHAR) then
4353: p_product_version := l_product_version;
4354: ELSIF (nvl(p_product_version,'@#') <> nvl(l_product_version,'@#')) THEN
4355: x_return_status := FND_API.G_RET_STS_ERROR;
4356: Add_Invalid_Argument_Msg(
4351: IF l_rev_control_code = 2 THEN
4352: IF (p_product_version = FND_API.G_MISS_CHAR) then
4353: p_product_version := l_product_version;
4354: ELSIF (nvl(p_product_version,'@#') <> nvl(l_product_version,'@#')) THEN
4355: x_return_status := FND_API.G_RET_STS_ERROR;
4356: Add_Invalid_Argument_Msg(
4357: p_token_an => l_api_name_full,
4358: p_token_v => p_product_version,
4359: p_token_p => p_parameter_name,
4364: END IF;
4365:
4366: EXCEPTION
4367: WHEN NO_DATA_FOUND THEN
4368: x_return_status := FND_API.G_RET_STS_ERROR;
4369: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
4370: p_token_v => p_product_version,
4371: p_token_p => p_parameter_name,
4372: p_table_name => G_TABLE_NAME ,
4374: WHEN OTHERS THEN
4375: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4376: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4377: fnd_msg_pub.ADD;
4378: x_return_status := fnd_api.g_ret_sts_unexp_error;
4379: END Validate_product_Version;
4380: --
4381: -- Validate Component Version
4382: PROCEDURE Validate_Component_Version
4408: AND organization_id = p_inventory_org_id;
4409:
4410: BEGIN
4411: -- Initialize the return status.
4412: x_return_status := FND_API.G_RET_STS_SUCCESS;
4413:
4414: -- For bug 3337848 - Check for revision control
4415:
4416: BEGIN
4434:
4435: EXCEPTION
4436: WHEN NO_DATA_FOUND THEN
4437: -- 3352160 modified value of p_token_an
4438: x_return_status := FND_API.G_RET_STS_ERROR;
4439: Add_Invalid_Argument_Msg(
4440: p_token_an => l_api_name_full,
4441: p_token_v => p_component_version,
4442: p_token_p => p_parameter_name,
4446: WHEN OTHERS THEN
4447: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4448: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4449: fnd_msg_pub.ADD;
4450: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4451: END;
4452: END IF;
4453:
4454:
4455:
4456:
4457: EXCEPTION
4458: WHEN NO_DATA_FOUND THEN
4459: x_return_status := FND_API.G_RET_STS_ERROR;
4460: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
4461: p_token_v => p_component_version,
4462: p_token_p => p_parameter_name,
4463: p_table_name => G_TABLE_NAME ,
4465: WHEN OTHERS THEN
4466: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4467: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4468: fnd_msg_pub.ADD;
4469: x_return_status := fnd_api.g_ret_sts_unexp_error;
4470: END;
4471: END Validate_Component_Version;
4472:
4473: -- Validate Subcomponent Version
4501: AND organization_id = p_inventory_org_id;
4502:
4503: BEGIN
4504: -- Initialize the return status.
4505: x_return_status := FND_API.G_RET_STS_SUCCESS;
4506:
4507: -- For bug 3337848 - for revision control
4508:
4509: BEGIN
4525:
4526: EXCEPTION
4527: WHEN NO_DATA_FOUND THEN
4528: -- 3352160 - modified value of p_token_an
4529: x_return_status := FND_API.G_RET_STS_ERROR;
4530: Add_Invalid_Argument_Msg(
4531: p_token_an => l_api_name_full,
4532: p_token_v => p_subcomponent_version,
4533: p_token_p => p_parameter_name,
4537: WHEN OTHERS THEN
4538: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4539: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4540: fnd_msg_pub.ADD;
4541: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4542: END;
4543: END IF;
4544:
4545:
4545:
4546:
4547: EXCEPTION
4548: WHEN NO_DATA_FOUND THEN
4549: x_return_status := FND_API.G_RET_STS_ERROR;
4550: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
4551: p_token_v => p_subcomponent_version,
4552: p_token_p => p_parameter_name ,
4553: p_table_name => G_TABLE_NAME,
4555: WHEN OTHERS THEN
4556: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4557: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4558: fnd_msg_pub.ADD;
4559: x_return_status := fnd_api.g_ret_sts_unexp_error;
4560: END;
4561: END Validate_Subcomponent_Version;
4562: ----------------------------------------------------------------------------------
4563:
4577: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
4578:
4579: BEGIN
4580: -- Initialize the return status.
4581: x_return_status := FND_API.G_RET_STS_SUCCESS;
4582:
4583: /* SELECT 'x'
4584: INTO l_test
4585: FROM cs_customer_products_all
4596: AND rownum < 2;
4597:
4598: EXCEPTION
4599: WHEN NO_DATA_FOUND THEN
4600: x_return_status := FND_API.G_RET_STS_ERROR;
4601: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
4602: p_token_v => TO_CHAR(p_cp_subcomponent_id),
4603: p_token_p => p_parameter_name,
4604: p_table_name => G_TABLE_NAME ,
4607: WHEN OTHERS THEN
4608: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4609: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4610: fnd_msg_pub.ADD;
4611: x_return_status := fnd_api.g_ret_sts_unexp_error;
4612:
4613: END Validate_CP_SubComp_Id;
4614:
4615:
4629: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
4630:
4631: BEGIN
4632: -- Initialize the return status.
4633: x_return_status := FND_API.G_RET_STS_SUCCESS;
4634:
4635: BEGIN
4636: SELECT revision_qty_control_code
4637: INTO l_rev_control_code
4650: AND revision = p_inv_item_revision;
4651:
4652: EXCEPTION
4653: WHEN NO_DATA_FOUND THEN
4654: x_return_status := FND_API.G_RET_STS_ERROR;
4655: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
4656: p_token_v => p_inv_item_revision,
4657: p_token_p => p_parameter_name,
4658: p_table_name => G_TABLE_NAME ,
4660: WHEN OTHERS THEN
4661: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4662: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4663: fnd_msg_pub.ADD;
4664: x_return_status := fnd_api.g_ret_sts_unexp_error;
4665:
4666: END;
4667: END IF;
4668:
4667: END IF;
4668:
4669: EXCEPTION
4670: WHEN NO_DATA_FOUND THEN
4671: x_return_status := FND_API.G_RET_STS_ERROR;
4672: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
4673: p_token_v => TO_CHAR(p_inventory_item_id),
4674: p_token_p => p_parameter_name,
4675: p_table_name => G_TABLE_NAME ,
4678: WHEN OTHERS THEN
4679: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4680: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4681: fnd_msg_pub.ADD;
4682: x_return_status := fnd_api.g_ret_sts_unexp_error;
4683:
4684: END;
4685: END Validate_Inv_Item_Rev;
4686: ------------------------------------------------------
4700: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
4701:
4702: BEGIN
4703: -- Initialize the return status.
4704: x_return_status := FND_API.G_RET_STS_SUCCESS;
4705:
4706:
4707: /* commenting out this SQL as the view cs_sr_inv_components_v is not
4708: looking at the effective date of the inventory_item_id.
4733: bom.alternate_bom_designator IS NULL;
4734:
4735: EXCEPTION
4736: WHEN NO_DATA_FOUND THEN
4737: x_return_status := FND_API.G_RET_STS_ERROR;
4738: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
4739: p_token_v => TO_CHAR(p_inv_component_id),
4740: p_token_p => p_parameter_name,
4741: p_table_name => G_TABLE_NAME ,
4743: WHEN OTHERS THEN
4744: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4745: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4746: fnd_msg_pub.ADD;
4747: x_return_status := fnd_api.g_ret_sts_unexp_error;
4748:
4749: END Validate_Inv_Comp_Id;
4750: -----------------------------------------
4751:
4766: l_api_name_full CONSTANT VARCHAR2(70) := G_PKG_NAME||'.'||l_api_name;
4767: l_test VARCHAR2(3);
4768: BEGIN
4769: -- Initialize the return status.
4770: x_return_status := FND_API.G_RET_STS_SUCCESS;
4771:
4772: SELECT revision_qty_control_code
4773: INTO l_rev_control_code
4774: FROM mtl_system_items_b
4785: END IF;
4786:
4787: EXCEPTION
4788: WHEN NO_DATA_FOUND THEN
4789: x_return_status := FND_API.G_RET_STS_ERROR;
4790: Add_Invalid_Argument_Msg(
4791: p_token_an => l_api_name_full,
4792: p_token_v => p_inv_component_version,
4793: p_token_p => p_parameter_name,
4794: p_table_name => G_TABLE_NAME ,
4795: p_column_name => 'INV_COMPONENT_VERSION' );
4796:
4797: WHEN OTHERS THEN
4798: x_return_status := FND_API.G_RET_STS_ERROR;
4799: Add_Invalid_Argument_Msg(
4800: p_token_an => l_api_name_full,
4801: p_token_v => p_inv_component_version,
4802: p_token_p => p_parameter_name,
4821: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
4822:
4823: BEGIN
4824: -- Initialize the return status.
4825: x_return_status := FND_API.G_RET_STS_SUCCESS;
4826:
4827: /* commenting out this SQL , as the view cs_sr_inv_subcomponents_v does not
4828: take the effective dates of the inv_subcomp_id in the invwentory table.
4829: SELECT 'x'
4855:
4856:
4857: EXCEPTION
4858: WHEN NO_DATA_FOUND THEN
4859: x_return_status := FND_API.G_RET_STS_ERROR;
4860: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
4861: p_token_v => TO_CHAR(p_inv_subcomponent_id),
4862: p_token_p => p_parameter_name,
4863: p_table_name => G_TABLE_NAME ,
4866: WHEN OTHERS THEN
4867: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4868: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4869: fnd_msg_pub.ADD;
4870: x_return_status := fnd_api.g_ret_sts_unexp_error;
4871:
4872: END Validate_Inv_SubComp_Id;
4873: -------------------------------------
4874:
4888: l_rev_control_code NUMBER;
4889:
4890: BEGIN
4891: -- Initialize the return status.
4892: x_return_status := FND_API.G_RET_STS_SUCCESS;
4893:
4894: SELECT revision_qty_control_code
4895: INTO l_rev_control_code
4896: FROM mtl_system_items_b
4907: END IF;
4908:
4909: EXCEPTION
4910: WHEN NO_DATA_FOUND THEN
4911: x_return_status := FND_API.G_RET_STS_ERROR;
4912: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
4913: p_token_v => p_inv_subcomponent_version,
4914: p_token_p => p_parameter_name,
4915: p_table_name => G_TABLE_NAME ,
4917: WHEN OTHERS THEN
4918: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4919: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4920: fnd_msg_pub.ADD;
4921: x_return_status := fnd_api.g_ret_sts_unexp_error;
4922:
4923: END Validate_Inv_SubComp_Ver;
4924:
4925: -- Validate SR CREATION CHANNEL
4935: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
4936:
4937: BEGIN
4938: -- Initialize the return status.
4939: x_return_status := FND_API.G_RET_STS_SUCCESS;
4940:
4941: SELECT 'x' INTO l_dummy
4942: FROM CS_LOOKUPS
4943: WHERE lookup_code = UPPER(p_sr_creation_channel)
4946: AND TRUNC(NVL(end_date_active, SYSDATE)) ;
4947:
4948: EXCEPTION
4949: WHEN NO_DATA_FOUND THEN
4950: x_return_status := FND_API.G_RET_STS_ERROR;
4951: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
4952: p_token_v => p_sr_creation_channel,
4953: p_token_p => p_parameter_name,
4954: p_table_name => G_TABLE_NAME ,
4956: WHEN OTHERS THEN
4957: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4958: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4959: fnd_msg_pub.ADD;
4960: x_return_status := fnd_api.g_ret_sts_unexp_error;
4961:
4962: END Validate_SR_Channel;
4963: ---------------------------------------------------------------------------------
4964:
4976: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
4977:
4978: BEGIN
4979: -- Initialize the return status.
4980: x_return_status := FND_API.G_RET_STS_SUCCESS;
4981: SELECT 'x'
4982: INTO l_test
4983: FROM cs_cp_languages
4984: WHERE cp_language_id = p_language_id
4985: AND customer_product_id = p_customer_product_id;
4986:
4987: EXCEPTION
4988: WHEN NO_DATA_FOUND THEN
4989: x_return_status := FND_API.G_RET_STS_ERROR;
4990: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full ,
4991: p_token_v => TO_CHAR(p_language_id),
4992: p_token_p => p_parameter_name,
4993: p_table_name => G_TABLE_NAME,
4995: WHEN OTHERS THEN
4996: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4997: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4998: fnd_msg_pub.ADD;
4999: x_return_status := fnd_api.g_ret_sts_unexp_error;
5000:
5001: END Validate_CP_Language_Id;
5002: ---------------------------------------------------------------------------------------------
5003:
5015: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
5016:
5017: BEGIN
5018: -- Initialize the return status.
5019: x_return_status := FND_API.G_RET_STS_SUCCESS;
5020:
5021: SELECT 'x' INTO l_test
5022: FROM JTF_TERR_RSC_ALL
5023: WHERE resource_id = p_owner_id
5024: AND terr_id = p_territory_id;
5025:
5026: EXCEPTION
5027: WHEN NO_DATA_FOUND THEN
5028: x_return_status := FND_API.G_RET_STS_ERROR;
5029: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full ,
5030: p_token_v => TO_CHAR(p_territory_id),
5031: p_token_p => p_parameter_name,
5032: p_table_name => G_TABLE_NAME,
5034: WHEN OTHERS THEN
5035: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
5036: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
5037: fnd_msg_pub.ADD;
5038: x_return_status := fnd_api.g_ret_sts_unexp_error;
5039:
5040: END Validate_Territory_Id;
5041:
5042:
5058: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
5059:
5060: BEGIN
5061: -- Initialize the return status.
5062: x_return_status := FND_API.G_RET_STS_SUCCESS;
5063:
5064: SELECT a.contact_point_id INTO l_test
5065: FROM HZ_CONTACT_POINTS a
5066: WHERE a.contact_point_type = p_contact_point_type
5069: AND a.OWNER_TABLE_NAME = 'HZ_PARTIES'
5070: AND a.STATUS = 'A';
5071: EXCEPTION
5072: WHEN NO_DATA_FOUND THEN
5073: x_return_status := FND_API.G_RET_STS_ERROR;
5074: -- new message for 11.5.10
5075: -- Contact point is not valid. Please check the values for the following:
5076: -- party ,contact point and contact point type.
5077:
5082: WHEN OTHERS THEN
5083: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
5084: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
5085: fnd_msg_pub.ADD;
5086: x_return_status := fnd_api.g_ret_sts_unexp_error;
5087:
5088: END Validate_Per_Contact_Point_Id;
5089: ---------------------------------------
5090:
5102: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
5103:
5104: BEGIN
5105: -- Initialize the return status.
5106: x_return_status := FND_API.G_RET_STS_SUCCESS;
5107:
5108: SELECT PHONE_ID
5109: INTO l_test
5110: FROM per_phones
5113: AND phone_id = p_contact_point_id ;
5114:
5115: EXCEPTION
5116: WHEN NO_DATA_FOUND THEN
5117: x_return_status := FND_API.G_RET_STS_ERROR;
5118: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full ,
5119: p_token_v => TO_CHAR(p_contact_point_id),
5120: p_token_p => p_parameter_name,
5121: p_table_name => 'CS_HZ_SR_CONTACT_POINTS' ,
5123: WHEN OTHERS THEN
5124: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
5125: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
5126: fnd_msg_pub.ADD;
5127: x_return_status := fnd_api.g_ret_sts_unexp_error;
5128:
5129: END Validate_Emp_Contact_Point_Id;
5130: -----------------------------------------------------------------
5131:
5142: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
5143:
5144: BEGIN
5145: -- Initialize the return status.
5146: x_return_status := FND_API.G_RET_STS_SUCCESS;
5147:
5148: SELECT 'x'
5149: INTO l_test
5150: FROM AR_LOOKUPS
5154: AND TRUNC(NVL(end_date_active, SYSDATE))
5155: AND ROWNUM <= 1 ;
5156: EXCEPTION
5157: WHEN NO_DATA_FOUND THEN
5158: x_return_status := FND_API.G_RET_STS_ERROR;
5159: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full ,
5160: p_token_v => p_contact_point_type,
5161: p_token_p => p_parameter_name,
5162: p_table_name => 'CS_HZ_SR_CONTACT_POINTS',
5164: WHEN OTHERS THEN
5165: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
5166: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
5167: fnd_msg_pub.ADD;
5168: x_return_status := fnd_api.g_ret_sts_unexp_error;
5169: END Validate_Contact_Point_Type;
5170:
5171: -- Validate Contact Type
5172: PROCEDURE Validate_Contact_Type
5181: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
5182:
5183: BEGIN
5184: -- Initialize the return status.
5185: x_return_status := FND_API.G_RET_STS_SUCCESS;
5186:
5187: SELECT 'x' INTO l_test
5188: FROM CS_LOOKUPS
5189: WHERE lookup_code = UPPER(p_contact_type)
5193: AND ROWNUM <= 1;
5194:
5195: EXCEPTION
5196: WHEN NO_DATA_FOUND THEN
5197: x_return_status := FND_API.G_RET_STS_ERROR;
5198: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full ,
5199: p_token_v => p_contact_type,
5200: p_token_p => p_parameter_name,
5201: p_table_name => 'CS_HZ_SR_CONTACT_POINTS',
5203: WHEN OTHERS THEN
5204: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
5205: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
5206: fnd_msg_pub.ADD;
5207: x_return_status := fnd_api.g_ret_sts_unexp_error;
5208: END Validate_Contact_Type;
5209: ---------------------------------------
5210:
5211: --Validate Account ID
5223: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
5224:
5225: BEGIN
5226: -- Initialize the return status.
5227: x_return_status := FND_API.G_RET_STS_SUCCESS;
5228:
5229: SELECT 'x' INTO l_test
5230: FROM hz_cust_accounts a
5231: WHERE a.cust_account_id = p_account_id
5234: -- Added to remove TCA violation -- Sysdate should fall within Account Activation Date and Termination Date -- anmukher -- 08/14/03
5235: AND TRUNC(SYSDATE) BETWEEN TRUNC(NVL(a.ACCOUNT_ACTIVATION_DATE, SYSDATE)) AND TRUNC(NVL(a.ACCOUNT_TERMINATION_DATE, SYSDATE));
5236: EXCEPTION
5237: WHEN NO_DATA_FOUND THEN
5238: x_return_status := FND_API.G_RET_STS_ERROR;
5239: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full ,
5240: p_token_v => TO_CHAR(p_account_id),
5241: p_token_p => p_parameter_name,
5242: p_table_name => G_TABLE_NAME ,
5244: WHEN OTHERS THEN
5245: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
5246: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
5247: fnd_msg_pub.ADD;
5248: x_return_status := fnd_api.g_ret_sts_unexp_error;
5249:
5250: END Validate_Account_Id;
5251:
5252: -- --------------------------------------------------------------------------------
5330: BEGIN
5331:
5332: --bug 2833245 condition to check the token value
5333: l_token_v := p_token_v;
5334: if l_token_v = FND_API.G_MISS_CHAR then
5335: l_token_v := NULL;
5336: end if;
5337: -- end for bug 2833245
5338:
5502: FOR i IN c1 LOOP
5503: v_blockstr := ' begin '||i.hook_package || '.' ||i.hook_api||'(:1); end; ' ;
5504: EXECUTE IMMEDIATE v_blockstr USING OUT x_return_status ;
5505:
5506: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
5507: x_return_status := fnd_api.g_ret_sts_unexp_error;
5508: RAISE fnd_api.g_exc_unexpected_error;
5509: END IF;
5510: END LOOP;
5503: v_blockstr := ' begin '||i.hook_package || '.' ||i.hook_api||'(:1); end; ' ;
5504: EXECUTE IMMEDIATE v_blockstr USING OUT x_return_status ;
5505:
5506: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
5507: x_return_status := fnd_api.g_ret_sts_unexp_error;
5508: RAISE fnd_api.g_exc_unexpected_error;
5509: END IF;
5510: END LOOP;
5511: EXCEPTION
5504: EXECUTE IMMEDIATE v_blockstr USING OUT x_return_status ;
5505:
5506: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
5507: x_return_status := fnd_api.g_ret_sts_unexp_error;
5508: RAISE fnd_api.g_exc_unexpected_error;
5509: END IF;
5510: END LOOP;
5511: EXCEPTION
5512: WHEN fnd_api.g_exc_unexpected_error THEN
5508: RAISE fnd_api.g_exc_unexpected_error;
5509: END IF;
5510: END LOOP;
5511: EXCEPTION
5512: WHEN fnd_api.g_exc_unexpected_error THEN
5513: x_return_status := fnd_api.g_ret_sts_unexp_error;
5514:
5515: WHEN OTHERS THEN
5516: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
5509: END IF;
5510: END LOOP;
5511: EXCEPTION
5512: WHEN fnd_api.g_exc_unexpected_error THEN
5513: x_return_status := fnd_api.g_ret_sts_unexp_error;
5514:
5515: WHEN OTHERS THEN
5516: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
5517: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
5515: WHEN OTHERS THEN
5516: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
5517: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
5518: fnd_msg_pub.ADD;
5519: x_return_status := fnd_api.g_ret_sts_unexp_error;
5520:
5521: END call_internal_hook ;
5522:
5523: -- -----------------------------------------------------------------------
5529: -- calling procedure (e.g. 'p_bill_to_account').
5530: -- p_bill_to_account_id IN NUMBER Required Unique bill to account identifier
5531: -- p_bill_to_customer_id IN NUMBER Unique Bill to customer ientifier
5532: -- OUT :x_return_status OUT VARCHAR2(1)
5533: -- FND_API.G_RET_STS_SUCCESS => Bill_to_Account is valid
5534: -- FND_API.G_RET_STS_ERROR => Bill_to_Account is invalid
5535: -- -----------------------------------------------------------------------
5536:
5537: PROCEDURE Validate_Bill_To_Ship_To_Acct
5530: -- p_bill_to_account_id IN NUMBER Required Unique bill to account identifier
5531: -- p_bill_to_customer_id IN NUMBER Unique Bill to customer ientifier
5532: -- OUT :x_return_status OUT VARCHAR2(1)
5533: -- FND_API.G_RET_STS_SUCCESS => Bill_to_Account is valid
5534: -- FND_API.G_RET_STS_ERROR => Bill_to_Account is invalid
5535: -- -----------------------------------------------------------------------
5536:
5537: PROCEDURE Validate_Bill_To_Ship_To_Acct
5538: ( p_api_name IN VARCHAR2,
5547: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
5548:
5549: BEGIN
5550: -- Initialize the return status.
5551: x_return_status := FND_API.G_RET_STS_SUCCESS;
5552: -- Validation
5553: SELECT 'x' INTO l_dummy
5554: FROM hz_cust_accounts
5555: WHERE cust_account_id = p_account_id
5556: AND party_id = p_party_id
5557: AND status = 'A';
5558: EXCEPTION
5559: WHEN NO_DATA_FOUND THEN
5560: x_return_status := FND_API.G_RET_STS_ERROR;
5561: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
5562: p_token_v => p_account_id,
5563: p_token_p => p_parameter_name,
5564: p_table_name => G_TABLE_NAME,
5567: WHEN OTHERS THEN
5568: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
5569: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
5570: fnd_msg_pub.ADD;
5571: x_return_status := fnd_api.g_ret_sts_unexp_error;
5572: END Validate_Bill_To_Ship_To_Acct ;
5573:
5574: -- -----------------------------------------------------------------------
5575: -- Start of Comments
5587: -- p_source_program_code IN VARCHAR2(30) Required
5588: -- Service request source program code
5589: --
5590: -- OUT : x_return_status OUT VARCHAR2(1)
5591: -- FND_API.G_RET_STS_SUCCESS => source_program_code is valid
5592: -- FND_API.G_RET_STS_ERROR => source_program_code is invalid
5593: --
5594: -- Notes : Unknown exceptions (i.e. unexpected errors) should be
5595: -- handled by the calling procedure.
5588: -- Service request source program code
5589: --
5590: -- OUT : x_return_status OUT VARCHAR2(1)
5591: -- FND_API.G_RET_STS_SUCCESS => source_program_code is valid
5592: -- FND_API.G_RET_STS_ERROR => source_program_code is invalid
5593: --
5594: -- Notes : Unknown exceptions (i.e. unexpected errors) should be
5595: -- handled by the calling procedure.
5596: -- End of Comments
5608: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
5609:
5610: BEGIN
5611: -- Initialize the return status.
5612: x_return_status := FND_API.G_RET_STS_SUCCESS;
5613:
5614: -- Verify the request CP against the database.
5615: SELECT 'x' INTO l_dummy
5616: FROM CS_LOOKUPS
5621: AND TRUNC(NVL(end_date_active, SYSDATE));
5622:
5623: EXCEPTION
5624: WHEN NO_DATA_FOUND THEN
5625: x_return_status := FND_API.G_RET_STS_ERROR;
5626: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
5627: p_token_v => p_source_program_code,
5628: p_token_p => p_parameter_name,
5629: p_table_name => G_TABLE_NAME,
5632: WHEN OTHERS THEN
5633: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
5634: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
5635: fnd_msg_pub.ADD;
5636: x_return_status := fnd_api.g_ret_sts_unexp_error;
5637: END Validate_source_program_Code;
5638: -- -----------------------------------------------------------------------
5639: -- Start of Comments
5640: -- Procedure : Validate_INC_DIST_QUAL_UOM
5650: -- (e.g. 'P_INC_DIST_QUAL_UOM').
5651: -- P_INC_DIST_QUAL_UOM IN VARCHAR2(30)
5652: -- Service request incident distance qualifier UOM
5653: -- OUT : x_return_status OUT VARCHAR2(1)
5654: -- FND_API.G_RET_STS_SUCCESS => INC_DIST_QUAL_UOM is valid
5655: -- FND_API.G_RET_STS_ERROR => INC_DIST_QUAL_UOM is invalid
5656: --
5657: -- Notes : Unknown exceptions (i.e. unexpected errors) should be
5658: -- handled by the calling procedure.
5651: -- P_INC_DIST_QUAL_UOM IN VARCHAR2(30)
5652: -- Service request incident distance qualifier UOM
5653: -- OUT : x_return_status OUT VARCHAR2(1)
5654: -- FND_API.G_RET_STS_SUCCESS => INC_DIST_QUAL_UOM is valid
5655: -- FND_API.G_RET_STS_ERROR => INC_DIST_QUAL_UOM is invalid
5656: --
5657: -- Notes : Unknown exceptions (i.e. unexpected errors) should be
5658: -- handled by the calling procedure.
5659: -- End of Comments
5670: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
5671:
5672: BEGIN
5673: -- Initialize the return status.
5674: x_return_status := FND_API.G_RET_STS_SUCCESS;
5675:
5676: -- Verify the request CP against the database.
5677: SELECT 'x' INTO l_dummy
5678: FROM CS_LOOKUPS
5683: AND TRUNC(NVL(end_date_active, SYSDATE));
5684:
5685: EXCEPTION
5686: WHEN NO_DATA_FOUND THEN
5687: x_return_status := FND_API.G_RET_STS_ERROR;
5688: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
5689: p_token_v => p_INC_DIST_QUAL_UOM,
5690: p_token_p => p_parameter_name ,
5691: p_table_name => G_TABLE_NAME,
5694: WHEN OTHERS THEN
5695: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
5696: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
5697: fnd_msg_pub.ADD;
5698: x_return_status := fnd_api.g_ret_sts_unexp_error;
5699:
5700:
5701: END Validate_INC_DIST_QUAL_UOM;
5702:
5717: -- p_INC_DIRECTION_QUAL IN VARCHAR2(30)
5718: -- Service request incident direction qualifier
5719: --
5720: -- OUT : x_return_status OUT VARCHAR2(1)
5721: -- FND_API.G_RET_STS_SUCCESS => INC_DIRECTION_QUAL is valid
5722: -- FND_API.G_RET_STS_ERROR => INC_DIRECTION_QUAL is invalid
5723: --
5724: -- Notes : Unknown exceptions (i.e. unexpected errors) should be
5725: -- handled by the calling procedure.
5718: -- Service request incident direction qualifier
5719: --
5720: -- OUT : x_return_status OUT VARCHAR2(1)
5721: -- FND_API.G_RET_STS_SUCCESS => INC_DIRECTION_QUAL is valid
5722: -- FND_API.G_RET_STS_ERROR => INC_DIRECTION_QUAL is invalid
5723: --
5724: -- Notes : Unknown exceptions (i.e. unexpected errors) should be
5725: -- handled by the calling procedure.
5726: -- End of Comments
5737: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
5738:
5739: BEGIN
5740: -- Initialize the return status.
5741: x_return_status := FND_API.G_RET_STS_SUCCESS;
5742:
5743: -- Verify the request CP against the database.
5744: SELECT 'x' INTO l_dummy
5745: FROM CS_LOOKUPS
5750: AND TRUNC(NVL(end_date_active, SYSDATE));
5751:
5752: EXCEPTION
5753: WHEN NO_DATA_FOUND THEN
5754: x_return_status := FND_API.G_RET_STS_ERROR;
5755: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
5756: p_token_v => p_INC_DIRECTION_QUAL,
5757: p_token_p => p_parameter_name,
5758: p_table_name => G_TABLE_NAME,
5761: WHEN OTHERS THEN
5762: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
5763: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
5764: fnd_msg_pub.ADD;
5765: x_return_status := fnd_api.g_ret_sts_unexp_error;
5766:
5767:
5768: END Validate_INC_DIRECTION_QUAL;
5769:
5853: END IF ;
5854:
5855: --bug 2833245 condition to check the token value
5856: l_token_v := p_token_v;
5857: if l_token_v = FND_API.G_MISS_CHAR then
5858: l_token_v := NULL;
5859: end if;
5860: -- end for bug 2833245
5861:
6176:
6177: l_dummy Varchar2(5);
6178: BEGIN
6179: -- Initialize return status to success
6180: x_return_status := FND_API.G_RET_STS_SUCCESS;
6181: l_literal_a := 'A';
6182: OPEN site_site_use;
6183: FETCH site_site_use INTO l_dummy;
6184: IF (site_site_use%NOTFOUND) THEN
6181: l_literal_a := 'A';
6182: OPEN site_site_use;
6183: FETCH site_site_use INTO l_dummy;
6184: IF (site_site_use%NOTFOUND) THEN
6185: x_return_status := FND_API.G_RET_STS_ERROR;
6186: CLOSE site_site_use;
6187:
6188: RAISE NO_DATA_FOUND;
6189: END IF;
6198: WHEN OTHERS THEN
6199: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
6200: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
6201: fnd_msg_pub.add;
6202: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6203: END Validate_Site_Site_Use ;
6204:
6205: -- -----------------------------------------------------------------------------
6206: ---
6239:
6240: BEGIN
6241:
6242: -- Initialize return status to success
6243: x_return_status := FND_API.G_RET_STS_SUCCESS;
6244:
6245: OPEN bill_to_site_use;
6246: FETCH bill_to_site_use INTO x_site_id;
6247: IF (bill_to_site_use%NOTFOUND) THEN
6244:
6245: OPEN bill_to_site_use;
6246: FETCH bill_to_site_use INTO x_site_id;
6247: IF (bill_to_site_use%NOTFOUND) THEN
6248: x_return_status := FND_API.G_RET_STS_ERROR;
6249: CLOSE bill_to_site_use;
6250:
6251: RAISE NO_DATA_FOUND;
6252: END IF;
6262: WHEN OTHERS THEN
6263: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
6264: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
6265: fnd_msg_pub.add;
6266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6267: END Validate_Bill_Ship_Site_Use;
6268:
6269:
6270: -- DJ API Cleanup; added new proc
6285: BEGIN
6286:
6287: -- procedure always returns a success status but may populate a warning
6288: -- message in the message stack
6289: x_return_status := FND_API.G_RET_STS_SUCCESS;
6290:
6291: -- Check if service security is enable. This select will always return
6292: -- with atleast one record.
6293: select sr_agent_security
6318: end if;
6319:
6320: EXCEPTION
6321: WHEN OTHERS THEN
6322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6323: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
6324: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
6325: fnd_msg_pub.add;
6326:
6342: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
6343:
6344: BEGIN
6345:
6346: x_return_status := FND_API.G_RET_STS_SUCCESS;
6347:
6348: SELECT 'x' INTO l_dummy
6349: FROM csi_item_instances a
6350: WHERE a.instance_id = p_customer_product_id
6351: AND a.location_id = p_incident_location_id;
6352:
6353: EXCEPTION
6354: WHEN NO_DATA_FOUND THEN
6355: x_return_status := FND_API.G_RET_STS_ERROR;
6356: fnd_message.set_name ('CS', 'CS_INVALID_INC_LOCATION');
6357: fnd_message.set_token('INCIDENT_LOCATION_ID', p_incident_location_id);
6358: fnd_message.set_token('CUSTOMER_PRODUCT_ID', p_customer_product_id);
6359: fnd_msg_pub.add;
6361: WHEN OTHERS THEN
6362: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
6363: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
6364: fnd_msg_pub.add;
6365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6366:
6367: END CP_INCIDENT_SITE_CROSS_VAL;
6368:
6369: -- KP API Cleanup; added new proc
6384: l_install_site_type csi_item_instances.install_location_type_code%type;
6385:
6386: BEGIN
6387:
6388: x_return_status := FND_API.G_RET_STS_SUCCESS;
6389: -- Changes made for bug 9061438 by Sanjana Rao on 08-jan-2010.As per new logic we will
6390: --do the install site validation only when instance has a valid install site type
6391: -- of type 'HZ_PARTY_SITES'
6392: SELECT a.install_location_id,a.install_location_type_code
6396: -- If instance has install party sites of type HZ_PARTY_SITES
6397: -- then validate that
6398: IF l_install_site_type='HZ_PARTY_SITES' THEN
6399: IF l_install_site_id <> p_install_site_id THEN
6400: x_return_status := FND_API.G_RET_STS_ERROR;
6401: fnd_message.set_name ('CS', 'CS_INVALID_INSTALL_SITE');
6402: fnd_message.set_token('INSTALL_SITE_ID', p_install_site_id);
6403: fnd_message.set_token('CUSTOMER_PRODUCT_ID', p_customer_product_id);
6404: fnd_msg_pub.add;
6406: END IF;
6407:
6408: EXCEPTION
6409: WHEN NO_DATA_FOUND THEN
6410: x_return_status := FND_API.G_RET_STS_ERROR;
6411: fnd_message.set_name ('CS', 'CS_INVALID_INSTALL_SITE');
6412: fnd_message.set_token('INSTALL_SITE_ID', p_install_site_id);
6413: fnd_message.set_token('CUSTOMER_PRODUCT_ID', p_customer_product_id);
6414: fnd_msg_pub.add;
6416: WHEN OTHERS THEN
6417: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
6418: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
6419: fnd_msg_pub.add;
6420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6421:
6422: END CP_INSTALL_SITE_CROSS_VAL;
6423:
6424:
6448: lx_msg_count NUMBER;
6449: lx_msg_data VARCHAR2(2000);
6450:
6451: BEGIN
6452: x_return_status := FND_API.G_RET_STS_SUCCESS;
6453:
6454: -- populate the res. code record type
6455:
6456: l_rc_rec.service_request_type_id := p_incident_type_id;
6460: l_rc_rec.problem_code := p_problem_code;
6461:
6462: cs_sr_res_code_mapping_pkg.validate_resolution_code (
6463: p_api_version => 1.0,
6464: p_init_msg_list => FND_API.G_TRUE,
6465: p_rescode_criteria_rec => l_rc_rec,
6466: p_resolution_code => p_resolution_code,
6467: x_return_status => x_return_status,
6468: x_msg_count => lx_msg_count,
6467: x_return_status => x_return_status,
6468: x_msg_count => lx_msg_count,
6469: x_msg_data => lx_msg_data );
6470:
6471: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
6472: -- new message for 11.5.10
6473: -- Resolution code is not valid. Please check the values for the following:
6474: -- Service request type, inventory item, product category and problem code.
6475: fnd_message.set_name ('CS', 'CS_SR_RES_CODE_INVALID');
6481: WHEN OTHERS THEN
6482: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
6483: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
6484: fnd_msg_pub.add;
6485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6486:
6487: END Resolution_Code_Cross_Val;
6488:
6489: -- KP API Cleanup; added new proc
6503:
6504: l_close_flag VARCHAR2(10);
6505:
6506: BEGIN
6507: x_return_status := FND_API.G_RET_STS_SUCCESS;
6508:
6509: SELECT close_flag
6510: INTO l_close_flag
6511: FROM cs_incident_statuses_b
6521: AND restrict_closure_flag = 'Y'
6522: AND NVL(deleted_flag,'N') = 'N';
6523:
6524: if ( l_dummy > 0 ) then
6525: x_return_status := FND_API.G_RET_STS_ERROR;
6526: -- This service request has open dependent tasks. Please close these
6527: -- tasks before closing the service request.
6528: fnd_message.set_name ('CS', 'CS_SR_CANNOT_CLOSE_SR');
6529: fnd_msg_pub.add;
6535: WHEN OTHERS THEN
6536: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
6537: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
6538: fnd_msg_pub.add;
6539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6540:
6541: END TASK_RESTRICT_CLOSE_CROSS_VAL;
6542:
6543: -- KP API Cleanup; added new proc
6585: px_inp_rec OKS_ENTITLEMENTS_PUB.get_contin_rec;
6586: l_match_found BOOLEAN;
6587: BEGIN
6588:
6589: x_return_status := FND_API.G_RET_STS_SUCCESS;
6590:
6591: px_inp_rec.contract_number := NULL;
6592: px_inp_rec.contract_number_modifier := NULL;
6593: px_inp_rec.service_line_id := NULL;
6608: px_inp_rec.dates_in_input_tz := 'N';
6609:
6610: OKS_ENTITLEMENTS_PUB.get_contracts
6611: ( p_api_version => 1.0
6612: , p_init_msg_list => fnd_api.g_false
6613: , p_inp_rec => px_inp_rec
6614: , x_return_status => x_return_status
6615: , x_msg_count => lx_msg_count
6616: , x_msg_data => lx_msg_data
6615: , x_msg_count => lx_msg_count
6616: , x_msg_data => lx_msg_data
6617: , x_ent_contracts => l_ent_contracts
6618: );
6619: IF x_return_status = FND_API.G_RET_STS_SUCCESS
6620: THEN
6621: l_match_found := false;
6622: IF l_ent_contracts.count > 0
6623: THEN
6632: END IF;
6633: -- if contract is not found in contract list, set return status to Error
6634: IF l_match_found = false
6635: THEN
6636: x_return_status := FND_API.G_RET_STS_ERROR;
6637: END IF;
6638: END IF;
6639:
6640: /*************** when bug 4109990 is fixed, uncomment this part
6669: l_covlevel_tbl(6).covered_yn := 'N';
6670:
6671: OKS_ENTITLEMENTS_PUB.VALIDATE_CONTRACT_LINE (
6672: p_api_version => 1,
6673: p_init_msg_list => FND_API.G_FALSE,
6674: p_contract_line_id => p_contract_service_id,
6675: p_busiproc_id => p_busiproc_id,
6676: p_request_date => p_request_date,
6677: p_covlevel_tbl_in => l_covlevel_tbl,
6683: x_combination_valid => x_dummy) ;
6684:
6685: l_contract_index := lx_covlevel_tbl.FIRST;
6686:
6687: IF ( lx_return_status = FND_API.G_RET_STS_SUCCESS ) then
6688: WHILE l_contract_index IS NOT NULL LOOP
6689: IF lx_covlevel_tbl(l_contract_index).covered_yn = 'Y' THEN
6690: valid_contract_flag := 'Y';
6691: END IF;
6692: l_contract_index := lx_covlevel_tbl.NEXT(l_contract_index);
6693: END LOOP;
6694:
6695: IF valid_contract_flag = 'N' THEN
6696: x_return_status := FND_API.G_RET_STS_ERROR;
6697: -- new message for 11.5.10
6698: -- Contract is not valid. Please check the values for the following:
6699: -- Service request type, inventory item, instance, account and
6700: -- install site.
6702: --fnd_message.set_token('API_NAME', l_api_name_full );
6703: --fnd_msg_pub.add;
6704: END IF;
6705: ELSE -- For BUG 3665768
6706: x_return_status := FND_API.G_RET_STS_ERROR;
6707: --fnd_message.set_name ('CS', 'CS_SR_CONTRACT_INVALID');
6708: --fnd_message.set_token('API_NAME', l_api_name_full );
6709: --fnd_msg_pub.add;
6710: END IF; -- IF ( lx_return_status = FND_API.G_RET_STS_SUCCESS ) then
6706: x_return_status := FND_API.G_RET_STS_ERROR;
6707: --fnd_message.set_name ('CS', 'CS_SR_CONTRACT_INVALID');
6708: --fnd_message.set_token('API_NAME', l_api_name_full );
6709: --fnd_msg_pub.add;
6710: END IF; -- IF ( lx_return_status = FND_API.G_RET_STS_SUCCESS ) then
6711: *************** when bug 4109990 is fixed, uncomment this part *********/
6712:
6713: EXCEPTION
6714: WHEN OTHERS THEN
6714: WHEN OTHERS THEN
6715: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
6716: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
6717: fnd_msg_pub.add;
6718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6719:
6720: END CONTRACTS_CROSS_VAL;
6721:
6722: -- KP API Cleanup; added new proc
6734: l_api_name_full CONSTANT VARCHAR2(70) := G_PKG_NAME||'.'||l_api_name;
6735:
6736: BEGIN
6737:
6738: x_return_status := FND_API.G_RET_STS_SUCCESS;
6739:
6740: SELECT 'X'
6741: INTO l_dummy
6742: FROM CSI_ITEM_INSTANCES
6745:
6746: EXCEPTION
6747: WHEN NO_DATA_FOUND THEN
6748: -- For bug 3324210 and 3324179
6749: x_return_status := FND_API.G_RET_STS_ERROR;
6750: CS_ServiceRequest_UTIL.Add_Invalid_Argument_Msg(
6751: p_token_an => l_api_name_full,
6752: -- p_token_v => to_char(p_cp_component_id), --3815710
6753: p_token_v => to_char(p_inv_component_id),
6756: WHEN OTHERS THEN
6757: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
6758: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
6759: fnd_msg_pub.add;
6760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6761:
6762: END INV_COMPONENT_CROSS_VAL;
6763:
6764: -- KP API Cleanup; added new proc
6777: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
6778:
6779: BEGIN
6780:
6781: x_return_status := FND_API.G_RET_STS_SUCCESS;
6782:
6783: SELECT 'X' INTO l_dummy
6784: FROM CSI_ITEM_INSTANCES
6785: WHERE INSTANCE_ID = p_cp_subcomponent_id
6787:
6788: EXCEPTION
6789: WHEN NO_DATA_FOUND THEN
6790: -- For bug 3324210 and 3324179
6791: x_return_status := FND_API.G_RET_STS_ERROR;
6792: CS_ServiceRequest_UTIL.Add_Invalid_Argument_Msg(
6793: p_token_an => l_api_name_full,
6794: p_token_v => to_char(p_cp_subcomponent_id),
6795: p_token_p => p_parameter_name );
6797: WHEN OTHERS THEN
6798: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
6799: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
6800: fnd_msg_pub.add;
6801: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6802:
6803: END INV_SUBCOMPONENT_CROSS_VAL;
6804:
6805: -- where did this requirement come from?
6813: p_sr_agent_security IN VARCHAR2,
6814: x_return_status OUT NOCOPY VARCHAR2 )
6815: IS
6816: BEGIN
6817: x_return_status := FND_API.G_RET_STS_SUCCESS;
6818: END SETUP_SR_AGENT_SECURITY;
6819:
6820:
6821: -- Added new function if the responsibility has access to
6867: x_return_status OUT NOCOPY VARCHAR2 )
6868: IS
6869: l_dummy NUMBER := 0;
6870: BEGIN
6871: x_return_status := FND_API.G_RET_STS_SUCCESS;
6872: /*
6873: select 1
6874: into l_dummy
6875: from csi_item_instances
6891: IS
6892: l_api_name_full VARCHAR2(70) := G_PKG_NAME||'.VALIDATE_TYPE_CHANGE';
6893: BEGIN
6894: if ( p_old_eam_type_flag <> p_new_eam_type_flag ) then
6895: x_return_status := FND_API.G_RET_STS_ERROR;
6896:
6897: -- Set different message depending on the nature of the type change
6898: if ( p_old_eam_type_flag = 'Y' ) then
6899: -- new message for 11.5.10
6910: fnd_message.set_token('API_NAME', l_api_name_full );
6911: fnd_msg_pub.add;
6912: end if;
6913: else
6914: x_return_status := FND_API.G_RET_STS_SUCCESS;
6915: end if;
6916:
6917: EXCEPTION
6918: WHEN OTHERS THEN
6915: end if;
6916:
6917: EXCEPTION
6918: WHEN OTHERS THEN
6919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6920:
6921: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
6922: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
6923: FND_MSG_PUB.ADD;
7046: l_owning_dept_id cs_incidents_all_b.owning_department_id % TYPE;
7047:
7048: BEGIN
7049: -- Initialize return status to success
7050: x_return_status := FND_API.G_RET_STS_SUCCESS;
7051:
7052: -- Fetch the values that need to be used in the validation procedures. If the
7053: -- value is passed to the API, then use the passed in value, if not, use the
7054: -- existing DB value
7237: , p_inventory_org_id => l_inv_org_id
7238: , p_inv_org_master_org_flag => l_inv_org_master_org_flag
7239: , x_return_status => lx_return_status
7240: );
7241: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7242: x_return_status := FND_API.G_RET_STS_ERROR;
7243: RETURN;
7244: END IF;
7245: END IF;
7238: , p_inv_org_master_org_flag => l_inv_org_master_org_flag
7239: , x_return_status => lx_return_status
7240: );
7241: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7242: x_return_status := FND_API.G_RET_STS_ERROR;
7243: RETURN;
7244: END IF;
7245: END IF;
7246: --
7255: p_owning_dept_id => l_owning_dept_id,
7256: p_maintenance_flag => l_maint_flag,
7257: x_return_status => lx_return_status
7258: );
7259: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS)
7260: THEN
7261: x_return_status := FND_API.G_RET_STS_ERROR;
7262: RETURN;
7263: END IF;
7257: x_return_status => lx_return_status
7258: );
7259: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS)
7260: THEN
7261: x_return_status := FND_API.G_RET_STS_ERROR;
7262: RETURN;
7263: END IF;
7264: END IF;
7265: --
7265: --
7266: /* For bug 3340433 - moved validate_product and validate_customer_product
7267: before the validations which uses inventory_item_id */
7268: -- Inventory item cross validation
7269: IF ((p_new_sr_rec.inventory_org_id <> FND_API.G_MISS_NUM) AND
7270: (nvl(p_new_sr_rec.inventory_org_id,-99) <>
7271: nvl(p_old_sr_rec.inv_organization_id,-99)))
7272: OR
7273: ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7269: IF ((p_new_sr_rec.inventory_org_id <> FND_API.G_MISS_NUM) AND
7270: (nvl(p_new_sr_rec.inventory_org_id,-99) <>
7271: nvl(p_old_sr_rec.inv_organization_id,-99)))
7272: OR
7273: ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7274: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7275: nvl(p_old_sr_rec.inventory_item_id,-99)))
7276: OR
7277: ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
7273: ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7274: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7275: nvl(p_old_sr_rec.inventory_item_id,-99)))
7276: OR
7277: ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
7278: (nvl(p_new_sr_rec.customer_product_id,-99) <>
7279: nvl(p_old_sr_rec.customer_product_id,-99))) OR
7280: NVL(l_maint_organization_id,-99) <> NVL(p_old_sr_rec.maint_organization_id,-99)
7281: THEN
7278: (nvl(p_new_sr_rec.customer_product_id,-99) <>
7279: nvl(p_old_sr_rec.customer_product_id,-99))) OR
7280: NVL(l_maint_organization_id,-99) <> NVL(p_old_sr_rec.maint_organization_id,-99)
7281: THEN
7282: if (l_inv_item_id IS NOT NULL and l_inv_item_id <> FND_API.G_MISS_NUM) then
7283: VALIDATE_PRODUCT (
7284: p_api_name => NULL,
7285: p_parameter_name => 'inventory_item_id',
7286: p_inventory_item_id => l_inv_item_id,
7289: p_maint_organization_id => l_maint_organization_id,
7290: p_inv_org_master_org_flag => l_inv_org_master_org_flag,
7291: x_return_status => lx_return_status );
7292:
7293: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7294: x_return_status := FND_API.G_RET_STS_ERROR;
7295: RETURN;
7296: END IF;
7297: END IF;
7290: p_inv_org_master_org_flag => l_inv_org_master_org_flag,
7291: x_return_status => lx_return_status );
7292:
7293: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7294: x_return_status := FND_API.G_RET_STS_ERROR;
7295: RETURN;
7296: END IF;
7297: END IF;
7298: END IF; -- validate inventory item end if
7316: , p_inv_org_master_org_flag => l_inv_org_master_org_flag
7317: , x_return_status => lx_return_status
7318: );
7319:
7320: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7321: x_return_status := FND_API.G_RET_STS_ERROR;
7322: RETURN;
7323: END IF;
7324:
7317: , x_return_status => lx_return_status
7318: );
7319:
7320: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7321: x_return_status := FND_API.G_RET_STS_ERROR;
7322: RETURN;
7323: END IF;
7324:
7325: -- For bug 3340433
7340:
7341: -- Problem code cross validation
7342: -- Validate problem code if any of the following changes: type, category or
7343: -- item
7344: IF ((p_new_sr_rec.type_id <> FND_API.G_MISS_NUM) AND
7345: (nvl(p_new_sr_rec.type_id,-99) <>
7346: nvl(p_old_sr_rec.incident_type_id,-99)))
7347: OR
7348: ((p_new_sr_rec.problem_code <> FND_API.G_MISS_CHAR) AND
7344: IF ((p_new_sr_rec.type_id <> FND_API.G_MISS_NUM) AND
7345: (nvl(p_new_sr_rec.type_id,-99) <>
7346: nvl(p_old_sr_rec.incident_type_id,-99)))
7347: OR
7348: ((p_new_sr_rec.problem_code <> FND_API.G_MISS_CHAR) AND
7349: (nvl(p_new_sr_rec.problem_code,-99) <>
7350: nvl(p_old_sr_rec.problem_code,-99)))
7351: OR
7352: ((p_new_sr_rec.category_id <> FND_API.G_MISS_NUM) AND
7348: ((p_new_sr_rec.problem_code <> FND_API.G_MISS_CHAR) AND
7349: (nvl(p_new_sr_rec.problem_code,-99) <>
7350: nvl(p_old_sr_rec.problem_code,-99)))
7351: OR
7352: ((p_new_sr_rec.category_id <> FND_API.G_MISS_NUM) AND
7353: (nvl(p_new_sr_rec.category_id,-99) <>
7354: nvl(p_old_sr_rec.category_id,-99)))
7355: OR
7356: ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7352: ((p_new_sr_rec.category_id <> FND_API.G_MISS_NUM) AND
7353: (nvl(p_new_sr_rec.category_id,-99) <>
7354: nvl(p_old_sr_rec.category_id,-99)))
7355: OR
7356: ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7357: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7358: nvl(p_old_sr_rec.inventory_item_id,-99)))
7359: OR ( l_inv_change_by_cp = 'Y')
7360: THEN
7357: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7358: nvl(p_old_sr_rec.inventory_item_id,-99)))
7359: OR ( l_inv_change_by_cp = 'Y')
7360: THEN
7361: if ( l_problem_code IS NOT NULL and l_problem_code <> FND_API.G_MISS_CHAR ) then
7362: VALIDATE_PROBLEM_CODE (
7363: p_api_name => NULL,
7364: p_parameter_name => 'problem code',
7365: p_problem_code => l_problem_code,
7368: p_inventory_org_id => l_inv_org_id,
7369: p_category_id => l_category_id,
7370: x_return_status => lx_return_status );
7371:
7372: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7373: x_return_status := FND_API.G_RET_STS_ERROR;
7374: RETURN;
7375: END IF;
7376: END IF; -- if ( l_problem_code IS NULL or l_problem_code <> FND_API
7369: p_category_id => l_category_id,
7370: x_return_status => lx_return_status );
7371:
7372: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7373: x_return_status := FND_API.G_RET_STS_ERROR;
7374: RETURN;
7375: END IF;
7376: END IF; -- if ( l_problem_code IS NULL or l_problem_code <> FND_API
7377: END IF; -- validate proble code end if
7372: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7373: x_return_status := FND_API.G_RET_STS_ERROR;
7374: RETURN;
7375: END IF;
7376: END IF; -- if ( l_problem_code IS NULL or l_problem_code <> FND_API
7377: END IF; -- validate proble code end if
7378:
7379: -- Resolution code cross validation
7380: -- Validat resolution code if any of the following changes: type, category,
7378:
7379: -- Resolution code cross validation
7380: -- Validat resolution code if any of the following changes: type, category,
7381: -- item or problem code
7382: IF ((p_new_sr_rec.type_id <> FND_API.G_MISS_NUM) AND
7383: (nvl(p_new_sr_rec.type_id,-99) <>
7384: nvl(p_old_sr_rec.incident_type_id,-99)))
7385: OR
7386: ((p_new_sr_rec.category_id <> FND_API.G_MISS_NUM) AND
7382: IF ((p_new_sr_rec.type_id <> FND_API.G_MISS_NUM) AND
7383: (nvl(p_new_sr_rec.type_id,-99) <>
7384: nvl(p_old_sr_rec.incident_type_id,-99)))
7385: OR
7386: ((p_new_sr_rec.category_id <> FND_API.G_MISS_NUM) AND
7387: (nvl(p_new_sr_rec.category_id,-99) <>
7388: nvl(p_old_sr_rec.category_id,-99)))
7389: OR
7390: ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7386: ((p_new_sr_rec.category_id <> FND_API.G_MISS_NUM) AND
7387: (nvl(p_new_sr_rec.category_id,-99) <>
7388: nvl(p_old_sr_rec.category_id,-99)))
7389: OR
7390: ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7391: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7392: nvl(p_old_sr_rec.inventory_item_id,-99)))
7393: OR
7394: ((p_new_sr_rec.problem_code <> FND_API.G_MISS_CHAR) AND
7390: ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7391: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7392: nvl(p_old_sr_rec.inventory_item_id,-99)))
7393: OR
7394: ((p_new_sr_rec.problem_code <> FND_API.G_MISS_CHAR) AND
7395: (nvl(p_new_sr_rec.problem_code,-99) <>
7396: nvl(p_old_sr_rec.problem_code,-99)))
7397: OR
7398: ((p_new_sr_rec.resolution_code <> FND_API.G_MISS_CHAR) AND
7394: ((p_new_sr_rec.problem_code <> FND_API.G_MISS_CHAR) AND
7395: (nvl(p_new_sr_rec.problem_code,-99) <>
7396: nvl(p_old_sr_rec.problem_code,-99)))
7397: OR
7398: ((p_new_sr_rec.resolution_code <> FND_API.G_MISS_CHAR) AND
7399: (nvl(p_new_sr_rec.resolution_code,-99) <>
7400: nvl(p_old_sr_rec.resolution_code,-99)))
7401: OR ( l_inv_change_by_cp = 'Y')
7402: THEN
7400: nvl(p_old_sr_rec.resolution_code,-99)))
7401: OR ( l_inv_change_by_cp = 'Y')
7402: THEN
7403:
7404: if ( l_res_code IS NOT NULL and l_res_code <> FND_API.G_MISS_CHAR ) then
7405: RESOLUTION_CODE_CROSS_VAL (
7406: p_parameter_name => 'problem code',
7407: p_resolution_code => l_res_code,
7408: p_problem_code => l_problem_code,
7411: p_inventory_item_id => l_inv_item_id,
7412: p_inventory_org_id => l_inv_org_id,
7413: x_return_status => lx_return_status );
7414:
7415: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7416: x_return_status := FND_API.G_RET_STS_ERROR;
7417: RETURN;
7418: END IF;
7419: END IF; -- if ( l_res_code IS NOT NULL or l_res_code <> FND_API
7412: p_inventory_org_id => l_inv_org_id,
7413: x_return_status => lx_return_status );
7414:
7415: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7416: x_return_status := FND_API.G_RET_STS_ERROR;
7417: RETURN;
7418: END IF;
7419: END IF; -- if ( l_res_code IS NOT NULL or l_res_code <> FND_API
7420:
7415: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7416: x_return_status := FND_API.G_RET_STS_ERROR;
7417: RETURN;
7418: END IF;
7419: END IF; -- if ( l_res_code IS NOT NULL or l_res_code <> FND_API
7420:
7421: END IF; -- validate resolution code end if
7422:
7423: -- contracts cross val
7428: -- id check as well
7429: x_cross_val_out_rec.contract_service_id_valid := 'Y';
7430: /* smisra 12/20/05 Bug 4894942
7431: Now this validation is called from vldt_sr_rec
7432: IF ((nvl(p_new_sr_rec.install_site_id,-99) <> FND_API.G_MISS_NUM) AND
7433: (nvl(p_new_sr_rec.install_site_id,-99) <>
7434: nvl(p_old_sr_rec.install_site_id,-99)))
7435: OR
7436: ((p_new_sr_rec.type_id <> FND_API.G_MISS_NUM) AND
7432: IF ((nvl(p_new_sr_rec.install_site_id,-99) <> FND_API.G_MISS_NUM) AND
7433: (nvl(p_new_sr_rec.install_site_id,-99) <>
7434: nvl(p_old_sr_rec.install_site_id,-99)))
7435: OR
7436: ((p_new_sr_rec.type_id <> FND_API.G_MISS_NUM) AND
7437: (nvl(p_new_sr_rec.type_id,-99) <>
7438: nvl(p_old_sr_rec.incident_type_id,-99)))
7439: OR
7440: ((nvl(p_new_sr_rec.inventory_item_id,-99) <> FND_API.G_MISS_NUM) AND
7436: ((p_new_sr_rec.type_id <> FND_API.G_MISS_NUM) AND
7437: (nvl(p_new_sr_rec.type_id,-99) <>
7438: nvl(p_old_sr_rec.incident_type_id,-99)))
7439: OR
7440: ((nvl(p_new_sr_rec.inventory_item_id,-99) <> FND_API.G_MISS_NUM) AND
7441: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7442: nvl(p_old_sr_rec.inventory_item_id,-99)))
7443: OR
7444: ((nvl(p_new_sr_rec.customer_product_id,-99) <> FND_API.G_MISS_NUM) AND
7440: ((nvl(p_new_sr_rec.inventory_item_id,-99) <> FND_API.G_MISS_NUM) AND
7441: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7442: nvl(p_old_sr_rec.inventory_item_id,-99)))
7443: OR
7444: ((nvl(p_new_sr_rec.customer_product_id,-99) <> FND_API.G_MISS_NUM) AND
7445: (nvl(p_new_sr_rec.customer_product_id,-99) <>
7446: nvl(p_old_sr_rec.customer_product_id,-99)))
7447: OR
7448: ((nvl(p_new_sr_rec.account_id,-99) <> FND_API.G_MISS_NUM) AND
7444: ((nvl(p_new_sr_rec.customer_product_id,-99) <> FND_API.G_MISS_NUM) AND
7445: (nvl(p_new_sr_rec.customer_product_id,-99) <>
7446: nvl(p_old_sr_rec.customer_product_id,-99)))
7447: OR
7448: ((nvl(p_new_sr_rec.account_id,-99) <> FND_API.G_MISS_NUM) AND
7449: (nvl(p_new_sr_rec.account_id,-99) <> nvl(p_old_sr_rec.account_id,-99)))
7450: OR
7451: ((p_new_sr_rec.customer_id <> FND_API.G_MISS_NUM) AND
7452: (nvl(p_new_sr_rec.customer_id,-99) <> nvl(p_old_sr_rec.customer_id,-99)))
7447: OR
7448: ((nvl(p_new_sr_rec.account_id,-99) <> FND_API.G_MISS_NUM) AND
7449: (nvl(p_new_sr_rec.account_id,-99) <> nvl(p_old_sr_rec.account_id,-99)))
7450: OR
7451: ((p_new_sr_rec.customer_id <> FND_API.G_MISS_NUM) AND
7452: (nvl(p_new_sr_rec.customer_id,-99) <> nvl(p_old_sr_rec.customer_id,-99)))
7453: OR
7454: ((nvl(p_new_sr_rec.system_id,-99) <> FND_API.G_MISS_NUM) AND
7455: (nvl(p_new_sr_rec.system_id,-99) <> nvl(p_old_sr_rec.system_id,-99)))
7450: OR
7451: ((p_new_sr_rec.customer_id <> FND_API.G_MISS_NUM) AND
7452: (nvl(p_new_sr_rec.customer_id,-99) <> nvl(p_old_sr_rec.customer_id,-99)))
7453: OR
7454: ((nvl(p_new_sr_rec.system_id,-99) <> FND_API.G_MISS_NUM) AND
7455: (nvl(p_new_sr_rec.system_id,-99) <> nvl(p_old_sr_rec.system_id,-99)))
7456: -- 3224898 contracts
7457: OR
7458: ((nvl(p_new_sr_rec.contract_id,-99) <> FND_API.G_MISS_NUM) AND
7454: ((nvl(p_new_sr_rec.system_id,-99) <> FND_API.G_MISS_NUM) AND
7455: (nvl(p_new_sr_rec.system_id,-99) <> nvl(p_old_sr_rec.system_id,-99)))
7456: -- 3224898 contracts
7457: OR
7458: ((nvl(p_new_sr_rec.contract_id,-99) <> FND_API.G_MISS_NUM) AND
7459: (nvl(p_new_sr_rec.contract_id,-99) <> nvl(p_old_sr_rec.contract_id,-99)))
7460: OR
7461: ((nvl(p_new_sr_rec.contract_service_id,-99) <> FND_API.G_MISS_NUM) AND
7462: (nvl(p_new_sr_rec.contract_service_id,-99) <> nvl(p_old_sr_rec.contract_service_id,-99)))
7457: OR
7458: ((nvl(p_new_sr_rec.contract_id,-99) <> FND_API.G_MISS_NUM) AND
7459: (nvl(p_new_sr_rec.contract_id,-99) <> nvl(p_old_sr_rec.contract_id,-99)))
7460: OR
7461: ((nvl(p_new_sr_rec.contract_service_id,-99) <> FND_API.G_MISS_NUM) AND
7462: (nvl(p_new_sr_rec.contract_service_id,-99) <> nvl(p_old_sr_rec.contract_service_id,-99)))
7463: OR ( l_inv_change_by_cp = 'Y')
7464: THEN
7465: lx_return_status := FND_API.G_RET_STS_SUCCESS;
7461: ((nvl(p_new_sr_rec.contract_service_id,-99) <> FND_API.G_MISS_NUM) AND
7462: (nvl(p_new_sr_rec.contract_service_id,-99) <> nvl(p_old_sr_rec.contract_service_id,-99)))
7463: OR ( l_inv_change_by_cp = 'Y')
7464: THEN
7465: lx_return_status := FND_API.G_RET_STS_SUCCESS;
7466:
7467: if ( l_cont_srv_id IS NOT NULL and l_cont_srv_id <> FND_API.G_MISS_NUM ) then
7468: begin
7469: select business_process_id
7463: OR ( l_inv_change_by_cp = 'Y')
7464: THEN
7465: lx_return_status := FND_API.G_RET_STS_SUCCESS;
7466:
7467: if ( l_cont_srv_id IS NOT NULL and l_cont_srv_id <> FND_API.G_MISS_NUM ) then
7468: begin
7469: select business_process_id
7470: into l_busi_proc_id
7471: from cs_incident_types_b
7471: from cs_incident_types_b
7472: where incident_type_id = l_sr_type_id;
7473: exception
7474: when no_data_found then
7475: raise fnd_api.g_exc_unexpected_error;
7476: -- Invalid type. Given type is either end dated or does not exist
7477: -- as a valid type.
7478: fnd_message.set_name ('CS', 'CS_SR_INVALID_TYPE');
7479: fnd_message.set_token('API_NAME', l_api_name_full);
7477: -- as a valid type.
7478: fnd_message.set_name ('CS', 'CS_SR_INVALID_TYPE');
7479: fnd_message.set_token('API_NAME', l_api_name_full);
7480: fnd_msg_pub.ADD;
7481: lx_return_status := FND_API.G_RET_STS_ERROR;
7482: end;
7483:
7484: if ( lx_return_status = FND_API.G_RET_STS_SUCCESS ) then
7485:
7480: fnd_msg_pub.ADD;
7481: lx_return_status := FND_API.G_RET_STS_ERROR;
7482: end;
7483:
7484: if ( lx_return_status = FND_API.G_RET_STS_SUCCESS ) then
7485:
7486: -- 3224898 contracts
7487: Validate_Contract_Service_Id(
7488: p_api_name => l_api_name_full,
7491: x_contract_id => l_contract_id,
7492: x_contract_number => l_con_number,
7493: x_return_status => lx_return_status);
7494:
7495: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7496: -- x_return_status := FND_API.G_RET_STS_ERROR;
7497: x_cross_val_out_rec.contract_service_id_valid := 'N';
7498: -- RETURN;
7499: ELSE
7492: x_contract_number => l_con_number,
7493: x_return_status => lx_return_status);
7494:
7495: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7496: -- x_return_status := FND_API.G_RET_STS_ERROR;
7497: x_cross_val_out_rec.contract_service_id_valid := 'N';
7498: -- RETURN;
7499: ELSE
7500: x_cross_val_out_rec.contract_id := l_contract_id;
7513: p_system_id => l_system_id,
7514: x_return_status => lx_return_status );
7515:
7516:
7517: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS)
7518: THEN
7519: --x_return_status := FND_API.G_RET_STS_ERROR;
7520: lx_return_status := FND_API.G_RET_STS_SUCCESS;
7521: x_cross_val_out_rec.contract_service_id_valid := 'N';
7515:
7516:
7517: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS)
7518: THEN
7519: --x_return_status := FND_API.G_RET_STS_ERROR;
7520: lx_return_status := FND_API.G_RET_STS_SUCCESS;
7521: x_cross_val_out_rec.contract_service_id_valid := 'N';
7522: x_cross_val_out_rec.contract_id := NULL;
7523: x_cross_val_out_rec.contract_number := NULL;
7516:
7517: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS)
7518: THEN
7519: --x_return_status := FND_API.G_RET_STS_ERROR;
7520: lx_return_status := FND_API.G_RET_STS_SUCCESS;
7521: x_cross_val_out_rec.contract_service_id_valid := 'N';
7522: x_cross_val_out_rec.contract_id := NULL;
7523: x_cross_val_out_rec.contract_number := NULL;
7524: --RETURN;
7523: x_cross_val_out_rec.contract_number := NULL;
7524: --RETURN;
7525: END IF;
7526: END IF; -- end of else after validate_contract_service_id procedure
7527: END IF; -- if ( lx_return_status = FND_API.G_RET_STS_SUCCESS ) then Business process process id else
7528: END IF; -- if ( l_cont_srv_ind IS NOT NULL or l_cont_srv_ind
7529: END IF; -- validate contracts end if
7530: *********/
7531:
7531:
7532: -- Tasks restrict close cross val
7533: -- When closing a SR, if there are any open tasks with the task restrict
7534: -- closure flag set to Y, then do not allow the closure of the SR.
7535: IF ( p_new_sr_rec.status_id <> FND_API.G_MISS_NUM ) AND
7536: ( nvl(p_new_sr_rec.status_id,-99) <>
7537: nvl(p_old_sr_rec.incident_status_id,-99) )
7538: THEN
7539:
7542: p_status_id => l_status_id,
7543: x_return_status => lx_return_status );
7544: END IF;
7545:
7546: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7547: x_return_status := FND_API.G_RET_STS_ERROR;
7548: RETURN;
7549: END IF;
7550:
7543: x_return_status => lx_return_status );
7544: END IF;
7545:
7546: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7547: x_return_status := FND_API.G_RET_STS_ERROR;
7548: RETURN;
7549: END IF;
7550:
7551: -- Incident Location cross val
7551: -- Incident Location cross val
7552: -- 9/19 changes.
7553: /* Commented out , as the SR UI , nor other UI's are doing this validation
7554:
7555: IF ( p_new_sr_rec.incident_location_id <> FND_API.G_MISS_NUM ) AND
7556: (nvl(p_new_sr_rec.incident_location_id,-99) <>
7557: nvl(p_old_sr_rec.incident_location_id,-99))
7558: OR
7559: ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
7555: IF ( p_new_sr_rec.incident_location_id <> FND_API.G_MISS_NUM ) AND
7556: (nvl(p_new_sr_rec.incident_location_id,-99) <>
7557: nvl(p_old_sr_rec.incident_location_id,-99))
7558: OR
7559: ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
7560: (nvl(p_new_sr_rec.customer_product_id,-99) <>
7561: nvl(p_old_sr_rec.customer_product_id,-99)))
7562: THEN
7563: IF l_cust_prod_id <> NULL THEN
7578:
7579: END IF;
7580: END IF;
7581:
7582: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7583: x_return_status := FND_API.G_RET_STS_ERROR;
7584: RETURN;
7585: END IF;
7586: */
7579: END IF;
7580: END IF;
7581:
7582: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7583: x_return_status := FND_API.G_RET_STS_ERROR;
7584: RETURN;
7585: END IF;
7586: */
7587:
7586: */
7587:
7588: --- Install site cross val
7589:
7590: IF ( p_new_sr_rec.install_site_id <> FND_API.G_MISS_NUM ) AND
7591: (nvl(p_new_sr_rec.install_site_id,-99) <>
7592: nvl(p_old_sr_rec.install_site_id,-99))
7593: OR
7594: ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
7590: IF ( p_new_sr_rec.install_site_id <> FND_API.G_MISS_NUM ) AND
7591: (nvl(p_new_sr_rec.install_site_id,-99) <>
7592: nvl(p_old_sr_rec.install_site_id,-99))
7593: OR
7594: ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
7595: (nvl(p_new_sr_rec.customer_product_id,-99) <>
7596: nvl(p_old_sr_rec.customer_product_id,-99)))
7597: THEN
7598: -- For bug 3342410 - included the cust_prod_id check
7595: (nvl(p_new_sr_rec.customer_product_id,-99) <>
7596: nvl(p_old_sr_rec.customer_product_id,-99)))
7597: THEN
7598: -- For bug 3342410 - included the cust_prod_id check
7599: if ( l_inst_site_id IS NOT NULL and l_inst_site_id <> FND_API.G_MISS_NUM )AND
7600: ( l_cust_prod_id IS NOT NULL and l_cust_prod_id <> FND_API.G_MISS_NUM) then
7601: CP_INSTALL_SITE_CROSS_VAL (
7602: p_parameter_name => 'install site id',
7603: p_install_site_id => l_inst_site_id,
7596: nvl(p_old_sr_rec.customer_product_id,-99)))
7597: THEN
7598: -- For bug 3342410 - included the cust_prod_id check
7599: if ( l_inst_site_id IS NOT NULL and l_inst_site_id <> FND_API.G_MISS_NUM )AND
7600: ( l_cust_prod_id IS NOT NULL and l_cust_prod_id <> FND_API.G_MISS_NUM) then
7601: CP_INSTALL_SITE_CROSS_VAL (
7602: p_parameter_name => 'install site id',
7603: p_install_site_id => l_inst_site_id,
7604: p_customer_product_id => l_cust_prod_id,
7604: p_customer_product_id => l_cust_prod_id,
7605: x_return_status => lx_return_status );
7606: END IF;
7607: END IF;
7608: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7609: x_return_status := FND_API.G_RET_STS_ERROR;
7610: RETURN;
7611: END IF;
7612:
7605: x_return_status => lx_return_status );
7606: END IF;
7607: END IF;
7608: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7609: x_return_status := FND_API.G_RET_STS_ERROR;
7610: RETURN;
7611: END IF;
7612:
7613: -- Task owner cross val. When SR Type changes, return back a warning message
7611: END IF;
7612:
7613: -- Task owner cross val. When SR Type changes, return back a warning message
7614: -- that the change may invalidate some task owners.
7615: IF ((p_new_sr_rec.type_id <> FND_API.G_MISS_NUM) AND
7616: (nvl(p_new_sr_rec.type_id,-99) <>
7617: nvl(p_old_sr_rec.incident_type_id,-99)))
7618: THEN
7619:
7620: TASK_OWNER_CROSS_VAL (
7621: p_incident_id => p_old_sr_rec.incident_id,
7622: x_return_status => lx_return_status );
7623:
7624: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7625: x_return_status := FND_API.G_RET_STS_ERROR;
7626: RETURN;
7627: END IF;
7628: END IF; -- task owner cross val
7621: p_incident_id => p_old_sr_rec.incident_id,
7622: x_return_status => lx_return_status );
7623:
7624: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7625: x_return_status := FND_API.G_RET_STS_ERROR;
7626: RETURN;
7627: END IF;
7628: END IF; -- task owner cross val
7629:
7631:
7632: -- Inventory item revision cross val
7633: -- Validate item revision when any of the following changes: item
7634: -- 3303078 inv_item_revision should be G_MISS_CHAR
7635: IF ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7636: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7637: nvl(p_old_sr_rec.inventory_item_id,-99)))
7638: OR
7639: ((p_new_sr_rec.inv_item_revision <> FND_API.G_MISS_CHAR) AND
7635: IF ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7636: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7637: nvl(p_old_sr_rec.inventory_item_id,-99)))
7638: OR
7639: ((p_new_sr_rec.inv_item_revision <> FND_API.G_MISS_CHAR) AND
7640: (nvl(p_new_sr_rec.inv_item_revision,-99) <>
7641: nvl(p_old_sr_rec.inv_item_revision,-99)))
7642: OR ( l_inv_change_by_cp = 'Y')
7643:
7641: nvl(p_old_sr_rec.inv_item_revision,-99)))
7642: OR ( l_inv_change_by_cp = 'Y')
7643:
7644: THEN
7645: if ( l_inv_item_rev IS NOT NULL and l_inv_item_rev <> FND_API.G_MISS_CHAR ) then
7646: VALIDATE_INV_ITEM_REV (
7647: p_api_name => NULL,
7648: p_parameter_name => 'inventory item revision',
7649: p_inv_item_revision => l_inv_item_rev,
7650: p_inventory_item_id => l_inv_item_id,
7651: p_inventory_org_id => l_inv_org_id,
7652: x_return_status => lx_return_status );
7653:
7654: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7655: x_return_status := FND_API.G_RET_STS_ERROR;
7656: RETURN;
7657: END IF;
7658: END IF;
7651: p_inventory_org_id => l_inv_org_id,
7652: x_return_status => lx_return_status );
7653:
7654: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7655: x_return_status := FND_API.G_RET_STS_ERROR;
7656: RETURN;
7657: END IF;
7658: END IF;
7659: END IF; -- validate item revision end if
7659: END IF; -- validate item revision end if
7660:
7661: --- inventory component validation
7662:
7663: IF ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7664: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7665: nvl(p_old_sr_rec.inventory_item_id,-99)))
7666: OR
7667: ((p_new_sr_rec.inv_component_id <> FND_API.G_MISS_NUM) AND
7663: IF ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7664: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7665: nvl(p_old_sr_rec.inventory_item_id,-99)))
7666: OR
7667: ((p_new_sr_rec.inv_component_id <> FND_API.G_MISS_NUM) AND
7668: (nvl(p_new_sr_rec.inv_component_id,-99) <>
7669: nvl(p_old_sr_rec.inv_component_id,-99)))
7670: OR ( l_inv_change_by_cp = 'Y')
7671: THEN
7670: OR ( l_inv_change_by_cp = 'Y')
7671: THEN
7672:
7673:
7674: if ( l_inv_comp_id IS NOT NULL and l_inv_comp_id <> FND_API.G_MISS_NUM ) then
7675: VALIDATE_INV_COMP_ID (
7676: p_api_name => NULL,
7677: p_parameter_name => 'inventory component id',
7678: p_inv_component_id => l_inv_comp_id,
7679: p_inventory_item_id => l_inv_item_id,
7680: p_inventory_org_id => l_inv_org_id,
7681: x_return_status => lx_return_status );
7682:
7683: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7684: x_return_status := FND_API.G_RET_STS_ERROR;
7685: RETURN;
7686: END IF;
7687: END IF;
7680: p_inventory_org_id => l_inv_org_id,
7681: x_return_status => lx_return_status );
7682:
7683: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7684: x_return_status := FND_API.G_RET_STS_ERROR;
7685: RETURN;
7686: END IF;
7687: END IF;
7688: END IF; -- validate item component end if
7690: -- Validate inv subcomponent smisra 12/21/03
7691: -- Made changes as one of the condition was missed out. On update even when the
7692: -- inv subsomp id had null the API will validate it. corected the code for this.
7693:
7694: IF ((p_new_sr_rec.inv_subcomponent_id <> FND_API.G_MISS_NUM) AND
7695: (nvl(p_new_sr_rec.inv_subcomponent_id, -99) <>
7696: nvl(p_old_sr_rec.inv_subcomponent_id,-99)))
7697: OR
7698: ((p_new_sr_rec.inv_component_id <> FND_API.G_MISS_NUM) AND
7694: IF ((p_new_sr_rec.inv_subcomponent_id <> FND_API.G_MISS_NUM) AND
7695: (nvl(p_new_sr_rec.inv_subcomponent_id, -99) <>
7696: nvl(p_old_sr_rec.inv_subcomponent_id,-99)))
7697: OR
7698: ((p_new_sr_rec.inv_component_id <> FND_API.G_MISS_NUM) AND
7699: (nvl(p_new_sr_rec.inv_component_id,-99) <>
7700: nvl(p_old_sr_rec.inv_component_id,-99)))
7701: OR
7702: ((p_new_sr_rec.inventory_org_id <> FND_API.G_MISS_NUM) AND
7698: ((p_new_sr_rec.inv_component_id <> FND_API.G_MISS_NUM) AND
7699: (nvl(p_new_sr_rec.inv_component_id,-99) <>
7700: nvl(p_old_sr_rec.inv_component_id,-99)))
7701: OR
7702: ((p_new_sr_rec.inventory_org_id <> FND_API.G_MISS_NUM) AND
7703: (nvl(p_new_sr_rec.inventory_org_id,-99) <>
7704: nvl(p_old_sr_rec.inv_organization_id,-99)))
7705: THEN
7706:
7703: (nvl(p_new_sr_rec.inventory_org_id,-99) <>
7704: nvl(p_old_sr_rec.inv_organization_id,-99)))
7705: THEN
7706:
7707: if ( l_inv_subcomp_id IS NOT NULL and l_inv_subcomp_id <> FND_API.G_MISS_NUM ) then
7708:
7709: CS_ServiceRequest_UTIL.Validate_Inv_SubComp_Id(
7710: p_api_name => NULL,
7711: p_parameter_name => 'p_inv_subcomponent_id',
7713: p_inv_subcomponent_id => l_inv_subcomp_id,
7714: p_inv_component_id => l_inv_comp_id,
7715: x_return_status => lx_return_status );
7716:
7717: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7718: x_return_status := FND_API.G_RET_STS_ERROR;
7719: RETURN;
7720: END IF;
7721: END IF;
7714: p_inv_component_id => l_inv_comp_id,
7715: x_return_status => lx_return_status );
7716:
7717: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7718: x_return_status := FND_API.G_RET_STS_ERROR;
7719: RETURN;
7720: END IF;
7721: END IF;
7722: END IF;
7723:
7724:
7725:
7726: --- Validate CP component id
7727: IF ((p_new_sr_rec.inv_component_id <> FND_API.G_MISS_NUM) AND
7728: (nvl(p_new_sr_rec.inv_component_id,-99) <>
7729: nvl(p_old_sr_rec.inv_component_id,-99)))
7730: OR ((p_new_sr_rec.cp_component_id <> FND_API.G_MISS_NUM) AND
7731: (nvl(p_new_sr_rec.cp_component_id,-99) <>
7726: --- Validate CP component id
7727: IF ((p_new_sr_rec.inv_component_id <> FND_API.G_MISS_NUM) AND
7728: (nvl(p_new_sr_rec.inv_component_id,-99) <>
7729: nvl(p_old_sr_rec.inv_component_id,-99)))
7730: OR ((p_new_sr_rec.cp_component_id <> FND_API.G_MISS_NUM) AND
7731: (nvl(p_new_sr_rec.cp_component_id,-99) <>
7732: nvl(p_old_sr_rec.cp_component_id,-99)))
7733: THEN
7734: if ( l_cp_comp_id IS NOT NULL and l_cp_comp_id <> FND_API.G_MISS_NUM ) then
7730: OR ((p_new_sr_rec.cp_component_id <> FND_API.G_MISS_NUM) AND
7731: (nvl(p_new_sr_rec.cp_component_id,-99) <>
7732: nvl(p_old_sr_rec.cp_component_id,-99)))
7733: THEN
7734: if ( l_cp_comp_id IS NOT NULL and l_cp_comp_id <> FND_API.G_MISS_NUM ) then
7735: CP_COMP_ID_CROSS_VAL (
7736: p_inv_component_id => l_inv_comp_id,
7737: p_cp_component_id => l_cp_comp_id,
7738: x_return_status => lx_return_status );
7736: p_inv_component_id => l_inv_comp_id,
7737: p_cp_component_id => l_cp_comp_id,
7738: x_return_status => lx_return_status );
7739:
7740: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7741: x_return_status := FND_API.G_RET_STS_ERROR;
7742: RETURN;
7743: END IF;
7744: END IF;
7737: p_cp_component_id => l_cp_comp_id,
7738: x_return_status => lx_return_status );
7739:
7740: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7741: x_return_status := FND_API.G_RET_STS_ERROR;
7742: RETURN;
7743: END IF;
7744: END IF;
7745: END IF; -- validate cp component id end if
7745: END IF; -- validate cp component id end if
7746:
7747: ---- Validate_Bill_To_Site
7748:
7749: IF ((l_bto_site_id <> FND_API.G_MISS_NUM AND l_bto_site_id IS NOT NULL))
7750: THEN
7751: IF (l_bto_party_id = FND_API.G_MISS_NUM OR l_bto_party_id IS NULL) THEN
7752: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
7753: fnd_message.set_token ('CHILD_PARAM','bill_to_site_id');
7747: ---- Validate_Bill_To_Site
7748:
7749: IF ((l_bto_site_id <> FND_API.G_MISS_NUM AND l_bto_site_id IS NOT NULL))
7750: THEN
7751: IF (l_bto_party_id = FND_API.G_MISS_NUM OR l_bto_party_id IS NULL) THEN
7752: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
7753: fnd_message.set_token ('CHILD_PARAM','bill_to_site_id');
7754: fnd_message.set_token ('PARENT_PARAM','bill_to_party_id');
7755: fnd_msg_pub.ADD;
7752: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
7753: fnd_message.set_token ('CHILD_PARAM','bill_to_site_id');
7754: fnd_message.set_token ('PARENT_PARAM','bill_to_party_id');
7755: fnd_msg_pub.ADD;
7756: x_return_status := FND_API.G_RET_STS_ERROR;
7757: RETURN;
7758: END IF;
7759: END IF;
7760: IF ((p_new_sr_rec.bill_to_party_id <> FND_API.G_MISS_NUM) AND
7756: x_return_status := FND_API.G_RET_STS_ERROR;
7757: RETURN;
7758: END IF;
7759: END IF;
7760: IF ((p_new_sr_rec.bill_to_party_id <> FND_API.G_MISS_NUM) AND
7761: (nvl(p_new_sr_rec.bill_to_party_id,-99) <>
7762: nvl(p_old_sr_rec.bill_to_party_id,-99)))
7763: OR
7764: ((p_new_sr_rec.bill_to_site_id <> FND_API.G_MISS_NUM) AND
7760: IF ((p_new_sr_rec.bill_to_party_id <> FND_API.G_MISS_NUM) AND
7761: (nvl(p_new_sr_rec.bill_to_party_id,-99) <>
7762: nvl(p_old_sr_rec.bill_to_party_id,-99)))
7763: OR
7764: ((p_new_sr_rec.bill_to_site_id <> FND_API.G_MISS_NUM) AND
7765: (nvl(p_new_sr_rec.bill_to_site_id,-99) <>
7766: nvl(p_old_sr_rec.bill_to_site_id,-99)))
7767: THEN
7768:
7765: (nvl(p_new_sr_rec.bill_to_site_id,-99) <>
7766: nvl(p_old_sr_rec.bill_to_site_id,-99)))
7767: THEN
7768:
7769: if ( l_bto_site_id IS NOT NULL and l_bto_site_id <> FND_API.G_MISS_NUM ) then
7770: VALIDATE_BILL_TO_SHIP_TO_SITE (
7771: p_api_name => NULL,
7772: p_parameter_name => 'bill to site id',
7773: p_bill_to_site_id => l_bto_site_id,
7775: p_site_use_type => 'BILL_TO',
7776: x_site_use_id => x_cross_val_out_rec.bill_to_site_use_id,
7777: x_return_status => lx_return_status );
7778:
7779: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7780: x_return_status := FND_API.G_RET_STS_ERROR;
7781: RETURN;
7782: END IF;
7783: END IF;
7776: x_site_use_id => x_cross_val_out_rec.bill_to_site_use_id,
7777: x_return_status => lx_return_status );
7778:
7779: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7780: x_return_status := FND_API.G_RET_STS_ERROR;
7781: RETURN;
7782: END IF;
7783: END IF;
7784: END IF; -- validate bill to site id end if
7784: END IF; -- validate bill to site id end if
7785:
7786: ---- Validate_ship_to_Site
7787:
7788: IF ((l_sto_site_id <> FND_API.G_MISS_NUM AND l_sto_site_id IS NOT NULL))
7789: THEN
7790: IF (l_sto_party_id = FND_API.G_MISS_NUM OR l_sto_party_id IS NULL) THEN
7791: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
7792: fnd_message.set_token ('CHILD_PARAM','ship_to_site_id');
7786: ---- Validate_ship_to_Site
7787:
7788: IF ((l_sto_site_id <> FND_API.G_MISS_NUM AND l_sto_site_id IS NOT NULL))
7789: THEN
7790: IF (l_sto_party_id = FND_API.G_MISS_NUM OR l_sto_party_id IS NULL) THEN
7791: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
7792: fnd_message.set_token ('CHILD_PARAM','ship_to_site_id');
7793: fnd_message.set_token ('PARENT_PARAM','ship_to_party_id');
7794: fnd_msg_pub.ADD;
7791: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
7792: fnd_message.set_token ('CHILD_PARAM','ship_to_site_id');
7793: fnd_message.set_token ('PARENT_PARAM','ship_to_party_id');
7794: fnd_msg_pub.ADD;
7795: x_return_status := FND_API.G_RET_STS_ERROR;
7796: RETURN;
7797: END IF;
7798: END IF;
7799:
7796: RETURN;
7797: END IF;
7798: END IF;
7799:
7800: IF ((p_new_sr_rec.ship_to_party_id <> FND_API.G_MISS_NUM) AND
7801: (nvl(p_new_sr_rec.ship_to_party_id,-99) <>
7802: nvl(p_old_sr_rec.ship_to_party_id,-99)))
7803: OR
7804: ((p_new_sr_rec.ship_to_site_id <> FND_API.G_MISS_NUM) AND
7800: IF ((p_new_sr_rec.ship_to_party_id <> FND_API.G_MISS_NUM) AND
7801: (nvl(p_new_sr_rec.ship_to_party_id,-99) <>
7802: nvl(p_old_sr_rec.ship_to_party_id,-99)))
7803: OR
7804: ((p_new_sr_rec.ship_to_site_id <> FND_API.G_MISS_NUM) AND
7805: (nvl(p_new_sr_rec.ship_to_site_id,-99) <>
7806: nvl(p_old_sr_rec.ship_to_site_id,-99)))
7807: THEN
7808:
7805: (nvl(p_new_sr_rec.ship_to_site_id,-99) <>
7806: nvl(p_old_sr_rec.ship_to_site_id,-99)))
7807: THEN
7808:
7809: if ( l_sto_site_id IS NOT NULL and l_sto_site_id <> FND_API.G_MISS_NUM ) then
7810: VALIDATE_BILL_TO_SHIP_TO_SITE (
7811: p_api_name => NULL,
7812: p_parameter_name => 'ship to site id',
7813: p_bill_to_site_id => l_sto_site_id,
7815: p_site_use_type => 'SHIP_TO',
7816: x_site_use_id => x_cross_val_out_rec.ship_to_site_use_id,
7817: x_return_status => lx_return_status );
7818:
7819: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7820: x_return_status := FND_API.G_RET_STS_ERROR;
7821: RETURN;
7822: END IF;
7823: END IF;
7816: x_site_use_id => x_cross_val_out_rec.ship_to_site_use_id,
7817: x_return_status => lx_return_status );
7818:
7819: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7820: x_return_status := FND_API.G_RET_STS_ERROR;
7821: RETURN;
7822: END IF;
7823: END IF;
7824: END IF; -- validate ship to site id end if
7823: END IF;
7824: END IF; -- validate ship to site id end if
7825:
7826: ---- Validate Bill to contact id
7827: IF ((l_bto_cont_id <> FND_API.G_MISS_NUM AND l_bto_cont_id IS NOT NULL)) THEN
7828: IF (l_bto_party_id = FND_API.G_MISS_NUM OR l_bto_party_id IS NULL) THEN
7829:
7830: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
7831: fnd_message.set_token ('CHILD_PARAM','bill_to_contact_id');
7824: END IF; -- validate ship to site id end if
7825:
7826: ---- Validate Bill to contact id
7827: IF ((l_bto_cont_id <> FND_API.G_MISS_NUM AND l_bto_cont_id IS NOT NULL)) THEN
7828: IF (l_bto_party_id = FND_API.G_MISS_NUM OR l_bto_party_id IS NULL) THEN
7829:
7830: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
7831: fnd_message.set_token ('CHILD_PARAM','bill_to_contact_id');
7832: fnd_message.set_token ('PARENT_PARAM','bill_to_party_id');
7831: fnd_message.set_token ('CHILD_PARAM','bill_to_contact_id');
7832: fnd_message.set_token ('PARENT_PARAM','bill_to_party_id');
7833: fnd_msg_pub.ADD;
7834:
7835: x_return_status := FND_API.G_RET_STS_ERROR;
7836: RETURN;
7837: END IF;
7838: END IF;
7839: IF ((p_new_sr_rec.bill_to_party_id <> FND_API.G_MISS_NUM) AND
7835: x_return_status := FND_API.G_RET_STS_ERROR;
7836: RETURN;
7837: END IF;
7838: END IF;
7839: IF ((p_new_sr_rec.bill_to_party_id <> FND_API.G_MISS_NUM) AND
7840: (nvl(p_new_sr_rec.bill_to_party_id,-99) <>
7841: nvl(p_old_sr_rec.bill_to_party_id,-99)))
7842: OR
7843: ((p_new_sr_rec.bill_to_contact_id <> FND_API.G_MISS_NUM) AND
7839: IF ((p_new_sr_rec.bill_to_party_id <> FND_API.G_MISS_NUM) AND
7840: (nvl(p_new_sr_rec.bill_to_party_id,-99) <>
7841: nvl(p_old_sr_rec.bill_to_party_id,-99)))
7842: OR
7843: ((p_new_sr_rec.bill_to_contact_id <> FND_API.G_MISS_NUM) AND
7844: (nvl(p_new_sr_rec.bill_to_contact_id,-99) <>
7845: nvl(p_old_sr_rec.bill_to_contact_id,-99)))
7846: THEN
7847:
7844: (nvl(p_new_sr_rec.bill_to_contact_id,-99) <>
7845: nvl(p_old_sr_rec.bill_to_contact_id,-99)))
7846: THEN
7847:
7848: IF ( l_bto_cont_id IS NOT NULL and l_bto_cont_id <> FND_API.G_MISS_NUM ) then
7849: VALIDATE_BILL_TO_SHIP_TO_CT (
7850: p_api_name => NULL,
7851: p_parameter_name => 'bill to contact id',
7852: p_bill_to_contact_id => l_bto_cont_id,
7853: p_bill_to_party_id => l_bto_party_id,
7854: p_customer_type => l_cust_type,
7855: x_return_status => lx_return_status );
7856:
7857: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7858: x_return_status := FND_API.G_RET_STS_ERROR;
7859: RETURN;
7860: END IF;
7861: END IF; -- IF ( l_bto_cont_id IS NOT NULL and l_bto_cont_id <>
7854: p_customer_type => l_cust_type,
7855: x_return_status => lx_return_status );
7856:
7857: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7858: x_return_status := FND_API.G_RET_STS_ERROR;
7859: RETURN;
7860: END IF;
7861: END IF; -- IF ( l_bto_cont_id IS NOT NULL and l_bto_cont_id <>
7862: END IF; -- validate bill to contact id end if
7861: END IF; -- IF ( l_bto_cont_id IS NOT NULL and l_bto_cont_id <>
7862: END IF; -- validate bill to contact id end if
7863:
7864: ---- Validate ship to contact id
7865: IF ((l_sto_cont_id <> FND_API.G_MISS_NUM AND l_sto_cont_id IS NOT NULL)) THEN
7866: IF (l_sto_party_id = FND_API.G_MISS_NUM OR l_sto_party_id IS NULL) THEN
7867:
7868: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
7869: fnd_message.set_token ('CHILD_PARAM','ship_to_contact_id');
7862: END IF; -- validate bill to contact id end if
7863:
7864: ---- Validate ship to contact id
7865: IF ((l_sto_cont_id <> FND_API.G_MISS_NUM AND l_sto_cont_id IS NOT NULL)) THEN
7866: IF (l_sto_party_id = FND_API.G_MISS_NUM OR l_sto_party_id IS NULL) THEN
7867:
7868: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
7869: fnd_message.set_token ('CHILD_PARAM','ship_to_contact_id');
7870: fnd_message.set_token ('PARENT_PARAM','ship_to_party_id');
7869: fnd_message.set_token ('CHILD_PARAM','ship_to_contact_id');
7870: fnd_message.set_token ('PARENT_PARAM','ship_to_party_id');
7871: fnd_msg_pub.ADD;
7872:
7873: x_return_status := FND_API.G_RET_STS_ERROR;
7874: RETURN;
7875: END IF;
7876: END IF;
7877: IF ((p_new_sr_rec.ship_to_party_id <> FND_API.G_MISS_NUM) AND
7873: x_return_status := FND_API.G_RET_STS_ERROR;
7874: RETURN;
7875: END IF;
7876: END IF;
7877: IF ((p_new_sr_rec.ship_to_party_id <> FND_API.G_MISS_NUM) AND
7878: (nvl(p_new_sr_rec.ship_to_party_id,-99) <>
7879: nvl(p_old_sr_rec.ship_to_party_id,-99)))
7880: OR
7881: ((p_new_sr_rec.ship_to_contact_id <> FND_API.G_MISS_NUM) AND
7877: IF ((p_new_sr_rec.ship_to_party_id <> FND_API.G_MISS_NUM) AND
7878: (nvl(p_new_sr_rec.ship_to_party_id,-99) <>
7879: nvl(p_old_sr_rec.ship_to_party_id,-99)))
7880: OR
7881: ((p_new_sr_rec.ship_to_contact_id <> FND_API.G_MISS_NUM) AND
7882: (nvl(p_new_sr_rec.ship_to_contact_id,-99) <>
7883: nvl(p_old_sr_rec.ship_to_contact_id,-99)))
7884:
7885: THEN
7883: nvl(p_old_sr_rec.ship_to_contact_id,-99)))
7884:
7885: THEN
7886:
7887: if ( l_sto_cont_id IS NOT NULL and l_sto_cont_id <> FND_API.G_MISS_NUM ) then
7888: VALIDATE_BILL_TO_SHIP_TO_CT (
7889: p_api_name => NULL,
7890: p_parameter_name => 'ship to contact id',
7891: p_bill_to_contact_id => l_sto_cont_id,
7892: p_bill_to_party_id => l_sto_party_id,
7893: p_customer_type => l_cust_type,
7894: x_return_status => lx_return_status );
7895:
7896: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7897: x_return_status := FND_API.G_RET_STS_ERROR;
7898: RETURN;
7899: END IF;
7900: END IF;
7893: p_customer_type => l_cust_type,
7894: x_return_status => lx_return_status );
7895:
7896: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7897: x_return_status := FND_API.G_RET_STS_ERROR;
7898: RETURN;
7899: END IF;
7900: END IF;
7901: END IF; -- validate ship to contact id end if
7901: END IF; -- validate ship to contact id end if
7902:
7903: --- Validate Bill to account id
7904:
7905: IF ((p_new_sr_rec.bill_to_party_id <> FND_API.G_MISS_NUM) AND
7906: (nvl(p_new_sr_rec.bill_to_party_id,-99) <>
7907: nvl(p_old_sr_rec.bill_to_party_id,-99)))
7908: OR
7909: ((p_new_sr_rec.bill_to_account_id <> FND_API.G_MISS_NUM) AND
7905: IF ((p_new_sr_rec.bill_to_party_id <> FND_API.G_MISS_NUM) AND
7906: (nvl(p_new_sr_rec.bill_to_party_id,-99) <>
7907: nvl(p_old_sr_rec.bill_to_party_id,-99)))
7908: OR
7909: ((p_new_sr_rec.bill_to_account_id <> FND_API.G_MISS_NUM) AND
7910: (nvl(p_new_sr_rec.bill_to_account_id,-99) <>
7911: nvl(p_old_sr_rec.bill_to_account_id,-99)))
7912:
7913: THEN
7911: nvl(p_old_sr_rec.bill_to_account_id,-99)))
7912:
7913: THEN
7914:
7915: if ( l_bto_acc_id IS NOT NULL and l_bto_acc_id <> FND_API.G_MISS_NUM ) then
7916: VALIDATE_BILL_TO_SHIP_TO_ACCT (
7917: p_api_name => NULL,
7918: p_parameter_name => 'bill to account id',
7919: p_account_id => l_bto_acc_id,
7919: p_account_id => l_bto_acc_id,
7920: p_party_id => l_bto_party_id,
7921: x_return_status => lx_return_status );
7922:
7923: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7924: x_return_status := FND_API.G_RET_STS_ERROR;
7925: RETURN;
7926: END IF;
7927: END IF;
7920: p_party_id => l_bto_party_id,
7921: x_return_status => lx_return_status );
7922:
7923: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7924: x_return_status := FND_API.G_RET_STS_ERROR;
7925: RETURN;
7926: END IF;
7927: END IF;
7928: END IF; -- validate bill to account id end if
7928: END IF; -- validate bill to account id end if
7929:
7930: --- Validate ship to account id
7931:
7932: IF ((p_new_sr_rec.ship_to_party_id <> FND_API.G_MISS_NUM) AND
7933: (nvl(p_new_sr_rec.ship_to_party_id,-99) <>
7934: nvl(p_old_sr_rec.ship_to_party_id,-99)))
7935: OR
7936: ((p_new_sr_rec.ship_to_account_id <> FND_API.G_MISS_NUM) AND
7932: IF ((p_new_sr_rec.ship_to_party_id <> FND_API.G_MISS_NUM) AND
7933: (nvl(p_new_sr_rec.ship_to_party_id,-99) <>
7934: nvl(p_old_sr_rec.ship_to_party_id,-99)))
7935: OR
7936: ((p_new_sr_rec.ship_to_account_id <> FND_API.G_MISS_NUM) AND
7937: (nvl(p_new_sr_rec.ship_to_account_id,-99) <>
7938: nvl(p_old_sr_rec.ship_to_account_id,-99)))
7939:
7940: THEN
7938: nvl(p_old_sr_rec.ship_to_account_id,-99)))
7939:
7940: THEN
7941:
7942: if ( l_sto_acc_id IS NOT NULL and l_sto_acc_id <> FND_API.G_MISS_NUM ) then
7943: VALIDATE_BILL_TO_SHIP_TO_ACCT (
7944: p_api_name => NULL,
7945: p_parameter_name => 'ship to account id',
7946: p_account_id => l_sto_acc_id,
7946: p_account_id => l_sto_acc_id,
7947: p_party_id => l_sto_party_id,
7948: x_return_status => lx_return_status );
7949:
7950: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7951: x_return_status := FND_API.G_RET_STS_ERROR;
7952: RETURN;
7953: END IF;
7954: END IF;
7947: p_party_id => l_sto_party_id,
7948: x_return_status => lx_return_status );
7949:
7950: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7951: x_return_status := FND_API.G_RET_STS_ERROR;
7952: RETURN;
7953: END IF;
7954: END IF;
7955: END IF; -- validate ship to account id end if
7954: END IF;
7955: END IF; -- validate ship to account id end if
7956:
7957: --- Validate External Reference
7958: IF ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
7959: (nvl(p_new_sr_rec.customer_product_id,-99) <>
7960: nvl(p_old_sr_rec.customer_product_id,-99)))
7961: OR
7962: ((p_new_sr_rec.external_reference <> FND_API.G_MISS_CHAR) AND
7958: IF ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
7959: (nvl(p_new_sr_rec.customer_product_id,-99) <>
7960: nvl(p_old_sr_rec.customer_product_id,-99)))
7961: OR
7962: ((p_new_sr_rec.external_reference <> FND_API.G_MISS_CHAR) AND
7963: (nvl(p_new_sr_rec.external_reference,-99) <>
7964: nvl(p_old_sr_rec.external_reference,-99)))
7965:
7966: THEN
7964: nvl(p_old_sr_rec.external_reference,-99)))
7965:
7966: THEN
7967:
7968: if ( l_external_ref IS NOT NULL and l_external_ref <> FND_API.G_MISS_CHAR ) then
7969: -- For bug 3746983
7970: VALIDATE_EXTERNAL_REFERENCE (
7971: p_api_name => NULL,
7972: p_parameter_name => 'external reference',
7976: p_inventory_org_id => l_inv_org_id,
7977: p_customer_id => l_customer_id,
7978: x_return_status => lx_return_status );
7979:
7980: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7981: x_return_status := FND_API.G_RET_STS_ERROR;
7982: RETURN;
7983: END IF;
7984: END IF;
7977: p_customer_id => l_customer_id,
7978: x_return_status => lx_return_status );
7979:
7980: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7981: x_return_status := FND_API.G_RET_STS_ERROR;
7982: RETURN;
7983: END IF;
7984: END IF;
7985: END IF; -- validate external reference end if
7986:
7987: --- Validate Product Revision
7988: /**** Aug 13th 2004. Replaced with validate_product_version. This proc will return
7989: product revision if product revision is not passed
7990: IF ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7991: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7992: nvl(p_old_sr_rec.inventory_item_id,-99)))
7993: OR
7994: ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
7990: IF ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7991: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7992: nvl(p_old_sr_rec.inventory_item_id,-99)))
7993: OR
7994: ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
7995: (nvl(p_new_sr_rec.customer_product_id,-99) <>
7996: nvl(p_old_sr_rec.customer_product_id,-99)))
7997: OR
7998: ((p_new_sr_rec.product_revision <> FND_API.G_MISS_CHAR) AND
7994: ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
7995: (nvl(p_new_sr_rec.customer_product_id,-99) <>
7996: nvl(p_old_sr_rec.customer_product_id,-99)))
7997: OR
7998: ((p_new_sr_rec.product_revision <> FND_API.G_MISS_CHAR) AND
7999: (nvl(p_new_sr_rec.product_revision,-99) <>
8000: nvl(p_old_sr_rec.product_revision,-99)))
8001: OR ( l_inv_change_by_cp = 'Y')
8002:
8001: OR ( l_inv_change_by_cp = 'Y')
8002:
8003: THEN
8004:
8005: if ( l_prod_revision IS NOT NULL and l_prod_revision <> FND_API.G_MISS_CHAR ) then
8006: VALIDATE_PRODUCT_REVISION (
8007: p_api_name => NULL,
8008: p_parameter_name => 'product revision',
8009: p_customer_product_id => l_cust_prod_id,
8011: p_inventory_item_id => l_inv_item_id,
8012: p_inventory_org_id => l_inv_org_id,
8013: x_return_status => lx_return_status );
8014:
8015: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8016: x_return_status := FND_API.G_RET_STS_ERROR;
8017: RETURN;
8018: END IF;
8019: END IF;
8012: p_inventory_org_id => l_inv_org_id,
8013: x_return_status => lx_return_status );
8014:
8015: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8016: x_return_status := FND_API.G_RET_STS_ERROR;
8017: RETURN;
8018: END IF;
8019: END IF;
8020: END IF; -- validate product revision end if
8019: END IF;
8020: END IF; -- validate product revision end if
8021: ****/
8022: l_prod_revision := p_new_sr_rec.product_revision;
8023: IF ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
8024: (nvl(p_new_sr_rec.customer_product_id,-99) <>
8025: nvl(p_old_sr_rec.customer_product_id,-99)))
8026: OR
8027: (l_prod_revision is not null AND
8036: p_inventory_org_id => l_inv_org_id,
8037: p_product_version => l_prod_revision,
8038: x_return_status => lx_return_status );
8039:
8040: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8041: x_return_status := FND_API.G_RET_STS_ERROR;
8042: RETURN;
8043: END IF;
8044: END IF; -- validate product revision end if
8037: p_product_version => l_prod_revision,
8038: x_return_status => lx_return_status );
8039:
8040: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8041: x_return_status := FND_API.G_RET_STS_ERROR;
8042: RETURN;
8043: END IF;
8044: END IF; -- validate product revision end if
8045: x_cross_val_out_rec.product_revision := l_prod_revision;
8045: x_cross_val_out_rec.product_revision := l_prod_revision;
8046:
8047: --- Validate current serial number
8048:
8049: IF ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
8050: (nvl(p_new_sr_rec.customer_product_id,-99) <>
8051: nvl(p_old_sr_rec.customer_product_id,-99)))
8052: OR
8053: ((p_new_sr_rec.current_serial_number <> FND_API.G_MISS_CHAR) AND
8049: IF ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
8050: (nvl(p_new_sr_rec.customer_product_id,-99) <>
8051: nvl(p_old_sr_rec.customer_product_id,-99)))
8052: OR
8053: ((p_new_sr_rec.current_serial_number <> FND_API.G_MISS_CHAR) AND
8054: (nvl(p_new_sr_rec.current_serial_number,-99) <>
8055: nvl(p_old_sr_rec.current_serial_number,-99)))
8056:
8057: THEN
8055: nvl(p_old_sr_rec.current_serial_number,-99)))
8056:
8057: THEN
8058:
8059: IF ( l_cur_serial IS NOT NULL AND l_cur_serial <> FND_API.G_MISS_CHAR ) AND
8060: ( l_cust_prod_id IS NOT NULL AND l_cust_prod_id <> FND_API.G_MISS_NUM )
8061: THEN
8062: -- For bug 3746983
8063: VALIDATE_CURRENT_SERIAL (
8056:
8057: THEN
8058:
8059: IF ( l_cur_serial IS NOT NULL AND l_cur_serial <> FND_API.G_MISS_CHAR ) AND
8060: ( l_cust_prod_id IS NOT NULL AND l_cust_prod_id <> FND_API.G_MISS_NUM )
8061: THEN
8062: -- For bug 3746983
8063: VALIDATE_CURRENT_SERIAL (
8064: p_api_name => NULL,
8069: p_customer_id => l_customer_id,
8070: p_current_serial_number => l_cur_serial,
8071: x_return_status => lx_return_status );
8072:
8073: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8074: x_return_status := FND_API.G_RET_STS_ERROR;
8075: RETURN;
8076: END IF;
8077: END IF;
8070: p_current_serial_number => l_cur_serial,
8071: x_return_status => lx_return_status );
8072:
8073: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8074: x_return_status := FND_API.G_RET_STS_ERROR;
8075: RETURN;
8076: END IF;
8077: END IF;
8078: END IF; -- validate current serial number end if
8080: -- For bug 3592032 - moved call to INV_SUBCOMPONENT_CROSS_VAL after validate_cp_subcomp_id
8081:
8082:
8083: -- Validate Inventory component version
8084: IF ((p_new_sr_rec.inv_component_id <> FND_API.G_MISS_NUM) AND
8085: (nvl(p_new_sr_rec.inv_component_id,-99) <>
8086: nvl(p_old_sr_rec.inv_component_id,-99)))
8087: OR
8088: ((p_new_sr_rec.inv_component_version <> FND_API.G_MISS_CHAR) AND
8084: IF ((p_new_sr_rec.inv_component_id <> FND_API.G_MISS_NUM) AND
8085: (nvl(p_new_sr_rec.inv_component_id,-99) <>
8086: nvl(p_old_sr_rec.inv_component_id,-99)))
8087: OR
8088: ((p_new_sr_rec.inv_component_version <> FND_API.G_MISS_CHAR) AND
8089: (nvl(p_new_sr_rec.inv_component_version,-99) <>
8090: nvl(p_old_sr_rec.inv_component_version,-99)))
8091:
8092: THEN
8090: nvl(p_old_sr_rec.inv_component_version,-99)))
8091:
8092: THEN
8093:
8094: if ( l_inv_comp_ver IS NOT NULL and l_inv_comp_ver <> FND_API.G_MISS_CHAR ) then
8095: VALIDATE_INV_COMP_VER (
8096: p_api_name => NULL,
8097: p_parameter_name => 'inventory component version',
8098: p_inv_component_id => l_inv_comp_id,
8099: p_inventory_org_id => l_inv_org_id,
8100: p_inv_component_version => l_inv_comp_ver,
8101: x_return_status => lx_return_status );
8102:
8103: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8104: x_return_status := FND_API.G_RET_STS_ERROR;
8105: RETURN;
8106: END IF;
8107: END IF;
8100: p_inv_component_version => l_inv_comp_ver,
8101: x_return_status => lx_return_status );
8102:
8103: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8104: x_return_status := FND_API.G_RET_STS_ERROR;
8105: RETURN;
8106: END IF;
8107: END IF;
8108: END IF; -- validate item component version end if
8108: END IF; -- validate item component version end if
8109:
8110: ---- Validate CP component id
8111:
8112: IF ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
8113: (nvl(p_new_sr_rec.customer_product_id,-99) <>
8114: nvl(p_old_sr_rec.customer_product_id,-99)))
8115: OR
8116: ((p_new_sr_rec.cp_component_id <> FND_API.G_MISS_NUM) AND
8112: IF ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
8113: (nvl(p_new_sr_rec.customer_product_id,-99) <>
8114: nvl(p_old_sr_rec.customer_product_id,-99)))
8115: OR
8116: ((p_new_sr_rec.cp_component_id <> FND_API.G_MISS_NUM) AND
8117: (nvl(p_new_sr_rec.cp_component_id,-99) <>
8118: nvl(p_old_sr_rec.cp_component_id,-99)))
8119:
8120: THEN
8117: (nvl(p_new_sr_rec.cp_component_id,-99) <>
8118: nvl(p_old_sr_rec.cp_component_id,-99)))
8119:
8120: THEN
8121: if ( l_cp_comp_id IS NOT NULL and l_cp_comp_id <> FND_API.G_MISS_NUM ) then
8122: VALIDATE_CP_COMP_ID (
8123: p_api_name => NULL,
8124: p_parameter_name => 'CP component id',
8125: p_customer_product_id => l_cust_prod_id,
8126: p_cp_component_id => l_cp_comp_id,
8127: p_org_id => NULL,
8128: x_return_status => lx_return_status );
8129:
8130: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8131: x_return_status := FND_API.G_RET_STS_ERROR;
8132: RETURN;
8133: END IF;
8134: END IF;
8127: p_org_id => NULL,
8128: x_return_status => lx_return_status );
8129:
8130: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8131: x_return_status := FND_API.G_RET_STS_ERROR;
8132: RETURN;
8133: END IF;
8134: END IF;
8135: END IF; -- validate CP component id end if
8136:
8137: ---- Validate CP component version
8138: -- For bug 3337848 - change from component_version_id to component_version
8139: /***
8140: IF ((p_new_sr_rec.cp_component_id <> FND_API.G_MISS_NUM) AND
8141: (nvl(p_new_sr_rec.cp_component_id,-99) <>
8142: nvl(p_old_sr_rec.cp_component_id,-99)))
8143: OR
8144: ((p_new_sr_rec.component_version <> FND_API.G_MISS_CHAR) AND
8140: IF ((p_new_sr_rec.cp_component_id <> FND_API.G_MISS_NUM) AND
8141: (nvl(p_new_sr_rec.cp_component_id,-99) <>
8142: nvl(p_old_sr_rec.cp_component_id,-99)))
8143: OR
8144: ((p_new_sr_rec.component_version <> FND_API.G_MISS_CHAR) AND
8145: (nvl(p_new_sr_rec.component_version,-99) <>
8146: nvl(p_old_sr_rec.component_version,-99)))
8147:
8148: THEN
8146: nvl(p_old_sr_rec.component_version,-99)))
8147:
8148: THEN
8149:
8150: if ( l_cp_comp_ver IS NOT NULL and l_cp_comp_ver <> FND_API.G_MISS_CHAR ) then
8151: VALIDATE_COMPONENT_VERSION
8152: ( p_api_name => NULL,
8153: p_parameter_name => 'CP component version',
8154: p_component_version => l_cp_comp_ver,
8157: p_inventory_org_id => l_inv_org_id,
8158: x_return_status => lx_return_status );
8159:
8160:
8161: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8162: x_return_status := FND_API.G_RET_STS_ERROR;
8163: RETURN;
8164: END IF;
8165: END IF;
8158: x_return_status => lx_return_status );
8159:
8160:
8161: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8162: x_return_status := FND_API.G_RET_STS_ERROR;
8163: RETURN;
8164: END IF;
8165: END IF;
8166: END IF; -- validate CP component vesion end if
8165: END IF;
8166: END IF; -- validate CP component vesion end if
8167: ********************/
8168: l_cp_comp_ver := p_new_sr_rec.component_version;
8169: IF ((p_new_sr_rec.cp_component_id <> FND_API.G_MISS_NUM) AND
8170: (nvl(p_new_sr_rec.cp_component_id,-99) <>
8171: nvl(p_old_sr_rec.cp_component_id,-99)))
8172: OR
8173: ((l_cp_comp_id is not null) AND
8180: p_instance_id => l_cp_comp_id,
8181: p_inventory_org_id => l_inv_org_id,
8182: p_product_version => l_cp_comp_ver,
8183: x_return_status => lx_return_status );
8184: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8185: x_return_status := FND_API.G_RET_STS_ERROR;
8186: RETURN;
8187: END IF;
8188: END IF; -- validate CP component vesion end if
8181: p_inventory_org_id => l_inv_org_id,
8182: p_product_version => l_cp_comp_ver,
8183: x_return_status => lx_return_status );
8184: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8185: x_return_status := FND_API.G_RET_STS_ERROR;
8186: RETURN;
8187: END IF;
8188: END IF; -- validate CP component vesion end if
8189: x_cross_val_out_rec.component_version := l_cp_comp_ver;
8192:
8193:
8194:
8195: --- Validate Category set id
8196: IF ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
8197: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
8198: nvl(p_old_sr_rec.inventory_item_id,-99)))
8199: OR
8200: ((nvl(p_new_sr_rec.category_id,-99) <> FND_API.G_MISS_NUM) AND
8196: IF ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
8197: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
8198: nvl(p_old_sr_rec.inventory_item_id,-99)))
8199: OR
8200: ((nvl(p_new_sr_rec.category_id,-99) <> FND_API.G_MISS_NUM) AND
8201: (nvl(p_new_sr_rec.category_id,-99) <>
8202: nvl(p_old_sr_rec.category_id,-99)))
8203: OR
8204: ((p_new_sr_rec.category_set_id <> FND_API.G_MISS_NUM) AND
8200: ((nvl(p_new_sr_rec.category_id,-99) <> FND_API.G_MISS_NUM) AND
8201: (nvl(p_new_sr_rec.category_id,-99) <>
8202: nvl(p_old_sr_rec.category_id,-99)))
8203: OR
8204: ((p_new_sr_rec.category_set_id <> FND_API.G_MISS_NUM) AND
8205: (nvl(p_new_sr_rec.category_set_id,-99) <>
8206: nvl(p_old_sr_rec.category_set_id,-99)))
8207: OR ( l_inv_change_by_cp = 'Y')
8208: THEN
8206: nvl(p_old_sr_rec.category_set_id,-99)))
8207: OR ( l_inv_change_by_cp = 'Y')
8208: THEN
8209:
8210: if ( l_cat_set_id IS NOT NULL and l_cat_set_id <> FND_API.G_MISS_NUM ) then
8211: VALIDATE_CATEGORY_SET_ID (
8212: p_api_name => NULL,
8213: p_parameter_name => 'Category set id',
8214: p_category_id => l_category_id,
8216: p_inventory_item_id => l_inv_item_id,
8217: p_inventory_org_id => l_inv_org_id,
8218: x_return_status => lx_return_status );
8219:
8220: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8221: x_return_status := FND_API.G_RET_STS_ERROR;
8222: RETURN;
8223: END IF;
8224: END IF;
8217: p_inventory_org_id => l_inv_org_id,
8218: x_return_status => lx_return_status );
8219:
8220: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8221: x_return_status := FND_API.G_RET_STS_ERROR;
8222: RETURN;
8223: END IF;
8224: END IF;
8225: END IF; -- validate category set id end if
8226:
8227: -- Validate the category_id
8228: -- 1. If the category_id has changed
8229: -- 2. check category_set_id is null ( passed/DB value)
8230: IF ((p_new_sr_rec.category_id <> FND_API.G_MISS_NUM) AND
8231: (nvl(p_new_sr_rec.category_id,-99) <>
8232: nvl(p_old_sr_rec.category_id,-99)) OR
8233: (nvl(p_new_sr_rec.category_set_id,-99) <> FND_API.G_MISS_NUM) AND
8234: (nvl(p_new_sr_rec.category_set_id,-99) <>
8229: -- 2. check category_set_id is null ( passed/DB value)
8230: IF ((p_new_sr_rec.category_id <> FND_API.G_MISS_NUM) AND
8231: (nvl(p_new_sr_rec.category_id,-99) <>
8232: nvl(p_old_sr_rec.category_id,-99)) OR
8233: (nvl(p_new_sr_rec.category_set_id,-99) <> FND_API.G_MISS_NUM) AND
8234: (nvl(p_new_sr_rec.category_set_id,-99) <>
8235: nvl(p_old_sr_rec.category_set_id,-99)))
8236: THEN
8237: if ( l_cat_set_id IS NULL OR l_cat_set_id = FND_API.G_MISS_NUM ) then
8233: (nvl(p_new_sr_rec.category_set_id,-99) <> FND_API.G_MISS_NUM) AND
8234: (nvl(p_new_sr_rec.category_set_id,-99) <>
8235: nvl(p_old_sr_rec.category_set_id,-99)))
8236: THEN
8237: if ( l_cat_set_id IS NULL OR l_cat_set_id = FND_API.G_MISS_NUM ) then
8238: VALIDATE_CATEGORY_ID
8239: ( p_api_name => NULL,
8240: p_parameter_name => 'Category id',
8241: p_category_id => l_category_id,
8241: p_category_id => l_category_id,
8242: p_category_set_id => l_cat_set_id,
8243: x_return_status => lx_return_status
8244: );
8245: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8246: x_return_status := FND_API.G_RET_STS_ERROR;
8247: RETURN;
8248: END IF;
8249: END IF;
8242: p_category_set_id => l_cat_set_id,
8243: x_return_status => lx_return_status
8244: );
8245: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8246: x_return_status := FND_API.G_RET_STS_ERROR;
8247: RETURN;
8248: END IF;
8249: END IF;
8250: END IF; -- validate category id end if
8251:
8252:
8253:
8254: --- Validate Inventory component id
8255: IF ((p_new_sr_rec.inv_component_id <> FND_API.G_MISS_NUM) AND
8256: (nvl(p_new_sr_rec.inv_component_id,-99) <>
8257: nvl(p_old_sr_rec.inv_component_id,-99)))
8258: OR
8259: ((p_new_sr_rec.cp_component_id <> FND_API.G_MISS_NUM) AND
8255: IF ((p_new_sr_rec.inv_component_id <> FND_API.G_MISS_NUM) AND
8256: (nvl(p_new_sr_rec.inv_component_id,-99) <>
8257: nvl(p_old_sr_rec.inv_component_id,-99)))
8258: OR
8259: ((p_new_sr_rec.cp_component_id <> FND_API.G_MISS_NUM) AND
8260: (nvl(p_new_sr_rec.cp_component_id,-99) <>
8261: nvl(p_old_sr_rec.cp_component_id,-99)))
8262:
8263: THEN
8260: (nvl(p_new_sr_rec.cp_component_id,-99) <>
8261: nvl(p_old_sr_rec.cp_component_id,-99)))
8262:
8263: THEN
8264: if ( l_cp_comp_id IS NOT NULL and l_cp_comp_id <> FND_API.G_MISS_NUM ) and
8265: ( l_inv_comp_id IS NOT NULL and l_inv_comp_id <> FND_API.G_MISS_NUM ) then
8266: INV_COMPONENT_CROSS_VAL (
8267: p_parameter_name => 'Inventory component',
8268: p_cp_component_id => l_cp_comp_id,
8261: nvl(p_old_sr_rec.cp_component_id,-99)))
8262:
8263: THEN
8264: if ( l_cp_comp_id IS NOT NULL and l_cp_comp_id <> FND_API.G_MISS_NUM ) and
8265: ( l_inv_comp_id IS NOT NULL and l_inv_comp_id <> FND_API.G_MISS_NUM ) then
8266: INV_COMPONENT_CROSS_VAL (
8267: p_parameter_name => 'Inventory component',
8268: p_cp_component_id => l_cp_comp_id,
8269: p_inv_component_id => l_inv_comp_id,
8268: p_cp_component_id => l_cp_comp_id,
8269: p_inv_component_id => l_inv_comp_id,
8270: x_return_status => lx_return_status );
8271:
8272: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8273: x_return_status := FND_API.G_RET_STS_ERROR;
8274: RETURN;
8275: END IF;
8276: END IF;
8269: p_inv_component_id => l_inv_comp_id,
8270: x_return_status => lx_return_status );
8271:
8272: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8273: x_return_status := FND_API.G_RET_STS_ERROR;
8274: RETURN;
8275: END IF;
8276: END IF;
8277: END IF; -- validate Inventory component end if
8277: END IF; -- validate Inventory component end if
8278:
8279: --- Validate CP subcomponent id
8280:
8281: IF ((p_new_sr_rec.cp_subcomponent_id <> FND_API.G_MISS_NUM) AND
8282: (nvl(p_new_sr_rec.cp_subcomponent_id,-99) <>
8283: nvl(p_old_sr_rec.cp_subcomponent_id,-99)))
8284: OR
8285: ((p_new_sr_rec.cp_component_id <> FND_API.G_MISS_NUM) AND
8281: IF ((p_new_sr_rec.cp_subcomponent_id <> FND_API.G_MISS_NUM) AND
8282: (nvl(p_new_sr_rec.cp_subcomponent_id,-99) <>
8283: nvl(p_old_sr_rec.cp_subcomponent_id,-99)))
8284: OR
8285: ((p_new_sr_rec.cp_component_id <> FND_API.G_MISS_NUM) AND
8286: (nvl(p_new_sr_rec.cp_component_id,-99) <>
8287: nvl(p_old_sr_rec.cp_component_id,-99)))
8288: OR
8289: ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
8285: ((p_new_sr_rec.cp_component_id <> FND_API.G_MISS_NUM) AND
8286: (nvl(p_new_sr_rec.cp_component_id,-99) <>
8287: nvl(p_old_sr_rec.cp_component_id,-99)))
8288: OR
8289: ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
8290: (nvl(p_new_sr_rec.customer_product_id,-99) <>
8291: nvl(p_old_sr_rec.customer_product_id,-99)))
8292: THEN
8293:
8290: (nvl(p_new_sr_rec.customer_product_id,-99) <>
8291: nvl(p_old_sr_rec.customer_product_id,-99)))
8292: THEN
8293:
8294: if ( l_cp_scomp_id IS NOT NULL and l_cp_scomp_id <> FND_API.G_MISS_NUM ) then
8295: VALIDATE_CP_SUBCOMP_ID (
8296: p_api_name => NULL,
8297: p_parameter_name => 'CP subcomponent id',
8298: p_cp_component_id => l_cp_comp_id,
8300: p_customer_product_id => l_cust_prod_id,
8301: p_org_id => NULL,
8302: x_return_status => lx_return_status );
8303:
8304: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8305: x_return_status := FND_API.G_RET_STS_ERROR;
8306: RETURN;
8307: END IF;
8308: END IF;
8301: p_org_id => NULL,
8302: x_return_status => lx_return_status );
8303:
8304: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8305: x_return_status := FND_API.G_RET_STS_ERROR;
8306: RETURN;
8307: END IF;
8308: END IF;
8309: END IF; -- validate CP subcomponent end if
8309: END IF; -- validate CP subcomponent end if
8310:
8311: -- For bug 3592032
8312: --- Validate Inventory subcomponent id
8313: IF ((p_new_sr_rec.inv_subcomponent_id <> FND_API.G_MISS_NUM) AND
8314: (nvl(p_new_sr_rec.inv_subcomponent_id,-99) <>
8315: nvl(p_old_sr_rec.inv_subcomponent_id,-99)))
8316: OR
8317: ((p_new_sr_rec.cp_subcomponent_id <> FND_API.G_MISS_NUM) AND
8313: IF ((p_new_sr_rec.inv_subcomponent_id <> FND_API.G_MISS_NUM) AND
8314: (nvl(p_new_sr_rec.inv_subcomponent_id,-99) <>
8315: nvl(p_old_sr_rec.inv_subcomponent_id,-99)))
8316: OR
8317: ((p_new_sr_rec.cp_subcomponent_id <> FND_API.G_MISS_NUM) AND
8318: (nvl(p_new_sr_rec.cp_subcomponent_id,-99) <>
8319: nvl(p_old_sr_rec.cp_subcomponent_id,-99)))
8320:
8321: THEN
8318: (nvl(p_new_sr_rec.cp_subcomponent_id,-99) <>
8319: nvl(p_old_sr_rec.cp_subcomponent_id,-99)))
8320:
8321: THEN
8322: if ( l_cp_subcomp_id IS NOT NULL and l_cp_subcomp_id <> FND_API.G_MISS_NUM ) and
8323: ( l_inv_subcomp_id IS NOT NULL and l_inv_subcomp_id <> FND_API.G_MISS_NUM ) then
8324: INV_SUBCOMPONENT_CROSS_VAL (
8325: p_parameter_name => 'inv subcomponent',
8326: p_inv_subcomponent_id => l_inv_subcomp_id,
8319: nvl(p_old_sr_rec.cp_subcomponent_id,-99)))
8320:
8321: THEN
8322: if ( l_cp_subcomp_id IS NOT NULL and l_cp_subcomp_id <> FND_API.G_MISS_NUM ) and
8323: ( l_inv_subcomp_id IS NOT NULL and l_inv_subcomp_id <> FND_API.G_MISS_NUM ) then
8324: INV_SUBCOMPONENT_CROSS_VAL (
8325: p_parameter_name => 'inv subcomponent',
8326: p_inv_subcomponent_id => l_inv_subcomp_id,
8327: p_cp_subcomponent_id => l_cp_subcomp_id,
8326: p_inv_subcomponent_id => l_inv_subcomp_id,
8327: p_cp_subcomponent_id => l_cp_subcomp_id,
8328: x_return_status => lx_return_status );
8329:
8330: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8331: x_return_status := FND_API.G_RET_STS_ERROR;
8332: RETURN;
8333: END IF;
8334: END IF;
8327: p_cp_subcomponent_id => l_cp_subcomp_id,
8328: x_return_status => lx_return_status );
8329:
8330: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8331: x_return_status := FND_API.G_RET_STS_ERROR;
8332: RETURN;
8333: END IF;
8334: END IF;
8335: END IF; -- validate inventory subcomponent end if
8334: END IF;
8335: END IF; -- validate inventory subcomponent end if
8336:
8337: --- Validate Inv subcomponent version
8338: IF ((p_new_sr_rec.inv_subcomponent_id <> FND_API.G_MISS_NUM) AND
8339: (nvl(p_new_sr_rec.inv_subcomponent_id,-99) <>
8340: nvl(p_old_sr_rec.inv_subcomponent_id,-99)))
8341: OR
8342: ((p_new_sr_rec.inv_subcomponent_version <> FND_API.G_MISS_CHAR) AND
8338: IF ((p_new_sr_rec.inv_subcomponent_id <> FND_API.G_MISS_NUM) AND
8339: (nvl(p_new_sr_rec.inv_subcomponent_id,-99) <>
8340: nvl(p_old_sr_rec.inv_subcomponent_id,-99)))
8341: OR
8342: ((p_new_sr_rec.inv_subcomponent_version <> FND_API.G_MISS_CHAR) AND
8343: (nvl(p_new_sr_rec.inv_subcomponent_version,-99) <>
8344: nvl(p_old_sr_rec.inv_subcomponent_version,-99)))
8345:
8346: THEN
8344: nvl(p_old_sr_rec.inv_subcomponent_version,-99)))
8345:
8346: THEN
8347:
8348: if ( l_inv_scomp_ver IS NOT NULL and l_inv_scomp_ver <> FND_API.G_MISS_CHAR ) then
8349: VALIDATE_INV_SUBCOMP_VER (
8350: p_api_name => NULL,
8351: p_parameter_name => 'Inv subcomponent version',
8352: p_inv_subcomponent_version => l_inv_scomp_ver,
8353: p_inv_subcomponent_id => l_inv_scomp_id,
8354: p_inventory_org_id => l_inv_org_id,
8355: x_return_status => lx_return_status );
8356:
8357: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8358: x_return_status := FND_API.G_RET_STS_ERROR;
8359: RETURN;
8360: END IF;
8361: END IF;
8354: p_inventory_org_id => l_inv_org_id,
8355: x_return_status => lx_return_status );
8356:
8357: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8358: x_return_status := FND_API.G_RET_STS_ERROR;
8359: RETURN;
8360: END IF;
8361: END IF;
8362: END IF; -- validate Inv subcomponent version end if
8367: --- Validate the CP suncomponent version
8368: -- For bug 3337848 - change from component_version_id to component_version
8369:
8370: /*** smisra 5/4/04 bug 3566783
8371: IF ((p_new_sr_rec.cp_subcomponent_id <> FND_API.G_MISS_NUM) AND
8372: (nvl(p_new_sr_rec.cp_subcomponent_id,-99) <>
8373: nvl(p_old_sr_rec.cp_subcomponent_id,-99)))
8374: OR
8375: ((p_new_sr_rec.subcomponent_version <> FND_API.G_MISS_CHAR) AND
8371: IF ((p_new_sr_rec.cp_subcomponent_id <> FND_API.G_MISS_NUM) AND
8372: (nvl(p_new_sr_rec.cp_subcomponent_id,-99) <>
8373: nvl(p_old_sr_rec.cp_subcomponent_id,-99)))
8374: OR
8375: ((p_new_sr_rec.subcomponent_version <> FND_API.G_MISS_CHAR) AND
8376: (nvl(p_new_sr_rec.subcomponent_version,-99) <>
8377: nvl(p_old_sr_rec.subcomponent_version,-99)))
8378:
8379: THEN
8376: (nvl(p_new_sr_rec.subcomponent_version,-99) <>
8377: nvl(p_old_sr_rec.subcomponent_version,-99)))
8378:
8379: THEN
8380: if ( l_cp_scomp_ver IS NOT NULL and l_cp_scomp_ver <> FND_API.G_MISS_CHAR ) then
8381: VALIDATE_SUBCOMPONENT_VERSION (
8382: p_api_name => NULL,
8383: p_parameter_name => 'CP subcomponent version',
8384: p_cp_component_id => l_cp_comp_id,
8387: p_subcomponent_version => l_cp_scomp_ver,
8388: p_inventory_org_id => l_inv_org_id,
8389: x_return_status => lx_return_status );
8390:
8391: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8392: x_return_status := FND_API.G_RET_STS_ERROR;
8393: RETURN;
8394: END IF;
8395: END IF;
8388: p_inventory_org_id => l_inv_org_id,
8389: x_return_status => lx_return_status );
8390:
8391: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8392: x_return_status := FND_API.G_RET_STS_ERROR;
8393: RETURN;
8394: END IF;
8395: END IF;
8396: END IF; -- validate CP subcomponent version end if
8395: END IF;
8396: END IF; -- validate CP subcomponent version end if
8397: *********************************/
8398: l_cp_scomp_ver := p_new_sr_rec.subcomponent_version;
8399: IF ((p_new_sr_rec.cp_subcomponent_id <> FND_API.G_MISS_NUM) AND
8400: (nvl(p_new_sr_rec.cp_subcomponent_id,-99) <>
8401: nvl(p_old_sr_rec.cp_subcomponent_id,-99)))
8402: OR
8403: ((l_cp_scomp_id is not null) AND
8410: p_instance_id => l_cp_scomp_id,
8411: p_inventory_org_id => l_inv_org_id,
8412: p_product_version => l_cp_scomp_ver,
8413: x_return_status => lx_return_status );
8414: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8415: x_return_status := FND_API.G_RET_STS_ERROR;
8416: RETURN;
8417: END IF;
8418: END IF; -- validate CP component vesion end if
8411: p_inventory_org_id => l_inv_org_id,
8412: p_product_version => l_cp_scomp_ver,
8413: x_return_status => lx_return_status );
8414: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8415: x_return_status := FND_API.G_RET_STS_ERROR;
8416: RETURN;
8417: END IF;
8418: END IF; -- validate CP component vesion end if
8419: x_cross_val_out_rec.subcomponent_version := l_cp_scomp_ver;
8420:
8421:
8422:
8423: --- Validate bill to site and site use
8424: IF ((p_new_sr_rec.bill_to_party_id <> FND_API.G_MISS_NUM) AND
8425: (nvl(p_new_sr_rec.bill_to_party_id,-99) <>
8426: nvl(p_old_sr_rec.bill_to_party_id,-99)))
8427: OR
8428: ((p_new_sr_rec.bill_to_site_id <> FND_API.G_MISS_NUM) AND
8424: IF ((p_new_sr_rec.bill_to_party_id <> FND_API.G_MISS_NUM) AND
8425: (nvl(p_new_sr_rec.bill_to_party_id,-99) <>
8426: nvl(p_old_sr_rec.bill_to_party_id,-99)))
8427: OR
8428: ((p_new_sr_rec.bill_to_site_id <> FND_API.G_MISS_NUM) AND
8429: (nvl(p_new_sr_rec.bill_to_site_id,-99) <>
8430: nvl(p_old_sr_rec.bill_to_site_id,-99)))
8431: OR
8432: ((p_new_sr_rec.bill_to_site_use_id <> FND_API.G_MISS_NUM) AND
8428: ((p_new_sr_rec.bill_to_site_id <> FND_API.G_MISS_NUM) AND
8429: (nvl(p_new_sr_rec.bill_to_site_id,-99) <>
8430: nvl(p_old_sr_rec.bill_to_site_id,-99)))
8431: OR
8432: ((p_new_sr_rec.bill_to_site_use_id <> FND_API.G_MISS_NUM) AND
8433: (nvl(p_new_sr_rec.bill_to_site_use_id,-99) <>
8434: nvl(p_old_sr_rec.bill_to_site_use_id,-99)))
8435:
8436: THEN
8434: nvl(p_old_sr_rec.bill_to_site_use_id,-99)))
8435:
8436: THEN
8437:
8438: if ( l_bto_site_id IS NOT NULL and l_bto_site_id <> FND_API.G_MISS_NUM ) then
8439: VALIDATE_BILL_TO_SHIP_TO_SITE (
8440: p_api_name => NULL,
8441: p_parameter_name => 'bill to site id',
8442: p_bill_to_site_id => l_bto_site_id,
8445: --p_site_use_id => l_bto_site_use,
8446: x_site_use_id => lx_site_use_id,
8447: x_return_status => lx_return_status );
8448:
8449: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8450: x_return_status := FND_API.G_RET_STS_ERROR;
8451: RETURN;
8452: END IF;
8453: END IF;
8446: x_site_use_id => lx_site_use_id,
8447: x_return_status => lx_return_status );
8448:
8449: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8450: x_return_status := FND_API.G_RET_STS_ERROR;
8451: RETURN;
8452: END IF;
8453: END IF;
8454: END IF; -- validate bill to site and site use end if
8455:
8456: --- Validate ship to site and site use
8457: -- ship_to_party_id is a reqd field if ship_to_site_use_id is passed,
8458: -- so check if passed, else return error
8459: IF ((l_sto_site_use <> FND_API.G_MISS_NUM AND
8460: l_sto_site_use IS NOT NULL))
8461: THEN
8462: IF (l_sto_party_id = FND_API.G_MISS_NUM OR
8463: l_sto_party_id IS NULL) THEN
8458: -- so check if passed, else return error
8459: IF ((l_sto_site_use <> FND_API.G_MISS_NUM AND
8460: l_sto_site_use IS NOT NULL))
8461: THEN
8462: IF (l_sto_party_id = FND_API.G_MISS_NUM OR
8463: l_sto_party_id IS NULL) THEN
8464: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
8465: fnd_message.set_token ('CHILD_PARAM','ship_to_site_use_id');
8466: fnd_message.set_token ('PARENT_PARAM','ship_to_party_id');
8464: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
8465: fnd_message.set_token ('CHILD_PARAM','ship_to_site_use_id');
8466: fnd_message.set_token ('PARENT_PARAM','ship_to_party_id');
8467: fnd_msg_pub.ADD;
8468: x_return_status := FND_API.G_RET_STS_ERROR;
8469: RETURN;
8470: END IF;
8471: END IF;
8472: /*
8470: END IF;
8471: END IF;
8472: /*
8473: BUG 3702517 - Commented out
8474: IF ((p_new_sr_rec.ship_to_party_id <> FND_API.G_MISS_NUM) AND
8475: (nvl(p_new_sr_rec.ship_to_party_id,-99) <>
8476: nvl(p_old_sr_rec.ship_to_party_id,-99)))
8477: OR
8478: ((p_new_sr_rec.ship_to_site_id <> FND_API.G_MISS_NUM) AND
8474: IF ((p_new_sr_rec.ship_to_party_id <> FND_API.G_MISS_NUM) AND
8475: (nvl(p_new_sr_rec.ship_to_party_id,-99) <>
8476: nvl(p_old_sr_rec.ship_to_party_id,-99)))
8477: OR
8478: ((p_new_sr_rec.ship_to_site_id <> FND_API.G_MISS_NUM) AND
8479: (nvl(p_new_sr_rec.ship_to_site_id,-99) <>
8480: nvl(p_old_sr_rec.ship_to_site_id,-99)))
8481: OR
8482: ((p_new_sr_rec.ship_to_site_use_id <> FND_API.G_MISS_NUM) AND
8478: ((p_new_sr_rec.ship_to_site_id <> FND_API.G_MISS_NUM) AND
8479: (nvl(p_new_sr_rec.ship_to_site_id,-99) <>
8480: nvl(p_old_sr_rec.ship_to_site_id,-99)))
8481: OR
8482: ((p_new_sr_rec.ship_to_site_use_id <> FND_API.G_MISS_NUM) AND
8483: (nvl(p_new_sr_rec.ship_to_site_use_id,-99) <>
8484: nvl(p_old_sr_rec.ship_to_site_use_id,-99)))
8485: THEN
8486:
8483: (nvl(p_new_sr_rec.ship_to_site_use_id,-99) <>
8484: nvl(p_old_sr_rec.ship_to_site_use_id,-99)))
8485: THEN
8486:
8487: if ( l_sto_site_use IS NOT NULL and l_sto_site_use <> FND_API.G_MISS_NUM ) then
8488: Validate_Site_Site_Use (
8489: p_api_name => NULL,
8490: p_parameter_name => 'ship_to_site_use_id',
8491: p_site_id => l_sto_site_id,
8493: p_party_id => l_sto_party_id,
8494: p_site_use_type => 'SHIP_TO',
8495: x_return_status => lx_return_status );
8496:
8497: if (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8498: x_return_status := FND_API.G_RET_STS_ERROR;
8499: RETURN;
8500: end if;
8501: end if;
8494: p_site_use_type => 'SHIP_TO',
8495: x_return_status => lx_return_status );
8496:
8497: if (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8498: x_return_status := FND_API.G_RET_STS_ERROR;
8499: RETURN;
8500: end if;
8501: end if;
8502: END IF; -- validate ship to site and site use end if
8505: -- Bug 3702517 change begins
8506: ---------------------------
8507: IF
8508: (
8509: ( p_new_sr_rec.ship_to_party_id <> FND_API.G_MISS_NUM ) AND
8510: (
8511: NVL(p_new_sr_rec.ship_to_party_id,-99) <> NVL(p_old_sr_rec.ship_to_party_id,-99)
8512: )
8513: )
8512: )
8513: )
8514: OR
8515: (
8516: ( p_new_sr_rec.ship_to_site_id <> FND_API.G_MISS_NUM ) AND
8517: (
8518: NVL(p_new_sr_rec.ship_to_site_id,-99) <> NVL(p_old_sr_rec.ship_to_site_id,-99)
8519: )
8520: )
8519: )
8520: )
8521: OR
8522: (
8523: (p_new_sr_rec.ship_to_site_use_id <> FND_API.G_MISS_NUM ) AND
8524: (
8525: NVL(p_new_sr_rec.ship_to_site_use_id,-99) <> NVL(p_old_sr_rec.ship_to_site_use_id,-99)
8526: )
8527: )
8529: IF
8530: -- Both ship_to_site_id and ship_to_site_use_id are available
8531: -- => call Validate_Site_Site_Use
8532: (
8533: l_sto_site_use IS NOT NULL and l_sto_site_use <> FND_API.G_MISS_NUM AND
8534: l_sto_site_id IS NOT NULL AND l_sto_site_id <> FND_API.G_MISS_NUM
8535: )
8536: THEN
8537: Validate_Site_Site_Use
8530: -- Both ship_to_site_id and ship_to_site_use_id are available
8531: -- => call Validate_Site_Site_Use
8532: (
8533: l_sto_site_use IS NOT NULL and l_sto_site_use <> FND_API.G_MISS_NUM AND
8534: l_sto_site_id IS NOT NULL AND l_sto_site_id <> FND_API.G_MISS_NUM
8535: )
8536: THEN
8537: Validate_Site_Site_Use
8538: (
8544: p_site_use_type => 'SHIP_TO',
8545: x_return_status => lx_return_status
8546: );
8547: IF
8548: (lx_return_status <> FND_API.G_RET_STS_SUCCESS)
8549: THEN
8550: x_return_status := FND_API.G_RET_STS_ERROR;
8551: RETURN;
8552: END IF;
8546: );
8547: IF
8548: (lx_return_status <> FND_API.G_RET_STS_SUCCESS)
8549: THEN
8550: x_return_status := FND_API.G_RET_STS_ERROR;
8551: RETURN;
8552: END IF;
8553:
8554: ELSIF
8555: -- Ship_to_site_use_id is available, but ship_to_site_id is not passed
8556: -- => Call Validate_Bill_Ship_Site_Use
8557: (
8558: (
8559: l_sto_site_use <> FND_API.G_MISS_NUM AND
8560: l_sto_site_use IS NOT NULL
8561: )
8562: AND
8563: (
8561: )
8562: AND
8563: (
8564: l_sto_site_id IS NULL OR
8565: l_sto_site_id = FND_API.G_MISS_NUM
8566: )
8567: )
8568: THEN
8569: Validate_Bill_Ship_Site_Use
8576: x_site_id => l_sto_site_id,
8577: x_return_status => lx_return_status
8578: );
8579: IF
8580: (lx_return_status <> FND_API.G_RET_STS_SUCCESS)
8581: THEN
8582: x_return_status := FND_API.G_RET_STS_ERROR;
8583: RETURN;
8584: ELSE
8578: );
8579: IF
8580: (lx_return_status <> FND_API.G_RET_STS_SUCCESS)
8581: THEN
8582: x_return_status := FND_API.G_RET_STS_ERROR;
8583: RETURN;
8584: ELSE
8585: x_cross_val_out_rec.ship_to_site_id := l_sto_site_id;
8586: END IF;
8589: -- Ship_to_site_id is available, but ship_to_site_use_id is not passed
8590: -- => Call Validate_Bill_To_Ship_To_Site
8591: (
8592: (
8593: l_sto_site_id <> FND_API.G_MISS_NUM AND
8594: l_sto_site_id IS NOT NULL
8595: )
8596: AND
8597: (
8595: )
8596: AND
8597: (
8598: l_sto_site_use IS NULL OR
8599: l_sto_site_use = FND_API.G_MISS_NUM
8600: )
8601: )
8602: THEN
8603: Validate_Bill_To_Ship_To_Site
8610: x_site_use_id => l_sto_site_use,
8611: x_return_status => lx_return_status
8612: );
8613: IF
8614: (lx_return_status <> FND_API.G_RET_STS_SUCCESS)
8615: THEN
8616: x_return_status := FND_API.G_RET_STS_ERROR;
8617: RETURN;
8618: ELSE
8612: );
8613: IF
8614: (lx_return_status <> FND_API.G_RET_STS_SUCCESS)
8615: THEN
8616: x_return_status := FND_API.G_RET_STS_ERROR;
8617: RETURN;
8618: ELSE
8619: x_cross_val_out_rec.ship_to_site_use_id := l_sto_site_use;
8620: END IF;
8622: END IF;
8623: --Bug 3702517 change ends
8624: -------------------------
8625: --- Validate bill to site and site use
8626: IF ((l_bto_site_use <> FND_API.G_MISS_NUM AND
8627: l_bto_site_use IS NOT NULL))
8628: THEN
8629: IF (l_bto_party_id = FND_API.G_MISS_NUM OR
8630: l_bto_party_id IS NULL) THEN
8625: --- Validate bill to site and site use
8626: IF ((l_bto_site_use <> FND_API.G_MISS_NUM AND
8627: l_bto_site_use IS NOT NULL))
8628: THEN
8629: IF (l_bto_party_id = FND_API.G_MISS_NUM OR
8630: l_bto_party_id IS NULL) THEN
8631: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
8632: fnd_message.set_token ('CHILD_PARAM','bill_to_site_use_id');
8633: fnd_message.set_token ('PARENT_PARAM','bill_to_party_id');
8631: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
8632: fnd_message.set_token ('CHILD_PARAM','bill_to_site_use_id');
8633: fnd_message.set_token ('PARENT_PARAM','bill_to_party_id');
8634: fnd_msg_pub.ADD;
8635: x_return_status := FND_API.G_RET_STS_ERROR;
8636: RETURN;
8637: END IF;
8638: END IF;
8639: IF ((p_new_sr_rec.bill_to_party_id <> FND_API.G_MISS_NUM) AND
8635: x_return_status := FND_API.G_RET_STS_ERROR;
8636: RETURN;
8637: END IF;
8638: END IF;
8639: IF ((p_new_sr_rec.bill_to_party_id <> FND_API.G_MISS_NUM) AND
8640: (nvl(p_new_sr_rec.bill_to_party_id,-99) <>
8641: nvl(p_old_sr_rec.bill_to_party_id,-99)))
8642: OR
8643: ((p_new_sr_rec.bill_to_site_id <> FND_API.G_MISS_NUM) AND
8639: IF ((p_new_sr_rec.bill_to_party_id <> FND_API.G_MISS_NUM) AND
8640: (nvl(p_new_sr_rec.bill_to_party_id,-99) <>
8641: nvl(p_old_sr_rec.bill_to_party_id,-99)))
8642: OR
8643: ((p_new_sr_rec.bill_to_site_id <> FND_API.G_MISS_NUM) AND
8644: (nvl(p_new_sr_rec.bill_to_site_id,-99) <>
8645: nvl(p_old_sr_rec.bill_to_site_id,-99)))
8646: OR
8647: ((p_new_sr_rec.bill_to_site_use_id <> FND_API.G_MISS_NUM) AND
8643: ((p_new_sr_rec.bill_to_site_id <> FND_API.G_MISS_NUM) AND
8644: (nvl(p_new_sr_rec.bill_to_site_id,-99) <>
8645: nvl(p_old_sr_rec.bill_to_site_id,-99)))
8646: OR
8647: ((p_new_sr_rec.bill_to_site_use_id <> FND_API.G_MISS_NUM) AND
8648: (nvl(p_new_sr_rec.bill_to_site_use_id,-99) <>
8649: nvl(p_old_sr_rec.bill_to_site_use_id,-99)))
8650: THEN
8651: IF ( l_bto_site_use IS NOT NULL and l_bto_site_use <> FND_API.G_MISS_NUM AND
8647: ((p_new_sr_rec.bill_to_site_use_id <> FND_API.G_MISS_NUM) AND
8648: (nvl(p_new_sr_rec.bill_to_site_use_id,-99) <>
8649: nvl(p_old_sr_rec.bill_to_site_use_id,-99)))
8650: THEN
8651: IF ( l_bto_site_use IS NOT NULL and l_bto_site_use <> FND_API.G_MISS_NUM AND
8652: l_bto_site_id IS NOT NULL AND l_bto_site_id <> FND_API.G_MISS_NUM) THEN
8653: -- this call is made when both site use and site id are available
8654: Validate_Site_Site_Use (
8655: p_api_name => NULL,
8648: (nvl(p_new_sr_rec.bill_to_site_use_id,-99) <>
8649: nvl(p_old_sr_rec.bill_to_site_use_id,-99)))
8650: THEN
8651: IF ( l_bto_site_use IS NOT NULL and l_bto_site_use <> FND_API.G_MISS_NUM AND
8652: l_bto_site_id IS NOT NULL AND l_bto_site_id <> FND_API.G_MISS_NUM) THEN
8653: -- this call is made when both site use and site id are available
8654: Validate_Site_Site_Use (
8655: p_api_name => NULL,
8656: p_parameter_name => 'bill_to_site_use_id',
8659: p_party_id => l_bto_party_id,
8660: p_site_use_type => 'BILL_TO',
8661: x_return_status => lx_return_status );
8662:
8663: if (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8664: x_return_status := FND_API.G_RET_STS_ERROR;
8665: RETURN;
8666: end if;
8667: ELSIF ( ( l_bto_site_use <> FND_API.G_MISS_NUM AND l_bto_site_use IS NOT NULL ) AND
8660: p_site_use_type => 'BILL_TO',
8661: x_return_status => lx_return_status );
8662:
8663: if (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8664: x_return_status := FND_API.G_RET_STS_ERROR;
8665: RETURN;
8666: end if;
8667: ELSIF ( ( l_bto_site_use <> FND_API.G_MISS_NUM AND l_bto_site_use IS NOT NULL ) AND
8668: ( l_bto_site_id IS NULL OR l_bto_site_id = FND_API.G_MISS_NUM )
8663: if (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8664: x_return_status := FND_API.G_RET_STS_ERROR;
8665: RETURN;
8666: end if;
8667: ELSIF ( ( l_bto_site_use <> FND_API.G_MISS_NUM AND l_bto_site_use IS NOT NULL ) AND
8668: ( l_bto_site_id IS NULL OR l_bto_site_id = FND_API.G_MISS_NUM )
8669: ) THEN
8670: -- this call is made when site use is availabel but site id is not available
8671: CS_ServiceRequest_UTIL.Validate_Bill_Ship_Site_Use
8664: x_return_status := FND_API.G_RET_STS_ERROR;
8665: RETURN;
8666: end if;
8667: ELSIF ( ( l_bto_site_use <> FND_API.G_MISS_NUM AND l_bto_site_use IS NOT NULL ) AND
8668: ( l_bto_site_id IS NULL OR l_bto_site_id = FND_API.G_MISS_NUM )
8669: ) THEN
8670: -- this call is made when site use is availabel but site id is not available
8671: CS_ServiceRequest_UTIL.Validate_Bill_Ship_Site_Use
8672: ( p_api_name => null,
8677: p_site_use_type => 'BILL_TO',
8678: x_site_id => l_bto_site_id,
8679: x_return_status => lx_return_status
8680: );
8681: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8682: x_return_status := FND_API.G_RET_STS_ERROR;
8683: RETURN;
8684: ELSE
8685: x_cross_val_out_rec.bill_to_site_id := l_bto_site_id;
8678: x_site_id => l_bto_site_id,
8679: x_return_status => lx_return_status
8680: );
8681: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8682: x_return_status := FND_API.G_RET_STS_ERROR;
8683: RETURN;
8684: ELSE
8685: x_cross_val_out_rec.bill_to_site_id := l_bto_site_id;
8686: END IF;
8683: RETURN;
8684: ELSE
8685: x_cross_val_out_rec.bill_to_site_id := l_bto_site_id;
8686: END IF;
8687: ELSIF ( ( l_bto_site_id <> FND_API.G_MISS_NUM AND l_bto_site_id IS NOT NULL ) AND
8688: ( l_bto_site_use IS NULL OR l_bto_site_use = FND_API.G_MISS_NUM )
8689: ) THEN
8690: -- this call is made when site use is not available but site id is available
8691: CS_ServiceRequest_UTIL.Validate_Bill_To_Ship_To_Site
8684: ELSE
8685: x_cross_val_out_rec.bill_to_site_id := l_bto_site_id;
8686: END IF;
8687: ELSIF ( ( l_bto_site_id <> FND_API.G_MISS_NUM AND l_bto_site_id IS NOT NULL ) AND
8688: ( l_bto_site_use IS NULL OR l_bto_site_use = FND_API.G_MISS_NUM )
8689: ) THEN
8690: -- this call is made when site use is not available but site id is available
8691: CS_ServiceRequest_UTIL.Validate_Bill_To_Ship_To_Site
8692: ( p_api_name => null,
8697: p_site_use_type => 'BILL_TO',
8698: x_site_use_id => l_bto_site_use,
8699: x_return_status => lx_return_status
8700: );
8701: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8702: x_return_status := FND_API.G_RET_STS_ERROR;
8703: RETURN;
8704: ELSE
8705: x_cross_val_out_rec.bill_to_site_use_id := l_bto_site_use;
8698: x_site_use_id => l_bto_site_use,
8699: x_return_status => lx_return_status
8700: );
8701: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8702: x_return_status := FND_API.G_RET_STS_ERROR;
8703: RETURN;
8704: ELSE
8705: x_cross_val_out_rec.bill_to_site_use_id := l_bto_site_use;
8706: END IF;
8724:
8725:
8726: EXCEPTION
8727: WHEN OTHERS THEN
8728: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8729:
8730: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
8731: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
8732: FND_MSG_PUB.ADD;
9202:
9203: BEGIN
9204:
9205: -- Initialize return status to SUCCESS
9206: x_return_status := FND_API.G_RET_STS_SUCCESS;
9207:
9208: OPEN l_ServiceRequest_csr;
9209: FETCH l_ServiceRequest_csr INTO x_audit_vals_rec;
9210:
9255: IS
9256: l_error_message VARCHAR2(2000);
9257: BEGIN
9258: -- Initialize API return status to success
9259: p_return_status := FND_API.G_RET_STS_SUCCESS;
9260:
9261:
9262: IF ( p_desc_context || p_desc_segment1 || p_desc_segment2 ||
9263: p_desc_segment3 || p_desc_segment4 || p_desc_segment5 ||
9292: resp_id => p_resp_id
9293: ) THEN
9294: l_error_message := FND_FLEX_DESCVAL.Error_Message;
9295: CS_ServiceRequest_UTIL.Add_Desc_Flex_Msg(p_api_name, l_error_message);
9296: p_return_status := FND_API.G_RET_STS_ERROR;
9297: END IF;
9298: END IF;
9299:
9300: END Validate_Desc_Flex;
9328: FROM
9329: cs_party_roles_b
9330: WHERE party_role_code = p_party_role_code;
9331: BEGIN
9332: x_return_status := FND_API.G_RET_STS_SUCCESS;
9333: l_sys_dt := SYSDATE;
9334: IF p_party_role_code <> 'CONTACT'
9335: THEN
9336: OPEN c_party_role;
9337: FETCH c_party_role INTO l_start_dt, l_end_dt;
9338:
9339: IF c_party_role % NOTFOUND
9340: THEN
9341: x_return_status := FND_API.G_RET_STS_ERROR;
9342: FND_MESSAGE.set_name('CS','CS_SR_PARTY_ROLE_NE');
9343: FND_MESSAGE.set_token('API_NAME','cs_servicerequest_util.validate_party_role_code');
9344: FND_MESSAGE.set_token('PARTY_ROLE_CODE',p_party_role_code);
9345: FND_MSG_PUB.add_detail(p_associated_column1 => 'cs_hz_sr_contact_points.party_role_code');
9346: --FND_MSG_PUB.ADD_DETAIL(p_associated_column1 => l_associated_col1);
9347: ELSIF l_sys_dt < NVL(l_start_dt, l_sys_dt) OR
9348: l_sys_dt > NVL(l_end_dt , l_sys_dt)
9349: THEN
9350: x_return_status := FND_API.G_RET_STS_ERROR;
9351: FND_MESSAGE.set_name('CS','CS_SR_PARTYROLE_INACTIVE');
9352: FND_MESSAGE.set_token('API_NAME','cs_servicerequest_util.validate_party_role_code');
9353: FND_MESSAGE.set_token('PARTY_ROLE_CODE',p_party_role_code);
9354: FND_MSG_PUB.add_detail(p_associated_column1 => 'cs_hz_sr_contact_points.party_role_code');
9364: END IF;
9365: FND_MESSAGE.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
9366: FND_MESSAGE.set_token('P_TEXT','CS_SERVICEREQUEST_UTIL.validate_party_role_code'||'-'||SQLERRM);
9367: FND_MSG_PUB.ADD;
9368: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9369: END validate_party_role_code;
9370: -- -----------------------------------------------------------------------------
9371: -- Procedure Name : validate_org_id
9372: -- Parameter :
9392: l_dt_from DATE;
9393: l_dt_to DATE;
9394: l_sys_dt DATE;
9395: BEGIN
9396: x_return_status := FND_API.G_RET_STS_SUCCESS;
9397: l_sys_dt := TRUNC(SYSDATE);
9398: SELECT
9399: date_from
9400: , date_to
9410: FND_MESSAGE.set_name ('CS', 'CS_SR_ORG_ID_INACTIVE');
9411: FND_MESSAGE.set_token ('API_NAME', 'CS_SERVICEREQUEST_UTIL.validate_org_id');
9412: FND_MESSAGE.set_token ('ORG_ID', p_org_id);
9413: FND_MSG_PUB.ADD;
9414: x_return_status := FND_API.G_RET_STS_ERROR;
9415: END IF;
9416: EXCEPTION
9417: WHEN NO_DATA_FOUND THEN
9418: x_return_status := FND_API.G_RET_STS_ERROR;
9414: x_return_status := FND_API.G_RET_STS_ERROR;
9415: END IF;
9416: EXCEPTION
9417: WHEN NO_DATA_FOUND THEN
9418: x_return_status := FND_API.G_RET_STS_ERROR;
9419: Add_Invalid_Argument_Msg
9420: ( p_token_an => 'cs_servicerequest_util.validate_org_id'
9421: , p_token_v => TO_CHAR(p_org_id)
9422: , p_token_p => 'p_org_id'
9426: WHEN OTHERS THEN
9427: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
9428: fnd_message.set_token ('P_TEXT','cs_servicerequest_util.validate_org_id'||'-'||SQLERRM);
9429: fnd_msg_pub.ADD;
9430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9431: END validate_org_id;
9432: -- -----------------------------------------------------------------------------
9433: -- Procedure Name : validate_maint_organization_id
9434: -- Parameter :
9463: l_col VARCHAR2(61);
9464: BEGIN
9465: l_api_name_full := G_PKG_NAME || '.validate_maint_organization_id';
9466: l_col := G_TABLE_NAME || '.MAINT_ORGANIZATION_ID';
9467: x_return_status := FND_API.G_RET_STS_SUCCESS;
9468: IF p_inv_org_master_org_flag = 'N' -- means inv org is not a master org
9469: THEN
9470: get_org_details
9471: ( p_org_id => p_inventory_org_id
9473: , x_maint_org_id => l_maint_org_id
9474: , x_master_org_id => l_master_org_id
9475: , x_return_Status => x_return_status
9476: );
9477: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
9478: THEN
9479: Add_Invalid_Argument_Msg
9480: ( p_token_an => l_api_name_full
9481: , p_token_v => to_char(p_inventory_org_id)
9484: , p_column_name => 'INVENTORY_ORG_ID'
9485: );
9486: ELSIF NVL(l_maint_org_id,-99) <> p_maint_organization_id
9487: THEN
9488: x_return_status := FND_API.G_RET_STS_ERROR;
9489: FND_MESSAGE.set_name ('CS' , 'CS_SR_INV_ORG_NOT_MAINT_BY');
9490: FND_MESSAGE.set_token ('API_NAME', l_api_name_full);
9491: FND_MESSAGE.set_token ('MAINT_ORG_ID' , TO_CHAR(p_maint_organization_id));
9492: FND_MESSAGE.set_token ('INV_ORG_ID' , TO_CHAR(p_inventory_org_id));
9499: , x_maint_org_id => l_maint_org_id
9500: , x_master_org_id => l_master_org_id
9501: , x_return_Status => x_return_status
9502: );
9503: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
9504: THEN
9505: Add_Invalid_Argument_Msg
9506: ( p_token_an => l_api_name_full
9507: , p_token_v => to_char(p_maint_organization_id)
9510: , p_column_name => 'MAINT_ORGANIZATION_ID'
9511: );
9512: ELSIF l_eam_enabled <> 'Y'
9513: THEN
9514: x_return_status := FND_API.G_RET_STS_ERROR;
9515: FND_MESSAGE.set_name ('CS' , 'CS_SR_MAINT_ORG_NON_EAM');
9516: FND_MESSAGE.set_token ('API_NAME', l_api_name_full);
9517: FND_MESSAGE.set_token ('MAINT_ORG_ID', TO_CHAR(p_maint_organization_id));
9518: FND_MSG_PUB.add_detail(p_associated_column1 => l_col);
9516: FND_MESSAGE.set_token ('API_NAME', l_api_name_full);
9517: FND_MESSAGE.set_token ('MAINT_ORG_ID', TO_CHAR(p_maint_organization_id));
9518: FND_MSG_PUB.add_detail(p_associated_column1 => l_col);
9519: ELSIF p_inventory_org_id IS NOT NULL AND
9520: p_inventory_org_id <> FND_API.G_MISS_NUM AND
9521: p_inventory_org_id <> l_master_org_id
9522: THEN
9523: x_return_status := FND_API.G_RET_STS_ERROR;
9524: FND_MESSAGE.set_name ('CS' , 'CS_SR_MAINT_INV_ORG_MISMATCH');
9519: ELSIF p_inventory_org_id IS NOT NULL AND
9520: p_inventory_org_id <> FND_API.G_MISS_NUM AND
9521: p_inventory_org_id <> l_master_org_id
9522: THEN
9523: x_return_status := FND_API.G_RET_STS_ERROR;
9524: FND_MESSAGE.set_name ('CS' , 'CS_SR_MAINT_INV_ORG_MISMATCH');
9525: FND_MESSAGE.set_token ('API_NAME' , l_api_name_full);
9526: FND_MESSAGE.set_token ('MAINT_ORG_ID' , TO_CHAR(p_maint_organization_id));
9527: FND_MSG_PUB.add_detail(p_associated_column1 => l_col);
9618: , x_end_dt_active => l_end_dt
9619: , x_loc_type => l_loc_type
9620: , x_return_status => x_return_status
9621: );
9622: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
9623: THEN
9624: RAISE NO_DATA_FOUND;
9625: END IF;
9626: --
9630: FND_MESSAGE.set_name('CS','CS_SR_CP_INACTIVE');
9631: FND_MESSAGE.set_token('CP_ID',TO_CHAR(p_customer_product_id));
9632: FND_MESSAGE.set_token('API_NAME' , l_proc_name);
9633: FND_MSG_PUB.add_detail(p_associated_column1=> 'CS_INCIDENTS_ALL_B.CUSTOMER_PRODUCT_ID');
9634: RAISE FND_API.G_EXC_ERROR;
9635: END IF;
9636: --
9637: IF CS_SERVICEREQUEST_PVT.g_restrict_ib = 'YES' AND
9638: l_loc_type NOT IN ('HZ_PARTY_SITES', 'HZ_LOCATIONS')
9641: FND_MESSAGE.set_token('LOC',l_loc_type);
9642: FND_MESSAGE.set_token('CP_ID',TO_CHAR(p_customer_product_id));
9643: FND_MESSAGE.set_token('API_NAME' , l_proc_name);
9644: FND_MSG_PUB.add_detail(p_associated_column1=> 'CS_INCIDENTS_ALL_B.CUSTOMER_PRODUCT_ID');
9645: RAISE FND_API.G_EXC_ERROR;
9646: END IF;
9647: --
9648: IF NVL(l_source_table,'#') <> 'HZ_PARTIES'
9649: THEN
9650: FND_MESSAGE.set_name('CS','CS_SR_CP_CUST_SOURCE_INVALID'); -- product is not for TCA parties
9651: FND_MESSAGE.set_token('PARTY_SOURCE',l_source_table);
9652: FND_MESSAGE.set_token('CP_ID',TO_CHAR(p_customer_product_id));
9653: FND_MSG_PUB.add_detail(p_associated_column1=> 'CS_INCIDENTS_ALL_B.CUSTOMER_PRODUCT_ID');
9654: RAISE FND_API.G_EXC_ERROR;
9655: END IF;
9656: --
9657: IF p_customer_id <> NVL(l_party_id,-1)
9658: THEN
9664: FND_MESSAGE.set_token('CP_ID',TO_CHAR(p_customer_product_id));
9665: FND_MESSAGE.set_token('CUST_ID',TO_CHAR(p_customer_id));
9666: FND_MSG_PUB.add_detail(p_associated_column1=> 'CS_INCIDENTS_ALL_B.CUSTOMER_PRODUCT_ID');
9667: CLOSE c_prod_rel;
9668: RAISE FND_API.G_EXC_ERROR;
9669: ELSE
9670: CLOSE c_prod_rel;
9671: END IF;
9672: END IF;
9686: , x_start_date_active => l_start_dt
9687: , x_end_date_active => l_end_dt
9688: , x_return_status => x_return_status
9689: );
9690: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
9691: THEN
9692: FND_MESSAGE.set_name('CS','CS_SR_CP_ITEM_ID'); -- item associated with CP does not exists
9693: FND_MESSAGE.set_token('CP_ID',TO_CHAR(p_customer_product_id));
9694: FND_MESSAGE.set_token('INV_ITEM_ID',TO_CHAR(l_inv_item_id));
9692: FND_MESSAGE.set_name('CS','CS_SR_CP_ITEM_ID'); -- item associated with CP does not exists
9693: FND_MESSAGE.set_token('CP_ID',TO_CHAR(p_customer_product_id));
9694: FND_MESSAGE.set_token('INV_ITEM_ID',TO_CHAR(l_inv_item_id));
9695: FND_MSG_PUB.add_detail(p_associated_column1=> 'CS_INCIDENTS_ALL_B.CUSTOMER_PRODUCT_ID');
9696: RAISE FND_API.G_EXC_ERROR;
9697: END IF;
9698: IF l_enabled_flag <> 'Y'
9699: THEN
9700: FND_MESSAGE.set_name('CS','CS_SR_CP_ITEM_DISABLED'); -- item associated with CP is not enabled
9701: FND_MESSAGE.set_token('CP_ID',TO_CHAR(p_customer_product_id));
9702: FND_MESSAGE.set_token('INV_ITEM_ID',TO_CHAR(l_inv_item_id));
9703: FND_MESSAGE.set_token('API_NAME' , l_proc_name);
9704: FND_MSG_PUB.add_detail(p_associated_column1=> 'CS_INCIDENTS_ALL_B.CUSTOMER_PRODUCT_ID');
9705: RAISE FND_API.G_EXC_ERROR;
9706: END IF;
9707: IF l_serv_req_enabled <> 'E'
9708: THEN
9709: FND_MESSAGE.set_name('CS','CS_SR_CP_ITEM_NOT_SERV'); -- item associated with CP is not serviceable
9710: FND_MESSAGE.set_token('CP_ID',TO_CHAR(p_customer_product_id));
9711: FND_MESSAGE.set_token('INV',TO_CHAR(l_inv_item_id));
9712: FND_MESSAGE.set_token('API_NAME' , l_proc_name);
9713: FND_MSG_PUB.add_detail(p_associated_column1=> 'CS_INCIDENTS_ALL_B.CUSTOMER_PRODUCT_ID');
9714: RAISE FND_API.G_EXC_ERROR;
9715: END IF;
9716: IF l_sys_dt < NVL(l_start_dt,l_sys_dt) OR
9717: l_sys_dt > NVL(l_end_dt ,l_sys_dt)
9718: THEN
9719: FND_MESSAGE.set_name('CS','CS_SR_CP_ITEM_INACTIVE'); --Item associated with CP is inactive
9720: FND_MESSAGE.set_token('CP_ID',TO_CHAR(p_customer_product_id));
9721: FND_MESSAGE.set_token('INV_ITEM_ID',TO_CHAR(l_inv_item_id));
9722: FND_MSG_PUB.add_detail(p_associated_column1=> 'CS_INCIDENTS_ALL_B.CUSTOMER_PRODUCT_ID');
9723: RAISE FND_API.G_EXC_ERROR;
9724: END IF;
9725: -- All validations succeeded, so assign item for CP to p_inventory_item_id
9726: p_inventory_item_id := l_inv_item_id;
9727: END IF;
9734: , x_maint_org_id => l_maint_org_id
9735: , x_master_org_id => l_master_org_id
9736: , x_return_Status => x_return_status
9737: );
9738: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
9739: THEN
9740: FND_MESSAGE.set_name('CS','CS_SR_CP_LAST_VLD_ORG'); -- Last validation org does not exists
9741: FND_MESSAGE.set_token('CP_ID',TO_CHAR(p_customer_product_id));
9742: FND_MESSAGE.set_token('MAINT_ORG_ID',TO_CHAR(l_last_vld_org_id));
9740: FND_MESSAGE.set_name('CS','CS_SR_CP_LAST_VLD_ORG'); -- Last validation org does not exists
9741: FND_MESSAGE.set_token('CP_ID',TO_CHAR(p_customer_product_id));
9742: FND_MESSAGE.set_token('MAINT_ORG_ID',TO_CHAR(l_last_vld_org_id));
9743: FND_MSG_PUB.add_detail(p_associated_column1=> 'CS_INCIDENTS_ALL_B.CUSTOMER_PRODUCT_ID');
9744: RAISE FND_API.G_EXC_ERROR;
9745: END IF;
9746: /* last vlg org may not be eam enabled but it might be maintained bu maint org
9747: so no need for this check
9748: IF l_eam_enabled_flag <> 'Y'
9749: THEN
9750: FND_MESSAGE.set_name('CS','CS_SR_CP_MAINT_EAM'); -- Maintenance Organization is NOT Eam Enabled
9751: FND_MESSAGE.set_token('MAINT_ORG_ID',TO_CHAR(p_maint_organization_id));
9752: FND_MSG_PUB.add_detail(p_associated_column1=> 'CS_INCIDENTS_ALL_B.CUSTOMER_PRODUCT_ID');
9753: RAISE FND_API.G_EXC_ERROR;
9754: END IF;
9755: */
9756: IF l_maint_org_id <> p_maint_organization_id
9757: THEN
9759: FND_MESSAGE.set_token('API_NAME' , l_proc_name);
9760: FND_MESSAGE.set_token('MAINT_ORG_ID',TO_CHAR(p_maint_organization_id));
9761: FND_MESSAGE.set_token('VAL_ORG_ID',TO_CHAR(l_maint_org_id));
9762: FND_MSG_PUB.add_detail(p_associated_column1=> 'CS_INCIDENTS_ALL_B.CUSTOMER_PRODUCT_ID');
9763: RAISE FND_API.G_EXC_ERROR;
9764: END IF;
9765: IF p_inv_org_master_org_flag = 'Y' AND
9766: l_master_org_id <> p_inventory_org_id
9767: THEN
9767: THEN
9768: FND_MESSAGE.set_name('CS','CS_SR_VLD_INV_ORG_MISMATCH');
9769: FND_MESSAGE.set_token('VAL_ORG',TO_CHAR(l_maint_org_id));
9770: FND_MSG_PUB.add_detail(p_associated_column1=> 'CS_INCIDENTS_ALL_B.CUSTOMER_PRODUCT_ID');
9771: RAISE FND_API.G_EXC_ERROR;
9772: END IF;
9773: END IF; -- p_maint_organization check
9774: --
9775: EXCEPTION
9773: END IF; -- p_maint_organization check
9774: --
9775: EXCEPTION
9776: WHEN NO_DATA_FOUND THEN
9777: x_return_status := FND_API.G_RET_STS_ERROR;
9778: Add_Invalid_Argument_Msg
9779: ( p_token_an => l_proc_name
9780: , p_token_v => TO_CHAR(p_customer_product_id)
9781: , p_token_p => 'customer_product_id'
9781: , p_token_p => 'customer_product_id'
9782: , p_table_name => G_TABLE_NAME
9783: , p_column_name => 'CUSTOMER_PRODUCT_ID'
9784: );
9785: WHEN FND_API.G_EXC_ERROR THEN
9786: x_return_status := FND_API.G_RET_STS_ERROR;
9787: END validate_customer_product_id;
9788: -- -----------------------------------------------------------------------------
9789: -- Procedure Name : get_reacted_resolved_dates
9782: , p_table_name => G_TABLE_NAME
9783: , p_column_name => 'CUSTOMER_PRODUCT_ID'
9784: );
9785: WHEN FND_API.G_EXC_ERROR THEN
9786: x_return_status := FND_API.G_RET_STS_ERROR;
9787: END validate_customer_product_id;
9788: -- -----------------------------------------------------------------------------
9789: -- Procedure Name : get_reacted_resolved_dates
9790: -- Parameter :
9820: l_new_resolved_flag CS_INCIDENT_STATUSES_B.resolved_flag % TYPE;
9821: l_old_resolved_flag CS_INCIDENT_STATUSES_B.resolved_flag % TYPE;
9822: BEGIN
9823: -- Logic added for 11.5.10 enhancement : Usability changes
9824: x_return_status := FND_API.G_RET_STS_SUCCESS;
9825: SELECT
9826: responded_flag
9827: , resolved_flag
9828: INTO
9916: ( 'P_TEXT'
9917: , 'CS_SERVICEREQUEST_UTIL.get_status_details'||'-'||SQLERRM
9918: );
9919: FND_MSG_PUB.ADD;
9920: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9921: END get_reacted_resolved_dates;
9922: -- -----------------------------------------------------------------------------
9923: -- Procedure Name : get_party_details
9924: -- Parameter :
9944: , x_return_status OUT NOCOPY VARCHAR2
9945: ) IS
9946: BEGIN
9947: -- Initialize Return Status to SUCCESS
9948: x_return_status := FND_API.G_RET_STS_SUCCESS;
9949:
9950: SELECT
9951: party_type
9952: , status
9958: WHERE a.party_id = p_party_id;
9959:
9960: EXCEPTION
9961: WHEN NO_DATA_FOUND THEN
9962: x_return_status := FND_API.G_RET_STS_ERROR;
9963:
9964: WHEN OTHERS THEN
9965: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
9966: fnd_message.set_token
9967: ( 'P_TEXT'
9968: , 'CS_SERVICEREQUEST_UTIL.get_party_detail:'||'-'||SQLERRM
9969: );
9970: fnd_msg_pub.ADD;
9971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9972:
9973: END get_party_details;
9974: -- -----------------------------------------------------------------------------
9975: -- Procedure Name : update_task_address
10031:
10032: l_upd_task Varchar2(2) := 'N'; -- Bug 8947959
10033: --
10034: BEGIN
10035: x_return_status := FND_API.G_RET_STS_SUCCESS;
10036: --
10037: FOR task_rec in c_tasks LOOP
10038: -- set address variables
10039: -- Start Bug 8947959
10066: );
10067: FND_MSG_PUB.ADD_DETAIL
10068: ( p_associated_column1 => 'CS_INCIDENTS_ALL_B.incident_location_id'
10069: );
10070: RAISE FND_API.G_EXC_ERROR;
10071: END IF;
10072: END IF;
10073: --
10074: -- Call task update APIs
10091: , p_task_id => task_rec.task_id
10092: , p_object_version_number => task_rec.object_version_number
10093: , p_location_id => l_location_id
10094: , p_address_id => l_site_id
10095: , p_enable_workflow => FND_API.G_MISS_CHAR
10096: , p_abort_workflow => FND_API.G_MISS_CHAR
10097: , p_task_split_flag => FND_API.G_MISS_CHAR
10098: , x_return_status => x_return_status
10099: , x_msg_count => l_msg_count
10092: , p_object_version_number => task_rec.object_version_number
10093: , p_location_id => l_location_id
10094: , p_address_id => l_site_id
10095: , p_enable_workflow => FND_API.G_MISS_CHAR
10096: , p_abort_workflow => FND_API.G_MISS_CHAR
10097: , p_task_split_flag => FND_API.G_MISS_CHAR
10098: , x_return_status => x_return_status
10099: , x_msg_count => l_msg_count
10100: , x_msg_data => l_msg_data
10093: , p_location_id => l_location_id
10094: , p_address_id => l_site_id
10095: , p_enable_workflow => FND_API.G_MISS_CHAR
10096: , p_abort_workflow => FND_API.G_MISS_CHAR
10097: , p_task_split_flag => FND_API.G_MISS_CHAR
10098: , x_return_status => x_return_status
10099: , x_msg_count => l_msg_count
10100: , x_msg_data => l_msg_data
10101: );
10102: END IF;
10103: --
10104: -- check Error status
10105: --
10106: IF x_return_status = FND_API.G_RET_STS_ERROR
10107: THEN
10108: RAISE FND_API.G_EXC_ERROR;
10109: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10110: THEN
10104: -- check Error status
10105: --
10106: IF x_return_status = FND_API.G_RET_STS_ERROR
10107: THEN
10108: RAISE FND_API.G_EXC_ERROR;
10109: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10110: THEN
10111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10112: END IF;
10105: --
10106: IF x_return_status = FND_API.G_RET_STS_ERROR
10107: THEN
10108: RAISE FND_API.G_EXC_ERROR;
10109: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10110: THEN
10111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10112: END IF;
10113:
10107: THEN
10108: RAISE FND_API.G_EXC_ERROR;
10109: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10110: THEN
10111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10112: END IF;
10113:
10114: End If; -- bug 8947959
10115: --
10114: End If; -- bug 8947959
10115: --
10116: END LOOP;
10117: EXCEPTION
10118: WHEN FND_API.G_EXC_ERROR
10119: THEN
10120: x_return_status := FND_API.G_RET_STS_ERROR;
10121: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
10122: THEN
10116: END LOOP;
10117: EXCEPTION
10118: WHEN FND_API.G_EXC_ERROR
10119: THEN
10120: x_return_status := FND_API.G_RET_STS_ERROR;
10121: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
10122: THEN
10123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10124: WHEN OTHERS
10117: EXCEPTION
10118: WHEN FND_API.G_EXC_ERROR
10119: THEN
10120: x_return_status := FND_API.G_RET_STS_ERROR;
10121: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
10122: THEN
10123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10124: WHEN OTHERS
10125: THEN
10119: THEN
10120: x_return_status := FND_API.G_RET_STS_ERROR;
10121: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
10122: THEN
10123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10124: WHEN OTHERS
10125: THEN
10126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10127: END update_task_address;
10122: THEN
10123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10124: WHEN OTHERS
10125: THEN
10126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10127: END update_task_address;
10128:
10129: -- Verify_LocationUpdate_For_FSTasks
10130: -- Following procedure validates if the update to the service request location is allowed.
10207: BEGIN
10208: -- Check if the profile option for the state restriction is set.
10209: -- then only apply the logic in this function
10210:
10211: x_return_status := FND_API.G_RET_STS_SUCCESS;
10212:
10213: IF FND_PROFILE.VALUE('CS_SR_ENABLE_TASK_STATE_RESTRICTIONS') = 'Y' THEN
10214: -- Get all the tasks for the service request
10215: FOR c_tasks_rec IN c_tasks
10261: l_closed_flag = 'Y'
10262: ) THEN
10263: RAISE loc_update_not_alwd_exp ;
10264: ELSE
10265: x_return_status := FND_API.G_RET_STS_SUCCESS;
10266: END IF ;
10267: END IF; -- end if for DISPATCH
10268: END LOOP;
10269: ELSE
10266: END IF ;
10267: END IF; -- end if for DISPATCH
10268: END LOOP;
10269: ELSE
10270: x_return_status := FND_API.G_RET_STS_SUCCESS;
10271: END IF;
10272:
10273: EXCEPTION
10274: WHEN loc_update_not_alwd_exp THEN
10273: EXCEPTION
10274: WHEN loc_update_not_alwd_exp THEN
10275: FND_MESSAGE.SET_Name('CS','CS_SR_LOC_UPD_NOT_ALLWD');
10276: FND_MSG_PUB.ADD;
10277: x_return_status := FND_API.G_RET_STS_ERROR;
10278: WHEN FND_API.G_EXC_ERROR THEN
10279: x_return_status := FND_API.G_RET_STS_ERROR;
10280: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10274: WHEN loc_update_not_alwd_exp THEN
10275: FND_MESSAGE.SET_Name('CS','CS_SR_LOC_UPD_NOT_ALLWD');
10276: FND_MSG_PUB.ADD;
10277: x_return_status := FND_API.G_RET_STS_ERROR;
10278: WHEN FND_API.G_EXC_ERROR THEN
10279: x_return_status := FND_API.G_RET_STS_ERROR;
10280: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10282: WHEN OTHERS THEN
10275: FND_MESSAGE.SET_Name('CS','CS_SR_LOC_UPD_NOT_ALLWD');
10276: FND_MSG_PUB.ADD;
10277: x_return_status := FND_API.G_RET_STS_ERROR;
10278: WHEN FND_API.G_EXC_ERROR THEN
10279: x_return_status := FND_API.G_RET_STS_ERROR;
10280: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10282: WHEN OTHERS THEN
10283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10276: FND_MSG_PUB.ADD;
10277: x_return_status := FND_API.G_RET_STS_ERROR;
10278: WHEN FND_API.G_EXC_ERROR THEN
10279: x_return_status := FND_API.G_RET_STS_ERROR;
10280: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10282: WHEN OTHERS THEN
10283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10284: END Verify_LocUpdate_For_FSTasks;
10277: x_return_status := FND_API.G_RET_STS_ERROR;
10278: WHEN FND_API.G_EXC_ERROR THEN
10279: x_return_status := FND_API.G_RET_STS_ERROR;
10280: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10282: WHEN OTHERS THEN
10283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10284: END Verify_LocUpdate_For_FSTasks;
10285:
10279: x_return_status := FND_API.G_RET_STS_ERROR;
10280: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10282: WHEN OTHERS THEN
10283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10284: END Verify_LocUpdate_For_FSTasks;
10285:
10286:
10287: -- -------------------------------------------------------------------
10316: IS
10317: l_error_message VARCHAR2(2000);
10318: BEGIN
10319: -- Initialize API return status to success
10320: p_return_status := FND_API.G_RET_STS_SUCCESS;
10321:
10322: IF ( p_ext_desc_context || p_ext_desc_segment1 || p_ext_desc_segment2 ||
10323: p_ext_desc_segment3 || p_ext_desc_segment4 || p_ext_desc_segment5 ||
10324: p_ext_desc_segment6 || p_ext_desc_segment7 || p_ext_desc_segment8 ||
10351: resp_id => p_resp_id
10352: ) THEN
10353: l_error_message := FND_FLEX_DESCVAL.Error_Message;
10354: CS_ServiceRequest_UTIL.Add_Desc_Flex_Msg(p_api_name, l_error_message);
10355: p_return_status := FND_API.G_RET_STS_ERROR;
10356: END IF;
10357: END IF;
10358:
10359: END Validate_External_Desc_Flex;
10386: AND revision_id = p_platform_Version_id ;
10387:
10388: BEGIN
10389: -- Initialize the return status.
10390: x_return_status := FND_API.G_RET_STS_SUCCESS;
10391:
10392: IF p_platform_id IS NOT NULL THEN
10393: -- Check if the platform is serial number controlled
10394:
10404: FETCH get_version_id INTO l_platform_Version_id;
10405: CLOSE get_version_id;
10406:
10407: IF l_platform_Version_id IS NOT NULL THEN
10408: x_return_status := FND_API.G_RET_STS_SUCCESS;
10409: ELSE
10410: RAISE invld_platform_version_id_excp;
10411: END IF;
10412: END IF;
10413: END IF;
10414:
10415: EXCEPTION
10416: WHEN invld_platform_version_id_excp THEN
10417: x_return_status := FND_API.G_RET_STS_ERROR;
10418: Add_Invalid_Argument_Msg
10419: (p_token_an => l_api_name_full,
10420: p_token_v => TO_CHAR(p_platform_version_id),
10421: p_token_p => p_parameter_name ,
10425: WHEN OTHERS THEN
10426: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
10427: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
10428: fnd_msg_pub.ADD;
10429: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10430:
10431: END Validate_Platform_Version_Id;
10432:
10433: FUNCTION BOOLEAN_TO_NUMBER (
10479: raise NO_DATA_FOUND;
10480: END IF;
10481: CLOSE CREDITCARD_CUR;
10482:
10483: x_return_status := FND_API.G_RET_STS_SUCCESS;
10484:
10485: EXCEPTION
10486: WHEN NO_DATA_FOUND THEN
10487: Add_Invalid_Argument_Msg
10489: p_token_v => TO_CHAR(p_instrument_payment_use_id),
10490: p_token_p => p_parameter_name ,
10491: p_table_name => G_TABLE_NAME,
10492: p_column_name => 'INSTRUMENT_PAYEMENT_USE_ID' );
10493: x_return_status := FND_API.G_RET_STS_ERROR;
10494: WHEN OTHERS THEN
10495: if p_called_from ='I' THEN
10496: FND_MESSAGE.Set_Name('CS', 'CS_Create_CREDIT_CARD_ERROR');
10497: else
10499: End if;
10500: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
10501: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
10502: fnd_msg_pub.ADD;
10503: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10504: END VALIDATE_CREDIT_CARD;
10505:
10506:
10507: --added by siahmed for 12.2+ project to integrate Oracle Projects with SE
10522: l_task_id_count NUMBER;
10523: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||p_api_name;
10524: BEGIN
10525:
10526: x_return_status := FND_API.G_RET_STS_ERROR;
10527: x_error_msg := null;
10528: --validate if the project_id or project_task_id passed is a valid one
10529: --if project_task_id is passed without project_id then fail the validation
10530: IF (p_project_id IS NULL AND p_project_task_id IS NOT NULL) THEN
10527: x_error_msg := null;
10528: --validate if the project_id or project_task_id passed is a valid one
10529: --if project_task_id is passed without project_id then fail the validation
10530: IF (p_project_id IS NULL AND p_project_task_id IS NOT NULL) THEN
10531: x_return_status := FND_API.G_RET_STS_ERROR;
10532: FND_MESSAGE.Set_Name('CS', 'CS_SR_NO_PROJ_NUM');
10533: fnd_message.set_token ('P_TEXT',l_api_name_full||'- Project_id null');
10534: fnd_msg_pub.ADD;
10535: ELSIF (p_project_id IS NOT NULL AND p_project_task_id IS NULL) THEN
10532: FND_MESSAGE.Set_Name('CS', 'CS_SR_NO_PROJ_NUM');
10533: fnd_message.set_token ('P_TEXT',l_api_name_full||'- Project_id null');
10534: fnd_msg_pub.ADD;
10535: ELSIF (p_project_id IS NOT NULL AND p_project_task_id IS NULL) THEN
10536: x_return_status := FND_API.G_RET_STS_ERROR;
10537: FND_MESSAGE.Set_Name('CS', 'CS_SR_NO_TASK_NUM');
10538: fnd_message.set_token ('P_TEXT',l_api_name_full||'-task_id null');
10539: fnd_msg_pub.ADD;
10540: ELSIF (p_project_id IS NOT NULL AND p_project_task_id IS NOT NULL AND p_exp_org_id IS NULL) THEN
10537: FND_MESSAGE.Set_Name('CS', 'CS_SR_NO_TASK_NUM');
10538: fnd_message.set_token ('P_TEXT',l_api_name_full||'-task_id null');
10539: fnd_msg_pub.ADD;
10540: ELSIF (p_project_id IS NOT NULL AND p_project_task_id IS NOT NULL AND p_exp_org_id IS NULL) THEN
10541: x_return_status := FND_API.G_RET_STS_ERROR;
10542: FND_MESSAGE.Set_Name('CS', 'CS_SR_NO_EXPENDITURE_ORG');
10543: fnd_message.set_token ('P_TEXT',l_api_name_full||'-exp_org_id null');
10544: fnd_msg_pub.ADD;
10545: ELSE
10566: if (l_project_id IS NULL OR l_project_task_id IS NULL OR l_exp_org_id IS NULL) THEN
10567: FND_MESSAGE.Set_Name('CS', 'CS_INC_CLEAR_PROJECT_INFO');
10568: fnd_message.set_token ('P_TEXT',l_api_name_full);
10569: fnd_msg_pub.ADD;
10570: x_return_status := FND_API.G_RET_STS_ERROR;
10571: --x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10572: ELSE
10573: x_return_status := FND_API.G_RET_STS_SUCCESS;
10574: END IF;
10567: FND_MESSAGE.Set_Name('CS', 'CS_INC_CLEAR_PROJECT_INFO');
10568: fnd_message.set_token ('P_TEXT',l_api_name_full);
10569: fnd_msg_pub.ADD;
10570: x_return_status := FND_API.G_RET_STS_ERROR;
10571: --x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10572: ELSE
10573: x_return_status := FND_API.G_RET_STS_SUCCESS;
10574: END IF;
10575:
10569: fnd_msg_pub.ADD;
10570: x_return_status := FND_API.G_RET_STS_ERROR;
10571: --x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10572: ELSE
10573: x_return_status := FND_API.G_RET_STS_SUCCESS;
10574: END IF;
10575:
10576: EXCEPTION
10577: WHEN TOO_MANY_ROWS THEN
10578: FND_MESSAGE.Set_Name('CS', 'CS_SR_INVALID_PROJECT_DETAILS');
10579: --throwing SQLERRM CZ this means there is data issue
10580: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
10581: fnd_msg_pub.ADD;
10582: x_return_status := FND_API.G_RET_STS_ERROR;
10583: --x_return_status := FND_API.G_RET_STS_SUCCESS;
10584: WHEN NO_DATA_FOUND THEN
10585: Add_Invalid_Argument_Msg
10586: (p_token_an => l_api_name_full,
10579: --throwing SQLERRM CZ this means there is data issue
10580: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
10581: fnd_msg_pub.ADD;
10582: x_return_status := FND_API.G_RET_STS_ERROR;
10583: --x_return_status := FND_API.G_RET_STS_SUCCESS;
10584: WHEN NO_DATA_FOUND THEN
10585: Add_Invalid_Argument_Msg
10586: (p_token_an => l_api_name_full,
10587: p_token_v => TO_CHAR(p_project_id||':'||p_project_task_id||':'|| p_exp_org_id),
10587: p_token_v => TO_CHAR(p_project_id||':'||p_project_task_id||':'|| p_exp_org_id),
10588: p_token_p => 'p_project_id:p_project_task_id:p_exp_org_id',
10589: p_table_name => G_TABLE_NAME,
10590: p_column_name => 'PROJECT_INFO' );
10591: x_return_status := FND_API.G_RET_STS_ERROR;
10592:
10593: END;
10594: END IF;
10595:
10593: END;
10594: END IF;
10595:
10596: EXCEPTION WHEN OTHERS THEN
10597: x_return_status := FND_API.G_RET_STS_ERROR;
10598: -- x_error_msg:= 'The project number and/or project task number are not valid.Please select valid values.';
10599: --fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||x_error_msg);
10600: FND_MESSAGE.Set_Name('CS', 'CS_SR_INVALID_PROJECT_DETAILS');
10601: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
10599: --fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||x_error_msg);
10600: FND_MESSAGE.Set_Name('CS', 'CS_SR_INVALID_PROJECT_DETAILS');
10601: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
10602: fnd_msg_pub.ADD;
10603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10604: END VALIDATE_PROJECT_INFO;
10605:
10606: --Validate Price List Id, Bug 15995804
10607: PROCEDURE VALIDATE_PRICE_LIST_HEADER
10632: raise NO_DATA_FOUND;
10633: END IF;
10634: CLOSE PRICELIST_CUR;
10635:
10636: x_return_status := FND_API.G_RET_STS_SUCCESS;
10637:
10638: EXCEPTION
10639: WHEN NO_DATA_FOUND THEN
10640: Add_Invalid_Argument_Msg
10642: p_token_v => TO_CHAR(p_price_list_header_id),
10643: p_token_p => p_parameter_name ,
10644: p_table_name => G_TABLE_NAME,
10645: p_column_name => 'PRICE_LIST_HEADER_ID' );
10646: x_return_status := FND_API.G_RET_STS_ERROR;
10647: WHEN OTHERS THEN
10648: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
10649: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
10650: fnd_msg_pub.ADD;
10647: WHEN OTHERS THEN
10648: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
10649: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
10650: fnd_msg_pub.ADD;
10651: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10652: END VALIDATE_PRICE_LIST_HEADER;
10653:
10654:
10655: END CS_ServiceRequest_UTIL;