#!/usr/bin/ksh
#whatoie ()
#------------------------------------------------------------------------------#
#    Module Name:  whatoie                                                     #
#                                                                              #
#    Purpose:      Report on the Oracle Internet Expense (OIE) Version         #
#                                                                              #
#    Maintenance                                                               #
#    Date          Author        Description                                   #
#    -----------   ------------  --------------------------------------------  #
#    27-Dec-2012   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  " # whatoie:                      Oracle E-Business SUite  #"
            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

#------------------------------------------------------------------------------#
#  Initialize                                                                  #
#------------------------------------------------------------------------------#
        SPOOLNM=/tmp/whatoie_$$.txt

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

        CONNECT  APPS/$PASSWD

        SPOOL ${SPOOLNM}

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

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

        prompt #---------------------------------------------------------------#
        prompt #- What OIE (whatoie)                                          -#
        prompt #---------------------------------------------------------------#

        COLUMN  datevalue       NOPRINT NEW_VALUE       DATEVAR
        COLUMN  timevalue       NOPRINT NEW_VALUE       TIMEVAR

        COLUMN  bugnmbr format A8       HEADING 'Patch|Number'      WORD_WRAPPED
        COLUMN  bugdate format A11      HEADING 'Patch|Date'        WORD_WRAPPED
        COLUMN  bugdesc format A50      HEADING 'Patch Description' WORD_WRAPPED
        COLUMN  bugname format A7       HEADING 'Patch|Name'        WORD_WRAPPED

        TTITLE  CENTER  '${ORASID} (${HNAME}) Apps ATG Version'             -
                LEFT    DATEVAR                                     skip 1  -
                CENTER  'eBusiness 12 OIE (Oracle Internet Expense)'   -
                LEFT    TIMEVAR                                     skip 2

        alter session set NLS_DATE_FORMAT = 'DD-MON-YYYY HH24:MI:SS';

        SELECT  TO_CHAR(sysdate, 'DD-MON-YY')   datevalue,
                TO_CHAR(sysdate, 'HH24:MI:SS')  timevalue,
                RELEASE_NAME
        from fnd_product_groups;

        SELECT  TO_CHAR(sysdate, 'DD-MON-YY')   datevalue,
                TO_CHAR(sysdate, 'HH24:MI:SS')  timevalue,
                Bug_Number  bugnmbr
                  , DECODE (bug_number
                  , '9239090','REL12.1.3' 
                  , '10040337','R12.1.3 Mandatory patch'
                  , '14098047','R12.1.3 OIE-RPC'
                  , '13563489','R12.1.3 PCARD-RPC'
                  , '7303033','REL12.1.2' 
                  , '7303030','REL12.1.1 Maint'
                  , '7283000','REL12.1.DELTA.1'
                  , '6728000','REL12.0.6'
                  , '7282993','REL12.0.5'
                  , '6435000','REL12.0.4'
                  , '6141000','REL12.0.3'
                  , '5484000','REL12.0.2'
                  , '5082400','REL12.0.1'
                  , '4440000','REL12'
                  , '9147733','R12.FIN_PF.B.DELTA.3'
                  , '8402900','R12.FIN_PF.B.DELTA.2'
                  , '7457000','R12.FIN_PF.B.DELTA.1'
                  , '4565490','R12.FIN_PF.B'
                  , '7294050','R12.FIN_PF.A.delta.6'
                  , '6836355','R12.FIN_PF.A.delta.5'
                  , '6493602','R12.FIN_PF.A.delta.4'
                  , '6251856','R12.FIN_PF.A.delta.3'
                  , '6000030','R12.FIN_PF.A.delta.2'
                  , '5884587','R12.FIN_PF.A.delta.1 - Internal'
                  , '4175000','R12.FIN_PF.A - Internal'
                  , '9244833','R12.OIE.B.DELTA.3'
                  , '8517003','R12.OIE.B.DELTA.2'
                  , '7456868','R12.OIE.B.DELTA.1'
                  , '4565278','R12.OIE.B'
                  , '7293853','R12.OIE.A.DELTA.6'
                  , '6833112','R12.OIE.A.DELTA.5'
                  , '6493806','R12.OIE.A.DELTA.4'
                  , '6250306','R12.OIE.A.DELTA.3'
                  , '5999618','R12.OIE.A.DELTA.2'
                  , '5884349','R12.OIE.A.DELTA.1'
                  , '4442891','R12.OIE.A'
                  ,'5348050','R12.AME.A'
                  ,'5889626','R12.AME.A.delta.1'
                  ,'5997203','R12.AME.A.delta.2'
                  ,'6196260','R12.AME.A.delta.3'
                  ,'6506440','R12.AME.A.delta.4'
                  ,'6835789','R12.AME.A.delta.5'
                  ,'7291407','R12.AME.A.delta.6'
                  ,'7644754','R12.AME.A.delta.7'
                  ,'6658013','R12.AME.B'
                  ,'7457049','R12.AME.B.delta.1'
                  ,'8496475','R12.AME.B.delta.2'
                  ,'9244273','R12.AME.B.delta.3'
                  ,'8649286','R12.AP.A.CPC July 2009') Patch_level
                  ,creation_date Date_applied
                  FROM AD_Bugs
                  WHERE Bug_Number IN
                  ('9239090'/*REL12.1.3*/
                  , '10040337'/*R12.1.3 Mandatory patch*/
                  , '14098047'/*R12.1.3 OIE-RPC*/
                  , '13563489'/*R12.1.3 PCARD-RPC*/
                  , '7303033'/*REL12.1.2*/
                  , '7303030'/*REL12.1.1 Maint Pack*/
                  , '7283000'/*REL12.1.DELTA.1*/
                  , '6728000'/*REL12.0.6*/
                  , '7282993'/*REL12.0.5*/
                  , '6435000'/*REL12.0.4*/
                  , '6141000'/*REL12.0.3*/
                  , '5484000'/*REL12.0.2*/ 
                  , '5082400'/*REL12.0.1*/
                  , '4440000'/*REL12*/
                  , '9147733'/*R12.FIN_PF.B.DELTA.3*/
                  , '8402900'/*R12.FIN_PF.B.DELTA.2*/
                  , '7457000'/*R12.FIN_PF.B.DELTA.1*/
                  , '4565490'/*R12.FIN_PF.B*/
                  , '7294050'/*R12.FIN_PF.A.delta.6*/
                  , '6836355'/*R12.FIN_PF.A.delta.5*/
                  , '6493602'/*R12.FIN_PF.A.delta.4*/
                  , '6251856'/*R12.FIN_PF.A.delta.3*/
                  , '6000030'/*R12.FIN_PF.A.delta.2*/
                  , '5884587'/*R12.FIN_PF.A.delta.1 - Internal*/
                  , '4175000'/*R12.FIN_PF.A - Internal*/
                  , '9244833'/*R12.OIE.B.DELTA.3*/
                  , '8517003'/*R12.OIE.B.DELTA.2*/
                  , '7456868'/*R12.OIE.B.DELTA.1*/
                  , '4565278'/*R12.OIE.B*/
                  , '7293853'/*R12.OIE.A.DELTA.6*/
                  , '6833112'/*R12.OIE.A.DELTA.5*/
                  , '6493806'/*R12.OIE.A.DELTA.4*/
                  , '6250306'/*R12.OIE.A.DELTA.3*/
                  , '5999618'/*R12.OIE.A.DELTA.2*/
                  , '5884349'/*R12.OIE.A.DELTA.1*/
                  , '4442891'/*R12.OIE.A*/
                  , '5348050'/*'R12.AME.A'*/
                  , '5889626'/*'R12.AME.A.delta.1'*/
                  , '5997203'/*'R12.AME.A.delta.2'*/
                  , '6196260'/*'R12.AME.A.delta.3'*/
                  , '6506440'/*'R12.AME.A.delta.4'*/
                  , '6835789'/*'R12.AME.A.delta.5'*/
                  , '7291407'/*'R12.AME.A.delta.6'*/
                  , '7644754'/*'R12.AME.A.delta.7'*/
                  , '6658013'/*'R12.AME.B'*/
                  , '7457049'/*'R12.AME.B.delta.1'*/
                  , '8496475'/*'R12.AME.B.delta.2'*/
                  , '9244273'/*'R12.AME.B.delta.3'*/
                  , '8649286'/*'R12.AP.A.CPC'*/)
                ORDER BY 2 DESC;


END_FILE

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