[Home] [Help]
PACKAGE BODY: APPS.PER_PROPOSAL_TEMPLATES_PKG
Source
1 package body PER_PROPOSAL_TEMPLATES_PKG as
2 /* $Header: hruptlct.pkb 115.2 1999/11/09 15:05:20 pkm ship $ */
3 procedure OWNER_TO_WHO (
4 X_OWNER in VARCHAR2,
5 X_CREATION_DATE out DATE,
6 X_CREATED_BY out NUMBER,
7 X_LAST_UPDATE_DATE out DATE,
8 X_LAST_UPDATED_BY out NUMBER,
9 X_LAST_UPDATE_LOGIN out NUMBER
10 ) is
11 begin
12 if X_OWNER = 'SEED' then
13 X_CREATED_BY := 1;
14 X_LAST_UPDATED_BY := 1;
15 else
16 X_CREATED_BY := 0;
17 X_LAST_UPDATED_BY := 0;
18 end if;
19 X_CREATION_DATE := sysdate;
20 X_LAST_UPDATE_DATE := sysdate;
21 X_LAST_UPDATE_LOGIN := 0;
22 end OWNER_TO_WHO;
23 --
24 procedure INSERT_ROW (
25 X_PROPOSAL_TEMPLATE_ID in NUMBER,
26 X_PROPOSAL_NAME in VARCHAR2,
27 X_DESCRIPTION in VARCHAR2,
28 X_TYPE in VARCHAR2,
29 X_CREATION_DATE in DATE,
30 X_CREATED_BY in VARCHAR2,
31 X_LAST_UPDATE_DATE in DATE,
32 X_LAST_UPDATED_BY in VARCHAR2,
33 X_LAST_UPDATE_LOGIN in NUMBER
34 ) is
35 begin
36 insert into PER_PROPOSAL_TEMPLATES (
37 PROPOSAL_TEMPLATE_ID,
38 PROPOSAL_NAME,
39 DESCRIPTION,
40 TYPE,
41 CREATION_DATE,
42 CREATED_BY,
43 LAST_UPDATE_DATE,
44 LAST_UPDATED_BY,
45 LAST_UPDATE_LOGIN
46 ) values (
47 X_PROPOSAL_TEMPLATE_ID,
48 X_PROPOSAL_NAME,
49 X_DESCRIPTION,
50 X_TYPE,
51 X_CREATION_DATE,
52 X_CREATED_BY,
53 X_LAST_UPDATE_DATE,
54 X_LAST_UPDATED_BY,
55 X_LAST_UPDATE_LOGIN
56 );
57 end INSERT_ROW;
58 --
59 procedure LOCK_ROW (
60 X_PROPOSAL_TEMPLATE_ID in NUMBER
61 ) is
62 cursor CSR_PROPOSAL_NAME (
63 X_PROPOSAL_TEMPLATE_ID in NUMBER
64 ) is
65 select PROPOSAL_NAME
66 from PER_PROPOSAL_TEMPLATES
67 where PROPOSAL_TEMPLATE_ID = X_PROPOSAL_TEMPLATE_ID
68 for update of PROPOSAL_NAME nowait;
69 RECINFO CSR_PROPOSAL_NAME%rowtype;
70 begin
71 open CSR_PROPOSAL_NAME(X_PROPOSAL_TEMPLATE_ID);
72 fetch CSR_PROPOSAL_NAME into RECINFO;
73 if (CSR_PROPOSAL_NAME%notfound) then
74 close CSR_PROPOSAL_NAME;
75 fnd_message.set_name('FND','FORM_RECORD_DELETED');
76 app_exception.raise_exception;
77 end if;
78 close CSR_PROPOSAL_NAME;
79 end LOCK_ROW;
80 --
81 procedure UPDATE_ROW (
82 X_PROPOSAL_TEMPLATE_ID in NUMBER,
83 X_PROPOSAL_NAME in VARCHAR2,
84 X_DESCRIPTION in VARCHAR2,
85 X_TYPE in VARCHAR2,
86 X_LAST_UPDATE_DATE in DATE,
87 X_LAST_UPDATED_BY in VARCHAR2,
88 X_LAST_UPDATE_LOGIN in NUMBER
89 ) is
90 begin
91 update PER_PROPOSAL_TEMPLATES set
92 PROPOSAL_NAME = X_PROPOSAL_NAME,
93 DESCRIPTION = X_DESCRIPTION,
94 TYPE = X_TYPE,
95 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
96 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
97 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
98 where PROPOSAL_TEMPLATE_ID = X_PROPOSAL_TEMPLATE_ID;
99 if (sql%notfound) then
100 raise no_data_found;
101 end if;
102 end UPDATE_ROW;
103 --
104 procedure DELETE_ROW (
105 X_PROPOSAL_TEMPLATE_ID in NUMBER
106 ) is
107 begin
108 delete from PER_PROPOSAL_TEMPLATES
109 where PROPOSAL_TEMPLATE_ID = X_PROPOSAL_TEMPLATE_ID;
110 if (sql%notfound) then
111 raise no_data_found;
112 end if;
113 end DELETE_ROW;
114 --
115 procedure LOAD_ROW (
116 X_PROPOSAL_TEMPLATE_ID in NUMBER,
117 X_PROPOSAL_NAME in VARCHAR2,
118 X_DESCRIPTION in VARCHAR2,
119 X_TYPE in VARCHAR2,
120 X_OWNER in VARCHAR2
121 ) is
122 X_CREATION_DATE DATE;
123 X_CREATED_BY NUMBER;
124 X_LAST_UPDATE_DATE DATE;
125 X_LAST_UPDATED_BY NUMBER;
126 X_LAST_UPDATE_LOGIN NUMBER;
127 begin
128 OWNER_TO_WHO (
129 X_OWNER,
130 X_CREATION_DATE,
131 X_CREATED_BY,
132 X_LAST_UPDATE_DATE,
133 X_LAST_UPDATED_BY,
134 X_LAST_UPDATE_LOGIN
135 );
136 begin
137 UPDATE_ROW (
138 X_PROPOSAL_TEMPLATE_ID,
139 X_PROPOSAL_NAME,
140 X_DESCRIPTION,
141 X_TYPE,
142 X_LAST_UPDATE_DATE,
143 X_LAST_UPDATED_BY,
144 X_LAST_UPDATE_LOGIN
145 );
146 exception
147 when no_data_found then
148 INSERT_ROW (
149 X_PROPOSAL_TEMPLATE_ID,
150 X_PROPOSAL_NAME,
151 X_DESCRIPTION,
152 X_TYPE,
153 X_CREATION_DATE,
154 X_CREATED_BY,
155 X_LAST_UPDATE_DATE,
156 X_LAST_UPDATED_BY,
157 X_LAST_UPDATE_LOGIN
158 );
159 end;
160 end LOAD_ROW;
161 --
162 procedure TRANSLATE_ROW (
163 X_PROPOSAL_TEMPLATE_ID in NUMBER,
164 X_PROPOSAL_NAME in VARCHAR2,
165 X_DESCRIPTION in VARCHAR2,
166 X_OWNER in VARCHAR2
167 ) is
168 X_CREATION_DATE DATE;
169 X_CREATED_BY NUMBER;
170 X_LAST_UPDATE_DATE DATE;
171 X_LAST_UPDATED_BY NUMBER;
172 X_LAST_UPDATE_LOGIN NUMBER;
173 begin
174 OWNER_TO_WHO (
175 X_OWNER,
176 X_CREATION_DATE,
177 X_CREATED_BY,
178 X_LAST_UPDATE_DATE,
179 X_LAST_UPDATED_BY,
180 X_LAST_UPDATE_LOGIN
181 );
182 update PER_PROPOSAL_TEMPLATES
183 set PROPOSAL_NAME = X_PROPOSAL_NAME,
184 DESCRIPTION = X_DESCRIPTION,
185 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
186 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
187 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
188 where PROPOSAL_TEMPLATE_ID = X_PROPOSAL_TEMPLATE_ID
189 and userenv('LANG') = (Select language_code
190 from FND_LANGUAGES where installed_flag = 'B');
191 end TRANSLATE_ROW;
192 --
193 end PER_PROPOSAL_TEMPLATES_PKG;