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;
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;
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(
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,
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:
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
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;