3441: INVALID_PRICE_BOOK_HEADER EXCEPTION;
3442:
3443: BEGIN
3444:
3445: QP_PREQ_GRP.Set_QP_Debug;
3446: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3447: IF l_debug = FND_API.G_TRUE THEN
3448: l_output_file := OE_DEBUG_PUB.SET_DEBUG_MODE('FILE');
3449: FND_FILE.PUT_LINE( FND_FILE.LOG, 'The output file is : ' || l_output_file );
3442:
3443: BEGIN
3444:
3445: QP_PREQ_GRP.Set_QP_Debug;
3446: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3447: IF l_debug = FND_API.G_TRUE THEN
3448: l_output_file := OE_DEBUG_PUB.SET_DEBUG_MODE('FILE');
3449: FND_FILE.PUT_LINE( FND_FILE.LOG, 'The output file is : ' || l_output_file );
3450: END IF;
3512: WHEN INVALID_PARAMS_ERROR THEN
3513: x_return_status := FND_API.G_RET_STS_ERROR;
3514: x_return_status_text := 'Invalid parameter values.';
3515: WHEN E_ROUTINE_ERRORS THEN
3516: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3517: QP_PREQ_GRP.engine_debug(l_routine||'l_return_status_text:'||l_return_status_text);
3518: QP_PREQ_GRP.engine_debug(l_routine||'SQLERRM:'||SQLERRM);
3519: END IF;
3520: x_return_status := FND_API.G_RET_STS_ERROR;
3513: x_return_status := FND_API.G_RET_STS_ERROR;
3514: x_return_status_text := 'Invalid parameter values.';
3515: WHEN E_ROUTINE_ERRORS THEN
3516: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3517: QP_PREQ_GRP.engine_debug(l_routine||'l_return_status_text:'||l_return_status_text);
3518: QP_PREQ_GRP.engine_debug(l_routine||'SQLERRM:'||SQLERRM);
3519: END IF;
3520: x_return_status := FND_API.G_RET_STS_ERROR;
3521: x_return_status_text := l_return_status_text;
3514: x_return_status_text := 'Invalid parameter values.';
3515: WHEN E_ROUTINE_ERRORS THEN
3516: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3517: QP_PREQ_GRP.engine_debug(l_routine||'l_return_status_text:'||l_return_status_text);
3518: QP_PREQ_GRP.engine_debug(l_routine||'SQLERRM:'||SQLERRM);
3519: END IF;
3520: x_return_status := FND_API.G_RET_STS_ERROR;
3521: x_return_status_text := l_return_status_text;
3522: WHEN MAX_STATUS_REQUESTS_REACHED THEN
3525: WHEN INVALID_PRICE_BOOK_HEADER THEN
3526: x_return_status := FND_API.G_RET_STS_ERROR;
3527: x_return_status_text := 'Invalid price book header id.';
3528: WHEN OTHERS THEN
3529: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3530: QP_PREQ_GRP.engine_debug(l_routine||'l_return_status_text:'||l_return_status_text);
3531: QP_PREQ_GRP.engine_debug(l_routine||'SQLERRM:'||SQLERRM);
3532: END IF;
3533: x_return_status := FND_API.G_RET_STS_ERROR;
3526: x_return_status := FND_API.G_RET_STS_ERROR;
3527: x_return_status_text := 'Invalid price book header id.';
3528: WHEN OTHERS THEN
3529: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3530: QP_PREQ_GRP.engine_debug(l_routine||'l_return_status_text:'||l_return_status_text);
3531: QP_PREQ_GRP.engine_debug(l_routine||'SQLERRM:'||SQLERRM);
3532: END IF;
3533: x_return_status := FND_API.G_RET_STS_ERROR;
3534: x_return_status_text := l_return_status_text;
3527: x_return_status_text := 'Invalid price book header id.';
3528: WHEN OTHERS THEN
3529: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3530: QP_PREQ_GRP.engine_debug(l_routine||'l_return_status_text:'||l_return_status_text);
3531: QP_PREQ_GRP.engine_debug(l_routine||'SQLERRM:'||SQLERRM);
3532: END IF;
3533: x_return_status := FND_API.G_RET_STS_ERROR;
3534: x_return_status_text := l_return_status_text;
3535: END PUBLISH_AND_DELIVER;
3573: l_debug VARCHAR2(3);
3574:
3575: BEGIN
3576: -- set debug level
3577: QP_PREQ_GRP.Set_QP_Debug;
3578: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3579:
3580: IF (l_debug = FND_API.G_TRUE) THEN
3581: QP_PREQ_GRP.engine_debug('ENTERING QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG');
3574:
3575: BEGIN
3576: -- set debug level
3577: QP_PREQ_GRP.Set_QP_Debug;
3578: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3579:
3580: IF (l_debug = FND_API.G_TRUE) THEN
3581: QP_PREQ_GRP.engine_debug('ENTERING QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG');
3582: END IF;
3577: QP_PREQ_GRP.Set_QP_Debug;
3578: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3579:
3580: IF (l_debug = FND_API.G_TRUE) THEN
3581: QP_PREQ_GRP.engine_debug('ENTERING QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG');
3582: END IF;
3583:
3584: IF (l_debug = FND_API.G_TRUE) THEN
3585: QP_PREQ_GRP.engine_debug('With the following parameters:');
3581: QP_PREQ_GRP.engine_debug('ENTERING QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG');
3582: END IF;
3583:
3584: IF (l_debug = FND_API.G_TRUE) THEN
3585: QP_PREQ_GRP.engine_debug('With the following parameters:');
3586: QP_PREQ_GRP.engine_debug('p_price_book_header_id:' || p_price_book_header_id);
3587: END IF;
3588:
3589: -- initialize parameters
3582: END IF;
3583:
3584: IF (l_debug = FND_API.G_TRUE) THEN
3585: QP_PREQ_GRP.engine_debug('With the following parameters:');
3586: QP_PREQ_GRP.engine_debug('p_price_book_header_id:' || p_price_book_header_id);
3587: END IF;
3588:
3589: -- initialize parameters
3590: x_progress := '000';
3613: WHERE p.price_book_header_id = p_price_book_header_id
3614: AND p.pb_input_header_id = i.pb_input_header_id;
3615:
3616: IF (l_debug = FND_API.G_TRUE) THEN
3617: QP_PREQ_GRP.engine_debug('party_id:' || party_id);
3618: QP_PREQ_GRP.engine_debug('party_site_id:' || party_site_id);
3619: END IF;
3620:
3621: SELECT FND_PROFILE.VALUE('ORG_ID')
3614: AND p.pb_input_header_id = i.pb_input_header_id;
3615:
3616: IF (l_debug = FND_API.G_TRUE) THEN
3617: QP_PREQ_GRP.engine_debug('party_id:' || party_id);
3618: QP_PREQ_GRP.engine_debug('party_site_id:' || party_site_id);
3619: END IF;
3620:
3621: SELECT FND_PROFILE.VALUE('ORG_ID')
3622: INTO l_operating_unit_id
3622: INTO l_operating_unit_id
3623: FROM dual;
3624:
3625: IF (l_debug = FND_API.G_TRUE) THEN
3626: QP_PREQ_GRP.engine_debug('l_operating_unit_id:' || l_operating_unit_id);
3627: END IF;
3628:
3629: l_inv_org_id := qp_util.Get_Item_Validation_Org;
3630: IF (l_debug = FND_API.G_TRUE) THEN
3627: END IF;
3628:
3629: l_inv_org_id := qp_util.Get_Item_Validation_Org;
3630: IF (l_debug = FND_API.G_TRUE) THEN
3631: QP_PREQ_GRP.engine_debug('l_inv_org_id:' || l_inv_org_id);
3632: END IF;
3633:
3634: x_progress := 'QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG : Parameters Initialized';
3635: IF (l_debug = FND_API.G_TRUE) THEN
3632: END IF;
3633:
3634: x_progress := 'QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG : Parameters Initialized';
3635: IF (l_debug = FND_API.G_TRUE) THEN
3636: QP_PREQ_GRP.engine_debug('Failure point ' || x_progress);
3637: END IF;
3638:
3639: -- XML Setup Check
3640: IF (l_debug = FND_API.G_TRUE) THEN
3637: END IF;
3638:
3639: -- XML Setup Check
3640: IF (l_debug = FND_API.G_TRUE) THEN
3641: QP_PREQ_GRP.engine_debug('Parameters before ecx_document.isDeliveryRequired:');
3642: QP_PREQ_GRP.engine_debug('transaction_type:' || transaction_type);
3643: QP_PREQ_GRP.engine_debug('transaction_subtype:' || transaction_subtype);
3644: QP_PREQ_GRP.engine_debug('party_id:' || party_id);
3645: QP_PREQ_GRP.engine_debug('party_site_id:' || party_site_id);
3638:
3639: -- XML Setup Check
3640: IF (l_debug = FND_API.G_TRUE) THEN
3641: QP_PREQ_GRP.engine_debug('Parameters before ecx_document.isDeliveryRequired:');
3642: QP_PREQ_GRP.engine_debug('transaction_type:' || transaction_type);
3643: QP_PREQ_GRP.engine_debug('transaction_subtype:' || transaction_subtype);
3644: QP_PREQ_GRP.engine_debug('party_id:' || party_id);
3645: QP_PREQ_GRP.engine_debug('party_site_id:' || party_site_id);
3646: QP_PREQ_GRP.engine_debug('return_code:' || return_code);
3639: -- XML Setup Check
3640: IF (l_debug = FND_API.G_TRUE) THEN
3641: QP_PREQ_GRP.engine_debug('Parameters before ecx_document.isDeliveryRequired:');
3642: QP_PREQ_GRP.engine_debug('transaction_type:' || transaction_type);
3643: QP_PREQ_GRP.engine_debug('transaction_subtype:' || transaction_subtype);
3644: QP_PREQ_GRP.engine_debug('party_id:' || party_id);
3645: QP_PREQ_GRP.engine_debug('party_site_id:' || party_site_id);
3646: QP_PREQ_GRP.engine_debug('return_code:' || return_code);
3647: QP_PREQ_GRP.engine_debug('errmsg:' || errmsg);
3640: IF (l_debug = FND_API.G_TRUE) THEN
3641: QP_PREQ_GRP.engine_debug('Parameters before ecx_document.isDeliveryRequired:');
3642: QP_PREQ_GRP.engine_debug('transaction_type:' || transaction_type);
3643: QP_PREQ_GRP.engine_debug('transaction_subtype:' || transaction_subtype);
3644: QP_PREQ_GRP.engine_debug('party_id:' || party_id);
3645: QP_PREQ_GRP.engine_debug('party_site_id:' || party_site_id);
3646: QP_PREQ_GRP.engine_debug('return_code:' || return_code);
3647: QP_PREQ_GRP.engine_debug('errmsg:' || errmsg);
3648: END IF;
3641: QP_PREQ_GRP.engine_debug('Parameters before ecx_document.isDeliveryRequired:');
3642: QP_PREQ_GRP.engine_debug('transaction_type:' || transaction_type);
3643: QP_PREQ_GRP.engine_debug('transaction_subtype:' || transaction_subtype);
3644: QP_PREQ_GRP.engine_debug('party_id:' || party_id);
3645: QP_PREQ_GRP.engine_debug('party_site_id:' || party_site_id);
3646: QP_PREQ_GRP.engine_debug('return_code:' || return_code);
3647: QP_PREQ_GRP.engine_debug('errmsg:' || errmsg);
3648: END IF;
3649:
3642: QP_PREQ_GRP.engine_debug('transaction_type:' || transaction_type);
3643: QP_PREQ_GRP.engine_debug('transaction_subtype:' || transaction_subtype);
3644: QP_PREQ_GRP.engine_debug('party_id:' || party_id);
3645: QP_PREQ_GRP.engine_debug('party_site_id:' || party_site_id);
3646: QP_PREQ_GRP.engine_debug('return_code:' || return_code);
3647: QP_PREQ_GRP.engine_debug('errmsg:' || errmsg);
3648: END IF;
3649:
3650: ecx_document.isDeliveryRequired(
3643: QP_PREQ_GRP.engine_debug('transaction_subtype:' || transaction_subtype);
3644: QP_PREQ_GRP.engine_debug('party_id:' || party_id);
3645: QP_PREQ_GRP.engine_debug('party_site_id:' || party_site_id);
3646: QP_PREQ_GRP.engine_debug('return_code:' || return_code);
3647: QP_PREQ_GRP.engine_debug('errmsg:' || errmsg);
3648: END IF;
3649:
3650: ecx_document.isDeliveryRequired(
3651: transaction_type => transaction_type,
3656: retcode => return_code,
3657: errmsg => errmsg);
3658:
3659: IF (l_debug = FND_API.G_TRUE) THEN
3660: QP_PREQ_GRP.engine_debug('Values returned from ecx_document.isDeliveryRequired:');
3661: QP_PREQ_GRP.engine_debug('return_code:' || return_code);
3662: QP_PREQ_GRP.engine_debug('errmsg:' || errmsg);
3663: END IF;
3664:
3657: errmsg => errmsg);
3658:
3659: IF (l_debug = FND_API.G_TRUE) THEN
3660: QP_PREQ_GRP.engine_debug('Values returned from ecx_document.isDeliveryRequired:');
3661: QP_PREQ_GRP.engine_debug('return_code:' || return_code);
3662: QP_PREQ_GRP.engine_debug('errmsg:' || errmsg);
3663: END IF;
3664:
3665: x_progress := 'QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG : XML Setup Check';
3658:
3659: IF (l_debug = FND_API.G_TRUE) THEN
3660: QP_PREQ_GRP.engine_debug('Values returned from ecx_document.isDeliveryRequired:');
3661: QP_PREQ_GRP.engine_debug('return_code:' || return_code);
3662: QP_PREQ_GRP.engine_debug('errmsg:' || errmsg);
3663: END IF;
3664:
3665: x_progress := 'QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG : XML Setup Check';
3666: IF (l_debug = FND_API.G_TRUE) THEN
3663: END IF;
3664:
3665: x_progress := 'QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG : XML Setup Check';
3666: IF (l_debug = FND_API.G_TRUE) THEN
3667: QP_PREQ_GRP.engine_debug('Failure point ' || x_progress);
3668: END IF;
3669:
3670: IF NOT(result) THEN
3671: -- trading partner not found
3670: IF NOT(result) THEN
3671: -- trading partner not found
3672: x_progress := 'QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG : No Trading Partner found during XML Setup Check';
3673: IF (l_debug = FND_API.G_TRUE) THEN
3674: QP_PREQ_GRP.engine_debug('Failure point ' || x_progress);
3675: END IF;
3676:
3677: ELSE -- no number specified, send in one message
3678:
3677: ELSE -- no number specified, send in one message
3678:
3679: x_progress := 'QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG : No Number Limit Specified';
3680: IF (l_debug = FND_API.G_TRUE) THEN
3681: QP_PREQ_GRP.engine_debug('Failure point ' || x_progress);
3682: END IF;
3683:
3684: -- create unique key
3685: SELECT QP_XML_MESSAGES_S.NEXTVAL INTO l_syncctlg_seq FROM dual;
3683:
3684: -- create unique key
3685: SELECT QP_XML_MESSAGES_S.NEXTVAL INTO l_syncctlg_seq FROM dual;
3686: IF (l_debug = FND_API.G_TRUE) THEN
3687: QP_PREQ_GRP.engine_debug('l_syncctlg_seq:' || l_syncctlg_seq);
3688: END IF;
3689: l_event_key := to_char(p_price_book_header_id) || '.' || to_char(l_syncctlg_seq);
3690:
3691: SELECT SYSDATE INTO l_date FROM dual;
3689: l_event_key := to_char(p_price_book_header_id) || '.' || to_char(l_syncctlg_seq);
3690:
3691: SELECT SYSDATE INTO l_date FROM dual;
3692: IF (l_debug = FND_API.G_TRUE) THEN
3693: QP_PREQ_GRP.engine_debug('l_date:' || l_date);
3694: END IF;
3695: l_canonical_date := FND_DATE.DATE_TO_CANONICAL(l_date);
3696:
3697: x_progress := 'QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG : Created Unique Key';
3695: l_canonical_date := FND_DATE.DATE_TO_CANONICAL(l_date);
3696:
3697: x_progress := 'QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG : Created Unique Key';
3698: IF (l_debug = FND_API.G_TRUE) THEN
3699: QP_PREQ_GRP.engine_debug('Failure point ' || x_progress);
3700: END IF;
3701:
3702: -- add parameters to list for create collaboration event
3703: wf_event.AddParameterToList(p_name => 'XMLG_INTERNAL_TXN_TYPE',
3732: p_parameterlist => l_create_cln_parameter_list);
3733:
3734: x_progress := 'QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG : Initialize Create Event Parameters';
3735: IF (l_debug = FND_API.G_TRUE) THEN
3736: QP_PREQ_GRP.engine_debug('Failure point ' || x_progress);
3737: end if;
3738:
3739: -- raise create collaboration event
3740: wf_event.raise(p_event_name => l_create_cln_event,
3742: p_parameters => l_create_cln_parameter_list);
3743:
3744: x_progress := 'QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG : Create Event Raised';
3745: IF (l_debug = FND_API.G_TRUE) THEN
3746: QP_PREQ_GRP.engine_debug('Failure point ' || x_progress);
3747: end if;
3748:
3749: -- add parameters to list for send show shipment document
3750: wf_event.AddParameterToList(p_name => 'ECX_TRANSACTION_TYPE',
3821: p_parameterlist => l_send_syct_parameter_list);
3822:
3823: x_progress := 'QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG : Send Document Event Parameters Initialized';
3824: IF (l_debug = FND_API.G_TRUE) THEN
3825: QP_PREQ_GRP.engine_debug('Failure point ' || x_progress);
3826: END IF;
3827:
3828: -- raise event for send show shipment document
3829: wf_event.RAISE(p_event_name => l_send_syct_event,
3831: p_parameters => l_send_syct_parameter_list);
3832:
3833: x_progress := 'QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG : Send Document Event Raised';
3834: IF (l_debug = FND_API.G_TRUE) THEN
3835: QP_PREQ_GRP.engine_debug('Failure point ' || x_progress);
3836: END IF;
3837:
3838: END IF;
3839:
3837:
3838: END IF;
3839:
3840: IF (l_debug = FND_API.G_TRUE) THEN
3841: QP_PREQ_GRP.engine_debug('EXITING QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG Successfully');
3842: END IF;
3843:
3844: x_return_status := FND_API.G_RET_STS_SUCCESS;
3845:
3847: WHEN OTHERS THEN
3848: l_error_code := SQLCODE;
3849: l_error_msg := SQLERRM;
3850: IF (l_debug = FND_API.G_TRUE) THEN
3851: QP_PREQ_GRP.engine_debug('Exception ' || ':' || l_error_code || ':' || l_error_msg);
3852: END IF;
3853:
3854: x_progress := 'EXITING QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG in Error ';
3855: IF (l_debug = FND_API.G_TRUE) THEN
3852: END IF;
3853:
3854: x_progress := 'EXITING QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG in Error ';
3855: IF (l_debug = FND_API.G_TRUE) THEN
3856: QP_PREQ_GRP.engine_debug('Failure point ' || x_progress);
3857: END IF;
3858: x_return_status := FND_API.G_RET_STS_ERROR;
3859: x_return_status_text := l_error_msg;
3860: END SEND_SYNC_CATALOG;
3900: END IF;
3901:
3902: SET_XML_CONTEXT(l_user_name, l_status_code, l_status_text);
3903:
3904: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3905: IF l_debug = FND_API.G_TRUE THEN
3906: QP_PREQ_GRP.engine_debug(l_routine||'calling GENERATE_PUBLISH_PRICE_BOOK');
3907: END IF;
3908: QP_PRICE_BOOK_PVT.GENERATE_PUBLISH_PRICE_BOOK(l_pb_input_header_id,
3902: SET_XML_CONTEXT(l_user_name, l_status_code, l_status_text);
3903:
3904: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3905: IF l_debug = FND_API.G_TRUE THEN
3906: QP_PREQ_GRP.engine_debug(l_routine||'calling GENERATE_PUBLISH_PRICE_BOOK');
3907: END IF;
3908: QP_PRICE_BOOK_PVT.GENERATE_PUBLISH_PRICE_BOOK(l_pb_input_header_id,
3909: l_request_id,
3910: l_status_code,
3910: l_status_code,
3911: l_ret_code,
3912: l_err_buf);
3913: IF l_debug = FND_API.G_TRUE THEN
3914: QP_PREQ_GRP.engine_debug(l_routine||'returned from GENERATE_PUBLISH_PRICE_BOOK');
3915: END IF;
3916:
3917: resultout := wf_engine.eng_completed||':'||wf_engine.eng_null;
3918:
3942: a varchar2(100);
3943:
3944: BEGIN
3945:
3946: QP_PREQ_GRP.Set_QP_Debug;
3947: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3948:
3949: IF l_debug = FND_API.G_TRUE THEN
3950: QP_PREQ_GRP.engine_debug( 'ENTERING CATSO_SELECTOR PROCEDURE' ) ;
3943:
3944: BEGIN
3945:
3946: QP_PREQ_GRP.Set_QP_Debug;
3947: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3948:
3949: IF l_debug = FND_API.G_TRUE THEN
3950: QP_PREQ_GRP.engine_debug( 'ENTERING CATSO_SELECTOR PROCEDURE' ) ;
3951: QP_PREQ_GRP.engine_debug( 'THE WORKFLOW FUNCTION MODE IS: FUNCMODE='||P_FUNCMODE ) ;
3946: QP_PREQ_GRP.Set_QP_Debug;
3947: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3948:
3949: IF l_debug = FND_API.G_TRUE THEN
3950: QP_PREQ_GRP.engine_debug( 'ENTERING CATSO_SELECTOR PROCEDURE' ) ;
3951: QP_PREQ_GRP.engine_debug( 'THE WORKFLOW FUNCTION MODE IS: FUNCMODE='||P_FUNCMODE ) ;
3952: END IF;
3953:
3954: IF (p_funcmode = 'RUN') THEN
3947: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3948:
3949: IF l_debug = FND_API.G_TRUE THEN
3950: QP_PREQ_GRP.engine_debug( 'ENTERING CATSO_SELECTOR PROCEDURE' ) ;
3951: QP_PREQ_GRP.engine_debug( 'THE WORKFLOW FUNCTION MODE IS: FUNCMODE='||P_FUNCMODE ) ;
3952: END IF;
3953:
3954: IF (p_funcmode = 'RUN') THEN
3955: IF l_debug = FND_API.G_TRUE THEN
3952: END IF;
3953:
3954: IF (p_funcmode = 'RUN') THEN
3955: IF l_debug = FND_API.G_TRUE THEN
3956: QP_PREQ_GRP.engine_debug( 'P_FUNCMODE IS RUN' ) ;
3957: END IF;
3958: p_x_result := 'COMPLETE';
3959: ELSIF(p_funcmode = 'TEST_CTX') THEN
3960: IF l_debug = FND_API.G_TRUE THEN
3957: END IF;
3958: p_x_result := 'COMPLETE';
3959: ELSIF(p_funcmode = 'TEST_CTX') THEN
3960: IF l_debug = FND_API.G_TRUE THEN
3961: QP_PREQ_GRP.engine_debug( 'P_FUNCMODE IS TEST_CTX' ) ;
3962: END IF;
3963:
3964: l_org_id := wf_engine.GetItemAttrNumber (itemtype => p_itemtype,
3965: itemkey => p_itemkey,
3965: itemkey => p_itemkey,
3966: aname => 'ORG_ID');
3967:
3968: IF l_debug = FND_API.G_TRUE THEN
3969: QP_PREQ_GRP.engine_debug( 'l_org_id (from workflow)=>'|| l_org_id ) ;
3970: QP_PREQ_GRP.engine_debug( 'mo_global.get_current_org_id =>'|| mo_global.get_current_org_id ) ;
3971: END IF;
3972:
3973: IF (mo_global.get_current_org_id is null OR MO_GLOBAL.get_access_mode is null) THEN
3966: aname => 'ORG_ID');
3967:
3968: IF l_debug = FND_API.G_TRUE THEN
3969: QP_PREQ_GRP.engine_debug( 'l_org_id (from workflow)=>'|| l_org_id ) ;
3970: QP_PREQ_GRP.engine_debug( 'mo_global.get_current_org_id =>'|| mo_global.get_current_org_id ) ;
3971: END IF;
3972:
3973: IF (mo_global.get_current_org_id is null OR MO_GLOBAL.get_access_mode is null) THEN
3974: p_x_result := 'NOTSET';
3981: END IF;
3982:
3983: ELSIF(p_funcmode = 'SET_CTX') THEN
3984: IF l_debug = FND_API.G_TRUE THEN
3985: QP_PREQ_GRP.engine_debug( 'P_FUNCMODE IS SET_CTX' ) ;
3986: END IF;
3987:
3988: l_user_id := wf_engine.GetItemAttrNumber (itemtype => p_itemtype,
3989: itemkey => p_itemkey,
3998: itemkey => p_itemkey,
3999: aname => 'ORG_ID');
4000:
4001: IF l_debug = FND_API.G_TRUE THEN
4002: QP_PREQ_GRP.engine_debug('l_user_id =>' || l_user_id || ' l_resp_id =>' || l_resp_id || ' l_resp_appl_id =>' || l_resp_appl_id || ' l_org_id =>' || l_org_id);
4003: END IF;
4004:
4005: IF l_resp_appl_id is null OR l_resp_id is null THEN
4006: dbms_application_info.set_client_info(l_org_id);
4004:
4005: IF l_resp_appl_id is null OR l_resp_id is null THEN
4006: dbms_application_info.set_client_info(l_org_id);
4007: IF l_debug = FND_API.G_TRUE THEN
4008: QP_PREQ_GRP.engine_debug('set org using dbms_application_info.set_client_info');
4009: END IF;
4010: ELSE
4011: -- Set the database session context
4012: FND_GLOBAL.Apps_Initialize(l_user_id, l_resp_id, l_resp_appl_id);
4028: p_x_result := 'COMPLETE';
4029: END IF;
4030:
4031: IF l_debug = FND_API.G_TRUE THEN
4032: QP_PREQ_GRP.engine_debug('p_x_result =>'||p_x_result);
4033: END IF;
4034:
4035: EXCEPTION
4036: WHEN OTHERS THEN NULL;
4066: fnd_global.apps_initialize(l_user_id,
4067: null,
4068: null);
4069: l_pricing_perspective_code := FND_PROFILE.VALUE('QP_EXT_DEFAULT_PRICING_PERSPECTIVE');
4070: QP_PREQ_GRP.Set_QP_Debug;
4071: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
4072: IF l_debug = FND_API.G_TRUE THEN
4073: QP_PREQ_GRP.engine_debug(l_routine || ':l_user_id=' || l_user_id);
4074: QP_PREQ_GRP.engine_debug(l_routine || ':l_pricing_perspective_code=' || l_pricing_perspective_code);
4067: null,
4068: null);
4069: l_pricing_perspective_code := FND_PROFILE.VALUE('QP_EXT_DEFAULT_PRICING_PERSPECTIVE');
4070: QP_PREQ_GRP.Set_QP_Debug;
4071: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
4072: IF l_debug = FND_API.G_TRUE THEN
4073: QP_PREQ_GRP.engine_debug(l_routine || ':l_user_id=' || l_user_id);
4074: QP_PREQ_GRP.engine_debug(l_routine || ':l_pricing_perspective_code=' || l_pricing_perspective_code);
4075: END IF;
4069: l_pricing_perspective_code := FND_PROFILE.VALUE('QP_EXT_DEFAULT_PRICING_PERSPECTIVE');
4070: QP_PREQ_GRP.Set_QP_Debug;
4071: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
4072: IF l_debug = FND_API.G_TRUE THEN
4073: QP_PREQ_GRP.engine_debug(l_routine || ':l_user_id=' || l_user_id);
4074: QP_PREQ_GRP.engine_debug(l_routine || ':l_pricing_perspective_code=' || l_pricing_perspective_code);
4075: END IF;
4076:
4077: -- get pricing perspective application id based on pricing perspective code
4070: QP_PREQ_GRP.Set_QP_Debug;
4071: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
4072: IF l_debug = FND_API.G_TRUE THEN
4073: QP_PREQ_GRP.engine_debug(l_routine || ':l_user_id=' || l_user_id);
4074: QP_PREQ_GRP.engine_debug(l_routine || ':l_pricing_perspective_code=' || l_pricing_perspective_code);
4075: END IF;
4076:
4077: -- get pricing perspective application id based on pricing perspective code
4078: SELECT a.application_id
4079: INTO l_pricing_perspective_appl_id
4080: FROM fnd_application a
4081: WHERE a.application_short_name = l_pricing_perspective_code;
4082: IF l_debug = FND_API.G_TRUE THEN
4083: QP_PREQ_GRP.engine_debug(l_routine || ':l_pricing_perspective_appl_id=' || l_pricing_perspective_appl_id);
4084: END IF;
4085:
4086: -- get responsibility based on pricing perspective
4087: fnd_global.apps_initialize(l_user_id,
4088: null,
4089: l_pricing_perspective_appl_id);
4090: l_resp_id := FND_PROFILE.VALUE('QP_XML_RESP');
4091: IF l_debug = FND_API.G_TRUE THEN
4092: QP_PREQ_GRP.engine_debug(l_routine || ':l_resp_id=' || l_resp_id);
4093: END IF;
4094:
4095: -- get application id and short name based on responsibility
4096: SELECT a.application_id, a.application_short_name
4098: FROM fnd_responsibility r, fnd_application a
4099: WHERE r.responsibility_id = l_resp_id
4100: AND a.application_id = r.application_id;
4101: IF l_debug = FND_API.G_TRUE THEN
4102: QP_PREQ_GRP.engine_debug(l_routine || ':l_resp_appl_id=' || l_resp_appl_id || ',l_resp_appl_name=' || l_resp_appl_name);
4103: END IF;
4104:
4105: -- set context
4106: fnd_global.apps_initialize(l_user_id,