[Home] [Help]
72:
73: END IF;
74: oe_msg_pub.get (
75: p_msg_index => k
76: ,p_encoded => FND_API.G_FALSE
77: ,p_data => l_msg_data
78: ,p_msg_index_out => l_msg_index);
79:
80: IF oe_msg_pub.g_msg_tbl(l_msg_index).message_text IS NULL THEN
205:
206:
207: PROCEDURE process_order(
208: p_api_version_number IN NUMBER
209: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
210: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
211: ,p_party_site_id IN NUMBER
212: ,p_partner_party_id IN NUMBER
213: ,p_currency_code IN VARCHAR2
206:
207: PROCEDURE process_order(
208: p_api_version_number IN NUMBER
209: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
210: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
211: ,p_party_site_id IN NUMBER
212: ,p_partner_party_id IN NUMBER
213: ,p_currency_code IN VARCHAR2
214: ,p_contact_party_id IN NUMBER
285: -- Standard Start of API savepoint
286: SAVEPOINT PV_PROCESS_ORDER;
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:
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 (
296: l_api_version_number
297: ,p_api_version_number
298: ,l_api_name
299: ,G_PKG_NAME
298: ,l_api_name
299: ,G_PKG_NAME
300: )
301: THEN
302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
303: END IF;
304:
305: -- Debug Message
306: IF (PV_DEBUG_HIGH_ON) THEN
309: END IF;
310:
311:
312: -- Initialize API return status to SUCCESS
313: x_return_status := FND_API.G_RET_STS_SUCCESS;
314: -------------End Of Initialize -------------------------------
315:
316: -------------Validate IN Parameters -----------------------------
317:
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:
325: IF (p_party_site_id = FND_API.G_MISS_NUM) THEN
321: RAISE FND_API.G_EXC_ERROR;
322: END IF;
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;
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:
332: IF (p_partner_party_id = FND_API.G_MISS_NUM) THEN
328: RAISE FND_API.G_EXC_ERROR;
329: END IF;
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;
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:
339: IF (p_currency_code = FND_API.G_MISS_CHAR) THEN
335: RAISE FND_API.G_EXC_ERROR;
336: END IF;
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;
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:
346: IF (p_contact_party_id = FND_API.G_MISS_NUM) THEN
342: RAISE FND_API.G_EXC_ERROR;
343: END IF;
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;
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:
353: IF (p_partner_account_id = FND_API.G_MISS_NUM) THEN
349: RAISE FND_API.G_EXC_ERROR;
350: END IF;
351:
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;
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
361: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_ID');
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
368: IF((P_order_tbl(i).order_header_id=FND_API.G_MISS_NUM or P_order_tbl(i).order_header_id IS NULL)
364: RAISE FND_API.G_EXC_ERROR;
365: END IF;
366:
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;
365: END IF;
366:
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;
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:
376:
378: ------------- Get Transaction Type ID and Salesperson ID for order creation -----------
379:
380: for i in P_order_tbl.FIRST..P_order_tbl.LAST loop
381: IF((P_order_tbl(i).order_header_id is not null) and
382: (P_order_tbl(i).order_header_id <> FND_API.G_MISS_NUM)) THEN
383: l_update_order := true;
384: exit;
385: END IF;
386: end loop;
387:
388: IF(not(l_update_order)) THEN
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;
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'));
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;
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;
407:
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:
452: IF (PV_DEBUG_HIGH_ON) THEN
453:
469: PVX_UTILITY_PVT.debug_message('l_return_status : ' || l_return_status);
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;
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:
482: -----------------End of get Invoice to Org ID--------------------------------
483: IF (PV_DEBUG_HIGH_ON) THEN
500: PVX_UTILITY_PVT.debug_message('l_ship_to_site_use_id : ' ||l_ship_to_site_use_id);
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;
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:
513: ---------------End of Ship Org ID----------------------------------
514: IF (PV_DEBUG_HIGH_ON) THEN
530: PVX_UTILITY_PVT.debug_message('l_return_status : ' || l_return_status);
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;
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--------------------------------
543:
544:
586: l_header_out_rec.order_source_id := 23;
587: l_header_out_rec.salesrep_id := l_salesrep_id;*/
588:
589:
590: IF(P_order_tbl(i).order_header_id=FND_API.G_MISS_NUM or P_order_tbl(i).order_header_id IS NULL) THEN
591:
592: l_header_rec.operation := OE_GLOBALS.G_OPR_CREATE;
593: l_header_rec.order_type_id := l_transaction_type_id;
594: l_header_rec.salesrep_id := l_salesrep_id;
637: --to l_header_out_rec from l_line_tbl and l_header_rec respectively (NOCOPY bug)
638:
639: OE_ORDER_GRP.process_order(
640: p_api_version_number => l_api_version_number,
641: p_init_msg_list => FND_API.g_false ,
642: p_return_values => FND_API.g_true ,
643: p_commit => FND_API.g_false ,
644: x_return_status => x_return_status,
645: x_msg_count => x_msg_count,
638:
639: OE_ORDER_GRP.process_order(
640: p_api_version_number => l_api_version_number,
641: p_init_msg_list => FND_API.g_false ,
642: p_return_values => FND_API.g_true ,
643: p_commit => FND_API.g_false ,
644: x_return_status => x_return_status,
645: x_msg_count => x_msg_count,
646: x_msg_data => x_msg_data,
639: OE_ORDER_GRP.process_order(
640: p_api_version_number => l_api_version_number,
641: p_init_msg_list => FND_API.g_false ,
642: p_return_values => FND_API.g_true ,
643: p_commit => FND_API.g_false ,
644: x_return_status => x_return_status,
645: x_msg_count => x_msg_count,
646: x_msg_data => x_msg_data,
647: p_header_rec => l_header_rec,
687: PVX_UTILITY_PVT.debug_message('x_order_header_id : '|| i|| ' : ' || x_order_header_id(x_order_header_id.count));
688: END IF;
689: Retrieve_OE_Messages;
690:
691: IF x_return_status = FND_API.g_ret_sts_error THEN
692: RAISE FND_API.g_exc_error;
693: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
694: RAISE FND_API.g_exc_unexpected_error;
695: END IF;
688: END IF;
689: Retrieve_OE_Messages;
690:
691: IF x_return_status = FND_API.g_ret_sts_error THEN
692: RAISE FND_API.g_exc_error;
693: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
694: RAISE FND_API.g_exc_unexpected_error;
695: END IF;
696:
689: Retrieve_OE_Messages;
690:
691: IF x_return_status = FND_API.g_ret_sts_error THEN
692: RAISE FND_API.g_exc_error;
693: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
694: RAISE FND_API.g_exc_unexpected_error;
695: END IF;
696:
697:
690:
691: IF x_return_status = FND_API.g_ret_sts_error THEN
692: RAISE FND_API.g_exc_error;
693: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
694: RAISE FND_API.g_exc_unexpected_error;
695: END IF;
696:
697:
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
707: ( p_encoded => FND_API.G_FALSE,
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: );
711:
708: p_count => x_msg_count,
709: p_data => x_msg_data
710: );
711:
712: IF FND_API.to_Boolean( p_commit ) THEN
713: COMMIT WORK;
714: END IF;
715:
716:
715:
716:
717:
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
717:
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
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: );
727:
725: ,p_data => x_msg_data
726: );
727:
728:
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 (
727:
728:
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
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:
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 (
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: );
750:
755:
756:
757: PROCEDURE process_order(
758: p_api_version_number IN NUMBER
759: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
760: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
761: ,p_party_site_id IN NUMBER
762: ,p_partner_party_id IN NUMBER
763: ,p_currency_code IN VARCHAR2
756:
757: PROCEDURE process_order(
758: p_api_version_number IN NUMBER
759: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
760: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
761: ,p_party_site_id IN NUMBER
762: ,p_partner_party_id IN NUMBER
763: ,p_currency_code IN VARCHAR2
764: ,p_contact_party_id IN NUMBER
799: -- Standard Start of API savepoint
800: SAVEPOINT ENRQ_PROCESS_ORDER;
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:
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 (
810: l_api_version_number
811: ,p_api_version_number
812: ,l_api_name
813: ,G_PKG_NAME
812: ,l_api_name
813: ,G_PKG_NAME
814: )
815: THEN
816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
817: END IF;
818:
819: -- Debug Message
820: IF (PV_DEBUG_HIGH_ON) THEN
823: END IF;
824:
825:
826: -- Initialize API return status to SUCCESS
827: x_return_status := FND_API.G_RET_STS_SUCCESS;
828: -------------End Of Initialize -------------------------------
829:
830:
831: IF FND_GLOBAL.User_Id IS NULL THEN
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:
838: IF p_enrl_req_id.count() = 0 THEN
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:
846: FOR x IN c_inventory_item_id LOOP
861:
862: IF(l_order_tbl.count >0) THEN
863: process_order(
864: p_api_version_number => p_api_version_number
865: ,p_init_msg_list => FND_API.g_false
866: ,p_commit => FND_API.G_FALSE
867: ,p_party_site_id => p_party_site_id
868: ,p_partner_party_id => p_partner_party_id
869: ,p_currency_code => p_currency_code
862: IF(l_order_tbl.count >0) THEN
863: process_order(
864: p_api_version_number => p_api_version_number
865: ,p_init_msg_list => FND_API.g_false
866: ,p_commit => FND_API.G_FALSE
867: ,p_party_site_id => p_party_site_id
868: ,p_partner_party_id => p_partner_party_id
869: ,p_currency_code => p_currency_code
870: ,p_contact_party_id => p_contact_party_id
876: ,x_msg_data => x_msg_data
877: );
878:
879:
880: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
882: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
883: RAISE FND_API.G_EXC_ERROR;
884: END IF;
877: );
878:
879:
880: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
882: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
883: RAISE FND_API.G_EXC_ERROR;
884: END IF;
885:
878:
879:
880: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
882: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
883: RAISE FND_API.G_EXC_ERROR;
884: END IF;
885:
886:
879:
880: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
882: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
883: RAISE FND_API.G_EXC_ERROR;
884: END IF;
885:
886:
887: FOR i in l_order_header_id_tbl.FIRST ..l_order_header_id_tbl.LAST LOOP
895:
896: PV_Pg_Enrl_Requests_PVT.Update_Pg_Enrl_Requests
897: (
898: p_api_version_number => p_api_version_number,
899: p_init_msg_list => Fnd_Api.G_FALSE,
900: p_commit => Fnd_Api.G_FALSE,
901: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
902: x_return_status => x_return_status,
903: x_msg_count => x_msg_count,
896: PV_Pg_Enrl_Requests_PVT.Update_Pg_Enrl_Requests
897: (
898: p_api_version_number => p_api_version_number,
899: p_init_msg_list => Fnd_Api.G_FALSE,
900: p_commit => Fnd_Api.G_FALSE,
901: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
902: x_return_status => x_return_status,
903: x_msg_count => x_msg_count,
904: x_msg_data => x_msg_data,
897: (
898: p_api_version_number => p_api_version_number,
899: p_init_msg_list => Fnd_Api.G_FALSE,
900: p_commit => Fnd_Api.G_FALSE,
901: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
902: x_return_status => x_return_status,
903: x_msg_count => x_msg_count,
904: x_msg_data => x_msg_data,
905: p_enrl_request_rec => l_enrl_req_rec
904: x_msg_data => x_msg_data,
905: p_enrl_request_rec => l_enrl_req_rec
906: );
907:
908: IF x_return_status = FND_API.g_ret_sts_error THEN
909: RAISE FND_API.g_exc_error;
910: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
911: RAISE FND_API.g_exc_unexpected_error;
912: END IF;
905: p_enrl_request_rec => l_enrl_req_rec
906: );
907:
908: IF x_return_status = FND_API.g_ret_sts_error THEN
909: RAISE FND_API.g_exc_error;
910: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
911: RAISE FND_API.g_exc_unexpected_error;
912: END IF;
913:
906: );
907:
908: IF x_return_status = FND_API.g_ret_sts_error THEN
909: RAISE FND_API.g_exc_error;
910: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
911: RAISE FND_API.g_exc_unexpected_error;
912: END IF;
913:
914:
907:
908: IF x_return_status = FND_API.g_ret_sts_error THEN
909: RAISE FND_API.g_exc_error;
910: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
911: RAISE FND_API.g_exc_unexpected_error;
912: END IF;
913:
914:
915: END LOOP;
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: );
923:
920: p_count => x_msg_count,
921: p_data => x_msg_data
922: );
923:
924: IF FND_API.to_Boolean( p_commit ) THEN
925: COMMIT WORK;
926: END IF;
927:
928:
926: END IF;
927:
928:
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
928:
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
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: );
938:
936: ,p_data => x_msg_data
937: );
938:
939:
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 (
938:
939:
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
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:
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 (
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: );
961:
964:
965:
966: PROCEDURE process_order(
967: p_api_version_number IN NUMBER
968: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
969: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
970: ,p_party_site_id IN NUMBER
971: ,p_partner_party_id IN NUMBER
972: ,p_currency_code IN VARCHAR2
965:
966: PROCEDURE process_order(
967: p_api_version_number IN NUMBER
968: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
969: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
970: ,p_party_site_id IN NUMBER
971: ,p_partner_party_id IN NUMBER
972: ,p_currency_code IN VARCHAR2
973: ,p_contact_party_id IN NUMBER
1003: -- Standard Start of API savepoint
1004: SAVEPOINT PRGM_PROCESS_ORDER;
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:
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 (
1014: l_api_version_number
1015: ,p_api_version_number
1016: ,l_api_name
1017: ,G_PKG_NAME
1016: ,l_api_name
1017: ,G_PKG_NAME
1018: )
1019: THEN
1020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1021: END IF;
1022:
1023: -- Debug Message
1024: IF (PV_DEBUG_HIGH_ON) THEN
1027: END IF;
1028:
1029:
1030: -- Initialize API return status to SUCCESS
1031: x_return_status := FND_API.G_RET_STS_SUCCESS;
1032: -------------End Of Initialize -------------------------------
1033:
1034:
1035: IF FND_GLOBAL.User_Id IS NULL THEN
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:
1042: IF (p_program_id = FND_API.G_MISS_NUM) THEN
1038: RAISE FND_API.G_EXC_ERROR;
1039: END IF;
1040:
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;
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:
1050: OPEN c_inventory_item_id(p_program_id);
1057: IF(l_order_tbl.count >0) THEN
1058: l_order_tbl(0).invite_header_id := p_invite_header_id;
1059: process_order(
1060: p_api_version_number => p_api_version_number
1061: ,p_init_msg_list => FND_API.g_false
1062: ,p_commit => FND_API.G_FALSE
1063: ,p_party_site_id => p_party_site_id
1064: ,p_partner_party_id => p_partner_party_id
1065: ,p_currency_code => p_currency_code
1058: l_order_tbl(0).invite_header_id := p_invite_header_id;
1059: process_order(
1060: p_api_version_number => p_api_version_number
1061: ,p_init_msg_list => FND_API.g_false
1062: ,p_commit => FND_API.G_FALSE
1063: ,p_party_site_id => p_party_site_id
1064: ,p_partner_party_id => p_partner_party_id
1065: ,p_currency_code => p_currency_code
1066: ,p_contact_party_id => p_contact_party_id
1073: );
1074:
1075: x_order_header_id := l_order_header_id_tbl(l_order_header_id_tbl.FIRST);
1076:
1077: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1078: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1079: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1080: RAISE FND_API.G_EXC_ERROR;
1081: END IF;
1074:
1075: x_order_header_id := l_order_header_id_tbl(l_order_header_id_tbl.FIRST);
1076:
1077: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1078: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1079: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1080: RAISE FND_API.G_EXC_ERROR;
1081: END IF;
1082:
1075: x_order_header_id := l_order_header_id_tbl(l_order_header_id_tbl.FIRST);
1076:
1077: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1078: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1079: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1080: RAISE FND_API.G_EXC_ERROR;
1081: END IF;
1082:
1083: l_invite_headers_rec.invite_header_id := p_invite_header_id;
1076:
1077: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1078: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1079: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1080: RAISE FND_API.G_EXC_ERROR;
1081: END IF;
1082:
1083: l_invite_headers_rec.invite_header_id := p_invite_header_id;
1084: l_invite_headers_rec.order_header_id := x_order_header_id;
1086:
1087: PV_PG_INVITE_HEADERS_PVT.update_invite_headers
1088: (
1089: p_api_version_number => p_api_version_number,
1090: p_init_msg_list => Fnd_Api.G_FALSE,
1091: p_commit => Fnd_Api.G_FALSE,
1092: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1093: x_return_status => x_return_status,
1094: x_msg_count => x_msg_count,
1087: PV_PG_INVITE_HEADERS_PVT.update_invite_headers
1088: (
1089: p_api_version_number => p_api_version_number,
1090: p_init_msg_list => Fnd_Api.G_FALSE,
1091: p_commit => Fnd_Api.G_FALSE,
1092: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1093: x_return_status => x_return_status,
1094: x_msg_count => x_msg_count,
1095: x_msg_data => x_msg_data,
1088: (
1089: p_api_version_number => p_api_version_number,
1090: p_init_msg_list => Fnd_Api.G_FALSE,
1091: p_commit => Fnd_Api.G_FALSE,
1092: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1093: x_return_status => x_return_status,
1094: x_msg_count => x_msg_count,
1095: x_msg_data => x_msg_data,
1096: p_invite_headers_rec => l_invite_headers_rec
1095: x_msg_data => x_msg_data,
1096: p_invite_headers_rec => l_invite_headers_rec
1097: );
1098:
1099: IF x_return_status = FND_API.g_ret_sts_error THEN
1100: RAISE FND_API.g_exc_error;
1101: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1102: RAISE FND_API.g_exc_unexpected_error;
1103: END IF;
1096: p_invite_headers_rec => l_invite_headers_rec
1097: );
1098:
1099: IF x_return_status = FND_API.g_ret_sts_error THEN
1100: RAISE FND_API.g_exc_error;
1101: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1102: RAISE FND_API.g_exc_unexpected_error;
1103: END IF;
1104:
1097: );
1098:
1099: IF x_return_status = FND_API.g_ret_sts_error THEN
1100: RAISE FND_API.g_exc_error;
1101: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1102: RAISE FND_API.g_exc_unexpected_error;
1103: END IF;
1104:
1105: END IF;
1098:
1099: IF x_return_status = FND_API.g_ret_sts_error THEN
1100: RAISE FND_API.g_exc_error;
1101: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1102: RAISE FND_API.g_exc_unexpected_error;
1103: END IF;
1104:
1105: END IF;
1106:
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: );
1112:
1109: p_count => x_msg_count,
1110: p_data => x_msg_data
1111: );
1112:
1113: IF FND_API.to_Boolean( p_commit ) THEN
1114: COMMIT WORK;
1115: END IF;
1116:
1117:
1115: END IF;
1116:
1117:
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
1117:
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
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: );
1127:
1125: ,p_data => x_msg_data
1126: );
1127:
1128:
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 (
1127:
1128:
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
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:
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 (
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: );
1150:
1156:
1157:
1158: PROCEDURE book_order(
1159: p_api_version_number IN NUMBER
1160: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1161: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1162: ,p_order_header_id IN NUMBER
1163: ,x_return_status OUT NOCOPY VARCHAR2
1164: ,x_msg_count OUT NOCOPY NUMBER
1157:
1158: PROCEDURE book_order(
1159: p_api_version_number IN NUMBER
1160: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1161: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1162: ,p_order_header_id IN NUMBER
1163: ,x_return_status OUT NOCOPY VARCHAR2
1164: ,x_msg_count OUT NOCOPY NUMBER
1165: ,x_msg_data OUT NOCOPY VARCHAR2
1202: -- Standard Start of API savepoint
1203: SAVEPOINT BOOK_ORDER;
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:
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 (
1213: l_api_version_number
1214: ,p_api_version_number
1215: ,l_api_name
1216: ,G_PKG_NAME
1215: ,l_api_name
1216: ,G_PKG_NAME
1217: )
1218: THEN
1219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1220: END IF;
1221:
1222: -- Debug Message
1223: IF (PV_DEBUG_HIGH_ON) THEN
1226: END IF;
1227:
1228:
1229: -- Initialize API return status to SUCCESS
1230: x_return_status := FND_API.G_RET_STS_SUCCESS;
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');
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
1240: FND_MESSAGE.set_name('PV', 'PV_API_NO_ORDER_HEADER_ID');
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
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;
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;
1246:
1252: l_action_request_tbl(1).request_type := OE_GLOBALS.G_BOOK_ORDER;
1253:
1254: OE_ORDER_GRP.process_order(
1255: p_api_version_number => l_api_version_number,
1256: p_init_msg_list => FND_API.g_false ,
1257: p_return_values => FND_API.g_true ,
1258: p_commit => FND_API.g_false ,
1259: x_return_status => x_return_status,
1260: x_msg_count => x_msg_count,
1253:
1254: OE_ORDER_GRP.process_order(
1255: p_api_version_number => l_api_version_number,
1256: p_init_msg_list => FND_API.g_false ,
1257: p_return_values => FND_API.g_true ,
1258: p_commit => FND_API.g_false ,
1259: x_return_status => x_return_status,
1260: x_msg_count => x_msg_count,
1261: x_msg_data => x_msg_data,
1254: OE_ORDER_GRP.process_order(
1255: p_api_version_number => l_api_version_number,
1256: p_init_msg_list => FND_API.g_false ,
1257: p_return_values => FND_API.g_true ,
1258: p_commit => FND_API.g_false ,
1259: x_return_status => x_return_status,
1260: x_msg_count => x_msg_count,
1261: x_msg_data => x_msg_data,
1262: p_action_request_tbl => l_action_request_tbl,
1291: END IF;
1292:
1293: Retrieve_OE_Messages;
1294:
1295: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1297: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1298: RAISE FND_API.G_EXC_ERROR;
1299: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1292:
1293: Retrieve_OE_Messages;
1294:
1295: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1297: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1298: RAISE FND_API.G_EXC_ERROR;
1299: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1300: FOR i in 1..x_action_request_tbl.COUNT LOOP
1293: Retrieve_OE_Messages;
1294:
1295: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1297: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1298: RAISE FND_API.G_EXC_ERROR;
1299: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1300: FOR i in 1..x_action_request_tbl.COUNT LOOP
1301: PVX_UTILITY_PVT.debug_message('process_order :: x_action_request_tbl(i).return_status : ' || x_action_request_tbl(i).return_status);
1294:
1295: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1297: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1298: RAISE FND_API.G_EXC_ERROR;
1299: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1300: FOR i in 1..x_action_request_tbl.COUNT LOOP
1301: PVX_UTILITY_PVT.debug_message('process_order :: x_action_request_tbl(i).return_status : ' || x_action_request_tbl(i).return_status);
1302: IF x_action_request_tbl(i).return_status = FND_API.G_RET_STS_ERROR THEN
1295: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1297: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1298: RAISE FND_API.G_EXC_ERROR;
1299: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1300: FOR i in 1..x_action_request_tbl.COUNT LOOP
1301: PVX_UTILITY_PVT.debug_message('process_order :: x_action_request_tbl(i).return_status : ' || x_action_request_tbl(i).return_status);
1302: IF x_action_request_tbl(i).return_status = FND_API.G_RET_STS_ERROR THEN
1303: PVX_UTILITY_PVT.debug_message('x_action_request_tbl.return_status is ' || x_action_request_tbl(i).return_status);
1298: RAISE FND_API.G_EXC_ERROR;
1299: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1300: FOR i in 1..x_action_request_tbl.COUNT LOOP
1301: PVX_UTILITY_PVT.debug_message('process_order :: x_action_request_tbl(i).return_status : ' || x_action_request_tbl(i).return_status);
1302: IF x_action_request_tbl(i).return_status = FND_API.G_RET_STS_ERROR THEN
1303: PVX_UTILITY_PVT.debug_message('x_action_request_tbl.return_status is ' || x_action_request_tbl(i).return_status);
1304: RAISE FND_API.g_exc_error;
1305: ELSIF x_action_request_tbl(i).return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1306: PVX_UTILITY_PVT.debug_message('x_action_request_tbl.return_status is ' || x_action_request_tbl(i).return_status);
1300: FOR i in 1..x_action_request_tbl.COUNT LOOP
1301: PVX_UTILITY_PVT.debug_message('process_order :: x_action_request_tbl(i).return_status : ' || x_action_request_tbl(i).return_status);
1302: IF x_action_request_tbl(i).return_status = FND_API.G_RET_STS_ERROR THEN
1303: PVX_UTILITY_PVT.debug_message('x_action_request_tbl.return_status is ' || x_action_request_tbl(i).return_status);
1304: RAISE FND_API.g_exc_error;
1305: ELSIF x_action_request_tbl(i).return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1306: PVX_UTILITY_PVT.debug_message('x_action_request_tbl.return_status is ' || x_action_request_tbl(i).return_status);
1307: RAISE FND_API.g_exc_error;
1308: END IF;
1301: PVX_UTILITY_PVT.debug_message('process_order :: x_action_request_tbl(i).return_status : ' || x_action_request_tbl(i).return_status);
1302: IF x_action_request_tbl(i).return_status = FND_API.G_RET_STS_ERROR THEN
1303: PVX_UTILITY_PVT.debug_message('x_action_request_tbl.return_status is ' || x_action_request_tbl(i).return_status);
1304: RAISE FND_API.g_exc_error;
1305: ELSIF x_action_request_tbl(i).return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1306: PVX_UTILITY_PVT.debug_message('x_action_request_tbl.return_status is ' || x_action_request_tbl(i).return_status);
1307: RAISE FND_API.g_exc_error;
1308: END IF;
1309: END LOOP;
1303: PVX_UTILITY_PVT.debug_message('x_action_request_tbl.return_status is ' || x_action_request_tbl(i).return_status);
1304: RAISE FND_API.g_exc_error;
1305: ELSIF x_action_request_tbl(i).return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1306: PVX_UTILITY_PVT.debug_message('x_action_request_tbl.return_status is ' || x_action_request_tbl(i).return_status);
1307: RAISE FND_API.g_exc_error;
1308: END IF;
1309: END LOOP;
1310: END IF;
1311:
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: );
1317:
1314: p_count => x_msg_count,
1315: p_data => x_msg_data
1316: );
1317:
1318: IF FND_API.to_Boolean( p_commit ) THEN
1319: COMMIT WORK;
1320: END IF;
1321:
1322:
1320: END IF;
1321:
1322:
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
1322:
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
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: );
1332:
1330: ,p_data => x_msg_data
1331: );
1332:
1333:
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 (
1332:
1333:
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
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:
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 (
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: );
1355:
1357:
1358:
1359: PROCEDURE cancel_order(
1360: p_api_version_number IN NUMBER
1361: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1362: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1363: ,p_order_header_id IN NUMBER
1364: ,p_set_moac_context IN VARCHAR2 := 'Y'
1365: ,x_return_status OUT NOCOPY VARCHAR2
1358:
1359: PROCEDURE cancel_order(
1360: p_api_version_number IN NUMBER
1361: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1362: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1363: ,p_order_header_id IN NUMBER
1364: ,p_set_moac_context IN VARCHAR2 := 'Y'
1365: ,x_return_status OUT NOCOPY VARCHAR2
1366: ,x_msg_count OUT NOCOPY NUMBER
1405: -- Standard Start of API savepoint
1406: SAVEPOINT cancel_ORDER;
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:
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 (
1416: l_api_version_number
1417: ,p_api_version_number
1418: ,l_api_name
1419: ,G_PKG_NAME
1418: ,l_api_name
1419: ,G_PKG_NAME
1420: )
1421: THEN
1422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1423: END IF;
1424:
1425: -- Debug Message
1426: IF (PV_DEBUG_HIGH_ON) THEN
1429: END IF;
1430:
1431:
1432: -- Initialize API return status to SUCCESS
1433: x_return_status := FND_API.G_RET_STS_SUCCESS;
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');
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
1443: FND_MESSAGE.set_name('PV', 'PV_API_NO_ORDER_HEADER_ID');
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
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;
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');
1449: IF l_change_reason is null then
1446: END IF;
1447:
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;
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:
1457: Order_Debug_On;
1473:
1474: --kvattiku: Aug 08, 05 NOCOPY bug related change
1475: OE_ORDER_GRP.process_order(
1476: p_api_version_number => l_api_version_number,
1477: p_init_msg_list => FND_API.g_false ,
1478: p_return_values => FND_API.g_true ,
1479: p_commit => FND_API.g_false ,
1480: x_return_status => x_return_status,
1481: x_msg_count => x_msg_count,
1474: --kvattiku: Aug 08, 05 NOCOPY bug related change
1475: OE_ORDER_GRP.process_order(
1476: p_api_version_number => l_api_version_number,
1477: p_init_msg_list => FND_API.g_false ,
1478: p_return_values => FND_API.g_true ,
1479: p_commit => FND_API.g_false ,
1480: x_return_status => x_return_status,
1481: x_msg_count => x_msg_count,
1482: x_msg_data => x_msg_data,
1475: OE_ORDER_GRP.process_order(
1476: p_api_version_number => l_api_version_number,
1477: p_init_msg_list => FND_API.g_false ,
1478: p_return_values => FND_API.g_true ,
1479: p_commit => FND_API.g_false ,
1480: x_return_status => x_return_status,
1481: x_msg_count => x_msg_count,
1482: x_msg_data => x_msg_data,
1483: p_header_rec => l_header_rec,
1511: END IF;
1512:
1513: Retrieve_OE_Messages;
1514:
1515: IF x_return_status = FND_API.g_ret_sts_error THEN
1516: RAISE FND_API.g_exc_error;
1517: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1518: RAISE FND_API.g_exc_unexpected_error;
1519: END IF;
1512:
1513: Retrieve_OE_Messages;
1514:
1515: IF x_return_status = FND_API.g_ret_sts_error THEN
1516: RAISE FND_API.g_exc_error;
1517: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1518: RAISE FND_API.g_exc_unexpected_error;
1519: END IF;
1520:
1513: Retrieve_OE_Messages;
1514:
1515: IF x_return_status = FND_API.g_ret_sts_error THEN
1516: RAISE FND_API.g_exc_error;
1517: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1518: RAISE FND_API.g_exc_unexpected_error;
1519: END IF;
1520:
1521:
1514:
1515: IF x_return_status = FND_API.g_ret_sts_error THEN
1516: RAISE FND_API.g_exc_error;
1517: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1518: RAISE FND_API.g_exc_unexpected_error;
1519: END IF;
1520:
1521:
1522: FND_MSG_PUB.Count_And_Get
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: );
1527:
1524: p_count => x_msg_count,
1525: p_data => x_msg_data
1526: );
1527:
1528: IF FND_API.to_Boolean( p_commit ) THEN
1529: COMMIT WORK;
1530: END IF;
1531:
1532:
1530: END IF;
1531:
1532:
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
1532:
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
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: );
1542:
1540: ,p_data => x_msg_data
1541: );
1542:
1543:
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 (
1542:
1543:
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
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:
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 (
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: );
1565: End cancel_order;
1567:
1568:
1569: PROCEDURE cancel_order(
1570: p_api_version_number IN NUMBER
1571: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1572: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1573: ,p_enrl_req_id IN JTF_NUMBER_TABLE
1574: ,x_return_status OUT NOCOPY VARCHAR2
1575: ,x_msg_count OUT NOCOPY NUMBER
1568:
1569: PROCEDURE cancel_order(
1570: p_api_version_number IN NUMBER
1571: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1572: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1573: ,p_enrl_req_id IN JTF_NUMBER_TABLE
1574: ,x_return_status OUT NOCOPY VARCHAR2
1575: ,x_msg_count OUT NOCOPY NUMBER
1576: ,x_msg_data OUT NOCOPY VARCHAR2
1598: -- Standard Start of API savepoint
1599: SAVEPOINT ENRQ_cancel_ORDER;
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:
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 (
1609: l_api_version_number
1610: ,p_api_version_number
1611: ,l_api_name
1612: ,G_PKG_NAME
1611: ,l_api_name
1612: ,G_PKG_NAME
1613: )
1614: THEN
1615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1616: END IF;
1617:
1618: -- Debug Message
1619: IF (PV_DEBUG_HIGH_ON) THEN
1622: END IF;
1623:
1624:
1625: -- Initialize API return status to SUCCESS
1626: x_return_status := FND_API.G_RET_STS_SUCCESS;
1627: -------------End Of Initialize -------------------------------
1628: FOR x in c_order_header_id loop
1629: cancel_order
1630: ( p_api_version_number => p_api_version_number
1627: -------------End Of Initialize -------------------------------
1628: FOR x in c_order_header_id loop
1629: cancel_order
1630: ( p_api_version_number => p_api_version_number
1631: ,p_init_msg_list => FND_API.g_false
1632: ,p_commit => p_commit
1633: ,p_order_header_id => x.order_header_id
1634: ,p_set_moac_context => 'N'
1635: ,x_return_status => x_return_status
1636: ,x_msg_count => x_msg_count
1637: ,x_msg_data => x_msg_data
1638: );
1639:
1640: IF x_return_status = FND_API.g_ret_sts_error THEN
1641: RAISE FND_API.g_exc_error;
1642: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1643: RAISE FND_API.g_exc_unexpected_error;
1644: END IF;
1637: ,x_msg_data => x_msg_data
1638: );
1639:
1640: IF x_return_status = FND_API.g_ret_sts_error THEN
1641: RAISE FND_API.g_exc_error;
1642: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1643: RAISE FND_API.g_exc_unexpected_error;
1644: END IF;
1645:
1638: );
1639:
1640: IF x_return_status = FND_API.g_ret_sts_error THEN
1641: RAISE FND_API.g_exc_error;
1642: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1643: RAISE FND_API.g_exc_unexpected_error;
1644: END IF;
1645:
1646: END LOOP;
1639:
1640: IF x_return_status = FND_API.g_ret_sts_error THEN
1641: RAISE FND_API.g_exc_error;
1642: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1643: RAISE FND_API.g_exc_unexpected_error;
1644: END IF;
1645:
1646: END LOOP;
1647:
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: );
1653:
1650: p_count => x_msg_count,
1651: p_data => x_msg_data
1652: );
1653:
1654: IF FND_API.to_Boolean( p_commit ) THEN
1655: COMMIT WORK;
1656: END IF;
1657:
1658:
1656: END IF;
1657:
1658:
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
1658:
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
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: );
1668:
1666: ,p_data => x_msg_data
1667: );
1668:
1669:
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 (
1668:
1669:
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
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:
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 (
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: );
1691: End cancel_order;
1706: l_response IBY_FNDCPT_COMMON_PUB.Result_rec_type;
1707: BEGIN
1708:
1709: IF ((p_attribute <> 'CVV2') and (p_attribute <> 'STMT')) THEN
1710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1711: END IF;
1712:
1713: IBY_FNDCPT_SETUP_PUB.get_payment_channel_attribs
1714: (
1712:
1713: IBY_FNDCPT_SETUP_PUB.get_payment_channel_attribs
1714: (
1715: p_api_version => 1.0,
1716: p_init_msg_list => FND_API.G_FALSE,
1717: x_return_status => l_return_status,
1718: x_msg_count => l_msg_count,
1719: x_msg_data => l_msg_data,
1720: p_channel_code => 'CREDIT_CARD',
1720: p_channel_code => 'CREDIT_CARD',
1721: x_channel_attrib_uses => l_payment_attribs,
1722: x_response => l_response
1723: );
1724: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1725: IF (l_response.result_code = 'INVALID_PMT_CHANNEL') THEN
1726: RAISE FND_API.G_EXC_ERROR;
1727: ELSE
1728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1722: x_response => l_response
1723: );
1724: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1725: IF (l_response.result_code = 'INVALID_PMT_CHANNEL') THEN
1726: RAISE FND_API.G_EXC_ERROR;
1727: ELSE
1728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1729: END IF;
1730: END IF;
1724: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1725: IF (l_response.result_code = 'INVALID_PMT_CHANNEL') THEN
1726: RAISE FND_API.G_EXC_ERROR;
1727: ELSE
1728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1729: END IF;
1730: END IF;
1731:
1732: IF (p_attribute = 'CVV2') THEN
1771:
1772:
1773: PROCEDURE set_payment_info(
1774: p_api_version_number IN NUMBER
1775: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1776: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1777: ,p_contact_party_id IN NUMBER
1778: ,p_payment_method_rec IN Payment_method_Rec_type
1779: ,p_order_header_id IN Payment_info_Tbl_type
1772:
1773: PROCEDURE set_payment_info(
1774: p_api_version_number IN NUMBER
1775: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1776: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1777: ,p_contact_party_id IN NUMBER
1778: ,p_payment_method_rec IN Payment_method_Rec_type
1779: ,p_order_header_id IN Payment_info_Tbl_type
1780: ,p_enrollment_flow IN VARCHAR2
1828:
1829:
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:
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 (
1839: l_api_version_number
1840: ,p_api_version_number
1841: ,l_api_name
1842: ,G_PKG_NAME
1841: ,l_api_name
1842: ,G_PKG_NAME
1843: )
1844: THEN
1845: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1846: END IF;
1847:
1848: -- Debug Message
1849: IF (PV_DEBUG_HIGH_ON) THEN
1852: END IF;
1853:
1854:
1855: -- Initialize API return status to SUCCESS
1856: x_return_status := FND_API.G_RET_STS_SUCCESS;
1857: -- Initialize local authorization to successful as well as authorization and skip to No
1858: l_is_authorized := 'Y';
1859: x_is_authorized := 'N';
1860: l_skip_auth := 'N';
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
1872: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_ID');
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
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
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
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;
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;
1887: --dgottlie: set local collection of enrollment info to deal with trxn extension ids
1896: x_enrl_info(i).object_version_number := p_order_header_id(i).object_version_number;
1897: END LOOP;
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;
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
1907: PVX_UTILITY_PVT.debug_message('In ' || l_api_name || ' Payment Type : ' || p_payment_method_rec.payment_type_code );
1910:
1911:
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;
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
1921: /* R12 Changes
1926: */
1927: IBY_FNDCPT_SETUP_PUB.get_payment_channel_attribs
1928: (
1929: p_api_version => p_api_version_number,
1930: p_init_msg_list => FND_API.G_FALSE,
1931: x_return_status => x_return_status,
1932: x_msg_count => x_msg_count,
1933: x_msg_data => x_msg_data,
1934: p_channel_code => 'CREDIT_CARD',
1935: x_channel_attrib_uses => l_payment_attribs,
1936: x_response => lx_response
1937: );
1938:
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;
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;
1948: END IF;
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;
1948: END IF;
1949:
1950:
1961:
1962:
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;
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:
1972: IF (p_enrollment_flow IS NULL or (p_enrollment_flow not in ('Y' , 'N'))) THEN
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
1980:
1983: PVX_UTILITY_PVT.debug_message('In ' || l_api_name || ' Entered the instr_assignment_id is NULL block');
1984: END IF;
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;
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
1994: FND_MESSAGE.set_name('PV', 'PV_API_NO_CC_NUMBER');
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
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;
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
2000: FND_MESSAGE.set_name('PV', 'PV_API_NO_CC_TYPE');
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
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;
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 */
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
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 */
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;
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
2014: FND_MESSAGE.set_name('PV', 'PV_API_NO_CC_EXP_DATE');
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
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;
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
2021: -- Debug Message
2023: PVX_UTILITY_PVT.debug_message('In ' || l_api_name || ' Billing Address : ' || l_payment_attribs.Instr_Billing_Address);
2024: END IF;
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;
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
2034: PVX_UTILITY_PVT.debug_message('In ' || l_api_name || ' party site id = ' || p_payment_method_rec.cc_stmt_party_site_id);
2077: 'PV');
2078: END IF;
2079:
2080: HZ_PARTY_SITE_V2PUB.create_party_site (
2081: p_init_msg_list => FND_API.G_FALSE,
2082: p_party_site_rec => l_party_site_rec,
2083: x_party_site_id => l_party_site_id,
2084: x_party_site_number => l_party_site_number,
2085: x_return_status => x_return_status,
2084: x_party_site_number => l_party_site_number,
2085: x_return_status => x_return_status,
2086: x_msg_count => x_msg_count,
2087: x_msg_data => x_msg_data );
2088: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2089: RAISE FND_API.G_EXC_ERROR;
2090: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2092: END IF;
2085: x_return_status => x_return_status,
2086: x_msg_count => x_msg_count,
2087: x_msg_data => x_msg_data );
2088: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2089: RAISE FND_API.G_EXC_ERROR;
2090: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2092: END IF;
2093:
2086: x_msg_count => x_msg_count,
2087: x_msg_data => x_msg_data );
2088: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2089: RAISE FND_API.G_EXC_ERROR;
2090: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2092: END IF;
2093:
2094: IF (PV_DEBUG_HIGH_ON) THEN
2087: x_msg_data => x_msg_data );
2088: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2089: RAISE FND_API.G_EXC_ERROR;
2090: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2092: END IF;
2093:
2094: IF (PV_DEBUG_HIGH_ON) THEN
2095: PVX_UTILITY_PVT.debug_message('In ' || l_api_name || ' After HZ_PARTY_SITE_V2PUB.create_party_site l_party_site_id = ' || l_party_site_id);
2143:
2144: IBY_FNDCPT_SETUP_PUB.process_credit_card
2145: (
2146: p_api_version => 1.0,
2147: p_init_msg_list => FND_API.G_FALSE,
2148: p_commit => FND_API.G_FALSE,
2149: x_return_status => x_return_status,
2150: x_msg_count => x_msg_count,
2151: x_msg_data => x_msg_data,
2144: IBY_FNDCPT_SETUP_PUB.process_credit_card
2145: (
2146: p_api_version => 1.0,
2147: p_init_msg_list => FND_API.G_FALSE,
2148: p_commit => FND_API.G_FALSE,
2149: x_return_status => x_return_status,
2150: x_msg_count => x_msg_count,
2151: x_msg_data => x_msg_data,
2152: p_payer => l_payer,
2164: END IF;
2165:
2166:
2167:
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;
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;
2177: END IF;
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;
2177: END IF;
2178:
2179: -- Debug Message
2215:
2216: IBY_FNDCPT_TRXN_PUB.Delete_Transaction_Extension
2217: (
2218: p_api_version => 1.0,
2219: p_init_msg_list => FND_API.G_FALSE,
2220: p_commit => FND_API.G_FALSE,
2221: x_return_status => x_return_status,
2222: x_msg_count => x_msg_count,
2223: x_msg_data => x_msg_data,
2216: IBY_FNDCPT_TRXN_PUB.Delete_Transaction_Extension
2217: (
2218: p_api_version => 1.0,
2219: p_init_msg_list => FND_API.G_FALSE,
2220: p_commit => FND_API.G_FALSE,
2221: x_return_status => x_return_status,
2222: x_msg_count => x_msg_count,
2223: x_msg_data => x_msg_data,
2224: p_payer => l_payer,
2232: PVX_UTILITY_PVT.debug_message('In ' || l_api_name || ' x_msg_count from IBY_FNDCPT_TRXN_PUB.Delete_Transaction_Extension : ' || x_msg_count);
2233: PVX_UTILITY_PVT.debug_message('In ' || l_api_name || ' x_msg_data from IBY_FNDCPT_TRXN_PUB.Delete_Transaction_Extension : ' || x_msg_data);
2234: END IF;
2235:
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;
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;
2245: END IF;
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;
2245: END IF;
2246:
2247: x_enrl_info(x.header_id).trxn_extension_id := null;
2300:
2301: IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension
2302: (
2303: p_api_version => 1.0,
2304: p_init_msg_list => FND_API.G_FALSE,
2305: p_commit => FND_API.G_FALSE,
2306: x_return_status => x_return_status,
2307: x_msg_count => x_msg_count,
2308: x_msg_data => x_msg_data,
2301: IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension
2302: (
2303: p_api_version => 1.0,
2304: p_init_msg_list => FND_API.G_FALSE,
2305: p_commit => FND_API.G_FALSE,
2306: x_return_status => x_return_status,
2307: x_msg_count => x_msg_count,
2308: x_msg_data => x_msg_data,
2309: p_payer => l_payer,
2320: PVX_UTILITY_PVT.debug_message('In ' || l_api_name || ' x_msg_count from IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension : ' || x_msg_count);
2321: PVX_UTILITY_PVT.debug_message('In ' || l_api_name || ' x_msg_data from IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension : ' || x_msg_data);
2322: END IF;
2323:
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;
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;
2333: END IF;
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;
2333: END IF;
2334:
2335: x_enrl_info(x.header_id).trxn_extension_id := lx_trxn_extension_id;
2369:
2370: IBY_FNDCPT_TRXN_PUB.Update_Transaction_Extension
2371: (
2372: p_api_version => 1.0,
2373: p_init_msg_list => FND_API.G_FALSE,
2374: p_commit => FND_API.G_FALSE,
2375: x_return_status => x_return_status,
2376: x_msg_count => x_msg_count,
2377: x_msg_data => x_msg_data,
2370: IBY_FNDCPT_TRXN_PUB.Update_Transaction_Extension
2371: (
2372: p_api_version => 1.0,
2373: p_init_msg_list => FND_API.G_FALSE,
2374: p_commit => FND_API.G_FALSE,
2375: x_return_status => x_return_status,
2376: x_msg_count => x_msg_count,
2377: x_msg_data => x_msg_data,
2378: p_payer => l_payer,
2389: PVX_UTILITY_PVT.debug_message('In ' || l_api_name || ' x_msg_count from IBY_FNDCPT_TRXN_PUB.Update_Transaction_Extension : ' || x_msg_count);
2390: PVX_UTILITY_PVT.debug_message('In ' || l_api_name || ' x_msg_data from IBY_FNDCPT_TRXN_PUB.Update_Transaction_Extension : ' || x_msg_data);
2391: END IF;
2392:
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;
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;
2402: END IF;
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;
2402: END IF;
2403:
2404: -- Debug Message
2460: * Even if Authorization is unsuccessful, we do not throw an expection.
2461: * We still need to update the enrollment with the transaction extension
2462: */
2463:
2464: IF ((x_Return_Status <> FND_API.G_RET_STS_SUCCESS) OR (lx_response.Result_Code <> 'AUTH_SUCCESS')) THEN
2465: l_is_authorized := 'N';
2466: l_skip_auth := 'Y'; -- already failure, don't need to do anything relating to authorization
2467: END IF;
2468:
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: );
2498:
2495: p_count => x_msg_count,
2496: p_data => x_msg_data
2497: );
2498:
2499: IF FND_API.to_Boolean( p_commit ) THEN
2500: COMMIT WORK;
2501: END IF;
2502:
2503:
2501: END IF;
2502:
2503:
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
2503:
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
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: );
2513:
2511: ,p_data => x_msg_data
2512: );
2513:
2514:
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 (
2513:
2514:
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
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:
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 (
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: );
2536:
2537: End set_payment_info;
2538:
2539: PROCEDURE set_enrq_payment_info(
2540: p_api_version_number IN NUMBER
2541: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2542: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2543: ,p_contact_party_id IN NUMBER
2544: ,p_payment_method_rec IN Payment_method_Rec_type
2545: ,P_enrl_req_id IN Payment_info_Tbl_type
2538:
2539: PROCEDURE set_enrq_payment_info(
2540: p_api_version_number IN NUMBER
2541: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2542: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2543: ,p_contact_party_id IN NUMBER
2544: ,p_payment_method_rec IN Payment_method_Rec_type
2545: ,P_enrl_req_id IN Payment_info_Tbl_type
2546: ,x_return_status OUT NOCOPY VARCHAR2
2611: BEGIN
2612:
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:
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 (
2622: l_api_version_number
2623: ,p_api_version_number
2624: ,l_api_name
2625: ,G_PKG_NAME
2624: ,l_api_name
2625: ,G_PKG_NAME
2626: )
2627: THEN
2628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2629: END IF;
2630:
2631: -- Debug Message
2632: IF (PV_DEBUG_HIGH_ON) THEN
2635: END IF;
2636:
2637:
2638: -- Initialize API return status to SUCCESS
2639: x_return_status := FND_API.G_RET_STS_SUCCESS;
2640: -------------End Of Initialize -------------------------------
2641:
2642:
2643: IF FND_GLOBAL.User_Id IS NULL THEN
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:
2650: IF p_enrl_req_id.count() = 0 THEN
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:
2658:
2656:
2657:
2658:
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;
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;
2668: END LOOP;
2683: END IF;
2684:
2685: set_payment_info(
2686: p_api_version_number => p_api_version_number
2687: ,p_init_msg_list => FND_API.g_false
2688: ,p_commit => FND_API.G_FALSE
2689: ,p_contact_party_id => p_contact_party_id
2690: ,p_payment_method_rec => p_payment_method_rec
2691: ,p_order_header_id => l_order_header_id_tbl
2684:
2685: set_payment_info(
2686: p_api_version_number => p_api_version_number
2687: ,p_init_msg_list => FND_API.g_false
2688: ,p_commit => FND_API.G_FALSE
2689: ,p_contact_party_id => p_contact_party_id
2690: ,p_payment_method_rec => p_payment_method_rec
2691: ,p_order_header_id => l_order_header_id_tbl
2692: ,p_enrollment_flow => 'Y'
2725:
2726: PV_Pg_Enrl_Requests_PVT.Update_Pg_Enrl_Requests
2727: (
2728: p_api_version_number => p_api_version_number,
2729: p_init_msg_list => Fnd_Api.G_FALSE,
2730: p_commit => Fnd_Api.G_TRUE, -- we will always commit the new trxn extensions generated
2731: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2732: x_return_status => x_return_status,
2733: x_msg_count => x_msg_count,
2726: PV_Pg_Enrl_Requests_PVT.Update_Pg_Enrl_Requests
2727: (
2728: p_api_version_number => p_api_version_number,
2729: p_init_msg_list => Fnd_Api.G_FALSE,
2730: p_commit => Fnd_Api.G_TRUE, -- we will always commit the new trxn extensions generated
2731: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2732: x_return_status => x_return_status,
2733: x_msg_count => x_msg_count,
2734: x_msg_data => x_msg_data,
2727: (
2728: p_api_version_number => p_api_version_number,
2729: p_init_msg_list => Fnd_Api.G_FALSE,
2730: p_commit => Fnd_Api.G_TRUE, -- we will always commit the new trxn extensions generated
2731: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2732: x_return_status => x_return_status,
2733: x_msg_count => x_msg_count,
2734: x_msg_data => x_msg_data,
2735: p_enrl_request_rec => l_enrl_req_rec
2738: IF (PV_DEBUG_HIGH_ON) THEN
2739: PVX_UTILITY_PVT.debug_message('API: ' || l_api_name|| 'After populating trxn_extension_id in pv_pg_enrl_request x_return_status ' || x_return_status);
2740: END IF;
2741:
2742: IF x_return_status = FND_API.g_ret_sts_error THEN
2743: RAISE FND_API.g_exc_error;
2744: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2745: RAISE FND_API.g_exc_unexpected_error;
2746: END IF;
2739: PVX_UTILITY_PVT.debug_message('API: ' || l_api_name|| 'After populating trxn_extension_id in pv_pg_enrl_request x_return_status ' || x_return_status);
2740: END IF;
2741:
2742: IF x_return_status = FND_API.g_ret_sts_error THEN
2743: RAISE FND_API.g_exc_error;
2744: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2745: RAISE FND_API.g_exc_unexpected_error;
2746: END IF;
2747:
2740: END IF;
2741:
2742: IF x_return_status = FND_API.g_ret_sts_error THEN
2743: RAISE FND_API.g_exc_error;
2744: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2745: RAISE FND_API.g_exc_unexpected_error;
2746: END IF;
2747:
2748: END LOOP;
2741:
2742: IF x_return_status = FND_API.g_ret_sts_error THEN
2743: RAISE FND_API.g_exc_error;
2744: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2745: RAISE FND_API.g_exc_unexpected_error;
2746: END IF;
2747:
2748: END LOOP;
2749:
2752:
2753: -- dgottlie: If one of the authorization failed, print error message and throw exception
2754: -- This needed to be done after enrollment requests table updated but before OM order processed
2755: IF ((p_payment_method_rec.payment_type_code = 'CREDIT_CARD') and (x_is_authorized = 'N')) THEN
2756: RAISE FND_API.G_EXC_ERROR;
2757: END IF;
2758:
2759:
2760:
2802: END IF;
2803:
2804: OE_ORDER_GRP.process_order(
2805: p_api_version_number => l_api_version_number,
2806: p_init_msg_list => FND_API.g_false ,
2807: p_return_values => FND_API.g_true ,
2808: p_commit => FND_API.g_false ,
2809: x_return_status => x_return_status,
2810: x_msg_count => x_msg_count,
2803:
2804: OE_ORDER_GRP.process_order(
2805: p_api_version_number => l_api_version_number,
2806: p_init_msg_list => FND_API.g_false ,
2807: p_return_values => FND_API.g_true ,
2808: p_commit => FND_API.g_false ,
2809: x_return_status => x_return_status,
2810: x_msg_count => x_msg_count,
2811: x_msg_data => x_msg_data,
2804: OE_ORDER_GRP.process_order(
2805: p_api_version_number => l_api_version_number,
2806: p_init_msg_list => FND_API.g_false ,
2807: p_return_values => FND_API.g_true ,
2808: p_commit => FND_API.g_false ,
2809: x_return_status => x_return_status,
2810: x_msg_count => x_msg_count,
2811: x_msg_data => x_msg_data,
2812: p_header_rec => l_header_rec,
2843: END IF;
2844:
2845: Retrieve_OE_Messages;
2846:
2847: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2848: RAISE FND_API.g_exc_error;
2849: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2850: RAISE FND_API.g_exc_unexpected_error;
2851: ELSIF (x_return_status = FND_API.g_ret_sts_success) THEN
2844:
2845: Retrieve_OE_Messages;
2846:
2847: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2848: RAISE FND_API.g_exc_error;
2849: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2850: RAISE FND_API.g_exc_unexpected_error;
2851: ELSIF (x_return_status = FND_API.g_ret_sts_success) THEN
2852: for i in 1..l_header_payment_out_tbl.count loop
2845: Retrieve_OE_Messages;
2846:
2847: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2848: RAISE FND_API.g_exc_error;
2849: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2850: RAISE FND_API.g_exc_unexpected_error;
2851: ELSIF (x_return_status = FND_API.g_ret_sts_success) THEN
2852: for i in 1..l_header_payment_out_tbl.count loop
2853: IF (l_header_payment_out_tbl(i).return_status = FND_API.g_ret_sts_error) THEN
2846:
2847: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2848: RAISE FND_API.g_exc_error;
2849: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2850: RAISE FND_API.g_exc_unexpected_error;
2851: ELSIF (x_return_status = FND_API.g_ret_sts_success) THEN
2852: for i in 1..l_header_payment_out_tbl.count loop
2853: IF (l_header_payment_out_tbl(i).return_status = FND_API.g_ret_sts_error) THEN
2854: RAISE FND_API.g_exc_error;
2847: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2848: RAISE FND_API.g_exc_error;
2849: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2850: RAISE FND_API.g_exc_unexpected_error;
2851: ELSIF (x_return_status = FND_API.g_ret_sts_success) THEN
2852: for i in 1..l_header_payment_out_tbl.count loop
2853: IF (l_header_payment_out_tbl(i).return_status = FND_API.g_ret_sts_error) THEN
2854: RAISE FND_API.g_exc_error;
2855: ELSIF (l_header_payment_out_tbl(i).return_status = FND_API.g_ret_sts_unexp_error) THEN
2849: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2850: RAISE FND_API.g_exc_unexpected_error;
2851: ELSIF (x_return_status = FND_API.g_ret_sts_success) THEN
2852: for i in 1..l_header_payment_out_tbl.count loop
2853: IF (l_header_payment_out_tbl(i).return_status = FND_API.g_ret_sts_error) THEN
2854: RAISE FND_API.g_exc_error;
2855: ELSIF (l_header_payment_out_tbl(i).return_status = FND_API.g_ret_sts_unexp_error) THEN
2856: RAISE FND_API.g_exc_unexpected_error;
2857: END IF;
2850: RAISE FND_API.g_exc_unexpected_error;
2851: ELSIF (x_return_status = FND_API.g_ret_sts_success) THEN
2852: for i in 1..l_header_payment_out_tbl.count loop
2853: IF (l_header_payment_out_tbl(i).return_status = FND_API.g_ret_sts_error) THEN
2854: RAISE FND_API.g_exc_error;
2855: ELSIF (l_header_payment_out_tbl(i).return_status = FND_API.g_ret_sts_unexp_error) THEN
2856: RAISE FND_API.g_exc_unexpected_error;
2857: END IF;
2858: end loop;
2851: ELSIF (x_return_status = FND_API.g_ret_sts_success) THEN
2852: for i in 1..l_header_payment_out_tbl.count loop
2853: IF (l_header_payment_out_tbl(i).return_status = FND_API.g_ret_sts_error) THEN
2854: RAISE FND_API.g_exc_error;
2855: ELSIF (l_header_payment_out_tbl(i).return_status = FND_API.g_ret_sts_unexp_error) THEN
2856: RAISE FND_API.g_exc_unexpected_error;
2857: END IF;
2858: end loop;
2859: END IF;
2852: for i in 1..l_header_payment_out_tbl.count loop
2853: IF (l_header_payment_out_tbl(i).return_status = FND_API.g_ret_sts_error) THEN
2854: RAISE FND_API.g_exc_error;
2855: ELSIF (l_header_payment_out_tbl(i).return_status = FND_API.g_ret_sts_unexp_error) THEN
2856: RAISE FND_API.g_exc_unexpected_error;
2857: END IF;
2858: end loop;
2859: END IF;
2860:
2882:
2883: PV_Pg_Enrl_Requests_PVT.Update_Pg_Enrl_Requests
2884: (
2885: p_api_version_number => p_api_version_number,
2886: p_init_msg_list => Fnd_Api.G_FALSE,
2887: p_commit => Fnd_Api.G_FALSE,
2888: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2889: x_return_status => x_return_status,
2890: x_msg_count => x_msg_count,
2883: PV_Pg_Enrl_Requests_PVT.Update_Pg_Enrl_Requests
2884: (
2885: p_api_version_number => p_api_version_number,
2886: p_init_msg_list => Fnd_Api.G_FALSE,
2887: p_commit => Fnd_Api.G_FALSE,
2888: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2889: x_return_status => x_return_status,
2890: x_msg_count => x_msg_count,
2891: x_msg_data => x_msg_data,
2884: (
2885: p_api_version_number => p_api_version_number,
2886: p_init_msg_list => Fnd_Api.G_FALSE,
2887: p_commit => Fnd_Api.G_FALSE,
2888: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2889: x_return_status => x_return_status,
2890: x_msg_count => x_msg_count,
2891: x_msg_data => x_msg_data,
2892: p_enrl_request_rec => l_enrl_req_rec
2895: IF (PV_DEBUG_HIGH_ON) THEN
2896: PVX_UTILITY_PVT.debug_message('API: ' || l_api_name|| 'After updating payment status to AUTHORIZED in pv_pg_enrl_request x_return_status ' || x_return_status);
2897: END IF;
2898:
2899: IF x_return_status = FND_API.g_ret_sts_error THEN
2900: RAISE FND_API.g_exc_error;
2901: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2902: RAISE FND_API.g_exc_unexpected_error;
2903: END IF;
2896: PVX_UTILITY_PVT.debug_message('API: ' || l_api_name|| 'After updating payment status to AUTHORIZED in pv_pg_enrl_request x_return_status ' || x_return_status);
2897: END IF;
2898:
2899: IF x_return_status = FND_API.g_ret_sts_error THEN
2900: RAISE FND_API.g_exc_error;
2901: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2902: RAISE FND_API.g_exc_unexpected_error;
2903: END IF;
2904:
2897: END IF;
2898:
2899: IF x_return_status = FND_API.g_ret_sts_error THEN
2900: RAISE FND_API.g_exc_error;
2901: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2902: RAISE FND_API.g_exc_unexpected_error;
2903: END IF;
2904:
2905:
2898:
2899: IF x_return_status = FND_API.g_ret_sts_error THEN
2900: RAISE FND_API.g_exc_error;
2901: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2902: RAISE FND_API.g_exc_unexpected_error;
2903: END IF;
2904:
2905:
2906: IF (p_payment_method_rec.payment_type_code = 'CREDIT_CARD') THEN
2923: IF (PV_DEBUG_HIGH_ON) THEN
2924: PVX_UTILITY_PVT.debug_message('API: ' || l_api_name|| ' After create history log : x_return_status ' || x_return_status);
2925: END IF;
2926:
2927: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2928: RAISE FND_API.g_exc_error;
2929: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2930: RAISE FND_API.g_exc_unexpected_error;
2931: END IF;
2924: PVX_UTILITY_PVT.debug_message('API: ' || l_api_name|| ' After create history log : x_return_status ' || x_return_status);
2925: END IF;
2926:
2927: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2928: RAISE FND_API.g_exc_error;
2929: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2930: RAISE FND_API.g_exc_unexpected_error;
2931: END IF;
2932: END IF;
2925: END IF;
2926:
2927: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2928: RAISE FND_API.g_exc_error;
2929: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2930: RAISE FND_API.g_exc_unexpected_error;
2931: END IF;
2932: END IF;
2933: END IF;
2926:
2927: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2928: RAISE FND_API.g_exc_error;
2929: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2930: RAISE FND_API.g_exc_unexpected_error;
2931: END IF;
2932: END IF;
2933: END IF;
2934:
2972: IF (PV_DEBUG_HIGH_ON) THEN
2973: PVX_UTILITY_PVT.debug_message('API: ' || l_api_name|| ' After create history log : x_return_status ' || x_return_status);
2974: END IF;
2975:
2976: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2977: RAISE FND_API.g_exc_error;
2978: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2979: RAISE FND_API.g_exc_unexpected_error;
2980: END IF;
2973: PVX_UTILITY_PVT.debug_message('API: ' || l_api_name|| ' After create history log : x_return_status ' || x_return_status);
2974: END IF;
2975:
2976: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2977: RAISE FND_API.g_exc_error;
2978: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2979: RAISE FND_API.g_exc_unexpected_error;
2980: END IF;
2981: END IF;
2974: END IF;
2975:
2976: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2977: RAISE FND_API.g_exc_error;
2978: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2979: RAISE FND_API.g_exc_unexpected_error;
2980: END IF;
2981: END IF;
2982:
2975:
2976: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2977: RAISE FND_API.g_exc_error;
2978: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2979: RAISE FND_API.g_exc_unexpected_error;
2980: END IF;
2981: END IF;
2982:
2983: END LOOP;
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: );
2995:
2992: p_count => x_msg_count,
2993: p_data => x_msg_data
2994: );
2995:
2996: IF FND_API.to_Boolean( p_commit ) THEN
2997: COMMIT WORK;
2998: END IF;
2999:
3000:
2998: END IF;
2999:
3000:
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
3000:
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
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: );
3010:
3007: ,p_count => x_msg_count
3008: ,p_data => x_msg_data
3009: );
3010:
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 (
3009: );
3010:
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
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:
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 (
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: );
3032:
3033: END set_enrq_payment_info;
3034:
3035: PROCEDURE set_vad_payment_info(
3036: p_api_version_number IN NUMBER
3037: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3038: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3039: ,p_contact_party_id IN NUMBER
3040: ,p_payment_method_rec IN Payment_method_Rec_type
3041: ,P_order_header_id IN Payment_info_Tbl_type
3034:
3035: PROCEDURE set_vad_payment_info(
3036: p_api_version_number IN NUMBER
3037: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3038: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3039: ,p_contact_party_id IN NUMBER
3040: ,p_payment_method_rec IN Payment_method_Rec_type
3041: ,P_order_header_id IN Payment_info_Tbl_type
3042: ,x_return_status OUT NOCOPY VARCHAR2
3097: BEGIN
3098:
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:
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 (
3108: l_api_version_number
3109: ,p_api_version_number
3110: ,l_api_name
3111: ,G_PKG_NAME
3110: ,l_api_name
3111: ,G_PKG_NAME
3112: )
3113: THEN
3114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3115: END IF;
3116:
3117: -- Debug Message
3118: IF (PV_DEBUG_HIGH_ON) THEN
3120: END IF;
3121:
3122:
3123: -- Initialize API return status to SUCCESS
3124: x_return_status := FND_API.G_RET_STS_SUCCESS;
3125: -------------End Of Initialize -------------------------------
3126:
3127:
3128: IF FND_GLOBAL.User_Id IS NULL THEN
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
3135: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_ID');
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
3142: (p_order_header_id(p_order_header_id.FIRST).invite_header_id = FND_API.G_MISS_NUM)) THEN
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
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;
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
3150: l_order_header_id_tbl(x.order_header_id).order_header_id := x.order_header_id;
3156:
3157: IF(l_order_header_id_tbl.count >0) THEN
3158: set_payment_info(
3159: p_api_version_number => p_api_version_number
3160: ,p_init_msg_list => FND_API.g_false
3161: ,p_commit => FND_API.G_FALSE
3162: ,p_contact_party_id => p_contact_party_id
3163: ,p_payment_method_rec => p_payment_method_rec
3164: ,p_order_header_id => l_order_header_id_tbl
3157: IF(l_order_header_id_tbl.count >0) THEN
3158: set_payment_info(
3159: p_api_version_number => p_api_version_number
3160: ,p_init_msg_list => FND_API.g_false
3161: ,p_commit => FND_API.G_FALSE
3162: ,p_contact_party_id => p_contact_party_id
3163: ,p_payment_method_rec => p_payment_method_rec
3164: ,p_order_header_id => l_order_header_id_tbl
3165: ,p_enrollment_flow => 'N'
3170: ,x_enrl_info => lx_enrl_info
3171: );
3172: END IF;
3173:
3174: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3176: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
3177: RAISE FND_API.G_EXC_ERROR;
3178: END IF;
3171: );
3172: END IF;
3173:
3174: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3176: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
3177: RAISE FND_API.G_EXC_ERROR;
3178: END IF;
3179:
3172: END IF;
3173:
3174: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3176: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
3177: RAISE FND_API.G_EXC_ERROR;
3178: END IF;
3179:
3180: for i in lx_enrl_info.FIRST..lx_enrl_info.LAST loop
3173:
3174: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3176: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
3177: RAISE FND_API.G_EXC_ERROR;
3178: END IF;
3179:
3180: for i in lx_enrl_info.FIRST..lx_enrl_info.LAST loop
3181:
3185:
3186: PV_Pg_Invite_Headers_PVT.Update_Invite_Headers
3187: (
3188: p_api_version_number => p_api_version_number,
3189: p_init_msg_list => Fnd_Api.G_FALSE,
3190: p_commit => Fnd_Api.G_FALSE,
3191: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3192: x_return_status => x_return_status,
3193: x_msg_count => x_msg_count,
3186: PV_Pg_Invite_Headers_PVT.Update_Invite_Headers
3187: (
3188: p_api_version_number => p_api_version_number,
3189: p_init_msg_list => Fnd_Api.G_FALSE,
3190: p_commit => Fnd_Api.G_FALSE,
3191: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3192: x_return_status => x_return_status,
3193: x_msg_count => x_msg_count,
3194: x_msg_data => x_msg_data,
3187: (
3188: p_api_version_number => p_api_version_number,
3189: p_init_msg_list => Fnd_Api.G_FALSE,
3190: p_commit => Fnd_Api.G_FALSE,
3191: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3192: x_return_status => x_return_status,
3193: x_msg_count => x_msg_count,
3194: x_msg_data => x_msg_data,
3195: p_invite_headers_rec => l_invite_header_rec
3194: x_msg_data => x_msg_data,
3195: p_invite_headers_rec => l_invite_header_rec
3196: );
3197:
3198: IF x_return_status = FND_API.g_ret_sts_error THEN
3199: RAISE FND_API.g_exc_error;
3200: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3201: RAISE FND_API.g_exc_unexpected_error;
3202: END IF;
3195: p_invite_headers_rec => l_invite_header_rec
3196: );
3197:
3198: IF x_return_status = FND_API.g_ret_sts_error THEN
3199: RAISE FND_API.g_exc_error;
3200: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3201: RAISE FND_API.g_exc_unexpected_error;
3202: END IF;
3203:
3196: );
3197:
3198: IF x_return_status = FND_API.g_ret_sts_error THEN
3199: RAISE FND_API.g_exc_error;
3200: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3201: RAISE FND_API.g_exc_unexpected_error;
3202: END IF;
3203:
3204: END LOOP;
3197:
3198: IF x_return_status = FND_API.g_ret_sts_error THEN
3199: RAISE FND_API.g_exc_error;
3200: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3201: RAISE FND_API.g_exc_unexpected_error;
3202: END IF;
3203:
3204: END LOOP;
3205:
3243: END IF;
3244:
3245: OE_ORDER_GRP.process_order(
3246: p_api_version_number => l_api_version_number,
3247: p_init_msg_list => FND_API.g_false ,
3248: p_return_values => FND_API.g_true ,
3249: p_commit => FND_API.g_false ,
3250: x_return_status => x_return_status,
3251: x_msg_count => x_msg_count,
3244:
3245: OE_ORDER_GRP.process_order(
3246: p_api_version_number => l_api_version_number,
3247: p_init_msg_list => FND_API.g_false ,
3248: p_return_values => FND_API.g_true ,
3249: p_commit => FND_API.g_false ,
3250: x_return_status => x_return_status,
3251: x_msg_count => x_msg_count,
3252: x_msg_data => x_msg_data,
3245: OE_ORDER_GRP.process_order(
3246: p_api_version_number => l_api_version_number,
3247: p_init_msg_list => FND_API.g_false ,
3248: p_return_values => FND_API.g_true ,
3249: p_commit => FND_API.g_false ,
3250: x_return_status => x_return_status,
3251: x_msg_count => x_msg_count,
3252: x_msg_data => x_msg_data,
3253: p_header_rec => l_header_rec,
3280: );
3281:
3282: Retrieve_OE_Messages;
3283:
3284: IF (x_return_status = FND_API.g_ret_sts_error) THEN
3285: RAISE FND_API.g_exc_error;
3286: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
3287: RAISE FND_API.g_exc_unexpected_error;
3288: ELSIF (x_return_status = FND_API.g_ret_sts_success) THEN
3281:
3282: Retrieve_OE_Messages;
3283:
3284: IF (x_return_status = FND_API.g_ret_sts_error) THEN
3285: RAISE FND_API.g_exc_error;
3286: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
3287: RAISE FND_API.g_exc_unexpected_error;
3288: ELSIF (x_return_status = FND_API.g_ret_sts_success) THEN
3289: for i in 1..l_header_payment_out_tbl.count loop
3282: Retrieve_OE_Messages;
3283:
3284: IF (x_return_status = FND_API.g_ret_sts_error) THEN
3285: RAISE FND_API.g_exc_error;
3286: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
3287: RAISE FND_API.g_exc_unexpected_error;
3288: ELSIF (x_return_status = FND_API.g_ret_sts_success) THEN
3289: for i in 1..l_header_payment_out_tbl.count loop
3290: IF (l_header_payment_out_tbl(i).return_status = FND_API.g_ret_sts_error) THEN
3283:
3284: IF (x_return_status = FND_API.g_ret_sts_error) THEN
3285: RAISE FND_API.g_exc_error;
3286: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
3287: RAISE FND_API.g_exc_unexpected_error;
3288: ELSIF (x_return_status = FND_API.g_ret_sts_success) THEN
3289: for i in 1..l_header_payment_out_tbl.count loop
3290: IF (l_header_payment_out_tbl(i).return_status = FND_API.g_ret_sts_error) THEN
3291: RAISE FND_API.g_exc_error;
3284: IF (x_return_status = FND_API.g_ret_sts_error) THEN
3285: RAISE FND_API.g_exc_error;
3286: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
3287: RAISE FND_API.g_exc_unexpected_error;
3288: ELSIF (x_return_status = FND_API.g_ret_sts_success) THEN
3289: for i in 1..l_header_payment_out_tbl.count loop
3290: IF (l_header_payment_out_tbl(i).return_status = FND_API.g_ret_sts_error) THEN
3291: RAISE FND_API.g_exc_error;
3292: ELSIF (l_header_payment_out_tbl(i).return_status = FND_API.g_ret_sts_unexp_error) THEN
3286: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
3287: RAISE FND_API.g_exc_unexpected_error;
3288: ELSIF (x_return_status = FND_API.g_ret_sts_success) THEN
3289: for i in 1..l_header_payment_out_tbl.count loop
3290: IF (l_header_payment_out_tbl(i).return_status = FND_API.g_ret_sts_error) THEN
3291: RAISE FND_API.g_exc_error;
3292: ELSIF (l_header_payment_out_tbl(i).return_status = FND_API.g_ret_sts_unexp_error) THEN
3293: RAISE FND_API.g_exc_unexpected_error;
3294: END IF;
3287: RAISE FND_API.g_exc_unexpected_error;
3288: ELSIF (x_return_status = FND_API.g_ret_sts_success) THEN
3289: for i in 1..l_header_payment_out_tbl.count loop
3290: IF (l_header_payment_out_tbl(i).return_status = FND_API.g_ret_sts_error) THEN
3291: RAISE FND_API.g_exc_error;
3292: ELSIF (l_header_payment_out_tbl(i).return_status = FND_API.g_ret_sts_unexp_error) THEN
3293: RAISE FND_API.g_exc_unexpected_error;
3294: END IF;
3295: end loop;
3288: ELSIF (x_return_status = FND_API.g_ret_sts_success) THEN
3289: for i in 1..l_header_payment_out_tbl.count loop
3290: IF (l_header_payment_out_tbl(i).return_status = FND_API.g_ret_sts_error) THEN
3291: RAISE FND_API.g_exc_error;
3292: ELSIF (l_header_payment_out_tbl(i).return_status = FND_API.g_ret_sts_unexp_error) THEN
3293: RAISE FND_API.g_exc_unexpected_error;
3294: END IF;
3295: end loop;
3296: END IF;
3289: for i in 1..l_header_payment_out_tbl.count loop
3290: IF (l_header_payment_out_tbl(i).return_status = FND_API.g_ret_sts_error) THEN
3291: RAISE FND_API.g_exc_error;
3292: ELSIF (l_header_payment_out_tbl(i).return_status = FND_API.g_ret_sts_unexp_error) THEN
3293: RAISE FND_API.g_exc_unexpected_error;
3294: END IF;
3295: end loop;
3296: END IF;
3297:
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: );
3310:
3307: p_count => x_msg_count,
3308: p_data => x_msg_data
3309: );
3310:
3311: IF FND_API.to_Boolean( p_commit ) THEN
3312: COMMIT WORK;
3313: END IF;
3314:
3315: EXCEPTION
3312: COMMIT WORK;
3313: END IF;
3314:
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
3314:
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
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: );
3324:
3322: ,p_data => x_msg_data
3323: );
3324:
3325:
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 (
3324:
3325:
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
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:
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 (
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: );
3347: