[Home] [Help]
PACKAGE: APPS.OKL_LRF_INTERFACE_PVT
Source
1 PACKAGE OKL_LRF_INTERFACE_PVT AUTHID CURRENT_USER AS
2 /* $Header: OKLRLRIS.pls 120.2 2005/10/30 04:34:54 appldev noship $*/
3
4 -----------------------------------------------------------------------------
5 -- PACKAGE CONSTANTS
6 -----------------------------------------------------------------------------
7 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_LRF_INTERFACE_PVT';
8 G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
9 G_API_VERSION CONSTANT NUMBER := 1;
10 G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
11 G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
12 G_DB_ERROR CONSTANT VARCHAR2(12) := 'OKL_DB_ERROR';
13 G_PROG_NAME_TOKEN CONSTANT VARCHAR2(9) := 'PROG_NAME';
14 G_SQLCODE_TOKEN CONSTANT VARCHAR2(7) := 'SQLCODE';
15 G_SQLERRM_TOKEN CONSTANT VARCHAR2(7) := 'SQLERRM';
16 G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
17 G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
18 G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
19 G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
20 G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
21 G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
22
23 G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
24 G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
25 G_FORM_RECORD_DELETED CONSTANT VARCHAR2(200) := OKL_API.G_FORM_RECORD_DELETED;
26 G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKL_API.G_FORM_RECORD_CHANGED;
27 G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKL_API.G_RECORD_LOGICALLY_DELETED;
28 G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
29 G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
30 G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
31 G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
32 G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
33 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKS_SERVICE_AVAILABILITY_UNEXPECTED_ERROR';
34
35 ---------------------------------------------------------------------------
36 -- DATA STRUCTURES
37 ---------------------------------------------------------------------------
38 TYPE lrt_rec_type IS RECORD
39 ( LANGUAGE OKL_LS_RT_FCTR_SETS_TL.LANGUAGE%TYPE
40 ,NAME OKL_LS_RT_FCTR_SETS_TL.NAME%TYPE
41 ,DESCRIPTION OKL_LS_RT_FCTR_SETS_TL.DESCRIPTION%TYPE
42 ,ARREARS_YN OKL_LS_RT_FCTR_SETS_B.ARREARS_YN%TYPE
43 ,START_DATE OKL_LS_RT_FCTR_SETS_B.START_DATE%TYPE
44 ,END_DATE OKL_LS_RT_FCTR_SETS_B.END_DATE%TYPE
45 ,FRQ_CODE OKL_LS_RT_FCTR_SETS_B.FRQ_CODE%TYPE
46 ,BATCH_NUMER NUMBER
47 );
48
49 TYPE lrf_rec_type IS RECORD
50 ( TERM_IN_MONTHS OKL_LS_RT_FCTR_ENTS.TERM_IN_MONTHS%TYPE
51 ,RESIDUAL_VALUE_PERCENT OKL_LS_RT_FCTR_ENTS.RESIDUAL_VALUE_PERCENT%TYPE
52 ,INTEREST_RATE OKL_LS_RT_FCTR_ENTS.INTEREST_RATE%TYPE
53 ,LEASE_RATE_FACTOR OKL_LS_RT_FCTR_ENTS.LEASE_RATE_FACTOR%TYPE
54 ,LRT_ID OKL_LS_RT_FCTR_ENTS.LRT_ID%TYPE
55 ,BATCH_NUMBER NUMBER
56 ,STATUS VARCHAR2(30)
57 );
58
59 TYPE LEASE_RATE_REC IS RECORD
60 ( TERM_IN_MONTHS NUMBER
61 ,RESIDUAL_VALUE_PERCENT NUMBER(18,15)
62 ,INTEREST_RATE NUMBER(18,15)
63 ,LEASE_RATE_FACTOR NUMBER
64 );
65
66 TYPE LEASE_RATE_TBL IS TABLE OF LEASE_RATE_REC INDEX BY BINARY_INTEGER;
67
68 L_LEASE_RATE_TBL LEASE_RATE_TBL;
69
70 ---------------------------------------------------------------------------
71 -- PROGRAM UNITS
72 ---------------------------------------------------------------------------
73 PROCEDURE purge_record (errbuf OUT NOCOPY VARCHAR2
74 ,retcode OUT NOCOPY VARCHAR2
75 ,p_batch_number IN NUMBER
76 ,p_status in varchar2);
77
78 PROCEDURE process_record (errbuf OUT NOCOPY VARCHAR2,
79 retcode OUT NOCOPY VARCHAR2,
80 p_batch_number IN NUMBER);
81
82
83 PROCEDURE generate_lrf (errbuf OUT NOCOPY VARCHAR2
84 ,retcode OUT NOCOPY VARCHAR2
85 ,p_batch_number IN NUMBER
86 ,p_term_lower_range IN NUMBER
87 ,p_term_upper_range IN NUMBER
88 ,p_term_interval IN NUMBER
89 ,p_rv_lower_range IN NUMBER
90 ,p_rv_upper_range IN NUMBER
91 ,p_rv_interval IN NUMBER
92 );
93
94 END OKL_LRF_INTERFACE_PVT;