[Home] [Help]
22:
23:
24: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PV_ORDER_MGMT_PVT';
25: G_FILE_NAME CONSTANT VARCHAR2(12) := 'pvxvpomb.pls';
26: PV_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
27: PV_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
28: PV_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
29:
30:
23:
24: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PV_ORDER_MGMT_PVT';
25: G_FILE_NAME CONSTANT VARCHAR2(12) := 'pvxvpomb.pls';
26: PV_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
27: PV_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
28: PV_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
29:
30:
31: -- usage: this function is needed because OM is writing messages into its on
24: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PV_ORDER_MGMT_PVT';
25: G_FILE_NAME CONSTANT VARCHAR2(12) := 'pvxvpomb.pls';
26: PV_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
27: PV_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
28: PV_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
29:
30:
31: -- usage: this function is needed because OM is writing messages into its on
32: -- stack and is not using the fnd stack. here the exception handlers will not
99: WHILE l_len_sqlerrm >= i LOOP
100: FND_MESSAGE.Set_Name('PV', 'PV_OM_ERROR');
101: FND_MESSAGE.Set_token('MSG_TXT' , substr(x_msg_data,i,240));
102: i := i + 240;
103: FND_MSG_PUB.ADD;
104: END LOOP;
105:
106: END LOOP;
107:
287:
288: -- Initialize message list if p_init_msg_list is set to TRUE.
289: IF FND_API.to_Boolean( p_init_msg_list )
290: THEN
291: FND_MSG_PUB.initialize;
292: END IF;
293:
294: -- Standard call to check for call compatibility.
295: IF NOT FND_API.Compatible_API_Call (
316: -------------Validate IN Parameters -----------------------------
317:
318: IF FND_GLOBAL.User_Id IS NULL THEN
319: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
320: FND_MSG_PUB.add;
321: RAISE FND_API.G_EXC_ERROR;
322: END IF;
323:
324:
323:
324:
325: IF (p_party_site_id = FND_API.G_MISS_NUM) THEN
326: FND_MESSAGE.set_name('PV', 'PV_API_NO_PARTY_SITE_ID');
327: FND_MSG_PUB.add;
328: RAISE FND_API.G_EXC_ERROR;
329: END IF;
330:
331:
330:
331:
332: IF (p_partner_party_id = FND_API.G_MISS_NUM) THEN
333: FND_MESSAGE.set_name('PV', 'PV_API_NO_PARTNER_PARTY_ID');
334: FND_MSG_PUB.add;
335: RAISE FND_API.G_EXC_ERROR;
336: END IF;
337:
338:
337:
338:
339: IF (p_currency_code = FND_API.G_MISS_CHAR) THEN
340: FND_MESSAGE.set_name('PV', 'PV_API_NO_CURRENCY');
341: FND_MSG_PUB.add;
342: RAISE FND_API.G_EXC_ERROR;
343: END IF;
344:
345:
344:
345:
346: IF (p_contact_party_id = FND_API.G_MISS_NUM) THEN
347: FND_MESSAGE.set_name('PV', 'PV_API_NO_CONTACT_PARTY_ID');
348: FND_MSG_PUB.add;
349: RAISE FND_API.G_EXC_ERROR;
350: END IF;
351:
352:
352:
353: IF (p_partner_account_id = FND_API.G_MISS_NUM) THEN
354: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_ID');
355: FND_MESSAGE.Set_Token('ID', 'Account', FALSE);
356: FND_MSG_PUB.add;
357: RAISE FND_API.G_EXC_ERROR;
358: END IF;
359:
360: IF (P_order_tbl.count = 0) THEN
359:
360: IF (P_order_tbl.count = 0) THEN
361: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_ID');
362: FND_MESSAGE.Set_Token('ID', 'Order Details', FALSE);
363: FND_MSG_PUB.add;
364: RAISE FND_API.G_EXC_ERROR;
365: END IF;
366:
367: FOR i in P_order_tbl.FIRST..P_order_tbl.LAST loop
367: FOR i in P_order_tbl.FIRST..P_order_tbl.LAST loop
368: IF((P_order_tbl(i).order_header_id=FND_API.G_MISS_NUM or P_order_tbl(i).order_header_id IS NULL)
369: and (P_order_tbl(i).inventory_item_id=FND_API.G_MISS_NUM or P_order_tbl(i).inventory_item_id IS NULL)) THEN
370: FND_MESSAGE.set_name('PV', 'PV_NO_PROGRAM_INVENTORY_ITEM');
371: FND_MSG_PUB.add;
372: RAISE FND_API.G_EXC_ERROR;
373: END IF;
374: end loop;
375:
389: l_transaction_type_id := to_number(FND_PROFILE.Value('PV_ORDER_TRANSACTION_TYPE_ID'));
390: IF l_transaction_type_id is null then
391: x_return_status := FND_API.G_RET_STS_ERROR;
392: FND_MESSAGE.Set_Name('PV', 'PV_NO_ORDER_TRANSACTION_TYPE');
393: FND_MSG_PUB.ADD;
394: RAISE FND_API.G_EXC_ERROR;
395: END IF;
396:
397: -- add to fix bug#2792593
398: l_salesrep_id := to_number(FND_PROFILE.Value('PV_DEFAULT_SALESPERSON_ID'));
399: IF l_salesrep_id is null then
400: x_return_status := FND_API.G_RET_STS_ERROR;
401: FND_MESSAGE.Set_Name('PV', 'PV_NO_SALESREP_ID');
402: FND_MSG_PUB.ADD;
403: RAISE FND_API.G_EXC_ERROR;
404: END IF;
405: -- end adding
406: END IF;
439: and party_id in (p_partner_party_id, p_contact_party_id)
440: and status = 'A';
441:
442: IF (l_party_id IS NULL) THEN
443: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
444: FND_MESSAGE.Set_Name('PV', 'PV_INVALID_PARTY_SITE_COMB');
445: FND_MESSAGE.Set_Token('ID1', to_char(p_partner_party_id) || ',' || to_char(p_contact_party_id), FALSE);
446: FND_MESSAGE.Set_Token('ID2', to_char(p_party_site_id), FALSE);
447: FND_MSG_PUB.ADD;
443: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
444: FND_MESSAGE.Set_Name('PV', 'PV_INVALID_PARTY_SITE_COMB');
445: FND_MESSAGE.Set_Token('ID1', to_char(p_partner_party_id) || ',' || to_char(p_contact_party_id), FALSE);
446: FND_MESSAGE.Set_Token('ID2', to_char(p_party_site_id), FALSE);
447: FND_MSG_PUB.ADD;
448: END IF;
449: RAISE FND_API.G_EXC_ERROR;
450: END IF;
451:
470:
471: END IF;
472:
473: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
474: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
475: FND_MESSAGE.Set_Name('PV', 'PV_INVOICE_ORG_ERROR');
476: FND_MESSAGE.Set_Token('ID', to_char(p_partner_party_id), FALSE);
477: FND_MSG_PUB.ADD;
478: END IF;
473: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
474: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
475: FND_MESSAGE.Set_Name('PV', 'PV_INVOICE_ORG_ERROR');
476: FND_MESSAGE.Set_Token('ID', to_char(p_partner_party_id), FALSE);
477: FND_MSG_PUB.ADD;
478: END IF;
479: raise FND_API.G_EXC_ERROR;
480: END IF;
481:
501: PVX_UTILITY_PVT.debug_message('l_return_status : ' || l_return_status);
502:
503: END IF;
504: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
505: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
506: FND_MESSAGE.Set_Name('PV', 'PV_SHIP_TO_ORG_ERROR');
507: FND_MESSAGE.Set_Token('ID', to_char(p_partner_party_id), FALSE);
508: FND_MSG_PUB.ADD;
509: END IF;
504: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
505: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
506: FND_MESSAGE.Set_Name('PV', 'PV_SHIP_TO_ORG_ERROR');
507: FND_MESSAGE.Set_Token('ID', to_char(p_partner_party_id), FALSE);
508: FND_MSG_PUB.ADD;
509: END IF;
510: raise FND_API.G_EXC_ERROR;
511: END IF;
512:
531:
532: END IF;
533:
534: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
535: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
536: FND_MESSAGE.Set_Name('PV', 'PV_ACCOUNT_ROLE_ERROR');
537: FND_MESSAGE.Set_Token('ID', to_char(p_contact_party_id), FALSE);
538: FND_MSG_PUB.ADD;
539: END IF;
534: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
535: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
536: FND_MESSAGE.Set_Name('PV', 'PV_ACCOUNT_ROLE_ERROR');
537: FND_MESSAGE.Set_Token('ID', to_char(p_contact_party_id), FALSE);
538: FND_MSG_PUB.ADD;
539: END IF;
540: raise FND_API.G_EXC_ERROR;
541: END IF;
542: --------------End of get Contact role--------------------------------
698: END LOOP;
699:
700: FOR x in validate_price( x_order_header_id) LOOP
701: fnd_message.SET_NAME ('PV', 'PV_ERROR_IN_CALC_PRICE');
702: fnd_msg_pub.ADD;
703: raise FND_API.G_EXC_ERROR;
704: END LOOP;
705:
706: FND_MSG_PUB.Count_And_Get
702: fnd_msg_pub.ADD;
703: raise FND_API.G_EXC_ERROR;
704: END LOOP;
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: );
718: EXCEPTION
719: WHEN FND_API.G_EXC_ERROR THEN
720: ROLLBACK TO PV_PROCESS_ORDER;
721: x_return_status := FND_API.G_RET_STS_ERROR;
722: FND_MSG_PUB.Count_And_Get (
723: p_encoded => FND_API.G_FALSE
724: ,p_count => x_msg_count
725: ,p_data => x_msg_data
726: );
729: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
730: ROLLBACK TO PV_PROCESS_ORDER;
731: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
732: -- Standard call to get message count and if count=1, get the message
733: FND_MSG_PUB.Count_And_Get (
734: p_encoded => FND_API.G_FALSE
735: ,p_count => x_msg_count
736: ,p_data => x_msg_data
737: );
738:
739: WHEN OTHERS THEN
740: ROLLBACK TO PV_PROCESS_ORDER;
741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
742: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
743: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
744: END IF;
745: FND_MSG_PUB.Count_And_Get (
746: p_encoded => FND_API.G_FALSE
739: WHEN OTHERS THEN
740: ROLLBACK TO PV_PROCESS_ORDER;
741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
742: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
743: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
744: END IF;
745: FND_MSG_PUB.Count_And_Get (
746: p_encoded => FND_API.G_FALSE
747: ,p_count => x_msg_count
741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
742: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
743: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
744: END IF;
745: FND_MSG_PUB.Count_And_Get (
746: p_encoded => FND_API.G_FALSE
747: ,p_count => x_msg_count
748: ,p_data => x_msg_data
749: );
801:
802: -- Initialize message list if p_init_msg_list is set to TRUE.
803: IF FND_API.to_Boolean( p_init_msg_list )
804: THEN
805: FND_MSG_PUB.initialize;
806: END IF;
807:
808: -- Standard call to check for call compatibility.
809: IF NOT FND_API.Compatible_API_Call (
829:
830:
831: IF FND_GLOBAL.User_Id IS NULL THEN
832: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
833: FND_MSG_PUB.add;
834: RAISE FND_API.G_EXC_ERROR;
835: END IF;
836:
837:
837:
838: IF p_enrl_req_id.count() = 0 THEN
839: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_ID');
840: FND_MESSAGE.Set_Token('ID', 'Enrollment Request', FALSE);
841: fnd_msg_pub.ADD;
842: raise FND_API.G_EXC_ERROR;
843: END IF;
844:
845:
914:
915: END LOOP;
916:
917: END IF;
918: FND_MSG_PUB.Count_And_Get
919: ( p_encoded => FND_API.G_FALSE,
920: p_count => x_msg_count,
921: p_data => x_msg_data
922: );
929: EXCEPTION
930: WHEN FND_API.G_EXC_ERROR THEN
931: ROLLBACK TO ENRQ_PROCESS_ORDER;
932: x_return_status := FND_API.G_RET_STS_ERROR;
933: FND_MSG_PUB.Count_And_Get (
934: p_encoded => FND_API.G_FALSE
935: ,p_count => x_msg_count
936: ,p_data => x_msg_data
937: );
940: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
941: ROLLBACK TO ENRQ_PROCESS_ORDER;
942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
943: -- Standard call to get message count and if count=1, get the message
944: FND_MSG_PUB.Count_And_Get (
945: p_encoded => FND_API.G_FALSE
946: ,p_count => x_msg_count
947: ,p_data => x_msg_data
948: );
949:
950: WHEN OTHERS THEN
951: ROLLBACK TO ENRQ_PROCESS_ORDER;
952: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
953: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
954: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
955: END IF;
956: FND_MSG_PUB.Count_And_Get (
957: p_encoded => FND_API.G_FALSE
950: WHEN OTHERS THEN
951: ROLLBACK TO ENRQ_PROCESS_ORDER;
952: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
953: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
954: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
955: END IF;
956: FND_MSG_PUB.Count_And_Get (
957: p_encoded => FND_API.G_FALSE
958: ,p_count => x_msg_count
952: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
953: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
954: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
955: END IF;
956: FND_MSG_PUB.Count_And_Get (
957: p_encoded => FND_API.G_FALSE
958: ,p_count => x_msg_count
959: ,p_data => x_msg_data
960: );
1005:
1006: -- Initialize message list if p_init_msg_list is set to TRUE.
1007: IF FND_API.to_Boolean( p_init_msg_list )
1008: THEN
1009: FND_MSG_PUB.initialize;
1010: END IF;
1011:
1012: -- Standard call to check for call compatibility.
1013: IF NOT FND_API.Compatible_API_Call (
1033:
1034:
1035: IF FND_GLOBAL.User_Id IS NULL THEN
1036: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
1037: FND_MSG_PUB.add;
1038: RAISE FND_API.G_EXC_ERROR;
1039: END IF;
1040:
1041:
1041:
1042: IF (p_program_id = FND_API.G_MISS_NUM) THEN
1043: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_ID');
1044: FND_MESSAGE.Set_Token('ID', 'Program', FALSE);
1045: fnd_msg_pub.ADD;
1046: raise FND_API.G_EXC_ERROR;
1047: END IF;
1048:
1049:
1103: END IF;
1104:
1105: END IF;
1106:
1107: FND_MSG_PUB.Count_And_Get
1108: ( p_encoded => FND_API.G_FALSE,
1109: p_count => x_msg_count,
1110: p_data => x_msg_data
1111: );
1118: EXCEPTION
1119: WHEN FND_API.G_EXC_ERROR THEN
1120: ROLLBACK TO PRGM_PROCESS_ORDER;
1121: x_return_status := FND_API.G_RET_STS_ERROR;
1122: FND_MSG_PUB.Count_And_Get (
1123: p_encoded => FND_API.G_FALSE
1124: ,p_count => x_msg_count
1125: ,p_data => x_msg_data
1126: );
1129: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1130: ROLLBACK TO PRGM_PROCESS_ORDER;
1131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1132: -- Standard call to get message count and if count=1, get the message
1133: FND_MSG_PUB.Count_And_Get (
1134: p_encoded => FND_API.G_FALSE
1135: ,p_count => x_msg_count
1136: ,p_data => x_msg_data
1137: );
1138:
1139: WHEN OTHERS THEN
1140: ROLLBACK TO PRGM_PROCESS_ORDER;
1141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1142: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1143: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1144: END IF;
1145: FND_MSG_PUB.Count_And_Get (
1146: p_encoded => FND_API.G_FALSE
1139: WHEN OTHERS THEN
1140: ROLLBACK TO PRGM_PROCESS_ORDER;
1141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1142: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1143: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1144: END IF;
1145: FND_MSG_PUB.Count_And_Get (
1146: p_encoded => FND_API.G_FALSE
1147: ,p_count => x_msg_count
1141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1142: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1143: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1144: END IF;
1145: FND_MSG_PUB.Count_And_Get (
1146: p_encoded => FND_API.G_FALSE
1147: ,p_count => x_msg_count
1148: ,p_data => x_msg_data
1149: );
1204:
1205: -- Initialize message list if p_init_msg_list is set to TRUE.
1206: IF FND_API.to_Boolean( p_init_msg_list )
1207: THEN
1208: FND_MSG_PUB.initialize;
1209: END IF;
1210:
1211: -- Standard call to check for call compatibility.
1212: IF NOT FND_API.Compatible_API_Call (
1231: -------------End Of Initialize -------------------------------
1232:
1233: IF FND_GLOBAL.User_Id IS NULL THEN
1234: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
1235: FND_MSG_PUB.add;
1236: RAISE FND_API.G_EXC_ERROR;
1237: END IF;
1238:
1239: IF p_order_header_id IS NULL or p_order_header_id = FND_API.g_miss_num then
1237: END IF;
1238:
1239: IF p_order_header_id IS NULL or p_order_header_id = FND_API.g_miss_num then
1240: FND_MESSAGE.set_name('PV', 'PV_API_NO_ORDER_HEADER_ID');
1241: FND_MSG_PUB.add;
1242: RAISE FND_API.G_EXC_ERROR;
1243: END IF;
1244:
1245: Order_Debug_On;
1308: END IF;
1309: END LOOP;
1310: END IF;
1311:
1312: FND_MSG_PUB.Count_And_Get
1313: ( p_encoded => FND_API.G_FALSE ,
1314: p_count => x_msg_count,
1315: p_data => x_msg_data
1316: );
1323: EXCEPTION
1324: WHEN FND_API.G_EXC_ERROR THEN
1325: ROLLBACK TO BOOK_ORDER;
1326: x_return_status := FND_API.G_RET_STS_ERROR;
1327: FND_MSG_PUB.Count_And_Get (
1328: p_encoded => FND_API.G_FALSE
1329: ,p_count => x_msg_count
1330: ,p_data => x_msg_data
1331: );
1334: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1335: ROLLBACK TO BOOK_ORDER;
1336: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1337: -- Standard call to get message count and if count=1, get the message
1338: FND_MSG_PUB.Count_And_Get (
1339: p_encoded => FND_API.G_FALSE
1340: ,p_count => x_msg_count
1341: ,p_data => x_msg_data
1342: );
1343:
1344: WHEN OTHERS THEN
1345: ROLLBACK TO BOOK_ORDER;
1346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1347: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1348: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1349: END IF;
1350: FND_MSG_PUB.Count_And_Get (
1351: p_encoded => FND_API.G_FALSE
1344: WHEN OTHERS THEN
1345: ROLLBACK TO BOOK_ORDER;
1346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1347: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1348: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1349: END IF;
1350: FND_MSG_PUB.Count_And_Get (
1351: p_encoded => FND_API.G_FALSE
1352: ,p_count => x_msg_count
1346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1347: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1348: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1349: END IF;
1350: FND_MSG_PUB.Count_And_Get (
1351: p_encoded => FND_API.G_FALSE
1352: ,p_count => x_msg_count
1353: ,p_data => x_msg_data
1354: );
1407:
1408: -- Initialize message list if p_init_msg_list is set to TRUE.
1409: IF FND_API.to_Boolean( p_init_msg_list )
1410: THEN
1411: FND_MSG_PUB.initialize;
1412: END IF;
1413:
1414: -- Standard call to check for call compatibility.
1415: IF NOT FND_API.Compatible_API_Call (
1434: -------------End Of Initialize -------------------------------
1435:
1436: IF FND_GLOBAL.User_Id IS NULL THEN
1437: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
1438: FND_MSG_PUB.add;
1439: RAISE FND_API.G_EXC_ERROR;
1440: END IF;
1441:
1442: IF p_order_header_id IS NULL or p_order_header_id = FND_API.g_miss_num then
1440: END IF;
1441:
1442: IF p_order_header_id IS NULL or p_order_header_id = FND_API.g_miss_num then
1443: FND_MESSAGE.set_name('PV', 'PV_API_NO_ORDER_HEADER_ID');
1444: FND_MSG_PUB.add;
1445: RAISE FND_API.G_EXC_ERROR;
1446: END IF;
1447:
1448: l_change_reason := FND_PROFILE.Value('PV_ORDER_CANCEL_REASON');
1448: l_change_reason := FND_PROFILE.Value('PV_ORDER_CANCEL_REASON');
1449: IF l_change_reason is null then
1450: x_return_status := FND_API.G_RET_STS_ERROR;
1451: FND_MESSAGE.Set_Name('PV', 'PV_NO_ORDER_CANCEL_REASON');
1452: FND_MSG_PUB.ADD;
1453: RAISE FND_API.G_EXC_ERROR;
1454: END IF;
1455:
1456:
1518: RAISE FND_API.g_exc_unexpected_error;
1519: END IF;
1520:
1521:
1522: FND_MSG_PUB.Count_And_Get
1523: ( p_encoded => FND_API.G_FALSE,
1524: p_count => x_msg_count,
1525: p_data => x_msg_data
1526: );
1533: EXCEPTION
1534: WHEN FND_API.G_EXC_ERROR THEN
1535: ROLLBACK TO cancel_ORDER;
1536: x_return_status := FND_API.G_RET_STS_ERROR;
1537: FND_MSG_PUB.Count_And_Get (
1538: p_encoded => FND_API.G_FALSE
1539: ,p_count => x_msg_count
1540: ,p_data => x_msg_data
1541: );
1544: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1545: ROLLBACK TO cancel_ORDER;
1546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1547: -- Standard call to get message count and if count=1, get the message
1548: FND_MSG_PUB.Count_And_Get (
1549: p_encoded => FND_API.G_FALSE
1550: ,p_count => x_msg_count
1551: ,p_data => x_msg_data
1552: );
1553:
1554: WHEN OTHERS THEN
1555: ROLLBACK TO cancel_ORDER;
1556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1557: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1558: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1559: END IF;
1560: FND_MSG_PUB.Count_And_Get (
1561: p_encoded => FND_API.G_FALSE
1554: WHEN OTHERS THEN
1555: ROLLBACK TO cancel_ORDER;
1556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1557: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1558: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1559: END IF;
1560: FND_MSG_PUB.Count_And_Get (
1561: p_encoded => FND_API.G_FALSE
1562: ,p_count => x_msg_count
1556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1557: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1558: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1559: END IF;
1560: FND_MSG_PUB.Count_And_Get (
1561: p_encoded => FND_API.G_FALSE
1562: ,p_count => x_msg_count
1563: ,p_data => x_msg_data
1564: );
1600:
1601: -- Initialize message list if p_init_msg_list is set to TRUE.
1602: IF FND_API.to_Boolean( p_init_msg_list )
1603: THEN
1604: FND_MSG_PUB.initialize;
1605: END IF;
1606:
1607: -- Standard call to check for call compatibility.
1608: IF NOT FND_API.Compatible_API_Call (
1644: END IF;
1645:
1646: END LOOP;
1647:
1648: FND_MSG_PUB.Count_And_Get
1649: ( p_encoded => FND_API.G_FALSE,
1650: p_count => x_msg_count,
1651: p_data => x_msg_data
1652: );
1659: EXCEPTION
1660: WHEN FND_API.G_EXC_ERROR THEN
1661: ROLLBACK TO ENRQ_cancel_ORDER;
1662: x_return_status := FND_API.G_RET_STS_ERROR;
1663: FND_MSG_PUB.Count_And_Get (
1664: p_encoded => FND_API.G_FALSE
1665: ,p_count => x_msg_count
1666: ,p_data => x_msg_data
1667: );
1670: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1671: ROLLBACK TO ENRQ_cancel_ORDER;
1672: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1673: -- Standard call to get message count and if count=1, get the message
1674: FND_MSG_PUB.Count_And_Get (
1675: p_encoded => FND_API.G_FALSE
1676: ,p_count => x_msg_count
1677: ,p_data => x_msg_data
1678: );
1679:
1680: WHEN OTHERS THEN
1681: ROLLBACK TO ENRQ_cancel_ORDER;
1682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1683: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1684: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1685: END IF;
1686: FND_MSG_PUB.Count_And_Get (
1687: p_encoded => FND_API.G_FALSE
1680: WHEN OTHERS THEN
1681: ROLLBACK TO ENRQ_cancel_ORDER;
1682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1683: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1684: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1685: END IF;
1686: FND_MSG_PUB.Count_And_Get (
1687: p_encoded => FND_API.G_FALSE
1688: ,p_count => x_msg_count
1682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1683: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1684: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1685: END IF;
1686: FND_MSG_PUB.Count_And_Get (
1687: p_encoded => FND_API.G_FALSE
1688: ,p_count => x_msg_count
1689: ,p_data => x_msg_data
1690: );
1830: ---------------Initialize --------------------
1831: -- Initialize message list if p_init_msg_list is set to TRUE.
1832: IF FND_API.to_Boolean( p_init_msg_list )
1833: THEN
1834: FND_MSG_PUB.initialize;
1835: END IF;
1836:
1837: -- Standard call to check for call compatibility.
1838: IF NOT FND_API.Compatible_API_Call (
1863:
1864:
1865: IF FND_GLOBAL.User_Id IS NULL THEN
1866: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
1867: FND_MSG_PUB.add;
1868: RAISE FND_API.G_EXC_ERROR;
1869: END IF;
1870:
1871: IF p_order_header_id.count() = 0 THEN
1870:
1871: IF p_order_header_id.count() = 0 THEN
1872: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_ID');
1873: FND_MESSAGE.Set_Token('ID', 'Order Details', FALSE);
1874: fnd_msg_pub.ADD;
1875: raise FND_API.G_EXC_ERROR;
1876: END IF;
1877:
1878: for i in p_order_header_id.FIRST..p_order_header_id.LAST loop
1878: for i in p_order_header_id.FIRST..p_order_header_id.LAST loop
1879: IF (p_order_header_id(i).order_header_id IS NULL or p_order_header_id(i).order_header_id = FND_API.G_MISS_NUM) THEN
1880: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_ID');
1881: FND_MESSAGE.Set_Token('ID', 'Order Details', FALSE);
1882: FND_MSG_PUB.add;
1883: RAISE FND_API.G_EXC_ERROR;
1884: END IF;
1885: l_order_header_id_tbl.extend;
1886: l_order_header_id_tbl(l_order_header_id_tbl.count) := p_order_header_id(i).order_header_id;
1898:
1899:
1900: IF (p_payment_method_rec.payment_type_code = FND_API.G_MISS_CHAR or p_payment_method_rec.payment_type_code IS NULL) THEN
1901: FND_MESSAGE.set_name('PV', 'PV_API_NO_PAYMENT_TYPE');
1902: FND_MSG_PUB.add;
1903: RAISE FND_API.G_EXC_ERROR;
1904: END IF;
1905:
1906: IF (PV_DEBUG_HIGH_ON) THEN
1912:
1913: IF (p_payment_method_rec.payment_type_code = 'CHECK') THEN
1914: IF (p_payment_method_rec.check_number = FND_API.G_MISS_CHAR or p_payment_method_rec.check_number IS NULL) THEN
1915: FND_MESSAGE.set_name('PV', 'PV_API_NO_CHECK_NUMBER');
1916: FND_MSG_PUB.add;
1917: RAISE FND_API.G_EXC_ERROR;
1918: END IF;
1919:
1920: ELSIF (p_payment_method_rec.payment_type_code = 'CREDIT_CARD') THEN
1939: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1940: IF (lx_response.result_code = 'INVALID_PMT_CHANNEL') THEN
1941: FND_MESSAGE.set_name('PV', 'PV_DEBUG_MESSAGE');
1942: FND_MESSAGE.set_token('TEXT', lx_response.Result_Message);
1943: FND_MSG_PUB.add;
1944: RAISE FND_API.G_EXC_ERROR;
1945: ELSE
1946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1947: END IF;
1963:
1964: IF (l_payment_attribs.Instr_SecCode_Use = 'REQUIRED') THEN
1965: IF (p_payment_method_rec.instrument_security_code = FND_API.G_MISS_NUM or p_payment_method_rec.instrument_security_code IS NULL) THEN
1966: FND_MESSAGE.set_name('PV', 'PV_API_NO_CC_CVV2_CODE');
1967: FND_MSG_PUB.add;
1968: RAISE FND_API.G_EXC_ERROR;
1969: END IF;
1970: END IF;
1971:
1971:
1972: IF (p_enrollment_flow IS NULL or (p_enrollment_flow not in ('Y' , 'N'))) THEN
1973: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_ID');
1974: FND_MESSAGE.Set_Token('ID', 'Authorization', FALSE);
1975: FND_MSG_PUB.add;
1976: RAISE FND_API.G_EXC_ERROR;
1977: END IF;
1978:
1979: IF (p_payment_method_rec.instr_assignment_id IS NULL) THEN
1985:
1986:
1987: IF (p_payment_method_rec.credit_card_holder_name = FND_API.G_MISS_CHAR or p_payment_method_rec.credit_card_holder_name IS NULL) THEN
1988: FND_MESSAGE.set_name('PV', 'PV_API_NO_CC_HOLDER_NAME');
1989: FND_MSG_PUB.add;
1990: RAISE FND_API.G_EXC_ERROR;
1991: END IF;
1992:
1993: IF (p_payment_method_rec.credit_card_number = FND_API.G_MISS_CHAR or p_payment_method_rec.credit_card_number IS NULL) THEN
1991: END IF;
1992:
1993: IF (p_payment_method_rec.credit_card_number = FND_API.G_MISS_CHAR or p_payment_method_rec.credit_card_number IS NULL) THEN
1994: FND_MESSAGE.set_name('PV', 'PV_API_NO_CC_NUMBER');
1995: FND_MSG_PUB.add;
1996: RAISE FND_API.G_EXC_ERROR;
1997: END IF;
1998:
1999: IF (p_payment_method_rec.credit_card_code = FND_API.G_MISS_CHAR or p_payment_method_rec.credit_card_code is null) THEN
1997: END IF;
1998:
1999: IF (p_payment_method_rec.credit_card_code = FND_API.G_MISS_CHAR or p_payment_method_rec.credit_card_code is null) THEN
2000: FND_MESSAGE.set_name('PV', 'PV_API_NO_CC_TYPE');
2001: FND_MSG_PUB.add;
2002: RAISE FND_API.G_EXC_ERROR;
2003: END IF;
2004:
2005: /* No Expiration Date in R12, instead it is passed as month and year and the date is then derived */
2005: /* No Expiration Date in R12, instead it is passed as month and year and the date is then derived */
2006: IF (p_payment_method_rec.credit_card_exp_month = FND_API.G_MISS_NUM or p_payment_method_rec.credit_card_exp_month IS NULL) THEN
2007: FND_MESSAGE.set_name('PV', 'PV_API_NO_CC_EXP_DATE');
2008: FND_MESSAGE.set_token('DPART', 'month');
2009: FND_MSG_PUB.add;
2010: RAISE FND_API.G_EXC_ERROR;
2011: END IF;
2012:
2013: IF (p_payment_method_rec.credit_card_exp_year = FND_API.G_MISS_NUM or p_payment_method_rec.credit_card_exp_year IS NULL) THEN
2012:
2013: IF (p_payment_method_rec.credit_card_exp_year = FND_API.G_MISS_NUM or p_payment_method_rec.credit_card_exp_year IS NULL) THEN
2014: FND_MESSAGE.set_name('PV', 'PV_API_NO_CC_EXP_DATE');
2015: FND_MESSAGE.set_token('DPART', 'year');
2016: FND_MSG_PUB.add;
2017: RAISE FND_API.G_EXC_ERROR;
2018: END IF;
2019:
2020: --kvattiku Aug 14, 05
2025:
2026: IF (l_payment_attribs.Instr_Billing_Address = 'REQUIRED') THEN
2027: IF (p_payment_method_rec.cc_stmt_party_site_id = FND_API.G_MISS_NUM or p_payment_method_rec.cc_stmt_party_site_id IS NULL) THEN
2028: FND_MESSAGE.set_name('PV', 'PV_API_NO_CC_STMT_ADDR');
2029: FND_MSG_PUB.add;
2030: RAISE FND_API.G_EXC_ERROR;
2031: END IF;
2032:
2033: IF (PV_DEBUG_HIGH_ON) THEN
2168: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2169: IF (lx_response.Result_Category = 'INVALID PARAM') THEN
2170: FND_MESSAGE.set_name('PV', 'PV_DEBUG_MESSAGE');
2171: FND_MESSAGE.set_token('TEXT', lx_response.Result_Message);
2172: FND_MSG_PUB.add;
2173: RAISE FND_API.G_EXC_ERROR;
2174: ELSE
2175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2176: END IF;
2236: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2237: IF ((lx_response.Result_Category = 'INVALID_PARAM') or (lx_response.Result_Category = 'INCORRECT_FLOW')) THEN
2238: FND_MESSAGE.set_name('PV', 'PV_DEBUG_MESSAGE');
2239: FND_MESSAGE.set_token('TEXT', lx_response.Result_Message);
2240: FND_MSG_PUB.add;
2241: RAISE FND_API.G_EXC_ERROR;
2242: ELSE
2243: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2244: END IF;
2324: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2325: IF (lx_response.Result_Category = 'INVALID_PARAM') THEN
2326: FND_MESSAGE.set_name('PV', 'PV_DEBUG_MESSAGE');
2327: FND_MESSAGE.set_token('TEXT', lx_response.Result_Message);
2328: FND_MSG_PUB.add;
2329: RAISE FND_API.G_EXC_ERROR;
2330: ELSE
2331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2332: END IF;
2393: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2394: IF ((lx_response.Result_Category = 'INVALID_PARAM') or (lx_response.Result_Category = 'INCORRECT_FLOW')) THEN
2395: FND_MESSAGE.set_name('PV', 'PV_DEBUG_MESSAGE');
2396: FND_MESSAGE.set_token('TEXT', lx_response.Result_Message);
2397: FND_MSG_PUB.add;
2398: RAISE FND_API.G_EXC_ERROR;
2399: ELSE
2400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2401: END IF;
2467: END IF;
2468:
2469: FND_MESSAGE.set_name('PV', 'PV_DEBUG_MESSAGE');
2470: FND_MESSAGE.set_token('TEXT', lx_response.Result_Message);
2471: FND_MSG_PUB.add;
2472:
2473: END IF;
2474:
2475: /* It is possible that we have skipped authorization for just a single request, but that subsequent
2489: IF (p_payment_method_rec.payment_type_code = 'CREDIT_CARD') THEN
2490: x_is_authorized := l_is_authorized;
2491: END IF;
2492:
2493: FND_MSG_PUB.Count_And_Get
2494: ( p_encoded => FND_API.G_FALSE,
2495: p_count => x_msg_count,
2496: p_data => x_msg_data
2497: );
2504: EXCEPTION
2505: WHEN FND_API.G_EXC_ERROR THEN
2506: ROLLBACK;
2507: x_return_status := FND_API.G_RET_STS_ERROR;
2508: FND_MSG_PUB.Count_And_Get (
2509: p_encoded => FND_API.G_FALSE
2510: ,p_count => x_msg_count
2511: ,p_data => x_msg_data
2512: );
2515: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2516: ROLLBACK;
2517: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2518: -- Standard call to get message count and if count=1, get the message
2519: FND_MSG_PUB.Count_And_Get (
2520: p_encoded => FND_API.G_FALSE
2521: ,p_count => x_msg_count
2522: ,p_data => x_msg_data
2523: );
2524:
2525: WHEN OTHERS THEN
2526: ROLLBACK;
2527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2528: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2529: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2530: END IF;
2531: FND_MSG_PUB.Count_And_Get (
2532: p_encoded => FND_API.G_FALSE
2525: WHEN OTHERS THEN
2526: ROLLBACK;
2527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2528: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2529: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2530: END IF;
2531: FND_MSG_PUB.Count_And_Get (
2532: p_encoded => FND_API.G_FALSE
2533: ,p_count => x_msg_count
2527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2528: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2529: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2530: END IF;
2531: FND_MSG_PUB.Count_And_Get (
2532: p_encoded => FND_API.G_FALSE
2533: ,p_count => x_msg_count
2534: ,p_data => x_msg_data
2535: );
2613: ---------------Initialize --------------------
2614: -- Initialize message list if p_init_msg_list is set to TRUE.
2615: IF FND_API.to_Boolean( p_init_msg_list )
2616: THEN
2617: FND_MSG_PUB.initialize;
2618: END IF;
2619:
2620: -- Standard call to check for call compatibility.
2621: IF NOT FND_API.Compatible_API_Call (
2641:
2642:
2643: IF FND_GLOBAL.User_Id IS NULL THEN
2644: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
2645: FND_MSG_PUB.add;
2646: RAISE FND_API.G_EXC_ERROR;
2647: END IF;
2648:
2649:
2649:
2650: IF p_enrl_req_id.count() = 0 THEN
2651: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_ID');
2652: FND_MESSAGE.Set_Token('ID', 'Enrollment Request', FALSE);
2653: fnd_msg_pub.ADD;
2654: raise FND_API.G_EXC_ERROR;
2655: END IF;
2656:
2657:
2659: for i in p_enrl_req_id.FIRST..p_enrl_req_id.LAST loop
2660: IF (p_enrl_req_id(i).enrl_req_id IS NULL or p_enrl_req_id(i).enrl_req_id = FND_API.G_MISS_NUM) THEN
2661: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_ID');
2662: FND_MESSAGE.Set_Token('ID', 'Enrollment Request', FALSE);
2663: FND_MSG_PUB.add;
2664: RAISE FND_API.G_EXC_ERROR;
2665: END IF;
2666: l_enrl_req_id_tbl.extend;
2667: l_enrl_req_id_tbl(l_enrl_req_id_tbl.count) := p_enrl_req_id(i).enrl_req_id;
2986: PVX_UTILITY_PVT.debug_message('API: ' || l_api_name|| ' Processing done');
2987: END IF;
2988:
2989:
2990: FND_MSG_PUB.Count_And_Get
2991: ( p_encoded => FND_API.G_FALSE,
2992: p_count => x_msg_count,
2993: p_data => x_msg_data
2994: );
3001: EXCEPTION
3002: WHEN FND_API.G_EXC_ERROR THEN
3003: ROLLBACK;
3004: x_return_status := FND_API.G_RET_STS_ERROR;
3005: FND_MSG_PUB.Count_And_Get (
3006: p_encoded => FND_API.G_FALSE
3007: ,p_count => x_msg_count
3008: ,p_data => x_msg_data
3009: );
3011: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3012: ROLLBACK;
3013: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3014: -- Standard call to get message count and if count=1, get the message
3015: FND_MSG_PUB.Count_And_Get (
3016: p_encoded => FND_API.G_FALSE
3017: ,p_count => x_msg_count
3018: ,p_data => x_msg_data
3019: );
3020:
3021: WHEN OTHERS THEN
3022: ROLLBACK;
3023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3024: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
3025: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3026: END IF;
3027: FND_MSG_PUB.Count_And_Get (
3028: p_encoded => FND_API.G_FALSE
3021: WHEN OTHERS THEN
3022: ROLLBACK;
3023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3024: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
3025: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3026: END IF;
3027: FND_MSG_PUB.Count_And_Get (
3028: p_encoded => FND_API.G_FALSE
3029: ,p_count => x_msg_count
3023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3024: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
3025: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3026: END IF;
3027: FND_MSG_PUB.Count_And_Get (
3028: p_encoded => FND_API.G_FALSE
3029: ,p_count => x_msg_count
3030: ,p_data => x_msg_data
3031: );
3099: ---------------Initialize --------------------
3100: -- Initialize message list if p_init_msg_list is set to TRUE.
3101: IF FND_API.to_Boolean( p_init_msg_list )
3102: THEN
3103: FND_MSG_PUB.initialize;
3104: END IF;
3105:
3106: -- Standard call to check for call compatibility.
3107: IF NOT FND_API.Compatible_API_Call (
3126:
3127:
3128: IF FND_GLOBAL.User_Id IS NULL THEN
3129: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
3130: FND_MSG_PUB.add;
3131: RAISE FND_API.G_EXC_ERROR;
3132: END IF;
3133:
3134: IF p_order_header_id.count() = 0 THEN
3133:
3134: IF p_order_header_id.count() = 0 THEN
3135: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_ID');
3136: FND_MESSAGE.Set_Token('ID', 'Order Header', FALSE);
3137: FND_MSG_PUB.ADD;
3138: RAISE FND_API.G_EXC_ERROR;
3139: END IF;
3140:
3141: IF ((p_order_header_id(p_order_header_id.FIRST).invite_header_id IS NULL) or
3141: IF ((p_order_header_id(p_order_header_id.FIRST).invite_header_id IS NULL) or
3142: (p_order_header_id(p_order_header_id.FIRST).invite_header_id = FND_API.G_MISS_NUM)) THEN
3143: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_ID');
3144: FND_MESSAGE.Set_Token('ID', 'Invite Header', FALSE);
3145: FND_MSG_PUB.add;
3146: RAISE FND_API.G_EXC_ERROR;
3147: END IF;
3148:
3149: FOR x IN c_get_order_id(p_order_header_id(p_order_header_id.FIRST).invite_header_id) LOOP
3301: END IF;
3302:
3303: END LOOP;
3304:
3305: FND_MSG_PUB.Count_And_Get
3306: ( p_encoded => FND_API.G_FALSE,
3307: p_count => x_msg_count,
3308: p_data => x_msg_data
3309: );
3315: EXCEPTION
3316: WHEN FND_API.G_EXC_ERROR THEN
3317: ROLLBACK;
3318: x_return_status := FND_API.G_RET_STS_ERROR;
3319: FND_MSG_PUB.Count_And_Get (
3320: p_encoded => FND_API.G_FALSE
3321: ,p_count => x_msg_count
3322: ,p_data => x_msg_data
3323: );
3326: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3327: ROLLBACK;
3328: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3329: -- Standard call to get message count and if count=1, get the message
3330: FND_MSG_PUB.Count_And_Get (
3331: p_encoded => FND_API.G_FALSE
3332: ,p_count => x_msg_count
3333: ,p_data => x_msg_data
3334: );
3335:
3336: WHEN OTHERS THEN
3337: ROLLBACK;
3338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3339: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
3340: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3341: END IF;
3342: FND_MSG_PUB.Count_And_Get (
3343: p_encoded => FND_API.G_FALSE
3336: WHEN OTHERS THEN
3337: ROLLBACK;
3338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3339: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
3340: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3341: END IF;
3342: FND_MSG_PUB.Count_And_Get (
3343: p_encoded => FND_API.G_FALSE
3344: ,p_count => x_msg_count
3338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3339: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
3340: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3341: END IF;
3342: FND_MSG_PUB.Count_And_Get (
3343: p_encoded => FND_API.G_FALSE
3344: ,p_count => x_msg_count
3345: ,p_data => x_msg_data
3346: );