[Home] [Help]
PACKAGE: APPS.XDP_PROCEDURE_BUILDER
Source
1 PACKAGE XDP_PROCEDURE_BUILDER AUTHID CURRENT_USER AS
2 /* $Header: XDPPRBDS.pls 120.1 2005/06/16 02:24:07 appldev $ */
3
4 g_SvcWIMapType varchar2(80) := 'DYNAMIC_WI_MAPPING';
5 g_WIFAMapType varchar2(80) := 'DYNAMIC_FA_MAPPING';
6 g_WIWFStartType varchar2(80) := 'EXEC_WI_WORKFLOW';
7
8 g_WIParamEvalType varchar2(80) := 'WI_PARAM_EVAL_PROC';
9 g_FAParamEvalType varchar2(80) := 'FA_PARAM_EVAL_PROC';
10 g_EvalAllFAParamType varchar2(80) := 'FA_PARAM_EVAL_ALL_PROC';
11
12 g_LocateFEType varchar2(80) := 'LOCATE_FE';
13 g_FPType varchar2(80) := 'PROVISIONING';
14
15 g_ConnectType varchar2(80) := 'CONNECT';
16 g_DisconnectType varchar2(80) := 'DISCONNECT';
17
18 g_MacroSend varchar2(30) := 'SEND';
19 g_MacroSendHttp varchar2(30) := 'SEND_HTTP';
20 g_MacroLogin varchar2(30) := 'LOGIN';
21 g_MacroGetResp varchar2(30) := 'GET_RESPONSE';
22 g_MacroGetParam varchar2(30) := 'GET_PARAM_VALUE';
23 g_MacroNotifError varchar2(30) := 'NOTIFY_ERROR';
24 g_MacroResponseContains varchar2(30) := 'RESPONSE_CONTAINS';
25
26 -- New for 11.5.6++
27 g_MacroAudit varchar2(30) := 'AUDIT';
28 g_MacroGetLongResp varchar2(30):= 'GET_LONG_RESPONSE';
29
30 g_SvcWIMapSpec varchar2(2000);
31 g_SvcWIMapComments varchar2(2000);
32 g_WIFAMapSpec varchar2(2000);
33 g_WIFAMapComments varchar2(2000);
34 g_WIWFStartSpec varchar2(2000);
35 g_WIWFStartComments varchar2(2000);
36
37 g_WIParamEvalSpec varchar2(2000);
38 g_WIParamEvalComments varchar2(2000);
39 g_FAParamEvalSpec varchar2(2000);
40 g_FAParamEvalComments varchar2(2000);
41 g_EvalAllFAParamSpec varchar2(2000);
42 g_EvalAllFAParamComments varchar2(2000);
43
44 g_LocateFESpec varchar2(2000);
45 g_LocateFEComments varchar2(2000);
46 g_FPSpec varchar2(2000);
47 g_FPComments varchar2(2000);
48
49 g_ConnectSpec varchar2(2000);
50 g_ConnectComments varchar2(2000);
51 g_DisconnectSpec varchar2(2000);
52 g_DisconnectComments varchar2(2000);
53
54 g_SvcWIMapDefBody varchar2(2000);
55 g_WIFAMapDefBody varchar2(2000);
56 g_WIWFStartDefBody varchar2(2000);
57
58 g_WIParamEvalDefBody varchar2(2000);
59 g_FAParamEvalDefBody varchar2(2000);
60 g_EvalAllFAParamDefBody varchar2(2000);
61
62 g_LocateFEDefBody varchar2(2000);
63 g_FPDefBody varchar2(2000);
64
65 g_ConnectDefBody varchar2(2000);
66 g_DisconnectDefBody varchar2(2000);
67
68
69 g_PackageSuffix varchar2(10) := '_U';
70 g_PackagePrefix varchar2(10) := 'XDP_';
71 -- g_MaxProcLength number := 23;
72 g_MaxProcLength number := 15;
73
74 -- For Getting Display Names
75 -- Also used by XDP_PROCEDURE_BUILDER_UTIL package
76 pv_ParamWI varchar2(80) := 'WI';
77 pv_ParamWIDisp varchar2(80) := 'WI';
78
79 pv_ParamFA varchar2(80) := 'FA';
80 pv_ParamFADisp varchar2(80) := 'FA';
81
82 pv_ParamLine varchar2(80) := 'LINE';
83 pv_ParamLineDisp varchar2(80) := 'LINE';
84
85 pv_ParamOrder varchar2(80) := 'ORDER';
86 pv_ParamOrderDisp varchar2(80) := 'ORDER';
87
88 pv_ParamFE varchar2(80) := 'FE';
89 pv_ParamFEDisp varchar2(80) := 'FE';
90
91 -- Used which checking and generating the Procedure
92
93 pv_WIParamUsed boolean := false;
94 pv_OrderParamUsed boolean := false;
95 pv_LineParamUsed boolean := false;
96 pv_FAParamUsed boolean := false;
97
98 Procedure GeneratePackageName ( p_ProcType in varchar2,
99 p_ProcName in varchar2,
100 p_Validate in boolean default false,
101 x_PackageName OUT NOCOPY varchar2,
102 x_ErrorCode OUT NOCOPY number,
103 x_ErrorString OUT NOCOPY varchar2);
104
105 Function DecodeProcName (p_PackageName in varchar2) return varchar2;
106
107 Procedure GenerateProcSpec(p_ProcType in varchar2,
108 p_ProcName in varchar2);
109
110 Function GenerateProcDefBody(p_ProcType in varchar2) return varchar2;
111
112 Procedure GenerateProcHeader(p_ProcType in VARCHAR2,
113 p_ProcName in varchar2);
114
115 Procedure GenerateProcFooter(p_ProcType in VARCHAR2,
116 p_ProcName in varchar2);
117
118 Procedure GenerateProcBody(p_ProcType in VARCHAR2,
119 p_ProcName in varchar2,
120 p_ProcBody in varchar2 default null);
121
122 Procedure GeneratePackageSpec(p_ProcType in varchar2,
123 p_ProcName in varchar2,
124 x_ErrorCode OUT NOCOPY number,
125 x_ErrorString OUT NOCOPY varchar2);
126
127 Procedure GeneratePackageSpec(p_PackageName in VARCHAR2,
128 p_ProcType in varchar2,
129 p_ProcName in varchar2,
130 x_ErrorCode OUT NOCOPY number,
131 x_ErrorString OUT NOCOPY varchar2);
132
133 Procedure GeneratePackageBody(p_ProcType in varchar2,
134 p_ProcName in varchar2,
135 p_ProcBody in varchar2 default null,
136 x_ErrorCode OUT NOCOPY number,
137 x_ErrorString OUT NOCOPY varchar2);
138
139 Procedure GeneratePackageBody(p_PackageName in VARCHAR2,
140 p_ProcType in varchar2,
141 p_ProcName in varchar2,
142 p_ProcBody in varchar2 default null,
143 x_ErrorCode OUT NOCOPY number,
144 x_ErrorString OUT NOCOPY varchar2);
145
146 Procedure GeneratePackageHeader(p_PackageName in VARCHAR2,
147 p_SpecOrBody in VARCHAR2 default 'SPEC');
148
149 Procedure GeneratePackageFooter(p_PackageName in VARCHAR2);
150
151
152 Procedure PrecompileProcedure(p_ProcType in varchar2,
153 p_ProcBody in varchar2,
154 p_ID in number default null,
155 p_AdapterType in varchar2 default null,
156 p_ValidateParams in boolean default true,
157 x_ErrorCode OUT NOCOPY number,
158 x_ErrorString OUT NOCOPY varchar2);
159
160 end XDP_PROCEDURE_BUILDER;