DBA Data[Home] [Help]

PACKAGE: APPS.OKS_MASSCHANGE_PVT

Source


1 PACKAGE OKS_MASSCHANGE_PVT AUTHID CURRENT_USER AS
2 /* $Header: OKSRMASS.pls 120.2 2007/12/07 09:03:57 mkarra ship $ */
3 
4 
5      ---------------------------------------------------------------------------
6   -- GLOBAL MESSAGE CONSTANTS
7   ---------------------------------------------------------------------------
8   G_TRUE                       CONSTANT VARCHAR2(1)   :=  OKC_API.G_TRUE;
9   G_FALSE                      CONSTANT VARCHAR2(1)   :=  OKC_API.G_FALSE;
10   G_RET_STS_SUCCESS	       CONSTANT VARCHAR2(1)   :=  OKC_API.G_RET_STS_SUCCESS;
11   G_RET_STS_ERROR	       CONSTANT VARCHAR2(1)   :=  OKC_API.G_RET_STS_ERROR;
12   G_RET_STS_UNEXP_ERROR        CONSTANT VARCHAR2(1)   :=  OKC_API.G_RET_STS_UNEXP_ERROR;
13   G_REQUIRED_VALUE             CONSTANT VARCHAR2(200) :=  OKC_API.G_REQUIRED_VALUE;
14   G_INVALID_VALUE              CONSTANT VARCHAR2(200) :=  OKC_API.G_INVALID_VALUE;
15   G_COL_NAME_TOKEN             CONSTANT VARCHAR2(200) :=  OKC_API.G_COL_NAME_TOKEN;
16   G_PARENT_TABLE_TOKEN         CONSTANT VARCHAR2(200) :=  OKC_API.G_PARENT_TABLE_TOKEN;
17   G_NO_PARENT_RECORD	       CONSTANT VARCHAR2(200) := 'OKS_NO_PARENT_RECORD';
18   G_CHILD_TABLE_TOKEN          CONSTANT VARCHAR2(200) :=  OKC_API.G_CHILD_TABLE_TOKEN;
19   G_UNEXPECTED_ERROR           CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
20   G_SQLERRM_TOKEN              CONSTANT VARCHAR2(200) := 'SQLerrm';
21   G_SQLCODE_TOKEN              CONSTANT VARCHAR2(200) := 'SQLcode';
22   G_UPPERCASE_REQUIRED         CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UPPERCASE_REQUIRED';
23 
24 
25     ---------------------------------------------------------------------------------------------
26 
27   -- GLOBAL EXCEPTION
28   ---------------------------------------
29   G_EXCEPTION_HALT_VALIDATION EXCEPTION;
30   ---------------------------------------
31 
32   ---------------------------------------------------------------------------
33   -- GLOBAL VARIABLES
34   ---------------------------------------------------------------------------
35   G_PKG_NAME	                CONSTANT VARCHAR2(200) := 'OKS_MASSCHANGE_PVT';
36   G_APP_NAME_OKS	        CONSTANT VARCHAR2(3)   := 'OKS';
37   G_APP_NAME_OKC	        CONSTANT VARCHAR2(3)   := 'OKC';
38   G_APP_NAME			CONSTANT VARCHAR2(3)   :=  OKC_API.G_APP_NAME;
39   G_NOT_SELECTED	        CONSTANT VARCHAR2(200) := 'NOT_SELECTED';
40   G_SELECTED		        CONSTANT VARCHAR2(200) := 'SELECTED';
41   G_PROCESSED		        CONSTANT VARCHAR2(200) := 'PROCESSED';
42   G_REJECTED		        CONSTANT VARCHAR2(200) := 'REJECTED';
43   G_INVALID_OL		        CONSTANT VARCHAR2(200) := 'INVALID_OL';
44   G_OI_STATUS_CODE	        CONSTANT VARCHAR2(200) := 'SAVED';
45   G_REQUEST_ID                  CONSTANT NUMBER        := FND_GLOBAL.CONC_REQUEST_ID;
46   G_PROGRAM_APPLICATION_ID      CONSTANT NUMBER        := FND_GLOBAL.PROG_APPL_ID;
47   G_PROGRAM_ID                  CONSTANT NUMBER        := FND_GLOBAL.CONC_PROGRAM_ID;
48   ---------------------------------------------------------------------------
49 
50   TYPE criteria_rec_type IS RECORD
51 		(oie_id               Number,
52                  update_level         Varchar2(100),
53 		 update_level_value   Varchar2(100),
54 		 attribute            Varchar2(100),
55 		 old_value            Varchar2(240),
56                  new_value            Varchar2(240),
57 		 ORG_ID 	      Number);
58 
59   TYPE opr_instance_rec_type IS RECORD
60 		(oie_id              Number,
61                 name                 Varchar2(150),
62                 status_code          Varchar2(50),
63                 update_level         Varchar2(100),
64 		update_level_value   Varchar2(100));
65 -- /*
66 -- subtype masschange_request_rec_type is OKC_OPER_INST_PUB.mrdv_rec_type;
67 -- subtype masschange_request_tbl_type is OKC_OPER_INST_PUB.mrdv_tbl_type;
68 -- */
69 
70  TYPE masschange_request_rec_type IS RECORD
71 		(id                  Number,
72          	oie_id               Number,
73          	ole_id               Number,
74 		attribute_name       Varchar2(100),
75 		old_value            Varchar2(240),
76          	new_value            Varchar2(240),
77          	qa_check_yn          Varchar2(3));
78 
79   TYPE ole_rec_type IS RECORD
80         (id                   Number,
81          oie_id               Number,
82          chr_id               Number,
83          process_flag         Varchar2(3),
84          select_yn            Varchar2(1));
85 
86   TYPE ole_tbl_type IS TABLE OF ole_rec_type INDEX BY BINARY_INTEGER;
87 
88 -- /*
89 --  subtype oiev_rec_type is OKC_OPER_INST_PUB.oiev_rec_type;
90 --  subtype oiev_tbl_type is OKC_OPER_INST_PUB.oiev_tbl_type;
91 --  subtype olev_rec_type is OKC_OPER_INST_PUB.olev_rec_type;
92 --  subtype olev_tbl_type is OKC_OPER_INST_PUB.olev_tbl_type;
93 --  subtype mrdv_rec_type is OKC_OPER_INST_PUB.mrdv_rec_type;
94 --  subtype mrdv_tbl_type is OKC_OPER_INST_PUB.mrdv_tbl_type;
95 -- */
96 
97 
98   TYPE eligible_contract_rec IS RECORD
99 		(contract_id              Number,
100 		 contract_number          Varchar2(120),
101 		 contract_number_modifier Varchar2(120),
102 		 short_description        Varchar2(600),
103 		 start_date               Date,
104 		 end_date                 Date,
105 		 party                    okx_parties_v.name%type,
106 		 old_value                Varchar2(240),
107 		 contract_status          Varchar2(50),
108                  process_flag             Varchar2(3) ,
109                  qcl_id                   Number,
110                  object_version_number    Number,
111                  ole_id                   Number,
112                  org_id                   Number,
113                  qa_check_yn              Varchar2(3)  ,
114                  operating_unit           VArchar2(240) ,
115 		 billed_at_source         Varchar2(2));
116 
117   TYPE eligible_contracts_tbl IS TABLE of eligible_contract_rec INDEX BY BINARY_INTEGER;
118 
119   TYPE masschg_contract_rec IS RECORD
120 		(contract_id              Number,
121 		 subject_chr_id           Number);
122   TYPE masschg_contracts_tbl IS TABLE of masschg_contract_rec INDEX BY BINARY_INTEGER;
123 
124   subtype chrv_tbl_type is okc_contract_pub.chrv_tbl_type;
125 
126   --PROCEDURES and FUNCTIONS
127 
128   PROCEDURE get_eligible_contracts
129 	(p_api_version		     IN  Number
130 	,p_init_msg_list	     IN  Varchar2
131 	,p_ctr_rec	             IN  criteria_rec_type
132         ,p_query_type                IN  Varchar2 DEFAULT 'FETCH'
133         ,p_upg_orig_system_ref       IN  Varchar2
134 	,x_return_status 	     OUT NOCOPY Varchar2
135 	,x_msg_count		     OUT NOCOPY Number
136 	,x_msg_data		     OUT NOCOPY Varchar2
137 	,x_eligible_contracts	     OUT NOCOPY eligible_contracts_tbl);
138 
139 
140  PROCEDURE LOCK_CONTRACT_HEADER(p_header_id IN NUMBER,
141                                 p_object_version_number IN NUMBER,
142                                 x_return_status OUT NOCOPY Varchar2);
143 
144  PROCEDURE UPDATE_CONTRACT(p_chrv_rec       IN  okc_contract_pub.chrv_rec_type,
145                            x_return_status  OUT NOCOPY VARCHAR2);
146 
147  PROCEDURE LOG_MESSAGES(p_mesg IN VARCHAR2);
148 
149   FUNCTION SUBMIT_CONC_FORM(p_oie_id        IN NUMBER,
150                             p_process_type  IN VARCHAR2,
151                             p_schedule_time IN VARCHAR2,
152                             p_check_yn      IN VARCHAR2)
153   RETURN NUMBER;
154 
155  PROCEDURE SUBMIT_CONC(ERRBUF                         OUT NOCOPY VARCHAR2,
156                        RETCODE                        OUT NOCOPY NUMBER,
157                        p_oie_id                       IN NUMBER,
158                        p_process_type                 IN VARCHAR2,
159                        p_check_yn                     IN VARCHAR2);
160 
161  PROCEDURE SUBMIT(ERRBUF                         OUT NOCOPY VARCHAR2,
162                   RETCODE                        OUT NOCOPY NUMBER,
163                   p_api_version                  IN  NUMBER,
164                   p_init_msg_list                IN  VARCHAR2 DEFAULT OKC_API.G_FALSE,
165                   x_return_status                OUT NOCOPY VARCHAR2,
166                   x_msg_count                    OUT NOCOPY NUMBER,
167                   x_msg_data                     OUT NOCOPY VARCHAR2,
168                   p_conc_program                 IN  VARCHAR2,
169          	  p_process_type                 IN  Varchar2,
170                   p_oie_id                       IN  NUMBER,
171                   p_check_yn                     IN  Varchar2 );
172 
173  PROCEDURE Notify_completion(p_process_type    IN Varchar2,
174                              p_req_id          IN Number,
175                              p_masschange_name IN Varchar2);
176 
177  PROCEDURE SUBMIT_MASSCHANGE(ERRBUF                         OUT NOCOPY VARCHAR2,
178                              RETCODE                        OUT NOCOPY NUMBER,
179                              p_oie_id                       IN NUMBER,
180                              p_check_yn                     IN  Varchar2);
181 
182  PROCEDURE PREVIEW_MASSCHANGE(ERRBUF                         OUT NOCOPY VARCHAR2,
183                               RETCODE                        OUT NOCOPY NUMBER,
184                               p_oie_id                       IN NUMBER,
185                               p_check_yn                     IN  Varchar2);
186 
187 --/*PROCEDURE CREATE_OPERATION_INSTANCES (p_oie_rec  IN OKS_MASSCHANGE_PVT.opr_instance_rec_type,
188 --                                       x_oie_id   OUT NOCOPY NUMBER);
189 --*/
190 
191 PROCEDURE CREATE_OPERATION_INSTANCES (p_oie_rec  IN opr_instance_rec_type,
192                                       p_mrd_rec  IN masschange_request_rec_type,
193                                       x_oie_id   OUT NOCOPY NUMBER);
194 
195 PROCEDURE UPDATE_OPERATION_INSTANCES (p_oie_rec  IN opr_instance_rec_type,
196                                       p_mrd_rec  IN masschange_request_rec_type,
197                                       x_return_status OUT NOCOPY Varchar2);
198 
199 PROCEDURE DELETE_OPERATION_INSTANCES (p_oie_rec  IN opr_instance_rec_type,
200                                       x_return_status OUT NOCOPY Varchar2);
201 
202 PROCEDURE CREATE_MASSCHANGE_LINE_DTLS(p_omr_rec  IN masschange_request_rec_type,
203                                      x_omr_id   OUT NOCOPY NUMBER);
204 PROCEDURE CREATE_OPERATION_LINES (p_ole_tbl IN ole_tbl_type, --olev_tbl_type,
205                                   x_ole_tbl OUT NOCOPY OKC_OPER_INST_PUB.olev_tbl_type);
206 
207 PROCEDURE UPDATE_OPERATION_LINES(p_ole_id IN NUMBER,
208                                  p_select_yn IN VARCHAR2,
209                                  p_qa_check_yn IN VARCHAR2 ) ;
210 
211 
212 PROCEDURE DELETE_OPERATION_LINES (p_oie_id IN Number,
213                                   x_return_status OUT NOCOPY Varchar2);
214 
215 PROCEDURE get_attribute_value(p_attr_code IN Varchar2,
216                                  p_attr_id IN Varchar2,
217                                  p_org_id   IN Number,
218                                  x_attr_value OUT NOCOPY Varchar2,
219                                  x_attr_name  OUT NOCOPY Varchar2);
220 
221 PROCEDURE Create_Mschg_Class_Operation;
222 
223 
224 
225 PROCEDURE UPDATE_LINE_STATUS(p_oie_id IN Number);
226 PROCEDURE UPDATE_QA_CHECK_YN_COL ;
227 
228 END OKS_MASSCHANGE_PVT;