1: PACKAGE BODY PER_CALENDAR_UTIL AS
2: /* $Header: pecalutl.pkb 120.0.12010000.4 2008/11/19 07:24:46 osamvats noship $ */
3:
4: DATEICALFORMAT CONSTANT VARCHAR2(15) DEFAULT 'yyyyMMdd';
5: TIMEICALFORMAT CONSTANT VARCHAR2(15) DEFAULT 'HH24MIss';
191:
192: DTSTAMP:=TO_CHAR(SYSDATE,DATEICALFORMAT) ||'T'|| TO_CHAR(SYSDATE,TIMEICALFORMAT) ||'Z';
193:
194: --BUILING ICALENDAR STRING
195: PER_CALENDAR_UTIL.CALENDAR_GENERATE_ICAL_STRING
196: (DTSTART =>STARTDATE
197: ,DTEND =>ENDDATE
198: ,SUBJECT =>SUBJECT
199: ,LOCATION =>LOCATION
269: END IF;
270: END IF;
271:
272: --CALLING MASTER ROUNTINE
273: PER_CALENDAR_UTIL.CALENDAR_GENERATE_ICAL(
274: DTSTARTDATE => IDTSTARTDATE
275: ,DTENDDATE => IDTENDDATE
276: ,DTSTARTTIME => IDTSTARTTIME
277: ,DTENDTIME => IDTENDTIME
286: ,ICAL => ICAL
287: ,PRIMARY_KEY=>PRIMARY_KEY
288: );
289: END CALENDAR_GENERATE_ICAL;
290: END PER_CALENDAR_UTIL;