PACKAGE BODY: APPS.PA_PERF_CMTS_PKG

Source

1 package body PA_PERF_CMTS_PKG as
2 /* $Header: PAPEECTB.pls 120.1 2005/08/19 16:38:25 mwasowic noship $ */
3 
4 procedure INSERT_ROW (
5   X_ROWID in out NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
6   X_COMMENT_ID in NUMBER,
7   X_PERF_TXN_ID in NUMBER,
8   X_COMMENT_TEXT in VARCHAR2,
9   X_COMMENTED_BY in NUMBER,
10   X_COMMENT_DATE in DATE,
11   X_CREATION_DATE in DATE,
12   X_CREATED_BY in NUMBER,
13   X_LAST_UPDATE_DATE in DATE,
14   X_LAST_UPDATED_BY in NUMBER,
15   X_LAST_UPDATE_LOGIN in NUMBER
16 ) is
17   cursor C is select ROWID from PA_PERF_COMMENTS
18     where COMMENT_ID = X_COMMENT_ID
19     ;
20 begin
21   insert into PA_PERF_COMMENTS (
22     COMMENT_ID,
23     PERF_TXN_ID,
24     COMMENT_TEXT,
25     COMMENTED_BY,
26     COMMENT_DATE,
27     CREATION_DATE,
28     CREATED_BY,
29     LAST_UPDATE_DATE,
30     LAST_UPDATED_BY,
31     LAST_UPDATE_LOGIN )
32   values (
33     X_COMMENT_ID,
34     X_PERF_TXN_ID,
35     X_COMMENT_TEXT,
36     X_COMMENTED_BY,
37     X_COMMENT_DATE,
38     NVL(X_CREATION_DATE,sysdate),
39     NVL(X_CREATED_BY,fnd_global.user_id),
40     NVL(X_LAST_UPDATE_DATE,sysdate),
41     NVL(X_LAST_UPDATED_BY,fnd_global.user_id),
42     NVL(X_LAST_UPDATE_LOGIN,fnd_global.login_id));
43 
44   open c;
45   fetch c into X_ROWID;
46   if (c%notfound) then
47     close c;
48     raise no_data_found;
49   end if;
50   close c;
51 
52 end INSERT_ROW;
53 
54 
55 procedure UPDATE_ROW (
56   X_COMMENT_ID in NUMBER,
57   X_PERF_TXN_ID in NUMBER,
58   X_COMMENT_TEXT in VARCHAR2,
59   X_COMMENTED_BY in NUMBER,
60   X_COMMENT_DATE in DATE,
61   X_LAST_UPDATE_DATE in DATE,
62   X_LAST_UPDATED_BY in NUMBER ,
63   X_LAST_UPDATE_LOGIN in NUMBER
64 ) is
65 begin
66   update PA_PERF_COMMENTS set
67     PERF_TXN_ID = X_PERF_TXN_ID,
68     COMMENT_TEXT = X_COMMENT_TEXT,
69     COMMENTED_BY = X_COMMENTED_BY,
70     COMMENT_DATE = X_COMMENT_DATE,
71     COMMENT_ID = X_COMMENT_ID,
72     LAST_UPDATE_DATE = NVL(X_LAST_UPDATE_DATE,sysdate),
73     LAST_UPDATED_BY = NVL(X_LAST_UPDATED_BY,fnd_global.user_id),
74     LAST_UPDATE_LOGIN = NVL(X_LAST_UPDATE_LOGIN,fnd_global.login_id)
75   where COMMENT_ID = X_COMMENT_ID
76   ;
77 
78   if (sql%notfound) then
79     raise no_data_found;
80   end if;
81 end UPDATE_ROW;
82 
83 procedure DELETE_ROW (
84   X_COMMENT_ID in NUMBER
85 ) is
86 begin
87   delete from PA_PERF_COMMENTS
88   where COMMENT_ID = X_COMMENT_ID;
89 
90   if (sql%notfound) then
91     raise no_data_found;
92   end if;
93 
94 end DELETE_ROW;
95 
96 end PA_PERF_CMTS_PKG;
97