1: PACKAGE BODY OZF_SD_REQUEST_PUB AS
2: /* $Header: ozfpsdrb.pls 120.47.12020000.2 2012/11/20 09:17:24 annsrini ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'OZF_SD_REQUEST_PUB';
5: G_FILE_NAME CONSTANT VARCHAR2(14) := 'ozfpsdrb.pls';
1: PACKAGE BODY OZF_SD_REQUEST_PUB AS
2: /* $Header: ozfpsdrb.pls 120.47.12020000.2 2012/11/20 09:17:24 annsrini ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'OZF_SD_REQUEST_PUB';
5: G_FILE_NAME CONSTANT VARCHAR2(14) := 'ozfpsdrb.pls';
6: G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
7: G_ITEM_ORG_ID NUMBER;
8: G_REQUEST_HEADER_ID NUMBER;
1228: l_item_uom VARCHAR2(30);
1229: l_status_code VARCHAR2(30);
1230: l_external_code VARCHAR2(240);
1231: l_internal_code NUMBER;
1232: l_old_product_lines OZF_SD_REQUEST_PUB.SDR_lines_rec_type;
1233: l_currency_var VARCHAR2(30) := NULL;
1234: l_UOM_chk BOOLEAN;
1235:
1236: CURSOR c_master_org_id(p_header_org_id IN NUMBER)IS
2224: l_party_id NUMBER;
2225: l_bg_party_id NUMBER;
2226: l_site_use_id NUMBER;
2227: l_cust_usage_chk NUMBER;
2228: l_old_cust_details OZF_SD_REQUEST_PUB.SDR_cust_rec_type;
2229:
2230:
2231: CURSOR c_request_customer_id(p_request_customer_id IN NUMBER,p_request_header_id IN NUMBER)IS
2232: SELECT request_customer_id
2666: ,x_request_header_id OUT NOCOPY NUMBER
2667: ,x_return_status OUT NOCOPY VARCHAR2)
2668: IS
2669:
2670: l_SDR_hdr_rec OZF_SD_REQUEST_PUB.SDR_Hdr_rec_type := p_SDR_hdr_rec;
2671: l_req_hdr_seq NUMBER;
2672: l_code_prefix VARCHAR2(3);
2673: l_request_class VARCHAR2(30):='SD_REQUEST';
2674: --l_request_source VARCHAR2(30) :='API';
3426: IS
3427: l_api_name CONSTANT VARCHAR2(30) := 'Create_sd_request';
3428: l_api_version_number CONSTANT NUMBER := 1.0;
3429:
3430: l_SDR_rec OZF_SD_REQUEST_PUB.SDR_Hdr_rec_type := p_SDR_hdr_rec;
3431: l_SDR_lines_tbl OZF_SD_REQUEST_PUB.SDR_lines_tbl_type := p_SDR_lines_tbl;
3432: l_SDR_cust_tbl OZF_SD_REQUEST_PUB.SDR_cust_tbl_type := p_SDR_cust_tbl;
3433:
3434: l_line_rec_flag VARCHAR2(1):='N';
3427: l_api_name CONSTANT VARCHAR2(30) := 'Create_sd_request';
3428: l_api_version_number CONSTANT NUMBER := 1.0;
3429:
3430: l_SDR_rec OZF_SD_REQUEST_PUB.SDR_Hdr_rec_type := p_SDR_hdr_rec;
3431: l_SDR_lines_tbl OZF_SD_REQUEST_PUB.SDR_lines_tbl_type := p_SDR_lines_tbl;
3432: l_SDR_cust_tbl OZF_SD_REQUEST_PUB.SDR_cust_tbl_type := p_SDR_cust_tbl;
3433:
3434: l_line_rec_flag VARCHAR2(1):='N';
3435: l_cust_rec_flag VARCHAR2(1):='N';
3428: l_api_version_number CONSTANT NUMBER := 1.0;
3429:
3430: l_SDR_rec OZF_SD_REQUEST_PUB.SDR_Hdr_rec_type := p_SDR_hdr_rec;
3431: l_SDR_lines_tbl OZF_SD_REQUEST_PUB.SDR_lines_tbl_type := p_SDR_lines_tbl;
3432: l_SDR_cust_tbl OZF_SD_REQUEST_PUB.SDR_cust_tbl_type := p_SDR_cust_tbl;
3433:
3434: l_line_rec_flag VARCHAR2(1):='N';
3435: l_cust_rec_flag VARCHAR2(1):='N';
3436: l_user_id NUMBER;
3862: IS
3863: l_api_name CONSTANT VARCHAR2(30) := 'Update_sd_request';
3864: l_api_version_number CONSTANT NUMBER := 1.0;
3865:
3866: l_new_sdr_hdr_rec OZF_SD_REQUEST_PUB.SDR_Hdr_rec_type := p_SDR_hdr_rec;
3867: l_old_sdr_hdr_rec OZF_SD_REQUEST_PUB.SDR_Hdr_rec_type;
3868: l_new_sdr_lines_tbl OZF_SD_REQUEST_PUB.SDR_lines_tbl_type := p_SDR_lines_tbl;
3869: l_new_sdr_cust_tbl OZF_SD_REQUEST_PUB.SDR_cust_tbl_type := p_SDR_cust_tbl;
3870:
3863: l_api_name CONSTANT VARCHAR2(30) := 'Update_sd_request';
3864: l_api_version_number CONSTANT NUMBER := 1.0;
3865:
3866: l_new_sdr_hdr_rec OZF_SD_REQUEST_PUB.SDR_Hdr_rec_type := p_SDR_hdr_rec;
3867: l_old_sdr_hdr_rec OZF_SD_REQUEST_PUB.SDR_Hdr_rec_type;
3868: l_new_sdr_lines_tbl OZF_SD_REQUEST_PUB.SDR_lines_tbl_type := p_SDR_lines_tbl;
3869: l_new_sdr_cust_tbl OZF_SD_REQUEST_PUB.SDR_cust_tbl_type := p_SDR_cust_tbl;
3870:
3871: l_internal_flag VARCHAR2(1);
3864: l_api_version_number CONSTANT NUMBER := 1.0;
3865:
3866: l_new_sdr_hdr_rec OZF_SD_REQUEST_PUB.SDR_Hdr_rec_type := p_SDR_hdr_rec;
3867: l_old_sdr_hdr_rec OZF_SD_REQUEST_PUB.SDR_Hdr_rec_type;
3868: l_new_sdr_lines_tbl OZF_SD_REQUEST_PUB.SDR_lines_tbl_type := p_SDR_lines_tbl;
3869: l_new_sdr_cust_tbl OZF_SD_REQUEST_PUB.SDR_cust_tbl_type := p_SDR_cust_tbl;
3870:
3871: l_internal_flag VARCHAR2(1);
3872: l_external_flag VARCHAR2(1);
3865:
3866: l_new_sdr_hdr_rec OZF_SD_REQUEST_PUB.SDR_Hdr_rec_type := p_SDR_hdr_rec;
3867: l_old_sdr_hdr_rec OZF_SD_REQUEST_PUB.SDR_Hdr_rec_type;
3868: l_new_sdr_lines_tbl OZF_SD_REQUEST_PUB.SDR_lines_tbl_type := p_SDR_lines_tbl;
3869: l_new_sdr_cust_tbl OZF_SD_REQUEST_PUB.SDR_cust_tbl_type := p_SDR_cust_tbl;
3870:
3871: l_internal_flag VARCHAR2(1);
3872: l_external_flag VARCHAR2(1);
3873: l_admin_flag VARCHAR2(1);
4984: IS
4985:
4986: l_api_name CONSTANT VARCHAR2(30) := 'copy_sd_request';
4987: l_api_version_number CONSTANT NUMBER := 1.0;
4988: l_sdr_source_rec OZF_SD_REQUEST_PUB.SDR_Hdr_rec_type;
4989: l_sd_access_rec OZF_APPROVAL_PVT.sd_access_rec_type;
4990: l_sdr_source_lines_tbl OZF_SD_REQUEST_PUB.SDR_lines_tbl_type;
4991: l_sdr_source_cust_tbl OZF_SD_REQUEST_PUB.SDR_cust_tbl_type;
4992:
4986: l_api_name CONSTANT VARCHAR2(30) := 'copy_sd_request';
4987: l_api_version_number CONSTANT NUMBER := 1.0;
4988: l_sdr_source_rec OZF_SD_REQUEST_PUB.SDR_Hdr_rec_type;
4989: l_sd_access_rec OZF_APPROVAL_PVT.sd_access_rec_type;
4990: l_sdr_source_lines_tbl OZF_SD_REQUEST_PUB.SDR_lines_tbl_type;
4991: l_sdr_source_cust_tbl OZF_SD_REQUEST_PUB.SDR_cust_tbl_type;
4992:
4993: l_lookup_stat VARCHAR2(1); --To validate from lookups
4994: l_source_rid NUMBER;
4987: l_api_version_number CONSTANT NUMBER := 1.0;
4988: l_sdr_source_rec OZF_SD_REQUEST_PUB.SDR_Hdr_rec_type;
4989: l_sd_access_rec OZF_APPROVAL_PVT.sd_access_rec_type;
4990: l_sdr_source_lines_tbl OZF_SD_REQUEST_PUB.SDR_lines_tbl_type;
4991: l_sdr_source_cust_tbl OZF_SD_REQUEST_PUB.SDR_cust_tbl_type;
4992:
4993: l_lookup_stat VARCHAR2(1); --To validate from lookups
4994: l_source_rid NUMBER;
4995: l_new_req_no VARCHAR2(30);
5760: p_count => x_msg_count,
5761: p_data => x_msg_data
5762: );
5763: END copy_sd_request;
5764: END OZF_SD_REQUEST_PUB;