[Home] [Help]
PACKAGE BODY: APPS.ZX_TRX_LINE_APP_REGIMES_PKG
Source
1 PACKAGE BODY ZX_TRX_LINE_APP_REGIMES_PKG AS
2 /* $Header: zxiflineappregb.pls 120.2 2005/05/11 18:18:17 vsidhart ship $ */
3 G_PKG_NAME CONSTANT VARCHAR2(30) := 'ZX_TRX_LINE_APP_REGIMES_PKG';
4 G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5 G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6 G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7 G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8 G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9 G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10 G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11 G_MODULE_NAME CONSTANT VARCHAR2(80) := 'ZX.PLSQL.ZX_TRX_LINE_APP_REGIMES_PKG.';
12
13 procedure INSERT_ROW (
14 X_APPLICATION_ID in NUMBER,
15 X_ENTITY_CODE in VARCHAR2,
16 X_EVENT_CLASS_CODE in VARCHAR2,
17 X_TRX_ID in NUMBER,
18 X_TRX_LINE_ID in NUMBER,
19 X_TRX_LEVEL_TYPE in VARCHAR2,
20 X_TAX_REGIME_ID in NUMBER,
21 X_TAX_REGIME_CODE in VARCHAR2,
22 X_TAX_PROVIDER_ID in NUMBER,
23 X_ALLOW_TAX_CALCULATION_FLAG in VARCHAR2,
24 X_PSEUDO_TAX_ONLY_LINE_FLAG in VARCHAR2,
25 X_CREATION_DATE in DATE,
26 X_CREATED_BY in NUMBER,
27 X_LAST_UPDATE_DATE in DATE,
28 X_LAST_UPDATED_BY in NUMBER,
29 X_LAST_UPDATE_LOGIN in NUMBER,
30 X_RETURN_STATUS out nocopy VARCHAR2
31 ) is
32 l_api_name CONSTANT VARCHAR2(30) := 'INSERT_ROW';
33 BEGIN
34
35 IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
36 FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_TRX_LINE_APP_REGIMES_PKG: '||l_api_name||'()+');
37 END IF;
38
39 x_return_status := FND_API.G_RET_STS_SUCCESS;
40
41
42 insert into ZX_TRX_LINE_APP_REGIMES (
43 EVENT_CLASS_CODE,
44 APPLICATION_ID,
45 ENTITY_CODE,
46 TRX_ID,
47 TRX_LINE_ID,
48 TRX_LEVEL_TYPE,
49 TAX_REGIME_ID,
50 TAX_REGIME_CODE,
51 TAX_PROVIDER_ID,
52 ALLOW_TAX_CALCULATION_FLAG,
53 PSEUDO_TAX_ONLY_LINE_FLAG,
54 CREATION_DATE,
55 CREATED_BY,
56 LAST_UPDATE_DATE,
57 LAST_UPDATED_BY,
58 LAST_UPDATE_LOGIN
59 ) values
60 (X_EVENT_CLASS_CODE,
61 X_APPLICATION_ID,
62 X_ENTITY_CODE,
63 X_TRX_ID,
64 X_TRX_LINE_ID,
65 X_TRX_LEVEL_TYPE,
66 X_TAX_REGIME_ID,
67 X_TAX_REGIME_CODE,
68 X_TAX_PROVIDER_ID,
69 X_ALLOW_TAX_CALCULATION_FLAG,
70 X_PSEUDO_TAX_ONLY_LINE_FLAG,
71 X_CREATION_DATE,
72 X_CREATED_BY,
73 X_LAST_UPDATE_DATE,
74 X_LAST_UPDATED_BY,
75 X_LAST_UPDATE_LOGIN
76 );
77
78 if (sql%notfound) then
79 x_return_status := FND_API.G_RET_STS_ERROR;
80 raise no_data_found;
81 end if;
82
83 IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
84 FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_TRX_LINE_APP_REGIMES_PKG: '||l_api_name||'()-');
85 END IF;
86 end INSERT_ROW;
87
88 procedure UPDATE_ROW (
89 X_APPLICATION_ID in NUMBER,
90 X_ENTITY_CODE in VARCHAR2,
91 X_EVENT_CLASS_CODE in VARCHAR2,
92 X_TRX_ID in NUMBER,
93 X_TRX_LINE_ID in NUMBER,
94 X_TRX_LEVEL_TYPE in VARCHAR2,
95 X_TAX_REGIME_ID in NUMBER,
96 X_TAX_REGIME_CODE in VARCHAR2,
97 X_TAX_PROVIDER_ID in NUMBER,
98 X_ALLOW_TAX_CALCULATION_FLAG in VARCHAR2,
99 X_PSEUDO_TAX_ONLY_LINE_FLAG in VARCHAR2,
100 X_UPDATE_FLAG in VARCHAR2,
101 X_LAST_UPDATE_DATE in DATE,
102 X_LAST_UPDATED_BY in NUMBER,
103 X_LAST_UPDATE_LOGIN in NUMBER,
104 X_RETURN_STATUS out nocopy VARCHAR2
105 ) is
106 l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_ROW';
107 begin
108 IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
109 FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_TRX_LINE_APP_REGIMES_PKG: '||l_api_name||'()+');
110 END IF;
111
112 x_return_status := FND_API.G_RET_STS_SUCCESS;
113
114 update ZX_TRX_LINE_APP_REGIMES set
115 TAX_REGIME_ID = X_TAX_REGIME_ID,
116 TAX_REGIME_CODE = X_TAX_REGIME_CODE,
117 TAX_PROVIDER_ID = X_TAX_PROVIDER_ID,
118 ALLOW_TAX_CALCULATION_FLAG = X_ALLOW_TAX_CALCULATION_FLAG,
119 PSEUDO_TAX_ONLY_LINE_FLAG = X_PSEUDO_TAX_ONLY_LINE_FLAG,
120 UPDATE_FLAG = X_UPDATE_FLAG,
121 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
122 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
123 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
124 where APPLICATION_ID = X_APPLICATION_ID
125 and ENTITY_CODE = X_ENTITY_CODE
126 and EVENT_CLASS_CODE = X_EVENT_CLASS_CODE
127 and TRX_ID = X_TRX_ID
128 and TRX_LINE_ID = X_TRX_LINE_ID
129 and TRX_LEVEL_TYPE = X_TRX_LEVEL_TYPE;
130
131 if (sql%notfound) then
132 x_return_status := FND_API.G_RET_STS_ERROR;
133 raise no_data_found;
134 end if;
135
136 IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
137 FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_TRX_LINE_APP_REGIMES_PKG: '||l_api_name||'()+');
138 END IF;
139
140 end UPDATE_ROW;
141
142 end ZX_TRX_LINE_APP_REGIMES_PKG;