DBA Data[Home] [Help]

PACKAGE BODY: APPS.PAY_CUST_RESTRICT_PKG

Source


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;