PACKAGE BODY: APPS.PA_OBJECT_DIST_LISTS_PKG

Source

1 PACKAGE BODY PA_OBJECT_DIST_LISTS_PKG AS
2  /* $Header: PATODLHB.pls 115.1 2002/04/09 11:33:36 pkm ship     $ */
3 procedure INSERT_ROW (
4   P_LIST_ID 		in NUMBER,
5   P_OBJECT_TYPE 	in VARCHAR2,
6   P_OBJECT_ID 	        in NUMBER,
7   P_RECORD_VERSION_NUMBER in NUMBER,
8   P_CREATED_BY 		in NUMBER,
9   P_CREATION_DATE 	in DATE,
10   P_LAST_UPDATED_BY 	in NUMBER,
11   P_LAST_UPDATE_DATE 	in DATE,
12   P_LAST_UPDATE_LOGIN 	in NUMBER
13 ) IS
14     CURSOR  c1 IS
15         SELECT rowid
16         FROM   PA_OBJECT_DIST_LISTS
17         WHERE  list_id = p_list_id
18         AND object_type = p_object_type
19         AND object_id   = p_object_id;
20   l_row_id  ROWID;
21  BEGIN
22     Insert into PA_OBJECT_DIST_LISTS (
23       LIST_ID             ,
24       object_type         ,
25       object_id           ,
26       RECORD_VERSION_NUMBER ,
27       CREATED_BY          ,
28       CREATION_DATE       ,
29       LAST_UPDATED_BY     ,
30       LAST_UPDATE_DATE    ,
31       LAST_UPDATE_LOGIN
32   )
33   VALUES
34   (
35      P_LIST_ID		 ,
36      P_OBJECT_TYPE       ,
37      P_OBJECT_ID         ,
38      1                     ,
39      P_CREATED_BY          ,
40      P_CREATION_DATE       ,
41      P_LAST_UPDATED_BY     ,
42      P_LAST_UPDATE_DATE    ,
43      P_LAST_UPDATE_LOGIN
44    ) ;
45  OPEN c1;
46   FETCH c1 INTO l_row_id;
47   IF (c1%NOTFOUND) THEN
48     CLOSE c1;
49     RAISE NO_DATA_FOUND;
50   END IF;
51   CLOSE c1;
52 
53 EXCEPTION
54     WHEN OTHERS THEN -- catch the exceptions here
55         RAISE;
56 END INSERT_ROW;
57 
58 procedure UPDATE_ROW (
59   P_LIST_ID             in NUMBER,
60   P_OBJECT_TYPE         in VARCHAR2,
61   P_OBJECT_ID           in NUMBER,
62   P_RECORD_VERSION_NUMBER in NUMBER,
63   P_LAST_UPDATED_BY     in NUMBER,
64   P_LAST_UPDATE_DATE    in DATE,
65   P_LAST_UPDATE_LOGIN   in NUMBER
66 ) IS
67  BEGIN
68    UPDATE PA_OBJECT_DIST_LISTS
69    SET
70       RECORD_VERSION_NUMBER = nvl(P_RECORD_VERSION_NUMBER,1) + 1,
71       LAST_UPDATED_BY       = P_LAST_UPDATED_BY,
72       LAST_UPDATE_DATE      = P_LAST_UPDATE_DATE,
73       LAST_UPDATE_LOGIN     = P_LAST_UPDATE_LOGIN
74    WHERE LIST_ID     = P_LIST_ID
75    AND   OBJECT_TYPE = P_OBJECT_TYPE
76    AND   OBJECT_ID   = P_OBJECT_ID;
77  EXCEPTION
78     WHEN OTHERS THEN -- catch the exceptins here
79         RAISE;
80  END UPDATE_ROW;
81 
82 procedure DELETE_ROW (
83 		      P_LIST_ID     in NUMBER,
84   		      P_OBJECT_TYPE in VARCHAR2,
85   		      P_OBJECT_ID   in NUMBER
86                       )
87  IS
88  BEGIN
89    DELETE FROM PA_OBJECT_DIST_LISTS
90    WHERE LIST_ID = P_LIST_ID
91    AND   OBJECT_TYPE = P_OBJECT_TYPE
92    AND   OBJECT_ID   = P_OBJECT_ID;
93 
94  EXCEPTION
95     WHEN OTHERS THEN
96         RAISE;
97  END DELETE_ROW;
98 
99 END  PA_OBJECT_DIST_LISTS_PKG;