55: L_prog_id NUMBER;
56: BEGIN
57:
58: if ( PJM_UNIT_EFF.Enabled = 'N' ) then
59: fnd_message.set_name('PJM','UEFF-Function Not Available');
60: ERRBUF := fnd_message.get;
61: PJM_CONC.new_line(1);
62: PJM_CONC.put_line(ERRBUF);
63: PJM_CONC.new_line(1);
56: BEGIN
57:
58: if ( PJM_UNIT_EFF.Enabled = 'N' ) then
59: fnd_message.set_name('PJM','UEFF-Function Not Available');
60: ERRBUF := fnd_message.get;
61: PJM_CONC.new_line(1);
62: PJM_CONC.put_line(ERRBUF);
63: PJM_CONC.new_line(1);
64: RETCODE := PJM_CONC.G_conc_failure;
79: --
80: L_end_num := X_start_Num + X_Counts - 1;
81:
82: if ( length(to_char(L_end_num)) > X_numeric_width ) then
83: fnd_message.set_name('PJM','UEFF-Exc Unit Num Length');
84: fnd_message.set_token('LEN1', to_char(L_end_num));
85: fnd_message.set_token('LEN2', X_numeric_width);
86: PJM_CONC.new_line(1);
87: PJM_CONC.put_line(fnd_message.get);
80: L_end_num := X_start_Num + X_Counts - 1;
81:
82: if ( length(to_char(L_end_num)) > X_numeric_width ) then
83: fnd_message.set_name('PJM','UEFF-Exc Unit Num Length');
84: fnd_message.set_token('LEN1', to_char(L_end_num));
85: fnd_message.set_token('LEN2', X_numeric_width);
86: PJM_CONC.new_line(1);
87: PJM_CONC.put_line(fnd_message.get);
88: PJM_CONC.new_line(1);
81:
82: if ( length(to_char(L_end_num)) > X_numeric_width ) then
83: fnd_message.set_name('PJM','UEFF-Exc Unit Num Length');
84: fnd_message.set_token('LEN1', to_char(L_end_num));
85: fnd_message.set_token('LEN2', X_numeric_width);
86: PJM_CONC.new_line(1);
87: PJM_CONC.put_line(fnd_message.get);
88: PJM_CONC.new_line(1);
89: L_pad_width := length(to_char(L_end_num));
83: fnd_message.set_name('PJM','UEFF-Exc Unit Num Length');
84: fnd_message.set_token('LEN1', to_char(L_end_num));
85: fnd_message.set_token('LEN2', X_numeric_width);
86: PJM_CONC.new_line(1);
87: PJM_CONC.put_line(fnd_message.get);
88: PJM_CONC.new_line(1);
89: L_pad_width := length(to_char(L_end_num));
90: else
91: L_pad_width := X_numeric_width;
91: L_pad_width := X_numeric_width;
92: end if;
93:
94: if nvl(length(X_prefix),0) + L_pad_width > 30 then
95: fnd_message.set_name('PJM','UEFF-Max Unit Num Length');
96: errbuf := fnd_message.get;
97: PJM_CONC.new_line(1);
98: PJM_CONC.put_line(errbuf);
99: PJM_CONC.new_line(1);
92: end if;
93:
94: if nvl(length(X_prefix),0) + L_pad_width > 30 then
95: fnd_message.set_name('PJM','UEFF-Max Unit Num Length');
96: errbuf := fnd_message.get;
97: PJM_CONC.new_line(1);
98: PJM_CONC.put_line(errbuf);
99: PJM_CONC.new_line(1);
100: retcode := PJM_CONC.G_conc_failure;
107: L_prog_appl_id := fnd_global.prog_appl_id;
108: L_prog_id := fnd_global.conc_program_id;
109:
110: PJM_CONC.new_line(1);
111: PJM_CONC.put_line(fnd_message.get_string('PJM','CONC-UEFGN BEGIN'));
112: PJM_CONC.new_line(1);
113:
114: n := 0;
115:
151: FROM dual;
152:
153: n := n + 1;
154:
155: fnd_message.set_name('PJM','CONC-UEFGN UNITNUM CREATED');
156: fnd_message.set_token('UNIT', L_current_unit_number);
157: PJM_CONC.put_line(fnd_message.get);
158:
159: EXCEPTION
152:
153: n := n + 1;
154:
155: fnd_message.set_name('PJM','CONC-UEFGN UNITNUM CREATED');
156: fnd_message.set_token('UNIT', L_current_unit_number);
157: PJM_CONC.put_line(fnd_message.get);
158:
159: EXCEPTION
160: WHEN dup_val_on_index THEN
153: n := n + 1;
154:
155: fnd_message.set_name('PJM','CONC-UEFGN UNITNUM CREATED');
156: fnd_message.set_token('UNIT', L_current_unit_number);
157: PJM_CONC.put_line(fnd_message.get);
158:
159: EXCEPTION
160: WHEN dup_val_on_index THEN
161: fnd_message.set_name('PJM','CONC-UEFGN UNITNUM EXISTS');
157: PJM_CONC.put_line(fnd_message.get);
158:
159: EXCEPTION
160: WHEN dup_val_on_index THEN
161: fnd_message.set_name('PJM','CONC-UEFGN UNITNUM EXISTS');
162: fnd_message.set_token('UNIT', L_current_unit_number);
163: PJM_CONC.put_line(fnd_message.get);
164: WHEN others THEN
165: errbuf := sqlerrm;
158:
159: EXCEPTION
160: WHEN dup_val_on_index THEN
161: fnd_message.set_name('PJM','CONC-UEFGN UNITNUM EXISTS');
162: fnd_message.set_token('UNIT', L_current_unit_number);
163: PJM_CONC.put_line(fnd_message.get);
164: WHEN others THEN
165: errbuf := sqlerrm;
166: retcode := PJM_CONC.G_conc_failure;
159: EXCEPTION
160: WHEN dup_val_on_index THEN
161: fnd_message.set_name('PJM','CONC-UEFGN UNITNUM EXISTS');
162: fnd_message.set_token('UNIT', L_current_unit_number);
163: PJM_CONC.put_line(fnd_message.get);
164: WHEN others THEN
165: errbuf := sqlerrm;
166: retcode := PJM_CONC.G_conc_failure;
167: return;
169:
170: END LOOP;
171:
172: PJM_CONC.new_line(1);
173: fnd_message.set_name('PJM','CONC-UEFGN DONE');
174: fnd_message.set_token('NUM', n);
175: PJM_CONC.put_line(fnd_message.get);
176: PJM_CONC.new_line(1);
177:
170: END LOOP;
171:
172: PJM_CONC.new_line(1);
173: fnd_message.set_name('PJM','CONC-UEFGN DONE');
174: fnd_message.set_token('NUM', n);
175: PJM_CONC.put_line(fnd_message.get);
176: PJM_CONC.new_line(1);
177:
178: retcode := PJM_CONC.G_conc_success;
171:
172: PJM_CONC.new_line(1);
173: fnd_message.set_name('PJM','CONC-UEFGN DONE');
174: fnd_message.set_token('NUM', n);
175: PJM_CONC.put_line(fnd_message.get);
176: PJM_CONC.new_line(1);
177:
178: retcode := PJM_CONC.G_conc_success;
179: