[Home] [Help]
PACKAGE: APPS.OKE_AGREEMENT_PVT
Source
1 package OKE_AGREEMENT_PVT AUTHID CURRENT_USER as
2 /* $Header: OKEVKAGS.pls 115.15 2002/11/21 21:17:55 syho ship $ */
3
4
5 --
6 -- Global Variables
7 --
8
9 G_PKG_NAME CONSTANT VARCHAR2(50) := 'OKE_AGREEMENT_PVT';
10 G_API_VERSION_NUMBER NUMBER := 1.0;
11 G_DESCRIPTION VARCHAR2(100) := 'Created by Oracle Project Contracts';
12 G_APP_NAME CONSTANT VARCHAR2(3) := OKE_API.G_APP_NAME;
13 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
14 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
15 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKE_CONTRACTS_UNEXPECTED_ERROR';
16 G_PRODUCT_CODE CONSTANT VARCHAR2(3) := 'OKE';
17 G_PA_DESC_FLEX_NAME CONSTANT VARCHAR2(50) := 'PA_AGREEMENTS_DESC_FLEX';
18 G_PROJ_FUND_DESC_FLEX_NAME CONSTANT VARCHAR2(50) := 'PA_PROJECT_FUNDINGS_DESC_FLEX';
19 G_EXCEPTION_HALT_VALIDATION EXCEPTION;
20 G_RESOURCE_BUSY EXCEPTION;
21 PRAGMA EXCEPTION_INIT(G_RESOURCE_BUSY, -54);
22
23
24 --
25 -- Agreement_Rec_Type
26 --
27
28 TYPE agreement_rec_type is RECORD
29 (object_id NUMBER := OKE_API.G_MISS_NUM ,
30 org_total_amount NUMBER := OKE_API.G_MISS_NUM ,
31 total_amount NUMBER := OKE_API.G_MISS_NUM ,
32 agreement_currency_code VARCHAR2(15) := OKE_API.G_MISS_CHAR ,
33 --negative_amount NUMBER := OKE_API.G_MISS_NUM
34 agreement_id NUMBER := OKE_API.G_MISS_NUM
35 );
36
37 --
38 -- Agreement_Tbl_Type
39 --
40
41 TYPE agreement_tbl_type is TABLE of agreement_rec_type
42 index by binary_integer;
43
44 --
45 -- Pa_Agreement_Tbl_Type
46 --
47
48 TYPE pa_agreement_tbl_type is TABLE of PA_AGREEMENT_PUB.AGREEMENT_REC_IN_TYPE
49 index by binary_integer;
50
51
52 --
53 -- Procedure: create_agreement
54 --
55 -- Description: This procedure is used to create pa agreement
56 --
57 --
58
59 PROCEDURE create_agreement(p_api_version IN NUMBER ,
60 p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
61 p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
62 p_msg_count OUT NOCOPY NUMBER ,
63 p_msg_data OUT NOCOPY VARCHAR2 ,
64 p_agreement_type IN VARCHAR2 ,
65 p_funding_in_rec IN OKE_FUNDSOURCE_PVT.FUNDING_REC_IN_TYPE ,
66 -- p_allocation_in_tbl IN OKE_ALLOCATION_PVT.ALLOCATION_IN_TBL_TYPE ,
67 p_return_status OUT NOCOPY VARCHAR2
68 );
69
70 --
71 -- Procedure: update_agreement
72 --
73 -- Description: This procedure is used to update pa agreement
74 --
75 --
76
77 PROCEDURE update_agreement(p_api_version IN NUMBER ,
78 p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
79 p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
80 p_msg_count OUT NOCOPY NUMBER ,
81 p_msg_data OUT NOCOPY VARCHAR2 ,
82 p_agreement_type IN VARCHAR2 ,
83 p_funding_in_rec IN OKE_FUNDSOURCE_PVT.FUNDING_REC_IN_TYPE ,
84 -- p_allocation_in_tbl IN OKE_ALLOCATION_PVT.ALLOCATION_IN_TBL_TYPE ,
85 p_return_status OUT NOCOPY VARCHAR2
86 );
87
88
89 --
90 -- Procedure: update_pa_funding
91 --
92 -- Description: This procedure is used to update/insert record in pa project funding table
93 --
94 --
95
96 PROCEDURE update_pa_funding(p_api_version IN NUMBER ,
97 p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
98 p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
99 p_msg_count OUT NOCOPY NUMBER ,
100 p_msg_data OUT NOCOPY VARCHAR2 ,
101 p_allocation_in_rec IN OKE_ALLOCATION_PVT.ALLOCATION_REC_IN_TYPE ,
102 p_return_status OUT NOCOPY VARCHAR2
103 );
104
105
106 --
107 -- Procedure: add_pa_funding
108 --
109 -- Description: This procedure is used to add funding line to PA_PROJECT_FUNDINGS table
110 --
111 --
112
113 PROCEDURE add_pa_funding(p_api_version IN NUMBER ,
114 p_init_msg_list IN VARCHAR2 := OKE_API.G_FALSE ,
115 p_commit IN VARCHAR2 := OKE_API.G_FALSE ,
116 p_msg_count OUT NOCOPY NUMBER ,
117 p_msg_data OUT NOCOPY VARCHAR2 ,
118 p_allocation_in_rec IN OKE_ALLOCATION_PVT.ALLOCATION_REC_IN_TYPE ,
119 p_return_status OUT NOCOPY VARCHAR2
120 );
121
122
123 end OKE_AGREEMENT_PVT;