[Home] [Help]
1: PACKAGE BODY OZF_Ar_Interface_PVT AS
2: /*$Header: ozfvarib.pls 120.12 2007/12/13 07:55:03 kpatro ship $*/
3:
4:
5: -- Standard Stuff ------------------
6:
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ozf_ar_interface_pvt';
8: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfvaris.pls';
9: G_OBJECT_TYPE CONSTANT VARCHAR2(10) := 'OZF_????';
1086: WHERE trx.cust_trx_type_id = ct.dm_trx_type_id
1087: AND ct.claim_type_id = cv_claim_type_id;
1088:
1089: CURSOR csr_cust_payment_term(cv_cust_account_id IN NUMBER) IS
1090: SELECT standard_terms
1091: FROM hz_customer_profiles
1092: WHERE cust_account_id = cv_cust_account_id
1093: AND site_use_id IS NULL;
1094: /*
1097: WHERE cust_account_id = cv_cust_account_id;
1098: */
1099:
1100: CURSOR csr_cust_address_pay_term(cv_cust_account_id IN NUMBER, cv_site_use_id IN NUMBER) IS
1101: SELECT standard_terms
1102: FROM hz_customer_profiles
1103: WHERE cust_account_id = cv_cust_account_id
1104: AND site_use_id = cv_site_use_id;
1105:
1169: BEGIN
1170: -- Start populating the interface record values
1171: x_return_status := FND_API.g_ret_sts_success;
1172:
1173: /* -- Standard Who Columns ------------------------- */
1174: p_x_interface_line_rec.CREATED_BY := FND_GLOBAL.USER_ID;
1175: p_x_interface_line_rec.CREATION_DATE := SYSDATE ;
1176: p_x_interface_line_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
1177: p_x_interface_line_rec.LAST_UPDATE_DATE := SYSDATE;
1613: BEGIN
1614: -- Start populating the interface record values
1615: x_return_status := FND_API.g_ret_sts_success;
1616:
1617: /* -- Standard Who Columns ------------------------- */
1618: x_interface_tax_rec.CREATED_BY := FND_GLOBAL.USER_ID;
1619: x_interface_tax_rec.CREATION_DATE := SYSDATE ;
1620: x_interface_tax_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
1621: x_interface_tax_rec.LAST_UPDATE_DATE := SYSDATE;
1720: BEGIN
1721: -- Start populating the interface record values
1722: x_return_status := FND_API.g_ret_sts_success;
1723:
1724: /* -- Standard Who Columns ------------------------- */
1725: p_x_int_distributions_rec.CREATED_BY := FND_GLOBAL.USER_ID;
1726: p_x_int_distributions_rec.CREATION_DATE := SYSDATE ;
1727: p_x_int_distributions_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
1728: p_x_int_distributions_rec.LAST_UPDATE_DATE := SYSDATE;
2045:
2046:
2047: BEGIN
2048:
2049: /* ------- Begin Standard API Calls --------------------------- */
2050: -- Standard begin of API savepoint
2051: SAVEPOINT Interface_Claim_PVT ;
2052: -- Standard call to check for call compatibility.
2053: IF NOT FND_API.Compatible_API_Call (
2046:
2047: BEGIN
2048:
2049: /* ------- Begin Standard API Calls --------------------------- */
2050: -- Standard begin of API savepoint
2051: SAVEPOINT Interface_Claim_PVT ;
2052: -- Standard call to check for call compatibility.
2053: IF NOT FND_API.Compatible_API_Call (
2054: l_api_version,
2048:
2049: /* ------- Begin Standard API Calls --------------------------- */
2050: -- Standard begin of API savepoint
2051: SAVEPOINT Interface_Claim_PVT ;
2052: -- Standard call to check for call compatibility.
2053: IF NOT FND_API.Compatible_API_Call (
2054: l_api_version,
2055: p_api_version,
2056: l_api_name,
2070: END IF;
2071: -- Initialize API return status to sucess
2072: x_return_status := FND_API.G_RET_STS_SUCCESS;
2073:
2074: /* ------- End Standard API Calls ----------------------------- */
2075:
2076: /* ------- Begin API Logic ------------------------------------ */
2077:
2078: OPEN claim_gl_posting_csr(p_claim_id) ;
2157: SET payment_status = 'INTERFACED'
2158: WHERE claim_id = p_claim_id;
2159: /* ------- End Update Claim Payment Status ------------------- */
2160:
2161: /* ------- Begin Standard API Calls --------------------------- */
2162:
2163: --Standard check of commit
2164: IF FND_API.To_Boolean ( p_commit ) THEN
2165: COMMIT WORK;
2159: /* ------- End Update Claim Payment Status ------------------- */
2160:
2161: /* ------- Begin Standard API Calls --------------------------- */
2162:
2163: --Standard check of commit
2164: IF FND_API.To_Boolean ( p_commit ) THEN
2165: COMMIT WORK;
2166: END IF;
2167: -- Debug Message
2169: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2170: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
2171: FND_MSG_PUB.Add;
2172: END IF;
2173: --Standard call to get message count and if count=1, get the message
2174: FND_MSG_PUB.Count_And_Get (
2175: p_encoded => FND_API.G_FALSE,
2176: p_count => x_msg_count,
2177: p_data => x_msg_data
2176: p_count => x_msg_count,
2177: p_data => x_msg_data
2178: );
2179:
2180: /* ------- End Standard API Calls ----------------------------- */
2181: EXCEPTION
2182: WHEN FND_API.G_EXC_ERROR THEN
2183: IF (claim_line_csr%ISOPEN) THEN
2184: CLOSE claim_line_csr;
2184: CLOSE claim_line_csr;
2185: END IF;
2186: ROLLBACK TO Interface_Claim_PVT;
2187: x_return_status := FND_API.G_RET_STS_ERROR;
2188: -- Standard call to get message count and if count=1, get the message
2189: FND_MSG_PUB.Count_And_Get (
2190: p_encoded => FND_API.G_FALSE,
2191: p_count => x_msg_count,
2192: p_data => x_msg_data
2196: CLOSE claim_line_csr;
2197: END IF;
2198: ROLLBACK TO Interface_Claim_PVT;
2199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2200: -- Standard call to get message count and if count=1, get the message
2201: FND_MSG_PUB.Count_And_Get (
2202: p_encoded => FND_API.G_FALSE,
2203: p_count => x_msg_count,
2204: p_data => x_msg_data
2212: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2213: THEN
2214: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2215: END IF;
2216: -- Standard call to get message count and if count=1, get the message
2217: FND_MSG_PUB.Count_And_Get (
2218: p_encoded => FND_API.G_FALSE,
2219: p_count => x_msg_count,
2220: p_data => x_msg_data