[Home] [Help]
PACKAGE BODY: APPS.ASO_TERRITORY_ACCESSES_PKG
Source
1 PACKAGE BODY ASO_TERRITORY_ACCESSES_PKG AS
2 /* $Header: asottacb.pls 120.0 2005/08/30 00:01:48 gsachdev noship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(30) := 'ASO_TERRITORY_ACCESSES_PKG';
5 G_FILE_NAME CONSTANT VARCHAR2(12) := 'asottacb.pls';
6
7 procedure INSERT_ROW (
8 P_ACCESS_ID IN NUMBER,
9 P_TERRITORY_ID IN NUMBER,
10 P_LAST_UPDATE_DATE IN DATE,
11 P_LAST_UPDATED_BY IN NUMBER,
12 P_CREATION_DATE IN DATE,
13 P_CREATED_BY IN NUMBER,
14 P_LAST_UPDATE_LOGIN IN NUMBER,
15 P_REQUEST_ID IN NUMBER,
16 P_PROGRAM_APPLICATION_ID IN NUMBER,
17 P_PROGRAM_ID IN NUMBER,
18 P_PROGRAM_UPDATE_DATE IN DATE,
19 P_CONC_REQUEST_ID IN NUMBER
20 )
21 IS
22
23 BEGIN
24 insert into ASO_TERRITORY_ACCESSES (
25 ACCESS_ID,
26 TERRITORY_ID,
27 LAST_UPDATE_DATE,
28 LAST_UPDATED_BY,
29 CREATION_DATE,
30 CREATED_BY,
31 LAST_UPDATE_LOGIN,
32 REQUEST_ID,
33 PROGRAM_APPLICATION_ID,
34 PROGRAM_ID,
35 PROGRAM_UPDATE_DATE,
36 CONC_REQUEST_ID
37 ) VALUES
38 (
39 decode( P_ACCESS_ID, FND_API.G_MISS_NUM, NULL, P_ACCESS_ID),
40 decode( P_TERRITORY_ID, FND_API.G_MISS_NUM, NULL, P_TERRITORY_ID),
41 ASO_UTILITY_PVT.decode( P_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, NULL, p_LAST_UPDATE_DATE),
42 decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATED_BY),
43 ASO_UTILITY_PVT.decode( P_CREATION_DATE, FND_API.G_MISS_DATE, NULL, p_CREATION_DATE),
44 decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, p_CREATED_BY),
45 decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATE_LOGIN),
46 decode( P_REQUEST_ID, FND_API.G_MISS_NUM, NULL, P_REQUEST_ID),
47 decode( P_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM, NULL, P_PROGRAM_APPLICATION_ID),
48 decode( P_PROGRAM_ID, FND_API.G_MISS_NUM, NULL, P_PROGRAM_ID),
49 ASO_UTILITY_PVT.decode( P_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE, NULL, P_PROGRAM_UPDATE_DATE),
50 decode( P_CONC_REQUEST_ID, FND_API.G_MISS_NUM, NULL, P_CONC_REQUEST_ID)
51 );
52
53 end INSERT_ROW;
54
55 procedure UPDATE_ROW (
56 P_ACCESS_ID IN NUMBER,
57 P_TERRITORY_ID IN NUMBER,
58 P_LAST_UPDATE_DATE IN DATE,
59 P_LAST_UPDATED_BY IN NUMBER,
60 P_CREATION_DATE IN DATE,
61 P_CREATED_BY IN NUMBER,
62 P_LAST_UPDATE_LOGIN IN NUMBER,
63 P_REQUEST_ID IN NUMBER,
64 P_PROGRAM_APPLICATION_ID IN NUMBER,
65 P_PROGRAM_ID IN NUMBER,
66 P_PROGRAM_UPDATE_DATE IN DATE,
67 P_CONC_REQUEST_ID IN NUMBER)
68 IS
69 BEGIN
70 update ASO_TERRITORY_ACCESSES
71 set
72 ACCESS_ID = decode( P_ACCESS_ID, FND_API.G_MISS_NUM, ACCESS_ID, P_ACCESS_ID),
73 TERRITORY_ID = decode( P_TERRITORY_ID, FND_API.G_MISS_NUM, TERRITORY_ID, P_TERRITORY_ID),
74 LAST_UPDATE_DATE = ASO_UTILITY_PVT.decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, LAST_UPDATE_DATE, p_LAST_UPDATE_DATE),
75 LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY),
76 LAST_UPDATE_LOGIN = decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, LAST_UPDATE_LOGIN, p_LAST_UPDATE_LOGIN),
77 REQUEST_ID = decode( p_REQUEST_ID, FND_API.G_MISS_NUM, REQUEST_ID, p_REQUEST_ID),
78 PROGRAM_APPLICATION_ID = decode( p_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM,PROGRAM_APPLICATION_ID, p_PROGRAM_APPLICATION_ID),
79 PROGRAM_ID = decode( p_PROGRAM_ID, FND_API.G_MISS_NUM, PROGRAM_ID, p_PROGRAM_ID),
80 PROGRAM_UPDATE_DATE = ASO_UTILITY_PVT.decode( p_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE, PROGRAM_UPDATE_DATE, p_PROGRAM_UPDATE_DATE),
81 CONC_REQUEST_ID = decode( P_CONC_REQUEST_ID, FND_API.G_MISS_NUM, CONC_REQUEST_ID, P_CONC_REQUEST_ID)
82 WHERE ACCESS_ID = P_ACCESS_ID
83 AND TERRITORY_ID = P_TERRITORY_ID ;
84
85 If (SQL%NOTFOUND) then
86 RAISE NO_DATA_FOUND;
87 End If;
88
89 end UPDATE_ROW;
90
91 procedure DELETE_ROW (
92 P_ACCESS_ID IN NUMBER,
93 P_TERRITORY_ID IN NUMBER
94 ) is
95 begin
96 delete from ASO_TERRITORY_ACCESSES
97 where ACCESS_ID = P_ACCESS_ID
98 and TERRITORY_ID = P_TERRITORY_ID;
99
100 if (sql%notfound) then
101 raise no_data_found;
102 end if;
103
104 end DELETE_ROW;
105
106 procedure LOCK_ROW (
107 P_ACCESS_ID IN NUMBER,
108 P_TERRITORY_ID IN NUMBER,
109 P_LAST_UPDATE_DATE IN DATE,
110 P_LAST_UPDATED_BY IN NUMBER,
111 P_CREATION_DATE IN DATE,
112 P_CREATED_BY IN NUMBER,
113 P_LAST_UPDATE_LOGIN IN NUMBER,
114 P_REQUEST_ID IN NUMBER,
115 P_PROGRAM_APPLICATION_ID IN NUMBER,
116 P_PROGRAM_ID IN NUMBER,
117 P_PROGRAM_UPDATE_DATE IN DATE,
118 P_CONC_REQUEST_ID IN NUMBER)
119 IS
120 cursor c1 is select
121 ACCESS_ID,
122 TERRITORY_ID,
123 LAST_UPDATE_DATE,
124 LAST_UPDATED_BY,
125 CREATION_DATE,
126 CREATED_BY,
127 LAST_UPDATE_LOGIN,
128 REQUEST_ID,
129 PROGRAM_APPLICATION_ID,
130 PROGRAM_ID,
131 PROGRAM_UPDATE_DATE,
132 CONC_REQUEST_ID
133 from ASO_TERRITORY_ACCESSES
134 where ACCESS_ID = P_ACCESS_ID
135 and TERRITORY_ID = P_TERRITORY_ID
136 for update of CONC_REQUEST_ID nowait;
137
138 recinfo C1%ROWTYPE;
139 begin
140 OPEN C1;
141 FETCH C1 INTO recinfo;
142 IF (C1%NOTFOUND) THEN
143 CLOSE C1;
144 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
145 APP_EXCEPTION.RAISE_EXCEPTION;
146 End If;
147 CLOSE C1;
148
149
150 if ( ( Recinfo.LAST_UPDATE_DATE = p_LAST_UPDATE_DATE)
151 OR ( ( Recinfo.LAST_UPDATE_DATE IS NULL )
152 AND ( p_LAST_UPDATE_DATE IS NULL ))) then
153 return;
154 else
155 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
156 app_exception.raise_exception;
157 end if;
158 end LOCK_ROW;
159
160 end ASO_TERRITORY_ACCESSES_PKG;