[Home] [Help]
1374: l_trx_type varchar2(4);
1375:
1376: BEGIN
1377: l_local := 'Y';
1378: -- Standard call to check for call compatibility.
1379: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1380: p_api_version,
1381: l_api_name,
1382: G_PKG_NAME )
1674: END IF;
1675:
1676: Debug('INIT_BATCH_VALIDATE(-)');
1677: -- End of API body.
1678: -- Standard call to get message count and if count is 1, get message info.
1679: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1680: p_data => x_msg_data);
1681: EXCEPTION
1682: WHEN FND_API.G_EXC_ERROR THEN
1720: default_currency_code VARCHAR2(15) := fun_system_options_pkg.get_default_currency();
1721: BEGIN
1722: l_local := 'Y';
1723:
1724: -- Standard call to check for call compatibility.
1725: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1726: p_api_version,
1727: l_api_name,
1728: G_PKG_NAME )
1880: END IF;
1881:
1882: Debug('INIT_TRX_VALIDATE(-)');
1883: -- End of API body.
1884: -- Standard call to get message count and if count is 1, get message info.
1885: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1886: p_data => x_msg_data);
1887: EXCEPTION
1888: WHEN FND_API.G_EXC_ERROR THEN
1915: ) IS
1916: l_api_name CONSTANT VARCHAR2(30) := 'INIT_DIST_VALIDATE';
1917: l_api_version CONSTANT NUMBER := 1.0;
1918: BEGIN
1919: -- Standard call to check for call compatibility.
1920: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1921: p_api_version,
1922: l_api_name,
1923: G_PKG_NAME )
1984: END IF;
1985: --END IF;
1986: Debug('INIT_DIST_VALIDATE(-)');
1987: -- End of API body.
1988: -- Standard call to get message count and if count is 1, get message info.
1989: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1990: p_data => x_msg_data);
1991:
1992: EXCEPTION
2022: ) IS
2023: l_api_name CONSTANT VARCHAR2(30) := 'INIT_IC_DIST_VALIDATE';
2024: l_api_version CONSTANT NUMBER := 1.0;
2025: BEGIN
2026: -- Standard call to check for call compatibility.
2027: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2028: p_api_version,
2029: l_api_name ,
2030: G_PKG_NAME )
2140: END IF;
2141: --END IF;
2142: Debug('INIT_IC_DIST_VALIDATE(-)');
2143: -- End of API body.
2144: -- Standard call to get message count and if count is 1, get message info.
2145:
2146: Print ('Debug Init_Dist_Val >>> x_msg_count' || x_msg_count );
2147: Print ('Debug Init_Dist_Val >>> x_msg_data' || x_msg_data );
2148: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3381: SELECT status
3382: FROM fun_trx_headers
3383: WHERE trx_id = p_trx_id FOR UPDATE;
3384: BEGIN
3385: -- Standard Start of API savepoint
3386: SAVEPOINT Update_Trx_Status;
3387:
3388: -- Standard call to check for call compatibility.
3389: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3384: BEGIN
3385: -- Standard Start of API savepoint
3386: SAVEPOINT Update_Trx_Status;
3387:
3388: -- Standard call to check for call compatibility.
3389: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3390: p_api_version,
3391: l_api_name,
3392: G_PKG_NAME )
3466: AND status NOT IN ('COMPLETE','REJECTED'));
3467:
3468:
3469: END IF;
3470: -- Standard check of p_commit.
3471: IF FND_API.To_Boolean( nvl(p_commit,FND_API.G_FALSE) ) THEN
3472: COMMIT WORK;
3473: END IF;
3474: ELSE
3479: Set_Return_Status(x_orig_status => x_return_status,
3480: p_new_status => FND_API.G_RET_STS_ERROR);
3481: END IF;
3482:
3483: -- Standard call to get message count and if count is 1, get message info.
3484: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3485: Debug('UPDATE_TRX_STATUS(-)');
3486: EXCEPTION
3487: WHEN FND_API.G_EXC_ERROR THEN
3703: l_count NUMBER;
3704: l_index NUMBER := 0;
3705: i NUMBER := 1;
3706: BEGIN
3707: -- Standard call to check for call compatibility.
3708: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3709: p_api_version,
3710: l_api_name,
3711: G_PKG_NAME )
3805: END IF;
3806:
3807: Debug('RECIPIENT_VALIDATE(-)');
3808: -- End of API body.
3809: -- Standard call to get message count and if count is 1, get message info.
3810: FND_MSG_PUB.Count_And_Get
3811: ( p_count => x_msg_count,
3812: p_data => x_msg_data
3813: );
4031: l_count NUMBER;
4032: l_index NUMBER := 0;
4033: i NUMBER := 1;
4034: BEGIN
4035: -- Standard call to check for call compatibility.
4036: IF NOT FND_API.Compatible_API_Call ( l_api_version,
4037: p_api_version,
4038: l_api_name,
4039: G_PKG_NAME )
4094: END IF;
4095: END IF;
4096: Debug('RECIPIENT_VALIDATE(-)');
4097: -- End of API body.
4098: -- Standard call to get message count and if count is 1, get message info.
4099: FND_MSG_PUB.Count_And_Get
4100: ( p_count => x_msg_count,
4101: p_data => x_msg_data
4102: );
4339: l_sum_amount_dr NUMBER;
4340: l_diff_amount NUMBER;
4341:
4342: BEGIN
4343: -- Standard call to check for call compatibility.
4344: IF NOT FND_API.Compatible_API_Call ( l_api_version,
4345: p_api_version,
4346: l_api_name,
4347: G_PKG_NAME )
4460: END LOOP; -- recipient
4461:
4462: Debug('INIT_GENERATE_DISTRIBUTIONS(-)');
4463: -- End of API body.
4464: -- Standard call to get message count and if count is 1, get message info.
4465: FND_MSG_PUB.Count_And_Get
4466: ( p_count => x_msg_count,
4467: p_data => x_msg_data
4468: );
4669: AND glps.adjustment_period_flag <> 'Y'
4670: AND glps.closing_status IN ('O','F');
4671:
4672: BEGIN
4673: -- Standard call to check for call compatibility.
4674: IF NOT FND_API.Compatible_API_Call ( l_api_version,
4675: p_api_version,
4676: l_api_name,
4677: G_PKG_NAME )
4759: Set_Return_Status(x_orig_status => x_return_status, p_new_status => l_return_status);
4760:
4761: Debug('AR_TRANSFER_VALIDATE(-)');
4762: -- End of API body.
4763: -- Standard call to get message count and if count is 1, get message info.
4764: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4765: p_data => x_msg_data);
4766: EXCEPTION
4767: WHEN FND_API.G_EXC_ERROR THEN