[Home] [Help]
252: l_ci_cal_type := LTRIM(RTRIM(SUBSTR(p_award_year,1,10)));
253: l_ci_sequence_number := NVL(TO_NUMBER(SUBSTR(p_award_year,11)),0);
254:
255: -- show award year
256: l_msg_str_1 := RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','AWARD_YEAR'),30) ||
257: RPAD(igf_gr_gen.get_alt_code(l_ci_cal_type,l_ci_sequence_number),20);
258: fnd_file.put_line(fnd_file.log,l_msg_str_1);
259:
260: -- show source entity id
257: RPAD(igf_gr_gen.get_alt_code(l_ci_cal_type,l_ci_sequence_number),20);
258: fnd_file.put_line(fnd_file.log,l_msg_str_1);
259:
260: -- show source entity id
261: l_msg_str_2 := RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS', 'SOURCE_ENTITY_ID'),30) || p_source_entity_id;
262: fnd_file.put_line(fnd_file.log,l_msg_str_2);
263:
264: -- show reporting entity
265: IF (p_report_entity_id IS NOT NULL) THEN
262: fnd_file.put_line(fnd_file.log,l_msg_str_2);
263:
264: -- show reporting entity
265: IF (p_report_entity_id IS NOT NULL) THEN
266: l_msg_str_3 := RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS', 'REPORT_ENTITY_ID'),30) || p_report_entity_id;
267: fnd_file.put_line(fnd_file.log,l_msg_str_3);
268: END IF;
269:
270: -- show attending entity
268: END IF;
269:
270: -- show attending entity
271: IF (p_attend_entity_id IS NOT NULL) THEN
272: l_msg_str_4 := RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS', 'ATTEND_ENTITY_ID'),30) || p_attend_entity_id;
273: fnd_file.put_line(fnd_file.log,l_msg_str_4);
274: END IF;
275:
276: -- show person number
274: END IF;
275:
276: -- show person number
277: IF (p_base_id IS NOT NULL) THEN
278: l_msg_str_5 := RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','BASE_ID'),30) ||
279: RPAD(igf_gr_gen.get_per_num(p_base_id),20);
280: fnd_file.put_line(fnd_file.log,l_msg_str_5);
281: END IF;
282:
284: IF (p_persid_grp IS NOT NULL) THEN
285: OPEN cur_person_group(p_persid_grp);
286: FETCH cur_person_group INTO rec_person_group;
287: CLOSE cur_person_group;
288: l_msg_str_6 := RPAD(igf_aw_gen.lookup_desc('IGF_GE_PARAMETERS', 'PERSON_ID_GROUP'),30) || rec_person_group.group_name;
289: fnd_file.put_line(fnd_file.log,l_msg_str_6);
290: END IF;
291:
292: EXCEPTION
403: -- Award year is mandatory parameter
404: IF p_award_year IS NULL OR l_ci_cal_type IS NULL OR l_ci_sequence_number IS NULL THEN
405: l_params_status := FALSE;
406: fnd_message.set_name('IGF', 'IGF_SL_COD_REQ_PARAM');
407: fnd_message.set_token('PARAM', igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','AWARD_YEAR'));
408: fnd_file.put_line(fnd_file.log, fnd_message.get);
409: fnd_file.new_line(fnd_file.log, 1);
410: END IF;
411:
412: -- Source entity id is mandatory parameter
413: IF TRIM(p_source_entity_id) IS NULL THEN
414: l_params_status := FALSE;
415: fnd_message.set_name('IGF', 'IGF_SL_COD_REQ_PARAM');
416: fnd_message.set_token('PARAM', igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS', 'SOURCE_ENTITY_ID'));
417: fnd_file.put_line(fnd_file.log, fnd_message.get);
418: fnd_file.new_line(fnd_file.log, 1);
419: ELSIF is_alpha_numeric(p_source_entity_id) OR LENGTH(TRIM(p_source_entity_id)) > 8 THEN
420: -- bvisvana BUg # 4124839
427: -- validating person number and person group are mutually exclusive or not.
428: IF ( (p_base_id IS NOT NULL) AND (p_persid_grp IS NOT NULL) ) THEN
429: l_params_status := FALSE;
430: fnd_message.set_name('IGF', 'IGF_SL_COD_INV_PARAM');
431: fnd_message.set_token('PARAM1', igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS', 'BASE_ID'));
432: fnd_message.set_token('PARAM2', igf_aw_gen.lookup_desc('IGF_GE_PARAMETERS', 'PERSON_ID_GROUP'));
433: fnd_file.put_line(fnd_file.log, fnd_message.get);
434: fnd_file.new_line(fnd_file.log, 1);
435: END IF;
428: IF ( (p_base_id IS NOT NULL) AND (p_persid_grp IS NOT NULL) ) THEN
429: l_params_status := FALSE;
430: fnd_message.set_name('IGF', 'IGF_SL_COD_INV_PARAM');
431: fnd_message.set_token('PARAM1', igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS', 'BASE_ID'));
432: fnd_message.set_token('PARAM2', igf_aw_gen.lookup_desc('IGF_GE_PARAMETERS', 'PERSON_ID_GROUP'));
433: fnd_file.put_line(fnd_file.log, fnd_message.get);
434: fnd_file.new_line(fnd_file.log, 1);
435: END IF;
436:
645: -- validating full response code
646: IF ( p_rfms_rec.full_resp_code NOT IN ('S', 'F', 'M', 'N') ) THEN
647: lv_complete := FALSE;
648: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
649: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','FULL_RESP_CD'));
650: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.full_resp_code);
651: fnd_file.put_line(fnd_file.log, fnd_message.get);
652: END IF;
653:
655: IF g_ver_num = '2004-2005' THEN
656: IF ( (student_dtl_rec.p_date_of_birth < TO_DATE('01011905', 'DDMMYYYY')) OR (student_dtl_rec.p_date_of_birth > TO_DATE('31121996', 'DDMMYYYY')) ) THEN
657: lv_complete := FALSE;
658: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
659: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_DATE_OF_BIRTH'));
660: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.birth_dt);
661: fnd_file.put_line(fnd_file.log, fnd_message.get);
662: END IF;
663: END IF;
664: IF g_ver_num = '2005-2006' THEN
665: IF ( (student_dtl_rec.p_date_of_birth < TO_DATE('01011906', 'DDMMYYYY')) OR (student_dtl_rec.p_date_of_birth > TO_DATE('31121997', 'DDMMYYYY')) ) THEN
666: lv_complete := FALSE;
667: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
668: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_DATE_OF_BIRTH'));
669: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.birth_dt);
670: fnd_file.put_line(fnd_file.log, fnd_message.get);
671: END IF;
672: END IF;
673: IF g_ver_num = '2006-2007' THEN -- check made as part of FA162(COD Reg Updates R12 porting)
674: IF ( (student_dtl_rec.p_date_of_birth < TO_DATE('01011907', 'DDMMYYYY')) OR (student_dtl_rec.p_date_of_birth > TO_DATE('31121998', 'DDMMYYYY')) ) THEN
675: lv_complete := FALSE;
676: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
677: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_DATE_OF_BIRTH'));
678: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.birth_dt);
679: fnd_file.put_line(fnd_file.log, fnd_message.get);
680: END IF;
681: END IF;
683: -- validating student's SSN
684: IF ( (student_dtl_rec.p_ssn < '001010001') OR (student_dtl_rec.p_ssn > '999999998') ) THEN
685: lv_complete := FALSE;
686: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
687: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_SSN'));
688: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_ssn);
689: fnd_file.put_line(fnd_file.log, fnd_message.get);
690: END IF;
691:
692: -- validating student's first name
693: IF ( LENGTH(student_dtl_rec.p_first_name) > 12) THEN
694: lv_complete := FALSE;
695: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
696: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_FIRST_NAME'));
697: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_first_name);
698: fnd_file.put_line(fnd_file.log, fnd_message.get);
699: END IF;
700:
701: -- validating student's last name
702: IF ( LENGTH(student_dtl_rec.p_last_name) > 35) THEN
703: lv_complete := FALSE;
704: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
705: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_LAST_NAME'));
706: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_last_name);
707: fnd_file.put_line(fnd_file.log, fnd_message.get);
708: END IF;
709:
710: -- validating student's middle name
711: IF ( LENGTH(student_dtl_rec.p_middle_name) > 1) THEN
712: lv_complete := FALSE;
713: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
714: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_MIDDLE_NAME'));
715: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_middle_name);
716: fnd_file.put_line(fnd_file.log, fnd_message.get);
717: END IF;
718:
719: -- validating student's driver licencse state
720: IF ( (LENGTH(student_dtl_rec.p_license_state) < 2) OR (LENGTH(student_dtl_rec.p_license_state) > 3) )THEN
721: lv_complete := FALSE;
722: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
723: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','P_LICENSE_STATE'));
724: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_license_state);
725: fnd_file.put_line(fnd_file.log, fnd_message.get);
726: END IF;
727:
728: -- validating student's driver licencse number
729: IF ( LENGTH(student_dtl_rec.p_license_num) > 20) THEN
730: lv_complete := FALSE;
731: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
732: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_LICENSE_NUM'));
733: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_license_num);
734: fnd_file.put_line(fnd_file.log, fnd_message.get);
735: END IF;
736:
737: -- validating student's citizenship status code
738: IF ( (LENGTH(student_dtl_rec.p_citizenship_status) > 1) OR (student_dtl_rec.p_citizenship_status NOT IN ('1', '2', '3')) ) THEN
739: lv_complete := FALSE;
740: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
741: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_CITIZENSHIP_STATUS'));
742: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_citizenship_status);
743: fnd_file.put_line(fnd_file.log, fnd_message.get);
744: END IF;
745:
746: -- validating note message
747: IF ( LENGTH(p_rfms_rec.note_message) > 20) THEN
748: lv_complete := FALSE;
749: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
750: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','NOTE_MESSAGE'));
751: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.note_message);
752: fnd_file.put_line(fnd_file.log, fnd_message.get);
753: END IF;
754:
755: -- validating student's low_tution_fee
756: IF ( (LENGTH(p_rfms_rec.low_tution_fee) > 1) OR (p_rfms_rec.low_tution_fee NOT IN ('1', '2', '3', '4')) ) THEN
757: lv_complete := FALSE;
758: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
759: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','LOW_TUTION_FEE'));
760: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.low_tution_fee);
761: fnd_file.put_line(fnd_file.log, fnd_message.get);
762: END IF;
763:
764: -- validating transaction number
765: IF ( (LENGTH(p_rfms_rec.transaction_num) < '01') OR (LENGTH(p_rfms_rec.transaction_num) > '99') ) THEN
766: lv_complete := FALSE;
767: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
768: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','TRANSACTION_NUMBER'));
769: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.transaction_num);
770: fnd_file.put_line(fnd_file.log, fnd_message.get);
771: END IF;
772:
774: IF g_ver_num = '2004-2005' THEN
775: IF ( (p_rfms_rec.enrollment_dt < TO_DATE('01012004', 'DDMMYYYY')) OR (p_rfms_rec.enrollment_dt > TO_DATE('30062005', 'DDMMYYYY')) ) THEN
776: lv_complete := FALSE;
777: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
778: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ENROLLMENT_DT'));
779: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.enrollment_dt);
780: fnd_file.put_line(fnd_file.log, fnd_message.get);
781: END IF;
782: END IF;
783: IF g_ver_num = '2005-2006' THEN
784: IF ( (p_rfms_rec.enrollment_dt < TO_DATE('01012005', 'DDMMYYYY')) OR (p_rfms_rec.enrollment_dt > TO_DATE('30062006', 'DDMMYYYY')) ) THEN
785: lv_complete := FALSE;
786: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
787: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ENROLLMENT_DT'));
788: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.enrollment_dt);
789: fnd_file.put_line(fnd_file.log, fnd_message.get);
790: END IF;
791: END IF;
792: IF g_ver_num = '2006-2007' THEN -- check made as part of FA162(COD Reg Updates R12 porting)
793: IF ( (p_rfms_rec.enrollment_dt < TO_DATE('01012006', 'DDMMYYYY')) OR (p_rfms_rec.enrollment_dt > TO_DATE('30062007', 'DDMMYYYY')) ) THEN
794: lv_complete := FALSE;
795: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
796: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ENROLLMENT_DT'));
797: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.enrollment_dt);
798: fnd_file.put_line(fnd_file.log, fnd_message.get);
799: END IF;
800: END IF;
802: -- validating secondary efc
803: IF ( (LENGTH(p_rfms_rec.secondary_efc_cd) > 1) OR (p_rfms_rec.secondary_efc_cd NOT IN ('O', 'S')) ) THEN
804: lv_complete := FALSE;
805: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
806: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_AP_AWARDING_FC_TYPE','2'));
807: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.secondary_efc);
808: fnd_file.put_line(fnd_file.log, fnd_message.get);
809: END IF;
810:
811: -- validating verification status code
812: IF ( (LENGTH(p_rfms_rec.ver_status_code) > 1) OR (p_rfms_rec.ver_status_code NOT IN ('W', 'V', 'S')) ) THEN
813: lv_complete := FALSE;
814: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
815: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','SYS_VAL_VER'));
816: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.ver_status_code);
817: fnd_file.put_line(fnd_file.log, fnd_message.get);
818: END IF;
819:
820: -- validating incarcerated status.
821: IF ( p_rfms_rec.incrcd_fed_pell_rcp_cd IS NOT NULL AND ((LENGTH(p_rfms_rec.incrcd_fed_pell_rcp_cd) > 1) OR (p_rfms_rec.incrcd_fed_pell_rcp_cd NOT IN ('Y', 'N'))) ) THEN
822: lv_complete := FALSE;
823: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
824: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','INCRCD_FED_PELL_RCP_CD'));
825: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.incrcd_fed_pell_rcp_cd);
826: fnd_file.put_line(fnd_file.log, fnd_message.get);
827: END IF;
828:
828:
829: IF ( p_rfms_rec.pell_amount >= 999999999.99) THEN
830: lv_complete := FALSE;
831: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
832: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','SYS_VAL_PELL'));
833: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.pell_amount);
834: fnd_file.put_line(fnd_file.log, fnd_message.get);
835: END IF;
836:
840: -- validating disbursement accepted amount
841: IF ( rec_disb_chg_dtls.disb_accepted_amt >= 999999999.99) THEN
842: lv_complete := FALSE;
843: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
844: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','SYS_VAL_DB_AMT'));
845: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_accepted_amt);
846: fnd_file.put_line(fnd_file.log, fnd_message.get);
847: END IF;
848:
849: -- validating disbursement number
850: IF ( rec_disb_chg_dtls.disb_num >= 60) THEN
851: lv_complete := FALSE;
852: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
853: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_AW_LOOKUPS_MSG','DISB_NUM'));
854: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_num);
855: fnd_file.put_line(fnd_file.log, fnd_message.get);
856: END IF;
857:
858: -- validating disbursement sequence number
859: IF ( rec_disb_chg_dtls.disb_seq_num >= 99) THEN
860: lv_complete := FALSE;
861: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
862: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','DISB_SEQ_NUM'));
863: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_seq_num);
864: fnd_file.put_line(fnd_file.log, fnd_message.get);
865: END IF;
866:
868: IF g_ver_num = '2004-2005' THEN
869: IF ( (rec_disb_chg_dtls.disb_date < TO_DATE('22062003', 'DDMMYYYY')) OR (rec_disb_chg_dtls.disb_date > TO_DATE('27102006', 'DDMMYYYY')) ) THEN
870: lv_complete := FALSE;
871: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
872: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_CL_CHANGE_FIELDS','DISB_DATE'));
873: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_date);
874: fnd_file.put_line(fnd_file.log, fnd_message.get);
875: END IF;
876: END IF;
877: IF g_ver_num = '2005-2006' THEN
878: IF ( (rec_disb_chg_dtls.disb_date < TO_DATE('22062004', 'DDMMYYYY')) OR (rec_disb_chg_dtls.disb_date > TO_DATE('27102007', 'DDMMYYYY')) ) THEN
879: lv_complete := FALSE;
880: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
881: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_CL_CHANGE_FIELDS','DISB_DATE'));
882: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_date);
883: fnd_file.put_line(fnd_file.log, fnd_message.get);
884: END IF;
885: END IF;
886: IF g_ver_num = '2006-2007' THEN -- check made as part of FA162(COD Reg Updates R12 porting)
887: IF ( (rec_disb_chg_dtls.disb_date < TO_DATE('01072006', 'DDMMYYYY')) OR (rec_disb_chg_dtls.disb_date > TO_DATE('27102009', 'DDMMYYYY')) ) THEN
888: lv_complete := FALSE;
889: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
890: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_CL_CHANGE_FIELDS','DISB_DATE'));
891: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_date);
892: fnd_file.put_line(fnd_file.log, fnd_message.get);
893: END IF;
894: END IF;
1438: Change History
1439: Who When What
1440: (reverse chronological order - newest change first)
1441: ridas 08-Feb-2006 Bug #5021084. Added new parameter 'lv_group_type' in call to igf_ap_ss_pkg.get_pid
1442: tsailaja 15/Jan/2006 Bug 4947880 Added invocation of igf_aw_gen.set_org_id(NULL);
1443: ***************************************************************/
1444:
1445: CURSOR cur_cod_dtls ( cp_document_id VARCHAR2) IS
1446: SELECT document_id_txt
1482: -- 4. Validate Pell records
1483: -- 5. Insert valid pell records into IGF_GR_COD_DTLS, and disb records into IGF_AW_DB_COD_DTLS
1484: -- 6. Raise Business Event
1485: --
1486: igf_aw_gen.set_org_id(NULL);
1487: retcode := 0;
1488: l_ci_cal_type := LTRIM(RTRIM(SUBSTR(p_award_year,1,10)));
1489: l_ci_sequence_number := NVL(TO_NUMBER(SUBSTR(p_award_year,11)),0);
1490: g_ver_num := igf_aw_gen.get_ver_num(l_ci_cal_type,l_ci_sequence_number,'P');
1486: igf_aw_gen.set_org_id(NULL);
1487: retcode := 0;
1488: l_ci_cal_type := LTRIM(RTRIM(SUBSTR(p_award_year,1,10)));
1489: l_ci_sequence_number := NVL(TO_NUMBER(SUBSTR(p_award_year,11)),0);
1490: g_ver_num := igf_aw_gen.get_ver_num(l_ci_cal_type,l_ci_sequence_number,'P');
1491:
1492: -- Step 1. Print parameters
1493: log_input_parameters(p_award_year, p_source_entity_id, p_report_entity_id, p_attend_entity_id, p_base_id, p_persid_grp);
1494:
1971: Know limitations, enhancements or remarks
1972: Change History
1973: Who When What
1974: (reverse chronological order - newest change first)
1975: tsailaja 15/Jan/2006 Bug 4947880 Added invocation of igf_aw_gen.set_org_id(NULL);
1976: ***************************************************************/
1977:
1978: CURSOR c_get_parameters IS
1979: SELECT meaning, lookup_code
1997: -- 4. Update DOC_DTLS table
1998: -- 5. Update LOR_LOC table, DISB table for Status
1999: -- 5. Print CLOB on the output file
2000: --
2001: igf_aw_gen.set_org_id(NULL);
2002: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2003: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_gen_xml.print_xml.debug','p doc id ' || p_document_id);
2004: END IF;
2005: