577: -- Quote has been accepted by either salesrep or Customer
578: IF p_document_type = G_REPORT_TYPE_ACCEPT THEN
579: x_email_attr_rec.ih_subject := get_message('OKS_IH_SUBJECT_ACCEPT',l_language);
580: -- assemble interaction history body
581: OPEN l_acceptedby_csr(FND_GLOBAL.USER_ID);
582: FETCH l_acceptedby_csr INTO l_accepted_by;
583: CLOSE l_acceptedby_csr;
584:
585: x_email_attr_rec.ih_message := get_message('OKS_IH_MESSAGE_ACCEPT',l_language);
1019:
1020: UPDATE oks_k_headers_b
1021: SET renewal_status = p_process_status ,
1022: -- commented and replaced following 2 lines. Accepted by and date accepted were getting cleared
1023: -- accepted_by = DECODE(p_process_status,G_NEG_STS_QUOTE_ACPTD,FND_GLOBAL.USER_ID,accepted_by),
1024: -- date_accepted = DECODE(p_process_status,G_NEG_STS_QUOTE_ACPTD,sysdate,date_accepted),
1025: accepted_by = DECODE(p_process_status,G_NEG_STS_QUOTE_ACPTD,NVL(accepted_by,FND_GLOBAL.USER_ID),accepted_by),
1026: date_accepted = DECODE(p_process_status,G_NEG_STS_QUOTE_ACPTD,NVL(date_accepted,sysdate),date_accepted),
1027: object_version_number = object_version_number + 1,
1021: SET renewal_status = p_process_status ,
1022: -- commented and replaced following 2 lines. Accepted by and date accepted were getting cleared
1023: -- accepted_by = DECODE(p_process_status,G_NEG_STS_QUOTE_ACPTD,FND_GLOBAL.USER_ID,accepted_by),
1024: -- date_accepted = DECODE(p_process_status,G_NEG_STS_QUOTE_ACPTD,sysdate,date_accepted),
1025: accepted_by = DECODE(p_process_status,G_NEG_STS_QUOTE_ACPTD,NVL(accepted_by,FND_GLOBAL.USER_ID),accepted_by),
1026: date_accepted = DECODE(p_process_status,G_NEG_STS_QUOTE_ACPTD,NVL(date_accepted,sysdate),date_accepted),
1027: object_version_number = object_version_number + 1,
1028: last_update_date = SYSDATE,
1029: last_updated_by = FND_GLOBAL.USER_ID,
1025: accepted_by = DECODE(p_process_status,G_NEG_STS_QUOTE_ACPTD,NVL(accepted_by,FND_GLOBAL.USER_ID),accepted_by),
1026: date_accepted = DECODE(p_process_status,G_NEG_STS_QUOTE_ACPTD,NVL(date_accepted,sysdate),date_accepted),
1027: object_version_number = object_version_number + 1,
1028: last_update_date = SYSDATE,
1029: last_updated_by = FND_GLOBAL.USER_ID,
1030: last_update_login = FND_GLOBAL.LOGIN_ID
1031: WHERE chr_id = p_contract_id;
1032:
1033: /* MKS 10/12/2005 Bug#4643300
1026: date_accepted = DECODE(p_process_status,G_NEG_STS_QUOTE_ACPTD,NVL(date_accepted,sysdate),date_accepted),
1027: object_version_number = object_version_number + 1,
1028: last_update_date = SYSDATE,
1029: last_updated_by = FND_GLOBAL.USER_ID,
1030: last_update_login = FND_GLOBAL.LOGIN_ID
1031: WHERE chr_id = p_contract_id;
1032:
1033: /* MKS 10/12/2005 Bug#4643300
1034: -- bump up the minor version number
1035: UPDATE okc_k_vers_numbers
1036: SET minor_version = minor_version + 1,
1037: object_version_number = object_version_number + 1,
1038: last_update_date = SYSDATE,
1039: last_updated_by = FND_GLOBAL.USER_ID,
1040: last_update_login = FND_GLOBAL.LOGIN_ID
1041: WHERE chr_id = p_contract_id;
1042: */
1043: END IF; -- p_process_status is passed
1036: SET minor_version = minor_version + 1,
1037: object_version_number = object_version_number + 1,
1038: last_update_date = SYSDATE,
1039: last_updated_by = FND_GLOBAL.USER_ID,
1040: last_update_login = FND_GLOBAL.LOGIN_ID
1041: WHERE chr_id = p_contract_id;
1042: */
1043: END IF; -- p_process_status is passed
1044:
2227: l_ih_subject := p_email_attr.IH_SUBJECT;
2228: END IF;
2229: -- assemble interaction history body
2230: IF p_email_attr.IH_MESSAGE IS NULL THEN
2231: OPEN l_acceptedby_csr(FND_GLOBAL.USER_ID);
2232: FETCH l_acceptedby_csr INTO l_accepted_by;
2233: CLOSE l_acceptedby_csr;
2234:
2235: l_ih_message := get_message('OKS_IH_MESSAGE_ACCEPT',l_language);
3526: UPDATE oks_k_headers_b
3527: SET renewal_status = p_negotiation_status,
3528: object_version_number = object_version_number + 1,
3529: last_update_date = SYSDATE,
3530: last_updated_by = FND_GLOBAL.USER_ID,
3531: last_update_login = FND_GLOBAL.LOGIN_ID
3532: WHERE chr_id = p_chr_id;
3533:
3534: /* COMMENTING THE CODE DUE TO DEADLOCK ISSUES ENCOUNTERED WHILE COMPLETING WF
3527: SET renewal_status = p_negotiation_status,
3528: object_version_number = object_version_number + 1,
3529: last_update_date = SYSDATE,
3530: last_updated_by = FND_GLOBAL.USER_ID,
3531: last_update_login = FND_GLOBAL.LOGIN_ID
3532: WHERE chr_id = p_chr_id;
3533:
3534: /* COMMENTING THE CODE DUE TO DEADLOCK ISSUES ENCOUNTERED WHILE COMPLETING WF
3535: -- bump up the minor version number
3536: UPDATE okc_k_vers_numbers
3537: SET minor_version = minor_version + 1,
3538: object_version_number = object_version_number + 1,
3539: last_update_date = SYSDATE,
3540: last_updated_by = FND_GLOBAL.USER_ID,
3541: last_update_login = FND_GLOBAL.LOGIN_ID
3542: WHERE chr_id = p_chr_id;
3543: */
3544: END IF;
3537: SET minor_version = minor_version + 1,
3538: object_version_number = object_version_number + 1,
3539: last_update_date = SYSDATE,
3540: last_updated_by = FND_GLOBAL.USER_ID,
3541: last_update_login = FND_GLOBAL.LOGIN_ID
3542: WHERE chr_id = p_chr_id;
3543: */
3544: END IF;
3545:
4453: (
4454: itemtype => G_ITEM_TYPE,
4455: itemkey => l_item_key,
4456: aname => 'USER_ID',
4457: avalue => fnd_global.user_id
4458: );
4459:
4460: wf_engine.SetItemAttrNumber
4461: (
4461: (
4462: itemtype => G_ITEM_TYPE,
4463: itemkey => l_item_key,
4464: aname => 'RESP_ID',
4465: avalue => fnd_global.resp_id
4466: );
4467:
4468: wf_engine.SetItemAttrNumber
4469: (
4469: (
4470: itemtype => G_ITEM_TYPE,
4471: itemkey => l_item_key,
4472: aname => 'RESP_APPL_ID',
4473: avalue => fnd_global.resp_appl_id
4474: );
4475:
4476: wf_engine.SetItemAttrNumber
4477: (
4477: (
4478: itemtype => G_ITEM_TYPE,
4479: itemkey => l_item_key,
4480: aname => 'SECURITY_GROUP_ID',
4481: avalue => fnd_global.security_group_id
4482: );
4483:
4484: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4485: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4492: WF_ENGINE.setitemowner
4493: (
4494: itemtype => G_ITEM_TYPE,
4495: itemkey => l_item_key,
4496: owner => fnd_global.user_name
4497: );
4498:
4499: -- Start the workflow process
4500: WF_ENGINE.STARTPROCESS
4510: SET wf_item_key = l_item_key,
4511: renewal_status = nvl(p_wf_attributes.negotiation_status, 'DRAFT'),
4512: object_version_number = object_version_number + 1,
4513: last_update_date = SYSDATE,
4514: last_updated_by = FND_GLOBAL.USER_ID,
4515: last_update_login = FND_GLOBAL.LOGIN_ID
4516: WHERE chr_id = p_wf_attributes.contract_id;
4517:
4518: -- Don't have to bump up minor version for updating design attributes
4511: renewal_status = nvl(p_wf_attributes.negotiation_status, 'DRAFT'),
4512: object_version_number = object_version_number + 1,
4513: last_update_date = SYSDATE,
4514: last_updated_by = FND_GLOBAL.USER_ID,
4515: last_update_login = FND_GLOBAL.LOGIN_ID
4516: WHERE chr_id = p_wf_attributes.contract_id;
4517:
4518: -- Don't have to bump up minor version for updating design attributes
4519: -- bump up the minor version number
4521: UPDATE okc_k_vers_numbers
4522: SET minor_version = minor_version + 1,
4523: object_version_number = object_version_number + 1,
4524: last_update_date = SYSDATE,
4525: last_updated_by = FND_GLOBAL.USER_ID,
4526: last_update_login = FND_GLOBAL.LOGIN_ID
4527: WHERE chr_id = p_wf_attributes.contract_id;
4528: */
4529: END IF;
4522: SET minor_version = minor_version + 1,
4523: object_version_number = object_version_number + 1,
4524: last_update_date = SYSDATE,
4525: last_updated_by = FND_GLOBAL.USER_ID,
4526: last_update_login = FND_GLOBAL.LOGIN_ID
4527: WHERE chr_id = p_wf_attributes.contract_id;
4528: */
4529: END IF;
4530:
5091: ELSIF l_negotiation_status = G_NEG_STS_QUOTE_SENT then
5092:
5093: -- get USER_ID, RESP_ID and SECURITY_GROUP_ID from old OKSARENW wf
5094: -- and stamp it in the new OKSKPRCS wf. bug 5723364. R12 Upgrade script
5095: -- is incorrectly setting these attributes to FND_GLOBAL values
5096: FOR l_user_dtls_rec IN l_user_dtls_csr(l_contract_id)
5097: LOOP
5098: wf_engine.SetItemAttrNumber
5099: (
5993:
5994: -- Set wf item attributes to reflect the current user submitting for approval
5995: x_return_status := set_user_context(
5996: p_wf_item_key => l_item_key,
5997: p_user_id => fnd_global.user_id,
5998: p_resp_id => fnd_global.resp_id,
5999: p_resp_appl_id => fnd_global.resp_appl_id,
6000: p_security_group_id => fnd_global.security_group_id,
6001: p_commit => G_TRUE
5994: -- Set wf item attributes to reflect the current user submitting for approval
5995: x_return_status := set_user_context(
5996: p_wf_item_key => l_item_key,
5997: p_user_id => fnd_global.user_id,
5998: p_resp_id => fnd_global.resp_id,
5999: p_resp_appl_id => fnd_global.resp_appl_id,
6000: p_security_group_id => fnd_global.security_group_id,
6001: p_commit => G_TRUE
6002: );
5995: x_return_status := set_user_context(
5996: p_wf_item_key => l_item_key,
5997: p_user_id => fnd_global.user_id,
5998: p_resp_id => fnd_global.resp_id,
5999: p_resp_appl_id => fnd_global.resp_appl_id,
6000: p_security_group_id => fnd_global.security_group_id,
6001: p_commit => G_TRUE
6002: );
6003:
5996: p_wf_item_key => l_item_key,
5997: p_user_id => fnd_global.user_id,
5998: p_resp_id => fnd_global.resp_id,
5999: p_resp_appl_id => fnd_global.resp_appl_id,
6000: p_security_group_id => fnd_global.security_group_id,
6001: p_commit => G_TRUE
6002: );
6003:
6004: -- This call is made for Authoring so that they don't have to access DB to get
8192: accepted_by = NULL,
8193: date_accepted = NULL,
8194: object_version_number = object_version_number + 1,
8195: last_update_date = SYSDATE,
8196: last_updated_by = FND_GLOBAL.USER_ID,
8197: last_update_login = FND_GLOBAL.LOGIN_ID
8198: WHERE chr_id = p_contract_id;
8199: wf_engine.AbortProcess (G_ITEM_TYPE, l_item_key);
8200: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8193: date_accepted = NULL,
8194: object_version_number = object_version_number + 1,
8195: last_update_date = SYSDATE,
8196: last_updated_by = FND_GLOBAL.USER_ID,
8197: last_update_login = FND_GLOBAL.LOGIN_ID
8198: WHERE chr_id = p_contract_id;
8199: wf_engine.AbortProcess (G_ITEM_TYPE, l_item_key);
8200: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8201: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
8802: l_irr_flag_names(l_contract_id_count) := 'IRR_FLAG';
8803: l_irr_flag_values(l_contract_id_count) := nvl(p_wf_attributes_tbl(i).irr_flag, G_IRR_FLAG_REQD);
8804:
8805: l_user_id_names(l_contract_id_count) := 'USER_ID';
8806: l_user_id_values(l_contract_id_count) := fnd_global.user_id;
8807:
8808: l_responsibility_id_names(l_contract_id_count) := 'RESP_ID';
8809: l_responsibility_id_values(l_contract_id_count) := fnd_global.resp_id;
8810:
8805: l_user_id_names(l_contract_id_count) := 'USER_ID';
8806: l_user_id_values(l_contract_id_count) := fnd_global.user_id;
8807:
8808: l_responsibility_id_names(l_contract_id_count) := 'RESP_ID';
8809: l_responsibility_id_values(l_contract_id_count) := fnd_global.resp_id;
8810:
8811: l_resp_appl_id_names(l_contract_id_count) := 'RESP_APPL_ID';
8812: l_resp_appl_id_values(l_contract_id_count) := fnd_global.resp_appl_id;
8813:
8808: l_responsibility_id_names(l_contract_id_count) := 'RESP_ID';
8809: l_responsibility_id_values(l_contract_id_count) := fnd_global.resp_id;
8810:
8811: l_resp_appl_id_names(l_contract_id_count) := 'RESP_APPL_ID';
8812: l_resp_appl_id_values(l_contract_id_count) := fnd_global.resp_appl_id;
8813:
8814: l_security_group_id_names(l_contract_id_count) := 'SECURITY_GROUP_ID';
8815: l_security_group_id_values(l_contract_id_count) := fnd_global.security_group_id;
8816:
8811: l_resp_appl_id_names(l_contract_id_count) := 'RESP_APPL_ID';
8812: l_resp_appl_id_values(l_contract_id_count) := fnd_global.resp_appl_id;
8813:
8814: l_security_group_id_names(l_contract_id_count) := 'SECURITY_GROUP_ID';
8815: l_security_group_id_values(l_contract_id_count) := fnd_global.security_group_id;
8816:
8817: l_neg_status_names(l_contract_id_count) := 'NEGOTIATION_STATUS';
8818: IF (p_wf_attributes_tbl(i).negotiation_status IS NULL OR
8819: p_wf_attributes_tbl(i).negotiation_status = G_NEG_STS_PRE_DRAFT) THEN
8917: SET wf_item_key = l_item_keys(i),
8918: renewal_status = nvl(renewal_status,G_NEG_STS_DRAFT),
8919: object_version_number = object_version_number + 1,
8920: last_update_date = SYSDATE,
8921: last_updated_by = FND_GLOBAL.USER_ID,
8922: last_update_login = FND_GLOBAL.LOGIN_ID
8923: WHERE chr_id = l_contract_id_values(i);
8924:
8925: FORALL i IN l_contract_id_values.FIRST..l_contract_id_values.LAST
8918: renewal_status = nvl(renewal_status,G_NEG_STS_DRAFT),
8919: object_version_number = object_version_number + 1,
8920: last_update_date = SYSDATE,
8921: last_updated_by = FND_GLOBAL.USER_ID,
8922: last_update_login = FND_GLOBAL.LOGIN_ID
8923: WHERE chr_id = l_contract_id_values(i);
8924:
8925: FORALL i IN l_contract_id_values.FIRST..l_contract_id_values.LAST
8926: UPDATE oks_k_headers_bh
8927: SET wf_item_key = l_item_keys(i),
8928: object_version_number = object_version_number + 1,
8929: renewal_status = nvl(renewal_status,G_NEG_STS_DRAFT),
8930: last_update_date = SYSDATE,
8931: last_updated_by = FND_GLOBAL.USER_ID,
8932: last_update_login = FND_GLOBAL.LOGIN_ID
8933: WHERE chr_id = l_contract_id_values(i);
8934: END IF;
8935: END IF;
8928: object_version_number = object_version_number + 1,
8929: renewal_status = nvl(renewal_status,G_NEG_STS_DRAFT),
8930: last_update_date = SYSDATE,
8931: last_updated_by = FND_GLOBAL.USER_ID,
8932: last_update_login = FND_GLOBAL.LOGIN_ID
8933: WHERE chr_id = l_contract_id_values(i);
8934: END IF;
8935: END IF;
8936: