838: x_to_account_id NUMBER(15);
839: l_to_segment_id NUMBER;
840: l_from_segment_id NUMBER;
841: l_n_segs NUMBER;
842: l_seg_array fnd_flex_ext.SegmentArray;
843: l_gl_fiscal_year NUMBER(15);
844: l_gl_period NUMBER(15);
845: l_return_status NUMBER(5);
846: /* B6133153 GL allocation of expenses are not showing after running the GL allocation process */
875: fetch cur_bal_type INTO x_in_actual_flag;
876: close cur_bal_type;
877:
878: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
879: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,g_calling_module,'Calling FND_FLEX_EXT.GET_SEGMENTS() API');
880: END IF;
881:
882: x_return_status := fnd_flex_ext.get_segments (
883: application_short_name => 'SQLGL',
878: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
879: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,g_calling_module,'Calling FND_FLEX_EXT.GET_SEGMENTS() API');
880: END IF;
881:
882: x_return_status := fnd_flex_ext.get_segments (
883: application_short_name => 'SQLGL',
884: key_flex_code => 'GL#',
885: structure_number => g_structure_number,
886: combination_id => v_from_segment,
903: alloc_log_msg(C_LOG_FILE,FND_MESSAGE.GET);
904: RETURN;
905: END IF;
906:
907: x_return_status := fnd_flex_ext.get_segments(application_short_name => 'SQLGL',
908: key_flex_code => 'GL#',
909: structure_number => g_structure_number,
910: combination_id => v_to_segment,
911: n_segments => l_n_segs,
925: RETURN;
926: END IF;
927:
928: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
929: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,g_calling_module,'Finished Calling FND_FLEX_EXT.GET_SEGMENTS() API');
930: END IF;
931:
932: x_in_ytd_ptd := v_ytd_ptd;
933:
996:
997: IF (x_error_status <> 100 AND x_error_status >= 0) THEN
998: /* INVCONV sschinch */
999: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1000: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,g_calling_module,'Calling FND_FLEX_EXT.GET_COMBINATION_ID() API');
1001: END IF;
1002: x_to_account_id := fnd_flex_ext.get_ccid(application_short_name => 'SQLGL',
1003: key_flex_code => 'GL#',
1004: structure_number => g_structure_number,
998: /* INVCONV sschinch */
999: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1000: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,g_calling_module,'Calling FND_FLEX_EXT.GET_COMBINATION_ID() API');
1001: END IF;
1002: x_to_account_id := fnd_flex_ext.get_ccid(application_short_name => 'SQLGL',
1003: key_flex_code => 'GL#',
1004: structure_number => g_structure_number,
1005: validation_date => to_char(SYSDATE,FND_FLEX_EXT.DATE_FORMAT),
1006: concatenated_segments => x_to_segment
1001: END IF;
1002: x_to_account_id := fnd_flex_ext.get_ccid(application_short_name => 'SQLGL',
1003: key_flex_code => 'GL#',
1004: structure_number => g_structure_number,
1005: validation_date => to_char(SYSDATE,FND_FLEX_EXT.DATE_FORMAT),
1006: concatenated_segments => x_to_segment
1007: );
1008: IF (x_to_account_id > 0) THEN
1009: insert_alloc_inp(v_alloc_id,
1016: ELSE
1017: l_mesg_text := FND_MESSAGE.GET;
1018: alloc_log_msg(C_LOG_FILE,l_mesg_text);
1019: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1020: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,g_calling_module,'Error returned from FND_FLEX_EXT.GET_COMBINATION_ID() API '||l_mesg_text);
1021: END IF;
1022: END IF;
1023: END IF;
1024: /* end SSCHINCH */