65:
66: WHEN OTHERS THEN
67: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
68: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
69: FND_MSG_PUB.ADD;
70: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
71:
72: END Contains_Value;
73:
117:
118: WHEN OTHERS THEN
119: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
120: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
121: FND_MSG_PUB.ADD;
122: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
123:
124: END Contains_Preference;
125:
151: (p_value_date = FND_API.G_MISS_DATE OR
152: p_value_date IS NULL)
153: then
154: FND_MESSAGE.SET_NAME('AR', 'HZ_NO_PREFERENCE');
155: FND_MSG_PUB.ADD;
156: RAISE FND_API.G_EXC_ERROR;
157: end if;
158:
159: -- if more than one preference values passed, then it is an error
170: p_value_varchar2 <> FND_API.G_MISS_CHAR AND
171: p_value_varchar2 IS NOT NULL)
172: then
173: FND_MESSAGE.SET_NAME('AR', 'HZ_MULTIPLE_PREFERENCES');
174: FND_MSG_PUB.ADD;
175: RAISE FND_API.G_EXC_ERROR;
176: end if;
177:
178: if p_value_varchar2 <> FND_API.G_MISS_CHAR and
204:
205: WHEN OTHERS THEN
206: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
207: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
208: FND_MSG_PUB.ADD;
209: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
210:
211: END Contains_Value;
212:
268: (p_value_date = FND_API.G_MISS_DATE OR
269: p_value_date IS NULL)
270: then
271: FND_MESSAGE.SET_NAME('AR', 'HZ_NO_PREFERENCE');
272: FND_MSG_PUB.ADD;
273: RAISE FND_API.G_EXC_ERROR;
274: end if;
275:
276: -- if more than one preference values passed, then it is an error
287: p_value_varchar2 <> FND_API.G_MISS_CHAR AND
288: p_value_varchar2 IS NOT NULL)
289: then
290: FND_MESSAGE.SET_NAME('AR', 'HZ_MULTIPLE_PREFERENCES');
291: FND_MSG_PUB.ADD;
292: RAISE FND_API.G_EXC_ERROR;
293: end if;
294:
295: -- if there is already some value set for the preference
302: if Contains_Preference(p_party_id,
303: p_category,
304: p_preference_code) = 'Y' then -- already one preference value set
305: FND_MESSAGE.SET_NAME('AR', 'HZ_SINGLE_VALUE_PREFERENCE');
306: FND_MSG_PUB.ADD;
307: RAISE FND_API.G_EXC_ERROR;
308: end if;
309: end if;
310:
357:
358: x_return_status := FND_API.G_RET_STS_SUCCESS;
359: x_object_version_number := l_object_version_number;
360:
361: FND_MSG_PUB.Count_And_Get(
362: p_encoded => FND_API.G_FALSE,
363: p_count => x_msg_count,
364: p_data => x_msg_data);
365:
368: WHEN FND_API.G_EXC_ERROR THEN
369: ROLLBACK TO add_preference;
370:
371: x_return_status := FND_API.G_RET_STS_ERROR;
372: FND_MSG_PUB.Count_And_Get(
373: p_encoded => FND_API.G_FALSE,
374: p_count => x_msg_count,
375: p_data => x_msg_data);
376:
377: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
378: ROLLBACK TO add_preference;
379:
380: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
381: FND_MSG_PUB.Count_And_Get(
382: p_encoded => FND_API.G_FALSE,
383: p_count => x_msg_count,
384: p_data => x_msg_data);
385:
388:
389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
390: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
391: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
392: FND_MSG_PUB.ADD;
393:
394: FND_MSG_PUB.Count_And_Get(
395: p_encoded => FND_API.G_FALSE,
396: p_count => x_msg_count,
390: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
391: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
392: FND_MSG_PUB.ADD;
393:
394: FND_MSG_PUB.Count_And_Get(
395: p_encoded => FND_API.G_FALSE,
396: p_count => x_msg_count,
397: p_data => x_msg_data);
398:
458: (p_value_date = FND_API.G_MISS_DATE OR
459: p_value_date IS NULL)
460: then
461: FND_MESSAGE.SET_NAME('AR', 'HZ_NO_PREFERENCE');
462: FND_MSG_PUB.ADD;
463: RAISE FND_API.G_EXC_ERROR;
464: end if;
465:
466: -- if more than one preference values passed, then it is an error
477: p_value_varchar2 <> FND_API.G_MISS_CHAR AND
478: p_value_varchar2 IS NOT NULL)
479: then
480: FND_MESSAGE.SET_NAME('AR', 'HZ_MULTIPLE_PREFERENCES');
481: FND_MSG_PUB.ADD;
482: RAISE FND_API.G_EXC_ERROR;
483: end if;
484:
485: -- check if there is already an existing preference value
545: if o_object_version_number <> p_object_version_number
546: then
547: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
548: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_PARTY_PREFERENCES');
549: FND_MSG_PUB.ADD;
550: RAISE FND_API.G_EXC_ERROR;
551: end if;
552: l_object_version_number := o_object_version_number + 1;
553:
649: if o_object_version_number <> p_object_version_number
650: then
651: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
652: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_PARTY_PREFERENCES');
653: FND_MSG_PUB.ADD;
654: RAISE FND_API.G_EXC_ERROR;
655: end if;
656: l_object_version_number := o_object_version_number + 1;
657:
702: p_party_preference_id => l_ppref_id);
703: END IF;
704: END IF;
705:
706: FND_MSG_PUB.Count_And_Get(
707: p_encoded => FND_API.G_FALSE,
708: p_count => x_msg_count,
709: p_data => x_msg_data);
710:
713: WHEN FND_API.G_EXC_ERROR THEN
714: ROLLBACK TO put_preference;
715:
716: x_return_status := FND_API.G_RET_STS_ERROR;
717: FND_MSG_PUB.Count_And_Get(
718: p_encoded => FND_API.G_FALSE,
719: p_count => x_msg_count,
720: p_data => x_msg_data);
721:
722: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
723: ROLLBACK TO put_preference;
724:
725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
726: FND_MSG_PUB.Count_And_Get(
727: p_encoded => FND_API.G_FALSE,
728: p_count => x_msg_count,
729: p_data => x_msg_data);
730:
733:
734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
735: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
736: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
737: FND_MSG_PUB.ADD;
738:
739: FND_MSG_PUB.Count_And_Get(
740: p_encoded => FND_API.G_FALSE,
741: p_count => x_msg_count,
735: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
736: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
737: FND_MSG_PUB.ADD;
738:
739: FND_MSG_PUB.Count_And_Get(
740: p_encoded => FND_API.G_FALSE,
741: p_count => x_msg_count,
742: p_data => x_msg_data);
743:
791: p_value_varchar2 <> FND_API.G_MISS_CHAR AND
792: p_value_varchar2 IS NOT NULL)
793: then
794: FND_MESSAGE.SET_NAME('AR', 'HZ_MULTIPLE_PREFERENCES');
795: FND_MSG_PUB.ADD;
796: RAISE FND_API.G_EXC_ERROR;
797: end if;
798:
799: -- if none of the values is specified, delete all
865: AND object_version_number = p_object_version_number;
866:
867: end if;
868:
869: FND_MSG_PUB.Count_And_Get(
870: p_encoded => FND_API.G_FALSE,
871: p_count => x_msg_count,
872: p_data => x_msg_data);
873:
876: WHEN FND_API.G_EXC_ERROR THEN
877: ROLLBACK TO remove_preference;
878:
879: x_return_status := FND_API.G_RET_STS_ERROR;
880: FND_MSG_PUB.Count_And_Get(
881: p_encoded => FND_API.G_FALSE,
882: p_count => x_msg_count,
883: p_data => x_msg_data);
884:
885: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
886: ROLLBACK TO remove_preference;
887:
888: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
889: FND_MSG_PUB.Count_And_Get(
890: p_encoded => FND_API.G_FALSE,
891: p_count => x_msg_count,
892: p_data => x_msg_data);
893:
896:
897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
898: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
899: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
900: FND_MSG_PUB.ADD;
901: FND_MSG_PUB.Count_And_Get(
902: p_encoded => FND_API.G_FALSE,
903: p_count => x_msg_count,
904: p_data => x_msg_data);
897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
898: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
899: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
900: FND_MSG_PUB.ADD;
901: FND_MSG_PUB.Count_And_Get(
902: p_encoded => FND_API.G_FALSE,
903: p_count => x_msg_count,
904: p_data => x_msg_data);
905:
942: AND PARTY_ID = p_party_id;
943:
944: x_return_status := FND_API.G_RET_STS_SUCCESS;
945:
946: FND_MSG_PUB.Count_And_Get(
947: p_encoded => FND_API.G_FALSE,
948: p_count => x_msg_count,
949: p_data => x_msg_data);
950:
951: EXCEPTION
952:
953: WHEN FND_API.G_EXC_ERROR THEN
954: x_return_status := FND_API.G_RET_STS_ERROR;
955: FND_MSG_PUB.Count_And_Get(
956: p_encoded => FND_API.G_FALSE,
957: p_count => x_msg_count,
958: p_data => x_msg_data);
959:
958: p_data => x_msg_data);
959:
960: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
961: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
962: FND_MSG_PUB.Count_And_Get(
963: p_encoded => FND_API.G_FALSE,
964: p_count => x_msg_count,
965: p_data => x_msg_data);
966:
967: WHEN OTHERS THEN
968: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
969: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
970: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
971: FND_MSG_PUB.ADD;
972: FND_MSG_PUB.Count_And_Get(
973: p_encoded => FND_API.G_FALSE,
974: p_count => x_msg_count,
975: p_data => x_msg_data);
968: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
969: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
970: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
971: FND_MSG_PUB.ADD;
972: FND_MSG_PUB.Count_And_Get(
973: p_encoded => FND_API.G_FALSE,
974: p_count => x_msg_count,
975: p_data => x_msg_data);
976:
1029:
1030: WHEN OTHERS THEN
1031: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1032: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1033: FND_MSG_PUB.ADD;
1034: RETURN NULL;
1035:
1036: END;
1037:
1087:
1088: WHEN OTHERS THEN
1089: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1090: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1091: FND_MSG_PUB.ADD;
1092: RETURN NULL;
1093:
1094: END;
1095:
1146:
1147: WHEN OTHERS THEN
1148: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1149: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1150: FND_MSG_PUB.ADD;
1151: RETURN NULL;
1152:
1153: END;
1154:
1200:
1201: WHEN OTHERS THEN
1202: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1203: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1204: FND_MSG_PUB.ADD;
1205: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
1206:
1207: END Contains_Value;
1208:
1254:
1255: WHEN OTHERS THEN
1256: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1257: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1258: FND_MSG_PUB.ADD;
1259: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
1260:
1261: END Contains_Value;
1262:
1276: IF p_party_id IS NULL OR
1277: p_party_id = FND_API.G_MISS_NUM THEN
1278: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
1279: FND_MESSAGE.SET_TOKEN('COLUMN', 'party id');
1280: FND_MSG_PUB.ADD;
1281: RAISE FND_API.G_EXC_ERROR;
1282: END IF;
1283:
1284: -- check whether category has been passed in.
1285: IF p_category IS NULL OR
1286: p_category = FND_API.G_MISS_CHAR THEN
1287: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
1288: FND_MESSAGE.SET_TOKEN('COLUMN', 'category');
1289: FND_MSG_PUB.ADD;
1290: RAISE FND_API.G_EXC_ERROR;
1291: END IF;
1292:
1293: -- check whether preference code has been passed in.
1294: IF p_preference_code IS NULL OR
1295: p_preference_code = FND_API.G_MISS_CHAR THEN
1296: FND_MESSAGE.SET_NAME('AR', 'HZ_API_MISSING_COLUMN');
1297: FND_MESSAGE.SET_TOKEN('COLUMN', 'preference code');
1298: FND_MSG_PUB.ADD;
1299: RAISE FND_API.G_EXC_ERROR;
1300: END IF;
1301:
1302: -- check if valid party_id has been passed
1309: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
1310: FND_MESSAGE.SET_TOKEN('FK', 'party id');
1311: FND_MESSAGE.SET_TOKEN('COLUMN' ,'party_id');
1312: FND_MESSAGE.SET_TOKEN('TABLE' ,'HZ_PARTIES');
1313: FND_MSG_PUB.ADD;
1314: RAISE FND_API.G_EXC_ERROR;
1315: when others then
1316: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1317: end;
1337:
1338: WHEN OTHERS THEN
1339: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1340: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1341: FND_MSG_PUB.ADD;
1342:
1343: END validate;
1344:
1345: PROCEDURE denorm_pref_contact_method (
1365: EXCEPTION
1366: WHEN OTHERS THEN
1367: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1368: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_PARTIES');
1369: FND_MSG_PUB.ADD;
1370: RAISE FND_API.G_EXC_ERROR;
1371: END;
1372:
1373: UPDATE hz_parties