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.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,
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 ) 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
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 ,
29 				       CREATION_DATE ,
30 				       CREATED_BY ,
31 				       LAST_UPDATE_DATE ,
32 				       LAST_UPDATED_BY,
33 				       LAST_UPDATE_LOGIN
34   ) values (
35 	    X_CI_IMPACT_TYPE_USAGE_ID ,
36 	    x_impact_type_code ,
37 	    x_ci_type_class_code ,
38 	    X_CI_TYPE_ID ,
39 	    nvl(X_CREATION_DATE, sysdate),
40             nvl(X_CREATED_BY, fnd_global.user_id),
41             nvl(X_LAST_UPDATE_DATE, sysdate),
42             nvl(X_LAST_UPDATED_BY, fnd_global.user_id),
43 	    nvl(X_LAST_UPDATE_LOGIN, fnd_global.login_id)
44 	    	    );
45 
46   open c;
47   fetch c into X_ROWID;
48   if (c%notfound) then
49     close c;
50     raise no_data_found;
51   end if;
52   close c;
53 
54 end INSERT_ROW;
55 
56 procedure LOCK_ROW (
57   X_CI_IMPACT_TYPE_USAGE_ID in NUMBER,
58   x_impact_type_code IN varchar2,
59   x_ci_type_class_code IN VARCHAR2,
60   X_CI_TYPE_ID in NUMBER
61 ) is
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 
71 begin
72   open c;
73   fetch c into recinfo;
74   if (c%notfound) then
75     close c;
76     fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
77     app_exception.raise_exception;
78   end if;
79   close c;
80   if (    (recinfo.impact_type_code = x_impact_type_code)
81 	  AND (recinfo.ci_type_class_code = x_ci_type_class_code)
82 	  AND (recinfo.CI_TYPE_ID = X_CI_TYPE_ID)
83   ) then
84     null;
85   else
86     fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
87     app_exception.raise_exception;
88   end if;
89 
90   return;
91 end LOCK_ROW;
92 
93 
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;