PACKAGE BODY: APPS.CSI_SOURCE_IB_TYPES_PKG

Source

1 PACKAGE BODY CSI_SOURCE_IB_TYPES_PKG as
2 /* $Header: csitsitb.pls 115.3 2002/11/12 00:23:29 rmamidip noship $ */
3 -- Start of Comments
4 -- Package name     : CSI_SOURCE_IB_TYPES_PKG
5 -- Purpose          :
6 -- History          :
7 -- NOTE             :
8 -- End of Comments
9 
10 
11 G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSI_SOURCE_IB_TYPES_PKG';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'csitsitb.pls';
13 
14 PROCEDURE Insert_Row(
15           p_TRANSACTION_TYPE_ID    NUMBER,
16           px_SUB_TYPE_ID   IN OUT NOCOPY NUMBER,
17           p_DEFAULT_FLAG    VARCHAR2,
18           p_UPDATE_IB_FLAG    VARCHAR2)
19 
20  IS
21    CURSOR C2 IS SELECT CSI_TXN_SUB_TYPES_S.nextval FROM sys.dual;
22 BEGIN
23    If (px_SUB_TYPE_ID IS NULL) OR (px_SUB_TYPE_ID = FND_API.G_MISS_NUM) then
24        OPEN C2;
25        FETCH C2 INTO px_SUB_TYPE_ID;
26        CLOSE C2;
27    End If;
28    INSERT INTO CSI_SOURCE_IB_TYPES(
29            TRANSACTION_TYPE_ID,
30            SUB_TYPE_ID,
31            DEFAULT_FLAG,
32            UPDATE_IB_FLAG
33           ) VALUES (
34            decode( p_TRANSACTION_TYPE_ID, FND_API.G_MISS_NUM, NULL, p_TRANSACTION_TYPE_ID),
35            px_SUB_TYPE_ID,
36            decode( p_DEFAULT_FLAG, FND_API.G_MISS_CHAR, NULL, p_DEFAULT_FLAG),
37            decode( p_UPDATE_IB_FLAG, FND_API.G_MISS_CHAR, NULL, p_UPDATE_IB_FLAG));
38 End Insert_Row;
39 
40 PROCEDURE Update_Row(
41           p_TRANSACTION_TYPE_ID    NUMBER,
42           p_SUB_TYPE_ID    NUMBER,
43           p_DEFAULT_FLAG    VARCHAR2,
44           p_UPDATE_IB_FLAG    VARCHAR2)
45 
46  IS
47  BEGIN
48     Update CSI_SOURCE_IB_TYPES
49     SET
50               SUB_TYPE_ID = decode( p_SUB_TYPE_ID, FND_API.G_MISS_NUM, SUB_TYPE_ID, p_SUB_TYPE_ID),
51               DEFAULT_FLAG = decode( p_DEFAULT_FLAG, FND_API.G_MISS_CHAR, DEFAULT_FLAG, p_DEFAULT_FLAG),
52               UPDATE_IB_FLAG = decode( p_UPDATE_IB_FLAG, FND_API.G_MISS_CHAR, UPDATE_IB_FLAG, p_UPDATE_IB_FLAG)
53     where SUB_TYPE_ID = p_SUB_TYPE_ID;
54 
55     If (SQL%NOTFOUND) then
56         RAISE NO_DATA_FOUND;
57     End If;
58 END Update_Row;
59 
60 PROCEDURE Delete_Row(
61     p_SUB_TYPE_ID  NUMBER)
62  IS
63  BEGIN
64    DELETE FROM CSI_SOURCE_IB_TYPES
65     WHERE SUB_TYPE_ID = p_SUB_TYPE_ID;
66    If (SQL%NOTFOUND) then
67        RAISE NO_DATA_FOUND;
68    End If;
69  END Delete_Row;
70 
71 PROCEDURE Lock_Row(
72           p_TRANSACTION_TYPE_ID    NUMBER,
73           p_SUB_TYPE_ID    NUMBER,
74           p_DEFAULT_FLAG    VARCHAR2,
75           p_UPDATE_IB_FLAG    VARCHAR2)
76 
77  IS
78    CURSOR C IS
79         SELECT *
80          FROM CSI_SOURCE_IB_TYPES
81         WHERE SUB_TYPE_ID =  p_SUB_TYPE_ID
82         FOR UPDATE of SUB_TYPE_ID NOWAIT;
83    Recinfo C%ROWTYPE;
84  BEGIN
85     OPEN C;
86     FETCH C INTO Recinfo;
87     If (C%NOTFOUND) then
88         CLOSE C;
89         FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
90         APP_EXCEPTION.RAISE_EXCEPTION;
91     End If;
92     CLOSE C;
93     if (
94            (      Recinfo.TRANSACTION_TYPE_ID = p_TRANSACTION_TYPE_ID)
95        AND (    ( Recinfo.SUB_TYPE_ID = p_SUB_TYPE_ID)
96             OR (    ( Recinfo.SUB_TYPE_ID IS NULL )
97                 AND (  p_SUB_TYPE_ID IS NULL )))
98        AND (    ( Recinfo.DEFAULT_FLAG = p_DEFAULT_FLAG)
99             OR (    ( Recinfo.DEFAULT_FLAG IS NULL )
100                 AND (  p_DEFAULT_FLAG IS NULL )))
101        AND (    ( Recinfo.UPDATE_IB_FLAG = p_UPDATE_IB_FLAG)
102             OR (    ( Recinfo.UPDATE_IB_FLAG IS NULL )
103                 AND (  p_UPDATE_IB_FLAG IS NULL )))
104        ) then
105        return;
106    else
107        FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
108        APP_EXCEPTION.RAISE_EXCEPTION;
109    End If;
110 END Lock_Row;
111 
112 End CSI_SOURCE_IB_TYPES_PKG;