[Home] [Help]
33: ,x_error_msg_code IN OUT NOCOPY varchar2
34: )IS
35: cursor return_rowid is
36: select rowid
37: from pa_org_labor_sch_rule
38: where ORG_LABOR_SCH_RULE_ID = x_ORG_LABOR_SCH_RULE_ID;
39:
40: cursor get_itemid is
41: select pa_org_labor_sch_rule_s.nextval
37: from pa_org_labor_sch_rule
38: where ORG_LABOR_SCH_RULE_ID = x_ORG_LABOR_SCH_RULE_ID;
39:
40: cursor get_itemid is
41: select pa_org_labor_sch_rule_s.nextval
42: from sys.dual;
43:
44: l_return_status varchar2(100) := 'S';
45: l_error_msg_code varchar2(100) := NULL;
63: IF l_debug_mode = 'Y' THEN
64: print_msg('Info transacton id ..'||x_ORG_LABOR_SCH_RULE_ID);
65: End If;
66:
67: INSERT into pa_org_labor_sch_rule
68: (
69: ORG_LABOR_SCH_RULE_ID
70: ,ORGANIZATION_ID
71: ,ORG_ID
169: ,ACCT_EXCHANGE_RATE
170: ,START_DATE_ACTIVE
171: ,END_DATE_ACTIVE
172: ,FORECAST_COST_RATE_SCH_ID
173: FROM pa_org_labor_sch_rule
174: WHERE ORG_LABOR_SCH_RULE_ID = p_ORG_LABOR_SCH_RULE_ID
175: FOR UPDATE OF ORG_LABOR_SCH_RULE_ID NOWAIT;
176:
177: recinfo cur_row%rowtype;
216: Nvl(recinfo.FORECAST_COST_RATE_SCH_ID,0) <> nvl(p_FORECAST_COST_RATE_SCH_ID,0) ) THEN
217: IF l_debug_mode = 'Y' THEN
218: print_msg('firing update query');
219: End If;
220: UPDATE pa_org_labor_sch_rule SET
221: ORGANIZATION_ID = p_ORGANIZATION_ID
222: ,ORG_ID = p_ORG_ID
223: ,LABOR_COSTING_RULE = p_LABOR_COSTING_RULE
224: ,COST_RATE_SCH_ID = p_COST_RATE_SCH_ID
267: l_debug_mode := NVL(l_debug_mode, 'N');
268:
269: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
270:
271: DELETE FROM PA_ORG_LABOR_SCH_RULE
272: WHERE ORG_LABOR_SCH_RULE_ID = p_ORG_LABOR_SCH_RULE_ID;
273: if sql%found then
274: IF l_debug_mode = 'Y' THEN
275: print_msg('Delete Success');
285: PROCEDURE delete_row (x_rowid in VARCHAR2)IS
286:
287: cursor get_itemid is
288: select ORG_LABOR_SCH_RULE_ID
289: from PA_ORG_LABOR_SCH_RULE
290: where rowid = x_rowid;
291:
292: l_ORG_LABOR_SCH_RULE_ID Number;
293:
314: ,ACCT_EXCHANGE_RATE
315: ,START_DATE_ACTIVE
316: ,END_DATE_ACTIVE
317: ,FORECAST_COST_RATE_SCH_ID
318: FROM pa_org_labor_sch_rule
319: WHERE ORG_LABOR_SCH_RULE_ID = p_ORG_LABOR_SCH_RULE_ID
320: FOR UPDATE OF ORG_LABOR_SCH_RULE_ID NOWAIT;
321:
322: recinfo cur_row%rowtype;