[Home] [Help]
PACKAGE BODY: APPS.IGS_LOOKUPS_VIEW_PKG
Source
1 package body IGS_LOOKUPS_VIEW_PKG as
2 /* $Header: IGSMI14B.pls 115.13 2003/05/30 10:45:27 ptandon ship $ */
3
4 l_rowid VARCHAR2(25);
5 old_references IGS_LOOKUPS_view%RowType;
6
7 new_references IGS_LOOKUPS_view%RowType;
8 /* new_references_language IGS_LOOKUPS.LANGUAGE%TYPE;
9
10
11 PROCEDURE Set_Column_Values (
12 p_action IN VARCHAR2,
13 x_rowid IN VARCHAR2 DEFAULT NULL,
14 x_lookup_type IN VARCHAR2 DEFAULT NULL,
15 x_lookup_code IN VARCHAR2 DEFAULT NULL,
16 x_meaning IN VARCHAR2 DEFAULT NULL,
17 x_closed_ind IN VARCHAR2 DEFAULT NULL,
18 x_enabled_flag IN VARCHAR2 DEFAULT NULL,
19 x_security_allowed_ind IN VARCHAR2 DEFAULT NULL,
20 x_step_type_rstcn_num_ind IN VARCHAR2 DEFAULT NULL,
21 x_unit_outcome_ind IN VARCHAR2 DEFAULT NULL,
22 x_display_name IN VARCHAR2 DEFAULT NULL,
23 x_display_order IN NUMBER DEFAULT NULL,
24 x_step_order_applicable_ind IN VARCHAR2 DEFAULT NULL,
25 x_academic_transcript_ind IN VARCHAR2 DEFAULT NULL,
26 x_cmpltn_requirements_ind IN VARCHAR2 DEFAULT NULL,
27 x_fee_ass_ind IN VARCHAR2 DEFAULT NULL,
28 x_step_group_type IN VARCHAR2 DEFAULT NULL,
29 x_final_result_ind IN VARCHAR2 DEFAULT NULL,
30 x_system_generated_ind IN VARCHAR2 DEFAULT NULL,
31 x_transaction_cat IN VARCHAR2 DEFAULT NULL,
32 x_language IN VARCHAR2 DEFAULT 'US',
33 x_creation_date IN DATE DEFAULT NULL,
34 x_created_by IN NUMBER DEFAULT NULL,
35 x_last_update_date IN DATE DEFAULT NULL,
36 x_last_updated_by IN NUMBER DEFAULT NULL,
37 x_last_update_login IN NUMBER DEFAULT NULL,
38 x_system_mandatory_ind IN VARCHAR2 DEFAULT NULL,
39 x_default_display_seq IN NUMBER DEFAULT NULL
40 ) AS
41
42 CURSOR cur_old_ref_values IS
43 SELECT *
44 FROM IGS_LOOKUPS_VAL
45 WHERE rowid = x_rowid;
46
47 BEGIN
48
49 l_rowid := x_rowid;
50
51 -- Code for setting the Old and New Reference Values.
52 -- Populate Old Values.
53 Open cur_old_ref_values;
54 Fetch cur_old_ref_values INTO old_references;
55 IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
56 Close cur_old_ref_values;
57 Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
58 IGS_GE_MSG_STACK.ADD;
59 App_Exception.Raise_Exception;
60 Return;
61 END IF;
62 Close cur_old_ref_values;
63
64 -- Populate New Values.
65 new_references.lookup_type := x_lookup_type;
66 new_references.lookup_code := x_lookup_code;
67 new_references.meaning := x_meaning;
68 new_references.closed_ind := x_closed_ind;
69 new_references.enabled_flag := x_enabled_flag;
70 new_references.security_allowed_ind := x_security_allowed_ind;
71 new_references.step_type_restriction_num_ind := x_step_type_rstcn_num_ind;
72 new_references.unit_outcome_ind := x_unit_outcome_ind;
73 new_references.display_name := x_display_name;
74 new_references.display_order := x_display_order;
75 new_references.step_order_applicable_ind := x_step_order_applicable_ind;
76 new_references.academic_transcript_ind := x_academic_transcript_ind;
77 new_references.cmpltn_requirements_ind := x_cmpltn_requirements_ind;
78 new_references.fee_ass_ind := x_fee_ass_ind;
79 new_references.step_group_type := x_step_group_type;
80 new_references.final_result_ind := x_final_result_ind;
81 new_references.system_generated_ind := x_system_generated_ind;
82 new_references.transaction_cat := x_transaction_cat;
83 new_references_language := x_language;
84 new_references.created_by := x_created_by;
85 new_references.creation_date := x_creation_date;
86 new_references.last_updated_by := x_last_updated_by;
87 new_references.last_update_date := x_last_update_date;
88 new_references.last_update_login := x_last_update_login;
89 IF (p_action = 'UPDATE') THEN
90 new_references.creation_date := old_references.creation_date;
91 new_references.created_by := old_references.created_by;
92 ELSE
93 new_references.creation_date := x_creation_date;
94 new_references.created_by := x_created_by;
95 END IF;
96 new_references.last_update_date := x_last_update_date;
97 new_references.last_updated_by := x_last_updated_by;
98 new_references.last_update_login := x_last_update_login;
99 new_references.x_system_mandatory_ind := x_system_mandatory_ind;
100 new_references.x_default_display_seq := x_default_display_seq;
101
102 END Set_Column_Values;
103
104 */
105 PROCEDURE Check_Child_Existance AS
106 /*
107 History
108 who when what
109 smvk 27-Aug-2002 Removed the calls GET_FK_IGS_LOOKUPS_VIEW_ALLOCA and GET_FK_IGS_LOOKUPS_VIEW_DISBUR
110 to the Package IGS_FI_FEE_DSBR_FML_PKG as the package is obsolete.
111 They are associated to lookup_types 'DISBURSEMENT_METHOD' and 'ALLOCATION_METHOD'
112 This is as per SFCR005_Cleanup_Build (Enhancement Bug # 2531390).
113 */
114 BEGIN
115
116
117 -- IF old_references.LOOKUP_TYPE = 'SEX' THEN
118 -- IGS_PE_PERSON_PKG.GET_FK_IGS_LOOKUPS_VIEW(
119 -- old_references.LOOKUP_CODE
120 -- );
121 -- END IF;
122
123
124 IF old_references.LOOKUP_TYPE = 'AMOUNT_TYPE' THEN
125
126 IGS_AD_INTAK_TRG_TYP_PKG.GET_FK_IGS_LOOKUPS_VIEW2(
127 old_references.LOOKUP_CODE
128 );
129
130 IGS_AD_SBMINTAK_TRGT_PKG.GET_FK_IGS_LOOKUPS_VIEW(
131 old_references.LOOKUP_CODE
132 );
133
134 IGS_AD_SBMPS_FN_ITTT_PKG.GET_FK_IGS_LOOKUPS_VIEW(
135 old_references.LOOKUP_CODE
136 );
137
138 IGS_AD_SBMAO_FN_UITT_PKG.GET_FK_IGS_LOOKUPS_VIEW(
139 old_references.LOOKUP_CODE
140 );
141
142 IGS_AD_SBMAO_FN_CTTT_PKG.GET_FK_IGS_LOOKUPS_VIEW(
143 old_references.LOOKUP_CODE
144 );
145
146 IGS_AD_SBMAO_FN_AMTT_PKG.GET_FK_IGS_LOOKUPS_VIEW(
147 old_references.LOOKUP_CODE
148 );
149
150 IGS_AD_SBM_AOU_FNDTT_PKG.GET_FK_IGS_LOOKUPS_VIEW(
151 old_references.LOOKUP_CODE
152 );
153
154 END IF;
155
156 IF old_references.LOOKUP_TYPE = 'ADMISSION_PROCESS_TYPE' then
157 IGS_AD_PECRS_OFOP_DT_PKG.GET_FK_IGS_LOOKUPS_VIEW(
158 old_references.LOOKUP_CODE
159 );
160 end if;
161
162 IF old_references.LOOKUP_TYPE = 'ADMISSION_PROCESS_TYPE' then
163 IGS_AD_PRCS_CAT_PKG.GET_FK_IGS_LOOKUPS_VIEW(
164 old_references.LOOKUP_CODE
165 );
166 end if;
167 IF old_references.LOOKUP_TYPE = 'ADMISSION_STEP_TYPE' then
168 IGS_AD_PRCS_CAT_STEP_PKG.GET_FK_IGS_LOOKUPS_VIEW(
169 old_references.LOOKUP_CODE
170 );
171 end if;
172 IF old_references.LOOKUP_TYPE = 'ADM_APPL_STATUS' then
173 IGS_AD_APPL_STAT_PKG.GET_FK_IGS_LOOKUPS_VIEW(
174 old_references.LOOKUP_CODE
175 );
176 end if;
177 IF old_references.LOOKUP_TYPE = 'ADM_CNDTNL_OFFER_STATUS' then
178 IGS_AD_CNDNL_OFRSTAT_PKG.GET_FK_IGS_LOOKUPS_VIEW(
179 old_references.LOOKUP_CODE
180 );
181 end if;
182 IF old_references.LOOKUP_TYPE = 'ADM_DOC_STATUS' then
183 IGS_AD_DOC_STAT_PKG.GET_FK_IGS_LOOKUPS_VIEW(
184 old_references.LOOKUP_CODE
185 );
186 end if;
187 IF old_references.LOOKUP_TYPE = 'ADM_ENTRY_QUAL_STATUS' then
188 IGS_AD_ENT_QF_STAT_PKG.GET_FK_IGS_LOOKUPS_VIEW(
189 old_references.LOOKUP_CODE
190 );
191 end if;
192 IF old_references.LOOKUP_TYPE = 'ADM_FEE_STATUS' then
193 IGS_AD_FEE_STAT_PKG.GET_FK_IGS_LOOKUPS_VIEW(
194 old_references.LOOKUP_CODE
195 );
196 end if;
197 IF old_references.LOOKUP_TYPE = 'ADM_OFFER_DFRMNT_STATUS' then
198 IGS_AD_OFRDFRMT_STAT_PKG.GET_FK_IGS_LOOKUPS_VIEW(
199 old_references.LOOKUP_CODE
200 );
201 end if;
202 IF old_references.LOOKUP_TYPE = 'ADM_OFFER_RESP_STATUS' then
203 IGS_AD_OFR_RESP_STAT_PKG.GET_FK_IGS_LOOKUPS_VIEW(
204 old_references.LOOKUP_CODE
205 );
206 end if;
207 IF old_references.LOOKUP_TYPE = 'ADM_OUTCOME_STATUS' then
208 IGS_AD_OU_STAT_PKG.GET_FK_IGS_LOOKUPS_VIEW(
209 old_references.LOOKUP_CODE
210 );
211 end if;
212 IF old_references.LOOKUP_TYPE = 'ADM_OUTCOME_STATUS' then
213 IGS_AD_UNIT_OU_STAT_PKG.GET_FK_IGS_LOOKUPS_VIEW(
214 old_references.LOOKUP_CODE
215 );
216 end if;
217
218 IF old_references.LOOKUP_TYPE = 'ADV_STND_GRANTING_STATUS' then
219 IGS_AV_STND_UNIT_LVL_PKG.GET_FK_IGS_LOOKUPS_VIEW(
220 old_references.LOOKUP_CODE
221 );
222 end if;
223 IF old_references.LOOKUP_TYPE = 'ADV_STND_GRANTING_STATUS' then
224 IGS_AV_STND_UNIT_PKG.GET_FK_IGS_LOOKUPS_VIEW_1(
225 old_references.LOOKUP_CODE
226 );
227 end if;
228 IF old_references.LOOKUP_TYPE = 'ADV_STND_RECOGNITION_TYPE' then
229 IGS_AV_STND_UNIT_PKG.GET_FK_IGS_LOOKUPS_VIEW_2(
230 old_references.LOOKUP_CODE
231 );
232 end if;
233
234 IF old_references.LOOKUP_TYPE = 'CAL_CAT' then
235 IGS_CA_TYPE_PKG.GET_FK_IGS_LOOKUPS_VIEW(
236 old_references.LOOKUP_CODE
237 );
238 end if;
239 IF old_references.LOOKUP_TYPE = 'CAL_CAT' then
240 IGS_CA_DA_PKG.GET_FK_IGS_LOOKUPS_VIEW(
241 old_references.LOOKUP_CODE
242 );
243 end if;
244
245 IF old_references.LOOKUP_TYPE = 'CALENDAR_STATUS' then
246 IGS_CA_STAT_PKG.GET_FK_IGS_LOOKUPS_VIEW(
247 old_references.LOOKUP_CODE
248 );
249 end if;
250
251 IF old_references.LOOKUP_TYPE = 'CHG_METHOD' then
252 IGS_FI_EL_RNG_PKG.GET_FK_IGS_LOOKUPS_VIEW(
253 old_references.LOOKUP_CODE
254 );
255 end if;
256 IF old_references.LOOKUP_TYPE = 'CHG_METHOD' then
257 IGS_FI_F_CAT_FEE_LBL_PKG.GET_FK_IGS_LOOKUPS_VIEW(
258 old_references.LOOKUP_CODE
259 );
260 end if;
261 IF old_references.LOOKUP_TYPE = 'CHG_METHOD' then
262 IGS_FI_F_TYP_CA_INST_PKG.GET_FK_IGS_LOOKUPS_VIEW(
263 old_references.LOOKUP_CODE
264 );
265 end if;
266 IF old_references.LOOKUP_TYPE = 'COURSE_GROUP_TYPE' then
267 IGS_PS_GRP_TYPE_PKG.GET_FK_IGS_LOOKUPS_VIEW(
268 old_references.LOOKUP_CODE
269 );
270 end if;
271 IF old_references.LOOKUP_TYPE = 'CRS_ATTEMPT_STATUS' then
272 IGS_EN_STDNT_PS_ATT_PKG.GET_FK_IGS_LOOKUPS_VIEW_CAS(
273 old_references.LOOKUP_CODE
274 );
275 end if;
276 IF old_references.LOOKUP_TYPE = 'DISCONTINUATION_REASON_TYPE' then
277 IGS_EN_DCNT_REASONCD_PKG.GET_FK_IGS_LOOKUPS_VIEW(
278 old_references.LOOKUP_CODE
279 );
280 end if;
281 IF old_references.LOOKUP_TYPE = 'DT_OFFSET_CONSTRAINT_TYPE' then
282 IGS_CA_DA_INST_OFCNT_PKG.GET_FK_IGS_LOOKUPS_VIEW(
283 old_references.LOOKUP_CODE
284 );
285 end if;
286 IF old_references.LOOKUP_TYPE = 'DT_OFFSET_CONSTRAINT_TYPE' then
287 IGS_CA_DA_OFFCNT_PKG.GET_FK_IGS_LOOKUPS_VIEW(
288 old_references.LOOKUP_CODE
289 );
290 end if;
291 IF old_references.LOOKUP_TYPE = 'ENROLMENT_STEP_TYPE' then
292 IGS_EN_CAT_PRC_STEP_PKG.GET_FK_IGS_LOOKUPS_VIEW(
293 old_references.LOOKUP_CODE
294 );
295 end if;
296 IF old_references.LOOKUP_TYPE = 'ENR_NOTE_TYPE' then
297 IGS_EN_NOTE_TYPE_PKG.GET_FK_IGS_LOOKUPS_VIEW(
298 old_references.LOOKUP_CODE
299 );
300 end if;
301 IF old_references.LOOKUP_TYPE = 'GRADE_CREATION_METHOD_TYPE' then
302 IGS_AS_NON_ENR_STDOT_PKG.GET_FK_IGS_LOOKUPS_VIEW(
303 old_references.LOOKUP_CODE
304 );
305 end if;
306 IF old_references.LOOKUP_TYPE = 'GRADE_CREATION_METHOD_TYPE' then
307 IGS_AS_SU_STMPTOUT_PKG.GET_FK_IGS_LOOKUPS_VIEW(
308 old_references.LOOKUP_CODE
309 );
310 end if;
311 IF old_references.LOOKUP_TYPE = 'HECS_PAYMENT_TYPE' then
312 IGS_FI_GOV_HEC_PA_OP_PKG.GET_FK_IGS_LOOKUPS_VIEW(
313 old_references.LOOKUP_CODE
314 );
315 end if;
316 IF old_references.LOOKUP_TYPE = 'INTAKE_TARGET_TYPE' then
317 IGS_AD_INTAK_TRG_TYP_PKG.GET_FK_IGS_LOOKUPS_VIEW(
318 old_references.LOOKUP_CODE
319 );
320 end if;
321 IF old_references.LOOKUP_TYPE = 'LOCATION_TYPE' then
322 IGS_AD_LOCATION_TYPE_PKG.GET_FK_IGS_LOOKUPS_VIEW(
323 old_references.LOOKUP_CODE
324 );
325 end if;
326 IF old_references.LOOKUP_TYPE = 'MILESTONE_STATUS' then
327 IGS_PR_MS_STAT_PKG.GET_FK_IGS_LOOKUPS_VIEW(
328 old_references.LOOKUP_CODE
329 );
330 end if;
331 IF old_references.LOOKUP_TYPE = 'NOTE_FORMAT_TYPE' then
332 IGS_GE_NOTE_PKG.GET_FK_IGS_LOOKUPS_VIEW(
333 old_references.LOOKUP_CODE
334 );
335 end if;
336 /*IF old_references.LOOKUP_TYPE = 'LETTER_OBJECT' then
337 IGS_CO_S_LTR_PKG.GET_FK_IGS_LOOKUPS_VIEW_LETOBJ(
338 old_references.LOOKUP_CODE
339 );
340 end if ;
341 IF old_references.LOOKUP_TYPE = 'LETTER_REFERENCE_TYPE' then
342 IGS_CO_S_LTR_PKG.GET_FK_IGS_LOOKUPS_VIEW_LETREF(
343 old_references.LOOKUP_CODE
344 );
345 end if;
346 IF old_references.LOOKUP_TYPE = 'OTHER_REFERENCE_TYPE' then
347 IGS_CO_OU_CO_REF_PKG.GET_FK_IGS_LOOKUPS_VIEW(
348 old_references.LOOKUP_CODE
349 );
350 end if;
351 */
352 IF old_references.LOOKUP_TYPE = 'PERSON_ID_TYPE' then
353 IGS_PE_PERSON_ID_TYP_PKG.GET_FK_IGS_LOOKUPS_VIEW(
354 old_references.LOOKUP_CODE
355 );
356 end if;
357 IF old_references.LOOKUP_TYPE = 'PRG_CHECK_TYPE' then
358 IGS_PR_STDNT_PR_CK_PKG.GET_FK_IGS_LOOKUPS_VIEW(
359 old_references.LOOKUP_CODE
360 );
361 end if;
362 IF old_references.LOOKUP_TYPE = 'PRG_MEASURE_TYPE' then
363 IGS_PR_SDT_PS_PR_MSR_PKG.GET_FK_IGS_LOOKUPS_VIEW(
364 old_references.LOOKUP_CODE
365 );
366 end if;
367 IF old_references.LOOKUP_TYPE = 'PRG_RULE_REPEAT_FAIL_TYPE' then
368 IGS_PR_RU_OU_PKG.GET_FK_IGS_LOOKUPS_VIEW(
369 old_references.LOOKUP_CODE
370 );
371 end if;
372 IF old_references.LOOKUP_TYPE = 'PROGRESSION_OUTCOME_TYPE' then
373 IGS_PR_OU_TYPE_PKG.GET_FK_IGS_LOOKUPS_VIEW(
374 old_references.LOOKUP_CODE
375 );
376 end if;
377 IF old_references.LOOKUP_TYPE = 'PROGRESSION_STATUS' then
378 IGS_EN_STDNT_PS_ATT_PKG.GET_FK_IGS_LOOKUPS_VIEW_PROG(
379 old_references.LOOKUP_CODE
380 );
381 end if;
382 IF old_references.LOOKUP_TYPE = 'REFERENCE_CD_TYPE' then
383 IGS_GE_REF_CD_TYPE_PKG.GET_FK_IGS_LOOKUPS_VIEW(
384 old_references.LOOKUP_CODE
385 );
386 end if;
387 IF old_references.LOOKUP_TYPE = 'RESULT_TYPE' then
388 IGS_AS_GRD_SCH_GRADE_PKG.GET_FK_IGS_LOOKUPS_VIEW(
389 old_references.LOOKUP_CODE
390 );
391 end if;
392 IF old_references.LOOKUP_TYPE = 'SCNDRY_SCHOOL_TYPE' then
393 IGS_AD_AUS_SEC_ED_SC_PKG.GET_FK_IGS_LOOKUPS_VIEW(
394 old_references.LOOKUP_CODE
395 );
396 end if;
397 IF old_references.LOOKUP_TYPE = 'STUDENT_TODO_TYPE' then
398 IGS_PE_STD_TODO_PKG.GET_FK_IGS_LOOKUPS_VIEW(
399 old_references.LOOKUP_CODE
400 );
401 end if;
402 IF old_references.LOOKUP_TYPE = 'THESIS_RESULT' then
403 IGS_RE_THESIS_RESULT_PKG.GET_FK_IGS_LOOKUPS_VIEW(
404 old_references.LOOKUP_CODE
405 );
406 end if;
407 IF old_references.LOOKUP_TYPE = 'TRACKING_STEP_TYPE' then
408 IGS_TR_STEP_PKG.GET_FK_IGS_LOOKUPS_VIEW(
409 old_references.LOOKUP_CODE
410 );
411 end if;
412 IF old_references.LOOKUP_TYPE = 'TRACKING_STEP_TYPE' then
413 IGS_TR_TYPE_STEP_PKG.GET_FK_IGS_LOOKUPS_VIEW(
414 old_references.LOOKUP_CODE
415 );
416 end if;
417 IF old_references.LOOKUP_TYPE = 'TRANSACTION_TYPE' then
418 IGS_FI_FEE_AS_PKG.GET_FK_IGS_LOOKUPS_VIEW(
419 old_references.LOOKUP_CODE
420 );
421 end if;
422 IF old_references.LOOKUP_TYPE = 'UNIT_ATTEMPT_STATUS' then
423 IGS_AD_ADM_UNIT_STAT_PKG.GET_FK_IGS_LOOKUPS_VIEW(
424 old_references.LOOKUP_CODE
425 );
426 end if;
427 IF old_references.LOOKUP_TYPE = 'UNIT_ATTEMPT_STATUS' then
428 IGS_EN_SU_ATTEMPT_PKG.GET_FK_IGS_LOOKUPS_VIEW(
429 old_references.LOOKUP_CODE
430 );
431 end if;
432
433 IF old_references.LOOKUP_TYPE = 'VS_EN_COMMENCE' then
434 igs_en_cpd_ext_pkg.get_fk_igs_lookups_view_1(
435 old_references.LOOKUP_CODE
436 );
437 END IF;
438
439 IF old_references.LOOKUP_TYPE = 'ENROLMENT_STEP_TYPE_EXT' then
440 igs_en_cpd_ext_pkg.get_fk_igs_lookups_view_2(
441 old_references.LOOKUP_CODE
442 );
443 END IF;
444
445 -- Added by DDEY as a part of Bug # 2162831
446
447 IF old_references.LOOKUP_TYPE = 'MARKS_GRADE_CHANGE_COMMENT' then
448 IGS_AS_SU_ATMPT_ITM_PKG.GET_FK_IGS_LOOKUPS_VIEW(
449 old_references.LOOKUP_CODE
450 );
451 END IF;
452
453 -- Added by DDEY as a part of Bug # 2162831
454
455 IF old_references.LOOKUP_TYPE = 'GRADING_SCHEMA_TYPES' then
456 IGS_AS_GRD_SCHEMA_PKG.GET_FK_IGS_LOOKUPS_VIEW(
457 old_references.LOOKUP_CODE
458 );
459 END IF;
460
461 IF old_references.LOOKUP_TYPE = 'UNIT_WAITLIST' then
462 igs_en_orun_wlst_pri_pkg.GET_FK_IGS_LOOKUPS_VIEW(
463 old_references.LOOKUP_CODE
464 );
465 END IF;
466
467 END Check_Child_Existance;
468
469 FUNCTION Get_PK_For_Validation (
470 X_LOOKUP_TYPE in VARCHAR2,
471 X_LOOKUP_CODE in VARCHAR2
472 )RETURN BOOLEAN AS
473
474 CURSOR cur_rowid IS
475 SELECT 1
476 FROM IGS_LOOKUPS_VIEW
477 WHERE LOOKUP_TYPE = x_LOOKUP_TYPE
478 AND LOOKUP_CODE = x_LOOKUP_CODE;
479
480 lv_rowid cur_rowid%RowType;
481 BEGIN
482
483 Open cur_rowid;
484 Fetch cur_rowid INTO lv_rowid;
485 IF (cur_rowid%FOUND) THEN
486 Close cur_rowid;
487 Return(TRUE);
488 ELSE
489 Close cur_rowid;
490 Return(FALSE);
491 END IF;
492 END Get_PK_For_Validation;
493
494 PROCEDURE lock_row (
495 x_rowid IN VARCHAR2,
496 x_lookup_type IN VARCHAR2,
497 x_lookup_code IN VARCHAR2,
498 x_closed_ind IN VARCHAR2,
499 x_security_allowed_ind IN VARCHAR2,
500 x_step_type_restriction_num_in IN VARCHAR2,
501 x_unit_outcome_ind IN VARCHAR2,
502 x_display_name IN VARCHAR2,
503 x_display_order IN NUMBER,
504 x_step_order_applicable_ind IN VARCHAR2,
505 x_academic_transcript_ind IN VARCHAR2,
506 x_cmpltn_requirements_ind IN VARCHAR2,
507 x_fee_ass_ind IN VARCHAR2,
508 x_step_group_type IN VARCHAR2,
509 x_final_result_ind IN VARCHAR2,
510 x_system_generated_ind IN VARCHAR2,
511 x_transaction_cat IN VARCHAR2,
512 x_encumbrance_level IN NUMBER,
513 x_open_for_enrollments IN VARCHAR2,
514 x_system_calculated IN VARCHAR2,
515 x_system_mandatory_ind IN VARCHAR2,
516 x_default_display_seq IN NUMBER,
517 x_av_transcript_disp_options IN VARCHAR2
518 ) AS
519
520 cursor cur_rowid is SELECT rowid row_id
521 FROM IGS_LOOKUPS_VAL
522 WHERE LOOKUP_TYPE = X_LOOKUP_TYPE
523 AND LOOKUP_CODE = X_LOOKUP_CODE;
524
525 row_val VARCHAR2(30);
526
527 BEGIN
528 OPEN cur_rowid;
529 FETCH cur_rowid INTO row_val;
530 CLOSE cur_rowid;
531 igs_lookups_val_pkg.lock_row(
532 x_rowid => row_val,
533 x_lookup_type => x_lookup_type,
534 x_lookup_code => x_lookup_code,
535 x_closed_ind => x_closed_ind,
536 x_security_allowed_ind => x_security_allowed_ind,
537 x_step_type_restriction_num_in => x_step_type_restriction_num_in,
538 x_unit_outcome_ind => x_unit_outcome_ind,
539 x_display_name => x_display_name,
540 x_display_order => x_display_order,
541 x_step_order_applicable_ind => x_step_order_applicable_ind,
542 x_academic_transcript_ind => x_academic_transcript_ind,
543 x_cmpltn_requirements_ind => x_cmpltn_requirements_ind,
544 x_fee_ass_ind => x_fee_ass_ind,
545 x_step_group_type => x_step_group_type,
546 x_final_result_ind => x_final_result_ind,
547 x_system_generated_ind => x_system_generated_ind,
548 x_transaction_cat => x_transaction_cat,
549 x_encumbrance_level => x_encumbrance_level,
550 x_open_for_enrollments => x_open_for_enrollments,
551 x_system_calculated => x_system_calculated,
552 x_system_mandatory_ind => x_system_mandatory_ind,
553 x_default_display_seq => x_default_display_seq,
554 x_av_transcript_disp_options => x_av_transcript_disp_options);
555
556 EXCEPTION
557 WHEN OTHERS THEN
558 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
559 igs_ge_msg_stack.add;
560 app_Exception.RAISE_exception;
561 END LOCK_ROW;
562
563 PROCEDURE update_row (
564 x_rowid IN VARCHAR2,
565 x_lookup_type IN VARCHAR2,
566 x_lookup_code IN VARCHAR2,
567 x_closed_ind IN VARCHAR2,
568 x_security_allowed_ind IN VARCHAR2,
569 x_step_type_restriction_num_in IN VARCHAR2,
570 x_unit_outcome_ind IN VARCHAR2,
571 x_display_name IN VARCHAR2,
572 x_display_order IN NUMBER,
573 x_step_order_applicable_ind IN VARCHAR2,
574 x_academic_transcript_ind IN VARCHAR2,
575 x_cmpltn_requirements_ind IN VARCHAR2,
576 x_fee_ass_ind IN VARCHAR2,
577 x_step_group_type IN VARCHAR2,
578 x_final_result_ind IN VARCHAR2,
579 x_system_generated_ind IN VARCHAR2,
580 x_transaction_cat IN VARCHAR2,
581 x_encumbrance_level IN NUMBER,
582 x_open_for_enrollments IN VARCHAR2,
583 x_system_calculated IN VARCHAR2,
584 x_system_mandatory_ind IN VARCHAR2,
585 x_default_display_seq IN NUMBER,
586 x_av_transcript_disp_options IN VARCHAR2,
587 x_mode IN VARCHAR2
588 ) as
589
590 /*
591 History
592 who when what
593 smvk 28-Aug-2002 Removed the default value of x_mode parameter as it gives 'File.Pkg.22' gscc warning.
594 as a part of SFCR005_Cleanup_Build (Enhancement Bug # 2531390).
595 */
596
597
598 cursor cur_rowid is SELECT rowid row_id
599 FROM IGS_LOOKUPS_VAL
600 WHERE LOOKUP_TYPE = X_LOOKUP_TYPE
601 AND LOOKUP_CODE = X_LOOKUP_CODE;
602
603 row_val VARCHAR2(30);
604
605 BEGIN
606 OPEN cur_rowid;
607 FETCH cur_rowid INTO row_val;
608 CLOSE cur_rowid;
609 igs_lookups_val_pkg.update_row(
610 x_rowid => row_val,
611 x_lookup_type => x_lookup_type,
612 x_lookup_code => x_lookup_code,
613 x_closed_ind => x_closed_ind,
614 x_security_allowed_ind => x_security_allowed_ind,
615 x_step_type_restriction_num_in => x_step_type_restriction_num_in,
616 x_unit_outcome_ind => x_unit_outcome_ind,
617 x_display_name => x_display_name,
618 x_display_order => x_display_order,
619 x_step_order_applicable_ind => x_step_order_applicable_ind,
620 x_academic_transcript_ind => x_academic_transcript_ind,
621 x_cmpltn_requirements_ind => x_cmpltn_requirements_ind,
622 x_fee_ass_ind => x_fee_ass_ind,
623 x_step_group_type => x_step_group_type,
624 x_final_result_ind => x_final_result_ind,
625 x_system_generated_ind => x_system_generated_ind,
626 x_transaction_cat => x_transaction_cat,
627 x_encumbrance_level => x_encumbrance_level,
628 x_open_for_enrollments => x_open_for_enrollments,
629 x_system_calculated => x_system_calculated,
630 x_system_mandatory_ind => x_system_mandatory_ind,
631 x_default_display_seq => x_default_display_seq,
632 x_av_transcript_disp_options => x_av_transcript_disp_options ,
633 x_mode => 'R' );
634 EXCEPTION
635 WHEN OTHERS THEN
636 RAISE;
637
638 END UPDATE_ROW;
639
640
641 end IGS_LOOKUPS_VIEW_PKG;