1: PACKAGE BODY ZX_SIM_RULES_PKG AS
2: /* $Header: zxrisimrulespkgb.pls 120.1 2005/10/27 18:50:58 pla ship $ */
3:
4: g_current_runtime_level NUMBER;
5: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
39: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
40:
41: IF (g_level_procedure >= g_current_runtime_level ) THEN
42: FND_LOG.STRING(g_level_procedure,
43: 'ZX.PLSQL.ZX_SIM_RULES_PKG.Insert_Row.BEGIN',
44: 'ZX_SIM_RULES_PKG: Insert_Row (+)');
45: END IF;
46:
47: INSERT INTO ZX_SIM_RULES_B (sim_tax_rule_id,
40:
41: IF (g_level_procedure >= g_current_runtime_level ) THEN
42: FND_LOG.STRING(g_level_procedure,
43: 'ZX.PLSQL.ZX_SIM_RULES_PKG.Insert_Row.BEGIN',
44: 'ZX_SIM_RULES_PKG: Insert_Row (+)');
45: END IF;
46:
47: INSERT INTO ZX_SIM_RULES_B (sim_tax_rule_id,
48: content_owner_id,
90: p_program_login_id);
91:
92: IF (g_level_procedure >= g_current_runtime_level ) THEN
93: FND_LOG.STRING(g_level_procedure,
94: 'ZX.PLSQL.ZX_SIM_RULES_PKG.Insert_Row.BEGIN',
95: 'ZX_SIM_RULES_PKG: Insert_Row (-)');
96: END IF;
97: END Insert_Row;
98:
91:
92: IF (g_level_procedure >= g_current_runtime_level ) THEN
93: FND_LOG.STRING(g_level_procedure,
94: 'ZX.PLSQL.ZX_SIM_RULES_PKG.Insert_Row.BEGIN',
95: 'ZX_SIM_RULES_PKG: Insert_Row (-)');
96: END IF;
97: END Insert_Row;
98:
99: PROCEDURE Update_Row
128: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
129:
130: IF (g_level_procedure >= g_current_runtime_level ) THEN
131: FND_LOG.STRING(g_level_procedure,
132: 'ZX.PLSQL.ZX_SIM_RULES_PKG.Update_Row.BEGIN',
133: 'ZX_SIM_RULES_PKG: Update_Row (+)');
134: END IF;
135:
136: UPDATE ZX_SIM_RULES_B
129:
130: IF (g_level_procedure >= g_current_runtime_level ) THEN
131: FND_LOG.STRING(g_level_procedure,
132: 'ZX.PLSQL.ZX_SIM_RULES_PKG.Update_Row.BEGIN',
133: 'ZX_SIM_RULES_PKG: Update_Row (+)');
134: END IF;
135:
136: UPDATE ZX_SIM_RULES_B
137: SET sim_tax_rule_id = p_sim_tax_rule_id,
161: AND application_id = p_application_id;
162:
163: IF (g_level_procedure >= g_current_runtime_level ) THEN
164: FND_LOG.STRING(g_level_procedure,
165: 'ZX.PLSQL.ZX_SIM_RULES_PKG.Update_Row.BEGIN',
166: 'ZX_SIM_RULES_PKG: Update_Row (-)');
167: END IF;
168: END Update_Row;
169:
162:
163: IF (g_level_procedure >= g_current_runtime_level ) THEN
164: FND_LOG.STRING(g_level_procedure,
165: 'ZX.PLSQL.ZX_SIM_RULES_PKG.Update_Row.BEGIN',
166: 'ZX_SIM_RULES_PKG: Update_Row (-)');
167: END IF;
168: END Update_Row;
169:
170: PROCEDURE Delete_Row
199: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
200:
201: IF (g_level_procedure >= g_current_runtime_level ) THEN
202: FND_LOG.STRING(g_level_procedure,
203: 'ZX.PLSQL.ZX_SIM_RULES_PKG.Insert_Row.BEGIN',
204: 'ZX_SIM_RULES_PKG: Delete_Row (+)');
205: END IF;
206:
207: IF (g_level_procedure >= g_current_runtime_level ) THEN
200:
201: IF (g_level_procedure >= g_current_runtime_level ) THEN
202: FND_LOG.STRING(g_level_procedure,
203: 'ZX.PLSQL.ZX_SIM_RULES_PKG.Insert_Row.BEGIN',
204: 'ZX_SIM_RULES_PKG: Delete_Row (+)');
205: END IF;
206:
207: IF (g_level_procedure >= g_current_runtime_level ) THEN
208: FND_LOG.STRING(g_level_procedure,
205: END IF;
206:
207: IF (g_level_procedure >= g_current_runtime_level ) THEN
208: FND_LOG.STRING(g_level_procedure,
209: 'ZX.PLSQL.ZX_SIM_RULES_PKG.Insert_Row.BEGIN',
210: 'ZX_SIM_RULES_PKG: Delete_Row (-)');
211: END IF;
212: END Delete_Row;
213:
206:
207: IF (g_level_procedure >= g_current_runtime_level ) THEN
208: FND_LOG.STRING(g_level_procedure,
209: 'ZX.PLSQL.ZX_SIM_RULES_PKG.Insert_Row.BEGIN',
210: 'ZX_SIM_RULES_PKG: Delete_Row (-)');
211: END IF;
212: END Delete_Row;
213:
214: PROCEDURE Lock_Row
273: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
274:
275: IF (g_level_procedure >= g_current_runtime_level ) THEN
276: FND_LOG.STRING(g_level_procedure,
277: 'ZX.PLSQL.ZX_SIM_RULES_PKG.Insert_Row.BEGIN',
278: 'ZX_SIM_RULES_PKG: Lock_Row (+)');
279: END IF;
280:
281: OPEN sim_rules_csr;
274:
275: IF (g_level_procedure >= g_current_runtime_level ) THEN
276: FND_LOG.STRING(g_level_procedure,
277: 'ZX.PLSQL.ZX_SIM_RULES_PKG.Insert_Row.BEGIN',
278: 'ZX_SIM_RULES_PKG: Lock_Row (+)');
279: END IF;
280:
281: OPEN sim_rules_csr;
282: FETCH sim_rules_csr INTO Recinfo;
333: END IF;
334:
335: IF (g_level_procedure >= g_current_runtime_level ) THEN
336: FND_LOG.STRING(g_level_procedure,
337: 'ZX.PLSQL.ZX_SIM_RULES_PKG.Insert_Row.BEGIN',
338: 'ZX_SIM_RULES_PKG: Lock_Row (-)');
339: END IF;
340: END Lock_Row;
341:
334:
335: IF (g_level_procedure >= g_current_runtime_level ) THEN
336: FND_LOG.STRING(g_level_procedure,
337: 'ZX.PLSQL.ZX_SIM_RULES_PKG.Insert_Row.BEGIN',
338: 'ZX_SIM_RULES_PKG: Lock_Row (-)');
339: END IF;
340: END Lock_Row;
341:
342: procedure ADD_LANGUAGE
397: APP_EXCEPTION.RAISE_EXCEPTION;
398:
399: end ADD_LANGUAGE;
400:
401: END ZX_SIM_RULES_PKG;