[Home] [Help]
1: package body PA_CI_IMPACT_TYPE_USAGE_PKG as
2: /* $Header: PACIIMTB.pls 120.0 2005/05/30 13:25:04 appldev noship $ */
3: procedure INSERT_ROW (
4: X_ROWID out NOCOPY VARCHAR2,
5: X_CI_IMPACT_TYPE_USAGE_ID out NOCOPY NUMBER,
12: X_LAST_UPDATE_DATE in DATE,
13: X_LAST_UPDATED_BY in NUMBER,
14: X_LAST_UPDATE_LOGIN in NUMBER
15: ) is
16: cursor C is select ROWID from PA_CI_IMPACT_TYPE_USAGE
17: where CI_IMPACT_TYPE_USAGE_ID = X_CI_IMPACT_TYPE_USAGE_ID
18: ;
19: begin
20: SELECT pa_ci_impact_type_usage_s.NEXTVAL
16: cursor C is select ROWID from PA_CI_IMPACT_TYPE_USAGE
17: where CI_IMPACT_TYPE_USAGE_ID = X_CI_IMPACT_TYPE_USAGE_ID
18: ;
19: begin
20: SELECT pa_ci_impact_type_usage_s.NEXTVAL
21: INTO X_CI_IMPACT_TYPE_USAGE_ID
22: FROM sys.dual;
23:
24: insert into PA_CI_IMPACT_TYPE_USAGE (
20: SELECT pa_ci_impact_type_usage_s.NEXTVAL
21: INTO X_CI_IMPACT_TYPE_USAGE_ID
22: FROM sys.dual;
23:
24: insert into PA_CI_IMPACT_TYPE_USAGE (
25: CI_IMPACT_TYPE_USAGE_ID ,
26: impact_type_code ,
27: ci_type_class_code ,
28: CI_TYPE_ID ,
62: cursor c is select
63: impact_type_code,
64: ci_type_class_code,
65: ci_type_id
66: from PA_CI_IMPACT_TYPE_USAGE
67: where ci_impact_type_usage_id = X_CI_IMPACT_TYPE_USAGE_ID
68: for update of CI_impact_TYPE_USAGE_ID nowait;
69: recinfo c%rowtype;
70:
94: procedure DELETE_ROW (
95: X_CI_IMPACT_TYPE_USAGE_ID in NUMBER
96: ) is
97: begin
98: delete from PA_CI_IMPACT_TYPE_USAGE
99: where CI_IMPACT_TYPE_USAGE_ID = X_CI_IMPACT_TYPE_USAGE_ID;
100:
101: if (sql%notfound) then
102: raise no_data_found;
103: end if;
104: end DELETE_ROW;
105:
106:
107: end PA_CI_IMPACT_TYPE_USAGE_PKG;