[Home] [Help]
46: ||
47: || Known limitations, enhancements or remarks :
48: || Change History :
49: || Who When What
50: || kkillams 11-Jul-2003 Call to rollback is added to the procedure if igs_en_gen_017.add_to_cart_waitlist
51: || sets the out p_ret_status parameter to false. Bug : 3036949
52: || (reverse chronological order - newest change first)
53: */
54: l_api_name CONSTANT VARCHAR2(30) := 'ADDTOCART';
79:
80: --Invoke the procedure add_to_cart_waitlist by passing the relevant parameters.
81: --Parameter p_action should be 'CART' .
82: --The invoke source parameter should have 'IVR' as the input.
83: igs_en_gen_017.add_to_cart_waitlist (
84: p_person_number => p_person_number,
85: p_career => p_career,
86: p_program_code => p_program_code,
87: p_term_alt_code => p_term_alt_code,
94:
95: --If return status is FALSE above then log error message and RETURN.
96: IF l_ret_status = 'FALSE' THEN
97: ROLLBACK TO ADDTOCART_PUB;
98: igs_en_gen_017.enrp_msg_string_to_list (
99: p_message_string => l_message_data,
100: p_delimiter => ';',
101: p_init_msg_list => FND_API.G_FALSE,
102: x_message_count => l_message_count,
215: x_return_status := FND_API.G_RET_STS_SUCCESS;
216:
217: --Validate the input parameters and if valid, also fetch the internal calculated
218: --values. Pass the Validation level as No Call Number.
219: igs_en_gen_017.enrp_validate_input_parameters(
220: p_person_number => p_person_number,
221: p_career => p_career,
222: p_program_code => p_program_code,
223: p_term_alt_code => p_term_alt_code,
234: p_ret_status => l_ret_status );
235:
236: --If there is any invalid parameter then log it and return with error status
237: IF l_ret_status = 'FALSE' THEN
238: igs_en_gen_017.enrp_msg_string_to_list (
239: p_message_string => l_message_data,
240: p_delimiter => ';',
241: p_init_msg_list => FND_API.G_FALSE,
242: x_message_count => x_msg_count,
263: p_ss_session_id => NULL );
264:
265: --If step evaluation result is FALSE then log the error message and return with error status
266: IF l_step_eval_result = 'FALSE' THEN
267: igs_en_gen_017.enrp_msg_string_to_list (
268: p_message_string => l_error_message,
269: p_delimiter => ';',
270: p_init_msg_list => FND_API.G_FALSE,
271: x_message_count => l_message_count,
278:
279: l_ret_status := NULL;
280: l_error_message := NULL;
281: --Fetch the enrollment method
282: igs_en_gen_017.enrp_get_enr_method(
283: p_enr_method_type => l_enr_method_type,
284: p_error_message => l_error_message,
285: p_ret_status => l_ret_status);
286:
285: p_ret_status => l_ret_status);
286:
287: --If error occured during fetching then log it end Return with error status
288: IF l_ret_status = 'FALSE' THEN
289: igs_en_gen_017.enrp_msg_string_to_list (
290: p_message_string => l_error_message,
291: p_delimiter => ';',
292: p_init_msg_list => FND_API.G_FALSE,
293: x_message_count => l_message_count,
317: p_calling_obj => 'JOB'
318: );
319: --If the unit step validation returns Deny then log the error message and return with Error status
320: IF l_deny_warn = 'DENY' THEN
321: igs_en_gen_017.enrp_msg_string_to_list (
322: p_message_string => l_error_message,
323: p_delimiter => ';',
324: p_init_msg_list => FND_API.G_FALSE,
325: x_message_count => l_message_count,
362: p_enrolled_dt => SYSDATE);
363:
364: --If return status is Deny then log the error message and retrun with error status
365: IF l_ret_status = 'DENY' THEN
366: igs_en_gen_017.enrp_msg_string_to_list (
367: p_message_string => l_message_data,
368: p_delimiter => ';',
369: p_init_msg_list => FND_API.G_FALSE,
370: x_message_count => l_message_count,
475: -- Main code logic begins
476: --
477:
478: -- Validate the input parameters.
479: igs_en_gen_017.enrp_validate_input_parameters(
480: p_person_number => p_person_number ,
481: p_career => p_career ,
482: p_program_code => p_program_code ,
483: p_term_alt_code => p_term_alt_code ,
494: p_ret_status => l_return_status);
495:
496: IF l_return_status = 'FALSE' THEN
497: -- Add to msg stack
498: igs_en_gen_017.enrp_msg_string_to_list(
499: p_message_string => l_error_message,
500: p_delimiter => ';',
501: p_init_msg_list => FND_API.G_FALSE,
502: x_message_count => l_messaage_count,
597: x_return_status := FND_API.G_RET_STS_SUCCESS;
598: l_return_status := 'TRUE';
599:
600: -- main code logic begins
601: igs_en_gen_017.drop_section(
602: p_person_number => p_person_number,
603: p_career => p_career ,
604: p_program_code => p_program_code ,
605: p_term_alt_code => p_term_alt_code,
611: p_return_stat => l_return_status);
612:
613: IF l_return_status = 'FALSE' THEN
614: -- add to msg stack
615: igs_en_gen_017.enrp_msg_string_to_list(
616: p_message_string => l_error_message,
617: p_init_msg_list => FND_API.G_FALSE,
618: x_message_count => l_messaage_count,
619: x_message_data => l_message_data);
710: x_return_status := FND_API.G_RET_STS_SUCCESS;
711: l_return_status := 'TRUE';
712:
713: -- main code logic begins
714: igs_en_gen_017.drop_section(
715: p_person_number => p_person_number,
716: p_career => p_career ,
717: p_program_code => p_program_code ,
718: p_term_alt_code => p_term_alt_code,
724: p_return_stat => l_return_status);
725:
726: IF l_return_status = 'FALSE' THEN
727: -- add to msg stack
728: igs_en_gen_017.enrp_msg_string_to_list(
729: p_message_string => l_error_message,
730: p_init_msg_list => FND_API.G_FALSE,
731: x_message_count => l_messaage_count,
732: x_message_data => l_message_data
831: x_return_status := FND_API.G_RET_STS_SUCCESS;
832:
833: --Validate the input parameters and if valid would also fetch the internal calculated
834: --values. Validation level here is No Call Number.
835: igs_en_gen_017.enrp_validate_input_parameters(
836: p_person_number => p_person_number,
837: p_career => p_career,
838: p_program_code => p_program_code,
839: p_term_alt_code => p_term_alt_code,
850: p_ret_status => l_ret_status );
851:
852: --If there is any invalid parameter then log the error message and return with error status
853: IF l_ret_status = 'FALSE' THEN
854: igs_en_gen_017.enrp_msg_string_to_list (
855: p_message_string => l_message_data,
856: p_delimiter => ';',
857: p_init_msg_list => FND_API.G_FALSE,
858: x_message_count => x_msg_count,
875: p_ss_session_id => NULL);
876:
877: --If step evaluation result is FALSE then log the error message and return with error status
878: IF l_step_eval_result = 'FALSE' THEN
879: igs_en_gen_017.enrp_msg_string_to_list (
880: p_message_string => l_message_data,
881: p_delimiter => ';',
882: p_init_msg_list => FND_API.G_FALSE,
883: x_message_count => x_msg_count,
1014: -- Main code logic begins
1015: --
1016:
1017: -- Validate the input parameters.
1018: igs_en_gen_017.enrp_validate_input_parameters(
1019: p_person_number => p_person_number ,
1020: p_career => p_career ,
1021: p_program_code => p_program_code ,
1022: p_term_alt_code => p_term_alt_code ,
1033: p_ret_status => l_return_status);
1034:
1035: IF l_return_status = 'FALSE' THEN
1036: -- Add to msg stack
1037: igs_en_gen_017.enrp_msg_string_to_list(
1038: p_message_string => l_error_message,
1039: p_init_msg_list => FND_API.G_FALSE,
1040: x_message_count => l_messaage_count,
1041: x_message_data => l_message_data
1069:
1070: --If no records found then returm IGS_EN_NO_SECTION error message with ERROR status.
1071: IF l_rec_count = 0 THEN
1072: -- Add to msg stack
1073: igs_en_gen_017.enrp_msg_string_to_list(
1074: p_message_string => 'IGS_EN_NO_SECTION',
1075: p_init_msg_list => FND_API.G_FALSE,
1076: x_message_count => l_messaage_count,
1077: x_message_data => l_message_data);
1198: -- Main code logic begins
1199: --
1200:
1201: -- Validate the input parameters.
1202: igs_en_gen_017.enrp_validate_input_parameters(
1203: p_person_number => p_person_number ,
1204: p_career => p_career ,
1205: p_program_code => p_program_code ,
1206: p_term_alt_code => p_term_alt_code ,
1217: p_ret_status => l_return_status);
1218:
1219: IF l_return_status = 'FALSE' THEN
1220: -- Add to msg stack
1221: igs_en_gen_017.enrp_msg_string_to_list(
1222: p_message_string => l_error_message,
1223: p_delimiter => ';',
1224: p_init_msg_list => FND_API.G_FALSE,
1225: x_message_count => l_messaage_count,
1238:
1239: --If no records found then returm IGS_EN_NO_SECTION error message with ERROR status.
1240: IF l_rec_count = 0 THEN
1241: -- Add to msg stack
1242: igs_en_gen_017.enrp_msg_string_to_list(
1243: p_message_string => 'IGS_EN_NO_SECTION',
1244: p_init_msg_list => FND_API.G_FALSE,
1245: x_message_count => l_messaage_count,
1246: x_message_data => l_message_data);
1358: -- Main code logic begins
1359: --
1360:
1361: -- Validate the input parameters.
1362: igs_en_gen_017.enrp_validate_input_parameters(
1363: p_person_number => p_person_number ,
1364: p_career => p_career ,
1365: p_program_code => p_program_code ,
1366: p_term_alt_code => p_term_alt_code ,
1377: p_ret_status => l_return_status);
1378:
1379: IF l_return_status = 'FALSE' THEN
1380: -- Add to msg stack
1381: igs_en_gen_017.enrp_msg_string_to_list(
1382: p_message_string => l_error_message,
1383: p_delimiter => ';',
1384: p_init_msg_list => FND_API.G_FALSE,
1385: x_message_count => l_messaage_count,
1509: -- Main code logic begins
1510: --
1511:
1512: -- Validate the input parameters.
1513: igs_en_gen_017.enrp_validate_input_parameters(
1514: p_person_number => p_person_number ,
1515: p_career => p_career ,
1516: p_program_code => p_program_code ,
1517: p_term_alt_code => p_term_alt_code ,
1528: p_ret_status => l_return_status);
1529:
1530: IF l_return_status = 'FALSE' THEN
1531: -- Add to msg stack
1532: igs_en_gen_017.enrp_msg_string_to_list(
1533: p_message_string => l_error_message,
1534: p_delimiter => ';',
1535: p_init_msg_list => FND_API.G_FALSE,
1536: x_message_count => l_messaage_count,
1711: --
1712: -- Main code logic begins
1713: --
1714: -- Validate Person Number
1715: igs_en_gen_017.enrp_validate_student(
1716: p_person_number => p_person_number,
1717: p_person_id => l_person_id ,
1718: p_person_type => l_person_type ,
1719: p_error_message => l_error_message,
1719: p_error_message => l_error_message,
1720: p_ret_status => l_return_status);
1721: IF l_return_status = 'FALSE' THEN
1722: -- add to msg stack
1723: igs_en_gen_017.enrp_msg_string_to_list(
1724: p_message_string => l_error_message,
1725: p_init_msg_list => FND_API.G_FALSE,
1726: x_message_count => l_messaage_count,
1727: x_message_data => l_message_data);
1734:
1735: -- Check the career model, if it is enabled then get the primary program...
1736: IF NVL(FND_PROFILE.VALUE('CAREER_MODEL_ENABLED'),'N') = 'Y' THEN
1737: IF p_career IS NULL THEN
1738: igs_en_gen_017.enrp_msg_string_to_list(
1739: p_message_string => 'IGS_EN_NO_CAREER',
1740: p_init_msg_list => FND_API.G_FALSE,
1741: x_message_count => l_messaage_count,
1742: x_message_data => l_message_data);
1756: p_programlist => l_programlist,
1757: p_term_cal_type => NULL,
1758: p_term_sequence_number => NULL);
1759: IF l_primary_code IS NULL THEN
1760: igs_en_gen_017.enrp_msg_string_to_list(
1761: p_message_string => 'IGS_SS_EN_NO_CAREER',
1762: p_init_msg_list => FND_API.G_FALSE,
1763: x_message_count => l_messaage_count,
1764: x_message_data => l_message_data);
1771: x_primary_code := l_primary_code;
1772: x_primary_version := l_primary_version;
1773: ELSE
1774: IF p_program_code IS NULL THEN
1775: igs_en_gen_017.enrp_msg_string_to_list(
1776: p_message_string => 'IGS_EN_NO_PROGRAM',
1777: p_init_msg_list => FND_API.G_FALSE,
1778: x_message_count => l_messaage_count,
1779: x_message_data => l_message_data);
1787: -- Validate that the input person number and program correspond to a valid program attempt.
1788: OPEN cur_get_ver(l_person_id, p_program_code);
1789: FETCH cur_get_ver INTO l_rec_ver;
1790: IF cur_get_ver%NOTFOUND THEN
1791: igs_en_gen_017.enrp_msg_string_to_list(
1792: p_message_string => 'IGS_EN_NO_ACTIVE_PROGRAM',
1793: p_init_msg_list => FND_API.G_FALSE,
1794: x_message_count => l_messaage_count,
1795: x_message_data => l_message_data);
1942: -- main code logic begins
1943: /*
1944: validate person_number
1945: */
1946: igs_en_gen_017.enrp_validate_student
1947: (
1948: p_person_number => p_person_number,
1949: p_person_id => l_person_id ,
1950: p_person_type => l_person_type ,
1952: p_ret_status => l_ret_status
1953: );
1954: IF l_ret_status = 'FALSE' THEN
1955: -- add to msg stack
1956: igs_en_gen_017.enrp_msg_string_to_list
1957: (
1958: p_message_string => l_error_message,
1959: p_init_msg_list => FND_API.G_FALSE,
1960: x_message_count => l_message_count,
1967: determine default term
1968: */
1969: l_error_message := NULL;
1970: l_ret_status := 'TRUE';
1971: igs_en_gen_017.enrp_get_default_term(
1972: p_term_alt_code => x_default_term_alt_code,
1973: p_error_message => l_error_message,
1974: p_ret_status => l_ret_status);
1975: /*
1979: l_ret_status := 'TRUE';
1980: /*
1981: get list of term calendars
1982: */
1983: igs_en_gen_017.enrp_get_term_ivr_list
1984: (
1985: p_term_tbl => x_term_tbl,
1986: p_error_message => l_error_message,
1987: p_ret_status => l_ret_status
1987: p_ret_status => l_ret_status
1988: );
1989: IF l_ret_status = 'FALSE' THEN
1990: -- add to msg stack
1991: igs_en_gen_017.enrp_msg_string_to_list
1992: (
1993: p_message_string => l_error_message,
1994: p_init_msg_list => FND_API.G_FALSE,
1995: x_message_count => l_message_count,
2019: x_career_tbl(l_rec_count).p_version_number := rec_program_mode.version_number;
2020: END LOOP;
2021: END IF;
2022: IF l_rec_count = 0 THEN
2023: igs_en_gen_017.enrp_msg_string_to_list
2024: (
2025: p_message_string => 'IGS_SS_EN_NO_CONF_PRG',
2026: p_init_msg_list => FND_API.G_FALSE,
2027: x_message_count => l_message_count,
2122: x_return_status := FND_API.G_RET_STS_SUCCESS;
2123:
2124: --Validate the p_term_alt_code parameter by calling the procedure enrp_validate_term_alt_code.
2125: --This procedure will validate the parameter and also return the cal_type and seq_number (which is of no use here.)
2126: igs_en_gen_017.enrp_validate_term_alt_code(
2127: p_term_alt_code => p_term_alt_code,
2128: p_cal_type => l_cal_type,
2129: p_ci_sequence_number => l_ci_sequence_number,
2130: p_error_message => l_message,
2132:
2133: IF l_ret_status = 'FALSE' THEN
2134: -- If the above function returns the l_ret_status parameter as FALSE then
2135: -- Call the function enrp_msg_string_to_list to set the error message. And set the return status to Error.
2136: igs_en_gen_017.enrp_msg_string_to_list (
2137: p_message_string => l_message,
2138: p_delimiter => ';',
2139: p_init_msg_list => FND_API.G_FALSE,
2140: x_message_count => l_message_count,
2195: ||
2196: || Known limitations, enhancements or remarks :
2197: || Change History :
2198: || Who When What
2199: || kkillams 11-Jul-2003 Call to rollback is added to the procedure if igs_en_gen_017.add_to_cart_waitlist
2200: || sets the out p_ret_status parameter to false. Bug : 3036949
2201: || (reverse chronological order - newest change first)
2202: */
2203: l_api_name CONSTANT VARCHAR2(30) := 'WAITLIST';
2230: --Invoke the procedure add_to_cart_waitlist by passing the relevant parameters.
2231: --Parameter p_action should be 'WLIST' in this case and the parameter p_waitlist_ind
2232: --is an IN/OUT variable hance an out value can be expected, which can be ignored.
2233: --The invoke source parameter should have 'IVR' as the input.
2234: igs_en_gen_017.add_to_cart_waitlist (
2235: p_person_number => p_person_number,
2236: p_career => p_career,
2237: p_program_code => p_program_code,
2238: p_term_alt_code => p_term_alt_code,
2246: --If return status is FALSE above then log error message and RETURN.
2247: IF l_ret_status = 'FALSE' THEN
2248: ROLLBACK TO WAITLIST_PUB;
2249: x_return_status := FND_API.G_RET_STS_ERROR ;
2250: igs_en_gen_017.enrp_msg_string_to_list (
2251: p_message_string => l_message_data,
2252: p_delimiter => ';',
2253: p_init_msg_list => FND_API.G_FALSE,
2254: x_message_count => x_msg_count,