Oracle R12.2 Forms compilation & misc scripts

 -- forms compile commands

frmcmp_batch userid=apps/appstest2424 module=$AU_TOP/forms/US/XXPNRESIARCOLLRMDR.fmb output_file=$XXCUS_TOP/forms/US/XXPNRESIARCOLLRMDR.fmx module_type=form compile_all=special

To disable standard menu functions in custom forms

 APP_SPECIAL.ENABLE('VIEW.ATTACHMENTS', PROPERTY_OFF);

APP_SPECIAL.ENABLE('FILE.NEW', PROPERTY_OFF);

APP_SPECIAL.ENABLE('EDIT.CLEAR', PROPERTY_OFF);

APP_SPECIAL.ENABLE('EDIT.DELETE',PROPERTY_OFF);

 APP_SPECIAL2.ENABLE('VIEW.ATTACHMENTS',PROPERTY_ON );

-- init env

EXEC FND_GLOBAL.APPS_INITIALIZE(1,50637,521) ;

-- resp/user wise validation

case when ( FND_GLOBAL.RESP_NAME = 'XXTEST RESP'  

                                  and FND_GLOBAL.USER_NAME not in ('XXTEST')) 

                              then 0

                      Else 1 

                   End = 1  

-- password change script

BEGIN

  IF fnd_user_pkg.changepassword('TESTUSER','test1234') THEN

    COMMIT;

  END IF; 

END;

-- to create/repalce directory

CREATE OR REPLACE directory DIR_NAME AS '/d04/oracle_home/apps/fs_ne/inst/EBSTEST_erpstaging/logs/appl/conc/out/';

-- Search function in forms

declare

l_count number;

lc_default_where VARCHAR2(4000);

lc_amount number;

begin

 

lc_default_where := 'WHERE PARTY_ID = '||:XX_CUSTOMERS_N.PARTY_ID;

    set_block_property('XX_BLOCK_NAME',DEFAULT_WHERE,lc_default_where);

  GO_BLOCK ('XX_BLOCK_NAME');

  EXECUTE_QUERY;

END;     

Exec FND_GLOBAL.APPS_INITIALIZE(1,50637,521);

COMMIT;

SELECT FND_GLOBAL.USER_ID ,

       FND_GLOBAL.USER_NAME,

       FND_PROFILE.VALUE('USER_ID') ,

       FND_PROFILE.VALUE('USERNAME')

FROM DUAL;

 ------------------------------------------------------------------ 

--- for dynamic list item

rg_status:= FIND_GROUP (rg_name4);

if not id_null(rg_status) then

delete_group(rg_status);

end if;

        

    lc_status_rg_qry := 'select meaning, lookup_code from fnd_lookup_values where lookup_type = ''XX_CASE_STATUSES'''||

' and enabled_flag = ''Y''' ||

' and sysdate between start_date_active and nvl(end_date_active, sysdate)';

rg_status := Create_Group_From_Query(rg_name4,lc_status_rg_qry);

clear_list('XX_CUST_HEADERS.STATUS');

    clear_list('QUERY_FIND.STATUS');

lc_rg_num := POPULATE_GROUP(rg_status);

populate_list('XX_CUST_HEADERS.STATUS', rg_status);

populate_list('QUERY_FIND.STATUS', rg_status);