82: --| |
83: --==============================================================================
84: PROCEDURE Get_Beneficiary (
85: p_api_version IN NUMBER,
86: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
87: p_commit IN VARCHAR2 := FND_API.g_false,
88: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
89: p_order_header_id IN NUMBER,
90: p_order_line_id IN NUMBER,
83: --==============================================================================
84: PROCEDURE Get_Beneficiary (
85: p_api_version IN NUMBER,
86: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
87: p_commit IN VARCHAR2 := FND_API.g_false,
88: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
89: p_order_header_id IN NUMBER,
90: p_order_line_id IN NUMBER,
91: p_offer_id IN NUMBER,
84: PROCEDURE Get_Beneficiary (
85: p_api_version IN NUMBER,
86: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
87: p_commit IN VARCHAR2 := FND_API.g_false,
88: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
89: p_order_header_id IN NUMBER,
90: p_order_line_id IN NUMBER,
91: p_offer_id IN NUMBER,
92: x_beneficiary_id OUT NOCOPY NUMBER,
262: Debug('order_line_id = ' || p_order_line_id);
263: Debug('offer_id = ' || p_offer_id);
264:
265: -------------------- initialize -------------------------
266: IF FND_API.to_boolean(p_init_msg_list) THEN
267: FND_MSG_PUB.initialize;
268: END IF;
269:
270: IF NOT FND_API.compatible_api_call(
266: IF FND_API.to_boolean(p_init_msg_list) THEN
267: FND_MSG_PUB.initialize;
268: END IF;
269:
270: IF NOT FND_API.compatible_api_call(
271: l_api_version,
272: p_api_version,
273: g_api_name,
274: g_pkg_name
272: p_api_version,
273: g_api_name,
274: g_pkg_name
275: ) THEN
276: RAISE FND_API.g_exc_unexpected_error;
277: END IF;
278:
279: x_return_status := FND_API.G_RET_STS_SUCCESS;
280:
275: ) THEN
276: RAISE FND_API.g_exc_unexpected_error;
277: END IF;
278:
279: x_return_status := FND_API.G_RET_STS_SUCCESS;
280:
281:
282: ---------------------- Source code -----------------------
283:
387:
388:
389: -------------------- Exception --------------------------
390: EXCEPTION
391: WHEN FND_API.G_EXC_ERROR THEN
392: x_return_status := FND_API.G_RET_STS_ERROR;
393: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
394: p_count => x_msg_count,
395: p_data => x_msg_data);
388:
389: -------------------- Exception --------------------------
390: EXCEPTION
391: WHEN FND_API.G_EXC_ERROR THEN
392: x_return_status := FND_API.G_RET_STS_ERROR;
393: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
394: p_count => x_msg_count,
395: p_data => x_msg_data);
396:
389: -------------------- Exception --------------------------
390: EXCEPTION
391: WHEN FND_API.G_EXC_ERROR THEN
392: x_return_status := FND_API.G_RET_STS_ERROR;
393: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
394: p_count => x_msg_count,
395: p_data => x_msg_data);
396:
397: Write_Conc_Log;
395: p_data => x_msg_data);
396:
397: Write_Conc_Log;
398:
399: WHEN FND_API.g_exc_unexpected_error THEN
400: x_return_status := FND_API.g_ret_sts_unexp_error;
401: FND_MSG_PUB.count_and_get(
402: p_encoded => FND_API.g_false,
403: p_count => x_msg_count,
396:
397: Write_Conc_Log;
398:
399: WHEN FND_API.g_exc_unexpected_error THEN
400: x_return_status := FND_API.g_ret_sts_unexp_error;
401: FND_MSG_PUB.count_and_get(
402: p_encoded => FND_API.g_false,
403: p_count => x_msg_count,
404: p_data => x_msg_data
398:
399: WHEN FND_API.g_exc_unexpected_error THEN
400: x_return_status := FND_API.g_ret_sts_unexp_error;
401: FND_MSG_PUB.count_and_get(
402: p_encoded => FND_API.g_false,
403: p_count => x_msg_count,
404: p_data => x_msg_data
405: );
406:
410: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
411: FND_MSG_PUB.add_exc_msg(g_pkg_name, g_api_name);
412: END IF;
413:
414: x_return_status := FND_API.G_RET_STS_ERROR;
415: FND_MSG_PUB.count_and_get(
416: p_encoded => FND_API.g_false,
417: p_count => x_msg_count,
418: p_data => x_msg_data
412: END IF;
413:
414: x_return_status := FND_API.G_RET_STS_ERROR;
415: FND_MSG_PUB.count_and_get(
416: p_encoded => FND_API.g_false,
417: p_count => x_msg_count,
418: p_data => x_msg_data
419: );
420:
717: x_msg_count => l_msg_count,
718: x_msg_data => l_msg_data
719: );
720:
721: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
722: RAISE FND_API.G_EXC_ERROR;
723:
724: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
725: RAISE FND_API.g_exc_unexpected_error;
718: x_msg_data => l_msg_data
719: );
720:
721: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
722: RAISE FND_API.G_EXC_ERROR;
723:
724: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
725: RAISE FND_API.g_exc_unexpected_error;
726: END IF;
720:
721: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
722: RAISE FND_API.G_EXC_ERROR;
723:
724: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
725: RAISE FND_API.g_exc_unexpected_error;
726: END IF;
727:
728:
721: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
722: RAISE FND_API.G_EXC_ERROR;
723:
724: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
725: RAISE FND_API.g_exc_unexpected_error;
726: END IF;
727:
728:
729: -- -----------------------------------------------------------------
743: -- oracle.apps.pv.benefit.referral.statusChange
744: -- -------------------------------------------------
745: pv_benft_status_change.status_change_raise(
746: p_api_version_number => 1.0,
747: p_init_msg_list => FND_API.G_FALSE,
748: p_commit => FND_API.G_FALSE,
749: p_event_name => 'oracle.apps.pv.benefit.referral.statusChange',
750: p_benefit_id => x.benefit_id,
751: p_entity_id => x.referral_id,
744: -- -------------------------------------------------
745: pv_benft_status_change.status_change_raise(
746: p_api_version_number => 1.0,
747: p_init_msg_list => FND_API.G_FALSE,
748: p_commit => FND_API.G_FALSE,
749: p_event_name => 'oracle.apps.pv.benefit.referral.statusChange',
750: p_benefit_id => x.benefit_id,
751: p_entity_id => x.referral_id,
752: p_status_code => 'COMP_INITIATED',
756: x_return_status => l_return_status,
757: x_msg_count => l_msg_count,
758: x_msg_data => l_msg_data);
759:
760: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
761: raise FND_API.G_EXC_ERROR;
762: end if;
763:
764: -- -------------------------------------------------
757: x_msg_count => l_msg_count,
758: x_msg_data => l_msg_data);
759:
760: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
761: raise FND_API.G_EXC_ERROR;
762: end if;
763:
764: -- -------------------------------------------------
765: -- Log the event.
765: -- Log the event.
766: -- -------------------------------------------------
767: pv_benft_status_change.STATUS_CHANGE_LOGGING(
768: p_api_version_number => 1.0,
769: p_init_msg_list => FND_API.G_FALSE,
770: p_commit => FND_API.G_FALSE,
771: p_benefit_id => x.benefit_id,
772: P_STATUS => 'COMP_INITIATED',
773: p_entity_id => x.referral_id,
766: -- -------------------------------------------------
767: pv_benft_status_change.STATUS_CHANGE_LOGGING(
768: p_api_version_number => 1.0,
769: p_init_msg_list => FND_API.G_FALSE,
770: p_commit => FND_API.G_FALSE,
771: p_benefit_id => x.benefit_id,
772: P_STATUS => 'COMP_INITIATED',
773: p_entity_id => x.referral_id,
774: p_partner_id => x.partner_id,
776: x_msg_count => l_msg_count,
777: x_msg_data => l_msg_data
778: );
779:
780: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
781: raise FND_API.G_EXC_ERROR;
782: end if;
783:
784: -- -------------------------------------------------
777: x_msg_data => l_msg_data
778: );
779:
780: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
781: raise FND_API.G_EXC_ERROR;
782: end if;
783:
784: -- -------------------------------------------------
785: -- Commit the changes.
814:
815:
816: --------------------------- Exception ---------------------------------
817: EXCEPTION
818: WHEN FND_API.G_EXC_ERROR THEN
819: Debug('Creating claim exception ........................................');
820: l_return_status := FND_API.G_RET_STS_ERROR;
821: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
822: p_count => l_msg_count,
816: --------------------------- Exception ---------------------------------
817: EXCEPTION
818: WHEN FND_API.G_EXC_ERROR THEN
819: Debug('Creating claim exception ........................................');
820: l_return_status := FND_API.G_RET_STS_ERROR;
821: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
822: p_count => l_msg_count,
823: p_data => l_msg_data);
824:
817: EXCEPTION
818: WHEN FND_API.G_EXC_ERROR THEN
819: Debug('Creating claim exception ........................................');
820: l_return_status := FND_API.G_RET_STS_ERROR;
821: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
822: p_count => l_msg_count,
823: p_data => l_msg_data);
824:
825: Write_Conc_Log;
826:
827: g_RETCODE := '1';
828: Debug('-----------------------------------------------------------------------------');
829:
830: WHEN FND_API.g_exc_unexpected_error THEN
831: Debug('Creating claim exception ........................................');
832: l_return_status := FND_API.g_ret_sts_unexp_error;
833: FND_MSG_PUB.count_and_get(
834: p_encoded => FND_API.g_false,
828: Debug('-----------------------------------------------------------------------------');
829:
830: WHEN FND_API.g_exc_unexpected_error THEN
831: Debug('Creating claim exception ........................................');
832: l_return_status := FND_API.g_ret_sts_unexp_error;
833: FND_MSG_PUB.count_and_get(
834: p_encoded => FND_API.g_false,
835: p_count => l_msg_count,
836: p_data => l_msg_data
830: WHEN FND_API.g_exc_unexpected_error THEN
831: Debug('Creating claim exception ........................................');
832: l_return_status := FND_API.g_ret_sts_unexp_error;
833: FND_MSG_PUB.count_and_get(
834: p_encoded => FND_API.g_false,
835: p_count => l_msg_count,
836: p_data => l_msg_data
837: );
838:
846: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
847: FND_MSG_PUB.add_exc_msg(g_pkg_name, g_api_name);
848: END IF;
849:
850: l_return_status := FND_API.G_RET_STS_ERROR;
851: FND_MSG_PUB.count_and_get(
852: p_encoded => FND_API.g_false,
853: p_count => l_msg_count,
854: p_data => l_msg_data
848: END IF;
849:
850: l_return_status := FND_API.G_RET_STS_ERROR;
851: FND_MSG_PUB.count_and_get(
852: p_encoded => FND_API.g_false,
853: p_count => l_msg_count,
854: p_data => l_msg_data
855: );
856:
902: --| |
903: --==============================================================================
904: PROCEDURE Update_Referral_Status (
905: p_api_version IN NUMBER,
906: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
907: p_commit IN VARCHAR2 := FND_API.g_false,
908: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
909: p_offer_id IN NUMBER,
910: p_pass_validation_flag IN VARCHAR2,
903: --==============================================================================
904: PROCEDURE Update_Referral_Status (
905: p_api_version IN NUMBER,
906: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
907: p_commit IN VARCHAR2 := FND_API.g_false,
908: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
909: p_offer_id IN NUMBER,
910: p_pass_validation_flag IN VARCHAR2,
911: x_return_status OUT NOCOPY VARCHAR2,
904: PROCEDURE Update_Referral_Status (
905: p_api_version IN NUMBER,
906: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
907: p_commit IN VARCHAR2 := FND_API.g_false,
908: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
909: p_offer_id IN NUMBER,
910: p_pass_validation_flag IN VARCHAR2,
911: x_return_status OUT NOCOPY VARCHAR2,
912: x_msg_count OUT NOCOPY NUMBER,
919: BEGIN
920: g_api_name := 'Update_Referral_Status';
921:
922: -------------------- initialize -------------------------
923: IF FND_API.to_boolean(p_init_msg_list) THEN
924: FND_MSG_PUB.initialize;
925: END IF;
926:
927: IF NOT FND_API.compatible_api_call(
923: IF FND_API.to_boolean(p_init_msg_list) THEN
924: FND_MSG_PUB.initialize;
925: END IF;
926:
927: IF NOT FND_API.compatible_api_call(
928: l_api_version,
929: p_api_version,
930: g_api_name,
931: g_pkg_name
929: p_api_version,
930: g_api_name,
931: g_pkg_name
932: ) THEN
933: RAISE FND_API.g_exc_unexpected_error;
934: END IF;
935:
936: x_return_status := FND_API.G_RET_STS_SUCCESS;
937:
932: ) THEN
933: RAISE FND_API.g_exc_unexpected_error;
934: END IF;
935:
936: x_return_status := FND_API.G_RET_STS_SUCCESS;
937:
938:
939: ---------------------- Source code -----------------------
940: IF (UPPER(p_pass_validation_flag) NOT IN ('Y', 'N')) THEN
938:
939: ---------------------- Source code -----------------------
940: IF (UPPER(p_pass_validation_flag) NOT IN ('Y', 'N')) THEN
941: Debug('p_pass_validation_flag can only be either ''Y'' or ''N''');
942: RAISE FND_API.G_EXC_ERROR;
943: END IF;
944:
945: -- ------------------------------------------------------------
946: -- Benefit status code lookup is: pv_benefit_status.
960: WHERE additional_info_1 = p_offer_id;
961:
962: -------------------- Exception --------------------------
963: EXCEPTION
964: WHEN FND_API.G_EXC_ERROR THEN
965: x_return_status := FND_API.G_RET_STS_ERROR;
966: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
967: p_count => x_msg_count,
968: p_data => x_msg_data);
961:
962: -------------------- Exception --------------------------
963: EXCEPTION
964: WHEN FND_API.G_EXC_ERROR THEN
965: x_return_status := FND_API.G_RET_STS_ERROR;
966: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
967: p_count => x_msg_count,
968: p_data => x_msg_data);
969:
962: -------------------- Exception --------------------------
963: EXCEPTION
964: WHEN FND_API.G_EXC_ERROR THEN
965: x_return_status := FND_API.G_RET_STS_ERROR;
966: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
967: p_count => x_msg_count,
968: p_data => x_msg_data);
969:
970: WHEN FND_API.g_exc_unexpected_error THEN
966: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
967: p_count => x_msg_count,
968: p_data => x_msg_data);
969:
970: WHEN FND_API.g_exc_unexpected_error THEN
971: x_return_status := FND_API.g_ret_sts_unexp_error;
972: FND_MSG_PUB.count_and_get(
973: p_encoded => FND_API.g_false,
974: p_count => x_msg_count,
967: p_count => x_msg_count,
968: p_data => x_msg_data);
969:
970: WHEN FND_API.g_exc_unexpected_error THEN
971: x_return_status := FND_API.g_ret_sts_unexp_error;
972: FND_MSG_PUB.count_and_get(
973: p_encoded => FND_API.g_false,
974: p_count => x_msg_count,
975: p_data => x_msg_data
969:
970: WHEN FND_API.g_exc_unexpected_error THEN
971: x_return_status := FND_API.g_ret_sts_unexp_error;
972: FND_MSG_PUB.count_and_get(
973: p_encoded => FND_API.g_false,
974: p_count => x_msg_count,
975: p_data => x_msg_data
976: );
977:
979: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
980: FND_MSG_PUB.add_exc_msg(g_pkg_name, g_api_name);
981: END IF;
982:
983: x_return_status := FND_API.G_RET_STS_ERROR;
984: FND_MSG_PUB.count_and_get(
985: p_encoded => FND_API.g_false,
986: p_count => x_msg_count,
987: p_data => x_msg_data
981: END IF;
982:
983: x_return_status := FND_API.G_RET_STS_ERROR;
984: FND_MSG_PUB.count_and_get(
985: p_encoded => FND_API.g_false,
986: p_count => x_msg_count,
987: p_data => x_msg_data
988: );
989:
1062: l_count := FND_MSG_PUB.count_msg;
1063:
1064: FOR l_cnt IN 1 .. l_count
1065: LOOP
1066: l_msg := FND_MSG_PUB.get(l_cnt, FND_API.g_false);
1067: FND_FILE.PUT_LINE(FND_FILE.LOG, '(' || l_cnt || ') ' || l_msg);
1068: END LOOP;
1069: END Write_Conc_Log;
1070: -- =============================End of Write_Conc_Log===========================