1 PACKAGE BODY PA_OBJECT_REGIONS_PKG AS
2 --$Header: PAAPORHB.pls 120.1 2005/07/01 16:58:37 appldev noship $
3
4 procedure INSERT_ROW (
5
6 P_OBJECT_ID in NUMBER,
7 P_OBJECT_TYPE in VARCHAR2,
8 P_PLACEHOLDER_REG_CODE in VARCHAR2,
9 P_REPLACEMENT_REG_CODE in VARCHAR2,
10 P_CREATION_DATE in DATE,
11 P_CREATED_BY in NUMBER,
12 P_LAST_UPDATE_DATE in DATE,
13 P_LAST_UPDATED_BY in NUMBER,
14 P_LAST_UPDATE_LOGIN in NUMBER
15 )
16 is
17 l_rowid ROWID;
18
19 cursor C is select ROWID from PA_OBJECT_REGIONS
20 where object_ID = p_object_id
21 AND object_type = p_object_type
22 AND placeholder_reg_code = P_PLACEHOLDER_REG_CODE ;
23
24 BEGIN
25
26 insert into PA_OBJECT_REGIONS (
27 OBJECT_ID,
28 OBJECT_TYPE,
29 PLACEHOLDER_REG_CODE,
30 REPLACEMENT_REG_CODE,
31 RECORD_VERSION_NUMBER,
32 LAST_UPDATED_BY,
33 CREATED_BY,
34 CREATION_DATE,
35 LAST_UPDATE_DATE,
36 LAST_UPDATE_LOGIN
37 ) VALUES (
38 P_OBJECT_ID,
39 P_OBJECT_TYPE,
40 P_PLACEHOLDER_REG_CODE,
41 P_REPLACEMENT_REG_CODE,
42 1,
43 P_LAST_UPDATED_BY,
44 P_CREATED_BY,
45 P_CREATION_DATE,
46 P_LAST_UPDATE_DATE,
47 P_LAST_UPDATE_LOGIN) ;
48
49 open c;
50 fetch c into l_ROWID;
51 if (c%notfound) then
52 close c;
53 raise no_data_found;
54 end if;
55 close c;
56
57 EXCEPTION
58 WHEN OTHERS THEN -- catch the exceptions here
59 RAISE;
60 END INSERT_ROW;
61
62 procedure UPDATE_ROW (
63 P_OBJECT_ID in NUMBER,
64 P_OBJECT_TYPE in VARCHAR2,
65 P_PLACEHOLDER_REG_CODE in VARCHAR2,
66 P_REPLACEMENT_REG_CODE in VARCHAR2,
67 P_RECORD_VERSION_NUMBER IN NUMBER,
68 P_LAST_UPDATE_DATE in DATE,
69 P_LAST_UPDATED_BY in NUMBER,
70 P_LAST_UPDATE_LOGIN in NUMBER
71 )
72 is
73 begin
74
75 update PA_OBJECT_REGIONS set
76 OBJECT_ID = p_object_id,
77 OBJECT_TYPE = p_object_type,
78 PLACEHOLDER_REG_CODE = P_PLACEHOLDER_REG_CODE,
79 REPLACEMENT_REG_CODE = P_REPLACEMENT_REG_CODE,
80 RECORD_VERSION_NUMBER = record_version_number +1,
81 LAST_UPDATED_BY = P_LAST_UPDATED_BY,
82 LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
83 LAST_UPDATE_LOGIN = P_LAST_UPDATE_LOGIN
84 where object_ID = p_object_id
85 AND object_type = p_object_type
86 AND PLACEHOLDER_REG_CODE = P_PLACEHOLDER_REG_CODE
87 AND record_version_number = Nvl(p_record_version_number, record_version_number);
88
89 if (sql%notfound) then
90 raise no_data_found;
91 --PA_UTILS.Add_Message ( p_app_short_name => 'PA',p_msg_name => 'PA_XC_RECORD_CHANGED');
92 --x_return_status := FND_API.G_RET_STS_ERROR;
93 end if;
94
95 EXCEPTION
96 WHEN OTHERS THEN -- catch the exceptins here
97 -- Set the current program unit name in the error stack
98 --x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
99 RAISE;
100 end UPDATE_ROW;
101
102
103 procedure DELETE_ROW (
104 P_OBJECT_ID in NUMBER,
105 P_OBJECT_TYPE in VARCHAR2,
106 P_PLACEHOLDER_REG_CODE in VARCHAR2
107 --x_return_status OUT VARCHAR2,
108 --x_msg_count OUT NUMBER,
109 --x_msg_data OUT VARCHAR2
110 )
111 is
112 Begin
113 --x_return_status := FND_API.G_RET_STS_SUCCESS;
114
115 DELETE FROM PA_OBJECT_REGIONS
116 where object_ID = p_object_id
117 AND object_type = p_object_type
118 AND PLACEHOLDER_REG_CODE = P_PLACEHOLDER_REG_CODE ;
119
120 EXCEPTION
121 WHEN OTHERS THEN -- catch the exceptins here
122 -- Set the current program unit name in the error stack
123 --x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
124 RAISE;
125 End DELETE_ROW;
126
127 END PA_OBJECT_REGIONS_PKG;