[Home] [Help]
13:
14: G_SQLERRM_TOKEN CONSTANT VARCHAR2(30) := 'OKL_SQLERRM';
15: G_SQLCODE_TOKEN CONSTANT VARCHAR2(30) := 'OKL_SQLCODE';
16:
17: G_NO_INIT_MSG CONSTANT VARCHAR2(1) := OKL_API.G_FALSE;
18: G_VIEW CONSTANT VARCHAR2(30) := 'OKL_TRX_AP_INVOICES_V';
19:
20: G_FND_APP CONSTANT VARCHAR2(30) := OKL_API.G_FND_APP;
21: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(30) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
16:
17: G_NO_INIT_MSG CONSTANT VARCHAR2(1) := OKL_API.G_FALSE;
18: G_VIEW CONSTANT VARCHAR2(30) := 'OKL_TRX_AP_INVOICES_V';
19:
20: G_FND_APP CONSTANT VARCHAR2(30) := OKL_API.G_FND_APP;
21: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(30) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
22: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_DELETED;
23: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_CHANGED;
24: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_RECORD_LOGICALLY_DELETED;
17: G_NO_INIT_MSG CONSTANT VARCHAR2(1) := OKL_API.G_FALSE;
18: G_VIEW CONSTANT VARCHAR2(30) := 'OKL_TRX_AP_INVOICES_V';
19:
20: G_FND_APP CONSTANT VARCHAR2(30) := OKL_API.G_FND_APP;
21: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(30) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
22: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_DELETED;
23: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_CHANGED;
24: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_RECORD_LOGICALLY_DELETED;
25:
18: G_VIEW CONSTANT VARCHAR2(30) := 'OKL_TRX_AP_INVOICES_V';
19:
20: G_FND_APP CONSTANT VARCHAR2(30) := OKL_API.G_FND_APP;
21: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(30) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
22: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_DELETED;
23: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_CHANGED;
24: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_RECORD_LOGICALLY_DELETED;
25:
26: G_REQUIRED_VALUE CONSTANT VARCHAR2(30) := 'OKL_REQUIRED_VALUE';
19:
20: G_FND_APP CONSTANT VARCHAR2(30) := OKL_API.G_FND_APP;
21: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(30) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
22: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_DELETED;
23: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_CHANGED;
24: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_RECORD_LOGICALLY_DELETED;
25:
26: G_REQUIRED_VALUE CONSTANT VARCHAR2(30) := 'OKL_REQUIRED_VALUE';
27: G_INVALID_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_INVALID_VALUE;
20: G_FND_APP CONSTANT VARCHAR2(30) := OKL_API.G_FND_APP;
21: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(30) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
22: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_DELETED;
23: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_CHANGED;
24: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_RECORD_LOGICALLY_DELETED;
25:
26: G_REQUIRED_VALUE CONSTANT VARCHAR2(30) := 'OKL_REQUIRED_VALUE';
27: G_INVALID_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_INVALID_VALUE;
28: G_COL_NAME_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_COL_NAME_TOKEN;
23: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_CHANGED;
24: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_RECORD_LOGICALLY_DELETED;
25:
26: G_REQUIRED_VALUE CONSTANT VARCHAR2(30) := 'OKL_REQUIRED_VALUE';
27: G_INVALID_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_INVALID_VALUE;
28: G_COL_NAME_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_COL_NAME_TOKEN;
29: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_PARENT_TABLE_TOKEN;
30: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_CHILD_TABLE_TOKEN;
31: G_NO_PARENT_RECORD CONSTANT VARCHAR2(30) :='OKL_NO_PARENT_RECORD';
24: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_RECORD_LOGICALLY_DELETED;
25:
26: G_REQUIRED_VALUE CONSTANT VARCHAR2(30) := 'OKL_REQUIRED_VALUE';
27: G_INVALID_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_INVALID_VALUE;
28: G_COL_NAME_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_COL_NAME_TOKEN;
29: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_PARENT_TABLE_TOKEN;
30: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_CHILD_TABLE_TOKEN;
31: G_NO_PARENT_RECORD CONSTANT VARCHAR2(30) :='OKL_NO_PARENT_RECORD';
32: G_NOT_SAME CONSTANT VARCHAR2(30) :='OKL_CANNOT_BE_SAME';
25:
26: G_REQUIRED_VALUE CONSTANT VARCHAR2(30) := 'OKL_REQUIRED_VALUE';
27: G_INVALID_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_INVALID_VALUE;
28: G_COL_NAME_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_COL_NAME_TOKEN;
29: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_PARENT_TABLE_TOKEN;
30: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_CHILD_TABLE_TOKEN;
31: G_NO_PARENT_RECORD CONSTANT VARCHAR2(30) :='OKL_NO_PARENT_RECORD';
32: G_NOT_SAME CONSTANT VARCHAR2(30) :='OKL_CANNOT_BE_SAME';
33:
26: G_REQUIRED_VALUE CONSTANT VARCHAR2(30) := 'OKL_REQUIRED_VALUE';
27: G_INVALID_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_INVALID_VALUE;
28: G_COL_NAME_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_COL_NAME_TOKEN;
29: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_PARENT_TABLE_TOKEN;
30: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_CHILD_TABLE_TOKEN;
31: G_NO_PARENT_RECORD CONSTANT VARCHAR2(30) :='OKL_NO_PARENT_RECORD';
32: G_NOT_SAME CONSTANT VARCHAR2(30) :='OKL_CANNOT_BE_SAME';
33:
34: G_API_TYPE VARCHAR2(3) := 'PUB';
173: p_parameters => l_parameter_list);
174:
175: EXCEPTION
176: WHEN OTHERS THEN
177: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
179: END raise_business_event;
180:
181: /*
174:
175: EXCEPTION
176: WHEN OTHERS THEN
177: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
179: END raise_business_event;
180:
181: /*
182: -- vthiruva, 08/31/2004
209: is
210: l_api_name CONSTANT VARCHAR2(30) := 'create_credit_chklst_tpl';
211: l_api_version CONSTANT NUMBER := 1.0;
212: i NUMBER;
213: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
214: lp_rgpv_rec rgpv_rec_type := p_rgpv_rec;
215: lp_rulv_rec rulv_rec_type := p_rulv_rec;
216:
217: lp_rule2_rulv_rec rulv_rec_type;
273: p_api_version,
274: l_api_name,
275: G_PKG_NAME ))
276: THEN
277: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
278: END IF;
279:
280: -- Initialize message list if requested
281: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
282: FND_MSG_PUB.initialize;
283: END IF;
284:
285: -- Initialize API status to success
286: x_return_status := OKL_API.G_RET_STS_SUCCESS;
287:
288:
289: /*** Begin API body ****************************************************/
290: /*
301: -------------------------------------------------------------
302: --1. create rule group when user choose either credit line or funding checklist template
303: -------------------------------------------------------------
304: IF ((lp_rulv_rec.RULE_INFORMATION1 is not null AND
305: lp_rulv_rec.RULE_INFORMATION1 <> OKL_API.G_MISS_CHAR)
306: OR
307: (lp_rulv_rec.RULE_INFORMATION2 is not null AND
308: lp_rulv_rec.RULE_INFORMATION2 <> OKL_API.G_MISS_CHAR)) THEN
309:
304: IF ((lp_rulv_rec.RULE_INFORMATION1 is not null AND
305: lp_rulv_rec.RULE_INFORMATION1 <> OKL_API.G_MISS_CHAR)
306: OR
307: (lp_rulv_rec.RULE_INFORMATION2 is not null AND
308: lp_rulv_rec.RULE_INFORMATION2 <> OKL_API.G_MISS_CHAR)) THEN
309:
310: -- DNZ_CHR_ID is set by calling program
311: -- CHR_ID is set by calling program
312: lp_rgpv_rec.RGD_CODE := G_CREDIT_CHKLST_TPL;
358: --3. create rule2 : get the source of the checklist template lists
359: --4. create rules based on #3. cursor
360: -------------------------------------------------------------
361: IF (lp_rulv_rec.RULE_INFORMATION1 is not null AND
362: lp_rulv_rec.RULE_INFORMATION1 <> OKL_API.G_MISS_CHAR) THEN
363:
364: --start: 06-May-2005 cklee okl.h Lease App IA Authoring
365: OPEN c_is_grp(TO_NUMBER(lp_rulv_rec.RULE_INFORMATION1));
366: FETCH c_is_grp INTO l_dummy;
473: --
474: -- create funding checklist template header
475: -------------------------------------------------------------
476: IF (lp_rulv_rec.RULE_INFORMATION2 is not null AND
477: lp_rulv_rec.RULE_INFORMATION2 <> OKL_API.G_MISS_CHAR) THEN
478:
479: lp_rule3_rulv_rec.RGP_ID := x_rgpv_rec.ID;
480: lp_rule3_rulv_rec.DNZ_CHR_ID := lp_rgpv_rec.DNZ_CHR_ID;
481: lp_rule3_rulv_rec.RULE_INFORMATION_CATEGORY := G_CREDIT_CHKLST_TPL_RULE4;
633:
634: EXCEPTION
635:
636: WHEN OTHERS THEN
637: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
638: OKL_API.Set_Message(p_app_name => G_APP_NAME,
639: p_msg_name => G_UNEXPECTED_ERROR,
640: p_token1 => G_SQLCODE_TOKEN,
641: p_token1_value => SQLCODE,
634: EXCEPTION
635:
636: WHEN OTHERS THEN
637: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
638: OKL_API.Set_Message(p_app_name => G_APP_NAME,
639: p_msg_name => G_UNEXPECTED_ERROR,
640: p_token1 => G_SQLCODE_TOKEN,
641: p_token1_value => SQLCODE,
642: p_token2 => G_SQLERRM_TOKEN,
667: is
668: l_api_name CONSTANT VARCHAR2(30) := 'update_credit_chklst_tpl';
669: l_api_version CONSTANT NUMBER := 1.0;
670: i NUMBER;
671: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
672:
673: lpcrt_rgpv_rec rgpv_rec_type;
674: lxcrt_rgpv_rec rgpv_rec_type;
675: lpcrt_rulv_rec rulv_rec_type;
783: p_api_version,
784: l_api_name,
785: G_PKG_NAME ))
786: THEN
787: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
788: END IF;
789:
790: -- Initialize message list if requested
791: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
792: FND_MSG_PUB.initialize;
793: END IF;
794:
795: -- Initialize API status to success
796: x_return_status := OKL_API.G_RET_STS_SUCCESS;
797:
798:
799: /*** Begin API body ****************************************************/
800: /*
1341: p_data => x_msg_data);
1342:
1343: EXCEPTION
1344: WHEN OTHERS THEN
1345: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1346: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1347: p_msg_name => G_UNEXPECTED_ERROR,
1348: p_token1 => G_SQLCODE_TOKEN,
1349: p_token1_value => SQLCODE,
1342:
1343: EXCEPTION
1344: WHEN OTHERS THEN
1345: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1346: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1347: p_msg_name => G_UNEXPECTED_ERROR,
1348: p_token1 => G_SQLCODE_TOKEN,
1349: p_token1_value => SQLCODE,
1350: p_token2 => G_SQLERRM_TOKEN,
1362: ,p_rulv_rec okl_rule_pub.rulv_rec_type
1363: ,p_mode VARCHAR2
1364: ) RETURN VARCHAR2
1365: IS
1366: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1367: l_req_row_found boolean;
1368: l_grp_row_not_found boolean;
1369: l_active_row_not_found boolean;
1370: l_expired_row_found boolean;
1486: IF (l_chklist_hdr_row_notfound
1487: AND (p_rulv_rec.RULE_INFORMATION1 is not null OR
1488: p_rulv_rec.RULE_INFORMATION2 is not null)) THEN
1489: -- Credit line checklists not found. Please update credit line and setup checklists before activate credit line.
1490: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1491: p_msg_name => 'OKL_LLA_CREDIT_CHKLST1');
1492:
1493: RAISE G_EXCEPTION_HALT_VALIDATION;
1494: END IF;
1503:
1504: -- 2. checklist has not been activate yet
1505: IF (l_credit_checklist_tpl IS NOT NULL and l_chklist_sts_row_found) THEN
1506: -- Credit line checklist status is new. Please activate credit line checklist before activate credit line.
1507: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1508: p_msg_name => 'OKL_LLA_CREDIT_CHKLST3');
1509:
1510: RAISE G_EXCEPTION_HALT_VALIDATION;
1511: END IF;
1521: -- 3.1 funding checklist template has not been activate yet
1522: IF (l_funding_checklist_tpl IS NOT NULL and l_status <> 'ACTIVE') THEN
1523: -- Funding request checklist template status is new.
1524: -- Please activate Funding request checklist template before activate credit line.
1525: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1526: p_msg_name => 'OKL_LLA_FUND_CHKLST_CHECK5');
1527:
1528: RAISE G_EXCEPTION_HALT_VALIDATION;
1529: END IF;
1533: --------------------------------------------------------------------------------------------
1534: -- 3.2 funding checklist template expired.
1535: IF (l_funding_checklist_tpl IS NOT NULL and trunc(l_effective_to) < trunc(SYSDATE)) THEN
1536: -- Funding request checklist template expired. Please modify effective date of Funding request checklist template.
1537: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1538: p_msg_name => 'OKL_LLA_FUND_CHKLST_CHECK6');
1539:
1540:
1541: RAISE G_EXCEPTION_HALT_VALIDATION;
1553: --------------------------------------------------------------------------------------------
1554: -- 4. all required items have not met requirement
1555: IF (l_credit_checklist_tpl IS NOT NULL and l_req_row_found) THEN
1556: -- Credit line has not met all checklist items. Please check off all mandatory checklist items.
1557: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1558: p_msg_name => 'OKL_LLA_CREDIT_CHKLST');
1559:
1560: RAISE G_EXCEPTION_HALT_VALIDATION;
1561: END IF;
1568: RETURN l_return_status;
1569:
1570: EXCEPTION
1571: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1572: l_return_status := OKL_API.G_RET_STS_ERROR;
1573: RETURN l_return_status;
1574: WHEN OTHERS THEN
1575: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1576: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1571: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1572: l_return_status := OKL_API.G_RET_STS_ERROR;
1573: RETURN l_return_status;
1574: WHEN OTHERS THEN
1575: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1576: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1577: p_msg_name => G_UNEXPECTED_ERROR,
1578: p_token1 => G_SQLCODE_TOKEN,
1579: p_token1_value => SQLCODE,
1572: l_return_status := OKL_API.G_RET_STS_ERROR;
1573: RETURN l_return_status;
1574: WHEN OTHERS THEN
1575: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1576: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1577: p_msg_name => G_UNEXPECTED_ERROR,
1578: p_token1 => G_SQLCODE_TOKEN,
1579: p_token1_value => SQLCODE,
1580: p_token2 => G_SQLERRM_TOKEN,
1590: p_chr_id IN NUMBER,
1591: p_mode IN VARCHAR2
1592: ) RETURN VARCHAR2
1593: IS
1594: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1595:
1596: l_msg_name VARCHAR2(200);
1597: l_dummy_n number;
1598: l_dummy VARCHAR2(1) := '?';
1605:
1606: l_not_exists BOOLEAN := false;
1607:
1608: l_api_version NUMBER := 1.0;
1609: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
1610: x_return_status VARCHAR2(1);
1611: x_msg_count NUMBER;
1612: x_msg_data VARCHAR2(2000);
1613: x_value NUMBER := 0;
1695: CLOSE c_dup;
1696:
1697: IF ( l_dup ) THEN
1698:
1699: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1700: p_msg_name => 'OKL_LLA_NOT_UNIQUE',
1701: p_token1 => 'COL_NAME',
1702: p_token1_value => 'New Limit');
1703: RAISE G_EXCEPTION_HALT_VALIDATION;
1721: ELSIF (p_mode = 'UPDATE') THEN
1722: l_msg_name := 'OKL_LLA_CREDIT_LIMIT_CHECK3';
1723: END IF;
1724:
1725: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1726: p_msg_name => l_msg_name);
1727: RAISE G_EXCEPTION_HALT_VALIDATION;
1728:
1729: END IF;
1737: CLOSE c_date_check1;
1738:
1739: IF ( l_date_check1 ) THEN
1740:
1741: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1742: p_msg_name => 'OKL_LLA_RANGE_CHECK2',
1743: p_token1 => 'COL_NAME1',
1744: p_token1_value => 'Effective From',
1745: p_token2 => 'COL_NAME2',
1757: CLOSE c_date_check2;
1758:
1759: IF ( l_date_check2 ) THEN
1760:
1761: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1762: p_msg_name => 'OKL_LESS_THAN',
1763: p_token1 => 'COL_NAME1',
1764: p_token1_value => 'Effective From',
1765: p_token2 => 'COL_NAME2',
1777: CLOSE c_amount_check1;
1778:
1779: IF ( l_amount_check1 ) THEN
1780:
1781: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1782: p_msg_name => 'OKL_LLA_POSITIVE_AMOUNT_ONLY',
1783: p_token1 => 'COL_NAME',
1784: p_token1_value => 'Amount');
1785: RAISE G_EXCEPTION_HALT_VALIDATION;
1795: CLOSE c_amount_check2;
1796:
1797: IF ( l_amount_check2 ) THEN
1798:
1799: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1800: p_msg_name => 'OKL_LLA_AMOUNT_CHECK');
1801: RAISE G_EXCEPTION_HALT_VALIDATION;
1802:
1803: END IF;
1814: p_formula_name => 'CONTRACT_TOT_CRDT_LMT',
1815: p_contract_id => p_chr_id,
1816: x_value => x_value);
1817:
1818: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1819: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1820: x_value := 0;
1821: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1822: --RAISE OKL_API.G_EXCEPTION_ERROR;
1815: p_contract_id => p_chr_id,
1816: x_value => x_value);
1817:
1818: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1819: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1820: x_value := 0;
1821: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1822: --RAISE OKL_API.G_EXCEPTION_ERROR;
1823: x_value := 0;
1817:
1818: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1819: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1820: x_value := 0;
1821: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1822: --RAISE OKL_API.G_EXCEPTION_ERROR;
1823: x_value := 0;
1824: END IF;
1825:
1818: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1819: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1820: x_value := 0;
1821: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1822: --RAISE OKL_API.G_EXCEPTION_ERROR;
1823: x_value := 0;
1824: END IF;
1825:
1826: l_amount := x_value;
1826: l_amount := x_value;
1827:
1828: IF (l_amount < 0 ) THEN
1829:
1830: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1831: p_msg_name => 'OKL_LLA_CREDIT_LIMIT_CHECK');
1832: RAISE G_EXCEPTION_HALT_VALIDATION;
1833:
1834: END IF;
1836:
1837: RETURN l_return_status;
1838: EXCEPTION
1839: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1840: l_return_status := OKL_API.G_RET_STS_ERROR;
1841: RETURN l_return_status;
1842: WHEN OTHERS THEN
1843: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1844: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1839: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1840: l_return_status := OKL_API.G_RET_STS_ERROR;
1841: RETURN l_return_status;
1842: WHEN OTHERS THEN
1843: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1844: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1845: p_msg_name => G_UNEXPECTED_ERROR,
1846: p_token1 => G_SQLCODE_TOKEN,
1847: p_token1_value => SQLCODE,
1840: l_return_status := OKL_API.G_RET_STS_ERROR;
1841: RETURN l_return_status;
1842: WHEN OTHERS THEN
1843: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1844: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1845: p_msg_name => G_UNEXPECTED_ERROR,
1846: p_token1 => G_SQLCODE_TOKEN,
1847: p_token1_value => SQLCODE,
1848: p_token2 => G_SQLERRM_TOKEN,
1858: p_clev_rec OKL_OKC_MIGRATION_PVT.clev_rec_type
1859: ,p_klev_rec OKL_CONTRACT_PVT.klev_rec_type
1860: ) RETURN VARCHAR2
1861: IS
1862: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1863: l_existing_status VARCHAR2(1) := '?';
1864:
1865: CURSOR c (p_contract_id NUMBER)
1866: IS
1874:
1875: -- start: cklee 03/24/2004
1876: -- credit_nature is required:
1877: IF (p_klev_rec.credit_nature IS NULL) THEN
1878: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1879: p_msg_name => G_REQUIRED_VALUE,
1880: p_token1 => G_COL_NAME_TOKEN,
1881: p_token1_value => 'Credit Nature');
1882: RAISE G_EXCEPTION_HALT_VALIDATION;
1886: RETURN l_return_status;
1887: EXCEPTION
1888:
1889: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1890: l_return_status := OKL_API.G_RET_STS_ERROR;
1891: RETURN l_return_status;
1892: WHEN OTHERS THEN
1893: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1894: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1889: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1890: l_return_status := OKL_API.G_RET_STS_ERROR;
1891: RETURN l_return_status;
1892: WHEN OTHERS THEN
1893: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1894: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1895: p_msg_name => G_UNEXPECTED_ERROR,
1896: p_token1 => G_SQLCODE_TOKEN,
1897: p_token1_value => SQLCODE,
1890: l_return_status := OKL_API.G_RET_STS_ERROR;
1891: RETURN l_return_status;
1892: WHEN OTHERS THEN
1893: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1894: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1895: p_msg_name => G_UNEXPECTED_ERROR,
1896: p_token1 => G_SQLCODE_TOKEN,
1897: p_token1_value => SQLCODE,
1898: p_token2 => G_SQLERRM_TOKEN,
1907: p_clev_rec OKL_OKC_MIGRATION_PVT.clev_rec_type
1908: ,p_klev_rec OKL_CONTRACT_PVT.klev_rec_type
1909: ) RETURN VARCHAR2
1910: IS
1911: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1912: BEGIN
1913:
1914: -- start: cklee 03/24/2004
1915: -- amount is required:
1913:
1914: -- start: cklee 03/24/2004
1915: -- amount is required:
1916: IF (p_klev_rec.amount IS NULL) THEN
1917: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1918: p_msg_name => G_REQUIRED_VALUE,
1919: p_token1 => G_COL_NAME_TOKEN,
1920: p_token1_value => 'Amount');
1921: RAISE G_EXCEPTION_HALT_VALIDATION;
1922: END IF;
1923: -- end: cklee 03/24/2004
1924:
1925: IF (p_klev_rec.amount IS NOT NULL AND
1926: p_klev_rec.amount <> OKL_API.G_MISS_NUM)
1927: THEN
1928:
1929: IF (p_klev_rec.amount < 0 ) THEN
1930:
1927: THEN
1928:
1929: IF (p_klev_rec.amount < 0 ) THEN
1930:
1931: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1932: p_msg_name => 'OKL_LLA_POSITIVE_AMOUNT_ONLY',
1933: p_token1 => 'COL_NAME',
1934: p_token1_value => 'Amount');
1935:
1937: END IF;
1938:
1939: IF (p_klev_rec.amount = 0 ) THEN
1940:
1941: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1942: p_msg_name => 'OKL_LLA_AMOUNT_CHECK');
1943:
1944: RAISE G_EXCEPTION_HALT_VALIDATION;
1945: END IF;
1948:
1949: RETURN l_return_status;
1950: EXCEPTION
1951: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1952: l_return_status := OKL_API.G_RET_STS_ERROR;
1953: RETURN l_return_status;
1954: WHEN OTHERS THEN
1955: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1956: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1951: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1952: l_return_status := OKL_API.G_RET_STS_ERROR;
1953: RETURN l_return_status;
1954: WHEN OTHERS THEN
1955: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1956: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1957: p_msg_name => G_UNEXPECTED_ERROR,
1958: p_token1 => G_SQLCODE_TOKEN,
1959: p_token1_value => SQLCODE,
1952: l_return_status := OKL_API.G_RET_STS_ERROR;
1953: RETURN l_return_status;
1954: WHEN OTHERS THEN
1955: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1956: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1957: p_msg_name => G_UNEXPECTED_ERROR,
1958: p_token1 => G_SQLCODE_TOKEN,
1959: p_token1_value => SQLCODE,
1960: p_token2 => G_SQLERRM_TOKEN,
1968: p_clev_rec OKL_OKC_MIGRATION_PVT.clev_rec_type
1969: ,p_klev_rec OKL_CONTRACT_PVT.klev_rec_type
1970: ) RETURN VARCHAR2
1971: IS
1972: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1973: l_header_start_date DATE;
1974: l_header_end_date DATE;
1975:
1976: CURSOR c (p_chr_id NUMBER)
1985:
1986: -- start: cklee 03/24/2004
1987: -- start date is required:
1988: IF (p_clev_rec.start_date IS NULL) THEN
1989: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1990: p_msg_name => G_REQUIRED_VALUE,
1991: p_token1 => G_COL_NAME_TOKEN,
1992: p_token1_value => 'Effective From');
1993: RAISE G_EXCEPTION_HALT_VALIDATION;
1999: l_header_end_date;
2000: CLOSE c;
2001:
2002: IF (p_clev_rec.start_date IS NOT NULL AND
2003: p_clev_rec.start_date <> OKL_API.G_MISS_DATE)
2004: THEN
2005:
2006: IF (l_header_start_date IS NOT NULL) THEN
2007: IF (trunc(p_clev_rec.start_date) < trunc(l_header_start_date)) THEN
2005:
2006: IF (l_header_start_date IS NOT NULL) THEN
2007: IF (trunc(p_clev_rec.start_date) < trunc(l_header_start_date)) THEN
2008:
2009: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2010: p_msg_name => 'OKL_LLA_RANGE_CHECK2',
2011: p_token1 => 'COL_NAME1',
2012: p_token1_value => 'Effective From',
2013: p_token2 => 'COL_NAME2',
2018:
2019: IF (l_header_end_date IS NOT NULL) THEN
2020: IF (trunc(p_clev_rec.start_date) > trunc(l_header_end_date)) THEN
2021:
2022: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2023: p_msg_name => 'OKL_LESS_THAN',
2024: p_token1 => 'COL_NAME1',
2025: p_token1_value => 'Effective From',
2026: p_token2 => 'COL_NAME2',
2033:
2034: RETURN l_return_status;
2035: EXCEPTION
2036: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2037: l_return_status := OKL_API.G_RET_STS_ERROR;
2038: RETURN l_return_status;
2039: WHEN OTHERS THEN
2040: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2041: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2036: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2037: l_return_status := OKL_API.G_RET_STS_ERROR;
2038: RETURN l_return_status;
2039: WHEN OTHERS THEN
2040: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2041: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2042: p_msg_name => G_UNEXPECTED_ERROR,
2043: p_token1 => G_SQLCODE_TOKEN,
2044: p_token1_value => SQLCODE,
2037: l_return_status := OKL_API.G_RET_STS_ERROR;
2038: RETURN l_return_status;
2039: WHEN OTHERS THEN
2040: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2041: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2042: p_msg_name => G_UNEXPECTED_ERROR,
2043: p_token1 => G_SQLCODE_TOKEN,
2044: p_token1_value => SQLCODE,
2045: p_token2 => G_SQLERRM_TOKEN,
2054: FUNCTION validate_description(
2055: p_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type
2056: ) RETURN VARCHAR2
2057: IS
2058: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2059: BEGIN
2060:
2061: IF (p_chrv_rec.description IS NOT NULL AND
2062: p_chrv_rec.description <> OKL_API.G_MISS_CHAR)
2058: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2059: BEGIN
2060:
2061: IF (p_chrv_rec.description IS NOT NULL AND
2062: p_chrv_rec.description <> OKL_API.G_MISS_CHAR)
2063: THEN
2064:
2065: IF (length(p_chrv_rec.description) > 600) THEN
2066:
2063: THEN
2064:
2065: IF (length(p_chrv_rec.description) > 600) THEN
2066:
2067: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2068: p_msg_name => 'OKL_LLA_EXCEED_MAXIMUM_LENGTH',
2069: p_token1 => 'MAX_CHARS',
2070: p_token1_value => '600',
2071: p_token2 => 'COL_NAME',
2077:
2078: RETURN l_return_status;
2079: EXCEPTION
2080: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2081: l_return_status := OKL_API.G_RET_STS_ERROR;
2082: RETURN l_return_status;
2083: WHEN OTHERS THEN
2084: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2085: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2080: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2081: l_return_status := OKL_API.G_RET_STS_ERROR;
2082: RETURN l_return_status;
2083: WHEN OTHERS THEN
2084: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2085: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2086: p_msg_name => G_UNEXPECTED_ERROR,
2087: p_token1 => G_SQLCODE_TOKEN,
2088: p_token1_value => SQLCODE,
2081: l_return_status := OKL_API.G_RET_STS_ERROR;
2082: RETURN l_return_status;
2083: WHEN OTHERS THEN
2084: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2085: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2086: p_msg_name => G_UNEXPECTED_ERROR,
2087: p_token1 => G_SQLCODE_TOKEN,
2088: p_token1_value => SQLCODE,
2089: p_token2 => G_SQLERRM_TOKEN,
2098: p_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type
2099: ,p_mode VARCHAR2
2100: ) RETURN VARCHAR2
2101: IS
2102: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2103: l_dummy VARCHAR2(1) := '?';
2104:
2105: CURSOR c (p_credit_number VARCHAR2)
2106: IS
2123: BEGIN
2124:
2125: -- check only if credit number exists
2126: IF (p_chrv_rec.contract_number IS NOT NULL AND
2127: p_chrv_rec.contract_number <> OKL_API.G_MISS_CHAR)
2128: THEN
2129:
2130: IF (p_mode = 'C') THEN
2131: OPEN c(p_chrv_rec.contract_number);
2138: END IF;
2139:
2140: IF (l_dummy = 'X')
2141: THEN
2142: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2143: p_msg_name => 'OKL_CONTRACT_EXISTS',
2144: p_token1 => 'COL_NAME',
2145: p_token1_value => p_chrv_rec.contract_number);
2146:
2152: RETURN l_return_status;
2153:
2154: EXCEPTION
2155: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2156: l_return_status := OKL_API.G_RET_STS_ERROR;
2157: RETURN l_return_status;
2158: WHEN OTHERS THEN
2159: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2160: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2155: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2156: l_return_status := OKL_API.G_RET_STS_ERROR;
2157: RETURN l_return_status;
2158: WHEN OTHERS THEN
2159: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2160: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2161: p_msg_name => G_UNEXPECTED_ERROR,
2162: p_token1 => G_SQLCODE_TOKEN,
2163: p_token1_value => SQLCODE,
2156: l_return_status := OKL_API.G_RET_STS_ERROR;
2157: RETURN l_return_status;
2158: WHEN OTHERS THEN
2159: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2160: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2161: p_msg_name => G_UNEXPECTED_ERROR,
2162: p_token1 => G_SQLCODE_TOKEN,
2163: p_token1_value => SQLCODE,
2164: p_token2 => G_SQLERRM_TOKEN,
2172: p_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type
2173: ,p_mode VARCHAR2
2174: ) RETURN VARCHAR2
2175: IS
2176: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2177: l_min_start_date DATE;
2178:
2179: l_row_found boolean := false;
2180:
2189: BEGIN
2190:
2191: -- start date is required:
2192: IF (p_chrv_rec.start_date IS NULL) OR
2193: (p_chrv_rec.start_date = OKL_API.G_MISS_DATE)
2194: THEN
2195: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2196: p_msg_name => G_REQUIRED_VALUE,
2197: p_token1 => G_COL_NAME_TOKEN,
2191: -- start date is required:
2192: IF (p_chrv_rec.start_date IS NULL) OR
2193: (p_chrv_rec.start_date = OKL_API.G_MISS_DATE)
2194: THEN
2195: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2196: p_msg_name => G_REQUIRED_VALUE,
2197: p_token1 => G_COL_NAME_TOKEN,
2198: p_token1_value => 'Effective From');
2199: RAISE G_EXCEPTION_HALT_VALIDATION;
2212: --
2213: IF (l_row_found AND
2214: trunc(p_chrv_rec.start_date) > trunc(l_min_start_date))
2215: THEN
2216: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2217: p_msg_name => 'OKL_LESS_THAN',
2218: p_token1 => 'COL_NAME1',
2219: p_token1_value => 'Effective From',
2220: p_token2 => 'COL_NAME2',
2225:
2226: RETURN l_return_status;
2227: EXCEPTION
2228: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2229: l_return_status := OKL_API.G_RET_STS_ERROR;
2230: RETURN l_return_status;
2231: WHEN OTHERS THEN
2232: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2233: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2228: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2229: l_return_status := OKL_API.G_RET_STS_ERROR;
2230: RETURN l_return_status;
2231: WHEN OTHERS THEN
2232: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2233: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2234: p_msg_name => G_UNEXPECTED_ERROR,
2235: p_token1 => G_SQLCODE_TOKEN,
2236: p_token1_value => SQLCODE,
2229: l_return_status := OKL_API.G_RET_STS_ERROR;
2230: RETURN l_return_status;
2231: WHEN OTHERS THEN
2232: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2233: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2234: p_msg_name => G_UNEXPECTED_ERROR,
2235: p_token1 => G_SQLCODE_TOKEN,
2236: p_token1_value => SQLCODE,
2237: p_token2 => G_SQLERRM_TOKEN,
2245: p_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type
2246: ,p_mode VARCHAR2
2247: ) RETURN VARCHAR2
2248: IS
2249: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2250: l_max_start_date DATE;
2251: l_row_found boolean := false;
2252:
2253: -- 11-19-2003 cklee fixed sql performance bug
2261: BEGIN
2262:
2263: -- end date is required:
2264: IF (p_chrv_rec.end_date IS NULL) OR
2265: (p_chrv_rec.end_date = OKL_API.G_MISS_DATE)
2266: THEN
2267: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2268: p_msg_name => G_REQUIRED_VALUE,
2269: p_token1 => G_COL_NAME_TOKEN,
2263: -- end date is required:
2264: IF (p_chrv_rec.end_date IS NULL) OR
2265: (p_chrv_rec.end_date = OKL_API.G_MISS_DATE)
2266: THEN
2267: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2268: p_msg_name => G_REQUIRED_VALUE,
2269: p_token1 => G_COL_NAME_TOKEN,
2270: p_token1_value => 'Effective To');
2271: RAISE G_EXCEPTION_HALT_VALIDATION;
2272: END IF;
2273:
2274: IF (trunc(p_chrv_rec.end_date) < trunc(sysdate))
2275: THEN
2276: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2277: p_msg_name => 'OKL_LLA_RANGE_CHECK',
2278: p_token1 => 'COL_NAME1',
2279: p_token1_value => 'Effective To',
2280: p_token2 => 'COL_NAME2',
2296: --
2297: IF (l_row_found AND
2298: trunc(p_chrv_rec.end_date) < trunc(l_max_start_date))
2299: THEN
2300: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2301: p_msg_name => 'OKL_LLA_RANGE_CHECK',
2302: p_token1 => 'COL_NAME1',
2303: p_token1_value => 'Effective To',
2304: p_token2 => 'COL_NAME2',
2310:
2311: RETURN l_return_status;
2312: EXCEPTION
2313: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2314: l_return_status := OKL_API.G_RET_STS_ERROR;
2315: RETURN l_return_status;
2316: WHEN OTHERS THEN
2317: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2318: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2313: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2314: l_return_status := OKL_API.G_RET_STS_ERROR;
2315: RETURN l_return_status;
2316: WHEN OTHERS THEN
2317: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2318: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2319: p_msg_name => G_UNEXPECTED_ERROR,
2320: p_token1 => G_SQLCODE_TOKEN,
2321: p_token1_value => SQLCODE,
2314: l_return_status := OKL_API.G_RET_STS_ERROR;
2315: RETURN l_return_status;
2316: WHEN OTHERS THEN
2317: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2318: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2319: p_msg_name => G_UNEXPECTED_ERROR,
2320: p_token1 => G_SQLCODE_TOKEN,
2321: p_token1_value => SQLCODE,
2322: p_token2 => G_SQLERRM_TOKEN,
2331: p_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type
2332: ,p_mode VARCHAR2
2333: ) RETURN VARCHAR2
2334: IS
2335: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2336: l_header_start_date DATE;
2337:
2338: CURSOR c (p_chr_id NUMBER)
2339: IS
2355: END IF;
2356:
2357: IF (trunc(l_header_start_date) > trunc(p_chrv_rec.end_date))
2358: THEN
2359: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2360: p_msg_name => 'OKL_LLA_RANGE_CHECK',
2361: p_token1 => 'COL_NAME1',
2362: p_token1_value => 'Effective To',
2363: p_token2 => 'COL_NAME2',
2369: EXCEPTION
2370: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2371:
2372:
2373: l_return_status := OKL_API.G_RET_STS_ERROR;
2374: RETURN l_return_status;
2375: WHEN OTHERS THEN
2376: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2377: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2372:
2373: l_return_status := OKL_API.G_RET_STS_ERROR;
2374: RETURN l_return_status;
2375: WHEN OTHERS THEN
2376: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2377: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2378: p_msg_name => G_UNEXPECTED_ERROR,
2379: p_token1 => G_SQLCODE_TOKEN,
2380: p_token1_value => SQLCODE,
2373: l_return_status := OKL_API.G_RET_STS_ERROR;
2374: RETURN l_return_status;
2375: WHEN OTHERS THEN
2376: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2377: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2378: p_msg_name => G_UNEXPECTED_ERROR,
2379: p_token1 => G_SQLCODE_TOKEN,
2380: p_token1_value => SQLCODE,
2381: p_token2 => G_SQLERRM_TOKEN,
2388: FUNCTION validate_credit_amount(
2389: p_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type
2390: ) RETURN VARCHAR2
2391: IS
2392: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2393: l_amount NUMBER := 0;
2394: l_api_version NUMBER := 1.0;
2395: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
2396: x_return_status VARCHAR2(1);
2391: IS
2392: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2393: l_amount NUMBER := 0;
2394: l_api_version NUMBER := 1.0;
2395: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
2396: x_return_status VARCHAR2(1);
2397: x_msg_count NUMBER;
2398: x_msg_data VARCHAR2(2000);
2399: x_value NUMBER := 0;
2415: p_formula_name => 'CONTRACT_TOT_CRDT_LMT',
2416: p_contract_id => p_chrv_rec.id,
2417: x_value => x_value);
2418:
2419: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2420: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2421: x_value := 0;
2422: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2423: --RAISE OKL_API.G_EXCEPTION_ERROR;
2416: p_contract_id => p_chrv_rec.id,
2417: x_value => x_value);
2418:
2419: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2420: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2421: x_value := 0;
2422: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2423: --RAISE OKL_API.G_EXCEPTION_ERROR;
2424: x_value := 0;
2418:
2419: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2420: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2421: x_value := 0;
2422: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2423: --RAISE OKL_API.G_EXCEPTION_ERROR;
2424: x_value := 0;
2425: END IF;
2426:
2419: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2420: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2421: x_value := 0;
2422: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2423: --RAISE OKL_API.G_EXCEPTION_ERROR;
2424: x_value := 0;
2425: END IF;
2426:
2427: l_amount := x_value;
2427: l_amount := x_value;
2428:
2429: -- check amount
2430: IF (l_amount = 0 ) THEN
2431: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2432: p_msg_name => 'OKL_LLA_AMOUNT_CHECK');
2433: RAISE G_EXCEPTION_HALT_VALIDATION;
2434: END IF;
2435: END IF;
2436:
2437: RETURN l_return_status;
2438: EXCEPTION
2439: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2440: l_return_status := OKL_API.G_RET_STS_ERROR;
2441: RETURN l_return_status;
2442: WHEN OTHERS THEN
2443: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2444: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2439: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2440: l_return_status := OKL_API.G_RET_STS_ERROR;
2441: RETURN l_return_status;
2442: WHEN OTHERS THEN
2443: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2444: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2445: p_msg_name => G_UNEXPECTED_ERROR,
2446: p_token1 => G_SQLCODE_TOKEN,
2447: p_token1_value => SQLCODE,
2440: l_return_status := OKL_API.G_RET_STS_ERROR;
2441: RETURN l_return_status;
2442: WHEN OTHERS THEN
2443: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2444: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2445: p_msg_name => G_UNEXPECTED_ERROR,
2446: p_token1 => G_SQLCODE_TOKEN,
2447: p_token1_value => SQLCODE,
2448: p_token2 => G_SQLERRM_TOKEN,
2457: p_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type
2458: ,p_mode VARCHAR2
2459: ) RETURN VARCHAR2
2460: IS
2461: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2462: l_dummy VARCHAR2(1) := OKL_API.G_TRUE;
2463: l_currency_code okc_k_headers_b.currency_code%TYPE;
2464: l_amount OKL_K_LINES_FULL_V.AMOUNT%type;
2465:
2458: ,p_mode VARCHAR2
2459: ) RETURN VARCHAR2
2460: IS
2461: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2462: l_dummy VARCHAR2(1) := OKL_API.G_TRUE;
2463: l_currency_code okc_k_headers_b.currency_code%TYPE;
2464: l_amount OKL_K_LINES_FULL_V.AMOUNT%type;
2465:
2466: cursor c_old_curr
2480: BEGIN
2481:
2482: IF (p_mode = 'C') THEN
2483: IF (p_chrv_rec.currency_code IS NULL) OR
2484: (p_chrv_rec.currency_code = OKL_API.G_MISS_CHAR)
2485: THEN
2486: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2487: p_msg_name => G_REQUIRED_VALUE,
2488: p_token1 => G_COL_NAME_TOKEN,
2482: IF (p_mode = 'C') THEN
2483: IF (p_chrv_rec.currency_code IS NULL) OR
2484: (p_chrv_rec.currency_code = OKL_API.G_MISS_CHAR)
2485: THEN
2486: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2487: p_msg_name => G_REQUIRED_VALUE,
2488: p_token1 => G_COL_NAME_TOKEN,
2489: p_token1_value => 'Currency Code');
2490:
2501:
2502: -- check if no credit limit created then allow user to change the currency code
2503: -- message: You are not allow to change the currency if Total Credit Limit greater than 0
2504: IF l_amount > 0 AND l_currency_code <> p_chrv_rec.currency_code THEN
2505: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2506: p_msg_name => 'OKL_LA_CREDIT_CURRENCY_CHK');
2507: RAISE G_EXCEPTION_HALT_VALIDATION;
2508:
2509: END IF;
2511:
2512: RETURN l_return_status;
2513: EXCEPTION
2514: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2515: l_return_status := OKL_API.G_RET_STS_ERROR;
2516: RETURN l_return_status;
2517: WHEN OTHERS THEN
2518: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2519: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2514: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2515: l_return_status := OKL_API.G_RET_STS_ERROR;
2516: RETURN l_return_status;
2517: WHEN OTHERS THEN
2518: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2519: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2520: p_msg_name => G_UNEXPECTED_ERROR,
2521: p_token1 => G_SQLCODE_TOKEN,
2522: p_token1_value => SQLCODE,
2515: l_return_status := OKL_API.G_RET_STS_ERROR;
2516: RETURN l_return_status;
2517: WHEN OTHERS THEN
2518: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2519: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2520: p_msg_name => G_UNEXPECTED_ERROR,
2521: p_token1 => G_SQLCODE_TOKEN,
2522: p_token1_value => SQLCODE,
2523: p_token2 => G_SQLERRM_TOKEN,
2531: p_rulv_rec IN rulv_rec_type
2532: ,p_mode VARCHAR2
2533: ) RETURN VARCHAR2
2534: IS
2535: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2536: l_dummy VARCHAR2(1) := OKL_API.G_TRUE;
2537: l_dirty_row_found boolean;
2538: l_active_row_found boolean;
2539:
2532: ,p_mode VARCHAR2
2533: ) RETURN VARCHAR2
2534: IS
2535: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2536: l_dummy VARCHAR2(1) := OKL_API.G_TRUE;
2537: l_dirty_row_found boolean;
2538: l_active_row_found boolean;
2539:
2540: l_credit_checklist_tpl okc_rules_b.rule_information1%TYPE;
2615: CLOSE c_checklist_active;
2616:
2617: IF (l_credit_checklist_tpl IS NOT NULL and l_active_row_found) THEN
2618: -- You are not allow to change credit line checklist template if credit line checklist status is active.
2619: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2620: p_msg_name => 'OKL_LLA_CREDIT_CHKLST4');
2621:
2622: RAISE G_EXCEPTION_HALT_VALIDATION;
2623: END IF;
2631: CLOSE c_approver_dirty;
2632:
2633: IF (l_credit_checklist_tpl IS NOT NULL and l_dirty_row_found) THEN
2634: -- You are not allow to change credit line checklist template if credit line checklist mandatory flags have been check.
2635: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2636: p_msg_name => 'OKL_LLA_CREDIT_CHKLST2');
2637:
2638: RAISE G_EXCEPTION_HALT_VALIDATION;
2639: END IF;
2642:
2643: RETURN l_return_status;
2644: EXCEPTION
2645: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2646: l_return_status := OKL_API.G_RET_STS_ERROR;
2647: RETURN l_return_status;
2648: WHEN OTHERS THEN
2649: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2650: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2645: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2646: l_return_status := OKL_API.G_RET_STS_ERROR;
2647: RETURN l_return_status;
2648: WHEN OTHERS THEN
2649: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2650: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2651: p_msg_name => G_UNEXPECTED_ERROR,
2652: p_token1 => G_SQLCODE_TOKEN,
2653: p_token1_value => SQLCODE,
2646: l_return_status := OKL_API.G_RET_STS_ERROR;
2647: RETURN l_return_status;
2648: WHEN OTHERS THEN
2649: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2650: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2651: p_msg_name => G_UNEXPECTED_ERROR,
2652: p_token1 => G_SQLCODE_TOKEN,
2653: p_token1_value => SQLCODE,
2654: p_token2 => G_SQLERRM_TOKEN,
2663: p_rulv_rec IN rulv_rec_type
2664: ,p_mode VARCHAR2
2665: ) RETURN VARCHAR2
2666: IS
2667: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2668: l_dummy VARCHAR2(1) := OKL_API.G_TRUE;
2669:
2670: l_dirty_row_found boolean;
2671: l_active_row_found boolean;
2664: ,p_mode VARCHAR2
2665: ) RETURN VARCHAR2
2666: IS
2667: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2668: l_dummy VARCHAR2(1) := OKL_API.G_TRUE;
2669:
2670: l_dirty_row_found boolean;
2671: l_active_row_found boolean;
2672:
2751: CLOSE c_checklist_active;
2752:
2753: IF (l_funding_checklist_tpl IS NOT NULL and l_active_row_found) THEN
2754: -- You are not allowed to change funding request checklist template if funding request checklist template status is Active.
2755: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2756: p_msg_name => 'OKL_LLA_FUND_CHKLST_CHECK8');
2757:
2758: RAISE G_EXCEPTION_HALT_VALIDATION;
2759: END IF;
2767: CLOSE c_approver_dirty;
2768:
2769: IF (l_funding_checklist_tpl IS NOT NULL and l_dirty_row_found) THEN
2770: --You are not allowed to change credit line checklist template if credit line checklist mandatory flags have been check.
2771: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2772: p_msg_name => 'OKL_LLA_FUND_CHKLST_CHECK9');
2773:
2774: RAISE G_EXCEPTION_HALT_VALIDATION;
2775: END IF;
2778:
2779: RETURN l_return_status;
2780: EXCEPTION
2781: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2782: l_return_status := OKL_API.G_RET_STS_ERROR;
2783: RETURN l_return_status;
2784: WHEN OTHERS THEN
2785: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2786: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2781: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2782: l_return_status := OKL_API.G_RET_STS_ERROR;
2783: RETURN l_return_status;
2784: WHEN OTHERS THEN
2785: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2786: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2787: p_msg_name => G_UNEXPECTED_ERROR,
2788: p_token1 => G_SQLCODE_TOKEN,
2789: p_token1_value => SQLCODE,
2782: l_return_status := OKL_API.G_RET_STS_ERROR;
2783: RETURN l_return_status;
2784: WHEN OTHERS THEN
2785: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2786: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2787: p_msg_name => G_UNEXPECTED_ERROR,
2788: p_token1 => G_SQLCODE_TOKEN,
2789: p_token1_value => SQLCODE,
2790: p_token2 => G_SQLERRM_TOKEN,
2798: ,p_rulv_rec okl_rule_pub.rulv_rec_type
2799: ,p_mode VARCHAR2
2800: ) RETURN VARCHAR2
2801: IS
2802: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2803: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2804:
2805: BEGIN
2806:
2799: ,p_mode VARCHAR2
2800: ) RETURN VARCHAR2
2801: IS
2802: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2803: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2804:
2805: BEGIN
2806:
2807: -- Do formal attribute validation:
2806:
2807: -- Do formal attribute validation:
2808: l_return_status := validate_credit_number(p_chrv_rec, p_mode);
2809: --- Store the highest degree of error
2810: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2811: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2812: x_return_status := l_return_status;
2813: END IF;
2814: RAISE G_EXCEPTION_HALT_VALIDATION;
2807: -- Do formal attribute validation:
2808: l_return_status := validate_credit_number(p_chrv_rec, p_mode);
2809: --- Store the highest degree of error
2810: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2811: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2812: x_return_status := l_return_status;
2813: END IF;
2814: RAISE G_EXCEPTION_HALT_VALIDATION;
2815: END IF;
2815: END IF;
2816:
2817: l_return_status := validate_description(p_chrv_rec);
2818: --- Store the highest degree of error
2819: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2820: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2821: x_return_status := l_return_status;
2822: END IF;
2823: RAISE G_EXCEPTION_HALT_VALIDATION;
2816:
2817: l_return_status := validate_description(p_chrv_rec);
2818: --- Store the highest degree of error
2819: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2820: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2821: x_return_status := l_return_status;
2822: END IF;
2823: RAISE G_EXCEPTION_HALT_VALIDATION;
2824: END IF;
2824: END IF;
2825:
2826: l_return_status := validate_start_date(p_chrv_rec,p_mode);
2827: --- Store the highest degree of error
2828: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2829: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2830: x_return_status := l_return_status;
2831: END IF;
2832: RAISE G_EXCEPTION_HALT_VALIDATION;
2825:
2826: l_return_status := validate_start_date(p_chrv_rec,p_mode);
2827: --- Store the highest degree of error
2828: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2829: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2830: x_return_status := l_return_status;
2831: END IF;
2832: RAISE G_EXCEPTION_HALT_VALIDATION;
2833: END IF;
2833: END IF;
2834:
2835: l_return_status := validate_end_date(p_chrv_rec,p_mode);
2836: --- Store the highest degree of error
2837: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2838: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2839: x_return_status := l_return_status;
2840: END IF;
2841: RAISE G_EXCEPTION_HALT_VALIDATION;
2834:
2835: l_return_status := validate_end_date(p_chrv_rec,p_mode);
2836: --- Store the highest degree of error
2837: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2838: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2839: x_return_status := l_return_status;
2840: END IF;
2841: RAISE G_EXCEPTION_HALT_VALIDATION;
2842: END IF;
2842: END IF;
2843:
2844: l_return_status := validate_start_end_date(p_chrv_rec,p_mode);
2845: --- Store the highest degree of error
2846: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2847: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2848: x_return_status := l_return_status;
2849: END IF;
2850: RAISE G_EXCEPTION_HALT_VALIDATION;
2843:
2844: l_return_status := validate_start_end_date(p_chrv_rec,p_mode);
2845: --- Store the highest degree of error
2846: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2847: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2848: x_return_status := l_return_status;
2849: END IF;
2850: RAISE G_EXCEPTION_HALT_VALIDATION;
2851: END IF;
2851: END IF;
2852:
2853: l_return_status := validate_credit_amount(p_chrv_rec);
2854: --- Store the highest degree of error
2855: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2856: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2857: x_return_status := l_return_status;
2858: END IF;
2859: RAISE G_EXCEPTION_HALT_VALIDATION;
2852:
2853: l_return_status := validate_credit_amount(p_chrv_rec);
2854: --- Store the highest degree of error
2855: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2856: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2857: x_return_status := l_return_status;
2858: END IF;
2859: RAISE G_EXCEPTION_HALT_VALIDATION;
2860: END IF;
2862: -- multi-currency support
2863:
2864: l_return_status := validate_currency_code(p_chrv_rec,p_mode);
2865: --- Store the highest degree of error
2866: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2867:
2868: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2869: x_return_status := l_return_status;
2870: END IF;
2864: l_return_status := validate_currency_code(p_chrv_rec,p_mode);
2865: --- Store the highest degree of error
2866: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2867:
2868: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2869: x_return_status := l_return_status;
2870: END IF;
2871:
2872: RAISE G_EXCEPTION_HALT_VALIDATION;
2874: -- funding checklist for 11.5.9.x
2875:
2876: l_return_status := validate_credit_checklist(p_chrv_rec,p_rulv_rec,p_mode);
2877: --- Store the highest degree of error
2878: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2879: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2880: x_return_status := l_return_status;
2881: END IF;
2882: RAISE G_EXCEPTION_HALT_VALIDATION;
2875:
2876: l_return_status := validate_credit_checklist(p_chrv_rec,p_rulv_rec,p_mode);
2877: --- Store the highest degree of error
2878: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2879: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2880: x_return_status := l_return_status;
2881: END IF;
2882: RAISE G_EXCEPTION_HALT_VALIDATION;
2883: END IF;
2888: EXCEPTION
2889: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2890: RETURN x_return_status;
2891: WHEN OTHERS THEN
2892: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2893: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2894: p_msg_name => G_UNEXPECTED_ERROR,
2895: p_token1 => G_SQLCODE_TOKEN,
2896: p_token1_value => SQLCODE,
2889: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2890: RETURN x_return_status;
2891: WHEN OTHERS THEN
2892: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2893: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2894: p_msg_name => G_UNEXPECTED_ERROR,
2895: p_token1 => G_SQLCODE_TOKEN,
2896: p_token1_value => SQLCODE,
2897: p_token2 => G_SQLERRM_TOKEN,
2904: p_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type
2905: ,p_mode VARCHAR2
2906: ) RETURN VARCHAR2
2907: IS
2908: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2909: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2910:
2911: BEGIN
2912:
2905: ,p_mode VARCHAR2
2906: ) RETURN VARCHAR2
2907: IS
2908: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2909: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2910:
2911: BEGIN
2912:
2913: l_return_status := validate_description(p_chrv_rec);
2911: BEGIN
2912:
2913: l_return_status := validate_description(p_chrv_rec);
2914: --- Store the highest degree of error
2915: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2916: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2917: x_return_status := l_return_status;
2918: END IF;
2919: RAISE G_EXCEPTION_HALT_VALIDATION;
2912:
2913: l_return_status := validate_description(p_chrv_rec);
2914: --- Store the highest degree of error
2915: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2916: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2917: x_return_status := l_return_status;
2918: END IF;
2919: RAISE G_EXCEPTION_HALT_VALIDATION;
2920: END IF;
2920: END IF;
2921:
2922: l_return_status := validate_end_date(p_chrv_rec,p_mode);
2923: --- Store the highest degree of error
2924: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2925: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2926: x_return_status := l_return_status;
2927: END IF;
2928: RAISE G_EXCEPTION_HALT_VALIDATION;
2921:
2922: l_return_status := validate_end_date(p_chrv_rec,p_mode);
2923: --- Store the highest degree of error
2924: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2925: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2926: x_return_status := l_return_status;
2927: END IF;
2928: RAISE G_EXCEPTION_HALT_VALIDATION;
2929: END IF;
2929: END IF;
2930:
2931: l_return_status := validate_start_end_date(p_chrv_rec,p_mode);
2932: --- Store the highest degree of error
2933: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2934: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2935: x_return_status := l_return_status;
2936: END IF;
2937: RAISE G_EXCEPTION_HALT_VALIDATION;
2930:
2931: l_return_status := validate_start_end_date(p_chrv_rec,p_mode);
2932: --- Store the highest degree of error
2933: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2934: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2935: x_return_status := l_return_status;
2936: END IF;
2937: RAISE G_EXCEPTION_HALT_VALIDATION;
2938: END IF;
2941: EXCEPTION
2942: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2943: RETURN x_return_status;
2944: WHEN OTHERS THEN
2945: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2946: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2947: p_msg_name => G_UNEXPECTED_ERROR,
2948: p_token1 => G_SQLCODE_TOKEN,
2949: p_token1_value => SQLCODE,
2942: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2943: RETURN x_return_status;
2944: WHEN OTHERS THEN
2945: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2946: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2947: p_msg_name => G_UNEXPECTED_ERROR,
2948: p_token1 => G_SQLCODE_TOKEN,
2949: p_token1_value => SQLCODE,
2950: p_token2 => G_SQLERRM_TOKEN,
2961: ,p_customer_name VARCHAR2
2962: ) RETURN VARCHAR2
2963: IS
2964:
2965: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2966: l_existing_status VARCHAR2(1) := '?';
2967:
2968: CURSOR c (p_customer_name VARCHAR2)
2969: IS
2975: BEGIN
2976:
2977: -- start: cklee 03/24/2004
2978: IF (p_cplv_rec.object1_id1 IS NULL) OR
2979: (p_cplv_rec.object1_id1 = OKL_API.G_MISS_CHAR)
2980: THEN
2981: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2982: p_msg_name => G_REQUIRED_VALUE,
2983: p_token1 => G_COL_NAME_TOKEN,
2977: -- start: cklee 03/24/2004
2978: IF (p_cplv_rec.object1_id1 IS NULL) OR
2979: (p_cplv_rec.object1_id1 = OKL_API.G_MISS_CHAR)
2980: THEN
2981: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2982: p_msg_name => G_REQUIRED_VALUE,
2983: p_token1 => G_COL_NAME_TOKEN,
2984: p_token1_value => 'object1_id1');
2985: RAISE G_EXCEPTION_HALT_VALIDATION;
2985: RAISE G_EXCEPTION_HALT_VALIDATION;
2986: END IF;
2987:
2988: IF (p_cplv_rec.object1_id2 IS NULL) OR
2989: (p_cplv_rec.object1_id2 = OKL_API.G_MISS_CHAR)
2990: THEN
2991: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2992: p_msg_name => G_REQUIRED_VALUE,
2993: p_token1 => G_COL_NAME_TOKEN,
2987:
2988: IF (p_cplv_rec.object1_id2 IS NULL) OR
2989: (p_cplv_rec.object1_id2 = OKL_API.G_MISS_CHAR)
2990: THEN
2991: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2992: p_msg_name => G_REQUIRED_VALUE,
2993: p_token1 => G_COL_NAME_TOKEN,
2994: p_token1_value => 'object1_id2');
2995: RAISE G_EXCEPTION_HALT_VALIDATION;
2995: RAISE G_EXCEPTION_HALT_VALIDATION;
2996: END IF;
2997:
2998: IF (p_cplv_rec.jtot_object1_code IS NULL) OR
2999: (p_cplv_rec.jtot_object1_code = OKL_API.G_MISS_CHAR)
3000: THEN
3001: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3002: p_msg_name => G_REQUIRED_VALUE,
3003: p_token1 => G_COL_NAME_TOKEN,
2997:
2998: IF (p_cplv_rec.jtot_object1_code IS NULL) OR
2999: (p_cplv_rec.jtot_object1_code = OKL_API.G_MISS_CHAR)
3000: THEN
3001: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3002: p_msg_name => G_REQUIRED_VALUE,
3003: p_token1 => G_COL_NAME_TOKEN,
3004: p_token1_value => 'jtot_object1_code');
3005: RAISE G_EXCEPTION_HALT_VALIDATION;
3007: -- end: cklee 03/24/2004
3008:
3009:
3010: IF (p_customer_name IS NULL) OR
3011: (p_customer_name = OKL_API.G_MISS_CHAR)
3012: THEN
3013: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3014: p_msg_name => G_REQUIRED_VALUE,
3015: p_token1 => G_COL_NAME_TOKEN,
3009:
3010: IF (p_customer_name IS NULL) OR
3011: (p_customer_name = OKL_API.G_MISS_CHAR)
3012: THEN
3013: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3014: p_msg_name => G_REQUIRED_VALUE,
3015: p_token1 => G_COL_NAME_TOKEN,
3016: p_token1_value => 'Customer Name');
3017: RAISE G_EXCEPTION_HALT_VALIDATION;
3022: CLOSE c;
3023:
3024: IF (l_existing_status = '?' ) THEN
3025:
3026: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3027: p_msg_name => 'OKL_LLA_NO_DATA_FOUND',
3028: p_token1 => 'COL_NAME',
3029: p_token1_value => 'Customer Name ' || p_customer_name);
3030: RAISE G_EXCEPTION_HALT_VALIDATION;
3032:
3033: RETURN l_return_status;
3034: EXCEPTION
3035: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3036: l_return_status := OKL_API.G_RET_STS_ERROR;
3037: RETURN l_return_status;
3038: WHEN OTHERS THEN
3039: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3040: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3035: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3036: l_return_status := OKL_API.G_RET_STS_ERROR;
3037: RETURN l_return_status;
3038: WHEN OTHERS THEN
3039: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3040: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3041: p_msg_name => G_UNEXPECTED_ERROR,
3042: p_token1 => G_SQLCODE_TOKEN,
3043: p_token1_value => SQLCODE,
3036: l_return_status := OKL_API.G_RET_STS_ERROR;
3037: RETURN l_return_status;
3038: WHEN OTHERS THEN
3039: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3040: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3041: p_msg_name => G_UNEXPECTED_ERROR,
3042: p_token1 => G_SQLCODE_TOKEN,
3043: p_token1_value => SQLCODE,
3044: p_token2 => G_SQLERRM_TOKEN,
3053: p_cust_acct_number IN VARCHAR2
3054: ) RETURN VARCHAR2
3055: IS
3056:
3057: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3058: l_cust_acct_id number;
3059: l_notfound boolean;
3060:
3061: CURSOR c_acct(p_cust_acct_id number)
3075: BEGIN
3076:
3077: -- customer account # is not required
3078: IF (p_cust_acct_number IS NOT NULL AND
3079: p_cust_acct_number <> OKL_API.G_MISS_CHAR)
3080: THEN
3081:
3082: OPEN c_acct_num(p_cust_acct_number);
3083: FETCH c_acct_num INTO l_cust_acct_id;
3085: CLOSE c_acct_num;
3086:
3087: IF (l_notfound) THEN
3088:
3089: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3090: p_msg_name => 'OKL_LLA_NO_DATA_FOUND',
3091: p_token1 => 'COL_NAME',
3092: p_token1_value => 'Customer Account '|| p_cust_acct_number);
3093: RAISE G_EXCEPTION_HALT_VALIDATION;
3096: END IF;
3097:
3098: -- customer account # is not required
3099: IF (p_cust_acct_id IS NOT NULL AND
3100: p_cust_acct_id <> OKL_API.G_MISS_NUM)
3101: THEN
3102:
3103: OPEN c_acct(p_cust_acct_id);
3104: FETCH c_acct INTO l_cust_acct_id;
3106: CLOSE c_acct;
3107:
3108: IF (l_notfound) THEN
3109:
3110: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3111: p_msg_name => 'OKL_LLA_NO_DATA_FOUND',
3112: p_token1 => 'COL_NAME',
3113: p_token1_value => 'cust_acct_id '|| p_cust_acct_id);
3114: RAISE G_EXCEPTION_HALT_VALIDATION;
3118:
3119: RETURN l_return_status;
3120: EXCEPTION
3121: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3122: l_return_status := OKL_API.G_RET_STS_ERROR;
3123: RETURN l_return_status;
3124: WHEN OTHERS THEN
3125: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3126: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3121: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3122: l_return_status := OKL_API.G_RET_STS_ERROR;
3123: RETURN l_return_status;
3124: WHEN OTHERS THEN
3125: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3126: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3127: p_msg_name => G_UNEXPECTED_ERROR,
3128: p_token1 => G_SQLCODE_TOKEN,
3129: p_token1_value => SQLCODE,
3122: l_return_status := OKL_API.G_RET_STS_ERROR;
3123: RETURN l_return_status;
3124: WHEN OTHERS THEN
3125: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3126: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3127: p_msg_name => G_UNEXPECTED_ERROR,
3128: p_token1 => G_SQLCODE_TOKEN,
3129: p_token1_value => SQLCODE,
3130: p_token2 => G_SQLERRM_TOKEN,
3138: p_rulv_rec IN rulv_rec_type
3139: ,p_mode VARCHAR2
3140: ) RETURN VARCHAR2
3141: IS
3142: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3143: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3144:
3145: BEGIN
3146:
3139: ,p_mode VARCHAR2
3140: ) RETURN VARCHAR2
3141: IS
3142: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3143: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3144:
3145: BEGIN
3146:
3147: -- Do formal attribute validation:
3146:
3147: -- Do formal attribute validation:
3148: l_return_status := validate_crd_chklst_tpl(p_rulv_rec, p_mode);
3149: --- Store the highest degree of error
3150: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3151: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3152: x_return_status := l_return_status;
3153: END IF;
3154: RAISE G_EXCEPTION_HALT_VALIDATION;
3147: -- Do formal attribute validation:
3148: l_return_status := validate_crd_chklst_tpl(p_rulv_rec, p_mode);
3149: --- Store the highest degree of error
3150: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3151: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3152: x_return_status := l_return_status;
3153: END IF;
3154: RAISE G_EXCEPTION_HALT_VALIDATION;
3155: END IF;
3156:
3157: -- Do formal attribute validation:
3158: l_return_status := validate_fund_chklst_tpl(p_rulv_rec, p_mode);
3159: --- Store the highest degree of error
3160: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3161: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3162: x_return_status := l_return_status;
3163: END IF;
3164: RAISE G_EXCEPTION_HALT_VALIDATION;
3157: -- Do formal attribute validation:
3158: l_return_status := validate_fund_chklst_tpl(p_rulv_rec, p_mode);
3159: --- Store the highest degree of error
3160: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3161: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3162: x_return_status := l_return_status;
3163: END IF;
3164: RAISE G_EXCEPTION_HALT_VALIDATION;
3165: END IF;
3168: EXCEPTION
3169: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3170: RETURN x_return_status;
3171: WHEN OTHERS THEN
3172: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3173: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3174: p_msg_name => G_UNEXPECTED_ERROR,
3175: p_token1 => G_SQLCODE_TOKEN,
3176: p_token1_value => SQLCODE,
3169: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3170: RETURN x_return_status;
3171: WHEN OTHERS THEN
3172: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3173: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3174: p_msg_name => G_UNEXPECTED_ERROR,
3175: p_token1 => G_SQLCODE_TOKEN,
3176: p_token1_value => SQLCODE,
3177: p_token2 => G_SQLERRM_TOKEN,
3210:
3211: AS
3212: l_api_version CONSTANT NUMBER := 1.0;
3213: l_api_name VARCHAR2(30) := 'VALIDATE_CREDIT';
3214: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3215: l_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
3216: l_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
3217:
3218: lp_cplv_rec OKC_CONTRACT_PARTY_PUB.cplv_rec_type;
3382: p_account_number IN VARCHAR2)
3383: AS
3384: l_api_version CONSTANT NUMBER := 1.0;
3385: l_api_name VARCHAR2(30) := 'VALIDATE_ACCOUNT';
3386: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3387:
3388: BEGIN
3389:
3390: x_return_status := OKC_API.START_ACTIVITY(
3448: p_clev_rec IN okl_okc_migration_pvt.clev_rec_type,
3449: p_klev_rec IN klev_rec_type
3450: ) RETURN VARCHAR2
3451: IS
3452: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3453: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3454:
3455: BEGIN
3456:
3449: p_klev_rec IN klev_rec_type
3450: ) RETURN VARCHAR2
3451: IS
3452: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3453: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3454:
3455: BEGIN
3456:
3457: -- Do formal attribute validation:
3457: -- Do formal attribute validation:
3458: IF (upper(p_mode) <> 'DELETE') THEN
3459: l_return_status := validate_start_date(p_clev_rec,p_klev_rec);
3460: --- Store the highest degree of error
3461: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3462: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3463: x_return_status := l_return_status;
3464: END IF;
3465: RAISE G_EXCEPTION_HALT_VALIDATION;
3458: IF (upper(p_mode) <> 'DELETE') THEN
3459: l_return_status := validate_start_date(p_clev_rec,p_klev_rec);
3460: --- Store the highest degree of error
3461: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3462: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3463: x_return_status := l_return_status;
3464: END IF;
3465: RAISE G_EXCEPTION_HALT_VALIDATION;
3466: END IF;
3468: END IF;
3469:
3470: l_return_status := validate_amount(p_clev_rec, p_klev_rec);
3471: --- Store the highest degree of error
3472: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3473: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3474: x_return_status := l_return_status;
3475: END IF;
3476: RAISE G_EXCEPTION_HALT_VALIDATION;
3469:
3470: l_return_status := validate_amount(p_clev_rec, p_klev_rec);
3471: --- Store the highest degree of error
3472: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3473: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3474: x_return_status := l_return_status;
3475: END IF;
3476: RAISE G_EXCEPTION_HALT_VALIDATION;
3477: END IF;
3479: --un-comment by cklee 03/24/2004
3480: IF (upper(p_mode) = 'CREATE') THEN
3481: l_return_status := validate_credit_nature(p_clev_rec, p_klev_rec);
3482: --- Store the highest degree of error
3483: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3484: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3485: x_return_status := l_return_status;
3486: END IF;
3487: RAISE G_EXCEPTION_HALT_VALIDATION;
3480: IF (upper(p_mode) = 'CREATE') THEN
3481: l_return_status := validate_credit_nature(p_clev_rec, p_klev_rec);
3482: --- Store the highest degree of error
3483: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3484: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3485: x_return_status := l_return_status;
3486: END IF;
3487: RAISE G_EXCEPTION_HALT_VALIDATION;
3488: END IF;
3493: EXCEPTION
3494: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3495: RETURN x_return_status;
3496: WHEN OTHERS THEN
3497: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3498: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3499: p_msg_name => G_UNEXPECTED_ERROR,
3500: p_token1 => G_SQLCODE_TOKEN,
3501: p_token1_value => SQLCODE,
3494: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3495: RETURN x_return_status;
3496: WHEN OTHERS THEN
3497: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3498: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3499: p_msg_name => G_UNEXPECTED_ERROR,
3500: p_token1 => G_SQLCODE_TOKEN,
3501: p_token1_value => SQLCODE,
3502: p_token2 => G_SQLERRM_TOKEN,
3521: p_amount IN NUMBER)
3522: AS
3523: l_api_version CONSTANT NUMBER := 1.0;
3524: l_api_name VARCHAR2(30) := 'VALIDATE_CREDIT_LIMIT';
3525: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3526: l_clev_rec OKL_OKC_MIGRATION_PVT.clev_rec_type;
3527: l_klev_rec OKL_CONTRACT_PVT.klev_rec_type;
3528:
3529: BEGIN
3607: p_klev_rec IN klev_rec_type)
3608: AS
3609: l_api_version CONSTANT NUMBER := 1.0;
3610: l_api_name VARCHAR2(30) := 'VALIDATE_CREDIT_LIMIT1';
3611: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3612:
3613: BEGIN
3614: x_return_status := OKC_API.START_ACTIVITY(
3615: p_api_name => l_api_name,
3670: p_klev_tbl IN klev_tbl_type)
3671: AS
3672: l_api_version CONSTANT NUMBER := 1.0;
3673: l_api_name VARCHAR2(30) := 'VALIDATE_CREDIT_LIMIT2';
3674: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3675: l_clev_tbl okl_okc_migration_pvt.clev_tbl_type := p_clev_tbl;
3676: l_klev_tbl klev_tbl_type := p_klev_tbl;
3677: i NUMBER;
3678:
3764: is
3765: l_api_name CONSTANT VARCHAR2(30) := 'create_credit_header_pub';
3766: l_api_version CONSTANT NUMBER := 1.0;
3767: i NUMBER;
3768: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3769:
3770: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
3771: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
3772: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
3781: p_api_version,
3782: l_api_name,
3783: G_PKG_NAME ))
3784: THEN
3785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3786: END IF;
3787:
3788: -- Initialize message list if requested
3789: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
3792: END IF;
3793:
3794:
3795: -- Initialize API status to success
3796: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3797:
3798:
3799: /*** Begin API body ****************************************************/
3800: /*** End API body ******************************************************/
3804: (p_count => x_msg_count,
3805: p_data => x_msg_data);
3806:
3807: EXCEPTION
3808: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3809: ROLLBACK TO create_credit_header_pub;
3810: x_return_status := OKL_API.G_RET_STS_ERROR;
3811: FND_MSG_PUB.Count_And_Get
3812: (p_count => x_msg_count,
3806:
3807: EXCEPTION
3808: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3809: ROLLBACK TO create_credit_header_pub;
3810: x_return_status := OKL_API.G_RET_STS_ERROR;
3811: FND_MSG_PUB.Count_And_Get
3812: (p_count => x_msg_count,
3813: p_data => x_msg_data);
3814:
3811: FND_MSG_PUB.Count_And_Get
3812: (p_count => x_msg_count,
3813: p_data => x_msg_data);
3814:
3815: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3816: ROLLBACK TO create_credit_header_pub;
3817: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3818: FND_MSG_PUB.Count_And_Get
3819: (p_count => x_msg_count,
3813: p_data => x_msg_data);
3814:
3815: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3816: ROLLBACK TO create_credit_header_pub;
3817: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3818: FND_MSG_PUB.Count_And_Get
3819: (p_count => x_msg_count,
3820: p_data => x_msg_data);
3821:
3820: p_data => x_msg_data);
3821:
3822: WHEN OTHERS THEN
3823: ROLLBACK TO create_credit_header_pub;
3824: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3825: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3826: p_msg_name => G_UNEXPECTED_ERROR,
3827: p_token1 => G_SQLCODE_TOKEN,
3828: p_token1_value => SQLCODE,
3821:
3822: WHEN OTHERS THEN
3823: ROLLBACK TO create_credit_header_pub;
3824: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3825: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3826: p_msg_name => G_UNEXPECTED_ERROR,
3827: p_token1 => G_SQLCODE_TOKEN,
3828: p_token1_value => SQLCODE,
3829: p_token2 => G_SQLERRM_TOKEN,
3874:
3875: l_api_name CONSTANT VARCHAR2(30) := 'update_credit_header_pub';
3876: l_api_version CONSTANT NUMBER := 1.0;
3877: i NUMBER;
3878: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3879:
3880: -- multi-currency support
3881: lp_chrv_rec okl_okc_migration_pvt.chrv_rec_type := p_chrv_rec;
3882: lp_khrv_rec khrv_rec_type := p_khrv_rec;
3910: p_api_version,
3911: l_api_name,
3912: G_PKG_NAME ))
3913: THEN
3914: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3915: END IF;
3916:
3917: -- Initialize message list if requested
3918: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
3920: END IF;
3921:
3922: -- Initialize API status to success
3923:
3924: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3925:
3926:
3927: /*** Begin API body ****************************************************/
3928: -- vthiruva Code change to enable Business Event START
4046: x_msg_data => x_msg_data,
4047: p_id => lp_chrv_rec.id,
4048: p_event_name => G_WF_EVT_CR_LN_ACTIVATED);
4049:
4050: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4053: RAISE OKL_API.G_EXCEPTION_ERROR;
4054: END IF;
4047: p_id => lp_chrv_rec.id,
4048: p_event_name => G_WF_EVT_CR_LN_ACTIVATED);
4049:
4050: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4053: RAISE OKL_API.G_EXCEPTION_ERROR;
4054: END IF;
4055: ELSE
4048: p_event_name => G_WF_EVT_CR_LN_ACTIVATED);
4049:
4050: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4053: RAISE OKL_API.G_EXCEPTION_ERROR;
4054: END IF;
4055: ELSE
4056: --raise business event for credit line update
4049:
4050: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4053: RAISE OKL_API.G_EXCEPTION_ERROR;
4054: END IF;
4055: ELSE
4056: --raise business event for credit line update
4057: raise_business_event(p_api_version => p_api_version,
4061: x_msg_data => x_msg_data,
4062: p_id => lp_chrv_rec.id,
4063: p_event_name => G_WF_EVT_CR_LN_UPDATED);
4064:
4065: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4067: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4068: RAISE OKL_API.G_EXCEPTION_ERROR;
4069: END IF;
4062: p_id => lp_chrv_rec.id,
4063: p_event_name => G_WF_EVT_CR_LN_UPDATED);
4064:
4065: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4067: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4068: RAISE OKL_API.G_EXCEPTION_ERROR;
4069: END IF;
4070: END IF;
4063: p_event_name => G_WF_EVT_CR_LN_UPDATED);
4064:
4065: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4067: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4068: RAISE OKL_API.G_EXCEPTION_ERROR;
4069: END IF;
4070: END IF;
4071:
4064:
4065: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4067: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4068: RAISE OKL_API.G_EXCEPTION_ERROR;
4069: END IF;
4070: END IF;
4071:
4072: /*
4105: x_msg_count => x_msg_count,
4106: x_msg_data => x_msg_data,
4107: p_contract_id => lp_chrv_rec.id);
4108:
4109: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4110: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4111: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
4112: RAISE OKL_API.G_EXCEPTION_ERROR;
4113: END IF;
4106: x_msg_data => x_msg_data,
4107: p_contract_id => lp_chrv_rec.id);
4108:
4109: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4110: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4111: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
4112: RAISE OKL_API.G_EXCEPTION_ERROR;
4113: END IF;
4114:
4107: p_contract_id => lp_chrv_rec.id);
4108:
4109: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4110: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4111: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
4112: RAISE OKL_API.G_EXCEPTION_ERROR;
4113: END IF;
4114:
4115: END IF;
4108:
4109: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4110: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4111: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
4112: RAISE OKL_API.G_EXCEPTION_ERROR;
4113: END IF;
4114:
4115: END IF;
4116: -- end: 06-May-2005 cklee okl.h Lease App IA Authoring |
4124: (p_count => x_msg_count,
4125: p_data => x_msg_data);
4126:
4127: EXCEPTION
4128: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4129: ROLLBACK TO update_credit_header_pub;
4130: x_return_status := OKL_API.G_RET_STS_ERROR;
4131: FND_MSG_PUB.Count_And_Get
4132: (p_count => x_msg_count,
4126:
4127: EXCEPTION
4128: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4129: ROLLBACK TO update_credit_header_pub;
4130: x_return_status := OKL_API.G_RET_STS_ERROR;
4131: FND_MSG_PUB.Count_And_Get
4132: (p_count => x_msg_count,
4133: p_data => x_msg_data);
4134:
4132: (p_count => x_msg_count,
4133: p_data => x_msg_data);
4134:
4135:
4136: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4137: ROLLBACK TO update_credit_header_pub;
4138: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4139: FND_MSG_PUB.Count_And_Get
4140: (p_count => x_msg_count,
4134:
4135:
4136: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4137: ROLLBACK TO update_credit_header_pub;
4138: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4139: FND_MSG_PUB.Count_And_Get
4140: (p_count => x_msg_count,
4141: p_data => x_msg_data);
4142:
4141: p_data => x_msg_data);
4142:
4143: WHEN OTHERS THEN
4144: ROLLBACK TO update_credit_header_pub;
4145: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4146: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4147: p_msg_name => G_UNEXPECTED_ERROR,
4148: p_token1 => G_SQLCODE_TOKEN,
4149: p_token1_value => SQLCODE,
4142:
4143: WHEN OTHERS THEN
4144: ROLLBACK TO update_credit_header_pub;
4145: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4146: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4147: p_msg_name => G_UNEXPECTED_ERROR,
4148: p_token1 => G_SQLCODE_TOKEN,
4149: p_token1_value => SQLCODE,
4150: p_token2 => G_SQLERRM_TOKEN,
4349: is
4350: l_api_name CONSTANT VARCHAR2(30) := 'create_credit_limit_pub';
4351: l_api_version CONSTANT NUMBER := 1.0;
4352: i NUMBER;
4353: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4354: lp_clev_tbl okl_okc_migration_pvt.clev_tbl_type;
4355: lx_clev_tbl okl_okc_migration_pvt.clev_tbl_type;
4356:
4357: begin
4363: p_api_version,
4364: l_api_name,
4365: G_PKG_NAME ))
4366: THEN
4367: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4368: END IF;
4369:
4370: -- Initialize message list if requested
4371: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
4372: FND_MSG_PUB.initialize;
4373: END IF;
4374:
4375: -- Initialize API status to success
4376: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4377:
4378:
4379: /*** Begin API body ****************************************************/
4380:
4438: (p_count => x_msg_count,
4439: p_data => x_msg_data);
4440:
4441: EXCEPTION
4442: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4443: ROLLBACK TO create_credit_limit_pub;
4444: x_return_status := OKL_API.G_RET_STS_ERROR;
4445: FND_MSG_PUB.Count_And_Get
4446: (p_count => x_msg_count,
4440:
4441: EXCEPTION
4442: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4443: ROLLBACK TO create_credit_limit_pub;
4444: x_return_status := OKL_API.G_RET_STS_ERROR;
4445: FND_MSG_PUB.Count_And_Get
4446: (p_count => x_msg_count,
4447: p_data => x_msg_data);
4448:
4445: FND_MSG_PUB.Count_And_Get
4446: (p_count => x_msg_count,
4447: p_data => x_msg_data);
4448:
4449: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4450: ROLLBACK TO create_credit_limit_pub;
4451: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4452: FND_MSG_PUB.Count_And_Get
4453: (p_count => x_msg_count,
4447: p_data => x_msg_data);
4448:
4449: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4450: ROLLBACK TO create_credit_limit_pub;
4451: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4452: FND_MSG_PUB.Count_And_Get
4453: (p_count => x_msg_count,
4454: p_data => x_msg_data);
4455:
4454: p_data => x_msg_data);
4455:
4456: WHEN OTHERS THEN
4457: ROLLBACK TO create_credit_limit_pub;
4458: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4459: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4460: p_msg_name => G_UNEXPECTED_ERROR,
4461: p_token1 => G_SQLCODE_TOKEN,
4462: p_token1_value => SQLCODE,
4455:
4456: WHEN OTHERS THEN
4457: ROLLBACK TO create_credit_limit_pub;
4458: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4459: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4460: p_msg_name => G_UNEXPECTED_ERROR,
4461: p_token1 => G_SQLCODE_TOKEN,
4462: p_token1_value => SQLCODE,
4463: p_token2 => G_SQLERRM_TOKEN,
4483: l_return_val BOOLEAN;
4484: BEGIN
4485: l_return_val := FALSE;
4486: -- if the value in the database is NULL and the value passed from UI is not null
4487: IF(p_old_val IS NULL AND (p_new_val IS NOT NULL AND p_new_val <> OKL_API.G_MISS_CHAR)) THEN
4488: l_return_val := TRUE;
4489: -- if the value in the database is not null and the value passed from UI is NULL
4490: ELSIF(p_old_val IS NOT NULL AND (p_new_val IS NULL OR p_new_val = OKL_API.G_MISS_CHAR)) THEN
4491: l_return_val := TRUE;
4486: -- if the value in the database is NULL and the value passed from UI is not null
4487: IF(p_old_val IS NULL AND (p_new_val IS NOT NULL AND p_new_val <> OKL_API.G_MISS_CHAR)) THEN
4488: l_return_val := TRUE;
4489: -- if the value in the database is not null and the value passed from UI is NULL
4490: ELSIF(p_old_val IS NOT NULL AND (p_new_val IS NULL OR p_new_val = OKL_API.G_MISS_CHAR)) THEN
4491: l_return_val := TRUE;
4492: -- if the value in the database and the value passed from the database are not null and not equal
4493: ELSIF(p_old_val IS NOT NULL AND (p_new_val IS NOT NULL AND p_new_val <> OKL_API.G_MISS_CHAR)) THEN
4494: IF(p_old_val <> p_new_val) THEN
4489: -- if the value in the database is not null and the value passed from UI is NULL
4490: ELSIF(p_old_val IS NOT NULL AND (p_new_val IS NULL OR p_new_val = OKL_API.G_MISS_CHAR)) THEN
4491: l_return_val := TRUE;
4492: -- if the value in the database and the value passed from the database are not null and not equal
4493: ELSIF(p_old_val IS NOT NULL AND (p_new_val IS NOT NULL AND p_new_val <> OKL_API.G_MISS_CHAR)) THEN
4494: IF(p_old_val <> p_new_val) THEN
4495: l_return_val := TRUE;
4496: END IF;
4497: END IF;
4515: l_return_val BOOLEAN;
4516: BEGIN
4517: l_return_val := FALSE;
4518: -- if the value in the database is NULL and the value passed from UI is not null
4519: IF(p_old_val IS NULL AND (p_new_val IS NOT NULL AND p_new_val <> OKL_API.G_MISS_NUM)) THEN
4520: l_return_val := TRUE;
4521: -- if the value in the database is not null and the value passed from UI is NULL
4522: ELSIF(p_old_val IS NOT NULL AND (p_new_val IS NULL OR p_new_val = OKL_API.G_MISS_NUM)) THEN
4523: l_return_val := TRUE;
4518: -- if the value in the database is NULL and the value passed from UI is not null
4519: IF(p_old_val IS NULL AND (p_new_val IS NOT NULL AND p_new_val <> OKL_API.G_MISS_NUM)) THEN
4520: l_return_val := TRUE;
4521: -- if the value in the database is not null and the value passed from UI is NULL
4522: ELSIF(p_old_val IS NOT NULL AND (p_new_val IS NULL OR p_new_val = OKL_API.G_MISS_NUM)) THEN
4523: l_return_val := TRUE;
4524: -- if the value in the database and the value passed from the database are not null and not equal
4525: ELSIF(p_old_val IS NOT NULL AND (p_new_val IS NOT NULL AND p_new_val <> OKL_API.G_MISS_NUM)) THEN
4526: IF(p_old_val <> p_new_val) THEN
4521: -- if the value in the database is not null and the value passed from UI is NULL
4522: ELSIF(p_old_val IS NOT NULL AND (p_new_val IS NULL OR p_new_val = OKL_API.G_MISS_NUM)) THEN
4523: l_return_val := TRUE;
4524: -- if the value in the database and the value passed from the database are not null and not equal
4525: ELSIF(p_old_val IS NOT NULL AND (p_new_val IS NOT NULL AND p_new_val <> OKL_API.G_MISS_NUM)) THEN
4526: IF(p_old_val <> p_new_val) THEN
4527: l_return_val := TRUE;
4528: END IF;
4529: END IF;
4547: l_return_val BOOLEAN;
4548: BEGIN
4549: l_return_val := FALSE;
4550: -- if the value in the database is NULL and the value passed from UI is not null
4551: IF(p_old_val IS NULL AND (p_new_val IS NOT NULL AND p_new_val <> OKL_API.G_MISS_DATE)) THEN
4552: l_return_val := TRUE;
4553: -- if the value in the database is not null and the value passed from UI is NULL
4554: ELSIF(p_old_val IS NOT NULL AND (p_new_val IS NULL OR p_new_val = OKL_API.G_MISS_DATE)) THEN
4555: l_return_val := TRUE;
4550: -- if the value in the database is NULL and the value passed from UI is not null
4551: IF(p_old_val IS NULL AND (p_new_val IS NOT NULL AND p_new_val <> OKL_API.G_MISS_DATE)) THEN
4552: l_return_val := TRUE;
4553: -- if the value in the database is not null and the value passed from UI is NULL
4554: ELSIF(p_old_val IS NOT NULL AND (p_new_val IS NULL OR p_new_val = OKL_API.G_MISS_DATE)) THEN
4555: l_return_val := TRUE;
4556: -- if the value in the database and the value passed from the database are not null and not equal
4557: ELSIF(p_old_val IS NOT NULL AND (p_new_val IS NOT NULL AND p_new_val <> OKL_API.G_MISS_DATE)) THEN
4558: IF(p_old_val <> p_new_val) THEN
4553: -- if the value in the database is not null and the value passed from UI is NULL
4554: ELSIF(p_old_val IS NOT NULL AND (p_new_val IS NULL OR p_new_val = OKL_API.G_MISS_DATE)) THEN
4555: l_return_val := TRUE;
4556: -- if the value in the database and the value passed from the database are not null and not equal
4557: ELSIF(p_old_val IS NOT NULL AND (p_new_val IS NOT NULL AND p_new_val <> OKL_API.G_MISS_DATE)) THEN
4558: IF(p_old_val <> p_new_val) THEN
4559: l_return_val := TRUE;
4560: END IF;
4561: END IF;
4643: is
4644: l_api_name CONSTANT VARCHAR2(30) := 'update_credit_limit_pub';
4645: l_api_version CONSTANT NUMBER := 1.0;
4646: i NUMBER;
4647: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4648: lp_clev_tbl okl_okc_migration_pvt.clev_tbl_type;
4649: lx_clev_tbl okl_okc_migration_pvt.clev_tbl_type;
4650:
4651: -- rabhupat bug 4435390 start (cklee okl.h Bug 4506351 (okl.g bug#4435390))
4648: lp_clev_tbl okl_okc_migration_pvt.clev_tbl_type;
4649: lx_clev_tbl okl_okc_migration_pvt.clev_tbl_type;
4650:
4651: -- rabhupat bug 4435390 start (cklee okl.h Bug 4506351 (okl.g bug#4435390))
4652: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4653: -- rabhupat bug 4435390 end (cklee okl.h Bug 4506351 (okl.g bug#4435390))
4654:
4655: begin
4656: -- Set API savepoint
4661: p_api_version,
4662: l_api_name,
4663: G_PKG_NAME ))
4664: THEN
4665: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4666: END IF;
4667:
4668: -- Initialize message list if requested
4669: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
4670: FND_MSG_PUB.initialize;
4671: END IF;
4672:
4673: -- Initialize API status to success
4674: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4675:
4676:
4677: /*** Begin API body ****************************************************/
4678:
4725: p_clev_rec => lp_clev_tbl(i),
4726: p_klev_rec => p_klev_tbl(i),
4727: x_clev_rec => lx_clev_tbl(i),
4728: x_klev_rec => x_klev_tbl(i));
4729: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
4730: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
4731: l_overall_status := x_return_status;
4732: End If;
4733: End If;
4726: p_klev_rec => p_klev_tbl(i),
4727: x_clev_rec => lx_clev_tbl(i),
4728: x_klev_rec => x_klev_tbl(i));
4729: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
4730: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
4731: l_overall_status := x_return_status;
4732: End If;
4733: End If;
4734: END IF;
4764: (p_count => x_msg_count,
4765: p_data => x_msg_data);
4766:
4767: EXCEPTION
4768: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4769: ROLLBACK TO update_credit_limit_pub;
4770: x_return_status := OKL_API.G_RET_STS_ERROR;
4771: FND_MSG_PUB.Count_And_Get
4772: (p_count => x_msg_count,
4766:
4767: EXCEPTION
4768: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4769: ROLLBACK TO update_credit_limit_pub;
4770: x_return_status := OKL_API.G_RET_STS_ERROR;
4771: FND_MSG_PUB.Count_And_Get
4772: (p_count => x_msg_count,
4773: p_data => x_msg_data);
4774:
4771: FND_MSG_PUB.Count_And_Get
4772: (p_count => x_msg_count,
4773: p_data => x_msg_data);
4774:
4775: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4776: ROLLBACK TO update_credit_limit_pub;
4777: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4778:
4779: FND_MSG_PUB.Count_And_Get
4773: p_data => x_msg_data);
4774:
4775: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4776: ROLLBACK TO update_credit_limit_pub;
4777: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4778:
4779: FND_MSG_PUB.Count_And_Get
4780: (p_count => x_msg_count,
4781: p_data => x_msg_data);
4781: p_data => x_msg_data);
4782:
4783: WHEN OTHERS THEN
4784: ROLLBACK TO update_credit_limit_pub;
4785: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4786: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4787: p_msg_name => G_UNEXPECTED_ERROR,
4788: p_token1 => G_SQLCODE_TOKEN,
4789: p_token1_value => SQLCODE,
4782:
4783: WHEN OTHERS THEN
4784: ROLLBACK TO update_credit_limit_pub;
4785: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4786: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4787: p_msg_name => G_UNEXPECTED_ERROR,
4788: p_token1 => G_SQLCODE_TOKEN,
4789: p_token1_value => SQLCODE,
4790: p_token2 => G_SQLERRM_TOKEN,
4818:
4819: l_api_name CONSTANT VARCHAR2(30) := 'delete_credit_limit_pub';
4820: l_api_version CONSTANT NUMBER := 1.0;
4821: i NUMBER;
4822: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4823: lp_clev_tbl okl_okc_migration_pvt.clev_tbl_type;
4824: -- lx_clev_tbl okl_okc_migration_pvt.clev_tbl_type;
4825:
4826: begin
4833: p_api_version,
4834: l_api_name,
4835: G_PKG_NAME ))
4836: THEN
4837: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4838: END IF;
4839:
4840: -- Initialize message list if requested
4841: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
4842: FND_MSG_PUB.initialize;
4843: END IF;
4844:
4845: -- Initialize API status to success
4846: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4847:
4848:
4849: /*** Begin API body ****************************************************/
4850:
4905: p_data => x_msg_data);
4906:
4907:
4908: EXCEPTION
4909: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4910: ROLLBACK TO delete_credit_limit_pub;
4911: x_return_status := OKL_API.G_RET_STS_ERROR;
4912: FND_MSG_PUB.Count_And_Get
4913: (p_count => x_msg_count,
4907:
4908: EXCEPTION
4909: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4910: ROLLBACK TO delete_credit_limit_pub;
4911: x_return_status := OKL_API.G_RET_STS_ERROR;
4912: FND_MSG_PUB.Count_And_Get
4913: (p_count => x_msg_count,
4914: p_data => x_msg_data);
4915:
4912: FND_MSG_PUB.Count_And_Get
4913: (p_count => x_msg_count,
4914: p_data => x_msg_data);
4915:
4916: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4917: ROLLBACK TO delete_credit_limit_pub;
4918: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4919: FND_MSG_PUB.Count_And_Get
4920: (p_count => x_msg_count,
4914: p_data => x_msg_data);
4915:
4916: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4917: ROLLBACK TO delete_credit_limit_pub;
4918: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4919: FND_MSG_PUB.Count_And_Get
4920: (p_count => x_msg_count,
4921: p_data => x_msg_data);
4922:
4921: p_data => x_msg_data);
4922:
4923: WHEN OTHERS THEN
4924: ROLLBACK TO delete_credit_limit_pub;
4925: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4926: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4927: p_msg_name => G_UNEXPECTED_ERROR,
4928: p_token1 => G_SQLCODE_TOKEN,
4929: p_token1_value => SQLCODE,
4922:
4923: WHEN OTHERS THEN
4924: ROLLBACK TO delete_credit_limit_pub;
4925: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4926: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4927: p_msg_name => G_UNEXPECTED_ERROR,
4928: p_token1 => G_SQLCODE_TOKEN,
4929: p_token1_value => SQLCODE,
4930: p_token2 => G_SQLERRM_TOKEN,
4959: As
4960: l_api_name CONSTANT VARCHAR2(30) := 'create_credit_pub';
4961: l_api_version CONSTANT NUMBER := 1.0;
4962: i NUMBER;
4963: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4964: l_effective_from DATE;
4965: l_sts_code VARCHAR2(30);
4966:
4967: lp_clev_tbl clev_tbl_type;
5042: p_api_version,
5043: l_api_name,
5044: G_PKG_NAME ))
5045: THEN
5046: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5047: END IF;
5048:
5049: -- Initialize message list if requested
5050: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
5051: FND_MSG_PUB.initialize;
5052: END IF;
5053:
5054: -- Initialize API status to success
5055: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5056:
5057:
5058: /*** Begin API body ****************************************************/
5059:
5201: (p_count => x_msg_count,
5202: p_data => x_msg_data);
5203:
5204: EXCEPTION
5205: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5206: ROLLBACK TO create_credit_pub;
5207: x_return_status := OKL_API.G_RET_STS_ERROR;
5208: FND_MSG_PUB.Count_And_Get
5209: (p_count => x_msg_count,
5203:
5204: EXCEPTION
5205: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5206: ROLLBACK TO create_credit_pub;
5207: x_return_status := OKL_API.G_RET_STS_ERROR;
5208: FND_MSG_PUB.Count_And_Get
5209: (p_count => x_msg_count,
5210: p_data => x_msg_data);
5211:
5208: FND_MSG_PUB.Count_And_Get
5209: (p_count => x_msg_count,
5210: p_data => x_msg_data);
5211:
5212: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5213: ROLLBACK TO create_credit_pub;
5214: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5215: FND_MSG_PUB.Count_And_Get
5216: (p_count => x_msg_count,
5210: p_data => x_msg_data);
5211:
5212: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5213: ROLLBACK TO create_credit_pub;
5214: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5215: FND_MSG_PUB.Count_And_Get
5216: (p_count => x_msg_count,
5217: p_data => x_msg_data);
5218:
5217: p_data => x_msg_data);
5218:
5219: WHEN OTHERS THEN
5220: ROLLBACK TO create_credit_pub;
5221: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5222: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5223: p_msg_name => G_UNEXPECTED_ERROR,
5224: p_token1 => G_SQLCODE_TOKEN,
5225: p_token1_value => SQLCODE,
5218:
5219: WHEN OTHERS THEN
5220: ROLLBACK TO create_credit_pub;
5221: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5222: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5223: p_msg_name => G_UNEXPECTED_ERROR,
5224: p_token1 => G_SQLCODE_TOKEN,
5225: p_token1_value => SQLCODE,
5226: p_token2 => G_SQLERRM_TOKEN,
5298:
5299: l_api_version CONSTANT NUMBER := 1.0;
5300:
5301: l_api_name VARCHAR2(30) := 'CREATE_CREDIT';
5302: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5303:
5304: CURSOR role_csr(p_rle_code VARCHAR2) IS
5305: Select access_level
5306: from OKC_ROLE_SOURCES
5551: x_msg_data => x_msg_data,
5552: p_id => lx_chrv_rec.id,
5553: p_event_name => G_WF_EVT_CR_LN_CREATED);
5554:
5555: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5557: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5558: RAISE OKL_API.G_EXCEPTION_ERROR;
5559: END IF;
5552: p_id => lx_chrv_rec.id,
5553: p_event_name => G_WF_EVT_CR_LN_CREATED);
5554:
5555: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5557: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5558: RAISE OKL_API.G_EXCEPTION_ERROR;
5559: END IF;
5560: END IF;
5553: p_event_name => G_WF_EVT_CR_LN_CREATED);
5554:
5555: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5557: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5558: RAISE OKL_API.G_EXCEPTION_ERROR;
5559: END IF;
5560: END IF;
5561:
5554:
5555: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5557: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5558: RAISE OKL_API.G_EXCEPTION_ERROR;
5559: END IF;
5560: END IF;
5561:
5562: /*
5626:
5627: RETURN l_amount;
5628: EXCEPTION
5629: WHEN OTHERS THEN
5630: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5631: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
5632: p_msg_name => 'OKL_UNEXPECTED_ERROR',
5633: p_token1 => 'OKL_SQLCODE',
5634: p_token1_value => SQLCODE,
5627: RETURN l_amount;
5628: EXCEPTION
5629: WHEN OTHERS THEN
5630: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5631: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
5632: p_msg_name => 'OKL_UNEXPECTED_ERROR',
5633: p_token1 => 'OKL_SQLCODE',
5634: p_token1_value => SQLCODE,
5635: p_token2 => 'OKL_SQLERRM',
5666:
5667: RETURN l_amount;
5668: EXCEPTION
5669: WHEN OTHERS THEN
5670: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5671: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
5672: p_msg_name => 'OKL_UNEXPECTED_ERROR',
5673: p_token1 => 'OKL_SQLCODE',
5674: p_token1_value => SQLCODE,
5667: RETURN l_amount;
5668: EXCEPTION
5669: WHEN OTHERS THEN
5670: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5671: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
5672: p_msg_name => 'OKL_UNEXPECTED_ERROR',
5673: p_token1 => 'OKL_SQLCODE',
5674: p_token1_value => SQLCODE,
5675: p_token2 => 'OKL_SQLERRM',
5712:
5713: RETURN l_amount;
5714: EXCEPTION
5715: WHEN OTHERS THEN
5716: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5717: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
5718: p_msg_name => 'OKL_UNEXPECTED_ERROR',
5719: p_token1 => 'OKL_SQLCODE',
5720: p_token1_value => SQLCODE,
5713: RETURN l_amount;
5714: EXCEPTION
5715: WHEN OTHERS THEN
5716: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5717: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
5718: p_msg_name => 'OKL_UNEXPECTED_ERROR',
5719: p_token1 => 'OKL_SQLCODE',
5720: p_token1_value => SQLCODE,
5721: p_token2 => 'OKL_SQLERRM',
5757:
5758: RETURN l_amount;
5759: EXCEPTION
5760: WHEN OTHERS THEN
5761: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5762: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
5763: p_msg_name => 'OKL_UNEXPECTED_ERROR',
5764: p_token1 => 'OKL_SQLCODE',
5765: p_token1_value => SQLCODE,
5758: RETURN l_amount;
5759: EXCEPTION
5760: WHEN OTHERS THEN
5761: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5762: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
5763: p_msg_name => 'OKL_UNEXPECTED_ERROR',
5764: p_token1 => 'OKL_SQLCODE',
5765: p_token1_value => SQLCODE,
5766: p_token2 => 'OKL_SQLERRM',
5803:
5804: RETURN l_amount;
5805: EXCEPTION
5806: WHEN OTHERS THEN
5807: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5808: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
5809: p_msg_name => 'OKL_UNEXPECTED_ERROR',
5810: p_token1 => 'OKL_SQLCODE',
5811: p_token1_value => SQLCODE,
5804: RETURN l_amount;
5805: EXCEPTION
5806: WHEN OTHERS THEN
5807: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5808: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
5809: p_msg_name => 'OKL_UNEXPECTED_ERROR',
5810: p_token1 => 'OKL_SQLCODE',
5811: p_token1_value => SQLCODE,
5812: p_token2 => 'OKL_SQLERRM',
5858:
5859: RETURN l_number;
5860: EXCEPTION
5861: WHEN OTHERS THEN
5862: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5863: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
5864: p_msg_name => 'OKL_UNEXPECTED_ERROR',
5865: p_token1 => 'OKL_SQLCODE',
5866: p_token1_value => SQLCODE,
5859: RETURN l_number;
5860: EXCEPTION
5861: WHEN OTHERS THEN
5862: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5863: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
5864: p_msg_name => 'OKL_UNEXPECTED_ERROR',
5865: p_token1 => 'OKL_SQLCODE',
5866: p_token1_value => SQLCODE,
5867: p_token2 => 'OKL_SQLERRM',
5951: END IF;
5952:
5953: EXCEPTION
5954: WHEN OTHERS THEN
5955: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5956: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
5957: p_msg_name => 'OKL_UNEXPECTED_ERROR',
5958: p_token1 => 'OKL_SQLCODE',
5959: p_token1_value => SQLCODE,
5952:
5953: EXCEPTION
5954: WHEN OTHERS THEN
5955: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5956: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
5957: p_msg_name => 'OKL_UNEXPECTED_ERROR',
5958: p_token1 => 'OKL_SQLCODE',
5959: p_token1_value => SQLCODE,
5960: p_token2 => 'OKL_SQLERRM',
6029: RETURN l_credit_id;
6030:
6031: EXCEPTION
6032: WHEN OTHERS THEN
6033: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6034: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
6035: p_msg_name => 'OKL_UNEXPECTED_ERROR',
6036: p_token1 => 'OKL_SQLCODE',
6037: p_token1_value => SQLCODE,
6030:
6031: EXCEPTION
6032: WHEN OTHERS THEN
6033: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6034: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
6035: p_msg_name => 'OKL_UNEXPECTED_ERROR',
6036: p_token1 => 'OKL_SQLCODE',
6037: p_token1_value => SQLCODE,
6038: p_token2 => 'OKL_SQLERRM',
6055: is
6056: l_api_name CONSTANT VARCHAR2(30) := 'update_credit_line_status';
6057: l_api_version CONSTANT NUMBER := 1.0;
6058: i NUMBER;
6059: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6060:
6061: lp_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
6062: lp_khrv_rec khrv_rec_type;
6063: lx_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
6072: p_api_version,
6073: l_api_name,
6074: G_PKG_NAME ))
6075: THEN
6076: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6077: END IF;
6078:
6079: -- Initialize message list if requested
6080: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
6081: FND_MSG_PUB.initialize;
6082: END IF;
6083:
6084: -- Initialize API status to success
6085: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6086:
6087:
6088: /*** Begin API body ****************************************************/
6089: -- set values
6097: lp_chrv_rec.sts_code := 'ACTIVE';
6098:
6099: ELSIF (p_status_code NOT IN ('SUBMITTED', 'APPROVED','PENDING_APPROVAL','DECLINED')) THEN
6100:
6101: OKL_API.Set_Message(p_app_name => G_APP_NAME,
6102: p_msg_name => G_INVALID_VALUE,
6103: p_token1 => G_COL_NAME_TOKEN,
6104: p_token1_value => p_status_code);
6105:
6134: (p_count => x_msg_count,
6135: p_data => x_msg_data);
6136:
6137: EXCEPTION
6138: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6139: ROLLBACK TO update_credit_line_status;
6140: x_return_status := OKL_API.G_RET_STS_ERROR;
6141: x_status_code := lx_chrv_rec.sts_code;
6142:
6136:
6137: EXCEPTION
6138: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6139: ROLLBACK TO update_credit_line_status;
6140: x_return_status := OKL_API.G_RET_STS_ERROR;
6141: x_status_code := lx_chrv_rec.sts_code;
6142:
6143: FND_MSG_PUB.Count_And_Get
6144: (p_count => x_msg_count,
6143: FND_MSG_PUB.Count_And_Get
6144: (p_count => x_msg_count,
6145: p_data => x_msg_data);
6146:
6147: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6148: ROLLBACK TO update_credit_line_status;
6149: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6150: x_status_code := lx_chrv_rec.sts_code;
6151:
6145: p_data => x_msg_data);
6146:
6147: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6148: ROLLBACK TO update_credit_line_status;
6149: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6150: x_status_code := lx_chrv_rec.sts_code;
6151:
6152: FND_MSG_PUB.Count_And_Get
6153: (p_count => x_msg_count,
6154: p_data => x_msg_data);
6155:
6156: WHEN OTHERS THEN
6157: ROLLBACK TO update_credit_line_status;
6158: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6159: x_status_code := lx_chrv_rec.sts_code;
6160:
6161: OKL_API.Set_Message(p_app_name => G_APP_NAME,
6162: p_msg_name => G_UNEXPECTED_ERROR,
6157: ROLLBACK TO update_credit_line_status;
6158: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6159: x_status_code := lx_chrv_rec.sts_code;
6160:
6161: OKL_API.Set_Message(p_app_name => G_APP_NAME,
6162: p_msg_name => G_UNEXPECTED_ERROR,
6163: p_token1 => G_SQLCODE_TOKEN,
6164: p_token1_value => SQLCODE,
6165: p_token2 => G_SQLERRM_TOKEN,
6190: ) is
6191: l_api_name CONSTANT VARCHAR2(30) := 'update_checklist_function';
6192: l_api_version CONSTANT NUMBER := 1.0;
6193: i NUMBER;
6194: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6195: l_dummy number;
6196:
6197: l_row_not_found boolean := false;
6198:
6227: p_api_version,
6228: l_api_name,
6229: G_PKG_NAME ))
6230: THEN
6231: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6232: END IF;
6233:
6234: -- Initialize message list if requested
6235: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
6236: FND_MSG_PUB.initialize;
6237: END IF;
6238:
6239: -- Initialize API status to success
6240: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6241:
6242:
6243: /*** Begin API body ****************************************************/
6244:
6264: lp_msg_data := r_this_row.FUNCTION_SOURCE || ' returns: ' || lp_return_status;
6265: END IF;
6266:
6267: EXCEPTION
6268: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6269: lp_fund_rst := 'ERROR';
6270: FND_MSG_PUB.Count_And_Get
6271: (p_count => x_msg_count,
6272: p_data => x_msg_data);
6271: (p_count => x_msg_count,
6272: p_data => x_msg_data);
6273: lp_msg_data := substr('Application error: ' || x_msg_data, 240);
6274:
6275: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6276: lp_fund_rst := 'ERROR';
6277: FND_MSG_PUB.Count_And_Get
6278: (p_count => x_msg_count,
6279: p_data => x_msg_data);
6318: (p_count => x_msg_count,
6319: p_data => x_msg_data);
6320:
6321: EXCEPTION
6322: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6323: ROLLBACK TO update_checklist_function;
6324: x_return_status := OKL_API.G_RET_STS_ERROR;
6325: FND_MSG_PUB.Count_And_Get
6326: (p_count => x_msg_count,
6320:
6321: EXCEPTION
6322: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6323: ROLLBACK TO update_checklist_function;
6324: x_return_status := OKL_API.G_RET_STS_ERROR;
6325: FND_MSG_PUB.Count_And_Get
6326: (p_count => x_msg_count,
6327: p_data => x_msg_data);
6328:
6325: FND_MSG_PUB.Count_And_Get
6326: (p_count => x_msg_count,
6327: p_data => x_msg_data);
6328:
6329: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6330: ROLLBACK TO update_checklist_function;
6331: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6332: FND_MSG_PUB.Count_And_Get
6333: (p_count => x_msg_count,
6327: p_data => x_msg_data);
6328:
6329: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6330: ROLLBACK TO update_checklist_function;
6331: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6332: FND_MSG_PUB.Count_And_Get
6333: (p_count => x_msg_count,
6334: p_data => x_msg_data);
6335:
6335:
6336: WHEN OTHERS THEN
6337:
6338: ROLLBACK TO update_checklist_function;
6339: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6340: OKL_API.Set_Message(p_app_name => G_APP_NAME,
6341: p_msg_name => G_UNEXPECTED_ERROR,
6342: p_token1 => G_SQLCODE_TOKEN,
6343: p_token1_value => SQLCODE,
6336: WHEN OTHERS THEN
6337:
6338: ROLLBACK TO update_checklist_function;
6339: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6340: OKL_API.Set_Message(p_app_name => G_APP_NAME,
6341: p_msg_name => G_UNEXPECTED_ERROR,
6342: p_token1 => G_SQLCODE_TOKEN,
6343: p_token1_value => SQLCODE,
6344: p_token2 => G_SQLERRM_TOKEN,
6380:
6381: l_api_name CONSTANT VARCHAR2(30) := 'activate_credit_pvt';
6382: l_api_version CONSTANT NUMBER := 1.0;
6383: i NUMBER;
6384: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6385:
6386: cursor c_credit (p_chr_id number) is
6387: --start modified abhsaxen for performance SQLID 20562919
6388: SELECT
6448: p_api_version,
6449: l_api_name,
6450: G_PKG_NAME ))
6451: THEN
6452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6453: END IF;
6454:
6455: -- Initialize message list if requested
6456: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
6457: FND_MSG_PUB.initialize;
6458: END IF;
6459:
6460: -- Initialize API status to success
6461: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6462:
6463:
6464: /*** Begin API body ****************************************************/
6465:
6496: p_cust_acct_number => l_credit_rec.CUST_ACCT_NUMBER, -- 11.5.10 rule migration project
6497: p_sts_code => l_credit_rec.STS_CODE
6498: );
6499:
6500: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6501: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6502: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6503: RAISE OKL_API.G_EXCEPTION_ERROR;
6504: END IF;
6497: p_sts_code => l_credit_rec.STS_CODE
6498: );
6499:
6500: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6501: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6502: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6503: RAISE OKL_API.G_EXCEPTION_ERROR;
6504: END IF;
6505:
6498: );
6499:
6500: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6501: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6502: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6503: RAISE OKL_API.G_EXCEPTION_ERROR;
6504: END IF;
6505:
6506:
6499:
6500: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6501: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6502: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6503: RAISE OKL_API.G_EXCEPTION_ERROR;
6504: END IF;
6505:
6506:
6507: lp_chrv_rec.id := p_chr_id;
6541: x_chrv_rec => lx_chrv_rec,
6542: x_khrv_rec => lx_khrv_rec
6543: );
6544:
6545: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6548: RAISE OKL_API.G_EXCEPTION_ERROR;
6549: END IF;
6542: x_khrv_rec => lx_khrv_rec
6543: );
6544:
6545: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6548: RAISE OKL_API.G_EXCEPTION_ERROR;
6549: END IF;
6550:
6543: );
6544:
6545: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6548: RAISE OKL_API.G_EXCEPTION_ERROR;
6549: END IF;
6550:
6551: x_sts_code := lx_chrv_rec.sts_code;
6544:
6545: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6548: RAISE OKL_API.G_EXCEPTION_ERROR;
6549: END IF;
6550:
6551: x_sts_code := lx_chrv_rec.sts_code;
6552: /*** End API body ******************************************************/
6556: (p_count => x_msg_count,
6557: p_data => x_msg_data);
6558:
6559: EXCEPTION
6560: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6561: ROLLBACK TO activate_credit_pvt;
6562: x_return_status := OKL_API.G_RET_STS_ERROR;
6563: FND_MSG_PUB.Count_And_Get
6564: (p_count => x_msg_count,
6558:
6559: EXCEPTION
6560: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6561: ROLLBACK TO activate_credit_pvt;
6562: x_return_status := OKL_API.G_RET_STS_ERROR;
6563: FND_MSG_PUB.Count_And_Get
6564: (p_count => x_msg_count,
6565: p_data => x_msg_data);
6566:
6563: FND_MSG_PUB.Count_And_Get
6564: (p_count => x_msg_count,
6565: p_data => x_msg_data);
6566:
6567: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6568: ROLLBACK TO activate_credit_pvt;
6569: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6570: FND_MSG_PUB.Count_And_Get
6571: (p_count => x_msg_count,
6565: p_data => x_msg_data);
6566:
6567: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6568: ROLLBACK TO activate_credit_pvt;
6569: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6570: FND_MSG_PUB.Count_And_Get
6571: (p_count => x_msg_count,
6572: p_data => x_msg_data);
6573:
6572: p_data => x_msg_data);
6573:
6574: WHEN OTHERS THEN
6575: ROLLBACK TO activate_credit_pvt;
6576: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6577: OKL_API.Set_Message(p_app_name => G_APP_NAME,
6578: p_msg_name => G_UNEXPECTED_ERROR,
6579: p_token1 => G_SQLCODE_TOKEN,
6580: p_token1_value => SQLCODE,
6573:
6574: WHEN OTHERS THEN
6575: ROLLBACK TO activate_credit_pvt;
6576: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6577: OKL_API.Set_Message(p_app_name => G_APP_NAME,
6578: p_msg_name => G_UNEXPECTED_ERROR,
6579: p_token1 => G_SQLCODE_TOKEN,
6580: p_token1_value => SQLCODE,
6581: p_token2 => G_SQLERRM_TOKEN,