[Home] [Help]
1: PACKAGE BODY GMDQSPEC_APPROVAL_WF_PKG AS
2: /* $Header: GMDQSAPB.pls 120.5 2006/04/24 05:00:58 rlnagara noship $ */
3:
4:
5: l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
212: , x_return_status => api_ret_status
213: , x_message => api_err_mesg );
214:
215: IF api_ret_status <> 'S' THEN
216: WF_CORE.CONTEXT ('GMDQSPEC_APPROVAL_WF_PKG','is_approval_req',p_itemtype,p_itemkey,api_err_mesg );
217: raise APPLICATION_ERROR;
218: END IF;
219:
220: IF (l_debug = 'Y') THEN
260: -- Get attributes Required for display
261: open get_disp_Attr;
262: FETCH get_disp_Attr INTO disp_attr_rec;
263: IF get_disp_Attr%NOTFOUND THEN
264: WF_CORE.CONTEXT ('GMDQSPEC_APPROVAL_WF_PKG','is_approval_req',p_itemtype,p_itemkey,FND_MESSAGE.GET_STRING('GMD','GMD_QC_INVALID_SPEC_ID'));
265: raise APPLICATION_ERROR;
266: END IF;
267:
268: IF (l_debug = 'Y') THEN
270: END IF;
271:
272: l_requester := GET_FND_USER_NAME(disp_attr_rec.LAST_UPDATED_BY);
273: l_owner := GET_FND_USER_NAME(disp_attr_rec.OWNER_ID);
274: lStartStatus_DESC := GMDQSPEC_APPROVAL_WF_PKG.GET_STATUS_MEANING(lStartStatus,'S');
275: lTargetStatus_DESC:= GMDQSPEC_APPROVAL_WF_PKG.GET_STATUS_MEANING(lTargetStatus,'S');
276:
277: wf_engine.setitemattrtext(p_itemtype, p_itemkey,'SPEC_NAME',disp_attr_rec.SPEC_NAME);
278: wf_engine.setitemattrnumber(p_itemtype, p_itemkey,'SPEC_VERS',disp_attr_rec.SPEC_VERS);
271:
272: l_requester := GET_FND_USER_NAME(disp_attr_rec.LAST_UPDATED_BY);
273: l_owner := GET_FND_USER_NAME(disp_attr_rec.OWNER_ID);
274: lStartStatus_DESC := GMDQSPEC_APPROVAL_WF_PKG.GET_STATUS_MEANING(lStartStatus,'S');
275: lTargetStatus_DESC:= GMDQSPEC_APPROVAL_WF_PKG.GET_STATUS_MEANING(lTargetStatus,'S');
276:
277: wf_engine.setitemattrtext(p_itemtype, p_itemkey,'SPEC_NAME',disp_attr_rec.SPEC_NAME);
278: wf_engine.setitemattrnumber(p_itemtype, p_itemkey,'SPEC_VERS',disp_attr_rec.SPEC_VERS);
279: wf_engine.setitemattrtext(p_itemtype, p_itemkey,'SPEC_DESC',disp_attr_rec.SPEC_DESC);
381: aname => 'GMDQSPAP_MESG_CNT',
382: avalue => 1);
383: p_resultout := 'COMPLETE:Y';
384: ELSE
385: WF_CORE.CONTEXT ('GMDQSPEC_APPROVAL_WF_PKG','is_approval_req',
386: p_itemtype,p_itemkey,api_err_mesg );
387: raise APPLICATION_ERROR;
388: END IF;
389: END IF;
388: END IF;
389: END IF;
390: END IF;
391: EXCEPTION WHEN NO_DATA_FOUND THEN
392: WF_CORE.CONTEXT ('GMDQSPEC_APPROVAL_WF_PKG','is_approval_req',p_itemtype,p_itemkey,'Invalid Spec ID');
393: raise;
394: END IS_APPROVAL_REQ;
395:
396: /**************************************************************************************
488: , p_mode => 'A'
489: , x_return_status => api_ret_status
490: , x_message => api_err_mesg );
491: IF api_ret_status <> 'S' THEN
492: WF_CORE.CONTEXT ('GMDQSPEC_APPROVAL_WF_PKG','is_approval_req',p_itemtype,p_itemkey,api_err_mesg );
493: raise APPLICATION_ERROR;
494: END IF;
495: p_resultout := 'COMPLETE:N';
496: ELSE
571: , p_mode => 'S'
572: , x_return_status => api_ret_status
573: , x_message => api_err_mesg );
574: IF api_ret_status <> 'S' THEN
575: WF_CORE.CONTEXT ('GMDQSPEC_APPROVAL_WF_PKG','is_approval_req',p_itemtype,p_itemkey,api_err_mesg );
576: raise APPLICATION_ERROR;
577: END IF;
578: END IF;
579: END NO_RESPONSE;
635: , p_mode => 'R'
636: , x_return_status => api_ret_status
637: , x_message => api_err_mesg );
638: IF api_ret_status <> 'S' THEN
639: WF_CORE.CONTEXT ('GMDQSPEC_APPROVAL_WF_PKG','is_approval_req',p_itemtype,p_itemkey,api_err_mesg );
640: raise APPLICATION_ERROR;
641: END IF;
642: END IF;
643:
736: p_event_key => p_SPEC_ID,
737: p_parameters => l_parameter_list);
738: l_parameter_list.DELETE;
739: END;
740: END GMDQSPEC_APPROVAL_WF_PKG;