satishgaudo.com

CREATE OR REPLACE PROCEDURE “INST_SUB_PRIMARY_DET_SAT” (tmp_int in number) IS
 
BEGIN
 
-- cursor
DECLARE CURSOR PRIMARY_DET
IS
SELECT
t.PRIMARY_ID p,
t.SUB_ID s,
t.OFFICE_ADDRESS.OFFICE_NO o1,
t.OFFICE_ADDRESS.OFFICE_NAME o2,
t.OFFICE_ADDRESS.ADDRESS1 o3,
t.OFFICE_ADDRESS.ADDRESS2 o4,
t.OFFICE_ADDRESS.ADDRESS3 o5,
t.OFFICE_ADDRESS.CITY o6,
t.OFFICE_ADDRESS.COUNTY o7,
t.OFFICE_ADDRESS.POST_CODE o8,
t.PRIMACY_NO pri,
t.COMPANY_NAME com,
t.CONTACT_NAME cont,
t.CONTACT_MOBILE mob,
t.CONTACT_PHONE phone,
t.CONTACT_EMAIL email,
t.OFFICE_PHONE opho,
t.OFFICE_FAX ofax,
t.OFFICE_EMAIL oemail,
t.IS_ACTIVE act,
t.IS_DELETE del,
t.ADDDT adt,
t.ADDED_BY aby,
t.ADDED_BY_ID aid,
t.EDITDT edt,
t.UPDATE_BY uby,
t.UPDATE_BY_ID ubi
 
FROM SUBSCRIBER_PRIMARY t;
 
--cres PRIMARY_DET%ROWTYPE;
 
BEGIN
FOR cres IN PRIMARY_DET
LOOP
INSERT INTO SUBSCRIBER_PRIMARY_test2
VALUES(
cres.p,
cres.s,
cres.pri,
cres.com,
cres.cont,
cres.mob,
cres.phone,
cres.email,
office_address_type2(cres.o1, cres.o2, cres.o3, cres.o4, cres.o5, cres.o6, cres.o7, cres.o8, null),
cres.opho,
cres.ofax,
cres.oemail,
cres.act,
cres.del,
cres.adt,
cres.aby,
cres.aid,
cres.edt,
cres.uby,
cres.ubi
);
END LOOP;
END;
 
END;