MINI
C:
/
siak
/
05_script
/
05_script
/
01_TABLE
/
Upload File:
files >> C:/siak/05_script/05_script/01_TABLE/SQL05_CreateProcedure.sql
CREATE OR REPLACE PROCEDURE P5_CRAI_AJUKAN IS BEGIN DELETE T5_CRAI_AJUKAN WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_CRAI_AJUKAN(BLN, SUAMI, ISTRI, TIDAK_TAHU, NO_PROP, NO_KAB) SELECT TRUNC(SYSDATE,'MM') BLN,COUNT (DECODE (F5_TO_NUMBER(CERAI_YG_MNGAJUKN,7), 1, 1)) AS SUAMI, COUNT (DECODE (F5_TO_NUMBER(CERAI_YG_MNGAJUKN,0), 2, 1)) AS ISTRI, COUNT (CASE WHEN F5_TO_NUMBER(CERAI_YG_MNGAJUKN,0) NOT BETWEEN 1 AND 2 THEN 0 END) AS TIDAK_TAHU, ADM_NO_PROV,ADM_NO_KAB FROM CAPIL_CERAI WHERE ADM_NO_PROV=ROW_APP.NO_PROP AND ADM_NO_KAB=ROW_APP.NO_KAB GROUP BY ADM_NO_PROV,ADM_NO_KAB; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_CRAI_SEBAB IS BEGIN DELETE T5_CRAI_SEBAB WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_CRAI_SEBAB(BLN, ZINA, PEMABUK, PENJUDI,TINGGAL_2TH,PENJARA_5TH,KDRT,CACAT_SAKIT,SELISI_TRS,LAINNYA, NO_PROP, NO_KAB) SELECT TRUNC(SYSDATE,'MM') BLN,COUNT (DECODE (F5_TO_NUMBER(CERAI_SEBAB,9), 1, 1)) AS ZINA, COUNT (DECODE (F5_TO_NUMBER(CERAI_SEBAB,9), 2, 1)) AS PEMABUK, COUNT (DECODE (F5_TO_NUMBER(CERAI_SEBAB,9), 3, 1)) AS PENJUDI, COUNT (DECODE (F5_TO_NUMBER(CERAI_SEBAB,9), 4, 1)) AS TINGGAL_2TH, COUNT (DECODE (F5_TO_NUMBER(CERAI_SEBAB,9), 5, 1)) AS PENJARA_5TH, COUNT (DECODE (F5_TO_NUMBER(CERAI_SEBAB,9), 6, 1)) AS KDRT, COUNT (DECODE (F5_TO_NUMBER(CERAI_SEBAB,9), 7, 1)) AS CACAT_SAKIT, COUNT (DECODE (F5_TO_NUMBER(CERAI_SEBAB,9), 8, 1)) AS SELISI_TRS, COUNT (CASE WHEN F5_TO_NUMBER(CERAI_SEBAB,0) NOT BETWEEN 1 AND 8 THEN 0 END) AS LAINNYA, ADM_NO_PROV,ADM_NO_KAB FROM CAPIL_CERAI WHERE ADM_NO_PROV=ROW_APP.NO_PROP AND ADM_NO_KAB=ROW_APP.NO_KAB GROUP BY ADM_NO_PROV,ADM_NO_KAB; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_DTG_ANGGOTA_ALASAN IS BEGIN DELETE T5_DTG_ANGGOTA_ALASAN WHERE BLN=TRUNC(SYSDATE,'MM'); INSERT INTO T5_DTG_ANGGOTA_ALASAN(BLN, PEKERJAAN, PENDIDIKAN, KEAMANAN, KESEHATAN, PERUMAHAN, KELUARGA, LAIN_LAIN, NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT (DECODE (F5_TO_NUMBER(ALASAN_PINDAH,7), 1, 1)) AS PEKERJAAN, COUNT (DECODE (F5_TO_NUMBER(ALASAN_PINDAH,7), 2, 1)) AS PENDIDIKAN, COUNT (DECODE (F5_TO_NUMBER(ALASAN_PINDAH,7), 3, 1)) AS KEAMANAN, COUNT (DECODE (F5_TO_NUMBER(ALASAN_PINDAH,7), 4, 1)) AS KESEHATAN, COUNT (DECODE (F5_TO_NUMBER(ALASAN_PINDAH,7), 5, 1)) AS PERUMAHAN, COUNT (DECODE (F5_TO_NUMBER(ALASAN_PINDAH,7), 6, 1)) AS KELUARGA, COUNT (CASE WHEN F5_TO_NUMBER(ALASAN_PINDAH,7) NOT BETWEEN 1 AND 6 THEN 7 END) AS LAIN_LAIN, DATANG_HEADER.NO_PROP,DATANG_HEADER.NO_KAB,DATANG_HEADER.NO_KEC,DATANG_HEADER.NO_KEL FROM DATANG_HEADER,DATANG_DETAIL,PINDAH_HEADER,PINDAH_DETAIL WHERE DATANG_HEADER.NO_PINDAH = PINDAH_HEADER.NO_PINDAH AND DATANG_HEADER.NO_DATANG = DATANG_DETAIL.NO_DATANG AND PINDAH_HEADER.NO_PINDAH = PINDAH_DETAIL.NO_PINDAH AND DATANG_DETAIL.NIK = PINDAH_DETAIL.NIK AND DATANG_DETAIL.TIPE = '1' AND (DATANG_HEADER.KLASIFIKASI_PINDAH > 1 AND DATANG_HEADER.KLASIFIKASI_PINDAH <= 5) GROUP BY DATANG_HEADER.NO_PROP,DATANG_HEADER.NO_KAB,DATANG_HEADER.NO_KEC,DATANG_HEADER.NO_KEL; COMMIT; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_DTG_ANGGOTA_JENIS_DATANG IS BEGIN DELETE T5_DTG_ANGGOTA_JENIS_DATANG WHERE BLN=TRUNC(SYSDATE,'MM'); INSERT INTO T5_DTG_ANGGOTA_JENIS_DATANG(BLN, NUMPANG_KK, MEMBUAT_KK, KK_TETAP, NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT (DECODE (F5_TO_NUMBER(DATANG_HEADER.STATUS_PINDAH,1), 1, 1)) AS NUMPANG_KK, COUNT (DECODE (F5_TO_NUMBER(DATANG_HEADER.STATUS_PINDAH,1), 2, 1)) AS MEMBUAT_KK, COUNT (DECODE (F5_TO_NUMBER(DATANG_HEADER.STATUS_PINDAH,1), 3, 1)) AS KK_TETAP, DATANG_HEADER.NO_PROP,DATANG_HEADER.NO_KAB,DATANG_HEADER.NO_KEC,DATANG_HEADER.NO_KEL FROM DATANG_HEADER,DATANG_DETAIL,PINDAH_HEADER,PINDAH_DETAIL WHERE DATANG_HEADER.NO_PINDAH = PINDAH_HEADER.NO_PINDAH AND DATANG_HEADER.NO_DATANG = DATANG_DETAIL.NO_DATANG AND PINDAH_HEADER.NO_PINDAH = PINDAH_DETAIL.NO_PINDAH AND DATANG_DETAIL.NIK = PINDAH_DETAIL.NIK AND DATANG_DETAIL.TIPE = '1' AND (DATANG_HEADER.KLASIFIKASI_PINDAH > 1 AND DATANG_HEADER.KLASIFIKASI_PINDAH <= 5) GROUP BY DATANG_HEADER.NO_PROP,DATANG_HEADER.NO_KAB,DATANG_HEADER.NO_KEC,DATANG_HEADER.NO_KEL; COMMIT; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_DTG_ANGGOTA_KELAMIN IS BEGIN DELETE T5_DTG_ANGGOTA_KELAMIN WHERE BLN=TRUNC(SYSDATE,'MM'); INSERT INTO T5_DTG_ANGGOTA_KELAMIN(BLN, LK, LP, NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT(CASE WHEN PINDAH_DETAIL.JENIS_KLMIN IS NULL OR PINDAH_DETAIL.JENIS_KLMIN = 1 OR (PINDAH_DETAIL.JENIS_KLMIN < 1 AND PINDAH_DETAIL.JENIS_KLMIN > 2) THEN 1 END) AS LK, COUNT (DECODE (F5_TO_NUMBER(PINDAH_DETAIL.JENIS_KLMIN,1), 2, 1)) AS LP, DATANG_HEADER.NO_PROP,DATANG_HEADER.NO_KAB,DATANG_HEADER.NO_KEC,DATANG_HEADER.NO_KEL FROM DATANG_HEADER,DATANG_DETAIL,PINDAH_HEADER,PINDAH_DETAIL WHERE DATANG_HEADER.NO_PINDAH = PINDAH_HEADER.NO_PINDAH AND DATANG_HEADER.NO_DATANG = DATANG_DETAIL.NO_DATANG AND PINDAH_HEADER.NO_PINDAH = PINDAH_DETAIL.NO_PINDAH AND DATANG_DETAIL.NIK = PINDAH_DETAIL.NIK AND DATANG_DETAIL.TIPE = '1' AND (DATANG_HEADER.KLASIFIKASI_PINDAH > 1 AND DATANG_HEADER.KLASIFIKASI_PINDAH <= 5) GROUP BY DATANG_HEADER.NO_PROP,DATANG_HEADER.NO_KAB,DATANG_HEADER.NO_KEC,DATANG_HEADER.NO_KEL; COMMIT; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_DTG_ANGGOTA_KLASIFIKASI IS BEGIN DELETE T5_DTG_ANGGOTA_KLASIFIKASI WHERE BLN=TRUNC(SYSDATE,'MM'); INSERT INTO T5_DTG_ANGGOTA_KLASIFIKASI(BLN, ANTAR_DESA, ANTAR_KEC, ANTAR_KAB, ANTAR_PROV, NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT (DECODE (F5_TO_NUMBER(DATANG_HEADER.KLASIFIKASI_PINDAH,5), 2, 1)) AS ANTAR_DESA, COUNT (DECODE (F5_TO_NUMBER(DATANG_HEADER.KLASIFIKASI_PINDAH,5), 3, 1)) AS ANTAR_KEC, COUNT (DECODE (F5_TO_NUMBER(DATANG_HEADER.KLASIFIKASI_PINDAH,5), 4, 1)) AS ANTAR_KAB, COUNT (DECODE (F5_TO_NUMBER(DATANG_HEADER.KLASIFIKASI_PINDAH,5), 5, 1)) AS ANTAR_PROV, DATANG_HEADER.NO_PROP,DATANG_HEADER.NO_KAB,DATANG_HEADER.NO_KEC,DATANG_HEADER.NO_KEL FROM DATANG_HEADER,DATANG_DETAIL,PINDAH_HEADER,PINDAH_DETAIL WHERE DATANG_HEADER.NO_PINDAH = PINDAH_HEADER.NO_PINDAH AND DATANG_HEADER.NO_DATANG = DATANG_DETAIL.NO_DATANG AND PINDAH_HEADER.NO_PINDAH = PINDAH_DETAIL.NO_PINDAH AND DATANG_DETAIL.NIK = PINDAH_DETAIL.NIK AND (DATANG_HEADER.KLASIFIKASI_PINDAH > 1 AND DATANG_HEADER.KLASIFIKASI_PINDAH <= 5) GROUP BY DATANG_HEADER.NO_PROP,DATANG_HEADER.NO_KAB,DATANG_HEADER.NO_KEC,DATANG_HEADER.NO_KEL; COMMIT; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_DTG_SURAT_ALASAN IS BEGIN DELETE T5_DTG_SURAT_ALASAN WHERE BLN=TRUNC(SYSDATE,'MM'); INSERT INTO T5_DTG_SURAT_ALASAN(BLN, PEKERJAAN, PENDIDIKAN, KEAMANAN, KESEHATAN, PERUMAHAN, KELUARGA, LAIN_LAIN, NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT (DECODE (F5_TO_NUMBER(ALASAN_PINDAH,7), 1, 1)) AS PEKERJAAN, COUNT (DECODE (F5_TO_NUMBER(ALASAN_PINDAH,7), 2, 1)) AS PENDIDIKAN, COUNT (DECODE (F5_TO_NUMBER(ALASAN_PINDAH,7), 3, 1)) AS KEAMANAN, COUNT (DECODE (F5_TO_NUMBER(ALASAN_PINDAH,7), 4, 1)) AS KESEHATAN, COUNT (DECODE (F5_TO_NUMBER(ALASAN_PINDAH,7), 5, 1)) AS PERUMAHAN, COUNT (DECODE (F5_TO_NUMBER(ALASAN_PINDAH,7), 6, 1)) AS KELUARGA, COUNT (CASE WHEN F5_TO_NUMBER(ALASAN_PINDAH,7) NOT BETWEEN 1 AND 6 THEN 7 END) AS LAIN_LAIN, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM DATANG_HEADER INNER JOIN PINDAH_HEADER ON DATANG_HEADER.NO_PINDAH = PINDAH_HEADER.NO_PINDAH AND DATANG_HEADER.TIPE_DATANG = 1 AND (DATANG_HEADER.KLASIFIKASI_PINDAH > 1 AND DATANG_HEADER.KLASIFIKASI_PINDAH <=5) GROUP BY NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_DTG_SURAT_JENIS_DATANG IS BEGIN DELETE T5_DTG_SURAT_JENIS_DATANG WHERE BLN=TRUNC(SYSDATE,'MM'); INSERT INTO T5_DTG_SURAT_JENIS_DATANG(BLN, NUMPANG_KK, MEMBUAT_KK, KK_TETAP, NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT (DECODE (F5_TO_NUMBER(DATANG_HEADER.STATUS_PINDAH,1), 1, 1)) AS NUMPANG_KK, COUNT (DECODE (F5_TO_NUMBER(DATANG_HEADER.STATUS_PINDAH,1), 2, 1)) AS MEMBUAT_KK, COUNT (DECODE (F5_TO_NUMBER(DATANG_HEADER.STATUS_PINDAH,1), 3, 1)) AS KK_TETAP, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM DATANG_HEADER INNER JOIN PINDAH_HEADER ON DATANG_HEADER.NO_PINDAH = PINDAH_HEADER.NO_PINDAH AND DATANG_HEADER.TIPE_DATANG = 1 AND (DATANG_HEADER.KLASIFIKASI_PINDAH > 1 AND DATANG_HEADER.KLASIFIKASI_PINDAH <=5) GROUP BY NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_DTG_SURAT_KLASIFIKASI IS BEGIN DELETE T5_DTG_SURAT_KLASIFIKASI WHERE BLN=TRUNC(SYSDATE,'MM'); INSERT INTO T5_DTG_SURAT_KLASIFIKASI(BLN, ANTAR_DESA, ANTAR_KEC, ANTAR_KAB, ANTAR_PROV, NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT (DECODE (F5_TO_NUMBER(DATANG_HEADER.KLASIFIKASI_PINDAH,5), 2, 1)) AS ANTAR_DESA, COUNT (DECODE (F5_TO_NUMBER(DATANG_HEADER.KLASIFIKASI_PINDAH,5), 3, 1)) AS ANTAR_KEC, COUNT (DECODE (F5_TO_NUMBER(DATANG_HEADER.KLASIFIKASI_PINDAH,5), 4, 1)) AS ANTAR_KAB, COUNT (DECODE (F5_TO_NUMBER(DATANG_HEADER.KLASIFIKASI_PINDAH,5), 5, 1)) AS ANTAR_PROV, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM DATANG_HEADER INNER JOIN PINDAH_HEADER ON DATANG_HEADER.NO_PINDAH = PINDAH_HEADER.NO_PINDAH AND DATANG_HEADER.TIPE_DATANG = 1 AND (DATANG_HEADER.KLASIFIKASI_PINDAH > 1 AND DATANG_HEADER.KLASIFIKASI_PINDAH <=5) GROUP BY NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_KEPKEL_AGAMA IS BEGIN DELETE T5_KEPKEL_AGAMA WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_KEPKEL_AGAMA(BLN, ISLAM, KRISTEN, KATHOLIK, HINDU, BUDHA, KONGHUCU, KEPERCAYAAN, NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN,COUNT (DECODE (F5_TO_NUMBER(AGAMA,7), 1, 1)) AS ISLAM, COUNT (DECODE (F5_TO_NUMBER(AGAMA,7), 2, 1)) AS KRISTEN, COUNT (DECODE (F5_TO_NUMBER(AGAMA,7), 3, 1)) AS KATHOLIK, COUNT (DECODE (F5_TO_NUMBER(AGAMA,7), 4, 1)) AS HINDU, COUNT (DECODE (F5_TO_NUMBER(AGAMA,7), 5, 1)) AS BUDHA, COUNT (DECODE (F5_TO_NUMBER(AGAMA,7), 6, 1)) AS KONGHUCU, COUNT (CASE WHEN F5_TO_NUMBER(AGAMA,7) NOT BETWEEN 1 AND 6 OR AGAMA IS NULL THEN 7 END) AS KEPERCAYAAN, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM BIODATA_WNI WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND STAT_HBKEL = 1 AND (FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) GROUP BY NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END LOOP; END; / CREATE OR REPLACE PROCEDURE P5_KEPKEL_AGAMA_OA IS BEGIN DELETE T5_KEPKEL_AGAMA_OA WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_KEPKEL_AGAMA_OA(BLN, ISLAM, KRISTEN, KATHOLIK, HINDU, BUDHA, KONGHUCU, KEPERCAYAAN, NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN,COUNT (DECODE (F5_TO_NUMBER(AGAMA,7), 1, 1)) AS ISLAM, COUNT (DECODE (F5_TO_NUMBER(AGAMA,7), 2, 1)) AS KRISTEN, COUNT (DECODE (F5_TO_NUMBER(AGAMA,7), 3, 1)) AS KATHOLIK, COUNT (DECODE (F5_TO_NUMBER(AGAMA,7), 4, 1)) AS HINDU, COUNT (DECODE (F5_TO_NUMBER(AGAMA,7), 5, 1)) AS BUDHA, COUNT (DECODE (F5_TO_NUMBER(AGAMA,7), 6, 1)) AS KONGHUCU, COUNT (CASE WHEN F5_TO_NUMBER(AGAMA,7) NOT BETWEEN 1 AND 6 OR AGAMA IS NULL THEN 7 END) AS KEPERCAYAAN, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM BIODATA_WNA WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND STAT_HBKEL = 1 AND (FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) GROUP BY NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_KEPKEL_GOLONGAN_DARAH IS BEGIN DELETE T5_KEPKEL_GOLONGAN_DARAH WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_KEPKEL_GOLONGAN_DARAH(BLN, A, B, AB, O, A_POS, A_MIN, B_POS,B_MIN,AB_POS,AB_MIN,O_POS,O_MIN,TIDAK_TAHU, NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 1, 1)) AS A, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 2, 1)) AS B, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 3, 1)) AS AB, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 4, 1)) AS O, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 5, 1)) AS A_POS, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 6, 1)) AS A_MIN, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 7, 1)) AS B_POS, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 8, 1)) AS B_MIN, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 9, 1)) AS AB_POS, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 10, 1)) AS AB_MIN, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 11, 1)) AS O_POS, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 12, 1)) AS O_MIN, COUNT (CASE WHEN F5_TO_NUMBER(GOL_DRH,13) NOT BETWEEN 1 AND 12 OR GOL_DRH IS NULL THEN 13 END) AS TIDAK_TAHU, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM BIODATA_WNI WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND STAT_HBKEL = 1 AND (FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) GROUP BY NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_KEPKEL_GOLONGAN_DARAH_OA IS BEGIN DELETE T5_KEPKEL_GOLONGAN_DARAH_OA WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_KEPKEL_GOLONGAN_DARAH_OA(BLN, A, B, AB, O, A_POS, A_MIN, B_POS,B_MIN,AB_POS,AB_MIN,O_POS,O_MIN,TIDAK_TAHU, NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 1, 1)) AS A, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 2, 1)) AS B, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 3, 1)) AS AB, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 4, 1)) AS O, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 5, 1)) AS A_POS, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 6, 1)) AS A_MIN, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 7, 1)) AS B_POS, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 8, 1)) AS B_MIN, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 9, 1)) AS AB_POS, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 10, 1)) AS AB_MIN, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 11, 1)) AS O_POS, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 12, 1)) AS O_MIN, COUNT (CASE WHEN F5_TO_NUMBER(GOL_DRH,13) NOT BETWEEN 1 AND 12 OR GOL_DRH IS NULL THEN 13 END) AS TIDAK_TAHU, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM BIODATA_WNA WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND STAT_HBKEL = 1 AND (FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) GROUP BY NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_KEPKEL_KELAMIN IS BEGIN DELETE T5_KEPKEL_KELAMIN WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_KEPKEL_KELAMIN(BLN, LK, LP,NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT(CASE WHEN JENIS_KLMIN IS NULL OR JENIS_KLMIN <> 2 THEN 1 END) AS LK, COUNT (DECODE (F5_TO_NUMBER(JENIS_KLMIN,1), 2, 1)) AS LP, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM BIODATA_WNI WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND STAT_HBKEL = 1 AND (FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) GROUP BY NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_KEPKEL_KELAMIN_OA IS BEGIN DELETE T5_KEPKEL_KELAMIN_OA WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_KEPKEL_KELAMIN_OA(BLN, LK, LP,NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT(CASE WHEN JENIS_KLMIN IS NULL OR JENIS_KLMIN <> 2 THEN 1 END) AS LK, COUNT (DECODE (F5_TO_NUMBER(JENIS_KLMIN,1), 2, 1)) AS LP, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM BIODATA_WNA WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND STAT_HBKEL = 1 AND (FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) GROUP BY NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_KEPKEL_PENDIDIKAN_AKHIR IS BEGIN DELETE T5_KEPKEL_PENDIDIKAN WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_KEPKEL_PENDIDIKAN(BLN, PDD01, PDD02, PDD03, PDD04, PDD05, PDD06, PDD07,PDD08,PDD09,PDD10, NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT (CASE WHEN F5_TO_NUMBER(PDDK_AKH,1) NOT BETWEEN 2 AND 10 OR PDDK_AKH IS NULL THEN 1 END) AS PDD01, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,1), 2, 1)) AS PDD02, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,1), 3, 1)) AS PDD03, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,1), 4, 1)) AS PDD04, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,1), 5, 1)) AS PDD05, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,1), 6, 1)) AS PDD06, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,1), 7, 1)) AS PDD07, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,1), 8, 1)) AS PDD08, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,1), 9, 1)) AS PDD09, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,1), 10, 1)) AS PDD10, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM BIODATA_WNI WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND STAT_HBKEL = 1 AND (FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) GROUP BY NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_KEPKEL_PENDIDIKAN_AKHIR_OA IS BEGIN DELETE T5_KEPKEL_PENDIDIKAN_OA WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_KEPKEL_PENDIDIKAN_OA(BLN, PDD01, PDD02, PDD03, PDD04, PDD05, PDD06, PDD07,PDD08,NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,8), 1, 1)) AS PDD01, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,8), 2, 1)) AS PDD02, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,8), 3, 1)) AS PDD03, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,8), 4, 1)) AS PDD04, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,8), 5, 1)) AS PDD05, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,8), 6, 1)) AS PDD06, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,8), 7, 1)) AS PDD07, COUNT (CASE WHEN F5_TO_NUMBER(PDDK_AKH,8) NOT BETWEEN 1 AND 7 OR PDDK_AKH IS NULL THEN 8 END) AS PDD08, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM BIODATA_WNA WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND STAT_HBKEL = 1 AND (FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) GROUP BY NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_KEPKEL_PENYANDANG_CACAT IS BEGIN DELETE T5_KEPKEL_PENYANDANG_CACAT WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_KEPKEL_PENYANDANG_CACAT(BLN, FISIK, NETRA, RUNGU, MENTAL, FISIK_MENTAL, LAINNYA,NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT (DECODE (F5_TO_NUMBER(PNYDNG_CCT,6), 1, 1)) AS FISIK, COUNT (DECODE (F5_TO_NUMBER(PNYDNG_CCT,6), 2, 1)) AS NETRA, COUNT (DECODE (F5_TO_NUMBER(PNYDNG_CCT,6), 3, 1)) AS RUNGU, COUNT (DECODE (F5_TO_NUMBER(PNYDNG_CCT,6), 4, 1)) AS MENTAL, COUNT (DECODE (F5_TO_NUMBER(PNYDNG_CCT,6), 5, 1)) AS FISIK_MENTAL, COUNT (CASE WHEN F5_TO_NUMBER(PNYDNG_CCT,6) NOT BETWEEN 1 AND 5 THEN 6 END) AS LAINNYA, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM BIODATA_WNI WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND KLAIN_FSK = 2 AND STAT_HBKEL = 1 AND (FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) GROUP BY NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_KEPKEL_STATUS_PERKAWINAN IS BEGIN DELETE T5_KEPKEL_STATUS_PERKAWINAN WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_KEPKEL_STATUS_PERKAWINAN(BLN, BELUM_KAWIN, KAWIN,CERAI_HIDUP,CERAI_MATI,NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT(CASE WHEN STAT_KWN IS NULL OR (STAT_KWN NOT BETWEEN 2 AND 4) THEN 1 END) BELUM_KAWIN, COUNT(DECODE(STAT_KWN,2,1)) KAWIN, COUNT(DECODE(STAT_KWN,3,1)) CERAI_HIDUP, COUNT(DECODE(STAT_KWN,4,1)) CERAI_MATI, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM BIODATA_WNI WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND STAT_HBKEL = 1 AND (FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) GROUP BY NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_KEPKEL_STATUS_PERKAWINAN_OA IS BEGIN DELETE T5_KEPKEL_STATUS_PERKAWINAN_OA WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_KEPKEL_STATUS_PERKAWINAN_OA(BLN, BELUM_KAWIN, KAWIN,CERAI,NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT(CASE WHEN STAT_KWN IS NULL OR (STAT_KWN NOT BETWEEN 2 AND 3) THEN 1 END) BELUM_KAWIN, COUNT(DECODE(STAT_KWN,2,1)) KAWIN, COUNT(DECODE(STAT_KWN,3,1)) CERAI, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM BIODATA_WNA WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND (FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) AND STAT_HBKEL = 1 GROUP BY NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_KMT_AGAMA IS BEGIN DELETE T5_KMT_AGAMA WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_KMT_AGAMA(BLN, ISLAM, KRISTEN,KATHOLIK,HINDU,BUDHA,KONGHUCU,KEPERCAYAAN,NO_PROP, NO_KAB) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT (DECODE (F5_TO_NUMBER(MATI_AGAMA,7), 1, 1)) AS ISLAM, COUNT (DECODE (F5_TO_NUMBER(MATI_AGAMA,7), 2, 1)) AS KRISTEN, COUNT (DECODE (F5_TO_NUMBER(MATI_AGAMA,7), 3, 1)) AS KATHOLIK, COUNT (DECODE (F5_TO_NUMBER(MATI_AGAMA,7), 4, 1)) AS HINDU, COUNT (DECODE (F5_TO_NUMBER(MATI_AGAMA,7), 5, 1)) AS BUDHA, COUNT (DECODE (F5_TO_NUMBER(MATI_AGAMA,7), 6, 1)) AS KONGHUCU, COUNT (CASE WHEN F5_TO_NUMBER(MATI_AGAMA,7) NOT BETWEEN 1 AND 6 THEN 7 END) AS KEPERCAYAAN, ADM_NO_PROV,ADM_NO_KAB FROM CAPIL_MATI WHERE ADM_NO_PROV=ROW_APP.NO_PROP AND ADM_NO_KAB=ROW_APP.NO_KAB AND MATI_LUAR_NEGERI = 'T' AND MATI_DOM_MATI = 'D' GROUP BY ADM_NO_PROV,ADM_NO_KAB; COMMIT; END LOOP; END; / Show errors; Show errors; CREATE OR REPLACE PROCEDURE P5_KMT_JENIS_KELAMIN IS BEGIN DELETE T5_KMT_JENIS_KELAMIN WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_KMT_JENIS_KELAMIN(BLN, LK, LP,NO_PROP, NO_KAB) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT(CASE WHEN MATI_JNS_KELAMIN IS NULL OR MATI_JNS_KELAMIN = 1 OR (MATI_JNS_KELAMIN < 1 AND MATI_JNS_KELAMIN > 2) THEN 1 END) AS LK, COUNT (DECODE (F5_TO_NUMBER(MATI_JNS_KELAMIN,1), 2, 1)) AS LP, ADM_NO_PROV,ADM_NO_KAB FROM CAPIL_MATI WHERE ADM_NO_PROV=ROW_APP.NO_PROP AND ADM_NO_KAB=ROW_APP.NO_KAB AND MATI_LUAR_NEGERI = 'T' AND MATI_DOM_MATI = 'D' GROUP BY ADM_NO_PROV,ADM_NO_KAB; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_KMT_MENERANGKAN IS BEGIN DELETE T5_KMT_MENERANGKAN WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_KMT_MENERANGKAN(BLN, DOKTER, TENAGA_KESEHATAN,KEPOLISIAN,LAINNYA,NO_PROP, NO_KAB) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT (DECODE (F5_TO_NUMBER(MATI_YG_MNRGKAN,4), 1, 1)) AS DOKTER, COUNT (DECODE (F5_TO_NUMBER(MATI_YG_MNRGKAN,4), 2, 1)) AS TENAGA_KESEHATAN, COUNT (DECODE (F5_TO_NUMBER(MATI_YG_MNRGKAN,4), 3, 1)) AS KEPOLISIAN, COUNT (CASE WHEN F5_TO_NUMBER(MATI_YG_MNRGKAN,4) NOT BETWEEN 1 AND 3 THEN 4 END) AS LAINNYA, ADM_NO_PROV,ADM_NO_KAB FROM CAPIL_MATI WHERE ADM_NO_PROV=ROW_APP.NO_PROP AND ADM_NO_KAB=ROW_APP.NO_KAB AND MATI_LUAR_NEGERI = 'T' AND MATI_DOM_MATI = 'D' GROUP BY ADM_NO_PROV,ADM_NO_KAB; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_KMT_SEBAB IS BEGIN DELETE T5_KMT_SEBAB WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_KMT_SEBAB(BLN, SAKIT, PENDEMI,KECELAKAAN,KRIMINAL,BUNUH_DIRI,LAINNYA,NO_PROP, NO_KAB) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT (DECODE (F5_TO_NUMBER(MATI_SEBAB,6), 1, 1)) AS SAKIT, COUNT (DECODE (F5_TO_NUMBER(MATI_SEBAB,6), 2, 1)) AS PENDEMI, COUNT (DECODE (F5_TO_NUMBER(MATI_SEBAB,6), 3, 1)) AS KECELAKAAN, COUNT (DECODE (F5_TO_NUMBER(MATI_SEBAB,6), 4, 1)) AS KRIMINAL, COUNT (DECODE (F5_TO_NUMBER(MATI_SEBAB,6), 5, 1)) AS BUNUH_DIRI, COUNT (CASE WHEN F5_TO_NUMBER(MATI_SEBAB,6) NOT BETWEEN 1 AND 5 THEN 6 END) AS LAINNYA, ADM_NO_PROV,ADM_NO_KAB FROM CAPIL_MATI WHERE ADM_NO_PROV=ROW_APP.NO_PROP AND ADM_NO_KAB=ROW_APP.NO_KAB AND MATI_LUAR_NEGERI = 'T' AND MATI_DOM_MATI = 'D' GROUP BY ADM_NO_PROV,ADM_NO_KAB; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_KWN_AGAMA IS BEGIN DELETE T5_KWN_AGAMA WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_KWN_AGAMA(BLN, ISLAM, KRISTEN, KATHOLIK, HINDU, BUDHA, KONGHUCU, KEPERCAYAAN, NO_PROP, NO_KAB) SELECT TRUNC(SYSDATE,'MM') BLN,COUNT (DECODE (F5_TO_NUMBER(KAWIN_AGAMA,7), 1, 1)) AS ISLAM, COUNT (DECODE (F5_TO_NUMBER(KAWIN_AGAMA,7), 2, 1)) AS KRISTEN, COUNT (DECODE (F5_TO_NUMBER(KAWIN_AGAMA,7), 3, 1)) AS KATHOLIK, COUNT (DECODE (F5_TO_NUMBER(KAWIN_AGAMA,7), 4, 1)) AS HINDU, COUNT (DECODE (F5_TO_NUMBER(KAWIN_AGAMA,7), 5, 1)) AS BUDHA, COUNT (DECODE (F5_TO_NUMBER(KAWIN_AGAMA,7), 6, 1)) AS KONGHUCU, COUNT (CASE WHEN F5_TO_NUMBER(KAWIN_AGAMA,7) NOT BETWEEN 1 AND 6 THEN 7 END) AS KEPERCAYAAN, ADM_NO_PROV,ADM_NO_KAB FROM CAPIL_KAWIN WHERE ADM_NO_PROV=ROW_APP.NO_PROP AND ADM_NO_KAB=ROW_APP.NO_KAB GROUP BY ADM_NO_PROV,ADM_NO_KAB; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_LHR_JENIS_KELAMIN IS BEGIN DELETE T5_LHR_JENIS_KELAMIN WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_LHR_JENIS_KELAMIN(BLN, LK, LP,NO_PROP, NO_KAB) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT(CASE WHEN BAYI_JNS_KELAMIN IS NULL OR BAYI_JNS_KELAMIN = 1 OR (BAYI_JNS_KELAMIN < 1 AND BAYI_JNS_KELAMIN > 2) THEN 1 END) AS LK, COUNT (DECODE (F5_TO_NUMBER(BAYI_JNS_KELAMIN,1), 2, 1)) AS LP, ADM_NO_PROV,ADM_NO_KAB FROM CAPIL_LAHIR WHERE ADM_NO_PROV=ROW_APP.NO_PROP AND ADM_NO_KAB=ROW_APP.NO_KAB AND BAYI_ORG_ASING = 'T' AND BAYI_DOM_LAHIR = 'D' GROUP BY ADM_NO_PROV,ADM_NO_KAB; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_LHR_JENIS_LAHIR IS BEGIN DELETE T5_LHR_JENIS_LAHIR WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_LHR_JENIS_LAHIR(BLN, L1, L2, L3, L4,L5, NO_PROP, NO_KAB) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT(CASE WHEN BAYI_JNS_KLHR IS NULL OR BAYI_JNS_KLHR = 1 OR (BAYI_JNS_KLHR < 1 AND BAYI_JNS_KLHR > 5) THEN 1 END) AS L1, COUNT (DECODE (F5_TO_NUMBER(BAYI_JNS_KLHR,5), 2, 1)) AS L2, COUNT (DECODE (F5_TO_NUMBER(BAYI_JNS_KLHR,5), 3, 1)) AS L3, COUNT (DECODE (F5_TO_NUMBER(BAYI_JNS_KLHR,5), 4, 1)) AS L4, COUNT (DECODE (F5_TO_NUMBER(BAYI_JNS_KLHR,5), 5, 1)) AS L5, ADM_NO_PROV,ADM_NO_KAB FROM CAPIL_LAHIR WHERE ADM_NO_PROV=ROW_APP.NO_PROP AND ADM_NO_KAB=ROW_APP.NO_KAB AND BAYI_ORG_ASING = 'T' AND BAYI_DOM_LAHIR = 'D' GROUP BY ADM_NO_PROV,ADM_NO_KAB; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_LHR_PENOLONG_LAHIR IS BEGIN DELETE T5_LHR_PENOLONG_LAHIR WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_LHR_PENOLONG_LAHIR(BLN, DOKTER, BIDAN, DUKUN, LAINNYA, NO_PROP, NO_KAB) SELECT TRUNC(SYSDATE,'MM') BLN,COUNT (DECODE (F5_TO_NUMBER(BAYI_PNLG_KLHR,4), 1, 1)) AS DOKTER, COUNT (DECODE (F5_TO_NUMBER(BAYI_PNLG_KLHR,4), 2, 1)) AS BIDAN, COUNT (DECODE (F5_TO_NUMBER(BAYI_PNLG_KLHR,4), 3, 1)) AS DUKUN, COUNT (CASE WHEN F5_TO_NUMBER(BAYI_PNLG_KLHR,4) NOT BETWEEN 1 AND 3 THEN 4 END) AS LAINNYA, ADM_NO_PROV,ADM_NO_KAB FROM CAPIL_LAHIR WHERE ADM_NO_PROV=ROW_APP.NO_PROP AND ADM_NO_KAB=ROW_APP.NO_KAB AND BAYI_ORG_ASING = 'T' AND BAYI_DOM_LAHIR = 'D' GROUP BY ADM_NO_PROV,ADM_NO_KAB; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_LHR_TEMPAT_DILAHIRKAN IS BEGIN DELETE T5_LHR_TEMPAT_DILAHIRKAN WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_LHR_TEMPAT_DILAHIRKAN(BLN, RS, PUSKESMAS, POLINDES, RUMAH,LAINNYA, NO_PROP, NO_KAB) SELECT TRUNC(SYSDATE,'MM') BLN,COUNT (DECODE (F5_TO_NUMBER(BAYI_TMPT_KLHR,5), 1, 1)) AS RS, COUNT (DECODE (F5_TO_NUMBER(BAYI_TMPT_KLHR,5), 2, 1)) AS PUSKESMAS, COUNT (DECODE (F5_TO_NUMBER(BAYI_TMPT_KLHR,5), 3, 1)) AS POLINDES, COUNT (DECODE (F5_TO_NUMBER(BAYI_TMPT_KLHR,5), 4, 1)) AS RUMAH, COUNT (CASE WHEN F5_TO_NUMBER(BAYI_TMPT_KLHR,5) NOT BETWEEN 1 AND 4 THEN 5 END) AS LAINNYA, ADM_NO_PROV,ADM_NO_KAB FROM CAPIL_LAHIR WHERE ADM_NO_PROV=ROW_APP.NO_PROP AND ADM_NO_KAB=ROW_APP.NO_KAB AND BAYI_ORG_ASING = 'T' AND BAYI_DOM_LAHIR = 'D' GROUP BY ADM_NO_PROV,ADM_NO_KAB; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_PDH_ANGGOTA_ALASAN IS BEGIN DELETE T5_PDH_ANGGOTA_ALASAN WHERE BLN=TRUNC(SYSDATE,'MM'); INSERT INTO T5_PDH_ANGGOTA_ALASAN(BLN, PEKERJAAN, PENDIDIKAN, KEAMANAN, KESEHATAN, PERUMAHAN, KELUARGA, LAIN_LAIN, NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT (DECODE (F5_TO_NUMBER(ALASAN_PINDAH,7), 1, 1)) AS PEKERJAAN, COUNT (DECODE (F5_TO_NUMBER(ALASAN_PINDAH,7), 2, 1)) AS PENDIDIKAN, COUNT (DECODE (F5_TO_NUMBER(ALASAN_PINDAH,7), 3, 1)) AS KEAMANAN, COUNT (DECODE (F5_TO_NUMBER(ALASAN_PINDAH,7), 4, 1)) AS KESEHATAN, COUNT (DECODE (F5_TO_NUMBER(ALASAN_PINDAH,7), 5, 1)) AS PERUMAHAN, COUNT (DECODE (F5_TO_NUMBER(ALASAN_PINDAH,7), 6, 1)) AS KELUARGA, COUNT (CASE WHEN F5_TO_NUMBER(ALASAN_PINDAH,7) NOT BETWEEN 1 AND 6 THEN 7 END) AS LAIN_LAIN, FROM_NO_PROP,FROM_NO_KAB,FROM_NO_KEC,FROM_NO_KEL FROM PINDAH_HEADER INNER JOIN PINDAH_DETAIL ON PINDAH_HEADER.NO_PINDAH = PINDAH_DETAIL.NO_PINDAH AND PINDAH_DETAIL.TIPE = '1' AND (PINDAH_HEADER.KLASIFIKASI_PINDAH > 1 AND PINDAH_HEADER.KLASIFIKASI_PINDAH <=5) GROUP BY FROM_NO_PROP,FROM_NO_KAB,FROM_NO_KEC,FROM_NO_KEL; COMMIT; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_PDH_ANGGOTA_KELAMIN IS BEGIN DELETE T5_PDH_ANGGOTA_KELAMIN WHERE BLN=TRUNC(SYSDATE,'MM'); INSERT INTO T5_PDH_ANGGOTA_KELAMIN(BLN, LK, LP, NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT(CASE WHEN JENIS_KLMIN IS NULL OR JENIS_KLMIN = 1 OR (JENIS_KLMIN < 1 AND JENIS_KLMIN > 2) THEN 1 END) AS LK, COUNT (DECODE (F5_TO_NUMBER(JENIS_KLMIN,1), 2, 1)) AS LP, FROM_NO_PROP,FROM_NO_KAB,FROM_NO_KEC,FROM_NO_KEL FROM PINDAH_HEADER INNER JOIN PINDAH_DETAIL ON PINDAH_HEADER.NO_PINDAH = PINDAH_DETAIL.NO_PINDAH AND PINDAH_DETAIL.TIPE = '1' AND (PINDAH_HEADER.KLASIFIKASI_PINDAH > 1 AND PINDAH_HEADER.KLASIFIKASI_PINDAH <=5) GROUP BY FROM_NO_PROP,FROM_NO_KAB,FROM_NO_KEC,FROM_NO_KEL; COMMIT; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_PDH_ANGGOTA_KLASIFIKASI IS BEGIN DELETE T5_PDH_ANGGOTA_KLASIFIKASI WHERE BLN=TRUNC(SYSDATE,'MM'); INSERT INTO T5_PDH_ANGGOTA_KLASIFIKASI(BLN,ANTAR_DESA, ANTAR_KEC, ANTAR_KAB, ANTAR_PROV, NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT (DECODE (F5_TO_NUMBER(KLASIFIKASI_PINDAH,5), 2, 1)) AS ANTAR_DESA, COUNT (DECODE (F5_TO_NUMBER(KLASIFIKASI_PINDAH,5), 3, 1)) AS ANTAR_KEC, COUNT (DECODE (F5_TO_NUMBER(KLASIFIKASI_PINDAH,5), 4, 1)) AS ANTAR_KAB, COUNT (DECODE (F5_TO_NUMBER(KLASIFIKASI_PINDAH,5), 5, 1)) AS ANTAR_PROV, FROM_NO_PROP,FROM_NO_KAB,FROM_NO_KEC,FROM_NO_KEL FROM PINDAH_HEADER INNER JOIN PINDAH_DETAIL ON PINDAH_HEADER.NO_PINDAH = PINDAH_DETAIL.NO_PINDAH AND PINDAH_DETAIL.TIPE = '1' AND (PINDAH_HEADER.KLASIFIKASI_PINDAH > 1 AND PINDAH_HEADER.KLASIFIKASI_PINDAH <=5) GROUP BY FROM_NO_PROP,FROM_NO_KAB,FROM_NO_KEC,FROM_NO_KEL; COMMIT; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_PDH_SURAT_ALASAN IS BEGIN DELETE T5_PDH_SURAT_ALASAN WHERE BLN=TRUNC(SYSDATE,'MM'); INSERT INTO T5_PDH_SURAT_ALASAN(BLN, PEKERJAAN, PENDIDIKAN, KEAMANAN, KESEHATAN, PERUMAHAN, KELUARGA, LAIN_LAIN, NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT (DECODE (F5_TO_NUMBER(ALASAN_PINDAH,7), 1, 1)) AS PEKERJAAN, COUNT (DECODE (F5_TO_NUMBER(ALASAN_PINDAH,7), 2, 1)) AS PENDIDIKAN, COUNT (DECODE (F5_TO_NUMBER(ALASAN_PINDAH,7), 3, 1)) AS KEAMANAN, COUNT (DECODE (F5_TO_NUMBER(ALASAN_PINDAH,7), 4, 1)) AS KESEHATAN, COUNT (DECODE (F5_TO_NUMBER(ALASAN_PINDAH,7), 5, 1)) AS PERUMAHAN, COUNT (DECODE (F5_TO_NUMBER(ALASAN_PINDAH,7), 6, 1)) AS KELUARGA, COUNT (CASE WHEN F5_TO_NUMBER(ALASAN_PINDAH,7) NOT BETWEEN 1 AND 6 THEN 7 END) AS LAIN_LAIN, FROM_NO_PROP,FROM_NO_KAB,FROM_NO_KEC,FROM_NO_KEL FROM PINDAH_HEADER WHERE TIPE = '1' GROUP BY FROM_NO_PROP,FROM_NO_KAB,FROM_NO_KEC,FROM_NO_KEL; COMMIT; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_PDH_SURAT_KLASIFIKASI IS BEGIN DELETE T5_PDH_SURAT_KLASIFIKASI WHERE BLN=TRUNC(SYSDATE,'MM'); INSERT INTO T5_PDH_SURAT_KLASIFIKASI(BLN, DALAM_SATU_DESA, ANTAR_DESA, ANTAR_KEC, ANTAR_KAB, ANTAR_PROV, NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT (DECODE (F5_TO_NUMBER(KLASIFIKASI_PINDAH,5), 1, 1)) AS DALAM_SATU_DESA, COUNT (DECODE (F5_TO_NUMBER(KLASIFIKASI_PINDAH,5), 2, 1)) AS ANTAR_DESA, COUNT (DECODE (F5_TO_NUMBER(KLASIFIKASI_PINDAH,5), 3, 1)) AS ANTAR_KEC, COUNT (DECODE (F5_TO_NUMBER(KLASIFIKASI_PINDAH,5), 4, 1)) AS ANTAR_KAB, COUNT (DECODE (F5_TO_NUMBER(KLASIFIKASI_PINDAH,5), 5, 1)) AS ANTAR_PROV, FROM_NO_PROP,FROM_NO_KAB,FROM_NO_KEC,FROM_NO_KEL FROM PINDAH_HEADER WHERE TIPE = '1' AND (PINDAH_HEADER.KLASIFIKASI_PINDAH > 1 AND PINDAH_HEADER.KLASIFIKASI_PINDAH <=5) GROUP BY FROM_NO_PROP,FROM_NO_KAB,FROM_NO_KEC,FROM_NO_KEL; COMMIT; END; / Show errors; CREATE OR REPLACE PROCEDURE p5_siak_ektp is cursor cur_a is select nik,current_status_code, created, created_username, last_updated, last_updated_username, upload_location from demographics@ektp; type array_a is table of cur_a%rowtype; cur_array_a array_a; begin open cur_a; loop fetch cur_a bulk collect into cur_array_a limit 500; exit when cur_array_a.count=0; forall i in 1..cur_array_a.count --insert ke sebuah tabel update biodata_wni set ektp_current_status_code=cur_array_a(i).current_status_code,ektp_created_date=cur_array_a(i).created,ektp_created_by=cur_array_a(i).created_username,ektp_updated_date=cur_array_a(i).last_updated,ektp_updated_by=cur_array_a(i).last_updated_username,ektp_upload_location=cur_array_a(i).upload_location,ektp_batch=1 where nik=cur_array_a(i).nik; commit; end loop; close cur_a; end; / Show errors; CREATE OR REPLACE PROCEDURE P5_STT_AGAMA IS BEGIN DELETE T5_STT_AGAMA WHERE BLN = TRUNC (SYSDATE, 'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_STT_AGAMA (BLN, ISLAM, KRISTEN, KATHOLIK, HINDU, BUDHA, KONGHUCU, KEPERCAYAAN, NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC (SYSDATE, 'MM') BLN, COUNT (DECODE (F5_TO_NUMBER (AGAMA, 7), 1, 1)) AS ISLAM, COUNT (DECODE (F5_TO_NUMBER (AGAMA, 7), 2, 1)) AS KRISTEN, COUNT (DECODE (F5_TO_NUMBER (AGAMA, 7), 3, 1)) AS KATHOLIK, COUNT (DECODE (F5_TO_NUMBER (AGAMA, 7), 4, 1)) AS HINDU, COUNT (DECODE (F5_TO_NUMBER (AGAMA, 7), 5, 1)) AS BUDHA, COUNT (DECODE (F5_TO_NUMBER (AGAMA, 7), 6, 1)) AS KONGHUCU, COUNT ( CASE WHEN F5_TO_NUMBER (AGAMA, 7) NOT BETWEEN 1 AND 6 OR AGAMA IS NULL THEN 7 END) AS KEPERCAYAAN, NO_PROP, NO_KAB, NO_KEC, NO_KEL FROM BIODATA_WNI WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND(FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) GROUP BY NO_PROP, NO_KAB, NO_KEC, NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_STT_AGAMA_OA IS BEGIN DELETE T5_STT_AGAMA_OA WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_STT_AGAMA_OA(BLN, ISLAM, KRISTEN, KATHOLIK, HINDU, BUDHA, KONGHUCU, KEPERCAYAAN, NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN,COUNT (DECODE (F5_TO_NUMBER(AGAMA,7), 1, 1)) AS ISLAM, COUNT (DECODE (F5_TO_NUMBER(AGAMA,7), 2, 1)) AS KRISTEN, COUNT (DECODE (F5_TO_NUMBER(AGAMA,7), 3, 1)) AS KATHOLIK, COUNT (DECODE (F5_TO_NUMBER(AGAMA,7), 4, 1)) AS HINDU, COUNT (DECODE (F5_TO_NUMBER(AGAMA,7), 5, 1)) AS BUDHA, COUNT (DECODE (F5_TO_NUMBER(AGAMA,7), 6, 1)) AS KONGHUCU, COUNT (CASE WHEN F5_TO_NUMBER(AGAMA,7) NOT BETWEEN 1 AND 6 OR AGAMA IS NULL THEN 7 END) AS KEPERCAYAAN, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM BIODATA_WNI WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND(FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) GROUP BY NO_PROP, NO_KAB, NO_KEC, NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_STT_AGR_PENDUDUK IS BEGIN DELETE T5_STT_AGR_PENDUDUK WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_STT_AGR_PENDUDUK(BLN, DAK_LK, DAK_LP,NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT(CASE WHEN JENIS_KLMIN IS NULL OR JENIS_KLMIN = 1 OR (JENIS_KLMIN < 1 AND JENIS_KLMIN > 2) THEN 1 END) AS DAK_LK, COUNT (DECODE (F5_TO_NUMBER(JENIS_KLMIN,1), 2, 1)) AS DAK_LP, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM BIODATA_WNI WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND (FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) GROUP BY NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_STT_AGR_PENDUDUK_OA IS BEGIN DELETE T5_STT_AGR_PENDUDUK_OA WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_STT_AGR_PENDUDUK_OA(BLN, DAK_LK, DAK_LP,NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT(CASE WHEN JENIS_KLMIN IS NULL OR JENIS_KLMIN <> 2 THEN 1 END) AS DAK_LK, COUNT (DECODE (F5_TO_NUMBER(JENIS_KLMIN,1), 2, 1)) AS DAK_LP, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM BIODATA_WNA WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND (FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) GROUP BY NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_STT_GOLONGAN_DARAH IS BEGIN DELETE T5_STT_GOLONGAN_DARAH WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_STT_GOLONGAN_DARAH(BLN, A, B, AB, O, A_POS, A_MIN, B_POS,B_MIN,AB_POS,AB_MIN,O_POS,O_MIN,TIDAK_TAHU, NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 1, 1)) AS A, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 2, 1)) AS B, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 3, 1)) AS AB, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 4, 1)) AS O, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 5, 1)) AS A_POS, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 6, 1)) AS A_MIN, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 7, 1)) AS B_POS, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 8, 1)) AS B_MIN, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 9, 1)) AS AB_POS, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 10, 1)) AS AB_MIN, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 11, 1)) AS O_POS, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 12, 1)) AS O_MIN, COUNT (CASE WHEN F5_TO_NUMBER(GOL_DRH,13) NOT BETWEEN 1 AND 12 OR GOL_DRH IS NULL THEN 13 END) AS TIDAK_TAHU, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM BIODATA_WNI WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND (FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) GROUP BY NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_STT_GOLONGAN_DARAH_OA IS BEGIN DELETE T5_STT_GOLONGAN_DARAH_OA WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_STT_GOLONGAN_DARAH_OA(BLN, A, B, AB, O, A_POS, A_MIN, B_POS,B_MIN,AB_POS,AB_MIN,O_POS,O_MIN,TIDAK_TAHU, NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 1, 1)) AS A, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 2, 1)) AS B, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 3, 1)) AS AB, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 4, 1)) AS O, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 5, 1)) AS A_POS, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 6, 1)) AS A_MIN, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 7, 1)) AS B_POS, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 8, 1)) AS B_MIN, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 9, 1)) AS AB_POS, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 10, 1)) AS AB_MIN, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 11, 1)) AS O_POS, COUNT (DECODE (F5_TO_NUMBER(GOL_DRH,13), 12, 1)) AS O_MIN, COUNT (CASE WHEN F5_TO_NUMBER(GOL_DRH,13) NOT BETWEEN 1 AND 12 OR GOL_DRH IS NULL THEN 13 END) AS TIDAK_TAHU, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM BIODATA_WNA WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND (FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) GROUP BY NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_STT_PEKERJAAN IS BEGIN DELETE T5_STT_PEKERJAAN WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_STT_PEKERJAAN(BLN, KODE_PEKERJAAN,VALUE, NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT BLN,KODE_PEKERJAAN ,SUM(VALUE) VALUE,NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM (SELECT TRUNC(SYSDATE,'MM') BLN,KODE_PEKERJAAN,0 VALUE,NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM SETUP_KEL,(SELECT ROWNUM KODE_PEKERJAAN FROM ( SELECT 0 just_a_column FROM dual CONNECT BY LEVEL <= 89 )) WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB UNION SELECT TRUNC(SYSDATE,'MM') BLN ,CASE WHEN (JENIS_PKRJN NOT BETWEEN 1 AND 88) OR JENIS_PKRJN IS NULL THEN 89 ELSE JENIS_PKRJN END KODE_PEKERJAAN,COUNT (1) VALUE, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM BIODATA_WNI WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND (FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) GROUP BY JENIS_PKRJN,NO_PROP,NO_KAB,NO_KEC,NO_KEL) GROUP BY BLN,KODE_PEKERJAAN,NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_STT_PENDIDIKAN IS BEGIN DELETE T5_STT_PENDIDIKAN WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_STT_PENDIDIKAN(BLN, PDD01, PDD02, PDD03, PDD04, PDD05, PDD06, PDD07,PDD08,PDD09,PDD10, NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT (CASE WHEN F5_TO_NUMBER(PDDK_AKH,1) NOT BETWEEN 2 AND 10 OR PDDK_AKH IS NULL THEN 1 END) AS PDD01, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,1), 2, 1)) AS PDD02, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,1), 3, 1)) AS PDD03, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,1), 4, 1)) AS PDD04, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,1), 5, 1)) AS PDD05, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,1), 6, 1)) AS PDD06, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,1), 7, 1)) AS PDD07, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,1), 8, 1)) AS PDD08, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,1), 9, 1)) AS PDD09, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,1), 10, 1)) AS PDD10, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM BIODATA_WNI WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND (FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) GROUP BY NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_STT_PENDIDIKAN_OA IS BEGIN DELETE T5_STT_PENDIDIKAN_OA WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_STT_PENDIDIKAN_OA(BLN, PDD01, PDD02, PDD03, PDD04, PDD05, PDD06, PDD07,PDD08,NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,8), 1, 1)) AS PDD01, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,8), 2, 1)) AS PDD02, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,8), 3, 1)) AS PDD03, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,8), 4, 1)) AS PDD04, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,8), 5, 1)) AS PDD05, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,8), 6, 1)) AS PDD06, COUNT (DECODE (F5_TO_NUMBER(PDDK_AKH,8), 7, 1)) AS PDD07, COUNT (CASE WHEN F5_TO_NUMBER(PDDK_AKH,8) NOT BETWEEN 1 AND 7 OR PDDK_AKH IS NULL THEN 8 END) AS PDD08, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM BIODATA_WNA WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND (FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) GROUP BY NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_STT_PENYANDANG_CACAT IS BEGIN DELETE T5_STT_PENYANDANG_CACAT WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_STT_PENYANDANG_CACAT(BLN, FISIK, NETRA, RUNGU, MENTAL, FISIK_MENTAL, LAINNYA,NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT (DECODE (F5_TO_NUMBER(PNYDNG_CCT,6), 1, 1)) AS FISIK, COUNT (DECODE (F5_TO_NUMBER(PNYDNG_CCT,6), 2, 1)) AS NETRA, COUNT (DECODE (F5_TO_NUMBER(PNYDNG_CCT,6), 3, 1)) AS RUNGU, COUNT (DECODE (F5_TO_NUMBER(PNYDNG_CCT,6), 4, 1)) AS MENTAL, COUNT (DECODE (F5_TO_NUMBER(PNYDNG_CCT,6), 5, 1)) AS FISIK_MENTAL, COUNT (CASE WHEN F5_TO_NUMBER(PNYDNG_CCT,6) NOT BETWEEN 1 AND 5 THEN 6 END) AS LAINNYA, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM BIODATA_WNI WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND (FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) AND KLAIN_FSK = 2 GROUP BY NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_STT_STATHBKEL IS BEGIN DELETE T5_STT_STATHBKEL WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_STT_STATHBKEL(BLN, KEPALA_KELUARGA, SUAMI,ISTRI,ANAK,MENANTU,CUCU,ORANG_TUA, MERTUA,FAMILI_LAIN,PEMBANTU,LAINNYA,NO_PROP,NO_KAB,NO_KEC,NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT(DECODE(STAT_HBKEL,1,1)) KEPALA_KELUARGA, COUNT(DECODE(STAT_HBKEL,2,1)) SUAMI, COUNT(DECODE(STAT_HBKEL,3,1)) ISTRI, COUNT(DECODE(STAT_HBKEL,4,1)) ANAK, COUNT(DECODE(STAT_HBKEL,5,1)) MENANTU, COUNT(DECODE(STAT_HBKEL,6,1)) CUCU, COUNT(DECODE(STAT_HBKEL,7,1)) ORANG_TUA, COUNT(DECODE(STAT_HBKEL,8,1)) MERTUA, COUNT(DECODE(STAT_HBKEL,9,1)) FAMILI_LAIN, COUNT(DECODE(STAT_HBKEL,10,1)) PEMBANTU, COUNT (CASE WHEN F5_TO_NUMBER(STAT_HBKEL,11) NOT BETWEEN 1 AND 10 OR STAT_HBKEL IS NULL THEN 11 END) AS LAINNYA, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM BIODATA_WNI WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND (FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) GROUP BY NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_STT_STATHBKEL_OA IS BEGIN DELETE T5_STT_STATHBKEL_OA WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_STT_STATHBKEL_OA(BLN, KEPALA_KELUARGA, SUAMI,ISTRI,ANAK,MENANTU,CUCU,ORANG_TUA, MERTUA,FAMILI_LAIN,PEMBANTU,LAINNYA,NO_PROP,NO_KAB,NO_KEC,NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT(DECODE(STAT_HBKEL,1,1)) KEPALA_KELUARGA, COUNT(DECODE(STAT_HBKEL,2,1)) SUAMI, COUNT(DECODE(STAT_HBKEL,3,1)) ISTRI, COUNT(DECODE(STAT_HBKEL,4,1)) ANAK, COUNT(DECODE(STAT_HBKEL,5,1)) MENANTU, COUNT(DECODE(STAT_HBKEL,6,1)) CUCU, COUNT(DECODE(STAT_HBKEL,7,1)) ORANG_TUA, COUNT(DECODE(STAT_HBKEL,8,1)) MERTUA, COUNT(DECODE(STAT_HBKEL,9,1)) FAMILI_LAIN, COUNT(DECODE(STAT_HBKEL,10,1)) PEMBANTU, COUNT (CASE WHEN F5_TO_NUMBER(STAT_HBKEL,11) NOT BETWEEN 1 AND 10 OR STAT_HBKEL IS NULL THEN 11 END) AS LAINNYA, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM BIODATA_WNA WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND (FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) GROUP BY NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_STT_STATUS_PERKAWINAN IS BEGIN DELETE T5_STT_STATUS_PERKAWINAN WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_STT_STATUS_PERKAWINAN(BLN, BELUM_KAWIN, KAWIN,CERAI_HIDUP,CERAI_MATI,NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT(CASE WHEN STAT_KWN IS NULL OR (STAT_KWN NOT BETWEEN 2 AND 4) THEN 1 END) BELUM_KAWIN, COUNT(DECODE(STAT_KWN,2,1)) KAWIN, COUNT(DECODE(STAT_KWN,3,1)) CERAI_HIDUP, COUNT(DECODE(STAT_KWN,4,1)) CERAI_MATI, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM BIODATA_WNI WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND (FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) GROUP BY NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_STT_STATUS_PERKAWINAN_OA IS BEGIN DELETE T5_STT_STATUS_PERKAWINAN_OA WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_STT_STATUS_PERKAWINAN_OA(BLN, BELUM_KAWIN, KAWIN,CERAI,NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT(CASE WHEN STAT_KWN IS NULL OR STAT_KWN NOT BETWEEN 2 AND 3 THEN 1 END) BELUM_KAWIN, COUNT(DECODE(STAT_KWN,2,1)) KAWIN, COUNT(DECODE(STAT_KWN,3,1)) CERAI, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM BIODATA_WNA WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND (FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) GROUP BY NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_STT_STRUKTUR_UMUR IS BEGIN DELETE T5_STT_STRUKTUR_UMUR WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_STT_STRUKTUR_UMUR(BLN, SORT,LAKI_LAKI,PEREMPUAN,ADA_AKTA,TIDAK_ADA_AKTA, NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT BLN,STRUKTUR_UMUR SORT,SUM(LAKI) LAKI_LAKI,SUM(PEREMPUAN) PEREMPUAN,SUM(ADA_AKTA) ADA_AKTA,SUM(TIDAK_ADA_AKTA) TIDAK_ADA_AKTA,NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM (SELECT TRUNC(SYSDATE,'MM') BLN,STRUKTUR_UMUR-1 STRUKTUR_UMUR,0 LAKI,0 PEREMPUAN,0 ADA_AKTA,0 TIDAK_ADA_AKTA,NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM SETUP_KEL,(SELECT ROWNUM STRUKTUR_UMUR FROM ( SELECT 0 just_a_column FROM dual CONNECT BY LEVEL <= 16 )) WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB UNION SELECT TRUNC(SYSDATE,'MM') BLN,CASE WHEN FLOOR(MONTHS_BETWEEN (SYSDATE, tgl_lhr) / 60)<1 OR tgl_lhr IS NULL THEN 0 WHEN FLOOR(MONTHS_BETWEEN (SYSDATE, tgl_lhr) / 60)<15 THEN FLOOR(MONTHS_BETWEEN (SYSDATE, tgl_lhr) / 60) ELSE 15 END STRUKTUR_UMUR,COUNT (CASE WHEN JENIS_KLMIN <>2 OR JENIS_KLMIN IS NULL THEN 1 END) AS LAKI, COUNT (DECODE (JENIS_KLMIN, 2, 1)) AS PEREMPUAN,COUNT(DECODE(AKTA_LHR,2,1)) ADA_AKTA,COUNT(CASE WHEN AKTA_LHR<>2 OR AKTA_LHR IS NULL THEN 1 END) TIDAK_ADA_AKTA, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM BIODATA_WNI WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND (FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) GROUP BY CASE WHEN FLOOR(MONTHS_BETWEEN (SYSDATE, tgl_lhr) / 60)<1 OR tgl_lhr IS NULL THEN 0 WHEN FLOOR(MONTHS_BETWEEN (SYSDATE, tgl_lhr) / 60)<15 THEN FLOOR(MONTHS_BETWEEN (SYSDATE, tgl_lhr) / 60) ELSE 15 END,NO_PROP,NO_KAB,NO_KEC,NO_KEL) GROUP BY BLN,STRUKTUR_UMUR,NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_STT_WAJIB_KTP IS BEGIN DELETE T5_STT_WAJIB_KTP WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_STT_WAJIB_KTP(BLN, LK, LP,NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT(CASE WHEN JENIS_KLMIN IS NULL OR JENIS_KLMIN = 1 OR (JENIS_KLMIN < 1 AND JENIS_KLMIN > 2) THEN 1 END) AS LK, COUNT (DECODE (F5_TO_NUMBER(JENIS_KLMIN,1), 2, 1)) AS LP, NO_PROP,NO_KAB,NO_KEC,NO_KEL FROM BIODATA_WNI WHERE NO_PROP=ROW_APP.NO_PROP AND NO_KAB=ROW_APP.NO_KAB AND (TGL_LHR<=ADD_MONTHS(SYSDATE,-12*17) OR STAT_KWN<>1) AND (FLAG_STATUS = '0' OR (FLAG_STATUS = '2' AND FLAG_PINDAH IN(1,2,3))) GROUP BY NO_PROP,NO_KAB,NO_KEC,NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE P5_LHR_STATUS_PENCATATAN IS BEGIN DELETE T5_LHR_STATUS_PENCATATAN WHERE BLN=TRUNC(SYSDATE,'MM'); FOR ROW_APP IN(SELECT NO_PROP,NO_KAB FROM SETUP_APLIKASI) LOOP INSERT INTO T5_LHR_STATUS_PENCATATAN(BLN, UMUM,TERLAMBAT, NO_PROP, NO_KAB, NO_KEC, NO_KEL) SELECT TRUNC(SYSDATE,'MM') BLN, COUNT(CASE WHEN SUBSTR(ADM_AKTA_NO,6,2)<>'LT' THEN 1 END) AS UMUM, COUNT(CASE WHEN SUBSTR(ADM_AKTA_NO,6,2) = 'LT' THEN 1 END) AS TERLAMBAT, ADM_NO_PROV AS NO_PROP,ADM_NO_KAB AS NO_KAB, ADM_NO_KEC AS NO_KEC, ADM_NO_KEL AS NO_KEL FROM CAPIL_LAHIR WHERE ADM_NO_PROV=ROW_APP.NO_PROP AND ADM_NO_KAB=ROW_APP.NO_KAB AND BAYI_ORG_ASING = 'T' AND BAYI_DOM_LAHIR = 'D' GROUP BY ADM_NO_PROV,ADM_NO_KAB, ADM_NO_KEC, ADM_NO_KEL; COMMIT; END LOOP; END; / Show errors; CREATE OR REPLACE PROCEDURE SMS_REQ_KK(P_ORIGANATOR VARCHAR2, P_MESSAGE VARCHAR2, P_ENCODING VARCHAR2, P_GATEWAY VARCHAR2, P_ID INT) IS R_RESPONSE VARCHAR2(4000); BEGIN IF SUBSTR(TRIM(P_MESSAGE),4) IS NOT NULL THEN /* no No. kk req*/ IF LENGTH(TRIM(SUBSTR(P_MESSAGE,4))) = 16 THEN /* check length no. kk */ IF SMS_IS_NUMBER(SUBSTR(P_MESSAGE,4)) = 'T' THEN /* is number */ SELECT 'NO. KK : ' || TO_CHAR(A.NO_KK) || CHR(10) || 'NAMA KEP. KEL : ' || TRIM(A.NAMA_KEP) || CHR(10) || 'ALAMAT : ' || TRIM(A.ALAMAT) || CHR(10) || 'RT/RW : ' || DECODE (A.NO_RT,NULL, '-',0, '-',TO_CHAR (A.NO_RT, '000')) || '/' ||DECODE (A.NO_RW,NULL, '-',0, '-',TO_CHAR (A.NO_RW, '000')) || CHR(10) || 'DUSUN : ' || NVL(A.DUSUN,'-') || CHR(10) || 'PROV : ' || SMS_GET_NAMA_PROV(TO_NUMBER(NVL(A.NO_PROP,0))) || CHR(10) || 'KAB/KOTA : ' || SMS_GET_NAMA_KAB(TO_NUMBER(NVL(A.NO_PROP,0)),TO_NUMBER(NVL(A.NO_KAB,0))) || CHR(10) || 'KEC : ' || SMS_GET_NAMA_KEC(TO_NUMBER(NVL(A.NO_PROP,0)),TO_NUMBER(NVL(A.NO_KAB,0)),TO_NUMBER(NVL(A.NO_KEC,0))) || CHR(10) || 'DESA/KEL : ' || SMS_GET_NAMA_KEL(TO_NUMBER(NVL(A.NO_PROP,0)),TO_NUMBER(NVL(A.NO_KAB,0)),TO_NUMBER(NVL(A.NO_KEC,0)),TO_NUMBER(NVL (A.NO_KEL,0))) || CHR(10) || 'JML. ANGGOTA : ' || (SELECT COUNT(NIK) FROM BIODATA_WNI WHERE NO_KK = TO_NUMBER(TRIM(SUBSTR(P_MESSAGE,4)))) || ' ORG' INTO R_RESPONSE FROM DATA_KELUARGA A WHERE A.NO_KK = TO_NUMBER(TRIM(SUBSTR(P_MESSAGE,4))); SMS_RESPOND(P_ORIGANATOR,R_RESPONSE,P_ENCODING,P_GATEWAY,P_ID,11,'REQ'); ELSE SMS_RESPOND(P_ORIGANATOR,'No. KK : ' || SUBSTR(P_MESSAGE,4) ||' harus berupa angka',P_ENCODING,P_GATEWAY,P_ID,12,'REQ'); END IF; ELSE SMS_RESPOND(P_ORIGANATOR,'No. KK : ' || SUBSTR(P_MESSAGE,4) ||' harus 16 digit angka',P_ENCODING,P_GATEWAY,P_ID,12,'REQ'); END IF; ELSE SMS_RESPOND(P_ORIGANATOR,'No. KK harus benar',P_ENCODING,P_GATEWAY,P_ID,12,'REQ'); END IF; EXCEPTION WHEN TOO_MANY_ROWS THEN SMS_RESPOND(P_ORIGANATOR,'No. KK : ' || SUBSTR(P_MESSAGE,4) ||' lebih dari 1',P_ENCODING,P_GATEWAY,P_ID,14,'REQ'); WHEN NO_DATA_FOUND THEN SMS_RESPOND(P_ORIGANATOR,'No. KK : ' || SUBSTR(P_MESSAGE,4) ||' tidak ditemukan',P_ENCODING,P_GATEWAY,P_ID,13,'REQ'); WHEN OTHERS THEN SMS_RESPOND(P_ORIGANATOR,'Maaf layanan ini sedang dalam perbaikan',P_ENCODING,P_GATEWAY,P_ID,90,'REQ'); RAISE; END; / Show errors; CREATE OR REPLACE PROCEDURE SMS_REQ_NIK(P_ORIGANATOR VARCHAR2, P_MESSAGE VARCHAR2, P_ENCODING VARCHAR2, P_GATEWAY VARCHAR2, P_ID INT) IS R_RESPONSE VARCHAR2(4000); R_COUNT_DMG INT; R_RESPONSE_DMG VARCHAR2(200); BEGIN IF SUBSTR(TRIM(P_MESSAGE),5) IS NOT NULL THEN /* no nik req*/ IF LENGTH(TRIM(SUBSTR(P_MESSAGE,5))) = 16 THEN /* check length nik */ IF SMS_IS_NUMBER(SUBSTR(P_MESSAGE,5)) = 'T' THEN /* is number */ SELECT 'NIK : ' || TO_CHAR(A.NIK) || CHR(10) || 'NO. KK : ' || TO_CHAR(NVL(A.NO_KK,0)) || CHR(10) || 'NAMA : ' || TRIM(A.NAMA_LGKP) || CHR(10) || 'TMP/TGL LHR : ' || TRIM(NVL(A.TMPT_LHR,'-')) || ', '||TO_CHAR(A.TGL_LHR,'DD-MM-YYYY') || CHR(10) || 'KELAMIN : ' || DECODE(TO_NUMBER(NVL(A.JENIS_KLMIN,0)),1,'LAKI-LAKI',2,'PEREMPUAN','-') INTO R_RESPONSE FROM BIODATA_WNI A WHERE NIK = TO_NUMBER(TRIM(SUBSTR(P_MESSAGE,5))); /** SELECT COUNT(1) INTO R_COUNT_DMG FROM DEMOGRAPHICS WHERE NIK = TO_NUMBER(TRIM(SUBSTR(P_MESSAGE,5))); IF R_COUNT_DMG > 0 THEN SELECT CURRENT_STATUS_CODE INTO R_RESPONSE_DMG FROM DEMOGRAPHICS WHERE NIK = TO_NUMBER(TRIM(SUBSTR(P_MESSAGE,5))); IF R_RESPONSE_DMG = 'DUPLICATE_RECORD' THEN R_RESPONSE := R_RESPONSE || CHR(10) || 'EKTP TERINDIKASI GANDA'; ELSIF R_RESPONSE_DMG = 'ADJUDICATE_RECORD' THEN R_RESPONSE := R_RESPONSE || CHR(10) || 'EKTP PROSES VERIFIKASI'; ELSIF R_RESPONSE_DMG = 'CARD_PRINTED' THEN R_RESPONSE := R_RESPONSE || CHR(10) || 'EKTP TELAH DICETAK'; ELSIF R_RESPONSE_DMG = 'CARD_ISSUED' THEN R_RESPONSE := R_RESPONSE || CHR(10) || 'EKTP TELAH DITERIMA'; ELSIF R_RESPONSE_DMG = 'PRINT_READY_RECORD' THEN R_RESPONSE := R_RESPONSE || CHR(10) || 'EKTP SIAP CETAK'; ELSE R_RESPONSE := R_RESPONSE || CHR(10) || 'TERIMAKASIH TELAH MEREKAM EKTP.'; END IF; END IF; **/ R_RESPONSE := R_RESPONSE || CHR(10) || '-DISDUKCAPIL KOTA DEPOK-'; SMS_RESPOND(P_ORIGANATOR,R_RESPONSE,P_ENCODING,P_GATEWAY,P_ID,1,'REQ'); ELSE SMS_RESPOND(P_ORIGANATOR,'NIK : ' || SUBSTR(P_MESSAGE,5) ||' harus berupa angka',P_ENCODING,P_GATEWAY,P_ID,2,'REQ'); END IF; ELSE SMS_RESPOND(P_ORIGANATOR,'NIK : ' || SUBSTR(P_MESSAGE,5) ||' harus 16 digit angka',P_ENCODING,P_GATEWAY,P_ID,2,'REQ'); END IF; ELSE SMS_RESPOND(P_ORIGANATOR,'NIK harus benar',P_ENCODING,P_GATEWAY,P_ID,2,'REQ'); END IF; EXCEPTION WHEN TOO_MANY_ROWS THEN SMS_RESPOND(P_ORIGANATOR,'NIK : ' || SUBSTR(P_MESSAGE,5) ||' lebih dari 1',P_ENCODING,P_GATEWAY,P_ID,4,'REQ'); WHEN NO_DATA_FOUND THEN SMS_RESPOND(P_ORIGANATOR,'NIK : ' || SUBSTR(P_MESSAGE,5) ||' tidak ditemukan',P_ENCODING,P_GATEWAY,P_ID,3,'REQ'); WHEN OTHERS THEN SMS_RESPOND(P_ORIGANATOR,'Maaf layanan ini sedang dalam perbaikan',P_ENCODING,P_GATEWAY,P_ID,90,'REQ'); RAISE; END; / Show errors; CREATE OR REPLACE PROCEDURE SMS_RESPOND (P_ORIGANATOR VARCHAR2, P_MESSAGE VARCHAR2,P_ENCODING VARCHAR2,P_GATEWAY VARCHAR2,P_ID INT,P_PROCESS INT,P_OUT_TYPE VARCHAR2) IS V_ORIGANATOR VARCHAR2(100); BEGIN V_ORIGANATOR := P_ORIGANATOR; IF SUBSTR(P_ORIGANATOR,0,1) != '+' THEN V_ORIGANATOR := '+' || P_ORIGANATOR; END IF; INSERT INTO SMSSERVER_OUT (TYPE, RECIPIENT , TEXT ,ENCODING , STATUS_REPORT , PRIORITY , STATUS , ERRORS, GATEWAY_ID) VALUES ('O',V_ORIGANATOR, P_MESSAGE ,P_ENCODING, 1, 1, 'U' , 0 , P_GATEWAY); EXCEPTION WHEN OTHERS THEN -- Consider logging the error and then re-raise RAISE; END; / Show errors;
Copyright ©2021 || Defacer Indonesia