31: and pcr.name = P_NAME
32: and pcr.legislation_code = P_LEGISLATION_CODE;
33: CURSOR C1 IS
34: select 1
35: from PAY_RESTRICTION_VALUES prv
36: where prv.customized_restriction_id = l_cr_id
37: and prv.restriction_code = P_RESTRICTION_CODE
38: and prv.value = P_VALUE
39: and (P_ROWID is null
88: (X_LEGISLATION_CODE is not null
89: and pcr.legislation_code = X_LEGISLATION_CODE));
90: cursor C is
91: select ROWID
92: from PAY_RESTRICTION_VALUES prv
93: where prv.customized_restriction_id = l_cr_id
94: and prv.value = X_VALUE
95: and prv.restriction_code = X_RESTRICTION_CODE
96: ;
100: close C_APPL;
101: open C_CR_ID;
102: fetch C_CR_ID into l_cr_id;
103: close C_CR_ID;
104: insert into PAY_RESTRICTION_VALUES (
105: CUSTOMIZED_RESTRICTION_ID,
106: RESTRICTION_CODE,
107: VALUE,
108: CREATION_DATE,
156: and nvl(pcr.legislation_code,'XXX') = nvl(X_LEGISLATION_CODE,'XXX');
157: cursor c is select
158: RESTRICTION_CODE,
159: VALUE
160: from PAY_RESTRICTION_VALUES prv
161: where prv.CUSTOMIZED_RESTRICTION_ID = l_cr_id
162: and prv.value = X_VALUE
163: and prv.restriction_code = X_RESTRICTION_CODE
164: for update of VALUE nowait;
225: close C_APPL;
226: open C_CR_ID;
227: fetch C_CR_ID into l_cr_id;
228: close C_CR_ID;
229: update PAY_RESTRICTION_VALUES set
230: RESTRICTION_CODE = X_RESTRICTION_CODE_NEW ,
231: VALUE = X_VALUE_NEW,
232: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
233: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
272: open C_CR_ID;
273: fetch C_CR_ID into l_cr_id;
274: close C_CR_ID;
275:
276: delete from PAY_RESTRICTION_VALUES
277: where CUSTOMIZED_RESTRICTION_ID = l_cr_id
278: and value = X_VALUE
279: and restriction_code = X_RESTRICTION_CODE;
280:
295: )
296: is
297: l_proc VARCHAR2(61) := 'PER_RESTR_VALUES_PKG.LOAD_ROW';
298: l_rowid rowid;
299: l_created_by PAY_RESTRICTION_VALUES.created_by%TYPE := 0;
300: l_creation_date PAY_RESTRICTION_VALUES.creation_date%TYPE := SYSDATE;
301: l_last_update_date PAY_RESTRICTION_VALUES.last_update_date%TYPE := SYSDATE;
302: l_last_updated_by PAY_RESTRICTION_VALUES.last_updated_by%TYPE := 0;
303: l_last_update_login PAY_RESTRICTION_VALUES.last_update_login%TYPE := 0;
296: is
297: l_proc VARCHAR2(61) := 'PER_RESTR_VALUES_PKG.LOAD_ROW';
298: l_rowid rowid;
299: l_created_by PAY_RESTRICTION_VALUES.created_by%TYPE := 0;
300: l_creation_date PAY_RESTRICTION_VALUES.creation_date%TYPE := SYSDATE;
301: l_last_update_date PAY_RESTRICTION_VALUES.last_update_date%TYPE := SYSDATE;
302: l_last_updated_by PAY_RESTRICTION_VALUES.last_updated_by%TYPE := 0;
303: l_last_update_login PAY_RESTRICTION_VALUES.last_update_login%TYPE := 0;
304: begin
297: l_proc VARCHAR2(61) := 'PER_RESTR_VALUES_PKG.LOAD_ROW';
298: l_rowid rowid;
299: l_created_by PAY_RESTRICTION_VALUES.created_by%TYPE := 0;
300: l_creation_date PAY_RESTRICTION_VALUES.creation_date%TYPE := SYSDATE;
301: l_last_update_date PAY_RESTRICTION_VALUES.last_update_date%TYPE := SYSDATE;
302: l_last_updated_by PAY_RESTRICTION_VALUES.last_updated_by%TYPE := 0;
303: l_last_update_login PAY_RESTRICTION_VALUES.last_update_login%TYPE := 0;
304: begin
305: -- Translate developer keys to internal parameters
298: l_rowid rowid;
299: l_created_by PAY_RESTRICTION_VALUES.created_by%TYPE := 0;
300: l_creation_date PAY_RESTRICTION_VALUES.creation_date%TYPE := SYSDATE;
301: l_last_update_date PAY_RESTRICTION_VALUES.last_update_date%TYPE := SYSDATE;
302: l_last_updated_by PAY_RESTRICTION_VALUES.last_updated_by%TYPE := 0;
303: l_last_update_login PAY_RESTRICTION_VALUES.last_update_login%TYPE := 0;
304: begin
305: -- Translate developer keys to internal parameters
306: if X_OWNER = 'SEED' then
299: l_created_by PAY_RESTRICTION_VALUES.created_by%TYPE := 0;
300: l_creation_date PAY_RESTRICTION_VALUES.creation_date%TYPE := SYSDATE;
301: l_last_update_date PAY_RESTRICTION_VALUES.last_update_date%TYPE := SYSDATE;
302: l_last_updated_by PAY_RESTRICTION_VALUES.last_updated_by%TYPE := 0;
303: l_last_update_login PAY_RESTRICTION_VALUES.last_update_login%TYPE := 0;
304: begin
305: -- Translate developer keys to internal parameters
306: if X_OWNER = 'SEED' then
307: l_created_by := 1;