[Home] [Help]
1: PACKAGE BODY OZF_Ar_Interface_PVT AS
2: /*$Header: ozfvarib.pls 120.16 2012/05/16 06:14:42 bkunjan 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_????';
1090: WHERE trx.cust_trx_type_id = ct.dm_trx_type_id
1091: AND ct.claim_type_id = cv_claim_type_id;
1092:
1093: CURSOR csr_cust_payment_term(cv_cust_account_id IN NUMBER) IS
1094: SELECT standard_terms
1095: FROM hz_customer_profiles
1096: WHERE cust_account_id = cv_cust_account_id
1097: AND site_use_id IS NULL;
1098: /*
1101: WHERE cust_account_id = cv_cust_account_id;
1102: */
1103:
1104: CURSOR csr_cust_address_pay_term(cv_cust_account_id IN NUMBER, cv_site_use_id IN NUMBER) IS
1105: SELECT standard_terms
1106: FROM hz_customer_profiles
1107: WHERE cust_account_id = cv_cust_account_id
1108: AND site_use_id = cv_site_use_id;
1109:
1173: BEGIN
1174: -- Start populating the interface record values
1175: x_return_status := FND_API.g_ret_sts_success;
1176:
1177: /* -- Standard Who Columns ------------------------- */
1178: p_x_interface_line_rec.CREATED_BY := FND_GLOBAL.USER_ID;
1179: p_x_interface_line_rec.CREATION_DATE := SYSDATE ;
1180: p_x_interface_line_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
1181: p_x_interface_line_rec.LAST_UPDATE_DATE := SYSDATE;
1622: BEGIN
1623: -- Start populating the interface record values
1624: x_return_status := FND_API.g_ret_sts_success;
1625:
1626: /* -- Standard Who Columns ------------------------- */
1627: x_interface_tax_rec.CREATED_BY := FND_GLOBAL.USER_ID;
1628: x_interface_tax_rec.CREATION_DATE := SYSDATE ;
1629: x_interface_tax_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
1630: x_interface_tax_rec.LAST_UPDATE_DATE := SYSDATE;
1729: BEGIN
1730: -- Start populating the interface record values
1731: x_return_status := FND_API.g_ret_sts_success;
1732:
1733: /* -- Standard Who Columns ------------------------- */
1734: p_x_int_distributions_rec.CREATED_BY := FND_GLOBAL.USER_ID;
1735: p_x_int_distributions_rec.CREATION_DATE := SYSDATE ;
1736: p_x_int_distributions_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
1737: p_x_int_distributions_rec.LAST_UPDATE_DATE := SYSDATE;
2054:
2055:
2056: BEGIN
2057:
2058: /* ------- Begin Standard API Calls --------------------------- */
2059: -- Standard begin of API savepoint
2060: SAVEPOINT Interface_Claim_PVT ;
2061: -- Standard call to check for call compatibility.
2062: IF NOT FND_API.Compatible_API_Call (
2055:
2056: BEGIN
2057:
2058: /* ------- Begin Standard API Calls --------------------------- */
2059: -- Standard begin of API savepoint
2060: SAVEPOINT Interface_Claim_PVT ;
2061: -- Standard call to check for call compatibility.
2062: IF NOT FND_API.Compatible_API_Call (
2063: l_api_version,
2057:
2058: /* ------- Begin Standard API Calls --------------------------- */
2059: -- Standard begin of API savepoint
2060: SAVEPOINT Interface_Claim_PVT ;
2061: -- Standard call to check for call compatibility.
2062: IF NOT FND_API.Compatible_API_Call (
2063: l_api_version,
2064: p_api_version,
2065: l_api_name,
2079: END IF;
2080: -- Initialize API return status to sucess
2081: x_return_status := FND_API.G_RET_STS_SUCCESS;
2082:
2083: /* ------- End Standard API Calls ----------------------------- */
2084:
2085: /* ------- Begin API Logic ------------------------------------ */
2086:
2087: OPEN claim_gl_posting_csr(p_claim_id) ;
2166: SET payment_status = 'INTERFACED'
2167: WHERE claim_id = p_claim_id;
2168: /* ------- End Update Claim Payment Status ------------------- */
2169:
2170: /* ------- Begin Standard API Calls --------------------------- */
2171:
2172: --Standard check of commit
2173: IF FND_API.To_Boolean ( p_commit ) THEN
2174: COMMIT WORK;
2168: /* ------- End Update Claim Payment Status ------------------- */
2169:
2170: /* ------- Begin Standard API Calls --------------------------- */
2171:
2172: --Standard check of commit
2173: IF FND_API.To_Boolean ( p_commit ) THEN
2174: COMMIT WORK;
2175: END IF;
2176: -- Debug Message
2178: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2179: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
2180: FND_MSG_PUB.Add;
2181: END IF;
2182: --Standard call to get message count and if count=1, get the message
2183: FND_MSG_PUB.Count_And_Get (
2184: p_encoded => FND_API.G_FALSE,
2185: p_count => x_msg_count,
2186: p_data => x_msg_data
2185: p_count => x_msg_count,
2186: p_data => x_msg_data
2187: );
2188:
2189: /* ------- End Standard API Calls ----------------------------- */
2190: EXCEPTION
2191: WHEN FND_API.G_EXC_ERROR THEN
2192: IF (claim_line_csr%ISOPEN) THEN
2193: CLOSE claim_line_csr;
2193: CLOSE claim_line_csr;
2194: END IF;
2195: ROLLBACK TO Interface_Claim_PVT;
2196: x_return_status := FND_API.G_RET_STS_ERROR;
2197: -- Standard call to get message count and if count=1, get the message
2198: FND_MSG_PUB.Count_And_Get (
2199: p_encoded => FND_API.G_FALSE,
2200: p_count => x_msg_count,
2201: p_data => x_msg_data
2205: CLOSE claim_line_csr;
2206: END IF;
2207: ROLLBACK TO Interface_Claim_PVT;
2208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2209: -- Standard call to get message count and if count=1, get the message
2210: FND_MSG_PUB.Count_And_Get (
2211: p_encoded => FND_API.G_FALSE,
2212: p_count => x_msg_count,
2213: p_data => x_msg_data
2221: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2222: THEN
2223: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2224: END IF;
2225: -- Standard call to get message count and if count=1, get the message
2226: FND_MSG_PUB.Count_And_Get (
2227: p_encoded => FND_API.G_FALSE,
2228: p_count => x_msg_count,
2229: p_data => x_msg_data