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.7.12020000.2 2012/08/16 14:49:09 scherkas 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 379: P_LOAN_REC IN LNS_APPL_ENGINE_PUB.LOAN_REC,

375: | 11-02-2005 scherkas Created
376: |
377: *=======================================================================*/
378: PROCEDURE ADD_LOAN_TAG(
379: P_LOAN_REC IN LNS_APPL_ENGINE_PUB.LOAN_REC,
380: P_OPEN_CLOSE_FLAG IN VARCHAR2)
381: IS
382:
383: /*-----------------------------------------------------------------------+

Line 558: P_LOAN_INVOICES_REC IN LNS_APPL_ENGINE_PUB.LOAN_INVOICE_REC,

554: | 11-02-2005 scherkas Created
555: |
556: *=======================================================================*/
557: PROCEDURE BUILD_STMT(
558: P_LOAN_INVOICES_REC IN LNS_APPL_ENGINE_PUB.LOAN_INVOICE_REC,
559: P_RECEIPT_REC IN LNS_APPL_ENGINE_PUB.RECEIPT_REC,
560: P_SEQUENCE_NUMBER IN NUMBER,
561: P_INV_APPLY_AMOUNT IN NUMBER,
562: P_RC_APPLY_AMOUNT IN NUMBER,

Line 559: P_RECEIPT_REC IN LNS_APPL_ENGINE_PUB.RECEIPT_REC,

555: |
556: *=======================================================================*/
557: PROCEDURE BUILD_STMT(
558: P_LOAN_INVOICES_REC IN LNS_APPL_ENGINE_PUB.LOAN_INVOICE_REC,
559: P_RECEIPT_REC IN LNS_APPL_ENGINE_PUB.RECEIPT_REC,
560: P_SEQUENCE_NUMBER IN NUMBER,
561: P_INV_APPLY_AMOUNT IN NUMBER,
562: P_RC_APPLY_AMOUNT IN NUMBER,
563: P_ERROR IN VARCHAR2,

Line 735: P_LOAN_INVOICES_TBL IN LNS_APPL_ENGINE_PUB.LOAN_INVOICES_TBL)

731: | 25-10-2005 scherkas Created
732: |
733: *=======================================================================*/
734: PROCEDURE UNAPPLY_RECEIPTS(
735: P_LOAN_INVOICES_TBL IN LNS_APPL_ENGINE_PUB.LOAN_INVOICES_TBL)
736: IS
737:
738: /*-----------------------------------------------------------------------+
739: | Local Variable Declarations and initializations |

Line 756: l_RECEIPT_REC LNS_APPL_ENGINE_PUB.RECEIPT_REC;

752: l_application number;
753: l_inv_count number;
754: l_error varchar2(32767);
755:
756: l_RECEIPT_REC LNS_APPL_ENGINE_PUB.RECEIPT_REC;
757: l_RECEIPTS_TBL LNS_APPL_ENGINE_PUB.RECEIPTS_TBL;
758:
759: /*-----------------------------------------------------------------------+
760: | Cursor Declarations |

Line 757: l_RECEIPTS_TBL LNS_APPL_ENGINE_PUB.RECEIPTS_TBL;

753: l_inv_count number;
754: l_error varchar2(32767);
755:
756: l_RECEIPT_REC LNS_APPL_ENGINE_PUB.RECEIPT_REC;
757: l_RECEIPTS_TBL LNS_APPL_ENGINE_PUB.RECEIPTS_TBL;
758:
759: /*-----------------------------------------------------------------------+
760: | Cursor Declarations |
761: +-----------------------------------------------------------------------*/

Line 801: LNS_APPL_ENGINE_PUB.ADD_APPL_UNAPPL_TAGS(

797: l_next_inv_appl_ok := 'Y';
798: l_application := 0;
799: l_inv_count := 0;
800:
801: LNS_APPL_ENGINE_PUB.ADD_APPL_UNAPPL_TAGS(
802: P_ACTION_FLAG => 'UNAPPLY',
803: P_OPEN_CLOSE_FLAG => 'OPEN');
804:
805: -- looping thru invoices and apply receipts

Line 895: LNS_APPL_ENGINE_PUB.BUILD_STMT(

891: l_return_status := FND_API.G_RET_STS_ERROR;
892: l_error := SQLERRM;
893: END;
894:
895: LNS_APPL_ENGINE_PUB.BUILD_STMT(
896: P_LOAN_INVOICES_REC => P_LOAN_INVOICES_TBL(l_Count),
897: P_RECEIPT_REC => l_RECEIPT_REC,
898: P_SEQUENCE_NUMBER => l_application,
899: P_INV_APPLY_AMOUNT => l_amount_applied,

Line 920: LNS_APPL_ENGINE_PUB.ADD_APPL_UNAPPL_TAGS(

916: end if;
917:
918: END LOOP;
919:
920: LNS_APPL_ENGINE_PUB.ADD_APPL_UNAPPL_TAGS(
921: P_ACTION_FLAG => 'UNAPPLY',
922: P_OPEN_CLOSE_FLAG => 'CLOSE');
923:
924: LogMessage(FND_LOG.LEVEL_UNEXPECTED, '______________');

Line 933: LNS_APPL_ENGINE_PUB.ADD_APPL_UNAPPL_TAGS(

929: EXCEPTION
930: WHEN OTHERS THEN
931: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'In ' || l_api_name || ' exception handling');
932:
933: LNS_APPL_ENGINE_PUB.ADD_APPL_UNAPPL_TAGS(
934: P_ACTION_FLAG => 'UNAPPLY',
935: P_OPEN_CLOSE_FLAG => 'CLOSE');
936:
937: RAISE FND_API.G_EXC_ERROR;

Line 969: P_LOAN_INVOICES_TBL IN OUT NOCOPY LNS_APPL_ENGINE_PUB.LOAN_INVOICES_TBL,

965: | 25-10-2005 scherkas Created
966: |
967: *=======================================================================*/
968: PROCEDURE APPLY_RECEIPTS(
969: P_LOAN_INVOICES_TBL IN OUT NOCOPY LNS_APPL_ENGINE_PUB.LOAN_INVOICES_TBL,
970: P_RECEIPTS_TBL IN OUT NOCOPY LNS_APPL_ENGINE_PUB.RECEIPTS_TBL)
971: IS
972:
973: /*-----------------------------------------------------------------------+

Line 970: P_RECEIPTS_TBL IN OUT NOCOPY LNS_APPL_ENGINE_PUB.RECEIPTS_TBL)

966: |
967: *=======================================================================*/
968: PROCEDURE APPLY_RECEIPTS(
969: P_LOAN_INVOICES_TBL IN OUT NOCOPY LNS_APPL_ENGINE_PUB.LOAN_INVOICES_TBL,
970: P_RECEIPTS_TBL IN OUT NOCOPY LNS_APPL_ENGINE_PUB.RECEIPTS_TBL)
971: IS
972:
973: /*-----------------------------------------------------------------------+
974: | Local Variable Declarations and initializations |

Line 1013: LNS_APPL_ENGINE_PUB.ADD_APPL_UNAPPL_TAGS(

1009: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
1010:
1011: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Applying receipts...');
1012:
1013: LNS_APPL_ENGINE_PUB.ADD_APPL_UNAPPL_TAGS(
1014: P_ACTION_FLAG => 'APPLY',
1015: P_OPEN_CLOSE_FLAG => 'OPEN');
1016:
1017: l_receipt := 1;

Line 1187: LNS_APPL_ENGINE_PUB.BUILD_STMT(

1183: end if;
1184:
1185: l_application := l_application + 1;
1186: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_application #' || l_application);
1187: LNS_APPL_ENGINE_PUB.BUILD_STMT(
1188: P_LOAN_INVOICES_REC => P_LOAN_INVOICES_TBL(l_Count),
1189: P_RECEIPT_REC => P_RECEIPTS_TBL(l_Count1),
1190: P_SEQUENCE_NUMBER => l_application,
1191: P_INV_APPLY_AMOUNT => l_apply_amount,

Line 1238: LNS_APPL_ENGINE_PUB.ADD_APPL_UNAPPL_TAGS(

1234:
1235: END LOOP;
1236:
1237:
1238: LNS_APPL_ENGINE_PUB.ADD_APPL_UNAPPL_TAGS(
1239: P_ACTION_FLAG => 'APPLY',
1240: P_OPEN_CLOSE_FLAG => 'CLOSE');
1241:
1242: LogMessage(FND_LOG.LEVEL_UNEXPECTED, '______________');

Line 1251: LNS_APPL_ENGINE_PUB.ADD_APPL_UNAPPL_TAGS(

1247: EXCEPTION
1248: WHEN OTHERS THEN
1249: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'In ' || l_api_name || ' exception handling');
1250:
1251: LNS_APPL_ENGINE_PUB.ADD_APPL_UNAPPL_TAGS(
1252: P_ACTION_FLAG => 'APPLY',
1253: P_OPEN_CLOSE_FLAG => 'CLOSE');
1254:
1255: RAISE FND_API.G_EXC_ERROR;

Line 1288: P_SEARCH_RECEIPTS_REC IN LNS_APPL_ENGINE_PUB.SEARCH_RECEIPTS_REC,

1284: | 25-10-2005 scherkas Created
1285: |
1286: *=======================================================================*/
1287: PROCEDURE SEARCH_RECEIPTS(
1288: P_SEARCH_RECEIPTS_REC IN LNS_APPL_ENGINE_PUB.SEARCH_RECEIPTS_REC,
1289: X_RECEIPTS_TBL OUT NOCOPY LNS_APPL_ENGINE_PUB.RECEIPTS_TBL)
1290: IS
1291:
1292: /*-----------------------------------------------------------------------+

Line 1289: X_RECEIPTS_TBL OUT NOCOPY LNS_APPL_ENGINE_PUB.RECEIPTS_TBL)

1285: |
1286: *=======================================================================*/
1287: PROCEDURE SEARCH_RECEIPTS(
1288: P_SEARCH_RECEIPTS_REC IN LNS_APPL_ENGINE_PUB.SEARCH_RECEIPTS_REC,
1289: X_RECEIPTS_TBL OUT NOCOPY LNS_APPL_ENGINE_PUB.RECEIPTS_TBL)
1290: IS
1291:
1292: /*-----------------------------------------------------------------------+
1293: | Local Variable Declarations and initializations |

Line 1299: l_RECEIPT_REC LNS_APPL_ENGINE_PUB.RECEIPT_REC;

1295:
1296: l_api_name CONSTANT VARCHAR2(30) := 'SEARCH_RECEIPTS';
1297: l_Count number;
1298:
1299: l_RECEIPT_REC LNS_APPL_ENGINE_PUB.RECEIPT_REC;
1300:
1301: /*-----------------------------------------------------------------------+
1302: | Cursor Declarations |
1303: +-----------------------------------------------------------------------*/

Line 1470: X_LOAN_INVOICES_TBL OUT NOCOPY LNS_APPL_ENGINE_PUB.LOAN_INVOICES_TBL)

1466: *=======================================================================*/
1467: PROCEDURE SEARCH_LOAN_INVOICES(
1468: P_LOAN_ID IN NUMBER,
1469: P_FOR_ACTION IN VARCHAR2,
1470: X_LOAN_INVOICES_TBL OUT NOCOPY LNS_APPL_ENGINE_PUB.LOAN_INVOICES_TBL)
1471: IS
1472:
1473: /*-----------------------------------------------------------------------+
1474: | Local Variable Declarations and initializations |

Line 1487: l_LOAN_INVOICE_REC LNS_APPL_ENGINE_PUB.LOAN_INVOICE_REC;

1483: l_Count1 number;
1484: l_scope varchar2(30);
1485: l_amortization_sched_id number;
1486:
1487: l_LOAN_INVOICE_REC LNS_APPL_ENGINE_PUB.LOAN_INVOICE_REC;
1488: l_order_tbl DBMS_SQL.VARCHAR2_TABLE;
1489:
1490: /*-----------------------------------------------------------------------+
1491: | Cursor Declarations |

Line 1833: P_SEARCH_REC IN LNS_APPL_ENGINE_PUB.SEARCH_REC,

1829: P_API_VERSION IN NUMBER,
1830: P_INIT_MSG_LIST IN VARCHAR2,
1831: P_COMMIT IN VARCHAR2,
1832: P_VALIDATION_LEVEL IN NUMBER,
1833: P_SEARCH_REC IN LNS_APPL_ENGINE_PUB.SEARCH_REC,
1834: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1835: X_MSG_COUNT OUT NOCOPY NUMBER,
1836: X_MSG_DATA OUT NOCOPY VARCHAR2)
1837: IS

Line 1850: l_LOAN_INVOICES_TBL LNS_APPL_ENGINE_PUB.LOAN_INVOICES_TBL;

1846: l_msg_count NUMBER;
1847: l_msg_data VARCHAR2(32767);
1848: l_Count number;
1849:
1850: l_LOAN_INVOICES_TBL LNS_APPL_ENGINE_PUB.LOAN_INVOICES_TBL;
1851: l_SEARCH_RECEIPTS_REC LNS_APPL_ENGINE_PUB.SEARCH_RECEIPTS_REC;
1852: l_RECEIPTS_TBL LNS_APPL_ENGINE_PUB.RECEIPTS_TBL;
1853: l_LOAN_REC LNS_APPL_ENGINE_PUB.LOAN_REC;
1854: /*-----------------------------------------------------------------------+

Line 1851: l_SEARCH_RECEIPTS_REC LNS_APPL_ENGINE_PUB.SEARCH_RECEIPTS_REC;

1847: l_msg_data VARCHAR2(32767);
1848: l_Count number;
1849:
1850: l_LOAN_INVOICES_TBL LNS_APPL_ENGINE_PUB.LOAN_INVOICES_TBL;
1851: l_SEARCH_RECEIPTS_REC LNS_APPL_ENGINE_PUB.SEARCH_RECEIPTS_REC;
1852: l_RECEIPTS_TBL LNS_APPL_ENGINE_PUB.RECEIPTS_TBL;
1853: l_LOAN_REC LNS_APPL_ENGINE_PUB.LOAN_REC;
1854: /*-----------------------------------------------------------------------+
1855: | Cursor Declarations |

Line 1852: l_RECEIPTS_TBL LNS_APPL_ENGINE_PUB.RECEIPTS_TBL;

1848: l_Count number;
1849:
1850: l_LOAN_INVOICES_TBL LNS_APPL_ENGINE_PUB.LOAN_INVOICES_TBL;
1851: l_SEARCH_RECEIPTS_REC LNS_APPL_ENGINE_PUB.SEARCH_RECEIPTS_REC;
1852: l_RECEIPTS_TBL LNS_APPL_ENGINE_PUB.RECEIPTS_TBL;
1853: l_LOAN_REC LNS_APPL_ENGINE_PUB.LOAN_REC;
1854: /*-----------------------------------------------------------------------+
1855: | Cursor Declarations |
1856: +-----------------------------------------------------------------------*/

Line 1853: l_LOAN_REC LNS_APPL_ENGINE_PUB.LOAN_REC;

1849:
1850: l_LOAN_INVOICES_TBL LNS_APPL_ENGINE_PUB.LOAN_INVOICES_TBL;
1851: l_SEARCH_RECEIPTS_REC LNS_APPL_ENGINE_PUB.SEARCH_RECEIPTS_REC;
1852: l_RECEIPTS_TBL LNS_APPL_ENGINE_PUB.RECEIPTS_TBL;
1853: l_LOAN_REC LNS_APPL_ENGINE_PUB.LOAN_REC;
1854: /*-----------------------------------------------------------------------+
1855: | Cursor Declarations |
1856: +-----------------------------------------------------------------------*/
1857:

Line 1947: LNS_APPL_ENGINE_PUB.ADD_LOAN_TAG(

1943: LogMessage(FND_LOG.LEVEL_UNEXPECTED, ' ');
1944: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Processing loan ' || l_LOAN_REC.LOAN_NUMBER || '(' || l_LOAN_REC.LOAN_ID || ')...');
1945:
1946: l_LOAN_REC.SEQUENCE_NUMBER := l_Count;
1947: LNS_APPL_ENGINE_PUB.ADD_LOAN_TAG(
1948: P_LOAN_REC => l_LOAN_REC,
1949: P_OPEN_CLOSE_FLAG => 'OPEN');
1950:
1951: BEGIN

Line 1959: LNS_APPL_ENGINE_PUB.SEARCH_LOAN_INVOICES(

1955: -- do unapply
1956: if P_SEARCH_REC.UNAPPLY_FLAG = 'Y' then
1957:
1958: l_LOAN_INVOICES_TBL.delete;
1959: LNS_APPL_ENGINE_PUB.SEARCH_LOAN_INVOICES(
1960: P_LOAN_ID => l_LOAN_REC.LOAN_ID,
1961: P_FOR_ACTION => 'UNAPPLY',
1962: X_LOAN_INVOICES_TBL => l_LOAN_INVOICES_TBL);
1963:

Line 1965: LNS_APPL_ENGINE_PUB.UNAPPLY_RECEIPTS(

1961: P_FOR_ACTION => 'UNAPPLY',
1962: X_LOAN_INVOICES_TBL => l_LOAN_INVOICES_TBL);
1963:
1964: if l_LOAN_INVOICES_TBL.count > 0 then
1965: LNS_APPL_ENGINE_PUB.UNAPPLY_RECEIPTS(
1966: P_LOAN_INVOICES_TBL => l_LOAN_INVOICES_TBL);
1967: end if;
1968:
1969: end if;

Line 1973: LNS_APPL_ENGINE_PUB.SEARCH_LOAN_INVOICES(

1969: end if;
1970:
1971: -- do apply
1972: l_LOAN_INVOICES_TBL.delete;
1973: LNS_APPL_ENGINE_PUB.SEARCH_LOAN_INVOICES(
1974: P_LOAN_ID => l_LOAN_REC.LOAN_ID,
1975: P_FOR_ACTION => 'APPLY',
1976: X_LOAN_INVOICES_TBL => l_LOAN_INVOICES_TBL);
1977:

Line 1987: LNS_APPL_ENGINE_PUB.SEARCH_RECEIPTS(

1983: l_SEARCH_RECEIPTS_REC.RC_FROM_DATE := P_SEARCH_REC.RC_FROM_DATE;
1984: l_SEARCH_RECEIPTS_REC.RC_TO_DATE := P_SEARCH_REC.RC_TO_DATE;
1985:
1986: l_RECEIPTS_TBL.delete;
1987: LNS_APPL_ENGINE_PUB.SEARCH_RECEIPTS(
1988: P_SEARCH_RECEIPTS_REC => l_SEARCH_RECEIPTS_REC,
1989: X_RECEIPTS_TBL => l_RECEIPTS_TBL);
1990:
1991: if l_RECEIPTS_TBL.count > 0 then

Line 1993: LNS_APPL_ENGINE_PUB.APPLY_RECEIPTS(

1989: X_RECEIPTS_TBL => l_RECEIPTS_TBL);
1990:
1991: if l_RECEIPTS_TBL.count > 0 then
1992:
1993: LNS_APPL_ENGINE_PUB.APPLY_RECEIPTS(
1994: P_LOAN_INVOICES_TBL => l_LOAN_INVOICES_TBL,
1995: P_RECEIPTS_TBL => l_RECEIPTS_TBL);
1996:
1997:

Line 2018: LNS_APPL_ENGINE_PUB.ADD_LOAN_TAG(

2014: g_cr_return_status := 'WARNING';
2015: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollback loan ' || l_LOAN_REC.LOAN_NUMBER);
2016: END;
2017:
2018: LNS_APPL_ENGINE_PUB.ADD_LOAN_TAG(
2019: P_LOAN_REC => l_LOAN_REC,
2020: P_OPEN_CLOSE_FLAG => 'CLOSE');
2021:
2022: END LOOP;

Line 2123: l_SEARCH_REC LNS_APPL_ENGINE_PUB.SEARCH_REC;

2119: | Local Variable Declarations and initializations |
2120: +-----------------------------------------------------------------------*/
2121: l_msg_count number;
2122: l_return boolean;
2123: l_SEARCH_REC LNS_APPL_ENGINE_PUB.SEARCH_REC;
2124: l_matching_ref varchar2(250);
2125:
2126: BEGIN
2127:

Line 2142: LNS_APPL_ENGINE_PUB.SEARCH_AND_APPLY(

2138: l_SEARCH_REC.RC_FROM_DATE := RC_FROM_DATE;
2139: l_SEARCH_REC.RC_TO_DATE := RC_TO_DATE;
2140: l_SEARCH_REC.UNAPPLY_FLAG := 'N'; --Hard coding the incorrect application to No always.
2141:
2142: LNS_APPL_ENGINE_PUB.SEARCH_AND_APPLY(
2143: P_API_VERSION => 1.0,
2144: P_INIT_MSG_LIST => FND_API.G_TRUE,
2145: P_COMMIT => FND_API.G_TRUE,
2146: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,

Line 2152: LNS_APPL_ENGINE_PUB.BUILD_RC_APPL_REPORT(

2148: X_RETURN_STATUS => RETCODE,
2149: X_MSG_COUNT => l_msg_count,
2150: X_MSG_DATA => ERRBUF);
2151:
2152: LNS_APPL_ENGINE_PUB.BUILD_RC_APPL_REPORT(
2153: P_SEARCH_REC => l_SEARCH_REC);
2154:
2155: if g_cr_return_status = 'WARNING' then
2156: l_return := FND_CONCURRENT.SET_COMPLETION_STATUS(