DBA Data[Home] [Help]

APPS.LNS_APPL_ENGINE_PUB dependencies on LNS_APPL_ENGINE_PUB

Line 1: PACKAGE BODY LNS_APPL_ENGINE_PUB as

1: PACKAGE BODY LNS_APPL_ENGINE_PUB as
2: /* $Header: LNS_APPL_ENG_B.pls 120.2.12010000.2 2008/10/23 21:56:20 mbolli ship $ */
3:
4:
5: /*=======================================================================+

Line 8: G_PKG_NAME CONSTANT VARCHAR2(30):= 'LNS_APPL_ENGINE_PUB';

4:
5: /*=======================================================================+
6: | Package Global Constants
7: +=======================================================================*/
8: G_PKG_NAME CONSTANT VARCHAR2(30):= 'LNS_APPL_ENGINE_PUB';
9: G_LOG_ENABLED varchar2(5);
10: G_MSG_LEVEL NUMBER;
11: g_org_id number;
12: g_cr_return_status varchar2(10);

Line 158: P_SEARCH_REC IN LNS_APPL_ENGINE_PUB.SEARCH_REC)

154: | 11-02-2005 scherkas Created
155: |
156: *=======================================================================*/
157: PROCEDURE BUILD_RC_APPL_REPORT(
158: P_SEARCH_REC IN LNS_APPL_ENGINE_PUB.SEARCH_REC)
159: IS
160:
161: /*-----------------------------------------------------------------------+
162: | Local Variable Declarations and initializations |

Line 342: P_LOAN_REC IN LNS_APPL_ENGINE_PUB.LOAN_REC,

338: | 11-02-2005 scherkas Created
339: |
340: *=======================================================================*/
341: PROCEDURE ADD_LOAN_TAG(
342: P_LOAN_REC IN LNS_APPL_ENGINE_PUB.LOAN_REC,
343: P_OPEN_CLOSE_FLAG IN VARCHAR2)
344: IS
345:
346: /*-----------------------------------------------------------------------+

Line 521: P_LOAN_INVOICES_REC IN LNS_APPL_ENGINE_PUB.LOAN_INVOICE_REC,

517: | 11-02-2005 scherkas Created
518: |
519: *=======================================================================*/
520: PROCEDURE BUILD_STMT(
521: P_LOAN_INVOICES_REC IN LNS_APPL_ENGINE_PUB.LOAN_INVOICE_REC,
522: P_RECEIPT_REC IN LNS_APPL_ENGINE_PUB.RECEIPT_REC,
523: P_SEQUENCE_NUMBER IN NUMBER,
524: P_INV_APPLY_AMOUNT IN NUMBER,
525: P_RC_APPLY_AMOUNT IN NUMBER,

Line 522: P_RECEIPT_REC IN LNS_APPL_ENGINE_PUB.RECEIPT_REC,

518: |
519: *=======================================================================*/
520: PROCEDURE BUILD_STMT(
521: P_LOAN_INVOICES_REC IN LNS_APPL_ENGINE_PUB.LOAN_INVOICE_REC,
522: P_RECEIPT_REC IN LNS_APPL_ENGINE_PUB.RECEIPT_REC,
523: P_SEQUENCE_NUMBER IN NUMBER,
524: P_INV_APPLY_AMOUNT IN NUMBER,
525: P_RC_APPLY_AMOUNT IN NUMBER,
526: P_ERROR IN VARCHAR2,

Line 698: P_LOAN_INVOICES_TBL IN LNS_APPL_ENGINE_PUB.LOAN_INVOICES_TBL)

694: | 25-10-2005 scherkas Created
695: |
696: *=======================================================================*/
697: PROCEDURE UNAPPLY_RECEIPTS(
698: P_LOAN_INVOICES_TBL IN LNS_APPL_ENGINE_PUB.LOAN_INVOICES_TBL)
699: IS
700:
701: /*-----------------------------------------------------------------------+
702: | Local Variable Declarations and initializations |

Line 719: l_RECEIPT_REC LNS_APPL_ENGINE_PUB.RECEIPT_REC;

715: l_application number;
716: l_inv_count number;
717: l_error varchar2(32767);
718:
719: l_RECEIPT_REC LNS_APPL_ENGINE_PUB.RECEIPT_REC;
720: l_RECEIPTS_TBL LNS_APPL_ENGINE_PUB.RECEIPTS_TBL;
721:
722: /*-----------------------------------------------------------------------+
723: | Cursor Declarations |

Line 720: l_RECEIPTS_TBL LNS_APPL_ENGINE_PUB.RECEIPTS_TBL;

716: l_inv_count number;
717: l_error varchar2(32767);
718:
719: l_RECEIPT_REC LNS_APPL_ENGINE_PUB.RECEIPT_REC;
720: l_RECEIPTS_TBL LNS_APPL_ENGINE_PUB.RECEIPTS_TBL;
721:
722: /*-----------------------------------------------------------------------+
723: | Cursor Declarations |
724: +-----------------------------------------------------------------------*/

Line 764: LNS_APPL_ENGINE_PUB.ADD_APPL_UNAPPL_TAGS(

760: l_next_inv_appl_ok := 'Y';
761: l_application := 0;
762: l_inv_count := 0;
763:
764: LNS_APPL_ENGINE_PUB.ADD_APPL_UNAPPL_TAGS(
765: P_ACTION_FLAG => 'UNAPPLY',
766: P_OPEN_CLOSE_FLAG => 'OPEN');
767:
768: -- looping thru invoices and apply receipts

Line 858: LNS_APPL_ENGINE_PUB.BUILD_STMT(

854: l_return_status := FND_API.G_RET_STS_ERROR;
855: l_error := SQLERRM;
856: END;
857:
858: LNS_APPL_ENGINE_PUB.BUILD_STMT(
859: P_LOAN_INVOICES_REC => P_LOAN_INVOICES_TBL(l_Count),
860: P_RECEIPT_REC => l_RECEIPT_REC,
861: P_SEQUENCE_NUMBER => l_application,
862: P_INV_APPLY_AMOUNT => l_amount_applied,

Line 883: LNS_APPL_ENGINE_PUB.ADD_APPL_UNAPPL_TAGS(

879: end if;
880:
881: END LOOP;
882:
883: LNS_APPL_ENGINE_PUB.ADD_APPL_UNAPPL_TAGS(
884: P_ACTION_FLAG => 'UNAPPLY',
885: P_OPEN_CLOSE_FLAG => 'CLOSE');
886:
887: LogMessage(FND_LOG.LEVEL_UNEXPECTED, '______________');

Line 896: LNS_APPL_ENGINE_PUB.ADD_APPL_UNAPPL_TAGS(

892: EXCEPTION
893: WHEN OTHERS THEN
894: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'In ' || l_api_name || ' exception handling');
895:
896: LNS_APPL_ENGINE_PUB.ADD_APPL_UNAPPL_TAGS(
897: P_ACTION_FLAG => 'UNAPPLY',
898: P_OPEN_CLOSE_FLAG => 'CLOSE');
899:
900: RAISE FND_API.G_EXC_ERROR;

Line 932: P_LOAN_INVOICES_TBL IN OUT NOCOPY LNS_APPL_ENGINE_PUB.LOAN_INVOICES_TBL,

928: | 25-10-2005 scherkas Created
929: |
930: *=======================================================================*/
931: PROCEDURE APPLY_RECEIPTS(
932: P_LOAN_INVOICES_TBL IN OUT NOCOPY LNS_APPL_ENGINE_PUB.LOAN_INVOICES_TBL,
933: P_RECEIPTS_TBL IN OUT NOCOPY LNS_APPL_ENGINE_PUB.RECEIPTS_TBL)
934: IS
935:
936: /*-----------------------------------------------------------------------+

Line 933: P_RECEIPTS_TBL IN OUT NOCOPY LNS_APPL_ENGINE_PUB.RECEIPTS_TBL)

929: |
930: *=======================================================================*/
931: PROCEDURE APPLY_RECEIPTS(
932: P_LOAN_INVOICES_TBL IN OUT NOCOPY LNS_APPL_ENGINE_PUB.LOAN_INVOICES_TBL,
933: P_RECEIPTS_TBL IN OUT NOCOPY LNS_APPL_ENGINE_PUB.RECEIPTS_TBL)
934: IS
935:
936: /*-----------------------------------------------------------------------+
937: | Local Variable Declarations and initializations |

Line 976: LNS_APPL_ENGINE_PUB.ADD_APPL_UNAPPL_TAGS(

972: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
973:
974: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Applying receipts...');
975:
976: LNS_APPL_ENGINE_PUB.ADD_APPL_UNAPPL_TAGS(
977: P_ACTION_FLAG => 'APPLY',
978: P_OPEN_CLOSE_FLAG => 'OPEN');
979:
980: l_receipt := 1;

Line 1143: LNS_APPL_ENGINE_PUB.BUILD_STMT(

1139: l_receipt_amount_from := l_apply_amount;
1140: end if;
1141:
1142: l_application := l_application + 1;
1143: LNS_APPL_ENGINE_PUB.BUILD_STMT(
1144: P_LOAN_INVOICES_REC => P_LOAN_INVOICES_TBL(l_Count),
1145: P_RECEIPT_REC => P_RECEIPTS_TBL(l_Count1),
1146: P_SEQUENCE_NUMBER => l_application,
1147: P_INV_APPLY_AMOUNT => l_apply_amount,

Line 1195: LNS_APPL_ENGINE_PUB.ADD_APPL_UNAPPL_TAGS(

1191:
1192: END LOOP;
1193:
1194:
1195: LNS_APPL_ENGINE_PUB.ADD_APPL_UNAPPL_TAGS(
1196: P_ACTION_FLAG => 'APPLY',
1197: P_OPEN_CLOSE_FLAG => 'CLOSE');
1198:
1199: LogMessage(FND_LOG.LEVEL_UNEXPECTED, '______________');

Line 1208: LNS_APPL_ENGINE_PUB.ADD_APPL_UNAPPL_TAGS(

1204: EXCEPTION
1205: WHEN OTHERS THEN
1206: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'In ' || l_api_name || ' exception handling');
1207:
1208: LNS_APPL_ENGINE_PUB.ADD_APPL_UNAPPL_TAGS(
1209: P_ACTION_FLAG => 'APPLY',
1210: P_OPEN_CLOSE_FLAG => 'CLOSE');
1211:
1212: RAISE FND_API.G_EXC_ERROR;

Line 1245: P_SEARCH_RECEIPTS_REC IN LNS_APPL_ENGINE_PUB.SEARCH_RECEIPTS_REC,

1241: | 25-10-2005 scherkas Created
1242: |
1243: *=======================================================================*/
1244: PROCEDURE SEARCH_RECEIPTS(
1245: P_SEARCH_RECEIPTS_REC IN LNS_APPL_ENGINE_PUB.SEARCH_RECEIPTS_REC,
1246: X_RECEIPTS_TBL OUT NOCOPY LNS_APPL_ENGINE_PUB.RECEIPTS_TBL)
1247: IS
1248:
1249: /*-----------------------------------------------------------------------+

Line 1246: X_RECEIPTS_TBL OUT NOCOPY LNS_APPL_ENGINE_PUB.RECEIPTS_TBL)

1242: |
1243: *=======================================================================*/
1244: PROCEDURE SEARCH_RECEIPTS(
1245: P_SEARCH_RECEIPTS_REC IN LNS_APPL_ENGINE_PUB.SEARCH_RECEIPTS_REC,
1246: X_RECEIPTS_TBL OUT NOCOPY LNS_APPL_ENGINE_PUB.RECEIPTS_TBL)
1247: IS
1248:
1249: /*-----------------------------------------------------------------------+
1250: | Local Variable Declarations and initializations |

Line 1256: l_RECEIPT_REC LNS_APPL_ENGINE_PUB.RECEIPT_REC;

1252:
1253: l_api_name CONSTANT VARCHAR2(30) := 'SEARCH_RECEIPTS';
1254: l_Count number;
1255:
1256: l_RECEIPT_REC LNS_APPL_ENGINE_PUB.RECEIPT_REC;
1257:
1258: /*-----------------------------------------------------------------------+
1259: | Cursor Declarations |
1260: +-----------------------------------------------------------------------*/

Line 1400: X_LOAN_INVOICES_TBL OUT NOCOPY LNS_APPL_ENGINE_PUB.LOAN_INVOICES_TBL)

1396: *=======================================================================*/
1397: PROCEDURE SEARCH_LOAN_INVOICES(
1398: P_LOAN_ID IN NUMBER,
1399: P_FOR_ACTION IN VARCHAR2,
1400: X_LOAN_INVOICES_TBL OUT NOCOPY LNS_APPL_ENGINE_PUB.LOAN_INVOICES_TBL)
1401: IS
1402:
1403: /*-----------------------------------------------------------------------+
1404: | Local Variable Declarations and initializations |

Line 1417: l_LOAN_INVOICE_REC LNS_APPL_ENGINE_PUB.LOAN_INVOICE_REC;

1413: l_Count1 number;
1414: l_scope varchar2(30);
1415: l_amortization_sched_id number;
1416:
1417: l_LOAN_INVOICE_REC LNS_APPL_ENGINE_PUB.LOAN_INVOICE_REC;
1418: l_order_tbl DBMS_SQL.VARCHAR2_TABLE;
1419:
1420: /*-----------------------------------------------------------------------+
1421: | Cursor Declarations |

Line 1757: P_SEARCH_REC IN LNS_APPL_ENGINE_PUB.SEARCH_REC,

1753: P_API_VERSION IN NUMBER,
1754: P_INIT_MSG_LIST IN VARCHAR2,
1755: P_COMMIT IN VARCHAR2,
1756: P_VALIDATION_LEVEL IN NUMBER,
1757: P_SEARCH_REC IN LNS_APPL_ENGINE_PUB.SEARCH_REC,
1758: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1759: X_MSG_COUNT OUT NOCOPY NUMBER,
1760: X_MSG_DATA OUT NOCOPY VARCHAR2)
1761: IS

Line 1774: l_LOAN_INVOICES_TBL LNS_APPL_ENGINE_PUB.LOAN_INVOICES_TBL;

1770: l_msg_count NUMBER;
1771: l_msg_data VARCHAR2(32767);
1772: l_Count number;
1773:
1774: l_LOAN_INVOICES_TBL LNS_APPL_ENGINE_PUB.LOAN_INVOICES_TBL;
1775: l_SEARCH_RECEIPTS_REC LNS_APPL_ENGINE_PUB.SEARCH_RECEIPTS_REC;
1776: l_RECEIPTS_TBL LNS_APPL_ENGINE_PUB.RECEIPTS_TBL;
1777: l_LOAN_REC LNS_APPL_ENGINE_PUB.LOAN_REC;
1778: /*-----------------------------------------------------------------------+

Line 1775: l_SEARCH_RECEIPTS_REC LNS_APPL_ENGINE_PUB.SEARCH_RECEIPTS_REC;

1771: l_msg_data VARCHAR2(32767);
1772: l_Count number;
1773:
1774: l_LOAN_INVOICES_TBL LNS_APPL_ENGINE_PUB.LOAN_INVOICES_TBL;
1775: l_SEARCH_RECEIPTS_REC LNS_APPL_ENGINE_PUB.SEARCH_RECEIPTS_REC;
1776: l_RECEIPTS_TBL LNS_APPL_ENGINE_PUB.RECEIPTS_TBL;
1777: l_LOAN_REC LNS_APPL_ENGINE_PUB.LOAN_REC;
1778: /*-----------------------------------------------------------------------+
1779: | Cursor Declarations |

Line 1776: l_RECEIPTS_TBL LNS_APPL_ENGINE_PUB.RECEIPTS_TBL;

1772: l_Count number;
1773:
1774: l_LOAN_INVOICES_TBL LNS_APPL_ENGINE_PUB.LOAN_INVOICES_TBL;
1775: l_SEARCH_RECEIPTS_REC LNS_APPL_ENGINE_PUB.SEARCH_RECEIPTS_REC;
1776: l_RECEIPTS_TBL LNS_APPL_ENGINE_PUB.RECEIPTS_TBL;
1777: l_LOAN_REC LNS_APPL_ENGINE_PUB.LOAN_REC;
1778: /*-----------------------------------------------------------------------+
1779: | Cursor Declarations |
1780: +-----------------------------------------------------------------------*/

Line 1777: l_LOAN_REC LNS_APPL_ENGINE_PUB.LOAN_REC;

1773:
1774: l_LOAN_INVOICES_TBL LNS_APPL_ENGINE_PUB.LOAN_INVOICES_TBL;
1775: l_SEARCH_RECEIPTS_REC LNS_APPL_ENGINE_PUB.SEARCH_RECEIPTS_REC;
1776: l_RECEIPTS_TBL LNS_APPL_ENGINE_PUB.RECEIPTS_TBL;
1777: l_LOAN_REC LNS_APPL_ENGINE_PUB.LOAN_REC;
1778: /*-----------------------------------------------------------------------+
1779: | Cursor Declarations |
1780: +-----------------------------------------------------------------------*/
1781:

Line 1871: LNS_APPL_ENGINE_PUB.ADD_LOAN_TAG(

1867: LogMessage(FND_LOG.LEVEL_UNEXPECTED, ' ');
1868: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Processing loan ' || l_LOAN_REC.LOAN_NUMBER || '(' || l_LOAN_REC.LOAN_ID || ')...');
1869:
1870: l_LOAN_REC.SEQUENCE_NUMBER := l_Count;
1871: LNS_APPL_ENGINE_PUB.ADD_LOAN_TAG(
1872: P_LOAN_REC => l_LOAN_REC,
1873: P_OPEN_CLOSE_FLAG => 'OPEN');
1874:
1875: BEGIN

Line 1883: LNS_APPL_ENGINE_PUB.SEARCH_LOAN_INVOICES(

1879: -- do unapply
1880: if P_SEARCH_REC.UNAPPLY_FLAG = 'Y' then
1881:
1882: l_LOAN_INVOICES_TBL.delete;
1883: LNS_APPL_ENGINE_PUB.SEARCH_LOAN_INVOICES(
1884: P_LOAN_ID => l_LOAN_REC.LOAN_ID,
1885: P_FOR_ACTION => 'UNAPPLY',
1886: X_LOAN_INVOICES_TBL => l_LOAN_INVOICES_TBL);
1887:

Line 1889: LNS_APPL_ENGINE_PUB.UNAPPLY_RECEIPTS(

1885: P_FOR_ACTION => 'UNAPPLY',
1886: X_LOAN_INVOICES_TBL => l_LOAN_INVOICES_TBL);
1887:
1888: if l_LOAN_INVOICES_TBL.count > 0 then
1889: LNS_APPL_ENGINE_PUB.UNAPPLY_RECEIPTS(
1890: P_LOAN_INVOICES_TBL => l_LOAN_INVOICES_TBL);
1891: end if;
1892:
1893: end if;

Line 1897: LNS_APPL_ENGINE_PUB.SEARCH_LOAN_INVOICES(

1893: end if;
1894:
1895: -- do apply
1896: l_LOAN_INVOICES_TBL.delete;
1897: LNS_APPL_ENGINE_PUB.SEARCH_LOAN_INVOICES(
1898: P_LOAN_ID => l_LOAN_REC.LOAN_ID,
1899: P_FOR_ACTION => 'APPLY',
1900: X_LOAN_INVOICES_TBL => l_LOAN_INVOICES_TBL);
1901:

Line 1910: LNS_APPL_ENGINE_PUB.SEARCH_RECEIPTS(

1906: l_SEARCH_RECEIPTS_REC.RC_FROM_DATE := P_SEARCH_REC.RC_FROM_DATE;
1907: l_SEARCH_RECEIPTS_REC.RC_TO_DATE := P_SEARCH_REC.RC_TO_DATE;
1908:
1909: l_RECEIPTS_TBL.delete;
1910: LNS_APPL_ENGINE_PUB.SEARCH_RECEIPTS(
1911: P_SEARCH_RECEIPTS_REC => l_SEARCH_RECEIPTS_REC,
1912: X_RECEIPTS_TBL => l_RECEIPTS_TBL);
1913:
1914: if l_RECEIPTS_TBL.count > 0 then

Line 1916: LNS_APPL_ENGINE_PUB.APPLY_RECEIPTS(

1912: X_RECEIPTS_TBL => l_RECEIPTS_TBL);
1913:
1914: if l_RECEIPTS_TBL.count > 0 then
1915:
1916: LNS_APPL_ENGINE_PUB.APPLY_RECEIPTS(
1917: P_LOAN_INVOICES_TBL => l_LOAN_INVOICES_TBL,
1918: P_RECEIPTS_TBL => l_RECEIPTS_TBL);
1919:
1920:

Line 1941: LNS_APPL_ENGINE_PUB.ADD_LOAN_TAG(

1937: g_cr_return_status := 'WARNING';
1938: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollback loan ' || l_LOAN_REC.LOAN_NUMBER);
1939: END;
1940:
1941: LNS_APPL_ENGINE_PUB.ADD_LOAN_TAG(
1942: P_LOAN_REC => l_LOAN_REC,
1943: P_OPEN_CLOSE_FLAG => 'CLOSE');
1944:
1945: END LOOP;

Line 2045: l_SEARCH_REC LNS_APPL_ENGINE_PUB.SEARCH_REC;

2041: | Local Variable Declarations and initializations |
2042: +-----------------------------------------------------------------------*/
2043: l_msg_count number;
2044: l_return boolean;
2045: l_SEARCH_REC LNS_APPL_ENGINE_PUB.SEARCH_REC;
2046:
2047: BEGIN
2048:
2049: g_cr_return_status := 'NORMAL';

Line 2062: LNS_APPL_ENGINE_PUB.SEARCH_AND_APPLY(

2058: l_SEARCH_REC.RC_FROM_DATE := RC_FROM_DATE;
2059: l_SEARCH_REC.RC_TO_DATE := RC_TO_DATE;
2060: l_SEARCH_REC.UNAPPLY_FLAG := UNAPPLY_FLAG;
2061:
2062: LNS_APPL_ENGINE_PUB.SEARCH_AND_APPLY(
2063: P_API_VERSION => 1.0,
2064: P_INIT_MSG_LIST => FND_API.G_TRUE,
2065: P_COMMIT => FND_API.G_TRUE,
2066: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,

Line 2072: LNS_APPL_ENGINE_PUB.BUILD_RC_APPL_REPORT(

2068: X_RETURN_STATUS => RETCODE,
2069: X_MSG_COUNT => l_msg_count,
2070: X_MSG_DATA => ERRBUF);
2071:
2072: LNS_APPL_ENGINE_PUB.BUILD_RC_APPL_REPORT(
2073: P_SEARCH_REC => l_SEARCH_REC);
2074:
2075: if g_cr_return_status = 'WARNING' then
2076: l_return := FND_CONCURRENT.SET_COMPLETION_STATUS(