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_DI_SUBSCRIPTION_PUB dependencies on FND_MSG_PUB

Line 167: FND_MSG_PUB.initialize;

163: END IF;
164: -- Standard call to check for call compatibility.
165: IF FND_API.to_boolean(l_init_msg_list)
166: THEN
167: FND_MSG_PUB.initialize;
168: END IF;
169: -- Initialize API return status to success
170: x_return_status := 'S';
171: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 196: FND_MSG_PUB.ADD;

192: IF for_party_name%FOUND THEN
193: p_x_subscription_tbl(i).requested_by_party_id := l_requested_by_party_id;
194: ELSE
195: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REQ_PTY_ID_NOT_EXISTS');
196: FND_MSG_PUB.ADD;
197: END IF;
198: CLOSE for_party_name;
199:
200: ELSIF ahl_di_doc_index_pvt.get_product_install_status('PER') in ('I','S') THEN

Line 214: FND_MSG_PUB.ADD;

210: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REQ_ID_NOT_EXISTS');
211: FND_MESSAGE.SET_TOKEN('REQ',p_x_subscription_tbl(i).requested_by_pty_name);
212:
213:
214: FND_MSG_PUB.ADD;
215: -- If only 1 record for name, use the id: id will be unique: use id
216: ELSIF get_party_name%ROWCOUNT = 1 THEN
217: p_x_subscription_tbl(i).requested_by_party_id := l_requested_by_party_id;
218: -- If more than 1 record, then error: id is not unique: ask user to choose from LOV

Line 225: FND_MSG_PUB.ADD;

221: p_x_subscription_tbl(i).requested_by_party_id IS NULL
222: THEN
223: -- FND_MESSAGE.SET_NAME('AHL','LOV dup val');
224: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REQUESTED_BY_USE_LOV');
225: FND_MSG_PUB.ADD;
226: END IF;
227: CLOSE get_party_name;
228: END IF;
229:

Line 234: FND_MSG_PUB.ADD;

230: -- Party Name is not present: since id is mandatory: show error
231: ELSE
232: -- FND_MESSAGE.SET_NAME('AHL',' '|| p_x_subscription_tbl(i).requested_by_pty_name);
233: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REQ_PTY_ID_NULL');
234: FND_MSG_PUB.ADD;
235:
236: END IF;
237:
238: -- For Subscribed From...

Line 251: FND_MSG_PUB.ADD;

247: THEN
248: l_subscription_tbl(i).subscribed_frm_party_id := l_supplier_id;
249: ELSE
250: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUB_PTY_ID_INVALID');
251: FND_MSG_PUB.ADD;
252: END IF;
253: CLOSE for_party_name;
254:
255: ELSIF ahl_di_doc_index_pvt.get_product_install_status('PO') IN ('I','S') THEN

Line 265: FND_MSG_PUB.ADD;

261: ELSE
262: --FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUB_PTY_ID_INVALID');
263: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUB_ID_INVALID');
264: FND_MESSAGE.SET_TOKEN('SUP',p_x_subscription_tbl(i).subscribed_frm_pty_name);
265: FND_MSG_PUB.ADD;
266: END IF;
267: CLOSE for_vendor_id;
268:
269: END IF;

Line 277: FND_MSG_PUB.ADD;

273:
274: -- l_subscription_tbl(i).subscribed_frm_party_id := null;
275: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBSCRIPTION_REQD');
276: FND_MESSAGE.SET_TOKEN('FIELD1',p_x_subscription_tbl(i).requested_by_pty_name);
277: FND_MSG_PUB.ADD;
278: END IF;
279:
280: --For Media Type Code
281: IF p_x_subscription_tbl(i).media_type_desc IS NOT NULL

Line 295: FND_MSG_PUB.ADD;

291:
292: IF nvl(l_return_status, 'X') <> 'S'
293: THEN
294: FND_MESSAGE.SET_NAME('AHL','AHL_DI_MEDTYP_CODE_NOT_EXISTS');
295: FND_MSG_PUB.ADD;
296: END IF;
297: END IF;
298: -- If id is present
299: -- Both are missing

Line 316: FND_MSG_PUB.ADD;

312:
313: IF nvl(l_return_status, 'X') <> 'S'
314: THEN
315: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBTYP_CODE_NOT_EXISTS');
316: FND_MSG_PUB.ADD;
317: END IF;
318: END IF;
319: -- Code Presents
320: l_subscription_tbl(i).subscription_type_code := p_x_subscription_tbl(i).subscription_type_code;

Line 337: FND_MSG_PUB.ADD;

333:
334: IF nvl(l_return_status, 'X') <> 'S'
335: THEN
336: FND_MESSAGE.SET_NAME('AHL','AHL_DI_FREQCY_CODE_NOT_EXISTS');
337: FND_MSG_PUB.ADD;
338: END IF;
339: END IF;
340: -- Frequency Code present
341: l_subscription_tbl(i).frequency_code := p_x_subscription_tbl(i).frequency_code;

Line 358: FND_MSG_PUB.ADD;

354:
355: IF nvl(l_return_status, 'X') <> 'S'
356: THEN
357: FND_MESSAGE.SET_NAME('AHL','AHL_DI_STATUS_CODE_NOT_EXISTS');
358: FND_MSG_PUB.ADD;
359: END IF;
360: END IF;
361: -- If Status Code is Avialable
362: IF p_x_subscription_tbl(i).status_code IS NOT NULL

Line 367: FND_MSG_PUB.ADD;

363: THEN
364: l_subscription_tbl(i).status_code := p_x_subscription_tbl(i).status_code;
365: ELSE
366: FND_MESSAGE.SET_NAME('AHL','AHL_DI_STATUS_CODE_NULL');
367: FND_MSG_PUB.ADD;
368: END IF;
369:
370:
371: -- Enhancement #2205830:If quantity is non integral. pbarman march 2003

Line 379: FND_MSG_PUB.ADD;

375: l_check_quantity := p_x_subscription_tbl(i).quantity;
376: IF l_check_quantity > TRUNC(l_check_quantity,0)
377: THEN
378: FND_MESSAGE.SET_NAME('AHL','AHL_DI_QTY_NON_INT');
379: FND_MSG_PUB.ADD;
380: END IF;
381: END IF;
382: -- Enhancement #2525108: check PO Number against PO Numbers in PO_PURCHASE_ORDER_V: pbarman april 2003
383:

Line 394: FND_MSG_PUB.ADD;

390: IF for_ponumber_id%FOUND THEN
391: l_subscription_tbl(i).purchase_order_no := l_purchase_order_no;
392: ELSE
393: FND_MESSAGE.SET_NAME('AHL','AHL_DI_PO_NUM_NOT_EXISTS');
394: FND_MSG_PUB.ADD;
395: END IF;
396: CLOSE for_ponumber_id;
397:
398: ELSIF ahl_di_doc_index_pvt.get_product_install_status('PO') in ('N','L')THEN

Line 500: l_msg_count := FND_MSG_PUB.count_msg;

496: /*---------------------------------------------------------*/
497: /* End ; Date : Dec 20 2001 */
498: /*---------------------------------------------------------*/
499: -- Standard call to get message count and if count is get message info.
500: l_msg_count := FND_MSG_PUB.count_msg;
501:
502: IF l_msg_count > 0 THEN
503: X_msg_count := l_msg_count;
504: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR

Line 530: l_msg_count := FND_MSG_PUB.count_msg;

526: x_msg_data => l_msg_data
527: );
528:
529: -- Standard call to get message count and if count is get message info.
530: l_msg_count := FND_MSG_PUB.count_msg;
531:
532: IF l_msg_count > 0 THEN
533: X_msg_count := l_msg_count;
534: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR

Line 635: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

631: EXCEPTION
632: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
633: ROLLBACK TO create_subscription;
634: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
635: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
636: p_count => x_msg_count,
637: p_data => x_msg_data);
638: IF G_DEBUG='Y' THEN
639: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );

Line 651: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

647:
648: WHEN FND_API.G_EXC_ERROR THEN
649: ROLLBACK TO create_subscription;
650: X_return_status := FND_API.G_RET_STS_ERROR;
651: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
652: p_count => x_msg_count,
653: p_data => X_msg_data);
654: -- Debug info.
655: IF G_DEBUG='Y' THEN

Line 668: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

664:
665: WHEN OTHERS THEN
666: ROLLBACK TO create_subscription;
667: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
668: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
669: THEN
670: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_SUBSCRIPTION_PUB',
671: p_procedure_name => 'CREATE_SUBSCRIPTION',
672: p_error_text => SUBSTR(SQLERRM,1,240));

Line 670: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_SUBSCRIPTION_PUB',

666: ROLLBACK TO create_subscription;
667: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
668: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
669: THEN
670: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_SUBSCRIPTION_PUB',
671: p_procedure_name => 'CREATE_SUBSCRIPTION',
672: p_error_text => SUBSTR(SQLERRM,1,240));
673: END IF;
674: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

Line 674: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

670: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_SUBSCRIPTION_PUB',
671: p_procedure_name => 'CREATE_SUBSCRIPTION',
672: p_error_text => SUBSTR(SQLERRM,1,240));
673: END IF;
674: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
675: p_count => x_msg_count,
676: p_data => X_msg_data);
677:
678: -- Debug info.

Line 817: FND_MSG_PUB.initialize;

813: END IF;
814: -- Standard call to check for call compatibility.
815: IF FND_API.to_boolean(l_init_msg_list)
816: THEN
817: FND_MSG_PUB.initialize;
818: END IF;
819: -- Initialize API return status to success
820: x_return_status := 'S';
821: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 846: FND_MSG_PUB.ADD;

842: IF for_party_name%FOUND THEN
843: l_subscription_tbl(i).requested_by_party_id := l_requested_by_party_id;
844: ELSE
845: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REQ_PTY_ID_NOT_EXISTS');
846: FND_MSG_PUB.ADD;
847: END IF;
848: CLOSE for_party_name;
849:
850: ELSIF ahl_di_doc_index_pvt.get_product_install_status('PER') in ('I','S') THEN

Line 870: FND_MSG_PUB.ADD;

866:
867: -- FND_MESSAGE.SET_NAME('AHL','AHL_DI_REQ_PTY_ID_NOT_EXISTS');
868: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REQ_ID_NOT_EXISTS');
869: FND_MESSAGE.SET_TOKEN('REQ',p_x_subscription_tbl(i).requested_by_pty_name);
870: FND_MSG_PUB.ADD;
871:
872:
873: -- If only 1 record for name, use the id: id will be unique: use id
874: ELSIF get_party_name%ROWCOUNT = 1 THEN

Line 881: FND_MSG_PUB.ADD;

877: ELSIF p_x_subscription_tbl(i).requested_by_party_id IS NULL
878: THEN
879: -- FND_MESSAGE.SET_NAME('AHL','AHL_DI_edit');
880: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REQUESTED_BY_USE_LOV');
881: FND_MSG_PUB.ADD;
882: END IF;
883: CLOSE get_party_name;
884: END IF;
885: CLOSE get_party_name_id;

Line 894: FND_MSG_PUB.ADD;

890: ELSE
891: IF p_x_subscription_tbl(i).delete_flag = 'N'
892: THEN
893: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REQ_PTY_ID_NULL');
894: FND_MSG_PUB.ADD;
895: END IF;
896: END IF;
897:
898: -- For Subscribed From...

Line 911: FND_MSG_PUB.ADD;

907: THEN
908: l_subscription_tbl(i).subscribed_frm_party_id := l_supplier_id;
909: ELSE
910: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUB_PTY_ID_INVALID');
911: FND_MSG_PUB.ADD;
912: END IF;
913: CLOSE for_party_name;
914:
915: ELSIF ahl_di_doc_index_pvt.get_product_install_status('PO') IN ('I','S') THEN

Line 927: FND_MSG_PUB.ADD;

923: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUB_ID_INVALID');
924: FND_MESSAGE.SET_TOKEN('SUP',p_x_subscription_tbl(i).subscribed_frm_pty_name);
925:
926:
927: FND_MSG_PUB.ADD;
928: END IF;
929: CLOSE for_vendor_id;
930:
931: END IF;

Line 945: FND_MSG_PUB.ADD;

941: ELSE
942: FND_MESSAGE.SET_TOKEN('FIELD1', '');
943: END IF;
944:
945: FND_MSG_PUB.ADD;
946: END IF;
947: END IF;
948:
949: --For Media Type Code

Line 964: FND_MSG_PUB.ADD;

960:
961: IF nvl(l_return_status, 'X') <> 'S'
962: THEN
963: FND_MESSAGE.SET_NAME('AHL','AHL_DI_MEDTYP_CODE_NOT_EXISTS');
964: FND_MSG_PUB.ADD;
965: END IF;
966: END IF;
967: -- If id is present
968: l_subscription_tbl(i).media_type_code := p_x_subscription_tbl(i).media_type_code;

Line 984: FND_MSG_PUB.ADD;

980:
981: IF nvl(l_return_status, 'X') <> 'S'
982: THEN
983: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBTYP_CODE_NOT_EXISTS');
984: FND_MSG_PUB.ADD;
985: END IF;
986: END IF;
987: -- Subscription type code is available
988: l_subscription_tbl(i).subscription_type_code := p_x_subscription_tbl(i).subscription_type_code;

Line 1005: FND_MSG_PUB.ADD;

1001:
1002: IF nvl(l_return_status, 'X') <> 'S'
1003: THEN
1004: FND_MESSAGE.SET_NAME('AHL','AHL_DI_FREQCY_CODE_NOT_EXISTS');
1005: FND_MSG_PUB.ADD;
1006: END IF;
1007: END IF;
1008: -- Frequency Code present
1009: l_subscription_tbl(i).frequency_code := p_x_subscription_tbl(i).frequency_code;

Line 1026: FND_MSG_PUB.ADD;

1022:
1023: IF nvl(l_return_status, 'X') <> 'S'
1024: THEN
1025: FND_MESSAGE.SET_NAME('AHL','AHL_DI_STATUS_CODE_NOT_EXISTS');
1026: FND_MSG_PUB.ADD;
1027: END IF;
1028: END IF;
1029: -- If Status Code is Avialable
1030: l_subscription_tbl(i).status_code := p_x_subscription_tbl(i).status_code;

Line 1040: FND_MSG_PUB.ADD;

1036: l_check_quantity := p_x_subscription_tbl(i).quantity;
1037: IF l_check_quantity > TRUNC(l_check_quantity,0)
1038: THEN
1039: FND_MESSAGE.SET_NAME('AHL','AHL_DI_QTY_NON_INT');
1040: FND_MSG_PUB.ADD;
1041: END IF;
1042: END IF;
1043:
1044: -- enhancement : #2525108 : check PO Number against PO Numbers in PO_PURCHASE_ORDER_V: pbarman april 2003

Line 1061: FND_MSG_PUB.ADD;

1057: ELSE
1058: IF p_x_subscription_tbl(i).delete_flag = 'N'
1059: THEN
1060: FND_MESSAGE.SET_NAME('AHL','AHL_DI_PO_NUM_NOT_EXISTS');
1061: FND_MSG_PUB.ADD;
1062: END IF;
1063: END IF;
1064: CLOSE for_ponumber_id;
1065:

Line 1166: l_msg_count := FND_MSG_PUB.count_msg;

1162: /* End ; Date : Dec 20 2001 */
1163: /*---------------------------------------------------------*/
1164:
1165: -- Standard call to get message count and if count is get message info.
1166: l_msg_count := FND_MSG_PUB.count_msg;
1167: --
1168: IF l_msg_count > 0 THEN
1169: X_msg_count := l_msg_count;
1170: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR

Line 1199: l_msg_count := FND_MSG_PUB.count_msg;

1195: x_msg_data => l_msg_data
1196: );
1197:
1198: -- Standard call to get message count and if count is get message info.
1199: l_msg_count := FND_MSG_PUB.count_msg;
1200: --
1201: IF l_msg_count > 0 THEN
1202: X_msg_count := l_msg_count;
1203: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR

Line 1297: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

1293: EXCEPTION
1294: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1295: ROLLBACK TO modify_subscription;
1296: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1297: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1298: p_count => x_msg_count,
1299: p_data => x_msg_data);
1300: IF G_DEBUG='Y' THEN
1301: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );

Line 1313: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

1309:
1310: WHEN FND_API.G_EXC_ERROR THEN
1311: ROLLBACK TO modify_subscription;
1312: X_return_status := FND_API.G_RET_STS_ERROR;
1313: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1314: p_count => x_msg_count,
1315: p_data => X_msg_data);
1316: -- Debug info.
1317: IF G_DEBUG='Y' THEN

Line 1330: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

1326:
1327: WHEN OTHERS THEN
1328: ROLLBACK TO modify_subscription;
1329: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1330: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1331: THEN
1332: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_SUBSCRIPTION_PUB',
1333: p_procedure_name => 'MODIFY_SUBSCRIPTION',
1334: p_error_text => SUBSTR(SQLERRM,1,240));

Line 1332: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_SUBSCRIPTION_PUB',

1328: ROLLBACK TO modify_subscription;
1329: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1330: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1331: THEN
1332: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_SUBSCRIPTION_PUB',
1333: p_procedure_name => 'MODIFY_SUBSCRIPTION',
1334: p_error_text => SUBSTR(SQLERRM,1,240));
1335: END IF;
1336: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

Line 1336: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

1332: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_SUBSCRIPTION_PUB',
1333: p_procedure_name => 'MODIFY_SUBSCRIPTION',
1334: p_error_text => SUBSTR(SQLERRM,1,240));
1335: END IF;
1336: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1337: p_count => x_msg_count,
1338: p_data => X_msg_data);
1339:
1340: -- Debug info.