1 PACKAGE FA_LEASE_SCHEDULE_PUB AS
2 /* $Header: FAPLSCS.pls 120.1 2005/06/29 15:16:44 bridgway noship $ */
3 --
4 -- API name: FA_LEASE_SCHEDULE_PUB
5 -- Type: Public
6 -- Pre-reqs: None.
7 -- Function/Procedure: Create Payments and Create Amortizationin FA.
8 --
9 -- Parameters:
10 -- IN: p_api_version
11 -- p_calling_fn
12 -- P_TRANS_REC
13 -- This will be used to hold WHO information only.
14 -- PX_LEASE_SCHEDULES_REC
15 -- This will hold Lease Schedule information
16 -- P_LEASE_ PAYMENTS_TBL
17 -- This will hold Lease payment Information
18
19 ----------------------------------------------------
20 -- PUBLIC PROCEDURE TO CREATE PAYMENTS
21 ----------------------------------------------------
22
23 PROCEDURE CREATE_PAYMENTS (
24 P_API_VERSION IN NUMBER,
25 P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
26 P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
27 P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
28 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
29 X_MSG_COUNT OUT NOCOPY NUMBER,
30 X_MSG_DATA OUT NOCOPY VARCHAR2,
31 P_CALLING_FN IN VARCHAR2,
32 P_TRANS_REC IN FA_API_TYPES.TRANS_REC_TYPE,
33 PX_LEASE_SCHEDULES_REC IN OUT NOCOPY FA_API_TYPES.LEASE_SCHEDULES_REC_TYPE,
34 P_LEASE_PAYMENTS_TBL IN FA_API_TYPES.LEASE_PAYMENTS_TBL_TYPE
35 );
36
37 ----------------------------------------------------
38 -- PUBLIC PROCEDURE TO CREATE AMORTIZATION
39 ----------------------------------------------------
40 PROCEDURE CREATE_AMORTIZATION (
41 P_API_VERSION IN NUMBER,
42 P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
43 P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
44 P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
45 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
46 X_MSG_COUNT OUT NOCOPY NUMBER,
47 X_MSG_DATA OUT NOCOPY VARCHAR2,
48 P_CALLING_FN IN VARCHAR2,
49 P_TRANS_REC IN FA_API_TYPES.TRANS_REC_TYPE,
50 P_PAYMENT_SCHEDULE_ID IN NUMBER
51 );
52
53 -------------------------------------------------------
54 -- PUBLIC PROCEDURE TO CREATE PAYMENTS AND AMORTIZATION
55 -------------------------------------------------------
56
57 PROCEDURE CREATE_LEASE_SCHEDULE (
58 P_API_VERSION IN NUMBER,
59 P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
60 P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
61 P_VALIDATION_LEVEL IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
62 X_RETURN_STATUS OUT NOCOPY VARCHAR2,
63 X_MSG_COUNT OUT NOCOPY NUMBER,
64 X_MSG_DATA OUT NOCOPY VARCHAR2,
65 P_CALLING_FN IN VARCHAR2,
66 P_TRANS_REC IN FA_API_TYPES.TRANS_REC_TYPE,
67 PX_LEASE_SCHEDULES_REC IN OUT NOCOPY FA_API_TYPES.LEASE_SCHEDULES_REC_TYPE,
68 P_LEASE_PAYMENTS_TBL IN FA_API_TYPES.LEASE_PAYMENTS_TBL_TYPE
69 );
70
71 END FA_LEASE_SCHEDULE_PUB;