DBA Data[Home] [Help]

APPS.ZX_SRVC_TYP_PKG dependencies on ZX_SRVC_TYP_PKG

Line 1: PACKAGE BODY ZX_SRVC_TYP_PKG AS

1: PACKAGE BODY ZX_SRVC_TYP_PKG AS
2: /* $Header: zxifsrvctypspkgb.pls 120.331.12020000.7 2013/04/23 08:20:27 ssohal ship $ */
3: /* ======================================================================*
4: | Global Data Types |
5: * ======================================================================*/

Line 7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ZX_SRVC_TYP_PKG';

3: /* ======================================================================*
4: | Global Data Types |
5: * ======================================================================*/
6:
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ZX_SRVC_TYP_PKG';
8: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;

Line 15: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'ZX.PLSQL.ZX_SRVC_TYP_PKG.';

11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
15: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'ZX.PLSQL.ZX_SRVC_TYP_PKG.';
16:
17: G_LINES_PER_FETCH CONSTANT NUMBER:= 1000;
18: G_MAX_LINES_PER_FETCH CONSTANT NUMBER:= 1000000;
19:

Line 2987: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.db_insert_line_det_factors',

2983:
2984: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2985: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
2986: FND_LOG.STRING(G_LEVEL_STATEMENT,
2987: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.db_insert_line_det_factors',
2988: TO_CHAR(l_err_count)||' Error(s) occured while inserting record into ZX_LINES_DET_FACTORS.');
2989: END IF;
2990:
2991: l_err_trx_id := -99;

Line 2999: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.db_insert_line_det_factors',

2995:
2996: IF l_err_trx_id <> p_trx_line_dist_tbl.trx_id(l_err_idx) THEN
2997: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
2998: FND_LOG.STRING(G_LEVEL_STATEMENT,
2999: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.db_insert_line_det_factors',
3000: 'trx_id :' || p_trx_line_dist_tbl.trx_id(l_err_idx));
3001: FND_LOG.STRING(G_LEVEL_STATEMENT,
3002: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.db_insert_line_det_factors',
3003: 'trx_line_id :' || p_trx_line_dist_tbl.trx_line_id(l_err_idx));

Line 3002: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.db_insert_line_det_factors',

2998: FND_LOG.STRING(G_LEVEL_STATEMENT,
2999: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.db_insert_line_det_factors',
3000: 'trx_id :' || p_trx_line_dist_tbl.trx_id(l_err_idx));
3001: FND_LOG.STRING(G_LEVEL_STATEMENT,
3002: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.db_insert_line_det_factors',
3003: 'trx_line_id :' || p_trx_line_dist_tbl.trx_line_id(l_err_idx));
3004: END IF;
3005: l_context_info_rec.application_id := p_trx_line_dist_tbl.application_id(l_err_idx);
3006: l_context_info_rec.entity_code := p_trx_line_dist_tbl.entity_code(l_err_idx);

Line 18627: 'ZX_SRVC_TYP_PKG: Pop_Index_Attrbs_To_Null()+');

18623:
18624: BEGIN
18625: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18626: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',
18627: 'ZX_SRVC_TYP_PKG: Pop_Index_Attrbs_To_Null()+');
18628: END IF;
18629: -- Copy the key attributes in the local variables
18630: l_application_id := ZX_Global_Structures_Pkg.trx_line_dist_tbl.Application_id(p_index);
18631: l_entity_code := ZX_Global_Structures_Pkg.trx_line_dist_tbl.Entity_code(p_index);

Line 18652: 'ZX_SRVC_TYP_PKG: Pop_Index_Attrbs_To_Null()-');

18648: ZX_Global_Structures_Pkg.trx_line_dist_tbl.Trx_level_type(p_index) := l_trx_level_type;
18649:
18650: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18651: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',
18652: 'ZX_SRVC_TYP_PKG: Pop_Index_Attrbs_To_Null()-');
18653: END IF;
18654:
18655: EXCEPTION
18656: WHEN OTHERS THEN

Line 18692: 'ZX_SRVC_TYP_PKG: Pop_Estb_Id()+');

18688:
18689: BEGIN
18690: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18691: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',
18692: 'ZX_SRVC_TYP_PKG: Pop_Estb_Id()+');
18693: END IF;
18694:
18695: l_legal_entity_id := ZX_Global_Structures_Pkg.trx_line_dist_tbl.LEGAL_ENTITY_ID(p_index);
18696: l_trx_date := ZX_Global_Structures_Pkg.trx_line_dist_tbl.TRX_DATE(p_index);

Line 18832: 'ZX_SRVC_TYP_PKG: Pop_Estb_Id()-');

18828: END IF;
18829:
18830: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18831: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',
18832: 'ZX_SRVC_TYP_PKG: Pop_Estb_Id()-');
18833: END IF;
18834:
18835: EXCEPTION
18836: WHEN OTHERS THEN

Line 18886: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.print_unique_columns.BEGIN',

18882: BEGIN
18883:
18884: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
18885: FND_LOG.STRING(G_LEVEL_STATEMENT,
18886: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.print_unique_columns.BEGIN',
18887: 'ZX_SRVC_TYP_PKG: print_unique_columns (+)');
18888: END IF;
18889:
18890: FOR rec IN get_unique_columns LOOP

Line 18887: 'ZX_SRVC_TYP_PKG: print_unique_columns (+)');

18883:
18884: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
18885: FND_LOG.STRING(G_LEVEL_STATEMENT,
18886: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.print_unique_columns.BEGIN',
18887: 'ZX_SRVC_TYP_PKG: print_unique_columns (+)');
18888: END IF;
18889:
18890: FOR rec IN get_unique_columns LOOP
18891: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN

Line 18893: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.print_unique_columns',

18889:
18890: FOR rec IN get_unique_columns LOOP
18891: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
18892: FND_LOG.STRING(G_LEVEL_STATEMENT,
18893: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.print_unique_columns',
18894: ' TRX_LINE_ID : ' || rec.trx_line_id ||
18895: ', APPLICATION_ID : ' || rec.application_id ||
18896: ', ENTITY_CODE : ' || rec.entity_code ||
18897: ', EVENT_CLASS_CODE : ' || rec.event_class_code ||

Line 18904: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.print_unique_columns.END',

18900: END LOOP;
18901:
18902: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18903: FND_LOG.STRING(G_LEVEL_STATEMENT,
18904: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.print_unique_columns.END',
18905: 'ZX_SRVC_TYP_PKG: print_unique_columns (-)');
18906: END IF;
18907:
18908: EXCEPTION

Line 18905: 'ZX_SRVC_TYP_PKG: print_unique_columns (-)');

18901:
18902: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18903: FND_LOG.STRING(G_LEVEL_STATEMENT,
18904: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.print_unique_columns.END',
18905: 'ZX_SRVC_TYP_PKG: print_unique_columns (-)');
18906: END IF;
18907:
18908: EXCEPTION
18909: WHEN OTHERS THEN

Line 18912: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.print_unique_columns',

18908: EXCEPTION
18909: WHEN OTHERS THEN
18910: IF(G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18911: FND_LOG.STRING(G_LEVEL_STATEMENT,
18912: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.print_unique_columns',
18913: 'Cannot print unique columns. Error Occured : '||SUBSTR(SQLERRM, 1, 80));
18914: END IF;
18915: END print_unique_columns;
18916:

Line 18917: END ZX_SRVC_TYP_PKG;

18913: 'Cannot print unique columns. Error Occured : '||SUBSTR(SQLERRM, 1, 80));
18914: END IF;
18915: END print_unique_columns;
18916:
18917: END ZX_SRVC_TYP_PKG;