916:
917:
918:
919: IF l_ret_sts <> '0' THEN
920: x_ret_sts := fnd_api.g_ret_sts_error;
921: x_ret_msg := l_ret_msg;
922: m4u_dmd_utils.log('Exiting add_or_update_tp_detail - Failure',6);
923: RETURN;
924: END IF;
950: m4u_dmd_utils.log('l_ret_sts -|' || l_ret_sts || '|',1);
951: m4u_dmd_utils.log('l_ret_msg -|' || l_ret_msg || '|',1);
952:
953: IF l_ret_sts <> '0' THEN
954: x_ret_sts := fnd_api.g_ret_sts_error;
955: x_ret_msg := l_ret_msg;
956: m4u_dmd_utils.log('Exiting add_or_update_tp_detail - Failure',6);
957: RETURN;
958: END IF;
957: RETURN;
958: END IF;
959: END IF;
960: -------------------------------------------------------------------------
961: x_ret_sts := fnd_api.g_ret_sts_success;
962: x_ret_msg := '';
963:
964: m4u_dmd_utils.log('Exiting add_or_update_tp_detail - Success',2);
965: RETURN; /*success*/
964: m4u_dmd_utils.log('Exiting add_or_update_tp_detail - Success',2);
965: RETURN; /*success*/
966: EXCEPTION
967: WHEN OTHERS THEN
968: x_ret_sts := fnd_api.g_ret_sts_error;
969: x_ret_msg := l_progress || '-' || SQLCODE || '-' || SQLERRM;
970: END update_tp_detail;
971:
972: ---------------------------------------------------------------------------------------------
1121: m4u_dmd_utils.log('l_ret_msg -|'||l_ret_msg ||'|', 1);
1122: m4u_dmd_utils.log('l_ret_sts -|'||l_ret_sts ||'|', 1);
1123: IF l_ret_sts <> '0' THEN
1124: l_err_msg := l_ret_msg;
1125: RAISE FND_API.G_EXC_ERROR;
1126: END IF;
1127:
1128:
1129: ELSE
1142: m4u_dmd_utils.log('l_ret_msg -|'||l_ret_msg ||'|', 1);
1143: m4u_dmd_utils.log('l_ret_sts -|'||l_ret_sts ||'|', 1);
1144: IF l_ret_sts <> '0' THEN
1145: l_err_msg := l_ret_msg;
1146: RAISE FND_API.G_EXC_ERROR;
1147: END IF;
1148: END IF;
1149: -----------------------------------------------------------------------------
1150: --TP details
1151:
1152: --Out txn
1153: l_progress := 'Call update_tp_detail - OUT';
1154: update_tp_detail(l_tp_hdr_id,m4u_dmd_utils.c_dir_out,l_ret_sts,l_ret_msg);
1155: IF l_ret_sts <> fnd_api.g_ret_sts_success THEN
1156: l_err_msg := l_ret_msg;
1157: RAISE FND_API.G_EXC_ERROR;
1158: END IF;
1159: --In txn
1153: l_progress := 'Call update_tp_detail - OUT';
1154: update_tp_detail(l_tp_hdr_id,m4u_dmd_utils.c_dir_out,l_ret_sts,l_ret_msg);
1155: IF l_ret_sts <> fnd_api.g_ret_sts_success THEN
1156: l_err_msg := l_ret_msg;
1157: RAISE FND_API.G_EXC_ERROR;
1158: END IF;
1159: --In txn
1160: l_progress := 'Call update_tp_detail - IN';
1161: update_tp_detail(l_tp_hdr_id,m4u_dmd_utils.c_dir_in ,l_ret_sts,l_ret_msg);
1158: END IF;
1159: --In txn
1160: l_progress := 'Call update_tp_detail - IN';
1161: update_tp_detail(l_tp_hdr_id,m4u_dmd_utils.c_dir_in ,l_ret_sts,l_ret_msg);
1162: IF l_ret_sts <> fnd_api.g_ret_sts_success THEN
1163: l_err_msg := l_ret_msg;
1164: RAISE FND_API.G_EXC_ERROR;
1165: END IF;
1166: -----------------------------------------------------------------------------
1160: l_progress := 'Call update_tp_detail - IN';
1161: update_tp_detail(l_tp_hdr_id,m4u_dmd_utils.c_dir_in ,l_ret_sts,l_ret_msg);
1162: IF l_ret_sts <> fnd_api.g_ret_sts_success THEN
1163: l_err_msg := l_ret_msg;
1164: RAISE FND_API.G_EXC_ERROR;
1165: END IF;
1166: -----------------------------------------------------------------------------
1167: --Done, return success
1168: x_retcode := 0;