[Home] [Help]
118: --Standard start of API savepoint
119: SAVEPOINT create_graduand;
120:
121: --Standard call to check for call compatibility.
122: IF NOT FND_API.Compatible_API_Call(
123: l_api_version,
124: p_api_version,
125: l_api_name,
126: G_PKG_NAME)
124: p_api_version,
125: l_api_name,
126: G_PKG_NAME)
127: THEN
128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
129: END IF;
130:
131: --Initialize message list if p_init_msg_list is set to TRUE.
132: IF FND_API.to_Boolean(p_init_msg_list) THEN
128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
129: END IF;
130:
131: --Initialize message list if p_init_msg_list is set to TRUE.
132: IF FND_API.to_Boolean(p_init_msg_list) THEN
133: FND_MSG_PUB.initialize;
134: END IF;
135:
136: --Initialize API return status to success.
133: FND_MSG_PUB.initialize;
134: END IF;
135:
136: --Initialize API return status to success.
137: x_return_status := FND_API.G_RET_STS_SUCCESS;
138:
139: --THE CODE LOGIC STARTS HERE
140:
141: --Validate the params passed to this API
139: --THE CODE LOGIC STARTS HERE
140:
141: --Validate the params passed to this API
142: IF NOT validate_parameters(p_lgcy_grd_rec) THEN
143: x_return_status := FND_API.G_RET_STS_ERROR;
144: RAISE FND_API.G_EXC_ERROR;
145: END IF;
146: --End of Validate the params passed to this API
147:
140:
141: --Validate the params passed to this API
142: IF NOT validate_parameters(p_lgcy_grd_rec) THEN
143: x_return_status := FND_API.G_RET_STS_ERROR;
144: RAISE FND_API.G_EXC_ERROR;
145: END IF;
146: --End of Validate the params passed to this API
147:
148: --Derive Graduand data
152: p_sequence_number => l_sequence_number,
153: p_proxy_award_person_id => l_proxy_award_person_id,
154: p_proxy_award_ind => l_proxy_award_ind
155: ) THEN
156: x_return_status := FND_API.G_RET_STS_ERROR;
157: RAISE FND_API.G_EXC_ERROR;
158: END IF;
159: --End of Derive Graduand data
160:
153: p_proxy_award_person_id => l_proxy_award_person_id,
154: p_proxy_award_ind => l_proxy_award_ind
155: ) THEN
156: x_return_status := FND_API.G_RET_STS_ERROR;
157: RAISE FND_API.G_EXC_ERROR;
158: END IF;
159: --End of Derive Graduand data
160:
161: --CALL VALIDATE_GRAD_DB_CONS
164: p_cal_type => l_cal_type,
165: p_sequence_number=>l_sequence_number
166: );
167: IF l_return_value = 'E' THEN
168: x_return_status := FND_API.G_RET_STS_ERROR;
169: RAISE FND_API.G_EXC_ERROR;
170: ELSIF l_return_value = 'W' THEN
171: RAISE WARN_TYPE_ERR; --Error handling Goes here
172: END IF;
165: p_sequence_number=>l_sequence_number
166: );
167: IF l_return_value = 'E' THEN
168: x_return_status := FND_API.G_RET_STS_ERROR;
169: RAISE FND_API.G_EXC_ERROR;
170: ELSIF l_return_value = 'W' THEN
171: RAISE WARN_TYPE_ERR; --Error handling Goes here
172: END IF;
173: --END OF VALIDATE_GRAD_DB_CONS
178: P_cal_type => l_cal_type,
179: P_sequence_number => l_sequence_number,
180: P_proxy_award_person_id => l_proxy_award_person_id,
181: P_proxy_award_ind => l_proxy_award_ind ) THEN
182: RAISE FND_API.G_EXC_ERROR; --Error handling Goes here
183: END IF;
184: --End of Call to validate_graduand
185: --Call RAW insert into the table
186: INSERT INTO igs_gr_graduand
306:
307: --THE CODE LOGIC ENDS HERE
308:
309: --Standard check of p_commit.
310: IF FND_API.to_Boolean(p_commit) THEN
311: commit;
312: END IF;
313:
314: FND_MSG_PUB.Count_And_Get(
322: x_return_status := 'W';
323: FND_MSG_PUB.Count_And_Get(
324: p_count => x_msg_count,
325: p_data => x_msg_data);
326: WHEN FND_API.G_EXC_ERROR THEN
327: ROLLBACK TO create_graduand;
328: x_return_status := FND_API.G_RET_STS_ERROR;
329: FND_MSG_PUB.Count_And_Get(
330: p_count => x_msg_count,
324: p_count => x_msg_count,
325: p_data => x_msg_data);
326: WHEN FND_API.G_EXC_ERROR THEN
327: ROLLBACK TO create_graduand;
328: x_return_status := FND_API.G_RET_STS_ERROR;
329: FND_MSG_PUB.Count_And_Get(
330: p_count => x_msg_count,
331: p_data => x_msg_data);
332:
329: FND_MSG_PUB.Count_And_Get(
330: p_count => x_msg_count,
331: p_data => x_msg_data);
332:
333: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
334: ROLLBACK TO create_graduand;
335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
336: FND_MSG_PUB.Count_And_Get(
337: p_count => x_msg_count,
331: p_data => x_msg_data);
332:
333: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
334: ROLLBACK TO create_graduand;
335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
336: FND_MSG_PUB.Count_And_Get(
337: p_count => x_msg_count,
338: p_data => x_msg_data);
339: WHEN OTHERS THEN
337: p_count => x_msg_count,
338: p_data => x_msg_data);
339: WHEN OTHERS THEN
340: ROLLBACK TO create_graduand;
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
342: FND_MESSAGE.SET_NAME('IGS', 'IGS_AV_UNHANDLED_ERROR');
343: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
344: FND_MSG_PUB.ADD;
345:
369: || (reverse chronological order - newest change first)
370: ****************************************************************************************************************/
371: IS
372:
373: l_return_value BOOLEAN := FND_API.TO_BOOLEAN(FND_API.G_TRUE);
374:
375: BEGIN
376:
377: --Convert all the values that must be uppercase into uppercase forcibly
383: p_lgcy_grd_rec.sur_for_award_cd := UPPER(p_lgcy_grd_rec.sur_for_award_cd);
384: p_lgcy_grd_rec.grd_cal_alt_code := UPPER(p_lgcy_grd_rec.grd_cal_alt_code);
385:
386: IF p_lgcy_grd_rec.person_number IS NULL THEN
387: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
388: FND_MESSAGE.SET_NAME ('IGS', 'IGS_EN_PER_NUM_NULL');
389: FND_MSG_PUB.ADD;
390: END IF;
391:
389: FND_MSG_PUB.ADD;
390: END IF;
391:
392: IF p_lgcy_grd_rec.create_dt IS NULL THEN
393: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
394: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_CREATE_DT_NOT_NULL');
395: FND_MSG_PUB.ADD;
396: END IF;
397:
395: FND_MSG_PUB.ADD;
396: END IF;
397:
398: IF p_lgcy_grd_rec.GRD_CAL_ALT_CODE IS NULL THEN
399: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
400: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_CALALTCD_NOT_NULL');
401: FND_MSG_PUB.ADD;
402: END IF;
403:
402: END IF;
403:
404:
405: IF p_lgcy_grd_rec.AWARD_CD IS NULL THEN
406: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
407: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_AWARD_CD_NOT_NULL');
408: FND_MSG_PUB.ADD;
409: END IF;
410:
408: FND_MSG_PUB.ADD;
409: END IF;
410:
411: IF p_lgcy_grd_rec.GRADUAND_STATUS IS NULL THEN
412: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
413: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_GRADSTAT_NOT_NULL');
414: FND_MSG_PUB.ADD;
415: END IF;
416:
414: FND_MSG_PUB.ADD;
415: END IF;
416:
417: IF p_lgcy_grd_rec.GRADUAND_APPR_STATUS IS NULL THEN
418: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
419: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_GRD_APPRSTAT_NOT_NULL');
420: FND_MSG_PUB.ADD;
421: END IF;
422:
429: NVL(p_lgcy_grd_rec.AWARD_PROG_VERSION_NUMBER,-1) < 1 OR
430: NVL(p_lgcy_grd_rec.AWARD_PROG_VERSION_NUMBER,-1)> 999
431: )
432: THEN
433: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
434: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_AWD_PRGVER_BET_1_999');
435: FND_MSG_PUB.ADD;
436: END IF;
437:
444: NVL(p_lgcy_grd_rec.SUR_FOR_PROG_VERSION_NUMBER ,-1) < 1 OR
445: NVL(p_lgcy_grd_rec.SUR_FOR_PROG_VERSION_NUMBER ,-1)> 999
446: )
447: THEN
448: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
449: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_SUR_PRGVER_BET_1_999');
450: FND_MSG_PUB.ADD;
451: END IF;
452:
458: (
459: p_lgcy_grd_rec.SUR_FOR_AWARD_CD IS NULL
460: )
461: THEN
462: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
463: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_SUR_AWDCD_NOT_NULL');
464: FND_MSG_PUB.ADD;
465: END IF;
466:
487: p_ATTRIBUTE18 => p_lgcy_grd_rec.ATTRIBUTE18 ,
488: p_ATTRIBUTE19 => p_lgcy_grd_rec.ATTRIBUTE19 ,
489: p_ATTRIBUTE20 => p_lgcy_grd_rec.ATTRIBUTE20 ,
490: p_desc_flex_name => 'IGS_GR_GRADUAND_FLEX' ) THEN
491: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
492: FND_MESSAGE.SET_NAME ('IGS', 'IGS_AD_INVALID_DESC_FLEX');
493: FND_MSG_PUB.ADD;
494: END IF;
495:
518: || (reverse chronological order - newest change first)
519: ****************************************************************************************************************/
520: IS
521:
522: l_return_value BOOLEAN := FND_API.TO_BOOLEAN(FND_API.G_TRUE);
523: l_message VARCHAR2(2000);
524: l_start_dt DATE ;
525: l_end_dt DATE ;
526: BEGIN
530: --Get person id
531: IF p_person_id IS NULL THEN
532: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GE_INVALID_PERSON_NUMBER');
533: FND_MSG_PUB.ADD;
534: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
535: RETURN l_return_value;
536: END IF;
537: --End of Get person id
538:
541:
542: IF p_cal_type IS NULL OR p_sequence_number IS NULL THEN
543: FND_MESSAGE.SET_NAME ('IGS', 'IGS_AV_INVALID_CAL_ALT_CODE');
544: FND_MSG_PUB.ADD;
545: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
546: RETURN l_return_value;
547: END IF;
548: --End of Get calendar info
549:
553:
554: IF p_proxy_award_person_id IS NULL THEN -- Wrong proxy person number is passed
555: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_INVALID_PRXYPERS_NUM');
556: FND_MSG_PUB.ADD;
557: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
558: RETURN l_return_value;
559: ELSE
560: -- Correct proxy person number is passed, so set the ind to Y
561: p_proxy_award_ind := 'Y';
610: ****************************************************************************************************************/
611: IS
612:
613: --Initialize API return status to success.
614: l_return_value VARCHAR2(10) := FND_API.G_RET_STS_SUCCESS;
615:
616: BEGIN
617: -- Check for record existance
618: IF Igs_Gr_Graduand_Pkg.Get_Pk_For_Validation(X_PERSON_ID => p_person_id,
761: ****************************************************************************************************************/
762: IS
763:
764: --Initialize API return status to true
765: l_return_value BOOLEAN := FND_API.TO_BOOLEAN(FND_API.G_TRUE);
766:
767: --Cursor to fetch the award type
768: CURSOR c_awd_type(p_award_cd igs_ps_awd.award_cd%TYPE) IS
769: SELECT S_AWARD_TYPE
846: p_message_name => l_message )THEN
847:
848: FND_MESSAGE.SET_NAME ('IGS', l_message);
849: FND_MSG_PUB.ADD;
850: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE); --Continue
851:
852: END IF;
853: --End of 1-7 Validate that the surrendering for program award can only be specified when surrendering or articulating an award
854:
857: IF p_lgcy_grd_rec.proxy_award_person_number IS NOT NULL AND
858: p_lgcy_grd_rec.proxy_award_person_number = p_lgcy_grd_rec.person_number THEN
859: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_PRXY_AWD_MUST_BE_DIFF');
860: FND_MSG_PUB.ADD;
861: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE); --Continue
862: END IF;
863: -- End of Validate that if the Proxy award person number is passed
864: -- then the proxy award person number must be a different person from that of the graduand.
865:
875: IF v_gst_s_graduand_status IN (cst_graduated,cst_surrender) THEN
876: IF v_gas_s_graduand_appr_status <> cst_approved THEN
877: FND_MESSAGE.SET_NAME ('IGS','IGS_GR_MUST_HAVE_VALUE_APPROV');
878: FND_MSG_PUB.ADD;
879: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE); --Continue
880: END IF;
881: END IF;
882: --End of Validate that the Graduand cannot be graduated unless the graduand approval status has a system value of "APPROVED
883:
891: p_message_name => l_message) THEN
892:
893: FND_MESSAGE.SET_NAME ('IGS',l_message);
894: FND_MSG_PUB.ADD;
895: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE); --Continue
896: END IF;
897: --11 End of Validate that if the program award code and program award version number is the same as the program code and version number then validate
898:
899: --12 Validate that the students are allowed to graduate from the specified program
901: p_course_cd => p_lgcy_grd_rec.program_cd,
902: p_message_name => l_message) THEN
903: FND_MESSAGE.SET_NAME ('IGS',l_message);
904: FND_MSG_PUB.ADD;
905: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE); --Continue
906: END IF;
907: --End of Validate that the students are allowed to graduate from the specified program
908:
909: --13, 14 ,15 Validate that the award must be of system award type PROGRAM, HON,
918: p_s_award_type => l_s_award_type,
919: p_message_name => l_message) THEN
920: FND_MESSAGE.SET_NAME ('IGS',l_message);
921: FND_MSG_PUB.ADD;
922: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE); --Continue
923: END IF;
924: --End of 13, 14 ,15 Validate that the award must be of system award type PROGRAM, HON
925:
926: --16 Validate that the graduand record program award is an award for the student program attempt or an alternative exit
934: p_message_name => l_message
935: )THEN
936: FND_MESSAGE.SET_NAME ('IGS',l_message);
937: FND_MSG_PUB.ADD;
938: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE); --Continue
939: END IF;
940: --End of 16 Validate that the graduand record program award is an award for the student program attempt or an alternative exit
941:
942: --17,18 Validate that a student cannot articulate or surrender a graduand record for the same program.
950: p_message_name => l_message) THEN
951:
952: FND_MESSAGE.SET_NAME ('IGS',l_message);
953: FND_MSG_PUB.ADD;
954: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE); --Continue
955: END IF;
956: --end of 17, 18
957:
958: --20
958: --20
959: IF p_lgcy_grd_rec.s_graduand_type = 'ATTENDING' AND p_lgcy_grd_rec.proxy_award_person_number IS NOT NULL THEN
960: FND_MESSAGE.SET_NAME ('IGS','IGS_GR_PROXY_NOT_ALLOW');
961: FND_MSG_PUB.ADD;
962: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE); --Continue
963: END IF;
964: --End of 20
965:
966: RETURN l_return_value ;
989: ****************************************************************************************************************/
990: IS
991:
992: --Initialize API return status to true
993: l_return_value BOOLEAN := FND_API.TO_BOOLEAN(FND_API.G_TRUE);
994: l_message fnd_new_messages.message_name%TYPE;
995:
996:
997: BEGIN
1006: p_award_cd => p_lgcy_grd_rec.award_cd,
1007: p_message_name => l_message ) THEN
1008: FND_MESSAGE.SET_NAME ('IGS','IGS_GR_GRAD_CR_DT_FAIL');
1009: FND_MSG_PUB.ADD;
1010: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
1011: END IF;
1012:
1013: RETURN l_return_value;
1014: