[Home] [Help]
PACKAGE BODY: APPS.CSD_REPAIR_TYPES_SAR_PKG
Source
1 PACKAGE BODY CSD_REPAIR_TYPES_SAR_PKG as
2 /* $Header: csdtsarb.pls 115.2 2003/01/07 03:14:50 takwong noship $ */
3 -- Start of Comments
4 -- Package name : CSD_REPAIR_TYPES_SAR_PKG
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10
11 G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSD_REPAIR_TYPES_SAR_PKG';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdtsarb.pls';
13
14 PROCEDURE Insert_Row(
15 px_REPAIR_TXN_BILLING_TYPE_ID IN OUT NOCOPY NUMBER
16 ,p_REPAIR_TYPE_ID NUMBER
17 ,p_TXN_BILLING_TYPE_ID NUMBER
18 ,p_CREATED_BY NUMBER
19 ,p_CREATION_DATE DATE
20 ,p_LAST_UPDATED_BY NUMBER
21 ,p_LAST_UPDATE_DATE DATE
22 ,p_LAST_UPDATE_LOGIN NUMBER
23 ,p_OBJECT_VERSION_NUMBER NUMBER
24 )
25 IS
26 CURSOR C2 IS SELECT CSD_REPAIR_TYPES_SAR_S1.nextval FROM sys.dual;
27 BEGIN
28 If (px_REPAIR_TXN_BILLING_TYPE_ID IS NULL) OR (px_REPAIR_TXN_BILLING_TYPE_ID = FND_API.G_MISS_NUM) then
29 OPEN C2;
30 FETCH C2 INTO px_REPAIR_TXN_BILLING_TYPE_ID;
31 CLOSE C2;
32 End If;
33 INSERT INTO CSD_REPAIR_TYPES_SAR(
34 REPAIR_TXN_BILLING_TYPE_ID
35 ,REPAIR_TYPE_ID
36 ,TXN_BILLING_TYPE_ID
37 ,CREATED_BY
38 ,CREATION_DATE
39 ,LAST_UPDATED_BY
40 ,LAST_UPDATE_DATE
41 ,LAST_UPDATE_LOGIN
42 ,OBJECT_VERSION_NUMBER
43 ) VALUES (
44 px_REPAIR_TXN_BILLING_TYPE_ID
45 ,decode( p_REPAIR_TYPE_ID, FND_API.G_MISS_NUM, NULL, p_REPAIR_TYPE_ID)
46 ,decode( p_TXN_BILLING_TYPE_ID, FND_API.G_MISS_NUM, NULL, p_TXN_BILLING_TYPE_ID)
47 ,decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, p_CREATED_BY)
48 ,decode( p_CREATION_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_CREATION_DATE)
49 ,decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATED_BY)
50 ,decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_LAST_UPDATE_DATE)
51 ,decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATE_LOGIN)
52 ,decode( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, p_OBJECT_VERSION_NUMBER)
53 );
54 End Insert_Row;
55
56 PROCEDURE Update_Row(
57 p_REPAIR_TXN_BILLING_TYPE_ID NUMBER
58 ,p_REPAIR_TYPE_ID NUMBER
59 ,p_TXN_BILLING_TYPE_ID NUMBER
60 ,p_CREATED_BY NUMBER
61 ,p_CREATION_DATE DATE
62 ,p_LAST_UPDATED_BY NUMBER
63 ,p_LAST_UPDATE_DATE DATE
64 ,p_LAST_UPDATE_LOGIN NUMBER
65 ,p_OBJECT_VERSION_NUMBER NUMBER
66 )
67 IS
68 BEGIN
69 Update CSD_REPAIR_TYPES_SAR
70 SET
71 REPAIR_TYPE_ID = decode( p_REPAIR_TYPE_ID, FND_API.G_MISS_NUM, REPAIR_TYPE_ID, p_REPAIR_TYPE_ID)
72 ,TXN_BILLING_TYPE_ID = decode( p_TXN_BILLING_TYPE_ID, FND_API.G_MISS_NUM, TXN_BILLING_TYPE_ID, p_TXN_BILLING_TYPE_ID)
73 ,CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, p_CREATED_BY)
74 ,CREATION_DATE = decode( p_CREATION_DATE, FND_API.G_MISS_DATE, CREATION_DATE, p_CREATION_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_DATE = decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, LAST_UPDATE_DATE, p_LAST_UPDATE_DATE)
77 ,LAST_UPDATE_LOGIN = decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, LAST_UPDATE_LOGIN, p_LAST_UPDATE_LOGIN)
78 ,OBJECT_VERSION_NUMBER = decode( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, OBJECT_VERSION_NUMBER, p_OBJECT_VERSION_NUMBER)
79 where REPAIR_TXN_BILLING_TYPE_ID = p_REPAIR_TXN_BILLING_TYPE_ID;
80
81 If (SQL%NOTFOUND) then
82 RAISE NO_DATA_FOUND;
83 End If;
84 END Update_Row;
85
86 PROCEDURE Delete_Row(
87 p_REPAIR_TXN_BILLING_TYPE_ID NUMBER)
88 IS
89 BEGIN
90 DELETE FROM CSD_REPAIR_TYPES_SAR
91 WHERE REPAIR_TXN_BILLING_TYPE_ID = p_REPAIR_TXN_BILLING_TYPE_ID;
92 If (SQL%NOTFOUND) then
93 RAISE NO_DATA_FOUND;
94 End If;
95 END Delete_Row;
96
97 PROCEDURE Lock_Row(
98 p_REPAIR_TXN_BILLING_TYPE_ID NUMBER
99 ,p_OBJECT_VERSION_NUMBER NUMBER
100 )
101 IS
102 CURSOR C IS
103 SELECT object_version_number
104 FROM CSD_REPAIR_TYPES_SAR
105 WHERE REPAIR_TXN_BILLING_TYPE_ID = p_REPAIR_TXN_BILLING_TYPE_ID
106 FOR UPDATE of REPAIR_TXN_BILLING_TYPE_ID NOWAIT;
107 Recinfo C%ROWTYPE;
108 BEGIN
109 OPEN C;
110 FETCH C INTO Recinfo;
111 If (C%NOTFOUND) then
112 CLOSE C;
113 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
114 APP_EXCEPTION.RAISE_EXCEPTION;
115 End If;
116 CLOSE C;
117
118 IF ( (Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER)
119 OR ( ( Recinfo.OBJECT_VERSION_NUMBER IS NULL )
120 AND ( p_OBJECT_VERSION_NUMBER IS NULL ))
121 ) then
122 return;
123 else
124 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
125 APP_EXCEPTION.RAISE_EXCEPTION;
126 End If;
127
128 END Lock_Row;
129
130 End CSD_REPAIR_TYPES_SAR_PKG;