194:
195: TYPE RC_TYPE IS REF CURSOR;
196: RC RC_TYPE;
197:
198: compPlanQuery VARCHAR2(4000) := 'SELECT LOOKUP_CODE,MEANING FROM CN_LOOKUPS WHERE
199: LOOKUP_TYPE = ''PLAN_TYPE_STATUS'' ';
200: compPlanExtra VARCHAR2(4000);
201: compPlanOrder VARCHAR2(4000) := ' ORDER BY MEANING';
202: l_counter NUMBER := 0;
199: LOOKUP_TYPE = ''PLAN_TYPE_STATUS'' ';
200: compPlanExtra VARCHAR2(4000);
201: compPlanOrder VARCHAR2(4000) := ' ORDER BY MEANING';
202: l_counter NUMBER := 0;
203: l_value CN_LOOKUPS.LOOKUP_CODE%TYPE;
204: l_meaning CN_LOOKUPS.MEANING%TYPE;
205: BEGIN
206:
207: SAVEPOINT Get_Valid_Plan_Statuses;
200: compPlanExtra VARCHAR2(4000);
201: compPlanOrder VARCHAR2(4000) := ' ORDER BY MEANING';
202: l_counter NUMBER := 0;
203: l_value CN_LOOKUPS.LOOKUP_CODE%TYPE;
204: l_meaning CN_LOOKUPS.MEANING%TYPE;
205: BEGIN
206:
207: SAVEPOINT Get_Valid_Plan_Statuses;
208: -- Standard call to check for call compatibility.