[Home] [Help]
Skip to content
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.3 2009/06/05 18:56:59 hongliu 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_UNEXP_ERROR;
80
81 IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
82 FND_LOG.STRING(G_LEVEL_EXCEPTION,
83 G_MODULE_NAME || l_api_name,
84 SQLCODE || ': ' || SQLERRM);
85 END IF;
86
87 raise no_data_found;
88 end if;
89
90 IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
91 FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END','ZX_TRX_LINE_APP_REGIMES_PKG: '||l_api_name||'()-');
92 END IF;
93 end INSERT_ROW;
94
95 procedure UPDATE_ROW (
96 X_APPLICATION_ID in NUMBER,
97 X_ENTITY_CODE in VARCHAR2,
98 X_EVENT_CLASS_CODE in VARCHAR2,
99 X_TRX_ID in NUMBER,
100 X_TRX_LINE_ID in NUMBER,
101 X_TRX_LEVEL_TYPE in VARCHAR2,
102 X_TAX_REGIME_ID in NUMBER,
103 X_TAX_REGIME_CODE in VARCHAR2,
104 X_TAX_PROVIDER_ID in NUMBER,
105 X_ALLOW_TAX_CALCULATION_FLAG in VARCHAR2,
106 X_PSEUDO_TAX_ONLY_LINE_FLAG in VARCHAR2,
107 X_UPDATE_FLAG in VARCHAR2,
108 X_LAST_UPDATE_DATE in DATE,
109 X_LAST_UPDATED_BY in NUMBER,
110 X_LAST_UPDATE_LOGIN in NUMBER,
111 X_RETURN_STATUS out nocopy VARCHAR2
112 ) is
113 l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_ROW';
114 begin
115 IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
116 FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_TRX_LINE_APP_REGIMES_PKG: '||l_api_name||'()+');
117 END IF;
118
119 x_return_status := FND_API.G_RET_STS_SUCCESS;
120
121 update ZX_TRX_LINE_APP_REGIMES set
122 TAX_REGIME_ID = X_TAX_REGIME_ID,
123 TAX_REGIME_CODE = X_TAX_REGIME_CODE,
124 TAX_PROVIDER_ID = X_TAX_PROVIDER_ID,
125 ALLOW_TAX_CALCULATION_FLAG = X_ALLOW_TAX_CALCULATION_FLAG,
126 PSEUDO_TAX_ONLY_LINE_FLAG = X_PSEUDO_TAX_ONLY_LINE_FLAG,
127 UPDATE_FLAG = X_UPDATE_FLAG,
128 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
129 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
130 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
131 where APPLICATION_ID = X_APPLICATION_ID
132 and ENTITY_CODE = X_ENTITY_CODE
133 and EVENT_CLASS_CODE = X_EVENT_CLASS_CODE
134 and TRX_ID = X_TRX_ID
135 and TRX_LINE_ID = X_TRX_LINE_ID
136 and TRX_LEVEL_TYPE = X_TRX_LEVEL_TYPE;
137
138 if (sql%notfound) then
139 x_return_status := FND_API.G_RET_STS_ERROR;
140 raise no_data_found;
141 end if;
142
143 IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
144 FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN','ZX_TRX_LINE_APP_REGIMES_PKG: '||l_api_name||'()+');
145 END IF;
146
147 end UPDATE_ROW;
148
149 end ZX_TRX_LINE_APP_REGIMES_PKG;