[Home] [Help]
PACKAGE BODY: APPS.PER_OFFER_PARAGRAPHS_PKG
Source
1 package body PER_OFFER_PARAGRAPHS_PKG as
2 /* $Header: hrltrlct.pkb 115.1 1999/11/04 17: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_PARAGRAPH_NO in VARCHAR2,
26 X_BODY_TEXT in VARCHAR2,
27 X_CREATION_DATE in DATE,
28 X_CREATED_BY in VARCHAR2,
29 X_LAST_UPDATE_DATE in DATE,
30 X_LAST_UPDATED_BY in VARCHAR2,
31 X_LAST_UPDATE_LOGIN in NUMBER
32 ) is
33 begin
34 insert into PER_PROPOSAL_OFFER_PARAGRAPHS (
35 PARAGRAPH_NO,
36 BODY_TEXT,
37 CREATION_DATE,
38 CREATED_BY,
39 LAST_UPDATE_DATE,
40 LAST_UPDATED_BY,
41 LAST_UPDATE_LOGIN
42 ) values (
43 X_PARAGRAPH_NO,
44 X_BODY_TEXT,
45 X_CREATION_DATE,
46 X_CREATED_BY,
47 X_LAST_UPDATE_DATE,
48 X_LAST_UPDATED_BY,
49 X_LAST_UPDATE_LOGIN
50 );
51 end INSERT_ROW;
52 --
53 procedure LOCK_ROW (
54 X_PARAGRAPH_NO in VARCHAR2
55 ) is
56 cursor CSR_BODY_TEXT (
57 X_PARAGRAPH_NO in VARCHAR2
58 ) is
59 select PARAGRAPH_NO
60 from PER_PROPOSAL_OFFER_PARAGRAPHS
61 where PARAGRAPH_NO = X_PARAGRAPH_NO
62 for update of PARAGRAPH_NO nowait;
63 RECINFO CSR_BODY_TEXT%rowtype;
64 begin
65 open CSR_BODY_TEXT(X_PARAGRAPH_NO);
66 fetch CSR_BODY_TEXT into RECINFO;
67 if (CSR_BODY_TEXT%notfound) then
68 close CSR_BODY_TEXT;
69 fnd_message.set_name('FND','FORM_RECORD_DELETED');
70 app_exception.raise_exception;
71 end if;
72 close CSR_BODY_TEXT;
73 end LOCK_ROW;
74 --
75 procedure UPDATE_ROW (
76 X_PARAGRAPH_NO in VARCHAR2,
77 X_BODY_TEXT in VARCHAR2,
78 X_LAST_UPDATE_DATE in DATE,
79 X_LAST_UPDATED_BY in VARCHAR2,
80 X_LAST_UPDATE_LOGIN in NUMBER
81 ) is
82 begin
83 update PER_PROPOSAL_OFFER_PARAGRAPHS set
84 BODY_TEXT = X_BODY_TEXT,
85 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
86 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
87 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
88 where PARAGRAPH_NO = X_PARAGRAPH_NO;
89 if (sql%notfound) then
90 raise no_data_found;
91 end if;
92 end UPDATE_ROW;
93 --
94 procedure DELETE_ROW (
95 X_PARAGRAPH_NO in VARCHAR2
96 ) is
97 begin
98 delete from PER_PROPOSAL_OFFER_PARAGRAPHS
99 where PARAGRAPH_NO = X_PARAGRAPH_NO;
100 if (sql%notfound) then
101 raise no_data_found;
102 end if;
103 end DELETE_ROW;
104 --
105 procedure LOAD_ROW (
106 X_PARAGRAPH_NO in VARCHAR2,
107 X_BODY_TEXT in VARCHAR2,
108 X_OWNER in VARCHAR2
109 ) is
110 X_CREATION_DATE DATE;
111 X_CREATED_BY NUMBER;
112 X_LAST_UPDATE_DATE DATE;
113 X_LAST_UPDATED_BY NUMBER;
114 X_LAST_UPDATE_LOGIN NUMBER;
115 begin
116 OWNER_TO_WHO (
117 X_OWNER,
118 X_CREATION_DATE,
119 X_CREATED_BY,
120 X_LAST_UPDATE_DATE,
121 X_LAST_UPDATED_BY,
122 X_LAST_UPDATE_LOGIN
123 );
124 begin
125 UPDATE_ROW (
126 X_PARAGRAPH_NO,
127 X_BODY_TEXT,
128 X_LAST_UPDATE_DATE,
129 X_LAST_UPDATED_BY,
130 X_LAST_UPDATE_LOGIN
131 );
132 exception
133 when no_data_found then
134 INSERT_ROW (
135 X_PARAGRAPH_NO,
136 X_BODY_TEXT,
137 X_CREATION_DATE,
138 X_CREATED_BY,
139 X_LAST_UPDATE_DATE,
140 X_LAST_UPDATED_BY,
141 X_LAST_UPDATE_LOGIN
142 );
143 end;
144 end LOAD_ROW;
145 --
146 procedure TRANSLATE_ROW (
147 X_PARAGRAPH_NO in VARCHAR2,
148 X_BODY_TEXT in VARCHAR2,
149 X_OWNER in VARCHAR2
150 ) is
151 X_CREATION_DATE DATE;
152 X_CREATED_BY NUMBER;
153 X_LAST_UPDATE_DATE DATE;
154 X_LAST_UPDATED_BY NUMBER;
155 X_LAST_UPDATE_LOGIN NUMBER;
156 begin
157 OWNER_TO_WHO (
158 X_OWNER,
159 X_CREATION_DATE,
160 X_CREATED_BY,
161 X_LAST_UPDATE_DATE,
162 X_LAST_UPDATED_BY,
163 X_LAST_UPDATE_LOGIN
164 );
165 update PER_PROPOSAL_OFFER_PARAGRAPHS
166 set BODY_TEXT = X_BODY_TEXT,
167 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
168 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
169 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
170 where PARAGRAPH_NO = X_PARAGRAPH_NO
171 and userenv('LANG') = (Select language_code
172 from FND_LANGUAGES where installed_flag = 'B');
173 end TRANSLATE_ROW;
174 --
175 end PER_OFFER_PARAGRAPHS_PKG;