81: ------------------------------------------------------------------------
82: -- PROCEDURE : display_error_messages
83: -- DESCRIPTION: This procedure will parse a string of error message codes
84: -- delimited of with a comma. It will lookup each code using
85: -- fnd_messages routine.
86: ------------------------------------------------------------------------
87:
88: PROCEDURE display_error_messages (
89: ip_message_string IN VARCHAR2) IS
105: ELSE
106: comma_loc := 0;
107: END IF;
108:
109: fnd_message.clear;
110:
111: --
112: -- loop will cycle thru each occurrence of delimted text
113: -- and display message with its code..
134:
135: --
136: -- Convert error message code to its 'user-friendly' message;
137: --
138: fnd_message.set_name ('PN', ind_message);
139: --
140: -- Display message to the output log
141: --
142: put_output ( '-->'
139: --
140: -- Display message to the output log
141: --
142: put_output ( '-->'
143: || fnd_message.get
144: || ' ('
145: || ind_message
146: || ')');
147: --
726: FOR il_rec IN index_leases (p_index_lease_id)
727: LOOP
728: -- Print the Header info of report
729: -- Will only be done once
730: fnd_message.set_name ('PN','PN_RICAL_LSNO');
731: fnd_message.set_token ('NUM', il_rec.index_lease_number);
732: put_output(fnd_message.get);
733:
734: fnd_message.set_name ('PN','PN_MRIP_CM_DATE');
727: LOOP
728: -- Print the Header info of report
729: -- Will only be done once
730: fnd_message.set_name ('PN','PN_RICAL_LSNO');
731: fnd_message.set_token ('NUM', il_rec.index_lease_number);
732: put_output(fnd_message.get);
733:
734: fnd_message.set_name ('PN','PN_MRIP_CM_DATE');
735: fnd_message.set_token ('DATE', il_rec.commencement_date);
728: -- Print the Header info of report
729: -- Will only be done once
730: fnd_message.set_name ('PN','PN_RICAL_LSNO');
731: fnd_message.set_token ('NUM', il_rec.index_lease_number);
732: put_output(fnd_message.get);
733:
734: fnd_message.set_name ('PN','PN_MRIP_CM_DATE');
735: fnd_message.set_token ('DATE', il_rec.commencement_date);
736: put_output(fnd_message.get);
730: fnd_message.set_name ('PN','PN_RICAL_LSNO');
731: fnd_message.set_token ('NUM', il_rec.index_lease_number);
732: put_output(fnd_message.get);
733:
734: fnd_message.set_name ('PN','PN_MRIP_CM_DATE');
735: fnd_message.set_token ('DATE', il_rec.commencement_date);
736: put_output(fnd_message.get);
737:
738: fnd_message.set_name ('PN','PN_MRIP_TM_DATE');
731: fnd_message.set_token ('NUM', il_rec.index_lease_number);
732: put_output(fnd_message.get);
733:
734: fnd_message.set_name ('PN','PN_MRIP_CM_DATE');
735: fnd_message.set_token ('DATE', il_rec.commencement_date);
736: put_output(fnd_message.get);
737:
738: fnd_message.set_name ('PN','PN_MRIP_TM_DATE');
739: fnd_message.set_token ('DATE', il_rec.termination_date);
732: put_output(fnd_message.get);
733:
734: fnd_message.set_name ('PN','PN_MRIP_CM_DATE');
735: fnd_message.set_token ('DATE', il_rec.commencement_date);
736: put_output(fnd_message.get);
737:
738: fnd_message.set_name ('PN','PN_MRIP_TM_DATE');
739: fnd_message.set_token ('DATE', il_rec.termination_date);
740: put_output(fnd_message.get);
734: fnd_message.set_name ('PN','PN_MRIP_CM_DATE');
735: fnd_message.set_token ('DATE', il_rec.commencement_date);
736: put_output(fnd_message.get);
737:
738: fnd_message.set_name ('PN','PN_MRIP_TM_DATE');
739: fnd_message.set_token ('DATE', il_rec.termination_date);
740: put_output(fnd_message.get);
741:
742: fnd_message.set_name ('PN','PN_RICAL_ASS_DATE');
735: fnd_message.set_token ('DATE', il_rec.commencement_date);
736: put_output(fnd_message.get);
737:
738: fnd_message.set_name ('PN','PN_MRIP_TM_DATE');
739: fnd_message.set_token ('DATE', il_rec.termination_date);
740: put_output(fnd_message.get);
741:
742: fnd_message.set_name ('PN','PN_RICAL_ASS_DATE');
743: 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_TM_DATE');
739: fnd_message.set_token ('DATE', il_rec.termination_date);
740: put_output(fnd_message.get);
741:
742: fnd_message.set_name ('PN','PN_RICAL_ASS_DATE');
743: fnd_message.set_token ('DATE', TO_CHAR (il_rec.date_assessed, 'DD-MON'));
744: put_output(fnd_message.get);
738: fnd_message.set_name ('PN','PN_MRIP_TM_DATE');
739: fnd_message.set_token ('DATE', il_rec.termination_date);
740: put_output(fnd_message.get);
741:
742: fnd_message.set_name ('PN','PN_RICAL_ASS_DATE');
743: fnd_message.set_token ('DATE', TO_CHAR (il_rec.date_assessed, 'DD-MON'));
744: put_output(fnd_message.get);
745:
746: fnd_message.set_name ('PN','PN_MRIP_ASM_FREQ');
739: fnd_message.set_token ('DATE', il_rec.termination_date);
740: put_output(fnd_message.get);
741:
742: fnd_message.set_name ('PN','PN_RICAL_ASS_DATE');
743: fnd_message.set_token ('DATE', TO_CHAR (il_rec.date_assessed, 'DD-MON'));
744: put_output(fnd_message.get);
745:
746: fnd_message.set_name ('PN','PN_MRIP_ASM_FREQ');
747: fnd_message.set_token ('FREQ', il_rec.assessment_interval);
740: put_output(fnd_message.get);
741:
742: fnd_message.set_name ('PN','PN_RICAL_ASS_DATE');
743: fnd_message.set_token ('DATE', TO_CHAR (il_rec.date_assessed, 'DD-MON'));
744: put_output(fnd_message.get);
745:
746: fnd_message.set_name ('PN','PN_MRIP_ASM_FREQ');
747: fnd_message.set_token ('FREQ', il_rec.assessment_interval);
748: put_output(fnd_message.get);
742: fnd_message.set_name ('PN','PN_RICAL_ASS_DATE');
743: fnd_message.set_token ('DATE', TO_CHAR (il_rec.date_assessed, 'DD-MON'));
744: put_output(fnd_message.get);
745:
746: fnd_message.set_name ('PN','PN_MRIP_ASM_FREQ');
747: fnd_message.set_token ('FREQ', il_rec.assessment_interval);
748: put_output(fnd_message.get);
749:
750: fnd_message.set_name ('PN','PN_MRIP_PRD');
743: fnd_message.set_token ('DATE', TO_CHAR (il_rec.date_assessed, 'DD-MON'));
744: put_output(fnd_message.get);
745:
746: fnd_message.set_name ('PN','PN_MRIP_ASM_FREQ');
747: fnd_message.set_token ('FREQ', il_rec.assessment_interval);
748: put_output(fnd_message.get);
749:
750: fnd_message.set_name ('PN','PN_MRIP_PRD');
751: l_message := fnd_message.get;
744: put_output(fnd_message.get);
745:
746: fnd_message.set_name ('PN','PN_MRIP_ASM_FREQ');
747: fnd_message.set_token ('FREQ', il_rec.assessment_interval);
748: put_output(fnd_message.get);
749:
750: fnd_message.set_name ('PN','PN_MRIP_PRD');
751: l_message := fnd_message.get;
752: fnd_message.set_name ('PN','PN_RICAL_BAS');
746: fnd_message.set_name ('PN','PN_MRIP_ASM_FREQ');
747: fnd_message.set_token ('FREQ', il_rec.assessment_interval);
748: put_output(fnd_message.get);
749:
750: fnd_message.set_name ('PN','PN_MRIP_PRD');
751: l_message := fnd_message.get;
752: fnd_message.set_name ('PN','PN_RICAL_BAS');
753: l_message := l_message||' '||fnd_message.get;
754: fnd_message.set_name ('PN','PN_RICAL_BAS');
747: fnd_message.set_token ('FREQ', il_rec.assessment_interval);
748: put_output(fnd_message.get);
749:
750: fnd_message.set_name ('PN','PN_MRIP_PRD');
751: l_message := fnd_message.get;
752: fnd_message.set_name ('PN','PN_RICAL_BAS');
753: l_message := l_message||' '||fnd_message.get;
754: fnd_message.set_name ('PN','PN_RICAL_BAS');
755: l_message := l_message||' '||fnd_message.get;
748: put_output(fnd_message.get);
749:
750: fnd_message.set_name ('PN','PN_MRIP_PRD');
751: l_message := fnd_message.get;
752: fnd_message.set_name ('PN','PN_RICAL_BAS');
753: l_message := l_message||' '||fnd_message.get;
754: fnd_message.set_name ('PN','PN_RICAL_BAS');
755: l_message := l_message||' '||fnd_message.get;
756: fnd_message.set_name ('PN','PN_RICAL_INDX');
749:
750: fnd_message.set_name ('PN','PN_MRIP_PRD');
751: l_message := fnd_message.get;
752: fnd_message.set_name ('PN','PN_RICAL_BAS');
753: l_message := l_message||' '||fnd_message.get;
754: fnd_message.set_name ('PN','PN_RICAL_BAS');
755: l_message := l_message||' '||fnd_message.get;
756: fnd_message.set_name ('PN','PN_RICAL_INDX');
757: l_message := l_message||' '||fnd_message.get;
750: fnd_message.set_name ('PN','PN_MRIP_PRD');
751: l_message := fnd_message.get;
752: fnd_message.set_name ('PN','PN_RICAL_BAS');
753: l_message := l_message||' '||fnd_message.get;
754: fnd_message.set_name ('PN','PN_RICAL_BAS');
755: l_message := l_message||' '||fnd_message.get;
756: fnd_message.set_name ('PN','PN_RICAL_INDX');
757: l_message := l_message||' '||fnd_message.get;
758: fnd_message.set_name ('PN','PN_RICAL_INDX');
751: l_message := fnd_message.get;
752: fnd_message.set_name ('PN','PN_RICAL_BAS');
753: l_message := l_message||' '||fnd_message.get;
754: fnd_message.set_name ('PN','PN_RICAL_BAS');
755: l_message := l_message||' '||fnd_message.get;
756: fnd_message.set_name ('PN','PN_RICAL_INDX');
757: l_message := l_message||' '||fnd_message.get;
758: fnd_message.set_name ('PN','PN_RICAL_INDX');
759: l_message := l_message||' '||fnd_message.get;
752: fnd_message.set_name ('PN','PN_RICAL_BAS');
753: l_message := l_message||' '||fnd_message.get;
754: fnd_message.set_name ('PN','PN_RICAL_BAS');
755: l_message := l_message||' '||fnd_message.get;
756: fnd_message.set_name ('PN','PN_RICAL_INDX');
757: l_message := l_message||' '||fnd_message.get;
758: fnd_message.set_name ('PN','PN_RICAL_INDX');
759: l_message := l_message||' '||fnd_message.get;
760: put_output(l_message);
753: l_message := l_message||' '||fnd_message.get;
754: fnd_message.set_name ('PN','PN_RICAL_BAS');
755: l_message := l_message||' '||fnd_message.get;
756: fnd_message.set_name ('PN','PN_RICAL_INDX');
757: l_message := l_message||' '||fnd_message.get;
758: fnd_message.set_name ('PN','PN_RICAL_INDX');
759: l_message := l_message||' '||fnd_message.get;
760: put_output(l_message);
761:
754: fnd_message.set_name ('PN','PN_RICAL_BAS');
755: l_message := l_message||' '||fnd_message.get;
756: fnd_message.set_name ('PN','PN_RICAL_INDX');
757: l_message := l_message||' '||fnd_message.get;
758: fnd_message.set_name ('PN','PN_RICAL_INDX');
759: l_message := l_message||' '||fnd_message.get;
760: put_output(l_message);
761:
762: fnd_message.set_name ('PN','PN_MRIP_NUM');
755: l_message := l_message||' '||fnd_message.get;
756: fnd_message.set_name ('PN','PN_RICAL_INDX');
757: l_message := l_message||' '||fnd_message.get;
758: fnd_message.set_name ('PN','PN_RICAL_INDX');
759: l_message := l_message||' '||fnd_message.get;
760: put_output(l_message);
761:
762: fnd_message.set_name ('PN','PN_MRIP_NUM');
763: l_message := fnd_message.get;
758: fnd_message.set_name ('PN','PN_RICAL_INDX');
759: l_message := l_message||' '||fnd_message.get;
760: put_output(l_message);
761:
762: fnd_message.set_name ('PN','PN_MRIP_NUM');
763: l_message := fnd_message.get;
764: fnd_message.set_name ('PN','PN_MRIP_ST_DATE');
765: l_message := l_message||' '||fnd_message.get;
766: fnd_message.set_name ('PN','PN_MRIP_END_DATE');
759: l_message := l_message||' '||fnd_message.get;
760: put_output(l_message);
761:
762: fnd_message.set_name ('PN','PN_MRIP_NUM');
763: l_message := fnd_message.get;
764: fnd_message.set_name ('PN','PN_MRIP_ST_DATE');
765: l_message := l_message||' '||fnd_message.get;
766: fnd_message.set_name ('PN','PN_MRIP_END_DATE');
767: l_message := l_message||' '||fnd_message.get;
760: put_output(l_message);
761:
762: fnd_message.set_name ('PN','PN_MRIP_NUM');
763: l_message := fnd_message.get;
764: fnd_message.set_name ('PN','PN_MRIP_ST_DATE');
765: l_message := l_message||' '||fnd_message.get;
766: fnd_message.set_name ('PN','PN_MRIP_END_DATE');
767: l_message := l_message||' '||fnd_message.get;
768: fnd_message.set_name ('PN','PN_MRIP_FND_DATE');
761:
762: fnd_message.set_name ('PN','PN_MRIP_NUM');
763: l_message := fnd_message.get;
764: fnd_message.set_name ('PN','PN_MRIP_ST_DATE');
765: l_message := l_message||' '||fnd_message.get;
766: fnd_message.set_name ('PN','PN_MRIP_END_DATE');
767: l_message := l_message||' '||fnd_message.get;
768: fnd_message.set_name ('PN','PN_MRIP_FND_DATE');
769: l_message := l_message||' '||fnd_message.get;
762: fnd_message.set_name ('PN','PN_MRIP_NUM');
763: l_message := fnd_message.get;
764: fnd_message.set_name ('PN','PN_MRIP_ST_DATE');
765: l_message := l_message||' '||fnd_message.get;
766: fnd_message.set_name ('PN','PN_MRIP_END_DATE');
767: l_message := l_message||' '||fnd_message.get;
768: fnd_message.set_name ('PN','PN_MRIP_FND_DATE');
769: l_message := l_message||' '||fnd_message.get;
770: fnd_message.set_name ('PN','PN_MRIP_ASM_DATE');
763: l_message := fnd_message.get;
764: fnd_message.set_name ('PN','PN_MRIP_ST_DATE');
765: l_message := l_message||' '||fnd_message.get;
766: fnd_message.set_name ('PN','PN_MRIP_END_DATE');
767: l_message := l_message||' '||fnd_message.get;
768: fnd_message.set_name ('PN','PN_MRIP_FND_DATE');
769: l_message := l_message||' '||fnd_message.get;
770: fnd_message.set_name ('PN','PN_MRIP_ASM_DATE');
771: l_message := l_message||' '||fnd_message.get;
764: fnd_message.set_name ('PN','PN_MRIP_ST_DATE');
765: l_message := l_message||' '||fnd_message.get;
766: fnd_message.set_name ('PN','PN_MRIP_END_DATE');
767: l_message := l_message||' '||fnd_message.get;
768: fnd_message.set_name ('PN','PN_MRIP_FND_DATE');
769: l_message := l_message||' '||fnd_message.get;
770: fnd_message.set_name ('PN','PN_MRIP_ASM_DATE');
771: l_message := l_message||' '||fnd_message.get;
772: put_output(l_message);
765: l_message := l_message||' '||fnd_message.get;
766: fnd_message.set_name ('PN','PN_MRIP_END_DATE');
767: l_message := l_message||' '||fnd_message.get;
768: fnd_message.set_name ('PN','PN_MRIP_FND_DATE');
769: l_message := l_message||' '||fnd_message.get;
770: fnd_message.set_name ('PN','PN_MRIP_ASM_DATE');
771: l_message := l_message||' '||fnd_message.get;
772: put_output(l_message);
773:
766: fnd_message.set_name ('PN','PN_MRIP_END_DATE');
767: l_message := l_message||' '||fnd_message.get;
768: fnd_message.set_name ('PN','PN_MRIP_FND_DATE');
769: l_message := l_message||' '||fnd_message.get;
770: fnd_message.set_name ('PN','PN_MRIP_ASM_DATE');
771: l_message := l_message||' '||fnd_message.get;
772: put_output(l_message);
773:
774: put_output (
767: l_message := l_message||' '||fnd_message.get;
768: fnd_message.set_name ('PN','PN_MRIP_FND_DATE');
769: l_message := l_message||' '||fnd_message.get;
770: fnd_message.set_name ('PN','PN_MRIP_ASM_DATE');
771: l_message := l_message||' '||fnd_message.get;
772: put_output(l_message);
773:
774: put_output (
775: '------- ----------- ----------- ----------- ---------------');
796: -- Print Message if no basis periods found
797: --
798: IF v_line_count = 0 THEN
799: put_output ('**************************************');
800: fnd_message.set_name ('PN','PN_RICAL_NO_PRDS');
801: put_output(fnd_message.get);
802: put_output ('**************************************');
803: END IF;
804:
797: --
798: IF v_line_count = 0 THEN
799: put_output ('**************************************');
800: fnd_message.set_name ('PN','PN_RICAL_NO_PRDS');
801: put_output(fnd_message.get);
802: put_output ('**************************************');
803: END IF;
804:
805: END LOOP;
906: BEGIN
907: FOR ilp IN index_lease_periods (ip_index_lease_num)
908: LOOP
909: put_output ('****************************************');
910: fnd_message.set_name ('PN','PN_RICAL_PROC');
911: put_output(fnd_message.get||' ...');
912: fnd_message.set_name ('PN','PN_RICAL_LSNO');
913: fnd_message.set_token ('NUM', ilp.index_lease_number);
914: put_output(fnd_message.get);
907: FOR ilp IN index_lease_periods (ip_index_lease_num)
908: LOOP
909: put_output ('****************************************');
910: fnd_message.set_name ('PN','PN_RICAL_PROC');
911: put_output(fnd_message.get||' ...');
912: fnd_message.set_name ('PN','PN_RICAL_LSNO');
913: fnd_message.set_token ('NUM', ilp.index_lease_number);
914: put_output(fnd_message.get);
915: put_output ('****************************************');
908: LOOP
909: put_output ('****************************************');
910: fnd_message.set_name ('PN','PN_RICAL_PROC');
911: put_output(fnd_message.get||' ...');
912: fnd_message.set_name ('PN','PN_RICAL_LSNO');
913: fnd_message.set_token ('NUM', ilp.index_lease_number);
914: put_output(fnd_message.get);
915: put_output ('****************************************');
916: v_msg := NULL;
909: put_output ('****************************************');
910: fnd_message.set_name ('PN','PN_RICAL_PROC');
911: put_output(fnd_message.get||' ...');
912: fnd_message.set_name ('PN','PN_RICAL_LSNO');
913: fnd_message.set_token ('NUM', ilp.index_lease_number);
914: put_output(fnd_message.get);
915: put_output ('****************************************');
916: v_msg := NULL;
917:
910: fnd_message.set_name ('PN','PN_RICAL_PROC');
911: put_output(fnd_message.get||' ...');
912: fnd_message.set_name ('PN','PN_RICAL_LSNO');
913: fnd_message.set_token ('NUM', ilp.index_lease_number);
914: put_output(fnd_message.get);
915: put_output ('****************************************');
916: v_msg := NULL;
917:
918: --
987: ELSE
988: v_msg := 'PN_INDX_PERIODS_EXISTS';
989: END IF; --!v_periods_found OR ip_regenerate_yn = 'Y'
990:
991: fnd_message.set_name ('PN','PN_RICAL_MSG');
992: put_output (fnd_message.get);
993:
994: fnd_message.set_name ('PN',v_msg);
995: put_log (fnd_message.get);
988: v_msg := 'PN_INDX_PERIODS_EXISTS';
989: END IF; --!v_periods_found OR ip_regenerate_yn = 'Y'
990:
991: fnd_message.set_name ('PN','PN_RICAL_MSG');
992: put_output (fnd_message.get);
993:
994: fnd_message.set_name ('PN',v_msg);
995: put_log (fnd_message.get);
996:
990:
991: fnd_message.set_name ('PN','PN_RICAL_MSG');
992: put_output (fnd_message.get);
993:
994: fnd_message.set_name ('PN',v_msg);
995: put_log (fnd_message.get);
996:
997: display_error_messages (ip_message_string => v_msg);
998: END LOOP;
991: fnd_message.set_name ('PN','PN_RICAL_MSG');
992: put_output (fnd_message.get);
993:
994: fnd_message.set_name ('PN',v_msg);
995: put_log (fnd_message.get);
996:
997: display_error_messages (ip_message_string => v_msg);
998: END LOOP;
999:
2266: IF (l_requestId = 0 ) THEN
2267: pnp_debug_pkg.log(' ');
2268: pnp_debug_pkg.log('Could not submit Concurrent Request PNCALNDX'
2269: ||' (PN - Calculate Index Rent)');
2270: fnd_message.set_name('PN', 'PN_SCHIT_CONC_FAIL');
2271: pnp_debug_pkg.put_log_msg(fnd_message.get);
2272:
2273: ELSE -- Got a request Id
2274: pnp_debug_pkg.log(' ');
2267: pnp_debug_pkg.log(' ');
2268: pnp_debug_pkg.log('Could not submit Concurrent Request PNCALNDX'
2269: ||' (PN - Calculate Index Rent)');
2270: fnd_message.set_name('PN', 'PN_SCHIT_CONC_FAIL');
2271: pnp_debug_pkg.put_log_msg(fnd_message.get);
2272:
2273: ELSE -- Got a request Id
2274: pnp_debug_pkg.log(' ');
2275: pnp_debug_pkg.log('Concurrent Request '||TO_CHAR(l_requestId)
2273: ELSE -- Got a request Id
2274: pnp_debug_pkg.log(' ');
2275: pnp_debug_pkg.log('Concurrent Request '||TO_CHAR(l_requestId)
2276: ||' has been submitted for: PN - Calculate Index Rent');
2277: fnd_message.set_name('PN', 'PN_SCHIT_CONC_SUCC');
2278: pnp_debug_pkg.put_log_msg(fnd_message.get);
2279: END IF;
2280: END IF;
2281: END IF;
2274: pnp_debug_pkg.log(' ');
2275: pnp_debug_pkg.log('Concurrent Request '||TO_CHAR(l_requestId)
2276: ||' has been submitted for: PN - Calculate Index Rent');
2277: fnd_message.set_name('PN', 'PN_SCHIT_CONC_SUCC');
2278: pnp_debug_pkg.put_log_msg(fnd_message.get);
2279: END IF;
2280: END IF;
2281: END IF;
2282: