30: MAJOR CONSTANT BINARY_INTEGER :=4; -- Major Vertex version number
31: MINOR CONSTANT BINARY_INTEGER :=0;-- Minor Vertex version number
32: pg_version_check BOOLEAN;
33:
34: version_rec ZX_TAX_VERTEX_QSU.tQSUVersionRecord;
35: context_rec ZX_TAX_VERTEX_QSU.tQSUContextRecord;
36: inv_in_rec ZX_TAX_VERTEX_QSU.tQSUInvoiceRecord;
37: line_in_tab ZX_TAX_VERTEX_QSU.tQSULineItemTable;
38:
31: MINOR CONSTANT BINARY_INTEGER :=0;-- Minor Vertex version number
32: pg_version_check BOOLEAN;
33:
34: version_rec ZX_TAX_VERTEX_QSU.tQSUVersionRecord;
35: context_rec ZX_TAX_VERTEX_QSU.tQSUContextRecord;
36: inv_in_rec ZX_TAX_VERTEX_QSU.tQSUInvoiceRecord;
37: line_in_tab ZX_TAX_VERTEX_QSU.tQSULineItemTable;
38:
39:
32: pg_version_check BOOLEAN;
33:
34: version_rec ZX_TAX_VERTEX_QSU.tQSUVersionRecord;
35: context_rec ZX_TAX_VERTEX_QSU.tQSUContextRecord;
36: inv_in_rec ZX_TAX_VERTEX_QSU.tQSUInvoiceRecord;
37: line_in_tab ZX_TAX_VERTEX_QSU.tQSULineItemTable;
38:
39:
40: /*===========================================================================+
33:
34: version_rec ZX_TAX_VERTEX_QSU.tQSUVersionRecord;
35: context_rec ZX_TAX_VERTEX_QSU.tQSUContextRecord;
36: inv_in_rec ZX_TAX_VERTEX_QSU.tQSUInvoiceRecord;
37: line_in_tab ZX_TAX_VERTEX_QSU.tQSULineItemTable;
38:
39:
40: /*===========================================================================+
41: | FUNCTION |
54: | |
55: | MODIFICATION HISTORY |
56: | |
57: +===========================================================================*/
58: PROCEDURE GET_RELEASE (p_context_rec OUT NOCOPY ZX_TAX_VERTEX_QSU.tQSUContextRecord,
59: p_version_rec OUT NOCOPY ZX_TAX_VERTEX_QSU.tQSUVersionRecord,
60: x_return_status OUT NOCOPY VARCHAR2) IS
61:
62: BEGIN
55: | MODIFICATION HISTORY |
56: | |
57: +===========================================================================*/
58: PROCEDURE GET_RELEASE (p_context_rec OUT NOCOPY ZX_TAX_VERTEX_QSU.tQSUContextRecord,
59: p_version_rec OUT NOCOPY ZX_TAX_VERTEX_QSU.tQSUVersionRecord,
60: x_return_status OUT NOCOPY VARCHAR2) IS
61:
62: BEGIN
63:
80: -----------------------------------------------------------*/
81: BEGIN
82: IF ( g_level_statement >= g_current_runtime_level) THEN
83: FND_LOG.STRING(g_level_statement,'ZX_TAX_VERTEX_REV.GET_RELEASE',
84: 'Call ZX_TAX_VERTEX_QSU.QSUGetVersionInfo to get version number');
85: END IF;
86:
87: ZX_TAX_VERTEX_QSU.QSUGetVersionInfo(context_rec,version_rec);
88: p_context_rec := context_rec ;
83: FND_LOG.STRING(g_level_statement,'ZX_TAX_VERTEX_REV.GET_RELEASE',
84: 'Call ZX_TAX_VERTEX_QSU.QSUGetVersionInfo to get version number');
85: END IF;
86:
87: ZX_TAX_VERTEX_QSU.QSUGetVersionInfo(context_rec,version_rec);
88: p_context_rec := context_rec ;
89: p_version_rec := version_rec ;
90:
91: EXCEPTION