1 PACKAGE BODY PAY_CUST_RESTRICT_PKG AS
2 /* $Header: pecrs01t.pkb 115.1 99/07/17 18:52:11 porting ship $ */
3 PROCEDURE UNIQUENESS_CHECK(P_CUSTOMIZED_RESTRICTION_ID IN OUT NUMBER,
4 P_BUSINESS_GROUP_ID NUMBER,
5 P_LEGISLATION_CODE VARCHAR2,
6
7 P_NAME VARCHAR2,
8 P_ROWID VARCHAR2,
9 P_MODE VARCHAR2) IS
10 L_DUMMY VARCHAR2(1);
11 CURSOR C_C1 IS
12 SELECT 1
13
14 FROM PAY_CUSTOMIZED_RESTRICTIONS PCR
15 WHERE UPPER(PCR.NAME) = UPPER(P_NAME)
16
17 AND nvl(PCR.business_group_id, nvl(P_BUSINESS_GROUP_ID, -9999) )
18 = nvl(P_BUSINESS_GROUP_ID, -9999)
19 AND nvl(PCR.legislation_code, nvl(P_LEGISLATION_CODE, 'XXX') )
20 = nvl(P_LEGISLATION_CODE, 'XXX')
21 AND (PCR.ROWID <> P_ROWID OR P_ROWID IS NULL);
22
23
24 CURSOR C_NEXTVAL IS
25 SELECT PAY_CUSTOMIZED_RESTRICTIONS_S.NEXTVAL
26 FROM SYS.DUAL;
27 BEGIN
28 OPEN C_C1;
29 FETCH C_C1 INTO L_DUMMY;
30 IF C_C1%FOUND THEN
31 CLOSE C_C1;
32 HR_UTILITY.SET_MESSAGE('801','HR_6030_CUST_UNIQUE_NAME');
33 HR_UTILITY.RAISE_ERROR;
34 ELSE
35 CLOSE C_C1;
36 IF P_MODE = 'WVI' THEN /* if the package is called from WVI do not */
37 RETURN; /* select from sequence */
38 END IF;
39 OPEN C_NEXTVAL;
40 FETCH C_NEXTVAL INTO P_CUSTOMIZED_RESTRICTION_ID;
41 CLOSE C_NEXTVAL;
42 END IF;
43 END UNIQUENESS_CHECK;
44 PROCEDURE POST_QUERY(P_DISP_FORM_NAME IN OUT VARCHAR2,
45 P_FORM_NAME VARCHAR2,
46 P_APPLICATION_ID NUMBER) IS
47 CURSOR C_FORM IS
48 SELECT F.USER_FORM_NAME
49 FROM FND_FORM_VL F
50 WHERE F.FORM_NAME = P_FORM_NAME
51 AND F.APPLICATION_ID = P_APPLICATION_ID;
52 BEGIN
53 OPEN C_FORM;
54 FETCH C_FORM INTO P_DISP_FORM_NAME;
55 CLOSE C_FORM;
56 END POST_QUERY;
57 END PAY_CUST_RESTRICT_PKG;