[Home] [Help]
2331: WHEN OTHERS THEN
2332: NULL;
2333: END calculate_ar_trx_amt;
2334: PROCEDURE create_net_batch(
2335: -- ***** Standard API Parameters *****
2336: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2337: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2338: x_return_status OUT NOCOPY VARCHAR2,
2339: x_msg_count OUT NOCOPY NUMBER,
2371: x_msg_count := NULL;
2372: x_msg_data := NULL;
2373: g_user_id := fnd_global.user_id;
2374: g_login_id := fnd_global.login_id;
2375: -- **** Standard start of API savepoint ****
2376: SAVEPOINT create_net_batch_SP;
2377: -- **** Initialize message list if p_init_msg_list is set to TRUE. ****
2378: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2379: FND_MSG_PUB.initialize;
2528: x_msg_data => l_msg_data,
2529: p_batch_id => g_batch_id);
2530: END IF;
2531: END LOOP;
2532: -- Standard check of p_commit.
2533: fun_net_util.Log_String(g_state_level,l_path,'p_commit :'|| p_commit);
2534: IF FND_API.To_Boolean( p_commit ) THEN
2535: fun_net_util.Log_String(g_state_level,l_path,'Saving the batches');
2536: COMMIT WORK;
2651: WHEN OTHERS THEN
2652: null;
2653: END perform_common_tasks;
2654: PROCEDURE submit_net_batch (
2655: -- ***** Standard API Parameters *****
2656: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2657: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2658: x_return_status OUT NOCOPY VARCHAR2,
2659: x_msg_count OUT NOCOPY NUMBER,
2679: -- l_msg_data VARCHAR2(2000);
2680: BEGIN
2681: l_path := g_path||'submit_net_batch';
2682: fun_net_util.Log_String(g_state_level,l_path,'Start submit batch');
2683: /* Intialize standard API parameters */
2684: /* Intialize message list */
2685: x_msg_count := NULL;
2686: x_msg_data := NULL;
2687: -- **** Initialize message list if p_init_msg_list is set to TRUE. ****
2806: , g_batch_id
2807: );
2808: fun_net_util.Log_String(g_state_level,l_path,'Settle batch request:'||l_request_id);
2809: END IF;
2810: -- Standard check of p_commit.
2811: IF FND_API.To_Boolean( p_commit ) THEN
2812: COMMIT WORK;
2813: END IF;
2814: EXCEPTION
2846: p_count => x_msg_count,
2847: p_data => x_msg_data );
2848: END submit_net_batch;
2849: FUNCTION Validate_Netting_Dates(
2850: -- ***** Standard API Parameters *****
2851: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2852: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2853: x_return_status OUT NOCOPY VARCHAR2,
2854: x_msg_count OUT NOCOPY NUMBER,
2864: FROM FUN_NET_AGREEMENTS
2865: WHERE agreement_id = g_agreement_id;
2866: BEGIN
2867: l_path := g_path||'batch_exists';
2868: /* Initialize standard API parameters */
2869: x_msg_count := NULL;
2870: x_msg_data := NULL;
2871: -- **** Initialize message list if p_init_msg_list is set to TRUE. ****
2872: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2928: RETURN 'REJECTED';
2929: END IF;
2930: END IF;
2931: END IF;
2932: -- Standard check of p_commit.
2933: IF FND_API.To_Boolean( p_commit ) THEN
2934: COMMIT WORK;
2935: END IF;
2936: EXCEPTION
2933: IF FND_API.To_Boolean( p_commit ) THEN
2934: COMMIT WORK;
2935: END IF;
2936: EXCEPTION
2937: /* Handle standard exceptions */
2938: WHEN FND_API.G_EXC_ERROR THEN
2939: ROLLBACK TO validate_netting_dates_SP;
2940: x_return_status := FND_API.G_RET_STS_ERROR;
2941: FND_MSG_PUB.Count_And_Get (
3814: fun_net_util.log_string(g_event_level,l_path,'receipt currency:'||pARReceiptRec.currency_code);
3815: fun_net_util.log_string(g_event_level,l_path,'exchange rate:'||pARReceiptRec.exchange_rate);
3816: fun_net_util.log_string(g_event_level,l_path,'amount:'||pARReceiptRec.amount);
3817: AR_RECEIPT_API_PUB.Create_cash(
3818: -- Standard API parameters.
3819: p_api_version => 1.0,
3820: p_init_msg_list => FND_API.G_TRUE,
3821: p_commit => FND_API.G_FALSE,
3822: x_return_status => x_return_status,
3931: g_func_currency);
3932: l_applied_from := l_applied_amt * l_exchange_rate;
3933: END IF;
3934: AR_RECEIPT_API_PUB.Apply(
3935: -- Standard API parameters.
3936: p_api_version => 1.0,
3937: p_init_msg_list => FND_API.G_FALSE,
3938: p_commit => FND_API.G_FALSE,
3939: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4229: --6179308. Call Apply_In_Detail for invoices and Debitmemo, otherwise call Apply API.
4230: fun_net_util.Log_String(g_event_level,l_path,'Inside main iF');
4231: fun_net_util.Log_String(g_event_level,l_path,'Calling APPLY IN DETAIL');
4232: AR_RECEIPT_API_PUB.Apply_In_Detail(
4233: -- Standard API parameters.
4234: p_api_version => 1.0,
4235: p_init_msg_list => FND_API.G_FALSE,
4236: p_commit => FND_API.G_FALSE,
4237: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4599: WHEN OTHERS THEN
4600: RETURN FND_API.G_FALSE;
4601: END default_batch_details;
4602: PROCEDURE settle_net_batch (
4603: -- ***** Standard API Parameters *****
4604: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4605: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4606: x_return_status OUT NOCOPY VARCHAR2,
4607: x_msg_count OUT NOCOPY NUMBER,
4629: l_amt_to_net NUMBER;
4630: BEGIN
4631: l_path := g_path||'Settle_Net_Batch';
4632: fun_net_util.Log_String(g_event_level,l_path,'Settling Netting batches');
4633: /* Intialize standard API parameters */
4634: /* Intialize message list */
4635: x_msg_count := NULL;
4636: x_msg_data := NULL;
4637: -- **** Initialize message list if p_init_msg_list is set to TRUE. ****
4842: );
4843: fun_net_util.Log_String(g_state_level,l_path,
4844: 'Data Extract request: '||l_request_id);
4845: END IF;
4846: -- Standard check of p_commit.
4847: IF FND_API.To_Boolean( p_commit ) THEN
4848: COMMIT WORK;
4849: END IF;
4850: -- Call Procedure to perform common tasks after committing