PACKAGE BODY: APPS.ASG_RESP_PKG

Source

1 PACKAGE BODY ASG_RESP_PKG as
2 /* $Header: asgrespb.pls 120.1 2005/08/12 02:57:16 saradhak noship $ */
3 
4 -- HISTORY
5 -- JUN  03  2002   ytian changed _ID pk type to varchar2.
6 -- MAR. 11, 2002 ytian created.
7 
8 procedure insert_row (
9   x_PUB_ID in VARCHAR2,
10   x_RESPONSIBILITY_ID in NUMBER,
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) IS
15 
16 
17 begin
18 
19 
20   insert into ASG_PUB_RESPONSIBILITY (
21     PUB_ID,
22     RESPONSIBILITY_ID,
23     CREATION_DATE,
24     CREATED_BY,
25     LAST_UPDATE_DATE,
26     LAST_UPDATED_BY
27   ) values (
28     x_pub_id,
29     decode(x_RESPONSIBILITY_ID,FND_API.G_MISS_NUM, NULL, x_RESPONSIBILITY_ID),
30     decode(X_CREATION_DATE,FND_API.G_MISS_DATE, NULL, x_creation_date),
31     decode(X_CREATED_BY,FND_API.G_MISS_NUM, NULL,x_created_by),
32     decode(X_LAST_UPDATE_DATE,FND_API.G_MISS_DATE, NULL, x_last_update_date),
33     decode(X_LAST_UPDATED_BY,FND_API.G_MISS_NUM, NULL,x_last_updated_by)
34   );
35 
36 /*
37   open c;
38   fetch c into X_ROWID;
39   if (c%notfound) then
40     close c;
41     raise no_data_found;
42   end if;
43   close c;
44 */
45 
46 end insert_row;
47 
48 procedure update_row (
49    x_PUB_ID in VARCHAR2,
50   x_RESPONSIBILITY_ID in NUMBER,
51   x_CREATION_DATE in DATE,
52   x_CREATED_BY in NUMBER,
53   x_LAST_UPDATE_DATE in DATE,
54   x_LAST_UPDATED_BY in NUMBER) IS
55 begin
56    update asg_pub_RESPONSIBILITY set
57     PUB_ID = X_PUB_ID,
58     RESPONSIBILITY_ID = x_RESPONSIBILITY_ID,
59     CREATION_DATE = X_CREATION_DATE,
60     CREATED_BY = X_CREATED_BY,
61     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
62     LAST_UPDATED_BY = X_LAST_UPDATED_BY
63    where PUB_ID = X_PUB_ID
64        and responsibility_id = x_RESPONSIBILITY_ID;
65 
66    if (sql%notfound) then
67     raise no_data_found;
68   end if;
69 END UPDATE_ROW;
70 
71 
72 procedure load_row (
73    x_PUB_ID in VARCHAR2,
74   x_RESPONSIBILITY_ID in NUMBER,
75   x_CREATION_DATE in DATE,
76   x_CREATED_BY in NUMBER,
77   x_LAST_UPDATE_DATE in DATE,
78   x_LAST_UPDATED_BY in NUMBER,
79   p_owner in VARCHAR2)  IS
80 
81     l_user_id      number := 0;
82 
83 BEGIN
84 
85 
86   if (p_owner = 'SEED') then
87     l_user_id := 1;
88   end if;
89 
90   asg_resp_pkg.UPDATE_ROW (
91     X_PUB_ID       		   => x_PUB_ID,
92     X_RESPONSIBILITY_ID            => x_RESPONSIBILITY_ID,
93     X_CREATION_DATE                => X_CREATION_DATE,
94     X_CREATED_BY                   => X_CREATED_BY,
95     X_LAST_UPDATE_DATE             => sysdate,
96     X_LAST_UPDATED_BY              => l_user_id);
97 
98 EXCEPTION
99   WHEN NO_DATA_FOUND THEN
100 
101   asg_resp_pkg.insert_row (
102     X_PUB_ID       		   => x_PUB_ID,
103     x_RESPONSIBILITY_ID            => x_RESPONSIBILITY_Id,
104     X_CREATION_DATE                => sysdate,
105     X_CREATED_BY                   => l_user_id,
106     X_LAST_UPDATE_DATE             => sysdate,
107     X_LAST_UPDATED_BY              => l_user_id);
108 
109 END load_row;
110 
111 END ASG_RESP_PKG;