Databases Reference
In-Depth Information
v upd count INTEGER := 0;
v collection VARCHAR2 (40) := 'EMP DEPT';
BEGIN
FOR i IN 1 .. apex application.g f02.COUNT
LOOP
BEGIN
IF apex application.g f02 (i) IS NOT NULL
THEN
IF apex application.g f12 (i) <>
wwv flow item.md5 (apex application.g f03 (i),
apex application.g f04 (i),
apex application.g f05 (i),
apex application.g f06 (i),
apex application.g f07 (i),
apex application.g f08 (i),
apex application.g f09 (i),
apex application.g f10 (i),
apex application.g f11 (i)
)
THEN
apex collection.update member
(p collection name => v collection,
p seq => apex application.g f02(i),
p c001 => apex application.g f03(i),
p c002 => apex application.g f04(i),
p c003 => apex application.g f05(i),
p c004 => TO NUMBER(apex application.g f06(i)),
p c005 => TO DATE(apex application.g f07(i)),
p c006 => TO NUMBER(apex application.g f08(i)),
p c007 => TO NUMBER(apex application.g f09(i)),
p c008 => TO NUMBER(apex application.g f10(i)),
p c009 => apex application.g f11(i),
p c010 => apex application.g f12(i),
p c011 => apex application.g f13(i));
v upd count := v upd count + 1;
END IF;
ELSE
apex collection.add member
(p collection name => v collection,
p c001 => emp seq.NEXTVAL,
p c002 => apex application.g f04(i),
p c003 => apex application.g f05(i),
p c004 => TO NUMBER(apex application.g f06(i)),
p c005 => TO DATE(apex application.g f07(i)),
p c006 => TO NUMBER(apex application.g f08(i)),
p c007 => TO NUMBER(apex application.g f09(i)),
p c008 => TO NUMBER(apex application.g f10(i)),
p c009 => apex application.g f11(i)
);
v ins count := v ins count + 1;
END IF;
EXCEPTION
