 EXEC P_ALTERPK 'PK_POM_MROCODERULESEQ', 'T_POM_MROCODERULESEQ', 'FPROJECTKEYS,FCHAR', '1';

 IF NOT EXISTS (SELECT 1 FROM KSQL_INDEXES WHERE KSQL_INDNAME = 'IDX_POM_MROCODERULE_SEQ') CREATE INDEX IDX_POM_MROCODERULE_SEQ ON T_POM_MROCODERULESEQ ( FSEQ );


 EXEC P_ALTERPK 'PK_POM_MROINTERRUPTNO', 'T_POM_MROINTERRUPTNO', 'FNUMBER', '1';

 IF NOT EXISTS (SELECT 1 FROM KSQL_INDEXES WHERE KSQL_INDNAME = 'IDX_POM_MROINTERRUPTNO_PJ') CREATE INDEX IDX_POM_MROINTERRUPTNO_PJ ON T_POM_MROINTERRUPTNO ( FPROJECTKEYS ,FCHAR );
 
 EXEC P_ALTERPK 'PK_POM_TRANSTYPECODERULE_L', 'T_POM_TRANSTYPECODERULE_L', 'FPKID', '1';

 IF NOT EXISTS (SELECT 1 FROM KSQL_INDEXES WHERE KSQL_INDNAME = 'IDX_POM_TRANSTCODEL_L') CREATE INDEX IDX_POM_TRANSTCODEL_L ON T_POM_TRANSTYPECODERULE_L ( FID ,FLOCALEID );
