[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
842:
843:
844: BEGIN
845: -- Initialize the return status.
846: x_return_status := FND_API.G_RET_STS_SUCCESS;
847:
848: -- Fetch ID from database.
849: SELECT header_id INTO p_rma_header_id
850: FROM so_headers_all
852: AND order_type_id = NVL(p_order_type_id,order_type_id) ;
853:
854: EXCEPTION
855: WHEN NO_DATA_FOUND THEN
856: x_return_status := FND_API.G_RET_STS_ERROR;
857:
858: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
859: p_token_v => TO_CHAR(p_rma_number),
860: p_token_p => p_parameter_name,
861: p_table_name => G_TABLE_NAME ,
862: p_column_name => 'RMA_NUMBER' );
863:
864: WHEN TOO_MANY_ROWS THEN
865: x_return_status := FND_API.G_RET_STS_ERROR;
866:
867: Add_Duplicate_Value_Msg( p_token_an => l_api_name_full,
868: p_token_p => p_parameter_name,
869: p_table_name => G_TABLE_NAME ,
871: WHEN OTHERS THEN
872: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
873: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
874: fnd_msg_pub.ADD;
875: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
876: END Convert_RMA_Number_To_ID;
877:
878: -- --------------------------------------------------------------------------------
879: -- Validate_Who_info
891: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
892:
893: BEGIN
894: -- Initialize Return Status to SUCCESS
895: x_return_status := FND_API.G_RET_STS_SUCCESS;
896:
897: BEGIN
898:
899: -- Special check to not check the dates when the user ID is (-1).
910: END IF;
911:
912: EXCEPTION
913: WHEN NO_DATA_FOUND THEN
914: x_return_status := FND_API.G_RET_STS_ERROR;
915: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
916: p_token_v => TO_CHAR(p_user_id),
917: p_token_p => p_parameter_name_usr,
918: p_table_name => G_TABLE_NAME,
920: WHEN OTHERS THEN
921: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
922: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
923: fnd_msg_pub.ADD;
924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
925:
926: RETURN;
927: END;
928:
934: WHERE login_id = p_login_id
935: AND user_id = p_user_id;
936: EXCEPTION
937: WHEN NO_DATA_FOUND THEN
938: x_return_status := FND_API.G_RET_STS_ERROR;
939: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
940: p_token_v => TO_CHAR(p_login_id),
941: p_token_p => p_parameter_name_login,
942: p_table_name => G_TABLE_NAME,
945: WHEN OTHERS THEN
946: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
947: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
948: fnd_msg_pub.ADD;
949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
950: END;
951: END IF;
952: END Validate_Who_Info;
953:
998: AND TRUNC(NVL(end_date_active, SYSDATE));
999:
1000: BEGIN
1001: -- Initialize the return status.
1002: x_return_status := FND_API.G_RET_STS_SUCCESS;
1003: x_CMRO_flag := NULL;
1004: x_maintenance_flag := NULL;
1005:
1006: l_profile := FND_PROFILE.VALUE('CS_SR_USE_TYPE_RESPON_SETUP');
1011: OPEN val_type_map;
1012: FETCH val_type_map INTO l_dummy;
1013: IF (val_type_map%NOTFOUND) THEN
1014: CLOSE val_type_map;
1015: x_return_status := FND_API.G_RET_STS_ERROR;
1016: fnd_message.set_name ('CS', 'CS_SR_TYPE_BY_RESP');
1017: fnd_message.set_token ('OPERATION',p_operation);
1018: fnd_msg_pub.ADD;
1019: ELSE
1016: fnd_message.set_name ('CS', 'CS_SR_TYPE_BY_RESP');
1017: fnd_message.set_token ('OPERATION',p_operation);
1018: fnd_msg_pub.ADD;
1019: ELSE
1020: x_return_status := FND_API.G_RET_STS_SUCCESS;
1021: --Fixed bug 2809312, moved this close cursor here from
1022: --after the if.
1023: CLOSE val_type_map;
1024: END IF;
1027: -- for cmro_eam
1028: FETCH val_type INTO x_CMRO_flag,x_maintenance_flag;
1029: IF (val_type%NOTFOUND) THEN
1030: CLOSE val_type;
1031: x_return_status := FND_API.G_RET_STS_ERROR;
1032: RAISE NO_DATA_FOUND ;
1033: ELSE
1034: x_return_status := FND_API.G_RET_STS_SUCCESS;
1035: --Fixed bug 2809312, moved this close cursor here from
1030: CLOSE val_type;
1031: x_return_status := FND_API.G_RET_STS_ERROR;
1032: RAISE NO_DATA_FOUND ;
1033: ELSE
1034: x_return_status := FND_API.G_RET_STS_SUCCESS;
1035: --Fixed bug 2809312, moved this close cursor here from
1036: --after the if.
1037: CLOSE val_type;
1038: END IF;
1039: END IF;
1040:
1041: EXCEPTION
1042: WHEN NO_DATA_FOUND THEN
1043: x_return_status := FND_API.G_RET_STS_ERROR;
1044: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1045: p_token_v => TO_CHAR(p_type_id),
1046: p_token_p => p_parameter_name,
1047: p_table_name => G_TABLE_NAME,
1050: WHEN OTHERS THEN
1051: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1052: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1053: fnd_msg_pub.ADD;
1054: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1055: END Validate_Type;
1056:
1057: *******************************/
1058:
1109: -- and trunc(nvl(end_date_active, sysdate));
1110:
1111: BEGIN
1112: -- Initialize the return status.
1113: x_return_status := FND_API.G_RET_STS_SUCCESS;
1114: x_cmro_flag := NULL;
1115: x_maintenance_flag := NULL;
1116:
1117: -- Verify the type ID against the database.
1121: fetch val_type_map into l_dummy;
1122: close val_type_map;
1123:
1124: if ( l_dummy = 'x' ) then
1125: x_return_status := FND_API.G_RET_STS_SUCCESS;
1126: else
1127: -- new message for 11.5.10
1128: -- You do not have access to the service request type that is
1129: -- being created. Please contact your system administrator.
1128: -- You do not have access to the service request type that is
1129: -- being created. Please contact your system administrator.
1130: fnd_message.set_name ('CS', 'CS_SR_WEB_NO_PRIV');
1131: fnd_msg_pub.ADD;
1132: x_return_status := FND_API.G_RET_STS_ERROR;
1133: end if;
1134: else
1135: -- For bug 3474365 - included an if condition while called for validating old sr type
1136: -- for self_Service applications.
1146: -- as a valid type.
1147: fnd_message.set_name ('CS', 'CS_SR_INVALID_TYPE');
1148: fnd_message.set_token('API_NAME', l_api_name_full);
1149: fnd_msg_pub.ADD;
1150: x_return_status := FND_API.G_RET_STS_ERROR;
1151:
1152: elsif (not( trunc(sysdate) >= trunc(nvl(l_start_date, sysdate))
1153: and trunc(sysdate) <= trunc(nvl(l_end_date, sysdate)) )) then
1154: fnd_message.set_name ('CS', 'CS_SR_INVALID_TYPE');
1153: and trunc(sysdate) <= trunc(nvl(l_end_date, sysdate)) )) then
1154: fnd_message.set_name ('CS', 'CS_SR_INVALID_TYPE');
1155: fnd_message.set_token('API_NAME', l_api_name_full);
1156: fnd_msg_pub.ADD;
1157: x_return_status := FND_API.G_RET_STS_ERROR;
1158: else
1159: l_flags_set := 'Y';
1160: x_return_status := FND_API.G_RET_STS_SUCCESS;
1161: end if;
1156: fnd_msg_pub.ADD;
1157: x_return_status := FND_API.G_RET_STS_ERROR;
1158: else
1159: l_flags_set := 'Y';
1160: x_return_status := FND_API.G_RET_STS_SUCCESS;
1161: end if;
1162: close val_type_unsecure;
1163:
1164: elsif ( p_operation = 'UPDATE_OLD') then
1171: -- as a valid type.
1172: fnd_message.set_name ('CS', 'CS_SR_INVALID_TYPE');
1173: fnd_message.set_token('API_NAME', l_api_name_full);
1174: fnd_msg_pub.ADD;
1175: x_return_status := FND_API.G_RET_STS_ERROR;
1176: else
1177: l_flags_set := 'Y';
1178: x_return_status := FND_API.G_RET_STS_SUCCESS;
1179: end if;
1174: fnd_msg_pub.ADD;
1175: x_return_status := FND_API.G_RET_STS_ERROR;
1176: else
1177: l_flags_set := 'Y';
1178: x_return_status := FND_API.G_RET_STS_SUCCESS;
1179: end if;
1180: close val_type_unsecure;
1181:
1182: end if; -- if ( p_operation = 'UPDATE') then
1197: -- service requests of this type. Please contact your system administrator.
1198: fnd_message.set_name ('CS', 'CS_SR_AGENT_NO_PRIV');
1199: fnd_message.set_token('API_NAME', l_api_name_full);
1200: fnd_msg_pub.ADD;
1201: x_return_status := FND_API.G_RET_STS_ERROR;
1202: elsif (not( trunc(sysdate) >= trunc(nvl(l_start_date, sysdate))
1203: and trunc(sysdate) <= trunc(nvl(l_end_date, sysdate)) )) then
1204: fnd_message.set_name ('CS', 'CS_SR_INVALID_TYPE');
1205: fnd_message.set_token('API_NAME', l_api_name_full);
1203: and trunc(sysdate) <= trunc(nvl(l_end_date, sysdate)) )) then
1204: fnd_message.set_name ('CS', 'CS_SR_INVALID_TYPE');
1205: fnd_message.set_token('API_NAME', l_api_name_full);
1206: fnd_msg_pub.ADD;
1207: x_return_status := FND_API.G_RET_STS_ERROR;
1208: else
1209: l_flags_set := 'Y';
1210: x_return_status := FND_API.G_RET_STS_SUCCESS;
1211: end if;
1206: fnd_msg_pub.ADD;
1207: x_return_status := FND_API.G_RET_STS_ERROR;
1208: else
1209: l_flags_set := 'Y';
1210: x_return_status := FND_API.G_RET_STS_SUCCESS;
1211: end if;
1212: close val_type_secure;
1213: elsif ( p_operation = 'UPDATE_OLD') then
1214: open val_type_secure;
1222: --fnd_message.set_name ('CS', 'CS_SR_INVALID_TYPE');
1223: fnd_message.set_name ('CS', 'CS_SR_AGENT_NO_PRIV');
1224: fnd_message.set_token('API_NAME', l_api_name_full);
1225: fnd_msg_pub.ADD;
1226: x_return_status := FND_API.G_RET_STS_ERROR;
1227: else
1228: l_flags_set := 'Y';
1229: x_return_status := FND_API.G_RET_STS_SUCCESS;
1230: end if;
1225: fnd_msg_pub.ADD;
1226: x_return_status := FND_API.G_RET_STS_ERROR;
1227: else
1228: l_flags_set := 'Y';
1229: x_return_status := FND_API.G_RET_STS_SUCCESS;
1230: end if;
1231: close val_type_secure;
1232:
1233: end if; -- if ( p_operation = 'UPDATE') then
1233: end if; -- if ( p_operation = 'UPDATE') then
1234: end if; -- if ( p_business_usage = 'SELF_SERVICE' ) then
1235:
1236: -- get the values of the flags for the out parameters if not set
1237: if ( x_return_status = FND_API.G_RET_STS_SUCCESS and
1238: l_flags_set = 'N' ) then
1239: open val_type_unsecure;
1240: fetch val_type_unsecure into x_cmro_flag, x_maintenance_flag,l_start_date,l_end_date;
1241: close val_type_unsecure;
1242: end if;
1243:
1244: EXCEPTION
1245: WHEN NO_DATA_FOUND THEN
1246: x_return_status := FND_API.G_RET_STS_ERROR;
1247: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1248: p_token_v => TO_CHAR(p_type_id),
1249: p_token_p => p_parameter_name,
1250: p_table_name => G_TABLE_NAME,
1253: WHEN OTHERS THEN
1254: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1255: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1256: fnd_msg_pub.ADD;
1257: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1258: END Validate_Type;
1259: /*
1260: ** Validate_Status
1261: ** Note : This procedure is used during Create Service Request.
1334: l_api_name CONSTANT VARCHAR2(30) := 'Validate_Status';
1335: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
1336: BEGIN
1337: -- Initialize the return status.
1338: x_return_status := FND_API.G_RET_STS_SUCCESS;
1339:
1340: IF NVL(p_operation,'CREATE') = 'CREATE' THEN
1341:
1342: OPEN all_statuses_Csr;
1388:
1389:
1390: EXCEPTION
1391: WHEN NO_DATA_FOUND THEN
1392: x_return_status := FND_API.G_RET_STS_ERROR;
1393:
1394: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1395: p_token_v => TO_CHAR(p_status_id),
1396: p_token_p => p_parameter_name,
1399: WHEN OTHERS THEN
1400: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1401: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1402: fnd_msg_pub.ADD;
1403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1404: END Validate_Status;
1405:
1406: /*
1407: ** Validate_Updated_Status
1503:
1504: BEGIN
1505:
1506: -- Initialize the return status.
1507: x_return_status := FND_API.G_RET_STS_SUCCESS;
1508: l_status_valid := 'N' ;
1509:
1510: -- Verify the given status against the cs_incident_statuses table.
1511: -- Get all the values for the flags.
1620: END IF;
1621: END IF;
1622: EXCEPTION
1623: WHEN NO_DATA_FOUND THEN
1624: x_return_status := FND_API.G_RET_STS_ERROR;
1625: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1626: p_token_v => TO_CHAR(p_new_status_id),
1627: p_token_p => p_parameter_name,
1628: p_table_name => G_TABLE_NAME,
1630: WHEN OTHERS THEN
1631: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1632: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1633: fnd_msg_pub.ADD;
1634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1635: END Validate_Updated_Status;
1636:
1637:
1638: -- Validate_Severity
1651: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
1652:
1653: BEGIN
1654: -- Initialize Return Status to SUCCESS
1655: x_return_status := FND_API.G_RET_STS_SUCCESS;
1656:
1657: BEGIN
1658: SELECT 'x' INTO l_dummy
1659: FROM cs_incident_severities_b
1662: AND TRUNC(SYSDATE) BETWEEN TRUNC(NVL(start_date_active, SYSDATE))
1663: AND TRUNC(NVL(end_date_active, SYSDATE));
1664: EXCEPTION
1665: WHEN NO_DATA_FOUND THEN
1666: x_return_status := FND_API.G_RET_STS_ERROR;
1667: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1668: p_token_v => TO_CHAR(p_severity_id),
1669: p_token_p => p_parameter_name,
1670: p_table_name => G_TABLE_NAME,
1672: WHEN OTHERS THEN
1673: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1674: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1675: fnd_msg_pub.ADD;
1676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1677:
1678: END;
1679: END Validate_Severity ;
1680:
1695: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
1696:
1697: BEGIN
1698: -- Initialize Return Status to SUCCESS
1699: x_return_status := FND_API.G_RET_STS_SUCCESS;
1700:
1701: BEGIN
1702: SELECT 'x' INTO l_dummy
1703: FROM cs_incident_urgencies_b
1705: AND TRUNC(SYSDATE) BETWEEN TRUNC(NVL(start_date_active, SYSDATE))
1706: AND TRUNC(NVL(end_date_active, SYSDATE));
1707: EXCEPTION
1708: WHEN NO_DATA_FOUND THEN
1709: x_return_status := FND_API.G_RET_STS_ERROR;
1710: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1711: p_token_v => TO_CHAR(p_urgency_id),
1712: p_token_p => p_parameter_name,
1713: p_table_name => G_TABLE_NAME,
1715: WHEN OTHERS THEN
1716: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1717: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1718: fnd_msg_pub.ADD;
1719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1720:
1721: END;
1722: END Validate_Urgency;
1723:
1742:
1743:
1744: BEGIN
1745: IF p_closed_date >= p_request_date THEN
1746: x_return_status := FND_API.G_RET_STS_SUCCESS;
1747: ELSE
1748: x_return_status := FND_API.G_RET_STS_ERROR;
1749: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1750: p_token_v => TO_CHAR(p_closed_date),
1744: BEGIN
1745: IF p_closed_date >= p_request_date THEN
1746: x_return_status := FND_API.G_RET_STS_SUCCESS;
1747: ELSE
1748: x_return_status := FND_API.G_RET_STS_ERROR;
1749: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1750: p_token_v => TO_CHAR(p_closed_date),
1751: p_token_p => p_parameter_name,
1752: p_table_name => G_TABLE_NAME ,
1757: WHEN OTHERS THEN
1758: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1759: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1760: fnd_msg_pub.ADD;
1761: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1762:
1763: END Validate_Closed_Date;
1764:
1765: ---- Added for Enh# 1830701
1778: /* p_request_date is the incident date and the incident date
1779: should be greater than and equal to the incident occured_date*/
1780:
1781: IF p_request_date >= p_inc_occurred_date THEN
1782: x_return_status := FND_API.G_RET_STS_SUCCESS;
1783: ELSE
1784: x_return_status := FND_API.G_RET_STS_ERROR;
1785: fnd_message.set_name ('CS','CS_INC_DATES_MISMATCH');
1786: fnd_message.set_token ('INCIDENT_DATE',TO_CHAR(p_request_date));
1780:
1781: IF p_request_date >= p_inc_occurred_date THEN
1782: x_return_status := FND_API.G_RET_STS_SUCCESS;
1783: ELSE
1784: x_return_status := FND_API.G_RET_STS_ERROR;
1785: fnd_message.set_name ('CS','CS_INC_DATES_MISMATCH');
1786: fnd_message.set_token ('INCIDENT_DATE',TO_CHAR(p_request_date));
1787: fnd_message.set_token ('INCIDENT_OCC_DATE',TO_CHAR(p_inc_occurred_date));
1788: FND_MSG_PUB.ADD;
1791: WHEN OTHERS THEN
1792: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1793: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1794: fnd_msg_pub.ADD;
1795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1796:
1797: END Validate_Inc_Reported_Date;
1798:
1799: PROCEDURE Validate_Inc_Occurred_Date
1808: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
1809:
1810: BEGIN
1811: IF p_inc_occurred_date <= p_request_date THEN
1812: x_return_status := FND_API.G_RET_STS_SUCCESS;
1813: ELSE
1814: x_return_status := FND_API.G_RET_STS_ERROR;
1815: fnd_message.set_name ('CS','CS_INC_DATES_MISMATCH');
1816: fnd_message.set_token ('INCIDENT_DATE',TO_CHAR(p_request_date));
1810: BEGIN
1811: IF p_inc_occurred_date <= p_request_date THEN
1812: x_return_status := FND_API.G_RET_STS_SUCCESS;
1813: ELSE
1814: x_return_status := FND_API.G_RET_STS_ERROR;
1815: fnd_message.set_name ('CS','CS_INC_DATES_MISMATCH');
1816: fnd_message.set_token ('INCIDENT_DATE',TO_CHAR(p_request_date));
1817: fnd_message.set_token ('INCIDENT_OCC_DATE',TO_CHAR(p_inc_occurred_date));
1818: FND_MSG_PUB.ADD;
1821: WHEN OTHERS THEN
1822: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1823: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1824: fnd_msg_pub.ADD;
1825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1826:
1827: END Validate_Inc_Occurred_Date;
1828:
1829: PROCEDURE Validate_Inc_Resolved_Date
1838: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
1839:
1840: BEGIN
1841: IF p_inc_resolved_date >= p_request_date THEN
1842: x_return_status := FND_API.G_RET_STS_SUCCESS;
1843: ELSE
1844: x_return_status := FND_API.G_RET_STS_ERROR;
1845: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1846: p_token_v => TO_CHAR(p_inc_resolved_date),
1840: BEGIN
1841: IF p_inc_resolved_date >= p_request_date THEN
1842: x_return_status := FND_API.G_RET_STS_SUCCESS;
1843: ELSE
1844: x_return_status := FND_API.G_RET_STS_ERROR;
1845: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1846: p_token_v => TO_CHAR(p_inc_resolved_date),
1847: p_token_p => p_parameter_name,
1848: p_table_name => G_TABLE_NAME,
1852: WHEN OTHERS THEN
1853: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1854: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1855: fnd_msg_pub.ADD;
1856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1857:
1858: END Validate_Inc_Resolved_Date;
1859:
1860: PROCEDURE Validate_Inc_Responded_Date
1869: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
1870:
1871: BEGIN
1872: IF p_inc_responded_by_date >= p_request_date THEN
1873: x_return_status := FND_API.G_RET_STS_SUCCESS;
1874: ELSE
1875: x_return_status := FND_API.G_RET_STS_ERROR;
1876: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1877: p_token_v => TO_CHAR(p_inc_responded_by_date),
1871: BEGIN
1872: IF p_inc_responded_by_date >= p_request_date THEN
1873: x_return_status := FND_API.G_RET_STS_SUCCESS;
1874: ELSE
1875: x_return_status := FND_API.G_RET_STS_ERROR;
1876: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1877: p_token_v => TO_CHAR(p_inc_responded_by_date),
1878: p_token_p => p_parameter_name,
1879: p_table_name => G_TABLE_NAME,
1883: WHEN OTHERS THEN
1884: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1885: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1886: fnd_msg_pub.ADD;
1887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1888:
1889: END Validate_Inc_Responded_Date;
1890:
1891: ---- Added for Enh# 1830701
1915:
1916: BEGIN
1917:
1918: -- Initialize Return Status to SUCCESS
1919: x_return_status := FND_API.G_RET_STS_SUCCESS;
1920:
1921: BEGIN
1922: -- IF block added for validation based on location type --anmukher -- 08/18/03
1923: If p_incident_location_type = 'HZ_LOCATION' Then
1941:
1942:
1943: EXCEPTION
1944: WHEN NO_DATA_FOUND THEN
1945: x_return_status := FND_API.G_RET_STS_ERROR;
1946: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1947: p_token_v => TO_CHAR(p_incident_location_id),
1948: p_token_p => p_parameter_name,
1949: p_table_name => G_TABLE_NAME ,
1949: p_table_name => G_TABLE_NAME ,
1950: p_column_name => 'INCIDENT_LOCATION_ID' );
1951: -- Added for validation based on location type --anmukher -- 08/18/03
1952: WHEN e_invalid_location_type THEN
1953: x_return_status := FND_API.G_RET_STS_ERROR;
1954: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1955: p_token_v => p_incident_location_type,
1956: p_token_p => 'p_incident_location_type',
1957: p_table_name => G_TABLE_NAME ,
1959: WHEN OTHERS THEN
1960: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1961: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1962: fnd_msg_pub.ADD;
1963: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1964:
1965: END;
1966: END Validate_Inc_Location_Id;
1967:
1978:
1979: BEGIN
1980:
1981: -- Initialize Return Status to SUCCESS
1982: x_return_status := FND_API.G_RET_STS_SUCCESS;
1983:
1984: BEGIN
1985: SELECT 'x' INTO l_dummy
1986: FROM fnd_territories
1987: WHERE territory_code = p_incident_country;
1988:
1989: EXCEPTION
1990: WHEN NO_DATA_FOUND THEN
1991: x_return_status := FND_API.G_RET_STS_ERROR;
1992: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
1993: p_token_v => p_incident_country,
1994: p_token_p => p_parameter_name,
1995: p_table_name => G_TABLE_NAME,
1997: WHEN OTHERS THEN
1998: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1999: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2000: fnd_msg_pub.ADD;
2001: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2002:
2003: END;
2004: END Validate_Incident_Country;
2005:
2038: AND NVL(hr.termination_date,SYSDATE) >= SYSDATE;
2039:
2040: BEGIN
2041: -- Initialize return status to success
2042: x_return_status := FND_API.G_RET_STS_SUCCESS;
2043:
2044: OPEN employee;
2045: FETCH employee INTO l_dummy;
2046: IF (employee%NOTFOUND) THEN
2043:
2044: OPEN employee;
2045: FETCH employee INTO l_dummy;
2046: IF (employee%NOTFOUND) THEN
2047: x_return_status := FND_API.G_RET_STS_ERROR;
2048: CLOSE employee;
2049:
2050: RAISE NO_DATA_FOUND;
2051: END IF;
2052: CLOSE employee;
2053:
2054: EXCEPTION
2055: WHEN NO_DATA_FOUND THEN
2056: x_return_status := FND_API.G_RET_STS_ERROR;
2057: Add_Invalid_Argument_Msg
2058: ( p_token_an => l_api_name_full,
2059: p_token_v => TO_CHAR(p_employee_id),
2060: p_token_p => p_parameter_name,
2064: WHEN OTHERS THEN
2065: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2066: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2067: fnd_msg_pub.ADD;
2068: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2069: END Validate_Employee;
2070:
2071: -- --------------------------------------------------------------------------------
2072: -- Validate_Customer
2091: l_token_v VARCHAR2(4000);
2092:
2093: BEGIN
2094: -- Initialize Return Status to SUCCESS
2095: x_return_status := FND_API.G_RET_STS_SUCCESS;
2096:
2097: --For bug 2885111
2098: l_associated_col1 := G_TABLE_NAME ||'.'||'CUSTOMER_ID';
2099: l_token_v := TO_CHAR(p_customer_id);
2106: AND a.party_type IN ('ORGANIZATION','PERSON');
2107:
2108: EXCEPTION
2109: WHEN NO_DATA_FOUND THEN
2110: x_return_status := FND_API.G_RET_STS_ERROR;
2111:
2112: -- For bug 2885111 - adding a new error message
2113: FND_MESSAGE.Set_Name('CS', 'CS_SR_INVALID_CUSTOMER');
2114: FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
2125: WHEN OTHERS THEN
2126: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2127: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2128: fnd_msg_pub.ADD;
2129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2130:
2131: END;
2132: --Addition for 3666089 starts
2133: IF (l_party_type <> p_caller_type) THEN
2130:
2131: END;
2132: --Addition for 3666089 starts
2133: IF (l_party_type <> p_caller_type) THEN
2134: x_return_status := FND_API.G_RET_STS_ERROR;
2135: FND_MESSAGE.Set_Name('CS', 'CS_SR_INVALID_CUST_TYPE');
2136: FND_MSG_PUB.ADD; --3666089 (Jun 15)
2137: END IF;
2138: --Addition for 3666089 Ends
2179: AND NVL(r.end_date, SYSDATE+1) > SYSDATE;
2180:
2181: BEGIN
2182: -- Initialize the return status.
2183: x_return_status := FND_API.G_RET_STS_SUCCESS;
2184:
2185: /*
2186: IF (p_bill_to_party_id = p_bill_to_contact_id AND
2187: p_customer_type = 'PERSON') THEN
2184:
2185: /*
2186: IF (p_bill_to_party_id = p_bill_to_contact_id AND
2187: p_customer_type = 'PERSON') THEN
2188: x_return_status := FND_API.G_RET_STS_SUCCESS;
2189: */
2190: /* if bill_to_party_id is same as bill_to_contact_id then bill_to_party_id
2191: has to be of type PERSON because contact has has to be of type PERSON
2192: 2/11/04 smisra Bug 3379631
2196: OPEN bill_to_party_type_csr;
2197: FETCH bill_to_party_type_csr into l_party_type;
2198: CLOSE bill_to_party_type_csr;
2199: IF (l_party_type <> 'PERSON') then
2200: x_return_status := FND_API.G_RET_STS_ERROR;
2201: RAISE NO_DATA_FOUND;
2202: END IF;
2203: ELSE
2204: OPEN validate_bill_to_contact_csr;
2204: OPEN validate_bill_to_contact_csr;
2205: FETCH validate_bill_to_contact_csr INTO l_dummy;
2206:
2207: IF (validate_bill_to_contact_csr%NOTFOUND) THEN
2208: x_return_status := FND_API.G_RET_STS_ERROR;
2209: CLOSE validate_bill_to_contact_csr;
2210: RAISE NO_DATA_FOUND;
2211: END IF;
2212:
2214: END IF;
2215:
2216: EXCEPTION
2217: WHEN NO_DATA_FOUND THEN
2218: x_return_status := FND_API.G_RET_STS_ERROR;
2219: Add_Invalid_Argument_Msg(p_token_an => l_api_name_full,
2220: p_token_v => TO_CHAR(p_bill_to_contact_id),
2221: p_token_p => p_parameter_name ,
2222: p_table_name => G_TABLE_NAME,
2225: WHEN OTHERS THEN
2226: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2227: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2228: fnd_msg_pub.ADD;
2229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2230:
2231: END Validate_Bill_To_Ship_To_Ct;
2232:
2233:
2275: AND NVL(r.end_date, SYSDATE+1) > SYSDATE;
2276:
2277: BEGIN
2278: -- Initialize the return status.
2279: x_return_status := FND_API.G_RET_STS_SUCCESS;
2280:
2281: IF ( p_customer_id = p_customer_contact_id AND
2282: p_customer_type = 'PERSON') THEN
2283: x_return_status := FND_API.G_RET_STS_SUCCESS;
2279: x_return_status := FND_API.G_RET_STS_SUCCESS;
2280:
2281: IF ( p_customer_id = p_customer_contact_id AND
2282: p_customer_type = 'PERSON') THEN
2283: x_return_status := FND_API.G_RET_STS_SUCCESS;
2284: ELSE
2285: OPEN validate_bill_to_contact_csr;
2286: FETCH validate_bill_to_contact_csr INTO l_dummy;
2287:
2285: OPEN validate_bill_to_contact_csr;
2286: FETCH validate_bill_to_contact_csr INTO l_dummy;
2287:
2288: IF (validate_bill_to_contact_csr%NOTFOUND) THEN
2289: x_return_status := FND_API.G_RET_STS_ERROR;
2290: CLOSE validate_bill_to_contact_csr;
2291: RAISE NO_DATA_FOUND;
2292: END IF;
2293:
2295:
2296: END IF;
2297: EXCEPTION
2298: WHEN NO_DATA_FOUND THEN
2299: x_return_status := FND_API.G_RET_STS_ERROR;
2300: Add_Invalid_Argument_Msg(
2301: p_token_an => l_api_name_full,
2302: p_token_v => TO_CHAR(p_customer_contact_id),
2303: p_token_p => p_parameter_name,
2307: WHEN OTHERS THEN
2308: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2309: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2310: fnd_msg_pub.ADD;
2311: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2312:
2313: END Validate_Customer_Contact;
2314:
2315: --Procedure added to support contacts of type relation
2350: AND NVL(r.end_date, SYSDATE+1) > SYSDATE;
2351:
2352: BEGIN
2353: -- Initialize the return status.
2354: x_return_status := FND_API.G_RET_STS_SUCCESS;
2355:
2356: OPEN party_relationship;
2357: FETCH party_relationship INTO l_dummy;
2358:
2356: OPEN party_relationship;
2357: FETCH party_relationship INTO l_dummy;
2358:
2359: IF (party_relationship%NOTFOUND) THEN
2360: x_return_status := FND_API.G_RET_STS_ERROR;
2361: CLOSE party_relationship;
2362: RAISE NO_DATA_FOUND;
2363: END IF;
2364:
2365: CLOSE party_relationship;
2366:
2367: EXCEPTION
2368: WHEN NO_DATA_FOUND THEN
2369: x_return_status := FND_API.G_RET_STS_ERROR;
2370: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
2371: p_token_v => TO_CHAR(p_customer_contact_id),
2372: p_token_p => p_parameter_name,
2373: p_table_name => G_TABLE_NAME,
2375: WHEN OTHERS THEN
2376: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2377: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2378: fnd_msg_pub.ADD;
2379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2380:
2381: END Validate_Org_Relationship;
2382:
2383: -- Made the LOV query and cursor query in sync.by shijain dated 11th oct 2002
2414: AND NVL(r.end_date, SYSDATE+1) > SYSDATE;
2415:
2416: BEGIN
2417: -- Initialize the return status.
2418: x_return_status := FND_API.G_RET_STS_SUCCESS;
2419:
2420: IF p_customer_id = p_customer_contact_id THEN
2421: x_return_status := FND_API.G_RET_STS_SUCCESS;
2422: ELSE
2417: -- Initialize the return status.
2418: x_return_status := FND_API.G_RET_STS_SUCCESS;
2419:
2420: IF p_customer_id = p_customer_contact_id THEN
2421: x_return_status := FND_API.G_RET_STS_SUCCESS;
2422: ELSE
2423: OPEN party_relationship_per;
2424: FETCH party_relationship_per INTO l_dummy;
2425: IF (party_relationship_per%NOTFOUND) THEN
2422: ELSE
2423: OPEN party_relationship_per;
2424: FETCH party_relationship_per INTO l_dummy;
2425: IF (party_relationship_per%NOTFOUND) THEN
2426: x_return_status := FND_API.G_RET_STS_ERROR;
2427: CLOSE party_relationship_per;
2428:
2429: RAISE NO_DATA_FOUND;
2430: END IF;
2432: END IF;
2433:
2434: EXCEPTION
2435: WHEN NO_DATA_FOUND THEN
2436: x_return_status := FND_API.G_RET_STS_ERROR;
2437: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
2438: p_token_v => TO_CHAR(p_customer_contact_id),
2439: p_token_p => p_parameter_name,
2440: p_table_name => G_TABLE_NAME,
2442: WHEN OTHERS THEN
2443: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2444: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2445: fnd_msg_pub.ADD;
2446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2447:
2448: END Validate_Person_Relationship;
2449:
2450: -----------------------------------------------------------------------------
2467: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
2468:
2469: BEGIN
2470: -- Initialize the return status.
2471: x_return_status := FND_API.G_RET_STS_SUCCESS;
2472:
2473: -- Changes made by shijain dec 4th 2002, added the check if the profile
2474: -- value of cs_sr_restrict_ib is yes then check for hz_party_sites and
2475: -- hz_locations else don't need to check anything
2532: END IF;
2533:
2534: EXCEPTION
2535: WHEN NO_DATA_FOUND THEN
2536: x_return_status := FND_API.G_RET_STS_ERROR;
2537: Add_Invalid_Argument_Msg(
2538: p_token_an => l_api_name_full,
2539: p_token_v => TO_CHAR(p_customer_product_id),
2540: p_token_p => p_parameter_name,
2544: WHEN OTHERS THEN
2545: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2546: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2547: fnd_msg_pub.ADD;
2548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2549:
2550: END Validate_Customer_Product;
2551:
2552: /*
2575:
2576:
2577: BEGIN
2578: -- Initialize the return status.
2579: x_return_status := FND_API.G_RET_STS_SUCCESS;
2580:
2581: --Check if installed base or not
2582: --Added a condition to fix bug# 1902127, since the script
2583: --fails while creating/updating an SR for non-IB.
2582: --Added a condition to fix bug# 1902127, since the script
2583: --fails while creating/updating an SR for non-IB.
2584:
2585: IF ( p_customer_product_id IS NOT NULL ) AND
2586: ( p_customer_product_id <> FND_API.G_MISS_NUM ) THEN
2587:
2588: -- Changes made by shijain dec 4th 2002, added the check if the profile
2589: -- value of cs_sr_restrict_ib is yes then check for hz_party_sites and
2590: -- hz_locations else don't need to check anything
2636: END IF;
2637:
2638: EXCEPTION
2639: WHEN NO_DATA_FOUND THEN
2640: x_return_status := FND_API.G_RET_STS_ERROR;
2641: Add_Invalid_Argument_Msg(p_token_an => l_api_name_full,
2642: p_token_v => p_current_serial_number,
2643: p_token_p => p_parameter_name ,
2644: p_table_name => G_TABLE_NAME,
2647: WHEN OTHERS THEN
2648: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2649: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2650: fnd_msg_pub.ADD;
2651: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2652:
2653: END Validate_Current_Serial;
2654:
2655: -- for cmro_eam
2679: l_maint_org_id mtl_parameters.maint_organization_id % TYPE;
2680: l_master_org_id mtl_parameters.master_organization_id % TYPE;
2681: BEGIN
2682: -- Initialize Return Status to SUCCESS
2683: x_return_status := FND_API.G_RET_STS_SUCCESS;
2684: x_inv_org_master_org_flag := NULL;
2685:
2686: get_org_details
2687: ( p_org_id => p_inv_org_id
2689: , x_maint_org_id => l_maint_org_id
2690: , x_master_org_id => l_master_org_id
2691: , x_return_Status => x_return_status
2692: );
2693: IF x_return_status = FND_API.G_RET_STS_ERROR
2694: THEN
2695: RAISE NO_DATA_FOUND;
2696: END IF;
2697: IF p_inv_org_id = l_master_org_id
2706: where organization_id = p_inv_org_id;
2707: ***/
2708: EXCEPTION
2709: WHEN NO_DATA_FOUND THEN
2710: x_return_status := FND_API.G_RET_STS_ERROR;
2711: Add_Invalid_Argument_Msg(
2712: p_token_an => l_api_name_full,
2713: p_token_v => p_inv_org_id,
2714: p_token_p => p_parameter_name ,
2719: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2720: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2721: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2722: fnd_msg_pub.ADD;
2723: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2724:
2725: END Validate_Inventory_Org;
2726:
2727: -- ------------------------------------------------------------------------------
2741: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
2742: l_dummy VARCHAR2(1);
2743: BEGIN
2744: -- Initialize Return Status to SUCCESS
2745: x_return_status := FND_API.G_RET_STS_SUCCESS;
2746:
2747: IF (p_maintenance_flag = 'Y' or p_maintenance_flag = 'y') THEN
2748: IF (p_owning_dept_id IS NOT NULL AND
2749: p_owning_dept_id <> FND_API.G_MISS_NUM) THEN
2745: x_return_status := FND_API.G_RET_STS_SUCCESS;
2746:
2747: IF (p_maintenance_flag = 'Y' or p_maintenance_flag = 'y') THEN
2748: IF (p_owning_dept_id IS NOT NULL AND
2749: p_owning_dept_id <> FND_API.G_MISS_NUM) THEN
2750: select 'x' INTO l_dummy
2751: from bom_departments b
2752: where b.department_id = p_owning_dept_id
2753: and TRUNC(NVL(b.disable_date,SYSDATE+1)) > TRUNC(SYSDATE)
2756: END IF;
2757:
2758: EXCEPTION
2759: WHEN NO_DATA_FOUND THEN
2760: x_return_status := FND_API.G_RET_STS_ERROR;
2761: Add_Invalid_Argument_Msg(
2762: p_token_an => l_api_name_full,
2763: p_token_v => p_owning_dept_id,
2764: p_token_p => p_parameter_name ,
2768: WHEN OTHERS THEN
2769: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2770: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2771: fnd_msg_pub.ADD;
2772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2773:
2774: END Validate_Owning_Department;
2775:
2776: -- --------------------------------------------------------------------------------
2813:
2814:
2815: BEGIN
2816: -- Initialize Return Status to SUCCESS
2817: x_return_status := FND_API.G_RET_STS_SUCCESS;
2818: -- for cmro_eam
2819: IF (p_maintenance_flag = 'Y' or p_maintenance_flag = 'y') THEN
2820: IF p_maint_organization_id IS NULL OR
2821: p_maint_organization_id = FND_API.G_MISS_NUM
2817: x_return_status := FND_API.G_RET_STS_SUCCESS;
2818: -- for cmro_eam
2819: IF (p_maintenance_flag = 'Y' or p_maintenance_flag = 'y') THEN
2820: IF p_maint_organization_id IS NULL OR
2821: p_maint_organization_id = FND_API.G_MISS_NUM
2822: THEN
2823: x_return_status := FND_API.G_RET_STS_ERROR;
2824: Add_Null_Parameter_Msg
2825: ( p_token_an => l_api_name_full
2819: IF (p_maintenance_flag = 'Y' or p_maintenance_flag = 'y') THEN
2820: IF p_maint_organization_id IS NULL OR
2821: p_maint_organization_id = FND_API.G_MISS_NUM
2822: THEN
2823: x_return_status := FND_API.G_RET_STS_ERROR;
2824: Add_Null_Parameter_Msg
2825: ( p_token_an => l_api_name_full
2826: , p_token_np => 'p_maint_organization_id'
2827: , p_table_name => G_TABLE_NAME
2872: AND msi.organization_id = p_inventory_org_id;
2873: END IF;
2874: EXCEPTION
2875: WHEN NO_DATA_FOUND THEN
2876: x_return_status := FND_API.G_RET_STS_ERROR;
2877: Add_Invalid_Argument_Msg
2878: ( p_token_an => l_api_name_full
2879: , p_token_v => TO_CHAR(p_inventory_item_id)
2880: , p_token_p => p_parameter_name
2884: WHEN OTHERS THEN
2885: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2886: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2887: fnd_msg_pub.ADD;
2888: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2889: END Validate_Product;
2890:
2891:
2892: -- --------------------------------------------------------------------------------
2922: lx_msg_data VARCHAR2(2000);
2923:
2924: BEGIN
2925: -- Initialize Return Status to SUCCESS
2926: x_return_status := FND_API.G_RET_STS_SUCCESS;
2927:
2928: -- populate the problem code mapping record type
2929: l_pc_rec.service_request_type_id := p_incident_type_id;
2930: l_pc_rec.inventory_item_id := p_inventory_item_id;
2937: -- pre 11.5.10
2938:
2939: cs_sr_prob_code_mapping_pkg.validate_problem_code (
2940: p_api_version => 1.0,
2941: p_init_msg_list => FND_API.G_TRUE,
2942: p_probcode_criteria_rec => l_pc_rec,
2943: p_problem_code => p_problem_code,
2944: x_return_status => x_return_status,
2945: x_msg_count => lx_msg_count,
2944: x_return_status => x_return_status,
2945: x_msg_count => lx_msg_count,
2946: x_msg_data => lx_msg_data );
2947:
2948: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
2949: -- new message for 11.5.10
2950: -- Problem code is not valid. Please check the values for the following:\
2951: -- Service request type, inventory item and product category.
2952: fnd_message.set_name ('CS', 'CS_SR_PROB_CODE_INVALID');
2959: WHEN OTHERS THEN
2960: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
2961: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
2962: fnd_msg_pub.ADD;
2963: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2964:
2965: END Validate_Problem_Code;
2966:
2967: -- -----------------------------------------------------------------------------
2980: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
2981:
2982: BEGIN
2983: -- Initialize Return Status to SUCCESS
2984: x_return_status := FND_API.G_RET_STS_SUCCESS;
2985:
2986: BEGIN
2987: SELECT 'x' INTO l_dummy
2988: FROM cs_sr_preferred_lang_v
2991: AND trunc(nvl(end_date_active,sysdate));
2992:
2993: EXCEPTION
2994: WHEN NO_DATA_FOUND THEN
2995: x_return_status := FND_API.G_RET_STS_ERROR;
2996: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
2997: p_token_v => p_cust_pref_lang_code,
2998: p_token_p => p_parameter_name,
2999: p_table_name => G_TABLE_NAME,
3001: WHEN OTHERS THEN
3002: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3003: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3004: fnd_msg_pub.ADD;
3005: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3006:
3007: END;
3008: END Validate_Cust_Pref_Lang_Code;
3009:
3021: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
3022:
3023: BEGIN
3024: -- Initialize Return Status to SUCCESS
3025: x_return_status := FND_API.G_RET_STS_SUCCESS;
3026:
3027: BEGIN
3028: SELECT DISTINCT lookup_code INTO l_dummy
3029: FROM ar_lookups
3031: AND lookup_code = p_comm_pref_code;
3032:
3033: EXCEPTION
3034: WHEN NO_DATA_FOUND THEN
3035: x_return_status := FND_API.G_RET_STS_ERROR;
3036: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
3037: p_token_v => p_comm_pref_code,
3038: p_token_p => p_parameter_name,
3039: p_table_name => G_TABLE_NAME,
3041: WHEN OTHERS THEN
3042: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3043: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3044: fnd_msg_pub.ADD;
3045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3046: END;
3047: END Validate_Comm_Pref_Code;
3048:
3049: -- --------------------------------------------------------------------------------
3073: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
3074:
3075: BEGIN
3076: -- Initialize Return Status to SUCCESS
3077: x_return_status := FND_API.G_RET_STS_SUCCESS;
3078: -- Changed the Profile CS_SR_PLATFORM_CATEGORY_SET to
3079: -- CS_SR_DEFAULT_CATEGORY_SET.Fix for Bug# 2102330
3080:
3081: --l_profile := FND_PROFILE.VALUE('CS_SR_DEFAULT_CATEGORY_SET');
3098: END IF;
3099:
3100: EXCEPTION
3101: WHEN NO_DATA_FOUND THEN
3102: x_return_status := FND_API.G_RET_STS_ERROR;
3103: fnd_message.set_name ('CS', 'CS_SR_CAT_CATSET_COMB_INVALID');
3104: fnd_message.set_token ('CAT_SET',nvl(l_profile,'NULL'));
3105: fnd_message.set_token ('CAT_ID',p_category_id);
3106: fnd_msg_pub.ADD;
3107: WHEN OTHERS THEN
3108: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3109: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3110: fnd_msg_pub.ADD;
3111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3112:
3113: END;
3114: END Validate_Category_Id;
3115:
3140:
3141: l_validation varchar2(1);
3142: BEGIN
3143: -- Initialize Return Status to SUCCESS
3144: x_return_status := FND_API.G_RET_STS_SUCCESS;
3145:
3146: IF (p_inventory_item_id IS NULL OR
3147: p_inventory_item_id = FND_API.G_MISS_NUM) THEN
3148: l_validation := 'C';
3143: -- Initialize Return Status to SUCCESS
3144: x_return_status := FND_API.G_RET_STS_SUCCESS;
3145:
3146: IF (p_inventory_item_id IS NULL OR
3147: p_inventory_item_id = FND_API.G_MISS_NUM) THEN
3148: l_validation := 'C';
3149: SELECT 'x' INTO l_dummy
3150: FROM mtl_category_set_valid_cats
3151: WHERE category_id = p_category_id
3163: END IF;
3164:
3165: EXCEPTION
3166: WHEN NO_DATA_FOUND THEN
3167: x_return_status := FND_API.G_RET_STS_ERROR;
3168: IF (l_validation = 'I') THEN
3169: fnd_message.set_name ('CS', 'CS_SR_CAT_ITEM_COMB_INVALID');
3170: fnd_message.set_token ('CAT_SET',p_category_set_id);
3171: fnd_message.set_token ('CAT_ID',nvl(to_char(p_category_id),'NULL'));
3180: WHEN OTHERS THEN
3181: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3182: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3183: fnd_msg_pub.ADD;
3184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3185:
3186: END Validate_Category_Set_Id;
3187:
3188: -- --------------------------------------------------------------------------------
3222: AND organization_id = p_inventory_org_id;
3223:
3224: BEGIN
3225:
3226: x_return_status := FND_API.G_RET_STS_SUCCESS;
3227:
3228: -- For bug 3746983
3229:
3230: IF ( p_customer_product_id IS NOT NULL ) AND
3227:
3228: -- For bug 3746983
3229:
3230: IF ( p_customer_product_id IS NOT NULL ) AND
3231: ( p_customer_product_id <> FND_API.G_MISS_NUM ) THEN
3232:
3233: IF CS_ServiceRequest_PVT.g_restrict_ib = 'YES' THEN
3234:
3235: SELECT 'x' INTO l_dummy
3313: END IF;
3314:
3315: EXCEPTION
3316: WHEN NO_DATA_FOUND THEN
3317: x_return_status := FND_API.G_RET_STS_ERROR;
3318: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
3319: p_token_v => p_external_reference,
3320: p_token_p => p_parameter_name ,
3321: p_table_name => G_TABLE_NAME,
3323: WHEN OTHERS THEN
3324: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3325: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3326: fnd_msg_pub.ADD;
3327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3328:
3329: END Validate_External_Reference;
3330:
3331: -- --------------------------------------------------------------------------------
3344: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
3345:
3346: BEGIN
3347: -- Initialize Return Status to SUCCESS
3348: x_return_status := FND_API.G_RET_STS_SUCCESS;
3349:
3350: SELECT 'x' INTO l_dummy
3351: FROM csi_systems_vl
3352: WHERE system_id = p_system_id;
3352: WHERE system_id = p_system_id;
3353:
3354: EXCEPTION
3355: WHEN NO_DATA_FOUND THEN
3356: x_return_status := FND_API.G_RET_STS_ERROR;
3357: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
3358: p_token_v => TO_CHAR(p_system_id),
3359: p_token_p => p_parameter_name,
3360: p_table_name => G_TABLE_NAME,
3362: WHEN OTHERS THEN
3363: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3364: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3365: fnd_msg_pub.ADD;
3366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3367:
3368: END Validate_System_Id;
3369:
3370: --------------------------------------------------------------------
3388: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
3389:
3390: BEGIN
3391: IF p_exp_resolution_date >= p_request_date THEN
3392: x_return_status := FND_API.G_RET_STS_SUCCESS;
3393: ELSE
3394: x_return_status := FND_API.G_RET_STS_ERROR;
3395: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
3396: p_token_v => TO_CHAR(p_exp_resolution_date),
3390: BEGIN
3391: IF p_exp_resolution_date >= p_request_date THEN
3392: x_return_status := FND_API.G_RET_STS_SUCCESS;
3393: ELSE
3394: x_return_status := FND_API.G_RET_STS_ERROR;
3395: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
3396: p_token_v => TO_CHAR(p_exp_resolution_date),
3397: p_token_p => p_parameter_name,
3398: p_table_name => G_TABLE_NAME ,
3403: WHEN OTHERS THEN
3404: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3405: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3406: fnd_msg_pub.ADD;
3407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3408:
3409: END Validate_Exp_Resolution_Date;
3410:
3411:
3448: l_dummy VARCHAR2(5);
3449: l_customer_type VARCHAR2(30);
3450: BEGIN
3451: -- Initialize return status to success
3452: x_return_status := FND_API.G_RET_STS_SUCCESS;
3453:
3454: /* Changes made for 1159, added the condition that if the customer_id
3455: is same as the bill_to_party_id then we should just return success
3456: else we should check if its a valid relationship*/
3455: is same as the bill_to_party_id then we should just return success
3456: else we should check if its a valid relationship*/
3457:
3458: IF (p_customer_id=p_bill_to_party_id) THEN
3459: x_return_status := FND_API.G_RET_STS_SUCCESS;
3460: ELSE
3461: OPEN bill_to_party;
3462: FETCH bill_to_party INTO l_customer_type;
3463: x_customer_type:= l_customer_type;
3461: OPEN bill_to_party;
3462: FETCH bill_to_party INTO l_customer_type;
3463: x_customer_type:= l_customer_type;
3464: IF (bill_to_party%NOTFOUND) THEN
3465: x_return_status := FND_API.G_RET_STS_ERROR;
3466: CLOSE bill_to_party;
3467:
3468: RAISE NO_DATA_FOUND;
3469: END IF;
3471: END IF;
3472:
3473: EXCEPTION
3474: WHEN NO_DATA_FOUND THEN
3475: x_return_status := FND_API.G_RET_STS_ERROR;
3476: Add_Invalid_Argument_Msg
3477: ( p_token_an => l_api_name_full,
3478: p_token_v => TO_CHAR(p_bill_to_party_id),
3479: p_token_p => p_parameter_name,
3482: WHEN OTHERS THEN
3483: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3484: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3485: fnd_msg_pub.ADD;
3486: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3487: END Validate_Bill_To_Ship_To_Party;
3488:
3489: -- --------------------------------------------------------------------------------
3490: -- Validate_Bill_To_Ship_To_Site (New Procedure for 11.5.9)
3523:
3524: l_dummy VARCHAR2(5);
3525: BEGIN
3526: -- Initialize return status to success
3527: x_return_status := FND_API.G_RET_STS_SUCCESS;
3528:
3529: OPEN bill_to_site;
3530: FETCH bill_to_site INTO x_site_use_id;
3531: IF (bill_to_site%NOTFOUND) THEN
3528:
3529: OPEN bill_to_site;
3530: FETCH bill_to_site INTO x_site_use_id;
3531: IF (bill_to_site%NOTFOUND) THEN
3532: x_return_status := FND_API.G_RET_STS_ERROR;
3533: CLOSE bill_to_site;
3534:
3535: RAISE NO_DATA_FOUND;
3536: END IF;
3546: WHEN OTHERS THEN
3547: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3548: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3549: fnd_msg_pub.ADD;
3550: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3551: END Validate_Bill_To_Ship_To_Site ;
3552:
3553:
3554: PROCEDURE Validate_Install_Site
3564: l_install_customer_id NUMBER;
3565:
3566: BEGIN
3567: -- Initialize Return Status to SUCCESS
3568: x_return_status := FND_API.G_RET_STS_SUCCESS;
3569:
3570: BEGIN
3571:
3572: -- Fix to bug # 2529361.included keyword distinct in select clause.
3605: AND r.subject_id = sub.party_id ));
3606:
3607: EXCEPTION
3608: WHEN NO_DATA_FOUND THEN
3609: x_return_status := FND_API.G_RET_STS_ERROR;
3610: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
3611: p_token_v => TO_CHAR(p_install_site_id),
3612: p_token_p => p_parameter_name,
3613: p_table_name => G_TABLE_NAME,
3616: WHEN OTHERS THEN
3617: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3618: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3619: fnd_msg_pub.ADD;
3620: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3621:
3622: END;
3623:
3624: END Validate_Install_Site;
3638: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
3639:
3640: BEGIN
3641: -- Initialize the return status.
3642: x_return_status := FND_API.G_RET_STS_SUCCESS;
3643:
3644:
3645:
3646:
3645:
3646:
3647: EXCEPTION
3648: WHEN NO_DATA_FOUND THEN
3649: x_return_status := FND_API.G_RET_STS_ERROR;
3650: Add_Invalid_Argument_Msg(
3651: p_token_an => l_api_name_full,
3652: p_token_v => p_resolution_code,
3653: p_token_p => p_parameter_name,
3656: WHEN OTHERS THEN
3657: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3658: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3659: fnd_msg_pub.ADD;
3660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3661:
3662: END Validate_Resolution_Code;
3663:
3664: -- --------------------------------------------------------------------------------
3679:
3680: BEGIN
3681:
3682: IF p_act_resolution_date >= p_request_date THEN
3683: x_return_status := FND_API.G_RET_STS_SUCCESS;
3684: ELSE
3685: x_return_status := FND_API.G_RET_STS_ERROR;
3686: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
3687: p_token_v => TO_CHAR(p_act_resolution_date),
3681:
3682: IF p_act_resolution_date >= p_request_date THEN
3683: x_return_status := FND_API.G_RET_STS_SUCCESS;
3684: ELSE
3685: x_return_status := FND_API.G_RET_STS_ERROR;
3686: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
3687: p_token_v => TO_CHAR(p_act_resolution_date),
3688: p_token_p => p_parameter_name,
3689: p_table_name => G_TABLE_NAME,
3693: WHEN OTHERS THEN
3694: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3695: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3696: fnd_msg_pub.ADD;
3697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3698:
3699: END Validate_Act_Resolution_Date;
3700:
3701: ----------------------------
3715: l_contract_id NUMBER;
3716:
3717: BEGIN
3718: -- Initialize the return status.
3719: x_return_status := FND_API.G_RET_STS_SUCCESS;
3720:
3721: select chr_id
3722: into l_contract_id
3723: from okc_k_lines_b
3728: SELECT contract_number INTO x_contract_number
3729: FROM okc_k_headers_all_b
3730: WHERE id = l_contract_id;
3731:
3732: if (l_contract_id <> x_contract_id AND x_contract_id IS NOT NULL AND x_contract_id <> FND_API.G_MISS_NUM) then
3733: x_contract_id := l_contract_id;
3734: Add_Param_Ignored_Msg( p_token_an => l_api_name_full,
3735: p_token_ip => 'p_contract_id',
3736: p_table_name => G_TABLE_NAME,
3750: --WHERE id = p_contract_service_id;
3751:
3752: EXCEPTION
3753: WHEN NO_DATA_FOUND THEN
3754: x_return_status := FND_API.G_RET_STS_ERROR;
3755: Add_Invalid_Argument_Msg(p_token_an => l_api_name_full,
3756: p_token_v => p_contract_service_id,
3757: p_token_p => p_parameter_name ,
3758: p_table_name => G_TABLE_NAME,
3761: WHEN OTHERS THEN
3762: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3763: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3764: fnd_msg_pub.ADD;
3765: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3766: END Validate_Contract_Service_Id;
3767: ---------------------------------------------------------------------------
3768:
3769: PROCEDURE Validate_Contract_Id
3779:
3780: BEGIN
3781:
3782: -- Initialize the return status.
3783: x_return_status := FND_API.G_RET_STS_SUCCESS;
3784:
3785: SELECT contract_number
3786: INTO x_contract_number
3787: FROM okc_k_headers_all_b
3788: WHERE id = p_contract_id ;
3789:
3790: EXCEPTION
3791: WHEN NO_DATA_FOUND THEN
3792: x_return_status := FND_API.G_RET_STS_ERROR;
3793: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
3794: p_token_v => p_contract_id,
3795: p_token_p => p_parameter_name,
3796: p_table_name => G_TABLE_NAME,
3799: WHEN OTHERS THEN
3800: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3801: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3802: fnd_msg_pub.ADD;
3803: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3804:
3805:
3806: END Validate_Contract_Id;
3807:
3831: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
3832: BEGIN
3833:
3834: -- Initialize the return status.
3835: x_return_status := FND_API.G_RET_STS_ERROR;
3836: /****
3837: Bug 4869065
3838: The sql is very expensive. Support site is a denormalized col.
3839: so validation of resource id will determine the support site too. no need to
3837: Bug 4869065
3838: The sql is very expensive. Support site is a denormalized col.
3839: so validation of resource id will determine the support site too. no need to
3840: cross validate support site and resource
3841: x_return_status := FND_API.G_RET_STS_SUCCESS;
3842:
3843: SELECT 'x'
3844: INTO l_test
3845: FROM cs_sr_owners_v
3848: AND support_site_id = p_support_site_id ;
3849: ****/
3850: EXCEPTION
3851: WHEN NO_DATA_FOUND THEN
3852: x_return_status := FND_API.G_RET_STS_ERROR;
3853: Add_Invalid_Argument_Msg(p_token_an => l_api_name_full,
3854: p_token_v => p_support_site_id,
3855: p_token_p => p_parameter_name,
3856: p_table_name => null,
3859: WHEN OTHERS THEN
3860: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3861: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3862: fnd_msg_pub.ADD;
3863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3864: END Validate_Support_Site_Id;
3865: ---------------------------------------------------------
3866:
3867: PROCEDURE Validate_Group_Type
3877:
3878: BEGIN
3879:
3880: -- Initialize the return status.
3881: x_return_status := FND_API.G_RET_STS_SUCCESS;
3882:
3883: /* For 1159, we changed the logic, as RS_TEAM is not supported anymore,
3884: if the resource_type is not RS_GROUP, we raise an error oherwise
3885: just return success by shijain*/
3884: if the resource_type is not RS_GROUP, we raise an error oherwise
3885: just return success by shijain*/
3886:
3887: IF (p_group_type = 'RS_GROUP') THEN
3888: x_return_status := FND_API.G_RET_STS_SUCCESS;
3889: ELSE
3890: x_return_status := FND_API.G_RET_STS_ERROR;
3891: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
3892: p_token_v => p_group_type,
3886:
3887: IF (p_group_type = 'RS_GROUP') THEN
3888: x_return_status := FND_API.G_RET_STS_SUCCESS;
3889: ELSE
3890: x_return_status := FND_API.G_RET_STS_ERROR;
3891: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
3892: p_token_v => p_group_type,
3893: p_token_p => p_parameter_name ,
3894: p_table_name => G_TABLE_NAME ,
3895: p_column_name => 'GROUP_TYPE' );
3896: END IF;
3897: EXCEPTION
3898: WHEN NO_DATA_FOUND THEN
3899: x_return_status := FND_API.G_RET_STS_ERROR;
3900: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
3901: p_token_v => p_group_type,
3902: p_token_p => p_parameter_name,
3903: p_table_name => G_TABLE_NAME ,
3906: WHEN OTHERS THEN
3907: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3908: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3909: fnd_msg_pub.ADD;
3910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3911:
3912:
3913: END Validate_Group_Type;
3914:
3928:
3929: BEGIN
3930:
3931: -- Initialize the return status.
3932: x_return_status := FND_API.G_RET_STS_SUCCESS;
3933:
3934: /* This change is for 1159, only RS_GROUP group type is checked, if its not RS_GROUP then return an error*/
3935:
3936: IF ( p_group_type = 'RS_GROUP' ) THEN
3942: AND usg.usage = 'SUPPORT'
3943: AND SYSDATE BETWEEN NVL(start_date_active, SYSDATE)
3944: AND NVL( end_date_active, SYSDATE ) ;
3945: ELSE
3946: x_return_status := FND_API.G_RET_STS_ERROR;
3947: -- 3303106
3948: -- Add_Invalid_Argument_Msg
3949: Add_Null_Parameter_Msg ( p_token_an => l_api_name_full,
3950: p_token_np => 'p_group_type',
3954:
3955:
3956: EXCEPTION
3957: WHEN NO_DATA_FOUND THEN
3958: x_return_status := FND_API.G_RET_STS_ERROR;
3959: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
3960: p_token_v => p_owner_group_id,
3961: p_token_p => p_parameter_name,
3962: p_table_name => G_TABLE_NAME,
3965: WHEN OTHERS THEN
3966: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
3967: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
3968: fnd_msg_pub.ADD;
3969: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3970: END Validate_Group_Id;
3971:
3972: ----------------------------------------
3973: -- DJ API Cleanup
4020: AND grp.resource_id = res.resource_id;
4021:
4022: BEGIN
4023: -- Initialize the return status.
4024: x_return_status := FND_API.G_RET_STS_SUCCESS;
4025:
4026: -- set the context of the SR type before querying the CS Secure view
4027: -- for JTF resources
4028: cs_sr_security_context.set_sr_security_context (
4029: p_context_attribute => 'SRTYPE_ID',
4030: p_context_attribute_value => p_incident_type_id );
4031:
4032: IF ( p_owner_group_id IS NOT NULL
4033: AND p_owner_group_id <> FND_API.G_MISS_NUM )
4034: THEN
4035: OPEN get_valid_owner;
4036: FETCH get_valid_owner INTO x_owner_name, x_owner_id, x_resource_type, x_support_site_id;
4037: IF ( get_valid_owner%NOTFOUND ) THEN
4059: EXCEPTION
4060: WHEN NO_DATA_FOUND THEN
4061: IF p_mode = 'CREATE'
4062: THEN
4063: x_return_status := FND_API.G_RET_STS_SUCCESS;
4064: -- 3277647 changed from error to warning Add_Invalid_Argument_Msg
4065:
4066: Add_Param_Ignored_MSg ( p_token_an => l_api_name_full,
4067: p_token_ip => p_parameter_name,
4067: p_token_ip => p_parameter_name,
4068: p_table_name => null,
4069: p_column_name => 'P_OWNER_ID');
4070: ELSE
4071: x_return_status := FND_API.G_RET_STS_ERROR;
4072: Add_Invalid_Argument_Msg
4073: ( p_token_an => l_api_name_full
4074: , p_token_v => TO_CHAR(p_owner_id)
4075: , p_token_p => p_parameter_name
4080: WHEN OTHERS THEN
4081: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4082: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4083: fnd_msg_pub.ADD;
4084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4085: END Validate_Owner;
4086:
4087: ------------------------------------------------------
4088:
4099:
4100: BEGIN
4101:
4102: -- Initialize the return status.
4103: x_return_status := FND_API.G_RET_STS_SUCCESS;
4104:
4105: IF (UPPER(p_resource_type) IN ('RS_EMPLOYEE','RS_OTHER','RS_SUPPLIER_CONTACT', 'RS_PARTNER','RS_PARTY','RS_TBH'))
4106: THEN
4107: x_return_status := FND_API.G_RET_STS_SUCCESS;
4103: x_return_status := FND_API.G_RET_STS_SUCCESS;
4104:
4105: IF (UPPER(p_resource_type) IN ('RS_EMPLOYEE','RS_OTHER','RS_SUPPLIER_CONTACT', 'RS_PARTNER','RS_PARTY','RS_TBH'))
4106: THEN
4107: x_return_status := FND_API.G_RET_STS_SUCCESS;
4108: ELSE
4109: RAISE NO_DATA_FOUND;
4110: END IF;
4111: EXCEPTION
4109: RAISE NO_DATA_FOUND;
4110: END IF;
4111: EXCEPTION
4112: WHEN NO_DATA_FOUND THEN
4113: x_return_status := FND_API.G_RET_STS_ERROR;
4114: Add_Invalid_Argument_Msg( p_token_an => p_api_name,
4115: p_token_v => p_resource_type,
4116: p_token_p => p_parameter_name,
4117: p_table_name => G_TABLE_NAME,
4120: WHEN OTHERS THEN
4121: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4122: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4123: fnd_msg_pub.ADD;
4124: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4125: END Validate_Resource_Type;
4126:
4127: ----------------------------------------------------
4128: -- Validate Platform Id
4146: no_platform_excp EXCEPTION;
4147:
4148: BEGIN
4149: -- Initialize the return status.
4150: x_return_status := FND_API.G_RET_STS_SUCCESS;
4151:
4152: SELECT NVL(revision_qty_control_code,0)
4153: INTO l_control_code
4154: FROM mtl_system_items_vl item,
4167:
4168: EXCEPTION
4169: WHEN no_data_found THEN
4170: x_serial_controlled_flag := 'N';
4171: x_return_status := FND_API.G_RET_STS_ERROR;
4172:
4173: Add_Invalid_Argument_Msg(p_token_an => p_api_name,
4174: p_token_v => p_platform_id,
4175: p_token_p => p_parameter_name,
4179: WHEN OTHERS THEN
4180: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4181: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4182: fnd_msg_pub.ADD;
4183: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4184:
4185: END Validate_Platform_Id;
4186:
4187: -- Validate Component Id
4200: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
4201:
4202: BEGIN
4203: -- Initialize the return status.
4204: x_return_status := FND_API.G_RET_STS_SUCCESS;
4205:
4206: SELECT 'x'
4207: INTO l_test
4208: FROM cs_sr_new_acc_cp_rg_v
4210: AND object_id = p_customer_product_id
4211: AND rownum < 2;
4212: EXCEPTION
4213: WHEN NO_DATA_FOUND THEN
4214: x_return_status := FND_API.G_RET_STS_ERROR;
4215: Add_Invalid_Argument_Msg( p_token_an => p_api_name,
4216: p_token_v => p_cp_component_id,
4217: p_token_p => p_parameter_name,
4218: p_table_name => G_TABLE_NAME ,
4221: WHEN OTHERS THEN
4222: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4223: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4224: fnd_msg_pub.ADD;
4225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4226:
4227: END Validate_CP_Comp_Id;
4228:
4229: -- Validate Product Revision
4243: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
4244:
4245: BEGIN
4246: -- Initialize the return status.
4247: x_return_status := FND_API.G_RET_STS_SUCCESS;
4248: BEGIN
4249: SELECT revision_qty_control_code
4250: INTO l_rev_control_code
4251: FROM mtl_system_items_b
4261: AND inventory_revision = p_product_revision;
4262:
4263: EXCEPTION
4264: WHEN NO_DATA_FOUND THEN
4265: x_return_status := FND_API.G_RET_STS_ERROR;
4266: Add_Invalid_Argument_Msg(
4267: p_token_an => p_api_name,
4268: p_token_v => p_product_revision,
4269: p_token_p => p_parameter_name,
4273: WHEN OTHERS THEN
4274: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4275: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4276: fnd_msg_pub.ADD;
4277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4278: END;
4279: END IF;
4280: EXCEPTION
4281: WHEN NO_DATA_FOUND THEN
4278: END;
4279: END IF;
4280: EXCEPTION
4281: WHEN NO_DATA_FOUND THEN
4282: x_return_status := FND_API.G_RET_STS_ERROR;
4283: Add_Invalid_Argument_Msg( p_token_an => p_api_name,
4284: p_token_v => p_product_revision,
4285: p_token_p => p_parameter_name,
4286: p_table_name => G_TABLE_NAME ,
4286: p_table_name => G_TABLE_NAME ,
4287: p_column_name => 'PRODUCT_REVISION');
4288:
4289: WHEN OTHERS THEN
4290: x_return_status := FND_API.G_RET_STS_ERROR;
4291: Add_Invalid_Argument_Msg( p_token_an => p_api_name,
4292: p_token_v => TO_CHAR(p_inventory_item_id),
4293: p_token_p => p_parameter_name,
4294: p_table_name => G_TABLE_NAME ,
4331: AND organization_id = p_inventory_org_id;
4332:
4333: BEGIN
4334: -- Initialize the return status.
4335: x_return_status := FND_API.G_RET_STS_SUCCESS;
4336: IF p_instance_id is null THEN
4337: p_product_version := null;
4338: ELSE
4339:
4346: CLOSE c_rev_code;
4347:
4348:
4349: IF l_rev_control_code = 2 THEN
4350: IF (p_product_version = FND_API.G_MISS_CHAR) then
4351: p_product_version := l_product_version;
4352: ELSIF (nvl(p_product_version,'@#') <> nvl(l_product_version,'@#')) THEN
4353: x_return_status := FND_API.G_RET_STS_ERROR;
4354: Add_Invalid_Argument_Msg(
4349: IF l_rev_control_code = 2 THEN
4350: IF (p_product_version = FND_API.G_MISS_CHAR) then
4351: p_product_version := l_product_version;
4352: ELSIF (nvl(p_product_version,'@#') <> nvl(l_product_version,'@#')) THEN
4353: x_return_status := FND_API.G_RET_STS_ERROR;
4354: Add_Invalid_Argument_Msg(
4355: p_token_an => l_api_name_full,
4356: p_token_v => p_product_version,
4357: p_token_p => p_parameter_name,
4362: END IF;
4363:
4364: EXCEPTION
4365: WHEN NO_DATA_FOUND THEN
4366: x_return_status := FND_API.G_RET_STS_ERROR;
4367: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
4368: p_token_v => p_product_version,
4369: p_token_p => p_parameter_name,
4370: p_table_name => G_TABLE_NAME ,
4372: WHEN OTHERS THEN
4373: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4374: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4375: fnd_msg_pub.ADD;
4376: x_return_status := fnd_api.g_ret_sts_unexp_error;
4377: END Validate_product_Version;
4378: --
4379: -- Validate Component Version
4380: PROCEDURE Validate_Component_Version
4406: AND organization_id = p_inventory_org_id;
4407:
4408: BEGIN
4409: -- Initialize the return status.
4410: x_return_status := FND_API.G_RET_STS_SUCCESS;
4411:
4412: -- For bug 3337848 - Check for revision control
4413:
4414: BEGIN
4432:
4433: EXCEPTION
4434: WHEN NO_DATA_FOUND THEN
4435: -- 3352160 modified value of p_token_an
4436: x_return_status := FND_API.G_RET_STS_ERROR;
4437: Add_Invalid_Argument_Msg(
4438: p_token_an => l_api_name_full,
4439: p_token_v => p_component_version,
4440: p_token_p => p_parameter_name,
4444: WHEN OTHERS THEN
4445: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4446: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4447: fnd_msg_pub.ADD;
4448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4449: END;
4450: END IF;
4451:
4452:
4453:
4454:
4455: EXCEPTION
4456: WHEN NO_DATA_FOUND THEN
4457: x_return_status := FND_API.G_RET_STS_ERROR;
4458: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
4459: p_token_v => p_component_version,
4460: p_token_p => p_parameter_name,
4461: p_table_name => G_TABLE_NAME ,
4463: WHEN OTHERS THEN
4464: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4465: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4466: fnd_msg_pub.ADD;
4467: x_return_status := fnd_api.g_ret_sts_unexp_error;
4468: END;
4469: END Validate_Component_Version;
4470:
4471: -- Validate Subcomponent Version
4499: AND organization_id = p_inventory_org_id;
4500:
4501: BEGIN
4502: -- Initialize the return status.
4503: x_return_status := FND_API.G_RET_STS_SUCCESS;
4504:
4505: -- For bug 3337848 - for revision control
4506:
4507: BEGIN
4523:
4524: EXCEPTION
4525: WHEN NO_DATA_FOUND THEN
4526: -- 3352160 - modified value of p_token_an
4527: x_return_status := FND_API.G_RET_STS_ERROR;
4528: Add_Invalid_Argument_Msg(
4529: p_token_an => l_api_name_full,
4530: p_token_v => p_subcomponent_version,
4531: p_token_p => p_parameter_name,
4535: WHEN OTHERS THEN
4536: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4537: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4538: fnd_msg_pub.ADD;
4539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4540: END;
4541: END IF;
4542:
4543:
4543:
4544:
4545: EXCEPTION
4546: WHEN NO_DATA_FOUND THEN
4547: x_return_status := FND_API.G_RET_STS_ERROR;
4548: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
4549: p_token_v => p_subcomponent_version,
4550: p_token_p => p_parameter_name ,
4551: p_table_name => G_TABLE_NAME,
4553: WHEN OTHERS THEN
4554: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4555: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4556: fnd_msg_pub.ADD;
4557: x_return_status := fnd_api.g_ret_sts_unexp_error;
4558: END;
4559: END Validate_Subcomponent_Version;
4560: ----------------------------------------------------------------------------------
4561:
4575: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
4576:
4577: BEGIN
4578: -- Initialize the return status.
4579: x_return_status := FND_API.G_RET_STS_SUCCESS;
4580:
4581: /* SELECT 'x'
4582: INTO l_test
4583: FROM cs_customer_products_all
4594: AND rownum < 2;
4595:
4596: EXCEPTION
4597: WHEN NO_DATA_FOUND THEN
4598: x_return_status := FND_API.G_RET_STS_ERROR;
4599: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
4600: p_token_v => TO_CHAR(p_cp_subcomponent_id),
4601: p_token_p => p_parameter_name,
4602: p_table_name => G_TABLE_NAME ,
4605: WHEN OTHERS THEN
4606: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4607: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4608: fnd_msg_pub.ADD;
4609: x_return_status := fnd_api.g_ret_sts_unexp_error;
4610:
4611: END Validate_CP_SubComp_Id;
4612:
4613:
4627: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
4628:
4629: BEGIN
4630: -- Initialize the return status.
4631: x_return_status := FND_API.G_RET_STS_SUCCESS;
4632:
4633: BEGIN
4634: SELECT revision_qty_control_code
4635: INTO l_rev_control_code
4648: AND revision = p_inv_item_revision;
4649:
4650: EXCEPTION
4651: WHEN NO_DATA_FOUND THEN
4652: x_return_status := FND_API.G_RET_STS_ERROR;
4653: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
4654: p_token_v => p_inv_item_revision,
4655: p_token_p => p_parameter_name,
4656: p_table_name => G_TABLE_NAME ,
4658: WHEN OTHERS THEN
4659: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4660: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4661: fnd_msg_pub.ADD;
4662: x_return_status := fnd_api.g_ret_sts_unexp_error;
4663:
4664: END;
4665: END IF;
4666:
4665: END IF;
4666:
4667: EXCEPTION
4668: WHEN NO_DATA_FOUND THEN
4669: x_return_status := FND_API.G_RET_STS_ERROR;
4670: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
4671: p_token_v => TO_CHAR(p_inventory_item_id),
4672: p_token_p => p_parameter_name,
4673: p_table_name => G_TABLE_NAME ,
4676: WHEN OTHERS THEN
4677: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4678: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4679: fnd_msg_pub.ADD;
4680: x_return_status := fnd_api.g_ret_sts_unexp_error;
4681:
4682: END;
4683: END Validate_Inv_Item_Rev;
4684: ------------------------------------------------------
4698: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
4699:
4700: BEGIN
4701: -- Initialize the return status.
4702: x_return_status := FND_API.G_RET_STS_SUCCESS;
4703:
4704:
4705: /* commenting out this SQL as the view cs_sr_inv_components_v is not
4706: looking at the effective date of the inventory_item_id.
4731: bom.alternate_bom_designator IS NULL;
4732:
4733: EXCEPTION
4734: WHEN NO_DATA_FOUND THEN
4735: x_return_status := FND_API.G_RET_STS_ERROR;
4736: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
4737: p_token_v => TO_CHAR(p_inv_component_id),
4738: p_token_p => p_parameter_name,
4739: p_table_name => G_TABLE_NAME ,
4741: WHEN OTHERS THEN
4742: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4743: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4744: fnd_msg_pub.ADD;
4745: x_return_status := fnd_api.g_ret_sts_unexp_error;
4746:
4747: END Validate_Inv_Comp_Id;
4748: -----------------------------------------
4749:
4764: l_api_name_full CONSTANT VARCHAR2(70) := G_PKG_NAME||'.'||l_api_name;
4765: l_test VARCHAR2(3);
4766: BEGIN
4767: -- Initialize the return status.
4768: x_return_status := FND_API.G_RET_STS_SUCCESS;
4769:
4770: SELECT revision_qty_control_code
4771: INTO l_rev_control_code
4772: FROM mtl_system_items_b
4783: END IF;
4784:
4785: EXCEPTION
4786: WHEN NO_DATA_FOUND THEN
4787: x_return_status := FND_API.G_RET_STS_ERROR;
4788: Add_Invalid_Argument_Msg(
4789: p_token_an => l_api_name_full,
4790: p_token_v => p_inv_component_version,
4791: p_token_p => p_parameter_name,
4792: p_table_name => G_TABLE_NAME ,
4793: p_column_name => 'INV_COMPONENT_VERSION' );
4794:
4795: WHEN OTHERS THEN
4796: x_return_status := FND_API.G_RET_STS_ERROR;
4797: Add_Invalid_Argument_Msg(
4798: p_token_an => l_api_name_full,
4799: p_token_v => p_inv_component_version,
4800: p_token_p => p_parameter_name,
4819: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
4820:
4821: BEGIN
4822: -- Initialize the return status.
4823: x_return_status := FND_API.G_RET_STS_SUCCESS;
4824:
4825: /* commenting out this SQL , as the view cs_sr_inv_subcomponents_v does not
4826: take the effective dates of the inv_subcomp_id in the invwentory table.
4827: SELECT 'x'
4853:
4854:
4855: EXCEPTION
4856: WHEN NO_DATA_FOUND THEN
4857: x_return_status := FND_API.G_RET_STS_ERROR;
4858: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
4859: p_token_v => TO_CHAR(p_inv_subcomponent_id),
4860: p_token_p => p_parameter_name,
4861: p_table_name => G_TABLE_NAME ,
4864: WHEN OTHERS THEN
4865: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4866: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4867: fnd_msg_pub.ADD;
4868: x_return_status := fnd_api.g_ret_sts_unexp_error;
4869:
4870: END Validate_Inv_SubComp_Id;
4871: -------------------------------------
4872:
4886: l_rev_control_code NUMBER;
4887:
4888: BEGIN
4889: -- Initialize the return status.
4890: x_return_status := FND_API.G_RET_STS_SUCCESS;
4891:
4892: SELECT revision_qty_control_code
4893: INTO l_rev_control_code
4894: FROM mtl_system_items_b
4905: END IF;
4906:
4907: EXCEPTION
4908: WHEN NO_DATA_FOUND THEN
4909: x_return_status := FND_API.G_RET_STS_ERROR;
4910: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
4911: p_token_v => p_inv_subcomponent_version,
4912: p_token_p => p_parameter_name,
4913: p_table_name => G_TABLE_NAME ,
4915: WHEN OTHERS THEN
4916: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4917: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4918: fnd_msg_pub.ADD;
4919: x_return_status := fnd_api.g_ret_sts_unexp_error;
4920:
4921: END Validate_Inv_SubComp_Ver;
4922:
4923: -- Validate SR CREATION CHANNEL
4933: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
4934:
4935: BEGIN
4936: -- Initialize the return status.
4937: x_return_status := FND_API.G_RET_STS_SUCCESS;
4938:
4939: SELECT 'x' INTO l_dummy
4940: FROM CS_LOOKUPS
4941: WHERE lookup_code = UPPER(p_sr_creation_channel)
4944: AND TRUNC(NVL(end_date_active, SYSDATE)) ;
4945:
4946: EXCEPTION
4947: WHEN NO_DATA_FOUND THEN
4948: x_return_status := FND_API.G_RET_STS_ERROR;
4949: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
4950: p_token_v => p_sr_creation_channel,
4951: p_token_p => p_parameter_name,
4952: p_table_name => G_TABLE_NAME ,
4954: WHEN OTHERS THEN
4955: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4956: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4957: fnd_msg_pub.ADD;
4958: x_return_status := fnd_api.g_ret_sts_unexp_error;
4959:
4960: END Validate_SR_Channel;
4961: ---------------------------------------------------------------------------------
4962:
4974: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
4975:
4976: BEGIN
4977: -- Initialize the return status.
4978: x_return_status := FND_API.G_RET_STS_SUCCESS;
4979: SELECT 'x'
4980: INTO l_test
4981: FROM cs_cp_languages
4982: WHERE cp_language_id = p_language_id
4983: AND customer_product_id = p_customer_product_id;
4984:
4985: EXCEPTION
4986: WHEN NO_DATA_FOUND THEN
4987: x_return_status := FND_API.G_RET_STS_ERROR;
4988: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full ,
4989: p_token_v => TO_CHAR(p_language_id),
4990: p_token_p => p_parameter_name,
4991: p_table_name => G_TABLE_NAME,
4993: WHEN OTHERS THEN
4994: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
4995: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
4996: fnd_msg_pub.ADD;
4997: x_return_status := fnd_api.g_ret_sts_unexp_error;
4998:
4999: END Validate_CP_Language_Id;
5000: ---------------------------------------------------------------------------------------------
5001:
5013: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
5014:
5015: BEGIN
5016: -- Initialize the return status.
5017: x_return_status := FND_API.G_RET_STS_SUCCESS;
5018:
5019: SELECT 'x' INTO l_test
5020: FROM JTF_TERR_RSC_ALL
5021: WHERE resource_id = p_owner_id
5022: AND terr_id = p_territory_id;
5023:
5024: EXCEPTION
5025: WHEN NO_DATA_FOUND THEN
5026: x_return_status := FND_API.G_RET_STS_ERROR;
5027: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full ,
5028: p_token_v => TO_CHAR(p_territory_id),
5029: p_token_p => p_parameter_name,
5030: p_table_name => G_TABLE_NAME,
5032: WHEN OTHERS THEN
5033: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
5034: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
5035: fnd_msg_pub.ADD;
5036: x_return_status := fnd_api.g_ret_sts_unexp_error;
5037:
5038: END Validate_Territory_Id;
5039:
5040:
5056: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
5057:
5058: BEGIN
5059: -- Initialize the return status.
5060: x_return_status := FND_API.G_RET_STS_SUCCESS;
5061:
5062: SELECT a.contact_point_id INTO l_test
5063: FROM HZ_CONTACT_POINTS a
5064: WHERE a.contact_point_type = p_contact_point_type
5067: AND a.OWNER_TABLE_NAME = 'HZ_PARTIES'
5068: AND a.STATUS = 'A';
5069: EXCEPTION
5070: WHEN NO_DATA_FOUND THEN
5071: x_return_status := FND_API.G_RET_STS_ERROR;
5072: -- new message for 11.5.10
5073: -- Contact point is not valid. Please check the values for the following:
5074: -- party ,contact point and contact point type.
5075:
5080: WHEN OTHERS THEN
5081: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
5082: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
5083: fnd_msg_pub.ADD;
5084: x_return_status := fnd_api.g_ret_sts_unexp_error;
5085:
5086: END Validate_Per_Contact_Point_Id;
5087: ---------------------------------------
5088:
5100: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
5101:
5102: BEGIN
5103: -- Initialize the return status.
5104: x_return_status := FND_API.G_RET_STS_SUCCESS;
5105:
5106: SELECT PHONE_ID
5107: INTO l_test
5108: FROM per_phones
5111: AND phone_id = p_contact_point_id ;
5112:
5113: EXCEPTION
5114: WHEN NO_DATA_FOUND THEN
5115: x_return_status := FND_API.G_RET_STS_ERROR;
5116: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full ,
5117: p_token_v => TO_CHAR(p_contact_point_id),
5118: p_token_p => p_parameter_name,
5119: p_table_name => 'CS_HZ_SR_CONTACT_POINTS' ,
5121: WHEN OTHERS THEN
5122: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
5123: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
5124: fnd_msg_pub.ADD;
5125: x_return_status := fnd_api.g_ret_sts_unexp_error;
5126:
5127: END Validate_Emp_Contact_Point_Id;
5128: -----------------------------------------------------------------
5129:
5140: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
5141:
5142: BEGIN
5143: -- Initialize the return status.
5144: x_return_status := FND_API.G_RET_STS_SUCCESS;
5145:
5146: SELECT 'x'
5147: INTO l_test
5148: FROM AR_LOOKUPS
5152: AND TRUNC(NVL(end_date_active, SYSDATE))
5153: AND ROWNUM <= 1 ;
5154: EXCEPTION
5155: WHEN NO_DATA_FOUND THEN
5156: x_return_status := FND_API.G_RET_STS_ERROR;
5157: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full ,
5158: p_token_v => p_contact_point_type,
5159: p_token_p => p_parameter_name,
5160: p_table_name => 'CS_HZ_SR_CONTACT_POINTS',
5162: WHEN OTHERS THEN
5163: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
5164: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
5165: fnd_msg_pub.ADD;
5166: x_return_status := fnd_api.g_ret_sts_unexp_error;
5167: END Validate_Contact_Point_Type;
5168:
5169: -- Validate Contact Type
5170: PROCEDURE Validate_Contact_Type
5179: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
5180:
5181: BEGIN
5182: -- Initialize the return status.
5183: x_return_status := FND_API.G_RET_STS_SUCCESS;
5184:
5185: SELECT 'x' INTO l_test
5186: FROM CS_LOOKUPS
5187: WHERE lookup_code = UPPER(p_contact_type)
5191: AND ROWNUM <= 1;
5192:
5193: EXCEPTION
5194: WHEN NO_DATA_FOUND THEN
5195: x_return_status := FND_API.G_RET_STS_ERROR;
5196: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full ,
5197: p_token_v => p_contact_type,
5198: p_token_p => p_parameter_name,
5199: p_table_name => 'CS_HZ_SR_CONTACT_POINTS',
5201: WHEN OTHERS THEN
5202: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
5203: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
5204: fnd_msg_pub.ADD;
5205: x_return_status := fnd_api.g_ret_sts_unexp_error;
5206: END Validate_Contact_Type;
5207: ---------------------------------------
5208:
5209: --Validate Account ID
5221: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
5222:
5223: BEGIN
5224: -- Initialize the return status.
5225: x_return_status := FND_API.G_RET_STS_SUCCESS;
5226:
5227: SELECT 'x' INTO l_test
5228: FROM hz_cust_accounts a
5229: WHERE a.cust_account_id = p_account_id
5232: -- Added to remove TCA violation -- Sysdate should fall within Account Activation Date and Termination Date -- anmukher -- 08/14/03
5233: AND TRUNC(SYSDATE) BETWEEN TRUNC(NVL(a.ACCOUNT_ACTIVATION_DATE, SYSDATE)) AND TRUNC(NVL(a.ACCOUNT_TERMINATION_DATE, SYSDATE));
5234: EXCEPTION
5235: WHEN NO_DATA_FOUND THEN
5236: x_return_status := FND_API.G_RET_STS_ERROR;
5237: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full ,
5238: p_token_v => TO_CHAR(p_account_id),
5239: p_token_p => p_parameter_name,
5240: p_table_name => G_TABLE_NAME ,
5242: WHEN OTHERS THEN
5243: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
5244: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
5245: fnd_msg_pub.ADD;
5246: x_return_status := fnd_api.g_ret_sts_unexp_error;
5247:
5248: END Validate_Account_Id;
5249:
5250: -- --------------------------------------------------------------------------------
5328: BEGIN
5329:
5330: --bug 2833245 condition to check the token value
5331: l_token_v := p_token_v;
5332: if l_token_v = FND_API.G_MISS_CHAR then
5333: l_token_v := NULL;
5334: end if;
5335: -- end for bug 2833245
5336:
5500: FOR i IN c1 LOOP
5501: v_blockstr := ' begin '||i.hook_package || '.' ||i.hook_api||'(:1); end; ' ;
5502: EXECUTE IMMEDIATE v_blockstr USING OUT x_return_status ;
5503:
5504: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
5505: x_return_status := fnd_api.g_ret_sts_unexp_error;
5506: RAISE fnd_api.g_exc_unexpected_error;
5507: END IF;
5508: END LOOP;
5501: v_blockstr := ' begin '||i.hook_package || '.' ||i.hook_api||'(:1); end; ' ;
5502: EXECUTE IMMEDIATE v_blockstr USING OUT x_return_status ;
5503:
5504: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
5505: x_return_status := fnd_api.g_ret_sts_unexp_error;
5506: RAISE fnd_api.g_exc_unexpected_error;
5507: END IF;
5508: END LOOP;
5509: EXCEPTION
5502: EXECUTE IMMEDIATE v_blockstr USING OUT x_return_status ;
5503:
5504: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
5505: x_return_status := fnd_api.g_ret_sts_unexp_error;
5506: RAISE fnd_api.g_exc_unexpected_error;
5507: END IF;
5508: END LOOP;
5509: EXCEPTION
5510: WHEN fnd_api.g_exc_unexpected_error THEN
5506: RAISE fnd_api.g_exc_unexpected_error;
5507: END IF;
5508: END LOOP;
5509: EXCEPTION
5510: WHEN fnd_api.g_exc_unexpected_error THEN
5511: x_return_status := fnd_api.g_ret_sts_unexp_error;
5512:
5513: WHEN OTHERS THEN
5514: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
5507: END IF;
5508: END LOOP;
5509: EXCEPTION
5510: WHEN fnd_api.g_exc_unexpected_error THEN
5511: x_return_status := fnd_api.g_ret_sts_unexp_error;
5512:
5513: WHEN OTHERS THEN
5514: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
5515: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
5513: WHEN OTHERS THEN
5514: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
5515: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
5516: fnd_msg_pub.ADD;
5517: x_return_status := fnd_api.g_ret_sts_unexp_error;
5518:
5519: END call_internal_hook ;
5520:
5521: -- -----------------------------------------------------------------------
5527: -- calling procedure (e.g. 'p_bill_to_account').
5528: -- p_bill_to_account_id IN NUMBER Required Unique bill to account identifier
5529: -- p_bill_to_customer_id IN NUMBER Unique Bill to customer ientifier
5530: -- OUT :x_return_status OUT VARCHAR2(1)
5531: -- FND_API.G_RET_STS_SUCCESS => Bill_to_Account is valid
5532: -- FND_API.G_RET_STS_ERROR => Bill_to_Account is invalid
5533: -- -----------------------------------------------------------------------
5534:
5535: PROCEDURE Validate_Bill_To_Ship_To_Acct
5528: -- p_bill_to_account_id IN NUMBER Required Unique bill to account identifier
5529: -- p_bill_to_customer_id IN NUMBER Unique Bill to customer ientifier
5530: -- OUT :x_return_status OUT VARCHAR2(1)
5531: -- FND_API.G_RET_STS_SUCCESS => Bill_to_Account is valid
5532: -- FND_API.G_RET_STS_ERROR => Bill_to_Account is invalid
5533: -- -----------------------------------------------------------------------
5534:
5535: PROCEDURE Validate_Bill_To_Ship_To_Acct
5536: ( p_api_name IN VARCHAR2,
5545: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
5546:
5547: BEGIN
5548: -- Initialize the return status.
5549: x_return_status := FND_API.G_RET_STS_SUCCESS;
5550: -- Validation
5551: SELECT 'x' INTO l_dummy
5552: FROM hz_cust_accounts
5553: WHERE cust_account_id = p_account_id
5554: AND party_id = p_party_id
5555: AND status = 'A';
5556: EXCEPTION
5557: WHEN NO_DATA_FOUND THEN
5558: x_return_status := FND_API.G_RET_STS_ERROR;
5559: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
5560: p_token_v => p_account_id,
5561: p_token_p => p_parameter_name,
5562: p_table_name => G_TABLE_NAME,
5565: WHEN OTHERS THEN
5566: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
5567: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
5568: fnd_msg_pub.ADD;
5569: x_return_status := fnd_api.g_ret_sts_unexp_error;
5570: END Validate_Bill_To_Ship_To_Acct ;
5571:
5572: -- -----------------------------------------------------------------------
5573: -- Start of Comments
5585: -- p_source_program_code IN VARCHAR2(30) Required
5586: -- Service request source program code
5587: --
5588: -- OUT : x_return_status OUT VARCHAR2(1)
5589: -- FND_API.G_RET_STS_SUCCESS => source_program_code is valid
5590: -- FND_API.G_RET_STS_ERROR => source_program_code is invalid
5591: --
5592: -- Notes : Unknown exceptions (i.e. unexpected errors) should be
5593: -- handled by the calling procedure.
5586: -- Service request source program code
5587: --
5588: -- OUT : x_return_status OUT VARCHAR2(1)
5589: -- FND_API.G_RET_STS_SUCCESS => source_program_code is valid
5590: -- FND_API.G_RET_STS_ERROR => source_program_code is invalid
5591: --
5592: -- Notes : Unknown exceptions (i.e. unexpected errors) should be
5593: -- handled by the calling procedure.
5594: -- End of Comments
5606: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
5607:
5608: BEGIN
5609: -- Initialize the return status.
5610: x_return_status := FND_API.G_RET_STS_SUCCESS;
5611:
5612: -- Verify the request CP against the database.
5613: SELECT 'x' INTO l_dummy
5614: FROM CS_LOOKUPS
5619: AND TRUNC(NVL(end_date_active, SYSDATE));
5620:
5621: EXCEPTION
5622: WHEN NO_DATA_FOUND THEN
5623: x_return_status := FND_API.G_RET_STS_ERROR;
5624: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
5625: p_token_v => p_source_program_code,
5626: p_token_p => p_parameter_name,
5627: p_table_name => G_TABLE_NAME,
5630: WHEN OTHERS THEN
5631: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
5632: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
5633: fnd_msg_pub.ADD;
5634: x_return_status := fnd_api.g_ret_sts_unexp_error;
5635: END Validate_source_program_Code;
5636: -- -----------------------------------------------------------------------
5637: -- Start of Comments
5638: -- Procedure : Validate_INC_DIST_QUAL_UOM
5648: -- (e.g. 'P_INC_DIST_QUAL_UOM').
5649: -- P_INC_DIST_QUAL_UOM IN VARCHAR2(30)
5650: -- Service request incident distance qualifier UOM
5651: -- OUT : x_return_status OUT VARCHAR2(1)
5652: -- FND_API.G_RET_STS_SUCCESS => INC_DIST_QUAL_UOM is valid
5653: -- FND_API.G_RET_STS_ERROR => INC_DIST_QUAL_UOM is invalid
5654: --
5655: -- Notes : Unknown exceptions (i.e. unexpected errors) should be
5656: -- handled by the calling procedure.
5649: -- P_INC_DIST_QUAL_UOM IN VARCHAR2(30)
5650: -- Service request incident distance qualifier UOM
5651: -- OUT : x_return_status OUT VARCHAR2(1)
5652: -- FND_API.G_RET_STS_SUCCESS => INC_DIST_QUAL_UOM is valid
5653: -- FND_API.G_RET_STS_ERROR => INC_DIST_QUAL_UOM is invalid
5654: --
5655: -- Notes : Unknown exceptions (i.e. unexpected errors) should be
5656: -- handled by the calling procedure.
5657: -- End of Comments
5668: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
5669:
5670: BEGIN
5671: -- Initialize the return status.
5672: x_return_status := FND_API.G_RET_STS_SUCCESS;
5673:
5674: -- Verify the request CP against the database.
5675: SELECT 'x' INTO l_dummy
5676: FROM CS_LOOKUPS
5681: AND TRUNC(NVL(end_date_active, SYSDATE));
5682:
5683: EXCEPTION
5684: WHEN NO_DATA_FOUND THEN
5685: x_return_status := FND_API.G_RET_STS_ERROR;
5686: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
5687: p_token_v => p_INC_DIST_QUAL_UOM,
5688: p_token_p => p_parameter_name ,
5689: p_table_name => G_TABLE_NAME,
5692: WHEN OTHERS THEN
5693: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
5694: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
5695: fnd_msg_pub.ADD;
5696: x_return_status := fnd_api.g_ret_sts_unexp_error;
5697:
5698:
5699: END Validate_INC_DIST_QUAL_UOM;
5700:
5715: -- p_INC_DIRECTION_QUAL IN VARCHAR2(30)
5716: -- Service request incident direction qualifier
5717: --
5718: -- OUT : x_return_status OUT VARCHAR2(1)
5719: -- FND_API.G_RET_STS_SUCCESS => INC_DIRECTION_QUAL is valid
5720: -- FND_API.G_RET_STS_ERROR => INC_DIRECTION_QUAL is invalid
5721: --
5722: -- Notes : Unknown exceptions (i.e. unexpected errors) should be
5723: -- handled by the calling procedure.
5716: -- Service request incident direction qualifier
5717: --
5718: -- OUT : x_return_status OUT VARCHAR2(1)
5719: -- FND_API.G_RET_STS_SUCCESS => INC_DIRECTION_QUAL is valid
5720: -- FND_API.G_RET_STS_ERROR => INC_DIRECTION_QUAL is invalid
5721: --
5722: -- Notes : Unknown exceptions (i.e. unexpected errors) should be
5723: -- handled by the calling procedure.
5724: -- End of Comments
5735: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
5736:
5737: BEGIN
5738: -- Initialize the return status.
5739: x_return_status := FND_API.G_RET_STS_SUCCESS;
5740:
5741: -- Verify the request CP against the database.
5742: SELECT 'x' INTO l_dummy
5743: FROM CS_LOOKUPS
5748: AND TRUNC(NVL(end_date_active, SYSDATE));
5749:
5750: EXCEPTION
5751: WHEN NO_DATA_FOUND THEN
5752: x_return_status := FND_API.G_RET_STS_ERROR;
5753: Add_Invalid_Argument_Msg( p_token_an => l_api_name_full,
5754: p_token_v => p_INC_DIRECTION_QUAL,
5755: p_token_p => p_parameter_name,
5756: p_table_name => G_TABLE_NAME,
5759: WHEN OTHERS THEN
5760: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
5761: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
5762: fnd_msg_pub.ADD;
5763: x_return_status := fnd_api.g_ret_sts_unexp_error;
5764:
5765:
5766: END Validate_INC_DIRECTION_QUAL;
5767:
5851: END IF ;
5852:
5853: --bug 2833245 condition to check the token value
5854: l_token_v := p_token_v;
5855: if l_token_v = FND_API.G_MISS_CHAR then
5856: l_token_v := NULL;
5857: end if;
5858: -- end for bug 2833245
5859:
6174:
6175: l_dummy Varchar2(5);
6176: BEGIN
6177: -- Initialize return status to success
6178: x_return_status := FND_API.G_RET_STS_SUCCESS;
6179: l_literal_a := 'A';
6180: OPEN site_site_use;
6181: FETCH site_site_use INTO l_dummy;
6182: IF (site_site_use%NOTFOUND) THEN
6179: l_literal_a := 'A';
6180: OPEN site_site_use;
6181: FETCH site_site_use INTO l_dummy;
6182: IF (site_site_use%NOTFOUND) THEN
6183: x_return_status := FND_API.G_RET_STS_ERROR;
6184: CLOSE site_site_use;
6185:
6186: RAISE NO_DATA_FOUND;
6187: END IF;
6196: WHEN OTHERS THEN
6197: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
6198: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
6199: fnd_msg_pub.add;
6200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6201: END Validate_Site_Site_Use ;
6202:
6203: -- -----------------------------------------------------------------------------
6204: ---
6237:
6238: BEGIN
6239:
6240: -- Initialize return status to success
6241: x_return_status := FND_API.G_RET_STS_SUCCESS;
6242:
6243: OPEN bill_to_site_use;
6244: FETCH bill_to_site_use INTO x_site_id;
6245: IF (bill_to_site_use%NOTFOUND) THEN
6242:
6243: OPEN bill_to_site_use;
6244: FETCH bill_to_site_use INTO x_site_id;
6245: IF (bill_to_site_use%NOTFOUND) THEN
6246: x_return_status := FND_API.G_RET_STS_ERROR;
6247: CLOSE bill_to_site_use;
6248:
6249: RAISE NO_DATA_FOUND;
6250: END IF;
6260: WHEN OTHERS THEN
6261: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
6262: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
6263: fnd_msg_pub.add;
6264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6265: END Validate_Bill_Ship_Site_Use;
6266:
6267:
6268: -- DJ API Cleanup; added new proc
6283: BEGIN
6284:
6285: -- procedure always returns a success status but may populate a warning
6286: -- message in the message stack
6287: x_return_status := FND_API.G_RET_STS_SUCCESS;
6288:
6289: -- Check if service security is enable. This select will always return
6290: -- with atleast one record.
6291: select sr_agent_security
6316: end if;
6317:
6318: EXCEPTION
6319: WHEN OTHERS THEN
6320: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6321: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
6322: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
6323: fnd_msg_pub.add;
6324:
6340: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
6341:
6342: BEGIN
6343:
6344: x_return_status := FND_API.G_RET_STS_SUCCESS;
6345:
6346: SELECT 'x' INTO l_dummy
6347: FROM csi_item_instances a
6348: WHERE a.instance_id = p_customer_product_id
6349: AND a.location_id = p_incident_location_id;
6350:
6351: EXCEPTION
6352: WHEN NO_DATA_FOUND THEN
6353: x_return_status := FND_API.G_RET_STS_ERROR;
6354: fnd_message.set_name ('CS', 'CS_INVALID_INC_LOCATION');
6355: fnd_message.set_token('INCIDENT_LOCATION_ID', p_incident_location_id);
6356: fnd_message.set_token('CUSTOMER_PRODUCT_ID', p_customer_product_id);
6357: fnd_msg_pub.add;
6359: WHEN OTHERS THEN
6360: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
6361: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
6362: fnd_msg_pub.add;
6363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6364:
6365: END CP_INCIDENT_SITE_CROSS_VAL;
6366:
6367: -- KP API Cleanup; added new proc
6380: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
6381:
6382: BEGIN
6383:
6384: x_return_status := FND_API.G_RET_STS_SUCCESS;
6385:
6386: SELECT 'x' INTO l_dummy
6387: FROM csi_item_instances a
6388: WHERE a.instance_id = p_customer_product_id
6390: AND a.install_location_id = p_install_site_id;
6391:
6392: EXCEPTION
6393: WHEN NO_DATA_FOUND THEN
6394: x_return_status := FND_API.G_RET_STS_ERROR;
6395: fnd_message.set_name ('CS', 'CS_INVALID_INSTALL_SITE');
6396: fnd_message.set_token('INSTALL_SITE_ID', p_install_site_id);
6397: fnd_message.set_token('CUSTOMER_PRODUCT_ID', p_customer_product_id);
6398: fnd_msg_pub.add;
6400: WHEN OTHERS THEN
6401: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
6402: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
6403: fnd_msg_pub.add;
6404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6405:
6406: END CP_INSTALL_SITE_CROSS_VAL;
6407:
6408:
6432: lx_msg_count NUMBER;
6433: lx_msg_data VARCHAR2(2000);
6434:
6435: BEGIN
6436: x_return_status := FND_API.G_RET_STS_SUCCESS;
6437:
6438: -- populate the res. code record type
6439:
6440: l_rc_rec.service_request_type_id := p_incident_type_id;
6444: l_rc_rec.problem_code := p_problem_code;
6445:
6446: cs_sr_res_code_mapping_pkg.validate_resolution_code (
6447: p_api_version => 1.0,
6448: p_init_msg_list => FND_API.G_TRUE,
6449: p_rescode_criteria_rec => l_rc_rec,
6450: p_resolution_code => p_resolution_code,
6451: x_return_status => x_return_status,
6452: x_msg_count => lx_msg_count,
6451: x_return_status => x_return_status,
6452: x_msg_count => lx_msg_count,
6453: x_msg_data => lx_msg_data );
6454:
6455: if ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) then
6456: -- new message for 11.5.10
6457: -- Resolution code is not valid. Please check the values for the following:
6458: -- Service request type, inventory item, product category and problem code.
6459: fnd_message.set_name ('CS', 'CS_SR_RES_CODE_INVALID');
6465: WHEN OTHERS THEN
6466: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
6467: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
6468: fnd_msg_pub.add;
6469: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6470:
6471: END Resolution_Code_Cross_Val;
6472:
6473: -- KP API Cleanup; added new proc
6487:
6488: l_close_flag VARCHAR2(10);
6489:
6490: BEGIN
6491: x_return_status := FND_API.G_RET_STS_SUCCESS;
6492:
6493: SELECT close_flag
6494: INTO l_close_flag
6495: FROM cs_incident_statuses_b
6505: AND restrict_closure_flag = 'Y'
6506: AND NVL(deleted_flag,'N') = 'N';
6507:
6508: if ( l_dummy > 0 ) then
6509: x_return_status := FND_API.G_RET_STS_ERROR;
6510: -- This service request has open dependent tasks. Please close these
6511: -- tasks before closing the service request.
6512: fnd_message.set_name ('CS', 'CS_SR_CANNOT_CLOSE_SR');
6513: fnd_msg_pub.add;
6519: WHEN OTHERS THEN
6520: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
6521: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
6522: fnd_msg_pub.add;
6523: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6524:
6525: END TASK_RESTRICT_CLOSE_CROSS_VAL;
6526:
6527: -- KP API Cleanup; added new proc
6569: px_inp_rec OKS_ENTITLEMENTS_PUB.get_contin_rec;
6570: l_match_found BOOLEAN;
6571: BEGIN
6572:
6573: x_return_status := FND_API.G_RET_STS_SUCCESS;
6574:
6575: px_inp_rec.contract_number := NULL;
6576: px_inp_rec.contract_number_modifier := NULL;
6577: px_inp_rec.service_line_id := NULL;
6592: px_inp_rec.dates_in_input_tz := 'N';
6593:
6594: OKS_ENTITLEMENTS_PUB.get_contracts
6595: ( p_api_version => 1.0
6596: , p_init_msg_list => fnd_api.g_false
6597: , p_inp_rec => px_inp_rec
6598: , x_return_status => x_return_status
6599: , x_msg_count => lx_msg_count
6600: , x_msg_data => lx_msg_data
6599: , x_msg_count => lx_msg_count
6600: , x_msg_data => lx_msg_data
6601: , x_ent_contracts => l_ent_contracts
6602: );
6603: IF x_return_status = FND_API.G_RET_STS_SUCCESS
6604: THEN
6605: l_match_found := false;
6606: IF l_ent_contracts.count > 0
6607: THEN
6616: END IF;
6617: -- if contract is not found in contract list, set return status to Error
6618: IF l_match_found = false
6619: THEN
6620: x_return_status := FND_API.G_RET_STS_ERROR;
6621: END IF;
6622: END IF;
6623:
6624: /*************** when bug 4109990 is fixed, uncomment this part
6653: l_covlevel_tbl(6).covered_yn := 'N';
6654:
6655: OKS_ENTITLEMENTS_PUB.VALIDATE_CONTRACT_LINE (
6656: p_api_version => 1,
6657: p_init_msg_list => FND_API.G_FALSE,
6658: p_contract_line_id => p_contract_service_id,
6659: p_busiproc_id => p_busiproc_id,
6660: p_request_date => p_request_date,
6661: p_covlevel_tbl_in => l_covlevel_tbl,
6667: x_combination_valid => x_dummy) ;
6668:
6669: l_contract_index := lx_covlevel_tbl.FIRST;
6670:
6671: IF ( lx_return_status = FND_API.G_RET_STS_SUCCESS ) then
6672: WHILE l_contract_index IS NOT NULL LOOP
6673: IF lx_covlevel_tbl(l_contract_index).covered_yn = 'Y' THEN
6674: valid_contract_flag := 'Y';
6675: END IF;
6676: l_contract_index := lx_covlevel_tbl.NEXT(l_contract_index);
6677: END LOOP;
6678:
6679: IF valid_contract_flag = 'N' THEN
6680: x_return_status := FND_API.G_RET_STS_ERROR;
6681: -- new message for 11.5.10
6682: -- Contract is not valid. Please check the values for the following:
6683: -- Service request type, inventory item, instance, account and
6684: -- install site.
6686: --fnd_message.set_token('API_NAME', l_api_name_full );
6687: --fnd_msg_pub.add;
6688: END IF;
6689: ELSE -- For BUG 3665768
6690: x_return_status := FND_API.G_RET_STS_ERROR;
6691: --fnd_message.set_name ('CS', 'CS_SR_CONTRACT_INVALID');
6692: --fnd_message.set_token('API_NAME', l_api_name_full );
6693: --fnd_msg_pub.add;
6694: END IF; -- IF ( lx_return_status = FND_API.G_RET_STS_SUCCESS ) then
6690: x_return_status := FND_API.G_RET_STS_ERROR;
6691: --fnd_message.set_name ('CS', 'CS_SR_CONTRACT_INVALID');
6692: --fnd_message.set_token('API_NAME', l_api_name_full );
6693: --fnd_msg_pub.add;
6694: END IF; -- IF ( lx_return_status = FND_API.G_RET_STS_SUCCESS ) then
6695: *************** when bug 4109990 is fixed, uncomment this part *********/
6696:
6697: EXCEPTION
6698: WHEN OTHERS THEN
6698: WHEN OTHERS THEN
6699: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
6700: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
6701: fnd_msg_pub.add;
6702: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6703:
6704: END CONTRACTS_CROSS_VAL;
6705:
6706: -- KP API Cleanup; added new proc
6718: l_api_name_full CONSTANT VARCHAR2(70) := G_PKG_NAME||'.'||l_api_name;
6719:
6720: BEGIN
6721:
6722: x_return_status := FND_API.G_RET_STS_SUCCESS;
6723:
6724: SELECT 'X'
6725: INTO l_dummy
6726: FROM CSI_ITEM_INSTANCES
6729:
6730: EXCEPTION
6731: WHEN NO_DATA_FOUND THEN
6732: -- For bug 3324210 and 3324179
6733: x_return_status := FND_API.G_RET_STS_ERROR;
6734: CS_ServiceRequest_UTIL.Add_Invalid_Argument_Msg(
6735: p_token_an => l_api_name_full,
6736: -- p_token_v => to_char(p_cp_component_id), --3815710
6737: p_token_v => to_char(p_inv_component_id),
6740: WHEN OTHERS THEN
6741: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
6742: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
6743: fnd_msg_pub.add;
6744: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6745:
6746: END INV_COMPONENT_CROSS_VAL;
6747:
6748: -- KP API Cleanup; added new proc
6761: l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
6762:
6763: BEGIN
6764:
6765: x_return_status := FND_API.G_RET_STS_SUCCESS;
6766:
6767: SELECT 'X' INTO l_dummy
6768: FROM CSI_ITEM_INSTANCES
6769: WHERE INSTANCE_ID = p_cp_subcomponent_id
6771:
6772: EXCEPTION
6773: WHEN NO_DATA_FOUND THEN
6774: -- For bug 3324210 and 3324179
6775: x_return_status := FND_API.G_RET_STS_ERROR;
6776: CS_ServiceRequest_UTIL.Add_Invalid_Argument_Msg(
6777: p_token_an => l_api_name_full,
6778: p_token_v => to_char(p_cp_subcomponent_id),
6779: p_token_p => p_parameter_name );
6781: WHEN OTHERS THEN
6782: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
6783: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
6784: fnd_msg_pub.add;
6785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6786:
6787: END INV_SUBCOMPONENT_CROSS_VAL;
6788:
6789: -- where did this requirement come from?
6797: p_sr_agent_security IN VARCHAR2,
6798: x_return_status OUT NOCOPY VARCHAR2 )
6799: IS
6800: BEGIN
6801: x_return_status := FND_API.G_RET_STS_SUCCESS;
6802: END SETUP_SR_AGENT_SECURITY;
6803:
6804:
6805: -- Added new function if the responsibility has access to
6851: x_return_status OUT NOCOPY VARCHAR2 )
6852: IS
6853: l_dummy NUMBER := 0;
6854: BEGIN
6855: x_return_status := FND_API.G_RET_STS_SUCCESS;
6856: /*
6857: select 1
6858: into l_dummy
6859: from csi_item_instances
6875: IS
6876: l_api_name_full VARCHAR2(70) := G_PKG_NAME||'.VALIDATE_TYPE_CHANGE';
6877: BEGIN
6878: if ( p_old_eam_type_flag <> p_new_eam_type_flag ) then
6879: x_return_status := FND_API.G_RET_STS_ERROR;
6880:
6881: -- Set different message depending on the nature of the type change
6882: if ( p_old_eam_type_flag = 'Y' ) then
6883: -- new message for 11.5.10
6894: fnd_message.set_token('API_NAME', l_api_name_full );
6895: fnd_msg_pub.add;
6896: end if;
6897: else
6898: x_return_status := FND_API.G_RET_STS_SUCCESS;
6899: end if;
6900:
6901: EXCEPTION
6902: WHEN OTHERS THEN
6899: end if;
6900:
6901: EXCEPTION
6902: WHEN OTHERS THEN
6903: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6904:
6905: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
6906: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
6907: FND_MSG_PUB.ADD;
7030: l_owning_dept_id cs_incidents_all_b.owning_department_id % TYPE;
7031:
7032: BEGIN
7033: -- Initialize return status to success
7034: x_return_status := FND_API.G_RET_STS_SUCCESS;
7035:
7036: -- Fetch the values that need to be used in the validation procedures. If the
7037: -- value is passed to the API, then use the passed in value, if not, use the
7038: -- existing DB value
7221: , p_inventory_org_id => l_inv_org_id
7222: , p_inv_org_master_org_flag => l_inv_org_master_org_flag
7223: , x_return_status => lx_return_status
7224: );
7225: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7226: x_return_status := FND_API.G_RET_STS_ERROR;
7227: RETURN;
7228: END IF;
7229: END IF;
7222: , p_inv_org_master_org_flag => l_inv_org_master_org_flag
7223: , x_return_status => lx_return_status
7224: );
7225: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7226: x_return_status := FND_API.G_RET_STS_ERROR;
7227: RETURN;
7228: END IF;
7229: END IF;
7230: --
7239: p_owning_dept_id => l_owning_dept_id,
7240: p_maintenance_flag => l_maint_flag,
7241: x_return_status => lx_return_status
7242: );
7243: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS)
7244: THEN
7245: x_return_status := FND_API.G_RET_STS_ERROR;
7246: RETURN;
7247: END IF;
7241: x_return_status => lx_return_status
7242: );
7243: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS)
7244: THEN
7245: x_return_status := FND_API.G_RET_STS_ERROR;
7246: RETURN;
7247: END IF;
7248: END IF;
7249: --
7249: --
7250: /* For bug 3340433 - moved validate_product and validate_customer_product
7251: before the validations which uses inventory_item_id */
7252: -- Inventory item cross validation
7253: IF ((p_new_sr_rec.inventory_org_id <> FND_API.G_MISS_NUM) AND
7254: (nvl(p_new_sr_rec.inventory_org_id,-99) <>
7255: nvl(p_old_sr_rec.inv_organization_id,-99)))
7256: OR
7257: ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7253: IF ((p_new_sr_rec.inventory_org_id <> FND_API.G_MISS_NUM) AND
7254: (nvl(p_new_sr_rec.inventory_org_id,-99) <>
7255: nvl(p_old_sr_rec.inv_organization_id,-99)))
7256: OR
7257: ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7258: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7259: nvl(p_old_sr_rec.inventory_item_id,-99)))
7260: OR
7261: ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
7257: ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7258: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7259: nvl(p_old_sr_rec.inventory_item_id,-99)))
7260: OR
7261: ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
7262: (nvl(p_new_sr_rec.customer_product_id,-99) <>
7263: nvl(p_old_sr_rec.customer_product_id,-99))) OR
7264: NVL(l_maint_organization_id,-99) <> NVL(p_old_sr_rec.maint_organization_id,-99)
7265: THEN
7262: (nvl(p_new_sr_rec.customer_product_id,-99) <>
7263: nvl(p_old_sr_rec.customer_product_id,-99))) OR
7264: NVL(l_maint_organization_id,-99) <> NVL(p_old_sr_rec.maint_organization_id,-99)
7265: THEN
7266: if (l_inv_item_id IS NOT NULL and l_inv_item_id <> FND_API.G_MISS_NUM) then
7267: VALIDATE_PRODUCT (
7268: p_api_name => NULL,
7269: p_parameter_name => 'inventory_item_id',
7270: p_inventory_item_id => l_inv_item_id,
7273: p_maint_organization_id => l_maint_organization_id,
7274: p_inv_org_master_org_flag => l_inv_org_master_org_flag,
7275: x_return_status => lx_return_status );
7276:
7277: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7278: x_return_status := FND_API.G_RET_STS_ERROR;
7279: RETURN;
7280: END IF;
7281: END IF;
7274: p_inv_org_master_org_flag => l_inv_org_master_org_flag,
7275: x_return_status => lx_return_status );
7276:
7277: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7278: x_return_status := FND_API.G_RET_STS_ERROR;
7279: RETURN;
7280: END IF;
7281: END IF;
7282: END IF; -- validate inventory item end if
7300: , p_inv_org_master_org_flag => l_inv_org_master_org_flag
7301: , x_return_status => lx_return_status
7302: );
7303:
7304: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7305: x_return_status := FND_API.G_RET_STS_ERROR;
7306: RETURN;
7307: END IF;
7308:
7301: , x_return_status => lx_return_status
7302: );
7303:
7304: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7305: x_return_status := FND_API.G_RET_STS_ERROR;
7306: RETURN;
7307: END IF;
7308:
7309: -- For bug 3340433
7324:
7325: -- Problem code cross validation
7326: -- Validate problem code if any of the following changes: type, category or
7327: -- item
7328: IF ((p_new_sr_rec.type_id <> FND_API.G_MISS_NUM) AND
7329: (nvl(p_new_sr_rec.type_id,-99) <>
7330: nvl(p_old_sr_rec.incident_type_id,-99)))
7331: OR
7332: ((p_new_sr_rec.problem_code <> FND_API.G_MISS_CHAR) AND
7328: IF ((p_new_sr_rec.type_id <> FND_API.G_MISS_NUM) AND
7329: (nvl(p_new_sr_rec.type_id,-99) <>
7330: nvl(p_old_sr_rec.incident_type_id,-99)))
7331: OR
7332: ((p_new_sr_rec.problem_code <> FND_API.G_MISS_CHAR) AND
7333: (nvl(p_new_sr_rec.problem_code,-99) <>
7334: nvl(p_old_sr_rec.problem_code,-99)))
7335: OR
7336: ((p_new_sr_rec.category_id <> FND_API.G_MISS_NUM) AND
7332: ((p_new_sr_rec.problem_code <> FND_API.G_MISS_CHAR) AND
7333: (nvl(p_new_sr_rec.problem_code,-99) <>
7334: nvl(p_old_sr_rec.problem_code,-99)))
7335: OR
7336: ((p_new_sr_rec.category_id <> FND_API.G_MISS_NUM) AND
7337: (nvl(p_new_sr_rec.category_id,-99) <>
7338: nvl(p_old_sr_rec.category_id,-99)))
7339: OR
7340: ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7336: ((p_new_sr_rec.category_id <> FND_API.G_MISS_NUM) AND
7337: (nvl(p_new_sr_rec.category_id,-99) <>
7338: nvl(p_old_sr_rec.category_id,-99)))
7339: OR
7340: ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7341: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7342: nvl(p_old_sr_rec.inventory_item_id,-99)))
7343: OR ( l_inv_change_by_cp = 'Y')
7344: THEN
7341: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7342: nvl(p_old_sr_rec.inventory_item_id,-99)))
7343: OR ( l_inv_change_by_cp = 'Y')
7344: THEN
7345: if ( l_problem_code IS NOT NULL and l_problem_code <> FND_API.G_MISS_CHAR ) then
7346: VALIDATE_PROBLEM_CODE (
7347: p_api_name => NULL,
7348: p_parameter_name => 'problem code',
7349: p_problem_code => l_problem_code,
7352: p_inventory_org_id => l_inv_org_id,
7353: p_category_id => l_category_id,
7354: x_return_status => lx_return_status );
7355:
7356: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7357: x_return_status := FND_API.G_RET_STS_ERROR;
7358: RETURN;
7359: END IF;
7360: END IF; -- if ( l_problem_code IS NULL or l_problem_code <> FND_API
7353: p_category_id => l_category_id,
7354: x_return_status => lx_return_status );
7355:
7356: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7357: x_return_status := FND_API.G_RET_STS_ERROR;
7358: RETURN;
7359: END IF;
7360: END IF; -- if ( l_problem_code IS NULL or l_problem_code <> FND_API
7361: END IF; -- validate proble code end if
7356: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7357: x_return_status := FND_API.G_RET_STS_ERROR;
7358: RETURN;
7359: END IF;
7360: END IF; -- if ( l_problem_code IS NULL or l_problem_code <> FND_API
7361: END IF; -- validate proble code end if
7362:
7363: -- Resolution code cross validation
7364: -- Validat resolution code if any of the following changes: type, category,
7362:
7363: -- Resolution code cross validation
7364: -- Validat resolution code if any of the following changes: type, category,
7365: -- item or problem code
7366: IF ((p_new_sr_rec.type_id <> FND_API.G_MISS_NUM) AND
7367: (nvl(p_new_sr_rec.type_id,-99) <>
7368: nvl(p_old_sr_rec.incident_type_id,-99)))
7369: OR
7370: ((p_new_sr_rec.category_id <> FND_API.G_MISS_NUM) AND
7366: IF ((p_new_sr_rec.type_id <> FND_API.G_MISS_NUM) AND
7367: (nvl(p_new_sr_rec.type_id,-99) <>
7368: nvl(p_old_sr_rec.incident_type_id,-99)))
7369: OR
7370: ((p_new_sr_rec.category_id <> FND_API.G_MISS_NUM) AND
7371: (nvl(p_new_sr_rec.category_id,-99) <>
7372: nvl(p_old_sr_rec.category_id,-99)))
7373: OR
7374: ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7370: ((p_new_sr_rec.category_id <> FND_API.G_MISS_NUM) AND
7371: (nvl(p_new_sr_rec.category_id,-99) <>
7372: nvl(p_old_sr_rec.category_id,-99)))
7373: OR
7374: ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7375: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7376: nvl(p_old_sr_rec.inventory_item_id,-99)))
7377: OR
7378: ((p_new_sr_rec.problem_code <> FND_API.G_MISS_CHAR) AND
7374: ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7375: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7376: nvl(p_old_sr_rec.inventory_item_id,-99)))
7377: OR
7378: ((p_new_sr_rec.problem_code <> FND_API.G_MISS_CHAR) AND
7379: (nvl(p_new_sr_rec.problem_code,-99) <>
7380: nvl(p_old_sr_rec.problem_code,-99)))
7381: OR
7382: ((p_new_sr_rec.resolution_code <> FND_API.G_MISS_CHAR) AND
7378: ((p_new_sr_rec.problem_code <> FND_API.G_MISS_CHAR) AND
7379: (nvl(p_new_sr_rec.problem_code,-99) <>
7380: nvl(p_old_sr_rec.problem_code,-99)))
7381: OR
7382: ((p_new_sr_rec.resolution_code <> FND_API.G_MISS_CHAR) AND
7383: (nvl(p_new_sr_rec.resolution_code,-99) <>
7384: nvl(p_old_sr_rec.resolution_code,-99)))
7385: OR ( l_inv_change_by_cp = 'Y')
7386: THEN
7384: nvl(p_old_sr_rec.resolution_code,-99)))
7385: OR ( l_inv_change_by_cp = 'Y')
7386: THEN
7387:
7388: if ( l_res_code IS NOT NULL and l_res_code <> FND_API.G_MISS_CHAR ) then
7389: RESOLUTION_CODE_CROSS_VAL (
7390: p_parameter_name => 'problem code',
7391: p_resolution_code => l_res_code,
7392: p_problem_code => l_problem_code,
7395: p_inventory_item_id => l_inv_item_id,
7396: p_inventory_org_id => l_inv_org_id,
7397: x_return_status => lx_return_status );
7398:
7399: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7400: x_return_status := FND_API.G_RET_STS_ERROR;
7401: RETURN;
7402: END IF;
7403: END IF; -- if ( l_res_code IS NOT NULL or l_res_code <> FND_API
7396: p_inventory_org_id => l_inv_org_id,
7397: x_return_status => lx_return_status );
7398:
7399: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7400: x_return_status := FND_API.G_RET_STS_ERROR;
7401: RETURN;
7402: END IF;
7403: END IF; -- if ( l_res_code IS NOT NULL or l_res_code <> FND_API
7404:
7399: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7400: x_return_status := FND_API.G_RET_STS_ERROR;
7401: RETURN;
7402: END IF;
7403: END IF; -- if ( l_res_code IS NOT NULL or l_res_code <> FND_API
7404:
7405: END IF; -- validate resolution code end if
7406:
7407: -- contracts cross val
7412: -- id check as well
7413: x_cross_val_out_rec.contract_service_id_valid := 'Y';
7414: /* smisra 12/20/05 Bug 4894942
7415: Now this validation is called from vldt_sr_rec
7416: IF ((nvl(p_new_sr_rec.install_site_id,-99) <> FND_API.G_MISS_NUM) AND
7417: (nvl(p_new_sr_rec.install_site_id,-99) <>
7418: nvl(p_old_sr_rec.install_site_id,-99)))
7419: OR
7420: ((p_new_sr_rec.type_id <> FND_API.G_MISS_NUM) AND
7416: IF ((nvl(p_new_sr_rec.install_site_id,-99) <> FND_API.G_MISS_NUM) AND
7417: (nvl(p_new_sr_rec.install_site_id,-99) <>
7418: nvl(p_old_sr_rec.install_site_id,-99)))
7419: OR
7420: ((p_new_sr_rec.type_id <> FND_API.G_MISS_NUM) AND
7421: (nvl(p_new_sr_rec.type_id,-99) <>
7422: nvl(p_old_sr_rec.incident_type_id,-99)))
7423: OR
7424: ((nvl(p_new_sr_rec.inventory_item_id,-99) <> FND_API.G_MISS_NUM) AND
7420: ((p_new_sr_rec.type_id <> FND_API.G_MISS_NUM) AND
7421: (nvl(p_new_sr_rec.type_id,-99) <>
7422: nvl(p_old_sr_rec.incident_type_id,-99)))
7423: OR
7424: ((nvl(p_new_sr_rec.inventory_item_id,-99) <> FND_API.G_MISS_NUM) AND
7425: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7426: nvl(p_old_sr_rec.inventory_item_id,-99)))
7427: OR
7428: ((nvl(p_new_sr_rec.customer_product_id,-99) <> FND_API.G_MISS_NUM) AND
7424: ((nvl(p_new_sr_rec.inventory_item_id,-99) <> FND_API.G_MISS_NUM) AND
7425: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7426: nvl(p_old_sr_rec.inventory_item_id,-99)))
7427: OR
7428: ((nvl(p_new_sr_rec.customer_product_id,-99) <> FND_API.G_MISS_NUM) AND
7429: (nvl(p_new_sr_rec.customer_product_id,-99) <>
7430: nvl(p_old_sr_rec.customer_product_id,-99)))
7431: OR
7432: ((nvl(p_new_sr_rec.account_id,-99) <> FND_API.G_MISS_NUM) AND
7428: ((nvl(p_new_sr_rec.customer_product_id,-99) <> FND_API.G_MISS_NUM) AND
7429: (nvl(p_new_sr_rec.customer_product_id,-99) <>
7430: nvl(p_old_sr_rec.customer_product_id,-99)))
7431: OR
7432: ((nvl(p_new_sr_rec.account_id,-99) <> FND_API.G_MISS_NUM) AND
7433: (nvl(p_new_sr_rec.account_id,-99) <> nvl(p_old_sr_rec.account_id,-99)))
7434: OR
7435: ((p_new_sr_rec.customer_id <> FND_API.G_MISS_NUM) AND
7436: (nvl(p_new_sr_rec.customer_id,-99) <> nvl(p_old_sr_rec.customer_id,-99)))
7431: OR
7432: ((nvl(p_new_sr_rec.account_id,-99) <> FND_API.G_MISS_NUM) AND
7433: (nvl(p_new_sr_rec.account_id,-99) <> nvl(p_old_sr_rec.account_id,-99)))
7434: OR
7435: ((p_new_sr_rec.customer_id <> FND_API.G_MISS_NUM) AND
7436: (nvl(p_new_sr_rec.customer_id,-99) <> nvl(p_old_sr_rec.customer_id,-99)))
7437: OR
7438: ((nvl(p_new_sr_rec.system_id,-99) <> FND_API.G_MISS_NUM) AND
7439: (nvl(p_new_sr_rec.system_id,-99) <> nvl(p_old_sr_rec.system_id,-99)))
7434: OR
7435: ((p_new_sr_rec.customer_id <> FND_API.G_MISS_NUM) AND
7436: (nvl(p_new_sr_rec.customer_id,-99) <> nvl(p_old_sr_rec.customer_id,-99)))
7437: OR
7438: ((nvl(p_new_sr_rec.system_id,-99) <> FND_API.G_MISS_NUM) AND
7439: (nvl(p_new_sr_rec.system_id,-99) <> nvl(p_old_sr_rec.system_id,-99)))
7440: -- 3224898 contracts
7441: OR
7442: ((nvl(p_new_sr_rec.contract_id,-99) <> FND_API.G_MISS_NUM) AND
7438: ((nvl(p_new_sr_rec.system_id,-99) <> FND_API.G_MISS_NUM) AND
7439: (nvl(p_new_sr_rec.system_id,-99) <> nvl(p_old_sr_rec.system_id,-99)))
7440: -- 3224898 contracts
7441: OR
7442: ((nvl(p_new_sr_rec.contract_id,-99) <> FND_API.G_MISS_NUM) AND
7443: (nvl(p_new_sr_rec.contract_id,-99) <> nvl(p_old_sr_rec.contract_id,-99)))
7444: OR
7445: ((nvl(p_new_sr_rec.contract_service_id,-99) <> FND_API.G_MISS_NUM) AND
7446: (nvl(p_new_sr_rec.contract_service_id,-99) <> nvl(p_old_sr_rec.contract_service_id,-99)))
7441: OR
7442: ((nvl(p_new_sr_rec.contract_id,-99) <> FND_API.G_MISS_NUM) AND
7443: (nvl(p_new_sr_rec.contract_id,-99) <> nvl(p_old_sr_rec.contract_id,-99)))
7444: OR
7445: ((nvl(p_new_sr_rec.contract_service_id,-99) <> FND_API.G_MISS_NUM) AND
7446: (nvl(p_new_sr_rec.contract_service_id,-99) <> nvl(p_old_sr_rec.contract_service_id,-99)))
7447: OR ( l_inv_change_by_cp = 'Y')
7448: THEN
7449: lx_return_status := FND_API.G_RET_STS_SUCCESS;
7445: ((nvl(p_new_sr_rec.contract_service_id,-99) <> FND_API.G_MISS_NUM) AND
7446: (nvl(p_new_sr_rec.contract_service_id,-99) <> nvl(p_old_sr_rec.contract_service_id,-99)))
7447: OR ( l_inv_change_by_cp = 'Y')
7448: THEN
7449: lx_return_status := FND_API.G_RET_STS_SUCCESS;
7450:
7451: if ( l_cont_srv_id IS NOT NULL and l_cont_srv_id <> FND_API.G_MISS_NUM ) then
7452: begin
7453: select business_process_id
7447: OR ( l_inv_change_by_cp = 'Y')
7448: THEN
7449: lx_return_status := FND_API.G_RET_STS_SUCCESS;
7450:
7451: if ( l_cont_srv_id IS NOT NULL and l_cont_srv_id <> FND_API.G_MISS_NUM ) then
7452: begin
7453: select business_process_id
7454: into l_busi_proc_id
7455: from cs_incident_types_b
7455: from cs_incident_types_b
7456: where incident_type_id = l_sr_type_id;
7457: exception
7458: when no_data_found then
7459: raise fnd_api.g_exc_unexpected_error;
7460: -- Invalid type. Given type is either end dated or does not exist
7461: -- as a valid type.
7462: fnd_message.set_name ('CS', 'CS_SR_INVALID_TYPE');
7463: fnd_message.set_token('API_NAME', l_api_name_full);
7461: -- as a valid type.
7462: fnd_message.set_name ('CS', 'CS_SR_INVALID_TYPE');
7463: fnd_message.set_token('API_NAME', l_api_name_full);
7464: fnd_msg_pub.ADD;
7465: lx_return_status := FND_API.G_RET_STS_ERROR;
7466: end;
7467:
7468: if ( lx_return_status = FND_API.G_RET_STS_SUCCESS ) then
7469:
7464: fnd_msg_pub.ADD;
7465: lx_return_status := FND_API.G_RET_STS_ERROR;
7466: end;
7467:
7468: if ( lx_return_status = FND_API.G_RET_STS_SUCCESS ) then
7469:
7470: -- 3224898 contracts
7471: Validate_Contract_Service_Id(
7472: p_api_name => l_api_name_full,
7475: x_contract_id => l_contract_id,
7476: x_contract_number => l_con_number,
7477: x_return_status => lx_return_status);
7478:
7479: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7480: -- x_return_status := FND_API.G_RET_STS_ERROR;
7481: x_cross_val_out_rec.contract_service_id_valid := 'N';
7482: -- RETURN;
7483: ELSE
7476: x_contract_number => l_con_number,
7477: x_return_status => lx_return_status);
7478:
7479: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7480: -- x_return_status := FND_API.G_RET_STS_ERROR;
7481: x_cross_val_out_rec.contract_service_id_valid := 'N';
7482: -- RETURN;
7483: ELSE
7484: x_cross_val_out_rec.contract_id := l_contract_id;
7497: p_system_id => l_system_id,
7498: x_return_status => lx_return_status );
7499:
7500:
7501: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS)
7502: THEN
7503: --x_return_status := FND_API.G_RET_STS_ERROR;
7504: lx_return_status := FND_API.G_RET_STS_SUCCESS;
7505: x_cross_val_out_rec.contract_service_id_valid := 'N';
7499:
7500:
7501: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS)
7502: THEN
7503: --x_return_status := FND_API.G_RET_STS_ERROR;
7504: lx_return_status := FND_API.G_RET_STS_SUCCESS;
7505: x_cross_val_out_rec.contract_service_id_valid := 'N';
7506: x_cross_val_out_rec.contract_id := NULL;
7507: x_cross_val_out_rec.contract_number := NULL;
7500:
7501: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS)
7502: THEN
7503: --x_return_status := FND_API.G_RET_STS_ERROR;
7504: lx_return_status := FND_API.G_RET_STS_SUCCESS;
7505: x_cross_val_out_rec.contract_service_id_valid := 'N';
7506: x_cross_val_out_rec.contract_id := NULL;
7507: x_cross_val_out_rec.contract_number := NULL;
7508: --RETURN;
7507: x_cross_val_out_rec.contract_number := NULL;
7508: --RETURN;
7509: END IF;
7510: END IF; -- end of else after validate_contract_service_id procedure
7511: END IF; -- if ( lx_return_status = FND_API.G_RET_STS_SUCCESS ) then Business process process id else
7512: END IF; -- if ( l_cont_srv_ind IS NOT NULL or l_cont_srv_ind
7513: END IF; -- validate contracts end if
7514: *********/
7515:
7515:
7516: -- Tasks restrict close cross val
7517: -- When closing a SR, if there are any open tasks with the task restrict
7518: -- closure flag set to Y, then do not allow the closure of the SR.
7519: IF ( p_new_sr_rec.status_id <> FND_API.G_MISS_NUM ) AND
7520: ( nvl(p_new_sr_rec.status_id,-99) <>
7521: nvl(p_old_sr_rec.incident_status_id,-99) )
7522: THEN
7523:
7526: p_status_id => l_status_id,
7527: x_return_status => lx_return_status );
7528: END IF;
7529:
7530: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7531: x_return_status := FND_API.G_RET_STS_ERROR;
7532: RETURN;
7533: END IF;
7534:
7527: x_return_status => lx_return_status );
7528: END IF;
7529:
7530: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7531: x_return_status := FND_API.G_RET_STS_ERROR;
7532: RETURN;
7533: END IF;
7534:
7535: -- Incident Location cross val
7535: -- Incident Location cross val
7536: -- 9/19 changes.
7537: /* Commented out , as the SR UI , nor other UI's are doing this validation
7538:
7539: IF ( p_new_sr_rec.incident_location_id <> FND_API.G_MISS_NUM ) AND
7540: (nvl(p_new_sr_rec.incident_location_id,-99) <>
7541: nvl(p_old_sr_rec.incident_location_id,-99))
7542: OR
7543: ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
7539: IF ( p_new_sr_rec.incident_location_id <> FND_API.G_MISS_NUM ) AND
7540: (nvl(p_new_sr_rec.incident_location_id,-99) <>
7541: nvl(p_old_sr_rec.incident_location_id,-99))
7542: OR
7543: ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
7544: (nvl(p_new_sr_rec.customer_product_id,-99) <>
7545: nvl(p_old_sr_rec.customer_product_id,-99)))
7546: THEN
7547: IF l_cust_prod_id <> NULL THEN
7562:
7563: END IF;
7564: END IF;
7565:
7566: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7567: x_return_status := FND_API.G_RET_STS_ERROR;
7568: RETURN;
7569: END IF;
7570: */
7563: END IF;
7564: END IF;
7565:
7566: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7567: x_return_status := FND_API.G_RET_STS_ERROR;
7568: RETURN;
7569: END IF;
7570: */
7571:
7570: */
7571:
7572: --- Install site cross val
7573:
7574: IF ( p_new_sr_rec.install_site_id <> FND_API.G_MISS_NUM ) AND
7575: (nvl(p_new_sr_rec.install_site_id,-99) <>
7576: nvl(p_old_sr_rec.install_site_id,-99))
7577: OR
7578: ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
7574: IF ( p_new_sr_rec.install_site_id <> FND_API.G_MISS_NUM ) AND
7575: (nvl(p_new_sr_rec.install_site_id,-99) <>
7576: nvl(p_old_sr_rec.install_site_id,-99))
7577: OR
7578: ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
7579: (nvl(p_new_sr_rec.customer_product_id,-99) <>
7580: nvl(p_old_sr_rec.customer_product_id,-99)))
7581: THEN
7582: -- For bug 3342410 - included the cust_prod_id check
7579: (nvl(p_new_sr_rec.customer_product_id,-99) <>
7580: nvl(p_old_sr_rec.customer_product_id,-99)))
7581: THEN
7582: -- For bug 3342410 - included the cust_prod_id check
7583: if ( l_inst_site_id IS NOT NULL and l_inst_site_id <> FND_API.G_MISS_NUM )AND
7584: ( l_cust_prod_id IS NOT NULL and l_cust_prod_id <> FND_API.G_MISS_NUM) then
7585: CP_INSTALL_SITE_CROSS_VAL (
7586: p_parameter_name => 'install site id',
7587: p_install_site_id => l_inst_site_id,
7580: nvl(p_old_sr_rec.customer_product_id,-99)))
7581: THEN
7582: -- For bug 3342410 - included the cust_prod_id check
7583: if ( l_inst_site_id IS NOT NULL and l_inst_site_id <> FND_API.G_MISS_NUM )AND
7584: ( l_cust_prod_id IS NOT NULL and l_cust_prod_id <> FND_API.G_MISS_NUM) then
7585: CP_INSTALL_SITE_CROSS_VAL (
7586: p_parameter_name => 'install site id',
7587: p_install_site_id => l_inst_site_id,
7588: p_customer_product_id => l_cust_prod_id,
7588: p_customer_product_id => l_cust_prod_id,
7589: x_return_status => lx_return_status );
7590: END IF;
7591: END IF;
7592: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7593: x_return_status := FND_API.G_RET_STS_ERROR;
7594: RETURN;
7595: END IF;
7596:
7589: x_return_status => lx_return_status );
7590: END IF;
7591: END IF;
7592: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7593: x_return_status := FND_API.G_RET_STS_ERROR;
7594: RETURN;
7595: END IF;
7596:
7597: -- Task owner cross val. When SR Type changes, return back a warning message
7595: END IF;
7596:
7597: -- Task owner cross val. When SR Type changes, return back a warning message
7598: -- that the change may invalidate some task owners.
7599: IF ((p_new_sr_rec.type_id <> FND_API.G_MISS_NUM) AND
7600: (nvl(p_new_sr_rec.type_id,-99) <>
7601: nvl(p_old_sr_rec.incident_type_id,-99)))
7602: THEN
7603:
7604: TASK_OWNER_CROSS_VAL (
7605: p_incident_id => p_old_sr_rec.incident_id,
7606: x_return_status => lx_return_status );
7607:
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: END IF; -- task owner cross val
7605: p_incident_id => p_old_sr_rec.incident_id,
7606: x_return_status => lx_return_status );
7607:
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: END IF; -- task owner cross val
7613:
7615:
7616: -- Inventory item revision cross val
7617: -- Validate item revision when any of the following changes: item
7618: -- 3303078 inv_item_revision should be G_MISS_CHAR
7619: IF ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7620: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7621: nvl(p_old_sr_rec.inventory_item_id,-99)))
7622: OR
7623: ((p_new_sr_rec.inv_item_revision <> FND_API.G_MISS_CHAR) AND
7619: IF ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7620: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7621: nvl(p_old_sr_rec.inventory_item_id,-99)))
7622: OR
7623: ((p_new_sr_rec.inv_item_revision <> FND_API.G_MISS_CHAR) AND
7624: (nvl(p_new_sr_rec.inv_item_revision,-99) <>
7625: nvl(p_old_sr_rec.inv_item_revision,-99)))
7626: OR ( l_inv_change_by_cp = 'Y')
7627:
7625: nvl(p_old_sr_rec.inv_item_revision,-99)))
7626: OR ( l_inv_change_by_cp = 'Y')
7627:
7628: THEN
7629: if ( l_inv_item_rev IS NOT NULL and l_inv_item_rev <> FND_API.G_MISS_CHAR ) then
7630: VALIDATE_INV_ITEM_REV (
7631: p_api_name => NULL,
7632: p_parameter_name => 'inventory item revision',
7633: p_inv_item_revision => l_inv_item_rev,
7634: p_inventory_item_id => l_inv_item_id,
7635: p_inventory_org_id => l_inv_org_id,
7636: x_return_status => lx_return_status );
7637:
7638: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7639: x_return_status := FND_API.G_RET_STS_ERROR;
7640: RETURN;
7641: END IF;
7642: END IF;
7635: p_inventory_org_id => l_inv_org_id,
7636: x_return_status => lx_return_status );
7637:
7638: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7639: x_return_status := FND_API.G_RET_STS_ERROR;
7640: RETURN;
7641: END IF;
7642: END IF;
7643: END IF; -- validate item revision end if
7643: END IF; -- validate item revision end if
7644:
7645: --- inventory component validation
7646:
7647: IF ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7648: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7649: nvl(p_old_sr_rec.inventory_item_id,-99)))
7650: OR
7651: ((p_new_sr_rec.inv_component_id <> FND_API.G_MISS_NUM) AND
7647: IF ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7648: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7649: nvl(p_old_sr_rec.inventory_item_id,-99)))
7650: OR
7651: ((p_new_sr_rec.inv_component_id <> FND_API.G_MISS_NUM) AND
7652: (nvl(p_new_sr_rec.inv_component_id,-99) <>
7653: nvl(p_old_sr_rec.inv_component_id,-99)))
7654: OR ( l_inv_change_by_cp = 'Y')
7655: THEN
7654: OR ( l_inv_change_by_cp = 'Y')
7655: THEN
7656:
7657:
7658: if ( l_inv_comp_id IS NOT NULL and l_inv_comp_id <> FND_API.G_MISS_NUM ) then
7659: VALIDATE_INV_COMP_ID (
7660: p_api_name => NULL,
7661: p_parameter_name => 'inventory component id',
7662: p_inv_component_id => l_inv_comp_id,
7663: p_inventory_item_id => l_inv_item_id,
7664: p_inventory_org_id => l_inv_org_id,
7665: x_return_status => lx_return_status );
7666:
7667: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7668: x_return_status := FND_API.G_RET_STS_ERROR;
7669: RETURN;
7670: END IF;
7671: END IF;
7664: p_inventory_org_id => l_inv_org_id,
7665: x_return_status => lx_return_status );
7666:
7667: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7668: x_return_status := FND_API.G_RET_STS_ERROR;
7669: RETURN;
7670: END IF;
7671: END IF;
7672: END IF; -- validate item component end if
7674: -- Validate inv subcomponent smisra 12/21/03
7675: -- Made changes as one of the condition was missed out. On update even when the
7676: -- inv subsomp id had null the API will validate it. corected the code for this.
7677:
7678: IF ((p_new_sr_rec.inv_subcomponent_id <> FND_API.G_MISS_NUM) AND
7679: (nvl(p_new_sr_rec.inv_subcomponent_id, -99) <>
7680: nvl(p_old_sr_rec.inv_subcomponent_id,-99)))
7681: OR
7682: ((p_new_sr_rec.inv_component_id <> FND_API.G_MISS_NUM) AND
7678: IF ((p_new_sr_rec.inv_subcomponent_id <> FND_API.G_MISS_NUM) AND
7679: (nvl(p_new_sr_rec.inv_subcomponent_id, -99) <>
7680: nvl(p_old_sr_rec.inv_subcomponent_id,-99)))
7681: OR
7682: ((p_new_sr_rec.inv_component_id <> FND_API.G_MISS_NUM) AND
7683: (nvl(p_new_sr_rec.inv_component_id,-99) <>
7684: nvl(p_old_sr_rec.inv_component_id,-99)))
7685: OR
7686: ((p_new_sr_rec.inventory_org_id <> FND_API.G_MISS_NUM) AND
7682: ((p_new_sr_rec.inv_component_id <> FND_API.G_MISS_NUM) AND
7683: (nvl(p_new_sr_rec.inv_component_id,-99) <>
7684: nvl(p_old_sr_rec.inv_component_id,-99)))
7685: OR
7686: ((p_new_sr_rec.inventory_org_id <> FND_API.G_MISS_NUM) AND
7687: (nvl(p_new_sr_rec.inventory_org_id,-99) <>
7688: nvl(p_old_sr_rec.inv_organization_id,-99)))
7689: THEN
7690:
7687: (nvl(p_new_sr_rec.inventory_org_id,-99) <>
7688: nvl(p_old_sr_rec.inv_organization_id,-99)))
7689: THEN
7690:
7691: if ( l_inv_subcomp_id IS NOT NULL and l_inv_subcomp_id <> FND_API.G_MISS_NUM ) then
7692:
7693: CS_ServiceRequest_UTIL.Validate_Inv_SubComp_Id(
7694: p_api_name => NULL,
7695: p_parameter_name => 'p_inv_subcomponent_id',
7697: p_inv_subcomponent_id => l_inv_subcomp_id,
7698: p_inv_component_id => l_inv_comp_id,
7699: x_return_status => lx_return_status );
7700:
7701: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7702: x_return_status := FND_API.G_RET_STS_ERROR;
7703: RETURN;
7704: END IF;
7705: END IF;
7698: p_inv_component_id => l_inv_comp_id,
7699: x_return_status => lx_return_status );
7700:
7701: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7702: x_return_status := FND_API.G_RET_STS_ERROR;
7703: RETURN;
7704: END IF;
7705: END IF;
7706: END IF;
7707:
7708:
7709:
7710: --- Validate CP component id
7711: IF ((p_new_sr_rec.inv_component_id <> FND_API.G_MISS_NUM) AND
7712: (nvl(p_new_sr_rec.inv_component_id,-99) <>
7713: nvl(p_old_sr_rec.inv_component_id,-99)))
7714: OR ((p_new_sr_rec.cp_component_id <> FND_API.G_MISS_NUM) AND
7715: (nvl(p_new_sr_rec.cp_component_id,-99) <>
7710: --- Validate CP component id
7711: IF ((p_new_sr_rec.inv_component_id <> FND_API.G_MISS_NUM) AND
7712: (nvl(p_new_sr_rec.inv_component_id,-99) <>
7713: nvl(p_old_sr_rec.inv_component_id,-99)))
7714: OR ((p_new_sr_rec.cp_component_id <> FND_API.G_MISS_NUM) AND
7715: (nvl(p_new_sr_rec.cp_component_id,-99) <>
7716: nvl(p_old_sr_rec.cp_component_id,-99)))
7717: THEN
7718: if ( l_cp_comp_id IS NOT NULL and l_cp_comp_id <> FND_API.G_MISS_NUM ) then
7714: OR ((p_new_sr_rec.cp_component_id <> FND_API.G_MISS_NUM) AND
7715: (nvl(p_new_sr_rec.cp_component_id,-99) <>
7716: nvl(p_old_sr_rec.cp_component_id,-99)))
7717: THEN
7718: if ( l_cp_comp_id IS NOT NULL and l_cp_comp_id <> FND_API.G_MISS_NUM ) then
7719: CP_COMP_ID_CROSS_VAL (
7720: p_inv_component_id => l_inv_comp_id,
7721: p_cp_component_id => l_cp_comp_id,
7722: x_return_status => lx_return_status );
7720: p_inv_component_id => l_inv_comp_id,
7721: p_cp_component_id => l_cp_comp_id,
7722: x_return_status => lx_return_status );
7723:
7724: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7725: x_return_status := FND_API.G_RET_STS_ERROR;
7726: RETURN;
7727: END IF;
7728: END IF;
7721: p_cp_component_id => l_cp_comp_id,
7722: x_return_status => lx_return_status );
7723:
7724: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7725: x_return_status := FND_API.G_RET_STS_ERROR;
7726: RETURN;
7727: END IF;
7728: END IF;
7729: END IF; -- validate cp component id end if
7729: END IF; -- validate cp component id end if
7730:
7731: ---- Validate_Bill_To_Site
7732:
7733: IF ((l_bto_site_id <> FND_API.G_MISS_NUM AND l_bto_site_id IS NOT NULL))
7734: THEN
7735: IF (l_bto_party_id = FND_API.G_MISS_NUM OR l_bto_party_id IS NULL) THEN
7736: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
7737: fnd_message.set_token ('CHILD_PARAM','bill_to_site_id');
7731: ---- Validate_Bill_To_Site
7732:
7733: IF ((l_bto_site_id <> FND_API.G_MISS_NUM AND l_bto_site_id IS NOT NULL))
7734: THEN
7735: IF (l_bto_party_id = FND_API.G_MISS_NUM OR l_bto_party_id IS NULL) THEN
7736: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
7737: fnd_message.set_token ('CHILD_PARAM','bill_to_site_id');
7738: fnd_message.set_token ('PARENT_PARAM','bill_to_party_id');
7739: fnd_msg_pub.ADD;
7736: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
7737: fnd_message.set_token ('CHILD_PARAM','bill_to_site_id');
7738: fnd_message.set_token ('PARENT_PARAM','bill_to_party_id');
7739: fnd_msg_pub.ADD;
7740: x_return_status := FND_API.G_RET_STS_ERROR;
7741: RETURN;
7742: END IF;
7743: END IF;
7744: IF ((p_new_sr_rec.bill_to_party_id <> FND_API.G_MISS_NUM) AND
7740: x_return_status := FND_API.G_RET_STS_ERROR;
7741: RETURN;
7742: END IF;
7743: END IF;
7744: IF ((p_new_sr_rec.bill_to_party_id <> FND_API.G_MISS_NUM) AND
7745: (nvl(p_new_sr_rec.bill_to_party_id,-99) <>
7746: nvl(p_old_sr_rec.bill_to_party_id,-99)))
7747: OR
7748: ((p_new_sr_rec.bill_to_site_id <> FND_API.G_MISS_NUM) AND
7744: IF ((p_new_sr_rec.bill_to_party_id <> FND_API.G_MISS_NUM) AND
7745: (nvl(p_new_sr_rec.bill_to_party_id,-99) <>
7746: nvl(p_old_sr_rec.bill_to_party_id,-99)))
7747: OR
7748: ((p_new_sr_rec.bill_to_site_id <> FND_API.G_MISS_NUM) AND
7749: (nvl(p_new_sr_rec.bill_to_site_id,-99) <>
7750: nvl(p_old_sr_rec.bill_to_site_id,-99)))
7751: THEN
7752:
7749: (nvl(p_new_sr_rec.bill_to_site_id,-99) <>
7750: nvl(p_old_sr_rec.bill_to_site_id,-99)))
7751: THEN
7752:
7753: if ( l_bto_site_id IS NOT NULL and l_bto_site_id <> FND_API.G_MISS_NUM ) then
7754: VALIDATE_BILL_TO_SHIP_TO_SITE (
7755: p_api_name => NULL,
7756: p_parameter_name => 'bill to site id',
7757: p_bill_to_site_id => l_bto_site_id,
7759: p_site_use_type => 'BILL_TO',
7760: x_site_use_id => x_cross_val_out_rec.bill_to_site_use_id,
7761: x_return_status => lx_return_status );
7762:
7763: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7764: x_return_status := FND_API.G_RET_STS_ERROR;
7765: RETURN;
7766: END IF;
7767: END IF;
7760: x_site_use_id => x_cross_val_out_rec.bill_to_site_use_id,
7761: x_return_status => lx_return_status );
7762:
7763: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7764: x_return_status := FND_API.G_RET_STS_ERROR;
7765: RETURN;
7766: END IF;
7767: END IF;
7768: END IF; -- validate bill to site id end if
7768: END IF; -- validate bill to site id end if
7769:
7770: ---- Validate_ship_to_Site
7771:
7772: IF ((l_sto_site_id <> FND_API.G_MISS_NUM AND l_sto_site_id IS NOT NULL))
7773: THEN
7774: IF (l_sto_party_id = FND_API.G_MISS_NUM OR l_sto_party_id IS NULL) THEN
7775: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
7776: fnd_message.set_token ('CHILD_PARAM','ship_to_site_id');
7770: ---- Validate_ship_to_Site
7771:
7772: IF ((l_sto_site_id <> FND_API.G_MISS_NUM AND l_sto_site_id IS NOT NULL))
7773: THEN
7774: IF (l_sto_party_id = FND_API.G_MISS_NUM OR l_sto_party_id IS NULL) THEN
7775: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
7776: fnd_message.set_token ('CHILD_PARAM','ship_to_site_id');
7777: fnd_message.set_token ('PARENT_PARAM','ship_to_party_id');
7778: fnd_msg_pub.ADD;
7775: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
7776: fnd_message.set_token ('CHILD_PARAM','ship_to_site_id');
7777: fnd_message.set_token ('PARENT_PARAM','ship_to_party_id');
7778: fnd_msg_pub.ADD;
7779: x_return_status := FND_API.G_RET_STS_ERROR;
7780: RETURN;
7781: END IF;
7782: END IF;
7783:
7780: RETURN;
7781: END IF;
7782: END IF;
7783:
7784: IF ((p_new_sr_rec.ship_to_party_id <> FND_API.G_MISS_NUM) AND
7785: (nvl(p_new_sr_rec.ship_to_party_id,-99) <>
7786: nvl(p_old_sr_rec.ship_to_party_id,-99)))
7787: OR
7788: ((p_new_sr_rec.ship_to_site_id <> FND_API.G_MISS_NUM) AND
7784: IF ((p_new_sr_rec.ship_to_party_id <> FND_API.G_MISS_NUM) AND
7785: (nvl(p_new_sr_rec.ship_to_party_id,-99) <>
7786: nvl(p_old_sr_rec.ship_to_party_id,-99)))
7787: OR
7788: ((p_new_sr_rec.ship_to_site_id <> FND_API.G_MISS_NUM) AND
7789: (nvl(p_new_sr_rec.ship_to_site_id,-99) <>
7790: nvl(p_old_sr_rec.ship_to_site_id,-99)))
7791: THEN
7792:
7789: (nvl(p_new_sr_rec.ship_to_site_id,-99) <>
7790: nvl(p_old_sr_rec.ship_to_site_id,-99)))
7791: THEN
7792:
7793: if ( l_sto_site_id IS NOT NULL and l_sto_site_id <> FND_API.G_MISS_NUM ) then
7794: VALIDATE_BILL_TO_SHIP_TO_SITE (
7795: p_api_name => NULL,
7796: p_parameter_name => 'ship to site id',
7797: p_bill_to_site_id => l_sto_site_id,
7799: p_site_use_type => 'SHIP_TO',
7800: x_site_use_id => x_cross_val_out_rec.ship_to_site_use_id,
7801: x_return_status => lx_return_status );
7802:
7803: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7804: x_return_status := FND_API.G_RET_STS_ERROR;
7805: RETURN;
7806: END IF;
7807: END IF;
7800: x_site_use_id => x_cross_val_out_rec.ship_to_site_use_id,
7801: x_return_status => lx_return_status );
7802:
7803: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7804: x_return_status := FND_API.G_RET_STS_ERROR;
7805: RETURN;
7806: END IF;
7807: END IF;
7808: END IF; -- validate ship to site id end if
7807: END IF;
7808: END IF; -- validate ship to site id end if
7809:
7810: ---- Validate Bill to contact id
7811: IF ((l_bto_cont_id <> FND_API.G_MISS_NUM AND l_bto_cont_id IS NOT NULL)) THEN
7812: IF (l_bto_party_id = FND_API.G_MISS_NUM OR l_bto_party_id IS NULL) THEN
7813:
7814: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
7815: fnd_message.set_token ('CHILD_PARAM','bill_to_contact_id');
7808: END IF; -- validate ship to site id end if
7809:
7810: ---- Validate Bill to contact id
7811: IF ((l_bto_cont_id <> FND_API.G_MISS_NUM AND l_bto_cont_id IS NOT NULL)) THEN
7812: IF (l_bto_party_id = FND_API.G_MISS_NUM OR l_bto_party_id IS NULL) THEN
7813:
7814: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
7815: fnd_message.set_token ('CHILD_PARAM','bill_to_contact_id');
7816: fnd_message.set_token ('PARENT_PARAM','bill_to_party_id');
7815: fnd_message.set_token ('CHILD_PARAM','bill_to_contact_id');
7816: fnd_message.set_token ('PARENT_PARAM','bill_to_party_id');
7817: fnd_msg_pub.ADD;
7818:
7819: x_return_status := FND_API.G_RET_STS_ERROR;
7820: RETURN;
7821: END IF;
7822: END IF;
7823: IF ((p_new_sr_rec.bill_to_party_id <> FND_API.G_MISS_NUM) AND
7819: x_return_status := FND_API.G_RET_STS_ERROR;
7820: RETURN;
7821: END IF;
7822: END IF;
7823: IF ((p_new_sr_rec.bill_to_party_id <> FND_API.G_MISS_NUM) AND
7824: (nvl(p_new_sr_rec.bill_to_party_id,-99) <>
7825: nvl(p_old_sr_rec.bill_to_party_id,-99)))
7826: OR
7827: ((p_new_sr_rec.bill_to_contact_id <> FND_API.G_MISS_NUM) AND
7823: IF ((p_new_sr_rec.bill_to_party_id <> FND_API.G_MISS_NUM) AND
7824: (nvl(p_new_sr_rec.bill_to_party_id,-99) <>
7825: nvl(p_old_sr_rec.bill_to_party_id,-99)))
7826: OR
7827: ((p_new_sr_rec.bill_to_contact_id <> FND_API.G_MISS_NUM) AND
7828: (nvl(p_new_sr_rec.bill_to_contact_id,-99) <>
7829: nvl(p_old_sr_rec.bill_to_contact_id,-99)))
7830: THEN
7831:
7828: (nvl(p_new_sr_rec.bill_to_contact_id,-99) <>
7829: nvl(p_old_sr_rec.bill_to_contact_id,-99)))
7830: THEN
7831:
7832: IF ( l_bto_cont_id IS NOT NULL and l_bto_cont_id <> FND_API.G_MISS_NUM ) then
7833: VALIDATE_BILL_TO_SHIP_TO_CT (
7834: p_api_name => NULL,
7835: p_parameter_name => 'bill to contact id',
7836: p_bill_to_contact_id => l_bto_cont_id,
7837: p_bill_to_party_id => l_bto_party_id,
7838: p_customer_type => l_cust_type,
7839: x_return_status => lx_return_status );
7840:
7841: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7842: x_return_status := FND_API.G_RET_STS_ERROR;
7843: RETURN;
7844: END IF;
7845: END IF; -- IF ( l_bto_cont_id IS NOT NULL and l_bto_cont_id <>
7838: p_customer_type => l_cust_type,
7839: x_return_status => lx_return_status );
7840:
7841: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7842: x_return_status := FND_API.G_RET_STS_ERROR;
7843: RETURN;
7844: END IF;
7845: END IF; -- IF ( l_bto_cont_id IS NOT NULL and l_bto_cont_id <>
7846: END IF; -- validate bill to contact id end if
7845: END IF; -- IF ( l_bto_cont_id IS NOT NULL and l_bto_cont_id <>
7846: END IF; -- validate bill to contact id end if
7847:
7848: ---- Validate ship to contact id
7849: IF ((l_sto_cont_id <> FND_API.G_MISS_NUM AND l_sto_cont_id IS NOT NULL)) THEN
7850: IF (l_sto_party_id = FND_API.G_MISS_NUM OR l_sto_party_id IS NULL) THEN
7851:
7852: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
7853: fnd_message.set_token ('CHILD_PARAM','ship_to_contact_id');
7846: END IF; -- validate bill to contact id end if
7847:
7848: ---- Validate ship to contact id
7849: IF ((l_sto_cont_id <> FND_API.G_MISS_NUM AND l_sto_cont_id IS NOT NULL)) THEN
7850: IF (l_sto_party_id = FND_API.G_MISS_NUM OR l_sto_party_id IS NULL) THEN
7851:
7852: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
7853: fnd_message.set_token ('CHILD_PARAM','ship_to_contact_id');
7854: fnd_message.set_token ('PARENT_PARAM','ship_to_party_id');
7853: fnd_message.set_token ('CHILD_PARAM','ship_to_contact_id');
7854: fnd_message.set_token ('PARENT_PARAM','ship_to_party_id');
7855: fnd_msg_pub.ADD;
7856:
7857: x_return_status := FND_API.G_RET_STS_ERROR;
7858: RETURN;
7859: END IF;
7860: END IF;
7861: IF ((p_new_sr_rec.ship_to_party_id <> FND_API.G_MISS_NUM) AND
7857: x_return_status := FND_API.G_RET_STS_ERROR;
7858: RETURN;
7859: END IF;
7860: END IF;
7861: IF ((p_new_sr_rec.ship_to_party_id <> FND_API.G_MISS_NUM) AND
7862: (nvl(p_new_sr_rec.ship_to_party_id,-99) <>
7863: nvl(p_old_sr_rec.ship_to_party_id,-99)))
7864: OR
7865: ((p_new_sr_rec.ship_to_contact_id <> FND_API.G_MISS_NUM) AND
7861: IF ((p_new_sr_rec.ship_to_party_id <> FND_API.G_MISS_NUM) AND
7862: (nvl(p_new_sr_rec.ship_to_party_id,-99) <>
7863: nvl(p_old_sr_rec.ship_to_party_id,-99)))
7864: OR
7865: ((p_new_sr_rec.ship_to_contact_id <> FND_API.G_MISS_NUM) AND
7866: (nvl(p_new_sr_rec.ship_to_contact_id,-99) <>
7867: nvl(p_old_sr_rec.ship_to_contact_id,-99)))
7868:
7869: THEN
7867: nvl(p_old_sr_rec.ship_to_contact_id,-99)))
7868:
7869: THEN
7870:
7871: if ( l_sto_cont_id IS NOT NULL and l_sto_cont_id <> FND_API.G_MISS_NUM ) then
7872: VALIDATE_BILL_TO_SHIP_TO_CT (
7873: p_api_name => NULL,
7874: p_parameter_name => 'ship to contact id',
7875: p_bill_to_contact_id => l_sto_cont_id,
7876: p_bill_to_party_id => l_sto_party_id,
7877: p_customer_type => l_cust_type,
7878: x_return_status => lx_return_status );
7879:
7880: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7881: x_return_status := FND_API.G_RET_STS_ERROR;
7882: RETURN;
7883: END IF;
7884: END IF;
7877: p_customer_type => l_cust_type,
7878: x_return_status => lx_return_status );
7879:
7880: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7881: x_return_status := FND_API.G_RET_STS_ERROR;
7882: RETURN;
7883: END IF;
7884: END IF;
7885: END IF; -- validate ship to contact id end if
7885: END IF; -- validate ship to contact id end if
7886:
7887: --- Validate Bill to account id
7888:
7889: IF ((p_new_sr_rec.bill_to_party_id <> FND_API.G_MISS_NUM) AND
7890: (nvl(p_new_sr_rec.bill_to_party_id,-99) <>
7891: nvl(p_old_sr_rec.bill_to_party_id,-99)))
7892: OR
7893: ((p_new_sr_rec.bill_to_account_id <> FND_API.G_MISS_NUM) AND
7889: IF ((p_new_sr_rec.bill_to_party_id <> FND_API.G_MISS_NUM) AND
7890: (nvl(p_new_sr_rec.bill_to_party_id,-99) <>
7891: nvl(p_old_sr_rec.bill_to_party_id,-99)))
7892: OR
7893: ((p_new_sr_rec.bill_to_account_id <> FND_API.G_MISS_NUM) AND
7894: (nvl(p_new_sr_rec.bill_to_account_id,-99) <>
7895: nvl(p_old_sr_rec.bill_to_account_id,-99)))
7896:
7897: THEN
7895: nvl(p_old_sr_rec.bill_to_account_id,-99)))
7896:
7897: THEN
7898:
7899: if ( l_bto_acc_id IS NOT NULL and l_bto_acc_id <> FND_API.G_MISS_NUM ) then
7900: VALIDATE_BILL_TO_SHIP_TO_ACCT (
7901: p_api_name => NULL,
7902: p_parameter_name => 'bill to account id',
7903: p_account_id => l_bto_acc_id,
7903: p_account_id => l_bto_acc_id,
7904: p_party_id => l_bto_party_id,
7905: x_return_status => lx_return_status );
7906:
7907: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7908: x_return_status := FND_API.G_RET_STS_ERROR;
7909: RETURN;
7910: END IF;
7911: END IF;
7904: p_party_id => l_bto_party_id,
7905: x_return_status => lx_return_status );
7906:
7907: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7908: x_return_status := FND_API.G_RET_STS_ERROR;
7909: RETURN;
7910: END IF;
7911: END IF;
7912: END IF; -- validate bill to account id end if
7912: END IF; -- validate bill to account id end if
7913:
7914: --- Validate ship to account id
7915:
7916: IF ((p_new_sr_rec.ship_to_party_id <> FND_API.G_MISS_NUM) AND
7917: (nvl(p_new_sr_rec.ship_to_party_id,-99) <>
7918: nvl(p_old_sr_rec.ship_to_party_id,-99)))
7919: OR
7920: ((p_new_sr_rec.ship_to_account_id <> FND_API.G_MISS_NUM) AND
7916: IF ((p_new_sr_rec.ship_to_party_id <> FND_API.G_MISS_NUM) AND
7917: (nvl(p_new_sr_rec.ship_to_party_id,-99) <>
7918: nvl(p_old_sr_rec.ship_to_party_id,-99)))
7919: OR
7920: ((p_new_sr_rec.ship_to_account_id <> FND_API.G_MISS_NUM) AND
7921: (nvl(p_new_sr_rec.ship_to_account_id,-99) <>
7922: nvl(p_old_sr_rec.ship_to_account_id,-99)))
7923:
7924: THEN
7922: nvl(p_old_sr_rec.ship_to_account_id,-99)))
7923:
7924: THEN
7925:
7926: if ( l_sto_acc_id IS NOT NULL and l_sto_acc_id <> FND_API.G_MISS_NUM ) then
7927: VALIDATE_BILL_TO_SHIP_TO_ACCT (
7928: p_api_name => NULL,
7929: p_parameter_name => 'ship to account id',
7930: p_account_id => l_sto_acc_id,
7930: p_account_id => l_sto_acc_id,
7931: p_party_id => l_sto_party_id,
7932: x_return_status => lx_return_status );
7933:
7934: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7935: x_return_status := FND_API.G_RET_STS_ERROR;
7936: RETURN;
7937: END IF;
7938: END IF;
7931: p_party_id => l_sto_party_id,
7932: x_return_status => lx_return_status );
7933:
7934: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7935: x_return_status := FND_API.G_RET_STS_ERROR;
7936: RETURN;
7937: END IF;
7938: END IF;
7939: END IF; -- validate ship to account id end if
7938: END IF;
7939: END IF; -- validate ship to account id end if
7940:
7941: --- Validate External Reference
7942: IF ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
7943: (nvl(p_new_sr_rec.customer_product_id,-99) <>
7944: nvl(p_old_sr_rec.customer_product_id,-99)))
7945: OR
7946: ((p_new_sr_rec.external_reference <> FND_API.G_MISS_CHAR) AND
7942: IF ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
7943: (nvl(p_new_sr_rec.customer_product_id,-99) <>
7944: nvl(p_old_sr_rec.customer_product_id,-99)))
7945: OR
7946: ((p_new_sr_rec.external_reference <> FND_API.G_MISS_CHAR) AND
7947: (nvl(p_new_sr_rec.external_reference,-99) <>
7948: nvl(p_old_sr_rec.external_reference,-99)))
7949:
7950: THEN
7948: nvl(p_old_sr_rec.external_reference,-99)))
7949:
7950: THEN
7951:
7952: if ( l_external_ref IS NOT NULL and l_external_ref <> FND_API.G_MISS_CHAR ) then
7953: -- For bug 3746983
7954: VALIDATE_EXTERNAL_REFERENCE (
7955: p_api_name => NULL,
7956: p_parameter_name => 'external reference',
7960: p_inventory_org_id => l_inv_org_id,
7961: p_customer_id => l_customer_id,
7962: x_return_status => lx_return_status );
7963:
7964: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7965: x_return_status := FND_API.G_RET_STS_ERROR;
7966: RETURN;
7967: END IF;
7968: END IF;
7961: p_customer_id => l_customer_id,
7962: x_return_status => lx_return_status );
7963:
7964: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7965: x_return_status := FND_API.G_RET_STS_ERROR;
7966: RETURN;
7967: END IF;
7968: END IF;
7969: END IF; -- validate external reference end if
7970:
7971: --- Validate Product Revision
7972: /**** Aug 13th 2004. Replaced with validate_product_version. This proc will return
7973: product revision if product revision is not passed
7974: IF ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7975: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7976: nvl(p_old_sr_rec.inventory_item_id,-99)))
7977: OR
7978: ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
7974: IF ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
7975: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
7976: nvl(p_old_sr_rec.inventory_item_id,-99)))
7977: OR
7978: ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
7979: (nvl(p_new_sr_rec.customer_product_id,-99) <>
7980: nvl(p_old_sr_rec.customer_product_id,-99)))
7981: OR
7982: ((p_new_sr_rec.product_revision <> FND_API.G_MISS_CHAR) AND
7978: ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
7979: (nvl(p_new_sr_rec.customer_product_id,-99) <>
7980: nvl(p_old_sr_rec.customer_product_id,-99)))
7981: OR
7982: ((p_new_sr_rec.product_revision <> FND_API.G_MISS_CHAR) AND
7983: (nvl(p_new_sr_rec.product_revision,-99) <>
7984: nvl(p_old_sr_rec.product_revision,-99)))
7985: OR ( l_inv_change_by_cp = 'Y')
7986:
7985: OR ( l_inv_change_by_cp = 'Y')
7986:
7987: THEN
7988:
7989: if ( l_prod_revision IS NOT NULL and l_prod_revision <> FND_API.G_MISS_CHAR ) then
7990: VALIDATE_PRODUCT_REVISION (
7991: p_api_name => NULL,
7992: p_parameter_name => 'product revision',
7993: p_customer_product_id => l_cust_prod_id,
7995: p_inventory_item_id => l_inv_item_id,
7996: p_inventory_org_id => l_inv_org_id,
7997: x_return_status => lx_return_status );
7998:
7999: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8000: x_return_status := FND_API.G_RET_STS_ERROR;
8001: RETURN;
8002: END IF;
8003: END IF;
7996: p_inventory_org_id => l_inv_org_id,
7997: x_return_status => lx_return_status );
7998:
7999: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8000: x_return_status := FND_API.G_RET_STS_ERROR;
8001: RETURN;
8002: END IF;
8003: END IF;
8004: END IF; -- validate product revision end if
8003: END IF;
8004: END IF; -- validate product revision end if
8005: ****/
8006: l_prod_revision := p_new_sr_rec.product_revision;
8007: IF ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
8008: (nvl(p_new_sr_rec.customer_product_id,-99) <>
8009: nvl(p_old_sr_rec.customer_product_id,-99)))
8010: OR
8011: (l_prod_revision is not null AND
8020: p_inventory_org_id => l_inv_org_id,
8021: p_product_version => l_prod_revision,
8022: x_return_status => lx_return_status );
8023:
8024: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8025: x_return_status := FND_API.G_RET_STS_ERROR;
8026: RETURN;
8027: END IF;
8028: END IF; -- validate product revision end if
8021: p_product_version => l_prod_revision,
8022: x_return_status => lx_return_status );
8023:
8024: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8025: x_return_status := FND_API.G_RET_STS_ERROR;
8026: RETURN;
8027: END IF;
8028: END IF; -- validate product revision end if
8029: x_cross_val_out_rec.product_revision := l_prod_revision;
8029: x_cross_val_out_rec.product_revision := l_prod_revision;
8030:
8031: --- Validate current serial number
8032:
8033: IF ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
8034: (nvl(p_new_sr_rec.customer_product_id,-99) <>
8035: nvl(p_old_sr_rec.customer_product_id,-99)))
8036: OR
8037: ((p_new_sr_rec.current_serial_number <> FND_API.G_MISS_CHAR) AND
8033: IF ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
8034: (nvl(p_new_sr_rec.customer_product_id,-99) <>
8035: nvl(p_old_sr_rec.customer_product_id,-99)))
8036: OR
8037: ((p_new_sr_rec.current_serial_number <> FND_API.G_MISS_CHAR) AND
8038: (nvl(p_new_sr_rec.current_serial_number,-99) <>
8039: nvl(p_old_sr_rec.current_serial_number,-99)))
8040:
8041: THEN
8039: nvl(p_old_sr_rec.current_serial_number,-99)))
8040:
8041: THEN
8042:
8043: IF ( l_cur_serial IS NOT NULL AND l_cur_serial <> FND_API.G_MISS_CHAR ) AND
8044: ( l_cust_prod_id IS NOT NULL AND l_cust_prod_id <> FND_API.G_MISS_NUM )
8045: THEN
8046: -- For bug 3746983
8047: VALIDATE_CURRENT_SERIAL (
8040:
8041: THEN
8042:
8043: IF ( l_cur_serial IS NOT NULL AND l_cur_serial <> FND_API.G_MISS_CHAR ) AND
8044: ( l_cust_prod_id IS NOT NULL AND l_cust_prod_id <> FND_API.G_MISS_NUM )
8045: THEN
8046: -- For bug 3746983
8047: VALIDATE_CURRENT_SERIAL (
8048: p_api_name => NULL,
8053: p_customer_id => l_customer_id,
8054: p_current_serial_number => l_cur_serial,
8055: x_return_status => lx_return_status );
8056:
8057: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8058: x_return_status := FND_API.G_RET_STS_ERROR;
8059: RETURN;
8060: END IF;
8061: END IF;
8054: p_current_serial_number => l_cur_serial,
8055: x_return_status => lx_return_status );
8056:
8057: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8058: x_return_status := FND_API.G_RET_STS_ERROR;
8059: RETURN;
8060: END IF;
8061: END IF;
8062: END IF; -- validate current serial number end if
8064: -- For bug 3592032 - moved call to INV_SUBCOMPONENT_CROSS_VAL after validate_cp_subcomp_id
8065:
8066:
8067: -- Validate Inventory component version
8068: IF ((p_new_sr_rec.inv_component_id <> FND_API.G_MISS_NUM) AND
8069: (nvl(p_new_sr_rec.inv_component_id,-99) <>
8070: nvl(p_old_sr_rec.inv_component_id,-99)))
8071: OR
8072: ((p_new_sr_rec.inv_component_version <> FND_API.G_MISS_CHAR) AND
8068: IF ((p_new_sr_rec.inv_component_id <> FND_API.G_MISS_NUM) AND
8069: (nvl(p_new_sr_rec.inv_component_id,-99) <>
8070: nvl(p_old_sr_rec.inv_component_id,-99)))
8071: OR
8072: ((p_new_sr_rec.inv_component_version <> FND_API.G_MISS_CHAR) AND
8073: (nvl(p_new_sr_rec.inv_component_version,-99) <>
8074: nvl(p_old_sr_rec.inv_component_version,-99)))
8075:
8076: THEN
8074: nvl(p_old_sr_rec.inv_component_version,-99)))
8075:
8076: THEN
8077:
8078: if ( l_inv_comp_ver IS NOT NULL and l_inv_comp_ver <> FND_API.G_MISS_CHAR ) then
8079: VALIDATE_INV_COMP_VER (
8080: p_api_name => NULL,
8081: p_parameter_name => 'inventory component version',
8082: p_inv_component_id => l_inv_comp_id,
8083: p_inventory_org_id => l_inv_org_id,
8084: p_inv_component_version => l_inv_comp_ver,
8085: x_return_status => lx_return_status );
8086:
8087: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8088: x_return_status := FND_API.G_RET_STS_ERROR;
8089: RETURN;
8090: END IF;
8091: END IF;
8084: p_inv_component_version => l_inv_comp_ver,
8085: x_return_status => lx_return_status );
8086:
8087: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8088: x_return_status := FND_API.G_RET_STS_ERROR;
8089: RETURN;
8090: END IF;
8091: END IF;
8092: END IF; -- validate item component version end if
8092: END IF; -- validate item component version end if
8093:
8094: ---- Validate CP component id
8095:
8096: IF ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
8097: (nvl(p_new_sr_rec.customer_product_id,-99) <>
8098: nvl(p_old_sr_rec.customer_product_id,-99)))
8099: OR
8100: ((p_new_sr_rec.cp_component_id <> FND_API.G_MISS_NUM) AND
8096: IF ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
8097: (nvl(p_new_sr_rec.customer_product_id,-99) <>
8098: nvl(p_old_sr_rec.customer_product_id,-99)))
8099: OR
8100: ((p_new_sr_rec.cp_component_id <> FND_API.G_MISS_NUM) AND
8101: (nvl(p_new_sr_rec.cp_component_id,-99) <>
8102: nvl(p_old_sr_rec.cp_component_id,-99)))
8103:
8104: THEN
8101: (nvl(p_new_sr_rec.cp_component_id,-99) <>
8102: nvl(p_old_sr_rec.cp_component_id,-99)))
8103:
8104: THEN
8105: if ( l_cp_comp_id IS NOT NULL and l_cp_comp_id <> FND_API.G_MISS_NUM ) then
8106: VALIDATE_CP_COMP_ID (
8107: p_api_name => NULL,
8108: p_parameter_name => 'CP component id',
8109: p_customer_product_id => l_cust_prod_id,
8110: p_cp_component_id => l_cp_comp_id,
8111: p_org_id => NULL,
8112: x_return_status => lx_return_status );
8113:
8114: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8115: x_return_status := FND_API.G_RET_STS_ERROR;
8116: RETURN;
8117: END IF;
8118: END IF;
8111: p_org_id => NULL,
8112: x_return_status => lx_return_status );
8113:
8114: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8115: x_return_status := FND_API.G_RET_STS_ERROR;
8116: RETURN;
8117: END IF;
8118: END IF;
8119: END IF; -- validate CP component id end if
8120:
8121: ---- Validate CP component version
8122: -- For bug 3337848 - change from component_version_id to component_version
8123: /***
8124: IF ((p_new_sr_rec.cp_component_id <> FND_API.G_MISS_NUM) AND
8125: (nvl(p_new_sr_rec.cp_component_id,-99) <>
8126: nvl(p_old_sr_rec.cp_component_id,-99)))
8127: OR
8128: ((p_new_sr_rec.component_version <> FND_API.G_MISS_CHAR) AND
8124: IF ((p_new_sr_rec.cp_component_id <> FND_API.G_MISS_NUM) AND
8125: (nvl(p_new_sr_rec.cp_component_id,-99) <>
8126: nvl(p_old_sr_rec.cp_component_id,-99)))
8127: OR
8128: ((p_new_sr_rec.component_version <> FND_API.G_MISS_CHAR) AND
8129: (nvl(p_new_sr_rec.component_version,-99) <>
8130: nvl(p_old_sr_rec.component_version,-99)))
8131:
8132: THEN
8130: nvl(p_old_sr_rec.component_version,-99)))
8131:
8132: THEN
8133:
8134: if ( l_cp_comp_ver IS NOT NULL and l_cp_comp_ver <> FND_API.G_MISS_CHAR ) then
8135: VALIDATE_COMPONENT_VERSION
8136: ( p_api_name => NULL,
8137: p_parameter_name => 'CP component version',
8138: p_component_version => l_cp_comp_ver,
8141: p_inventory_org_id => l_inv_org_id,
8142: x_return_status => lx_return_status );
8143:
8144:
8145: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8146: x_return_status := FND_API.G_RET_STS_ERROR;
8147: RETURN;
8148: END IF;
8149: END IF;
8142: x_return_status => lx_return_status );
8143:
8144:
8145: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8146: x_return_status := FND_API.G_RET_STS_ERROR;
8147: RETURN;
8148: END IF;
8149: END IF;
8150: END IF; -- validate CP component vesion end if
8149: END IF;
8150: END IF; -- validate CP component vesion end if
8151: ********************/
8152: l_cp_comp_ver := p_new_sr_rec.component_version;
8153: IF ((p_new_sr_rec.cp_component_id <> FND_API.G_MISS_NUM) AND
8154: (nvl(p_new_sr_rec.cp_component_id,-99) <>
8155: nvl(p_old_sr_rec.cp_component_id,-99)))
8156: OR
8157: ((l_cp_comp_id is not null) AND
8164: p_instance_id => l_cp_comp_id,
8165: p_inventory_org_id => l_inv_org_id,
8166: p_product_version => l_cp_comp_ver,
8167: x_return_status => lx_return_status );
8168: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8169: x_return_status := FND_API.G_RET_STS_ERROR;
8170: RETURN;
8171: END IF;
8172: END IF; -- validate CP component vesion end if
8165: p_inventory_org_id => l_inv_org_id,
8166: p_product_version => l_cp_comp_ver,
8167: x_return_status => lx_return_status );
8168: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8169: x_return_status := FND_API.G_RET_STS_ERROR;
8170: RETURN;
8171: END IF;
8172: END IF; -- validate CP component vesion end if
8173: x_cross_val_out_rec.component_version := l_cp_comp_ver;
8176:
8177:
8178:
8179: --- Validate Category set id
8180: IF ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
8181: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
8182: nvl(p_old_sr_rec.inventory_item_id,-99)))
8183: OR
8184: ((nvl(p_new_sr_rec.category_id,-99) <> FND_API.G_MISS_NUM) AND
8180: IF ((p_new_sr_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
8181: (nvl(p_new_sr_rec.inventory_item_id,-99) <>
8182: nvl(p_old_sr_rec.inventory_item_id,-99)))
8183: OR
8184: ((nvl(p_new_sr_rec.category_id,-99) <> FND_API.G_MISS_NUM) AND
8185: (nvl(p_new_sr_rec.category_id,-99) <>
8186: nvl(p_old_sr_rec.category_id,-99)))
8187: OR
8188: ((p_new_sr_rec.category_set_id <> FND_API.G_MISS_NUM) AND
8184: ((nvl(p_new_sr_rec.category_id,-99) <> FND_API.G_MISS_NUM) AND
8185: (nvl(p_new_sr_rec.category_id,-99) <>
8186: nvl(p_old_sr_rec.category_id,-99)))
8187: OR
8188: ((p_new_sr_rec.category_set_id <> FND_API.G_MISS_NUM) AND
8189: (nvl(p_new_sr_rec.category_set_id,-99) <>
8190: nvl(p_old_sr_rec.category_set_id,-99)))
8191: OR ( l_inv_change_by_cp = 'Y')
8192: THEN
8190: nvl(p_old_sr_rec.category_set_id,-99)))
8191: OR ( l_inv_change_by_cp = 'Y')
8192: THEN
8193:
8194: if ( l_cat_set_id IS NOT NULL and l_cat_set_id <> FND_API.G_MISS_NUM ) then
8195: VALIDATE_CATEGORY_SET_ID (
8196: p_api_name => NULL,
8197: p_parameter_name => 'Category set id',
8198: p_category_id => l_category_id,
8200: p_inventory_item_id => l_inv_item_id,
8201: p_inventory_org_id => l_inv_org_id,
8202: x_return_status => lx_return_status );
8203:
8204: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8205: x_return_status := FND_API.G_RET_STS_ERROR;
8206: RETURN;
8207: END IF;
8208: END IF;
8201: p_inventory_org_id => l_inv_org_id,
8202: x_return_status => lx_return_status );
8203:
8204: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8205: x_return_status := FND_API.G_RET_STS_ERROR;
8206: RETURN;
8207: END IF;
8208: END IF;
8209: END IF; -- validate category set id end if
8210:
8211: -- Validate the category_id
8212: -- 1. If the category_id has changed
8213: -- 2. check category_set_id is null ( passed/DB value)
8214: IF ((p_new_sr_rec.category_id <> FND_API.G_MISS_NUM) AND
8215: (nvl(p_new_sr_rec.category_id,-99) <>
8216: nvl(p_old_sr_rec.category_id,-99)) OR
8217: (nvl(p_new_sr_rec.category_set_id,-99) <> FND_API.G_MISS_NUM) AND
8218: (nvl(p_new_sr_rec.category_set_id,-99) <>
8213: -- 2. check category_set_id is null ( passed/DB value)
8214: IF ((p_new_sr_rec.category_id <> FND_API.G_MISS_NUM) AND
8215: (nvl(p_new_sr_rec.category_id,-99) <>
8216: nvl(p_old_sr_rec.category_id,-99)) OR
8217: (nvl(p_new_sr_rec.category_set_id,-99) <> FND_API.G_MISS_NUM) AND
8218: (nvl(p_new_sr_rec.category_set_id,-99) <>
8219: nvl(p_old_sr_rec.category_set_id,-99)))
8220: THEN
8221: if ( l_cat_set_id IS NULL OR l_cat_set_id = FND_API.G_MISS_NUM ) then
8217: (nvl(p_new_sr_rec.category_set_id,-99) <> FND_API.G_MISS_NUM) AND
8218: (nvl(p_new_sr_rec.category_set_id,-99) <>
8219: nvl(p_old_sr_rec.category_set_id,-99)))
8220: THEN
8221: if ( l_cat_set_id IS NULL OR l_cat_set_id = FND_API.G_MISS_NUM ) then
8222: VALIDATE_CATEGORY_ID
8223: ( p_api_name => NULL,
8224: p_parameter_name => 'Category id',
8225: p_category_id => l_category_id,
8225: p_category_id => l_category_id,
8226: p_category_set_id => l_cat_set_id,
8227: x_return_status => lx_return_status
8228: );
8229: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8230: x_return_status := FND_API.G_RET_STS_ERROR;
8231: RETURN;
8232: END IF;
8233: END IF;
8226: p_category_set_id => l_cat_set_id,
8227: x_return_status => lx_return_status
8228: );
8229: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8230: x_return_status := FND_API.G_RET_STS_ERROR;
8231: RETURN;
8232: END IF;
8233: END IF;
8234: END IF; -- validate category id end if
8235:
8236:
8237:
8238: --- Validate Inventory component id
8239: IF ((p_new_sr_rec.inv_component_id <> FND_API.G_MISS_NUM) AND
8240: (nvl(p_new_sr_rec.inv_component_id,-99) <>
8241: nvl(p_old_sr_rec.inv_component_id,-99)))
8242: OR
8243: ((p_new_sr_rec.cp_component_id <> FND_API.G_MISS_NUM) AND
8239: IF ((p_new_sr_rec.inv_component_id <> FND_API.G_MISS_NUM) AND
8240: (nvl(p_new_sr_rec.inv_component_id,-99) <>
8241: nvl(p_old_sr_rec.inv_component_id,-99)))
8242: OR
8243: ((p_new_sr_rec.cp_component_id <> FND_API.G_MISS_NUM) AND
8244: (nvl(p_new_sr_rec.cp_component_id,-99) <>
8245: nvl(p_old_sr_rec.cp_component_id,-99)))
8246:
8247: THEN
8244: (nvl(p_new_sr_rec.cp_component_id,-99) <>
8245: nvl(p_old_sr_rec.cp_component_id,-99)))
8246:
8247: THEN
8248: if ( l_cp_comp_id IS NOT NULL and l_cp_comp_id <> FND_API.G_MISS_NUM ) and
8249: ( l_inv_comp_id IS NOT NULL and l_inv_comp_id <> FND_API.G_MISS_NUM ) then
8250: INV_COMPONENT_CROSS_VAL (
8251: p_parameter_name => 'Inventory component',
8252: p_cp_component_id => l_cp_comp_id,
8245: nvl(p_old_sr_rec.cp_component_id,-99)))
8246:
8247: THEN
8248: if ( l_cp_comp_id IS NOT NULL and l_cp_comp_id <> FND_API.G_MISS_NUM ) and
8249: ( l_inv_comp_id IS NOT NULL and l_inv_comp_id <> FND_API.G_MISS_NUM ) then
8250: INV_COMPONENT_CROSS_VAL (
8251: p_parameter_name => 'Inventory component',
8252: p_cp_component_id => l_cp_comp_id,
8253: p_inv_component_id => l_inv_comp_id,
8252: p_cp_component_id => l_cp_comp_id,
8253: p_inv_component_id => l_inv_comp_id,
8254: x_return_status => lx_return_status );
8255:
8256: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8257: x_return_status := FND_API.G_RET_STS_ERROR;
8258: RETURN;
8259: END IF;
8260: END IF;
8253: p_inv_component_id => l_inv_comp_id,
8254: x_return_status => lx_return_status );
8255:
8256: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8257: x_return_status := FND_API.G_RET_STS_ERROR;
8258: RETURN;
8259: END IF;
8260: END IF;
8261: END IF; -- validate Inventory component end if
8261: END IF; -- validate Inventory component end if
8262:
8263: --- Validate CP subcomponent id
8264:
8265: IF ((p_new_sr_rec.cp_subcomponent_id <> FND_API.G_MISS_NUM) AND
8266: (nvl(p_new_sr_rec.cp_subcomponent_id,-99) <>
8267: nvl(p_old_sr_rec.cp_subcomponent_id,-99)))
8268: OR
8269: ((p_new_sr_rec.cp_component_id <> FND_API.G_MISS_NUM) AND
8265: IF ((p_new_sr_rec.cp_subcomponent_id <> FND_API.G_MISS_NUM) AND
8266: (nvl(p_new_sr_rec.cp_subcomponent_id,-99) <>
8267: nvl(p_old_sr_rec.cp_subcomponent_id,-99)))
8268: OR
8269: ((p_new_sr_rec.cp_component_id <> FND_API.G_MISS_NUM) AND
8270: (nvl(p_new_sr_rec.cp_component_id,-99) <>
8271: nvl(p_old_sr_rec.cp_component_id,-99)))
8272: OR
8273: ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
8269: ((p_new_sr_rec.cp_component_id <> FND_API.G_MISS_NUM) AND
8270: (nvl(p_new_sr_rec.cp_component_id,-99) <>
8271: nvl(p_old_sr_rec.cp_component_id,-99)))
8272: OR
8273: ((p_new_sr_rec.customer_product_id <> FND_API.G_MISS_NUM) AND
8274: (nvl(p_new_sr_rec.customer_product_id,-99) <>
8275: nvl(p_old_sr_rec.customer_product_id,-99)))
8276: THEN
8277:
8274: (nvl(p_new_sr_rec.customer_product_id,-99) <>
8275: nvl(p_old_sr_rec.customer_product_id,-99)))
8276: THEN
8277:
8278: if ( l_cp_scomp_id IS NOT NULL and l_cp_scomp_id <> FND_API.G_MISS_NUM ) then
8279: VALIDATE_CP_SUBCOMP_ID (
8280: p_api_name => NULL,
8281: p_parameter_name => 'CP subcomponent id',
8282: p_cp_component_id => l_cp_comp_id,
8284: p_customer_product_id => l_cust_prod_id,
8285: p_org_id => NULL,
8286: x_return_status => lx_return_status );
8287:
8288: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8289: x_return_status := FND_API.G_RET_STS_ERROR;
8290: RETURN;
8291: END IF;
8292: END IF;
8285: p_org_id => NULL,
8286: x_return_status => lx_return_status );
8287:
8288: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8289: x_return_status := FND_API.G_RET_STS_ERROR;
8290: RETURN;
8291: END IF;
8292: END IF;
8293: END IF; -- validate CP subcomponent end if
8293: END IF; -- validate CP subcomponent end if
8294:
8295: -- For bug 3592032
8296: --- Validate Inventory subcomponent id
8297: IF ((p_new_sr_rec.inv_subcomponent_id <> FND_API.G_MISS_NUM) AND
8298: (nvl(p_new_sr_rec.inv_subcomponent_id,-99) <>
8299: nvl(p_old_sr_rec.inv_subcomponent_id,-99)))
8300: OR
8301: ((p_new_sr_rec.cp_subcomponent_id <> FND_API.G_MISS_NUM) AND
8297: IF ((p_new_sr_rec.inv_subcomponent_id <> FND_API.G_MISS_NUM) AND
8298: (nvl(p_new_sr_rec.inv_subcomponent_id,-99) <>
8299: nvl(p_old_sr_rec.inv_subcomponent_id,-99)))
8300: OR
8301: ((p_new_sr_rec.cp_subcomponent_id <> FND_API.G_MISS_NUM) AND
8302: (nvl(p_new_sr_rec.cp_subcomponent_id,-99) <>
8303: nvl(p_old_sr_rec.cp_subcomponent_id,-99)))
8304:
8305: THEN
8302: (nvl(p_new_sr_rec.cp_subcomponent_id,-99) <>
8303: nvl(p_old_sr_rec.cp_subcomponent_id,-99)))
8304:
8305: THEN
8306: if ( l_cp_subcomp_id IS NOT NULL and l_cp_subcomp_id <> FND_API.G_MISS_NUM ) and
8307: ( l_inv_subcomp_id IS NOT NULL and l_inv_subcomp_id <> FND_API.G_MISS_NUM ) then
8308: INV_SUBCOMPONENT_CROSS_VAL (
8309: p_parameter_name => 'inv subcomponent',
8310: p_inv_subcomponent_id => l_inv_subcomp_id,
8303: nvl(p_old_sr_rec.cp_subcomponent_id,-99)))
8304:
8305: THEN
8306: if ( l_cp_subcomp_id IS NOT NULL and l_cp_subcomp_id <> FND_API.G_MISS_NUM ) and
8307: ( l_inv_subcomp_id IS NOT NULL and l_inv_subcomp_id <> FND_API.G_MISS_NUM ) then
8308: INV_SUBCOMPONENT_CROSS_VAL (
8309: p_parameter_name => 'inv subcomponent',
8310: p_inv_subcomponent_id => l_inv_subcomp_id,
8311: p_cp_subcomponent_id => l_cp_subcomp_id,
8310: p_inv_subcomponent_id => l_inv_subcomp_id,
8311: p_cp_subcomponent_id => l_cp_subcomp_id,
8312: x_return_status => lx_return_status );
8313:
8314: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8315: x_return_status := FND_API.G_RET_STS_ERROR;
8316: RETURN;
8317: END IF;
8318: END IF;
8311: p_cp_subcomponent_id => l_cp_subcomp_id,
8312: x_return_status => lx_return_status );
8313:
8314: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8315: x_return_status := FND_API.G_RET_STS_ERROR;
8316: RETURN;
8317: END IF;
8318: END IF;
8319: END IF; -- validate inventory subcomponent end if
8318: END IF;
8319: END IF; -- validate inventory subcomponent end if
8320:
8321: --- Validate Inv subcomponent version
8322: IF ((p_new_sr_rec.inv_subcomponent_id <> FND_API.G_MISS_NUM) AND
8323: (nvl(p_new_sr_rec.inv_subcomponent_id,-99) <>
8324: nvl(p_old_sr_rec.inv_subcomponent_id,-99)))
8325: OR
8326: ((p_new_sr_rec.inv_subcomponent_version <> FND_API.G_MISS_CHAR) AND
8322: IF ((p_new_sr_rec.inv_subcomponent_id <> FND_API.G_MISS_NUM) AND
8323: (nvl(p_new_sr_rec.inv_subcomponent_id,-99) <>
8324: nvl(p_old_sr_rec.inv_subcomponent_id,-99)))
8325: OR
8326: ((p_new_sr_rec.inv_subcomponent_version <> FND_API.G_MISS_CHAR) AND
8327: (nvl(p_new_sr_rec.inv_subcomponent_version,-99) <>
8328: nvl(p_old_sr_rec.inv_subcomponent_version,-99)))
8329:
8330: THEN
8328: nvl(p_old_sr_rec.inv_subcomponent_version,-99)))
8329:
8330: THEN
8331:
8332: if ( l_inv_scomp_ver IS NOT NULL and l_inv_scomp_ver <> FND_API.G_MISS_CHAR ) then
8333: VALIDATE_INV_SUBCOMP_VER (
8334: p_api_name => NULL,
8335: p_parameter_name => 'Inv subcomponent version',
8336: p_inv_subcomponent_version => l_inv_scomp_ver,
8337: p_inv_subcomponent_id => l_inv_scomp_id,
8338: p_inventory_org_id => l_inv_org_id,
8339: x_return_status => lx_return_status );
8340:
8341: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8342: x_return_status := FND_API.G_RET_STS_ERROR;
8343: RETURN;
8344: END IF;
8345: END IF;
8338: p_inventory_org_id => l_inv_org_id,
8339: x_return_status => lx_return_status );
8340:
8341: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8342: x_return_status := FND_API.G_RET_STS_ERROR;
8343: RETURN;
8344: END IF;
8345: END IF;
8346: END IF; -- validate Inv subcomponent version end if
8351: --- Validate the CP suncomponent version
8352: -- For bug 3337848 - change from component_version_id to component_version
8353:
8354: /*** smisra 5/4/04 bug 3566783
8355: IF ((p_new_sr_rec.cp_subcomponent_id <> FND_API.G_MISS_NUM) AND
8356: (nvl(p_new_sr_rec.cp_subcomponent_id,-99) <>
8357: nvl(p_old_sr_rec.cp_subcomponent_id,-99)))
8358: OR
8359: ((p_new_sr_rec.subcomponent_version <> FND_API.G_MISS_CHAR) AND
8355: IF ((p_new_sr_rec.cp_subcomponent_id <> FND_API.G_MISS_NUM) AND
8356: (nvl(p_new_sr_rec.cp_subcomponent_id,-99) <>
8357: nvl(p_old_sr_rec.cp_subcomponent_id,-99)))
8358: OR
8359: ((p_new_sr_rec.subcomponent_version <> FND_API.G_MISS_CHAR) AND
8360: (nvl(p_new_sr_rec.subcomponent_version,-99) <>
8361: nvl(p_old_sr_rec.subcomponent_version,-99)))
8362:
8363: THEN
8360: (nvl(p_new_sr_rec.subcomponent_version,-99) <>
8361: nvl(p_old_sr_rec.subcomponent_version,-99)))
8362:
8363: THEN
8364: if ( l_cp_scomp_ver IS NOT NULL and l_cp_scomp_ver <> FND_API.G_MISS_CHAR ) then
8365: VALIDATE_SUBCOMPONENT_VERSION (
8366: p_api_name => NULL,
8367: p_parameter_name => 'CP subcomponent version',
8368: p_cp_component_id => l_cp_comp_id,
8371: p_subcomponent_version => l_cp_scomp_ver,
8372: p_inventory_org_id => l_inv_org_id,
8373: x_return_status => lx_return_status );
8374:
8375: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8376: x_return_status := FND_API.G_RET_STS_ERROR;
8377: RETURN;
8378: END IF;
8379: END IF;
8372: p_inventory_org_id => l_inv_org_id,
8373: x_return_status => lx_return_status );
8374:
8375: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8376: x_return_status := FND_API.G_RET_STS_ERROR;
8377: RETURN;
8378: END IF;
8379: END IF;
8380: END IF; -- validate CP subcomponent version end if
8379: END IF;
8380: END IF; -- validate CP subcomponent version end if
8381: *********************************/
8382: l_cp_scomp_ver := p_new_sr_rec.subcomponent_version;
8383: IF ((p_new_sr_rec.cp_subcomponent_id <> FND_API.G_MISS_NUM) AND
8384: (nvl(p_new_sr_rec.cp_subcomponent_id,-99) <>
8385: nvl(p_old_sr_rec.cp_subcomponent_id,-99)))
8386: OR
8387: ((l_cp_scomp_id is not null) AND
8394: p_instance_id => l_cp_scomp_id,
8395: p_inventory_org_id => l_inv_org_id,
8396: p_product_version => l_cp_scomp_ver,
8397: x_return_status => lx_return_status );
8398: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8399: x_return_status := FND_API.G_RET_STS_ERROR;
8400: RETURN;
8401: END IF;
8402: END IF; -- validate CP component vesion end if
8395: p_inventory_org_id => l_inv_org_id,
8396: p_product_version => l_cp_scomp_ver,
8397: x_return_status => lx_return_status );
8398: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8399: x_return_status := FND_API.G_RET_STS_ERROR;
8400: RETURN;
8401: END IF;
8402: END IF; -- validate CP component vesion end if
8403: x_cross_val_out_rec.subcomponent_version := l_cp_scomp_ver;
8404:
8405:
8406:
8407: --- Validate bill to site and site use
8408: IF ((p_new_sr_rec.bill_to_party_id <> FND_API.G_MISS_NUM) AND
8409: (nvl(p_new_sr_rec.bill_to_party_id,-99) <>
8410: nvl(p_old_sr_rec.bill_to_party_id,-99)))
8411: OR
8412: ((p_new_sr_rec.bill_to_site_id <> FND_API.G_MISS_NUM) AND
8408: IF ((p_new_sr_rec.bill_to_party_id <> FND_API.G_MISS_NUM) AND
8409: (nvl(p_new_sr_rec.bill_to_party_id,-99) <>
8410: nvl(p_old_sr_rec.bill_to_party_id,-99)))
8411: OR
8412: ((p_new_sr_rec.bill_to_site_id <> FND_API.G_MISS_NUM) AND
8413: (nvl(p_new_sr_rec.bill_to_site_id,-99) <>
8414: nvl(p_old_sr_rec.bill_to_site_id,-99)))
8415: OR
8416: ((p_new_sr_rec.bill_to_site_use_id <> FND_API.G_MISS_NUM) AND
8412: ((p_new_sr_rec.bill_to_site_id <> FND_API.G_MISS_NUM) AND
8413: (nvl(p_new_sr_rec.bill_to_site_id,-99) <>
8414: nvl(p_old_sr_rec.bill_to_site_id,-99)))
8415: OR
8416: ((p_new_sr_rec.bill_to_site_use_id <> FND_API.G_MISS_NUM) AND
8417: (nvl(p_new_sr_rec.bill_to_site_use_id,-99) <>
8418: nvl(p_old_sr_rec.bill_to_site_use_id,-99)))
8419:
8420: THEN
8418: nvl(p_old_sr_rec.bill_to_site_use_id,-99)))
8419:
8420: THEN
8421:
8422: if ( l_bto_site_id IS NOT NULL and l_bto_site_id <> FND_API.G_MISS_NUM ) then
8423: VALIDATE_BILL_TO_SHIP_TO_SITE (
8424: p_api_name => NULL,
8425: p_parameter_name => 'bill to site id',
8426: p_bill_to_site_id => l_bto_site_id,
8429: --p_site_use_id => l_bto_site_use,
8430: x_site_use_id => lx_site_use_id,
8431: x_return_status => lx_return_status );
8432:
8433: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8434: x_return_status := FND_API.G_RET_STS_ERROR;
8435: RETURN;
8436: END IF;
8437: END IF;
8430: x_site_use_id => lx_site_use_id,
8431: x_return_status => lx_return_status );
8432:
8433: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8434: x_return_status := FND_API.G_RET_STS_ERROR;
8435: RETURN;
8436: END IF;
8437: END IF;
8438: END IF; -- validate bill to site and site use end if
8439:
8440: --- Validate ship to site and site use
8441: -- ship_to_party_id is a reqd field if ship_to_site_use_id is passed,
8442: -- so check if passed, else return error
8443: IF ((l_sto_site_use <> FND_API.G_MISS_NUM AND
8444: l_sto_site_use IS NOT NULL))
8445: THEN
8446: IF (l_sto_party_id = FND_API.G_MISS_NUM OR
8447: l_sto_party_id IS NULL) THEN
8442: -- so check if passed, else return error
8443: IF ((l_sto_site_use <> FND_API.G_MISS_NUM AND
8444: l_sto_site_use IS NOT NULL))
8445: THEN
8446: IF (l_sto_party_id = FND_API.G_MISS_NUM OR
8447: l_sto_party_id IS NULL) THEN
8448: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
8449: fnd_message.set_token ('CHILD_PARAM','ship_to_site_use_id');
8450: fnd_message.set_token ('PARENT_PARAM','ship_to_party_id');
8448: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
8449: fnd_message.set_token ('CHILD_PARAM','ship_to_site_use_id');
8450: fnd_message.set_token ('PARENT_PARAM','ship_to_party_id');
8451: fnd_msg_pub.ADD;
8452: x_return_status := FND_API.G_RET_STS_ERROR;
8453: RETURN;
8454: END IF;
8455: END IF;
8456: /*
8454: END IF;
8455: END IF;
8456: /*
8457: BUG 3702517 - Commented out
8458: IF ((p_new_sr_rec.ship_to_party_id <> FND_API.G_MISS_NUM) AND
8459: (nvl(p_new_sr_rec.ship_to_party_id,-99) <>
8460: nvl(p_old_sr_rec.ship_to_party_id,-99)))
8461: OR
8462: ((p_new_sr_rec.ship_to_site_id <> FND_API.G_MISS_NUM) AND
8458: IF ((p_new_sr_rec.ship_to_party_id <> FND_API.G_MISS_NUM) AND
8459: (nvl(p_new_sr_rec.ship_to_party_id,-99) <>
8460: nvl(p_old_sr_rec.ship_to_party_id,-99)))
8461: OR
8462: ((p_new_sr_rec.ship_to_site_id <> FND_API.G_MISS_NUM) AND
8463: (nvl(p_new_sr_rec.ship_to_site_id,-99) <>
8464: nvl(p_old_sr_rec.ship_to_site_id,-99)))
8465: OR
8466: ((p_new_sr_rec.ship_to_site_use_id <> FND_API.G_MISS_NUM) AND
8462: ((p_new_sr_rec.ship_to_site_id <> FND_API.G_MISS_NUM) AND
8463: (nvl(p_new_sr_rec.ship_to_site_id,-99) <>
8464: nvl(p_old_sr_rec.ship_to_site_id,-99)))
8465: OR
8466: ((p_new_sr_rec.ship_to_site_use_id <> FND_API.G_MISS_NUM) AND
8467: (nvl(p_new_sr_rec.ship_to_site_use_id,-99) <>
8468: nvl(p_old_sr_rec.ship_to_site_use_id,-99)))
8469: THEN
8470:
8467: (nvl(p_new_sr_rec.ship_to_site_use_id,-99) <>
8468: nvl(p_old_sr_rec.ship_to_site_use_id,-99)))
8469: THEN
8470:
8471: if ( l_sto_site_use IS NOT NULL and l_sto_site_use <> FND_API.G_MISS_NUM ) then
8472: Validate_Site_Site_Use (
8473: p_api_name => NULL,
8474: p_parameter_name => 'ship_to_site_use_id',
8475: p_site_id => l_sto_site_id,
8477: p_party_id => l_sto_party_id,
8478: p_site_use_type => 'SHIP_TO',
8479: x_return_status => lx_return_status );
8480:
8481: if (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8482: x_return_status := FND_API.G_RET_STS_ERROR;
8483: RETURN;
8484: end if;
8485: end if;
8478: p_site_use_type => 'SHIP_TO',
8479: x_return_status => lx_return_status );
8480:
8481: if (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8482: x_return_status := FND_API.G_RET_STS_ERROR;
8483: RETURN;
8484: end if;
8485: end if;
8486: END IF; -- validate ship to site and site use end if
8489: -- Bug 3702517 change begins
8490: ---------------------------
8491: IF
8492: (
8493: ( p_new_sr_rec.ship_to_party_id <> FND_API.G_MISS_NUM ) AND
8494: (
8495: NVL(p_new_sr_rec.ship_to_party_id,-99) <> NVL(p_old_sr_rec.ship_to_party_id,-99)
8496: )
8497: )
8496: )
8497: )
8498: OR
8499: (
8500: ( p_new_sr_rec.ship_to_site_id <> FND_API.G_MISS_NUM ) AND
8501: (
8502: NVL(p_new_sr_rec.ship_to_site_id,-99) <> NVL(p_old_sr_rec.ship_to_site_id,-99)
8503: )
8504: )
8503: )
8504: )
8505: OR
8506: (
8507: (p_new_sr_rec.ship_to_site_use_id <> FND_API.G_MISS_NUM ) AND
8508: (
8509: NVL(p_new_sr_rec.ship_to_site_use_id,-99) <> NVL(p_old_sr_rec.ship_to_site_use_id,-99)
8510: )
8511: )
8513: IF
8514: -- Both ship_to_site_id and ship_to_site_use_id are available
8515: -- => call Validate_Site_Site_Use
8516: (
8517: l_sto_site_use IS NOT NULL and l_sto_site_use <> FND_API.G_MISS_NUM AND
8518: l_sto_site_id IS NOT NULL AND l_sto_site_id <> FND_API.G_MISS_NUM
8519: )
8520: THEN
8521: Validate_Site_Site_Use
8514: -- Both ship_to_site_id and ship_to_site_use_id are available
8515: -- => call Validate_Site_Site_Use
8516: (
8517: l_sto_site_use IS NOT NULL and l_sto_site_use <> FND_API.G_MISS_NUM AND
8518: l_sto_site_id IS NOT NULL AND l_sto_site_id <> FND_API.G_MISS_NUM
8519: )
8520: THEN
8521: Validate_Site_Site_Use
8522: (
8528: p_site_use_type => 'SHIP_TO',
8529: x_return_status => lx_return_status
8530: );
8531: IF
8532: (lx_return_status <> FND_API.G_RET_STS_SUCCESS)
8533: THEN
8534: x_return_status := FND_API.G_RET_STS_ERROR;
8535: RETURN;
8536: END IF;
8530: );
8531: IF
8532: (lx_return_status <> FND_API.G_RET_STS_SUCCESS)
8533: THEN
8534: x_return_status := FND_API.G_RET_STS_ERROR;
8535: RETURN;
8536: END IF;
8537:
8538: ELSIF
8539: -- Ship_to_site_use_id is available, but ship_to_site_id is not passed
8540: -- => Call Validate_Bill_Ship_Site_Use
8541: (
8542: (
8543: l_sto_site_use <> FND_API.G_MISS_NUM AND
8544: l_sto_site_use IS NOT NULL
8545: )
8546: AND
8547: (
8545: )
8546: AND
8547: (
8548: l_sto_site_id IS NULL OR
8549: l_sto_site_id = FND_API.G_MISS_NUM
8550: )
8551: )
8552: THEN
8553: Validate_Bill_Ship_Site_Use
8560: x_site_id => l_sto_site_id,
8561: x_return_status => lx_return_status
8562: );
8563: IF
8564: (lx_return_status <> FND_API.G_RET_STS_SUCCESS)
8565: THEN
8566: x_return_status := FND_API.G_RET_STS_ERROR;
8567: RETURN;
8568: ELSE
8562: );
8563: IF
8564: (lx_return_status <> FND_API.G_RET_STS_SUCCESS)
8565: THEN
8566: x_return_status := FND_API.G_RET_STS_ERROR;
8567: RETURN;
8568: ELSE
8569: x_cross_val_out_rec.ship_to_site_id := l_sto_site_id;
8570: END IF;
8573: -- Ship_to_site_id is available, but ship_to_site_use_id is not passed
8574: -- => Call Validate_Bill_To_Ship_To_Site
8575: (
8576: (
8577: l_sto_site_id <> FND_API.G_MISS_NUM AND
8578: l_sto_site_id IS NOT NULL
8579: )
8580: AND
8581: (
8579: )
8580: AND
8581: (
8582: l_sto_site_use IS NULL OR
8583: l_sto_site_use = FND_API.G_MISS_NUM
8584: )
8585: )
8586: THEN
8587: Validate_Bill_To_Ship_To_Site
8594: x_site_use_id => l_sto_site_use,
8595: x_return_status => lx_return_status
8596: );
8597: IF
8598: (lx_return_status <> FND_API.G_RET_STS_SUCCESS)
8599: THEN
8600: x_return_status := FND_API.G_RET_STS_ERROR;
8601: RETURN;
8602: ELSE
8596: );
8597: IF
8598: (lx_return_status <> FND_API.G_RET_STS_SUCCESS)
8599: THEN
8600: x_return_status := FND_API.G_RET_STS_ERROR;
8601: RETURN;
8602: ELSE
8603: x_cross_val_out_rec.ship_to_site_use_id := l_sto_site_use;
8604: END IF;
8606: END IF;
8607: --Bug 3702517 change ends
8608: -------------------------
8609: --- Validate bill to site and site use
8610: IF ((l_bto_site_use <> FND_API.G_MISS_NUM AND
8611: l_bto_site_use IS NOT NULL))
8612: THEN
8613: IF (l_bto_party_id = FND_API.G_MISS_NUM OR
8614: l_bto_party_id IS NULL) THEN
8609: --- Validate bill to site and site use
8610: IF ((l_bto_site_use <> FND_API.G_MISS_NUM AND
8611: l_bto_site_use IS NOT NULL))
8612: THEN
8613: IF (l_bto_party_id = FND_API.G_MISS_NUM OR
8614: l_bto_party_id IS NULL) THEN
8615: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
8616: fnd_message.set_token ('CHILD_PARAM','bill_to_site_use_id');
8617: fnd_message.set_token ('PARENT_PARAM','bill_to_party_id');
8615: fnd_message.set_name ('CS', 'CS_SR_PARENT_CHILD_CHECK');
8616: fnd_message.set_token ('CHILD_PARAM','bill_to_site_use_id');
8617: fnd_message.set_token ('PARENT_PARAM','bill_to_party_id');
8618: fnd_msg_pub.ADD;
8619: x_return_status := FND_API.G_RET_STS_ERROR;
8620: RETURN;
8621: END IF;
8622: END IF;
8623: IF ((p_new_sr_rec.bill_to_party_id <> FND_API.G_MISS_NUM) AND
8619: x_return_status := FND_API.G_RET_STS_ERROR;
8620: RETURN;
8621: END IF;
8622: END IF;
8623: IF ((p_new_sr_rec.bill_to_party_id <> FND_API.G_MISS_NUM) AND
8624: (nvl(p_new_sr_rec.bill_to_party_id,-99) <>
8625: nvl(p_old_sr_rec.bill_to_party_id,-99)))
8626: OR
8627: ((p_new_sr_rec.bill_to_site_id <> FND_API.G_MISS_NUM) AND
8623: IF ((p_new_sr_rec.bill_to_party_id <> FND_API.G_MISS_NUM) AND
8624: (nvl(p_new_sr_rec.bill_to_party_id,-99) <>
8625: nvl(p_old_sr_rec.bill_to_party_id,-99)))
8626: OR
8627: ((p_new_sr_rec.bill_to_site_id <> FND_API.G_MISS_NUM) AND
8628: (nvl(p_new_sr_rec.bill_to_site_id,-99) <>
8629: nvl(p_old_sr_rec.bill_to_site_id,-99)))
8630: OR
8631: ((p_new_sr_rec.bill_to_site_use_id <> FND_API.G_MISS_NUM) AND
8627: ((p_new_sr_rec.bill_to_site_id <> FND_API.G_MISS_NUM) AND
8628: (nvl(p_new_sr_rec.bill_to_site_id,-99) <>
8629: nvl(p_old_sr_rec.bill_to_site_id,-99)))
8630: OR
8631: ((p_new_sr_rec.bill_to_site_use_id <> FND_API.G_MISS_NUM) AND
8632: (nvl(p_new_sr_rec.bill_to_site_use_id,-99) <>
8633: nvl(p_old_sr_rec.bill_to_site_use_id,-99)))
8634: THEN
8635: IF ( l_bto_site_use IS NOT NULL and l_bto_site_use <> FND_API.G_MISS_NUM AND
8631: ((p_new_sr_rec.bill_to_site_use_id <> FND_API.G_MISS_NUM) AND
8632: (nvl(p_new_sr_rec.bill_to_site_use_id,-99) <>
8633: nvl(p_old_sr_rec.bill_to_site_use_id,-99)))
8634: THEN
8635: IF ( l_bto_site_use IS NOT NULL and l_bto_site_use <> FND_API.G_MISS_NUM AND
8636: l_bto_site_id IS NOT NULL AND l_bto_site_id <> FND_API.G_MISS_NUM) THEN
8637: -- this call is made when both site use and site id are available
8638: Validate_Site_Site_Use (
8639: p_api_name => NULL,
8632: (nvl(p_new_sr_rec.bill_to_site_use_id,-99) <>
8633: nvl(p_old_sr_rec.bill_to_site_use_id,-99)))
8634: THEN
8635: IF ( l_bto_site_use IS NOT NULL and l_bto_site_use <> FND_API.G_MISS_NUM AND
8636: l_bto_site_id IS NOT NULL AND l_bto_site_id <> FND_API.G_MISS_NUM) THEN
8637: -- this call is made when both site use and site id are available
8638: Validate_Site_Site_Use (
8639: p_api_name => NULL,
8640: p_parameter_name => 'bill_to_site_use_id',
8643: p_party_id => l_bto_party_id,
8644: p_site_use_type => 'BILL_TO',
8645: x_return_status => lx_return_status );
8646:
8647: if (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8648: x_return_status := FND_API.G_RET_STS_ERROR;
8649: RETURN;
8650: end if;
8651: ELSIF ( ( l_bto_site_use <> FND_API.G_MISS_NUM AND l_bto_site_use IS NOT NULL ) AND
8644: p_site_use_type => 'BILL_TO',
8645: x_return_status => lx_return_status );
8646:
8647: if (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8648: x_return_status := FND_API.G_RET_STS_ERROR;
8649: RETURN;
8650: end if;
8651: ELSIF ( ( l_bto_site_use <> FND_API.G_MISS_NUM AND l_bto_site_use IS NOT NULL ) AND
8652: ( l_bto_site_id IS NULL OR l_bto_site_id = FND_API.G_MISS_NUM )
8647: if (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8648: x_return_status := FND_API.G_RET_STS_ERROR;
8649: RETURN;
8650: end if;
8651: ELSIF ( ( l_bto_site_use <> FND_API.G_MISS_NUM AND l_bto_site_use IS NOT NULL ) AND
8652: ( l_bto_site_id IS NULL OR l_bto_site_id = FND_API.G_MISS_NUM )
8653: ) THEN
8654: -- this call is made when site use is availabel but site id is not available
8655: CS_ServiceRequest_UTIL.Validate_Bill_Ship_Site_Use
8648: x_return_status := FND_API.G_RET_STS_ERROR;
8649: RETURN;
8650: end if;
8651: ELSIF ( ( l_bto_site_use <> FND_API.G_MISS_NUM AND l_bto_site_use IS NOT NULL ) AND
8652: ( l_bto_site_id IS NULL OR l_bto_site_id = FND_API.G_MISS_NUM )
8653: ) THEN
8654: -- this call is made when site use is availabel but site id is not available
8655: CS_ServiceRequest_UTIL.Validate_Bill_Ship_Site_Use
8656: ( p_api_name => null,
8661: p_site_use_type => 'BILL_TO',
8662: x_site_id => l_bto_site_id,
8663: x_return_status => lx_return_status
8664: );
8665: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8666: x_return_status := FND_API.G_RET_STS_ERROR;
8667: RETURN;
8668: ELSE
8669: x_cross_val_out_rec.bill_to_site_id := l_bto_site_id;
8662: x_site_id => l_bto_site_id,
8663: x_return_status => lx_return_status
8664: );
8665: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8666: x_return_status := FND_API.G_RET_STS_ERROR;
8667: RETURN;
8668: ELSE
8669: x_cross_val_out_rec.bill_to_site_id := l_bto_site_id;
8670: END IF;
8667: RETURN;
8668: ELSE
8669: x_cross_val_out_rec.bill_to_site_id := l_bto_site_id;
8670: END IF;
8671: ELSIF ( ( l_bto_site_id <> FND_API.G_MISS_NUM AND l_bto_site_id IS NOT NULL ) AND
8672: ( l_bto_site_use IS NULL OR l_bto_site_use = FND_API.G_MISS_NUM )
8673: ) THEN
8674: -- this call is made when site use is not available but site id is available
8675: CS_ServiceRequest_UTIL.Validate_Bill_To_Ship_To_Site
8668: ELSE
8669: x_cross_val_out_rec.bill_to_site_id := l_bto_site_id;
8670: END IF;
8671: ELSIF ( ( l_bto_site_id <> FND_API.G_MISS_NUM AND l_bto_site_id IS NOT NULL ) AND
8672: ( l_bto_site_use IS NULL OR l_bto_site_use = FND_API.G_MISS_NUM )
8673: ) THEN
8674: -- this call is made when site use is not available but site id is available
8675: CS_ServiceRequest_UTIL.Validate_Bill_To_Ship_To_Site
8676: ( p_api_name => null,
8681: p_site_use_type => 'BILL_TO',
8682: x_site_use_id => l_bto_site_use,
8683: x_return_status => lx_return_status
8684: );
8685: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8686: x_return_status := FND_API.G_RET_STS_ERROR;
8687: RETURN;
8688: ELSE
8689: x_cross_val_out_rec.bill_to_site_use_id := l_bto_site_use;
8682: x_site_use_id => l_bto_site_use,
8683: x_return_status => lx_return_status
8684: );
8685: IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8686: x_return_status := FND_API.G_RET_STS_ERROR;
8687: RETURN;
8688: ELSE
8689: x_cross_val_out_rec.bill_to_site_use_id := l_bto_site_use;
8690: END IF;
8708:
8709:
8710: EXCEPTION
8711: WHEN OTHERS THEN
8712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8713:
8714: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
8715: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
8716: FND_MSG_PUB.ADD;
9150:
9151: BEGIN
9152:
9153: -- Initialize return status to SUCCESS
9154: x_return_status := FND_API.G_RET_STS_SUCCESS;
9155:
9156: OPEN l_ServiceRequest_csr;
9157: FETCH l_ServiceRequest_csr INTO x_audit_vals_rec;
9158:
9203: IS
9204: l_error_message VARCHAR2(2000);
9205: BEGIN
9206: -- Initialize API return status to success
9207: p_return_status := FND_API.G_RET_STS_SUCCESS;
9208:
9209:
9210: IF ( p_desc_context || p_desc_segment1 || p_desc_segment2 ||
9211: p_desc_segment3 || p_desc_segment4 || p_desc_segment5 ||
9240: resp_id => p_resp_id
9241: ) THEN
9242: l_error_message := FND_FLEX_DESCVAL.Error_Message;
9243: CS_ServiceRequest_UTIL.Add_Desc_Flex_Msg(p_api_name, l_error_message);
9244: p_return_status := FND_API.G_RET_STS_ERROR;
9245: END IF;
9246: END IF;
9247:
9248: END Validate_Desc_Flex;
9276: FROM
9277: cs_party_roles_b
9278: WHERE party_role_code = p_party_role_code;
9279: BEGIN
9280: x_return_status := FND_API.G_RET_STS_SUCCESS;
9281: l_sys_dt := SYSDATE;
9282: IF p_party_role_code <> 'CONTACT'
9283: THEN
9284: OPEN c_party_role;
9285: FETCH c_party_role INTO l_start_dt, l_end_dt;
9286:
9287: IF c_party_role % NOTFOUND
9288: THEN
9289: x_return_status := FND_API.G_RET_STS_ERROR;
9290: FND_MESSAGE.set_name('CS','CS_SR_PARTY_ROLE_NE');
9291: FND_MESSAGE.set_token('API_NAME','cs_servicerequest_util.validate_party_role_code');
9292: FND_MESSAGE.set_token('PARTY_ROLE_CODE',p_party_role_code);
9293: FND_MSG_PUB.add_detail(p_associated_column1 => 'cs_hz_sr_contact_points.party_role_code');
9294: --FND_MSG_PUB.ADD_DETAIL(p_associated_column1 => l_associated_col1);
9295: ELSIF l_sys_dt < NVL(l_start_dt, l_sys_dt) OR
9296: l_sys_dt > NVL(l_end_dt , l_sys_dt)
9297: THEN
9298: x_return_status := FND_API.G_RET_STS_ERROR;
9299: FND_MESSAGE.set_name('CS','CS_SR_PARTYROLE_INACTIVE');
9300: FND_MESSAGE.set_token('API_NAME','cs_servicerequest_util.validate_party_role_code');
9301: FND_MESSAGE.set_token('PARTY_ROLE_CODE',p_party_role_code);
9302: FND_MSG_PUB.add_detail(p_associated_column1 => 'cs_hz_sr_contact_points.party_role_code');
9312: END IF;
9313: FND_MESSAGE.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
9314: FND_MESSAGE.set_token('P_TEXT','CS_SERVICEREQUEST_UTIL.validate_party_role_code'||'-'||SQLERRM);
9315: FND_MSG_PUB.ADD;
9316: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9317: END validate_party_role_code;
9318: -- -----------------------------------------------------------------------------
9319: -- Procedure Name : validate_org_id
9320: -- Parameter :
9340: l_dt_from DATE;
9341: l_dt_to DATE;
9342: l_sys_dt DATE;
9343: BEGIN
9344: x_return_status := FND_API.G_RET_STS_SUCCESS;
9345: l_sys_dt := TRUNC(SYSDATE);
9346: SELECT
9347: date_from
9348: , date_to
9358: FND_MESSAGE.set_name ('CS', 'CS_SR_ORG_ID_INACTIVE');
9359: FND_MESSAGE.set_token ('API_NAME', 'CS_SERVICEREQUEST_UTIL.validate_org_id');
9360: FND_MESSAGE.set_token ('ORG_ID', p_org_id);
9361: FND_MSG_PUB.ADD;
9362: x_return_status := FND_API.G_RET_STS_ERROR;
9363: END IF;
9364: EXCEPTION
9365: WHEN NO_DATA_FOUND THEN
9366: x_return_status := FND_API.G_RET_STS_ERROR;
9362: x_return_status := FND_API.G_RET_STS_ERROR;
9363: END IF;
9364: EXCEPTION
9365: WHEN NO_DATA_FOUND THEN
9366: x_return_status := FND_API.G_RET_STS_ERROR;
9367: Add_Invalid_Argument_Msg
9368: ( p_token_an => 'cs_servicerequest_util.validate_org_id'
9369: , p_token_v => TO_CHAR(p_org_id)
9370: , p_token_p => 'p_org_id'
9374: WHEN OTHERS THEN
9375: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
9376: fnd_message.set_token ('P_TEXT','cs_servicerequest_util.validate_org_id'||'-'||SQLERRM);
9377: fnd_msg_pub.ADD;
9378: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9379: END validate_org_id;
9380: -- -----------------------------------------------------------------------------
9381: -- Procedure Name : validate_maint_organization_id
9382: -- Parameter :
9411: l_col VARCHAR2(61);
9412: BEGIN
9413: l_api_name_full := G_PKG_NAME || '.validate_maint_organization_id';
9414: l_col := G_TABLE_NAME || '.MAINT_ORGANIZATION_ID';
9415: x_return_status := FND_API.G_RET_STS_SUCCESS;
9416: IF p_inv_org_master_org_flag = 'N' -- means inv org is not a master org
9417: THEN
9418: get_org_details
9419: ( p_org_id => p_inventory_org_id
9421: , x_maint_org_id => l_maint_org_id
9422: , x_master_org_id => l_master_org_id
9423: , x_return_Status => x_return_status
9424: );
9425: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
9426: THEN
9427: Add_Invalid_Argument_Msg
9428: ( p_token_an => l_api_name_full
9429: , p_token_v => to_char(p_inventory_org_id)
9432: , p_column_name => 'INVENTORY_ORG_ID'
9433: );
9434: ELSIF NVL(l_maint_org_id,-99) <> p_maint_organization_id
9435: THEN
9436: x_return_status := FND_API.G_RET_STS_ERROR;
9437: FND_MESSAGE.set_name ('CS' , 'CS_SR_INV_ORG_NOT_MAINT_BY');
9438: FND_MESSAGE.set_token ('API_NAME', l_api_name_full);
9439: FND_MESSAGE.set_token ('MAINT_ORG_ID' , TO_CHAR(p_maint_organization_id));
9440: FND_MESSAGE.set_token ('INV_ORG_ID' , TO_CHAR(p_inventory_org_id));
9447: , x_maint_org_id => l_maint_org_id
9448: , x_master_org_id => l_master_org_id
9449: , x_return_Status => x_return_status
9450: );
9451: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
9452: THEN
9453: Add_Invalid_Argument_Msg
9454: ( p_token_an => l_api_name_full
9455: , p_token_v => to_char(p_maint_organization_id)
9458: , p_column_name => 'MAINT_ORGANIZATION_ID'
9459: );
9460: ELSIF l_eam_enabled <> 'Y'
9461: THEN
9462: x_return_status := FND_API.G_RET_STS_ERROR;
9463: FND_MESSAGE.set_name ('CS' , 'CS_SR_MAINT_ORG_NON_EAM');
9464: FND_MESSAGE.set_token ('API_NAME', l_api_name_full);
9465: FND_MESSAGE.set_token ('MAINT_ORG_ID', TO_CHAR(p_maint_organization_id));
9466: FND_MSG_PUB.add_detail(p_associated_column1 => l_col);
9464: FND_MESSAGE.set_token ('API_NAME', l_api_name_full);
9465: FND_MESSAGE.set_token ('MAINT_ORG_ID', TO_CHAR(p_maint_organization_id));
9466: FND_MSG_PUB.add_detail(p_associated_column1 => l_col);
9467: ELSIF p_inventory_org_id IS NOT NULL AND
9468: p_inventory_org_id <> FND_API.G_MISS_NUM AND
9469: p_inventory_org_id <> l_master_org_id
9470: THEN
9471: x_return_status := FND_API.G_RET_STS_ERROR;
9472: FND_MESSAGE.set_name ('CS' , 'CS_SR_MAINT_INV_ORG_MISMATCH');
9467: ELSIF p_inventory_org_id IS NOT NULL AND
9468: p_inventory_org_id <> FND_API.G_MISS_NUM AND
9469: p_inventory_org_id <> l_master_org_id
9470: THEN
9471: x_return_status := FND_API.G_RET_STS_ERROR;
9472: FND_MESSAGE.set_name ('CS' , 'CS_SR_MAINT_INV_ORG_MISMATCH');
9473: FND_MESSAGE.set_token ('API_NAME' , l_api_name_full);
9474: FND_MESSAGE.set_token ('MAINT_ORG_ID' , TO_CHAR(p_maint_organization_id));
9475: FND_MSG_PUB.add_detail(p_associated_column1 => l_col);
9566: , x_end_dt_active => l_end_dt
9567: , x_loc_type => l_loc_type
9568: , x_return_status => x_return_status
9569: );
9570: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
9571: THEN
9572: RAISE NO_DATA_FOUND;
9573: END IF;
9574: --
9578: FND_MESSAGE.set_name('CS','CS_SR_CP_INACTIVE');
9579: FND_MESSAGE.set_token('CP_ID',TO_CHAR(p_customer_product_id));
9580: FND_MESSAGE.set_token('API_NAME' , l_proc_name);
9581: FND_MSG_PUB.add_detail(p_associated_column1=> 'CS_INCIDENTS_ALL_B.CUSTOMER_PRODUCT_ID');
9582: RAISE FND_API.G_EXC_ERROR;
9583: END IF;
9584: --
9585: IF CS_SERVICEREQUEST_PVT.g_restrict_ib = 'YES' AND
9586: l_loc_type NOT IN ('HZ_PARTY_SITES', 'HZ_LOCATIONS')
9589: FND_MESSAGE.set_token('LOC',l_loc_type);
9590: FND_MESSAGE.set_token('CP_ID',TO_CHAR(p_customer_product_id));
9591: FND_MESSAGE.set_token('API_NAME' , l_proc_name);
9592: FND_MSG_PUB.add_detail(p_associated_column1=> 'CS_INCIDENTS_ALL_B.CUSTOMER_PRODUCT_ID');
9593: RAISE FND_API.G_EXC_ERROR;
9594: END IF;
9595: --
9596: IF NVL(l_source_table,'#') <> 'HZ_PARTIES'
9597: THEN
9598: FND_MESSAGE.set_name('CS','CS_SR_CP_CUST_SOURCE_INVALID'); -- product is not for TCA parties
9599: FND_MESSAGE.set_token('PARTY_SOURCE',l_source_table);
9600: FND_MESSAGE.set_token('CP_ID',TO_CHAR(p_customer_product_id));
9601: FND_MSG_PUB.add_detail(p_associated_column1=> 'CS_INCIDENTS_ALL_B.CUSTOMER_PRODUCT_ID');
9602: RAISE FND_API.G_EXC_ERROR;
9603: END IF;
9604: --
9605: IF p_customer_id <> NVL(l_party_id,-1)
9606: THEN
9612: FND_MESSAGE.set_token('CP_ID',TO_CHAR(p_customer_product_id));
9613: FND_MESSAGE.set_token('CUST_ID',TO_CHAR(p_customer_id));
9614: FND_MSG_PUB.add_detail(p_associated_column1=> 'CS_INCIDENTS_ALL_B.CUSTOMER_PRODUCT_ID');
9615: CLOSE c_prod_rel;
9616: RAISE FND_API.G_EXC_ERROR;
9617: ELSE
9618: CLOSE c_prod_rel;
9619: END IF;
9620: END IF;
9634: , x_start_date_active => l_start_dt
9635: , x_end_date_active => l_end_dt
9636: , x_return_status => x_return_status
9637: );
9638: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
9639: THEN
9640: FND_MESSAGE.set_name('CS','CS_SR_CP_ITEM_ID'); -- item associated with CP does not exists
9641: FND_MESSAGE.set_token('CP_ID',TO_CHAR(p_customer_product_id));
9642: FND_MESSAGE.set_token('INV_ITEM_ID',TO_CHAR(l_inv_item_id));
9640: FND_MESSAGE.set_name('CS','CS_SR_CP_ITEM_ID'); -- item associated with CP does not exists
9641: FND_MESSAGE.set_token('CP_ID',TO_CHAR(p_customer_product_id));
9642: FND_MESSAGE.set_token('INV_ITEM_ID',TO_CHAR(l_inv_item_id));
9643: FND_MSG_PUB.add_detail(p_associated_column1=> 'CS_INCIDENTS_ALL_B.CUSTOMER_PRODUCT_ID');
9644: RAISE FND_API.G_EXC_ERROR;
9645: END IF;
9646: IF l_enabled_flag <> 'Y'
9647: THEN
9648: FND_MESSAGE.set_name('CS','CS_SR_CP_ITEM_DISABLED'); -- item associated with CP is not enabled
9649: FND_MESSAGE.set_token('CP_ID',TO_CHAR(p_customer_product_id));
9650: FND_MESSAGE.set_token('INV_ITEM_ID',TO_CHAR(l_inv_item_id));
9651: FND_MESSAGE.set_token('API_NAME' , l_proc_name);
9652: FND_MSG_PUB.add_detail(p_associated_column1=> 'CS_INCIDENTS_ALL_B.CUSTOMER_PRODUCT_ID');
9653: RAISE FND_API.G_EXC_ERROR;
9654: END IF;
9655: IF l_serv_req_enabled <> 'E'
9656: THEN
9657: FND_MESSAGE.set_name('CS','CS_SR_CP_ITEM_NOT_SERV'); -- item associated with CP is not serviceable
9658: FND_MESSAGE.set_token('CP_ID',TO_CHAR(p_customer_product_id));
9659: FND_MESSAGE.set_token('INV',TO_CHAR(l_inv_item_id));
9660: FND_MESSAGE.set_token('API_NAME' , l_proc_name);
9661: FND_MSG_PUB.add_detail(p_associated_column1=> 'CS_INCIDENTS_ALL_B.CUSTOMER_PRODUCT_ID');
9662: RAISE FND_API.G_EXC_ERROR;
9663: END IF;
9664: IF l_sys_dt < NVL(l_start_dt,l_sys_dt) OR
9665: l_sys_dt > NVL(l_end_dt ,l_sys_dt)
9666: THEN
9667: FND_MESSAGE.set_name('CS','CS_SR_CP_ITEM_INACTIVE'); --Item associated with CP is inactive
9668: FND_MESSAGE.set_token('CP_ID',TO_CHAR(p_customer_product_id));
9669: FND_MESSAGE.set_token('INV_ITEM_ID',TO_CHAR(l_inv_item_id));
9670: FND_MSG_PUB.add_detail(p_associated_column1=> 'CS_INCIDENTS_ALL_B.CUSTOMER_PRODUCT_ID');
9671: RAISE FND_API.G_EXC_ERROR;
9672: END IF;
9673: -- All validations succeeded, so assign item for CP to p_inventory_item_id
9674: p_inventory_item_id := l_inv_item_id;
9675: END IF;
9682: , x_maint_org_id => l_maint_org_id
9683: , x_master_org_id => l_master_org_id
9684: , x_return_Status => x_return_status
9685: );
9686: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
9687: THEN
9688: FND_MESSAGE.set_name('CS','CS_SR_CP_LAST_VLD_ORG'); -- Last validation org does not exists
9689: FND_MESSAGE.set_token('CP_ID',TO_CHAR(p_customer_product_id));
9690: FND_MESSAGE.set_token('MAINT_ORG_ID',TO_CHAR(l_last_vld_org_id));
9688: FND_MESSAGE.set_name('CS','CS_SR_CP_LAST_VLD_ORG'); -- Last validation org does not exists
9689: FND_MESSAGE.set_token('CP_ID',TO_CHAR(p_customer_product_id));
9690: FND_MESSAGE.set_token('MAINT_ORG_ID',TO_CHAR(l_last_vld_org_id));
9691: FND_MSG_PUB.add_detail(p_associated_column1=> 'CS_INCIDENTS_ALL_B.CUSTOMER_PRODUCT_ID');
9692: RAISE FND_API.G_EXC_ERROR;
9693: END IF;
9694: /* last vlg org may not be eam enabled but it might be maintained bu maint org
9695: so no need for this check
9696: IF l_eam_enabled_flag <> 'Y'
9697: THEN
9698: FND_MESSAGE.set_name('CS','CS_SR_CP_MAINT_EAM'); -- Maintenance Organization is NOT Eam Enabled
9699: FND_MESSAGE.set_token('MAINT_ORG_ID',TO_CHAR(p_maint_organization_id));
9700: FND_MSG_PUB.add_detail(p_associated_column1=> 'CS_INCIDENTS_ALL_B.CUSTOMER_PRODUCT_ID');
9701: RAISE FND_API.G_EXC_ERROR;
9702: END IF;
9703: */
9704: IF l_maint_org_id <> p_maint_organization_id
9705: THEN
9707: FND_MESSAGE.set_token('API_NAME' , l_proc_name);
9708: FND_MESSAGE.set_token('MAINT_ORG_ID',TO_CHAR(p_maint_organization_id));
9709: FND_MESSAGE.set_token('VAL_ORG_ID',TO_CHAR(l_maint_org_id));
9710: FND_MSG_PUB.add_detail(p_associated_column1=> 'CS_INCIDENTS_ALL_B.CUSTOMER_PRODUCT_ID');
9711: RAISE FND_API.G_EXC_ERROR;
9712: END IF;
9713: IF p_inv_org_master_org_flag = 'Y' AND
9714: l_master_org_id <> p_inventory_org_id
9715: THEN
9715: THEN
9716: FND_MESSAGE.set_name('CS','CS_SR_VLD_INV_ORG_MISMATCH');
9717: FND_MESSAGE.set_token('VAL_ORG',TO_CHAR(l_maint_org_id));
9718: FND_MSG_PUB.add_detail(p_associated_column1=> 'CS_INCIDENTS_ALL_B.CUSTOMER_PRODUCT_ID');
9719: RAISE FND_API.G_EXC_ERROR;
9720: END IF;
9721: END IF; -- p_maint_organization check
9722: --
9723: EXCEPTION
9721: END IF; -- p_maint_organization check
9722: --
9723: EXCEPTION
9724: WHEN NO_DATA_FOUND THEN
9725: x_return_status := FND_API.G_RET_STS_ERROR;
9726: Add_Invalid_Argument_Msg
9727: ( p_token_an => l_proc_name
9728: , p_token_v => TO_CHAR(p_customer_product_id)
9729: , p_token_p => 'customer_product_id'
9729: , p_token_p => 'customer_product_id'
9730: , p_table_name => G_TABLE_NAME
9731: , p_column_name => 'CUSTOMER_PRODUCT_ID'
9732: );
9733: WHEN FND_API.G_EXC_ERROR THEN
9734: x_return_status := FND_API.G_RET_STS_ERROR;
9735: END validate_customer_product_id;
9736: -- -----------------------------------------------------------------------------
9737: -- Procedure Name : get_reacted_resolved_dates
9730: , p_table_name => G_TABLE_NAME
9731: , p_column_name => 'CUSTOMER_PRODUCT_ID'
9732: );
9733: WHEN FND_API.G_EXC_ERROR THEN
9734: x_return_status := FND_API.G_RET_STS_ERROR;
9735: END validate_customer_product_id;
9736: -- -----------------------------------------------------------------------------
9737: -- Procedure Name : get_reacted_resolved_dates
9738: -- Parameter :
9767: l_new_resolved_flag CS_INCIDENT_STATUSES_B.resolved_flag % TYPE;
9768: l_old_resolved_flag CS_INCIDENT_STATUSES_B.resolved_flag % TYPE;
9769: BEGIN
9770: -- Logic added for 11.5.10 enhancement : Usability changes
9771: x_return_status := FND_API.G_RET_STS_SUCCESS;
9772: SELECT
9773: responded_flag
9774: , resolved_flag
9775: INTO
9853: ( 'P_TEXT'
9854: , 'CS_SERVICEREQUEST_UTIL.get_status_details'||'-'||SQLERRM
9855: );
9856: FND_MSG_PUB.ADD;
9857: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9858: END get_reacted_resolved_dates;
9859: -- -----------------------------------------------------------------------------
9860: -- Procedure Name : get_party_details
9861: -- Parameter :
9881: , x_return_status OUT NOCOPY VARCHAR2
9882: ) IS
9883: BEGIN
9884: -- Initialize Return Status to SUCCESS
9885: x_return_status := FND_API.G_RET_STS_SUCCESS;
9886:
9887: SELECT
9888: party_type
9889: , status
9895: WHERE a.party_id = p_party_id;
9896:
9897: EXCEPTION
9898: WHEN NO_DATA_FOUND THEN
9899: x_return_status := FND_API.G_RET_STS_ERROR;
9900:
9901: WHEN OTHERS THEN
9902: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
9903: fnd_message.set_token
9904: ( 'P_TEXT'
9905: , 'CS_SERVICEREQUEST_UTIL.get_party_detail:'||'-'||SQLERRM
9906: );
9907: fnd_msg_pub.ADD;
9908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9909:
9910: END get_party_details;
9911: -- -----------------------------------------------------------------------------
9912: -- Procedure Name : update_task_address
9963: l_msg_count NUMBER;
9964: l_msg_data VARCHAR2(4000);
9965: --
9966: BEGIN
9967: x_return_status := FND_API.G_RET_STS_SUCCESS;
9968: --
9969: FOR task_rec in c_tasks LOOP
9970: -- set address variables
9971: IF p_location_type = 'HZ_LOCATION'
9988: );
9989: FND_MSG_PUB.ADD_DETAIL
9990: ( p_associated_column1 => 'CS_INCIDENTS_ALL_B.incident_location_id'
9991: );
9992: RAISE FND_API.G_EXC_ERROR;
9993: END IF;
9994: END IF;
9995: --
9996: -- Call task update APIs
10013: , p_task_id => task_rec.task_id
10014: , p_object_version_number => task_rec.object_version_number
10015: , p_location_id => l_location_id
10016: , p_address_id => l_site_id
10017: , p_enable_workflow => FND_API.G_MISS_CHAR
10018: , p_abort_workflow => FND_API.G_MISS_CHAR
10019: , p_task_split_flag => FND_API.G_MISS_CHAR
10020: , x_return_status => x_return_status
10021: , x_msg_count => l_msg_count
10014: , p_object_version_number => task_rec.object_version_number
10015: , p_location_id => l_location_id
10016: , p_address_id => l_site_id
10017: , p_enable_workflow => FND_API.G_MISS_CHAR
10018: , p_abort_workflow => FND_API.G_MISS_CHAR
10019: , p_task_split_flag => FND_API.G_MISS_CHAR
10020: , x_return_status => x_return_status
10021: , x_msg_count => l_msg_count
10022: , x_msg_data => l_msg_data
10015: , p_location_id => l_location_id
10016: , p_address_id => l_site_id
10017: , p_enable_workflow => FND_API.G_MISS_CHAR
10018: , p_abort_workflow => FND_API.G_MISS_CHAR
10019: , p_task_split_flag => FND_API.G_MISS_CHAR
10020: , x_return_status => x_return_status
10021: , x_msg_count => l_msg_count
10022: , x_msg_data => l_msg_data
10023: );
10024: END IF;
10025: --
10026: -- check Error status
10027: --
10028: IF x_return_status = FND_API.G_RET_STS_ERROR
10029: THEN
10030: RAISE FND_API.G_EXC_ERROR;
10031: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10032: THEN
10026: -- check Error status
10027: --
10028: IF x_return_status = FND_API.G_RET_STS_ERROR
10029: THEN
10030: RAISE FND_API.G_EXC_ERROR;
10031: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10032: THEN
10033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10034: END IF;
10027: --
10028: IF x_return_status = FND_API.G_RET_STS_ERROR
10029: THEN
10030: RAISE FND_API.G_EXC_ERROR;
10031: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10032: THEN
10033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10034: END IF;
10035: --
10029: THEN
10030: RAISE FND_API.G_EXC_ERROR;
10031: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10032: THEN
10033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10034: END IF;
10035: --
10036: END LOOP;
10037: EXCEPTION
10034: END IF;
10035: --
10036: END LOOP;
10037: EXCEPTION
10038: WHEN FND_API.G_EXC_ERROR
10039: THEN
10040: x_return_status := FND_API.G_RET_STS_ERROR;
10041: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
10042: THEN
10036: END LOOP;
10037: EXCEPTION
10038: WHEN FND_API.G_EXC_ERROR
10039: THEN
10040: x_return_status := FND_API.G_RET_STS_ERROR;
10041: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
10042: THEN
10043: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10044: WHEN OTHERS
10037: EXCEPTION
10038: WHEN FND_API.G_EXC_ERROR
10039: THEN
10040: x_return_status := FND_API.G_RET_STS_ERROR;
10041: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
10042: THEN
10043: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10044: WHEN OTHERS
10045: THEN
10039: THEN
10040: x_return_status := FND_API.G_RET_STS_ERROR;
10041: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
10042: THEN
10043: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10044: WHEN OTHERS
10045: THEN
10046: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10047: END update_task_address;
10042: THEN
10043: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10044: WHEN OTHERS
10045: THEN
10046: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10047: END update_task_address;
10048:
10049: -- Verify_LocationUpdate_For_FSTasks
10050: -- Following procedure validates if the update to the service request location is allowed.
10127: BEGIN
10128: -- Check if the profile option for the state restriction is set.
10129: -- then only apply the logic in this function
10130:
10131: x_return_status := FND_API.G_RET_STS_SUCCESS;
10132:
10133: IF FND_PROFILE.VALUE('CS_SR_ENABLE_TASK_STATE_RESTRICTIONS') = 'Y' THEN
10134: -- Get all the tasks for the service request
10135: FOR c_tasks_rec IN c_tasks
10181: l_closed_flag = 'Y'
10182: ) THEN
10183: RAISE loc_update_not_alwd_exp ;
10184: ELSE
10185: x_return_status := FND_API.G_RET_STS_SUCCESS;
10186: END IF ;
10187: END IF; -- end if for DISPATCH
10188: END LOOP;
10189: ELSE
10186: END IF ;
10187: END IF; -- end if for DISPATCH
10188: END LOOP;
10189: ELSE
10190: x_return_status := FND_API.G_RET_STS_SUCCESS;
10191: END IF;
10192:
10193: EXCEPTION
10194: WHEN loc_update_not_alwd_exp THEN
10193: EXCEPTION
10194: WHEN loc_update_not_alwd_exp THEN
10195: FND_MESSAGE.SET_Name('CS','CS_SR_LOC_UPD_NOT_ALLWD');
10196: FND_MSG_PUB.ADD;
10197: x_return_status := FND_API.G_RET_STS_ERROR;
10198: WHEN FND_API.G_EXC_ERROR THEN
10199: x_return_status := FND_API.G_RET_STS_ERROR;
10200: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10194: WHEN loc_update_not_alwd_exp THEN
10195: FND_MESSAGE.SET_Name('CS','CS_SR_LOC_UPD_NOT_ALLWD');
10196: FND_MSG_PUB.ADD;
10197: x_return_status := FND_API.G_RET_STS_ERROR;
10198: WHEN FND_API.G_EXC_ERROR THEN
10199: x_return_status := FND_API.G_RET_STS_ERROR;
10200: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10202: WHEN OTHERS THEN
10195: FND_MESSAGE.SET_Name('CS','CS_SR_LOC_UPD_NOT_ALLWD');
10196: FND_MSG_PUB.ADD;
10197: x_return_status := FND_API.G_RET_STS_ERROR;
10198: WHEN FND_API.G_EXC_ERROR THEN
10199: x_return_status := FND_API.G_RET_STS_ERROR;
10200: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10202: WHEN OTHERS THEN
10203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10196: FND_MSG_PUB.ADD;
10197: x_return_status := FND_API.G_RET_STS_ERROR;
10198: WHEN FND_API.G_EXC_ERROR THEN
10199: x_return_status := FND_API.G_RET_STS_ERROR;
10200: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10202: WHEN OTHERS THEN
10203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10204: END Verify_LocUpdate_For_FSTasks;
10197: x_return_status := FND_API.G_RET_STS_ERROR;
10198: WHEN FND_API.G_EXC_ERROR THEN
10199: x_return_status := FND_API.G_RET_STS_ERROR;
10200: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10202: WHEN OTHERS THEN
10203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10204: END Verify_LocUpdate_For_FSTasks;
10205:
10199: x_return_status := FND_API.G_RET_STS_ERROR;
10200: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10202: WHEN OTHERS THEN
10203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10204: END Verify_LocUpdate_For_FSTasks;
10205:
10206:
10207: -- -------------------------------------------------------------------
10236: IS
10237: l_error_message VARCHAR2(2000);
10238: BEGIN
10239: -- Initialize API return status to success
10240: p_return_status := FND_API.G_RET_STS_SUCCESS;
10241:
10242: IF ( p_ext_desc_context || p_ext_desc_segment1 || p_ext_desc_segment2 ||
10243: p_ext_desc_segment3 || p_ext_desc_segment4 || p_ext_desc_segment5 ||
10244: p_ext_desc_segment6 || p_ext_desc_segment7 || p_ext_desc_segment8 ||
10271: resp_id => p_resp_id
10272: ) THEN
10273: l_error_message := FND_FLEX_DESCVAL.Error_Message;
10274: CS_ServiceRequest_UTIL.Add_Desc_Flex_Msg(p_api_name, l_error_message);
10275: p_return_status := FND_API.G_RET_STS_ERROR;
10276: END IF;
10277: END IF;
10278:
10279: END Validate_External_Desc_Flex;
10306: AND revision_id = p_platform_Version_id ;
10307:
10308: BEGIN
10309: -- Initialize the return status.
10310: x_return_status := FND_API.G_RET_STS_SUCCESS;
10311:
10312: IF p_platform_id IS NOT NULL THEN
10313: -- Check if the platform is serial number controlled
10314:
10324: FETCH get_version_id INTO l_platform_Version_id;
10325: CLOSE get_version_id;
10326:
10327: IF l_platform_Version_id IS NOT NULL THEN
10328: x_return_status := FND_API.G_RET_STS_SUCCESS;
10329: ELSE
10330: RAISE invld_platform_version_id_excp;
10331: END IF;
10332: END IF;
10333: END IF;
10334:
10335: EXCEPTION
10336: WHEN invld_platform_version_id_excp THEN
10337: x_return_status := FND_API.G_RET_STS_ERROR;
10338: Add_Invalid_Argument_Msg
10339: (p_token_an => l_api_name_full,
10340: p_token_v => TO_CHAR(p_platform_version_id),
10341: p_token_p => p_parameter_name ,
10345: WHEN OTHERS THEN
10346: fnd_message.set_name ('CS', 'CS_API_SR_UNKNOWN_ERROR');
10347: fnd_message.set_token ('P_TEXT',l_api_name_full||'-'||SQLERRM);
10348: fnd_msg_pub.ADD;
10349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10350:
10351: END Validate_Platform_Version_Id;
10352:
10353: FUNCTION BOOLEAN_TO_NUMBER (