APPS.POR_CONTRACTOR_NOTIFY dependencies on POR_CONTRACTOR_NOTIFY

Line 1: PACKAGE BODY POR_CONTRACTOR_NOTIFY AS

1: PACKAGE BODY POR_CONTRACTOR_NOTIFY AS
2: /* $Header: PORGCNTB.pls 115.2 2004/06/17 18:39:39 mahmad noship $*/
3:
4: -- Read the profile option that enables/disables the debug log
5: g_po_wf_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('PO_SET_DEBUG_WORKFLOW_ON'),'N');

Line 6: g_pkg_name CONSTANT VARCHAR2(50) := 'POR_CONTRACTOR_NOTIFY';

2: /* $Header: PORGCNTB.pls 115.2 2004/06/17 18:39:39 mahmad noship $*/
3:
4: -- Read the profile option that enables/disables the debug log
5: g_po_wf_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('PO_SET_DEBUG_WORKFLOW_ON'),'N');
6: g_pkg_name CONSTANT VARCHAR2(50) := 'POR_CONTRACTOR_NOTIFY';
7: g_module_prefix CONSTANT VARCHAR2(50) := 'por.plsql.' || g_pkg_name || '.';
8:
9: /*===========================================================================
10: PROCEDURE NAME: SUPPLIER_NEED_NOTIFY

Line 319: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE,ITEMKEY,'POR_CONTRACTOR_NOTIFY.GET_ADHOC_EMAIL_ROLE: L_REQ_SUPPLIER_ID:' || L_REQ_SUPPLIER_ID);

315:
316: BEGIN
317:
318: IF (G_PO_WF_DEBUG = 'Y') THEN
319: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE,ITEMKEY,'POR_CONTRACTOR_NOTIFY.GET_ADHOC_EMAIL_ROLE: L_REQ_SUPPLIER_ID:' || L_REQ_SUPPLIER_ID);
320: END IF;
321:
322: BEGIN
323: IF (L_REQ_SUPPLIER_ID IS NOT NULL) THEN

Line 344: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE,ITEMKEY,'POR_CONTRACTOR_NOTIFY.GET_ADHOC_EMAIL_ROLE: SUPPLIER SITE DOES NOT EXIST');

340:
341: EXCEPTION
342: WHEN NO_DATA_FOUND THEN
343: IF (G_PO_WF_DEBUG = 'Y') THEN
344: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE,ITEMKEY,'POR_CONTRACTOR_NOTIFY.GET_ADHOC_EMAIL_ROLE: SUPPLIER SITE DOES NOT EXIST');
345: END IF;
346: RETURN NULL;
347: END;
348:

Line 366: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE,ITEMKEY,'POR_CONTRACTOR_NOTIFY.GET_ADHOC_EMAIL_ROLE: L_EMAIL_ADDRESS FROM SUPPLIER SITE:' || L_EMAIL_ADDRESS || '*');

362: L_EMAIL_ADDRESS := NULL;
363: END;
364:
365: IF (G_PO_WF_DEBUG = 'Y') THEN
366: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE,ITEMKEY,'POR_CONTRACTOR_NOTIFY.GET_ADHOC_EMAIL_ROLE: L_EMAIL_ADDRESS FROM SUPPLIER SITE:' || L_EMAIL_ADDRESS || '*');
367: END IF;
368:
369: --GET EMAIL ADDRESS FROM VENDOR CONTACTS
370: IF L_EMAIL_ADDRESS IS NULL AND L_VENDOR_CONTACT_ID IS NOT NULL THEN

Line 378: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE,ITEMKEY,'POR_CONTRACTOR_NOTIFY.GET_ADHOC_EMAIL_ROLE: L_EMAIL_ADDRESS FROM VENDOR CONTACT:' || L_EMAIL_ADDRESS);

374: FROM PO_VENDOR_CONTACTS
375: WHERE VENDOR_CONTACT_ID = L_VENDOR_CONTACT_ID;
376:
377: IF (G_PO_WF_DEBUG = 'Y') THEN
378: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE,ITEMKEY,'POR_CONTRACTOR_NOTIFY.GET_ADHOC_EMAIL_ROLE: L_EMAIL_ADDRESS FROM VENDOR CONTACT:' || L_EMAIL_ADDRESS);
379: END IF;
380:
381: EXCEPTION
382: WHEN NO_DATA_FOUND THEN

Line 389: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE,ITEMKEY,'POR_CONTRACTOR_NOTIFY.GET_ADHOC_EMAIL_ROLE: L_EMAIL_ADDRESS IS NULL');

385: END IF;
386:
387: IF L_EMAIL_ADDRESS IS NULL THEN
388: IF (G_PO_WF_DEBUG = 'Y') THEN
389: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE,ITEMKEY,'POR_CONTRACTOR_NOTIFY.GET_ADHOC_EMAIL_ROLE: L_EMAIL_ADDRESS IS NULL');
390: END IF;
391: RETURN NULL;
392: END IF;
393:

Line 435: X_PROGRESS := 'POR_CONTRACTOR_NOTIFY.GET_ADHOC_EMAIL_ROLE: 02';

431: L_ADHOCUSER_LANG, L_ADHOCUSER_TERRITORY, L_EMAIL_ADDRESS, NULL);
432:
433: END IF;
434:
435: X_PROGRESS := 'POR_CONTRACTOR_NOTIFY.GET_ADHOC_EMAIL_ROLE: 02';
436: IF (G_PO_WF_DEBUG = 'Y') THEN
437: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE,ITEMKEY,X_PROGRESS);
438: END IF;
439:

Line 485: END POR_CONTRACTOR_NOTIFY;

481: END IF;
482:
483: END SET_REQSINPOOL_FLAG;
484:
485: END POR_CONTRACTOR_NOTIFY;