76: ------------------------------------------------------------------------
77: -- PROCEDURE : display_error_messages
78: -- DESCRIPTION: This procedure will parse a string of error message codes
79: -- delimited of with a comma. It will lookup each code using
80: -- fnd_messages routine.
81: ------------------------------------------------------------------------
82:
83: PROCEDURE display_error_messages (
84: ip_message_string IN VARCHAR2) IS
100: ELSE
101: comma_loc := 0;
102: END IF;
103:
104: fnd_message.clear;
105:
106: --
107: -- loop will cycle thru each occurrence of delimted text
108: -- and display message with its code..
129:
130: --
131: -- Convert error message code to its 'user-friendly' message;
132: --
133: fnd_message.set_name ('PN', ind_message);
134: --
135: -- Display message to the output log
136: --
137: put_output ( '-->'
134: --
135: -- Display message to the output log
136: --
137: put_output ( '-->'
138: || fnd_message.get
139: || ' ('
140: || ind_message
141: || ')');
142: --
718: FOR il_rec IN index_leases (p_index_lease_id)
719: LOOP
720: -- Print the Header info of report
721: -- Will only be done once
722: fnd_message.set_name ('PN','PN_RICAL_LSNO');
723: fnd_message.set_token ('NUM', il_rec.index_lease_number);
724: put_output(fnd_message.get);
725:
726: fnd_message.set_name ('PN','PN_MRIP_CM_DATE');
719: LOOP
720: -- Print the Header info of report
721: -- Will only be done once
722: fnd_message.set_name ('PN','PN_RICAL_LSNO');
723: fnd_message.set_token ('NUM', il_rec.index_lease_number);
724: put_output(fnd_message.get);
725:
726: fnd_message.set_name ('PN','PN_MRIP_CM_DATE');
727: fnd_message.set_token ('DATE', il_rec.commencement_date);
720: -- Print the Header info of report
721: -- Will only be done once
722: fnd_message.set_name ('PN','PN_RICAL_LSNO');
723: fnd_message.set_token ('NUM', il_rec.index_lease_number);
724: put_output(fnd_message.get);
725:
726: fnd_message.set_name ('PN','PN_MRIP_CM_DATE');
727: fnd_message.set_token ('DATE', il_rec.commencement_date);
728: put_output(fnd_message.get);
722: fnd_message.set_name ('PN','PN_RICAL_LSNO');
723: fnd_message.set_token ('NUM', il_rec.index_lease_number);
724: put_output(fnd_message.get);
725:
726: fnd_message.set_name ('PN','PN_MRIP_CM_DATE');
727: fnd_message.set_token ('DATE', il_rec.commencement_date);
728: put_output(fnd_message.get);
729:
730: fnd_message.set_name ('PN','PN_MRIP_TM_DATE');
723: fnd_message.set_token ('NUM', il_rec.index_lease_number);
724: put_output(fnd_message.get);
725:
726: fnd_message.set_name ('PN','PN_MRIP_CM_DATE');
727: fnd_message.set_token ('DATE', il_rec.commencement_date);
728: put_output(fnd_message.get);
729:
730: fnd_message.set_name ('PN','PN_MRIP_TM_DATE');
731: fnd_message.set_token ('DATE', il_rec.termination_date);
724: put_output(fnd_message.get);
725:
726: fnd_message.set_name ('PN','PN_MRIP_CM_DATE');
727: fnd_message.set_token ('DATE', il_rec.commencement_date);
728: put_output(fnd_message.get);
729:
730: fnd_message.set_name ('PN','PN_MRIP_TM_DATE');
731: fnd_message.set_token ('DATE', il_rec.termination_date);
732: put_output(fnd_message.get);
726: fnd_message.set_name ('PN','PN_MRIP_CM_DATE');
727: fnd_message.set_token ('DATE', il_rec.commencement_date);
728: put_output(fnd_message.get);
729:
730: fnd_message.set_name ('PN','PN_MRIP_TM_DATE');
731: fnd_message.set_token ('DATE', il_rec.termination_date);
732: put_output(fnd_message.get);
733:
734: fnd_message.set_name ('PN','PN_RICAL_ASS_DATE');
727: fnd_message.set_token ('DATE', il_rec.commencement_date);
728: put_output(fnd_message.get);
729:
730: fnd_message.set_name ('PN','PN_MRIP_TM_DATE');
731: fnd_message.set_token ('DATE', il_rec.termination_date);
732: put_output(fnd_message.get);
733:
734: fnd_message.set_name ('PN','PN_RICAL_ASS_DATE');
735: fnd_message.set_token ('DATE', TO_CHAR (il_rec.date_assessed, 'DD-MON'));
728: put_output(fnd_message.get);
729:
730: fnd_message.set_name ('PN','PN_MRIP_TM_DATE');
731: fnd_message.set_token ('DATE', il_rec.termination_date);
732: put_output(fnd_message.get);
733:
734: fnd_message.set_name ('PN','PN_RICAL_ASS_DATE');
735: fnd_message.set_token ('DATE', TO_CHAR (il_rec.date_assessed, 'DD-MON'));
736: put_output(fnd_message.get);
730: fnd_message.set_name ('PN','PN_MRIP_TM_DATE');
731: fnd_message.set_token ('DATE', il_rec.termination_date);
732: put_output(fnd_message.get);
733:
734: fnd_message.set_name ('PN','PN_RICAL_ASS_DATE');
735: fnd_message.set_token ('DATE', TO_CHAR (il_rec.date_assessed, 'DD-MON'));
736: put_output(fnd_message.get);
737:
738: fnd_message.set_name ('PN','PN_MRIP_ASM_FREQ');
731: fnd_message.set_token ('DATE', il_rec.termination_date);
732: put_output(fnd_message.get);
733:
734: fnd_message.set_name ('PN','PN_RICAL_ASS_DATE');
735: fnd_message.set_token ('DATE', TO_CHAR (il_rec.date_assessed, 'DD-MON'));
736: put_output(fnd_message.get);
737:
738: fnd_message.set_name ('PN','PN_MRIP_ASM_FREQ');
739: fnd_message.set_token ('FREQ', il_rec.assessment_interval);
732: put_output(fnd_message.get);
733:
734: fnd_message.set_name ('PN','PN_RICAL_ASS_DATE');
735: fnd_message.set_token ('DATE', TO_CHAR (il_rec.date_assessed, 'DD-MON'));
736: put_output(fnd_message.get);
737:
738: fnd_message.set_name ('PN','PN_MRIP_ASM_FREQ');
739: fnd_message.set_token ('FREQ', il_rec.assessment_interval);
740: put_output(fnd_message.get);
734: fnd_message.set_name ('PN','PN_RICAL_ASS_DATE');
735: fnd_message.set_token ('DATE', TO_CHAR (il_rec.date_assessed, 'DD-MON'));
736: put_output(fnd_message.get);
737:
738: fnd_message.set_name ('PN','PN_MRIP_ASM_FREQ');
739: fnd_message.set_token ('FREQ', il_rec.assessment_interval);
740: put_output(fnd_message.get);
741:
742: fnd_message.set_name ('PN','PN_MRIP_PRD');
735: fnd_message.set_token ('DATE', TO_CHAR (il_rec.date_assessed, 'DD-MON'));
736: put_output(fnd_message.get);
737:
738: fnd_message.set_name ('PN','PN_MRIP_ASM_FREQ');
739: fnd_message.set_token ('FREQ', il_rec.assessment_interval);
740: put_output(fnd_message.get);
741:
742: fnd_message.set_name ('PN','PN_MRIP_PRD');
743: l_message := fnd_message.get;
736: put_output(fnd_message.get);
737:
738: fnd_message.set_name ('PN','PN_MRIP_ASM_FREQ');
739: fnd_message.set_token ('FREQ', il_rec.assessment_interval);
740: put_output(fnd_message.get);
741:
742: fnd_message.set_name ('PN','PN_MRIP_PRD');
743: l_message := fnd_message.get;
744: fnd_message.set_name ('PN','PN_RICAL_BAS');
738: fnd_message.set_name ('PN','PN_MRIP_ASM_FREQ');
739: fnd_message.set_token ('FREQ', il_rec.assessment_interval);
740: put_output(fnd_message.get);
741:
742: fnd_message.set_name ('PN','PN_MRIP_PRD');
743: l_message := fnd_message.get;
744: fnd_message.set_name ('PN','PN_RICAL_BAS');
745: l_message := l_message||' '||fnd_message.get;
746: fnd_message.set_name ('PN','PN_RICAL_BAS');
739: fnd_message.set_token ('FREQ', il_rec.assessment_interval);
740: put_output(fnd_message.get);
741:
742: fnd_message.set_name ('PN','PN_MRIP_PRD');
743: l_message := fnd_message.get;
744: fnd_message.set_name ('PN','PN_RICAL_BAS');
745: l_message := l_message||' '||fnd_message.get;
746: fnd_message.set_name ('PN','PN_RICAL_BAS');
747: l_message := l_message||' '||fnd_message.get;
740: put_output(fnd_message.get);
741:
742: fnd_message.set_name ('PN','PN_MRIP_PRD');
743: l_message := fnd_message.get;
744: fnd_message.set_name ('PN','PN_RICAL_BAS');
745: l_message := l_message||' '||fnd_message.get;
746: fnd_message.set_name ('PN','PN_RICAL_BAS');
747: l_message := l_message||' '||fnd_message.get;
748: fnd_message.set_name ('PN','PN_RICAL_INDX');
741:
742: fnd_message.set_name ('PN','PN_MRIP_PRD');
743: l_message := fnd_message.get;
744: fnd_message.set_name ('PN','PN_RICAL_BAS');
745: l_message := l_message||' '||fnd_message.get;
746: fnd_message.set_name ('PN','PN_RICAL_BAS');
747: l_message := l_message||' '||fnd_message.get;
748: fnd_message.set_name ('PN','PN_RICAL_INDX');
749: l_message := l_message||' '||fnd_message.get;
742: fnd_message.set_name ('PN','PN_MRIP_PRD');
743: l_message := fnd_message.get;
744: fnd_message.set_name ('PN','PN_RICAL_BAS');
745: l_message := l_message||' '||fnd_message.get;
746: fnd_message.set_name ('PN','PN_RICAL_BAS');
747: l_message := l_message||' '||fnd_message.get;
748: fnd_message.set_name ('PN','PN_RICAL_INDX');
749: l_message := l_message||' '||fnd_message.get;
750: fnd_message.set_name ('PN','PN_RICAL_INDX');
743: l_message := fnd_message.get;
744: fnd_message.set_name ('PN','PN_RICAL_BAS');
745: l_message := l_message||' '||fnd_message.get;
746: fnd_message.set_name ('PN','PN_RICAL_BAS');
747: l_message := l_message||' '||fnd_message.get;
748: fnd_message.set_name ('PN','PN_RICAL_INDX');
749: l_message := l_message||' '||fnd_message.get;
750: fnd_message.set_name ('PN','PN_RICAL_INDX');
751: l_message := l_message||' '||fnd_message.get;
744: fnd_message.set_name ('PN','PN_RICAL_BAS');
745: l_message := l_message||' '||fnd_message.get;
746: fnd_message.set_name ('PN','PN_RICAL_BAS');
747: l_message := l_message||' '||fnd_message.get;
748: fnd_message.set_name ('PN','PN_RICAL_INDX');
749: l_message := l_message||' '||fnd_message.get;
750: fnd_message.set_name ('PN','PN_RICAL_INDX');
751: l_message := l_message||' '||fnd_message.get;
752: put_output(l_message);
745: l_message := l_message||' '||fnd_message.get;
746: fnd_message.set_name ('PN','PN_RICAL_BAS');
747: l_message := l_message||' '||fnd_message.get;
748: fnd_message.set_name ('PN','PN_RICAL_INDX');
749: l_message := l_message||' '||fnd_message.get;
750: fnd_message.set_name ('PN','PN_RICAL_INDX');
751: l_message := l_message||' '||fnd_message.get;
752: put_output(l_message);
753:
746: fnd_message.set_name ('PN','PN_RICAL_BAS');
747: l_message := l_message||' '||fnd_message.get;
748: fnd_message.set_name ('PN','PN_RICAL_INDX');
749: l_message := l_message||' '||fnd_message.get;
750: fnd_message.set_name ('PN','PN_RICAL_INDX');
751: l_message := l_message||' '||fnd_message.get;
752: put_output(l_message);
753:
754: fnd_message.set_name ('PN','PN_MRIP_NUM');
747: l_message := l_message||' '||fnd_message.get;
748: fnd_message.set_name ('PN','PN_RICAL_INDX');
749: l_message := l_message||' '||fnd_message.get;
750: fnd_message.set_name ('PN','PN_RICAL_INDX');
751: l_message := l_message||' '||fnd_message.get;
752: put_output(l_message);
753:
754: fnd_message.set_name ('PN','PN_MRIP_NUM');
755: l_message := fnd_message.get;
750: fnd_message.set_name ('PN','PN_RICAL_INDX');
751: l_message := l_message||' '||fnd_message.get;
752: put_output(l_message);
753:
754: fnd_message.set_name ('PN','PN_MRIP_NUM');
755: l_message := fnd_message.get;
756: fnd_message.set_name ('PN','PN_MRIP_ST_DATE');
757: l_message := l_message||' '||fnd_message.get;
758: fnd_message.set_name ('PN','PN_MRIP_END_DATE');
751: l_message := l_message||' '||fnd_message.get;
752: put_output(l_message);
753:
754: fnd_message.set_name ('PN','PN_MRIP_NUM');
755: l_message := fnd_message.get;
756: fnd_message.set_name ('PN','PN_MRIP_ST_DATE');
757: l_message := l_message||' '||fnd_message.get;
758: fnd_message.set_name ('PN','PN_MRIP_END_DATE');
759: l_message := l_message||' '||fnd_message.get;
752: put_output(l_message);
753:
754: fnd_message.set_name ('PN','PN_MRIP_NUM');
755: l_message := fnd_message.get;
756: fnd_message.set_name ('PN','PN_MRIP_ST_DATE');
757: l_message := l_message||' '||fnd_message.get;
758: fnd_message.set_name ('PN','PN_MRIP_END_DATE');
759: l_message := l_message||' '||fnd_message.get;
760: fnd_message.set_name ('PN','PN_MRIP_FND_DATE');
753:
754: fnd_message.set_name ('PN','PN_MRIP_NUM');
755: l_message := fnd_message.get;
756: fnd_message.set_name ('PN','PN_MRIP_ST_DATE');
757: l_message := l_message||' '||fnd_message.get;
758: fnd_message.set_name ('PN','PN_MRIP_END_DATE');
759: l_message := l_message||' '||fnd_message.get;
760: fnd_message.set_name ('PN','PN_MRIP_FND_DATE');
761: l_message := l_message||' '||fnd_message.get;
754: fnd_message.set_name ('PN','PN_MRIP_NUM');
755: l_message := fnd_message.get;
756: fnd_message.set_name ('PN','PN_MRIP_ST_DATE');
757: l_message := l_message||' '||fnd_message.get;
758: fnd_message.set_name ('PN','PN_MRIP_END_DATE');
759: l_message := l_message||' '||fnd_message.get;
760: fnd_message.set_name ('PN','PN_MRIP_FND_DATE');
761: l_message := l_message||' '||fnd_message.get;
762: fnd_message.set_name ('PN','PN_MRIP_ASM_DATE');
755: l_message := fnd_message.get;
756: fnd_message.set_name ('PN','PN_MRIP_ST_DATE');
757: l_message := l_message||' '||fnd_message.get;
758: fnd_message.set_name ('PN','PN_MRIP_END_DATE');
759: l_message := l_message||' '||fnd_message.get;
760: fnd_message.set_name ('PN','PN_MRIP_FND_DATE');
761: l_message := l_message||' '||fnd_message.get;
762: fnd_message.set_name ('PN','PN_MRIP_ASM_DATE');
763: l_message := l_message||' '||fnd_message.get;
756: fnd_message.set_name ('PN','PN_MRIP_ST_DATE');
757: l_message := l_message||' '||fnd_message.get;
758: fnd_message.set_name ('PN','PN_MRIP_END_DATE');
759: l_message := l_message||' '||fnd_message.get;
760: fnd_message.set_name ('PN','PN_MRIP_FND_DATE');
761: l_message := l_message||' '||fnd_message.get;
762: fnd_message.set_name ('PN','PN_MRIP_ASM_DATE');
763: l_message := l_message||' '||fnd_message.get;
764: put_output(l_message);
757: l_message := l_message||' '||fnd_message.get;
758: fnd_message.set_name ('PN','PN_MRIP_END_DATE');
759: l_message := l_message||' '||fnd_message.get;
760: fnd_message.set_name ('PN','PN_MRIP_FND_DATE');
761: l_message := l_message||' '||fnd_message.get;
762: fnd_message.set_name ('PN','PN_MRIP_ASM_DATE');
763: l_message := l_message||' '||fnd_message.get;
764: put_output(l_message);
765:
758: fnd_message.set_name ('PN','PN_MRIP_END_DATE');
759: l_message := l_message||' '||fnd_message.get;
760: fnd_message.set_name ('PN','PN_MRIP_FND_DATE');
761: l_message := l_message||' '||fnd_message.get;
762: fnd_message.set_name ('PN','PN_MRIP_ASM_DATE');
763: l_message := l_message||' '||fnd_message.get;
764: put_output(l_message);
765:
766: put_output (
759: l_message := l_message||' '||fnd_message.get;
760: fnd_message.set_name ('PN','PN_MRIP_FND_DATE');
761: l_message := l_message||' '||fnd_message.get;
762: fnd_message.set_name ('PN','PN_MRIP_ASM_DATE');
763: l_message := l_message||' '||fnd_message.get;
764: put_output(l_message);
765:
766: put_output (
767: '------- ----------- ----------- ----------- ---------------');
788: -- Print Message if no basis periods found
789: --
790: IF v_line_count = 0 THEN
791: put_output ('**************************************');
792: fnd_message.set_name ('PN','PN_RICAL_NO_PRDS');
793: put_output(fnd_message.get);
794: put_output ('**************************************');
795: END IF;
796:
789: --
790: IF v_line_count = 0 THEN
791: put_output ('**************************************');
792: fnd_message.set_name ('PN','PN_RICAL_NO_PRDS');
793: put_output(fnd_message.get);
794: put_output ('**************************************');
795: END IF;
796:
797: END LOOP;
898: BEGIN
899: FOR ilp IN index_lease_periods (ip_index_lease_num)
900: LOOP
901: put_output ('****************************************');
902: fnd_message.set_name ('PN','PN_RICAL_PROC');
903: put_output(fnd_message.get||' ...');
904: fnd_message.set_name ('PN','PN_RICAL_LSNO');
905: fnd_message.set_token ('NUM', ilp.index_lease_number);
906: put_output(fnd_message.get);
899: FOR ilp IN index_lease_periods (ip_index_lease_num)
900: LOOP
901: put_output ('****************************************');
902: fnd_message.set_name ('PN','PN_RICAL_PROC');
903: put_output(fnd_message.get||' ...');
904: fnd_message.set_name ('PN','PN_RICAL_LSNO');
905: fnd_message.set_token ('NUM', ilp.index_lease_number);
906: put_output(fnd_message.get);
907: put_output ('****************************************');
900: LOOP
901: put_output ('****************************************');
902: fnd_message.set_name ('PN','PN_RICAL_PROC');
903: put_output(fnd_message.get||' ...');
904: fnd_message.set_name ('PN','PN_RICAL_LSNO');
905: fnd_message.set_token ('NUM', ilp.index_lease_number);
906: put_output(fnd_message.get);
907: put_output ('****************************************');
908: v_msg := NULL;
901: put_output ('****************************************');
902: fnd_message.set_name ('PN','PN_RICAL_PROC');
903: put_output(fnd_message.get||' ...');
904: fnd_message.set_name ('PN','PN_RICAL_LSNO');
905: fnd_message.set_token ('NUM', ilp.index_lease_number);
906: put_output(fnd_message.get);
907: put_output ('****************************************');
908: v_msg := NULL;
909:
902: fnd_message.set_name ('PN','PN_RICAL_PROC');
903: put_output(fnd_message.get||' ...');
904: fnd_message.set_name ('PN','PN_RICAL_LSNO');
905: fnd_message.set_token ('NUM', ilp.index_lease_number);
906: put_output(fnd_message.get);
907: put_output ('****************************************');
908: v_msg := NULL;
909:
910: --
979: ELSE
980: v_msg := 'PN_INDX_PERIODS_EXISTS';
981: END IF; --!v_periods_found OR ip_regenerate_yn = 'Y'
982:
983: fnd_message.set_name ('PN','PN_RICAL_MSG');
984: put_output (fnd_message.get);
985:
986: fnd_message.set_name ('PN',v_msg);
987: put_log (fnd_message.get);
980: v_msg := 'PN_INDX_PERIODS_EXISTS';
981: END IF; --!v_periods_found OR ip_regenerate_yn = 'Y'
982:
983: fnd_message.set_name ('PN','PN_RICAL_MSG');
984: put_output (fnd_message.get);
985:
986: fnd_message.set_name ('PN',v_msg);
987: put_log (fnd_message.get);
988:
982:
983: fnd_message.set_name ('PN','PN_RICAL_MSG');
984: put_output (fnd_message.get);
985:
986: fnd_message.set_name ('PN',v_msg);
987: put_log (fnd_message.get);
988:
989: display_error_messages (ip_message_string => v_msg);
990: END LOOP;
983: fnd_message.set_name ('PN','PN_RICAL_MSG');
984: put_output (fnd_message.get);
985:
986: fnd_message.set_name ('PN',v_msg);
987: put_log (fnd_message.get);
988:
989: display_error_messages (ip_message_string => v_msg);
990: END LOOP;
991:
2139: IF (l_requestId = 0 ) THEN
2140: pnp_debug_pkg.log(' ');
2141: pnp_debug_pkg.log('Could not submit Concurrent Request PNCALNDX'
2142: ||' (PN - Calculate Index Rent)');
2143: fnd_message.set_name('PN', 'PN_SCHIT_CONC_FAIL');
2144: pnp_debug_pkg.put_log_msg(fnd_message.get);
2145:
2146: ELSE -- Got a request Id
2147: pnp_debug_pkg.log(' ');
2140: pnp_debug_pkg.log(' ');
2141: pnp_debug_pkg.log('Could not submit Concurrent Request PNCALNDX'
2142: ||' (PN - Calculate Index Rent)');
2143: fnd_message.set_name('PN', 'PN_SCHIT_CONC_FAIL');
2144: pnp_debug_pkg.put_log_msg(fnd_message.get);
2145:
2146: ELSE -- Got a request Id
2147: pnp_debug_pkg.log(' ');
2148: pnp_debug_pkg.log('Concurrent Request '||TO_CHAR(l_requestId)
2146: ELSE -- Got a request Id
2147: pnp_debug_pkg.log(' ');
2148: pnp_debug_pkg.log('Concurrent Request '||TO_CHAR(l_requestId)
2149: ||' has been submitted for: PN - Calculate Index Rent');
2150: fnd_message.set_name('PN', 'PN_SCHIT_CONC_SUCC');
2151: pnp_debug_pkg.put_log_msg(fnd_message.get);
2152: END IF;
2153: END IF;
2154:
2147: pnp_debug_pkg.log(' ');
2148: pnp_debug_pkg.log('Concurrent Request '||TO_CHAR(l_requestId)
2149: ||' has been submitted for: PN - Calculate Index Rent');
2150: fnd_message.set_name('PN', 'PN_SCHIT_CONC_SUCC');
2151: pnp_debug_pkg.put_log_msg(fnd_message.get);
2152: END IF;
2153: END IF;
2154:
2155: END IF;