DBA Data[Home] [Help]

PACKAGE: APPS.OKL_VIP_PVT

Source


1 PACKAGE OKL_VIP_PVT AUTHID CURRENT_USER AS
2 /* $Header: OKLSVIPS.pls 115.3 2003/02/19 22:07:41 sanahuja noship $ */
3   ---------------------------------------------------------------------------
4   -- GLOBAL DATASTRUCTURES
5   ---------------------------------------------------------------------------
6   -- OKL_VAR_INT_PROCESS_V Record Spec
7   TYPE vipv_rec_type IS RECORD (
8      id                             NUMBER := OKC_API.G_MISS_NUM
9     ,object_version_number          NUMBER := OKC_API.G_MISS_NUM
10     ,parent_trx_id                  NUMBER := OKC_API.G_MISS_NUM
11     ,child_trx_id                   NUMBER := OKC_API.G_MISS_NUM
12     ,contract_number                OKL_VAR_INT_PROCESS_V.CONTRACT_NUMBER%TYPE := OKC_API.G_MISS_CHAR
13     ,rebook_status                  OKL_VAR_INT_PROCESS_V.REBOOK_STATUS%TYPE := OKC_API.G_MISS_CHAR
14     ,request_id                     NUMBER := Okl_Api.G_MISS_NUM
15     ,program_application_id         NUMBER := Okl_Api.G_MISS_NUM
16     ,program_id                     NUMBER := Okl_Api.G_MISS_NUM
17     ,program_update_date            OKL_TRX_AR_INVOICES_B.PROGRAM_UPDATE_DATE%TYPE := Okl_Api.G_MISS_DATE
18     ,org_id                         NUMBER := Okl_Api.G_MISS_NUM
19     ,attribute_category             OKL_VAR_INT_PROCESS_V.ATTRIBUTE_CATEGORY%TYPE := OKC_API.G_MISS_CHAR
20     ,attribute1                     OKL_VAR_INT_PROCESS_V.ATTRIBUTE1%TYPE := OKC_API.G_MISS_CHAR
21     ,attribute2                     OKL_VAR_INT_PROCESS_V.ATTRIBUTE2%TYPE := OKC_API.G_MISS_CHAR
22     ,attribute3                     OKL_VAR_INT_PROCESS_V.ATTRIBUTE3%TYPE := OKC_API.G_MISS_CHAR
23     ,attribute4                     OKL_VAR_INT_PROCESS_V.ATTRIBUTE4%TYPE := OKC_API.G_MISS_CHAR
24     ,attribute5                     OKL_VAR_INT_PROCESS_V.ATTRIBUTE5%TYPE := OKC_API.G_MISS_CHAR
25     ,attribute6                     OKL_VAR_INT_PROCESS_V.ATTRIBUTE6%TYPE := OKC_API.G_MISS_CHAR
26     ,attribute7                     OKL_VAR_INT_PROCESS_V.ATTRIBUTE7%TYPE := OKC_API.G_MISS_CHAR
27     ,attribute8                     OKL_VAR_INT_PROCESS_V.ATTRIBUTE8%TYPE := OKC_API.G_MISS_CHAR
28     ,attribute9                     OKL_VAR_INT_PROCESS_V.ATTRIBUTE9%TYPE := OKC_API.G_MISS_CHAR
29     ,attribute10                    OKL_VAR_INT_PROCESS_V.ATTRIBUTE10%TYPE := OKC_API.G_MISS_CHAR
30     ,attribute11                    OKL_VAR_INT_PROCESS_V.ATTRIBUTE11%TYPE := OKC_API.G_MISS_CHAR
31     ,attribute12                    OKL_VAR_INT_PROCESS_V.ATTRIBUTE12%TYPE := OKC_API.G_MISS_CHAR
32     ,attribute13                    OKL_VAR_INT_PROCESS_V.ATTRIBUTE13%TYPE := OKC_API.G_MISS_CHAR
33     ,attribute14                    OKL_VAR_INT_PROCESS_V.ATTRIBUTE14%TYPE := OKC_API.G_MISS_CHAR
34     ,attribute15                    OKL_VAR_INT_PROCESS_V.ATTRIBUTE15%TYPE := OKC_API.G_MISS_CHAR
35     ,created_by                     NUMBER := OKC_API.G_MISS_NUM
36     ,creation_date                  OKL_VAR_INT_PROCESS_V.CREATION_DATE%TYPE := OKC_API.G_MISS_DATE
37     ,last_updated_by                NUMBER := OKC_API.G_MISS_NUM
38     ,last_update_date               OKL_VAR_INT_PROCESS_V.LAST_UPDATE_DATE%TYPE := OKC_API.G_MISS_DATE
39     ,last_update_login              NUMBER := OKC_API.G_MISS_NUM);
40   G_MISS_vipv_rec                         vipv_rec_type;
41   TYPE vipv_tbl_type IS TABLE OF vipv_rec_type
42         INDEX BY BINARY_INTEGER;
43   -- OKL_VAR_INT_PROCESS_B Record Spec
44   TYPE vip_rec_type IS RECORD (
45      id                             NUMBER := OKC_API.G_MISS_NUM
46     ,parent_trx_id                  NUMBER := OKC_API.G_MISS_NUM
47     ,child_trx_id                   NUMBER := OKC_API.G_MISS_NUM
48     ,contract_number                OKL_VAR_INT_PROCESS_B.CONTRACT_NUMBER%TYPE := OKC_API.G_MISS_CHAR
49     ,rebook_status                  OKL_VAR_INT_PROCESS_B.REBOOK_STATUS%TYPE := OKC_API.G_MISS_CHAR
50     ,request_id                     NUMBER := Okl_Api.G_MISS_NUM
51     ,program_application_id         NUMBER := Okl_Api.G_MISS_NUM
52     ,program_id                     NUMBER := Okl_Api.G_MISS_NUM
53     ,program_update_date            OKL_TRX_AR_INVOICES_B.PROGRAM_UPDATE_DATE%TYPE := Okl_Api.G_MISS_DATE
54     ,org_id                         NUMBER := Okl_Api.G_MISS_NUM
55     ,attribute_category             OKL_VAR_INT_PROCESS_B.ATTRIBUTE_CATEGORY%TYPE := OKC_API.G_MISS_CHAR
56     ,attribute1                     OKL_VAR_INT_PROCESS_B.ATTRIBUTE1%TYPE := OKC_API.G_MISS_CHAR
57     ,attribute2                     OKL_VAR_INT_PROCESS_B.ATTRIBUTE2%TYPE := OKC_API.G_MISS_CHAR
58     ,attribute3                     OKL_VAR_INT_PROCESS_B.ATTRIBUTE3%TYPE := OKC_API.G_MISS_CHAR
59     ,attribute4                     OKL_VAR_INT_PROCESS_B.ATTRIBUTE4%TYPE := OKC_API.G_MISS_CHAR
60     ,attribute5                     OKL_VAR_INT_PROCESS_B.ATTRIBUTE5%TYPE := OKC_API.G_MISS_CHAR
61     ,attribute6                     OKL_VAR_INT_PROCESS_B.ATTRIBUTE6%TYPE := OKC_API.G_MISS_CHAR
62     ,attribute7                     OKL_VAR_INT_PROCESS_B.ATTRIBUTE7%TYPE := OKC_API.G_MISS_CHAR
63     ,attribute8                     OKL_VAR_INT_PROCESS_B.ATTRIBUTE8%TYPE := OKC_API.G_MISS_CHAR
64     ,attribute9                     OKL_VAR_INT_PROCESS_B.ATTRIBUTE9%TYPE := OKC_API.G_MISS_CHAR
65     ,attribute10                    OKL_VAR_INT_PROCESS_B.ATTRIBUTE10%TYPE := OKC_API.G_MISS_CHAR
66     ,attribute11                    OKL_VAR_INT_PROCESS_B.ATTRIBUTE11%TYPE := OKC_API.G_MISS_CHAR
67     ,attribute12                    OKL_VAR_INT_PROCESS_B.ATTRIBUTE12%TYPE := OKC_API.G_MISS_CHAR
68     ,attribute13                    OKL_VAR_INT_PROCESS_B.ATTRIBUTE13%TYPE := OKC_API.G_MISS_CHAR
69     ,attribute14                    OKL_VAR_INT_PROCESS_B.ATTRIBUTE14%TYPE := OKC_API.G_MISS_CHAR
70     ,attribute15                    OKL_VAR_INT_PROCESS_B.ATTRIBUTE15%TYPE := OKC_API.G_MISS_CHAR
71     ,created_by                     NUMBER := OKC_API.G_MISS_NUM
72     ,creation_date                  OKL_VAR_INT_PROCESS_B.CREATION_DATE%TYPE := OKC_API.G_MISS_DATE
73     ,last_updated_by                NUMBER := OKC_API.G_MISS_NUM
74     ,last_update_date               OKL_VAR_INT_PROCESS_B.LAST_UPDATE_DATE%TYPE := OKC_API.G_MISS_DATE
75     ,last_update_login              NUMBER := OKC_API.G_MISS_NUM
76     ,object_version_number          NUMBER := OKC_API.G_MISS_NUM);
77   G_MISS_vip_rec                          vip_rec_type;
78   TYPE vip_tbl_type IS TABLE OF vip_rec_type
79         INDEX BY BINARY_INTEGER;
80   ---------------------------------------------------------------------------
81   -- GLOBAL MESSAGE CONSTANTS
82   ---------------------------------------------------------------------------
83   G_FND_APP                      CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
84   G_FORM_UNABLE_TO_RESERVE_REC   CONSTANT VARCHAR2(200) := OKC_API.G_FORM_UNABLE_TO_RESERVE_REC;
85   G_FORM_RECORD_DELETED          CONSTANT VARCHAR2(200) := OKC_API.G_FORM_RECORD_DELETED;
86   G_FORM_RECORD_CHANGED          CONSTANT VARCHAR2(200) := OKC_API.G_FORM_RECORD_CHANGED;
87   G_RECORD_LOGICALLY_DELETED     CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
88   G_REQUIRED_VALUE               CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
89   G_INVALID_VALUE                CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
90   G_COL_NAME_TOKEN               CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
91   G_PARENT_TABLE_TOKEN           CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
92   G_CHILD_TABLE_TOKEN            CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
93   G_UNEXPECTED_ERROR             CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
94   G_SQLCODE_TOKEN                CONSTANT VARCHAR2(200) := 'SQLcode';
95   G_SQLERRM_TOKEN                CONSTANT VARCHAR2(200) := 'SQLerrm';
96 
97   ---------------------------------------------------------------------------
98   -- GLOBAL EXCEPTIONS
99   ---------------------------------------------------------------------------
100   G_EXCEPTION_HALT_VALIDATION    EXCEPTION;
101 
102   ---------------------------------------------------------------------------
103   -- GLOBAL VARIABLES
104   ---------------------------------------------------------------------------
105   G_PKG_NAME                     CONSTANT VARCHAR2(200) := 'OKL_VIP_PVT';
106   G_APP_NAME                     CONSTANT VARCHAR2(3)   := OKC_API.G_APP_NAME;
107   ---------------------------------------------------------------------------
108   -- Procedures and Functions
109   ---------------------------------------------------------------------------
110 
111   PROCEDURE qc;
112   PROCEDURE change_version;
113   PROCEDURE api_copy;
114   PROCEDURE insert_row(
115     p_api_version                  IN NUMBER,
116     p_init_msg_list                IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
117     x_return_status                OUT NOCOPY VARCHAR2,
118     x_msg_count                    OUT NOCOPY NUMBER,
119     x_msg_data                     OUT NOCOPY VARCHAR2,
120     p_vipv_rec                     IN vipv_rec_type,
121     x_vipv_rec                     OUT NOCOPY vipv_rec_type);
122   PROCEDURE insert_row(
123     p_api_version                  IN NUMBER,
124     p_init_msg_list                IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
125     x_return_status                OUT NOCOPY VARCHAR2,
126     x_msg_count                    OUT NOCOPY NUMBER,
127     x_msg_data                     OUT NOCOPY VARCHAR2,
128     p_vipv_tbl                     IN vipv_tbl_type,
129     x_vipv_tbl                     OUT NOCOPY vipv_tbl_type);
130   PROCEDURE lock_row(
131     p_api_version                  IN NUMBER,
132     p_init_msg_list                IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
133     x_return_status                OUT NOCOPY VARCHAR2,
134     x_msg_count                    OUT NOCOPY NUMBER,
135     x_msg_data                     OUT NOCOPY VARCHAR2,
136     p_vipv_rec                     IN vipv_rec_type);
137   PROCEDURE lock_row(
138     p_api_version                  IN NUMBER,
139     p_init_msg_list                IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
140     x_return_status                OUT NOCOPY VARCHAR2,
141     x_msg_count                    OUT NOCOPY NUMBER,
142     x_msg_data                     OUT NOCOPY VARCHAR2,
143     p_vipv_tbl                     IN vipv_tbl_type);
144   PROCEDURE update_row(
145     p_api_version                  IN NUMBER,
146     p_init_msg_list                IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
147     x_return_status                OUT NOCOPY VARCHAR2,
148     x_msg_count                    OUT NOCOPY NUMBER,
149     x_msg_data                     OUT NOCOPY VARCHAR2,
150     p_vipv_rec                     IN vipv_rec_type,
151     x_vipv_rec                     OUT NOCOPY vipv_rec_type);
152   PROCEDURE update_row(
153     p_api_version                  IN NUMBER,
154     p_init_msg_list                IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
155     x_return_status                OUT NOCOPY VARCHAR2,
156     x_msg_count                    OUT NOCOPY NUMBER,
157     x_msg_data                     OUT NOCOPY VARCHAR2,
158     p_vipv_tbl                     IN vipv_tbl_type,
159     x_vipv_tbl                     OUT NOCOPY vipv_tbl_type);
160   PROCEDURE delete_row(
161     p_api_version                  IN NUMBER,
162     p_init_msg_list                IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
163     x_return_status                OUT NOCOPY VARCHAR2,
164     x_msg_count                    OUT NOCOPY NUMBER,
165     x_msg_data                     OUT NOCOPY VARCHAR2,
166     p_vipv_rec                     IN vipv_rec_type);
167   PROCEDURE delete_row(
168     p_api_version                  IN NUMBER,
169     p_init_msg_list                IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
170     x_return_status                OUT NOCOPY VARCHAR2,
171     x_msg_count                    OUT NOCOPY NUMBER,
172     x_msg_data                     OUT NOCOPY VARCHAR2,
173     p_vipv_tbl                     IN vipv_tbl_type);
174   PROCEDURE validate_row(
175     p_api_version                  IN NUMBER,
176     p_init_msg_list                IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
177     x_return_status                OUT NOCOPY VARCHAR2,
178     x_msg_count                    OUT NOCOPY NUMBER,
179     x_msg_data                     OUT NOCOPY VARCHAR2,
180     p_vipv_rec                     IN vipv_rec_type);
181   PROCEDURE validate_row(
182     p_api_version                  IN NUMBER,
183     p_init_msg_list                IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
184     x_return_status                OUT NOCOPY VARCHAR2,
185     x_msg_count                    OUT NOCOPY NUMBER,
186     x_msg_data                     OUT NOCOPY VARCHAR2,
187     p_vipv_tbl                     IN vipv_tbl_type);
188 END OKL_VIP_PVT;
189 
190