[Home] [Help]
1: PACKAGE BODY GMDQSPEC_APPROVAL_WF_PKG AS
2: /* $Header: GMDQSAPB.pls 120.6 2011/03/18 19:38:24 plowe ship $ */
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: /**************************************************************************************
489: , p_mode => 'A'
490: , x_return_status => api_ret_status
491: , x_message => api_err_mesg );
492: IF api_ret_status <> 'S' THEN
493: WF_CORE.CONTEXT ('GMDQSPEC_APPROVAL_WF_PKG','is_approval_req',p_itemtype,p_itemkey,api_err_mesg );
494: raise APPLICATION_ERROR;
495: END IF;
496: p_resultout := 'COMPLETE:N';
497: ELSE
572: , p_mode => 'S'
573: , x_return_status => api_ret_status
574: , x_message => api_err_mesg );
575: IF api_ret_status <> 'S' THEN
576: WF_CORE.CONTEXT ('GMDQSPEC_APPROVAL_WF_PKG','is_approval_req',p_itemtype,p_itemkey,api_err_mesg );
577: raise APPLICATION_ERROR;
578: END IF;
579: END IF;
580: END NO_RESPONSE;
636: , p_mode => 'R'
637: , x_return_status => api_ret_status
638: , x_message => api_err_mesg );
639: IF api_ret_status <> 'S' THEN
640: WF_CORE.CONTEXT ('GMDQSPEC_APPROVAL_WF_PKG','is_approval_req',p_itemtype,p_itemkey,api_err_mesg );
641: raise APPLICATION_ERROR;
642: END IF;
643: END IF;
644:
737: p_event_key => p_SPEC_ID,
738: p_parameters => l_parameter_list);
739: l_parameter_list.DELETE;
740: END;
741: END GMDQSPEC_APPROVAL_WF_PKG;