1: PACKAGE BODY GMDFMGAP_wf_pkg AS
2: /* $Header: GMDFMGAB.pls 120.1 2006/08/08 11:25:08 kmotupal noship $ */
3: PROCEDURE wf_init (
4: p_formula_id IN FM_FORM_MST_B.formula_id%TYPE,
5: p_formula_no IN FM_FORM_MST_B.formula_no%TYPE,
128: EXCEPTION
129: WHEN OTHERS THEN
130: FND_MESSAGE.SET_NAME('FND', 'FND_AS_UNEXPECTED_ERROR');
131: FND_MESSAGE.SET_TOKEN('ERROR_TEXT', sqlerrm);
132: FND_MESSAGE.SET_TOKEN('PKG_NAME', 'GMDFMGAP_WF_PKG');
133: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME', 'WF_INIT');
134: APP_EXCEPTION.RAISE_EXCEPTION;
135: WF_CORE.CONTEXT ('GMDFMGAP_wf_pkg','wf_init',l_itemtype,l_itemkey,'Initial' );
136: raise;
131: FND_MESSAGE.SET_TOKEN('ERROR_TEXT', sqlerrm);
132: FND_MESSAGE.SET_TOKEN('PKG_NAME', 'GMDFMGAP_WF_PKG');
133: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME', 'WF_INIT');
134: APP_EXCEPTION.RAISE_EXCEPTION;
135: WF_CORE.CONTEXT ('GMDFMGAP_wf_pkg','wf_init',l_itemtype,l_itemkey,'Initial' );
136: raise;
137:
138: END wf_init;
139:
208: END IF;
209: END IF;
210: EXCEPTION
211: WHEN OTHERS THEN
212: WF_CORE.CONTEXT ('GMDFMGAP_wf_pkg','is_approval_req',p_itemtype,p_itemkey,p_role);
213: raise;
214: END is_approval_req;
215:
216:
419: avalue => l_comment);
420: END IF;
421: END;
422:
423: END GMDFMGAP_wf_pkg;