22: */
23: g_batch_line_const NUMBER := 100000;
24:
25: CURSOR c_igc_cc_int(p_doc_id in NUMBER, p_doc_type IN VARCHAR2) IS
26: SELECT * from IGC_CC_INTERFACE
27: WHERE cc_header_id = p_doc_id
28: AND document_type = p_doc_type;
29: TYPE t_tbl_igc_cc_int IS TABLE OF c_igc_cc_int%ROWTYPE index by PLS_INTEGER;
30: g_tbl_igc_cc_int t_tbl_igc_cc_int;
125: IF (g_debug_mode = 'Y') THEN
126: Put_Debug_Msg(l_full_path, 'Start of purge_igc_cc_int');
127: END IF;
128:
129: DELETE FROM IGC_CC_INTERFACE
130: WHERE cc_header_id = p_document_id
131: AND document_type = p_document_type;
132:
133: COMMIT;
159: END IF;
160: FOR i in p_t_tbl_gl_pck.FIRST..p_t_tbl_gl_pck.LAST
161: LOOP
162: l_batch_line_num := l_batch_line_num+1;
163: INSERT INTO igc_cc_interface
164: (
165: CC_HEADER_ID
166: ,CC_ACCT_LINE_ID
167: ,CODE_COMBINATION_ID
244: p_tbl_igc_cc_int IN t_tbl_igc_cc_int
245: ) IS
246: PRAGMA AUTONOMOUS_TRANSACTION;
247: l_full_path VARCHAR2(255);
248: l_encumbrance_type_key igc_cc_interface.encumbrance_type_key%TYPE;
249: BEGIN
250: l_full_path := g_path || 'POP_IGC_CC_INT';
251: IF (g_debug_mode = 'Y') THEN
252: Put_Debug_Msg(l_full_path, 'Start of populate_igc_cc_int');
258: INTO l_encumbrance_type_key
259: FROM gl_encumbrance_types e
260: WHERE e.encumbrance_type_id = p_tbl_igc_cc_int(i).ENCUMBRANCE_TYPE_ID;
261: END IF;
262: Insert into igc_cc_interface
263: (
264: CC_HEADER_ID
265: ,CC_ACCT_LINE_ID
266: ,CODE_COMBINATION_ID
399: l_debug_count NUMBER;
400:
401: l_year_end BOOLEAN;
402:
403: l_encumbrance_type_key igc_cc_interface.encumbrance_type_key%TYPE;
404:
405: BEGIN
406: SAVEPOINT IGC_GLZCBC;
407: l_full_path := g_path || 'GLZCBC';
666: l_main_type := Nvl(l_main_type, l_document_type);
667: l_main_doc_id := Nvl(l_main_doc_id, l_document_id);
668:
669: Put_Debug_Msg(l_full_path, 'value of l_main_type '|| l_main_type || ' l_main_doc_id ' ||l_main_doc_id);
670: /* Delete old records from IGC_CC_INTERFACE table */
671: purge_igc_cc_int(l_main_type, l_main_doc_id);
672:
673: open c_gl_bc_packets(l_event_details(i_evt).event_id, l_ledger_id, l_document_type);
674: FETCH c_gl_bc_packets
694: INTO l_encumbrance_type_key
695: FROM gl_encumbrance_types e
696: WHERE e.encumbrance_type_id = l_t_gl_bc_packets_sbc(l_ind).ENCUMBRANCE_TYPE_ID;
697: END IF;
698: Insert into igc_cc_interface
699: (
700: CC_HEADER_ID
701: ,CC_ACCT_LINE_ID
702: ,CODE_COMBINATION_ID
791: IF (g_debug_mode = 'Y') THEN
792: Put_Debug_Msg(l_full_path, 'Populating PL-SQL table');
793: END IF;
794:
795: /* Populate PL-SQL table with igc_cc_interface data */
796: open c_igc_cc_int(l_main_doc_id, l_main_type);
797: FETCH c_igc_cc_int
798: BULK COLLECT INTO l_tbl_igc_cc_int;
799: CLOSE c_igc_cc_int;
796: open c_igc_cc_int(l_main_doc_id, l_main_type);
797: FETCH c_igc_cc_int
798: BULK COLLECT INTO l_tbl_igc_cc_int;
799: CLOSE c_igc_cc_int;
800: /* Delete records from IGC_CC_INTERFACE table */
801: DELETE FROM igc_cc_interface
802: WHERE cc_header_id = l_main_doc_id
803: AND document_type = l_main_type;
804:
797: FETCH c_igc_cc_int
798: BULK COLLECT INTO l_tbl_igc_cc_int;
799: CLOSE c_igc_cc_int;
800: /* Delete records from IGC_CC_INTERFACE table */
801: DELETE FROM igc_cc_interface
802: WHERE cc_header_id = l_main_doc_id
803: AND document_type = l_main_type;
804:
805: /* Now, populate back IGC_CC_INTERFACE table from PL-SQL table.
801: DELETE FROM igc_cc_interface
802: WHERE cc_header_id = l_main_doc_id
803: AND document_type = l_main_type;
804:
805: /* Now, populate back IGC_CC_INTERFACE table from PL-SQL table.
806: This procedure will be called in autonomous transaction mode
807: */
808: populate_igc_cc_int(l_tbl_igc_cc_int);
809: