72: --End of Comments
73: ------------------------------------------------------------------------------
74: PROCEDURE get_trx_rec
75: (p_api_version IN NUMBER,
76: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
77: x_return_status OUT NOCOPY VARCHAR2,
78: x_msg_count OUT NOCOPY NUMBER,
79: x_msg_data OUT NOCOPY VARCHAR2,
80: p_cle_id IN NUMBER,
80: p_cle_id IN NUMBER,
81: p_transaction_type IN VARCHAR2,
82: x_trx_rec OUT NOCOPY transaction_rec) IS
83:
84: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
85: l_api_name CONSTANT VARCHAR2(30) := 'GET_TRX_REC';
86: l_api_version CONSTANT NUMBER := 1.0;
87:
88: --Following cursor assumes that a transaction type called
97: Fetch okl_trx_type_curs
98: into l_trx_type_id;
99: If okl_trx_type_curs%NotFound Then
100: --OKL LINE ACTIVATION not seeded as a source transaction in IB
101: Raise OKC_API.G_EXCEPTION_ERROR;
102: End If;
103: close okl_trx_type_curs;
104: --Assign transaction Type id to seeded value in cs_lookups
105: x_trx_rec.transaction_type_id := l_trx_type_id;
107: x_trx_rec.source_line_ref_id := p_cle_id;
108: x_trx_rec.transaction_date := SYSDATE;
109: x_trx_rec.source_transaction_date := sysdate;
110: Exception
111: When OKC_API.G_EXCEPTION_ERROR Then
112: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
113: (
114: l_api_name,
115: G_PKG_NAME,
108: x_trx_rec.transaction_date := SYSDATE;
109: x_trx_rec.source_transaction_date := sysdate;
110: Exception
111: When OKC_API.G_EXCEPTION_ERROR Then
112: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
113: (
114: l_api_name,
115: G_PKG_NAME,
116: 'OKC_API.G_RET_STS_ERROR',
112: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
113: (
114: l_api_name,
115: G_PKG_NAME,
116: 'OKC_API.G_RET_STS_ERROR',
117: x_msg_count,
118: x_msg_data,
119: '_PVT'
120: );
117: x_msg_count,
118: x_msg_data,
119: '_PVT'
120: );
121: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
122: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
123: (
124: l_api_name,
125: G_PKG_NAME,
118: x_msg_data,
119: '_PVT'
120: );
121: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
122: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
123: (
124: l_api_name,
125: G_PKG_NAME,
126: 'OKC_API.G_RET_STS_UNEXP_ERROR',
122: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
123: (
124: l_api_name,
125: G_PKG_NAME,
126: 'OKC_API.G_RET_STS_UNEXP_ERROR',
127: x_msg_count,
128: x_msg_data,
129: '_PVT'
130: );
128: x_msg_data,
129: '_PVT'
130: );
131: WHEN OTHERS THEN
132: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
133: (
134: l_api_name,
135: G_PKG_NAME,
136: 'OTHERS',
141: END get_trx_rec;
142:
143: PROCEDURE update_location(
144: p_api_version IN NUMBER,
145: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
146: p_loc_rec IN OKL_LOC_REC_TYPE,
147: x_return_status OUT NOCOPY VARCHAR2,
148: x_msg_count OUT NOCOPY NUMBER,
149: x_msg_data OUT NOCOPY VARCHAR2) IS
517: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
518: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return status from Tax API '||x_return_status);
519: END IF;
520:
521: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
522: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
523: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
524: RAISE OKC_API.G_EXCEPTION_ERROR;
525: END IF;
518: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return status from Tax API '||x_return_status);
519: END IF;
520:
521: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
522: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
523: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
524: RAISE OKC_API.G_EXCEPTION_ERROR;
525: END IF;
526:
519: END IF;
520:
521: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
522: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
523: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
524: RAISE OKC_API.G_EXCEPTION_ERROR;
525: END IF;
526:
527: END IF; -- If _ib_inst found
520:
521: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
522: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
523: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
524: RAISE OKC_API.G_EXCEPTION_ERROR;
525: END IF;
526:
527: END IF; -- If _ib_inst found
528: CLOSE c_ib_inst;
845: END Update_asset_header;
846:
847: FUNCTION get_try_id(p_try_name IN OKL_TRX_TYPES_V.NAME%TYPE,x_try_id OUT NOCOPY OKC_LINE_STYLES_V.ID%TYPE)
848: RETURN VARCHAR2 IS
849: x_return_status VARCHAR2(3) := OKC_API.G_RET_STS_SUCCESS;
850: CURSOR c_get_try_id(p_try_name OKL_TRX_TYPES_V.NAME%TYPE) IS
851: SELECT id
852: FROM OKL_TRX_TYPES_TL
853: WHERE upper(name) = upper(p_try_name)
852: FROM OKL_TRX_TYPES_TL
853: WHERE upper(name) = upper(p_try_name)
854: AND language = 'US';
855: BEGIN
856: IF (p_try_name = OKC_API.G_MISS_CHAR) OR
857: (p_try_name IS NULL) THEN
858: -- store SQL error message on message stack
859: OKC_API.set_message(p_app_name => G_APP_NAME,
860: p_msg_name => G_REQUIRED_VALUE,
855: BEGIN
856: IF (p_try_name = OKC_API.G_MISS_CHAR) OR
857: (p_try_name IS NULL) THEN
858: -- store SQL error message on message stack
859: OKC_API.set_message(p_app_name => G_APP_NAME,
860: p_msg_name => G_REQUIRED_VALUE,
861: p_token1 => G_COL_NAME_TOKEN,
862: p_token1_value => 'Try Name');
863: -- halt validation as it is a required field
865: END IF;
866: OPEN c_get_try_id(p_try_name);
867: FETCH c_get_try_id INTO x_try_id;
868: IF c_get_try_id%NOTFOUND THEN
869: OKC_API.set_message(p_app_name => G_APP_NAME,
870: p_msg_name => G_NO_PARENT_RECORD,
871: p_token1 => G_COL_NAME_TOKEN,
872: p_token1_value => 'Try Name');
873: RAISE G_EXCEPTION_HALT_VALIDATION;
877: EXCEPTION
878: WHEN G_EXCEPTION_STOP_VALIDATION then
879: -- We are here since the field is required
880: -- Notify Error
881: x_return_status := OKC_API.G_RET_STS_ERROR;
882: WHEN G_EXCEPTION_HALT_VALIDATION then
883: -- We are here b'cause we have no parent record
884: -- If the cursor is open then it has to be closed
885: IF c_get_try_id%ISOPEN THEN
885: IF c_get_try_id%ISOPEN THEN
886: CLOSE c_get_try_id;
887: END IF;
888: -- notify caller of an error
889: x_return_status := OKC_API.G_RET_STS_ERROR;
890: WHEN OTHERS THEN
891: -- store SQL error message on message stack for caller
892: OKC_API.set_message(
893: G_APP_NAME,
888: -- notify caller of an error
889: x_return_status := OKC_API.G_RET_STS_ERROR;
890: WHEN OTHERS THEN
891: -- store SQL error message on message stack for caller
892: OKC_API.set_message(
893: G_APP_NAME,
894: G_UNEXPECTED_ERROR,
895: G_SQLCODE_TOKEN,
896: SQLCODE,
896: SQLCODE,
897: G_SQLERRM_TOKEN,
898: SQLERRM);
899: -- notify caller of an UNEXPECTED error
900: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
901: -- if the cursor is open
902: IF c_get_try_id%ISOPEN THEN
903: CLOSE c_get_try_id;
904: END IF;
941: |
942: *=======================================================================*/
943:
944: PROCEDURE update_location(p_api_version IN NUMBER,
945: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
946: p_loc_tbl IN okl_loc_tbl_type,
947: x_return_status OUT NOCOPY VARCHAR2,
948: x_msg_count OUT NOCOPY NUMBER,
949: x_msg_data OUT NOCOPY VARCHAR2)
1058: -- End of comments
1059:
1060: PROCEDURE populate_account_data(
1061: p_api_version IN NUMBER
1062: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
1063: ,p_trxh_out_rec IN Okl_Trx_Contracts_Pvt.tcnv_rec_type
1064: ,p_tclv_tbl IN okl_trx_contracts_pvt.tclv_tbl_type
1065: ,p_acc_gen_tbl IN OUT NOCOPY okl_account_dist_pvt.ACC_GEN_TBL_TYPE
1066: ,p_tmpl_identify_tbl IN OUT NOCOPY okl_account_dist_pvt.tmpl_identify_tbl_type
1271: -- End of comments
1272:
1273: PROCEDURE create_upfront_tax_accounting(
1274: p_api_version IN NUMBER
1275: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
1276: ,p_contract_id IN okc_k_headers_all_b.id%TYPE
1277: ,p_line_id IN okc_k_lines_b.id%TYPE
1278: ,p_transaction_id IN okl_trx_contracts_all.khr_id%TYPE
1279: ,p_transaction_type IN VARCHAR2
1715:
1716:
1717: PROCEDURE process_update_location(
1718: p_api_version IN NUMBER,
1719: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1720: p_kle_id IN NUMBER,
1721: x_return_status OUT NOCOPY VARCHAR2,
1722: x_msg_count OUT NOCOPY NUMBER,
1723: x_msg_data OUT NOCOPY VARCHAR2) IS
1992: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1993: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return status from updating in Install Base '||x_return_status);
1994: END IF;
1995:
1996: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1997: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1998: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1999: RAISE OKC_API.G_EXCEPTION_ERROR;
2000: END IF;
1993: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return status from updating in Install Base '||x_return_status);
1994: END IF;
1995:
1996: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1997: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1998: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1999: RAISE OKC_API.G_EXCEPTION_ERROR;
2000: END IF;
2001:
1994: END IF;
1995:
1996: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1997: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1998: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1999: RAISE OKC_API.G_EXCEPTION_ERROR;
2000: END IF;
2001:
2002:
1995:
1996: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1997: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1998: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1999: RAISE OKC_API.G_EXCEPTION_ERROR;
2000: END IF;
2001:
2002:
2003:
2017: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2018: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return status from Tax API '||x_return_status);
2019: END IF;
2020:
2021: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2022: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2023: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2024: RAISE OKC_API.G_EXCEPTION_ERROR;
2025: END IF;
2018: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return status from Tax API '||x_return_status);
2019: END IF;
2020:
2021: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2022: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2023: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2024: RAISE OKC_API.G_EXCEPTION_ERROR;
2025: END IF;
2026:
2019: END IF;
2020:
2021: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2022: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2023: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2024: RAISE OKC_API.G_EXCEPTION_ERROR;
2025: END IF;
2026:
2027: --Bug# 6619311
2020:
2021: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2022: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2023: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2024: RAISE OKC_API.G_EXCEPTION_ERROR;
2025: END IF;
2026:
2027: --Bug# 6619311
2028: OKL_BLK_AST_UPD_PVT.create_upfront_tax_accounting(
2040: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2041: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return status from create_upfront_tax_accounting API '||x_return_status);
2042: END IF;
2043:
2044: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2045: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2046: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2047: RAISE OKC_API.G_EXCEPTION_ERROR;
2048: END IF;
2041: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return status from create_upfront_tax_accounting API '||x_return_status);
2042: END IF;
2043:
2044: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2045: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2046: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2047: RAISE OKC_API.G_EXCEPTION_ERROR;
2048: END IF;
2049:
2042: END IF;
2043:
2044: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2045: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2046: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2047: RAISE OKC_API.G_EXCEPTION_ERROR;
2048: END IF;
2049:
2050: -- 27-May-2008 SECHAWLA 6619311 l_parent_line_id was being passed to
2043:
2044: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2045: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2046: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2047: RAISE OKC_API.G_EXCEPTION_ERROR;
2048: END IF;
2049:
2050: -- 27-May-2008 SECHAWLA 6619311 l_parent_line_id was being passed to
2051: -- cursor, but there was no value being assigned to this variable
2067: x_msg_data => x_msg_data);
2068: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2069: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return Status after creating Tax only invoice' || x_return_status);
2070: END IF;
2071: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2072: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2073: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2074: RAISE OKC_API.G_EXCEPTION_ERROR;
2075: END IF;
2068: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2069: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return Status after creating Tax only invoice' || x_return_status);
2070: END IF;
2071: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2072: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2073: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2074: RAISE OKC_API.G_EXCEPTION_ERROR;
2075: END IF;
2076: ELSE
2069: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return Status after creating Tax only invoice' || x_return_status);
2070: END IF;
2071: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2072: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2073: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2074: RAISE OKC_API.G_EXCEPTION_ERROR;
2075: END IF;
2076: ELSE
2077: OKL_API.set_message( p_app_name => 'OKL',
2070: END IF;
2071: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2072: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2073: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2074: RAISE OKC_API.G_EXCEPTION_ERROR;
2075: END IF;
2076: ELSE
2077: OKL_API.set_message( p_app_name => 'OKL',
2078: p_msg_name => 'OKL_ASTLOC_TAX_NOT_BILLED');