[Home] [Help]
PACKAGE BODY: APPS.CN_NOT_TRX_GRP
Source
1 PACKAGE BODY CN_NOT_TRX_GRP as
2 /* $Header: cngntxb.pls 120.1 2005/09/05 05:36:39 apink noship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(30) := 'CN_NOT_TRX_GRP';
5
6 ------------------------------------------------------------------------------+
7 -- Procedure : Col_Adjustments
8 ------------------------------------------------------------------------------+
9 PROCEDURE Col_Adjustments
10 ( p_api_version IN NUMBER,
11 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
12 p_commit IN VARCHAR2 := FND_API.G_FALSE,
13 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
14 x_return_status OUT NOCOPY VARCHAR2,
15 x_msg_count OUT NOCOPY NUMBER,
16 x_msg_data OUT NOCOPY VARCHAR2,
17 p_org_id IN NUMBER -- Added For R12 MOAC Changes
18 ) IS
19 l_api_name CONSTANT VARCHAR2(30) := 'Col_Adjustments';
20 l_api_version CONSTANT NUMBER := 1.0;
21 -- cursor which loops through all the adjusted lines
22 CURSOR c_changed_lines IS
23 SELECT *
24 FROM cn_not_trx
25 WHERE adjusted_flag = 'Y'
26 AND collected_flag = 'N'
27 AND (negated_flag IS NULL OR negated_flag = 'N')
28 AND org_id = p_org_id; -- Added For R12 MOAC Changes
29
30 l_changed_line_rec c_changed_lines%ROWTYPE;
31
32 BEGIN
33 -- Standard Start of API savepoint
34 SAVEPOINT col_adjustments;
35 -- Standard call to check for call compatibility.
36 IF NOT FND_API.Compatible_API_Call (l_api_version,
37 p_api_version,
38 l_api_name,
39 G_PKG_NAME)
40 THEN
41 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
42 END IF;
43 -- Initialize message list if p_init_msg_list is set to TRUE.
44 IF FND_API.to_Boolean( p_init_msg_list ) THEN
45 FND_MSG_PUB.initialize;
46 END IF;
47 -- Initialize API return status to success
48 x_return_status := FND_API.G_RET_STS_SUCCESS;
49 -------------------+
50 -- API body
51 -------------------+
52 FOR l_changed_line_rec IN c_changed_lines LOOP
53 cn_comm_lines_api_pkg.negate_record
54 (l_changed_line_rec.source_trx_id,
55 l_changed_line_rec.source_trx_line_id,
56 l_changed_line_rec.source_doc_type,
57 p_org_id);
58 -- update negated_flag to 'Y'
59 UPDATE cn_not_trx
60 SET negated_flag = 'Y'
61 WHERE not_trx_id = l_changed_line_rec.not_trx_id
62 AND org_id = p_org_id; -- Added For R12 MOAC Changes
63 END LOOP;
64 -------------------+
65 -- End of API body.
66 -------------------+
67 -- Standard check of p_commit.
68 IF FND_API.To_Boolean( p_commit ) THEN
69 COMMIT WORK;
70 END IF;
71 -- Standard call to get message count and if count is 1, get message info.
72 FND_MSG_PUB.Count_And_Get
73 (p_count => x_msg_count ,
74 p_data => x_msg_data ,
75 p_encoded => FND_API.G_FALSE);
76 EXCEPTION
77 WHEN FND_API.G_EXC_ERROR THEN
78 ROLLBACK TO Col_Adjustments;
79 x_return_status := FND_API.G_RET_STS_ERROR ;
80 FND_MSG_PUB.Count_And_Get
81 (p_count => x_msg_count,
82 p_data => x_msg_data,
83 p_encoded => FND_API.G_FALSE);
84 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
85 ROLLBACK TO Col_Adjustments;
86 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
87 FND_MSG_PUB.Count_And_Get
88 (p_count => x_msg_count,
89 p_data => x_msg_data,
90 p_encoded => FND_API.G_FALSE);
91 WHEN OTHERS THEN
92 ROLLBACK TO Col_Adjustments;
93 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
94 IF FND_MSG_PUB.Check_Msg_Level
95 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
96 FND_MSG_PUB.Add_Exc_Msg
97 (G_PKG_NAME,
98 l_api_name );
99 END IF;
100 FND_MSG_PUB.Count_And_Get
101 (p_count => x_msg_count,
102 p_data => x_msg_data,
103 p_encoded => FND_API.G_FALSE);
104 END Col_Adjustments;
105
106
107 END CN_NOT_TRX_GRP;