DBA Data[Home] [Help]

PACKAGE BODY: APPS.PA_ALLOC_RESOURCES_PKG

Source


1 package body PA_ALLOC_RESOURCES_PKG AS
2  /* $Header: PAXATRSB.pls 120.2 2005/08/19 16:18:57 ramurthy noship $  */
3 procedure INSERT_ROW (
4   X_ROWID 			in out NOCOPY VARCHAR2,
5   X_RULE_ID 			in NUMBER,
6   X_MEMBER_TYPE 		in VARCHAR2,
7   X_RESOURCE_LIST_MEMBER_ID 	in NUMBER,
8   X_EXCLUDE_FLAG 		in VARCHAR2,
9   X_TARGET_EXPND_TYPE 		in VARCHAR2,
10   X_OFFSET_EXPND_TYPE 		in VARCHAR2,
11   X_RESOURCE_PERCENTAGE 	in NUMBER,
12   X_CREATED_BY			in NUMBER,
13   X_CREATION_DATE		in DATE,
14   X_LAST_UPDATE_DATE		in DATE,
15   X_LAST_UPDATED_BY		in NUMBER,
16   X_LAST_UPDATE_LOGIN		in NUMBER
17   ) is
18     cursor C is select ROWID from PA_ALLOC_RESOURCES
19       where RULE_ID = X_RULE_ID
20       and MEMBER_TYPE = X_MEMBER_TYPE
21       and RESOURCE_LIST_MEMBER_ID = X_RESOURCE_LIST_MEMBER_ID;
22 
23 begin
24 
25   insert into PA_ALLOC_RESOURCES (
26     RULE_ID,
27     MEMBER_TYPE,
28     RESOURCE_LIST_MEMBER_ID,
29     EXCLUDE_FLAG,
30     TARGET_EXPND_TYPE,
31     OFFSET_EXPND_TYPE,
32     RESOURCE_PERCENTAGE,
33     CREATION_DATE,
34     CREATED_BY,
35     LAST_UPDATE_DATE,
36     LAST_UPDATED_BY,
37     LAST_UPDATE_LOGIN
38   ) values (
39     X_RULE_ID,
40     X_MEMBER_TYPE,
41     X_RESOURCE_LIST_MEMBER_ID,
42     X_EXCLUDE_FLAG,
43     X_TARGET_EXPND_TYPE,
44     X_OFFSET_EXPND_TYPE,
45     X_RESOURCE_PERCENTAGE,
46     X_CREATION_DATE,
47     X_CREATED_BY,
48     X_LAST_UPDATE_DATE,
49     X_LAST_UPDATED_BY,
50     X_LAST_UPDATE_LOGIN
51   );
52 
53   open c;
54   fetch c into X_ROWID;
55   if (c%notfound) then
56     close c;
57     raise no_data_found;
58   end if;
59   close c;
60 
61 end INSERT_ROW;
62 
63 procedure LOCK_ROW (
64   X_RULE_ID 			in NUMBER,
65   X_MEMBER_TYPE 		in VARCHAR2,
66   X_RESOURCE_LIST_MEMBER_ID 	in NUMBER,
67   X_EXCLUDE_FLAG 		in VARCHAR2,
68   X_TARGET_EXPND_TYPE 		in VARCHAR2,
69   X_OFFSET_EXPND_TYPE 		in VARCHAR2,
70   X_RESOURCE_PERCENTAGE 	in NUMBER
71 ) is
72   cursor c1 is select
73       EXCLUDE_FLAG,
74       TARGET_EXPND_TYPE,
75       OFFSET_EXPND_TYPE,
76       RESOURCE_PERCENTAGE
77     from PA_ALLOC_RESOURCES
78     where RULE_ID = X_RULE_ID
79     and MEMBER_TYPE = X_MEMBER_TYPE
80     and RESOURCE_LIST_MEMBER_ID = X_RESOURCE_LIST_MEMBER_ID
81     for update of RULE_ID nowait;
82   tlinfo c1%rowtype;
83 
84 begin
85   open c1;
86   fetch c1 into tlinfo;
87   if (c1%notfound) then
88     fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
89     app_exception.raise_exception;
90     close c1;
91     return;
92   end if;
93   close c1;
94 
95   if ( (tlinfo.EXCLUDE_FLAG = X_EXCLUDE_FLAG)
96       AND ((tlinfo.TARGET_EXPND_TYPE = X_TARGET_EXPND_TYPE)
97            OR ((tlinfo.TARGET_EXPND_TYPE is null)
98                AND (X_TARGET_EXPND_TYPE is null)))
99       AND ((tlinfo.OFFSET_EXPND_TYPE = X_OFFSET_EXPND_TYPE)
100            OR ((tlinfo.OFFSET_EXPND_TYPE is null)
101                AND (X_OFFSET_EXPND_TYPE is null)))
102       AND ((tlinfo.RESOURCE_PERCENTAGE = X_RESOURCE_PERCENTAGE)
103            OR ((tlinfo.RESOURCE_PERCENTAGE is null)
104                AND (X_RESOURCE_PERCENTAGE is null)))
105   ) then
106     null;
107   else
108     fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
109     app_exception.raise_exception;
110   end if;
111   return;
112 end LOCK_ROW;
113 
114 procedure UPDATE_ROW (
115   X_ROWID 			in varchar2,
116   X_RULE_ID 			in NUMBER,
117   X_MEMBER_TYPE 		in VARCHAR2,
118   X_RESOURCE_LIST_MEMBER_ID 	in NUMBER,
119   X_EXCLUDE_FLAG 		in VARCHAR2,
120   X_TARGET_EXPND_TYPE 		in VARCHAR2,
121   X_OFFSET_EXPND_TYPE 		in VARCHAR2,
122   X_RESOURCE_PERCENTAGE 	in NUMBER,
123   X_LAST_UPDATE_DATE		in DATE,
124   X_LAST_UPDATED_BY		in NUMBER,
125   X_LAST_UPDATE_LOGIN		in NUMBER
126   )
127 is
128 
129 begin
130 
131   update PA_ALLOC_RESOURCES set
132     RESOURCE_LIST_MEMBER_ID = X_RESOURCE_LIST_MEMBER_ID,
133     EXCLUDE_FLAG = X_EXCLUDE_FLAG,
134     TARGET_EXPND_TYPE = X_TARGET_EXPND_TYPE,
135     OFFSET_EXPND_TYPE = X_OFFSET_EXPND_TYPE,
136     RESOURCE_PERCENTAGE = X_RESOURCE_PERCENTAGE,
137     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
138     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
139     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
140   where ROWID = X_ROWID;
141 
142   if (sql%notfound) then
143     raise no_data_found;
144   end if;
145 end UPDATE_ROW;
146 
147 procedure DELETE_ROW (X_ROWID in varchar2
148 ) is
149 begin
150   delete from PA_ALLOC_RESOURCES
151   where ROWID = X_ROWID;
152   if (sql%notfound) then
153     raise no_data_found;
154   end if;
155 end DELETE_ROW;
156 
157 end PA_ALLOC_RESOURCES_PKG;