36: AND sysdate BETWEEN nvl(active_start_date, sysdate - 1)
37: AND nvl(active_end_date, sysdate + 1);
38: BEGIN
39:
40: x_return_status := fnd_api.g_ret_sts_success;
41:
42: debug(' location_type_code : '||p_location_type_code);
43: debug(' location_id : '||p_location_id);
44:
64: exit;
65: END LOOP;
66:
67: IF x_fa_location_id is null then
68: RAISE fnd_api.g_exc_error;
69: END IF;
70: EXCEPTION
71: WHEN fnd_api.g_exc_error THEN
72: x_return_status := fnd_api.g_ret_sts_error;
67: IF x_fa_location_id is null then
68: RAISE fnd_api.g_exc_error;
69: END IF;
70: EXCEPTION
71: WHEN fnd_api.g_exc_error THEN
72: x_return_status := fnd_api.g_ret_sts_error;
73: END get_fa_location_id;
74:
75: PROCEDURE interface_nl_to_pa(
68: RAISE fnd_api.g_exc_error;
69: END IF;
70: EXCEPTION
71: WHEN fnd_api.g_exc_error THEN
72: x_return_status := fnd_api.g_ret_sts_error;
73: END get_fa_location_id;
74:
75: PROCEDURE interface_nl_to_pa(
76: p_in_srv_pa_attr_rec IN cse_datastructures_pub.proj_itm_insv_pa_attr_rec_type,
78: x_return_status OUT NOCOPY VARCHAR2,
79: x_error_message OUT NOCOPY VARCHAR2)
80: IS
81: l_api_name CONSTANT VARCHAR2(30) := 'cse_proj_item_in_service_pkg';
82: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
83: l_error_message VARCHAR2(2000);
84: l_msg_count NUMBER;
85: l_msg_data VARCHAR2(2000);
86: l_api_version NUMBER DEFAULT 1.0;
83: l_error_message VARCHAR2(2000);
84: l_msg_count NUMBER;
85: l_msg_data VARCHAR2(2000);
86: l_api_version NUMBER DEFAULT 1.0;
87: l_commit VARCHAR2(1) DEFAULT FND_API.G_FALSE;
88: l_init_msg_list VARCHAR2(1) DEFAULT FND_API.G_TRUE;
89: l_validation_level NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL;
90: l_active_instance_only VARCHAR2(1) DEFAULT FND_API.G_TRUE;
91: l_txn_rec csi_datastructures_pub.transaction_rec;
84: l_msg_count NUMBER;
85: l_msg_data VARCHAR2(2000);
86: l_api_version NUMBER DEFAULT 1.0;
87: l_commit VARCHAR2(1) DEFAULT FND_API.G_FALSE;
88: l_init_msg_list VARCHAR2(1) DEFAULT FND_API.G_TRUE;
89: l_validation_level NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL;
90: l_active_instance_only VARCHAR2(1) DEFAULT FND_API.G_TRUE;
91: l_txn_rec csi_datastructures_pub.transaction_rec;
92: l_asset_location_rec csi_datastructures_pub.instance_asset_location_rec;
85: l_msg_data VARCHAR2(2000);
86: l_api_version NUMBER DEFAULT 1.0;
87: l_commit VARCHAR2(1) DEFAULT FND_API.G_FALSE;
88: l_init_msg_list VARCHAR2(1) DEFAULT FND_API.G_TRUE;
89: l_validation_level NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL;
90: l_active_instance_only VARCHAR2(1) DEFAULT FND_API.G_TRUE;
91: l_txn_rec csi_datastructures_pub.transaction_rec;
92: l_asset_location_rec csi_datastructures_pub.instance_asset_location_rec;
93: l_asset_location_tbl csi_datastructures_pub.instance_asset_location_tbl;
86: l_api_version NUMBER DEFAULT 1.0;
87: l_commit VARCHAR2(1) DEFAULT FND_API.G_FALSE;
88: l_init_msg_list VARCHAR2(1) DEFAULT FND_API.G_TRUE;
89: l_validation_level NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL;
90: l_active_instance_only VARCHAR2(1) DEFAULT FND_API.G_TRUE;
91: l_txn_rec csi_datastructures_pub.transaction_rec;
92: l_asset_location_rec csi_datastructures_pub.instance_asset_location_rec;
93: l_asset_location_tbl csi_datastructures_pub.instance_asset_location_tbl;
94: l_nl_pa_interface_tbl CSE_IPA_TRANS_PKG.nl_pa_interface_tbl_type;
289: x_nl_pa_interface_rec.document_distribution_type := p_ei_rec.document_distribution_type;
290: END reversal_exp_item;
291:
292: BEGIN
293: x_return_status := FND_API.G_RET_STS_SUCCESS;
294: x_error_message := NULL;
295:
296: cse_util_pkg.set_debug;
297:
344: p_location_id => l_location_id,
345: x_fa_location_id => l_fa_location_id,
346: x_return_status => l_return_status);
347:
348: IF NOT(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
349: fnd_message.set_name('CSE','CSE_FA_CREATION_ATRIB_ERROR');
350: fnd_message.set_token('ASSET_ATTRIBUTE','LOCATION');
351: fnd_message.set_token('CSI_TRANSACTION_ID',p_in_srv_pa_attr_rec.transaction_id);
352: l_error_message := fnd_message.get;
349: fnd_message.set_name('CSE','CSE_FA_CREATION_ATRIB_ERROR');
350: fnd_message.set_token('ASSET_ATTRIBUTE','LOCATION');
351: fnd_message.set_token('CSI_TRANSACTION_ID',p_in_srv_pa_attr_rec.transaction_id);
352: l_error_message := fnd_message.get;
353: RAISE fnd_api.g_exc_error;
354: END IF;
355:
356: debug(' fa_location_id : '||l_fa_location_id);
357:
373: debug(' attribute8 : '||l_attribute8);
374: debug(' attribute9 : '||l_attribute9);
375: debug(' attribute10 : '||l_attribute10);
376:
377: IF l_return_status <> fnd_api.g_ret_sts_success THEN
378: debug('CSE_IPA_TRANS_PKG.get_grouping_attribute failed : '||l_error_message);
379: RAISE fnd_api.g_exc_error;
380: END IF;
381:
375: debug(' attribute10 : '||l_attribute10);
376:
377: IF l_return_status <> fnd_api.g_ret_sts_success THEN
378: debug('CSE_IPA_TRANS_PKG.get_grouping_attribute failed : '||l_error_message);
379: RAISE fnd_api.g_exc_error;
380: END IF;
381:
382: SELECT segment1, org_id -- Bug 6492235, changed to support multiple FA book
383: INTO l_project_number, l_ou_id -- Bug 6492235, changed to support multiple FA book
606: p_nl_pa_interface_tbl => l_nl_pa_interface_tbl,
607: x_return_status => l_return_status,
608: x_error_message => l_error_message);
609:
610: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
611: debug('error_ message : '||l_error_message);
612: RAISE fnd_api.g_exc_error;
613: END IF;
614:
608: x_error_message => l_error_message);
609:
610: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
611: debug('error_ message : '||l_error_message);
612: RAISE fnd_api.g_exc_error;
613: END IF;
614:
615: --update transaction record with new txn_status_code = 'INTERFACE_TO_PA'
616: l_txn_rec := CSE_UTIL_PKG.init_txn_rec;
633: WHEN OTHERS THEN
634: fnd_message.set_name('CSE','CSE_OTHERS_EXCEPTION');
635: fnd_message.set_token('ERR_MSG',l_api_name||'='|| SQLERRM);
636: x_error_message := fnd_message.get;
637: x_return_status := fnd_api.g_ret_sts_unexp_error;
638: debug('Inside OTHERS in interface_nl_to_pa : ' ||x_error_message);
639: END;
640: --End Changes for Bug 7354734
641:
651: x_return_status => l_return_status,
652: x_msg_count => l_msg_count,
653: x_msg_data => l_msg_data);
654:
655: IF NOT (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
656: l_error_message := cse_util_pkg.dump_error_stack ;
657: RAISE fnd_api.g_exc_error;
658: END IF;
659: END IF;
653: x_msg_data => l_msg_data);
654:
655: IF NOT (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
656: l_error_message := cse_util_pkg.dump_error_stack ;
657: RAISE fnd_api.g_exc_error;
658: END IF;
659: END IF;
660:
661: END IF; -- End l_skip_interface
659: END IF;
660:
661: END IF; -- End l_skip_interface
662: EXCEPTION
663: WHEN fnd_api.g_exc_error THEN
664: x_return_status := l_return_status;
665: x_error_message := l_error_message;
666: debug('error in interface_nl_to_pa : '||x_error_message);
667: WHEN OTHERS THEN
667: WHEN OTHERS THEN
668: fnd_message.set_name('CSE','CSE_OTHERS_EXCEPTION');
669: fnd_message.set_token('ERR_MSG',l_api_name||'='|| SQLERRM);
670: x_error_message := fnd_message.get;
671: x_return_status := fnd_api.g_ret_sts_unexp_error;
672: debug('Inside OTHERS in interface_nl_to_pa : ' ||x_error_message);
673: END interface_nl_to_pa;
674:
675: PROCEDURE interface_nl_to_pa(
696: WHEN OTHERS THEN
697: fnd_message.set_name('CSE','CSE_OTHERS_EXCEPTION');
698: fnd_message.set_token('ERR_MSG','CSE_PROJ_ITEM_IN_SRV_PKG.Interface_Nl_To_PA'||'='|| SQLERRM);
699: x_error_message := fnd_message.get;
700: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
701: END interface_nl_to_pa;
702:
703: END cse_proj_item_in_srv_pkg;