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
108:
109: l_trx_type_id NUMBER;
110: begin
111: -- Bug# 8459840 - Start actvity
112: x_return_status := OKC_API.START_ACTIVITY(
113: l_api_name
114: ,p_init_msg_list
115: ,'_PVT'
116: ,x_return_status);
115: ,'_PVT'
116: ,x_return_status);
117: --Check if activity started successfully
118: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
119: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
120: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
121: RAISE OKC_API.G_EXCEPTION_ERROR;
122: END IF;
123: -- end bug 8459840
117: --Check if activity started successfully
118: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
119: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
120: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
121: RAISE OKC_API.G_EXCEPTION_ERROR;
122: END IF;
123: -- end bug 8459840
124:
125: open okl_trx_type_curs(p_transaction_type);
126: Fetch okl_trx_type_curs
127: into l_trx_type_id;
128: If okl_trx_type_curs%NotFound Then
129: --OKL LINE ACTIVATION not seeded as a source transaction in IB
130: Raise OKC_API.G_EXCEPTION_ERROR;
131: End If;
132: close okl_trx_type_curs;
133:
134: --Assign transaction Type id to seeded value in cs_lookups
139: x_trx_rec.transaction_date := SYSDATE;
140: x_trx_rec.source_transaction_date := sysdate;
141:
142: Exception
143: When OKC_API.G_EXCEPTION_ERROR Then
144: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
145: (
146: l_api_name,
147: G_PKG_NAME,
140: x_trx_rec.source_transaction_date := sysdate;
141:
142: Exception
143: When OKC_API.G_EXCEPTION_ERROR Then
144: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
145: (
146: l_api_name,
147: G_PKG_NAME,
148: 'OKC_API.G_RET_STS_ERROR',
144: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
145: (
146: l_api_name,
147: G_PKG_NAME,
148: 'OKC_API.G_RET_STS_ERROR',
149: x_msg_count,
150: x_msg_data,
151: '_PVT'
152: );
149: x_msg_count,
150: x_msg_data,
151: '_PVT'
152: );
153: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
154: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
155: (
156: l_api_name,
157: G_PKG_NAME,
150: x_msg_data,
151: '_PVT'
152: );
153: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
154: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
155: (
156: l_api_name,
157: G_PKG_NAME,
158: 'OKC_API.G_RET_STS_UNEXP_ERROR',
154: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
155: (
156: l_api_name,
157: G_PKG_NAME,
158: 'OKC_API.G_RET_STS_UNEXP_ERROR',
159: x_msg_count,
160: x_msg_data,
161: '_PVT'
162: );
160: x_msg_data,
161: '_PVT'
162: );
163: WHEN OTHERS THEN
164: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
165: (
166: l_api_name,
167: G_PKG_NAME,
168: 'OTHERS',
173: END get_trx_rec;
174:
175: PROCEDURE update_location(
176: p_api_version IN NUMBER,
177: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
178: p_loc_rec IN OKL_LOC_REC_TYPE,
179: x_return_status OUT NOCOPY VARCHAR2,
180: x_msg_count OUT NOCOPY NUMBER,
181: x_msg_data OUT NOCOPY VARCHAR2) IS
549: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
550: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return status from Tax API '||x_return_status);
551: END IF;
552:
553: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
554: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
555: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
556: RAISE OKC_API.G_EXCEPTION_ERROR;
557: END IF;
550: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return status from Tax API '||x_return_status);
551: END IF;
552:
553: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
554: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
555: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
556: RAISE OKC_API.G_EXCEPTION_ERROR;
557: END IF;
558:
551: END IF;
552:
553: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
554: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
555: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
556: RAISE OKC_API.G_EXCEPTION_ERROR;
557: END IF;
558:
559: END IF; -- If _ib_inst found
552:
553: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
554: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
555: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
556: RAISE OKC_API.G_EXCEPTION_ERROR;
557: END IF;
558:
559: END IF; -- If _ib_inst found
560: CLOSE c_ib_inst;
877: END Update_asset_header;
878:
879: 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)
880: RETURN VARCHAR2 IS
881: x_return_status VARCHAR2(3) := OKC_API.G_RET_STS_SUCCESS;
882: CURSOR c_get_try_id(p_try_name OKL_TRX_TYPES_V.NAME%TYPE) IS
883: SELECT id
884: FROM OKL_TRX_TYPES_TL
885: WHERE upper(name) = upper(p_try_name)
884: FROM OKL_TRX_TYPES_TL
885: WHERE upper(name) = upper(p_try_name)
886: AND language = 'US';
887: BEGIN
888: IF (p_try_name = OKC_API.G_MISS_CHAR) OR
889: (p_try_name IS NULL) THEN
890: -- store SQL error message on message stack
891: OKC_API.set_message(p_app_name => G_APP_NAME,
892: p_msg_name => G_REQUIRED_VALUE,
887: BEGIN
888: IF (p_try_name = OKC_API.G_MISS_CHAR) OR
889: (p_try_name IS NULL) THEN
890: -- store SQL error message on message stack
891: OKC_API.set_message(p_app_name => G_APP_NAME,
892: p_msg_name => G_REQUIRED_VALUE,
893: p_token1 => G_COL_NAME_TOKEN,
894: p_token1_value => 'Try Name');
895: -- halt validation as it is a required field
897: END IF;
898: OPEN c_get_try_id(p_try_name);
899: FETCH c_get_try_id INTO x_try_id;
900: IF c_get_try_id%NOTFOUND THEN
901: OKC_API.set_message(p_app_name => G_APP_NAME,
902: p_msg_name => G_NO_PARENT_RECORD,
903: p_token1 => G_COL_NAME_TOKEN,
904: p_token1_value => 'Try Name');
905: RAISE G_EXCEPTION_HALT_VALIDATION;
909: EXCEPTION
910: WHEN G_EXCEPTION_STOP_VALIDATION then
911: -- We are here since the field is required
912: -- Notify Error
913: x_return_status := OKC_API.G_RET_STS_ERROR;
914: WHEN G_EXCEPTION_HALT_VALIDATION then
915: -- We are here b'cause we have no parent record
916: -- If the cursor is open then it has to be closed
917: IF c_get_try_id%ISOPEN THEN
917: IF c_get_try_id%ISOPEN THEN
918: CLOSE c_get_try_id;
919: END IF;
920: -- notify caller of an error
921: x_return_status := OKC_API.G_RET_STS_ERROR;
922: WHEN OTHERS THEN
923: -- store SQL error message on message stack for caller
924: OKC_API.set_message(
925: G_APP_NAME,
920: -- notify caller of an error
921: x_return_status := OKC_API.G_RET_STS_ERROR;
922: WHEN OTHERS THEN
923: -- store SQL error message on message stack for caller
924: OKC_API.set_message(
925: G_APP_NAME,
926: G_UNEXPECTED_ERROR,
927: G_SQLCODE_TOKEN,
928: SQLCODE,
928: SQLCODE,
929: G_SQLERRM_TOKEN,
930: SQLERRM);
931: -- notify caller of an UNEXPECTED error
932: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
933: -- if the cursor is open
934: IF c_get_try_id%ISOPEN THEN
935: CLOSE c_get_try_id;
936: END IF;
973: |
974: *=======================================================================*/
975:
976: PROCEDURE update_location(p_api_version IN NUMBER,
977: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
978: p_loc_tbl IN okl_loc_tbl_type,
979: x_return_status OUT NOCOPY VARCHAR2,
980: x_msg_count OUT NOCOPY NUMBER,
981: x_msg_data OUT NOCOPY VARCHAR2)
1090: -- End of comments
1091:
1092: PROCEDURE populate_account_data(
1093: p_api_version IN NUMBER
1094: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
1095: ,p_trxh_out_rec IN Okl_Trx_Contracts_Pvt.tcnv_rec_type
1096: ,p_tclv_tbl IN okl_trx_contracts_pvt.tclv_tbl_type
1097: ,p_acc_gen_tbl IN OUT NOCOPY okl_account_dist_pvt.ACC_GEN_TBL_TYPE
1098: ,p_tmpl_identify_tbl IN OUT NOCOPY okl_account_dist_pvt.tmpl_identify_tbl_type
1303: -- End of comments
1304:
1305: PROCEDURE create_upfront_tax_accounting(
1306: p_api_version IN NUMBER
1307: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
1308: ,p_contract_id IN okc_k_headers_all_b.id%TYPE
1309: ,p_line_id IN okc_k_lines_b.id%TYPE
1310: ,p_transaction_id IN okl_trx_contracts_all.khr_id%TYPE
1311: ,p_transaction_type IN VARCHAR2
1747:
1748:
1749: PROCEDURE process_update_location(
1750: p_api_version IN NUMBER,
1751: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1752: p_kle_id IN NUMBER,
1753: x_return_status OUT NOCOPY VARCHAR2,
1754: x_msg_count OUT NOCOPY NUMBER,
1755: x_msg_data OUT NOCOPY VARCHAR2) IS
2024: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2025: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return status from updating in Install Base '||x_return_status);
2026: END IF;
2027:
2028: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2029: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2030: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2031: RAISE OKC_API.G_EXCEPTION_ERROR;
2032: END IF;
2025: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return status from updating in Install Base '||x_return_status);
2026: END IF;
2027:
2028: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2029: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2030: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2031: RAISE OKC_API.G_EXCEPTION_ERROR;
2032: END IF;
2033:
2026: END IF;
2027:
2028: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2029: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2030: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2031: RAISE OKC_API.G_EXCEPTION_ERROR;
2032: END IF;
2033:
2034:
2027:
2028: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2029: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2030: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2031: RAISE OKC_API.G_EXCEPTION_ERROR;
2032: END IF;
2033:
2034:
2035: -- ER# 9327076 - Added condition to perform upfront tax calculation
2051: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2052: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return status from Tax API '||x_return_status);
2053: END IF;
2054:
2055: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2056: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2057: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2058: RAISE OKC_API.G_EXCEPTION_ERROR;
2059: END IF;
2052: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return status from Tax API '||x_return_status);
2053: END IF;
2054:
2055: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2056: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2057: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2058: RAISE OKC_API.G_EXCEPTION_ERROR;
2059: END IF;
2060:
2053: END IF;
2054:
2055: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2056: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2057: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2058: RAISE OKC_API.G_EXCEPTION_ERROR;
2059: END IF;
2060:
2061: --Bug# 6619311
2054:
2055: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2056: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2057: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2058: RAISE OKC_API.G_EXCEPTION_ERROR;
2059: END IF;
2060:
2061: --Bug# 6619311
2062: OKL_BLK_AST_UPD_PVT.create_upfront_tax_accounting(
2074: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2075: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return status from create_upfront_tax_accounting API '||x_return_status);
2076: END IF;
2077:
2078: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2079: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2080: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2081: RAISE OKC_API.G_EXCEPTION_ERROR;
2082: END IF;
2075: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return status from create_upfront_tax_accounting API '||x_return_status);
2076: END IF;
2077:
2078: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2079: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2080: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2081: RAISE OKC_API.G_EXCEPTION_ERROR;
2082: END IF;
2083:
2076: END IF;
2077:
2078: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2079: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2080: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2081: RAISE OKC_API.G_EXCEPTION_ERROR;
2082: END IF;
2083:
2084: -- 27-May-2008 SECHAWLA 6619311 l_parent_line_id was being passed to
2077:
2078: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2079: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2080: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2081: RAISE OKC_API.G_EXCEPTION_ERROR;
2082: END IF;
2083:
2084: -- 27-May-2008 SECHAWLA 6619311 l_parent_line_id was being passed to
2085: -- cursor, but there was no value being assigned to this variable
2101: x_msg_data => x_msg_data);
2102: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2103: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return Status after creating Tax only invoice' || x_return_status);
2104: END IF;
2105: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2106: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2107: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2108: RAISE OKC_API.G_EXCEPTION_ERROR;
2109: END IF;
2102: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2103: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return Status after creating Tax only invoice' || x_return_status);
2104: END IF;
2105: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2106: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2107: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2108: RAISE OKC_API.G_EXCEPTION_ERROR;
2109: END IF;
2110: ELSE
2103: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return Status after creating Tax only invoice' || x_return_status);
2104: END IF;
2105: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2106: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2107: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2108: RAISE OKC_API.G_EXCEPTION_ERROR;
2109: END IF;
2110: ELSE
2111: OKL_API.set_message( p_app_name => 'OKL',
2104: END IF;
2105: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2106: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2107: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2108: RAISE OKC_API.G_EXCEPTION_ERROR;
2109: END IF;
2110: ELSE
2111: OKL_API.set_message( p_app_name => 'OKL',
2112: p_msg_name => 'OKL_ASTLOC_TAX_NOT_BILLED');