1 PACKAGE BODY igf_ap_oss_integr AS
2 /* $Header: IGFAP19B.pls 120.1 2005/09/21 09:34:54 appldev ship $ */
3
4
5 /**********************************************************************************
6 Created By : adhawan
7 Date Created On : 2001/06/11
8 Purpose : This is a Generic Package which is used to provide Certain Student Details
9 like
10 * Active System Holds
11 * Military Service
12 * Residency Status
13 * Citizenship Status
14 * International Visa type
15 * Retrive <<Selected Admission Application>> record.
16
17 These details affect the Financial Aid Processing of the Student.
18
19 Know limitations, enhancements or remarks
20 Change History
21 Bug No: 2154941
22 Desc : Disb Build Jul 2002 (FACCR001 DLD)
23
24 Who When What --
25 cdcruz 17-NOV-2004 Removed procedure GET_PE_RESIDENCY_STAT
26 as its no longer used
27 npalanis 23-OCT-2002 BUG : 2608360
28 Reference to igs_pe_code_classes changed to igs_lookups
29 mesriniv 22-JAN_2002 Added the NVL clauses for check against the
30 Application Number,Course Code and Version Number
31 in the cursor for geting addmission appl details
32
33 (reverse chronological order - newest change first)
34 ******************************************************************/
35
36 PROCEDURE get_pe_mil_service_type(p_person_id IN hz_parties.party_id%TYPE,
37 p_mil_service_type OUT NOCOPY igs_lookups_view.lookup_code%TYPE,
38 p_mil_service_desc OUT NOCOPY igs_lookups_view.meaning%TYPE,
39 p_multiple OUT NOCOPY VARCHAR2)
40 IS
41
42 /*************************************************************
43 Created By : adhawan
44 Date Created On : 2001/06/07
45 Purpose :To get the Military Assitance type that would be considered by the financial Aid
46 Know limitations, enhancements or remarks
47 Change History
48 Who When What
49
50 (reverse chronological order - newest change first)
51 ***************************************************************/
52
53 CURSOR c_get_mil_service IS
54 SELECT cc.lookup_code service_type,
55 cc.meaning service_desc
56 FROM igs_pe_mil_services ms,
57 igs_lookup_values cc
58 WHERE cc.lookup_code = ms.military_type_cd
59 AND cc.lookup_type = 'PE_MIL_SEV_TYPE'
60 AND ms.person_id = p_person_id
61 ORDER BY ms.milit_service_id;
62 l_get_mil_service_rec c_get_mil_service%ROWTYPE;
63
64 BEGIN
65
66 OPEN c_get_mil_service;
67 FETCH c_get_mil_service INTO p_mil_service_type, p_mil_service_desc;
68
69 -- If Multiple records exists, then need to return "Y" for p_multiple.
70 FETCH c_get_mil_service INTO l_get_mil_service_rec;
71 IF c_get_mil_service%NOTFOUND THEN
72 p_multiple := 'N';
73 ELSE
74 p_multiple := 'Y';
75 END IF;
76
77 CLOSE c_get_mil_service;
78
79 END get_pe_mil_service_type;
80
81
82
83 PROCEDURE get_pe_active_holds(p_person_id IN hz_parties.party_id%TYPE,
84 p_encumb_type OUT NOCOPY VARCHAR2,
85 p_encumb_desc OUT NOCOPY VARCHAR2,
86 p_multiple OUT NOCOPY VARCHAR2)
87 IS
88
89 /*************************************************************
90 Created By : adhawan
91 Date Created On : 2001/06/07
92 Purpose :To get the active holds that would be considered by the financial Aid
93 Know limitations, enhancements or remarks
94 Change History
95 Who When What
96
97 (reverse chronological order - newest change first)
98 ***************************************************************/
99
100 CURSOR c_get_holds IS
101 SELECT holdtyp.encumbrance_type encumbrance_type,
102 b.description dsp_description
103 FROM igs_pe_pers_encumb holdtyp,igs_fi_encmb_type b, igs_pe_persenc_effct holdefft
104 WHERE holdtyp.person_id = p_person_id
105 AND b.encumbrance_type = holdtyp.encumbrance_type
106 AND holdtyp.start_dt <= TRUNC(SYSDATE)
107 AND ( holdtyp.expiry_dt >= TRUNC(SYSDATE)
108 OR holdtyp.expiry_dt IS NULL)
109 AND holdtyp.person_id = holdefft.person_id
110 AND holdtyp.encumbrance_type = holdefft.encumbrance_type
111 AND holdefft.s_encmb_effect_type IN
112 ('GRAD_BLK', 'RESULT_BLK','RSTR_AT_TY', 'RSTR_GE_CP','RSTR_LE_CP','RVK_SRVC', 'SUS_COURSE', 'SUS_SRVC', 'DENY_EACT');
113
114 l_get_holds_rec c_get_holds%ROWTYPE;
115
116 BEGIN
117
118 OPEN c_get_holds;
119 FETCH c_get_holds INTO p_encumb_type, p_encumb_desc;
120
121 -- If Multiple records exists, then need to return "Y" for p_multiple.
122 FETCH c_get_holds INTO l_get_holds_rec;
123 IF c_get_holds%NOTFOUND THEN
124 p_multiple := 'N';
125 ELSE
126 p_multiple := 'Y';
127 END IF;
128
129 CLOSE c_get_holds;
130
131 END get_pe_active_holds;
132
133
134
135 PROCEDURE get_pe_visa_type(p_person_id IN hz_parties.party_id%TYPE,
136 p_visa_type OUT NOCOPY igs_pe_visa.visa_type%TYPE,
137 p_visa_desc OUT NOCOPY fnd_lookup_values.meaning%TYPE,
138 p_multiple OUT NOCOPY VARCHAR2)
139 IS
140
141 /*************************************************************
142 Created By : adhawan
143 Date Created On : 2001/06/07
144 Purpose :To get the visa details that would be considered by the financial Aid
145 Know limitations, enhancements or remarks
146 Change History
147 Who When What
148
149 (reverse chronological order - newest change first)
150 ***************************************************************/
151
152 CURSOR c_get_visa_type IS
153 SELECT a.visa_type,
154 b.meaning visa_description
155 FROM igs_pe_visa a , fnd_lookup_values b
156 WHERE a.person_id = p_person_id
157 AND b.view_application_id = 3
158 AND b.lookup_type = 'PER_US_VISA_TYPES'
159 AND a.visa_type = b.lookup_code;
160
161 l_get_visa_type_rec c_get_visa_type%ROWTYPE;
162
163 BEGIN
164
165 OPEN c_get_visa_type;
166 FETCH c_get_visa_type INTO p_visa_type, p_visa_desc;
167
168 -- If Multiple records exists, then need to return "Y" for p_multiple.
169 FETCH c_get_visa_type INTO l_get_visa_type_rec;
170 IF c_get_visa_type%NOTFOUND THEN
171 p_multiple := 'N';
172 ELSE
173 p_multiple := 'Y';
174 END IF;
175
176 CLOSE c_get_visa_type;
177
178 END get_pe_visa_type;
179
180
181
182 PROCEDURE get_pe_citizenship_stat(p_person_id IN hz_parties.party_id%TYPE,
183 p_citizenship_stat OUT NOCOPY igs_Lookups_view.lookup_code%TYPE,
184 p_citizenship_desc OUT NOCOPY igs_lookups_view.meaning%TYPE)
185 IS
186
187 /*************************************************************
188 Created By : adhawan
189 Date Created On : 2001/06/07
190 Purpose :To get the citizenship status details that would be considered by the financial Aid
191 Know limitations, enhancements or remarks
192 Change History
193 Who When What
194
195 (reverse chronological order - newest change first)
196 ***************************************************************/
197
198 CURSOR c_get_citizen_stat IS
199 SELECT * FROM igs_pe_eit_restatus_v
200 WHERE person_id = p_person_id
201 AND (
202 (TRUNC(SYSDATE) BETWEEN TRUNC(start_date) AND TRUNC(end_date))
203 OR (start_date IS NULL) OR (end_date IS NULL)
204 );
205
206 l_get_citizen_stat_rec c_get_citizen_stat%ROWTYPE;
207
208 BEGIN
209
210 OPEN c_get_citizen_stat;
211 FETCH c_get_citizen_stat INTO l_get_citizen_stat_rec;
212 CLOSE c_get_citizen_stat;
213
214 p_citizenship_stat := l_get_citizen_stat_Rec.restatus_code;
215 p_citizenship_desc := l_get_citizen_stat_Rec.description;
216
217 END get_pe_citizenship_stat;
218
219
220
221
222
223
224 PROCEDURE get_acad_cal_from_awd(p_awd_cal_type IN igs_ca_inst_all.cal_type%TYPE,
225 p_awd_seq_num IN igs_ca_inst_all.sequence_number%TYPE,
226 p_acad_cal_type OUT NOCOPY igs_ca_inst_all.cal_type%TYPE,
227 p_acad_seq_num OUT NOCOPY igs_ca_inst_all.sequence_number%TYPE,
228 p_acad_alt_code OUT NOCOPY igs_ca_inst_all.alternate_code%TYPE)
229 IS
230
231 /*************************************************************
232 Created By : adhawan
233 Date Created On : 2001/06/07
234 Purpose :To get the ACADEMIC CALENDAR associated with the AWARD CALENDAR.
235
236 Know limitations, enhancements or remarks
237 Change History
238 Who When What
239 skoppula 2002/07/09 FACR09
240 (reverse chronological order - newest change first)
241 ***************************************************************/
242 l_acad_cal_type igs_ca_inst.cal_type%TYPE;
243 l_acad_sequence igs_ca_inst.sequence_number%TYPE;
244
245 CURSOR c_get_acad_cal IS
246 SELECT ci.cal_type cal_type,
247 ci.sequence_number sequence_number,
248 ci.alternate_code alternate_code
249 FROM igs_ca_inst ci
250 WHERE ci.cal_type = l_acad_cal_type
251 AND ci.sequence_number = l_acad_sequence;
252
253 l_adm_cal_type igs_ca_inst.cal_type%TYPE;
254 l_adm_sequence igs_ca_inst.sequence_number%TYPE;
255 l_adm_alternate_cd igs_ca_inst.alternate_code%TYPE;
256 l_message VARCHAR2(2000);
257
258 BEGIN
259
260 igs_ad_gen_008.get_acad_cal(l_adm_cal_type,
261 l_adm_sequence,
262 l_acad_cal_type,
263 l_acad_sequence,
264 l_adm_alternate_cd,
265 l_message);
266 OPEN c_get_acad_cal;
267 FETCH c_get_acad_cal INTO
268 p_acad_cal_type, p_acad_seq_num, p_acad_alt_code;
269 CLOSE c_get_acad_cal;
270
271 END get_acad_cal_from_awd;
272
273
274 PROCEDURE get_awd_cal_from_acad(p_acad_cal_type IN igs_ca_inst_all.cal_type%TYPE,
275 p_acad_seq_num IN igs_ca_inst_all.sequence_number%TYPE,
276 p_awd_cal_type OUT NOCOPY igs_ca_inst_all.cal_type%TYPE,
277 p_awd_seq_num OUT NOCOPY igs_ca_inst_all.sequence_number%TYPE,
278 p_awd_alt_code OUT NOCOPY igs_ca_inst_all.alternate_code%TYPE)
279 IS
280
281 /*************************************************************
282 Created By : adhawan
283 Date Created On : 2001/06/07
284 Purpose :To get the AWARD CALENDAR associated with the ACADEMIC CALENDAR.
285
286 Know limitations, enhancements or remarks
287 Change History
288 Who When What
289 skoppula 2002/07/09 This shall return the latest award
290 year without reference to the acad year
291 in context. This is modified as per
292 FACR09. This procedure shall be modified
293 in future releases ,once the method
294 to establish the relation ship
295 between the acad and award years is defined
296 (reverse chronological order - newest change first)
297 ***************************************************************/
298
299 CURSOR c_get_awd_cal IS
300 SELECT ci.cal_type cal_type,
301 ci.sequence_number sequence_number,
302 ci.alternate_code alternate_code
303 FROM igs_ca_inst ci,
304 igs_ca_type ct,
305 igs_ca_stat st
306 WHERE ct.s_cal_cat = 'AWARD'
307 AND ct.cal_type = ci.cal_type
308 AND ci.cal_status = st.cal_status
309 AND st.s_cal_status = 'ACTIVE'
310 AND TRUNC(ci.start_dt) < TRUNC(SYSDATE)
311 AND (
312 ci.end_dt IS NULL
313 OR TRUNC(ci.end_dt) > TRUNC(SYSDATE)
314 )
315 ORDER BY ci.start_dt,ci.sequence_number DESC;
316 BEGIN
317
318 OPEN c_get_awd_cal;
319 FETCH c_get_awd_cal INTO
320 p_awd_cal_type, p_awd_seq_num, p_awd_alt_code;
321 CLOSE c_get_awd_cal;
322
323 END get_awd_cal_from_acad;
324
325
326
327
328 PROCEDURE get_adm_appl_details( p_person_id IN hz_parties.party_id%TYPE,
329 p_awd_cal_type IN igs_ca_inst_all.cal_type%TYPE,
330 p_awd_seq_num IN igs_ca_inst_all.sequence_number%TYPE,
331 p_ad_appl_row_id OUT NOCOPY ROWID,
332 p_ad_prog_appl_row_id OUT NOCOPY ROWID,
333 p_adm_appl_number IN OUT NOCOPY igs_ad_appl_all.admission_appl_number%TYPE,
334 p_course_cd IN OUT NOCOPY igs_ad_ps_appl_inst_all.nominated_course_cd%TYPE,
335 p_crv_version_number IN OUT NOCOPY igs_ad_ps_appl_inst_all.sequence_number%TYPE,
336 p_adm_offer_resp_stat OUT NOCOPY igs_ad_ps_appl_inst_all.adm_offer_resp_status%TYPE,
337 p_adm_outcome_stat OUT NOCOPY igs_ad_ps_appl_inst_all.adm_outcome_status%TYPE,
338 p_adm_appl_status OUT NOCOPY igs_ad_appl_all.adm_appl_status%TYPE,
339 p_multiple OUT NOCOPY VARCHAR2 )
340 IS
341
342 /*************************************************************
343 Created By : adhawan
344 Date Created On : 2001/06/07
345 Purpose : To get the Selected Admission Application Record for a Person.
346 Note - there can be more than 1 admission application record in OSS for
347 an Academic Calender Instance.
348
349 Know limitations, enhancements or remarks
350 Change History:
351 --Bug No:2296776
352 Who When What
353 sjalasut 16 Nov 03 FA126. Corrected the cursor c_get_adm_appl as the req is to
354 return "Y" for multiple application instances and not multiple
355 applications. changed the underlying table in the cursor
356 from igs_ap_appl
357 skoppula 10-APR-2002 Corrected the where clause of the the Cursor get_Adm_appl_details
358 so that adm_appl_status and other statuses in adm_appl table
359 are correctly mapped to the corresponding user defined statuses
360 --Bug No:2154941 Desc : Disbursement Build Jul 2002
361 Who When What
362 mesriniv 22-JAN-2002 Added the NVL clauses for check against the Application Number,Course Code and Version Number
363 as per the FACCR001 DLD
364
365 (reverse chronological order - newest change first)
366 ***************************************************************/
367
368 lv_cal_type igs_ca_inst.cal_type%TYPE DEFAULT NULL;
369 lv_sequence_number igs_ca_inst.sequence_number%TYPE DEFAULT NULL;
370 lv_alt_code igs_ca_inst.alternate_code%TYPE DEFAULT NULL;
371
372 lv_person_id hz_parties.party_id%TYPE;
373 lv_appl_sel_order VARCHAR2(30);
374
375 --Bug No:2154941 Desc : Disbursement Build Jul 2002
376 --Added the NVL clauses for check against the Application Number,Course Code and Version Number
377 --as per the FACCR001 DLD
378
382 p_adm_appl_number igs_ad_appl_all.admission_appl_number%TYPE,
379 CURSOR c_get_adm_appl_details(p_person_id hz_parties.party_id%TYPE,
380 c_cal_type igs_ca_inst_all.cal_type%TYPE ,
381 c_sequence_number igs_ca_inst_all.sequence_number%TYPE,
383 p_course_cd igs_ad_ps_appl_inst_all.nominated_course_cd%TYPE,
384 p_crv_version_number igs_ad_ps_appl_inst_all.crv_version_number%TYPE) IS
385 SELECT aav.row_id appl_inst_row_id,
386 acai.row_id appl_prog_inst_row_id,
387 aav.person_id,
388 aav.admission_appl_number,
389 acai.course_cd,
390 acai.crv_version_number,
391 DECODE(rpstat.s_adm_offer_resp_status,'ACCEPTED',1, 'PENDING',2,'DEFERRAL',3,
392 DECODE(oustat.s_adm_outcome_status,'OFFER', 5,'COND-OFFER',6,'PENDING',7,
393 'NO-QUOTA',8,'REJECTED', 8,'VOIDED', 8, 'WITHDRAWN',8,
394 DECODE(apstat.s_adm_appl_status,'COMPLETED',9,'RECEIVED',10,'WITHDRAWN',11,23))) appl_selection_order,
395 acai.adm_offer_resp_status,
396 acai.adm_outcome_status,
397 aav.adm_appl_status
398 FROM IGS_AD_APPL aav,
399 IGS_AD_PS_APPL_INST acai,
400 IGS_PS_VER crv,
401 IGS_AD_APPL_STAT apstat,
402 IGS_AD_OU_STAT oustat,
403 IGS_AD_OFR_RESP_STAT rpstat
404 WHERE aav.person_id = acai.person_id (+)
405 AND aav.admission_appl_number = acai.admission_appl_number(+)
406 AND aav.person_id = p_person_id
407 /*AND aav.acad_cal_type = c_cal_type
408 AND aav.acad_ci_sequence_number = c_sequence_number*/ -- Commented as per bug 2296776
409 AND aav.admission_appl_number =NVL(p_adm_appl_number,aav.admission_appl_number)
410 AND acai.course_cd =NVL(p_course_cd,acai.course_cd)
411 AND acai.crv_version_number =NVL(p_crv_version_number,acai.crv_version_number)
412 AND acai.course_cd = crv.course_cd(+)
413 AND acai.crv_version_number = crv.version_number(+)
414 AND (crv.federal_financial_aid = 'Y'
415 OR
416 crv.state_financial_aid = 'Y'
417 OR
418 crv.institutional_financial_aid = 'Y' )
419 AND acai.adm_offer_resp_status = rpstat.adm_offer_resp_status(+)
420 AND acai.adm_outcome_status = oustat.adm_outcome_status(+)
421 AND aav.adm_appl_status = apstat.adm_appl_status
422 ORDER BY 7, 4;
423
424 l_get_adm_appl_details_rec c_get_adm_appl_details%ROWTYPE;
425
426 CURSOR c_get_adm_appl IS SELECT COUNT(*) cnt FROM igs_ad_ps_appl_inst WHERE
427 person_id = p_person_id;
428 l_adm_appl_cnt_rec c_get_adm_appl%ROWTYPE;
429 BEGIN
430
431 -- Get the Academic Calender Instance for the given Award Year.
432
433 -- get_acad_cal_from_awd(p_awd_cal_type, p_awd_seq_num, lv_cal_type, lv_sequence_number, lv_alt_code);
434
435 -- Get the <<Selected Admission Application>> record for the given Person and Academic Calender.
436 -- NOTE : THE ENTIRE BELOW LOGIC IS TAKEN CARE IN THE CURSOR ITSELF.
437
438 -- Note : Only the programs which are eligible for Federal/State/Institutional Aid are selected
439 -- Criteria for retreiving the <<Selected Admission Application>> Record :
440 -- 1. Select the Appl with Offer Response Status as ACCEPTED.
441 -- 2. If more than 1 exists, then select the first one.
442 -- 3. Else, select the appl with Offer Response Status as PENDING
443 -- 4. If more than 1 exists, then select the first one.
444 -- 5. Else, select the appl with Offer Response Status as DEFERRAL
445 -- 6. If more than 1 exists, then select the first one.
446 -- 7. Else, select the appl with adm outcome status as OFFER, COND-OFFER, PENDING, NO-QUOTA,
447 -- REJECTED, VOIDED, WITHDRAWN,
448 -- in that order.
449 -- Note : every status value to be considered once, as done for "Offer Response Status".
450 -- 8. If more than 1 exists, then select the first one.
451 -- 9. Else, If select the Appl record with Admission Appl Status as COMPLETED,
452 -- RECEIVED, WITHDRAWN,
453 -- in that order.
454 -- 10. If more than 1 exists, select the first one.
455
456
457 --Modified call to open cursor(added last three parameters) here as per the FACCR001 Disbursement Build Jul 2002
458 --Bug 2154941 Disbursement Build
459 -------------------------------------------------------
460
461
462
463 OPEN c_get_adm_appl_details(p_person_id, lv_cal_type, lv_sequence_number,p_adm_appl_number,p_course_cd,
464 p_crv_version_number) ;
465 FETCH c_get_adm_appl_details INTO
466 p_ad_appl_row_id, p_ad_prog_appl_row_id, lv_person_id,
467 p_adm_appl_number, p_course_cd, p_crv_version_number, lv_appl_sel_order,
468 p_adm_offer_resp_stat, p_adm_outcome_stat, p_adm_appl_status;
469
470 -- If Multiple records exists, then need to return "Y" for p_multiple.
471 -- FETCH c_get_adm_appl_details INTO l_get_adm_appl_details_rec;
472 CLOSE c_get_adm_appl_details;
473
474 OPEN c_get_adm_appl;
475 FETCH c_get_adm_appl INTO l_adm_appl_cnt_rec;
476 IF NVL(l_adm_appl_cnt_rec.cnt,0) > 1 THEN
480 END IF;
477 p_multiple := 'Y';
478 ELSE
479 p_multiple := 'N';
481 CLOSE c_get_adm_appl;
482
483 END get_adm_appl_details;
484
485 FUNCTION get_adm_appl_val(p_person_id IN hz_parties.party_id%TYPE,
486 p_awd_cal_type IN igs_ca_inst_all.cal_type%TYPE,
487 p_awd_seq_num IN igs_ca_inst_all.sequence_number%TYPE)
488 RETURN ROWID
489 IS
490
491 /*************************************************************
492 Created By : adhawan
493 Date Created On : 2001/06/07
494 Purpose :This is provided to get the rowid for igs_ad_appl table in the Selected Applicaition Record
495 which inturn is based on the Academic calendar corresponding to the Award Calendar being passed(last two parameters)
496 Change History
497 Who When What
498
499 (reverse chronological order - newest change first)
500 ***************************************************************/
501
502 -- The OUT NOCOPY parameter variable to capture the values returned from the get_adm_appl_details procedure.
503 lv_ad_appl_row_id ROWID;
504 lv_ad_prog_appl_row_id ROWID;
505 lv_adm_appl_number igs_ad_appl_all.admission_appl_number%TYPE;
506 lv_course_cd igs_ad_ps_appl_inst_all.course_cd%TYPE;
507 lv_crv_version_number igs_ad_ps_appl_inst_all.crv_version_number%TYPE;
508 lv_adm_offer_resp_stat igs_ad_ofr_resp_stat.adm_offer_resp_status%TYPE;
509 lv_adm_outcome_stat igs_ad_ou_stat.adm_outcome_status%TYPE;
510 lv_adm_appl_status igs_ad_appl_all.adm_appl_status%TYPE;
511 lv_multiple VARCHAR2(10) ;
512 BEGIN
513
514 get_adm_appl_details(p_person_id ,
515 p_awd_cal_type ,
516 p_awd_seq_num ,
517 lv_ad_appl_row_id,
518 lv_ad_prog_appl_row_id,
519 lv_adm_appl_number,
520 lv_course_cd,
521 lv_crv_version_number,
522 lv_adm_offer_resp_stat,
523 lv_adm_outcome_stat,
524 lv_adm_appl_status,
525 lv_multiple);
526
527 return lv_ad_appl_row_id;
528
529 END get_adm_appl_val;
530
531
532
533
534 FUNCTION get_adm_prog_appl_val(p_person_id IN hz_parties.party_id%TYPE,
535 p_awd_cal_type IN igs_ca_inst_all.cal_type%TYPE,
536 p_awd_seq_num IN igs_ca_inst_all.sequence_number%TYPE)
537 RETURN ROWID
538 IS
539
540 /*************************************************************
541 Created By : adhawan
542 Date Created On : 2001/06/07
543 Purpose :This is provided to get the rowid for igs_ad_ps_appl_inst table in the Selected Applicaition Record
544 which inturn is based on the Academic calendar corresponding to the Award Calendar being passed(last two parameters)
545 Change History
546 Who When What
547
548 (reverse chronological order - newest change first)
549 ***************************************************************/
550
551 -- The OUT NOCOPY parameter variable to capture the values returned from the get_adm_appl_details procedure.
552 lv_ad_appl_row_id ROWID;
553 lv_ad_prog_appl_row_id ROWID;
554 lv_adm_appl_number igs_ad_appl_all.admission_appl_number%TYPE;
555 lv_course_cd igs_ad_ps_appl_inst_all.course_cd%TYPE;
556 lv_crv_version_number igs_ad_ps_appl_inst_all.crv_version_number%TYPE;
557 lv_adm_offer_resp_stat igs_ad_ofr_resp_stat.adm_offer_resp_status%TYPE;
558 lv_adm_outcome_stat igs_ad_ou_stat.adm_outcome_status%TYPE;
559 lv_adm_appl_status igs_ad_appl_all.adm_appl_status%TYPE;
560 lv_multiple VARCHAR2(10) ;
561 BEGIN
562
563 get_adm_appl_details(p_person_id ,
564 p_awd_cal_type ,
565 p_awd_seq_num ,
566 lv_ad_appl_row_id,
567 lv_ad_prog_appl_row_id,
568 lv_adm_appl_number,
569 lv_course_cd,
570 lv_crv_version_number,
571 lv_adm_offer_resp_stat,
572 lv_adm_outcome_stat,
573 lv_adm_appl_status,
574 lv_multiple);
575 return lv_ad_prog_appl_row_id;
576
577 END get_adm_prog_appl_val;
578
579
580 END igf_ap_oss_integr;
[Home] [Help]