[Home] [Help]
1666: l_party_type VARCHAR2(30);
1667: l_api_version CONSTANT NUMBER := 1.0;
1668: l_api_name CONSTANT VARCHAR2(45) := 'Customer_Account';
1669: l_object_party_id NUMBER;
1670: l_create_acct_prof VARCHAR2(30) := NVL(FND_PROFILE.Value('ASO_AUTO_ACCOUNT_CREATE'), 'AS_REQUIRED');
1671:
1672: BEGIN
1673:
1674: ---- Initialize---------------------
2769:
2770:
2771: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
2772: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2773: if NVL(FND_PROFILE.Value('ASO_AUTO_ACCOUNT_CREATE'), 'AS_REQUIRED')<>'NEVER' then -- ER 5484749
2774: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
2775: FND_MESSAGE.Set_Token('ID', to_char( l_cust_party), FALSE);
2776: FND_MSG_PUB.ADD;
2777: end if;
2820:
2821:
2822: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
2823: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2824: if NVL(FND_PROFILE.Value('ASO_AUTO_ACCOUNT_CREATE'), 'AS_REQUIRED')<>'NEVER' then -- ER 5484749
2825: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
2826: FND_MESSAGE.Set_Token('ID', to_char( l_inv_cust_party), FALSE);
2827: FND_MSG_PUB.ADD;
2828: end if;
2871:
2872:
2873: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
2874: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2875: if NVL(FND_PROFILE.Value('ASO_AUTO_ACCOUNT_CREATE'), 'AS_REQUIRED')<>'NEVER' then -- ER 5484749
2876: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
2877: FND_MESSAGE.Set_Token('ID', to_char( l_end_cust_party), FALSE);
2878: FND_MSG_PUB.ADD;
2879: end if;
2923: END IF;
2924:
2925: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
2926: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2927: if NVL(FND_PROFILE.Value('ASO_AUTO_ACCOUNT_CREATE'), 'AS_REQUIRED')<>'NEVER' then -- ER 5484749
2928: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
2929: FND_MESSAGE.Set_Token('ID', to_char( l_header_shipment_tbl(1).ship_to_cust_party_id), FALSE);
2930: FND_MSG_PUB.ADD;
2931: END IF;
3040: END IF;
3041:
3042: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
3043: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3044: if NVL(FND_PROFILE.Value('ASO_AUTO_ACCOUNT_CREATE'), 'AS_REQUIRED')<>'NEVER' then -- ER 5484749
3045: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
3046: FND_MESSAGE.Set_Token('ID', to_char( l_qte_line_rec.invoice_to_cust_party_id), FALSE);
3047: FND_MSG_PUB.ADD;
3048: end if;
3089: END IF;
3090:
3091: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
3092: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3093: if NVL(FND_PROFILE.Value('ASO_AUTO_ACCOUNT_CREATE'), 'AS_REQUIRED')<>'NEVER' then -- ER 5484749
3094: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
3095: FND_MESSAGE.Set_Token('ID', to_char( l_qte_line_rec.End_Customer_cust_party_id), FALSE);
3096: FND_MSG_PUB.ADD;
3097: end if;
3138: END IF;
3139:
3140: IF x_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
3141: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3142: if NVL(FND_PROFILE.Value('ASO_AUTO_ACCOUNT_CREATE'), 'AS_REQUIRED')<>'NEVER' then -- ER 5484749
3143: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
3144: FND_MESSAGE.Set_Token('ID', to_char( Line_Acct.ship_to_cust_party_id), FALSE);
3145: FND_MSG_PUB.ADD;
3146: end if;
3386: WHERE party_id = pty_id
3387: AND status = 'A'
3388: AND sysdate BETWEEN NVL(account_activation_date, sysdate) AND NVL(account_termination_date, sysdate);
3389:
3390: l_create_acct_prof VARCHAR2(30) := NVL(FND_PROFILE.Value('ASO_AUTO_ACCOUNT_CREATE'), 'AS_REQUIRED');
3391: l_dummy VARCHAR2(1) := NULL;
3392: l_party NUMBER := NULL;
3393: l_cust_acct NUMBER := NULL;
3394: l_api_version CONSTANT NUMBER := 1.0;