1: PACKAGE BODY AMS_ListHeader_PVT as
2: /* $Header: amsvlshb.pls 120.4 2005/12/14 05:30:55 bmuthukr ship $ */
3: -- Start of Comments
4: --
5: -- NAME
2: /* $Header: amsvlshb.pls 120.4 2005/12/14 05:30:55 bmuthukr ship $ */
3: -- Start of Comments
4: --
5: -- NAME
6: -- AMS_ListHeader_PVT
7: --
8: -- PURPOSE
9: -- Private API for Oracle Marketing(AMS) List Headers
10: --
37: -- to tl tables, cue cards validation
38:
39: -- End of Comments
40:
41: G_PKG_NAME CONSTANT VARCHAR2(30):='AMS_ListHeader_PVT';
42: G_FILE_NAME CONSTANT VARCHAR2(12):='amsvlshb.pls';
43:
44: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
45: AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
717: BEGIN
718: -- Debug Message
719: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
720: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
721: FND_MESSAGE.Set_Token('ROW', 'AMS_ListHeader_PVT.Validate_List_Record: Start', TRUE);
722: FND_MSG_PUB.Add;
723: END IF; */
724:
725:
723: END IF; */
724:
725:
726: IF (AMS_DEBUG_HIGH_ON) THEN
727: AMS_Utility_PVT.debug_message('AMS_ListHeader_PVT.Validate_List_Record: Start');
728: END IF;
729:
730:
731: -- Initialize API return status to success
835:
836: -- Success Message
837: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
838: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
839: FND_MESSAGE.Set_Token('ROW', 'AMS_ListHeader_PVT.Validate_List_Record', TRUE);
840: FND_MSG_PUB.Add;
841: END IF;
842:
843:
842:
843:
844: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
845: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
846: FND_MESSAGE.Set_Token('ROW', 'AMS_ListHeader_PVT.Validate_List_Record: END', TRUE);
847: FND_MSG_PUB.Add;
848: END IF; */
849:
850: EXCEPTION
1046:
1047: -- Debug Message
1048: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1049: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1050: FND_MESSAGE.Set_Token('ROW', 'AMS_ListHeader_PVT.Validate_ListHeader: Start', TRUE);
1051: FND_MSG_PUB.Add;
1052: END IF; */
1053:
1054: IF (AMS_DEBUG_HIGH_ON) THEN
1108: -- MMSG
1109: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
1110: THEN
1111: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
1112: FND_MESSAGE.Set_Token('ROW', 'AMS_ListHeader_PVT.Validate_ListHeader', TRUE);
1113: FND_MSG_PUB.Add;
1114: END IF;
1115:
1116:
1115:
1116:
1117: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1118: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1119: FND_MESSAGE.Set_Token('ROW', 'AMS_ListHeader_PVT.Validate_ListHeader: END', TRUE);
1120: FND_MSG_PUB.Add;
1121: END IF; */
1122: -- Standard call to get message count AND IF count is 1, get message info.
1123: FND_MSG_PUB.Count_AND_Get
1743: END IF;
1744: -- Debug Message
1745: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1746: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1747: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders: Start', TRUE);
1748: FND_MSG_PUB.Add;
1749: END IF; */
1750:
1751: IF (AMS_DEBUG_HIGH_ON) THEN
1789:
1790: -- Debug Message
1791: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1792: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1793: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders: Done Timezone', TRUE);
1794: FND_MSG_PUB.Add;
1795: END IF; */
1796:
1797: IF (AMS_DEBUG_HIGH_ON) THEN
1817:
1818: -- Debug Message
1819: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1820: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1821: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders: Item Level Validation', TRUE);
1822: FND_MSG_PUB.Add;
1823: END IF; */
1824:
1825: IF (AMS_DEBUG_HIGH_ON) THEN
1843:
1844: -- Perform the database operation
1845: /* ckapoor IF (AMS_DEBUG_LOW_ON) THEN
1846: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1847: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT - update ams_listheaders', TRUE);
1848: FND_MSG_PUB.Add;
1849: END IF; */
1850:
1851: IF (AMS_DEBUG_LOW_ON) THEN
2026: -- API message list. --
2027: ------------------------------------------------------------------
2028: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2029: FND_MESSAGE.set_name('AMS', 'API_UNEXP_ERROR_IN_PROCESSING');
2030: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders API', TRUE);
2031: FND_MSG_PUB.Add;
2032: END IF;
2033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2034: END IF;
2049: -- API message list. --
2050: ------------------------------------------------------------------
2051: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2052: FND_MESSAGE.set_name('AMS', 'API_UNEXP_ERROR_IN_PROCESSING');
2053: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders API', TRUE);
2054: FND_MSG_PUB.Add;
2055: END IF;
2056: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2057: END IF;
2081:
2082: -- Success Message
2083: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
2084: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
2085: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders', TRUE);
2086: FND_MSG_PUB.Add;
2087: END IF;
2088:
2089: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
2087: END IF;
2088:
2089: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
2090: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2091: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders: END', TRUE);
2092: FND_MSG_PUB.Add;
2093: END IF; */
2094:
2095: -- Standard call to get message count AND IF count is 1, get message info.
2189:
2190: -- Debug Message
2191: IF (AMS_DEBUG_HIGH_ON) THEN
2192: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2193: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Delete_listheaders: Start', TRUE);
2194: FND_MSG_PUB.Add;
2195: END IF;
2196:
2197: -- Initialize API return status to success
2237:
2238: -- Success Message
2239: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
2240: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
2241: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Delete_listheaders', TRUE);
2242: FND_MSG_PUB.Add;
2243: END IF;
2244:
2245:
2244:
2245:
2246: IF (AMS_DEBUG_HIGH_ON) THEN
2247: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2248: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Delete_listheader: END', TRUE);
2249: FND_MSG_PUB.Add;
2250: END IF;
2251:
2252:
3331: FND_MSG_PUB.Add;
3332: END IF; */
3333:
3334: IF (AMS_DEBUG_HIGH_ON) THEN
3335: AMS_Utility_PVT.debug_message('AMS_ListHeader_PVT.Copy_List: Start');
3336: END IF;
3337:
3338: -- Initialize API return status to success
3339: x_return_status := FND_API.G_RET_STS_SUCCESS;
3499: );
3500:
3501: END Copy_List;
3502:
3503: END AMS_listheader_PVT;