[Home] [Help]
58: BEGIN
59: -- Standard Start of API savepoint
60: SAVEPOINT Initialize_Batch;
61: -- Standard call to check for call compatibility.
62: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
63: p_api_version ,
64: l_api_name ,
65: G_PKG_NAME ) THEN
66: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
62: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
63: p_api_version ,
64: l_api_name ,
65: G_PKG_NAME ) THEN
66: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
67: END IF;
68: -- Initialize message list if p_init_msg_list is set to TRUE.
69: IF FND_API.to_Boolean( p_init_msg_list ) THEN
70: FND_MSG_PUB.initialize;
65: G_PKG_NAME ) THEN
66: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
67: END IF;
68: -- Initialize message list if p_init_msg_list is set to TRUE.
69: IF FND_API.to_Boolean( p_init_msg_list ) THEN
70: FND_MSG_PUB.initialize;
71: END IF;
72: -- Initialize API return status to success
73: x_return_status := FND_API.G_RET_STS_SUCCESS;
69: IF FND_API.to_Boolean( p_init_msg_list ) THEN
70: FND_MSG_PUB.initialize;
71: END IF;
72: -- Initialize API return status to success
73: x_return_status := FND_API.G_RET_STS_SUCCESS;
74: x_loading_status := 'CN_INSERTED';
75: -- API body
76: -- Check a global batch ID exists for the session
77: -- Do nothing if global batch ID already exists
85: x_status := 'BATCH ALREADY EXISTS';
86: -- Validate the batch is not loaded
87: IF p_posting_batch_rec.load_status = 'LOADED' THEN
88: x_status := 'BATCH IS ALREADY LOADED';
89: RAISE FND_API.G_EXC_ERROR;
90: END IF;
91: END IF;
92: -- End of API body.
93: -- Standard check of p_commit.
90: END IF;
91: END IF;
92: -- End of API body.
93: -- Standard check of p_commit.
94: IF FND_API.To_Boolean( p_commit ) THEN
95: COMMIT WORK;
96: END IF;
97: -- Standard call to get message count and if count is 1, get message info.
98: FND_MSG_PUB.Count_And_Get
99: ( p_count => x_msg_count ,
100: p_data => x_msg_data
101: );
102: EXCEPTION
103: WHEN FND_API.G_EXC_ERROR THEN
104: ROLLBACK TO Initialize_Batch;
105: x_return_status := FND_API.G_RET_STS_ERROR ;
106: FND_MSG_PUB.Count_And_Get
107: ( p_count => x_msg_count ,
101: );
102: EXCEPTION
103: WHEN FND_API.G_EXC_ERROR THEN
104: ROLLBACK TO Initialize_Batch;
105: x_return_status := FND_API.G_RET_STS_ERROR ;
106: FND_MSG_PUB.Count_And_Get
107: ( p_count => x_msg_count ,
108: p_data => x_msg_data
109: );
106: FND_MSG_PUB.Count_And_Get
107: ( p_count => x_msg_count ,
108: p_data => x_msg_data
109: );
110: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
111: ROLLBACK TO Initialize_Batch;
112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
113: FND_MSG_PUB.Count_And_Get
114: ( p_count => x_msg_count ,
108: p_data => x_msg_data
109: );
110: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
111: ROLLBACK TO Initialize_Batch;
112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
113: FND_MSG_PUB.Count_And_Get
114: ( p_count => x_msg_count ,
115: p_data => x_msg_data
116: );
115: p_data => x_msg_data
116: );
117: WHEN OTHERS THEN
118: ROLLBACK TO Initialize_Batch;
119: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
120: IF FND_MSG_PUB.Check_Msg_Level
121: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
122: FND_MSG_PUB.Add_Exc_Msg
123: ( G_PKG_NAME,
171: FROM cn_commission_lines
172: WHERE commission_line_id = p_posting_detail_rec.commission_line_id;
173: BEGIN
174: -- Initialize API return status to success
175: x_return_status := FND_API.G_RET_STS_SUCCESS;
176: -- Check for null parameters
177: IF ( (cn_api.chk_null_num_para
178: (p_num_para => p_posting_detail_rec.commission_line_id,
179: p_obj_name => 'Commission Line ID',
177: IF ( (cn_api.chk_null_num_para
178: (p_num_para => p_posting_detail_rec.commission_line_id,
179: p_obj_name => 'Commission Line ID',
180: p_loading_status => x_loading_status,
181: x_loading_status => x_loading_status) ) = FND_API.G_TRUE ) THEN
182: RAISE FND_API.G_EXC_ERROR;
183: END IF;
184: -- 1. Validate commission line exists
185: OPEN get_comm_line;
178: (p_num_para => p_posting_detail_rec.commission_line_id,
179: p_obj_name => 'Commission Line ID',
180: p_loading_status => x_loading_status,
181: x_loading_status => x_loading_status) ) = FND_API.G_TRUE ) THEN
182: RAISE FND_API.G_EXC_ERROR;
183: END IF;
184: -- 1. Validate commission line exists
185: OPEN get_comm_line;
186: FETCH get_comm_line INTO l_cl_status, l_posting_status;
185: OPEN get_comm_line;
186: FETCH get_comm_line INTO l_cl_status, l_posting_status;
187: IF get_comm_line%ROWCOUNT = 0 THEN
188: x_status := 'COMMISSION LINE DOES NOT EXIST';
189: RAISE FND_API.G_EXC_ERROR;
190: ELSIF get_comm_line%ROWCOUNT = 1 THEN
191: x_status := 'A COMMISSION LINE EXISTS';
192: END IF;
193: CLOSE get_comm_line;
193: CLOSE get_comm_line;
194: -- 2. Check commission line has been calculated
195: IF l_cl_status <> 'CALC' THEN
196: x_status := 'COMMISSION LINE IS NOT OF STATUS CALC';
197: RAISE FND_API.G_EXC_ERROR;
198: END IF;
199: -- 3. Check p_create_mode valid choices
200: IF p_create_mode NOT IN ('NEW', 'REVERT') THEN
201: x_status := 'INVALID CREATE MODE';
198: END IF;
199: -- 3. Check p_create_mode valid choices
200: IF p_create_mode NOT IN ('NEW', 'REVERT') THEN
201: x_status := 'INVALID CREATE MODE';
202: RAISE FND_API.G_EXC_ERROR;
203: ELSE
204: x_status := 'CREATE MODE EXISTS';
205: END IF;
206: -- 4. Check commission line is not posted or reverted
206: -- 4. Check commission line is not posted or reverted
207: -- previously for a "New" transaction
208: IF (l_posting_status in (C_POSTED, C_REVERTED) AND p_create_mode = 'NEW') THEN
209: x_status := 'CANNOT CREATE NEW FOR COMMISSION LINE HAS BEEN POSTED OR REVERTED.';
210: RAISE FND_API.G_EXC_ERROR;
211: END IF;
212: -- 5. Check commission line is not posted or reverted
213: -- previously for a "Revert" transaction
214: IF (l_posting_status in (C_UNPOSTED, C_REVERTED) AND p_create_mode = 'REVERT') THEN
212: -- 5. Check commission line is not posted or reverted
213: -- previously for a "Revert" transaction
214: IF (l_posting_status in (C_UNPOSTED, C_REVERTED) AND p_create_mode = 'REVERT') THEN
215: x_status := 'CANNOT CREATE REVERT FOR COMMISSION LINE HAS BEEN POSTED OR REVERTED ALREADY.';
216: RAISE FND_API.G_EXC_ERROR;
217: END IF;
218: -- End of Validate Posting
219: -- Standard call to get message count and if count is 1, get message info.
220: FND_MSG_PUB.Count_And_Get
219: -- Standard call to get message count and if count is 1, get message info.
220: FND_MSG_PUB.Count_And_Get
221: ( p_count => x_msg_count ,
222: p_data => x_msg_data ,
223: p_encoded => FND_API.G_FALSE
224: );
225: EXCEPTION
226: WHEN FND_API.G_EXC_ERROR THEN
227: x_return_status := FND_API.G_RET_STS_ERROR;
222: p_data => x_msg_data ,
223: p_encoded => FND_API.G_FALSE
224: );
225: EXCEPTION
226: WHEN FND_API.G_EXC_ERROR THEN
227: x_return_status := FND_API.G_RET_STS_ERROR;
228: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
230: x_loading_status := 'UNEXPECTED_ERR';
223: p_encoded => FND_API.G_FALSE
224: );
225: EXCEPTION
226: WHEN FND_API.G_EXC_ERROR THEN
227: x_return_status := FND_API.G_RET_STS_ERROR;
228: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
230: x_loading_status := 'UNEXPECTED_ERR';
231: WHEN OTHERS THEN
224: );
225: EXCEPTION
226: WHEN FND_API.G_EXC_ERROR THEN
227: x_return_status := FND_API.G_RET_STS_ERROR;
228: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
230: x_loading_status := 'UNEXPECTED_ERR';
231: WHEN OTHERS THEN
232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
225: EXCEPTION
226: WHEN FND_API.G_EXC_ERROR THEN
227: x_return_status := FND_API.G_RET_STS_ERROR;
228: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
230: x_loading_status := 'UNEXPECTED_ERR';
231: WHEN OTHERS THEN
232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
233: x_loading_status := 'UNEXPECTED_ERR';
228: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
230: x_loading_status := 'UNEXPECTED_ERR';
231: WHEN OTHERS THEN
232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
233: x_loading_status := 'UNEXPECTED_ERR';
234: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
235: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
236: END IF;
244: -- Calls : Validate_From_CommLines()
245: -- ============================================================================
246: PROCEDURE Create_From_CommLine
247: (p_api_version IN NUMBER ,
248: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
249: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
250: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
251: x_return_status OUT NOCOPY VARCHAR2 ,
252: x_msg_count OUT NOCOPY NUMBER ,
245: -- ============================================================================
246: PROCEDURE Create_From_CommLine
247: (p_api_version IN NUMBER ,
248: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
249: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
250: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
251: x_return_status OUT NOCOPY VARCHAR2 ,
252: x_msg_count OUT NOCOPY NUMBER ,
253: x_msg_data OUT NOCOPY VARCHAR2 ,
246: PROCEDURE Create_From_CommLine
247: (p_api_version IN NUMBER ,
248: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
249: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
250: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
251: x_return_status OUT NOCOPY VARCHAR2 ,
252: x_msg_count OUT NOCOPY NUMBER ,
253: x_msg_data OUT NOCOPY VARCHAR2 ,
254: p_create_mode IN VARCHAR2 := 'NEW' ,
318: 0
319:
320:
321: /*C_UNLOADED status, --default UNLOADED
322: FND_API.G_MISS_DATE loaded_date,
323: cl.pending_status,
324: cl.status cl_status,
325: cl.created_during,
326: FND_GLOBAL.USER_ID created_by,
409: BEGIN
410: -- Standard Start of API savepoint
411: SAVEPOINT Create_From_CommLine;
412: -- Standard call to check for call compatibility.
413: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
414: p_api_version ,
415: l_api_name ,
416: G_PKG_NAME ) THEN
417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
413: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
414: p_api_version ,
415: l_api_name ,
416: G_PKG_NAME ) THEN
417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
418: END IF;
419: -- Initialize message list if p_init_msg_list is set to TRUE.
420: IF FND_API.to_Boolean( p_init_msg_list ) THEN
421: FND_MSG_PUB.initialize;
416: G_PKG_NAME ) THEN
417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
418: END IF;
419: -- Initialize message list if p_init_msg_list is set to TRUE.
420: IF FND_API.to_Boolean( p_init_msg_list ) THEN
421: FND_MSG_PUB.initialize;
422: END IF;
423: -- Initialize API return status to success
424: x_return_status := FND_API.G_RET_STS_SUCCESS;
420: IF FND_API.to_Boolean( p_init_msg_list ) THEN
421: FND_MSG_PUB.initialize;
422: END IF;
423: -- Initialize API return status to success
424: x_return_status := FND_API.G_RET_STS_SUCCESS;
425: l_loading_status := 'CN_INSERTED';
426:
427: -- API body
428: -- Validate incoming parameters
446: p_loading_status => l_loading_status,
447: p_posting_batch_rec => l_posting_batch_rec,
448: x_status => l_status
449: );
450: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
451: RAISE FND_API.G_EXC_ERROR;
452: END IF;
453: END IF;
454:
447: p_posting_batch_rec => l_posting_batch_rec,
448: x_status => l_status
449: );
450: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
451: RAISE FND_API.G_EXC_ERROR;
452: END IF;
453: END IF;
454:
455: -- Build Payment Record record from Commission Line
462: TO_CHAR(p_commission_line_id));
463: FND_MSG_PUB.ADD;
464: l_loading_status := 'CN_INVALID_COMMISSION_LINE';
465: l_status := l_loading_status;
466: RAISE FND_API.G_EXC_ERROR;
467: END IF;
468: CLOSE get_comm_line_rec;
469:
470: -- Calculate a negative amount for revert transactions
497: -- if something changes, keep the reversal and create a new posting line
498: IF (SQL%notfound) THEN
499: CN_PMT_TRANS_PKG.Begin_Record
500: (x_pmt_trans_rec => l_pmt_trans_rec);
501: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
502: RAISE FND_API.G_EXC_ERROR;
503: END IF;
504: END IF;
505: ELSE*/
498: IF (SQL%notfound) THEN
499: CN_PMT_TRANS_PKG.Begin_Record
500: (x_pmt_trans_rec => l_pmt_trans_rec);
501: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
502: RAISE FND_API.G_EXC_ERROR;
503: END IF;
504: END IF;
505: ELSE*/
506:
505: ELSE*/
506:
507: -- insert record into CN_PAYMENT_TRANSACTIONS
508: CN_PMT_TRANS_PKG.Insert_Record(l_pmt_trans_rec);
509: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
510: RAISE FND_API.G_EXC_ERROR;
511: END IF;
512: --END IF;
513:
506:
507: -- insert record into CN_PAYMENT_TRANSACTIONS
508: CN_PMT_TRANS_PKG.Insert_Record(l_pmt_trans_rec);
509: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
510: RAISE FND_API.G_EXC_ERROR;
511: END IF;
512: --END IF;
513:
514: -- if NEW then Update commission line posting status to POSTED
516: UPDATE cn_commission_lines
517: SET posting_status = C_POSTED
518: WHERE commission_line_id = p_commission_line_id;*/
519: -- REMOVE COMMENT WHEN UPDATED WITH COMM LINE API
520: -- IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
521: -- RAISE FND_API.G_EXC_ERROR;
522: -- END IF;
523: -- if REVERT then Update commission line posting status to REVERTED
524: IF p_create_mode = 'REVERT' THEN
517: SET posting_status = C_POSTED
518: WHERE commission_line_id = p_commission_line_id;*/
519: -- REMOVE COMMENT WHEN UPDATED WITH COMM LINE API
520: -- IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
521: -- RAISE FND_API.G_EXC_ERROR;
522: -- END IF;
523: -- if REVERT then Update commission line posting status to REVERTED
524: IF p_create_mode = 'REVERT' THEN
525: UPDATE cn_commission_lines_all
528: END IF;
529: END IF;
530: -- End of API body.
531: -- Standard check of p_commit.
532: IF FND_API.To_Boolean( p_commit ) THEN
533: COMMIT WORK;
534: END IF;
535: -- Standard call to get message count and if count is 1, get message info
536: FND_MSG_PUB.Count_And_Get
537: ( p_count => x_msg_count ,
538: p_data => x_msg_data
539: );
540: EXCEPTION
541: WHEN FND_API.G_EXC_ERROR THEN
542: --dbms_output.put_line('EXP '||sqlerrm);
543: ROLLBACK TO Create_From_CommLine;
544: x_return_status := FND_API.G_RET_STS_ERROR ;
545: FND_MSG_PUB.Count_And_Get
540: EXCEPTION
541: WHEN FND_API.G_EXC_ERROR THEN
542: --dbms_output.put_line('EXP '||sqlerrm);
543: ROLLBACK TO Create_From_CommLine;
544: x_return_status := FND_API.G_RET_STS_ERROR ;
545: FND_MSG_PUB.Count_And_Get
546: ( p_count => x_msg_count ,
547: p_data => x_msg_data
548: );
545: FND_MSG_PUB.Count_And_Get
546: ( p_count => x_msg_count ,
547: p_data => x_msg_data
548: );
549: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
550: --dbms_output.put_line('UNEXP '||sqlerrm);
551: ROLLBACK TO Create_From_CommLine;
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
553: FND_MSG_PUB.Count_And_Get
548: );
549: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
550: --dbms_output.put_line('UNEXP '||sqlerrm);
551: ROLLBACK TO Create_From_CommLine;
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
553: FND_MSG_PUB.Count_And_Get
554: ( p_count => x_msg_count ,
555: p_data => x_msg_data
556: );
556: );
557: WHEN OTHERS THEN
558: --dbms_output.put_line('OTHERS '||sqlerrm);
559: ROLLBACK TO Create_From_CommLine;
560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
561: IF FND_MSG_PUB.Check_Msg_Level
562: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
563: FND_MSG_PUB.Add_Exc_Msg
564: ( G_PKG_NAME ,
589: -- public procedure.
590: -- ============================================================================
591: PROCEDURE Create_PrePostDetails
592: ( p_api_version IN NUMBER ,
593: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
594: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
595: p_validation_level IN NUMBER :=
596: FND_API.G_VALID_LEVEL_FULL ,
597: x_return_status OUT NOCOPY VARCHAR2 ,
590: -- ============================================================================
591: PROCEDURE Create_PrePostDetails
592: ( p_api_version IN NUMBER ,
593: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
594: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
595: p_validation_level IN NUMBER :=
596: FND_API.G_VALID_LEVEL_FULL ,
597: x_return_status OUT NOCOPY VARCHAR2 ,
598: x_msg_count OUT NOCOPY NUMBER ,
592: ( p_api_version IN NUMBER ,
593: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
594: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
595: p_validation_level IN NUMBER :=
596: FND_API.G_VALID_LEVEL_FULL ,
597: x_return_status OUT NOCOPY VARCHAR2 ,
598: x_msg_count OUT NOCOPY NUMBER ,
599: x_msg_data OUT NOCOPY VARCHAR2 ,
600: p_posting_detail_rec_tbl IN OUT NOCOPY CN_PREPOSTDETAILS.posting_detail_rec_tbl_type
607: BEGIN
608: -- Standard Start of API savepoint
609: SAVEPOINT Create_PrePostDetails;
610: -- Standard call to check for call compatibility.
611: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
612: p_api_version ,
613: l_api_name ,
614: G_PKG_NAME ) THEN
615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
611: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
612: p_api_version ,
613: l_api_name ,
614: G_PKG_NAME ) THEN
615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
616: END IF;
617: -- Initialize message list if p_init_msg_list is set to TRUE.
618: IF FND_API.to_Boolean( p_init_msg_list ) THEN
619: FND_MSG_PUB.initialize;
614: G_PKG_NAME ) THEN
615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
616: END IF;
617: -- Initialize message list if p_init_msg_list is set to TRUE.
618: IF FND_API.to_Boolean( p_init_msg_list ) THEN
619: FND_MSG_PUB.initialize;
620: END IF;
621: -- Initialize API return status to success
622: x_return_status := FND_API.G_RET_STS_SUCCESS;
618: IF FND_API.to_Boolean( p_init_msg_list ) THEN
619: FND_MSG_PUB.initialize;
620: END IF;
621: -- Initialize API return status to success
622: x_return_status := FND_API.G_RET_STS_SUCCESS;
623: l_loading_status := 'CN_INSERTED';
624: -- API body
625: -- Process a set of posting details
626: FOR i IN 1 .. p_posting_detail_rec_tbl.COUNT LOOP
634: x_loading_status => l_loading_status,
635: p_posting_detail_rec => p_posting_detail_rec_tbl(i),
636: x_status => l_status
637: );
638: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
639: RAISE FND_API.G_EXC_ERROR;
640: END IF;*/
641:
642: -- Create Posting Detail through table handlers
635: p_posting_detail_rec => p_posting_detail_rec_tbl(i),
636: x_status => l_status
637: );
638: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
639: RAISE FND_API.G_EXC_ERROR;
640: END IF;*/
641:
642: -- Create Posting Detail through table handlers
643: CN_PREPOSTDETAILS.Begin_Record(
645: x_rowid => G_ROWID,
646: x_posting_detail_rec => p_posting_detail_rec_tbl(i),
647: x_program_type => G_PROGRAM_TYPE
648: );
649: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
650: RAISE FND_API.G_EXC_ERROR;
651: END IF;
652: l_status := 'CREATED POSTING DETAIL '||TO_CHAR(i);
653: END LOOP;
646: x_posting_detail_rec => p_posting_detail_rec_tbl(i),
647: x_program_type => G_PROGRAM_TYPE
648: );
649: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
650: RAISE FND_API.G_EXC_ERROR;
651: END IF;
652: l_status := 'CREATED POSTING DETAIL '||TO_CHAR(i);
653: END LOOP;
654: -- End of API body.
652: l_status := 'CREATED POSTING DETAIL '||TO_CHAR(i);
653: END LOOP;
654: -- End of API body.
655: -- Standard check of p_commit.
656: IF FND_API.To_Boolean( p_commit ) THEN
657: COMMIT WORK;
658: END IF;
659: -- Standard call to get message count and if count is 1, get message info.
660: FND_MSG_PUB.Count_And_Get
661: ( p_count => x_msg_count ,
662: p_data => x_msg_data
663: );
664: EXCEPTION --create posting detail
665: WHEN FND_API.G_EXC_ERROR THEN
666: ROLLBACK TO Create_PrePostDetails_Loop;
667: x_return_status := FND_API.G_RET_STS_ERROR ;
668: FND_MSG_PUB.Count_And_Get
669: ( p_count => x_msg_count ,
663: );
664: EXCEPTION --create posting detail
665: WHEN FND_API.G_EXC_ERROR THEN
666: ROLLBACK TO Create_PrePostDetails_Loop;
667: x_return_status := FND_API.G_RET_STS_ERROR ;
668: FND_MSG_PUB.Count_And_Get
669: ( p_count => x_msg_count ,
670: p_data => x_msg_data
671: );
668: FND_MSG_PUB.Count_And_Get
669: ( p_count => x_msg_count ,
670: p_data => x_msg_data
671: );
672: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
673: ROLLBACK TO Create_PrePostDetails;
674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
675: FND_MSG_PUB.Count_And_Get
676: ( p_count => x_msg_count ,
670: p_data => x_msg_data
671: );
672: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
673: ROLLBACK TO Create_PrePostDetails;
674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
675: FND_MSG_PUB.Count_And_Get
676: ( p_count => x_msg_count ,
677: p_data => x_msg_data
678: );
677: p_data => x_msg_data
678: );
679: WHEN OTHERS THEN
680: ROLLBACK TO Create_PrePostDetails;
681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
682: IF FND_MSG_PUB.Check_Msg_Level
683: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
684: FND_MSG_PUB.Add_Exc_Msg
685: ( G_PKG_NAME ,
698: -- Calls : Create_PrePostDetails()
699: -- ============================================================================
700: PROCEDURE PrePost_PayWorksheets
701: ( p_api_version IN NUMBER ,
702: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
703: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
704: p_validation_level IN NUMBER :=
705: FND_API.G_VALID_LEVEL_FULL ,
706: x_return_status OUT NOCOPY VARCHAR2 ,
699: -- ============================================================================
700: PROCEDURE PrePost_PayWorksheets
701: ( p_api_version IN NUMBER ,
702: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
703: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
704: p_validation_level IN NUMBER :=
705: FND_API.G_VALID_LEVEL_FULL ,
706: x_return_status OUT NOCOPY VARCHAR2 ,
707: x_msg_count OUT NOCOPY NUMBER ,
701: ( p_api_version IN NUMBER ,
702: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
703: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
704: p_validation_level IN NUMBER :=
705: FND_API.G_VALID_LEVEL_FULL ,
706: x_return_status OUT NOCOPY VARCHAR2 ,
707: x_msg_count OUT NOCOPY NUMBER ,
708: x_msg_data OUT NOCOPY VARCHAR2
709: )
774: BEGIN
775: -- Standard Start of API savepoint
776: SAVEPOINT PrePost_PayWorksheets;
777: -- Standard call to check for call compatibility.
778: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
779: p_api_version ,
780: l_api_name ,
781: G_PKG_NAME ) THEN
782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
778: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
779: p_api_version ,
780: l_api_name ,
781: G_PKG_NAME ) THEN
782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
783: END IF;
784: -- Initialize message list if p_init_msg_list is set to TRUE.
785: IF FND_API.to_Boolean( p_init_msg_list ) THEN
786: FND_MSG_PUB.initialize;
781: G_PKG_NAME ) THEN
782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
783: END IF;
784: -- Initialize message list if p_init_msg_list is set to TRUE.
785: IF FND_API.to_Boolean( p_init_msg_list ) THEN
786: FND_MSG_PUB.initialize;
787: END IF;
788: -- Initialize API return status to success
789: x_return_status := FND_API.G_RET_STS_SUCCESS;
785: IF FND_API.to_Boolean( p_init_msg_list ) THEN
786: FND_MSG_PUB.initialize;
787: END IF;
788: -- Initialize API return status to success
789: x_return_status := FND_API.G_RET_STS_SUCCESS;
790: -- API body
791:
792: -- Validate a CN_PREPOSTBATCHES.G_BATCH_ID exists
793: -- The assumption is that the batch already exists and with parameters
798: --FND_MESSAGE.SET_TOKEN('COMMISSION_LINE_ID', TO_CHAR(p_commission_line_id));
799: FND_MSG_PUB.ADD;
800: l_loading_status := 'CN_POSTING_BATCH_UNINITIALIZED';
801: l_status := 'EARLY EXIT BECAUSE POSTING BATCH NOT INITIALIZED';
802: RAISE FND_API.G_EXC_ERROR;
803: END IF;
804: -- Get payment worksheets eligible for posting
805: -- OPEN get_pay_ws;
806: FOR l_pay_ws_rec IN get_pay_ws LOOP
971: x_msg_data => x_msg_data,
972: p_posting_detail_rec_tbl => l_pdet_rec_tbl
973: );
974: --dbms_output.put_line('It is here');
975: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
976: l_status := 'Error in creation of posting detail for worksheet';
977: RAISE FND_API.G_EXC_ERROR;
978: END IF;
979:
973: );
974: --dbms_output.put_line('It is here');
975: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
976: l_status := 'Error in creation of posting detail for worksheet';
977: RAISE FND_API.G_EXC_ERROR;
978: END IF;
979:
980:
981: -- Update posting status of POSTED worksheet
1029: end loop;
1030:
1031: -- End of API body.
1032: -- Standard check of p_commit.
1033: IF FND_API.To_Boolean( p_commit ) THEN
1034: COMMIT WORK;
1035: END IF;
1036: -- Standard call to get message count and if count is 1, get message info.
1037: FND_MSG_PUB.Count_And_Get
1038: ( p_count => x_msg_count ,
1039: p_data => x_msg_data
1040: );
1041: EXCEPTION -- post payws
1042: WHEN FND_API.G_EXC_ERROR THEN
1043: ROLLBACK TO PrePost_PayWorksheets;
1044: x_return_status := FND_API.G_RET_STS_ERROR ;
1045: FND_MSG_PUB.Count_And_Get
1046: ( p_count => x_msg_count ,
1040: );
1041: EXCEPTION -- post payws
1042: WHEN FND_API.G_EXC_ERROR THEN
1043: ROLLBACK TO PrePost_PayWorksheets;
1044: x_return_status := FND_API.G_RET_STS_ERROR ;
1045: FND_MSG_PUB.Count_And_Get
1046: ( p_count => x_msg_count ,
1047: p_data => x_msg_data
1048: );
1045: FND_MSG_PUB.Count_And_Get
1046: ( p_count => x_msg_count ,
1047: p_data => x_msg_data
1048: );
1049: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1050: ROLLBACK TO PrePost_PayWorksheets;
1051: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1052: FND_MSG_PUB.Count_And_Get
1053: ( p_count => x_msg_count ,
1047: p_data => x_msg_data
1048: );
1049: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1050: ROLLBACK TO PrePost_PayWorksheets;
1051: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1052: FND_MSG_PUB.Count_And_Get
1053: ( p_count => x_msg_count ,
1054: p_data => x_msg_data
1055: );
1054: p_data => x_msg_data
1055: );
1056: WHEN OTHERS THEN
1057: ROLLBACK TO PrePost_PayWorksheets;
1058: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1059: IF FND_MSG_PUB.Check_Msg_Level
1060: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1061: FND_MSG_PUB.Add_Exc_Msg
1062: ( G_PKG_NAME ,