DBA Data[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;