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 120.1 2011/03/25 09:35:05 mmaramga ship $*/
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 120.1 2011/03/25 09:35:05 mmaramga ship $*/
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 379: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE,ITEMKEY,'POR_CONTRACTOR_NOTIFY.GET_ADHOC_EMAIL_ROLE: L_EMAIL_ADDRESS FROM VENDOR CONTACT:' || L_EMAIL_ADDRESS);

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

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

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

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

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

Line 486: END POR_CONTRACTOR_NOTIFY;

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