[Home] [Help]
488: --enable_debug;
489:
490: -- Debug info.
491: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
492: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'validate_cust_account (+)',
493: p_msg_level=>fnd_log.level_procedure);
494: END IF;
495:
496:
521: --------------------------------------
522: -- validate cust_account_id
523: --------------------------------------
524: /****Logical APIs - validation not required****/
525: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
526: IF p_create_update_flag = 'C' THEN
527:
528: -- If primary key value is passed, check for uniqueness.
529: -- If primary key value is not passed, it will be generated
546: NULL;
547: END;
548:
549: /*IF G_DEBUG THEN
550: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
551: 'cust_account_id is unique during creation if passed in. ' ||
552: 'x_return_status = ' || x_return_status, l_debug_prefix );
553: END IF;
554: */
552: 'x_return_status = ' || x_return_status, l_debug_prefix );
553: END IF;
554: */
555: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
556: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
557: p_message=>'cust_account_id is unique during creation if passed in. ' ||
558: 'x_return_status = ' || x_return_status,
559: p_msg_level=>fnd_log.level_statement);
560: END IF;
563:
564: END IF;
565:
566: /*IF G_DEBUG THEN
567: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
568: '(+) after validate cust_account_id ... ' ||
569: 'x_return_status = ' || x_return_status, l_debug_prefix );
570: END IF;
571: */
569: 'x_return_status = ' || x_return_status, l_debug_prefix );
570: END IF;
571: */
572: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
573: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate cust_account_id ... ' ||
574: 'x_return_status = ' || x_return_status,
575: p_msg_level=>fnd_log.level_statement);
576: END IF;
577: END IF;
595: x_return_status := FND_API.G_RET_STS_ERROR;
596: END ;
597:
598: /* IF G_DEBUG THEN
599: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
600: 'account_number autonumbering is ' || NVL( l_profile, 'N' ),
601: l_debug_prefix );
602: END IF;
603: */
601: l_debug_prefix );
602: END IF;
603: */
604: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
605: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'account_number autonumbering is ' || NVL( l_profile, 'N' ),
606: p_msg_level=>fnd_log.level_statement);
607: END IF;
608:
609: IF p_create_update_flag = 'C' THEN
623:
624: -- the account_number will be generated from sequence by table handler.
625:
626: /*IF G_DEBUG THEN
627: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
628: 'account_number cannot be passed in if autonumbering is on. ' ||
629: 'x_return_status = ' || x_return_status, l_debug_prefix );
630: END IF;
631: */
629: 'x_return_status = ' || x_return_status, l_debug_prefix );
630: END IF;
631: */
632: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
633: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
634: p_message=>'account_number cannot be passed in if autonumbering is on. ' ||
635: 'x_return_status = ' || x_return_status,
636: p_msg_level=>fnd_log.level_statement);
637: END IF;
647: x_return_status := FND_API.G_RET_STS_ERROR;
648: END IF;
649:
650: /*IF G_DEBUG THEN
651: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
652: 'account_number is mandatory if autonumbering is off. ' ||
653: 'x_return_status = ' || x_return_status, l_debug_prefix );
654: END IF;
655: */
653: 'x_return_status = ' || x_return_status, l_debug_prefix );
654: END IF;
655: */
656: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
657: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'account_number is mandatory if autonumbering is off. ' ||
658: 'x_return_status = ' || x_return_status,
659: p_msg_level=>fnd_log.level_statement);
660: END IF;
661:
668: p_column_value => p_cust_account_rec.account_number,
669: x_return_status => x_return_status );
670:
671: /*IF G_DEBUG THEN
672: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
673: 'account_number cannot be updated to null. ' ||
674: 'x_return_status = ' || x_return_status, l_debug_prefix );
675: END IF;
676: */
674: 'x_return_status = ' || x_return_status, l_debug_prefix );
675: END IF;
676: */
677: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
678: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'account_number cannot be updated to null. ' ||
679: 'x_return_status = ' || x_return_status,
680: p_msg_level=>fnd_log.level_statement);
681: END IF;
682:
698: p_old_column_value => l_account_number,
699: x_return_status => x_return_status );
700:
701: /*IF G_DEBUG THEN
702: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
703: 'account_number is non-updateable. ' ||
704: 'x_return_status = ' || x_return_status, l_debug_prefix );
705: END IF;
706: */
704: 'x_return_status = ' || x_return_status, l_debug_prefix );
705: END IF;
706: */
707: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
708: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'account_number is non-updateable. ' ||
709: 'x_return_status = ' || x_return_status,
710: p_msg_level=>fnd_log.level_statement);
711: END IF;
712:
738: NULL;
739: END;
740:
741: /*IF G_DEBUG THEN
742: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
743: 'account_number is unique. ' ||
744: 'x_return_status = ' || x_return_status, l_debug_prefix );
745: END IF;
746: */
744: 'x_return_status = ' || x_return_status, l_debug_prefix );
745: END IF;
746: */
747: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
748: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'account_number is unique. ' ||
749: 'x_return_status = ' || x_return_status,
750: p_msg_level=>fnd_log.level_statement);
751: END IF;
752:
755:
756:
757:
758: /*IF G_DEBUG THEN
759: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
760: '(+) after validate account_number ... ' ||
761: 'x_return_status = ' || x_return_status, l_debug_prefix );
762: END IF;
763: */
762: END IF;
763: */
764:
765: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
766: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate account_number ... ' ||
767: 'x_return_status = ' || x_return_status,
768: p_msg_level=>fnd_log.level_statement);
769: END IF;
770:
772: --------------------------------------
773: -- validate orig_system_reference
774: --------------------------------------
775: /****Logical APIs - validation not required****/
776: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
777: -- orig_system_reference is unique. Since orig_system_refence is defaulting to
778: -- primary key, we only need to check the uniqueness if user passes some value.
779: -- database constraints can catch unique error when we defaulting.
780: -- orig_system_reference is non-updateable, we only need to check uniqueness
798: NULL;
799: END;
800:
801: /*IF G_DEBUG THEN
802: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
803: 'orig_system_reference is unique. ' ||
804: 'x_return_status = ' || x_return_status, l_debug_prefix );
805: END IF;
806: */
804: 'x_return_status = ' || x_return_status, l_debug_prefix );
805: END IF;
806: */
807: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
808: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'orig_system_reference is unique. ' ||
809: 'x_return_status = ' || x_return_status,
810: p_msg_level=>fnd_log.level_statement);
811: END IF;
812:
862: p_old_column_value => l_orig_system_reference,
863: x_return_status => x_return_status );
864:
865: /*IF G_DEBUG THEN
866: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
867: 'orig_system_reference is non-updateable. ' ||
868: 'x_return_status = ' || x_return_status, l_debug_prefix );
869: END IF;
870: */
868: 'x_return_status = ' || x_return_status, l_debug_prefix );
869: END IF;
870: */
871: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
872: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'orig_system_reference is non-updateable. ' ||
873: 'x_return_status = ' || x_return_status,
874: p_msg_level=>fnd_log.level_statement);
875: END IF;
876:
876:
877: END IF;
878:
879: /*IF G_DEBUG THEN
880: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
881: '(+) after validate orig_system_reference ... ' ||
882: 'x_return_status = ' || x_return_status, l_debug_prefix );
883: END IF;
884: */
882: 'x_return_status = ' || x_return_status, l_debug_prefix );
883: END IF;
884: */
885: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
886: hz_utility_v2pub.debug(p_message=>'(+) after validate orig_system_reference ... ' ||
887: 'x_return_status = ' || x_return_status,
888: p_prefix =>l_debug_prefix,
889: p_msg_level=>fnd_log.level_statement);
890: END IF;
905: p_column_value => p_cust_account_rec.status,
906: x_return_status => x_return_status );
907:
908: /*IF G_DEBUG THEN
909: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
910: 'status cannot be updated to null. ' ||
911: 'x_return_status = ' || x_return_status, l_debug_prefix );
912: END IF;
913: */
911: 'x_return_status = ' || x_return_status, l_debug_prefix );
912: END IF;
913: */
914: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
915: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'status cannot be updated to null. ' ||
916: 'x_return_status = ' || x_return_status,
917: p_msg_level=>fnd_log.level_statement);
918: END IF;
919:
919:
920: END IF;
921:
922: /****Logical APIs - validation not required****/
923: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
924: -- status is lookup code in lookup type CODE_STATUS
925: IF p_cust_account_rec.status IS NOT NULL AND
926: p_cust_account_rec.status <> FND_API.G_MISS_CHAR AND
927: ( p_create_update_flag = 'C' OR
934: p_column_value => p_cust_account_rec.status,
935: x_return_status => x_return_status );
936:
937: /*IF G_DEBUG THEN
938: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
939: 'status is lookup code in lookup type CODE_STATUS. ' ||
940: 'x_return_status = ' || x_return_status, l_debug_prefix );
941: END IF;
942: */
941: END IF;
942: */
943:
944: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
945: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'status is lookup code in lookup type CODE_STATUS. ' ||
946: 'x_return_status = ' || x_return_status,
947: p_msg_level=>fnd_log.level_statement);
948: END IF;
949:
950: END IF;
951: END IF;
952:
953: /*IF G_DEBUG THEN
954: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
955: '(+) after validate status ... ' ||
956: 'x_return_status = ' || x_return_status, l_debug_prefix );
957: END IF;
958: */
957: END IF;
958: */
959:
960: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
961: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate status ... ' ||
962: 'x_return_status = ' || x_return_status,
963: p_msg_level=>fnd_log.level_statement);
964: END IF;
965:
981: p_column_value => p_cust_account_rec.customer_type,
982: x_return_status => x_return_status );
983:
984: /*IF G_DEBUG THEN
985: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
986: 'customer_type is lookup code in lookup type CUSTOMER_TYPE. ' ||
987: 'x_return_status = ' || x_return_status, l_debug_prefix );
988: END IF;
989: */
987: 'x_return_status = ' || x_return_status, l_debug_prefix );
988: END IF;
989: */
990: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
991: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'customer_type is lookup code in lookup type CUSTOMER_TYPE. ' ||
992: 'x_return_status = ' || x_return_status,
993: p_msg_level=>fnd_log.level_statement);
994: END IF;
995:
995:
996: END IF;
997:
998: /*IF G_DEBUG THEN
999: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1000: '(+) after validate customer_type ... ' ||
1001: 'x_return_status = ' || x_return_status, l_debug_prefix );
1002: END IF;
1003: */
1001: 'x_return_status = ' || x_return_status, l_debug_prefix );
1002: END IF;
1003: */
1004: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1005: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate customer_type ... ' ||
1006: 'x_return_status = ' || x_return_status,
1007: p_msg_level=>fnd_log.level_statement);
1008: END IF;
1009:
1026: p_column_value => p_cust_account_rec.sales_channel_code,
1027: x_return_status => x_return_status );
1028:
1029: /*IF G_DEBUG THEN
1030: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1031: 'sales_channel_code is lookup code in lookup type SALES_CHANNEL in so_lookups. ' ||
1032: 'x_return_status = ' || x_return_status, l_debug_prefix );
1033: END IF;
1034: */
1032: 'x_return_status = ' || x_return_status, l_debug_prefix );
1033: END IF;
1034: */
1035: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1036: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'sales_channel_code is lookup code in lookup type SALES_CHANNEL in so_lookups. ' ||
1037: 'x_return_status = ' || x_return_status,
1038: p_msg_level=>fnd_log.level_statement);
1039: END IF;
1040:
1040:
1041: END IF;
1042:
1043: /*IF G_DEBUG THEN
1044: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1045: '(+) after validate sales_channel_code ... ' ||
1046: 'x_return_status = ' || x_return_status, l_debug_prefix );
1047: END IF;
1048: */
1046: 'x_return_status = ' || x_return_status, l_debug_prefix );
1047: END IF;
1048: */
1049: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1050: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate sales_channel_code ... ' ||
1051: 'x_return_status = ' || x_return_status,
1052: p_msg_level=>fnd_log.level_statement);
1053: END IF;
1054:
1071: p_column_value => p_cust_account_rec.freight_term,
1072: x_return_status => x_return_status );
1073:
1074: /*IF G_DEBUG THEN
1075: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1076: 'freight_term is lookup code in lookup type FREIGHT_TERMS in so_lookups. ' ||
1077: 'x_return_status = ' || x_return_status, l_debug_prefix );
1078: END IF;
1079: */
1077: 'x_return_status = ' || x_return_status, l_debug_prefix );
1078: END IF;
1079: */
1080: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1081: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'freight_term is lookup code in lookup type FREIGHT_TERMS in so_lookups. ' ||
1082: 'x_return_status = ' || x_return_status,
1083: p_msg_level=>fnd_log.level_statement);
1084: END IF;
1085:
1086:
1087: END IF;
1088:
1089: /*IF G_DEBUG THEN
1090: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1091: '(+) after validate freight_term ... ' ||
1092: 'x_return_status = ' || x_return_status, l_debug_prefix );
1093: END IF;
1094: */
1092: 'x_return_status = ' || x_return_status, l_debug_prefix );
1093: END IF;
1094: */
1095: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1096: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate freight_term ... ' ||
1097: 'x_return_status = ' || x_return_status,
1098: p_msg_level=>fnd_log.level_statement);
1099: END IF;
1100:
1102: --------------------------------------
1103: -- validate tax_header_level_flag
1104: --------------------------------------
1105: /****Logical APIs - validation not required****/
1106: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
1107: -- tax_header_level_flag is lookup code in lookup type YES/NO
1108: IF p_cust_account_rec.tax_header_level_flag IS NOT NULL AND
1109: p_cust_account_rec.tax_header_level_flag <> FND_API.G_MISS_CHAR
1110: THEN
1114: p_column_value => p_cust_account_rec.tax_header_level_flag,
1115: x_return_status => x_return_status );
1116:
1117: /*IF G_DEBUG THEN
1118: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1119: 'tax_header_level_flag is lookup code in lookup type YES/NO. ' ||
1120: 'x_return_status = ' || x_return_status, l_debug_prefix );
1121: END IF;
1122: */
1121: END IF;
1122: */
1123:
1124: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1125: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'tax_header_level_flag is lookup code in lookup type YES/NO. ' ||
1126: 'x_return_status = ' || x_return_status,
1127: p_msg_level=>fnd_log.level_statement);
1128: END IF;
1129:
1129:
1130: END IF;
1131:
1132: /*IF G_DEBUG THEN
1133: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1134: '(+) after validate tax_header_level_flag ... ' ||
1135: 'x_return_status = ' || x_return_status, l_debug_prefix );
1136: END IF;
1137: */
1135: 'x_return_status = ' || x_return_status, l_debug_prefix );
1136: END IF;
1137: */
1138: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1139: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate tax_header_level_flag ... ' ||
1140: 'x_return_status = ' || x_return_status,
1141: p_msg_level=>fnd_log.level_statement);
1142: END IF;
1143: END IF;
1171: p_called_from => 'validate_cust_account',
1172: x_return_status => x_return_status );
1173:
1174: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1175: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'Tax_code should be a valid value defined in view zx_output_classifications_v. '||
1176: 'x_return_status = ' || x_return_status,
1177: p_msg_level=>fnd_log.level_statement);
1178: END IF;
1179:
1178: END IF;
1179:
1180: END IF;
1181: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1182: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate tax_code..' ||
1183: 'x_return_status = ' || x_return_status,
1184: p_msg_level=>fnd_log.level_statement);
1185: END IF;
1186:
1215: | p_column_value => p_cust_account_rec.order_type_id,
1216: | x_return_status => x_return_status );
1217: |
1218: | /*IF G_DEBUG THEN
1219: | hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1220: | 'order_type_id should be a valid value defined in OE_ORDER_TYPES_V..' ||
1221: | 'x_return_status = ' || x_return_status, l_debug_prefix);
1222: | END IF;
1223: | *//*
1221: | 'x_return_status = ' || x_return_status, l_debug_prefix);
1222: | END IF;
1223: | *//*
1224: | IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1225: | | hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'order_type_id should be a valid value defined in OE_ORDER_TYPES_V..' ||
1226: | 'x_return_status = ' || x_return_status,
1227: | p_msg_level=>fnd_log.level_statement);
1228: | END IF;
1229: |
1228: | END IF;
1229: |
1230: | END IF;
1231: | /*IF G_DEBUG THEN
1232: | hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1233: | '(+) after validate order_type_id..' ||
1234: | 'x_return_status = ' || x_return_status, l_debug_prefix );
1235: | END IF;
1236: | *//*
1234: | 'x_return_status = ' || x_return_status, l_debug_prefix );
1235: | END IF;
1236: | *//*
1237: | IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1238: | hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate order_type_id..' ||
1239: | 'x_return_status = ' || x_return_status,
1240: | p_msg_level=>fnd_log.level_statement);
1241: | END IF;
1242: */
1270: | p_column_value => p_cust_account_rec.primary_salesrep_id,
1271: | x_return_status => x_return_status );
1272: |
1273: | /*IF G_DEBUG THEN
1274: | hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1275: | 'Primary_salesrep_id should be a valid value defined in RA_SALESREPS. '||
1276: | 'x_return_status = ' || x_return_status, l_debug_prefix);
1277: | | END IF;
1278: | | *//*
1276: | 'x_return_status = ' || x_return_status, l_debug_prefix);
1277: | | END IF;
1278: | | *//*
1279: | IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1280: | hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'Primary_salesrep_id should be a valid value defined in RA_SALESREPS. '||
1281: | 'x_return_status = ' || x_return_status,
1282: | p_msg_level=>fnd_log.level_statement);
1283: | END IF;
1284: |
1283: | END IF;
1284: |
1285: | END IF;
1286: | /*IF G_DEBUG THEN
1287: | hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1288: | '(+) after validate primary_salesrep_id..' ||
1289: | 'x_return_status = ' || x_return_status, l_debug_prefix );
1290: | END IF;
1291: | *//*
1289: | 'x_return_status = ' || x_return_status, l_debug_prefix );
1290: | END IF;
1291: | *//*
1292: | IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1293: | hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate primary_salesrep_id..' ||
1294: | 'x_return_status = ' || x_return_status,
1295: | p_msg_level=>fnd_log.level_statement);
1296: | END IF;
1297: */
1315: p_column_value => p_cust_account_rec.ship_partial,
1316: x_return_status => x_return_status );
1317:
1318: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1319: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'ship_partial is a lookup code in lookup type YES/NO. ' ||
1320: 'x_return_status = ' || x_return_status,
1321: p_msg_level=>fnd_log.level_statement);
1322: END IF;
1323:
1323:
1324: END IF;
1325:
1326: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1327: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate ship_partial ... ' ||
1328: 'x_return_status = ' || x_return_status,
1329: p_msg_level=>fnd_log.level_statement);
1330: END IF;
1331:
1348: p_column_value =>p_cust_account_rec.tax_rounding_rule,
1349: x_return_status =>x_return_status );
1350:
1351: /*IF G_DEBUG THEN
1352: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1353: 'tax_rounding_rule is lookup_code in lookup type TAX_ROUNDING_RULE. '||
1354: 'x_return_status = ' || x_return_status, l_debug_prefix);
1355: END IF;
1356: */
1355: END IF;
1356: */
1357:
1358: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1359: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'tax_rounding_rule is lookup_code in lookup type TAX_ROUNDING_RULE. '||
1360: 'x_return_status = ' || x_return_status,
1361: p_msg_level=>fnd_log.level_statement);
1362: END IF;
1363:
1362: END IF;
1363:
1364: END IF;
1365: /*IF G_DEBUG THEN
1366: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1367: '(+) after validate tax_rounding_rule..' ||
1368: 'x_return_status = ' || x_return_status, l_debug_prefix );
1369: END IF;
1370: */
1368: 'x_return_status = ' || x_return_status, l_debug_prefix );
1369: END IF;
1370: */
1371: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1372: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate tax_rounding_rule..' ||
1373: 'x_return_status = ' || x_return_status,
1374: p_msg_level=>fnd_log.level_statement);
1375: END IF;
1376:
1391: p_lookup_type =>'CUSTOMER CLASS',
1392: p_column_value =>p_cust_account_rec.customer_class_code,
1393: x_return_status =>x_return_status );
1394: /*IF G_DEBUG THEN
1395: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1396: 'Customer_class_code is lookup_code in lookup type CUSTOMER_CLASS. '||
1397: 'x_return_status = ' || x_return_status, l_debug_prefix);
1398: END IF;
1399: */
1397: 'x_return_status = ' || x_return_status, l_debug_prefix);
1398: END IF;
1399: */
1400: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1401: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'Customer_class_code is lookup_code in lookup type CUSTOMER_CLASS. '||
1402: 'x_return_status = ' || x_return_status,
1403: p_msg_level=>fnd_log.level_statement);
1404: END IF;
1405:
1404: END IF;
1405:
1406: END IF;
1407: /*IF G_DEBUG THEN
1408: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1409: '(+) after validate CUSTOMER_CLASS_CODE..' ||
1410: 'x_return_status = ' || x_return_status, l_debug_prefix );
1411: END IF;
1412: */
1410: 'x_return_status = ' || x_return_status, l_debug_prefix );
1411: END IF;
1412: */
1413: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1414: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate CUSTOMER_CLASS_CODE..' ||
1415: 'x_return_status = ' || x_return_status,
1416: p_msg_level=>fnd_log.level_statement);
1417: END IF;
1418:
1435: p_column_value =>p_cust_account_rec.invoice_quantity_rule,
1436: x_return_status =>x_return_status );
1437:
1438: /*IF G_DEBUG THEN
1439: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1440: 'Invoice_quantity_rule is lookup_code in lookup type INVOICE_BASIS. '||
1441: 'x_return_status = ' || x_return_status, l_debug_prefix);
1442: END IF;
1443: */
1441: 'x_return_status = ' || x_return_status, l_debug_prefix);
1442: END IF;
1443: */
1444: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1445: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=> 'Invoice_quantity_rule is lookup_code in lookup type INVOICE_BASIS. '||
1446: 'x_return_status = ' || x_return_status,
1447: p_msg_level=>fnd_log.level_statement);
1448: END IF;
1449:
1448: END IF;
1449:
1450: END IF;
1451: /*IF G_DEBUG THEN
1452: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1453: '(+) after validate invoice_quantity_rule..' ||
1454: 'x_return_status = ' || x_return_status, l_debug_prefix );
1455: END IF;
1456: */
1455: END IF;
1456: */
1457:
1458: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1459: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate invoice_quantity_rule..' ||
1460: 'x_return_status = ' || x_return_status,
1461: p_msg_level=>fnd_log.level_statement);
1462: END IF;
1463:
1477: p_column => 'price_list_id',
1478: p_column_value => p_cust_account_rec.price_list_id,
1479: x_return_status => x_return_status );
1480: /*IF G_DEBUG THEN
1481: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1482: 'price_list_id should be a valid value defined in SO_PRICE_LISTS. '||
1483: 'x_return_status = ' || x_return_status, l_debug_prefix);
1484: END IF;
1485: */
1483: 'x_return_status = ' || x_return_status, l_debug_prefix);
1484: END IF;
1485: */
1486: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1487: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'price_list_id should be a valid value defined in SO_PRICE_LISTS. '||
1488: 'x_return_status = ' || x_return_status,
1489: p_msg_level=>fnd_log.level_statement);
1490: END IF;
1491:
1490: END IF;
1491:
1492: END IF;
1493: /*IF G_DEBUG THEN
1494: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1495: '(+) after validate price_list_id..' ||
1496: 'x_return_status = ' || x_return_status, l_debug_prefix );
1497: END IF;
1498: */
1496: 'x_return_status = ' || x_return_status, l_debug_prefix );
1497: END IF;
1498: */
1499: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1500: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate price_list_id..' ||
1501: 'x_return_status = ' || x_return_status,
1502: p_msg_level=>fnd_log.level_statement);
1503: END IF;
1504:
1520: p_column_value =>p_cust_account_rec.fob_point,
1521: x_return_status =>x_return_status );
1522:
1523: /*IF G_DEBUG THEN
1524: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1525: 'fob_point is lookup_code in lookup type FOB. '||
1526: 'x_return_status = ' || x_return_status, l_debug_prefix);
1527: END IF;
1528: */
1526: 'x_return_status = ' || x_return_status, l_debug_prefix);
1527: END IF;
1528: */
1529: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1530: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'fob_point is lookup_code in lookup type FOB. '||
1531: 'x_return_status = ' || x_return_status,
1532: p_msg_level=>fnd_log.level_statement);
1533: END IF;
1534:
1534:
1535:
1536: END IF;
1537: /*IF G_DEBUG THEN
1538: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1539: '(+) after validate fob_point..' ||
1540: 'x_return_status = ' || x_return_status, l_debug_prefix );
1541: END IF;
1542: */
1540: 'x_return_status = ' || x_return_status, l_debug_prefix );
1541: END IF;
1542: */
1543: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1544: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate fob_point..' ||
1545: 'x_return_status = ' || x_return_status,
1546: p_msg_level=>fnd_log.level_statement);
1547: END IF;
1548:
1564: p_column_value => p_cust_account_rec.item_cross_ref_pref,
1565: x_return_status => x_return_status );
1566:
1567: /*IF G_DEBUG THEN
1568: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1569: 'item_cross_ref_pref should be a value defined in MTL_CROSS_REFERENCE_TYPES or should be INT or CUST . '||
1570: 'x_return_status = ' || x_return_status, l_debug_prefix);
1571: END IF;
1572: */
1570: 'x_return_status = ' || x_return_status, l_debug_prefix);
1571: END IF;
1572: */
1573: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1574: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'item_cross_ref_pref should be a value defined in MTL_CROSS_REFERENCE_TYPES or should be INT or CUST . '||
1575: 'x_return_status = ' || x_return_status,
1576: p_msg_level=>fnd_log.level_statement);
1577: END IF;
1578:
1578:
1579: END IF;
1580: END IF;
1581: /*IF G_DEBUG THEN
1582: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1583: '(+) after validate item_cross_ref_pref..' ||
1584: 'x_return_status = ' || x_return_status, l_debug_prefix );
1585: END IF;
1586: */
1584: 'x_return_status = ' || x_return_status, l_debug_prefix );
1585: END IF;
1586: */
1587: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1588: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate item_cross_ref_pref..' ||
1589: 'x_return_status = ' || x_return_status,
1590: p_msg_level=>fnd_log.level_statement);
1591: END IF;
1592:
1606: p_column => 'warehouse_id',
1607: p_column_value => p_cust_account_rec.warehouse_id,
1608: x_return_status => x_return_status );
1609: /*IF G_DEBUG THEN
1610: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1611: 'warehouse_id should be a value defined in ORG_ORGANIZATION_DEFINITIONS . '||
1612: 'x_return_status = ' || x_return_status, l_debug_prefix);
1613: END IF;
1614: */
1613: END IF;
1614: */
1615:
1616: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1617: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'warehouse_id should be a value defined in ORG_ORGANIZATION_DEFINITIONS . '||
1618: 'x_return_status = ' || x_return_status,
1619: p_msg_level=>fnd_log.level_statement);
1620: END IF;
1621:
1620: END IF;
1621:
1622: END IF;
1623: /*IF G_DEBUG THEN
1624: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1625: '(+) after validate warehouse_id..' ||
1626: 'x_return_status = ' || x_return_status, l_debug_prefix );
1627: END IF;
1628: */
1627: END IF;
1628: */
1629:
1630: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1631: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate warehouse_id..' ||
1632: 'x_return_status = ' || x_return_status,
1633: p_msg_level=>fnd_log.level_statement);
1634: END IF;
1635:
1651: p_lookup_type =>'REQUEST_DATE_TYPE',
1652: p_column_value =>p_cust_account_rec.date_type_preference,
1653: x_return_status =>x_return_status );
1654: /*IF G_DEBUG THEN
1655: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1656: 'date_type_preference is a lookup_code in lookup_type REQUEST_DATE_TYPE in oe_lookups. '||
1657: 'x_return_status = ' || x_return_status, l_debug_prefix);
1658: END IF;
1659: */
1657: 'x_return_status = ' || x_return_status, l_debug_prefix);
1658: END IF;
1659: */
1660: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1661: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'date_type_preference is a lookup_code in lookup_type REQUEST_DATE_TYPE in oe_lookups. '||
1662: 'x_return_status = ' || x_return_status,
1663: p_msg_level=>fnd_log.level_statement);
1664: END IF;
1665:
1664: END IF;
1665:
1666: END IF;
1667: /*IF G_DEBUG THEN
1668: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1669: '(+) after validate date_type_preference..' ||
1670: 'x_return_status = ' || x_return_status, l_debug_prefix );
1671: END IF;
1672: */
1670: 'x_return_status = ' || x_return_status, l_debug_prefix );
1671: END IF;
1672: */
1673: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1674: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate date_type_preference..' ||
1675: 'x_return_status = ' || x_return_status,
1676: p_msg_level=>fnd_log.level_statement);
1677: END IF;
1678:
1690: p_column_value => p_cust_account_rec.primary_specialist_id,
1691: x_return_status => x_return_status );
1692:
1693: /*IF G_DEBUG THEN
1694: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1695: 'primary_specialist_id is foreign key to per_all_people_f. ' ||
1696: 'x_return_status = ' || x_return_status, l_debug_prefix );
1697: END IF;
1698: */
1696: 'x_return_status = ' || x_return_status, l_debug_prefix );
1697: END IF;
1698: */
1699: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1700: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'primary_specialist_id is foreign key to per_all_people_f. ' ||
1701: 'x_return_status = ' || x_return_status,
1702: p_msg_level=>fnd_log.level_statement);
1703: END IF;
1704:
1705:
1706: END IF;
1707:
1708: /*IF G_DEBUG THEN
1709: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1710: '(+) after validate primary_specialist_id ... ' ||
1711: 'x_return_status = ' || x_return_status, l_debug_prefix );
1712: END IF;
1713: */
1711: 'x_return_status = ' || x_return_status, l_debug_prefix );
1712: END IF;
1713: */
1714: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1715: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate primary_specialist_id ... ' ||
1716: 'x_return_status = ' || x_return_status,
1717: p_msg_level=>fnd_log.level_statement);
1718: END IF;
1719:
1731: p_column_value => p_cust_account_rec.secondary_specialist_id,
1732: x_return_status => x_return_status );
1733:
1734: /*IF G_DEBUG THEN
1735: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1736: 'secondary_specialist_id is foreign key to per_all_people_f. ' ||
1737: 'x_return_status = ' || x_return_status, l_debug_prefix );
1738: END IF;
1739: */
1737: 'x_return_status = ' || x_return_status, l_debug_prefix );
1738: END IF;
1739: */
1740: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1741: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'secondary_specialist_id is foreign key to per_all_people_f. ' ||
1742: 'x_return_status = ' || x_return_status,
1743: p_msg_level=>fnd_log.level_statement);
1744: END IF;
1745:
1745:
1746: END IF;
1747:
1748: /*IF G_DEBUG THEN
1749: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1750: '(+) after validate secondary_specialist_id ... ' ||
1751: 'x_return_status = ' || x_return_status, l_debug_prefix );
1752: END IF;
1753: */
1751: 'x_return_status = ' || x_return_status, l_debug_prefix );
1752: END IF;
1753: */
1754: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1755: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate secondary_specialist_id ... ' ||
1756: 'x_return_status = ' || x_return_status,
1757: p_msg_level=>fnd_log.level_statement);
1758: END IF;
1759:
1761:
1762: --------------------------------------
1763: -- validate account_liable_flag
1764: --------------------------------------
1765: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
1766: -- account_liable_flag is lookup code in lookup type YES/NO
1767: IF p_cust_account_rec.account_liable_flag IS NOT NULL AND
1768: p_cust_account_rec.account_liable_flag <> FND_API.G_MISS_CHAR
1769: THEN
1773: p_column_value => p_cust_account_rec.account_liable_flag,
1774: x_return_status => x_return_status );
1775:
1776: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1777: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'account_liable_flag is lookup code in lookup type YES/NO. ' ||
1778: 'x_return_status = ' || x_return_status,
1779: p_msg_level=>fnd_log.level_statement);
1780: END IF;
1781:
1781:
1782: END IF;
1783:
1784: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1785: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate account_liable_flag ... ' ||
1786: 'x_return_status = ' || x_return_status,
1787: p_msg_level=>fnd_log.level_statement);
1788: END IF;
1789: END IF;
1792: --------------------------------------
1793: -- validate hold_bill_flag
1794: --------------------------------------
1795: /****Logical APIs - validation not required****/
1796: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
1797: -- hold_bill_flag is lookup code in lookup type YES/NO
1798: IF p_cust_account_rec.hold_bill_flag IS NOT NULL AND
1799: p_cust_account_rec.hold_bill_flag <> FND_API.G_MISS_CHAR
1800: THEN
1804: p_column_value => p_cust_account_rec.hold_bill_flag,
1805: x_return_status => x_return_status );
1806:
1807: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1808: hz_utility_v2pub.debug(p_message=>'hold_bill_flag is lookup code in lookup type YES/NO. ' ||
1809: 'x_return_status = ' || x_return_status,
1810: p_prefix=>l_debug_prefix,
1811: p_msg_level=>fnd_log.level_statement);
1812: END IF;
1813:
1814: END IF;
1815:
1816: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1817: hz_utility_v2pub.debug(p_message=>'(+) after validate hold_bill_flag ... ' ||
1818: 'x_return_status = ' || x_return_status,
1819: p_prefix=>l_debug_prefix,
1820: p_msg_level=>fnd_log.level_statement);
1821: END IF;
1825:
1826: --------------------------------------
1827: -- validate dormant_account_flag
1828: --------------------------------------
1829: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
1830: -- dormant_account_flag is lookup code in lookup type YES/NO
1831: IF p_cust_account_rec.dormant_account_flag IS NOT NULL AND
1832: p_cust_account_rec.dormant_account_flag <> FND_API.G_MISS_CHAR
1833: THEN
1837: p_column_value => p_cust_account_rec.dormant_account_flag,
1838: x_return_status => x_return_status );
1839:
1840: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1841: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'dormant_account_flag is lookup code in lookup type YES/NO. ' ||
1842: 'x_return_status = ' || x_return_status,
1843: p_msg_level=>fnd_log.level_statement);
1844: END IF;
1845:
1845:
1846: END IF;
1847:
1848: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1849: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate dormant_account_flag ... ' ||
1850: 'x_return_status = ' || x_return_status,
1851: p_msg_level=>fnd_log.level_statement);
1852: END IF;
1853: END IF;
1856: --------------------------------------
1857: -- validate ship_sets_include_lines_flag
1858: --------------------------------------
1859: /****Logical APIs - validation not required****/
1860: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
1861: -- ship_sets_include_lines_flag is lookup code in lookup type YES/NO
1862: IF p_cust_account_rec.ship_sets_include_lines_flag IS NOT NULL AND
1863: p_cust_account_rec.ship_sets_include_lines_flag <> FND_API.G_MISS_CHAR
1864: AND ( p_create_update_flag = 'C' OR
1871: p_column_value => p_cust_account_rec.ship_sets_include_lines_flag,
1872: x_return_status => x_return_status );
1873:
1874: /*IF G_DEBUG THEN
1875: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1876: 'ship_sets_include_lines_flag is lookup code in lookup type YES/NO. ' ||
1877: 'x_return_status = ' || x_return_status, l_debug_prefix );
1878: END IF;
1879: */
1877: 'x_return_status = ' || x_return_status, l_debug_prefix );
1878: END IF;
1879: */
1880: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1881: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'ship_sets_include_lines_flag is lookup code in lookup type YES/NO. ' ||
1882: 'x_return_status = ' || x_return_status,
1883: p_msg_level=>fnd_log.level_statement);
1884: END IF;
1885:
1914: END ;
1915: END IF;
1916: END IF;
1917: /*IF G_DEBUG THEN
1918: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1919: 'If ship_sets_include_lines_flag is set to Y then arrivalsets_include_lines_flag is always set to N. '||
1920: 'x_return_status = ' || x_return_status, l_debug_prefix);
1921: END IF;
1922: */
1920: 'x_return_status = ' || x_return_status, l_debug_prefix);
1921: END IF;
1922: */
1923: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1924: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'If ship_sets_include_lines_flag is set to Y then arrivalsets_include_lines_flag is always set to N. '||
1925: 'x_return_status = ' || x_return_status,
1926: p_msg_level=>fnd_log.level_statement);
1927: END IF;
1928:
1928:
1929:
1930:
1931: /*IF G_DEBUG THEN
1932: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1933: '(+) after validate arrivalsets_include_lines_flag ... ' ||
1934: 'x_return_status = ' || x_return_status, l_debug_prefix );
1935: END IF;
1936: */
1934: 'x_return_status = ' || x_return_status, l_debug_prefix );
1935: END IF;
1936: */
1937: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1938: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate arrivalsets_include_lines_flag ... ' ||
1939: 'x_return_status = ' || x_return_status,
1940: p_msg_level=>fnd_log.level_statement);
1941: END IF;
1942:
1944: --------------------------------------
1945: -- validate arrivalsets_include_lines_flag
1946: --------------------------------------
1947: /****Logical APIs - validation not required****/
1948: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
1949: -- arrivalsets_include_lines_flag is lookup code in lookup type YES/NO
1950: IF p_cust_account_rec.arrivalsets_include_lines_flag IS NOT NULL AND
1951: p_cust_account_rec.arrivalsets_include_lines_flag <> FND_API.G_MISS_CHAR
1952: AND ( p_create_update_flag = 'C' OR
1959: p_column_value => p_cust_account_rec.arrivalsets_include_lines_flag,
1960: x_return_status => x_return_status );
1961:
1962: /*IF G_DEBUG THEN
1963: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
1964: 'arrivalsets_include_lines_flag is lookup code in lookup type YES/NO. ' ||
1965: 'x_return_status = ' || x_return_status, l_debug_prefix );
1966: END IF;
1967: */
1965: 'x_return_status = ' || x_return_status, l_debug_prefix );
1966: END IF;
1967: */
1968: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1969: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'arrivalsets_include_lines_flag is lookup code in lookup type YES/NO. ' ||
1970: 'x_return_status = ' || x_return_status,
1971: p_msg_level=>fnd_log.level_statement);
1972: END IF;
1973:
2003: END ;
2004: END IF;
2005: END IF;
2006: /*IF G_DEBUG THEN
2007: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
2008: 'If arrivalsets_include_lines_flag is set to Y then ship_sets_include_lines_flag is always set to N. ' ||
2009: 'x_return_status = ' || x_return_status, l_debug_prefix );
2010: END IF;
2011: */
2009: 'x_return_status = ' || x_return_status, l_debug_prefix );
2010: END IF;
2011: */
2012: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2013: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'If arrivalsets_include_lines_flag is set to Y then ship_sets_include_lines_flag is always set to N. ' ||
2014: 'x_return_status = ' || x_return_status,
2015: p_msg_level=>fnd_log.level_statement);
2016: END IF;
2017:
2016: END IF;
2017:
2018:
2019: /*IF G_DEBUG THEN
2020: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
2021: '(+) after validate arrivalsets_include_lines_flag ... ' ||
2022: 'x_return_status = ' || x_return_status, l_debug_prefix );
2023: END IF;
2024: */
2022: 'x_return_status = ' || x_return_status, l_debug_prefix );
2023: END IF;
2024: */
2025: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2026: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate arrivalsets_include_lines_flag ... ' ||
2027: 'x_return_status = ' || x_return_status,
2028: p_msg_level=>fnd_log.level_statement);
2029: END IF;
2030:
2032: --------------------------------------
2033: -- validate sched_date_push_flag
2034: --------------------------------------
2035: /****Logical APIs - validation not required****/
2036: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
2037: -- sched_date_push_flag is lookup code in lookup type YES/NO
2038: IF p_cust_account_rec.sched_date_push_flag IS NOT NULL AND
2039: p_cust_account_rec.sched_date_push_flag <> FND_API.G_MISS_CHAR
2040: THEN
2044: p_column_value => p_cust_account_rec.sched_date_push_flag,
2045: x_return_status => x_return_status );
2046:
2047: /*IF G_DEBUG THEN
2048: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
2049: 'sched_date_push_flag is lookup code in lookup type YES/NO. ' ||
2050: 'x_return_status = ' || x_return_status, l_debug_prefix );
2051: END IF;
2052: */
2050: 'x_return_status = ' || x_return_status, l_debug_prefix );
2051: END IF;
2052: */
2053: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2054: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'sched_date_push_flag is lookup code in lookup type YES/NO. ' ||
2055: 'x_return_status = ' || x_return_status,
2056: p_msg_level=>fnd_log.level_statement);
2057: END IF;
2058:
2058:
2059: END IF;
2060:
2061: /*IF G_DEBUG THEN
2062: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
2063: '(+) after validate sched_date_push_flag ... ' ||
2064: 'x_return_status = ' || x_return_status, l_debug_prefix );
2065: END IF;
2066: */
2064: 'x_return_status = ' || x_return_status, l_debug_prefix );
2065: END IF;
2066: */
2067: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2068: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate sched_date_push_flag ... ' ||
2069: 'x_return_status = ' || x_return_status,
2070: p_msg_level=>fnd_log.level_statement);
2071: END IF;
2072: END IF;
2090: p_old_end_date => l_account_termination_date,
2091: x_return_status => x_return_status );
2092:
2093: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2094: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'account_termination_date should be greater than account_established_date. ' ||
2095: 'x_return_status = ' || x_return_status,
2096: p_msg_level=>fnd_log.level_statement);
2097: END IF;
2098:
2111: p_old_end_date => l_account_activation_date,
2112: x_return_status => x_return_status );
2113:
2114: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2115: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'account_activation_date should be greater than account_established_date. ' ||
2116: 'x_return_status = ' || x_return_status,
2117: p_msg_level=>fnd_log.level_statement);
2118: END IF;
2119:
2133: p_old_end_date => l_account_termination_date,
2134: x_return_status => x_return_status );
2135:
2136: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2137: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'account_termination_date should be greater than account_activation_date. ' ||
2138: 'x_return_status = ' || x_return_status,
2139: p_msg_level=>fnd_log.level_statement);
2140: END IF;
2141: */
2143: --------------------------------------
2144: -- validate autopay_flag
2145: --------------------------------------
2146: /****Logical APIs - validation not required****/
2147: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
2148: -- autopay_flag is lookup code in lookup type YES/NO
2149: IF p_cust_account_rec.autopay_flag IS NOT NULL AND
2150: p_cust_account_rec.autopay_flag <> FND_API.G_MISS_CHAR
2151: THEN
2155: p_column_value => p_cust_account_rec.autopay_flag,
2156: x_return_status => x_return_status );
2157:
2158: /*IF G_DEBUG THEN
2159: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
2160: 'autopay_flag is lookup code in lookup type YES/NO. ' ||
2161: 'x_return_status = ' || x_return_status, l_debug_prefix );
2162: END IF;
2163: */
2161: 'x_return_status = ' || x_return_status, l_debug_prefix );
2162: END IF;
2163: */
2164: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2165: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'autopay_flag is lookup code in lookup type YES/NO. ' ||
2166: 'x_return_status = ' || x_return_status,
2167: p_msg_level=>fnd_log.level_statement);
2168: END IF;
2169:
2169:
2170: END IF;
2171:
2172: /*IF G_DEBUG THEN
2173: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
2174: '(+) after validate autopay_flag ... ' ||
2175: 'x_return_status = ' || x_return_status, l_debug_prefix );
2176: END IF;
2177: */
2175: 'x_return_status = ' || x_return_status, l_debug_prefix );
2176: END IF;
2177: */
2178: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2179: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate autopay_flag ... ' ||
2180: 'x_return_status = ' || x_return_status,
2181: p_msg_level=>fnd_log.level_statement);
2182: END IF;
2183: END IF;
2186:
2187: --------------------------------------
2188: -- validate notify_flag
2189: --------------------------------------
2190: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
2191: -- notify_flag is lookup code in lookup type YES/NO
2192: IF p_cust_account_rec.notify_flag IS NOT NULL AND
2193: p_cust_account_rec.notify_flag <> FND_API.G_MISS_CHAR
2194: THEN
2198: p_column_value => p_cust_account_rec.notify_flag,
2199: x_return_status => x_return_status );
2200:
2201: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2202: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'notify_flag is lookup code in lookup type YES/NO. ' ||
2203: 'x_return_status = ' || x_return_status,
2204: p_msg_level=>fnd_log.level_statement);
2205: END IF;
2206:
2206:
2207: END IF;
2208:
2209: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2210: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate notify_flag ... ' ||
2211: 'x_return_status = ' || x_return_status,
2212: p_msg_level=>fnd_log.level_statement);
2213: END IF;
2214: END IF;
2232: p_column_value => p_cust_account_rec.ship_via,
2233: x_return_status => x_return_status );
2234:
2235: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2236: hz_utility_v2pub.debug(p_message=>'ship_via is foreign key to oe_ship_methods_v and can be used only in single org case. ' ||
2237: 'x_return_status = ' || x_return_status,
2238: p_prefix=>l_debug_prefix,
2239: p_msg_level=>fnd_log.level_statement);
2240: END IF;
2241:
2242: END IF;
2243:
2244: /*IF G_DEBUG THEN
2245: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
2246: '(+) after validate ship_via ... ' ||
2247: 'x_return_status = ' || x_return_status, l_debug_prefix );
2248: END IF;
2249: */
2247: 'x_return_status = ' || x_return_status, l_debug_prefix );
2248: END IF;
2249: */
2250: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2251: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate ship_via ... ' ||
2252: 'x_return_status = ' || x_return_status,
2253: p_msg_level=>fnd_log.level_statement);
2254: END IF;
2255:
2267: p_column_value => p_cust_account_rec.selling_party_id,
2268: x_return_status => x_return_status );
2269:
2270: /*IF G_DEBUG THEN
2271: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
2272: 'selling_party_id is foreign key of hz_parties. ' ||
2273: 'x_return_status = ' || x_return_status, l_debug_prefix );
2274: END IF;
2275: */
2273: 'x_return_status = ' || x_return_status, l_debug_prefix );
2274: END IF;
2275: */
2276: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2277: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'selling_party_id is foreign key of hz_parties. ' ||
2278: 'x_return_status = ' || x_return_status,
2279: p_msg_level=>fnd_log.level_statement);
2280: END IF;
2281:
2281:
2282: END IF;
2283:
2284: /*IF G_DEBUG THEN
2285: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
2286: '(+) after validate selling_party_id ... ' ||
2287: 'x_return_status = ' || x_return_status, l_debug_prefix );
2288: END IF;
2289: */
2287: 'x_return_status = ' || x_return_status, l_debug_prefix );
2288: END IF;
2289: */
2290: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2291: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate selling_party_id ... ' ||
2292: 'x_return_status = ' || x_return_status,
2293: p_msg_level=>fnd_log.level_statement);
2294: END IF;
2295:
2321: p_cust_account_rec => p_cust_account_rec,
2322: p_rowid => p_rowid,
2323: x_return_status => x_return_status);
2324: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2325: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate_fv_attributes call ' ||
2326: 'x_return_status = ' || x_return_status,
2327: p_msg_level=>fnd_log.level_statement);
2328: END IF;
2329:
2327: p_msg_level=>fnd_log.level_statement);
2328: END IF;
2329:
2330: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2331: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'validate_cust_account (-)',
2332: p_msg_level=>fnd_log.level_procedure);
2333: END IF;
2334:
2335: END validate_cust_account;
2392:
2393: -- Debug info.
2394:
2395: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2396: hz_utility_v2pub.debug(p_message=>'validate_cust_acct_relate (+)',
2397: p_prefix=>l_debug_prefix,
2398: p_msg_level=>fnd_log.level_procedure);
2399: END IF;
2400:
2412: --------------------------------------
2413: -- validate cust_account_id
2414: --------------------------------------
2415: /****Logical APIs - validation not required****/
2416: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
2417: -- cust_account_id is mandatory field
2418: IF (p_create_update_flag <> 'U') OR
2419: (p_cust_acct_relate_rec.cust_acct_relate_id is NULL) -- Bug 4529413
2420: THEN
2425: p_restricted => 'Y',
2426: x_return_status => x_return_status );
2427:
2428: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2429: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'cust_account_id is mandatory. ' ||
2430: 'x_return_status = ' || x_return_status,
2431: p_msg_level=>fnd_log.level_statement);
2432: END IF;
2433: END IF;
2445: p_column_value => p_cust_acct_relate_rec.cust_account_id,
2446: x_return_status => x_return_status );
2447:
2448: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2449: hz_utility_v2pub.debug(p_message=>'cust_account_id is foreign key of hz_cust_accounts. ' ||
2450: 'x_return_status = ' || x_return_status,
2451: p_prefix=>l_debug_prefix,
2452: p_msg_level=>fnd_log.level_statement);
2453: END IF;
2453: END IF;
2454: END IF;
2455:
2456: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2457: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'(+) after validate cust_account_id ... ' ||
2458: 'x_return_status = ' || x_return_status,
2459: p_msg_level=>fnd_log.level_statement);
2460: END IF;
2461: END IF;
2463: --------------------------------------
2464: -- validate related_cust_account_id
2465: --------------------------------------
2466: /****Logical APIs - validation not required****/
2467: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
2468: -- related_cust_account_id is mandatory field
2469: IF (p_create_update_flag <> 'U') OR
2470: (p_cust_acct_relate_rec.cust_acct_relate_id is NULL) -- Bug 4529413
2471: THEN
2476: p_restricted => 'Y',
2477: x_return_status => x_return_status );
2478:
2479: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2480: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'related_cust_account_id is mandatory. ' ||
2481: 'x_return_status = ' || x_return_status,
2482: p_msg_level=>fnd_log.level_statement);
2483: END IF;
2484: END IF;
2496: p_column_value => p_cust_acct_relate_rec.related_cust_account_id,
2497: x_return_status => x_return_status );
2498:
2499: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2500: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'related_cust_account_id is foreign key of hz_cust_accounts. ' ||
2501: 'x_return_status = ' || x_return_status,
2502: p_msg_level=>fnd_log.level_statement);
2503: END IF;
2504:
2527: NULL;
2528: END;
2529:
2530: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2531: hz_utility_v2pub.debug(p_message=>'combination of cust_account_id and related_cust_account_id should be unique. ' ||
2532: 'x_return_status = ' || x_return_status,
2533: p_prefix =>l_debug_prefix,
2534: p_msg_level=>fnd_log.level_statement);
2535: END IF;
2535: END IF;
2536: END IF;
2537:
2538: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2539: hz_utility_v2pub.debug(p_message=>'(+) after validate related_cust_account_id ... ' ||
2540: 'x_return_status = ' || x_return_status,
2541: p_prefix =>l_debug_prefix,
2542: p_msg_level=>fnd_log.level_statement);
2543: END IF;
2546: -- validate customer_reciprocal_flag
2547: --------------------------------------
2548:
2549: /****Logical APIs - validation not required****/
2550: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
2551: -- donot need to check customer_reciprocal_flag mandatory
2552: -- because customer_reciprocal_flag is non-updateable and it is defaulted
2553: -- to 'N' during insert
2554:
2562: p_old_column_value => l_customer_reciprocal_flag,
2563: x_return_status => x_return_status );
2564:
2565: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2566: hz_utility_v2pub.debug(p_message=>'customer_reciprocal_flag is non-updateable. ' ||
2567: 'x_return_status = ' || x_return_status,
2568: p_prefix =>l_debug_prefix,
2569: p_msg_level=>fnd_log.level_statement);
2570: END IF;
2586: x_return_status => x_return_status );
2587:
2588:
2589: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2590: hz_utility_v2pub.debug(p_message=>'customer_reciprocal_flag is lookup code in lookup type YES/NO. ' ||
2591: 'x_return_status = ' || x_return_status,
2592: p_prefix =>l_debug_prefix,
2593: p_msg_level=>fnd_log.level_statement);
2594: END IF;
2595: END IF;
2596:
2597:
2598: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2599: hz_utility_v2pub.debug(p_message=>'(+) after validate customer_reciprocal_flag ... ' ||
2600: 'x_return_status = ' || x_return_status,
2601: p_prefix =>l_debug_prefix,
2602: p_msg_level=>fnd_log.level_statement);
2603: END IF;
2620: x_return_status => x_return_status );
2621:
2622:
2623: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2624: hz_utility_v2pub.debug(p_message=>'relationship_type is lookup code in lookup type RELATIONSHIP_TYPE. ' ||
2625: 'x_return_status = ' || x_return_status,
2626: p_prefix =>l_debug_prefix,
2627: p_msg_level=>fnd_log.level_statement);
2628: END IF;
2629: END IF;
2630:
2631:
2632: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2633: hz_utility_v2pub.debug(p_message=>'(+) after validate relationship_type ... ' ||
2634: 'x_return_status = ' || x_return_status,
2635: p_prefix =>l_debug_prefix,
2636: p_msg_level=>fnd_log.level_statement);
2637: END IF;
2648: p_column_value => p_cust_acct_relate_rec.status,
2649: x_return_status => x_return_status );
2650:
2651: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2652: hz_utility_v2pub.debug(p_message=>'status cannot be updated to null. ' ||
2653: 'x_return_status = ' || x_return_status,
2654: p_prefix =>l_debug_prefix,
2655: p_msg_level=>fnd_log.level_statement);
2656: END IF;
2656: END IF;
2657: END IF;
2658:
2659: /****Logical APIs - validation not required****/
2660: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
2661: -- status is lookup code in lookup type CODE_STATUS
2662: IF p_cust_acct_relate_rec.status IS NOT NULL AND
2663: p_cust_acct_relate_rec.status <> FND_API.G_MISS_CHAR AND
2664: ( p_create_update_flag = 'C' OR
2672: x_return_status => x_return_status );
2673:
2674:
2675: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2676: hz_utility_v2pub.debug(p_message=>'status is lookup code in lookup type CODE_STATUS. ' ||
2677: 'x_return_status = ' || x_return_status,
2678: p_prefix =>l_debug_prefix,
2679: p_msg_level=>fnd_log.level_statement);
2680: END IF;
2681: END IF;
2682: END IF;
2683:
2684: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2685: hz_utility_v2pub.debug(p_message=>'(+) after validate status ... ' ||
2686: 'x_return_status = ' || x_return_status,
2687: p_prefix =>l_debug_prefix,
2688: p_msg_level=>fnd_log.level_statement);
2689: END IF;
2709:
2710: -- Debug info.
2711:
2712: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2713: hz_utility_v2pub.debug(p_message=>' validate_cust_acct_relate (-)',
2714: p_prefix=>l_debug_prefix,
2715: p_msg_level=>fnd_log.level_procedure);
2716: END IF;
2717:
2846:
2847: -- Debug info.
2848:
2849: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2850: hz_utility_v2pub.debug(p_message=> 'validate_customer_profile (+)',
2851: p_prefix=>l_debug_prefix,
2852: p_msg_level=>fnd_log.level_procedure);
2853: END IF;
2854: -- Select fields for later use during update.
2892: --------------------------------------
2893: -- validate cust_account_profile_id
2894: --------------------------------------
2895: /****Logical APIs - validation not required****/
2896: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
2897: IF p_create_update_flag = 'C' THEN
2898:
2899: -- If primary key value is passed, check for uniqueness.
2900: -- If primary key value is not passed, it will be generated
2917: NULL;
2918: END;
2919:
2920: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2921: hz_utility_v2pub.debug(p_message=>'cust_account_profile_id is unique during creation if passed in. ' ||
2922: 'x_return_status = ' || x_return_status,
2923: p_prefix =>l_debug_prefix,
2924: p_msg_level=>fnd_log.level_statement);
2925: END IF;
2927: END IF;
2928: END IF;
2929:
2930: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2931: hz_utility_v2pub.debug(p_message=>'(+) after validate cust_account_profile_id ... ' ||
2932: 'x_return_status = ' || x_return_status,
2933: p_prefix =>l_debug_prefix,
2934: p_msg_level=>fnd_log.level_statement);
2935: END IF;
2938: ----------------------------------------------
2939: -- validate cust_account_id
2940: ----------------------------------------------
2941: /****Logical APIs - validation not required****/
2942: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
2943: -- cust_account_id is mandatory field
2944: -- Since cust_account_id is non-updateable, we only need to check mandatory
2945: -- during creation.
2946: --
2949: --
2950:
2951:
2952: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2953: hz_utility_v2pub.debug(p_message=>'cust_account_id = ' || p_customer_profile_rec.cust_account_id || ' ' ||
2954: 'x_return_status = ' || x_return_status,
2955: p_prefix =>l_debug_prefix,
2956: p_msg_level=>fnd_log.level_statement);
2957: END IF;
2964: p_column_value => p_customer_profile_rec.cust_account_id,
2965: x_return_status => x_return_status );
2966:
2967: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2968: hz_utility_v2pub.debug(p_message=>'cust_account_id is mandatory. ' ||
2969: 'x_return_status = ' || x_return_status,
2970: p_prefix =>l_debug_prefix,
2971: p_msg_level=>fnd_log.level_statement);
2972: END IF;
2982: p_column_value => p_customer_profile_rec.party_id,
2983: x_return_status => x_return_status );
2984:
2985: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
2986: hz_utility_v2pub.debug(p_message=>'party_id is mandatory. ' ||
2987: 'x_return_status = ' || x_return_status,
2988: p_prefix =>l_debug_prefix,
2989: p_msg_level=>fnd_log.level_statement);
2990: END IF;
3001: p_old_column_value => l_cust_account_id,
3002: x_return_status => x_return_status );
3003:
3004: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3005: hz_utility_v2pub.debug(p_message=>'cust_account_id is non-updateable. ' ||
3006: 'x_return_status = ' || x_return_status,
3007: p_prefix =>l_debug_prefix,
3008: p_msg_level=>fnd_log.level_statement);
3009: END IF;
3022: p_old_column_value => l_party_id,
3023: x_return_status => x_return_status );
3024:
3025: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3026: hz_utility_v2pub.debug(p_message=>'cust_account_id is non-updateable. ' ||
3027: 'x_return_status = ' || x_return_status,
3028: p_prefix =>l_debug_prefix,
3029: p_msg_level=>fnd_log.level_statement);
3030: END IF;
3046: x_return_status => x_return_status );
3047:
3048:
3049: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3050: hz_utility_v2pub.debug(p_message=>'cust_account_id is foreign key to hz_cust_accounts. ' ||
3051: 'x_return_status = ' || x_return_status,
3052: p_prefix =>l_debug_prefix,
3053: p_msg_level=>fnd_log.level_statement);
3054: END IF;
3086: END;
3087:
3088:
3089: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3090: hz_utility_v2pub.debug(p_message=>'only one customer profile for one account. ' ||
3091: 'x_return_status = ' || x_return_status,
3092: p_prefix =>l_debug_prefix,
3093: p_msg_level=>fnd_log.level_statement);
3094: END IF;
3118: END;
3119:
3120:
3121: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3122: hz_utility_v2pub.debug(p_message=>'only one customer profile for one party at party level. ' ||
3123: 'x_return_status = ' || x_return_status,
3124: p_prefix =>l_debug_prefix,
3125: p_msg_level=>fnd_log.level_statement);
3126: END IF;
3129: END IF;
3130:
3131:
3132: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3133: hz_utility_v2pub.debug(p_message=>'(+) after validate cust_account_id ... ' ||
3134: 'x_return_status = ' || x_return_status,
3135: p_prefix =>l_debug_prefix,
3136: p_msg_level=>fnd_log.level_statement);
3137: END IF;
3157: p_column_value => p_customer_profile_rec.review_cycle,
3158: x_return_status => x_return_status );
3159:
3160: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3161: hz_utility_v2pub.debug(p_message=>'review_cycle is lookup code in lookup type PERIODIC_REVIEW_CYCLE in ar_lookups. ' ||
3162: 'x_return_status = ' || x_return_status,
3163: p_prefix =>l_debug_prefix,
3164: p_msg_level=>fnd_log.level_statement);
3165: END IF;
3185: x_return_status => x_return_status );
3186:
3187:
3188: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3189: hz_utility_v2pub.debug(p_message=>'collector_id is mandatory : it can be null but not G_MISS. ' ||
3190: 'x_return_status = ' || x_return_status,
3191: p_prefix =>l_debug_prefix,
3192: p_msg_level=>fnd_log.level_statement);
3193: END IF;
3202: x_return_status => x_return_status );
3203:
3204:
3205: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3206: hz_utility_v2pub.debug(p_message=>'collector_id is foreign key to ar_collectors. ' ||
3207: 'x_return_status = ' || x_return_status,
3208: p_prefix =>l_debug_prefix,
3209: p_msg_level=>fnd_log.level_statement);
3210: END IF;
3211:
3212: END IF;
3213:
3214: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3215: hz_utility_v2pub.debug(p_message=>'(+) after validate collector_id ... ' ||
3216: 'x_return_status = ' || x_return_status,
3217: p_prefix =>l_debug_prefix,
3218: p_msg_level=>fnd_log.level_statement);
3219: END IF;
3235: x_return_status => x_return_status );
3236:
3237:
3238: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3239: hz_utility_v2pub.debug(p_message=>'credit_checking is mandatory : it can be null but not G_MISS. ' ||
3240: 'x_return_status = ' || x_return_status,
3241: p_prefix =>l_debug_prefix,
3242: p_msg_level=>fnd_log.level_statement);
3243: END IF;
3253: p_column_value => p_customer_profile_rec.credit_checking,
3254: x_return_status => x_return_status );
3255:
3256: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3257: hz_utility_v2pub.debug(p_message=>'credit_checking is lookup code in lookup type YES/NO. ' ||
3258: 'x_return_status = ' || x_return_status,
3259: p_prefix =>l_debug_prefix,
3260: p_msg_level=>fnd_log.level_statement);
3261: END IF;
3262:
3263: END IF;
3264:
3265: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3266: hz_utility_v2pub.debug(p_message=>'(+) after validate credit_checking ... ' ||
3267: 'x_return_status = ' || x_return_status,
3268: p_prefix =>l_debug_prefix,
3269: p_msg_level=>fnd_log.level_statement);
3270: END IF;
3286: p_column_value => p_customer_profile_rec.discount_terms,
3287: x_return_status => x_return_status );
3288:
3289: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3290: hz_utility_v2pub.debug(p_message=>'discount_terms is mandatory : it can be null but not G_MISS. ' ||
3291: 'x_return_status = ' || x_return_status,
3292: p_prefix =>l_debug_prefix,
3293: p_msg_level=>fnd_log.level_statement);
3294: END IF;
3294: END IF;
3295:
3296:
3297: /****Logical APIs - validation not required****/
3298: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
3299: -- discount_terms is lookup code in lookup type YES/NO
3300: IF p_customer_profile_rec.discount_terms IS NOT NULL AND
3301: p_customer_profile_rec.discount_terms <> FND_API.G_MISS_CHAR
3302: AND ( p_create_update_flag = 'C' OR
3310: x_return_status => x_return_status );
3311:
3312:
3313: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3314: hz_utility_v2pub.debug(p_message=>'discount_terms is lookup code in lookup type YES/NO. ' ||
3315: 'x_return_status = ' || x_return_status,
3316: p_prefix =>l_debug_prefix,
3317: p_msg_level=>fnd_log.level_statement);
3318: END IF;
3320: END IF;
3321: END IF;
3322:
3323: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3324: hz_utility_v2pub.debug(p_message=>'(+) after validate discount_terms ... ' ||
3325: 'x_return_status = ' || x_return_status,
3326: p_prefix =>l_debug_prefix,
3327: p_msg_level=>fnd_log.level_statement);
3328: END IF;
3344: x_return_status => x_return_status );
3345:
3346:
3347: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3348: hz_utility_v2pub.debug(p_message=>'tolerance is mandatory : it can be null but not G_MISS. ' ||
3349: 'x_return_status = ' || x_return_status,
3350: p_prefix =>l_debug_prefix,
3351: p_msg_level=>fnd_log.level_statement);
3352: END IF;
3387: END;
3388: END IF;
3389:
3390: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3391: hz_utility_v2pub.debug(p_message=>'profile_class_id should be positive, foreign key of hz_cust_profile_classes and point to an active profile class. ' ||
3392: 'x_return_status = ' || x_return_status,
3393: p_prefix =>l_debug_prefix,
3394: p_msg_level=>fnd_log.level_statement);
3395: END IF;
3406: x_return_status => x_return_status );
3407:
3408:
3409: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3410: hz_utility_v2pub.debug(p_message=>'profile_class_id cannot be updated to null. ' ||
3411: 'x_return_status = ' || x_return_status,
3412: p_prefix =>l_debug_prefix,
3413: p_msg_level=>fnd_log.level_statement);
3414: END IF;
3416: END IF;
3417:
3418:
3419: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3420: hz_utility_v2pub.debug(p_message=>'(+) after validate profile_class_id ... ' ||
3421: 'x_return_status = ' || x_return_status,
3422: p_prefix =>l_debug_prefix,
3423: p_msg_level=>fnd_log.level_statement);
3424: END IF;
3438: x_return_status => x_return_status );
3439:
3440:
3441: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3442: hz_utility_v2pub.debug(p_message=>'site_use_id is non-updateable. ' ||
3443: 'x_return_status = ' || x_return_status,
3444: p_prefix =>l_debug_prefix,
3445: p_msg_level=>fnd_log.level_statement);
3446: END IF;
3491: x_return_status := FND_API.G_RET_STS_ERROR;
3492: END IF;
3493:
3494: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3495: hz_utility_v2pub.debug(p_message=>'cust_account_id should be same as cust_account_id site_use_id belongs to. ' ||
3496: 'x_return_status = ' || x_return_status,
3497: p_prefix =>l_debug_prefix,
3498: p_msg_level=>fnd_log.level_statement);
3499: END IF;
3508: x_return_status := FND_API.G_RET_STS_ERROR;
3509: END;
3510:
3511: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3512: hz_utility_v2pub.debug(p_message=>'site_use_id is foreign key to hz_cust_site_uses. ' ||
3513: 'x_return_status = ' || x_return_status,
3514: p_prefix =>l_debug_prefix,
3515: p_msg_level=>fnd_log.level_statement);
3516: END IF;
3533: END;
3534:
3535:
3536: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3537: hz_utility_v2pub.debug(p_message=>'one site use can only have one profile. ' ||
3538: 'x_return_status = ' || x_return_status,
3539: p_prefix =>l_debug_prefix,
3540: p_msg_level=>fnd_log.level_statement);
3541: END IF;
3554: x_return_status := FND_API.G_RET_STS_ERROR;
3555:
3556:
3557: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3558: hz_utility_v2pub.debug(p_message=>'profile at party level cannot be assign to a site. ' ||
3559: 'x_return_status = ' || x_return_status,
3560: p_prefix =>l_debug_prefix,
3561: p_msg_level=>fnd_log.level_statement);
3562: END IF;
3565: END IF;
3566:
3567:
3568: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3569: hz_utility_v2pub.debug(p_message=>'(+) after validate site_use_id ... ' ||
3570: 'x_return_status = ' || x_return_status,
3571: p_prefix =>l_debug_prefix,
3572: p_msg_level=>fnd_log.level_statement);
3573: END IF;
3572: p_msg_level=>fnd_log.level_statement);
3573: END IF;
3574:
3575: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3576: hz_utility_v2pub.debug(p_message=>'(+) after validate site_use_id ... ' ||
3577: 'x_return_status = ' || x_return_status,
3578: p_prefix =>l_debug_prefix,
3579: p_msg_level=>fnd_log.level_statement);
3580: END IF;
3597: p_column_value => p_customer_profile_rec.credit_rating,
3598: x_return_status => x_return_status );
3599:
3600: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3601: hz_utility_v2pub.debug(p_message=>'credit_rating is lookup code in lookup type CREDIT_RATING. ' ||
3602: 'x_return_status = ' || x_return_status,
3603: p_prefix =>l_debug_prefix,
3604: p_msg_level=>fnd_log.level_statement);
3605: END IF;
3607: END IF;
3608:
3609:
3610: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3611: hz_utility_v2pub.debug(p_message=>'(+) after validate credit_rating ... ' ||
3612: 'x_return_status = ' || x_return_status,
3613: p_prefix =>l_debug_prefix,
3614: p_msg_level=>fnd_log.level_statement);
3615: END IF;
3632: p_column_value => p_customer_profile_rec.risk_code,
3633: x_return_status => x_return_status );
3634:
3635: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3636: hz_utility_v2pub.debug(p_message=>'risk_code is lookup code in lookup type RISK_CODE. ' ||
3637: 'x_return_status = ' || x_return_status,
3638: p_prefix =>l_debug_prefix,
3639: p_msg_level=>fnd_log.level_statement);
3640: END IF;
3641:
3642: END IF;
3643:
3644: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3645: hz_utility_v2pub.debug(p_message=>'(+) after validate risk_code ... ' ||
3646: 'x_return_status = ' || x_return_status,
3647: p_prefix =>l_debug_prefix,
3648: p_msg_level=>fnd_log.level_statement);
3649: END IF;
3665: p_column_value => p_customer_profile_rec.auto_rec_incl_disputed_flag,
3666: x_return_status => x_return_status );
3667:
3668: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3669: hz_utility_v2pub.debug(p_message=>'auto_rec_incl_disputed_flag is mandatory : it can be null but not G_MISS. ' ||
3670: 'x_return_status = ' || x_return_status,
3671: p_prefix =>l_debug_prefix,
3672: p_msg_level=>fnd_log.level_statement);
3673: END IF;
3684: x_return_status => x_return_status );
3685:
3686:
3687: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3688: hz_utility_v2pub.debug(p_message=>'auto_rec_incl_disputed_flag is lookup code in lookup type YES/NO. ' ||
3689: 'x_return_status = ' || x_return_status,
3690: p_prefix =>l_debug_prefix,
3691: p_msg_level=>fnd_log.level_statement);
3692: END IF;
3694: END IF;
3695:
3696:
3697: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3698: hz_utility_v2pub.debug(p_message=>'(+) after validate auto_rec_incl_disputed_flag ... ' ||
3699: 'x_return_status = ' || x_return_status,
3700: p_prefix =>l_debug_prefix,
3701: p_msg_level=>fnd_log.level_statement);
3702: END IF;
3705: ----------------------------------------------
3706: -- validate charge_on_finance_charge_flag
3707: ----------------------------------------------
3708: /****Logical APIs - validation not required****/
3709: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
3710: -- charge_on_finance_charge_flag is lookup code in lookup type YES/NO
3711: -- As a part of late charge policy project changing the lookup type to AR_FORMULAE (bug # 5065436)
3712: IF p_customer_profile_rec.charge_on_finance_charge_flag IS NOT NULL AND
3713: p_customer_profile_rec.charge_on_finance_charge_flag <> FND_API.G_MISS_CHAR
3718: p_column_value => p_customer_profile_rec.charge_on_finance_charge_flag,
3719: x_return_status => x_return_status );
3720:
3721: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3722: hz_utility_v2pub.debug(p_message=>'charge_on_finance_charge_flag is lookup code in lookup type AR_FORMULAE. ' ||
3723: 'x_return_status = ' || x_return_status,
3724: p_prefix =>l_debug_prefix,
3725: p_msg_level=>fnd_log.level_statement);
3726: END IF;
3727:
3728: END IF;
3729:
3730: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3731: hz_utility_v2pub.debug(p_message=>'(+) after charge_on_finance_charge_flag ... ' ||
3732: 'x_return_status = ' || x_return_status,
3733: p_prefix =>l_debug_prefix,
3734: p_msg_level=>fnd_log.level_statement);
3735: END IF;
3738: ----------------------------------------------
3739: -- validate cons_inv_flag
3740: ----------------------------------------------
3741: /****Logical APIs - validation not required****/
3742: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
3743: -- cons_inv_flag is lookup code in lookup type YES/NO
3744: IF p_customer_profile_rec.cons_inv_flag IS NOT NULL AND
3745: p_customer_profile_rec.cons_inv_flag <> FND_API.G_MISS_CHAR
3746: THEN
3751: x_return_status => x_return_status );
3752:
3753:
3754: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3755: hz_utility_v2pub.debug(p_message=>'cons_inv_flag is lookup code in lookup type YES/NO. ' ||
3756: 'x_return_status = ' || x_return_status,
3757: p_prefix =>l_debug_prefix,
3758: p_msg_level=>fnd_log.level_statement);
3759: END IF;
3761: END IF;
3762:
3763:
3764: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3765: hz_utility_v2pub.debug(p_message=>'(+) after cons_inv_flag ... ' ||
3766: 'x_return_status = ' || x_return_status,
3767: p_prefix =>l_debug_prefix,
3768: p_msg_level=>fnd_log.level_statement);
3769: END IF;
3772: ----------------------------------------------
3773: -- validate cons_bill_level
3774: ----------------------------------------------
3775: /****Logical APIs - validation not required****/
3776: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
3777:
3778: validate_bill_level (
3779: p_create_update_flag => p_create_update_flag,
3780: p_customer_profile_rec => p_customer_profile_rec,
3780: p_customer_profile_rec => p_customer_profile_rec,
3781: x_return_status => x_return_status );
3782:
3783: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3784: hz_utility_v2pub.debug(p_message=>'(+) after cons_bill_level ... ' ||
3785: 'x_return_status = ' || x_return_status,
3786: p_prefix =>l_debug_prefix,
3787: p_msg_level=>fnd_log.level_statement);
3788: END IF;
3801: p_column_value => p_customer_profile_rec.status,
3802: x_return_status => x_return_status );
3803:
3804: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3805: hz_utility_v2pub.debug(p_message=>'status cannot be updated to null. ' ||
3806: 'x_return_status = ' || x_return_status,
3807: p_prefix =>l_debug_prefix,
3808: p_msg_level=>fnd_log.level_statement);
3809: END IF;
3810:
3811: END IF;
3812:
3813: /****Logical APIs - validation not required****/
3814: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
3815: -- status is lookup code in lookup type CODE_STATUS
3816: IF p_customer_profile_rec.status IS NOT NULL AND
3817: p_customer_profile_rec.status <> FND_API.G_MISS_CHAR AND
3818: ( p_create_update_flag = 'C' OR
3825: p_column_value => p_customer_profile_rec.status,
3826: x_return_status => x_return_status );
3827:
3828: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3829: hz_utility_v2pub.debug(p_message=>'status is lookup code in lookup type CODE_STATUS. ' ||
3830: 'x_return_status = ' || x_return_status,
3831: p_prefix =>l_debug_prefix,
3832: p_msg_level=>fnd_log.level_statement);
3833: END IF;
3835: END IF;
3836: END IF;
3837:
3838: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3839: hz_utility_v2pub.debug(p_message=>'(+) after status ... ' ||
3840: 'x_return_status = ' || x_return_status,
3841: p_prefix =>l_debug_prefix,
3842: p_msg_level=>fnd_log.level_statement);
3843: END IF;
3859: p_column_value => p_customer_profile_rec.dunning_letters,
3860: x_return_status => x_return_status );
3861:
3862: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3863: hz_utility_v2pub.debug(p_message=>'dunning_letters is mandatory : it can be null but not G_MISS. ' ||
3864: 'x_return_status = ' || x_return_status,
3865: p_prefix =>l_debug_prefix,
3866: p_msg_level=>fnd_log.level_statement);
3867: END IF;
3880: p_column_value => p_customer_profile_rec.dunning_letters,
3881: x_return_status => x_return_status );
3882:
3883: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3884: hz_utility_v2pub.debug(p_message=>'dunning_letters is lookup code in lookup type YES/NO. ' ||
3885: 'x_return_status = ' || x_return_status,
3886: p_prefix =>l_debug_prefix,
3887: p_msg_level=>fnd_log.level_statement);
3888: END IF;
3889:
3890: END IF;
3891:
3892: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3893: hz_utility_v2pub.debug(p_message=>'(+) after dunning_letters ... ' ||
3894: 'x_return_status = ' || x_return_status,
3895: p_prefix =>l_debug_prefix,
3896: p_msg_level=>fnd_log.level_statement);
3897: END IF;
3913: p_column_value => p_customer_profile_rec.interest_charges,
3914: x_return_status => x_return_status );
3915:
3916: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3917: hz_utility_v2pub.debug(p_message=>'interest_charges is mandatory : it can be null but not G_MISS. ' ||
3918: 'x_return_status = ' || x_return_status,
3919: p_prefix =>l_debug_prefix,
3920: p_msg_level=>fnd_log.level_statement);
3921: END IF;
3920: p_msg_level=>fnd_log.level_statement);
3921: END IF;
3922:
3923: /****Logical APIs - validation not required****/
3924: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
3925: -- interest_charges is lookup code in lookup type YES/NO
3926: IF p_customer_profile_rec.interest_charges IS NOT NULL AND
3927: p_customer_profile_rec.interest_charges <> FND_API.G_MISS_CHAR
3928: AND ( p_create_update_flag = 'C' OR
3935: p_column_value => p_customer_profile_rec.interest_charges,
3936: x_return_status => x_return_status );
3937:
3938: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3939: hz_utility_v2pub.debug(p_message=>'interest_charges is lookup code in lookup type YES/NO. ' ||
3940: 'x_return_status = ' || x_return_status,
3941: p_prefix =>l_debug_prefix,
3942: p_msg_level=>fnd_log.level_statement);
3943: END IF;
3945: END IF;
3946: END IF;
3947:
3948: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3949: hz_utility_v2pub.debug(p_message=>'(+) after interest_charges ... ' ||
3950: 'x_return_status = ' || x_return_status,
3951: p_prefix =>l_debug_prefix,
3952: p_msg_level=>fnd_log.level_statement);
3953: END IF;
3969: p_column_value => p_customer_profile_rec.send_statements,
3970: x_return_status => x_return_status );
3971:
3972: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3973: hz_utility_v2pub.debug(p_message=>'send_statements is mandatory : it can be null but not G_MISS. ' ||
3974: 'x_return_status = ' || x_return_status,
3975: p_prefix =>l_debug_prefix,
3976: p_msg_level=>fnd_log.level_statement);
3977: END IF;
3977: END IF;
3978:
3979:
3980: /****Logical APIs - validation not required****/
3981: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
3982: -- send_statements is lookup code in lookup type YES/NO
3983: IF p_customer_profile_rec.send_statements IS NOT NULL AND
3984: p_customer_profile_rec.send_statements <> FND_API.G_MISS_CHAR
3985: AND ( p_create_update_flag = 'C' OR
3992: p_column_value => p_customer_profile_rec.send_statements,
3993: x_return_status => x_return_status );
3994:
3995: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3996: hz_utility_v2pub.debug(p_message=>'send_statements is lookup code in lookup type YES/NO. ' ||
3997: 'x_return_status = ' || x_return_status,
3998: p_prefix =>l_debug_prefix,
3999: p_msg_level=>fnd_log.level_statement);
4000: END IF;
4002: END IF;
4003: END IF;
4004:
4005: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4006: hz_utility_v2pub.debug(p_message=>'(+) after send_statements ... ' ||
4007: 'x_return_status = ' || x_return_status,
4008: p_prefix =>l_debug_prefix,
4009: p_msg_level=>fnd_log.level_statement);
4010: END IF;
4027: x_return_status => x_return_status );
4028:
4029:
4030: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4031: hz_utility_v2pub.debug(p_message=>'credit_balance_statements is mandatory : it can be null but not G_MISS. ' ||
4032: 'x_return_status = ' || x_return_status,
4033: p_prefix =>l_debug_prefix,
4034: p_msg_level=>fnd_log.level_statement);
4035: END IF;
4035: END IF;
4036:
4037:
4038: /****Logical APIs - validation not required****/
4039: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
4040: -- credit_balance_statements is lookup code in lookup type YES/NO
4041: IF p_customer_profile_rec.credit_balance_statements IS NOT NULL AND
4042: p_customer_profile_rec.credit_balance_statements <> FND_API.G_MISS_CHAR
4043: THEN
4047: p_column_value => p_customer_profile_rec.credit_balance_statements,
4048: x_return_status => x_return_status );
4049:
4050: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4051: hz_utility_v2pub.debug(p_message=>'credit_balance_statements is lookup code in lookup type YES/NO. ' ||
4052: 'x_return_status = ' || x_return_status,
4053: p_prefix =>l_debug_prefix,
4054: p_msg_level=>fnd_log.level_statement);
4055: END IF;
4057: END IF;
4058: END IF;
4059:
4060: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4061: hz_utility_v2pub.debug(p_message=>'(+) after credit_balance_statements ... ' ||
4062: 'x_return_status = ' || x_return_status,
4063: p_prefix =>l_debug_prefix,
4064: p_msg_level=>fnd_log.level_statement);
4065: END IF;
4081: p_column_value => p_customer_profile_rec.credit_hold,
4082: x_return_status => x_return_status );
4083:
4084: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4085: hz_utility_v2pub.debug(p_message=>'credit_hold is mandatory : it can be null but not G_MISS. ' ||
4086: 'x_return_status = ' || x_return_status,
4087: p_prefix =>l_debug_prefix,
4088: p_msg_level=>fnd_log.level_statement);
4089: END IF;
4089: END IF;
4090:
4091:
4092: /****Logical APIs - validation not required****/
4093: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
4094: -- credit_hold is lookup code in lookup type YES/NO
4095: IF p_customer_profile_rec.credit_hold IS NOT NULL AND
4096: p_customer_profile_rec.credit_hold <> FND_API.G_MISS_CHAR
4097: THEN
4101: p_column_value => p_customer_profile_rec.credit_hold,
4102: x_return_status => x_return_status );
4103:
4104: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4105: hz_utility_v2pub.debug(p_message=>'credit_hold is lookup code in lookup type YES/NO. ' ||
4106: 'x_return_status = ' || x_return_status,
4107: p_prefix =>l_debug_prefix,
4108: p_msg_level=>fnd_log.level_statement);
4109: END IF;
4111: END IF;
4112: END IF;
4113:
4114: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4115: hz_utility_v2pub.debug(p_message=>'(+) after credit_hold ... ' ||
4116: 'x_return_status = ' || x_return_status,
4117: p_prefix =>l_debug_prefix,
4118: p_msg_level=>fnd_log.level_statement);
4119: END IF;
4167: p_column_value => p_customer_profile_rec.account_status,
4168: x_return_status => x_return_status );
4169:
4170: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4171: hz_utility_v2pub.debug(p_message=>'account_status is lookup code in lookup type ACCOUNT_STATUS.' ||
4172: 'x_return_status = ' || x_return_status,
4173: p_prefix =>l_debug_prefix,
4174: p_msg_level=>fnd_log.level_statement);
4175: END IF;
4176:
4177: END IF;
4178:
4179: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4180: hz_utility_v2pub.debug(p_message=>'(+) after validate account_status ... ' ||
4181: 'x_return_status = ' || x_return_status,
4182: p_prefix =>l_debug_prefix,
4183: p_msg_level=>fnd_log.level_statement);
4184: END IF;
4202: FND_MESSAGE.SET_TOKEN( 'VALUE2', '100' );
4203: FND_MSG_PUB.ADD;
4204: x_return_status := FND_API.G_RET_STS_ERROR;
4205: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4206: hz_utility_v2pub.debug(p_message=>'Tolerance should be between -100 and 100 .' ||
4207: 'x_return_status = ' || x_return_status,
4208: p_prefix =>l_debug_prefix,
4209: p_msg_level=>fnd_log.level_statement);
4210: END IF;
4212: END IF;
4213: END IF;
4214:
4215: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4216: hz_utility_v2pub.debug(p_message=>'(+) after validate tolerance ... ' ||
4217: 'x_return_status = ' || x_return_status,
4218: p_prefix =>l_debug_prefix,
4219: p_msg_level=>fnd_log.level_statement);
4220: END IF;
4239: FND_MSG_PUB.ADD;
4240: x_return_status := FND_API.G_RET_STS_ERROR;
4241:
4242: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4243: hz_utility_v2pub.debug(p_message=>'Percent_Collectable should be between 0 and 100 .' ||
4244: 'x_return_status = ' || x_return_status,
4245: p_prefix =>l_debug_prefix,
4246: p_msg_level=>fnd_log.level_statement);
4247: END IF;
4249: END IF;
4250: END IF;
4251:
4252: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4253: hz_utility_v2pub.debug(p_message=>'(+) after validate percent_collectable ... ' ||
4254: 'x_return_status = ' || x_return_status,
4255: p_prefix =>l_debug_prefix,
4256: p_msg_level=>fnd_log.level_statement);
4257: END IF;
4274: x_return_status => x_return_status );
4275:
4276:
4277: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4278: hz_utility_v2pub.debug(p_message=>'override_terms is lookup code in lookup type YES/NO. ' ||
4279: 'x_return_status = ' || x_return_status,
4280: p_prefix =>l_debug_prefix,
4281: p_msg_level=>fnd_log.level_statement);
4282: END IF;
4283:
4284: END IF;
4285:
4286: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4287: hz_utility_v2pub.debug(p_message=>'(+) after override_terms ... ' ||
4288: 'x_return_status = ' || x_return_status,
4289: p_prefix =>l_debug_prefix,
4290: p_msg_level=>fnd_log.level_statement);
4291: END IF;
4306: p_column_value => p_customer_profile_rec.lockbox_matching_option,
4307: x_return_status => x_return_status );
4308:
4309: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4310: hz_utility_v2pub.debug(p_message=>'lockbox_matching_option is lookup code in lookup type
4311: ARLPLB_MATCHING_OPTION.' ||'x_return_status = ' ||
4312: x_return_status,
4313: p_prefix =>l_debug_prefix,
4314: p_msg_level=>fnd_log.level_statement);
4316:
4317: END IF;
4318:
4319: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4320: hz_utility_v2pub.debug(p_message=>'(+) after validate lockbox_matching_option ... ' ||
4321: 'x_return_status = ' || x_return_status,
4322: p_prefix =>l_debug_prefix,
4323: p_msg_level=>fnd_log.level_statement);
4324: END IF;
4338: p_column_value => p_customer_profile_rec.autocash_hierarchy_id,
4339: x_return_status => x_return_status );
4340:
4341: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4342: hz_utility_v2pub.debug(p_message=>'autocash_hierarchy_id is foreign key to
4343: ar_autocash_hierarchies. ' || 'x_return_status = ' ||
4344: x_return_status,
4345: p_prefix =>l_debug_prefix,
4346: p_msg_level=>fnd_log.level_statement);
4348:
4349: END IF;
4350:
4351: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4352: hz_utility_v2pub.debug(p_message=>'(+) after validate autocash_hierarchy_id ... ' ||
4353: 'x_return_status = ' || x_return_status,
4354: p_prefix =>l_debug_prefix,
4355: p_msg_level=>fnd_log.level_statement);
4356: END IF;
4370: p_column_value => p_customer_profile_rec.autocash_hierarchy_id_for_adr,
4371: x_return_status=> x_return_status );
4372:
4373: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4374: hz_utility_v2pub.debug(p_message=>'autocash_hierarchy_id_for_adr is foreign key to
4375: ar_autocash_hierarchies . ' || 'x_return_status = ' ||
4376: x_return_status,
4377: p_prefix =>l_debug_prefix,
4378: p_msg_level=>fnd_log.level_statement);
4380:
4381: END IF;
4382:
4383: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4384: hz_utility_v2pub.debug(p_message=>'(+) after validate autocash_hierarchy_id_for_adr ... ' ||
4385: 'x_return_status = ' || x_return_status,
4386: p_prefix =>l_debug_prefix,
4387: p_msg_level=>fnd_log.level_statement);
4388: END IF;
4401: p_column_value => p_customer_profile_rec.statement_cycle_id,
4402: x_return_status => x_return_status );
4403:
4404: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4405: hz_utility_v2pub.debug(p_message=>'statement_cycle_id is foreign key to
4406: ar_statement_cycles . ' || 'x_return_status = ' ||
4407: x_return_status,
4408: p_prefix =>l_debug_prefix,
4409: p_msg_level=>fnd_log.level_statement);
4411:
4412: END IF;
4413:
4414: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4415: hz_utility_v2pub.debug(p_message=>'(+) after validate statement_cycle_id ... ' ||
4416: 'x_return_status = ' || x_return_status,
4417: p_prefix =>l_debug_prefix,
4418: p_msg_level=>fnd_log.level_statement);
4419: END IF;
4434: p_column_value => p_customer_profile_rec.clearing_days,
4435: x_return_status => x_return_status );
4436:
4437: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4438: hz_utility_v2pub.debug(p_message=>'clearing_days should be > 0.' ||'x_return_status = ' ||
4439: x_return_status,
4440: p_prefix =>l_debug_prefix,
4441: p_msg_level=>fnd_log.level_statement);
4442: END IF;
4443:
4444:
4445: END IF;
4446: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4447: hz_utility_v2pub.debug(p_message=>'(+) after validate clearing_days... ' ||
4448: 'x_return_status = ' || x_return_status,
4449: p_prefix =>l_debug_prefix,
4450: p_msg_level=>fnd_log.level_statement);
4451: END IF;
4464: p_column_value => p_customer_profile_rec.payment_grace_days,
4465: x_return_status => x_return_status );
4466:
4467: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4468: hz_utility_v2pub.debug(p_message=>'payment_grace_days should be > 0.' ||'x_return_status = ' ||
4469: x_return_status,
4470: p_prefix =>l_debug_prefix,
4471: p_msg_level=>fnd_log.level_statement);
4472: END IF;
4473:
4474: END IF;
4475:
4476: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4477: hz_utility_v2pub.debug(p_message=>'(+) after validate payment_grace_days... ' ||
4478: 'x_return_status = ' || x_return_status,
4479: p_prefix =>l_debug_prefix,
4480: p_msg_level=>fnd_log.level_statement);
4481: END IF;
4492: p_column_value => p_customer_profile_rec.interest_period_days,
4493: x_return_status => x_return_status );
4494:
4495: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4496: hz_utility_v2pub.debug(p_message=>'interest_period_days should be > 0.' ||'x_return_status = ' ||
4497: x_return_status,
4498: p_prefix =>l_debug_prefix,
4499: p_msg_level=>fnd_log.level_statement);
4500: END IF;
4501:
4502: END IF;
4503:
4504: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4505: hz_utility_v2pub.debug(p_message=>'(+) after validate interest_period_days... ' ||
4506: 'x_return_status = ' || x_return_status,
4507: p_prefix =>l_debug_prefix,
4508: p_msg_level=>fnd_log.level_statement);
4509: END IF;
4524: p_column_value => p_customer_profile_rec.dunning_letter_set_id,
4525: x_return_status => x_return_status );
4526:
4527: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4528: hz_utility_v2pub.debug(p_message=>'dunning_letter_set_id is foreign key to
4529: ar_dunning_letter_sets . ' || 'x_return_status = ' ||
4530: x_return_status,
4531: p_prefix =>l_debug_prefix,
4532: p_msg_level=>fnd_log.level_statement);
4541:
4542: END IF;
4543:
4544: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4545: hz_utility_v2pub.debug(p_message=>'(+) after validate dunning_letter_set_id ... ' ||
4546: 'x_return_status = ' || x_return_status,
4547: p_prefix =>l_debug_prefix,
4548: p_msg_level=>fnd_log.level_statement);
4549: END IF;
4563: p_column_value => p_customer_profile_rec.tax_printing_option,
4564: x_return_status => x_return_status );
4565:
4566: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4567: hz_utility_v2pub.debug(p_message=>'tax_printing_option is lookup code in lookup type
4568: TAX_PRINTING_OPTION.' ||'x_return_status = ' ||
4569: x_return_status,
4570: p_prefix =>l_debug_prefix,
4571: p_msg_level=>fnd_log.level_statement);
4573:
4574: END IF;
4575:
4576: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4577: hz_utility_v2pub.debug(p_message=>'(+) after validate tax_printing_option ... ' ||
4578: 'x_return_status = ' || x_return_status,
4579: p_prefix =>l_debug_prefix,
4580: p_msg_level=>fnd_log.level_statement);
4581: END IF;
4649: p_ckeck_acc_bfb_enabled => l_ckeck_acc_bfb_enabled,
4650: x_return_status => x_return_status );
4651:
4652: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4653: hz_utility_v2pub.debug(p_message=>'standard_terms is foreign key to ra_terms . ' ||
4654: 'x_return_status = ' || x_return_status,
4655: p_prefix =>l_debug_prefix,
4656: p_msg_level=>fnd_log.level_statement);
4657: END IF;
4658:
4659: END IF;
4660:
4661: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4662: hz_utility_v2pub.debug(p_message=>'(+) after validate standard_terms ... ' ||
4663: 'x_return_status = ' || x_return_status,
4664: p_prefix =>l_debug_prefix,
4665: p_msg_level=>fnd_log.level_statement);
4666: END IF;
4681: p_column_value => p_customer_profile_rec.grouping_rule_id,
4682: x_return_status => x_return_status );
4683:
4684: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4685: hz_utility_v2pub.debug(p_message=>'grouping_rule_id is foreign key to ra_grouping_rules . ' ||
4686: 'x_return_status = ' || x_return_status,
4687: p_prefix =>l_debug_prefix,
4688: p_msg_level=>fnd_log.level_statement);
4689: END IF;
4690:
4691: END IF;
4692:
4693: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4694: hz_utility_v2pub.debug(p_message=>'(+) after validate grouping_rule_id ... ' ||
4695: 'x_return_status = ' || x_return_status,
4696: p_prefix =>l_debug_prefix,
4697: p_msg_level=>fnd_log.level_statement);
4698: END IF;
4711: p_column_value => p_customer_profile_rec.automatch_set_id,
4712: x_return_status => x_return_status );
4713:
4714: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4715: hz_utility_v2pub.debug(p_message=>'automatch_set_id is foreign key to AR_CASH_AUTO_RULE_SETS. ' ||
4716: 'x_return_status = ' || x_return_status,
4717: p_prefix =>l_debug_prefix,
4718: p_msg_level=>fnd_log.level_statement);
4719: END IF;
4720:
4721: END IF;
4722:
4723: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4724: hz_utility_v2pub.debug(p_message=>'(+) after validate automatch_set_id ... ' ||
4725: 'x_return_status = ' || x_return_status,
4726: p_prefix =>l_debug_prefix,
4727: p_msg_level=>fnd_log.level_statement);
4728: END IF;
4741: p_column_value => v_customer_profile_rec.discount_grace_days,
4742: x_return_status => x_return_status );
4743:
4744: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4745: hz_utility_v2pub.debug(p_message=>'discount_grace_days should be > 0.' ||'x_return_status = ' ||
4746: x_return_status,
4747: p_prefix =>l_debug_prefix,
4748: p_msg_level=>fnd_log.level_statement);
4749: END IF;
4796: FND_MSG_PUB.ADD;
4797: x_return_status := FND_API.G_RET_STS_ERROR;
4798:
4799: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4800: hz_utility_v2pub.debug(p_message=>'discount_grace_days should be null when discount_terms is N.' ||
4801: 'x_return_status = ' || x_return_status,
4802: p_prefix =>l_debug_prefix,
4803: p_msg_level=>fnd_log.level_statement);
4804: END IF;
4806: END IF;
4807: END IF;
4808:
4809: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4810: hz_utility_v2pub.debug(p_message=>'(+) after validate discount_terms ... ' ||
4811: 'x_return_status = ' || x_return_status,
4812: p_prefix =>l_debug_prefix,
4813: p_msg_level=>fnd_log.level_statement);
4814: END IF;
4863: FND_MSG_PUB.ADD;
4864: x_return_status := FND_API.G_RET_STS_ERROR;
4865:
4866: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4867: hz_utility_v2pub.debug(p_message=>'dunning_letter_set_id cannot be NULL when dunning_letters is Y.' ||
4868: 'x_return_status = ' || x_return_status,
4869: p_prefix =>l_debug_prefix,
4870: p_msg_level=>fnd_log.level_statement);
4871: END IF;
4887: FND_MSG_PUB.ADD;
4888: x_return_status := FND_API.G_RET_STS_ERROR;
4889:
4890: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4891: hz_utility_v2pub.debug(p_message=>'dunning_letter_set_id should be NULL when dunning_letters is N.' ||
4892: 'x_return_status = ' || x_return_status,
4893: p_prefix =>l_debug_prefix,
4894: p_msg_level=>fnd_log.level_statement);
4895: END IF;
4896:
4897: END IF;
4898: END IF;*/
4899: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4900: hz_utility_v2pub.debug(p_message=>'(+) after validate duning_letters ... ' ||
4901: 'x_return_status = ' || x_return_status,
4902: p_prefix =>l_debug_prefix,
4903: p_msg_level=>fnd_log.level_statement);
4904: END IF;
4964: FND_MSG_PUB.ADD;
4965: x_return_status := FND_API.G_RET_STS_ERROR;
4966:
4967: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4968: hz_utility_v2pub.debug(p_message=>'statement_cycle_id cannot be NULL when send_statements
4969: is Y.' || 'x_return_status = ' || x_return_status,
4970: p_prefix =>l_debug_prefix,
4971: p_msg_level=>fnd_log.level_statement);
4972: END IF;
4980: FND_MSG_PUB.ADD;
4981: x_return_status := FND_API.G_RET_STS_ERROR;
4982:
4983: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
4984: hz_utility_v2pub.debug(p_message=>'credit_balance_statements cannot be NULL when
4985: send_statements is Y .' || 'x_return_status = ' ||
4986: x_return_status,
4987: p_prefix =>l_debug_prefix,
4988: p_msg_level=>fnd_log.level_statement);
5005: FND_MSG_PUB.ADD;
5006: x_return_status := FND_API.G_RET_STS_ERROR;
5007:
5008: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5009: hz_utility_v2pub.debug(p_message=>'statement_cycle_id should be NULL when send_statements
5010: is N .' || 'x_return_status = ' || x_return_status,
5011: p_prefix =>l_debug_prefix,
5012: p_msg_level=>fnd_log.level_statement);
5013: END IF;
5024: FND_MSG_PUB.ADD;
5025: x_return_status := FND_API.G_RET_STS_ERROR;
5026:
5027: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5028: hz_utility_v2pub.debug(p_message=>'credit_balance_statements should be N when send_statements
5029: is N .' || 'x_return_status = ' || x_return_status,
5030: p_prefix =>l_debug_prefix,
5031: p_msg_level=>fnd_log.level_statement);
5032: END IF;
5034: END IF;
5035: END IF;
5036:
5037: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5038: hz_utility_v2pub.debug(p_message=>'(+) after validate send_statements ... ' ||
5039: 'x_return_status = ' || x_return_status,
5040: p_prefix =>l_debug_prefix,
5041: p_msg_level=>fnd_log.level_statement);
5042: END IF;
5109: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_VAL_INT_CHARGES_Y' );
5110: FND_MSG_PUB.ADD;
5111: x_return_status := FND_API.G_RET_STS_ERROR;
5112: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5113: hz_utility_v2pub.debug(p_message=>'interest_period_days cannot be NULL when interest_charges is Y.' || 'x_return_status = ' || x_return_status,
5114: p_prefix =>l_debug_prefix,
5115: p_msg_level=>fnd_log.level_statement);
5116: END IF;
5117:
5125: x_return_status => x_return_status );
5126:
5127:
5128: IF G_DEBUG THEN
5129: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
5130: 'charge_on_finance_charge_flag is mandatory. ' ||
5131: 'x_return_status = ' || x_return_status, l_debug_prefix );
5132: END IF;
5133: */
5150: FND_MSG_PUB.ADD;
5151: x_return_status := FND_API.G_RET_STS_ERROR;
5152:
5153: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5154: hz_utility_v2pub.debug(p_message=>'Interest_period_days should be NULL when interest_charges
5155: is N .' || 'x_return_status = ' || x_return_status,
5156: p_prefix =>l_debug_prefix,
5157: p_msg_level=>fnd_log.level_statement);
5158: END IF;
5168: FND_MSG_PUB.ADD;
5169: x_return_status := FND_API.G_RET_STS_ERROR;
5170:
5171: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5172: hz_utility_v2pub.debug(p_message=>'charge_on_finance_charge_flag cannot be Y when
5173: interest_charges is N .' || 'x_return_status ='
5174: || x_return_status,
5175: p_prefix =>l_debug_prefix,
5176: p_msg_level=>fnd_log.level_statement);
5179: END IF;
5180: END IF;
5181: */
5182: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5183: hz_utility_v2pub.debug(p_message=>'(+) after validate interest_charges ... ' ||
5184: 'x_return_status = ' || x_return_status,
5185: p_prefix =>l_debug_prefix,
5186: p_msg_level=>fnd_log.level_statement);
5187: END IF;
5203: p_column_value => p_customer_profile_rec.credit_classification,
5204: x_return_status => x_return_status );
5205:
5206: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5207: hz_utility_v2pub.debug(p_message=>'credit_classification is lookup code in lookup type AR_CMGT_CREDIT_CLASSIFICATION in ar_lookups. ' ||
5208: 'x_return_status = ' || x_return_status,
5209: p_prefix =>l_debug_prefix,
5210: p_msg_level=>fnd_log.level_statement);
5211: END IF;
5216:
5217: -- Debug info.
5218:
5219: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
5220: hz_utility_v2pub.debug(p_message=>'validate_customer_profile (-)',
5221: p_prefix=>l_debug_prefix,
5222: p_msg_level=>fnd_log.level_procedure);
5223: END IF;
5224:
5240: p_column_value => p_customer_profile_rec.late_charge_calculation_trx,
5241: x_return_status => x_return_status );
5242:
5243: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5244: hz_utility_v2pub.debug(p_message=>'late_charge_calculation_trx is lookup code in lookup type AR_MANDATORY_LATE_CHARGES. ' ||
5245: 'x_return_status = ' || x_return_status,
5246: p_prefix =>l_debug_prefix,
5247: p_msg_level=>fnd_log.level_statement);
5248: END IF;
5249:
5250: END IF;
5251:
5252: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5253: hz_utility_v2pub.debug(p_message=>'(+) after validate late_charge_calculation_trx ... ' ||
5254: 'x_return_status = ' || x_return_status,
5255: p_prefix =>l_debug_prefix,
5256: p_msg_level=>fnd_log.level_statement);
5257: END IF;
5274: x_return_status => x_return_status );
5275:
5276:
5277: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5278: hz_utility_v2pub.debug(p_message=>'credit_items_flag is lookup code in lookup type YES/NO. ' ||
5279: 'x_return_status = ' || x_return_status,
5280: p_prefix =>l_debug_prefix,
5281: p_msg_level=>fnd_log.level_statement);
5282: END IF;
5283:
5284: END IF;
5285:
5286: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5287: hz_utility_v2pub.debug(p_message=>'(+) after validate credit_items_flag ... ' ||
5288: 'x_return_status = ' || x_return_status,
5289: p_prefix =>l_debug_prefix,
5290: p_msg_level=>fnd_log.level_statement);
5291: END IF;
5308: x_return_status => x_return_status );
5309:
5310:
5311: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5312: hz_utility_v2pub.debug(p_message=>'disputed_transactions_flag is lookup code in lookup type YES/NO. ' ||
5313: 'x_return_status = ' || x_return_status,
5314: p_prefix =>l_debug_prefix,
5315: p_msg_level=>fnd_log.level_statement);
5316: END IF;
5317:
5318: END IF;
5319:
5320: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5321: hz_utility_v2pub.debug(p_message=>'(+) after validate disputed_transactions_flag ... ' ||
5322: 'x_return_status = ' || x_return_status,
5323: p_prefix =>l_debug_prefix,
5324: p_msg_level=>fnd_log.level_statement);
5325: END IF;
5341: p_column_value => p_customer_profile_rec.late_charge_type,
5342: x_return_status => x_return_status );
5343:
5344: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5345: hz_utility_v2pub.debug(p_message=>'late_charge_type is lookup code in lookup type AR_LATE_CHARGE_TYPE. ' ||
5346: 'x_return_status = ' || x_return_status,
5347: p_prefix =>l_debug_prefix,
5348: p_msg_level=>fnd_log.level_statement);
5349: END IF;
5350:
5351: END IF;
5352:
5353: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5354: hz_utility_v2pub.debug(p_message=>'(+) after validate late_charge_type ... ' ||
5355: 'x_return_status = ' || x_return_status,
5356: p_prefix =>l_debug_prefix,
5357: p_msg_level=>fnd_log.level_statement);
5358: END IF;
5374: p_column_value => p_customer_profile_rec.interest_calculation_period,
5375: x_return_status => x_return_status );
5376:
5377: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5378: hz_utility_v2pub.debug(p_message=>'interest_calculation_period is lookup code in lookup type AR_CALCULATION_PERIOD. ' ||
5379: 'x_return_status = ' || x_return_status,
5380: p_prefix =>l_debug_prefix,
5381: p_msg_level=>fnd_log.level_statement);
5382: END IF;
5383:
5384: END IF;
5385:
5386: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5387: hz_utility_v2pub.debug(p_message=>'(+) after validate interest_calculation_period ... ' ||
5388: 'x_return_status = ' || x_return_status,
5389: p_prefix =>l_debug_prefix,
5390: p_msg_level=>fnd_log.level_statement);
5391: END IF;
5408: x_return_status => x_return_status );
5409:
5410:
5411: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5412: hz_utility_v2pub.debug(p_message=>'hold_charged_invoices_flag is lookup code in lookup type YES/NO. ' ||
5413: 'x_return_status = ' || x_return_status,
5414: p_prefix =>l_debug_prefix,
5415: p_msg_level=>fnd_log.level_statement);
5416: END IF;
5417:
5418: END IF;
5419:
5420: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5421: hz_utility_v2pub.debug(p_message=>'(+) after validate hold_charged_invoices_flag ... ' ||
5422: 'x_return_status = ' || x_return_status,
5423: p_prefix =>l_debug_prefix,
5424: p_msg_level=>fnd_log.level_statement);
5425: END IF;
5442: x_return_status => x_return_status );
5443:
5444:
5445: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5446: hz_utility_v2pub.debug(p_message=>'multiple_interest_rates_flag is lookup code in lookup type YES/NO. ' ||
5447: 'x_return_status = ' || x_return_status,
5448: p_prefix =>l_debug_prefix,
5449: p_msg_level=>fnd_log.level_statement);
5450: END IF;
5451:
5452: END IF;
5453:
5454: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5455: hz_utility_v2pub.debug(p_message=>'(+) after validate multiple_interest_rates_flag ... ' ||
5456: 'x_return_status = ' || x_return_status,
5457: p_prefix =>l_debug_prefix,
5458: p_msg_level=>fnd_log.level_statement);
5459: END IF;
5488: p_cons_inv_flag => p_customer_profile_rec.cons_inv_flag,
5489: x_return_status => x_return_status );
5490:
5491: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5492: hz_utility_v2pub.debug(p_message=>'late_charge_term_id should be a valid value defined in RA_TERMS. '||
5493: 'x_return_status = ' || x_return_status,
5494: p_prefix =>l_debug_prefix,
5495: p_msg_level=>fnd_log.level_statement);
5496: END IF;
5497:
5498: END IF;
5499:
5500: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5501: hz_utility_v2pub.debug(p_message=>'(+) after validate late_charge_term_id..' ||
5502: 'x_return_status = ' || x_return_status,
5503: p_prefix =>l_debug_prefix,
5504: p_msg_level=>fnd_log.level_statement);
5505: END IF;
5531: p_column_value => p_customer_profile_rec.message_text_id,
5532: x_return_status => x_return_status );
5533:
5534: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5535: hz_utility_v2pub.debug(p_message=>'message_text_id should be a valid value defined in AR_STANDARD_TEXT. '||
5536: 'x_return_status = ' || x_return_status,
5537: p_prefix =>l_debug_prefix,
5538: p_msg_level=>fnd_log.level_statement);
5539: END IF;
5540:
5541: END IF;
5542:
5543: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5544: hz_utility_v2pub.debug(p_message=>'(+) after validate message_text_id..' ||
5545: 'x_return_status = ' || x_return_status,
5546: p_prefix =>l_debug_prefix,
5547: p_msg_level=>fnd_log.level_statement);
5548: END IF;
5637:
5638: -- Debug info.
5639:
5640: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
5641: hz_utility_v2pub.debug(p_message=>'validate_cust_profile_amt (+)',
5642: p_prefix=>l_debug_prefix,
5643: p_msg_level=>fnd_log.level_procedure);
5644: END IF;
5645:
5674: --------------------------------------
5675: -- validate cust_acct_profile_amt_id
5676: --------------------------------------
5677: /****Logical APIs - validation not required****/
5678: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
5679: IF p_create_update_flag = 'C' THEN
5680:
5681: -- If primary key value is passed, check for uniqueness.
5682: -- If primary key value is not passed, it will be generated
5699: NULL;
5700: END;
5701:
5702: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5703: hz_utility_v2pub.debug(p_message=>'cust_acct_profile_amt_id is unique during creation if passed in. ' ||
5704: 'x_return_status = ' || x_return_status,
5705: p_prefix =>l_debug_prefix,
5706: p_msg_level=>fnd_log.level_statement);
5707: END IF;
5708: END IF;
5709: END IF;
5710:
5711: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5712: hz_utility_v2pub.debug(p_message=>'(+) after validate cust_acct_profile_amt_id ... ' ||
5713: 'x_return_status = ' || x_return_status,
5714: p_prefix =>l_debug_prefix,
5715: p_msg_level=>fnd_log.level_statement);
5716: END IF;
5719: ----------------------------------------------
5720: -- validate cust_account_profile_id
5721: ----------------------------------------------
5722: /****Logical APIs - validation not required****/
5723: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
5724: -- cust_account_profile_id is mandatory field
5725: -- Since cust_account_profile_id is non-updateable, we only need to check mandatory
5726: -- during creation.
5727:
5732: p_column_value => p_cust_profile_amt_rec.cust_account_profile_id,
5733: x_return_status => x_return_status );
5734:
5735: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5736: hz_utility_v2pub.debug(p_message=>'cust_account_profile_id is mandatory. ' ||
5737: 'x_return_status = ' || x_return_status,
5738: p_prefix =>l_debug_prefix,
5739: p_msg_level=>fnd_log.level_statement);
5740: END IF;
5750: p_old_column_value => l_cust_account_profile_id,
5751: x_return_status => x_return_status );
5752:
5753: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5754: hz_utility_v2pub.debug(p_message=>'cust_account_profile_id is non-updateable. ' ||
5755: 'x_return_status = ' || x_return_status,
5756: p_prefix =>l_debug_prefix,
5757: p_msg_level=>fnd_log.level_statement);
5758: END IF;
5763: -- we only need to check FK during creation.
5764:
5765:
5766: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5767: hz_utility_v2pub.debug(p_message=>'cust_account_profile_id = ' || p_cust_profile_amt_rec.cust_account_profile_id || ' ' ||
5768: 'x_return_status = ' || x_return_status,
5769: p_prefix =>l_debug_prefix,
5770: p_msg_level=>fnd_log.level_statement);
5771: END IF;
5794: x_return_status := FND_API.G_RET_STS_ERROR;
5795: END;
5796:
5797: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5798: hz_utility_v2pub.debug(p_message=>'cust_account_profile_id is foreign key to hz_customer_profiles. ' ||
5799: 'x_return_status = ' || x_return_status,
5800: p_prefix =>l_debug_prefix,
5801: p_msg_level=>fnd_log.level_statement);
5802: END IF;
5803:
5804: END IF;
5805:
5806: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5807: hz_utility_v2pub.debug(p_message=>'(+) after validate cust_account_profile_id ... ' ||
5808: 'x_return_status = ' || x_return_status,
5809: p_prefix =>l_debug_prefix,
5810: p_msg_level=>fnd_log.level_statement);
5811: END IF;
5814: ----------------------------------------------
5815: -- validate cust_account_id
5816: ----------------------------------------------
5817: /****Logical APIs - validation not required****/
5818: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
5819: -- cust_account_id is mandatory field
5820: -- Since cust_account_id is non-updateable, we only need to check mandatory
5821: -- during creation.
5822:
5827: p_column_value => p_cust_profile_amt_rec.cust_account_id,
5828: x_return_status => x_return_status );
5829:
5830: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5831: hz_utility_v2pub.debug(p_message=>'cust_account_id is mandatory. ' ||
5832: 'x_return_status = ' || x_return_status,
5833: p_prefix =>l_debug_prefix,
5834: p_msg_level=>fnd_log.level_statement);
5835: END IF;
5845: p_old_column_value => l_cust_account_id,
5846: x_return_status => x_return_status );
5847:
5848: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5849: hz_utility_v2pub.debug(p_message=>'cust_account_id is non-updateable. ' ||
5850: 'x_return_status = ' || x_return_status,
5851: p_prefix =>l_debug_prefix,
5852: p_msg_level=>fnd_log.level_statement);
5853: END IF;
5857: -- Since cust_account_id is mandatory and non-updateable,
5858: -- we only need to check FK during creation.
5859:
5860: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5861: hz_utility_v2pub.debug(p_message=>'cust_account_id = ' || p_cust_profile_amt_rec.cust_account_id || ' ' ||
5862: 'x_return_status = ' || x_return_status,
5863: p_prefix =>l_debug_prefix,
5864: p_msg_level=>fnd_log.level_statement);
5865: END IF;
5874: p_column_value => p_cust_profile_amt_rec.cust_account_id,
5875: x_return_status => x_return_status );
5876:
5877: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5878: hz_utility_v2pub.debug(p_message=>'cust_account_id is foreign key to hz_cust_accounts. ' ||
5879: 'x_return_status = ' || x_return_status,
5880: p_prefix =>l_debug_prefix,
5881: p_msg_level=>fnd_log.level_statement);
5882: END IF;
5890: x_return_status := FND_API.G_RET_STS_ERROR;
5891: END IF;
5892:
5893: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5894: hz_utility_v2pub.debug(p_message=>'cust_account_id should be the same as cust_account_id in corresponding customer profile. ' ||
5895: 'x_return_status = ' || x_return_status,
5896: p_prefix =>l_debug_prefix,
5897: p_msg_level=>fnd_log.level_statement);
5898: END IF;
5899:
5900: END IF;
5901:
5902: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5903: hz_utility_v2pub.debug(p_message=>'(+) after validate cust_account_id ... ' ||
5904: 'x_return_status = ' || x_return_status,
5905: p_prefix =>l_debug_prefix,
5906: p_msg_level=>fnd_log.level_statement);
5907: END IF;
5922: p_column_value => p_cust_profile_amt_rec.currency_code,
5923: x_return_status => x_return_status );
5924:
5925: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5926: hz_utility_v2pub.debug(p_message=>'currency_code is mandatory. ' ||
5927: 'x_return_status = ' || x_return_status,
5928: p_prefix =>l_debug_prefix,
5929: p_msg_level=>fnd_log.level_statement);
5930: END IF;
5940: p_old_column_value => l_currency_code,
5941: x_return_status => x_return_status );
5942:
5943: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5944: hz_utility_v2pub.debug(p_message=>'currency_code is non-updateable. ' ||
5945: 'x_return_status = ' || x_return_status,
5946: p_prefix =>l_debug_prefix,
5947: p_msg_level=>fnd_log.level_statement);
5948: END IF;
5961: p_column_value => p_cust_profile_amt_rec.currency_code,
5962: x_return_status => x_return_status );
5963:
5964: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5965: hz_utility_v2pub.debug(p_message=>'currency_code is foreign key to fnd_currencies. ' ||
5966: 'x_return_status = ' || x_return_status,
5967: p_prefix =>l_debug_prefix,
5968: p_msg_level=>fnd_log.level_statement);
5969: END IF;
5992: NULL;
5993: END;
5994:
5995: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
5996: hz_utility_v2pub.debug(p_message=>'for a given cust_account_profile_id and currency_code, only one record of the profile amount is allowed. ' ||
5997: 'x_return_status = ' || x_return_status,
5998: p_prefix =>l_debug_prefix,
5999: p_msg_level=>fnd_log.level_statement);
6000: END IF;
6000: END IF;
6001: END IF;
6002:
6003: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6004: hz_utility_v2pub.debug(p_message=>'(+) after validate currency_code ... ' ||
6005: 'x_return_status = ' || x_return_status,
6006: p_prefix =>l_debug_prefix,
6007: p_msg_level=>fnd_log.level_statement);
6008: END IF;
6010: ----------------------------------------------
6011: -- validate site_use_id
6012: ----------------------------------------------
6013: /****Logical APIs - validation not required****/
6014: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
6015: -- site_use_id is non-updateable field
6016: IF p_create_update_flag = 'U' AND
6017: p_cust_profile_amt_rec.site_use_id IS NOT NULL
6018: THEN
6022: p_old_column_value => l_site_use_id,
6023: x_return_status => x_return_status );
6024:
6025: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6026: hz_utility_v2pub.debug(p_message=>'site_use_id is non-updateable. ' ||
6027: 'x_return_status = ' || x_return_status,
6028: p_prefix =>l_debug_prefix,
6029: p_msg_level=>fnd_log.level_statement);
6030: END IF;
6045: p_column_value => p_cust_profile_amt_rec.site_use_id,
6046: x_return_status => x_return_status );
6047:
6048: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6049: hz_utility_v2pub.debug(p_message=>'site_use_id is foreign key to hz_cust_site_uses. ' ||
6050: 'x_return_status = ' || x_return_status,
6051: p_prefix =>l_debug_prefix,
6052: p_msg_level=>fnd_log.level_statement);
6053: END IF;
6069: x_return_status := FND_API.G_RET_STS_ERROR;
6070: END IF;
6071:
6072: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6073: hz_utility_v2pub.debug(p_message=>'site_use_id should be the same as site_use_id site_use_id in corresponding customer profile. ' ||
6074: 'x_return_status = ' || x_return_status,
6075: p_prefix =>l_debug_prefix,
6076: p_msg_level=>fnd_log.level_statement);
6077: END IF;
6077: END IF;
6078: END IF;
6079:
6080: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6081: hz_utility_v2pub.debug(p_message=>'(+) after validate site_use_id ... ' ||
6082: 'x_return_status = ' || x_return_status,
6083: p_prefix =>l_debug_prefix,
6084: p_msg_level=>fnd_log.level_statement);
6085: END IF;
6143: FND_MSG_PUB.ADD;
6144: x_return_status := FND_API.G_RET_STS_ERROR;
6145:
6146: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6147: hz_utility_v2pub.debug(p_message=>'overall_credit_limit should be greater than the trx_credit_limit. ' ||
6148: 'x_return_status = ' || x_return_status,
6149: p_prefix =>l_debug_prefix,
6150: p_msg_level=>fnd_log.level_statement);
6151: END IF;
6154: END IF;
6155: END IF;
6156:
6157: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6158: hz_utility_v2pub.debug(p_message=>'Credit Limit Validation failure. Please check the overall_credit_limit and trx_credit_limit ' || 'x_return_status = ' || x_return_status,
6159: p_prefix =>l_debug_prefix,
6160: p_msg_level=>fnd_log.level_statement);
6161: END IF;
6162:
6178: p_column_value => p_cust_profile_amt_rec.min_fc_invoice_overdue_type,
6179: x_return_status => x_return_status );
6180:
6181: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6182: hz_utility_v2pub.debug(p_message=>'min_fc_invoice_overdue_type is lookup code in lookup type AR_AMOUNT_PERCENT. ' ||
6183: 'x_return_status = ' || x_return_status,
6184: p_prefix =>l_debug_prefix,
6185: p_msg_level=>fnd_log.level_statement);
6186: END IF;
6187:
6188: END IF;
6189:
6190: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6191: hz_utility_v2pub.debug(p_message=>'(+) after validate min_fc_invoice_overdue_type ... ' ||
6192: 'x_return_status = ' || x_return_status,
6193: p_prefix =>l_debug_prefix,
6194: p_msg_level=>fnd_log.level_statement);
6195: END IF;
6212: p_column_value => p_cust_profile_amt_rec.min_fc_balance_overdue_type,
6213: x_return_status => x_return_status );
6214:
6215: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6216: hz_utility_v2pub.debug(p_message=>'min_fc_balance_overdue_type is lookup code in lookup type AR_AMOUNT_PERCENT. ' ||
6217: 'x_return_status = ' || x_return_status,
6218: p_prefix =>l_debug_prefix,
6219: p_msg_level=>fnd_log.level_statement);
6220: END IF;
6221:
6222: END IF;
6223:
6224: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6225: hz_utility_v2pub.debug(p_message=>'(+) after validate min_fc_balance_overdue_type ... ' ||
6226: 'x_return_status = ' || x_return_status,
6227: p_prefix =>l_debug_prefix,
6228: p_msg_level=>fnd_log.level_statement);
6229: END IF;
6246: p_column_value => p_cust_profile_amt_rec.interest_type,
6247: x_return_status => x_return_status );
6248:
6249: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6250: hz_utility_v2pub.debug(p_message=>'interest_type is lookup code in lookup type AR_INTEREST_PENALTY_TYPE. ' ||
6251: 'x_return_status = ' || x_return_status,
6252: p_prefix =>l_debug_prefix,
6253: p_msg_level=>fnd_log.level_statement);
6254: END IF;
6255:
6256: END IF;
6257:
6258: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6259: hz_utility_v2pub.debug(p_message=>'(+) after validate interest_type ... ' ||
6260: 'x_return_status = ' || x_return_status,
6261: p_prefix =>l_debug_prefix,
6262: p_msg_level=>fnd_log.level_statement);
6263: END IF;
6280: p_column_value => p_cust_profile_amt_rec.penalty_type,
6281: x_return_status => x_return_status );
6282:
6283: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6284: hz_utility_v2pub.debug(p_message=>'penalty_type is lookup code in lookup type AR_INTEREST_PENALTY_TYPE. ' ||
6285: 'x_return_status = ' || x_return_status,
6286: p_prefix =>l_debug_prefix,
6287: p_msg_level=>fnd_log.level_statement);
6288: END IF;
6289:
6290: END IF;
6291:
6292: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6293: hz_utility_v2pub.debug(p_message=>'(+) after validate penalty_type ... ' ||
6294: 'x_return_status = ' || x_return_status,
6295: p_prefix =>l_debug_prefix,
6296: p_msg_level=>fnd_log.level_statement);
6297: END IF;
6298:
6299: -- Debug info.
6300:
6301: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
6302: hz_utility_v2pub.debug(p_message=> 'validate_cust_profile_amt (-)',
6303: p_prefix=>l_debug_prefix,
6304: p_msg_level=>fnd_log.level_procedure);
6305: END IF;
6306:
6322: p_column_value => p_cust_profile_amt_rec.exchange_rate_type,
6323: x_return_status => x_return_status );
6324:
6325: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6326: hz_utility_v2pub.debug(p_message=>'exchange_rate_type should be a valid value defined in GL_DAILY_CONVERSION_TYPES. '||
6327: 'x_return_status = ' || x_return_status,
6328: p_prefix =>l_debug_prefix,
6329: p_msg_level=>fnd_log.level_statement);
6330: END IF;
6331:
6332: END IF;
6333:
6334: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6335: hz_utility_v2pub.debug(p_message=>'(+) after validate exchange_rate_type..' ||
6336: 'x_return_status = ' || x_return_status,
6337: p_prefix =>l_debug_prefix,
6338: p_msg_level=>fnd_log.level_statement);
6339: END IF;
6396: p_column_value => v_cust_profile_amt_rec.min_fc_invoice_percent,
6397: x_return_status => x_return_status );
6398:
6399: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6400: hz_utility_v2pub.debug(p_message=>'min_fc_invoice_percent should be < 100.' ||'x_return_status = ' ||
6401: x_return_status,
6402: p_prefix =>l_debug_prefix,
6403: p_msg_level=>fnd_log.level_statement);
6404: END IF;
6412: END IF;
6413: END IF;
6414:
6415: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6416: hz_utility_v2pub.debug(p_message=>' after validate min_fc_invoice_amount and min_fc_invoice_percent..' ||
6417: 'x_return_status = ' || x_return_status,
6418: p_prefix =>l_debug_prefix,
6419: p_msg_level=>fnd_log.level_statement);
6420: END IF;
6477: p_column_value => v_cust_profile_amt_rec.min_fc_balance_percent,
6478: x_return_status => x_return_status );
6479:
6480: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6481: hz_utility_v2pub.debug(p_message=>'min_fc_balance_percent should be < 100.' ||'x_return_status = ' ||
6482: x_return_status,
6483: p_prefix =>l_debug_prefix,
6484: p_msg_level=>fnd_log.level_statement);
6485: END IF;
6493: END IF;
6494: END IF;
6495:
6496: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6497: hz_utility_v2pub.debug(p_message=>' after validate min_fc_balance_amount and min_fc_balance_percent..' ||
6498: 'x_return_status = ' || x_return_status,
6499: p_prefix =>l_debug_prefix,
6500: p_msg_level=>fnd_log.level_statement);
6501: END IF;
6559: p_column_value => v_cust_profile_amt_rec.interest_rate,
6560: x_return_status => x_return_status );
6561:
6562: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6563: hz_utility_v2pub.debug(p_message=>'interest_rate should be < 100.' ||'x_return_status = ' ||
6564: x_return_status,
6565: p_prefix =>l_debug_prefix,
6566: p_msg_level=>fnd_log.level_statement);
6567: END IF;
6588: p_column_value => v_cust_profile_amt_rec.interest_schedule_id,
6589: x_return_status => x_return_status );
6590:
6591: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6592: hz_utility_v2pub.debug(p_message=>'interest_schedule_id should be a valid value defined in ar_charge_schedules' ||'x_return_status = ' ||
6593: x_return_status,
6594: p_prefix =>l_debug_prefix,
6595: p_msg_level=>fnd_log.level_statement);
6596: END IF;
6605: END IF;
6606: END IF;
6607:
6608: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6609: hz_utility_v2pub.debug(p_message=>' after validate interest_rate, interest_fixed_amount and interest_schedule_id.' ||
6610: 'x_return_status = ' || x_return_status,
6611: p_prefix =>l_debug_prefix,
6612: p_msg_level=>fnd_log.level_statement);
6613: END IF;
6671: p_column_value => v_cust_profile_amt_rec.penalty_rate,
6672: x_return_status => x_return_status );
6673:
6674: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6675: hz_utility_v2pub.debug(p_message=>'penalty_rate should be < 100.' ||'x_return_status = ' ||
6676: x_return_status,
6677: p_prefix =>l_debug_prefix,
6678: p_msg_level=>fnd_log.level_statement);
6679: END IF;
6700: p_column_value => v_cust_profile_amt_rec.penalty_schedule_id,
6701: x_return_status => x_return_status );
6702:
6703: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6704: hz_utility_v2pub.debug(p_message=>'penalty_schedule_id should be a valid value defined in ar_charge_schedules' ||'x_return_status = ' ||
6705: x_return_status,
6706: p_prefix =>l_debug_prefix,
6707: p_msg_level=>fnd_log.level_statement);
6708: END IF;
6717: END IF;
6718: END IF;
6719:
6720: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6721: hz_utility_v2pub.debug(p_message=>' after validate penalty_rate, penalty_fixed_amount and penalty_schedule_id.' ||
6722: 'x_return_status = ' || x_return_status,
6723: p_prefix =>l_debug_prefix,
6724: p_msg_level=>fnd_log.level_statement);
6725: END IF;
6773: l_dummy VARCHAR2(1);
6774: BEGIN
6775: BEGIN
6776: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
6777: hz_utility_v2pub.debug(p_message=>'validate_accnt_party_site (+)',
6778: p_prefix=>l_debug_prefix,
6779: p_msg_level=>fnd_log.level_procedure);
6780: END IF;
6781:
6785: WHERE cust_account_id = p_cust_acct_site_rec.cust_account_id ;
6786:
6787: -- Debug info.
6788: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6789: hz_utility_v2pub.debug(p_message=>' Account Party ID : '||l_account_party_id||' Account Number : '||l_account_number,
6790: p_prefix =>l_debug_prefix,
6791: p_msg_level=>fnd_log.level_statement);
6792: END IF;
6793:
6797: WHERE party_site_id = p_cust_acct_site_rec.party_site_id;
6798:
6799: -- Debug info.
6800: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6801: hz_utility_v2pub.debug(p_message=>'Site Party ID : '||l_site_party_id,
6802: p_prefix =>l_debug_prefix,
6803: p_msg_level=>fnd_log.level_statement);
6804: END IF;
6805:
6807: IF l_account_party_id <> l_site_party_id THEN
6808: BEGIN
6809: -- Debug info.
6810: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6811: hz_utility_v2pub.debug(p_message=>'Parties are not equal, Site Party ID : '||l_site_party_id
6812: ||' and Account Party ID : '||l_account_party_id,
6813: p_prefix =>l_debug_prefix,
6814: p_msg_level=>fnd_log.level_statement);
6815: END IF;
6819: FROM hz_parties
6820: WHERE party_id = l_site_party_id ;
6821: -- Debug info.
6822: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6823: hz_utility_v2pub.debug(p_message=>' Site Party Type : '||l_party_type||' Site Party Name : '||l_site_party_name,
6824: p_prefix =>l_debug_prefix,
6825: p_msg_level=>fnd_log.level_statement);
6826: END IF;
6827:
6830: FROM hz_parties
6831: WHERE party_id = l_account_party_id ;
6832: -- Debug info.
6833: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6834: hz_utility_v2pub.debug(p_message=>' Account Party Name : '||l_account_party_name,
6835: p_prefix =>l_debug_prefix,
6836: p_msg_level=>fnd_log.level_statement);
6837: END IF;
6838:
6852: WHEN NO_DATA_FOUND THEN
6853:
6854: -- Debug info.
6855: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6856: hz_utility_v2pub.debug(p_message=>'Party Type is PARTY_RELATIONSHIP and no record found '||
6857: ' with combination of '||l_account_party_id||'(subject_id) and '||l_site_party_id||'(Party_id)',
6858: p_prefix =>l_debug_prefix,
6859: p_msg_level=>fnd_log.level_statement);
6860: END IF;
6881: EXCEPTION
6882: WHEN NO_DATA_FOUND THEN
6883: -- Debug info.
6884: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6885: hz_utility_v2pub.debug(p_message=>'Party Type is not a PARTY_RELATIONSHIP and no record found '||
6886: ' with combination of '||l_account_party_id||'(subject_id) and '||l_site_party_id||'(object_id)',
6887: p_prefix =>l_debug_prefix,
6888: p_msg_level=>fnd_log.level_statement);
6889: END IF;
6899: EXCEPTION
6900: WHEN NO_DATA_FOUND THEN
6901: -- Debug info.
6902: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6903: hz_utility_v2pub.debug(p_message=>'Site Party ID : '||l_site_party_id
6904: ||' or Account Party ID : '||l_account_party_id||' is Invalid',
6905: p_prefix =>l_debug_prefix,
6906: p_msg_level=>fnd_log.level_statement);
6907: END IF;
6908: END;
6909:
6910: END IF;
6911: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
6912: hz_utility_v2pub.debug(p_message=>'validate_accnt_party_site (-)',
6913: p_prefix=>l_debug_prefix,
6914: p_msg_level=>fnd_log.level_procedure);
6915: END IF;
6916: EXCEPTION
6916: EXCEPTION
6917: WHEN NO_DATA_FOUND THEN
6918: -- Debug info.
6919: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
6920: hz_utility_v2pub.debug(p_message=>'Account Id '||p_cust_acct_site_rec.cust_account_id||
6921: ' or Party Site Id '||p_cust_acct_site_rec.party_site_id||' is Invalid',
6922: p_prefix =>l_debug_prefix,
6923: p_msg_level=>fnd_log.level_statement);
6924: END IF;
6996:
6997: -- Debug info.
6998:
6999: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
7000: hz_utility_v2pub.debug(p_message=>'validate_cust_acct_site (+)',
7001: p_prefix=>l_debug_prefix,
7002: p_msg_level=>fnd_log.level_procedure);
7003: END IF;
7004:
7016: --------------------------------------
7017: -- validate cust_acct_site_id
7018: --------------------------------------
7019: /****Logical APIs - validation not required****/
7020: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
7021: IF p_create_update_flag = 'C' THEN
7022:
7023: -- If primary key value is passed, check for uniqueness.
7024: -- If primary key value is not passed, it will be generated
7043:
7044: -- Debug info.
7045:
7046: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7047: hz_utility_v2pub.debug(p_message=>'cust_acct_site_id is unique during creation if passed in. ' ||
7048: 'x_return_status = ' || x_return_status,
7049: p_prefix =>l_debug_prefix,
7050: p_msg_level=>fnd_log.level_statement);
7051: END IF;
7052: END IF;
7053: END IF;
7054:
7055: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7056: hz_utility_v2pub.debug(p_message=>'(+) after validate cust_acct_site_id ... ' ||
7057: 'x_return_status = ' || x_return_status,
7058: p_prefix =>l_debug_prefix,
7059: p_msg_level=>fnd_log.level_statement);
7060: END IF;
7063: ----------------------------------------------
7064: -- validate cust_account_id
7065: ----------------------------------------------
7066: /****Logical APIs - validation not required****/
7067: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
7068: -- cust_account_id is mandatory field
7069: -- Since cust_account_id is non-updateable filed, we only need to check mandatory
7070: -- during creation.
7071:
7078:
7079: -- Debug info.
7080:
7081: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7082: hz_utility_v2pub.debug(p_message=>'cust_account_id is mandatory. ' ||
7083: 'x_return_status = ' || x_return_status,
7084: p_prefix =>l_debug_prefix,
7085: p_msg_level=>fnd_log.level_statement);
7086: END IF;
7098:
7099: -- Debug info.
7100:
7101: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7102: hz_utility_v2pub.debug(p_message=>'cust_account_id is non-updateable. ' ||
7103: 'x_return_status = ' || x_return_status,
7104: p_prefix =>l_debug_prefix,
7105: p_msg_level=>fnd_log.level_statement);
7106: END IF;
7121:
7122: -- Debug info.
7123:
7124: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7125: hz_utility_v2pub.debug(p_message=>'cust_account_id is foreign key of hz_cust_accounts. ' ||
7126: 'x_return_status = ' || x_return_status,
7127: p_prefix =>l_debug_prefix,
7128: p_msg_level=>fnd_log.level_statement);
7129: END IF;
7130: END IF;
7131: END IF;
7132:
7133: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7134: hz_utility_v2pub.debug(p_message=>'(+) after validate cust_account_id ... ' ||
7135: 'x_return_status = ' || x_return_status,
7136: p_prefix =>l_debug_prefix,
7137: p_msg_level=>fnd_log.level_statement);
7138: END IF;
7141: ----------------------------------------------
7142: -- validate party_site_id
7143: ----------------------------------------------
7144: /****Logical APIs - validation not required****/
7145: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
7146: -- party_site_id is mandatory field
7147: -- Since party_site_id is non-updateable filed, we only need to check mandatory
7148: -- during creation.
7149:
7156:
7157: -- Debug info.
7158:
7159: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7160: hz_utility_v2pub.debug(p_message=>'party_site_id is mandatory. ' ||
7161: 'x_return_status = ' || x_return_status,
7162: p_prefix =>l_debug_prefix,
7163: p_msg_level=>fnd_log.level_statement);
7164: END IF;
7176:
7177: -- Debug info.
7178:
7179: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7180: hz_utility_v2pub.debug(p_message=>'party_site_id is non-updateable. ' ||
7181: 'x_return_status = ' || x_return_status,
7182: p_prefix =>l_debug_prefix,
7183: p_msg_level=>fnd_log.level_statement);
7184: END IF;
7198:
7199: -- Debug info.
7200:
7201: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7202: hz_utility_v2pub.debug(p_message=>'party_site_id is foreign key of hz_party_sites. ' ||
7203: 'x_return_status = ' || x_return_status,
7204: p_prefix =>l_debug_prefix,
7205: p_msg_level=>fnd_log.level_statement);
7206: END IF;
7231: END;
7232:
7233: -- Debug info.
7234: IF G_DEBUG THEN
7235: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,
7236: 'party_site_id must link to a USER_ENTERED location. ' ||
7237: 'x_return_status = ' || x_return_status, l_debug_prefix );
7238: END IF;
7239:
7247: x_return_status => x_return_status);
7248:
7249: -- Debug info.
7250: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7251: hz_utility_v2pub.debug(p_message=>'Account Party and Site Party are related. ' ||
7252: 'x_return_status = ' || x_return_status,
7253: p_prefix =>l_debug_prefix,
7254: p_msg_level=>fnd_log.level_statement);
7255: END IF;
7279:
7280: -- Debug info.
7281:
7282: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7283: hz_utility_v2pub.debug(p_message=>'cust_account_id and party_site_id together should be unique. ' ||
7284: 'x_return_status = ' || x_return_status,
7285: p_prefix =>l_debug_prefix,
7286: p_msg_level=>fnd_log.level_statement);
7287: END IF;
7287: END IF;
7288: END IF;
7289:
7290: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7291: hz_utility_v2pub.debug(p_message=>'(+) after validate party_site_id ... ' ||
7292: 'x_return_status = ' || x_return_status,
7293: p_prefix =>l_debug_prefix,
7294: p_msg_level=>fnd_log.level_statement);
7295: END IF;
7298: ----------------------------------------------
7299: -- validate orig_system_reference
7300: ----------------------------------------------
7301: /****Logical APIs - validation not required****/
7302: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
7303: -- orig_system_reference is unique. Since orig_system_refence is defaulting to
7304: -- primary key, we only need to check the uniqueness if user passes some value.
7305: -- database constraints can catch unique error when we defaulting.
7306: -- orig_system_reference is non-updateable, we only need to check uniqueness
7328:
7329: -- Debug info.
7330:
7331: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7332: hz_utility_v2pub.debug(p_message=>'orig_system_reference is unique if passed in. ' ||
7333: 'x_return_status = ' || x_return_status,
7334: p_prefix =>l_debug_prefix,
7335: p_msg_level=>fnd_log.level_statement);
7336: END IF;
7389:
7390: -- Debug info.
7391:
7392: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7393: hz_utility_v2pub.debug(p_message=>'orig_system_reference is non-updateable. ' ||
7394: 'x_return_status = ' || x_return_status,
7395: p_prefix =>l_debug_prefix,
7396: p_msg_level=>fnd_log.level_statement);
7397: END IF;
7397: END IF;
7398: END IF;
7399:
7400: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7401: hz_utility_v2pub.debug(p_message=>'(+) after validate orig_system_reference ... ' ||
7402: 'x_return_status = ' || x_return_status,
7403: p_prefix =>l_debug_prefix,
7404: p_msg_level=>fnd_log.level_statement);
7405: END IF;
7433: NULL;
7434: END;
7435:
7436: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7437: hz_utility_v2pub.debug(p_message=>'tp_header_id is unique if passed in. ' ||
7438: 'x_return_status = ' || x_return_status,
7439: p_prefix =>l_debug_prefix,
7440: p_msg_level=>fnd_log.level_statement);
7441: END IF;
7442:
7443: END IF;
7444:
7445: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7446: hz_utility_v2pub.debug(p_message=>'(+) after validate tp_header_id ... ' ||
7447: 'x_return_status = ' || x_return_status,
7448: p_prefix =>l_debug_prefix,
7449: p_msg_level=>fnd_log.level_statement);
7450: END IF;
7462: p_column_value => p_cust_acct_site_rec.status,
7463: x_return_status => x_return_status );
7464:
7465: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7466: hz_utility_v2pub.debug(p_message=>'status cannot be updated to null. ' ||
7467: 'x_return_status = ' || x_return_status,
7468: p_prefix =>l_debug_prefix,
7469: p_msg_level=>fnd_log.level_statement);
7470: END IF;
7470: END IF;
7471: END IF;
7472:
7473: /****Logical APIs - validation not required****/
7474: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
7475: -- status is lookup code in lookup type CODE_STATUS
7476: IF p_cust_acct_site_rec.status IS NOT NULL AND
7477: p_cust_acct_site_rec.status <> FND_API.G_MISS_CHAR AND
7478: ( p_create_update_flag = 'C' OR
7485: p_column_value => p_cust_acct_site_rec.status,
7486: x_return_status => x_return_status );
7487:
7488: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7489: hz_utility_v2pub.debug(p_message=>'status is lookup code in lookup type CODE_STATUS. ' ||
7490: 'x_return_status = ' || x_return_status,
7491: p_prefix =>l_debug_prefix,
7492: p_msg_level=>fnd_log.level_statement);
7493: END IF;
7494:
7495: END IF;
7496:
7497: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7498: hz_utility_v2pub.debug(p_message=>'(+) after validate status ... ' ||
7499: 'x_return_status = ' || x_return_status,
7500: p_prefix =>l_debug_prefix,
7501: p_msg_level=>fnd_log.level_statement);
7502: END IF;
7519: p_column_value => p_cust_acct_site_rec.customer_category_code,
7520: x_return_status => x_return_status );
7521:
7522: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7523: hz_utility_v2pub.debug(p_message=>'customer_category_code is lookup code in lookup type ADDRESS_CATEGORY. ' ||
7524: 'x_return_status = ' || x_return_status,
7525: p_prefix =>l_debug_prefix,
7526: p_msg_level=>fnd_log.level_statement);
7527: END IF;
7527: END IF;
7528: END IF;
7529:
7530: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7531: hz_utility_v2pub.debug(p_message=>'(+) after validate customer_category_code ... ' ||
7532: 'x_return_status = ' || x_return_status,
7533: p_prefix =>l_debug_prefix,
7534: p_msg_level=>fnd_log.level_statement);
7535: END IF;
7559: x_return_status := FND_API.G_RET_STS_ERROR;
7560: END;
7561:
7562: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7563: hz_utility_v2pub.debug(p_message=>'language is foreign key of fnd installed languages. ' ||
7564: 'x_return_status = ' || x_return_status,
7565: p_prefix =>l_debug_prefix,
7566: p_msg_level=>fnd_log.level_statement);
7567: END IF;
7568:
7569: END IF;
7570:
7571: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7572: hz_utility_v2pub.debug(p_message=>'(+) after validate language ... ' ||
7573: 'x_return_status = ' || x_return_status,
7574: p_prefix =>l_debug_prefix,
7575: p_msg_level=>fnd_log.level_statement);
7576: END IF;
7589: p_column_value => p_cust_acct_site_rec.primary_specialist_id,
7590: x_return_status => x_return_status );
7591:
7592: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7593: hz_utility_v2pub.debug(p_message=>'primary_specialist_id is foreign key to per_all_people_f. ' ||
7594: 'x_return_status = ' || x_return_status,
7595: p_prefix =>l_debug_prefix,
7596: p_msg_level=>fnd_log.level_statement);
7597: END IF;
7597: END IF;
7598: END IF;
7599:
7600: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7601: hz_utility_v2pub.debug(p_message=>'(+) after validate primary_specialist_id ... ' ||
7602: 'x_return_status = ' || x_return_status,
7603: p_prefix =>l_debug_prefix,
7604: p_msg_level=>fnd_log.level_statement);
7605: END IF;
7621: p_column_value => p_cust_acct_site_rec.secondary_specialist_id,
7622: x_return_status => x_return_status );
7623:
7624: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7625: hz_utility_v2pub.debug(p_message=>'secondary_specialist_id is foreign key to per_all_people_f. ' ||
7626: 'x_return_status = ' || x_return_status,
7627: p_prefix =>l_debug_prefix,
7628: p_msg_level=>fnd_log.level_statement);
7629: END IF;
7629: END IF;
7630: END IF;
7631:
7632: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7633: hz_utility_v2pub.debug(p_message=>'(+) after validate secondary_specialist_id ... ' ||
7634: 'x_return_status = ' || x_return_status,
7635: p_prefix =>l_debug_prefix,
7636: p_msg_level=>fnd_log.level_statement);
7637: END IF;
7701: END IF;
7702: END IF;
7703:
7704: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7705: hz_utility_v2pub.debug(p_message=>'The ece_tp_location_code should be unique for a customer ' ||
7706: 'x_return_status = ' || x_return_status,
7707: p_prefix =>l_debug_prefix,
7708: p_msg_level=>fnd_log.level_statement);
7709: END IF;
7710:
7711: -- Debug info.
7712:
7713: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
7714: hz_utility_v2pub.debug(p_message=>'validate_cust_acct_site (-)',
7715: p_prefix=>l_debug_prefix,
7716: p_msg_level=>fnd_log.level_procedure);
7717: END IF;
7718:
7829: --enable_debug;
7830: -- Debug info.
7831:
7832: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
7833: hz_utility_v2pub.debug(p_message=>'validate_cust_site_use (+)',
7834: p_prefix=>l_debug_prefix,
7835: p_msg_level=>fnd_log.level_procedure);
7836: END IF;
7837:
7857: --------------------------------------
7858: -- validate site_use_id
7859: --------------------------------------
7860: /****Logical APIs - validation not required****/
7861: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
7862: IF p_create_update_flag = 'C' THEN
7863:
7864: -- If primary key value is passed, check for uniqueness.
7865: -- If primary key value is not passed, it will be generated
7886:
7887: -- Debug info.
7888:
7889: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7890: hz_utility_v2pub.debug(p_message=>'site_use_id is unique during creation if passed in. ' ||
7891: 'x_return_status = ' || x_return_status,
7892: p_prefix =>l_debug_prefix,
7893: p_msg_level=>fnd_log.level_statement);
7894: END IF;
7896: END IF;
7897: END IF;
7898:
7899: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7900: hz_utility_v2pub.debug(p_message=>'(+) after validate site_use_id ... ' ||
7901: 'x_return_status = ' || x_return_status,
7902: p_prefix =>l_debug_prefix,
7903: p_msg_level=>fnd_log.level_statement);
7904: END IF;
7907: ----------------------------------------------
7908: -- validate cust_acct_site_id
7909: ----------------------------------------------
7910: -- for later use. It is selected from database during update.
7911: l_cust_acct_site_id := p_cust_site_use_rec.cust_acct_site_id; -- move it out of IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) -- bug 8408630 no data found error
7912:
7913: /****Logical APIs - validation not required****/
7914: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
7915: -- cust_acct_site_id is mandatory field
7910: -- for later use. It is selected from database during update.
7911: l_cust_acct_site_id := p_cust_site_use_rec.cust_acct_site_id; -- move it out of IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) -- bug 8408630 no data found error
7912:
7913: /****Logical APIs - validation not required****/
7914: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
7915: -- cust_acct_site_id is mandatory field
7916: -- Since cust_acct_site_id is non-updateable, we only need to check mandatory
7917: -- during creation.
7918:
7926: -- for later use. It is selected from database during update.
7927: --l_cust_acct_site_id := p_cust_site_use_rec.cust_acct_site_id;
7928:
7929: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7930: hz_utility_v2pub.debug(p_message=>'cust_acct_site_id is mandatory. ' ||
7931: 'x_return_status = ' || x_return_status,
7932: p_prefix =>l_debug_prefix,
7933: p_msg_level=>fnd_log.level_statement);
7934: END IF;
7944: p_old_column_value => l_cust_acct_site_id,
7945: x_return_status => x_return_status );
7946:
7947: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7948: hz_utility_v2pub.debug(p_message=>'cust_acct_site_id is non-updateable. ' ||
7949: 'x_return_status = ' || x_return_status,
7950: p_prefix =>l_debug_prefix,
7951: p_msg_level=>fnd_log.level_statement);
7952: END IF;
7966: p_org_id => p_cust_site_use_rec.org_id, -- Bug 3456489
7967: x_return_status => x_return_status );
7968:
7969: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7970: hz_utility_v2pub.debug(p_message=>'cust_acct_site_id is foreign key to hz_cust_acct_sites. ' ||
7971: 'x_return_status = ' || x_return_status,
7972: p_prefix =>l_debug_prefix,
7973: p_msg_level=>fnd_log.level_statement);
7974: END IF;
7981: FROM HZ_CUST_ACCT_SITES_ALL -- Bug 3456489
7982: WHERE CUST_ACCT_SITE_ID = l_cust_acct_site_id;
7983:
7984: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
7985: hz_utility_v2pub.debug(p_message=>'(+) after validate cust_acct_site_id ... ' ||
7986: 'x_return_status = ' || x_return_status,
7987: p_prefix =>l_debug_prefix,
7988: p_msg_level=>fnd_log.level_statement);
7989: END IF;
7986: 'x_return_status = ' || x_return_status,
7987: p_prefix =>l_debug_prefix,
7988: p_msg_level=>fnd_log.level_statement);
7989: END IF;
7990: -- END IF; Bug 8295000 - move select out of IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL)
7991:
7992:
7993: --------------------------------------
7994: -- validate status
8003: p_column_value => p_cust_site_use_rec.status,
8004: x_return_status => x_return_status );
8005:
8006: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8007: hz_utility_v2pub.debug(p_message=>'status cannot be updated to null. ' ||
8008: 'x_return_status = ' || x_return_status,
8009: p_prefix =>l_debug_prefix,
8010: p_msg_level=>fnd_log.level_statement);
8011: END IF;
8011: END IF;
8012: END IF;
8013:
8014: /****Logical APIs - validation not required****/
8015: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
8016: -- status is lookup code in lookup type CODE_STATUS
8017: IF p_cust_site_use_rec.status IS NOT NULL AND
8018: p_cust_site_use_rec.status <> FND_API.G_MISS_CHAR AND
8019: ( p_create_update_flag = 'C' OR
8026: p_column_value => p_cust_site_use_rec.status,
8027: x_return_status => x_return_status );
8028:
8029: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8030: hz_utility_v2pub.debug(p_message=>'status is lookup code in lookup type CODE_STATUS. ' ||
8031: 'x_return_status = ' || x_return_status,
8032: p_prefix =>l_debug_prefix,
8033: p_msg_level=>fnd_log.level_statement);
8034: END IF;
8035: END IF;
8036: END IF;
8037:
8038: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8039: hz_utility_v2pub.debug(p_message=>'(+) after validate status ... ' ||
8040: 'x_return_status = ' || x_return_status,
8041: p_prefix =>l_debug_prefix,
8042: p_msg_level=>fnd_log.level_statement);
8043: END IF;
8060: -- for later use. It is selected from database during update.
8061: l_site_use_code := p_cust_site_use_rec.site_use_code;
8062:
8063: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8064: hz_utility_v2pub.debug(p_message=>'site_use_code is mandatory. ' ||
8065: 'x_return_status = ' || x_return_status,
8066: p_prefix =>l_debug_prefix,
8067: p_msg_level=>fnd_log.level_statement);
8068: END IF;
8078: p_old_column_value => l_site_use_code,
8079: x_return_status => x_return_status );
8080:
8081: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8082: hz_utility_v2pub.debug(p_message=>'site_use_code is non-updateable. ' ||
8083: 'x_return_status = ' || x_return_status,
8084: p_prefix =>l_debug_prefix,
8085: p_msg_level=>fnd_log.level_statement);
8086: END IF;
8100: p_column_value => p_cust_site_use_rec.site_use_code,
8101: x_return_status => x_return_status );
8102:
8103: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8104: hz_utility_v2pub.debug(p_message=>'site_use_code is lookup code in lookup type SITE_USE_CODE. ' ||
8105: 'x_return_status = ' || x_return_status,
8106: p_prefix =>l_debug_prefix,
8107: p_msg_level=>fnd_log.level_statement);
8108: END IF;
8153: END;
8154: END IF;
8155:
8156: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8157: hz_utility_v2pub.debug(p_message=>'A customer can have only one active DUN, STMTS, LEGAL site use. ' ||
8158: 'x_return_status = ' || x_return_status,
8159: p_prefix =>l_debug_prefix,
8160: p_msg_level=>fnd_log.level_statement);
8161: END IF;
8187: END;
8188: end if;
8189:
8190: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8191: hz_utility_v2pub.debug(p_message=>'cust_acct_site_id and site_use_code together should be unique. ' ||
8192: 'x_return_status = ' || x_return_status,
8193: p_prefix =>l_debug_prefix,
8194: p_msg_level=>fnd_log.level_statement);
8195: END IF;
8195: END IF;
8196:
8197:
8198: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8199: hz_utility_v2pub.debug(p_message=>'(+) after validate site_use_code ... ' ||
8200: 'x_return_status = ' || x_return_status,
8201: p_prefix =>l_debug_prefix,
8202: p_msg_level=>fnd_log.level_statement);
8203: END IF;
8235: x_return_status := FND_API.G_RET_STS_ERROR;
8236: END IF;
8237:
8238: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8239: hz_utility_v2pub.debug(p_message=>'location is mandatory if autonumbering is set to N. ' ||
8240: 'x_return_status = ' || x_return_status,
8241: p_prefix =>l_debug_prefix,
8242: p_msg_level=>fnd_log.level_statement);
8243: END IF;
8252: p_column_value => p_cust_site_use_rec.location,
8253: x_return_status => x_return_status );
8254:
8255: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8256: hz_utility_v2pub.debug(p_message=>'location cannot be updated to null. ' ||
8257: 'x_return_status = ' || x_return_status,
8258: p_prefix =>l_debug_prefix,
8259: p_msg_level=>fnd_log.level_statement);
8260: END IF;
8294: NULL;
8295: END;
8296:
8297: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8298: hz_utility_v2pub.debug(p_message=>'location must be unique within a customer account/site_use_type. ' ||
8299: 'x_return_status = ' || x_return_status,
8300: p_prefix =>l_debug_prefix,
8301: p_msg_level=>fnd_log.level_statement);
8302: END IF;
8303:
8304: END IF;
8305:
8306: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8307: hz_utility_v2pub.debug(p_message=>'(+) after validate location ... ' ||
8308: 'x_return_status = ' || x_return_status,
8309: p_prefix =>l_debug_prefix,
8310: p_msg_level=>fnd_log.level_statement);
8311: END IF;
8322: p_customer_id => l_cust_account_id,
8323: x_return_status => x_return_status );
8324:
8325: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8326: hz_utility_v2pub.debug(p_message=>'contact_id is foreign key to hz_cust_account_roles. ' ||
8327: 'x_return_status = ' || x_return_status,
8328: p_prefix =>l_debug_prefix,
8329: p_msg_level=>fnd_log.level_statement);
8330: END IF;
8368: x_return_status := FND_API.G_RET_STS_ERROR;
8369: END;
8370:
8371: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8372: hz_utility_v2pub.debug(p_message=>'For SHIP_TO site use, bill_to_site_use_id should be a valid BILL_TO site use of this account and its related account. ' ||
8373: 'x_return_status = ' || x_return_status,
8374: p_prefix =>l_debug_prefix,
8375: p_msg_level=>fnd_log.level_statement);
8376: END IF;
8406: FND_MSG_PUB.ADD;
8407: x_return_status := FND_API.G_RET_STS_ERROR;
8408:
8409: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8410: hz_utility_v2pub.debug(p_message=>'For BILL_TO site use, inactivation not allowed if a SHIP_TO address uses this BILL_TO address ' ||
8411: 'x_return_status = ' || x_return_status,
8412: p_prefix =>l_debug_prefix,
8413: p_msg_level=>fnd_log.level_statement);
8414: END IF;
8418: END;
8419: END IF;
8420:
8421: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8422: hz_utility_v2pub.debug(p_message=>'(+) after validate bill_to_site_use_id ... ' ||
8423: 'x_return_status = ' || x_return_status,
8424: p_prefix =>l_debug_prefix,
8425: p_msg_level=>fnd_log.level_statement);
8426: END IF;
8431: ----------------------------------------------
8432: -- validate orig_system_reference
8433: ----------------------------------------------
8434: /****Logical APIs - validation not required****/
8435: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
8436: IF (p_cust_site_use_rec.orig_system is not null and p_cust_site_use_rec.orig_system <>fnd_api.g_miss_char)
8437: and (p_cust_site_use_rec.orig_system_reference is not null and p_cust_site_use_rec.orig_system_reference <>fnd_api.g_miss_char)
8438: and p_create_update_flag = 'U'
8439: THEN
8471: p_old_column_value => l_orig_system_reference,
8472: x_return_status => x_return_status );
8473:
8474: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8475: hz_utility_v2pub.debug(p_message=>'orig_system_reference is non-updateable. ' ||
8476: 'x_return_status = ' || x_return_status,
8477: p_prefix =>l_debug_prefix,
8478: p_msg_level=>fnd_log.level_statement);
8479: END IF;
8479: END IF;
8480:
8481: END IF;
8482: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8483: hz_utility_v2pub.debug(p_message=>'(+) after validate orig_system_reference ... ' ||
8484: 'x_return_status = ' || x_return_status,
8485: p_prefix =>l_debug_prefix,
8486: p_msg_level=>fnd_log.level_statement);
8487: END IF;
8505: p_column_value => p_cust_site_use_rec.freight_term,
8506: x_return_status => x_return_status );
8507:
8508: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8509: hz_utility_v2pub.debug(p_message=>'freight_term is lookup code in lookup type FREIGHT_TERMS in so_lookups. ' ||
8510: 'x_return_status = ' || x_return_status,
8511: p_prefix =>l_debug_prefix,
8512: p_msg_level=>fnd_log.level_statement);
8513: END IF;
8513: END IF;
8514: END IF;
8515:
8516: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8517: hz_utility_v2pub.debug(p_message=>'(+) after validate freight_term ... ' ||
8518: 'x_return_status = ' || x_return_status,
8519: p_prefix =>l_debug_prefix,
8520: p_msg_level=>fnd_log.level_statement);
8521: END IF;
8533: p_column_value => p_cust_site_use_rec.primary_flag,
8534: x_return_status => x_return_status );
8535:
8536: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8537: hz_utility_v2pub.debug(p_message=>'primary_flag cannot be updated to NULL. ' ||
8538: 'x_return_status = ' || x_return_status,
8539: p_prefix =>l_debug_prefix,
8540: p_msg_level=>fnd_log.level_statement);
8541: END IF;
8542:
8543: END IF;
8544:
8545: /****Logical APIs - validation not required****/
8546: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
8547: -- primary_flag is lookup code in lookup type YES/NO
8548: IF p_cust_site_use_rec.primary_flag IS NOT NULL AND
8549: p_cust_site_use_rec.primary_flag <> FND_API.G_MISS_CHAR
8550: THEN
8554: p_column_value => p_cust_site_use_rec.primary_flag,
8555: x_return_status => x_return_status );
8556:
8557: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8558: hz_utility_v2pub.debug(p_message=>'primary_flag is lookup code in lookup type YES/NO. ' ||
8559: 'x_return_status = ' || x_return_status,
8560: p_prefix =>l_debug_prefix,
8561: p_msg_level=>fnd_log.level_statement);
8562: END IF;
8596: NULL;
8597: END;
8598:
8599: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8600: hz_utility_v2pub.debug(p_message=>'only one primary is allowed for one site use type per account. ' ||
8601: 'x_return_status = ' || x_return_status,
8602: p_prefix =>l_debug_prefix,
8603: p_msg_level=>fnd_log.level_statement);
8604: END IF;
8650: l_error := FALSE;
8651: END IF;
8652:
8653: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8654: hz_utility_v2pub.debug(p_message=>'an inactive site use is never marked as primary. ' ||
8655: 'x_return_status = ' || x_return_status,
8656: p_prefix =>l_debug_prefix,
8657: p_msg_level=>fnd_log.level_statement);
8658: END IF;
8658: END IF;
8659:
8660:
8661: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8662: hz_utility_v2pub.debug(p_message=>'(+) after validate primary_flag ... ' ||
8663: 'x_return_status = ' || x_return_status,
8664: p_prefix =>l_debug_prefix,
8665: p_msg_level=>fnd_log.level_statement);
8666: END IF;
8682: p_column_value => p_cust_site_use_rec.ship_partial,
8683: x_return_status => x_return_status );
8684:
8685: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8686: hz_utility_v2pub.debug(p_message=>'ship_partial is lookup code in lookup type YES/NO. ' ||
8687: 'x_return_status = ' || x_return_status,
8688: p_prefix =>l_debug_prefix,
8689: p_msg_level=>fnd_log.level_statement);
8690: END IF;
8691:
8692: END IF;
8693:
8694: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8695: hz_utility_v2pub.debug(p_message=>'(+) after validate ship_partial ... ' ||
8696: 'x_return_status = ' || x_return_status,
8697: p_prefix =>l_debug_prefix,
8698: p_msg_level=>fnd_log.level_statement);
8699: END IF;
8702: ----------------------------------------------
8703: -- validate ship_sets_include_lines_flag
8704: ----------------------------------------------
8705: /****Logical APIs - validation not required****/
8706: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
8707: -- ship_sets_include_lines_flag is lookup code in lookup type YES/NO
8708: IF p_cust_site_use_rec.ship_sets_include_lines_flag IS NOT NULL AND
8709: p_cust_site_use_rec.ship_sets_include_lines_flag <> FND_API.G_MISS_CHAR
8710: THEN
8714: p_column_value => p_cust_site_use_rec.ship_sets_include_lines_flag,
8715: x_return_status => x_return_status );
8716:
8717: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8718: hz_utility_v2pub.debug(p_message=>'ship_sets_include_lines_flag is lookup code in lookup type YES/NO. ' ||
8719: 'x_return_status = ' || x_return_status,
8720: p_prefix =>l_debug_prefix,
8721: p_msg_level=>fnd_log.level_statement);
8722: END IF;
8753: END IF;
8754: END IF;
8755:
8756: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8757: hz_utility_v2pub.debug(p_message=>'If ship_sets_include_lines_flag is set to Y then arrivalsets_include_lines_flag is always set to N. '||
8758: 'x_return_status = ' || x_return_status,
8759: p_prefix =>l_debug_prefix,
8760: p_msg_level=>fnd_log.level_statement);
8761: END IF;
8760: p_msg_level=>fnd_log.level_statement);
8761: END IF;
8762:
8763: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8764: hz_utility_v2pub.debug(p_message=>'(+) after validate ship_sets_include_lines_flag ... ' ||
8765: 'x_return_status = ' || x_return_status,
8766: p_prefix =>l_debug_prefix,
8767: p_msg_level=>fnd_log.level_statement);
8768: END IF;
8770: ----------------------------------------------
8771: -- validate arrivalsets_include_lines_flag
8772: ----------------------------------------------
8773: /****Logical APIs - validation not required****/
8774: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
8775: -- arrivalsets_include_lines_flag is lookup code in lookup type YES/NO
8776: IF p_cust_site_use_rec.arrivalsets_include_lines_flag IS NOT NULL AND
8777: p_cust_site_use_rec.arrivalsets_include_lines_flag <> FND_API.G_MISS_CHAR
8778: THEN
8782: p_column_value => p_cust_site_use_rec.arrivalsets_include_lines_flag,
8783: x_return_status => x_return_status );
8784:
8785: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8786: hz_utility_v2pub.debug(p_message=>'arrivalsets_include_lines_flag is lookup code in lookup type YES/NO. ' ||
8787: 'x_return_status = ' || x_return_status,
8788: p_prefix =>l_debug_prefix,
8789: p_msg_level=>fnd_log.level_statement);
8790: END IF;
8822: END IF;
8823: END IF;
8824:
8825: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8826: hz_utility_v2pub.debug(p_message=>'If arrivalsets_include_lines_flag is set to Y then ship_sets_include_lines_flag is always setto N. ' ||
8827: 'x_return_status = ' || x_return_status,
8828: p_prefix =>l_debug_prefix,
8829: p_msg_level=>fnd_log.level_statement);
8830: END IF;
8829: p_msg_level=>fnd_log.level_statement);
8830: END IF;
8831:
8832: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8833: hz_utility_v2pub.debug(p_message=>'(+) after validate arrivalsets_include_lines_flag ... ' ||
8834: 'x_return_status = ' || x_return_status,
8835: p_prefix =>l_debug_prefix,
8836: p_msg_level=>fnd_log.level_statement);
8837: END IF;
8855: p_called_from => 'validate_cust_site_use',
8856: x_return_status => x_return_status );
8857:
8858: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8859: hz_utility_v2pub.debug(p_message=>'Tax_code should be a valid value defined in view zx_output_classifications_v. '||
8860: 'x_return_status = ' || x_return_status,
8861: p_prefix =>l_debug_prefix,
8862: p_msg_level=>fnd_log.level_statement);
8863: END IF;
8864:
8865: END IF;
8866:
8867: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8868: hz_utility_v2pub.debug(p_message=>'(+) after validate tax_code..' ||
8869: 'x_return_status = ' || x_return_status,
8870: p_prefix =>l_debug_prefix,
8871: p_msg_level=>fnd_log.level_statement);
8872: END IF;
8886: p_column_value => p_cust_site_use_rec.payment_term_id,
8887: x_return_status => x_return_status );
8888:
8889: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8890: hz_utility_v2pub.debug(p_message=>'Payment_term_id should be a valid value defined in RA_TERMS. '||
8891: 'x_return_status = ' || x_return_status,
8892: p_prefix =>l_debug_prefix,
8893: p_msg_level=>fnd_log.level_statement);
8894: END IF;
8895:
8896: END IF;
8897:
8898: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8899: hz_utility_v2pub.debug(p_message=>'(+) after validate payment_term_id..' ||
8900: 'x_return_status = ' || x_return_status,
8901: p_prefix =>l_debug_prefix,
8902: p_msg_level=>fnd_log.level_statement);
8903: END IF;
8918: p_lookup_type =>'DEMAND_CLASS',
8919: p_column_value =>p_cust_site_use_rec.demand_class_code,
8920: x_return_status =>x_return_status );
8921: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8922: hz_utility_v2pub.debug(p_message=>'Demand_class_code is lookup_code in lookup_type DEMAND_CLASS in fnd_common_lookups. '||
8923: 'x_return_status = ' || x_return_status,
8924: p_prefix =>l_debug_prefix,
8925: p_msg_level=>fnd_log.level_statement);
8926: END IF;
8926: END IF;
8927: END IF;
8928:
8929: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8930: hz_utility_v2pub.debug(p_message=>'(+) after validate demand_class_code..' ||
8931: 'x_return_status = ' || x_return_status,
8932: p_prefix =>l_debug_prefix,
8933: p_msg_level=>fnd_log.level_statement);
8934: END IF;
8950: p_org_id => p_cust_site_use_rec.org_id, -- Bug 3456489
8951: x_return_status => x_return_status );
8952:
8953: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8954: hz_utility_v2pub.debug(p_message=>'Primary_salesrep_id should be a valid value defined in RA_SALESREPS. '||
8955: 'x_return_status = ' || x_return_status,
8956: p_prefix =>l_debug_prefix,
8957: p_msg_level=>fnd_log.level_statement);
8958: END IF;
8958: END IF;
8959:
8960: END IF;
8961: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8962: hz_utility_v2pub.debug(p_message=>'(+) after validate primary_salesrep_id..' ||
8963: 'x_return_status = ' || x_return_status,
8964: p_prefix =>l_debug_prefix,
8965: p_msg_level=>fnd_log.level_statement);
8966: END IF;
8980: p_org_id => p_cust_site_use_rec.org_id, -- Bug 3456489
8981: x_return_status => x_return_status );
8982:
8983: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8984: hz_utility_v2pub.debug(p_message=>'finchrg_receivables_trx_id should be a valid value defined in AR_RECEIVABLES_TRX. '||
8985: 'x_return_status = ' || x_return_status,
8986: p_prefix =>l_debug_prefix,
8987: p_msg_level=>fnd_log.level_statement);
8988: END IF;
8990:
8991: END IF;
8992:
8993: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
8994: hz_utility_v2pub.debug(p_message=>'(+) after validate finchrg_receivables_trx_id..' ||
8995: 'x_return_status = ' || x_return_status,
8996: p_prefix =>l_debug_prefix,
8997: p_msg_level=>fnd_log.level_statement);
8998: END IF;
9016: p_org_id => p_cust_site_use_rec.org_id, -- Bug 3456489
9017: x_return_status => x_return_status );
9018:
9019: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9020: hz_utility_v2pub.debug(p_message=>'order_type_id should be a valid value defined in OE_ORDER_TYPES_V. '||
9021: 'x_return_status = ' || x_return_status,
9022: p_prefix =>l_debug_prefix,
9023: p_msg_level=>fnd_log.level_statement);
9024: END IF;
9025:
9026: END IF;
9027:
9028: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9029: hz_utility_v2pub.debug(p_message=>'(+) after validate order_type_id..' ||
9030: 'x_return_status = ' || x_return_status,
9031: p_prefix =>l_debug_prefix,
9032: p_msg_level=>fnd_log.level_statement);
9033: END IF;
9049: p_column_value => p_cust_site_use_rec.price_list_id,
9050: x_return_status => x_return_status );
9051:
9052: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9053: hz_utility_v2pub.debug(p_message=>'price_list_id should be a valid value defined in SO_PRICE_LISTS. '||
9054: 'x_return_status = ' || x_return_status,
9055: p_prefix =>l_debug_prefix,
9056: p_msg_level=>fnd_log.level_statement);
9057: END IF;
9058:
9059: END IF;
9060:
9061: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9062: hz_utility_v2pub.debug(p_message=>'(+) after validate price_list_id..' ||
9063: 'x_return_status = ' || x_return_status,
9064: p_prefix =>l_debug_prefix,
9065: p_msg_level=>fnd_log.level_statement);
9066: END IF;
9084: p_column_value => p_cust_site_use_rec.item_cross_ref_pref,
9085: x_return_status => x_return_status );
9086:
9087: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9088: hz_utility_v2pub.debug(p_message=>'item_cross_ref_pref should be a value defined in MTL_CROSS_REFERENCE_TYPES or should be INT or CUST . ' ||
9089: 'x_return_status = ' || x_return_status,
9090: p_prefix =>l_debug_prefix,
9091: p_msg_level=>fnd_log.level_statement);
9092: END IF;
9094: END IF;
9095: END IF;
9096:
9097: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9098: hz_utility_v2pub.debug(p_message=>'(+) after validate item_cross_ref_pref..' ||
9099: 'x_return_status = ' || x_return_status,
9100: p_prefix =>l_debug_prefix,
9101: p_msg_level=>fnd_log.level_statement);
9102: END IF;
9117: p_column_value => p_cust_site_use_rec.warehouse_id,
9118: x_return_status => x_return_status );
9119:
9120: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9121: hz_utility_v2pub.debug(p_message=>'warehouse_id should be a value defined in ORG_ORGANIZATION_DEFINITIONS . '||
9122: 'x_return_status = ' || x_return_status,
9123: p_prefix =>l_debug_prefix,
9124: p_msg_level=>fnd_log.level_statement);
9125: END IF;
9126:
9127: END IF;
9128:
9129: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9130: hz_utility_v2pub.debug(p_message=>'(+) after validate warehouse_id..' ||
9131: 'x_return_status = ' || x_return_status,
9132: p_prefix =>l_debug_prefix,
9133: p_msg_level=>fnd_log.level_statement);
9134: END IF;
9152: p_column_value =>p_cust_site_use_rec.fob_point,
9153: x_return_status =>x_return_status );
9154:
9155: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9156: hz_utility_v2pub.debug(p_message=>'fob_point is lookup_code in lookup type FOB. '||
9157: 'x_return_status = ' || x_return_status,
9158: p_prefix =>l_debug_prefix,
9159: p_msg_level=>fnd_log.level_statement);
9160: END IF;
9161:
9162: END IF;
9163:
9164: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9165: hz_utility_v2pub.debug(p_message=>'(+) after validate fob_point..' ||
9166: 'x_return_status = ' || x_return_status,
9167: p_prefix =>l_debug_prefix,
9168: p_msg_level=>fnd_log.level_statement);
9169: END IF;
9188: p_column_value =>p_cust_site_use_rec.date_type_preference,
9189: x_return_status =>x_return_status );
9190:
9191: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9192: hz_utility_v2pub.debug(p_message=>'date_type_preference is a lookup_code in lookup_type REQUEST_DATE_TYPE in oe_lookups. '||
9193: 'x_return_status = ' || x_return_status,
9194: p_prefix =>l_debug_prefix,
9195: p_msg_level=>fnd_log.level_statement);
9196: END IF;
9197:
9198: END IF;
9199:
9200: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9201: hz_utility_v2pub.debug(p_message=>'(+) after validate date_type_preference..' ||
9202: 'x_return_status = ' || x_return_status,
9203: p_prefix =>l_debug_prefix,
9204: p_msg_level=>fnd_log.level_statement);
9205: END IF;
9223: p_column_value => p_cust_site_use_rec.ship_partial,
9224: x_return_status => x_return_status );
9225:
9226: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9227: hz_utility_v2pub.debug(p_message=>'ship_partial is lookup code in lookup type YES/NO. ' ||
9228: 'x_return_status = ' || x_return_status,
9229: p_prefix =>l_debug_prefix,
9230: p_msg_level=>fnd_log.level_statement);
9231: END IF;
9232:
9233: END IF;
9234:
9235: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9236: hz_utility_v2pub.debug(p_message=>'(+) after validate ship_partial ... ' ||
9237: 'x_return_status = ' || x_return_status,
9238: p_prefix =>l_debug_prefix,
9239: p_msg_level=>fnd_log.level_statement);
9240: END IF;
9243: ----------------------------------------------
9244: -- validate sched_date_push_flag
9245: ----------------------------------------------
9246: /****Logical APIs - validation not required****/
9247: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
9248: -- sched_date_push_flag is lookup code in lookup type YES/NO
9249: IF p_cust_site_use_rec.sched_date_push_flag IS NOT NULL AND
9250: p_cust_site_use_rec.sched_date_push_flag <> FND_API.G_MISS_CHAR
9251: THEN
9255: p_column_value => p_cust_site_use_rec.sched_date_push_flag,
9256: x_return_status => x_return_status );
9257:
9258: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9259: hz_utility_v2pub.debug(p_message=>'sched_date_push_flag is lookup code in lookup type YES/NO. ' ||
9260: 'x_return_status = ' || x_return_status,
9261: p_prefix =>l_debug_prefix,
9262: p_msg_level=>fnd_log.level_statement);
9263: END IF;
9264:
9265: END IF;
9266:
9267: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9268: hz_utility_v2pub.debug(p_message=>'(+) after validate sched_date_push_flag ... ' ||
9269: 'x_return_status = ' || x_return_status,
9270: p_prefix =>l_debug_prefix,
9271: p_msg_level=>fnd_log.level_statement);
9272: END IF;
9275: ----------------------------------------------
9276: -- validate gsa_indicator
9277: ----------------------------------------------
9278: /****Logical APIs - validation not required****/
9279: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
9280: -- gsa_indicator is lookup code in lookup type YES/NO
9281: IF p_cust_site_use_rec.gsa_indicator IS NOT NULL AND
9282: p_cust_site_use_rec.gsa_indicator <> FND_API.G_MISS_CHAR
9283: THEN
9287: p_column_value => p_cust_site_use_rec.gsa_indicator,
9288: x_return_status => x_return_status );
9289:
9290: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9291: hz_utility_v2pub.debug(p_message=>'gsa_indicator is lookup code in lookup type YES/NO. ' ||
9292: 'x_return_status = ' || x_return_status,
9293: p_prefix =>l_debug_prefix,
9294: p_msg_level=>fnd_log.level_statement);
9295: END IF;
9296:
9297: END IF;
9298:
9299: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9300: hz_utility_v2pub.debug(p_message=>'(+) after validate gsa_indicator ... ' ||
9301: 'x_return_status = ' || x_return_status,
9302: p_prefix =>l_debug_prefix,
9303: p_msg_level=>fnd_log.level_statement);
9304: END IF;
9332: x_return_status := FND_API.G_RET_STS_ERROR;
9333: END IF;
9334:
9335: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9336: hz_utility_v2pub.debug(p_message=>'If site_use_code is not BILL_TO, then Revenue, Tax, Freight, Clearing, ' ||
9337: 'Unbilled Receivable and Unearned Revenue fields should not be populated. ' ||
9338: 'x_return_status = ' || x_return_status,
9339: p_prefix =>l_debug_prefix,
9340: p_msg_level=>fnd_log.level_statement);
9360: x_return_status := FND_API.G_RET_STS_ERROR;
9361: END IF;
9362:
9363: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9364: hz_utility_v2pub.debug(p_message=>'If site_use_code is not DRAWEE, then Unpaid Bills Receivables, ' ||
9365: 'Remitted Bills Receivables and Factored Bills Receivables fields should not be populated. ' ||
9366: 'x_return_status = ' || x_return_status,
9367: p_prefix =>l_debug_prefix,
9368: p_msg_level=>fnd_log.level_statement);
9383: x_return_status := FND_API.G_RET_STS_ERROR;
9384: END IF;
9385:
9386: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9387: hz_utility_v2pub.debug(p_message=>'If site_use_code is not BILL_TO OR DRAWEE, then Bills Receivables field should not be populated. ' ||
9388: 'x_return_status = ' || x_return_status,
9389: p_prefix =>l_debug_prefix,
9390: p_msg_level=>fnd_log.level_statement);
9391: END IF;
9420: p_coa_id => l_coa_id, -- Bug 3456489
9421: x_return_status => x_return_status );
9422:
9423: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9424: hz_utility_v2pub.debug(p_message=>'gl_id_rec is validate gl field. ' ||
9425: 'x_return_status = ' || x_return_status,
9426: p_prefix =>l_debug_prefix,
9427: p_msg_level=>fnd_log.level_statement);
9428: END IF;
9443: p_coa_id => l_coa_id, -- Bug 3456489
9444: x_return_status => x_return_status );
9445:
9446: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9447: hz_utility_v2pub.debug(p_message=>'gl_id_rev is validate gl field. ' ||
9448: 'x_return_status = ' || x_return_status,
9449: p_prefix =>l_debug_prefix,
9450: p_msg_level=>fnd_log.level_statement);
9451: END IF;
9466: p_coa_id => l_coa_id, -- Bug 3456489
9467: x_return_status => x_return_status );
9468:
9469: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9470: hz_utility_v2pub.debug(p_message=>'gl_id_tax is validate gl field. ' ||
9471: 'x_return_status = ' || x_return_status,
9472: p_prefix =>l_debug_prefix,
9473: p_msg_level=>fnd_log.level_statement);
9474: END IF;
9489: p_coa_id => l_coa_id, -- Bug 3456489
9490: x_return_status => x_return_status );
9491:
9492: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9493: hz_utility_v2pub.debug(p_message=>'gl_id_freight is validate gl field. ' ||
9494: 'x_return_status = ' || x_return_status,
9495: p_prefix =>l_debug_prefix,
9496: p_msg_level=>fnd_log.level_statement);
9497: END IF;
9512: p_coa_id => l_coa_id, -- Bug 3456489
9513: x_return_status => x_return_status );
9514:
9515: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9516: hz_utility_v2pub.debug(p_message=>'gl_id_clearing is validate gl field. ' ||
9517: 'x_return_status = ' || x_return_status,
9518: p_prefix =>l_debug_prefix,
9519: p_msg_level=>fnd_log.level_statement);
9520: END IF;
9535: p_coa_id => l_coa_id, -- Bug 3456489
9536: x_return_status => x_return_status );
9537:
9538: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9539: hz_utility_v2pub.debug(p_message=>'gl_id_unbilled is validate gl field. ' ||
9540: 'x_return_status = ' || x_return_status,
9541: p_prefix =>l_debug_prefix,
9542: p_msg_level=>fnd_log.level_statement);
9543: END IF;
9558: p_coa_id => l_coa_id, -- Bug 3456489
9559: x_return_status => x_return_status );
9560:
9561: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9562: hz_utility_v2pub.debug(p_message=>'gl_id_unearned is validate gl field. ' ||
9563: 'x_return_status = ' || x_return_status,
9564: p_prefix =>l_debug_prefix,
9565: p_msg_level=>fnd_log.level_statement);
9566: END IF;
9581: p_coa_id => l_coa_id, -- Bug 3456489
9582: x_return_status => x_return_status );
9583:
9584: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9585: hz_utility_v2pub.debug(p_message=>'gl_id_unpaid_rec is validate gl field. ' ||
9586: 'x_return_status = ' || x_return_status,
9587: p_prefix =>l_debug_prefix,
9588: p_msg_level=>fnd_log.level_statement);
9589: END IF;
9604: p_coa_id => l_coa_id, -- Bug 3456489
9605: x_return_status => x_return_status );
9606:
9607: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9608: hz_utility_v2pub.debug(p_message=>'gl_id_remittance is validate gl field. ' ||
9609: 'x_return_status = ' || x_return_status,
9610: p_prefix =>l_debug_prefix,
9611: p_msg_level=>fnd_log.level_statement);
9612: END IF;
9627: p_coa_id => l_coa_id, -- Bug 3456489
9628: x_return_status => x_return_status );
9629:
9630: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9631: hz_utility_v2pub.debug(p_message=>'gl_id_factor is validate gl field. ' ||
9632: 'x_return_status = ' || x_return_status,
9633: p_prefix =>l_debug_prefix,
9634: p_msg_level=>fnd_log.level_statement);
9635: END IF;
9636:
9637: END IF;
9638:
9639: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9640: hz_utility_v2pub.debug(p_message=>'(+) after validate gl_xxx ... ' ||
9641: 'x_return_status = ' || x_return_status,
9642: p_prefix =>l_debug_prefix,
9643: p_msg_level=>fnd_log.level_statement);
9644: END IF;
9662: p_column_value => p_cust_site_use_rec.ship_via,
9663: x_return_status => x_return_status );
9664:
9665: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9666: hz_utility_v2pub.debug(p_message=>'ship_via is foreign key to oe_ship_methods_v. ' ||
9667: 'x_return_status = ' || x_return_status,
9668: p_prefix =>l_debug_prefix,
9669: p_msg_level=>fnd_log.level_statement);
9670: END IF;
9671:
9672: END IF;
9673:
9674: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9675: hz_utility_v2pub.debug(p_message=>'(+) after validate ship_via ... ' ||
9676: 'x_return_status = ' || x_return_status,
9677: p_prefix =>l_debug_prefix,
9678: p_msg_level=>fnd_log.level_statement);
9679: END IF;
9701:
9702: -- Debug info.
9703:
9704: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
9705: hz_utility_v2pub.debug(p_message=>'validate_cust_site_use (-)',
9706: p_prefix=>l_debug_prefix,
9707: p_msg_level=>fnd_log.level_procedure);
9708: END IF;
9709:
9775:
9776: -- Debug info.
9777:
9778: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
9779: hz_utility_v2pub.debug(p_message=>'validate_cust_account_role (+)',
9780: p_prefix=>l_debug_prefix,
9781: p_msg_level=>fnd_log.level_procedure);
9782: END IF;
9783:
9797: --------------------------------------
9798: -- validate cust_account_role_id
9799: --------------------------------------
9800: /****Logical APIs - validation not required****/
9801: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
9802: IF p_create_update_flag = 'C' THEN
9803:
9804: -- If primary key value is passed, check for uniqueness.
9805: -- If primary key value is not passed, it will be generated
9822: NULL;
9823: END;
9824:
9825: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9826: hz_utility_v2pub.debug(p_message=>'cust_account_role_id is unique during creation if passed in. ' ||
9827: 'x_return_status = ' || x_return_status,
9828: p_prefix =>l_debug_prefix,
9829: p_msg_level=>fnd_log.level_statement);
9830: END IF;
9833:
9834: END IF;
9835:
9836: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9837: hz_utility_v2pub.debug(p_message=>'(+) after validate cust_account_role_id ... ' ||
9838: 'x_return_status = ' || x_return_status,
9839: p_prefix =>l_debug_prefix,
9840: p_msg_level=>fnd_log.level_statement);
9841: END IF;
9844: ----------------------------------------------
9845: -- validate party_id
9846: ----------------------------------------------
9847: /****Logical APIs - validation not required****/
9848: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
9849: -- party_id is mandatory field
9850: -- Since party_id is non-updateable, we only need to check mandatory
9851: -- during creation.
9852:
9857: p_column_value => p_cust_account_role_rec.party_id,
9858: x_return_status => x_return_status );
9859:
9860: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9861: hz_utility_v2pub.debug(p_message=>'party_id is mandatory. ' ||
9862: 'x_return_status = ' || x_return_status,
9863: p_prefix =>l_debug_prefix,
9864: p_msg_level=>fnd_log.level_statement);
9865: END IF;
9876: p_old_column_value => l_party_id,
9877: x_return_status => x_return_status );
9878:
9879: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9880: hz_utility_v2pub.debug(p_message=>'party_id is non-updateable. ' ||
9881: 'x_return_status = ' || x_return_status,
9882: p_prefix =>l_debug_prefix,
9883: p_msg_level=>fnd_log.level_statement);
9884: END IF;
9904: p_column_value => p_cust_account_role_rec.party_id,
9905: x_return_status => x_return_status );
9906:
9907: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9908: hz_utility_v2pub.debug(p_message=>'party_id is foreign key to hz_parties. ' ||
9909: 'x_return_status = ' || x_return_status,
9910: p_prefix =>l_debug_prefix,
9911: p_msg_level=>fnd_log.level_statement);
9912: END IF;
9913:
9914: END IF;
9915:
9916: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9917: hz_utility_v2pub.debug(p_message=>'(+) after validate party_id ... ' ||
9918: 'x_return_status = ' || x_return_status,
9919: p_prefix =>l_debug_prefix,
9920: p_msg_level=>fnd_log.level_statement);
9921: END IF;
9924: ----------------------------------------------
9925: -- validate cust_account_id
9926: ----------------------------------------------
9927: /****Logical APIs - validation not required****/
9928: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
9929: -- cust_account_id is mandatory field
9930: -- Since cust_account_id is non-updateable, we only need to check mandatory
9931: -- during creation.
9932:
9937: p_column_value => p_cust_account_role_rec.cust_account_id,
9938: x_return_status => x_return_status );
9939:
9940: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9941: hz_utility_v2pub.debug(p_message=>'cust_account_id is mandatory. ' ||
9942: 'x_return_status = ' || x_return_status,
9943: p_prefix =>l_debug_prefix,
9944: p_msg_level=>fnd_log.level_statement);
9945: END IF;
9956: p_old_column_value => l_cust_account_id,
9957: x_return_status => x_return_status );
9958:
9959: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9960: hz_utility_v2pub.debug(p_message=>'cust_account_id is non-updateable. ' ||
9961: 'x_return_status = ' || x_return_status,
9962: p_prefix =>l_debug_prefix,
9963: p_msg_level=>fnd_log.level_statement);
9964: END IF;
9978: p_column_value => p_cust_account_role_rec.cust_account_id,
9979: x_return_status => x_return_status );
9980:
9981: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9982: hz_utility_v2pub.debug(p_message=>'cust_account_id is foreign key to hz_cust_accounts. ' ||
9983: 'x_return_status = ' || x_return_status,
9984: p_prefix =>l_debug_prefix,
9985: p_msg_level=>fnd_log.level_statement);
9986: END IF;
9987:
9988: END IF;
9989:
9990: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
9991: hz_utility_v2pub.debug(p_message=>'(+) after validate cust_account_id ... ' ||
9992: 'x_return_status = ' || x_return_status,
9993: p_prefix =>l_debug_prefix,
9994: p_msg_level=>fnd_log.level_statement);
9995: END IF;
9998: ----------------------------------------------
9999: -- validate cust_acct_site_id
10000: ----------------------------------------------
10001: /****Logical APIs - validation not required****/
10002: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
10003: -- cust_acct_site_id is non-updateable field
10004: IF p_create_update_flag = 'U' AND
10005: p_cust_account_role_rec.cust_acct_site_id IS NOT NULL
10006: THEN
10010: p_old_column_value => l_cust_acct_site_id,
10011: x_return_status => x_return_status );
10012:
10013: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10014: hz_utility_v2pub.debug(p_message=>'cust_acct_site_id is non-updateable. ' ||
10015: 'x_return_status = ' || x_return_status,
10016: p_prefix =>l_debug_prefix,
10017: p_msg_level=>fnd_log.level_statement);
10018: END IF;
10061: x_return_status := FND_API.G_RET_STS_ERROR;
10062: END;
10063:
10064: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10065: hz_utility_v2pub.debug(p_message=>'cust_acct_site_id is foreign key to hz_cust_acct_sites and cust_account_id in hz_cust_acct_sites should be same as we put in cust_account_id in hz_cust_account_roles.' ||
10066: 'x_return_status = ' || x_return_status,
10067: p_prefix =>l_debug_prefix,
10068: p_msg_level=>fnd_log.level_statement);
10069: END IF;
10070:
10071: END IF;
10072:
10073: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10074: hz_utility_v2pub.debug(p_message=>'(+) after validate cust_acct_site_id ... ' ||
10075: 'x_return_status = ' || x_return_status,
10076: p_prefix =>l_debug_prefix,
10077: p_msg_level=>fnd_log.level_statement);
10078: END IF;
10093: p_column_value => p_cust_account_role_rec.role_type,
10094: x_return_status => x_return_status );
10095:
10096: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10097: hz_utility_v2pub.debug(p_message=>'role_type is mandatory. ' ||
10098: 'x_return_status = ' || x_return_status,
10099: p_prefix =>l_debug_prefix,
10100: p_msg_level=>fnd_log.level_statement);
10101: END IF;
10112: p_old_column_value => l_role_type,
10113: x_return_status => x_return_status );
10114:
10115: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10116: hz_utility_v2pub.debug(p_message=>'role_type is non-updateable. ' ||
10117: 'x_return_status = ' || x_return_status,
10118: p_prefix =>l_debug_prefix,
10119: p_msg_level=>fnd_log.level_statement);
10120: END IF;
10135: p_column_value => p_cust_account_role_rec.role_type,
10136: x_return_status => x_return_status );
10137:
10138: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10139: hz_utility_v2pub.debug(p_message=>'role_type is lookup code in lookup type ACCT_ROLE_TYPE. ' ||
10140: 'x_return_status = ' || x_return_status,
10141: p_prefix =>l_debug_prefix,
10142: p_msg_level=>fnd_log.level_statement);
10143: END IF;
10172: NULL;
10173: END;
10174:
10175: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10176: hz_utility_v2pub.debug(p_message=>'the combination of cust_account_id, party_id, role_type should be unique. ' ||
10177: 'x_return_status = ' || x_return_status,
10178: p_prefix =>l_debug_prefix,
10179: p_msg_level=>fnd_log.level_statement);
10180: END IF;
10198: NULL;
10199: END;
10200:
10201: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10202: hz_utility_v2pub.debug(p_message=>'the combination of cust_acct_site_id, party_id, role_type should be unique. ' ||
10203: 'x_return_status = ' || x_return_status,
10204: p_prefix =>l_debug_prefix,
10205: p_msg_level=>fnd_log.level_statement);
10206: END IF;
10233: NULL;
10234: END;
10235:
10236: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10237: hz_utility_v2pub.debug(p_message=>'the combination of cust_acct_site_id, party_id, role_type should be unique. ' ||
10238: 'x_return_status = ' || x_return_status,
10239: p_prefix =>l_debug_prefix,
10240: p_msg_level=>fnd_log.level_statement);
10241: END IF;
10262: NULL;
10263: END;
10264:
10265: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10266: hz_utility_v2pub.debug(p_message=>'the combination of cust_account_id, party_id, role_type should be unique. ' ||
10267: 'x_return_status = ' || x_return_status,
10268: p_prefix =>l_debug_prefix,
10269: p_msg_level=>fnd_log.level_statement);
10270: END IF;
10273: END IF;
10274: END IF;
10275:
10276: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10277: hz_utility_v2pub.debug(p_message=>'(+) after validate role_type ... ' ||
10278: 'x_return_status = ' || x_return_status,
10279: p_prefix =>l_debug_prefix,
10280: p_msg_level=>fnd_log.level_statement);
10281: END IF;
10284: ----------------------------------------------
10285: -- validate orig_system_reference
10286: ----------------------------------------------
10287: /****Logical APIs - validation not required****/
10288: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
10289: IF (p_cust_account_role_rec.orig_system is not null and p_cust_account_role_rec.orig_system <>fnd_api.g_miss_char)
10290: and (p_cust_account_role_rec.orig_system_reference is not null and p_cust_account_role_rec.orig_system_reference <>fnd_api.g_miss_char)
10291: and p_create_update_flag = 'U'
10292: then
10323: p_old_column_value => l_orig_system_reference,
10324: x_return_status => x_return_status );
10325:
10326: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10327: hz_utility_v2pub.debug(p_message=>'orig_system_reference is non-updateable. ' ||
10328: 'x_return_status = ' || x_return_status,
10329: p_prefix =>l_debug_prefix,
10330: p_msg_level=>fnd_log.level_statement);
10331: END IF;
10332:
10333: END IF;
10334:
10335: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10336: hz_utility_v2pub.debug(p_message=>'(+) after validate orig_system_reference ... ' ||
10337: 'x_return_status = ' || x_return_status,
10338: p_prefix =>l_debug_prefix,
10339: p_msg_level=>fnd_log.level_statement);
10340: END IF;
10343: ----------------------------------------------
10344: -- validate primary_flag
10345: ----------------------------------------------
10346: /****Logical APIs - validation not required****/
10347: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
10348:
10349: -- primary_flag is lookup code in lookup type YES/NO
10350: IF p_cust_account_role_rec.primary_flag IS NOT NULL AND
10351: p_cust_account_role_rec.primary_flag <> FND_API.G_MISS_CHAR
10356: p_column_value => p_cust_account_role_rec.primary_flag,
10357: x_return_status => x_return_status );
10358:
10359: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10360: hz_utility_v2pub.debug(p_message=>'primary_flag is lookup code in lookup type YES/NO. ' ||
10361: 'x_return_status = ' || x_return_status,
10362: p_prefix =>l_debug_prefix,
10363: p_msg_level=>fnd_log.level_statement);
10364: END IF;
10396: NULL;
10397: END;
10398:
10399: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10400: hz_utility_v2pub.debug(p_message=>'primary_flag is unique per cust_account_id. ' ||
10401: 'x_return_status = ' || x_return_status,
10402: p_prefix =>l_debug_prefix,
10403: p_msg_level=>fnd_log.level_statement);
10404: END IF;
10423: NULL;
10424: END;
10425:
10426: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10427: hz_utility_v2pub.debug(p_message=>'primary_flag is unique per cust_acct_site_id. ' ||
10428: 'x_return_status = ' || x_return_status,
10429: p_prefix =>l_debug_prefix,
10430: p_msg_level=>fnd_log.level_statement);
10431: END IF;
10433: END IF;
10434: END IF;
10435:
10436: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10437: hz_utility_v2pub.debug(p_message=>'(+) after validate primary_flag ... ' ||
10438: 'x_return_status = ' || x_return_status,
10439: p_prefix =>l_debug_prefix,
10440: p_msg_level=>fnd_log.level_statement);
10441: END IF;
10454: p_column_value => p_cust_account_role_rec.status,
10455: x_return_status => x_return_status );
10456:
10457: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10458: hz_utility_v2pub.debug(p_message=>'status cannot be updated to null. ' ||
10459: 'x_return_status = ' || x_return_status,
10460: p_prefix =>l_debug_prefix,
10461: p_msg_level=>fnd_log.level_statement);
10462: END IF;
10463:
10464: END IF;
10465:
10466: /****Logical APIs - validation not required****/
10467: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
10468: -- status is lookup code in lookup type REGISTRY_STATUS because
10469: -- the status is used in party merge.
10470: IF p_cust_account_role_rec.status IS NOT NULL AND
10471: p_cust_account_role_rec.status <> FND_API.G_MISS_CHAR AND
10479: p_column_value => p_cust_account_role_rec.status,
10480: x_return_status => x_return_status );
10481:
10482: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10483: hz_utility_v2pub.debug(p_message=>'status is lookup code in lookup type REGISTRY_STATUS. ' ||
10484: 'x_return_status = ' || x_return_status,
10485: p_prefix =>l_debug_prefix,
10486: p_msg_level=>fnd_log.level_statement);
10487: END IF;
10489: END IF;
10490: END IF;
10491:
10492: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10493: hz_utility_v2pub.debug(p_message=>'(+) after validate status ... ' ||
10494: 'x_return_status = ' || x_return_status,
10495: p_prefix =>l_debug_prefix,
10496: p_msg_level=>fnd_log.level_statement);
10497: END IF;
10518: x_return_status => x_return_status);
10519:
10520: -- Debug info.
10521: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
10522: hz_utility_v2pub.debug(p_message=>'validate_cust_account_role (-)',
10523: p_prefix=>l_debug_prefix,
10524: p_msg_level=>fnd_log.level_procedure);
10525: END IF;
10526:
10582: --enable_debug;
10583:
10584: -- Debug info.
10585: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
10586: hz_utility_v2pub.debug(p_message=>'validate_role_responsibility (+)',
10587: p_prefix=>l_debug_prefix,
10588: p_msg_level=>fnd_log.level_procedure);
10589: END IF;
10590:
10601: --------------------------------------
10602: -- validate responsibility_id
10603: --------------------------------------
10604: /****Logical APIs - validation not required****/
10605: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
10606: IF p_create_update_flag = 'C' THEN
10607:
10608: -- If primary key value is passed, check for uniqueness.
10609: -- If primary key value is not passed, it will be generated
10626: NULL;
10627: END;
10628:
10629: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10630: hz_utility_v2pub.debug(p_message=>'responsibility_id is unique during creation if passed in. ' ||
10631: 'x_return_status = ' || x_return_status,
10632: p_prefix =>l_debug_prefix,
10633: p_msg_level=>fnd_log.level_statement);
10634: END IF;
10637: END IF;
10638: END IF;
10639:
10640: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10641: hz_utility_v2pub.debug(p_message=>'(+) after validate responsibility_id ... ' ||
10642: 'x_return_status = ' || x_return_status,
10643: p_prefix =>l_debug_prefix,
10644: p_msg_level=>fnd_log.level_statement);
10645: END IF;
10657: p_column_value => p_role_responsibility_rec.responsibility_type,
10658: x_return_status => x_return_status );
10659:
10660: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10661: hz_utility_v2pub.debug(p_message=>'responsibility_type is mandatory. ' ||
10662: 'x_return_status = ' || x_return_status,
10663: p_prefix =>l_debug_prefix,
10664: p_msg_level=>fnd_log.level_statement);
10665: END IF;
10679: p_column_value => p_role_responsibility_rec.responsibility_type,
10680: x_return_status => x_return_status );
10681:
10682: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10683: hz_utility_v2pub.debug(p_message=>'responsibility_type is lookup code in lookup type SITE_USE_CODE. ' ||
10684: 'x_return_status = ' || x_return_status,
10685: p_prefix =>l_debug_prefix,
10686: p_msg_level=>fnd_log.level_statement);
10687: END IF;
10690: l_responsibility_type := p_role_responsibility_rec.responsibility_type;
10691: END IF;
10692:
10693: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10694: hz_utility_v2pub.debug(p_message=>'(+) after validate responsibility_type ... ' ||
10695: 'x_return_status = ' || x_return_status,
10696: p_prefix =>l_debug_prefix,
10697: p_msg_level=>fnd_log.level_statement);
10698: END IF;
10701: ----------------------------------------------
10702: -- validate cust_account_role_id
10703: ----------------------------------------------
10704: /****Logical APIs - validation not required****/
10705: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
10706: -- cust_account_role_id is mandatory field
10707: -- Since cust_account_role_id is non-updateable, we only need to check mandatory
10708: -- during creation.
10709:
10716:
10717: l_cust_account_role_id := p_role_responsibility_rec.cust_account_role_id;
10718:
10719: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10720: hz_utility_v2pub.debug(p_message=>'cust_account_role_id is mandatory. ' ||
10721: 'x_return_status = ' || x_return_status,
10722: p_prefix =>l_debug_prefix,
10723: p_msg_level=>fnd_log.level_statement);
10724: END IF;
10734: p_old_column_value => l_cust_account_role_id,
10735: x_return_status => x_return_status );
10736:
10737: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10738: hz_utility_v2pub.debug(p_message=>'cust_account_role_id is non-updateable. ' ||
10739: 'x_return_status = ' || x_return_status,
10740: p_prefix =>l_debug_prefix,
10741: p_msg_level=>fnd_log.level_statement);
10742: END IF;
10756: p_column_value => p_role_responsibility_rec.cust_account_role_id,
10757: x_return_status => x_return_status );
10758:
10759: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10760: hz_utility_v2pub.debug(p_message=>'cust_account_role_id is foreign key to hz_cust_account_roles. ' ||
10761: 'x_return_status = ' || x_return_status,
10762: p_prefix =>l_debug_prefix,
10763: p_msg_level=>fnd_log.level_statement);
10764: END IF;
10768: -- The combination of cust_account_role_id and responsibility_type
10769: -- should be unique.
10770:
10771: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10772: hz_utility_v2pub.debug(p_message=>'cust_account_role_id = ' || l_cust_account_role_id || ' ' ||
10773: 'role_responsibility_id = ' || l_responsibility_type || ' ' ||
10774: 'create_update_flag = ' || p_create_update_flag || ' ' ||
10775: 'p_rowid = ' || p_rowid || ' ' ||
10776: 'x_return_status = ' || x_return_status,
10797: NULL;
10798: END;
10799:
10800: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10801: hz_utility_v2pub.debug(p_message=>'combination of cust_account_role_id and responsibility_type should be unique. ' ||
10802: 'x_return_status = ' || x_return_status,
10803: p_prefix =>l_debug_prefix,
10804: p_msg_level=>fnd_log.level_statement);
10805: END IF;
10804: p_msg_level=>fnd_log.level_statement);
10805: END IF;
10806:
10807: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10808: hz_utility_v2pub.debug(p_message=>'(+) after validate cust_account_role_id ... ' ||
10809: 'x_return_status = ' || x_return_status,
10810: p_prefix =>l_debug_prefix,
10811: p_msg_level=>fnd_log.level_statement);
10812: END IF;
10815: ----------------------------------------------
10816: -- validate orig_system_reference
10817: ----------------------------------------------
10818: /****Logical APIs - validation not required****/
10819: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
10820: -- orig_system_reference is non-updateable field
10821: IF p_create_update_flag = 'U' AND
10822: p_role_responsibility_rec.orig_system_reference IS NOT NULL
10823: THEN
10827: p_old_column_value => l_orig_system_reference,
10828: x_return_status => x_return_status );
10829:
10830: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10831: hz_utility_v2pub.debug(p_message=>'orig_system_reference is non-updateable. ' ||
10832: 'x_return_status = ' || x_return_status,
10833: p_prefix =>l_debug_prefix,
10834: p_msg_level=>fnd_log.level_statement);
10835: END IF;
10837:
10838: END IF;
10839:
10840: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10841: hz_utility_v2pub.debug(p_message=>'(+) after validate orig_system_reference ... ' ||
10842: 'x_return_status = ' || x_return_status,
10843: p_prefix =>l_debug_prefix,
10844: p_msg_level=>fnd_log.level_statement);
10845: END IF;
10848: ----------------------------------------------
10849: -- validate primary_flag
10850: ----------------------------------------------
10851: /****Logical APIs - validation not required****/
10852: IF(HZ_UTILITY_V2PUB.G_CALLING_API IS NULL) THEN
10853: -- primary_flag is lookup code in lookup type YES/NO
10854: IF p_role_responsibility_rec.primary_flag IS NOT NULL AND
10855: p_role_responsibility_rec.primary_flag <> FND_API.G_MISS_CHAR
10856: THEN
10860: p_column_value => p_role_responsibility_rec.primary_flag,
10861: x_return_status => x_return_status );
10862:
10863: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10864: hz_utility_v2pub.debug(p_message=>'primary_flag is lookup code in lookup type YES/NO. ' ||
10865: 'x_return_status = ' || x_return_status,
10866: p_prefix =>l_debug_prefix,
10867: p_msg_level=>fnd_log.level_statement);
10868: END IF;
10893: NULL;
10894: END;
10895:
10896: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10897: hz_utility_v2pub.debug(p_message=>'primary_flag is unique per cust_account_role_id. ' ||
10898: 'x_return_status = ' || x_return_status,
10899: p_prefix =>l_debug_prefix,
10900: p_msg_level=>fnd_log.level_statement);
10901: END IF;
10902:
10903: END IF;
10904:
10905: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
10906: hz_utility_v2pub.debug(p_message=>'(+) after validate primary_flag ... ' ||
10907: 'x_return_status = ' || x_return_status,
10908: p_prefix =>l_debug_prefix,
10909: p_msg_level=>fnd_log.level_statement);
10910: END IF;
10932:
10933: -- Debug info.
10934:
10935: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
10936: hz_utility_v2pub.debug(p_message=>'validate_role_responsibility (-)',
10937: p_prefix=>l_debug_prefix,
10938: p_msg_level=>fnd_log.level_procedure);
10939: END IF;
10940:
10987:
10988: BEGIN
10989:
10990: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
10991: hz_utility_v2pub.debug(p_message=>' check_cust_acct_site_fk (+) '||p_column_value
10992: ||' Org Id '||p_org_id,
10993: p_prefix=>l_debug_prefix,
10994: p_msg_level=>fnd_log.level_procedure);
10995: END IF;
11929: l_dummy VARCHAR2(1);
11930: BEGIN
11931:
11932: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
11933: hz_utility_v2pub.debug(
11934: p_prefix => '',
11935: p_message => ' At check_automatch_set_id_fk '||p_column ||' is '||p_column_value,
11936: p_msg_level => fnd_log.level_statement);
11937: END IF;
12005: * DESCRIPTION
12006: * Turn on debug mode.
12007: *
12008: * EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
12009: * HZ_UTILITY_V2PUB.enable_debug
12010: *
12011: * MODIFICATION HISTORY
12012: *
12013: * 07-23-2001 Jianying Huang o Created.
12023: IF G_DEBUG_COUNT = 1 THEN
12024: IF FND_PROFILE.value( 'HZ_API_FILE_DEBUG_ON' ) = 'Y' OR
12025: FND_PROFILE.value( 'HZ_API_DBMS_DEBUG_ON' ) = 'Y'
12026: THEN
12027: HZ_UTILITY_V2PUB.enable_debug;
12028: G_DEBUG := TRUE;
12029: END IF;
12030: END IF;
12031:
12039: * DESCRIPTION
12040: * Turn off debug mode.
12041: *
12042: * EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
12043: * HZ_UTILITY_V2PUB.disable_debug
12044: *
12045: * MODIFICATION HISTORY
12046: *
12047: * 07-23-2001 Jianying Huang o Created.
12055: IF G_DEBUG THEN
12056: G_DEBUG_COUNT := G_DEBUG_COUNT - 1;
12057:
12058: IF G_DEBUG_COUNT = 0 THEN
12059: HZ_UTILITY_V2PUB.disable_debug;
12060: G_DEBUG := FALSE;
12061: END IF;
12062: END IF;
12063:
12758:
12759: BEGIN
12760:
12761: -- skip mandatory and non-updateable check from logical API
12762: IF HZ_UTILITY_V2PUB.G_CALLING_API IS NULL THEN
12763: -- created_by_module is mandatory field
12764: -- Since created_by_module is non-updateable, we only need to check mandatory
12765: -- during creation.
12766:
12771: p_column_value => p_created_by_module,
12772: x_return_status => x_return_status);
12773:
12774: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
12775: hz_utility_v2pub.debug(
12776: p_prefix => '',
12777: p_message => l_column || ' is mandatory. ' ||
12778: 'x_return_status = ' || x_return_status,
12779: p_msg_level => fnd_log.level_statement);
12793: p_restricted => 'N',
12794: x_return_status => x_return_status);
12795:
12796: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
12797: hz_utility_v2pub.debug(
12798: p_prefix => '',
12799: p_message => l_column || ' is non-updateable. It can be updated from NULL to a value. ' ||
12800: 'x_return_status = ' || x_return_status,
12801: p_msg_level => fnd_log.level_statement);
12817: p_column_value => p_created_by_module,
12818: x_return_status => x_return_status);
12819:
12820: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
12821: hz_utility_v2pub.debug(
12822: p_prefix => '',
12823: p_message => l_column || ' is lookup code in lookup type HZ_CREATED_BY_MODULES. ' ||
12824: 'x_return_status = ' || x_return_status,
12825: p_msg_level => fnd_log.level_statement);
12826: END IF;
12827: END IF;
12828:
12829: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
12830: hz_utility_v2pub.debug(
12831: p_prefix => '',
12832: p_message => 'after validate ' || l_column || ' ... ' ||
12833: 'x_return_status = ' || x_return_status,
12834: p_msg_level => fnd_log.level_statement);
12861:
12862: BEGIN
12863:
12864: -- skip non-updateable check from logical API
12865: IF HZ_UTILITY_V2PUB.G_CALLING_API IS NULL THEN
12866: -- application_id is non-updateable field. But it can be updated from NULL
12867: -- to some value.
12868:
12869: IF p_create_update_flag = 'U' AND
12876: p_restricted => 'N',
12877: x_return_status => x_return_status);
12878:
12879: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
12880: hz_utility_v2pub.debug(
12881: p_prefix => '',
12882: p_message => l_column || ' is non-updateable. It can be updated from NULL to a value. ' ||
12883: 'x_return_status = ' || x_return_status,
12884: p_msg_level => fnd_log.level_statement);
12886: END IF;
12887: END IF;
12888:
12889: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
12890: hz_utility_v2pub.debug(
12891: p_prefix => '',
12892: p_message => 'after validate ' || l_column || ' ... ' ||
12893: 'x_return_status = ' || x_return_status,
12894: p_msg_level => fnd_log.level_statement);
12987: l_temp VARCHAR2(1);
12988: BEGIN
12989:
12990: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
12991: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'FV Attributes Parameter values : '
12992: ||' Federal Entity Type ' || p_cust_account_rec.federal_entity_type
12993: ||' trading_partner_agency_id ' || p_cust_account_rec.trading_partner_agency_id
12994: ||' duns_extension ' || p_cust_account_rec.duns_extension
12995: ||' advance_payment_indicator ' || p_cust_account_rec.advance_payment_indicator,
13009: FROM HZ_CUST_ACCOUNTS
13010: WHERE ROWID = p_rowid;
13011:
13012: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
13013: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'FV Attributes Database values : '
13014: ||' Federal Entity Type ' || l_federal_entity_type
13015: ||' trading_partner_agency_id ' || l_trading_partner_agency_id
13016: ||' duns_extension ' || l_duns_extension
13017: ||' advance_payment_indicator ' || l_advance_payment_indicator,
13033: p_column_value => p_cust_account_rec.federal_entity_type,
13034: x_return_status => x_return_status );
13035:
13036: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
13037: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'Federal Entity Type is lookup code in lookup type FV_FED_NON_FED_CODE. ' ||
13038: 'x_return_status = ' || x_return_status,
13039: p_msg_level=>fnd_log.level_statement);
13040: END IF;
13041:
13126: p_column_value => p_cust_account_rec.advance_payment_indicator,
13127: x_return_status => x_return_status );
13128:
13129: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
13130: hz_utility_v2pub.debug(p_prefix=>l_debug_prefix,p_message=>'Advance payment indicator is lookup code in lookup type FV_ADV_PMT_INDICATOR. ' ||
13131: 'x_return_status = ' || x_return_status,
13132: p_msg_level=>fnd_log.level_statement);
13133: END IF;
13134: