DBA Data[Home] [Help]

APPS.PA_AUTOALLOC_WF_PKG dependencies on PA_AUTOALLOC_WF_PKG

Line 1: PACKAGE BODY PA_AUTOALLOC_WF_PKG AS

1: PACKAGE BODY PA_AUTOALLOC_WF_PKG AS
2: /* $Header: PAXWFALB.pls 120.4 2006/05/31 23:01:06 skannoji noship $ */
3: ----------------------------------------------------------------------------
4: -- This procedure is called from GL workflow activity to launch PA workflow
5:

Line 22: v_Err_Stack := 'PA_AUTOALLOC_WF_PKG.Launch_PA_WF';

18: v_lang varchar2(30);
19: v_debug_mode varchar2(1);
20: Begin
21: If ( p_funcmode = 'RUN' ) THEN
22: v_Err_Stack := 'PA_AUTOALLOC_WF_PKG.Launch_PA_WF';
23: G_Err_Stage := 'Starting Launch_PA_WF';
24: /* dbms_output.put_line(G_Err_Stage); */
25:
26: -- generate PA workflow item key

Line 28: into PA_AUTOALLOC_WF_PKG.PA_item_key

24: /* dbms_output.put_line(G_Err_Stage); */
25:
26: -- generate PA workflow item key
27: select pa_workflow_itemkey_s.nextval
28: into PA_AUTOALLOC_WF_PKG.PA_item_key
29: from dual;
30:
31: /* dbms_output.put_line('Item Key is '||PA_item_key); */
32: wf_engine.CreateProcess( itemtype => PA_item_type,

Line 177: Wf_Core.Context('PA_AUTOALLOC_WF_PKG',

173: End If;
174:
175: EXCEPTION
176: WHEN NO_DATA_FOUND then
177: Wf_Core.Context('PA_AUTOALLOC_WF_PKG',
178: 'Launch_PA_WF', PA_item_type, PA_item_key,
179: 'Item Type could not be set: sequence does not exist');
180: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
181: WriteDebugMsg('*************** Error Encountered **************');

Line 191: Wf_Core.Context( 'PA_AUTOALLOC_WF_PKG','Launch_PA_WF', G_Err_Stage,

187: p_result := 'COMPLETE:FAIL';
188:
189: Raise;
190: WHEN OTHERS THEN
191: Wf_Core.Context( 'PA_AUTOALLOC_WF_PKG','Launch_PA_WF', G_Err_Stage,
192: PA_item_type, PA_item_key);
193: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
194: WriteDebugMsg('*************** Error Encountered **************');
195: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);

Line 572: Wf_Core.Context('PA_AUTOALLOC_WF_PKG',

568: Reset_PA_WF_Stack(PA_item_type,PA_item_key);
569: EXCEPTION
570: WHEN OTHERS THEN
571: Reset_PA_WF_Stack(PA_item_type,PA_item_key);
572: Wf_Core.Context('PA_AUTOALLOC_WF_PKG',
573: 'initialize_pa_wf', PA_item_type, PA_item_key);
574: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
575: WriteDebugMsg ('************ Error Encountered **************');
576: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);

Line 604: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;

600:
601: Begin
602: If ( p_funcmode = 'RUN' ) THEN
603:
604: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;
605:
606: Set_PA_WF_Stack(p_item_type,p_item_key,'Submit_Alloc_Process');
607: v_err_stack := WF_ENGINE.GetItemAttrText( p_item_type,
608: p_item_key,

Line 714: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'SUBMIT_ALLOC_PROCESS',

710:
711: EXCEPTION
712: WHEN OTHERS THEN
713: Reset_PA_WF_Stack(p_item_type,p_item_key);
714: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'SUBMIT_ALLOC_PROCESS',
715: p_item_type, p_item_key);
716: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
717: WriteDebugMsg('*********** Error Encountered ***********');
718: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);

Line 758: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;

754: v_operating_mode Varchar2(2);
755:
756: Begin
757: If ( p_funcmode = 'RUN' ) THEN
758: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;
759:
760: Set_PA_WF_Stack(p_item_type,p_item_key,'Submit_Conc_Sum');
761: v_err_stack := WF_ENGINE.GetItemAttrText( PA_item_type,
762: PA_item_key,

Line 825: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'SUBMIT_CONC_SUM',

821:
822: EXCEPTION
823: WHEN OTHERS THEN
824: Reset_PA_WF_Stack(p_item_type,p_item_key);
825: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'SUBMIT_CONC_SUM',
826: PA_item_type, PA_item_key);
827: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
828: WriteDebugMsg('********** Error Encountered *********');
829: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);

Line 880: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;

876:
877: Begin
878: If ( p_funcmode = 'RUN' ) THEN
879:
880: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;
881: WriteDebugMsg('Started Submit_Conc_AllocRev');
882:
883: v_parent_process := WF_ENGINE.GetItemAttrText ( p_item_type
884: ,p_item_key

Line 973: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'SUBMIT_CONC_ALLOCREV', PA_item_type, PA_item_key);

969: End If;
970:
971: EXCEPTION
972: WHEN OTHERS THEN
973: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'SUBMIT_CONC_ALLOCREV', PA_item_type, PA_item_key);
974: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
975: WriteDebugMsg('************* Error Encountered ************');
976: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);
977: -- set status code to unexpected fatal error

Line 1013: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;

1009: BEGIN
1010:
1011: If ( p_funcmode = 'RUN' ) THEN
1012:
1013: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;
1014: Set_PA_WF_Stack(PA_item_type,PA_item_key,'Check_Exp_Groups');
1015: v_err_stack := WF_ENGINE.GetItemAttrText( PA_item_type,
1016: PA_item_key,
1017: 'WF_STACK');

Line 1104: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'Check_Exp_Groups', PA_item_type, PA_item_key);

1100: EXCEPTION
1101:
1102: WHEN NO_DATA_FOUND THEN
1103: Reset_PA_WF_Stack(p_item_type,p_item_key);
1104: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'Check_Exp_Groups', PA_item_type, PA_item_key);
1105: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
1106: WriteDebugMsg('**************** Error Encountered ***************');
1107: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);
1108: -- set status code to unexpected fatal error

Line 1120: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'Check_Exp_Groups', PA_item_type, PA_item_key);

1116: Raise;
1117:
1118: WHEN OTHERS THEN
1119: Reset_PA_WF_Stack(p_item_type,p_item_key);
1120: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'Check_Exp_Groups', PA_item_type, PA_item_key);
1121: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
1122: WriteDebugMsg('**************** Error Encountered ***************');
1123: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);
1124: -- set status code to unexpected fatal error

Line 1165: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;

1161:
1162: Begin
1163: If ( p_funcmode = 'RUN' ) THEN
1164:
1165: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;
1166: Set_PA_WF_Stack(PA_item_type,PA_item_key,'Submit_Conc_Process_Dist');
1167: v_err_stack := WF_ENGINE.GetItemAttrText( PA_item_type,
1168: PA_item_key,
1169: 'WF_STACK');

Line 1229: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'Submit_Conc_Process_Dist', PA_item_type, PA_item_key);

1225:
1226: EXCEPTION
1227: WHEN OTHERS THEN
1228: Reset_PA_WF_Stack(p_item_type,p_item_key);
1229: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'Submit_Conc_Process_Dist', PA_item_type, PA_item_key);
1230: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
1231: WriteDebugMsg('*********** Error Encountered ***********');
1232: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);
1233: -- set status code to unexpected fatal error

Line 1541: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;

1537: Begin
1538:
1539: IF p_funcmode = 'RUN' THEN
1540:
1541: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;
1542: Set_PA_WF_Stack(p_item_type,p_item_key,'Delete_Alloc_Run');
1543: v_err_stack := WF_ENGINE.GetItemAttrText( PA_item_type,
1544: PA_item_key,
1545: 'WF_STACK');

Line 1573: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'DELETE_ALLOC_RUN', p_item_type, p_item_key);

1569: Exception
1570:
1571: WHEN OTHERS THEN
1572: Reset_PA_WF_Stack(p_item_type,p_item_key);
1573: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'DELETE_ALLOC_RUN', p_item_type, p_item_key);
1574: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
1575: WriteDebugMsg('*********** Error Encountered ***********');
1576: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);
1577: -- set status code to unexpected fatal error

Line 1621: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;

1617: v_lang varchar2(30);
1618:
1619: Begin
1620: If ( p_funcmode = 'RUN' ) THEN
1621: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;
1622:
1623: Set_PA_WF_Stack(PA_item_type,PA_item_key,'Check_Process_Status');
1624: v_err_stack := WF_ENGINE.GetItemAttrText( PA_item_type,
1625: PA_item_key,

Line 1802: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'Check_Process_Status',

1798:
1799: EXCEPTION
1800: When Others Then
1801: Reset_PA_WF_Stack(p_item_type,p_item_key);
1802: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'Check_Process_Status',
1803: p_item_type, p_item_key);
1804: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
1805: WriteDebugMsg('*********** Error Encountered **********');
1806: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);

Line 1850: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;

1846: v_return_code Number;
1847:
1848: Begin
1849: If ( p_funcmode = 'RUN' ) THEN
1850: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;
1851:
1852: Set_PA_WF_Stack(p_item_type,p_item_key,'Check_Alloc_Run_Status');
1853: v_err_stack := WF_ENGINE.GetItemAttrText( PA_item_type,
1854: PA_item_key,

Line 2057: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'Check_Alloc_Run_Status', p_item_type, p_item_key);

2053:
2054: EXCEPTION
2055: When Others Then
2056: Reset_PA_WF_Stack(p_item_type,p_item_key);
2057: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'Check_Alloc_Run_Status', p_item_type, p_item_key);
2058: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
2059: WriteDebugMsg('************Error Encountered***********');
2060: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);
2061: v_SET_REQ_ID := WF_ENGINE.GetItemAttrNumber(itemtype => p_item_type,

Line 2092: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;

2088:
2089: BEGIN
2090: If ( p_funcmode = 'RUN' ) THEN
2091:
2092: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;
2093: Set_PA_WF_Stack(p_item_type,p_item_key,'Check_Alloc_Release');
2094: v_err_stack := WF_ENGINE.GetItemAttrText( PA_item_type,
2095: PA_item_key,
2096: 'WF_STACK');

Line 2145: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'Check_Alloc_Release', p_item_type, p_item_key);

2141:
2142: p_result := 'COMPLETE:'||v_result;
2143: When Others Then
2144: Reset_PA_WF_Stack(p_item_type,p_item_key);
2145: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'Check_Alloc_Release', p_item_type, p_item_key);
2146: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
2147: WriteDebugMsg('************Error Encountered***********');
2148: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);
2149: v_SET_REQ_ID := WF_ENGINE.GetItemAttrNumber(itemtype => p_item_type,

Line 2184: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;

2180:
2181: Begin
2182: If ( p_funcmode = 'RUN' ) THEN
2183:
2184: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;
2185: Set_PA_WF_Stack(p_item_type,p_item_key,'Check_Costing_Process');
2186: v_err_stack := WF_ENGINE.GetItemAttrText( p_item_type,
2187: p_item_key,
2188: 'WF_STACK');

Line 2267: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'Check_Costing_Process', p_item_type, p_item_key);

2263: p_result := 'COMPLETE:PASS';
2264:
2265: When Others Then
2266: Reset_PA_WF_Stack(p_item_type,p_item_key);
2267: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'Check_Costing_Process', p_item_type, p_item_key);
2268: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
2269: WriteDebugMsg('********** Encountered Errors ***********');
2270: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);
2271: GL_AUTO_ALLOC_WF_PKG.Update_Status(v_set_req_id

Line 2300: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;

2296: v_set_req_id Number;
2297:
2298: Begin
2299: If ( p_funcmode = 'RUN' ) THEN
2300: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;
2301:
2302: Set_PA_WF_Stack(p_item_type,p_item_key,'Check_Summary_Process');
2303: v_err_stack := WF_ENGINE.GetItemAttrText( PA_item_type,
2304: PA_item_key,

Line 2373: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'Check_Summary_Process',

2369:
2370: EXCEPTION
2371: When Others Then
2372: Reset_PA_WF_Stack(p_item_type,p_item_key);
2373: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'Check_Summary_Process',
2374: p_item_type, p_item_key);
2375: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
2376: WriteDebugMsg('************* Error Encountered **********');
2377: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);

Line 2463: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;

2459: v_operating_mode VARCHAR2(2);
2460:
2461: Begin
2462: If ( p_funcmode = 'RUN' ) THEN
2463: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;
2464: Set_PA_WF_Stack(p_item_type,p_item_key,'Submit_Conc_AllocRls');
2465: v_err_stack := WF_ENGINE.GetItemAttrText( PA_item_type,
2466: PA_item_key,
2467: 'WF_STACK');

Line 2520: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'Submit_Conc_AllocRls', p_item_type, p_item_key);

2516:
2517: EXCEPTION
2518: WHEN OTHERS THEN
2519: Reset_PA_WF_Stack(p_item_type,p_item_key);
2520: Wf_Core.Context('PA_AUTOALLOC_WF_PKG', 'Submit_Conc_AllocRls', p_item_type, p_item_key);
2521: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
2522: WriteDebugMsg(G_err_msg ||'*'||G_err_stack);
2523: WriteDebugMsg('************ Error Encountered *************');
2524: -- set status code to unexpected fatal error

Line 2553: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;

2549: v_err_stack VARCHAR2(2000);
2550:
2551: BEGIN
2552: If ( p_funcmode = 'RUN' ) THEN
2553: PA_AUTOALLOC_WF_PKG.PA_item_key := p_item_key;
2554: Set_PA_WF_Stack(p_item_type,p_item_key,'Set_PA_WF_STATUS');
2555: v_err_stack := WF_ENGINE.GetItemAttrText( PA_item_type,
2556: PA_item_key,
2557: 'WF_STACK');

Line 2956: Wf_Core.Context('PA_AUTOALLOC_WF_PKG',

2952: itemkey => PA_item_key,
2953: aname => 'WF_STACK');
2954: /* dbms_output.put_line('In when-others of initialize_debug'); */
2955: /* dbms_output.put_line(SQLERRM); */
2956: Wf_Core.Context('PA_AUTOALLOC_WF_PKG',
2957: 'initialize_debug', 'PASDALOC', PA_item_key);
2958: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
2959: Reset_PA_WF_Stack(PA_Item_Type,PA_Item_Key);
2960: Raise;

Line 3062: Wf_Core.Context('PA_AUTOALLOC_WF_PKG',

3058: ( itemtype => PA_item_type,
3059: itemkey => PA_item_key,
3060: aname => 'WF_STACK');
3061: /* dbms_output.put_line(SQLERRM); */
3062: Wf_Core.Context('PA_AUTOALLOC_WF_PKG',
3063: 'WriteDebugMsg', 'PASDALOC', PA_item_key,v_err_stack);
3064: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
3065: Reset_PA_WF_Stack(PA_Item_Type,PA_Item_Key);
3066: Raise;

Line 3088: Wf_Core.Context('PA_AUTOALLOC_WF_PKG',

3084: avalue => p_err_stack);
3085: Exception
3086:
3087: WHEN OTHERS THEN
3088: Wf_Core.Context('PA_AUTOALLOC_WF_PKG',
3089: 'Init_PA_WF_Stack', 'PASDALOC', PA_item_key,G_Err_Stage);
3090: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
3091: Raise;
3092:

Line 3118: Wf_Core.Context('PA_AUTOALLOC_WF_PKG',

3114:
3115: Exception
3116:
3117: WHEN OTHERS THEN
3118: Wf_Core.Context('PA_AUTOALLOC_WF_PKG',
3119: 'Set_PA_WF_Stack', 'PASDALOC', PA_item_key,G_Err_Stage);
3120: Wf_Core.Get_Error(G_err_name,G_err_msg,G_err_stack);
3121: Raise;
3122:

Line 3215: End PA_AUTOALLOC_WF_PKG;

3211:
3212: RETURN TEMP_DIR;
3213: End GetDebugLogDir;
3214: -------------------------------------------------------------------------------
3215: End PA_AUTOALLOC_WF_PKG;
3216: