144: procedure POPULATE_ORG_EXTR_INFO is
145:
146: begin
147:
148: UPDATE_ORG_EXTR_INFO; -- PJI_ORG_EXTR_INFO always maintained incrementally
149:
150: end POPULATE_ORG_EXTR_INFO;
151:
152:
176: exception when no_data_found then null;
177:
178: end;
179:
180: insert into PJI_ORG_EXTR_INFO
181: (
182: ORG_ID,
183: PF_CURRENCY_CODE,
184: EN_CALENDAR_MIN_DATE,
207: not exists (select ORG_ID
208: from PA_IMPLEMENTATIONS_ALL
209: where ORG_ID is null) and
210: -1 not in (select ORG_ID
211: from PJI_ORG_EXTR_INFO)
212: union all
213: select
214: nvl(imp.ORG_ID,-1) ORG_ID,
215: to_char(null),
224: from
225: PA_IMPLEMENTATIONS_ALL imp
226: where
227: imp.ORG_ID not in (select ORG_ID
228: from PJI_ORG_EXTR_INFO);
229:
230: update PJI_ORG_EXTR_INFO info
231: set (PF_CURRENCY_CODE,
232: EN_CALENDAR_MIN_DATE,
226: where
227: imp.ORG_ID not in (select ORG_ID
228: from PJI_ORG_EXTR_INFO);
229:
230: update PJI_ORG_EXTR_INFO info
231: set (PF_CURRENCY_CODE,
232: EN_CALENDAR_MIN_DATE,
233: EN_CALENDAR_MAX_DATE,
234: GL_CALENDAR_ID,
361: where
362: gl.ORG_ID = pa.ORG_ID and
363: gl.ORG_ID = info.ORG_ID);
364:
365: update PJI_ORG_EXTR_INFO
366: set PF_CURRENCY_CODE = 'PJI$NULL'
367: where ORG_ID = -1 and
368: nvl(PF_CURRENCY_CODE, 'x') <> 'PJI$NULL';
369:
366: set PF_CURRENCY_CODE = 'PJI$NULL'
367: where ORG_ID = -1 and
368: nvl(PF_CURRENCY_CODE, 'x') <> 'PJI$NULL';
369:
370: update PJI_ORG_EXTR_INFO
371: set EN_CALENDAR_MIN_DATE = l_ent_cal_min_date,
372: EN_CALENDAR_MAX_DATE = l_ent_cal_max_date
373: where ORG_ID <> -1 and
374: (nvl(EN_CALENDAR_MIN_DATE, 1) <> l_ent_cal_min_date or