94: P_STATUS_FLAG IN OUT NOCOPY number, P_STATUS_MESSAGE IN OUT NOCOPY VARCHAR2)
95: AS
96:
97: R_igi_itr_charge_headers IGI_itr_charge_headers%ROWTYPE;
98: R_igi_itr_charge_lines IGI_itr_charge_lines%ROWTYPE;
99:
100: m_user_je_category_name varchar2(25);
101: m_user_je_source_name varchar2(25);
102: interface_sequence_num number;
108: flag number := 0;
109:
110: CURSOR c1 is
111: SELECT *
112: FROM IGI_itr_charge_lines
113: WHERE it_header_id = p_it_header_id
114: AND status_flag is null
115: AND posting_flag is null;
116:
180: ,interface_group_id
181: );
182: OPEN c1;
183: LOOP
184: FETCH c1 INTO R_igi_itr_charge_lines;
185: EXIT WHEN c1%NOTFOUND;
186:
187: INSERT INTO gl_interface
188: (status
206: ,reference22
207: ,group_id
208: )
209: VALUES ('NEW'
210: ,R_igi_itr_charge_lines.entered_dr
211: ,R_igi_itr_charge_lines.entered_cr
212: ,R_igi_itr_charge_lines.set_of_books_id
213: ,m_user_je_source_name
214: ,m_user_je_category_name
207: ,group_id
208: )
209: VALUES ('NEW'
210: ,R_igi_itr_charge_lines.entered_dr
211: ,R_igi_itr_charge_lines.entered_cr
212: ,R_igi_itr_charge_lines.set_of_books_id
213: ,m_user_je_source_name
214: ,m_user_je_category_name
215: ,R_igi_itr_charge_headers.gl_date
208: )
209: VALUES ('NEW'
210: ,R_igi_itr_charge_lines.entered_dr
211: ,R_igi_itr_charge_lines.entered_cr
212: ,R_igi_itr_charge_lines.set_of_books_id
213: ,m_user_je_source_name
214: ,m_user_je_category_name
215: ,R_igi_itr_charge_headers.gl_date
216: ,R_igi_itr_charge_headers.currency_code
213: ,m_user_je_source_name
214: ,m_user_je_category_name
215: ,R_igi_itr_charge_headers.gl_date
216: ,R_igi_itr_charge_headers.currency_code
217: ,R_igi_itr_charge_lines.creation_date
218: ,R_igi_itr_charge_lines.created_by
219: ,'E'
220: ,R_igi_itr_charge_headers.encumbrance_type_id
221: ,R_igi_itr_charge_lines.code_combination_id
214: ,m_user_je_category_name
215: ,R_igi_itr_charge_headers.gl_date
216: ,R_igi_itr_charge_headers.currency_code
217: ,R_igi_itr_charge_lines.creation_date
218: ,R_igi_itr_charge_lines.created_by
219: ,'E'
220: ,R_igi_itr_charge_headers.encumbrance_type_id
221: ,R_igi_itr_charge_lines.code_combination_id
222: ,R_igi_itr_charge_headers.name
217: ,R_igi_itr_charge_lines.creation_date
218: ,R_igi_itr_charge_lines.created_by
219: ,'E'
220: ,R_igi_itr_charge_headers.encumbrance_type_id
221: ,R_igi_itr_charge_lines.code_combination_id
222: ,R_igi_itr_charge_headers.name
223: ,R_igi_itr_charge_headers.name
224: ,R_igi_itr_charge_headers.description
225: ,R_igi_itr_charge_lines.description
221: ,R_igi_itr_charge_lines.code_combination_id
222: ,R_igi_itr_charge_headers.name
223: ,R_igi_itr_charge_headers.name
224: ,R_igi_itr_charge_headers.description
225: ,R_igi_itr_charge_lines.description
226: ,R_igi_itr_charge_headers.it_header_id
227: ,R_igi_itr_charge_lines.it_line_num
228: ,interface_group_id
229: );
223: ,R_igi_itr_charge_headers.name
224: ,R_igi_itr_charge_headers.description
225: ,R_igi_itr_charge_lines.description
226: ,R_igi_itr_charge_headers.it_header_id
227: ,R_igi_itr_charge_lines.it_line_num
228: ,interface_group_id
229: );
230: END LOOP;
231: CLOSE c1;
290: m_user_je_category_name varchar2(25);
291: m_user_je_source_name varchar2(25);
292:
293: R_header igi_itr_charge_headers%rowtype;
294: R_line igi_itr_charge_lines%rowtype;
295:
296: PROCEDURE ACTUAL is
297: begin
298: insert into gl_interface
387: from IGI_itr_charge_headers
388: where it_header_id = p_it_header_id;
389:
390: select * into R_line
391: from IGI_itr_charge_lines
392: where it_header_id = p_it_header_id
393: and it_line_num = p_it_line_num;
394:
395: select user_je_source_name into m_user_je_source_name
431: m_user_je_category_name varchar2(25);
432: m_user_je_source_name varchar2(25);
433:
434: R_header IGI_itr_charge_headers%rowtype;
435: R_line IGI_itr_charge_lines%rowtype;
436:
437: begin
438: select * into R_header
439: from IGI_itr_charge_headers
439: from IGI_itr_charge_headers
440: where it_header_id = p_it_header_id;
441:
442: select * into R_line
443: from IGI_itr_charge_lines
444: where it_header_id = p_it_header_id
445: and it_line_num = p_it_line_num;
446:
447: select user_je_source_name into m_user_je_source_name
579: begin
580: if (current_line.reference_1 is not null) and
581: (current_line.reference_2 is not null) then
582: select status_flag, posting_flag into l_status_flag, l_posting_flag
583: from IGI_itr_charge_lines
584: where it_header_id = current_line.reference_1 and
585: it_line_num = current_line.reference_2;
586: else
587: select 1 into a from IGI_itr_charge_headers
602: UPDATE IGI_itr_charge_headers
603: SET submit_flag = 'F'
604: WHERE it_header_id = current_line.reference_1;
605: else
606: UPDATE IGI_itr_charge_lines
607: SET posting_flag = 'F'
608: WHERE it_header_id = current_line.reference_1
609: AND it_line_num = current_line.reference_2;
610: end if;
627: UPDATE IGI_itr_charge_headers
628: SET submit_flag = 'D'
629: WHERE it_header_id = current_line.reference_1;
630: else
631: UPDATE IGI_itr_charge_lines
632: SET posting_flag = 'D'
633: WHERE it_header_id = current_line.reference_1
634: AND it_line_num = current_line.reference_2;
635: end if;
651: UPDATE IGI_itr_charge_headers
652: SET submit_flag = 'O'
653: WHERE it_header_id = current_line.reference_1;
654: else
655: UPDATE IGI_itr_charge_lines
656: SET posting_flag = 'O'
657: WHERE it_header_id = current_line.reference_1
658: AND it_line_num = current_line.reference_2;
659: end if;
673: UPDATE IGI_itr_charge_headers
674: SET submit_flag = 'D'
675: WHERE it_header_id = current_line.reference_1;
676: else
677: UPDATE IGI_itr_charge_lines
678: SET posting_flag = 'D'
679: WHERE it_header_id = current_line.reference_1
680: AND it_line_num = current_line.reference_2;
681: end if;
695: UPDATE IGI_itr_charge_headers
696: SET submit_flag = 'O'
697: WHERE it_header_id = current_line.reference_1;
698: else
699: UPDATE IGI_itr_charge_lines
700: SET posting_flag = 'O'
701: WHERE it_header_id = current_line.reference_1
702: AND it_line_num = current_line.reference_2;
703: end if;
714: WHERE it_header_id = current_line.reference_1;
715: else
716: if (l_posting_flag = 'S' OR l_posting_flag = 'P')
717: then
718: UPDATE IGI_itr_charge_lines
719: SET posting_flag = 'P'
720: WHERE it_header_id = current_line.reference_1
721: AND it_line_num = current_line.reference_2;
722:
723: UPDATE IGI_itr_charge_headers
724: set submit_flag = 'C' where
725: it_header_id = current_line.reference_1
726: and ('A','P') =all (select status_flag,posting_flag
727: from IGI_itr_charge_lines
728: where it_header_id = current_line.reference_1)
729: AND b_actual_flag = 'A';
730: end if;
731: end if;