[Home] [Help]
1: PACKAGE BODY PO_AUTOCREATE_DOC AS
2: /* $Header: POXWATCB.pls 120.37.12020000.13 2013/04/09 07:05:54 ssindhe 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:
7: /* Private Procedure/Function prototypes */
8:
9: FUNCTION valid_contact(p_vendor_site_id number, p_vendor_contact_id number) RETURN BOOLEAN;
151:
152: --< Bug 3636669 Start >
153: -- Retrieve the current application context values. This assumes that
154: -- the application context has been set prior to calling this procedure.
155: FND_PROFILE.get('USER_ID', l_user_id);
156: FND_PROFILE.get('RESP_ID', l_responsibility_id);
157: FND_PROFILE.get('RESP_APPL_ID', l_application_id);
158:
159: -- Populate the application context workflow attributes
152: --< Bug 3636669 Start >
153: -- Retrieve the current application context values. This assumes that
154: -- the application context has been set prior to calling this procedure.
155: FND_PROFILE.get('USER_ID', l_user_id);
156: FND_PROFILE.get('RESP_ID', l_responsibility_id);
157: FND_PROFILE.get('RESP_APPL_ID', l_application_id);
158:
159: -- Populate the application context workflow attributes
160: PO_WF_UTIL_PKG.SetItemAttrNumber( itemtype => itemtype
153: -- Retrieve the current application context values. This assumes that
154: -- the application context has been set prior to calling this procedure.
155: FND_PROFILE.get('USER_ID', l_user_id);
156: FND_PROFILE.get('RESP_ID', l_responsibility_id);
157: FND_PROFILE.get('RESP_APPL_ID', l_application_id);
158:
159: -- Populate the application context workflow attributes
160: PO_WF_UTIL_PKG.SetItemAttrNumber( itemtype => itemtype
161: , itemkey => itemkey
1201: * requestor (preparer) here and wait for a response that its ok
1202: * to go ahead, but for now we'll just fail the req line.
1203: */
1204:
1205: fnd_profile.get('PO_AUTOCREATE_WARN_RFQ_REQUIRED', x_warn_rfq_required);
1206:
1207: if ((x_warn_rfq_required = 'Y') AND
1208: (x_rfq_required_flag = 'Y') AND
1209: ((x_on_rfq_flag is NULL) OR (x_on_rfq_flag = 'N'))) then
1662: AND POH.type_lookup_code = 'CONTRACT'
1663: /* R12 GCPA
1664: + If Profile ALLOW_REFERENCING_CPA_UNDER_AMENDMENT is Y, then we can refer any Contract Which is approved Once
1665: + Else Contract should be in APPROVED state */
1666: AND ( (NVL(FND_PROFILE.VALUE('ALLOW_REFERENCING_CPA_UNDER_AMENDMENT'),'N') = 'Y'
1667: AND POH.Approved_Date Is Not Null
1668: )
1669: or ( POH.authorization_status = 'APPROVED' )
1670: )
1694: /* R12 GCPA
1695: + If Profile ALLOW_REFERENCING_CPA_UNDER_AMENDMENT is Y, then we can refer any Contract Which is approved Once
1696: + Else Contract should be in APPROVED state
1697: */
1698: AND ( (NVL(FND_PROFILE.VALUE('ALLOW_REFERENCING_CPA_UNDER_AMENDMENT'),'N') = 'Y'
1699: AND POH.Approved_Date Is Not Null
1700: )
1701: or ( POH.authorization_status = 'APPROVED' )
1702: )
3447: -- Bug#14305183::Start
3448:
3449: If c1_cons_from_supp_flag = 'Y' and nvl(c1_dest_type_code,'INVENTORY') <> 'EXPENSE'
3450: Then
3451: If (NVL(fnd_profile.value('PO_CREATE_CONSIGNED_PO_AS_SPO'),'N') = 'Y')
3452: AND (NVL(c1_ga_flag,'N') = 'N') -- Retain the Source Doc Ref for GBPA
3453: Then
3454: c1_source_doc_id := NULL;
3455: c1_contract_id := NULL;
3637: -- Bug#14305183::Start
3638:
3639: If c2_cons_from_supp_flag = 'Y' and nvl(c2_dest_type_code,'INVENTORY') <> 'EXPENSE'
3640: Then
3641: If (NVL(fnd_profile.value('PO_CREATE_CONSIGNED_PO_AS_SPO'),'N') = 'Y')
3642: AND (NVL(c2_ga_flag,'N') = 'N') -- Retain the Source Doc Ref for GBPA
3643: Then
3644: c2_source_doc_id := NULL;
3645: c2_contract_id := NULL;
3708: Added NVL for deliver to location code as theyre failing for drop ship so flow
3709: Because deliver to location is not present in hr locations for drop ship SO instead in hz locations.
3710: So above cursors will retrieve NULL values for these variables*/
3711:
3712: nvl(c1_deliver_to_location_code,-99) <> nvl(fnd_profile.value('POR_ONE_TIME_LOCATION'),-99) AND --bug 4449781 : added nvl
3713: nvl(c2_deliver_to_location_code,-99) <> nvl(fnd_profile.value('POR_ONE_TIME_LOCATION'),-99))) AND
3714: (c1_suggested_buyer_id = c2_suggested_buyer_id) AND
3715: (c1_style_id = c2_style_id) AND --
3716: (c1_suggested_vendor_id = c2_suggested_vendor_id) AND
3709: Because deliver to location is not present in hr locations for drop ship SO instead in hz locations.
3710: So above cursors will retrieve NULL values for these variables*/
3711:
3712: nvl(c1_deliver_to_location_code,-99) <> nvl(fnd_profile.value('POR_ONE_TIME_LOCATION'),-99) AND --bug 4449781 : added nvl
3713: nvl(c2_deliver_to_location_code,-99) <> nvl(fnd_profile.value('POR_ONE_TIME_LOCATION'),-99))) AND
3714: (c1_suggested_buyer_id = c2_suggested_buyer_id) AND
3715: (c1_style_id = c2_style_id) AND --
3716: (c1_suggested_vendor_id = c2_suggested_vendor_id) AND
3717: (c1_suggested_vendor_site_id = c2_suggested_vendor_site_id) AND
4131: po_moac_utils_pvt.set_org_context(x_org_id); --
4132:
4133: /* Get user values */
4134:
4135: x_created_by := to_number(FND_PROFILE.VALUE('user_id'));
4136: x_last_updated_by := to_number(FND_PROFILE.VALUE('user_id'));
4137:
4138:
4139: /* Get the interface_header_id from the sequence */
4132:
4133: /* Get user values */
4134:
4135: x_created_by := to_number(FND_PROFILE.VALUE('user_id'));
4136: x_last_updated_by := to_number(FND_PROFILE.VALUE('user_id'));
4137:
4138:
4139: /* Get the interface_header_id from the sequence */
4140:
4594: po_moac_utils_pvt.set_org_context(x_org_id); --
4595:
4596: /* Get user values */
4597:
4598: x_created_by := to_number(FND_PROFILE.VALUE('user_id'));
4599: x_last_updated_by := to_number(FND_PROFILE.VALUE('user_id'));
4600:
4601: /* FPI GA - If ga flag is Y then we create a standard PO */
4602:
4595:
4596: /* Get user values */
4597:
4598: x_created_by := to_number(FND_PROFILE.VALUE('user_id'));
4599: x_last_updated_by := to_number(FND_PROFILE.VALUE('user_id'));
4600:
4601: /* FPI GA - If ga flag is Y then we create a standard PO */
4602:
4603: if x_source_doc_id is not null then