1: PACKAGE BODY GMD_SS_APPROVAL_WF_PKG AS
2: /* $Header: GMDQMSAB.pls 120.7 2011/03/18 19:42:38 plowe ship $ */
3:
4: l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
5:
152: -- Get attributes Required for display
153: open get_disp_Attr;
154: FETCH get_disp_Attr INTO disp_attr_rec;
155: IF get_disp_Attr%NOTFOUND THEN
156: WF_CORE.CONTEXT ('GMD_SS_APPROVAL_WF_PKG','is_approval_req',p_itemtype,p_itemkey,'NO VLAID SS ROW');
157: raise APPLICATION_ERROR;
158: END IF;
159: close get_disp_Attr;
160:
205: -- Get attributes Required for display
206: open get_disp_Attr;
207: FETCH get_disp_Attr INTO disp_attr_rec;
208: IF get_disp_Attr%NOTFOUND THEN
209: WF_CORE.CONTEXT ('GMD_SS_APPROVAL_WF_PKG','is_approval_req',p_itemtype,p_itemkey,'NO VLAID SS ROW');
210: raise APPLICATION_ERROR;
211: END IF;
212:
213: open get_storage_name(disp_attr_rec.storage_plan_id);
227: END IF;
228:
229: l_requester := GET_FND_USER_NAME(disp_attr_rec.LAST_UPDATED_BY);
230: l_owner := GET_FND_USER_NAME(disp_attr_rec.OWNER);
231: lStartStatus_DESC := GMD_SS_APPROVAL_WF_PKG.GET_STATUS_MEANING(lStartStatus,'STABILITY');
232: lTargetStatus_DESC:= GMD_SS_APPROVAL_WF_PKG.GET_STATUS_MEANING(lTargetStatus,'STABILITY');
233:
234: wf_engine.setitemattrtext(p_itemtype, p_itemkey,'OWNER_ORGN_CODE',disp_attr_rec.ORGANIZATION_CODE);
235: wf_engine.setitemattrtext(p_itemtype, p_itemkey,'SPEC_NAME',disp_attr_rec.SPEC_NAME);
228:
229: l_requester := GET_FND_USER_NAME(disp_attr_rec.LAST_UPDATED_BY);
230: l_owner := GET_FND_USER_NAME(disp_attr_rec.OWNER);
231: lStartStatus_DESC := GMD_SS_APPROVAL_WF_PKG.GET_STATUS_MEANING(lStartStatus,'STABILITY');
232: lTargetStatus_DESC:= GMD_SS_APPROVAL_WF_PKG.GET_STATUS_MEANING(lTargetStatus,'STABILITY');
233:
234: wf_engine.setitemattrtext(p_itemtype, p_itemkey,'OWNER_ORGN_CODE',disp_attr_rec.ORGANIZATION_CODE);
235: wf_engine.setitemattrtext(p_itemtype, p_itemkey,'SPEC_NAME',disp_attr_rec.SPEC_NAME);
236: wf_engine.setitemattrtext(p_itemtype, p_itemkey,'BASE_SPEC',disp_attr_rec.SPEC_NAME);
274:
275:
276: p_resultout := 'COMPLETE:Y';
277: ELSE
278: WF_CORE.CONTEXT ('GMD_SS_APPROVAL_WF_PKG','is_approval_req',p_itemtype,p_itemkey,api_err_mesg );
279: raise APPLICATION_ERROR;
280: END IF;
281:
282: END IF;
281:
282: END IF;
283:
284: EXCEPTION WHEN NO_DATA_FOUND THEN
285: WF_CORE.CONTEXT ('GMD_SS_APPROVAL_WF_PKG','is_approval_req',p_itemtype,p_itemkey,'Invalid SS ID');
286: raise;
287: END IS_APPROVAL_REQ;
288:
289: /**************************************************************************************
384: , x_message => api_err_mesg );
385:
386:
387: IF api_ret_status <> 'S' THEN
388: WF_CORE.CONTEXT ('GMD_SS_APPROVAL_WF_PKG','is_approval_req',p_itemtype,p_itemkey,api_err_mesg );
389: raise APPLICATION_ERROR;
390: END IF;
391:
392: IF (l_debug = 'Y') THEN
491: , x_return_status => api_ret_status
492: , x_message => api_err_mesg );
493:
494: IF api_ret_status <> 'S' THEN
495: WF_CORE.CONTEXT ('GMD_SS_APPROVAL_WF_PKG','is_approval_req',p_itemtype,p_itemkey,api_err_mesg );
496: raise APPLICATION_ERROR;
497: END IF;
498: END IF;
499: END NO_RESPONSE;
559: , x_return_status => api_ret_status
560: , x_message => api_err_mesg );
561:
562: IF api_ret_status <> 'S' THEN
563: WF_CORE.CONTEXT ('GMD_SS_APPROVAL_WF_PKG','is_approval_req',p_itemtype,p_itemkey,api_err_mesg );
564: raise APPLICATION_ERROR;
565: END IF;
566: END IF;
567:
694: p_parameters => l_parameter_list);
695: l_parameter_list.DELETE;
696: END;
697:
698: END GMD_SS_APPROVAL_WF_PKG;