[Home] [Help]
PACKAGE BODY: APPS.HZ_MOBILE_PREFIXES_PKG
Source
1 PACKAGE BODY HZ_MOBILE_PREFIXES_PKG AS
2 /*$Header: ARHMOPRB.pls 120.2 2005/06/16 21:12:33 jhuang noship $ */
3 PROCEDURE Insert_Row(
4 p_rowid IN OUT NOCOPY VARCHAR2,
5 p_TERRITORY_CODE VARCHAR2,
6 p_MOBILE_PREFIX VARCHAR2,
7 p_PHONE_COUNTRY_CODE VARCHAR2,
8 p_DESCRIPTION VARCHAR2,
9 p_CREATED_BY NUMBER,
10 p_CREATION_DATE DATE,
11 p_LAST_UPDATE_LOGIN NUMBER,
12 p_LAST_UPDATE_DATE DATE,
13 p_LAST_UPDATED_BY NUMBER,
14 p_OBJECT_VERSION_NUMBER NUMBER) IS
15
16 CURSOR C IS SELECT rowid FROM HZ_MOBILE_PREFIXES
17 WHERE TERRITORY_CODE = p_TERRITORY_CODE
18 AND MOBILE_PREFIX = p_MOBILE_PREFIX;
19
20
21 begin
22
23 insert into HZ_MOBILE_PREFIXES(
24 TERRITORY_CODE,
25 MOBILE_PREFIX,
26 PHONE_COUNTRY_CODE,
27 DESCRIPTION ,
28 CREATED_BY,
29 CREATION_DATE,
30 LAST_UPDATE_LOGIN,
31 LAST_UPDATE_DATE,
32 LAST_UPDATED_BY,
33 OBJECT_VERSION_NUMBER ) VALUES(
34 p_TERRITORY_CODE,
35 decode(p_MOBILE_PREFIX, FND_API.G_MISS_CHAR, NULL, p_MOBILE_PREFIX),
36 decode(p_PHONE_COUNTRY_CODE, FND_API.G_MISS_CHAR, NULL,
37 p_PHONE_COUNTRY_CODE),
38 decode(p_DESCRIPTION, FND_API.G_MISS_CHAR, NULL, p_DESCRIPTION),
39 decode(p_created_by, FND_API.G_MISS_NUM, NULL, p_created_by),
40 decode(p_creation_date, FND_API.G_MISS_DATE, to_date(NULL), p_creation_date),
41 decode(p_last_update_login,FND_API.G_MISS_NUM, NULL, p_last_update_login),
42 decode(p_last_update_date, FND_API.G_MISS_DATE, to_date(NULL), p_last_update_date),
43 decode(p_last_updated_by, FND_API.G_MISS_NUM, NULL, p_last_updated_by),
44 1
45 );
46 OPEN C;
47 FETCH C INTO p_Rowid;
48 If (C%NOTFOUND) then
49 CLOSE C;
50 RAISE NO_DATA_FOUND;
51 End If;
52
53 end;
54
55 PROCEDURE Update_Row(
56 p_rowid VARCHAR2,
57 p_TERRITORY_CODE VARCHAR2,
58 p_MOBILE_PREFIX VARCHAR2,
59 p_PHONE_COUNTRY_CODE VARCHAR2,
60 p_DESCRIPTION VARCHAR2,
61 p_CREATED_BY NUMBER,
62 p_CREATION_DATE DATE,
63 p_LAST_UPDATE_LOGIN NUMBER,
64 p_LAST_UPDATE_DATE DATE,
65 p_LAST_UPDATED_BY NUMBER,
66 p_OBJECT_VERSION_NUMBER IN OUT NOCOPY NUMBER) IS
67 l_object_version_number number;
68
69 BEGIN
70
71 l_object_version_number := NVL(p_object_version_number, 1) + 1;
72 UPDATE HZ_MOBILE_PREFIXES
73 SET
74 TERRITORY_CODE = decode(p_TERRITORY_CODE, FND_API.G_MISS_CHAR,
75 TERRITORY_CODE, p_TERRITORY_CODE),
76 MOBILE_PREFIX = decode(p_MOBILE_PREFIX, FND_API.G_MISS_CHAR,
77 MOBILE_PREFIX, p_MOBILE_PREFIX),
78 PHONE_COUNTRY_CODE = decode(p_PHONE_COUNTRY_CODE, FND_API.G_MISS_CHAR,
79 PHONE_COUNTRY_CODE, p_PHONE_COUNTRY_CODE),
80 DESCRIPTION = decode(p_DESCRIPTION, FND_API.G_MISS_CHAR,
81 DESCRIPTION, p_DESCRIPTION),
82 -- Bug 3032780
83 /*
84 CREATED_BY = decode(p_created_by,FND_API.G_MISS_NUM,
85 CREATED_BY, p_created_by),
86 CREATION_DATE = decode(p_CREATION_DATE, FND_API.G_MISS_DATE,
87 CREATION_DATE,p_CREATION_DATE),
88 */
89 LAST_UPDATE_LOGIN = decode(p_LAST_UPDATE_LOGIN,FND_API.G_MISS_NUM,
90 LAST_UPDATE_LOGIN,p_LAST_UPDATE_LOGIN),
91 LAST_UPDATE_DATE = decode(p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE,
92 LAST_UPDATE_DATE,p_LAST_UPDATE_DATE),
93 LAST_UPDATED_BY = decode(p_LAST_UPDATED_BY, FND_API.G_MISS_NUM,
94 LAST_UPDATED_BY,p_LAST_UPDATED_BY),
95 OBJECT_VERSION_NUMBER = decode(l_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM,
96 OBJECT_VERSION_NUMBER,l_object_version_number)
97 WHERE ROWID = P_ROWID;
98
99 p_OBJECT_VERSION_NUMBER := l_OBJECT_VERSION_NUMBER;
100
101 If (SQL%NOTFOUND) then
102 RAISE NO_DATA_FOUND;
103 End If;
104 END Update_Row;
105
106 PROCEDURE Lock_Row(
107 p_TERRITORY_CODE IN OUT NOCOPY VARCHAR2,
108 p_MOBILE_PREFIX IN OUT NOCOPY VARCHAR2,
109 p_OBJECT_VERSION_NUMBER IN NUMBER)
110 IS
111 CURSOR C IS
112
113 SELECT OBJECT_VERSION_NUMBER
114 FROM HZ_MOBILE_PREFIXES
115 WHERE TERRITORY_CODE = p_TERRITORY_CODE
116 AND MOBILE_PREFIX = p_MOBILE_PREFIX
117 FOR UPDATE OF TERRITORY_CODE , MOBILE_PREFIX NOWAIT;
118 Recinfo C%ROWTYPE;
119 BEGIN
120 OPEN C;
121 FETCH C INTO Recinfo;
122 If (C%NOTFOUND) then
123 CLOSE C;
124 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
125 APP_EXCEPTION.RAISE_EXCEPTION;
126 End If;
127 CLOSE C;
128
129 if (
130 ( Recinfo.OBJECT_VERSION_NUMBER IS NOT NULL AND p_OBJECT_VERSION_NUMBER IS NOT NULL
131 AND Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER )
132 OR ((Recinfo.OBJECT_VERSION_NUMBER IS NULL)AND (p_OBJECT_VERSION_NUMBER IS NULL ))
133
134 ) then
135 return;
136 else
137 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
138 APP_EXCEPTION.RAISE_EXCEPTION;
139 End If;
140 END Lock_Row;
141
142 PROCEDURE Delete_Row(p_TERRITORY_CODE VARCHAR2, P_MOBILE_PREFIX VARCHAR2 ) IS
143 BEGIN
144 DELETE FROM HZ_MOBILE_PREFIXES
145 WHERE TERRITORY_CODE = p_TERRITORY_CODE
146 AND MOBILE_PREFIX = p_MOBILE_PREFIX;
147
148 If (SQL%NOTFOUND) then
149 RAISE NO_DATA_FOUND;
150 End If;
151 END Delete_Row;
152
153
154 END;