[Home] [Help]
PACKAGE BODY: APPS.PA_REPORT_TYPES_PKG
Source
1 PACKAGE BODY PA_REPORT_TYPES_PKG AS
2 --$Header: PARTYPHB.pls 120.1 2005/08/19 17:02:24 mwasowic noship $
3
4
5 procedure INSERT_ROW (
6 P_NAME IN VARCHAR2,
7 P_PAGE_ID IN NUMBER,
8 P_OVERRIDE_PAGE_LAYOUT IN VARCHAR2,
9 P_DESCRIPTION IN VARCHAR2,
10 P_GENERATION_METHOD IN VARCHAR2,
11 P_START_DATE_ACTIVE IN DATE,
12 P_END_DATE_ACTIVE IN DATE,
13 p_LAST_UPDATED_BY IN NUMBER,
14 p_CREATED_BY IN NUMBER,
15 p_LAST_UPDATE_LOGIN IN NUMBER,
16 x_report_type_id OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
17 )
18 IS
19
20 l_row_id ROWID;
21
22 CURSOR c1 IS
23 SELECT rowid
24 FROM pa_report_Types
25 WHERE report_type_id = x_report_type_id;
26
27 begin
28
29 insert into PA_REPORT_TYPES (
30 REPORT_TYPE_ID,
31 NAME,
32 PAGE_ID,
33 OVERRIDE_PAGE_LAYOUT,
34 DESCRIPTION,
35 GENERATION_METHOD,
36 START_DATE_active,
37 END_DATE_active,
38 RECORD_VERSION_NUMBER,
39 CREATION_DATE,
40 LAST_UPDATE_DATE,
41 LAST_UPDATED_BY,
42 CREATED_BY,
43 LAST_UPDATE_LOGIN)
44 VALUES
45 (
46 pa_report_types_s.NEXTVAL,
47 P_NAME,
48 P_PAGE_ID,
49 P_OVERRIDE_PAGE_LAYOUT,
50 P_DESCRIPTION,
51 P_GENERATION_METHOD,
52 P_START_DATE_ACTIVE,
53 P_END_DATE_ACTIVE,
54 1,
55 sysdate,
56 sysdate,
57 p_LAST_UPDATED_BY,
58 p_CREATED_BY,
59 p_LAST_UPDATE_LOGIN) returning report_type_id INTO x_report_type_id;
60
61 OPEN c1;
62 FETCH c1 INTO l_row_id;
63 IF (c1%NOTFOUND) THEN
64 CLOSE c1;
65 RAISE NO_DATA_FOUND;
66 END IF;
67 CLOSE c1;
68
69 EXCEPTION
70 WHEN OTHERS THEN -- catch the exceptions here
71 RAISE;
72 end INSERT_ROW;
73
74 procedure UPDATE_ROW (
75 P_REPORT_TYPE_ID IN NUMBER,
76 P_NAME IN VARCHAR2,
77 P_PAGE_ID IN NUMBER,
78 P_OVERRIDE_PAGE_LAYOUT IN VARCHAR2,
79 P_DESCRIPTION IN VARCHAR2,
80 P_GENERATION_METHOD IN VARCHAR2,
81 P_START_DATE_ACTIVE IN DATE,
82 P_END_DATE_ACTIVE IN DATE,
83 P_RECORD_VERSION_NUMBER IN NUMBER,
84 P_Last_Updated_By IN NUMBER,
85 P_LAST_UPDATE_LOGIN IN NUMBER,
86 x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
87 ) is
88 BEGIN
89
90 x_return_status := FND_API.G_RET_STS_SUCCESS;
91 update PA_REPORT_TYPES set
92 NAME = decode(P_NAME,'^',name,p_name),
93 PAGE_ID = decode(p_page_id,'-99',page_id,p_page_id),
94 OVERRIDE_PAGE_LAYOUT = decode(p_OVERRIDE_PAGE_LAYOUT,'^',OVERRIDE_PAGE_LAYOUT,p_OVERRIDE_PAGE_LAYOUT),
95 DESCRIPTION = decode(P_DESCRIPTION,'^',DESCRIPTION,P_DESCRIPTION),
96 GENERATION_METHOD = P_GENERATION_METHOD,
97 START_DATE_active = P_START_DATE_ACTIVE,
98 END_DATE_active = P_END_DATE_ACTIVE,
99 RECORD_VERSION_NUMBER = p_record_version_number + 1,
100
101 LAST_UPDATED_BY = P_Last_Updated_By,
102 LAST_UPDATE_DATE = sysdate,
103 LAST_UPDATE_LOGIN = P_LAST_UPDATE_LOGIN
104 where REPORT_TYPE_ID = p_report_type_id;
105
106
107 if (sql%notfound) then
108 PA_UTILS.Add_Message ( p_app_short_name => 'PA',p_msg_name => 'PA_XC_RECORD_CHANGED');
109 x_return_status := FND_API.G_RET_STS_ERROR;
110 RETURN;
111 end if;
112
113 EXCEPTION
114 WHEN OTHERS THEN -- catch the exceptins here
115 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
116 RAISE;
117
118 end UPDATE_ROW;
119
120 procedure DELETE_ROW (
121 P_REPORT_TYPE_ID in NUMBER,
122 P_RECORD_VERSION_NUMBER in NUMBER,
123
124 x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
125 ) is
126 BEGIN
127
128 x_return_status := FND_API.G_RET_STS_SUCCESS;
129
130 delete from PA_REPORT_TYPES
131 where REPORT_TYPE_ID = p_report_type_id
132 AND nvl(p_record_version_number, record_version_number) = record_version_number;
133
134
135 IF (SQL%NOTFOUND) THEN
136 PA_UTILS.Add_Message ( p_app_short_name => 'PA', p_msg_name => 'PA_XC_RECORD_CHANGED');
137 x_return_status := FND_API.G_RET_STS_ERROR;
138 RETURN;
139 END IF;
140
141 EXCEPTION
142 WHEN OTHERS THEN
143 -- Set the current program unit name in the error stack
144 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
145 RAISE;
146 end DELETE_ROW;
147
148
149 END PA_REPORT_TYPES_PKG;