PACKAGE BODY: APPS.PA_EVENT_TYPE_OUS_PKG

Source

1 PACKAGE BODY PA_EVENT_TYPE_OUS_PKG as
2 /* $Header: PAXETOUB.pls 120.1 2005/08/19 17:13:24 mwasowic noship $ */
3 
4    PROCEDURE Insert_Row(X_Rowid                   IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
5                        X_Event_Type                     VARCHAR2,
6                        X_Output_tax_code                VARCHAR2,
7                        X_ORG_ID                         NUMBER,
8                        X_Last_Update_Date               DATE,
9                        X_Last_Updated_By                NUMBER,
10                        X_Creation_Date                  DATE,
11                        X_Created_By                     NUMBER,
12                        X_Last_Update_Login              NUMBER
13   ) IS
14 
15    BEGIN
16 
17       INSERT INTO PA_EVENT_TYPE_OUS_ALL
18       ( EVENT_TYPE,
19         OUTPUT_TAX_CLASSIFICATION_CODE,
20         LAST_UPDATE_DATE,
21         CREATION_DATE,
22         LAST_UPDATED_BY,
23         CREATED_BY,
24         LAST_UPDATE_LOGIN,
25         ORG_ID
26       )
27       VALUES
28       ( X_Event_Type,
29         X_OUTPUT_TAX_CODE,
30         X_Last_Update_Date,
31         X_Creation_Date,
32         X_Last_Updated_By,
33         X_Created_By,
34         X_Last_Update_Login,
35         X_ORG_ID );
36 
37   END Insert_Row;
38 
39 
40   PROCEDURE Lock_Row(X_Rowid                            VARCHAR2,
41                      X_Event_Type                       VARCHAR2,
42                      X_Output_tax_code                  VARCHAR2,
43                      X_ORG_ID                           NUMBER
44   ) IS
45     --hsiu: modified cursor
46     CURSOR C IS
47         SELECT EOUS.EVENT_TYPE,
48                EOUS.OUTPUT_TAX_CLASSIFICATION_CODE OUTPUT_TAX_CODE,
49                EOUS.ORG_ID
50         FROM   PA_EVENT_TYPE_OUS_ALL EOUS
51         WHERE  EOUS.rowid = RTRIM(X_Rowid)
52         FOR UPDATE of EOUS.OUTPUT_TAX_CLASSIFICATION_CODE NOWAIT;
53 
54     Recinfo C%ROWTYPE;
55 
56 
57   BEGIN
58     OPEN C;
59     FETCH C INTO Recinfo;
60     if (C%NOTFOUND) then
61       CLOSE C;
62       FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
63       APP_EXCEPTION.Raise_Exception;
64     end if;
65 
66     if (  RTRIM(Recinfo.event_type) =  RTRIM(X_Event_Type)
67            AND rtrim(Recinfo.output_tax_code) =  rtrim(X_Output_tax_code)
68            AND recinfo.org_id =X_oRG_ID)
69        then
70     CLOSE C;
71       return;
72     else
73     CLOSE C;
74       FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
75       APP_EXCEPTION.Raise_Exception;
76     end if;
77   END Lock_Row;
78 
79 
80 
81   PROCEDURE Update_Row(X_Rowid                          VARCHAR2,
82                        X_Event_Type                     VARCHAR2,
83                        X_Output_tax_code                VARCHAR2,
84                        X_ORG_ID                         NUMBER,
85                        X_Last_Update_Date               DATE,
86                        X_Last_Updated_By                NUMBER,
87                        X_Last_Update_Login              NUMBER
88  ) IS
89 
90     L_TAX_ID            NUMBER;
91     L_ORG_ID            NUMBER;
92 
93   BEGIN
94 
95     UPDATE PA_EVENT_TYPE_OUS_ALL
96     SET    OUTPUT_TAX_CLASSIFICATION_CODE = x_output_tax_code,
97            LAST_UPDATE_DATE    = X_Last_Update_Date,
98            LAST_UPDATED_BY     = X_Last_Updated_By,
99            LAST_UPDATE_LOGIN   = X_Last_Update_Login
100     WHERE  EVENT_TYPE          = X_Event_Type
101       AND  ORG_ID              = X_ORG_ID;
102 
103   END Update_Row;
104 
105   PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
106   BEGIN               /* Rearranged the DELETE statements for bug 3182079 */
107    BEGIN
108      /*       Delete record from PA_EVENT_TYPE_OUS  */
109            DELETE FROM PA_EVENT_TYPE_OUS_ALL
110            WHERE  ROWID = X_ROWID;
111 
112            EXCEPTION
113            WHEN NO_DATA_FOUND THEN
114                null;
115            WHEN OTHERS THEN
116                raise ;
117    END;
118   END Delete_Row;
119 
120 END PA_EVENT_TYPE_OUS_PKG;