eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.AHL_WARRANTY_ENTL_PVT dependencies on FND_MSG_PUB

Line 111: FND_MSG_PUB.Initialize;

107: END IF;
108:
109: -- Initialize message list if p_init_msg_list is set to TRUE
110: IF FND_API.To_Boolean( p_init_msg_list) THEN
111: FND_MSG_PUB.Initialize;
112: END IF;
113:
114: -- Initialize Procedure return status to success
115: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 122: l_msg_count := FND_MSG_PUB.count_msg;

118: FND_LOG.string(l_log_statement, l_full_name, 'l_warranty_entl_tbl.COUNT = '|| l_warranty_entl_tbl.COUNT);
119: END IF;
120:
121: -- Get the error message count till this point
122: l_msg_count := FND_MSG_PUB.count_msg;
123:
124: -- Check for the availability of records in the table type.
125: IF (l_warranty_entl_tbl.COUNT >= 1) THEN
126: FOR i IN l_warranty_entl_tbl.FIRST..l_warranty_entl_tbl.LAST LOOP

Line 168: IF (l_msg_count < FND_MSG_PUB.count_msg) THEN

164: END LOOP;
165: END IF;
166:
167: -- If any errors occured, then raise them
168: IF (l_msg_count < FND_MSG_PUB.count_msg) THEN
169: IF (l_log_statement >= l_log_current_level) THEN
170: FND_LOG.string(l_log_statement, l_full_name, 'Process_Warranty_Entitlements errored out');
171: END IF;
172: RAISE FND_API.G_EXC_ERROR;

Line 188: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

184: EXCEPTION
185: WHEN FND_API.G_EXC_ERROR THEN
186: ROLLBACK TO Process_Warranty_Entl_Pub;
187: x_return_status := FND_API.G_RET_STS_ERROR;
188: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
189: p_data => x_msg_data,
190: p_encoded => FND_API.G_FALSE);
191: IF (l_log_exception >= l_log_current_level) THEN
192: FND_LOG.string(l_log_exception, l_full_name, 'Execution Error: ' || x_msg_data);

Line 198: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

194:
195: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
196: ROLLBACK TO Process_Warranty_Entl_Pub;
197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
198: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
199: p_data => x_msg_data,
200: p_encoded => FND_API.G_FALSE);
201: IF (l_log_unexpected >= l_log_current_level) THEN
202: FND_LOG.string(l_log_unexpected, l_full_name, 'Unexpected Exception: ' || x_msg_data);

Line 208: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

204:
205: WHEN OTHERS THEN
206: ROLLBACK TO Process_Warranty_Entl_Pub;
207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
208: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
209: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
210: p_procedure_name => l_api_name,
211: p_error_text => SUBSTR(SQLERRM,1,500));
212: END IF;

Line 209: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,

205: WHEN OTHERS THEN
206: ROLLBACK TO Process_Warranty_Entl_Pub;
207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
208: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
209: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
210: p_procedure_name => l_api_name,
211: p_error_text => SUBSTR(SQLERRM,1,500));
212: END IF;
213: FND_MSG_PUB.count_and_get(p_count => x_msg_count,

Line 213: FND_MSG_PUB.count_and_get(p_count => x_msg_count,

209: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
210: p_procedure_name => l_api_name,
211: p_error_text => SUBSTR(SQLERRM,1,500));
212: END IF;
213: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
214: p_data => x_msg_data,
215: p_encoded => fnd_api.G_FALSE);
216: IF (l_log_unexpected >= l_log_current_level) THEN
217: FND_LOG.string(l_log_unexpected, l_full_name, 'Other Exception: ' || x_msg_data);

Line 348: FND_MSG_PUB.ADD;

344: IF (p_entitlement_id IS NULL) THEN
345: x_return_status := FND_API.G_RET_STS_ERROR;
346: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_ENTL_ID_INVLD'); -- Warranty entitlement id ENTL_ID is invalid.
347: FND_MESSAGE.Set_Token('ENTL_ID', p_entitlement_id);
348: FND_MSG_PUB.ADD;
349: RETURN;
350: END IF;
351:
352: -- get the details of the Workflow process mapped to the object G_WF_ENTL_OBJ

Line 471: FND_MSG_PUB.Initialize;

467: retcode := 0;
468: l_return_status := FND_API.G_RET_STS_SUCCESS;
469:
470: -- initialize error message stack
471: FND_MSG_PUB.Initialize;
472:
473: -- get the details of the Workflow process mapped to the object G_WF_EXPR_OBJ
474: AHL_UTILITY_PVT.Get_WF_Process_Name(
475: p_object => G_WF_EXPR_OBJ,

Line 531: l_msg_count := FND_MSG_PUB.count_msg;

527: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Errors occurred, as given below: ');
528: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
529:
530: -- put all the errors in the log file
531: l_msg_count := FND_MSG_PUB.count_msg;
532: FOR i IN 1..l_msg_count LOOP
533: FND_MSG_PUB.get(
534: p_msg_index => i,
535: p_encoded => FND_API.G_FALSE,

Line 533: FND_MSG_PUB.get(

529:
530: -- put all the errors in the log file
531: l_msg_count := FND_MSG_PUB.count_msg;
532: FOR i IN 1..l_msg_count LOOP
533: FND_MSG_PUB.get(
534: p_msg_index => i,
535: p_encoded => FND_API.G_FALSE,
536: p_data => l_msg_data,
537: p_msg_index_out => l_dummy);

Line 564: errbuf := FND_MSG_PUB.Get;

560:
561: EXCEPTION
562: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
563: retcode := 2;
564: errbuf := FND_MSG_PUB.Get;
565: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Process failed. View program logs for details.');
566:
567: WHEN OTHERS THEN
568: retcode := 2;

Line 618: FND_MSG_PUB.Initialize;

614: retcode := 0;
615: l_return_status := FND_API.G_RET_STS_SUCCESS;
616:
617: -- initialize error message stack
618: FND_MSG_PUB.Initialize;
619:
620: -- get the details of the Workflow process mapped to the object G_WF_WOCL_OBJ
621: AHL_UTILITY_PVT.Get_WF_Process_Name(
622: p_object => G_WF_WOCL_OBJ,

Line 678: l_msg_count := FND_MSG_PUB.count_msg;

674: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Errors occurred, as given below: ');
675: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
676:
677: -- put all the errors in the log file
678: l_msg_count := FND_MSG_PUB.count_msg;
679: FOR i IN 1..l_msg_count LOOP
680: FND_MSG_PUB.get(
681: p_msg_index => i,
682: p_encoded => FND_API.G_FALSE,

Line 680: FND_MSG_PUB.get(

676:
677: -- put all the errors in the log file
678: l_msg_count := FND_MSG_PUB.count_msg;
679: FOR i IN 1..l_msg_count LOOP
680: FND_MSG_PUB.get(
681: p_msg_index => i,
682: p_encoded => FND_API.G_FALSE,
683: p_data => l_msg_data,
684: p_msg_index_out => l_dummy);

Line 711: errbuf := FND_MSG_PUB.Get;

707:
708: EXCEPTION
709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
710: retcode := 2;
711: errbuf := FND_MSG_PUB.Get;
712: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Process failed. View program logs for details.');
713:
714: WHEN OTHERS THEN
715: retcode := 2;

Line 1106: l_msg_count := FND_MSG_PUB.count_msg;

1102: END IF;
1103: -- END IF; -- module type check
1104:
1105: -- get the error message count till this point
1106: l_msg_count := FND_MSG_PUB.count_msg;
1107:
1108: -- validate the record for create
1109: Validate_Warranty_Entitlement (
1110: p_user_role => p_user_role,

Line 1115: IF (l_msg_count < FND_MSG_PUB.count_msg) THEN

1111: p_warranty_entl_rec => p_x_warranty_entl_rec
1112: );
1113:
1114: -- if any errors occured, then don't proceed any further
1115: IF (l_msg_count < FND_MSG_PUB.count_msg) THEN
1116: IF (l_log_statement >= l_log_current_level) THEN
1117: FND_LOG.string(l_log_statement, l_full_name, 'Validate_Warranty_Entitlement for create had errors');
1118: END IF;
1119: RETURN;

Line 1255: FND_MSG_PUB.ADD;

1251: FND_LOG.string(l_log_statement, l_full_name, 'invalid entitlement id for update');
1252: END IF;
1253: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_ENTL_ID_INVLD'); -- Warranty entitlement id ENTL_ID is invalid.
1254: FND_MESSAGE.Set_Token('ENTL_ID', p_x_warranty_entl_rec.warranty_entitlement_id);
1255: FND_MSG_PUB.ADD;
1256: RETURN;
1257: END IF;
1258: CLOSE warranty_entl_csr;
1259:

Line 1266: FND_MSG_PUB.ADD;

1262: IF (l_log_statement >= l_log_current_level) THEN
1263: FND_LOG.string(l_log_statement, l_full_name, 'object_version_number mismatch');
1264: END IF;
1265: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_COM_RECORD_CHANGED'); -- Record has been modified by another user.
1266: FND_MSG_PUB.ADD;
1267: RETURN;
1268: END IF;
1269:
1270: -- module type check commented for present requirements. can be used in future

Line 1410: l_msg_count := FND_MSG_PUB.count_msg;

1406: END IF;
1407: -- END IF; -- module type check
1408:
1409: -- get the error message count till this point
1410: l_msg_count := FND_MSG_PUB.count_msg;
1411:
1412: -- validate the record for update
1413: Validate_Warranty_Entitlement (
1414: p_user_role => p_user_role,

Line 1419: IF (l_msg_count < FND_MSG_PUB.count_msg) THEN

1415: p_warranty_entl_rec => p_x_warranty_entl_rec
1416: );
1417:
1418: -- if any errors occured, then don't proceed any further
1419: IF (l_msg_count < FND_MSG_PUB.count_msg) THEN
1420: IF (l_log_statement >= l_log_current_level) THEN
1421: FND_LOG.string(l_log_statement, l_full_name, 'Validate_Warranty_Entitlement for update had errors');
1422: END IF;
1423: RETURN;

Line 1539: FND_MSG_PUB.ADD;

1535: FND_LOG.string(l_log_statement, l_full_name, 'deletion permitted only to planner user');
1536: END IF;
1537: -- Warranty entitlement deletion is allowed only to the planner or the administrator.
1538: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_DEL_NOT_ALWD');
1539: FND_MSG_PUB.ADD;
1540: RETURN;
1541: END IF;
1542:
1543: IF (l_log_statement >= l_log_current_level) THEN

Line 1598: l_msg_count := FND_MSG_PUB.count_msg;

1594: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'Entering Procedure');
1595: END IF;
1596:
1597: -- get the error message count till this point
1598: l_msg_count := FND_MSG_PUB.count_msg;
1599:
1600: -- check for the entitlement id
1601: OPEN warranty_entl_csr(p_x_warranty_entl_rec.warranty_entitlement_id);
1602: FETCH warranty_entl_csr INTO l_warranty_entl_rec;

Line 1611: FND_MSG_PUB.ADD;

1607: 'invalid entitlement id for approve '||p_x_warranty_entl_rec.warranty_entitlement_id);
1608: END IF;
1609: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_ENTL_ID_INVLD'); -- Warranty entitlement id ENTL_ID is invalid.
1610: FND_MESSAGE.Set_Token('ENTL_ID', p_x_warranty_entl_rec.warranty_entitlement_id);
1611: FND_MSG_PUB.ADD;
1612: END IF;
1613: CLOSE warranty_entl_csr;
1614:
1615: -- check for the user

Line 1624: FND_MSG_PUB.ADD;

1620: 'invalid user for approve '||p_user_role);
1621: END IF;
1622: -- Warranty entitlement approval is allowed only to the administrator.
1623: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_APPR_USER_INVLD');
1624: FND_MSG_PUB.ADD;
1625: END IF;
1626:
1627: -- check for the approval action
1628: IF (NVL(p_appr_action, 'X') NOT IN (G_APPR_ACCEPT, G_APPR_REJECT)) THEN

Line 1636: FND_MSG_PUB.ADD;

1632: 'invalid approval action '||p_appr_action);
1633: END IF;
1634: -- Warranty entitlement approval action can only be Accept or Reject.
1635: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_APPR_ACTION_INVLD');
1636: FND_MSG_PUB.ADD;
1637: END IF;
1638:
1639: -- check for the entitlement status
1640: IF (NVL(p_x_warranty_entl_rec.entitlement_status_code, 'X') <> 'APPROVAL_PENDING') THEN

Line 1648: FND_MSG_PUB.ADD;

1644: 'invalid entitlement status for approve '||p_x_warranty_entl_rec.entitlement_status_code);
1645: END IF;
1646: -- For approval operation, the warranty entitlement status can only be Approval Pending.
1647: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_APPR_STS_INVLD');
1648: FND_MSG_PUB.ADD;
1649: END IF;
1650:
1651: -- run all the status transition checks
1652: -- ************************************

Line 1665: FND_MSG_PUB.ADD;

1661: 'Not Applicable button should be used instead');
1662: END IF;
1663: -- For dis-associating the warranty entitlement from a contract, use the Not Applicable action.
1664: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_APPR_USE_NA');
1665: FND_MSG_PUB.ADD;
1666: END IF;
1667:
1668: -- validate the contract to be updated (only if there weren't any errors till now)
1669: -- 1) for Accept, validate the new contract

Line 1672: IF (l_msg_count < FND_MSG_PUB.count_msg) THEN

1668: -- validate the contract to be updated (only if there weren't any errors till now)
1669: -- 1) for Accept, validate the new contract
1670: -- 2) for Reject, validate the old contract
1671: -- NOTE: point 2 above is not needed, but retaining it for code consistency
1672: IF (l_msg_count < FND_MSG_PUB.count_msg) THEN
1673: IF (l_log_statement >= l_log_current_level) THEN
1674: FND_LOG.string(l_log_statement, l_full_name, 'approval errored out, no need to validate contract id');
1675: END IF;
1676: RETURN;

Line 1693: FND_MSG_PUB.ADD;

1689: END IF;
1690: -- Warranty contract id CONT_ID is invalid.
1691: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_CONT_ID_INVLD');
1692: FND_MESSAGE.Set_Token('CONT_ID', l_contract_id);
1693: FND_MSG_PUB.ADD;
1694: END IF;
1695: CLOSE chk_war_cont_id_csr;
1696: -- ************************************
1697:

Line 1699: IF (l_msg_count < FND_MSG_PUB.count_msg) THEN

1695: CLOSE chk_war_cont_id_csr;
1696: -- ************************************
1697:
1698: -- if any errors occured, then don't proceed any further
1699: IF (l_msg_count < FND_MSG_PUB.count_msg) THEN
1700: IF (l_log_statement >= l_log_current_level) THEN
1701: FND_LOG.string(l_log_statement, l_full_name, 'approval status transition errored out');
1702: END IF;
1703: RETURN;

Line 1795: FND_MSG_PUB.ADD;

1791: 'non-planner with incorrect status '||p_warranty_entl_rec.entitlement_status_code);
1792: END IF;
1793: -- Non-planner or non-administrator can create or update warranty entitlement only in Approval Pending status.
1794: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_NP_STS_INVLD');
1795: FND_MSG_PUB.ADD;
1796: END IF;
1797:
1798: -- Check: Not Applicable or Review status is allowed only for NULL contract id
1799: IF (NVL(p_warranty_entl_rec.entitlement_status_code, 'X') IN ('NOT_APPLICABLE', 'REVIEW') AND

Line 1807: FND_MSG_PUB.ADD;

1803: 'Not Applicable or Review status is allowed only for NULL contract id');
1804: END IF;
1805: -- Warranty entitlement can have status Not Applicable or Review only if it has no contract associated to it.
1806: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_NAR_STS_INVLD');
1807: FND_MSG_PUB.ADD;
1808: END IF;
1809:
1810: -- Check: Approved status is allowed only for non-NULL contract id
1811: IF (NVL(p_warranty_entl_rec.entitlement_status_code, 'X') = 'APPROVED' AND

Line 1819: FND_MSG_PUB.ADD;

1815: 'Approved status is allowed only for non-NULL contract id');
1816: END IF;
1817: -- Warranty entitlement can have status Approved only if it has a valid contract associated to it.
1818: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_APRD_STS_INVLD');
1819: FND_MSG_PUB.ADD;
1820: END IF;
1821:
1822: -- Check: Ids, if present, should be valid
1823: -- ***************************************

Line 1836: FND_MSG_PUB.ADD;

1832: END IF;
1833: -- Warranty contract id CONT_ID is invalid.
1834: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_CONT_ID_INVLD');
1835: FND_MESSAGE.Set_Token('CONT_ID', p_warranty_entl_rec.warranty_contract_id);
1836: FND_MSG_PUB.ADD;
1837: END IF;
1838: CLOSE chk_war_cont_id_csr;
1839: END IF;
1840:

Line 1853: FND_MSG_PUB.ADD;

1849: END IF;
1850: -- Warranty entitlement status code ENTL_STS is invalid.
1851: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_ENTL_STS_INVLD');
1852: FND_MESSAGE.Set_Token('ENTL_STS', p_warranty_entl_rec.entitlement_status_code);
1853: FND_MSG_PUB.ADD;
1854: END IF;
1855: CLOSE chk_entl_sts_code_csr;
1856: END IF;
1857:

Line 1870: FND_MSG_PUB.ADD;

1866: END IF;
1867: -- Warranty entitlement claim id CLAIM_ID is invalid.
1868: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_CLAIM_ID_INVLD');
1869: FND_MESSAGE.Set_Token('CLAIM_ID', p_warranty_entl_rec.warranty_claim_id);
1870: FND_MSG_PUB.ADD;
1871: END IF;
1872: CLOSE chk_claim_id_csr;
1873: END IF;
1874:

Line 1887: FND_MSG_PUB.ADD;

1883: END IF;
1884: -- The incident id 'INCIDENT_ID' is not valid.
1885: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UMP_INVALID_INCIDENT_ID');
1886: FND_MESSAGE.Set_Token('INCIDENT_ID', p_warranty_entl_rec.sr_incident_id);
1887: FND_MSG_PUB.ADD;
1888: END IF;
1889: CLOSE chk_incident_id_csr;
1890: END IF;
1891:

Line 1904: FND_MSG_PUB.ADD;

1900: END IF;
1901: -- Visit task TASK_ID is invalid.
1902: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_LTP_TASK_ID_INVALID');
1903: FND_MESSAGE.Set_Token('TASK_ID', p_warranty_entl_rec.visit_task_id);
1904: FND_MSG_PUB.ADD;
1905: END IF;
1906: CLOSE chk_visit_tsk_id_csr;
1907: END IF;
1908:

Line 1921: FND_MSG_PUB.ADD;

1917: END IF;
1918: -- Workorder id FIELD1 invalid.
1919: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_WORKORDER_ID_INVALID');
1920: FND_MESSAGE.Set_Token('FIELD1', p_warranty_entl_rec.workorder_id);
1921: FND_MSG_PUB.ADD;
1922: END IF;
1923: CLOSE chk_workorder_id_csr;
1924: END IF;
1925:

Line 1938: FND_MSG_PUB.ADD;

1934: END IF;
1935: -- OSP order line id OLINE_ID is invalid.
1936: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_WARRANTY_OLINE_ID_INVLD');
1937: FND_MESSAGE.Set_Token('OLINE_ID', p_warranty_entl_rec.osp_order_line_id);
1938: FND_MSG_PUB.ADD;
1939: END IF;
1940: CLOSE chk_osp_line_id_csr;
1941: END IF;
1942: -- ***************************************