[Home] [Help]
PACKAGE BODY: APPS.PA_CI_IMPACT_TYPE_USAGE_PKG
Source
1 package body PA_CI_IMPACT_TYPE_USAGE_PKG as
2 /* $Header: PACIIMTB.pls 120.1 2009/03/24 17:36:38 cklee ship $ */
3 procedure INSERT_ROW (
4 X_ROWID out NOCOPY VARCHAR2,
5 X_CI_IMPACT_TYPE_USAGE_ID out NOCOPY NUMBER,
6
7 x_impact_type_code IN varchar2,
8 x_ci_type_class_code IN VARCHAR2,
9 X_CI_TYPE_ID in NUMBER,
10 X_CREATION_DATE in DATE,
11 X_CREATED_BY in NUMBER,
12 X_LAST_UPDATE_DATE in DATE,
13 X_LAST_UPDATED_BY in NUMBER,
14 X_LAST_UPDATE_LOGIN in NUMBER,
15 --start:| 16-FEB-2009 cklee R12.1.2 setup ehancement
16 X_IMPACT_TYPE_CODE_ORDER IN NUMBER default null
17 --end:| 16-FEB-2009 cklee R12.1.2 setup ehancement
18
19 ) is
20 cursor C is select ROWID from PA_CI_IMPACT_TYPE_USAGE
21 where CI_IMPACT_TYPE_USAGE_ID = X_CI_IMPACT_TYPE_USAGE_ID
22 ;
23 begin
24 SELECT pa_ci_impact_type_usage_s.NEXTVAL
25 INTO X_CI_IMPACT_TYPE_USAGE_ID
26 FROM sys.dual;
27
28 insert into PA_CI_IMPACT_TYPE_USAGE (
29 CI_IMPACT_TYPE_USAGE_ID ,
30 impact_type_code ,
31 ci_type_class_code ,
32 CI_TYPE_ID ,
33 CREATION_DATE ,
34 CREATED_BY ,
35 LAST_UPDATE_DATE ,
36 LAST_UPDATED_BY,
37 LAST_UPDATE_LOGIN,
38 --start:| 16-FEB-2009 cklee R12.1.2 setup ehancement
39 IMPACT_TYPE_CODE_ORDER
40 --end:| 16-FEB-2009 cklee R12.1.2 setup ehancement
41 ) values (
42 X_CI_IMPACT_TYPE_USAGE_ID ,
43 x_impact_type_code ,
44 x_ci_type_class_code ,
45 X_CI_TYPE_ID ,
46 nvl(X_CREATION_DATE, sysdate),
47 nvl(X_CREATED_BY, fnd_global.user_id),
48 nvl(X_LAST_UPDATE_DATE, sysdate),
49 nvl(X_LAST_UPDATED_BY, fnd_global.user_id),
50 nvl(X_LAST_UPDATE_LOGIN, fnd_global.login_id),
51 --start:| 16-FEB-2009 cklee R12.1.2 setup ehancement
52 X_IMPACT_TYPE_CODE_ORDER
53 --end:| 16-FEB-2009 cklee R12.1.2 setup ehancement
54 );
55
56 open c;
57 fetch c into X_ROWID;
58 if (c%notfound) then
59 close c;
60 raise no_data_found;
61 end if;
62 close c;
63
64 end INSERT_ROW;
65
66 procedure LOCK_ROW (
67 X_CI_IMPACT_TYPE_USAGE_ID in NUMBER,
68 x_impact_type_code IN varchar2,
69 x_ci_type_class_code IN VARCHAR2,
70 X_CI_TYPE_ID in NUMBER,
71 --start:| 16-FEB-2009 cklee R12.1.2 setup ehancement
72 X_IMPACT_TYPE_CODE_ORDER IN NUMBER default null
73 --end:| 16-FEB-2009 cklee R12.1.2 setup ehancement
74 ) is
75 cursor c is select
76 impact_type_code,
77 ci_type_class_code,
78 ci_type_id
79 from PA_CI_IMPACT_TYPE_USAGE
80 where ci_impact_type_usage_id = X_CI_IMPACT_TYPE_USAGE_ID
81 for update of CI_impact_TYPE_USAGE_ID nowait;
82 recinfo c%rowtype;
83
84 begin
85 open c;
86 fetch c into recinfo;
87 if (c%notfound) then
88 close c;
89 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
90 app_exception.raise_exception;
91 end if;
92 close c;
93 if ( (recinfo.impact_type_code = x_impact_type_code)
94 AND (recinfo.ci_type_class_code = x_ci_type_class_code)
95 AND (recinfo.CI_TYPE_ID = X_CI_TYPE_ID)
96 ) then
97 null;
98 else
99 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
100 app_exception.raise_exception;
101 end if;
102
103 return;
104 end LOCK_ROW;
105
106 procedure UPDATE_ROW (
107 X_CI_IMPACT_TYPE_USAGE_ID in NUMBER,
108 X_IMPACT_TYPE_CODE_ORDER IN NUMBER
109 ) is
110 begin
111 update PA_CI_IMPACT_TYPE_USAGE set
112 IMPACT_TYPE_CODE_ORDER = X_IMPACT_TYPE_CODE_ORDER
113 where CI_IMPACT_TYPE_USAGE_ID = X_CI_IMPACT_TYPE_USAGE_ID;
114
115 if (sql%notfound) then
116 raise no_data_found;
117 end if;
118
119 end UPDATE_ROW;
120
121
122 procedure DELETE_ROW (
123 X_CI_IMPACT_TYPE_USAGE_ID in NUMBER
124 ) is
125 begin
126 delete from PA_CI_IMPACT_TYPE_USAGE
127 where CI_IMPACT_TYPE_USAGE_ID = X_CI_IMPACT_TYPE_USAGE_ID;
128
129 if (sql%notfound) then
130 raise no_data_found;
131 end if;
132 end DELETE_ROW;
133
134
135 end PA_CI_IMPACT_TYPE_USAGE_PKG;