#!/usr/bin/ksh
# whatformpersonalization ()
#------------------------------------------------------------------------------#
#    Module Name:  whatformpersonalization                                     #
#                                                                              #
#    Purpose:      Report on the Forms Personalizations.                       #
#                                                                              #
#    Maintenance                                                               #
#    Date          Author        Description                                   #
#    -----------   ------------  --------------------------------------------  #
#    10-Oct-2009   M.Barone      Module design/creation                        #
#------------------------------------------------------------------------------#
{
        DIRNAM=$(dirname $0)
        ORASID=$(echo $CONTEXT_NAME | cut -f1 -d'_')
        HNAME=$(uname -n)

        #----------------------------------------------------------------------#
        #  TEST:  Number ($#) of arguments passed to this function?            #
        #----------------------------------------------------------------------#
        if      [ $# = 0 ]
        then
            clear
            echo
            echo  " #--------------------------------------------------------#"
            echo  " # whatformpersonalization: Oracle Forms Personalizations #"
            echo  " #--------------------------------------------------------#"
            echo

            #------------------------------------------------------------------#
            #  Trap:  Set CNTL-C CNTL-D CNTL-\ Before Password Protection      #
            #------------------------------------------------------------------#
            trap        "stty echo; return"     2
            trap        "stty echo; return"     3
            stty -echo

            read PASSWD?" Please Enter the Oracle APPS Passwd:  "

            stty echo
            echo
            #------------------------------------------------------------------#
            #  Trap:  Reset CNTL-C CNTL-D CNTL-\ After Password Protection     #
            #------------------------------------------------------------------#
            trap        2
            trap        3

            clear
        else
            PASSWD=$1
            clear
        fi

#------------------------------------------------------------------------------#
#  SQL*Plus ("Here-Document")                                                  #
#------------------------------------------------------------------------------#
sqlplus  -s  /nolog  <<-END_FILE

        CONNECT  APPS/$PASSWD

        clear   BREAKS
        clear   BUFFER
        clear   COLUMNS
        clear   COMPUTES
        clear   SCREEN
        clear   SQL
        clear   TIMING

        set     feedback        on
        set     flush           on
        set     heading         on
        set     pause           off
        set     space           1
        set     termout         on
        set     verify          on
        set     linesize        80 
        set     pagesize        999

        SPOOL /tmp/whatformpersonalization_$$.txt

        COLUMN  datevalue       NOPRINT NEW_VALUE       DATEVAR
        COLUMN  timevalue       NOPRINT NEW_VALUE       TIMEVAR
        COLUMN  Form            FORMAT A9       Heading 'Form Name'
        COLUMN  Function        FORMAT A11      Heading 'Function Name'
        COLUMN  Description     FORMAT A17      Heading 'Description'
        COLUMN  TriggerEvent    FORMAT A16      Heading 'TriggerEvent'
        COLUMN  TriggerObject   FORMAT A16      Heading 'TriggerObject'
        COLUMN  Enabled         FORMAT A6       Heading 'Enable'

        TTITLE  CENTER  'Oracle eBusiness Suite  Report'                -
                LEFT    DATEVAR                                         -
                RIGHT   'Page:'         FORMAT 999 SQL.pno      skip 1  -
                CENTER  'whatformpersonalization - Sorted FormName'     -
                LEFT    TIMEVAR                                 skip2

        SELECT  TO_CHAR(sysdate, 'DD-MON-YY')   datevalue,
                TO_CHAR(sysdate, 'HH24:MI:SS')  timevalue,
                form_name       Form,
                function_name   Function,
                description     Description,
                trigger_event   TriggerEvent,
                trigger_object  TriggerObject,
                enabled
        FROM    fnd_form_custom_rules
        ORDER BY form_name, function_name, sequence;

        EXIT;

END_FILE

print
print "Please see /tmp/whatformpersonalization_$$.txt"
print
}