[Home] [Help]
PACKAGE BODY: APPS.JTA_TASK_EXCLUSIONS_PKG
Source
1 PACKAGE BODY JTA_TASK_EXCLUSIONS_PKG AS
2 /* $Header: jtavsemb.pls 115.5 2002/05/13 10:01:17 pkm ship $ */
3 /*=======================================================================+
4 | Copyright (c) 2002 Oracle Corporation Redwood Shores, California, USA|
5 | All rights reserved. |
6 +=======================================================================+
7 | FILENAME |
8 | jtavstmb.pls |
9 | |
10 | DESCRIPTION |
11 | - This package is used to insert/update/delete sync task |
12 | mapping record. |
13 | |
14 | NOTES |
15 | |
16 | Date Developer Change |
17 |-------- --------- ------------------------------------------------|
18 | 3/13/02 SSALLAKA created |
19 | 3/14/02 cjang Modified Insert_Row |
20 | 3/15/02 cjang Modified Insert_Row |
21 | to update last_update_date in the table |
22 | jtf_task_recur_rules. |
23 | 4/03/02 cjang Modified a cursor in Insert_Row |
24 | 5/09/02 cjang Added WHO parameters in Insert_Row and Update_Row
25 ------------------------------------------------------------------------*/
26 PROCEDURE Insert_Row (
27 p_task_exclusion_id IN NUMBER,
28 p_task_id IN NUMBER,
29 p_recurrence_rule_id IN NUMBER,
30 p_exclusion_date IN DATE,
31 p_created_by IN NUMBER DEFAULT NULL,
32 p_creation_date IN DATE DEFAULT NULL,
33 p_last_updated_by IN NUMBER DEFAULT NULL,
34 p_last_update_date IN DATE DEFAULT NULL,
35 p_last_update_login IN NUMBER DEFAULT NULL,
36 p_security_group_id IN NUMBER DEFAULT NULL
37 )
38 IS
39 l_current_date DATE := SYSDATE;
40 l_user_id NUMBER := fnd_global.user_id;
41 l_login_id NUMBER := fnd_global.login_id;
42
43 CURSOR c_exclusion IS
44 SELECT '1'
45 FROM jta_task_exclusions
46 WHERE task_id = p_task_id
47 AND recurrence_rule_id = p_recurrence_rule_id;
48
49 l_exists VARCHAR2(1);
50 BEGIN
51 OPEN c_exclusion;
52 FETCH c_exclusion INTO l_exists;
53 IF c_exclusion%NOTFOUND
54 THEN
55 CLOSE c_exclusion;
56 INSERT INTO jta_task_exclusions
57 (
58 TASK_EXCLUSION_ID,
59 TASK_ID ,
60 RECURRENCE_RULE_ID,
61 EXCLUSION_DATE ,
62 CREATED_BY ,
63 CREATION_DATE ,
64 LAST_UPDATED_BY ,
65 LAST_UPDATE_DATE ,
66 LAST_UPDATE_LOGIN ,
67 SECURITY_GROUP_ID
68 )
69 VALUES
70 (
71 p_task_exclusion_id,
72 p_task_id,
73 p_recurrence_rule_id,
74 p_exclusion_date,
75 nvl(p_created_by, l_user_id),
76 nvl(p_creation_date, l_current_date),
77 nvl(p_last_updated_by, l_user_id),
78 nvl(p_last_update_date, l_current_date),
79 nvl(p_last_update_login, l_login_id),
80 p_security_group_id
81 );
82
83 UPDATE jtf_task_recur_rules
84 SET last_update_date = l_current_date
85 WHERE recurrence_rule_id = p_recurrence_rule_id;
86 ELSE
87 CLOSE c_exclusion;
88 END IF;
89 END Insert_Row;
90
91 PROCEDURE Update_Row (
92 p_task_exclusion_id IN NUMBER,
93 p_task_id IN NUMBER,
94 p_recurrence_rule_id IN NUMBER,
95 p_exclusion_date IN DATE,
96 p_last_updated_by IN NUMBER DEFAULT NULL,
97 p_last_update_date IN DATE DEFAULT NULL,
98 p_last_update_login IN NUMBER DEFAULT NULL
99 )
100 IS
101 l_current_date DATE := SYSDATE;
102 l_user_id NUMBER := fnd_global.user_id;
103 l_login_id NUMBER := fnd_global.login_id;
104 BEGIN
105
106 UPDATE jta_task_exclusions
107 SET TASK_ID = p_task_id,
108 RECURRENCE_RULE_ID = p_recurrence_rule_id,
109 EXCLUSION_DATE = p_exclusion_date,
110 LAST_UPDATED_BY = nvl(p_last_updated_by, l_user_id),
111 LAST_UPDATE_DATE = nvl(p_last_update_date, l_current_date),
112 LAST_UPDATE_LOGIN = nvl(p_last_update_login, l_login_id)
113 WHERE TASK_EXCLUSION_ID = p_task_exclusion_id;
114 END Update_Row;
115
116 PROCEDURE Delete_Row (
117 p_task_exclusion_id IN NUMBER
118 )
119 IS
120 BEGIN
121 DELETE FROM jta_task_exclusions
122 WHERE TASK_EXCLUSION_ID = p_task_exclusion_id;
123 END Delete_Row;
124
125 END JTA_TASK_EXCLUSIONS_PKG;