The following lines contain the word 'select', 'insert', 'update' or 'delete':
L_NUM_ROWS_INSERTED INTEGER := 0;
SELECT TR1.TERR_ID TERR_ID
, TR1.PARENT_TERRITORY_ID PARENT_TERR_ID
FROM JTF_TERR TR1
, JTF_TERR_USGS TRUSG
WHERE TR1.TERR_ID = TRUSG.TERR_ID
AND TRUSG.SOURCE_ID = P_SOURCE_ID ;
SELECT DECODE(COUNT(*),0,'Y','N')
INTO L_LEAF_FLAG
FROM JTF_TERR
WHERE PARENT_TERRITORY_ID = L_TERR_ID ;
INSERT INTO JTF_TERR_DENORM (
TERR_ID
, PARENT_TERR_ID
, CREATION_DATE
, CREATED_BY
, LAST_UPDATE_DATE
, LAST_UPDATED_BY
, LAST_UPDATE_LOGIN
, REQUEST_ID
, PROGRAM_APPLICATION_ID
, PROGRAM_ID
, PROGRAM_UPDATE_DATE
, IMMEDIATE_PARENT_FLAG
, ROOT_FLAG
, LEAF_FLAG
, LEVEL_FROM_PARENT
)
VALUES (
L_TERR_ID
, L_TERR_ID
, L_SYSDATE
, L_USER_ID
, L_SYSDATE
, L_USER_ID
, L_USER_ID
, L_REQUEST_ID
, L_PROGRAM_APPL_ID
, L_PROGRAM_ID
, L_SYSDATE
, 'N'
, 'N'
, L_LEAF_FLAG
, L_LEVEL_FROM_PARENT
);
L_NUM_ROWS_INSERTED := L_NUM_ROWS_INSERTED + 1;
INSERT INTO JTF_TERR_DENORM (
TERR_ID
, PARENT_TERR_ID
, CREATION_DATE
, CREATED_BY
, LAST_UPDATE_DATE
, LAST_UPDATED_BY
, LAST_UPDATE_LOGIN
, REQUEST_ID
, PROGRAM_APPLICATION_ID
, PROGRAM_ID
, PROGRAM_UPDATE_DATE
, IMMEDIATE_PARENT_FLAG
, ROOT_FLAG
, LEAF_FLAG
, LEVEL_FROM_PARENT
)
VALUES (
L_TERR_ID
, L_PARENT_TERR_ID
, L_SYSDATE
, L_USER_ID
, L_SYSDATE
, L_USER_ID
, L_USER_ID
, L_REQUEST_ID
, L_PROGRAM_APPL_ID
, L_PROGRAM_ID
, L_SYSDATE
, 'Y'
, DECODE(L_PARENT_TERR_ID,L_ROOT_TERR_ID,'Y','N')
, L_LEAF_FLAG
, L_LEVEL_FROM_PARENT
);
L_NUM_ROWS_INSERTED := L_NUM_ROWS_INSERTED + 1;
SELECT TR1.PARENT_TERRITORY_ID
INTO L_NEW_PARENT_TERR_ID
FROM JTF_TERR TR1
WHERE TR1.TERR_ID = L_PARENT_TERR_ID ;
INSERT INTO JTF_TERR_DENORM (
TERR_ID
, PARENT_TERR_ID
, CREATION_DATE
, CREATED_BY
, LAST_UPDATE_DATE
, LAST_UPDATED_BY
, LAST_UPDATE_LOGIN
, REQUEST_ID
, PROGRAM_APPLICATION_ID
, PROGRAM_ID
, PROGRAM_UPDATE_DATE
, IMMEDIATE_PARENT_FLAG
, ROOT_FLAG
, LEAF_FLAG
, LEVEL_FROM_PARENT
)
VALUES (
L_TERR_ID
, L_NEW_PARENT_TERR_ID
, L_SYSDATE
, L_USER_ID
, L_SYSDATE
, L_USER_ID
, L_USER_ID
, L_REQUEST_ID
, L_PROGRAM_APPL_ID
, L_PROGRAM_ID
, L_SYSDATE
, 'N'
, 'N'
, L_LEAF_FLAG
, L_LEVEL_FROM_PARENT
);
L_NUM_ROWS_INSERTED := L_NUM_ROWS_INSERTED + 1;