16: g_RETCODE VARCHAR2(10) := '0';
17: g_module_name VARCHAR2(48);
18:
19: PV_DEBUG_HIGH_ON boolean :=
20: FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
21: PV_DEBUG_LOW_ON boolean :=
22: FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
23: PV_DEBUG_MEDIUM_ON boolean :=
24: FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
18:
19: PV_DEBUG_HIGH_ON boolean :=
20: FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
21: PV_DEBUG_LOW_ON boolean :=
22: FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
23: PV_DEBUG_MEDIUM_ON boolean :=
24: FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
25: PV_DEBUG_ERROR_ON boolean :=
26: FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_ERROR);
20: FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
21: PV_DEBUG_LOW_ON boolean :=
22: FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
23: PV_DEBUG_MEDIUM_ON boolean :=
24: FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
25: PV_DEBUG_ERROR_ON boolean :=
26: FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_ERROR);
27:
28:
22: FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
23: PV_DEBUG_MEDIUM_ON boolean :=
24: FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
25: PV_DEBUG_ERROR_ON boolean :=
26: FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_ERROR);
27:
28:
29: /*************************************************************************************/
30: /* */
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(
271: l_api_version,
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;
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
405: );
406:
407: Write_Conc_Log;
408:
409: WHEN OTHERS THEN
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;
407: Write_Conc_Log;
408:
409: WHEN OTHERS THEN
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(
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
419: );
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;
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
837: );
842: Debug('-----------------------------------------------------------------------------');
843:
844: WHEN OTHERS THEN
845: Debug('Creating claim exception ........................................');
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;
843:
844: WHEN OTHERS THEN
845: Debug('Creating claim exception ........................................');
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(
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
855: );
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(
928: l_api_version,
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
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
976: );
975: p_data => x_msg_data
976: );
977:
978: WHEN OTHERS THEN
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;
976: );
977:
978: WHEN OTHERS THEN
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(
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
988: );
1058: l_msg VARCHAR2(2000);
1059: l_cnt NUMBER ;
1060:
1061: BEGIN
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);
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===========================
1097: FND_MESSAGE.Set_Name('PV', p_msg_type);
1098: FND_MESSAGE.Set_Token(p_token_type, p_msg_string);
1099:
1100: IF (g_log_to_file = 'N') THEN
1101: FND_MSG_PUB.Add;
1102:
1103: ELSIF (g_log_to_file = 'Y') THEN
1104: FND_FILE.PUT_LINE( FND_FILE.LOG, fnd_message.get );
1105: END IF;
1163: );
1164: END IF;
1165:
1166: IF (g_log_to_file = 'N') THEN
1167: FND_MSG_PUB.Add;
1168:
1169: ELSIF (g_log_to_file = 'Y') THEN
1170: FND_FILE.PUT_LINE(FND_FILE.LOG, fnd_message.get);
1171: END IF;