PACKAGE BODY: APPS.PA_CI_COMMENTS_PKG

Source

1 PACKAGE BODY PA_CI_COMMENTS_PKG AS
2 /* $Header: PACICOTB.pls 120.2 2005/08/22 05:10:59 sukhanna noship $ */
3 
4 
5 
6 procedure INSERT_ROW (
7     P_CI_COMMENT_ID             out NOCOPY NUMBER, --File.Sql.39 bug 4440895
8     P_CI_ID                     in NUMBER,
9     P_TYPE_CODE                 in VARCHAR2,
10     P_COMMENT_TEXT              in VARCHAR2,
11     P_LAST_UPDATED_BY		    in NUMBER,
12     P_CREATED_BY			    in NUMBER,
13     P_CREATION_DATE			    in DATE,
14     P_LAST_UPDATE_DATE		    in DATE,
15     P_LAST_UPDATE_LOGIN		    in NUMBER,
16     P_CI_ACTION_ID              in NUMBER
17 ) IS
18       -- Enter the procedure variables here. As shown below
19     CURSOR  c1 IS
20      SELECT rowid
21      FROM   PA_CI_COMMENTS
22      WHERE  ci_comment_id = p_ci_comment_id;
23 
24     l_row_id  ROWID;
25 
26 BEGIN
27 
28    Insert into PA_CI_COMMENTS (
29     CI_COMMENT_ID,
30     CI_ID,
31     TYPE_CODE,
32     COMMENT_TEXT,
33     RECORD_VERSION_NUMBER,
34     LAST_UPDATED_BY,
35     CREATED_BY,
36     CREATION_DATE,
37     LAST_UPDATE_DATE,
38     LAST_UPDATE_LOGIN,
39     CI_ACTION_ID
40     ) VALUES
41   (  PA_CI_COMMENTS_S.NEXTVAL ,
42     P_CI_ID,
43     P_TYPE_CODE,
44     P_COMMENT_TEXT,
45     1,
46     P_LAST_UPDATED_BY,
47     P_CREATED_BY,
48     P_CREATION_DATE,
49     P_LAST_UPDATE_DATE,
50     P_LAST_UPDATE_LOGIN,
51     P_CI_ACTION_ID
52   ) returning ci_comment_id INTO p_ci_comment_id;
53 
54 
55   EXCEPTION
56     WHEN OTHERS THEN -- catch the exceptions here
57         p_ci_comment_id := null; --Added for bug#4565156.
58         RAISE;
59   END INSERT_ROW;
60 
61 procedure UPDATE_ROW (
62     P_CI_COMMENT_ID             in NUMBER,
63     P_CI_ID                     in NUMBER,
64     P_TYPE_CODE                 in VARCHAR2,
65     P_COMMENT_TEXT              in VARCHAR2,
66     P_LAST_UPDATED_BY		    in NUMBER,
67     P_CREATED_BY			    in NUMBER,
68     P_CREATION_DATE			    in DATE,
69     P_LAST_UPDATE_DATE		    in DATE,
70     P_LAST_UPDATE_LOGIN		    in NUMBER,
71     P_RECORD_VERSION_NUMBER     in NUMBER,
72     P_CI_ACTION_ID              in NUMBER
73 ) IS
74  BEGIN
75    UPDATE PA_CI_COMMENTS
76    SET
77     CI_ID           = P_CI_ID,
78     TYPE_CODE       = P_TYPE_CODE,
79     COMMENT_TEXT    = P_COMMENT_TEXT,
80     LAST_UPDATED_BY = P_LAST_UPDATED_BY,
81     CREATED_BY      = P_CREATED_BY,
82     CREATION_DATE   = P_CREATION_DATE,
83     LAST_UPDATE_DATE    = P_LAST_UPDATE_DATE,
84     LAST_UPDATE_LOGIN   = P_LAST_UPDATE_LOGIN,
85     RECORD_VERSION_NUMBER = P_RECORD_VERSION_NUMBER+1,
86     CI_ACTION_ID    = P_CI_ACTION_ID
87    WHERE CI_COMMENT_ID  =  P_CI_COMMENT_ID;
88  EXCEPTION
89     WHEN OTHERS THEN -- catch the exceptins here
90         RAISE;
91  END UPDATE_ROW;
92 
93 
94 
95 procedure DELETE_ROW (
96 		      P_CI_COMMENT_ID in NUMBER )
97  IS
98  BEGIN
99    DELETE FROM PA_CI_COMMENTS
100    WHERE CI_COMMENT_ID = P_CI_COMMENT_ID;
101 
102  EXCEPTION
103     WHEN OTHERS THEN
104         RAISE;
105  END DELETE_ROW;
106 
107    -- Enter further code below as specified in the Package spec.
108 END PA_CI_COMMENTS_PKG; -- Package Body PA_CI_COMMENTS_PKG