[Home] [Help]
PACKAGE BODY: APPS.PSP_ENC_LINES_PKG
Source
1 package body PSP_ENC_LINES_PKG AS
2 /* $Header: PSPENLTB.pls 115.10 2002/11/19 11:45:24 ddubey ship $ */
3
4 /* Introduced x_enc_start_date,x_enc_end_date for Enh. Bug# 2259310 */
5 procedure INSERT_ROW (
6 X_ROWID in out NOCOPY VARCHAR2,
7 X_ENC_LINE_ID in NUMBER,
8 X_BUSINESS_GROUP_ID in NUMBER,
9 X_ENC_ELEMENT_TYPE_ID in NUMBER,
10 X_ENCUMBRANCE_DATE in DATE,
11 X_DR_CR_FLAG in VARCHAR2,
12 X_ENCUMBRANCE_AMOUNT in NUMBER,
13 X_ENC_LINE_TYPE in VARCHAR2,
14 X_SCHEDULE_LINE_ID in NUMBER,
15 X_ORG_SCHEDULE_ID in NUMBER,
16 X_DEFAULT_ORG_ACCOUNT_ID in NUMBER,
17 X_SUSPENSE_ORG_ACCOUNT_ID in NUMBER,
18 X_ELEMENT_ACCOUNT_ID in NUMBER,
19 X_GL_PROJECT_FLAG in VARCHAR2,
20 X_ENC_SUMMARY_LINE_ID in NUMBER,
21 X_PERSON_ID in NUMBER,
22 X_ASSIGNMENT_ID in NUMBER,
23 X_AWARD_ID in NUMBER,
24 X_TASK_ID in NUMBER,
25 X_EXPENDITURE_TYPE in VARCHAR2,
26 X_EXPENDITURE_ORGANIZATION_ID in NUMBER,
27 X_PROJECT_ID in NUMBER,
28 X_GL_CODE_COMBINATION_ID in NUMBER,
29 X_TIME_PERIOD_ID in NUMBER,
30 X_PAYROLL_ID in NUMBER,
31 X_SET_OF_BOOKS_ID in NUMBER,
32 X_DEFAULT_REASON_CODE in VARCHAR2,
33 X_SUSPENSE_REASON_CODE in VARCHAR2,
34 X_ENC_CONTROL_ID in NUMBER,
35 X_MODE in VARCHAR2 default 'R',
36 X_CHANGE_FLAG in VARCHAR2 default 'N',
37 X_STATUS_CODE in VARCHAR2,
38 X_ENC_START_DATE in DATE DEFAULT NULL,
39 X_ENC_END_DATE in DATE DEFAULT NULL
40 ) is
41 cursor C is select ROWID from PSP_ENC_LINES
42 where ENC_LINE_ID = X_ENC_LINE_ID;
43 X_LAST_UPDATE_DATE DATE;
44 X_LAST_UPDATED_BY NUMBER;
45 X_LAST_UPDATE_LOGIN NUMBER;
46 begin
47 X_LAST_UPDATE_DATE := SYSDATE;
48 if(X_MODE = 'I') then
49 X_LAST_UPDATED_BY := 1;
50 X_LAST_UPDATE_LOGIN := 0;
51 elsif (X_MODE = 'R') then
52 X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
53 if X_LAST_UPDATED_BY is NULL then
54 X_LAST_UPDATED_BY := -1;
55 end if;
56 X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
57 if X_LAST_UPDATE_LOGIN is NULL then
58 X_LAST_UPDATE_LOGIN := -1;
59 end if;
60 else
61 FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
62 app_exception.raise_exception;
63 end if;
64 insert into PSP_ENC_LINES (
65 ENC_LINE_ID,
66 BUSINESS_GROUP_ID,
67 ENC_ELEMENT_TYPE_ID,
68 ENCUMBRANCE_DATE,
69 DR_CR_FLAG,
70 ENCUMBRANCE_AMOUNT,
71 ENC_LINE_TYPE,
72 SCHEDULE_LINE_ID,
73 ORG_SCHEDULE_ID,
74 DEFAULT_ORG_ACCOUNT_ID,
75 SUSPENSE_ORG_ACCOUNT_ID,
76 ELEMENT_ACCOUNT_ID,
77 GL_PROJECT_FLAG,
78 ENC_SUMMARY_LINE_ID,
79 PERSON_ID,
80 ASSIGNMENT_ID,
81 AWARD_ID,
82 TASK_ID,
83 EXPENDITURE_TYPE,
84 EXPENDITURE_ORGANIZATION_ID,
85 PROJECT_ID,
86 GL_CODE_COMBINATION_ID,
87 TIME_PERIOD_ID,
88 PAYROLL_ID,
89 SET_OF_BOOKS_ID,
90 DEFAULT_REASON_CODE,
91 SUSPENSE_REASON_CODE,
92 ENC_CONTROL_ID,
93 CREATION_DATE,
94 CREATED_BY,
95 LAST_UPDATE_DATE,
96 LAST_UPDATED_BY,
97 LAST_UPDATE_LOGIN,
98 STATUS_CODE,
99 CHANGE_FLAG
100 ) values (
101 X_ENC_LINE_ID,
102 X_BUSINESS_GROUP_ID,
103 X_ENC_ELEMENT_TYPE_ID,
104 X_ENCUMBRANCE_DATE,
105 X_DR_CR_FLAG,
106 X_ENCUMBRANCE_AMOUNT,
107 X_ENC_LINE_TYPE,
108 X_SCHEDULE_LINE_ID,
109 X_ORG_SCHEDULE_ID,
110 X_DEFAULT_ORG_ACCOUNT_ID,
111 X_SUSPENSE_ORG_ACCOUNT_ID,
112 X_ELEMENT_ACCOUNT_ID,
113 X_GL_PROJECT_FLAG,
114 X_ENC_SUMMARY_LINE_ID,
115 X_PERSON_ID,
116 X_ASSIGNMENT_ID,
117 X_AWARD_ID,
118 X_TASK_ID,
119 X_EXPENDITURE_TYPE,
120 X_EXPENDITURE_ORGANIZATION_ID,
121 X_PROJECT_ID,
122 X_GL_CODE_COMBINATION_ID,
123 X_TIME_PERIOD_ID,
124 X_PAYROLL_ID,
125 X_SET_OF_BOOKS_ID,
126 X_DEFAULT_REASON_CODE,
127 X_SUSPENSE_REASON_CODE,
128 X_ENC_CONTROL_ID,
129 X_LAST_UPDATE_DATE,
130 X_LAST_UPDATED_BY,
131 X_LAST_UPDATE_DATE,
132 X_LAST_UPDATED_BY,
133 X_LAST_UPDATE_LOGIN,
134 X_STATUS_CODE,
135 X_CHANGE_FLAG
136 );
137
138 open c;
139 fetch c into X_ROWID;
140 if (c%notfound) then
141 close c;
142 raise no_data_found;
143 end if;
144 close c;
145
146 end INSERT_ROW;
147
148 /* Introduced x_enc_start_date,x_enc_end_date for Enh. Bug# 2259310 */
149 procedure LOCK_ROW (
150 X_ENC_LINE_ID in NUMBER,
151 X_BUSINESS_GROUP_ID in NUMBER,
152 X_ENC_ELEMENT_TYPE_ID in NUMBER,
153 X_ENCUMBRANCE_DATE in DATE,
154 X_DR_CR_FLAG in VARCHAR2,
155 X_ENCUMBRANCE_AMOUNT in NUMBER,
156 X_ENC_LINE_TYPE in VARCHAR2,
157 X_SCHEDULE_LINE_ID in NUMBER,
158 X_ORG_SCHEDULE_ID in NUMBER,
159 X_DEFAULT_ORG_ACCOUNT_ID in NUMBER,
160 X_SUSPENSE_ORG_ACCOUNT_ID in NUMBER,
161 X_ELEMENT_ACCOUNT_ID in NUMBER,
162 X_GL_PROJECT_FLAG in VARCHAR2,
163 X_ENC_SUMMARY_LINE_ID in NUMBER,
164 X_PERSON_ID in NUMBER,
165 X_ASSIGNMENT_ID in NUMBER,
166 X_AWARD_ID in NUMBER,
167 X_TASK_ID in NUMBER,
168 X_EXPENDITURE_TYPE in VARCHAR2,
169 X_EXPENDITURE_ORGANIZATION_ID in NUMBER,
170 X_PROJECT_ID in NUMBER,
171 X_GL_CODE_COMBINATION_ID in NUMBER,
172 X_TIME_PERIOD_ID in NUMBER,
173 X_PAYROLL_ID in NUMBER,
174 X_SET_OF_BOOKS_ID in NUMBER,
175 X_DEFAULT_REASON_CODE in VARCHAR2,
176 X_SUSPENSE_REASON_CODE in VARCHAR2,
177 X_ENC_CONTROL_ID in NUMBER,
178 X_ENC_START_DATE in DATE DEFAULT NULL,
179 X_ENC_END_DATE in DATE DEFAULT NULL
180 ) is
181 cursor c1 is select
182 BUSINESS_GROUP_ID,
183 ENC_ELEMENT_TYPE_ID,
184 ENCUMBRANCE_DATE,
185 DR_CR_FLAG,
186 ENCUMBRANCE_AMOUNT,
187 ENC_LINE_TYPE,
188 SCHEDULE_LINE_ID,
189 ORG_SCHEDULE_ID,
190 DEFAULT_ORG_ACCOUNT_ID,
191 SUSPENSE_ORG_ACCOUNT_ID,
192 ELEMENT_ACCOUNT_ID,
193 GL_PROJECT_FLAG,
194 ENC_SUMMARY_LINE_ID,
195 PERSON_ID,
196 ASSIGNMENT_ID,
197 AWARD_ID,
198 TASK_ID,
199 EXPENDITURE_TYPE,
200 EXPENDITURE_ORGANIZATION_ID,
201 PROJECT_ID,
202 GL_CODE_COMBINATION_ID,
203 TIME_PERIOD_ID,
204 PAYROLL_ID,
205 SET_OF_BOOKS_ID,
206 DEFAULT_REASON_CODE,
207 SUSPENSE_REASON_CODE,
208 ENC_CONTROL_ID
209 from PSP_ENC_LINES
210 where ENC_LINE_ID = X_ENC_LINE_ID
211 for update of ENC_LINE_ID nowait;
212 tlinfo c1%rowtype;
213
214 begin
215 open c1;
216 fetch c1 into tlinfo;
217 if (c1%notfound) then
218 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
219 app_exception.raise_exception;
220 close c1;
221 return;
222 end if;
223 close c1;
224
225 if ( (tlinfo.BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID)
226 AND (tlinfo.ENC_ELEMENT_TYPE_ID = X_ENC_ELEMENT_TYPE_ID)
227 AND (tlinfo.ENCUMBRANCE_DATE = X_ENCUMBRANCE_DATE)
228 AND (tlinfo.DR_CR_FLAG = X_DR_CR_FLAG)
229 AND (tlinfo.ENCUMBRANCE_AMOUNT = X_ENCUMBRANCE_AMOUNT)
230 AND (tlinfo.ENC_LINE_TYPE = X_ENC_LINE_TYPE)
231 AND ((tlinfo.SCHEDULE_LINE_ID = X_SCHEDULE_LINE_ID)
232 OR ((tlinfo.SCHEDULE_LINE_ID is null)
233 AND (X_SCHEDULE_LINE_ID is null)))
234 AND ((tlinfo.ORG_SCHEDULE_ID = X_ORG_SCHEDULE_ID)
235 OR ((tlinfo.ORG_SCHEDULE_ID is null)
236 AND (X_ORG_SCHEDULE_ID is null)))
237 AND ((tlinfo.DEFAULT_ORG_ACCOUNT_ID = X_DEFAULT_ORG_ACCOUNT_ID)
238 OR ((tlinfo.DEFAULT_ORG_ACCOUNT_ID is null)
239 AND (X_DEFAULT_ORG_ACCOUNT_ID is null)))
240 AND ((tlinfo.SUSPENSE_ORG_ACCOUNT_ID = X_SUSPENSE_ORG_ACCOUNT_ID)
241 OR ((tlinfo.SUSPENSE_ORG_ACCOUNT_ID is null)
242 AND (X_SUSPENSE_ORG_ACCOUNT_ID is null)))
243 AND ((tlinfo.ELEMENT_ACCOUNT_ID = X_ELEMENT_ACCOUNT_ID)
244 OR ((tlinfo.ELEMENT_ACCOUNT_ID is null)
245 AND (X_ELEMENT_ACCOUNT_ID is null)))
246 AND (tlinfo.GL_PROJECT_FLAG = X_GL_PROJECT_FLAG)
247 AND ((tlinfo.ENC_SUMMARY_LINE_ID = X_ENC_SUMMARY_LINE_ID)
248 OR ((tlinfo.ENC_SUMMARY_LINE_ID is null)
249 AND (X_ENC_SUMMARY_LINE_ID is null)))
250 AND (tlinfo.PERSON_ID = X_PERSON_ID)
251 AND (tlinfo.ASSIGNMENT_ID = X_ASSIGNMENT_ID)
252 AND ((tlinfo.AWARD_ID = X_AWARD_ID)
253 OR ((tlinfo.AWARD_ID is null)
254 AND (X_AWARD_ID is null)))
255 AND ((tlinfo.TASK_ID = X_TASK_ID)
256 OR ((tlinfo.TASK_ID is null)
257 AND (X_TASK_ID is null)))
258 AND ((tlinfo.EXPENDITURE_TYPE = X_EXPENDITURE_TYPE)
259 OR ((tlinfo.EXPENDITURE_TYPE is null)
260 AND (X_EXPENDITURE_TYPE is null)))
261 AND ((tlinfo.EXPENDITURE_ORGANIZATION_ID = X_EXPENDITURE_ORGANIZATION_ID)
262 OR ((tlinfo.EXPENDITURE_ORGANIZATION_ID is null)
263 AND (X_EXPENDITURE_ORGANIZATION_ID is null)))
264 AND ((tlinfo.PROJECT_ID = X_PROJECT_ID)
265 OR ((tlinfo.PROJECT_ID is null)
266 AND (X_PROJECT_ID is null)))
267 AND ((tlinfo.GL_CODE_COMBINATION_ID = X_GL_CODE_COMBINATION_ID)
268 OR ((tlinfo.GL_CODE_COMBINATION_ID is null)
269 AND (X_GL_CODE_COMBINATION_ID is null)))
270 AND (tlinfo.TIME_PERIOD_ID = X_TIME_PERIOD_ID)
271 AND (tlinfo.PAYROLL_ID = X_PAYROLL_ID)
272 AND ((tlinfo.SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID)
273 OR ((tlinfo.SET_OF_BOOKS_ID is null)
274 AND (X_SET_OF_BOOKS_ID is null)))
275 AND ((tlinfo.DEFAULT_REASON_CODE = X_DEFAULT_REASON_CODE)
276 OR ((tlinfo.DEFAULT_REASON_CODE is null)
277 AND (X_DEFAULT_REASON_CODE is null)))
278 AND ((tlinfo.SUSPENSE_REASON_CODE = X_SUSPENSE_REASON_CODE)
279 OR ((tlinfo.SUSPENSE_REASON_CODE is null)
280 AND (X_SUSPENSE_REASON_CODE is null)))
281 AND (tlinfo.ENC_CONTROL_ID = X_ENC_CONTROL_ID)
282 ) then
283 null;
284 else
285 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
286 app_exception.raise_exception;
287 end if;
288 return;
289 end LOCK_ROW;
290
291 /* Introduced x_enc_start_date,x_enc_end_date for Enh. Bug# 2259310 */
292 procedure UPDATE_ROW (
293 X_ENC_LINE_ID in NUMBER,
294 X_BUSINESS_GROUP_ID in NUMBER,
295 X_ENC_ELEMENT_TYPE_ID in NUMBER,
296 X_ENCUMBRANCE_DATE in DATE,
297 X_DR_CR_FLAG in VARCHAR2,
298 X_ENCUMBRANCE_AMOUNT in NUMBER,
299 X_ENC_LINE_TYPE in VARCHAR2,
300 X_SCHEDULE_LINE_ID in NUMBER,
301 X_ORG_SCHEDULE_ID in NUMBER,
302 X_DEFAULT_ORG_ACCOUNT_ID in NUMBER,
303 X_SUSPENSE_ORG_ACCOUNT_ID in NUMBER,
304 X_ELEMENT_ACCOUNT_ID in NUMBER,
305 X_GL_PROJECT_FLAG in VARCHAR2,
306 X_ENC_SUMMARY_LINE_ID in NUMBER,
307 X_PERSON_ID in NUMBER,
308 X_ASSIGNMENT_ID in NUMBER,
309 X_AWARD_ID in NUMBER,
310 X_TASK_ID in NUMBER,
311 X_EXPENDITURE_TYPE in VARCHAR2,
312 X_EXPENDITURE_ORGANIZATION_ID in NUMBER,
313 X_PROJECT_ID in NUMBER,
314 X_GL_CODE_COMBINATION_ID in NUMBER,
315 X_TIME_PERIOD_ID in NUMBER,
316 X_PAYROLL_ID in NUMBER,
317 X_SET_OF_BOOKS_ID in NUMBER,
318 X_DEFAULT_REASON_CODE in VARCHAR2,
319 X_SUSPENSE_REASON_CODE in VARCHAR2,
320 X_ENC_CONTROL_ID in NUMBER,
321 X_MODE in VARCHAR2 default 'R',
322 X_ENC_START_DATE in DATE DEFAULT NULL,
323 X_ENC_END_DATE in DATE DEFAULT NULL
324 ) is
325 X_LAST_UPDATE_DATE DATE;
326 X_LAST_UPDATED_BY NUMBER;
327 X_LAST_UPDATE_LOGIN NUMBER;
328 begin
329 X_LAST_UPDATE_DATE := SYSDATE;
330 if(X_MODE = 'I') then
331 X_LAST_UPDATED_BY := 1;
332 X_LAST_UPDATE_LOGIN := 0;
333 elsif (X_MODE = 'R') then
334 X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
335 if X_LAST_UPDATED_BY is NULL then
336 X_LAST_UPDATED_BY := -1;
337 end if;
338 X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
339 if X_LAST_UPDATE_LOGIN is NULL then
340 X_LAST_UPDATE_LOGIN := -1;
341 end if;
342 else
343 FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
344 app_exception.raise_exception;
345 end if;
346 update PSP_ENC_LINES set
347 BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID,
348 ENC_ELEMENT_TYPE_ID = X_ENC_ELEMENT_TYPE_ID,
349 ENCUMBRANCE_DATE = X_ENCUMBRANCE_DATE,
350 DR_CR_FLAG = X_DR_CR_FLAG,
351 ENCUMBRANCE_AMOUNT = X_ENCUMBRANCE_AMOUNT,
352 ENC_LINE_TYPE = X_ENC_LINE_TYPE,
353 SCHEDULE_LINE_ID = X_SCHEDULE_LINE_ID,
354 ORG_SCHEDULE_ID = X_ORG_SCHEDULE_ID,
355 DEFAULT_ORG_ACCOUNT_ID = X_DEFAULT_ORG_ACCOUNT_ID,
356 SUSPENSE_ORG_ACCOUNT_ID = X_SUSPENSE_ORG_ACCOUNT_ID,
357 ELEMENT_ACCOUNT_ID = X_ELEMENT_ACCOUNT_ID,
358 GL_PROJECT_FLAG = X_GL_PROJECT_FLAG,
359 ENC_SUMMARY_LINE_ID = X_ENC_SUMMARY_LINE_ID,
360 PERSON_ID = X_PERSON_ID,
361 ASSIGNMENT_ID = X_ASSIGNMENT_ID,
362 AWARD_ID = X_AWARD_ID,
363 TASK_ID = X_TASK_ID,
364 EXPENDITURE_TYPE = X_EXPENDITURE_TYPE,
365 EXPENDITURE_ORGANIZATION_ID = X_EXPENDITURE_ORGANIZATION_ID,
366 PROJECT_ID = X_PROJECT_ID,
367 GL_CODE_COMBINATION_ID = X_GL_CODE_COMBINATION_ID,
368 TIME_PERIOD_ID = X_TIME_PERIOD_ID,
369 PAYROLL_ID = X_PAYROLL_ID,
370 SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID,
371 DEFAULT_REASON_CODE = X_DEFAULT_REASON_CODE,
372 SUSPENSE_REASON_CODE = X_SUSPENSE_REASON_CODE,
373 ENC_CONTROL_ID = X_ENC_CONTROL_ID,
374 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
375 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
376 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
377 where ENC_LINE_ID = X_ENC_LINE_ID
378 ;
379 if (sql%notfound) then
380 raise no_data_found;
381 end if;
382 end UPDATE_ROW;
383
384 /* Introduced x_enc_start_date,x_enc_end_date for Enh. Bug# 2259310 */
385 procedure ADD_ROW (
386 X_ROWID in out NOCOPY VARCHAR2,
387 X_ENC_LINE_ID in NUMBER,
388 X_BUSINESS_GROUP_ID in NUMBER,
389 X_ENC_ELEMENT_TYPE_ID in NUMBER,
390 X_ENCUMBRANCE_DATE in DATE,
391 X_DR_CR_FLAG in VARCHAR2,
392 X_ENCUMBRANCE_AMOUNT in NUMBER,
393 X_ENC_LINE_TYPE in VARCHAR2,
394 X_SCHEDULE_LINE_ID in NUMBER,
395 X_ORG_SCHEDULE_ID in NUMBER,
396 X_DEFAULT_ORG_ACCOUNT_ID in NUMBER,
397 X_SUSPENSE_ORG_ACCOUNT_ID in NUMBER,
398 X_ELEMENT_ACCOUNT_ID in NUMBER,
399 X_GL_PROJECT_FLAG in VARCHAR2,
400 X_ENC_SUMMARY_LINE_ID in NUMBER,
401 X_PERSON_ID in NUMBER,
402 X_ASSIGNMENT_ID in NUMBER,
403 X_AWARD_ID in NUMBER,
404 X_TASK_ID in NUMBER,
405 X_EXPENDITURE_TYPE in VARCHAR2,
406 X_EXPENDITURE_ORGANIZATION_ID in NUMBER,
407 X_PROJECT_ID in NUMBER,
408 X_GL_CODE_COMBINATION_ID in NUMBER,
409 X_TIME_PERIOD_ID in NUMBER,
410 X_PAYROLL_ID in NUMBER,
411 X_SET_OF_BOOKS_ID in NUMBER,
412 X_DEFAULT_REASON_CODE in VARCHAR2,
413 X_SUSPENSE_REASON_CODE in VARCHAR2,
414 X_ENC_CONTROL_ID in NUMBER,
415 X_MODE in VARCHAR2 default 'R',
416 X_CHANGE_FLAG IN VARCHAR2 default 'N',
417 X_STATUS_CODE in VARCHAR2,
418 X_ENC_START_DATE in DATE DEFAULT NULL,
419 X_ENC_END_DATE in DATE DEFAULT NULL
420 ) is
421 cursor c1 is select rowid from PSP_ENC_LINES
422 where ENC_LINE_ID = X_ENC_LINE_ID
423 ;
424 dummy c1%rowtype;
425 begin
426 open c1;
427 fetch c1 into dummy;
428 if (c1%notfound) then
429 close c1;
430
431 /* Introduced x_enc_start_date,x_enc_end_date for Enh. Bug# 2259310 */
432 INSERT_ROW (
433 X_ROWID,
434 X_ENC_LINE_ID,
438 X_DR_CR_FLAG,
435 X_BUSINESS_GROUP_ID,
436 X_ENC_ELEMENT_TYPE_ID,
437 X_ENCUMBRANCE_DATE,
439 X_ENCUMBRANCE_AMOUNT,
440 X_ENC_LINE_TYPE,
441 X_SCHEDULE_LINE_ID,
442 X_ORG_SCHEDULE_ID,
443 X_DEFAULT_ORG_ACCOUNT_ID,
444 X_SUSPENSE_ORG_ACCOUNT_ID,
445 X_ELEMENT_ACCOUNT_ID,
446 X_GL_PROJECT_FLAG,
447 X_ENC_SUMMARY_LINE_ID,
448 X_PERSON_ID,
449 X_ASSIGNMENT_ID,
450 X_AWARD_ID,
451 X_TASK_ID,
452 X_EXPENDITURE_TYPE,
453 X_EXPENDITURE_ORGANIZATION_ID,
454 X_PROJECT_ID,
455 X_GL_CODE_COMBINATION_ID,
456 X_TIME_PERIOD_ID,
457 X_PAYROLL_ID,
458 X_SET_OF_BOOKS_ID,
459 X_DEFAULT_REASON_CODE,
460 X_SUSPENSE_REASON_CODE,
461 X_ENC_CONTROL_ID,
462 X_MODE,
463 X_CHANGE_FLAG,
464 X_STATUS_CODE,
465 X_ENC_START_DATE ,
466 X_ENC_END_DATE );
467 return;
468 end if;
469 close c1;
470
471 /* Introduced x_enc_start_date,x_enc_end_date for Enh. Bug# 2259310 */
472 UPDATE_ROW (
473 X_ENC_LINE_ID,
474 X_BUSINESS_GROUP_ID,
475 X_ENC_ELEMENT_TYPE_ID,
476 X_ENCUMBRANCE_DATE,
477 X_DR_CR_FLAG,
478 X_ENCUMBRANCE_AMOUNT,
479 X_ENC_LINE_TYPE,
480 X_SCHEDULE_LINE_ID,
481 X_ORG_SCHEDULE_ID,
482 X_DEFAULT_ORG_ACCOUNT_ID,
483 X_SUSPENSE_ORG_ACCOUNT_ID,
484 X_ELEMENT_ACCOUNT_ID,
485 X_GL_PROJECT_FLAG,
486 X_ENC_SUMMARY_LINE_ID,
487 X_PERSON_ID,
488 X_ASSIGNMENT_ID,
489 X_AWARD_ID,
490 X_TASK_ID,
491 X_EXPENDITURE_TYPE,
492 X_EXPENDITURE_ORGANIZATION_ID,
493 X_PROJECT_ID,
494 X_GL_CODE_COMBINATION_ID,
495 X_TIME_PERIOD_ID,
496 X_PAYROLL_ID,
497 X_SET_OF_BOOKS_ID,
498 X_DEFAULT_REASON_CODE,
499 X_SUSPENSE_REASON_CODE,
500 X_ENC_CONTROL_ID,
501 X_MODE,
502 X_ENC_START_DATE ,
503 X_ENC_END_DATE);
504 end ADD_ROW;
505
506 procedure DELETE_ROW (
507 X_ENC_LINE_ID in NUMBER
508 ) is
509 begin
510 delete from PSP_ENC_LINES
511 where ENC_LINE_ID = X_ENC_LINE_ID;
512 if (sql%notfound) then
513 raise no_data_found;
514 end if;
515 end DELETE_ROW;
516
517 procedure insert_into_enc_controls(
518 X_ENC_CONTROL_ID IN NUMBER,
519 X_BUSINESS_GROUP_ID IN NUMBER,
520 X_SET_OF_BOOKS_ID IN NUMBER,
521 X_ACTION_TYPE IN VARCHAR2,
522 X_GL_ENC_PERIOD_EXT_VALUE IN VARCHAR2,
523 X_OGM_ENC_PERIOD_EXT_VALUE IN VARCHAR2,
524 X_PAYROLL_ID IN NUMBER,
525 X_ENCUMBRANCE_DATE IN DATE,
526 X_CI_SUMMARIZATION_OPTION IN VARCHAR2,
527 X_TIME_SUMMARIZATION_OPTION IN VARCHAR2,
528 X_NUMBER_OF_DR IN NUMBER,
529 X_NUMBER_OF_CR IN NUMBER,
530 X_TOTAL_DR_AMOUNT IN NUMBER,
531 X_TOTAL_CR_AMOUNT IN NUMBER,
532 X_GL_DR_AMOUNT IN NUMBER,
533 X_GL_CR_AMOUNT IN NUMBER,
534 X_OGM_DR_AMOUNT IN NUMBER,
535 X_OGM_CR_AMOUNT IN NUMBER,
536 X_ACTION_CODE IN VARCHAR2,
537 X_RUN_ID IN NUMBER,
538 X_BATCH_NAME IN VARCHAR2,
539 X_SUMM_GL_DR_AMOUNT IN NUMBER,
540 X_SUMM_GL_CR_AMOUNT IN NUMBER,
541 X_SUMM_OGM_DR_AMOUNT IN NUMBER,
542 X_SUMM_OGM_CR_AMOUNT IN NUMBER,
543 X_TIME_PERIOD_ID IN NUMBER) IS
544
545 X_LAST_UPDATE_DATE DATE := sysdate;
546 X_LAST_UPDATE_LOGIN NUMBER := fnd_global.login_id;
547 X_LAST_UPDATED_BY NUMBER := fnd_global.user_id;
548 BEGIN
549 INSERT INTO PSP_ENC_CONTROLS(
550 ENC_CONTROL_ID,
551 BUSINESS_GROUP_ID,
552 SET_OF_BOOKS_ID,
553 ACTION_TYPE ,
554 GL_ENC_PERIOD_EXT_VALUE,
555 OGM_ENC_PERIOD_EXT_VALUE,
556 PAYROLL_ID,
557 ENCUMBRANCE_DATE,
558 CI_SUMMARIZATION_OPTION,
559 TIME_SUMMARIZATION_OPTION,
560 NUMBER_OF_DR,
561 NUMBER_OF_CR,
562 TOTAL_DR_AMOUNT,
563 TOTAL_CR_AMOUNT,
564 GL_DR_AMOUNT,
565 GL_CR_AMOUNT,
566 OGM_DR_AMOUNT,
567 OGM_CR_AMOUNT,
568 ACTION_CODE,
569 RUN_ID,
570 BATCH_NAME,
571 TIME_PERIOD_ID,
572 SUMM_GL_DR_AMOUNT,
573 SUMM_GL_CR_AMOUNT,
574 SUMM_OGM_DR_AMOUNT,
575 SUMM_OGM_CR_AMOUNT,
576 LAST_UPDATE_DATE,
577 LAST_UPDATED_BY,
578 LAST_UPDATE_LOGIN,
579 CREATION_DATE,
580 CREATED_BY)
581 VALUES
582 (
583 X_ENC_CONTROL_ID,
584 X_BUSINESS_GROUP_ID,
585 X_SET_OF_BOOKS_ID,
586 X_ACTION_TYPE ,
587 X_GL_ENC_PERIOD_EXT_VALUE,
588 X_OGM_ENC_PERIOD_EXT_VALUE,
589 X_PAYROLL_ID,
590 X_ENCUMBRANCE_DATE,
591 X_CI_SUMMARIZATION_OPTION,
592 X_TIME_SUMMARIZATION_OPTION,
593 X_NUMBER_OF_DR,
594 X_NUMBER_OF_CR,
595 X_TOTAL_DR_AMOUNT,
596 X_TOTAL_CR_AMOUNT,
597 X_GL_DR_AMOUNT,
598 X_GL_CR_AMOUNT,
599 X_OGM_DR_AMOUNT,
600 X_OGM_CR_AMOUNT,
601 X_ACTION_CODE,
602 X_RUN_ID,
603 X_BATCH_NAME,
604 X_TIME_PERIOD_ID,
605 X_SUMM_GL_DR_AMOUNT,
606 X_SUMM_GL_CR_AMOUNT,
607 X_SUMM_OGM_DR_AMOUNT,
608 X_SUMM_OGM_DR_AMOUNT,
609 X_LAST_UPDATE_DATE,
610 X_LAST_UPDATED_BY,
611 X_LAST_UPDATE_LOGIN,
612 X_LAST_UPDATE_DATE,
613 X_LAST_UPDATED_BY);
614
615 END;
616
617 end PSP_ENC_LINES_PKG;