18. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2017 4:31:02 PM Central Standard Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

18.1 Files compared

# Location File Last Modified
1 PPS-N_B397.zip\PPS-N_B397\PPS-N_B397\PS_PPS_DataMgmt\src\main\resources\PPSN3.0\DDL\migration_scripts PPSN_3_migration_v11.sql Thu Nov 9 15:06:24 2017 UTC
2 PPS-N_B397.zip\PPS-N_B397\PPS-N_B397\PS_PPS_DataMgmt\src\main\resources\PPSN3.0\DDL\migration_scripts PPSN_3_migration_v11.sql Thu Nov 9 20:37:40 2017 UTC

18.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 7 10486
Changed 6 12
Inserted 0 0
Removed 0 0

18.3 Comparison options

Whitespace
Character case Differences in character case are significant
Line endings Differences in line endings (CR and LF characters) are ignored
CR/LF characters Not shown in the comparison detail

18.4 Active regular expressions

No regular expressions were active.

18.5 Comparison detail

  1   SET SERVER OUTPUT ON
  2   SET LINESI ZE 2000
  3   SET PAGESI ZE 60
  4   SPOOL PPSN _3_migrati on_v11.log  
  5  
  6   SELECT 'Mi gration St arted: ' | | CURRENT_ TIMESTAMP  FROM DUAL;
  7  
  8   SET ECHO O N
  9  
  10   REM ###### ########## ########## ########## ########## ########## ########## ########## #########
  11   REM #  Des cription:  CREATE PPS N v3 DATAB ASE OBJECT S
  12   REM #                 **** WITH  FMCT INTEG RATED ****
  13   REM #
  14   REM #   Us age:
  15   REM #   In put Parame ters:
  16   REM #   1)  None
  17   REM #   Ou tput:
  18   REM #   1)  Terminal
  19   REM #   In ternal Scr ipt Parame ters:
  20   REM #   1)  None
  21   REM ###### ########## ########## ########## ########## ########## ########## ########## ##########
  22   REM # Chan ge History
  23   REM #
  24   REM # DATE        Use r Name          DESCR IPTION
  25   REM # ---- ------ --- ---------- ---- ----- ---------- ---------- ---------- --------
  26   REM # 07/6        Dav id Lumb         Creat ed script
  27   REM # 11/1 7/2016 Dav id Lumb         Updat ed to inte grate FMCT  (Fixed Me dication C opay Tier)
  28   REM # 12/2 0/2016 Dav id Lumb         Updat ed to add  new indexe s for perf ormance im provements
  29   REM ###### ########## ########## ########## ########## ########## ########## ########## ##########
  30  
  31   DECLARE
  32  
  33      vc_sql_ statement           V ARCHAR2 (4 000);
  34      vc_errm                     V ARCHAR2 (6 4);
  35      vn_code                     N UMBER;
  36      vn_cont inue                N UMBER;
  37      
  38      vn_row_ count               N UMBER;
  39  
  40      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  41      -- NAME :          check_for_ PPSN_3
  42      -- TYPE :          Function
  43      -- DESC RIPTION:   Check to s ee if PPSN  3 objects  already c reated
  44      --                 - currentl y based on  sequence  count - on ly 1 in pr ior releas es
  45      -- INPU TS:        None
  46      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  47      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  48      FUNCTIO N check_fo r_PPSN_3
  49         RETU RN NUMBER
  50      IS
  51      BEGIN
  52         SELE CT COUNT ( *)
  53           IN TO vn_row_ count
  54           FR OM dba_seq uences
  55          WHE RE sequenc e_owner =  'PPSNEPL'
  56              AND sequen ce_name IN  ('EPL_ATC _CANISTERS _SEQ');
  57  
  58         IF v n_row_coun t > 1
  59         THEN
  60            R ETURN (1);
  61         END  IF;
  62  
  63         RETU RN (0);
  64      EXCEPTI ON
  65         WHEN  OTHERS
  66         THEN
  67            v n_code :=  SQLCODE;
  68            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  69            D BMS_OUTPUT .put_line  (
  70                'check_f or_PPSN_3:  Error cod e ' || vn_ code || ':  ' || vc_e rrm);
  71            s ys.DBMS_OU TPUT.put_l ine ('ERRO R   -   EX ITING SCRI PT...');
  72            R ETURN (1);
  73      END che ck_for_PPS N_3;
  74  
  75      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  76      -- NAME :          insert_upd ate_EPL_IE N_GEN
  77      -- TYPE :          Function
  78      -- DESC RIPTION:   Insert/upd ate EPL_EI N_GENERATO R based on  maxval +  1 of assoc iated tabl e
  79      --                 This is on ly used fo r the pack age sizes  IEN row in sert now f or insert,
  80      --                 and all ot hers for s imple rese t. Note we ll, packag e sizes st ill not
  81      --                 populated  at this ti me
  82      -- INPU TS:        None
  83      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  84      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  85          
  86       FUNCTI ON insert_ update_EPL _IEN_GEN
  87          RET URN NUMBER
  88       IS
  89          vc_ ien_drug_u nit          NUMBER;
  90          vc_ ien_dose_f orm          NUMBER;
  91          vc_ ien_ingred ient         NUMBER;
  92          vc_ ien_manufa cturer       NUMBER;
  93          vc_ ien_ndc                 NUMBER;
  94          vc_ ien_packag e_type       NUMBER;
  95          vc_ ien_produc t            NUMBER;
  96          vc_ ien_dispen se_unit      NUMBER;
  97          vc_ ien_drug_c lasses       NUMBER;
  98          vc_ ien_gen_na me           NUMBER;
  99          vc_ ien_packag e_size       NUMBER;
  100  
  101       BEGIN
  102         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  103         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  ins ert_update _EPL_IEN_G EN'); 
  104       
  105         SELE CT NVL(MAX (NDF_DRUGU NIT_IEN),1 )       IN TO vc_ien_ drug_unit             FROM PPSNE PL.EPL_DRU G_UNITS ;
  106         SELE CT NVL(MAX (DOSAGEFOR M_IEN),1)          IN TO vc_ien_ dose_form             FROM PPSNE PL.EPL_DOS AGE_FORMS  ;
  107         SELE CT NVL(MAX (NDF_INGRE DIENT_IEN) ,1)     IN TO vc_ien_ ingredient            FROM PPSNE PL.EPL_ING REDIENTS ;
  108         SELE CT NVL(MAX (NDF_MANUF ACTURER_IE N),1)   IN TO vc_ien_ manufactur er         FROM PPSNE PL.EPL_MAN UFACTURERS  ;
  109         SELE CT NVL(MAX (NDF_NDC_I EN),1)             IN TO vc_ien_ ndc                   FROM PPSNE PL.EPL_NDC S ;
  110         SELE CT NVL(MAX (NDF_PACKA GETYPE_IEN ),1)    IN TO vc_ien_ package_ty pe         FROM PPSNE PL.EPL_PAC KAGE_TYPES  ;
  111         SELE CT NVL(MAX (NDF_PRODU CT_IEN),1)         IN TO vc_ien_ product               FROM PPSNE PL.EPL_PRO DUCTS ;
  112         SELE CT NVL(MAX (NDF_DISPE NSEUNIT_IE N),1)   IN TO vc_ien_ dispense_u nit        FROM PPSNE PL.EPL_VA_ DISPENSE_U NITS ;
  113         SELE CT NVL(MAX (NDF_CLASS _IEN),1)           IN TO vc_ien_ drug_class es         FROM PPSNE PL.EPL_VA_ DRUG_CLASS ES ;
  114         SELE CT NVL(MAX (NDF_GENER IC_IEN),1)         IN TO vc_ien_ gen_name              FROM PPSNE PL.EPL_VA_ GEN_NAMES  ;
  115    
  116         vc_s ql_stateme nt := 'UPD ATE PPSNEP L.EPL_IEN_ GENERATOR  SET LAST_U SED_IEN =  '
  117            | |vc_ien_dr ug_unit
  118            | | ' WHERE  CONCEPT =  ''EPL_DRUG _UNITS'' ' ;
  119            
  120         EXEC UTE IMMEDI ATE vc_sql _statement ;
  121                 
  122         vc_s ql_stateme nt := 'UPD ATE PPSNEP L.EPL_IEN_ GENERATOR  SET LAST_U SED_IEN =  '
  123            | |vc_ien_do se_form
  124            | | ' WHERE  CONCEPT =  ''EPL_DOSA GE_FORMS''  ';
  125            
  126         EXEC UTE IMMEDI ATE vc_sql _statement ;
  127       
  128         vc_s ql_stateme nt := 'UPD ATE PPSNEP L.EPL_IEN_ GENERATOR  SET LAST_U SED_IEN = 
  129            | |vc_ien_in gredient
  130            | | ' WHERE  CONCEPT =  ''EPL_INGR EDIENTS''  ';
  131            
  132         EXEC UTE IMMEDI ATE vc_sql _statement ;
  133       
  134         vc_s ql_stateme nt := 'UPD ATE PPSNEP L.EPL_IEN_ GENERATOR  SET LAST_U SED_IEN =  '
  135            | |vc_ien_ma nufacturer
  136            | | ' WHERE  CONCEPT =  ''EPL_MANU FACTURERS' ' ';
  137            
  138         EXEC UTE IMMEDI ATE vc_sql _statement ;
  139         
  140         vc_s ql_stateme nt := 'UPD ATE PPSNEP L.EPL_IEN_ GENERATOR  SET LAST_U SED_IEN =  '
  141            | |vc_ien_nd c
  142            | | ' WHERE  CONCEPT =  ''EPL_NDCS '' ';
  143            
  144         EXEC UTE IMMEDI ATE vc_sql _statement ;
  145         
  146         vc_s ql_stateme nt := 'UPD ATE PPSNEP L.EPL_IEN_ GENERATOR  SET LAST_U SED_IEN =  '
  147            | |vc_ien_pa ckage_type
  148            | | ' WHERE  CONCEPT =  ''EPL_PACK AGE_TYPES' ' ';
  149            
  150         EXEC UTE IMMEDI ATE vc_sql _statement ;
  151         
  152         vc_s ql_stateme nt := 'UPD ATE PPSNEP L.EPL_IEN_ GENERATOR  SET LAST_U SED_IEN =  '
  153            | |vc_ien_pr oduct
  154            | | ' WHERE  CONCEPT =  ''EPL_PROD UCTS'' ';
  155            
  156         EXEC UTE IMMEDI ATE vc_sql _statement ;
  157         
  158         vc_s ql_stateme nt := 'UPD ATE PPSNEP L.EPL_IEN_ GENERATOR  SET LAST_U SED_IEN =  '
  159            | |vc_ien_di spense_uni t
  160            | |' WHERE C ONCEPT = ' 'EPL_VA_DI SPENSE_UNI TS'' ';
  161            
  162         EXEC UTE IMMEDI ATE vc_sql _statement ;
  163       
  164         vc_s ql_stateme nt := 'UPD ATE PPSNEP L.EPL_IEN_ GENERATOR  SET LAST_U SED_IEN =  '
  165            | |vc_ien_dr ug_classes
  166            | |' WHERE C ONCEPT = ' 'EPL_VA_DR UG_CLASSES '' ';
  167            
  168         EXEC UTE IMMEDI ATE vc_sql _statement ;
  169         
  170         vc_s ql_stateme nt := 'UPD ATE PPSNEP L.EPL_IEN_ GENERATOR  SET LAST_U SED_IEN =  '
  171            | |vc_ien_ge n_name
  172            | |' WHERE C ONCEPT = ' 'EPL_VA_GE N_NAMES''  ';
  173  
  174         EXEC UTE IMMEDI ATE vc_sql _statement ;
  175          
  176         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  inser t_update_E PL_IEN_GEN ');
  177         RETU RN (0);
  178      EXCEPTI ON
  179         WHEN  OTHERS
  180         THEN
  181            v n_code :=  SQLCODE;
  182            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  183            s ys.DBMS_OU TPUT.put_l ine (
  184                'insert_ update_EPL _IEN_GEN:  Error code  ' || vn_c ode || ':  ' || vc_er rm);
  185            s ys.DBMS_OU TPUT.put_l ine (
  186                'insert_ update_EPL _IEN_GEN:  last value  for vc_sq l_statemen t ');
  187            s ys.DBMS_OU TPUT.put_l ine (
  188                'insert_ update_EPL _IEN_GEN:  ' || vc_sq l_statemen t);
  189            R ETURN (1);
  190      END ins ert_update _EPL_IEN_G EN; 
  191  
  192  
  193      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  194      -- NAME :          drop_PPSN_ ROLE
  195      -- TYPE :          Function
  196      -- DESC RIPTION:   Drop old P PSN role u sed during  PPSN FMCT  migration
  197      -- INPU TS:        None
  198      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  199      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  200      FUNCTIO N drop_PPS N_ROLE
  201         RETU RN NUMBER
  202      IS
  203           
  204       BEGIN
  205         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  206         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  dro p_PPSN_ROL E'); 
  207  
  208         vc_s ql_stateme nt := 'DRO P ROLE PPS N_ROLE' ;
  209         EXEC UTE IMMEDI ATE vc_sql _statement ;
  210         DBMS _OUTPUT.pu t_line('Ex ecuted DRO P ROLE PPS N_ROLE') ;  
  211  
  212         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  drop_ PPSN_ROLE' );
  213  
  214         RETU RN (0);
  215      EXCEPTI ON
  216         WHEN  OTHERS
  217         THEN
  218            v n_code :=  SQLCODE;
  219            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  220            s ys.DBMS_OU TPUT.put_l ine (
  221                'drop_PP SN_ROLE: E rror code  ' || vn_co de || ': '  || vc_err m);
  222            s ys.DBMS_OU TPUT.put_l ine (
  223                'drop_PP SN_ROLE: l ast value  for vc_sql _statement  ');
  224            s ys.DBMS_OU TPUT.put_l ine (
  225                'drop_PP SN_ROLE: '  || vc_sql _statement );
  226            R ETURN (1);
  227      END dro p_PPSN_ROL E;  
  228  
  229      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  230      -- NAME :          create_PPS NEPL_UPDAT E_ROLE
  231      -- TYPE :          Function
  232      -- DESC RIPTION:   Create upd ate role
  233      -- INPU TS:        None
  234      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  235      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  236      FUNCTIO N create_P PSNEPL_UPD ATE_ROLE
  237         RETU RN NUMBER
  238      IS
  239           
  240       BEGIN
  241         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  242         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  cre ate_PPSNEP L_UPDATE_R OLE'); 
  243         
  244         vc_s ql_stateme nt := 'CRE ATE ROLE P PSNEPL_UPD ATE_ROLE N OT IDENTIF IED' ;
  245         EXEC UTE IMMEDI ATE vc_sql _statement ;
  246         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE ROLE P PSNEPL_UPD ATE_ROLE N OT IDENTIF IED') ; 
  247         
  248   -- Grant F DB_DIF rol e to PPSN  for FMCT
  249         
  250         vc_s ql_stateme nt := 'GRA NT FDB_DIF _UPDATE_US ER_ROLE TO  PPSNEPL_U PDATE_ROLE ' ;
  251         EXEC UTE IMMEDI ATE vc_sql _statement ;
  252         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT FDB_DIF _UPDATE_US ER_ROLE TO  PPSNEPL_U PDATE_ROLE ') ;         
  253  
  254         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_PPSNEPL_ UPDATE_ROL E');
  255  
  256         RETU RN (0);
  257      EXCEPTI ON
  258         WHEN  OTHERS
  259         THEN
  260            v n_code :=  SQLCODE;
  261            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  262            s ys.DBMS_OU TPUT.put_l ine (
  263                'create_ PPSNEPL_UP DATE_ROLE:  Error cod e ' || vn_ code || ':  ' || vc_e rrm);
  264            s ys.DBMS_OU TPUT.put_l ine (
  265                'create_ PPSNEPL_UP DATE_ROLE:  last valu e for vc_s ql_stateme nt ');
  266            s ys.DBMS_OU TPUT.put_l ine (
  267                'create_ PPSNEPL_UP DATE_ROLE:  ' || vc_s ql_stateme nt);
  268            R ETURN (1);
  269      END cre ate_PPSNEP L_UPDATE_R OLE;  
  270  
  271     
  272      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  273      -- NAME :          create_PPS NEPL_READ_ ONLY_ROLE
  274      -- TYPE :          Function
  275      -- DESC RIPTION:   Create rea d only rol e
  276      -- INPU TS:        None
  277      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  278      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  279      FUNCTIO N create_P PSNEPL_REA D_ONLY_ROL E
  280         RETU RN NUMBER
  281      IS
  282           
  283       BEGIN
  284         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  285         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  cre ate_PPSNEP L_READ_ONL Y_ROLE'); 
  286         
  287   /* CHANGES  DUE TO FM CT - ROLE  WILL ALREA DY EXIST -  DO NOT DR OP, JUST M ODIFY
  288         vc_s ql_stateme nt := 'DRO P ROLE PPS NEPL_READ_ ONLY_ROLE'  ;
  289         EXEC UTE IMMEDI ATE vc_sql _statement ;
  290         DBMS _OUTPUT.pu t_line('Ex ecuted DRO P ROLE PPS NEPL_READ_ ONLY_ROLE' ) ; 
  291                
  292         vc_s ql_stateme nt := 'CRE ATE ROLE P PSNEPL_REA D_ONLY_ROL E' ;
  293         EXEC UTE IMMEDI ATE vc_sql _statement ;
  294         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE ROLE P PSNEPL_REA D_ONLY_ROL E NOT IDEN TIFIED') ;  
  295   ** CHANGES  DUE TO FM CT - ROLE  WILL ALREA DY EXIST -  DO NOT DR OP, JUST M ODIFY */       
  296  
  297         vc_s ql_stateme nt := 'GRA NT PPSNEPL _READ_ONLY _ROLE TO P PSNEPL_REA D_ONLY' ;
  298         EXEC UTE IMMEDI ATE vc_sql _statement ;
  299         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT PPSNEPL _READ_ONLY _ROLE TO P PSNEPL_REA D_ONLY') ;  
  300  
  301   -- Grant F DB_DIF rol e to PPSN  for FMCT
  302  
  303         vc_s ql_stateme nt := 'GRA NT FDB_DIF _READ_ONLY _ROLE TO P PSNEPL_REA D_ONLY_ROL E' ;
  304         EXEC UTE IMMEDI ATE vc_sql _statement ;
  305         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT FDB_DIF _READ_ONLY _ROLE TO P PSNEPL_REA D_ONLY_ROL E') ;       
  306  
  307         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_PPSNEPL_ READ_ONLY_ ROLE');
  308  
  309         RETU RN (0);
  310      EXCEPTI ON
  311         WHEN  OTHERS
  312         THEN
  313            v n_code :=  SQLCODE;
  314            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  315            s ys.DBMS_OU TPUT.put_l ine (
  316                'create_ PPSNEPL_RE AD_ONLY_RO LE: Error  code ' ||  vn_code ||  ': ' || v c_errm);
  317            s ys.DBMS_OU TPUT.put_l ine (
  318                'create_ PPSNEPL_RE AD_ONLY_RO LE: last v alue for v c_sql_stat ement ');
  319            s ys.DBMS_OU TPUT.put_l ine (
  320                'create_ PPSNEPL_RE AD_ONLY_RO LE: ' || v c_sql_stat ement);
  321            R ETURN (1);
  322      END cre ate_PPSNEP L_READ_ONL Y_ROLE;  
  323  
  324       
  325      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  326      -- NAME :          create_PPS NEPL_UPDAT E_USER
  327      -- TYPE :          Function
  328      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  329      -- INPU TS:        None
  330      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  331      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  332      FUNCTIO N create_P PSNEPL_UPD ATE_USER
  333         RETU RN NUMBER
  334      IS
  335          
  336       BEGIN
  337         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  338         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  cre ate_PPSNEP L_UPDATE_U SER'); 
  339         
  340         vc_s ql_stateme nt :=
  341                'CREATE  USER PPSNE PL_UPDATE_ USER '
  342            | | 'IDENTIF IED BY &pw d '
  343            | | 'DEFAULT  TABLESPAC E PPSNEPL_ DATA '
  344            | | 'TEMPORA RY TABLESP ACE TEMP '
  345            | | 'PROFILE  SERVICE_A CCOUNT '
  346            | | 'ACCOUNT  UNLOCK ';
  347           
  348         EXEC UTE IMMEDI ATE vc_sql _statement ;
  349         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATED USER  PPSNEPL_UP DATE_USER' ) ; 
  350    
  351         vc_s ql_stateme nt := 'GRA NT PPSNEPL _UPDATE_RO LE TO PPSN EPL_UPDATE _USER' ;
  352         EXEC UTE IMMEDI ATE vc_sql _statement ;
  353         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT PPSNEPL _UPDATE_RO LE TO PPSN EPL_UPDATE _USER') ; 
  354         
  355         vc_s ql_stateme nt := 'GRA NT PPSNEPL _READ_ONLY _ROLE TO P PSNEPL_UPD ATE_USER'  ;
  356         EXEC UTE IMMEDI ATE vc_sql _statement ;
  357         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT PPSNEPL _READ_ONLY _ROLE TO P PSNEPL_UPD ATE_USER')  ; 
  358         
  359         vc_s ql_stateme nt := 'GRA NT CONNECT  TO PPSNEP L_UPDATE_U SER' ;
  360         EXEC UTE IMMEDI ATE vc_sql _statement ;
  361         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT CONNECT  TO PPSNEP L_UPDATE_U SER') ; 
  362         
  363         vc_s ql_stateme nt := 'ALT ER USER PP SNEPL_UPDA TE_USER DE FAULT ROLE  ALL' ;
  364         EXEC UTE IMMEDI ATE vc_sql _statement ;
  365         DBMS _OUTPUT.pu t_line('Ex ecuted ALT ER USER PP SNEPL_UPDA TE_USER DE FAULT ROLE  ALL') ; 
  366         
  367         vc_s ql_stateme nt := 'GRA NT UNLIMIT ED TABLESP ACE TO PPS NEPL_UPDAT E_USER' ;
  368         EXEC UTE IMMEDI ATE vc_sql _statement ;
  369         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT UNLIMIT ED TABLESP ACE TO PPS NEPL_UPDAT E_USER') ;  
  370         
  371         vc_s ql_stateme nt := 'ALT ER USER PP SNEPL_UPDA TE_USER QU OTA UNLIMI TED ON PPS NEPL_DATA'  ;
  372         EXEC UTE IMMEDI ATE vc_sql _statement ;
  373         DBMS _OUTPUT.pu t_line('Ex ecuted ALT ER USER PP SNEPL_UPDA TE_USER QU OTA UNLIMI TED ON PPS NEPL_DATA' ) ; 
  374        
  375         vc_s ql_stateme nt := 'GRA NT PPSNEPL _UPDATE_RO LE TO PPSN EPL_UPDATE _USER' ;
  376         EXEC UTE IMMEDI ATE vc_sql _statement ;
  377         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT PPSNEPL _UPDATE_RO LE TO PPSN EPL_UPDATE _USER') ; 
  378         
  379         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_PPSNEPL_ UPDATE_USE R');
  380  
  381         RETU RN (0);
  382      EXCEPTI ON
  383         WHEN  OTHERS
  384         THEN
  385            v n_code :=  SQLCODE;
  386            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  387            s ys.DBMS_OU TPUT.put_l ine (
  388                'create_ PPSNEPL_UP DATE_USER:  Error cod e ' || vn_ code || ':  ' || vc_e rrm);
  389            s ys.DBMS_OU TPUT.put_l ine (
  390                'create_ PPSNEPL_UP DATE_USER:  last valu e for vc_s ql_stateme nt ');
  391            s ys.DBMS_OU TPUT.put_l ine (
  392                'create_ PPSNEPL_UP DATE_USER:  ' || vc_s ql_stateme nt);
  393            R ETURN (1);
  394      END cre ate_PPSNEP L_UPDATE_U SER;  
  395         
  396     
  397      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  398      -- NAME :          EPL_ATC_CA NISTERS
  399      -- TYPE :          Function
  400      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  401      -- INPU TS:        None
  402      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  403      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  404      FUNCTIO N create_E PL_ATC_CAN ISTERS
  405         RETU RN NUMBER
  406      IS
  407         sequ ence_id NU MBER;
  408          
  409       BEGIN
  410         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  411         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  cre ate_EPL_AT C_CANISTER S'); 
  412  
  413         SELE CT NVL(MAX (ID), 0) +  1 INTO se quence_id  FROM PPSNE PL.EPL_ATC _CANISTERS ;
  414         
  415         vc_s ql_stateme nt := 'CRE ATE SEQUEN CE PPSNEPL .EPL_ATC_C ANISTERS_S EQ MINVALU E 1 MAXVAL UE 9999999 9999999999 9999999999 9 INCREMEN T BY 1 STA RT WITH '  || sequenc e_id || '  NOCACHE ';
  416         EXEC UTE IMMEDI ATE vc_sql _statement ;
  417         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE SEQUEN CE PPSNEPL .EPL_ATC_C ANISTERS_S EQ INCREME NT BY 1 ST ART WITH '  || sequen ce_id ) ;
  418         
  419         vc_s ql_stateme nt := 'GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_ATC_CANI STERS_SEQ  TO PPSNEPL _UPDATE_RO LE' ;
  420         EXEC UTE IMMEDI ATE vc_sql _statement ;
  421         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_ATC_CANI STERS_SEQ  TO PPSNEPL _UPDATE_RO LE') ;    
  422         
  423         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_ATC_CA NISTERS_SE Q FOR PPSN EPL.EPL_AT C_CANISTER S_SEQ' ;
  424         EXEC UTE IMMEDI ATE vc_sql _statement ;
  425         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_ATC_CA NISTERS_SE Q FOR PPSN EPL.EPL_AT C_CANISTER S_SEQ') ; 
  426  
  427         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_ATC_ CANISTERS' );
  428  
  429         RETU RN (0);
  430      EXCEPTI ON
  431         WHEN  OTHERS
  432         THEN
  433            v n_code :=  SQLCODE;
  434            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  435            s ys.DBMS_OU TPUT.put_l ine (
  436                'create_ EPL_ATC_CA NISTERS: E rror code  ' || vn_co de || ': '  || vc_err m);
  437            s ys.DBMS_OU TPUT.put_l ine (
  438                'create_ EPL_ATC_CA NISTERS: l ast value  for vc_sql _statement  ');
  439            s ys.DBMS_OU TPUT.put_l ine (
  440                'create_ EPL_ATC_CA NISTERS: '  || vc_sql _statement );
  441            R ETURN (1);
  442      END cre ate_EPL_AT C_CANISTER S;  
  443  
  444      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  445      -- NAME :          EPL_HOSPIT AL_LOCATIO NS
  446      -- TYPE :          Function
  447      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  448      -- INPU TS:        None
  449      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  450      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  451       FUNCTI ON create_ EPL_HOSPIT AL_LOCATIO NS
  452          RET URN NUMBER
  453       IS
  454          seq uence_id N UMBER;
  455       
  456       BEGIN
  457         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  458         sys. DBMS_OUTPU T.put_line  (
  459            ' INFORMATIO N -   STAR T:  create _EPL_HOSPI TAL_LOCATI ONS'); 
  460  
  461         SELE CT NVL(MAX (ID), 0) +  1 INTO se quence_id  FROM PPSNE PL.EPL_HOS PITAL_LOCA TIONS ;
  462       
  463         vc_s ql_stateme nt := 'CRE ATE SEQUEN CE PPSNEPL .EPL_HOSPI TAL_LOCATI ONS_SEQ MI NVALUE 1 M AXVALUE 99 9999999999 9999999999 999999 INC REMENT BY  1 START WI TH ' || se quence_id  || ' NOCAC HE ';
  464         EXEC UTE IMMEDI ATE vc_sql _statement ;
  465         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE SEQUEN CE PPSNEPL .EPL_HOSPI TAL_LOCATI ONS_SEQ IN CREMENT BY  1 START W ITH ' || s equence_id  ) ;
  466         
  467         vc_s ql_stateme nt := 'GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_HOSPITAL _LOCATIONS _SEQ TO PP SNEPL_UPDA TE_ROLE' ;
  468         EXEC UTE IMMEDI ATE vc_sql _statement ;
  469         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_HOSPITAL _LOCATIONS _SEQ TO PP SNEPL_UPDA TE_ROLE')  ;    
  470         
  471         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_HOSPIT AL_LOCATIO NS_SEQ FOR  PPSNEPL.E PL_HOSPITA L_LOCATION S_SEQ' ;
  472         EXEC UTE IMMEDI ATE vc_sql _statement ;
  473         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_HOSPIT AL_LOCATIO NS_SEQ FOR  PPSNEPL.E PL_HOSPITA L_LOCATION S_SEQ') ; 
  474      
  475         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_HOSP ITAL_LOCAT IONS');
  476         RETU RN (0);
  477      EXCEPTI ON
  478         WHEN  OTHERS
  479         THEN
  480            v n_code :=  SQLCODE;
  481            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  482            s ys.DBMS_OU TPUT.put_l ine (
  483                'create_ EPL_HOSPIT AL_LOCATIO NS: Error  code ' ||  vn_code ||  ': ' || v c_errm);
  484            s ys.DBMS_OU TPUT.put_l ine (
  485                'create_ EPL_HOSPIT AL_LOCATIO NS: last v alue for v c_sql_stat ement ');
  486            s ys.DBMS_OU TPUT.put_l ine (
  487                'create_ EPL_HOSPIT AL_LOCATIO NS: ' || v c_sql_stat ement);
  488            R ETURN (1);
  489      END cre ate_EPL_HO SPITAL_LOC ATIONS;  
  490      
  491      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  492      -- NAME :          EPL_IFCAP_ ITEM_NUMBE RS
  493      -- TYPE :          Function
  494      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  495      -- INPU TS:        None
  496      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  497      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  498       FUNCTI ON create_ EPL_IFCAP_ ITEM_NUMBE RS
  499          RET URN NUMBER
  500       IS
  501          seq uence_id N UMBER;
  502       
  503       BEGIN
  504         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  505         sys. DBMS_OUTPU T.put_line  (
  506            ' INFORMATIO N -   STAR T:  create _EPL_IFCAP _ITEM_NUMB ERS'); 
  507    
  508         SELE CT NVL(MAX (ID), 0) +  1 INTO se quence_id  FROM PPSNE PL.EPL_IFC AP_ITEM_NU MBERS ;
  509         
  510         vc_s ql_stateme nt := 'CRE ATE SEQUEN CE PPSNEPL .EPL_IFCAP _ITEM_NUMB ERS_SEQ MI NVALUE 1 M AXVALUE 99 9999999999 9999999999 999999 INC REMENT BY  1 START WI TH ' || se quence_id  || ' NOCAC HE ';
  511         EXEC UTE IMMEDI ATE vc_sql _statement ;
  512         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE SEQUEN CE PPSNEPL .EPL_IFCAP _ITEM_NUMB ERS_SEQ IN CREMENT BY  1 START W ITH ' || s equence_id  ) ;
  513         
  514         vc_s ql_stateme nt := 'GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_IFCAP_IT EM_NUMBERS _SEQ TO PP SNEPL_UPDA TE_ROLE' ;
  515         EXEC UTE IMMEDI ATE vc_sql _statement ;
  516         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_IFCAP_IT EM_NUMBERS _SEQ TO PP SNEPL_UPDA TE_ROLE')  ;    
  517         
  518         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_IFCAP_ ITEM_NUMBE RS_SEQ FOR  PPSNEPL.E PL_IFCAP_I TEM_NUMBER S_SEQ' ;
  519         EXEC UTE IMMEDI ATE vc_sql _statement ;
  520         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_IFCAP_ ITEM_NUMBE RS_SEQ FOR  PPSNEPL.E PL_IFCAP_I TEM_NUMBER S_SEQ') ; 
  521      
  522         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_IFCA P_ITEM_NUM BERS');
  523         RETU RN (0);
  524      EXCEPTI ON
  525         WHEN  OTHERS
  526         THEN
  527            v n_code :=  SQLCODE;
  528            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  529            s ys.DBMS_OU TPUT.put_l ine (
  530                'create_ EPL_IFCAP_ ITEM_NUMBE RS: Error  code ' ||  vn_code ||  ': ' || v c_errm);
  531            s ys.DBMS_OU TPUT.put_l ine (
  532                'create_ EPL_IFCAP_ ITEM_NUMBE RS: last v alue for v c_sql_stat ement ');
  533            s ys.DBMS_OU TPUT.put_l ine (
  534                'create_ EPL_IFCAP_ ITEM_NUMBE RS: ' || v c_sql_stat ement);
  535            R ETURN (1);
  536      END cre ate_EPL_IF CAP_ITEM_N UMBERS;  
  537  
  538      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  539      -- NAME :          EPL_ITEM_A UDIT_HIST_ DTL
  540      -- TYPE :          Function
  541      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  542      -- INPU TS:        None
  543      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  544      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  545       FUNCTI ON create_ EPL_ITEM_A UDIT_HIST_ DTL
  546          RET URN NUMBER
  547       IS
  548          seq uence_id N UMBER;
  549       
  550       BEGIN
  551         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  552         sys. DBMS_OUTPU T.put_line  (
  553            ' INFORMATIO N -   STAR T:  create _EPL_ITEM_ AUDIT_HIST _DTL'); 
  554  
  555         SELE CT NVL(MAX (EPL_ID),  0) + 1 INT O sequence _id FROM P PSNEPL.EPL _ITEM_AUDI T_HISTORY_ DETAILS ;
  556         
  557         vc_s ql_stateme nt := 'CRE ATE SEQUEN CE PPSNEPL .EPL_ITEM_ AUDIT_HIST _DTL_SEQ M INVALUE 1  MAXVALUE 9 9999999999 9999999999 9999999 IN CREMENT BY  1 START W ITH ' || s equence_id  || ' NOCA CHE ';
  558         EXEC UTE IMMEDI ATE vc_sql _statement ;
  559         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE SEQUEN CE PPSNEPL .EPL_ITEM_ AUDIT_HIST _DTL_SEQ I NCREMENT B Y 1 START  WITH ' ||  sequence_i d ) ;
  560         
  561         vc_s ql_stateme nt := 'GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_ITEM_AUD IT_HIST_DT L_SEQ TO P PSNEPL_UPD ATE_ROLE'  ;
  562         EXEC UTE IMMEDI ATE vc_sql _statement ;
  563         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_ITEM_AUD IT_HIST_DT L_SEQ TO P PSNEPL_UPD ATE_ROLE')  ;    
  564         
  565         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_ITEM_A UDIT_HIST_ DTL_SEQ FO R PPSNEPL. EPL_ITEM_A UDIT_HIST_ DTL_SEQ' ;
  566         EXEC UTE IMMEDI ATE vc_sql _statement ;
  567         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_ITEM_A UDIT_HIST_ DTL_SEQ FO R PPSNEPL. EPL_ITEM_A UDIT_HIST_ DTL_SEQ') 
  568         
  569         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_ITEM _AUDIT_HIS T_DTL');
  570         RETU RN (0);
  571      EXCEPTI ON
  572         WHEN  OTHERS
  573         THEN
  574            v n_code :=  SQLCODE;
  575            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  576            s ys.DBMS_OU TPUT.put_l ine (
  577                'create_ EPL_ITEM_A UDIT_HIST_ DTL: Error  code ' ||  vn_code | | ': ' ||  vc_errm);
  578            s ys.DBMS_OU TPUT.put_l ine (
  579                'create_ EPL_ITEM_A UDIT_HIST_ DTL: last  value for  vc_sql_sta tement ');
  580            s ys.DBMS_OU TPUT.put_l ine (
  581                'create_ EPL_ITEM_A UDIT_HIST_ DTL: ' ||  vc_sql_sta tement);
  582            R ETURN (1);
  583      END cre ate_EPL_IT EM_AUDIT_H IST_DTL;  
  584  
  585      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  586      -- NAME :          EPL_LABS
  587      -- TYPE :          Function
  588      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  589      -- INPU TS:        None
  590      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  591      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  592       FUNCTI ON create_ EPL_LABS
  593          RET URN NUMBER
  594       IS
  595          seq uence_id N UMBER;
  596       
  597       BEGIN
  598         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  599         sys. DBMS_OUTPU T.put_line  (
  600            ' INFORMATIO N -   STAR T:  create _EPL_LABS' ); 
  601  
  602         SELE CT NVL(MAX (ID), 0) +  1 INTO se quence_id  FROM PPSNE PL.EPL_LAB S ;
  603         
  604         vc_s ql_stateme nt := 'CRE ATE SEQUEN CE PPSNEPL .EPL_LABS_ SEQ MINVAL UE 1 MAXVA LUE 999999 9999999999 9999999999 99 INCREME NT BY 1 ST ART WITH '  || sequen ce_id || '  NOCACHE ' ;
  605         EXEC UTE IMMEDI ATE vc_sql _statement ;
  606         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE SEQUEN CE PPSNEPL .EPL_LABS_ SEQ INCREM ENT BY 1 S TART WITH  ' || seque nce_id ) ;
  607         
  608         vc_s ql_stateme nt := 'GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_LABS_SEQ  TO PPSNEP L_UPDATE_R OLE' ;
  609         EXEC UTE IMMEDI ATE vc_sql _statement ;
  610         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_LABS_SEQ  TO PPSNEP L_UPDATE_R OLE') ;     
  611         
  612         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_LABS_S EQ FOR PPS NEPL.EPL_L ABS_SEQ' ;
  613         EXEC UTE IMMEDI ATE vc_sql _statement ;
  614         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_LABS_S EQ FOR PPS NEPL.EPL_L ABS_SEQ')  ;  
  615  
  616         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_LABS ');
  617         RETU RN (0);
  618      EXCEPTI ON
  619         WHEN  OTHERS
  620         THEN
  621            v n_code :=  SQLCODE;
  622            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  623            s ys.DBMS_OU TPUT.put_l ine (
  624                'create_ EPL_LABS:  Error code  ' || vn_c ode || ':  ' || vc_er rm);
  625            s ys.DBMS_OU TPUT.put_l ine (
  626                'create_ EPL_LABS:  last value  for vc_sq l_statemen t ');
  627            s ys.DBMS_OU TPUT.put_l ine (
  628                'create_ EPL_LABS:  ' || vc_sq l_statemen t);
  629            R ETURN (1);
  630      END cre ate_EPL_LA BS;  
  631  
  632      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  633      -- NAME :          EPL_LOCAL_ POSSIBLE_D OSAGES
  634      -- TYPE :          Function
  635      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  636      -- INPU TS:        None
  637      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  638      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  639       FUNCTI ON create_ EPL_LOCAL_ POSS_DOSAG E
  640          RET URN NUMBER
  641       IS
  642          seq uence_id N UMBER;
  643       
  644       BEGIN
  645         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  646         sys. DBMS_OUTPU T.put_line  (
  647            ' INFORMATIO N -   STAR T:  create _EPL_LOCAL _POSS_DOSA GE'); 
  648  
  649         SELE CT NVL(MAX (ID), 0) +  1 INTO se quence_id  FROM PPSNE PL.EPL_LOC AL_POSSIBL E_DOSAGES  ;
  650         
  651         vc_s ql_stateme nt := 'CRE ATE SEQUEN CE PPSNEPL .EPL_LOCAL _POSSIBLE_ DOSAGES_SE Q MINVALUE  1 MAXVALU E 99999999 9999999999 9999999999  INCREMENT  BY 1 STAR T WITH ' | | sequence _id || ' N OCACHE ';
  652         EXEC UTE IMMEDI ATE vc_sql _statement ;
  653         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE SEQUEN CE PPSNEPL .EPL_LOCAL _POSSIBLE_ DOSAGES_SE Q INCREMEN T BY 1 STA RT WITH '  || sequenc e_id ) ;
  654         
  655         vc_s ql_stateme nt := 'GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_LOCAL_PO SSIBLE_DOS AGES_SEQ T O PPSNEPL_ UPDATE_ROL E' ;
  656         EXEC UTE IMMEDI ATE vc_sql _statement ;
  657         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_LOCAL_PO SSIBLE_DOS AGES_SEQ T O PPSNEPL_ UPDATE_ROL E') ;    
  658         
  659         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_LOCAL_ POSSIBLE_D OSAGES_SEQ  FOR PPSNE PL.EPL_LOC AL_POSSIBL E_DOSAGES_ SEQ' ;
  660         EXEC UTE IMMEDI ATE vc_sql _statement ;
  661         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_LOCAL_ POSSIBLE_D OSAGES_SEQ  FOR PPSNE PL.EPL_LOC AL_POSSIBL E_DOSAGES_ SEQ') ;  
  662         
  663         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_LOCA L_POSS_DOS AGE');
  664         RETU RN (0);
  665      EXCEPTI ON
  666         WHEN  OTHERS
  667         THEN
  668            v n_code :=  SQLCODE;
  669            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  670            s ys.DBMS_OU TPUT.put_l ine (
  671                'create_ EPL_LOCAL_ POSS_DOSAG E: Error c ode ' || v n_code ||  ': ' || vc _errm);
  672            s ys.DBMS_OU TPUT.put_l ine (
  673                'create_ EPL_LOCAL_ POSS_DOSAG E: last va lue for vc _sql_state ment ');
  674            s ys.DBMS_OU TPUT.put_l ine (
  675                'create_ EPL_LOCAL_ POSS_DOSAG E: ' || vc _sql_state ment);
  676            R ETURN (1);
  677      END cre ate_EPL_LO CAL_POSS_D OSAGE;  
  678  
  679      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  680      -- NAME :          EPL_MED_IN STRUCT_WAR DS
  681      -- TYPE :          Function
  682      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  683      -- INPU TS:        None
  684      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  685      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  686       FUNCTI ON create_ EPL_MED_IN STRUCT_WAR DS
  687          RET URN NUMBER
  688       IS
  689          seq uence_id N UMBER;
  690          
  691       BEGIN     
  692         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  693         sys. DBMS_OUTPU T.put_line  (
  694            ' INFORMATIO N -   STAR T:  create _EPL_MED_I NSTRUCT_WA RDS'); 
  695  
  696         SELE CT NVL(MAX (ID), 0) +  1 INTO se quence_id  FROM PPSNE PL.EPL_MED _INSTRUCT_ WARDS ;
  697         
  698         vc_s ql_stateme nt := 'CRE ATE SEQUEN CE PPSNEPL .EPL_MED_I NSTRUCT_WA RDS_SEQ MI NVALUE 1 M AXVALUE 99 9999999999 9999999999 999999 INC REMENT BY  1 START WI TH ' || se quence_id  || ' NOCAC HE ';
  699         EXEC UTE IMMEDI ATE vc_sql _statement ;
  700         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE SEQUEN CE PPSNEPL .EPL_MED_I NSTRUCT_WA RDS_SEQ IN CREMENT BY  1 START W ITH ' || s equence_id  ) ;
  701         
  702         vc_s ql_stateme nt := 'GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_MED_INST RUCT_WARDS _SEQ TO PP SNEPL_UPDA TE_ROLE' ;
  703         EXEC UTE IMMEDI ATE vc_sql _statement ;
  704         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_MED_INST RUCT_WARDS _SEQ TO PP SNEPL_UPDA TE_ROLE')  ;    
  705         
  706         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_MED_IN STRUCT_WAR DS_SEQ FOR  PPSNEPL.E PL_MED_INS TRUCT_WARD S_SEQ' ;
  707         EXEC UTE IMMEDI ATE vc_sql _statement ;
  708         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_MED_IN STRUCT_WAR DS_SEQ FOR  PPSNEPL.E PL_MED_INS TRUCT_WARD S_SEQ') ;   
  709         
  710         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_MED_ INSTRUCT_W ARDS');
  711         RETU RN (0);
  712      EXCEPTI ON
  713         WHEN  OTHERS
  714         THEN
  715            v n_code :=  SQLCODE;
  716            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  717            s ys.DBMS_OU TPUT.put_l ine (
  718                'create_ EPL_MED_IN STRUCT_WAR DS: Error  code ' ||  vn_code ||  ': ' || v c_errm);
  719            s ys.DBMS_OU TPUT.put_l ine (
  720                'create_ EPL_MED_IN STRUCT_WAR DS: last v alue for v c_sql_stat ement ');
  721            s ys.DBMS_OU TPUT.put_l ine (
  722                'create_ EPL_MED_IN STRUCT_WAR DS: ' || v c_sql_stat ement);
  723            R ETURN (1);
  724      END cre ate_EPL_ME D_INSTRUCT _WARDS;  
  725  
  726      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  727      -- NAME :          EPL_NATION AL_POSSIBL E_DOSAGES
  728      -- TYPE :          Function
  729      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  730      -- INPU TS:        None
  731      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  732      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  733       FUNCTI ON create_ EPL_NATION AL_POSS_DO SAG
  734          RET URN NUMBER
  735       IS
  736          seq uence_id N UMBER;
  737       
  738       BEGIN
  739         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  740         sys. DBMS_OUTPU T.put_line  (
  741            ' INFORMATIO N -   STAR T:  create _EPL_NATIO NAL_POSS_D OSAG'); 
  742  
  743         SELE CT NVL(MAX (ID), 0) +  1 INTO se quence_id  FROM PPSNE PL.EPL_NAT IONAL_POSS IBLE_DOSAG ES ;
  744         
  745         vc_s ql_stateme nt := 'CRE ATE SEQUEN CE PPSNEPL .EPL_NATIO NAL_POSSIB LE_DSGS_SE Q MINVALUE  1 MAXVALU E 99999999 9999999999 9999999999  INCREMENT  BY 1 STAR T WITH ' | | sequence _id || ' N OCACHE ';
  746         EXEC UTE IMMEDI ATE vc_sql _statement ;
  747         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE SEQUEN CE PPSNEPL .EPL_NATIO NAL_POSSIB LE_DSGS_SE Q INCREMEN T BY 1 STA RT WITH '  || sequenc e_id ) ;
  748         
  749         vc_s ql_stateme nt := 'GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_NATIONAL _POSSIBLE_ DSGS_SEQ T O PPSNEPL_ UPDATE_ROL E' ;
  750         EXEC UTE IMMEDI ATE vc_sql _statement ;
  751         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_NATIONAL _POSSIBLE_ DSGS_SEQ T O PPSNEPL_ UPDATE_ROL E') ;    
  752         
  753         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_NATION AL_POSSIBL E_DSGS_SEQ  FOR PPSNE PL.EPL_NAT IONAL_POSS IBLE_DSGS_ SEQ' ;
  754         EXEC UTE IMMEDI ATE vc_sql _statement ;
  755         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_NATION AL_POSSIBL E_DSGS_SEQ  FOR PPSNE PL.EPL_NAT IONAL_POSS IBLE_DSGS_ SEQ') ;  
  756    
  757         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_NATI ONAL_POSS_ DOSAG');
  758         RETU RN (0);
  759      EXCEPTI ON
  760         WHEN  OTHERS
  761         THEN
  762            v n_code :=  SQLCODE;
  763            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  764            s ys.DBMS_OU TPUT.put_l ine (
  765                'create_ EPL_NATION AL_POSS_DO SAG: Error  code ' ||  vn_code | | ': ' ||  vc_errm);
  766            s ys.DBMS_OU TPUT.put_l ine (
  767                'create_ EPL_NATION AL_POSS_DO SAG: last  value for  vc_sql_sta tement ');
  768            s ys.DBMS_OU TPUT.put_l ine (
  769                'create_ EPL_NATION AL_POSS_DO SAG: ' ||  vc_sql_sta tement);
  770            R ETURN (1);
  771      END cre ate_EPL_NA TIONAL_POS S_DOSAG;  
  772  
  773      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  774      -- NAME :          EPL_NDC_BY _OUTPATIEN T_SITE_NDC
  775      -- TYPE :          Function
  776      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  777      -- INPU TS:        None
  778      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  779      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  780       FUNCTI ON create_ EPL_NDC_BY _OTP_SITE_ NDC
  781          RET URN NUMBER
  782       IS
  783          seq uence_id N UMBER;
  784       
  785       BEGIN
  786         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  787         sys. DBMS_OUTPU T.put_line  (
  788            ' INFORMATIO N -   STAR T:  create _EPL_NDC_B Y_OTP_SITE _NDC'); 
  789  
  790         SELE CT NVL(MAX (ID), 0) +  1 INTO se quence_id  FROM PPSNE PL.EPL_NDC _BY_OUTPAT IENT_SITE_ NDC ;
  791         
  792         vc_s ql_stateme nt := 'CRE ATE SEQUEN CE PPSNEPL .EPL_NDC_B Y_OUTPAT_S ITE_NDC_SE Q MINVALUE  1 MAXVALU E 99999999 9999999999 9999999999  INCREMENT  BY 1 STAR T WITH ' | | sequence _id || ' N OCACHE ';
  793         EXEC UTE IMMEDI ATE vc_sql _statement ;
  794         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE SEQUEN CE PPSNEPL .EPL_NDC_B Y_OUTPAT_S ITE_NDC_SE Q INCREMEN T BY 1 STA RT WITH '  || sequenc e_id ) ;
  795         
  796         vc_s ql_stateme nt := 'GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_NDC_BY_O UTPAT_SITE _NDC_SEQ T O PPSNEPL_ UPDATE_ROL E' ;
  797         EXEC UTE IMMEDI ATE vc_sql _statement ;
  798         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_NDC_BY_O UTPAT_SITE _NDC_SEQ T O PPSNEPL_ UPDATE_ROL E') ;    
  799         
  800         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_NDC_BY _OUTPAT_SI TE_NDC_SEQ  FOR PPSNE PL.EPL_NDC _BY_OUTPAT _SITE_NDC_ SEQ' ;
  801         EXEC UTE IMMEDI ATE vc_sql _statement ;
  802         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_NDC_BY _OUTPAT_SI TE_NDC_SEQ  FOR PPSNE PL.EPL_NDC _BY_OUTPAT _SITE_NDC_ SEQ') ;  
  803      
  804         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_NDC_ BY_OTP_SIT E_NDC');
  805         RETU RN (0);
  806      EXCEPTI ON
  807         WHEN  OTHERS
  808         THEN
  809            v n_code :=  SQLCODE;
  810            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  811            s ys.DBMS_OU TPUT.put_l ine (
  812                'create_ EPL_NDC_BY _OTP_SITE_ NDC: Error  code ' ||  vn_code | | ': ' ||  vc_errm);
  813            s ys.DBMS_OU TPUT.put_l ine (
  814                'create_ EPL_NDC_BY _OTP_SITE_ NDC: last  value for  vc_sql_sta tement ');
  815            s ys.DBMS_OU TPUT.put_l ine (
  816                'create_ EPL_NDC_BY _OTP_SITE_ NDC: ' ||  vc_sql_sta tement);
  817            R ETURN (1);
  818      END cre ate_EPL_ND C_BY_OTP_S ITE_NDC;  
  819  
  820      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  821      -- NAME :          EPL_PARTIA L_SAVE_MGT
  822      -- TYPE :          Function
  823      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  824      -- INPU TS:        None
  825      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  826      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  827       FUNCTI ON create_ EPL_PARTIA L_SAVE_MGT
  828          RET URN NUMBER
  829       IS
  830          seq uence_id N UMBER;
  831       
  832       BEGIN
  833         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  834         sys. DBMS_OUTPU T.put_line  (
  835            ' INFORMATIO N -   STAR T:  create _EPL_PARTI AL_SAVE_MG T'); 
  836  
  837         SELE CT NVL(MAX (ID), 0) +  1 INTO se quence_id  FROM PPSNE PL.EPL_PAR TIAL_SAVE_ MGT ;
  838         
  839         vc_s ql_stateme nt := 'CRE ATE SEQUEN CE PPSNEPL .EPL_PARTI AL_SAVE_MG T_SEQ MINV ALUE 1 MAX VALUE 9999 9999999999 9999999999 9999 INCRE MENT BY 1  START WITH  ' || sequ ence_id ||  ' NOCACHE  ';
  840         EXEC UTE IMMEDI ATE vc_sql _statement ;
  841         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE SEQUEN CE PPSNEPL .EPL_PARTI AL_SAVE_MG T_SEQ INCR EMENT BY 1  START WIT H ' || seq uence_id )  ;
  842         
  843         vc_s ql_stateme nt := 'GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_PARTIAL_ SAVE_MGT_S EQ TO PPSN EPL_UPDATE _ROLE' ;
  844         EXEC UTE IMMEDI ATE vc_sql _statement ;
  845         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_PARTIAL_ SAVE_MGT_S EQ TO PPSN EPL_UPDATE _ROLE') ;     
  846         
  847         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PARTIA L_SAVE_MGT _SEQ FOR P PSNEPL.EPL _PARTIAL_S AVE_MGT_SE Q' ;
  848         EXEC UTE IMMEDI ATE vc_sql _statement ;
  849         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PARTIA L_SAVE_MGT _SEQ FOR P PSNEPL.EPL _PARTIAL_S AVE_MGT_SE Q') ;  
  850         
  851         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_PART IAL_SAVE_M GT');
  852         RETU RN (0);
  853      EXCEPTI ON
  854         WHEN  OTHERS
  855         THEN
  856            v n_code :=  SQLCODE;
  857            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  858            s ys.DBMS_OU TPUT.put_l ine (
  859                'create_ EPL_PARTIA L_SAVE_MGT : Error co de ' || vn _code || ' : ' || vc_ errm);
  860            s ys.DBMS_OU TPUT.put_l ine (
  861                'create_ EPL_PARTIA L_SAVE_MGT : last val ue for vc_ sql_statem ent ');
  862            s ys.DBMS_OU TPUT.put_l ine (
  863                'create_ EPL_PARTIA L_SAVE_MGT : ' || vc_ sql_statem ent);
  864            R ETURN (1);
  865      END cre ate_EPL_PA RTIAL_SAVE _MGT;  
  866  
  867      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  868      -- NAME :          EPL_PRODUC T_LABS
  869      -- TYPE :          Function
  870      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  871      -- INPU TS:        None
  872      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  873      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  874       FUNCTI ON create_ EPL_PRODUC T_LABS
  875          RET URN NUMBER
  876       IS
  877          seq uence_id N UMBER;
  878       
  879       BEGIN
  880         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  881         sys. DBMS_OUTPU T.put_line  (
  882            ' INFORMATIO N -   STAR T:  create _EPL_PRODU CT_LABS');  
  883  
  884         SELE CT NVL(MAX (ID), 0) +  1 INTO se quence_id  FROM PPSNE PL.EPL_PRO DUCT_LABS  ;
  885         
  886         vc_s ql_stateme nt := 'CRE ATE SEQUEN CE PPSNEPL .EPL_PRODU CT_LABS_SE Q MINVALUE  1 MAXVALU E 99999999 9999999999 9999999999  INCREMENT  BY 1 STAR T WITH ' | | sequence _id || ' N OCACHE ';
  887         EXEC UTE IMMEDI ATE vc_sql _statement ;
  888         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE SEQUEN CE PPSNEPL .EPL_PRODU CT_LABS_SE Q INCREMEN T BY 1 STA RT WITH '  || sequenc e_id ) ;
  889         
  890         vc_s ql_stateme nt := 'GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_PRODUCT_ LABS_SEQ T O PPSNEPL_ UPDATE_ROL E' ;
  891         EXEC UTE IMMEDI ATE vc_sql _statement ;
  892         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_PRODUCT_ LABS_SEQ T O PPSNEPL_ UPDATE_ROL E') ;    
  893         
  894         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PRODUC T_LABS_SEQ  FOR PPSNE PL.EPL_PRO DUCT_LABS_ SEQ' ;
  895         EXEC UTE IMMEDI ATE vc_sql _statement ;
  896         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PRODUC T_LABS_SEQ  FOR PPSNE PL.EPL_PRO DUCT_LABS_ SEQ') ;  
  897       
  898         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_PROD UCT_LABS') ;
  899         RETU RN (0);
  900      EXCEPTI ON
  901         WHEN  OTHERS
  902         THEN
  903            v n_code :=  SQLCODE;
  904            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  905            s ys.DBMS_OU TPUT.put_l ine (
  906                'create_ EPL_PRODUC T_LABS: Er ror code '  || vn_cod e || ': '  || vc_errm );
  907            s ys.DBMS_OU TPUT.put_l ine (
  908                'create_ EPL_PRODUC T_LABS: la st value f or vc_sql_ statement  ');
  909            s ys.DBMS_OU TPUT.put_l ine (
  910                'create_ EPL_PRODUC T_LABS: '  || vc_sql_ statement) ;
  911            R ETURN (1);
  912      END cre ate_EPL_PR ODUCT_LABS ;  
  913  
  914      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  915      -- NAME :          EPL_PRODUC T_VITALS
  916      -- TYPE :          Function
  917      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  918      -- INPU TS:        None
  919      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  920      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  921       FUNCTI ON create_ EPL_PRODUC T_VITALS
  922          RET URN NUMBER
  923       IS
  924          seq uence_id N UMBER;
  925       
  926       BEGIN
  927         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  928         sys. DBMS_OUTPU T.put_line  (
  929            ' INFORMATIO N -   STAR T:  create _EPL_PRODU CT_VITALS' ); 
  930  
  931         SELE CT NVL(MAX (ID), 0) +  1 INTO se quence_id  FROM PPSNE PL.EPL_PRO DUCT_VITAL S ;
  932         
  933         vc_s ql_stateme nt := 'CRE ATE SEQUEN CE PPSNEPL .EPL_PRODU CT_VITALS_ SEQ MINVAL UE 1 MAXVA LUE 999999 9999999999 9999999999 99 INCREME NT BY 1 ST ART WITH '  || sequen ce_id || '  NOCACHE ' ;
  934         EXEC UTE IMMEDI ATE vc_sql _statement ;
  935         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE SEQUEN CE PPSNEPL .EPL_PRODU CT_VITALS_ SEQ INCREM ENT BY 1 S TART WITH  ' || seque nce_id ) ;
  936         
  937         vc_s ql_stateme nt := 'GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_PRODUCT_ VITALS_SEQ  TO PPSNEP L_UPDATE_R OLE' ;
  938         EXEC UTE IMMEDI ATE vc_sql _statement ;
  939         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_PRODUCT_ VITALS_SEQ  TO PPSNEP L_UPDATE_R OLE') ;     
  940         
  941         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PRODUC T_VITALS_S EQ FOR PPS NEPL.EPL_P RODUCT_VIT ALS_SEQ' ;
  942         EXEC UTE IMMEDI ATE vc_sql _statement ;
  943         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PRODUC T_VITALS_S EQ FOR PPS NEPL.EPL_P RODUCT_VIT ALS_SEQ')  ;  
  944  
  945         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_PROD UCT_VITALS ');
  946         RETU RN (0);
  947      EXCEPTI ON
  948         WHEN  OTHERS
  949         THEN
  950            v n_code :=  SQLCODE;
  951            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  952            s ys.DBMS_OU TPUT.put_l ine (
  953                'create_ EPL_PRODUC T_VITALS:  Error code  ' || vn_c ode || ':  ' || vc_er rm);
  954            s ys.DBMS_OU TPUT.put_l ine (
  955                'create_ EPL_PRODUC T_VITALS:  last value  for vc_sq l_statemen t ');
  956            s ys.DBMS_OU TPUT.put_l ine (
  957                'create_ EPL_PRODUC T_VITALS:  ' || vc_sq l_statemen t);
  958            R ETURN (1);
  959      END cre ate_EPL_PR ODUCT_VITA LS;  
  960  
  961      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  962      -- NAME :          EPL_REQUES T_DETAILS
  963      -- TYPE :          Function
  964      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  965      -- INPU TS:        None
  966      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  967      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  968       FUNCTI ON create_ EPL_REQUES T_DETAILS
  969          RET URN NUMBER
  970       IS
  971          seq uence_id N UMBER;
  972       
  973       BEGIN
  974         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  975         sys. DBMS_OUTPU T.put_line  (
  976            ' INFORMATIO N -   STAR T:  create _EPL_REQUE ST_DETAILS '); 
  977  
  978         SELE CT NVL(MAX (ID), 0) +  1 INTO se quence_id  FROM PPSNE PL.EPL_REQ UEST_DETAI LS ;
  979         
  980         vc_s ql_stateme nt := 'CRE ATE SEQUEN CE PPSNEPL .EPL_REQUE ST_DETAILS _SEQ MINVA LUE 1 MAXV ALUE 99999 9999999999 9999999999 999 INCREM ENT BY 1 S TART WITH  ' || seque nce_id ||  ' NOCACHE  ';
  981         EXEC UTE IMMEDI ATE vc_sql _statement ;
  982         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE SEQUEN CE PPSNEPL .EPL_REQUE ST_DETAILS _SEQ INCRE MENT BY 1  START WITH  ' || sequ ence_id )  ;
  983         
  984         vc_s ql_stateme nt := 'GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_REQUEST_ DETAILS_SE Q TO PPSNE PL_UPDATE_ ROLE' ;
  985         EXEC UTE IMMEDI ATE vc_sql _statement ;
  986         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_REQUEST_ DETAILS_SE Q TO PPSNE PL_UPDATE_ ROLE') ;     
  987         
  988         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_REQUES T_DETAILS_ SEQ FOR PP SNEPL.EPL_ REQUEST_DE TAILS_SEQ'  ;
  989         EXEC UTE IMMEDI ATE vc_sql _statement ;
  990         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_REQUES T_DETAILS_ SEQ FOR PP SNEPL.EPL_ REQUEST_DE TAILS_SEQ' ) ;  
  991  
  992         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_REQU EST_DETAIL S');
  993         RETU RN (0);
  994      EXCEPTI ON
  995         WHEN  OTHERS
  996         THEN
  997            v n_code :=  SQLCODE;
  998            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  999            s ys.DBMS_OU TPUT.put_l ine (
  1000                'create_ EPL_REQUES T_DETAILS:  Error cod e ' || vn_ code || ':  ' || vc_e rrm);
  1001            s ys.DBMS_OU TPUT.put_l ine (
  1002                'create_ EPL_REQUES T_DETAILS:  last valu e for vc_s ql_stateme nt ');
  1003            s ys.DBMS_OU TPUT.put_l ine (
  1004                'create_ EPL_REQUES T_DETAILS:  ' || vc_s ql_stateme nt);
  1005            R ETURN (1);
  1006      END cre ate_EPL_RE QUEST_DETA ILS;  
  1007  
  1008      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  1009      -- NAME :          EPL_REQUES TS
  1010      -- TYPE :          Function
  1011      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  1012      -- INPU TS:        None
  1013      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  1014      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  1015       FUNCTI ON create_ EPL_REQUES TS
  1016          RET URN NUMBER
  1017       IS
  1018          seq uence_id N UMBER;
  1019       
  1020       BEGIN
  1021         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  1022         sys. DBMS_OUTPU T.put_line  (
  1023            ' INFORMATIO N -   STAR T:  create _EPL_REQUE STS'); 
  1024  
  1025         SELE CT NVL(MAX (ID), 0) +  1 INTO se quence_id  FROM PPSNE PL.EPL_REQ UESTS ;
  1026         
  1027         vc_s ql_stateme nt := 'CRE ATE SEQUEN CE PPSNEPL .EPL_REQUE STS_SEQ MI NVALUE 1 M AXVALUE 99 9999999999 9999999999 999999 INC REMENT BY  1 START WI TH ' || se quence_id  || ' NOCAC HE ';
  1028         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1029         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE SEQUEN CE PPSNEPL .EPL_REQUE STS_SEQ IN CREMENT BY  1 START W ITH ' || s equence_id  ) ;
  1030         
  1031         vc_s ql_stateme nt := 'GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_REQUESTS _SEQ TO PP SNEPL_UPDA TE_ROLE' ;
  1032         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1033         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_REQUESTS _SEQ TO PP SNEPL_UPDA TE_ROLE')  ;    
  1034         
  1035         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_REQUES TS_SEQ FOR  PPSNEPL.E PL_REQUEST S_SEQ' ;
  1036         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1037         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_REQUES TS_SEQ FOR  PPSNEPL.E PL_REQUEST S_SEQ') ;   
  1038  
  1039         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_REQU ESTS');
  1040         RETU RN (0);
  1041      EXCEPTI ON
  1042         WHEN  OTHERS
  1043         THEN
  1044            v n_code :=  SQLCODE;
  1045            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  1046            s ys.DBMS_OU TPUT.put_l ine (
  1047                'create_ EPL_REQUES TS: Error  code ' ||  vn_code ||  ': ' || v c_errm);
  1048            s ys.DBMS_OU TPUT.put_l ine (
  1049                'create_ EPL_REQUES TS: last v alue for v c_sql_stat ement ');
  1050            s ys.DBMS_OU TPUT.put_l ine (
  1051                'create_ EPL_REQUES TS: ' || v c_sql_stat ement);
  1052            R ETURN (1);
  1053      END cre ate_EPL_RE QUESTS;  
  1054  
  1055      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  1056      -- NAME :          EPL_SITE_U PDATE_SCHE DULES
  1057      -- TYPE :          Function
  1058      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  1059      -- INPU TS:        None
  1060      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  1061      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  1062       FUNCTI ON create_ EPL_SITE_U PDT_SCHEDU LES
  1063          RET URN NUMBER
  1064       IS
  1065          seq uence_id N UMBER;
  1066       
  1067       BEGIN
  1068         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  1069         sys. DBMS_OUTPU T.put_line  (
  1070            ' INFORMATIO N -   STAR T:  create _EPL_SITE_ UPDT_SCHED ULES'); 
  1071  
  1072         SELE CT NVL(MAX (ID), 0) +  1 INTO se quence_id  FROM PPSNE PL.EPL_SIT E_UPDATE_S CHEDULES ;
  1073         
  1074         vc_s ql_stateme nt := 'CRE ATE SEQUEN CE PPSNEPL .EPL_SITE_ UPDATE_SCH EDULES_SEQ  MINVALUE  1 MAXVALUE  999999999 9999999999 999999999  INCREMENT  BY 1 START  WITH ' ||  sequence_ id || ' NO CACHE ';
  1075         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1076         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE SEQUEN CE PPSNEPL .EPL_SITE_ UPDATE_SCH EDULES_SEQ  INCREMENT  BY 1 STAR T WITH ' | | sequence _id ) ;
  1077         
  1078         vc_s ql_stateme nt := 'GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_SITE_UPD ATE_SCHEDU LES_SEQ TO  PPSNEPL_U PDATE_ROLE ' ;
  1079         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1080         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_SITE_UPD ATE_SCHEDU LES_SEQ TO  PPSNEPL_U PDATE_ROLE ') ;    
  1081         
  1082         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_SITE_U PDATE_SCHE DULES_SEQ  FOR PPSNEP L.EPL_SITE _UPDATE_SC HEDULES_SE Q' ;
  1083         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1084         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_SITE_U PDATE_SCHE DULES_SEQ  FOR PPSNEP L.EPL_SITE _UPDATE_SC HEDULES_SE Q') ;  
  1085  
  1086         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_SITE _UPDT_SCHE DULES');
  1087         RETU RN (0);
  1088      EXCEPTI ON
  1089         WHEN  OTHERS
  1090         THEN
  1091            v n_code :=  SQLCODE;
  1092            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  1093            s ys.DBMS_OU TPUT.put_l ine (
  1094                'create_ EPL_SITE_U PDT_SCHEDU LES: Error  code ' ||  vn_code | | ': ' ||  vc_errm);
  1095            s ys.DBMS_OU TPUT.put_l ine (
  1096                'create_ EPL_SITE_U PDT_SCHEDU LES: last  value for  vc_sql_sta tement ');
  1097            s ys.DBMS_OU TPUT.put_l ine (
  1098                'create_ EPL_SITE_U PDT_SCHEDU LES: ' ||  vc_sql_sta tement);
  1099            R ETURN (1);
  1100      END cre ate_EPL_SI TE_UPDT_SC HEDULES;  
  1101  
  1102      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  1103      -- NAME :          EPL_SYNONY MS
  1104      -- TYPE :          Function
  1105      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  1106      -- INPU TS:        None
  1107      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  1108      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  1109       FUNCTI ON create_ EPL_SYNONY MS
  1110          RET URN NUMBER
  1111       IS
  1112          seq uence_id N UMBER;
  1113       
  1114       BEGIN
  1115         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  1116         sys. DBMS_OUTPU T.put_line  (
  1117            ' INFORMATIO N -   STAR T:  create _EPL_SYNON YMS'); 
  1118  
  1119         SELE CT NVL(MAX (ID), 0) +  1 INTO se quence_id  FROM PPSNE PL.EPL_SYN ONYMS ;
  1120         
  1121         vc_s ql_stateme nt := 'CRE ATE SEQUEN CE PPSNEPL .EPL_SYNON YMS_SEQ MI NVALUE 1 M AXVALUE 99 9999999999 9999999999 999999 INC REMENT BY  1 START WI TH ' || se quence_id  || ' NOCAC HE ';
  1122         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1123         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE SEQUEN CE PPSNEPL .EPL_SYNON YMS_SEQ IN CREMENT BY  1 START W ITH ' || s equence_id  ) ;
  1124         
  1125         vc_s ql_stateme nt := 'GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_SYNONYMS _SEQ TO PP SNEPL_UPDA TE_ROLE' ;
  1126         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1127         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_SYNONYMS _SEQ TO PP SNEPL_UPDA TE_ROLE')  ;    
  1128         
  1129         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_SYNONY MS_SEQ FOR  PPSNEPL.E PL_SYNONYM S_SEQ' ;
  1130         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1131         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_SYNONY MS_SEQ FOR  PPSNEPL.E PL_SYNONYM S_SEQ') ;   
  1132  
  1133         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_SYNO NYMS');
  1134         RETU RN (0);
  1135      EXCEPTI ON
  1136         WHEN  OTHERS
  1137         THEN
  1138            v n_code :=  SQLCODE;
  1139            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  1140            s ys.DBMS_OU TPUT.put_l ine (
  1141                'create_ EPL_SYNONY MS: Error  code ' ||  vn_code ||  ': ' || v c_errm);
  1142            s ys.DBMS_OU TPUT.put_l ine (
  1143                'create_ EPL_SYNONY MS: last v alue for v c_sql_stat ement ');
  1144            s ys.DBMS_OU TPUT.put_l ine (
  1145                'create_ EPL_SYNONY MS: ' || v c_sql_stat ement);
  1146            R ETURN (1);
  1147      END cre ate_EPL_SY NONYMS;  
  1148  
  1149      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  1150      -- NAME :          EPL_VITALS
  1151      -- TYPE :          Function
  1152      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  1153      -- INPU TS:        None
  1154      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  1155      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  1156       FUNCTI ON create_ EPL_VITALS
  1157          RET URN NUMBER
  1158       IS
  1159          seq uence_id N UMBER;
  1160       
  1161       BEGIN
  1162         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  1163         sys. DBMS_OUTPU T.put_line  (
  1164            ' INFORMATIO N -   STAR T:  create _EPL_VITAL S'); 
  1165  
  1166         SELE CT NVL(MAX (ID), 0) +  1 INTO se quence_id  FROM PPSNE PL.EPL_VIT ALS ;
  1167         
  1168         vc_s ql_stateme nt := 'CRE ATE SEQUEN CE PPSNEPL .EPL_VITAL S_SEQ MINV ALUE 1 MAX VALUE 9999 9999999999 9999999999 9999 INCRE MENT BY 1  START WITH  ' || sequ ence_id ||  ' NOCACHE  ';
  1169         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1170         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE SEQUEN CE PPSNEPL .EPL_VITAL S_SEQ INCR EMENT BY 1  START WIT H ' || seq uence_id )  ;
  1171         
  1172         vc_s ql_stateme nt := 'GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_VITALS_S EQ TO PPSN EPL_UPDATE _ROLE' ;
  1173         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1174         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_VITALS_S EQ TO PPSN EPL_UPDATE _ROLE') ;     
  1175         
  1176         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VITALS _SEQ FOR P PSNEPL.EPL _VITALS_SE Q' ;
  1177         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1178         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VITALS _SEQ FOR P PSNEPL.EPL _VITALS_SE Q') ;  
  1179  
  1180         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_VITA LS');
  1181         RETU RN (0);
  1182      EXCEPTI ON
  1183         WHEN  OTHERS
  1184         THEN
  1185            v n_code :=  SQLCODE;
  1186            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  1187            s ys.DBMS_OU TPUT.put_l ine (
  1188                'create_ EPL_VITALS : Error co de ' || vn _code || ' : ' || vc_ errm);
  1189            s ys.DBMS_OU TPUT.put_l ine (
  1190                'create_ EPL_VITALS : last val ue for vc_ sql_statem ent ');
  1191            s ys.DBMS_OU TPUT.put_l ine (
  1192                'create_ EPL_VITALS : ' || vc_ sql_statem ent);
  1193            R ETURN (1);
  1194      END cre ate_EPL_VI TALS;  
  1195  
  1196      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  1197      -- NAME :          EPL_WARDS
  1198      -- TYPE :          Function
  1199      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  1200      -- INPU TS:        None
  1201      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  1202      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  1203       FUNCTI ON create_ EPL_WARDS
  1204          RET URN NUMBER
  1205       IS
  1206          seq uence_id N UMBER;
  1207       
  1208       BEGIN
  1209         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  1210         sys. DBMS_OUTPU T.put_line  (
  1211            ' INFORMATIO N -   STAR T:  create _EPL_WARDS '); 
  1212  
  1213         SELE CT NVL(MAX (ID), 0) +  1 INTO se quence_id  FROM PPSNE PL.EPL_WAR DS ;
  1214         
  1215         vc_s ql_stateme nt := 'CRE ATE SEQUEN CE PPSNEPL .EPL_WARDS _SEQ MINVA LUE 1 MAXV ALUE 99999 9999999999 9999999999 999 INCREM ENT BY 1 S TART WITH  ' || seque nce_id ||  ' NOCACHE  ';
  1216         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1217         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE SEQUEN CE PPSNEPL .EPL_WARDS _SEQ INCRE MENT BY 1  START WITH  ' || sequ ence_id )  ;
  1218         
  1219         vc_s ql_stateme nt := 'GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_WARDS_SE Q TO PPSNE PL_UPDATE_ ROLE' ;
  1220         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1221         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_WARDS_SE Q TO PPSNE PL_UPDATE_ ROLE') ;     
  1222         
  1223         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_WARDS_ SEQ FOR PP SNEPL.EPL_ WARDS_SEQ'  ;
  1224         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1225         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_WARDS_ SEQ FOR PP SNEPL.EPL_ WARDS_SEQ' ) ;  
  1226  
  1227         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_WARD S');
  1228         RETU RN (0);
  1229      EXCEPTI ON
  1230         WHEN  OTHERS
  1231         THEN
  1232            v n_code :=  SQLCODE;
  1233            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  1234            s ys.DBMS_OU TPUT.put_l ine (
  1235                'create_ EPL_WARDS:  Error cod e ' || vn_ code || ':  ' || vc_e rrm);
  1236            s ys.DBMS_OU TPUT.put_l ine (
  1237                'create_ EPL_WARDS:  last valu e for vc_s ql_stateme nt ');
  1238            s ys.DBMS_OU TPUT.put_l ine (
  1239                'create_ EPL_WARDS:  ' || vc_s ql_stateme nt);
  1240            R ETURN (1);
  1241      END cre ate_EPL_WA RDS;  
  1242  
  1243      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  1244      -- NAME :          EPL_STATUS
  1245      -- TYPE :          Function
  1246      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  1247      -- INPU TS:        None
  1248      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  1249      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  1250       FUNCTI ON create_ EPL_STATUS
  1251          RET URN NUMBER
  1252       IS
  1253          seq uence_id N UMBER;
  1254       
  1255       BEGIN
  1256         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  1257         sys. DBMS_OUTPU T.put_line  (
  1258            ' INFORMATIO N -   STAR T:  create _EPL_STATU S'); 
  1259  
  1260         SELE CT NVL(MAX (STATUS_ID ), 0) + 1  INTO seque nce_id FRO M PPSNEPL. EPL_STATUS  ;
  1261         
  1262         vc_s ql_stateme nt := 'CRE ATE SEQUEN CE PPSNEPL .EPL_STATU S_SEQ MINV ALUE 1 MAX VALUE 9999 9999999999 9999999999 9999 INCRE MENT BY 1  START WITH  ' || sequ ence_id ||  ' NOCACHE  ';
  1263         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1264         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE SEQUEN CE PPSNEPL .EPL_STATU S_SEQ INCR EMENT BY 1  START WIT H ' || seq uence_id )  ;
  1265         
  1266         vc_s ql_stateme nt := 'GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_STATUS_S EQ TO PPSN EPL_UPDATE _ROLE' ;
  1267         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1268         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_STATUS_S EQ TO PPSN EPL_UPDATE _ROLE') ;     
  1269         
  1270         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_STATUS _SEQ FOR P PSNEPL.EPL _STATUS_SE Q' ;
  1271         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1272         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_STATUS _SEQ FOR P PSNEPL.EPL _STATUS_SE Q') ;  
  1273  
  1274         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_STAT US');
  1275         RETU RN (0);
  1276      EXCEPTI ON
  1277         WHEN  OTHERS
  1278         THEN
  1279            v n_code :=  SQLCODE;
  1280            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  1281            s ys.DBMS_OU TPUT.put_l ine (
  1282                'create_ EPL_STATUS : Error co de ' || vn _code || ' : ' || vc_ errm);
  1283            s ys.DBMS_OU TPUT.put_l ine (
  1284                'create_ EPL_STATUS : last val ue for vc_ sql_statem ent ');
  1285            s ys.DBMS_OU TPUT.put_l ine (
  1286                'create_ EPL_STATUS : ' || vc_ sql_statem ent);
  1287            R ETURN (1);
  1288      END cre ate_EPL_ST ATUS;  
  1289  
  1290      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  1291      -- NAME :          EPL_VISTA_ STATUS
  1292      -- TYPE :          Function
  1293      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  1294      -- INPU TS:        None
  1295      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  1296      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  1297       FUNCTI ON create_ EPL_VISTA_ STATUS
  1298          RET URN NUMBER
  1299       IS
  1300          seq uence_id N UMBER;
  1301       
  1302       BEGIN
  1303         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  1304         sys. DBMS_OUTPU T.put_line  (
  1305            ' INFORMATIO N -   STAR T:  create _EPL_VISTA _STATUS');  
  1306  
  1307         SELE CT NVL(MAX (VISTA_STA TUS_ID), 0 ) + 1 INTO  sequence_ id FROM PP SNEPL.EPL_ VISTA_STAT US ;
  1308         
  1309         vc_s ql_stateme nt := 'CRE ATE SEQUEN CE PPSNEPL .EPL_VISTA _STATUS_SE Q MINVALUE  1 MAXVALU E 99999999 9999999999 9999999999  INCREMENT  BY 1 STAR T WITH ' | | sequence _id || ' N OCACHE ';
  1310         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1311         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE SEQUEN CE PPSNEPL .EPL_VISTA _STATUS_SE Q INCREMEN T BY 1 STA RT WITH '  || sequenc e_id ) ;
  1312         
  1313         vc_s ql_stateme nt := 'GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_VISTA_ST ATUS_SEQ T O PPSNEPL_ UPDATE_ROL E' ;
  1314         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1315         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_VISTA_ST ATUS_SEQ T O PPSNEPL_ UPDATE_ROL E') ;    
  1316         
  1317         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VISTA_ STATUS_SEQ  FOR PPSNE PL.EPL_VIS TA_STATUS_ SEQ' ;
  1318         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1319         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VISTA_ STATUS_SEQ  FOR PPSNE PL.EPL_VIS TA_STATUS_ SEQ') ;  
  1320  
  1321         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_VIST A_STATUS') ;
  1322         RETU RN (0);
  1323      EXCEPTI ON
  1324         WHEN  OTHERS
  1325         THEN
  1326            v n_code :=  SQLCODE;
  1327            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  1328            s ys.DBMS_OU TPUT.put_l ine (
  1329                'create_ EPL_VISTA_ STATUS: Er ror code '  || vn_cod e || ': '  || vc_errm );
  1330            s ys.DBMS_OU TPUT.put_l ine (
  1331                'create_ EPL_VISTA_ STATUS: la st value f or vc_sql_ statement  ');
  1332            s ys.DBMS_OU TPUT.put_l ine (
  1333                'create_ EPL_VISTA_ STATUS: '  || vc_sql_ statement) ;
  1334            R ETURN (1);
  1335      END cre ate_EPL_VI STA_STATUS ;  
  1336  
  1337      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  1338      -- NAME :          EPL_VISTA_ UPDATE
  1339      -- TYPE :          Function
  1340      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  1341      -- INPU TS:        None
  1342      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  1343      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  1344       FUNCTI ON create_ EPL_VISTA_ UPDATE
  1345          RET URN NUMBER
  1346       IS
  1347          seq uence_id N UMBER;
  1348       
  1349       BEGIN
  1350         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  1351         sys. DBMS_OUTPU T.put_line  (
  1352            ' INFORMATIO N -   STAR T:  create _EPL_VISTA _UPDATE');  
  1353  
  1354         SELE CT NVL(MAX (VISTA_UPD ATE_ID), 0 ) + 1 INTO  sequence_ id FROM PP SNEPL.EPL_ VISTA_UPDA TE ;
  1355         
  1356         vc_s ql_stateme nt := 'CRE ATE SEQUEN CE PPSNEPL .EPL_VISTA _UPDATE_SE Q MINVALUE  1 MAXVALU E 99999999 9999999999 9999999999  INCREMENT  BY 1 STAR T WITH ' | | sequence _id || ' N OCACHE ';
  1357         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1358         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE SEQUEN CE PPSNEPL .EPL_VISTA _UPDATE_SE Q INCREMEN T BY 1 STA RT WITH '  || sequenc e_id ) ;
  1359         
  1360         vc_s ql_stateme nt := 'GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_VISTA_UP DATE_SEQ T O PPSNEPL_ UPDATE_ROL E' ;
  1361         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1362         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_VISTA_UP DATE_SEQ T O PPSNEPL_ UPDATE_ROL E') ;    
  1363         
  1364         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VISTA_ UPDATE_SEQ  FOR PPSNE PL.EPL_VIS TA_UPDATE_ SEQ' ;
  1365         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1366         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VISTA_ UPDATE_SEQ  FOR PPSNE PL.EPL_VIS TA_UPDATE_ SEQ') ;  
  1367  
  1368         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_VIST A_UPDATE') ;
  1369         RETU RN (0);
  1370      EXCEPTI ON
  1371         WHEN  OTHERS
  1372         THEN
  1373            v n_code :=  SQLCODE;
  1374            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  1375            s ys.DBMS_OU TPUT.put_l ine (
  1376                'create_ EPL_VISTA_ UPDATE: Er ror code '  || vn_cod e || ': '  || vc_errm );
  1377            s ys.DBMS_OU TPUT.put_l ine (
  1378                'create_ EPL_VISTA_ UPDATE: la st value f or vc_sql_ statement  ');
  1379            s ys.DBMS_OU TPUT.put_l ine (
  1380                'create_ EPL_VISTA_ UPDATE: '  || vc_sql_ statement) ;
  1381            R ETURN (1);
  1382      END cre ate_EPL_VI STA_UPDATE ;  
  1383  
  1384      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  1385      -- NAME :          EPL_DRUG_D RUG_INTERA CTION
  1386      -- TYPE :          Function
  1387      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  1388      -- INPU TS:        None
  1389      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  1390      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  1391       FUNCTI ON create_ EPL_DRUG_D RUG_INTERA CT
  1392          RET URN NUMBER
  1393       IS
  1394          seq uence_id N UMBER;
  1395       
  1396       BEGIN
  1397         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  1398         sys. DBMS_OUTPU T.put_line  (
  1399            ' INFORMATIO N -   STAR T:  create _EPL_DRUG_ DRUG_INTER ACT'); 
  1400  
  1401         SELE CT NVL(MAX (EPL_DRUG_ DRUG_INTER ACTION_ID) , 0) + 1 I NTO sequen ce_id FROM  PPSNEPL.E PL_DRUG_DR UG_INTERAC TION ;
  1402         
  1403         vc_s ql_stateme nt := 'CRE ATE SEQUEN CE PPSNEPL .EPL_DRUG_ DRUG_INTER ACTION_SEQ  MINVALUE  1 MAXVALUE  999999999 9999999999 999999999  INCREMENT  BY 1 START  WITH ' ||  sequence_ id || ' NO CACHE ';
  1404         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1405         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE SEQUEN CE PPSNEPL .EPL_DRUG_ DRUG_INTER ACTION_SEQ  INCREMENT  BY 1 STAR T WITH ' | | sequence _id ) ;
  1406         
  1407         vc_s ql_stateme nt := 'GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_DRUG_DRU G_INTERACT ION_SEQ TO  PPSNEPL_U PDATE_ROLE ' ;
  1408         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1409         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_DRUG_DRU G_INTERACT ION_SEQ TO  PPSNEPL_U PDATE_ROLE ') ;    
  1410         
  1411         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_DRUG_D RUG_INTERA CTION_SEQ  FOR PPSNEP L.EPL_DRUG _DRUG_INTE RACTION_SE Q' ;
  1412         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1413         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_DRUG_D RUG_INTERA CTION_SEQ  FOR PPSNEP L.EPL_DRUG _DRUG_INTE RACTION_SE Q') ;  
  1414  
  1415         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_DRUG _DRUG_INTE RACT');
  1416         RETU RN (0);
  1417      EXCEPTI ON
  1418         WHEN  OTHERS
  1419         THEN
  1420            v n_code :=  SQLCODE;
  1421            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  1422            s ys.DBMS_OU TPUT.put_l ine (
  1423                'create_ EPL_DRUG_D RUG_INTERA CT: Error  code ' ||  vn_code ||  ': ' || v c_errm);
  1424            s ys.DBMS_OU TPUT.put_l ine (
  1425                'create_ EPL_DRUG_D RUG_INTERA CT: last v alue for v c_sql_stat ement ');
  1426            s ys.DBMS_OU TPUT.put_l ine (
  1427                'create_ EPL_DRUG_D RUG_INTERA CT: ' || v c_sql_stat ement);
  1428            R ETURN (1);
  1429      END cre ate_EPL_DR UG_DRUG_IN TERACT;  
  1430  
  1431  
  1432      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  1433      -- NAME :          EPL_NDF_OU TGOING_DIF FERENCES
  1434      -- TYPE :          Function
  1435      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  1436      -- INPU TS:        None
  1437      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  1438      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  1439       FUNCTI ON create_ EPL_NDF_OU TGOING_DIF FER
  1440          RET URN NUMBER
  1441       IS
  1442          seq uence_id N UMBER;
  1443       
  1444       BEGIN
  1445         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  1446         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  cre ate_EPL_ND F_OUTGOING _DIFFER');  
  1447    
  1448         SELE CT NVL(MAX (NDF_OUTGO ING_DIFFER ENCES_ID),  0) + 1 IN TO sequenc e_id FROM  PPSNEPL.EP L_NDF_OUTG OING_DIFFE RENCES ;
  1449         
  1450         vc_s ql_stateme nt := 'CRE ATE SEQUEN CE PPSNEPL .EPL_NDF_O UTGOING_DI FFERENS_SE Q MINVALUE  1 MAXVALU E 99999999 9999999999 9999999999  INCREMENT  BY 1 STAR T WITH ' | | sequence _id || ' N OCACHE ';
  1451         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1452         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE SEQUEN CE PPSNEPL .EPL_NDF_O UTGOING_DI FFERENS_SE Q INCREMEN T BY 1 STA RT WITH '  || sequenc e_id ) ;
  1453         
  1454         vc_s ql_stateme nt := 'GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_NDF_OUTG OING_DIFFE RENS_SEQ T O PPSNEPL_ UPDATE_ROL E' ;
  1455         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1456         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_NDF_OUTG OING_DIFFE RENS_SEQ T O PPSNEPL_ UPDATE_ROL E') ;    
  1457         
  1458         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_NDF_OU TGOING_DIF FERENS_SEQ  FOR PPSNE PL.EPL_NDF _OUTGOING_ DIFFERENS_ SEQ' ;
  1459         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1460         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_NDF_OU TGOING_DIF FERENS_SEQ  FOR PPSNE PL.EPL_NDF _OUTGOING_ DIFFERENS_ SEQ') ;  
  1461  
  1462         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_NDF_ OUTGOING_D IFFER');
  1463         RETU RN (0);
  1464      EXCEPTI ON
  1465         WHEN  OTHERS
  1466         THEN
  1467            v n_code :=  SQLCODE;
  1468            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  1469            s ys.DBMS_OU TPUT.put_l ine (
  1470                'create_ EPL_NDF_OU TGOING_DIF FER: Error  code ' ||  vn_code | | ': ' ||  vc_errm);
  1471            s ys.DBMS_OU TPUT.put_l ine (
  1472                'create_ EPL_NDF_OU TGOING_DIF FER: last  value for  vc_sql_sta tement ');
  1473            s ys.DBMS_OU TPUT.put_l ine (
  1474                'create_ EPL_NDF_OU TGOING_DIF FER: ' ||  vc_sql_sta tement);
  1475            R ETURN (1);
  1476      END cre ate_EPL_ND F_OUTGOING _DIFFER;  
  1477  
  1478      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  1479      -- NAME :          EPL_PACKAG E_SIZES
  1480      -- TYPE :          Function
  1481      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  1482      -- INPU TS:        None
  1483      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  1484      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  1485       FUNCTI ON create_ EPL_PACKAG E_SIZES
  1486          RET URN NUMBER
  1487       IS
  1488          seq uence_id N UMBER;
  1489       
  1490       BEGIN
  1491         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  1492         sys. DBMS_OUTPU T.put_line  (
  1493            ' INFORMATIO N -   STAR T:  create _EPL_PACKA GE_SIZES')
  1494  
  1495         SELE CT NVL(MAX (EPL_ID),  0) + 1 INT O sequence _id FROM P PSNEPL.EPL _PACKAGE_S IZES ;
  1496                
  1497         vc_s ql_stateme nt := 'CRE ATE SEQUEN CE PPSNEPL .EPL_PACKA GE_SIZES_S EQ MINVALU E 1 MAXVAL UE 9999999 9999999999 9999999999 9 INCREMEN T BY 1 STA RT WITH '  || sequenc e_id || '  NOCACHE ';
  1498         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1499         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE SEQUEN CE PPSNEPL .EPL_PACKA GE_SIZES_S EQ INCREME NT BY 1 ST ART WITH '  || sequen ce_id ) ;
  1500         
  1501         vc_s ql_stateme nt := 'GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_PACKAGE_ SIZES_SEQ  TO PPSNEPL _UPDATE_RO LE' ;
  1502         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1503         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_PACKAGE_ SIZES_SEQ  TO PPSNEPL _UPDATE_RO LE') ;    
  1504         
  1505         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PACKAG E_SIZES_SE Q FOR PPSN EPL.EPL_PA CKAGE_SIZE S_SEQ' ;
  1506         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1507         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PACKAG E_SIZES_SE Q FOR PPSN EPL.EPL_PA CKAGE_SIZE S_SEQ') ;     
  1508  
  1509         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_PACK AGE_SIZES' );
  1510         RETU RN (0);
  1511      EXCEPTI ON
  1512         WHEN  OTHERS
  1513         THEN
  1514            v n_code :=  SQLCODE;
  1515            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  1516            s ys.DBMS_OU TPUT.put_l ine (
  1517                'create_ EPL_PACKAG E_SIZES: E rror code  ' || vn_co de || ': '  || vc_err m);
  1518            s ys.DBMS_OU TPUT.put_l ine (
  1519                'create_ EPL_PACKAG E_SIZES: l ast value  for vc_sql _statement  ');
  1520            s ys.DBMS_OU TPUT.put_l ine (
  1521                'create_ EPL_PACKAG E_SIZES: '  || vc_sql _statement );
  1522            R ETURN (1);
  1523      END cre ate_EPL_PA CKAGE_SIZE S;  
  1524  
  1525      
  1526      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  1527      -- NAME :          create_rep lace_SYNS
  1528      -- TYPE :          Function
  1529      -- DESC RIPTION:   Create syn onyms yet  required
  1530      -- INPU TS:        None
  1531      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  1532      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  1533       FUNCTI ON create_ replace_SY NS
  1534          RET URN NUMBER
  1535       IS
  1536       
  1537       BEGIN
  1538         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  1539         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  cre ate_replac e_SYNS'); 
  1540  
  1541         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_ADMIN_ SCHEDULES  FOR PPSNEP L.EPL_ADMI N_SCHEDULE S' ;
  1542         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1543  
  1544         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_ATC_CA NISTERS FO R PPSNEPL. EPL_ATC_CA NISTERS' ;
  1545         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1546  
  1547         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_CLASS_ TYPES FOR  PPSNEPL.EP L_CLASS_TY PES' ;
  1548         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1549  
  1550         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_CLASS_ TYPES_TEMP  FOR PPSNE PL.EPL_CLA SS_TYPES_T EMP' ;
  1551         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1552  
  1553         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_CMOP_I D_GENERATO R FOR PPSN EPL.EPL_CM OP_ID_GENE RATOR' ;
  1554         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1555  
  1556         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_CMOP_I D_HISTORY  FOR PPSNEP L.EPL_CMOP _ID_HISTOR Y' ;
  1557         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1558  
  1559         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_CS_FED _SCHEDULES  FOR PPSNE PL.EPL_CS_ FED_SCHEDU LES' ;
  1560         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1561  
  1562         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_DDI_SE VERITY FOR  PPSNEPL.E PL_DDI_SEV ERITY' ;
  1563         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1564  
  1565         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_DF_MED _RT_DF_ASS OCS FOR PP SNEPL.EPL_ DF_MED_RT_ DF_ASSOCS'  ;
  1566         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1567  
  1568         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_DF_NOU NS FOR PPS NEPL.EPL_D F_NOUNS' ;
  1569         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1570  
  1571         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_DF_UNI TS FOR PPS NEPL.EPL_D F_UNITS' ;
  1572         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1573  
  1574         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_DISPEN SE_UNITS_P ER_DOSE FO R PPSNEPL. EPL_DISPEN SE_UNITS_P ER_DOSE' ;
  1575         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1576  
  1577         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_DOSAGE _FORMS FOR  PPSNEPL.E PL_DOSAGE_ FORMS' ;
  1578         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1579  
  1580         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_DOSE_U NITS FOR P PSNEPL.EPL _DOSE_UNIT S' ;
  1581         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1582  
  1583         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_DOSE_U NIT_SYNONY MS FOR PPS NEPL.EPL_D OSE_UNIT_S YNONYMS' ;
  1584         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1585  
  1586         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_DRUG_D RUG_INTERA CTION FOR  PPSNEPL.EP L_DRUG_DRU G_INTERACT ION' ;
  1587         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1588  
  1589         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_DRUG_T EXT FOR PP SNEPL.EPL_ DRUG_TEXT'  ;
  1590         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1591  
  1592         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_DRUG_U NITS FOR P PSNEPL.EPL _DRUG_UNIT S' ;
  1593         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1594  
  1595         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_DT_SYN ONYMS FOR  PPSNEPL.EP L_DT_SYNON YMS' ;
  1596         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1597  
  1598         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_FDB_AD D FOR PPSN EPL.EPL_FD B_ADD' ;
  1599         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1600  
  1601         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_FDB_AU TO_ADD FOR  PPSNEPL.E PL_FDB_AUT O_ADD' ;
  1602         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1603  
  1604         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_FDB_AU TO_UPDATE  FOR PPSNEP L.EPL_FDB_ AUTO_UPDAT E' ;
  1605         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1606  
  1607         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_FDB_DO SAGE_FORM  FOR PPSNEP L.EPL_FDB_ DOSAGE_FOR M' ;
  1608         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1609  
  1610         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_FDB_DR UG_CLASS F OR PPSNEPL .EPL_FDB_D RUG_CLASS'  ;
  1611         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1612  
  1613         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_FDB_DR UG_INGREDI ENT FOR PP SNEPL.EPL_ FDB_DRUG_I NGREDIENT'  ;
  1614         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1615  
  1616         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_FDB_DR UG_UNITS F OR PPSNEPL .EPL_FDB_D RUG_UNITS'  ;
  1617         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1618  
  1619         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_FDB_GE NERIC_NAME  FOR PPSNE PL.EPL_FDB _GENERIC_N AME' ;
  1620         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1621  
  1622         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_FDB_ND C FOR PPSN EPL.EPL_FD B_NDC' ;
  1623         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1624  
  1625         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_FDB_PR ODUCT FOR  PPSNEPL.EP L_FDB_PROD UCT' ;
  1626         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1627  
  1628         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_FDB_UP DATE FOR P PSNEPL.EPL _FDB_UPDAT E' ;
  1629         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1630  
  1631         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_HOSPIT AL_LOCATIO NS FOR PPS NEPL.EPL_H OSPITAL_LO CATIONS' ;
  1632         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1633  
  1634         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_IEN_GE NERATOR FO R PPSNEPL. EPL_IEN_GE NERATOR' ;
  1635         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1636  
  1637         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_IFCAP_ ITEM_NUMBE RS FOR PPS NEPL.EPL_I FCAP_ITEM_ NUMBERS' ;
  1638         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1639  
  1640         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_INGRED IENTS FOR  PPSNEPL.EP L_INGREDIE NTS' ;
  1641         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1642  
  1643         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_INTEND ED_USES FO R PPSNEPL. EPL_INTEND ED_USES' ;
  1644         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1645  
  1646         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_INTERF ACE_COUNTE RS FOR PPS NEPL.EPL_I NTERFACE_C OUNTERS' ;
  1647         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1648  
  1649         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_ITEM_A UDIT_HISTO RY FOR PPS NEPL.EPL_I TEM_AUDIT_ HISTORY' ;
  1650         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1651  
  1652         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_ITEM_A UDIT_HISTO RY_DETAILS  FOR PPSNE PL.EPL_ITE M_AUDIT_HI STORY_DETA ILS' ;
  1653         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1654  
  1655         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_LABS F OR PPSNEPL .EPL_LABS'  ;
  1656         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1657  
  1658         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_LOCAL_ CONSOLE_IN FO FOR PPS NEPL.EPL_L OCAL_CONSO LE_INFO' ;
  1659         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1660  
  1661         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_LOCAL_ MED_ROUTES  FOR PPSNE PL.EPL_LOC AL_MED_ROU TES' ;
  1662         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1663  
  1664         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_LOCAL_ POSSIBLE_D OSAGES FOR  PPSNEPL.E PL_LOCAL_P OSSIBLE_DO SAGES' ;
  1665         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1666  
  1667         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_MANUFA CTURERS FO R PPSNEPL. EPL_MANUFA CTURERS' ;
  1668         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1669  
  1670         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_MEDICA TION_INSTR UCTIONS FO R PPSNEPL. EPL_MEDICA TION_INSTR UCTIONS' ;
  1671         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1672  
  1673         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_MED_IN STRUCT_WAR DS FOR PPS NEPL.EPL_M ED_INSTRUC T_WARDS' ;
  1674         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1675  
  1676         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_MIGRAT ION_CONTRO L FOR PPSN EPL.EPL_MI GRATION_CO NTROL' ;
  1677         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1678  
  1679         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_MIGRAT ION_ERROR  FOR PPSNEP L.EPL_MIGR ATION_ERRO R' ;
  1680         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1681  
  1682         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_MIGRAT ION_FILE F OR PPSNEPL .EPL_MIGRA TION_FILE'  ;
  1683         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1684  
  1685         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_MULTI_ TEXT FOR P PSNEPL.EPL _MULTI_TEX T' ;
  1686         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1687  
  1688         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_NATION AL_POSSIBL E_DOSAGES  FOR PPSNEP L.EPL_NATI ONAL_POSSI BLE_DOSAGE S' ;
  1689         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1690  
  1691         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_NATION AL_SETTING S FOR PPSN EPL.EPL_NA TIONAL_SET TINGS' ;
  1692         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1693  
  1694         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_NDCS F OR PPSNEPL .EPL_NDCS'  ;
  1695         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1696  
  1697         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_NDC_BY _OUTPATIEN T_SITE_NDC  FOR PPSNE PL.EPL_NDC _BY_OUTPAT IENT_SITE_ NDC' ;
  1698         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1699  
  1700         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_NDF_OU TGOING_DIF FERENCES F OR PPSNEPL .EPL_NDF_O UTGOING_DI FFERENCES'  ;
  1701         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1702  
  1703         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_NDF_SY NCH_QUEUE  FOR PPSNEP L.EPL_NDF_ SYNCH_QUEU E' ;
  1704         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1705  
  1706         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_NDF_UP DATE_FILE  FOR PPSNEP L.EPL_NDF_ UPDATE_FIL E' ;
  1707         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1708  
  1709         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_NOTIFI CATIONS FO R PPSNEPL. EPL_NOTIFI CATIONS' ;
  1710         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1711  
  1712         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_NOTIF_ USER_PREFS  FOR PPSNE PL.EPL_NOT IF_USER_PR EFS' ;
  1713         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1714  
  1715         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_OI_ADM IN_SCHED_A SSOCS FOR  PPSNEPL.EP L_OI_ADMIN _SCHED_ASS OCS' ;
  1716         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1717  
  1718         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_OI_DRU G_TEXT_L_A SSOCS FOR  PPSNEPL.EP L_OI_DRUG_ TEXT_L_ASS OCS' ;
  1719         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1720  
  1721         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_OI_DRU G_TEXT_N_A SSOCS FOR  PPSNEPL.EP L_OI_DRUG_ TEXT_N_ASS OCS' ;
  1722         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1723  
  1724         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_OI_MED _ROUTE_ASS OCS FOR PP SNEPL.EPL_ OI_MED_ROU TE_ASSOCS'  ;
  1725         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1726  
  1727         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_OI_SCH EDULE_TYPE S FOR PPSN EPL.EPL_OI _SCHEDULE_ TYPES' ;
  1728         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1729  
  1730         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_ORDERA BLE_ITEMS  FOR PPSNEP L.EPL_ORDE RABLE_ITEM S' ;
  1731         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1732  
  1733         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_ORDER_ UNITS FOR  PPSNEPL.EP L_ORDER_UN ITS' ;
  1734         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1735  
  1736         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PACKAG E_SIZES FO R PPSNEPL. EPL_PACKAG E_SIZES' ;
  1737         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1738  
  1739         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PACKAG E_TYPES FO R PPSNEPL. EPL_PACKAG E_TYPES' ;
  1740         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1741  
  1742         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PACKAG E_USAGES F OR PPSNEPL .EPL_PACKA GE_USAGES'  ;
  1743         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1744  
  1745         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PACKAG E_USE_ASSO CS FOR PPS NEPL.EPL_P ACKAGE_USE _ASSOCS' ;
  1746         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1747  
  1748         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PARTIA L_SAVE_MGT  FOR PPSNE PL.EPL_PAR TIAL_SAVE_ MGT' ;
  1749         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1750  
  1751         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PHARMA CY_SYSTEM  FOR PPSNEP L.EPL_PHAR MACY_SYSTE M' ;
  1752         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1753  
  1754         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PRINT_ FIELDS FOR  PPSNEPL.E PL_PRINT_F IELDS' ;
  1755         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1756  
  1757         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PRINT_ TEMPLATES  FOR PPSNEP L.EPL_PRIN T_TEMPLATE S' ;
  1758         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1759  
  1760         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PRODUC TS FOR PPS NEPL.EPL_P RODUCTS' ;
  1761         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1762  
  1763         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PRODUC T_LABS FOR  PPSNEPL.E PL_PRODUCT _LABS' ;
  1764         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1765  
  1766         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PRODUC T_VITALS F OR PPSNEPL .EPL_PRODU CT_VITALS'  ;
  1767         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1768  
  1769         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PROD_D RUG_CLASS_ ASSOCS FOR  PPSNEPL.E PL_PROD_DR UG_CLASS_A SSOCS' ;
  1770         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1771  
  1772         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PROD_D RUG_TEXT_L _ASSOCS FO R PPSNEPL. EPL_PROD_D RUG_TEXT_L _ASSOCS' ;
  1773         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1774  
  1775         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PROD_D RUG_TEXT_N _ASSOCS FO R PPSNEPL. EPL_PROD_D RUG_TEXT_N _ASSOCS' ;
  1776         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1777  
  1778         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PROD_I NGREDIENT_ ASSOCS FOR  PPSNEPL.E PL_PROD_IN GREDIENT_A SSOCS' ;
  1779         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1780  
  1781         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PROD_S PEC_HANDLI NG_ASSOCS  FOR PPSNEP L.EPL_PROD _SPEC_HAND LING_ASSOC S' ;
  1782         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1783  
  1784         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PROD_W ARN_LABEL_ L_ASSOCS F OR PPSNEPL .EPL_PROD_ WARN_LABEL _L_ASSOCS'  ;
  1785         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1786  
  1787         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PROD_W ARN_LABEL_ N_ASSOCS F OR PPSNEPL .EPL_PROD_ WARN_LABEL _N_ASSOCS'  ;
  1788         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1789  
  1790         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_REQUES TS FOR PPS NEPL.EPL_R EQUESTS' ;
  1791         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1792  
  1793         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_REQUES T_DETAILS  FOR PPSNEP L.EPL_REQU EST_DETAIL S' ;
  1794         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1795  
  1796         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_SCHEDU LE_TYPES F OR PPSNEPL .EPL_SCHED ULE_TYPES'  ;
  1797         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1798  
  1799         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_SEARCH _CRITERIA  FOR PPSNEP L.EPL_SEAR CH_CRITERI A' ;
  1800         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1801  
  1802         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_SEARCH _TEMPLATES  FOR PPSNE PL.EPL_SEA RCH_TEMPLA TES' ;
  1803         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1804  
  1805         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_SEQ_NU MS FOR PPS NEPL.EPL_S EQ_NUMS' ;
  1806         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1807  
  1808         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_SESSIO N_PREFEREN CES FOR PP SNEPL.EPL_ SESSION_PR EFERENCES'  ;
  1809         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1810  
  1811         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_SITE_C ONFIGS FOR  PPSNEPL.E PL_SITE_CO NFIGS' ;
  1812         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1813  
  1814         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_SITE_U PDATE_SCHE DULES FOR  PPSNEPL.EP L_SITE_UPD ATE_SCHEDU LES' ;
  1815         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1816  
  1817         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_SPECIA L_HANDLING  FOR PPSNE PL.EPL_SPE CIAL_HANDL ING' ;
  1818         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1819  
  1820         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_STANDA RD_MED_ROU TES FOR PP SNEPL.EPL_ STANDARD_M ED_ROUTES'  ;
  1821         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1822  
  1823         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_STATUS  FOR PPSNE PL.EPL_STA TUS' ;
  1824         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1825  
  1826         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_SYNONY MS FOR PPS NEPL.EPL_S YNONYMS' ;
  1827         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1828  
  1829         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_USERS  FOR PPSNEP L.EPL_USER S' ;
  1830         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1831  
  1832         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VADF_A SSOC_VALUE S FOR PPSN EPL.EPL_VA DF_ASSOC_V ALUES' ;
  1833         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1834  
  1835         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VADF_E DITABLE_PR OPERTIES F OR PPSNEPL .EPL_VADF_ EDITABLE_P ROPERTIES'  ;
  1836         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1837  
  1838         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VADF_L OVS FOR PP SNEPL.EPL_ VADF_LOVS'  ;
  1839         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1840  
  1841         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VADF_N ONLIST_VAL UES FOR PP SNEPL.EPL_ VADF_NONLI ST_VALUES'  ;
  1842         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1843  
  1844         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VADF_O WNERS FOR  PPSNEPL.EP L_VADF_OWN ERS' ;
  1845         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1846  
  1847         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VADF_V ALUES_VIEW  FOR PPSNE PL.EPL_VAD F_VALUES_V IEW' ;
  1848         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1849  
  1850         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VA_DFS  FOR PPSNE PL.EPL_VA_ DFS' ;
  1851         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1852  
  1853         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VA_DIS PENSE_UNIT S FOR PPSN EPL.EPL_VA _DISPENSE_ UNITS' ;
  1854         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1855  
  1856         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VA_DRU G_CLASSES  FOR PPSNEP L.EPL_VA_D RUG_CLASSE S' ;
  1857         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1858  
  1859         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VA_GEN _NAMES FOR  PPSNEPL.E PL_VA_GEN_ NAMES' ;
  1860         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1861  
  1862         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VISTA_ STATUS FOR  PPSNEPL.E PL_VISTA_S TATUS' ;
  1863         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1864  
  1865         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VISTA_ UPDATE FOR  PPSNEPL.E PL_VISTA_U PDATE' ;
  1866         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1867  
  1868         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VITALS  FOR PPSNE PL.EPL_VIT ALS' ;
  1869         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1870  
  1871         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VUID_S TATUS_HIST ORY FOR PP SNEPL.EPL_ VUID_STATU S_HISTORY'  ;
  1872         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1873  
  1874         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_WARDS  FOR PPSNEP L.EPL_WARD S' ;
  1875         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1876  
  1877         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_WARN_L ABELS FOR  PPSNEPL.EP L_WARN_LAB ELS' ;
  1878         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1879  
  1880         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  HIBERNATE_ UNIQUE_KEY  FOR PPSNE PL.HIBERNA TE_UNIQUE_ KEY' ;
  1881         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1882  
  1883         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  STATS_TABL E FOR PPSN EPL.STATS_ TABLE' ;
  1884         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1885  
  1886         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  TEMP_EPL_N DCS FOR PP SNEPL.TEMP _EPL_NDCS'  ;
  1887         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1888  
  1889   -- FMCT -  new synony ms needed  for FMCT i f they don 't already  exist...s o just cre ate or rep lace to be  sure
  1890  
  1891         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_PROD_C OPAY_TIER_ ASSOCS FOR  PPSNEPL.E PL_PROD_CO PAY_TIER_A SSOCS' ;
  1892         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1893  
  1894         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_COPAY_ TIER FOR P PSNEPL.EPL _COPAY_TIE R' ;
  1895         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1896  
  1897   /* REMOVED  01/11/201 7
  1898         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  REPORT_COP AY_TIER_CH ANGE FOR P PSNEPL.REP ORT_COPAY_ TIER_CHANG E' ;
  1899         EXEC UTE IMMEDI ATE vc_sql _statement ;      
  1900   */
  1901         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_COPAY_ TIER_3_PRO DUCTS FOR  PPSNEPL.EP L_COPAY_TI ER_3_PRODU CTS' ;
  1902         EXEC UTE IMMEDI ATE vc_sql _statement ;      
  1903         
  1904   -- Additio nal missed  in PPSN-2  migration  script
  1905  
  1906         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  UPDATE_FIL E_SEQUENCE  FOR PPSNE PL.UPDATE_ FILE_SEQUE NCE' ;
  1907         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1908  
  1909         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VADF_V ALUES_VIEW  FOR PPSNE PL.EPL_VAD F_VALUES_V IEW' ;
  1910         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1911  
  1912         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  FDB_GCNSEQ NO_PEM_V F OR PPSNEPL .FDB_GCNSE QNO_PEM_V'  ;
  1913         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1914  
  1915         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  FDB_GCNSEQ NO_PLBLW_V  FOR PPSNE PL.FDB_GCN SEQNO_PLBL W_V' ;
  1916         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1917  
  1918         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  FDB_MONOGR APH_PEM_V  FOR PPSNEP L.FDB_MONO GRAPH_PEM_ V' ;
  1919         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1920  
  1921         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  FDB_PLBLWA RNINGS_V F OR PPSNEPL .FDB_PLBLW ARNINGS_V'  ;
  1922         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1923  
  1924         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_MATCH_ TYPE FOR P PSNEPL.EPL _MATCH_TYP E' ;
  1925         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1926  
  1927         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_REMATC H FOR PPSN EPL.EPL_RE MATCH' ;
  1928         EXEC UTE IMMEDI ATE vc_sql _statement ;      
  1929  
  1930         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_REMATC H_SUGGESTI ON FOR PPS NEPL.EPL_R EMATCH_SUG GESTION' ;
  1931         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1932  
  1933         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_COMPLI ANCE_SITE  FOR PPSNEP L.EPL_COMP LIANCE_SIT E' ;
  1934         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1935         
  1936         DBMS _OUTPUT.pu t_line('Ex ecuted cre ate_replac e_SYNS ... multiple')  ;
  1937  
  1938         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_replace_ SYNS');
  1939         RETU RN (0);
  1940      EXCEPTI ON
  1941         WHEN  OTHERS
  1942         THEN
  1943            v n_code :=  SQLCODE;
  1944            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  1945            s ys.DBMS_OU TPUT.put_l ine (
  1946                'create_ replace_SY NS: Error  code ' ||  vn_code ||  ': ' || v c_errm);
  1947            s ys.DBMS_OU TPUT.put_l ine (
  1948                'create_ replace_SY NS: last v alue for v c_sql_stat ement ');
  1949            s ys.DBMS_OU TPUT.put_l ine (
  1950                'create_ replace_SY NS: ' || v c_sql_stat ement);
  1951            R ETURN (1);
  1952      END cre ate_replac e_SYNS; 
  1953      
  1954      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  1955      -- NAME :          grant_TO_R OLES
  1956      -- TYPE :          Function
  1957      -- DESC RIPTION:   Grants for  new roles /tables et
  1958      -- INPU TS:        None
  1959      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  1960      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  1961       FUNCTI ON grant_T O_ROLES
  1962          RET URN NUMBER
  1963       IS
  1964       
  1965       BEGIN
  1966         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  1967         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  gra nt_TO_ROLE S'); 
  1968  
  1969   -- READ_ON LY_ROLE HE RE
  1970  
  1971         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_ADMIN _SCHEDULES  TO PPSNEP L_READ_ONL Y_ROLE' ;
  1972         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1973  
  1974         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_ATC_C ANISTERS T O PPSNEPL_ READ_ONLY_ ROLE' ;
  1975         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1976  
  1977         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_CLASS _TYPES TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  1978         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1979         
  1980         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_CMOP_ ID_GENERAT OR TO PPSN EPL_READ_O NLY_ROLE'  ;
  1981         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1982  
  1983         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_CMOP_ ID_HISTORY  TO PPSNEP L_READ_ONL Y_ROLE' ;
  1984         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1985  
  1986         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_CS_FE D_SCHEDULE S TO PPSNE PL_READ_ON LY_ROLE' ;
  1987         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1988  
  1989         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_DDI_S EVERITY TO  PPSNEPL_R EAD_ONLY_R OLE' ;
  1990         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1991  
  1992         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_DF_ME D_RT_DF_AS SOCS TO PP SNEPL_READ _ONLY_ROLE ' ;
  1993         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1994         
  1995         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_DF_NO UNS TO PPS NEPL_READ_ ONLY_ROLE'  ;
  1996         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1997  
  1998         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_DF_UN ITS TO PPS NEPL_READ_ ONLY_ROLE'  ;
  1999         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2000  
  2001         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_DISPE NSE_UNITS_ PER_DOSE T O PPSNEPL_ READ_ONLY_ ROLE' ;
  2002         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2003  
  2004         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_DOSAG E_FORMS TO  PPSNEPL_R EAD_ONLY_R OLE' ;
  2005         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2006  
  2007         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_DOSE_ UNITS TO P PSNEPL_REA D_ONLY_ROL E' ;
  2008         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2009  
  2010         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_DOSE_ UNIT_SYNON YMS TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2011         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2012  
  2013         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_DRUG_ DRUG_INTER ACTION TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  2014         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2015         
  2016         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_DRUG_ TEXT TO PP SNEPL_READ _ONLY_ROLE ' ;
  2017         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2018  
  2019         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_DRUG_ UNITS TO P PSNEPL_REA D_ONLY_ROL E' ;
  2020         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2021  
  2022         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_DT_SY NONYMS TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  2023         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2024  
  2025         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_FDB_A DD TO PPSN EPL_READ_O NLY_ROLE'  ;
  2026         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2027  
  2028         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_FDB_A UTO_ADD TO  PPSNEPL_R EAD_ONLY_R OLE' ;
  2029         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2030  
  2031         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_FDB_A UTO_UPDATE  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2032         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2033  
  2034         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_FDB_D OSAGE_FORM  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2035         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2036  
  2037         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_FDB_D RUG_CLASS  TO PPSNEPL _READ_ONLY _ROLE' ;
  2038         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2039  
  2040         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_FDB_D RUG_INGRED IENT TO PP SNEPL_READ _ONLY_ROLE ' ;
  2041         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2042  
  2043         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_FDB_D RUG_UNITS  TO PPSNEPL _READ_ONLY _ROLE' ;
  2044         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2045  
  2046         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_FDB_G ENERIC_NAM E TO PPSNE PL_READ_ON LY_ROLE' ;
  2047         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2048  
  2049         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_FDB_N DC TO PPSN EPL_READ_O NLY_ROLE'  ;
  2050         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2051  
  2052         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_FDB_P RODUCT TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  2053         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2054  
  2055         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_FDB_U PDATE TO P PSNEPL_REA D_ONLY_ROL E' ;
  2056         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2057  
  2058         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_HOSPI TAL_LOCATI ONS TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2059         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2060  
  2061         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_IEN_G ENERATOR T O PPSNEPL_ READ_ONLY_ ROLE' ;
  2062         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2063         
  2064         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_IFCAP _ITEM_NUMB ERS TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2065         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2066  
  2067         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_INGRE DIENTS TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  2068         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2069         
  2070         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_INTEN DED_USES T O PPSNEPL_ READ_ONLY_ ROLE' ;
  2071         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2072  
  2073         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_INTER FACE_COUNT ERS TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2074         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2075  
  2076         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_ITEM_ AUDIT_HIST ORY TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2077         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2078  
  2079         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_ITEM_ AUDIT_HIST ORY_DETAIL S TO PPSNE PL_READ_ON LY_ROLE' ;
  2080         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2081  
  2082         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_LABS  TO PPSNEPL _READ_ONLY _ROLE' ;
  2083         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2084  
  2085         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_LOCAL _CONSOLE_I NFO TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2086         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2087  
  2088         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_LOCAL _MED_ROUTE S TO PPSNE PL_READ_ON LY_ROLE' ;
  2089         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2090  
  2091         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_LOCAL _POSSIBLE_ DOSAGES TO  PPSNEPL_R EAD_ONLY_R OLE' ;
  2092         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2093  
  2094         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_MANUF ACTURERS T O PPSNEPL_ READ_ONLY_ ROLE' ;
  2095         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2096         
  2097         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_MEDIC ATION_INST RUCTIONS T O PPSNEPL_ READ_ONLY_ ROLE' ;
  2098         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2099  
  2100         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_MED_I NSTRUCT_WA RDS TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2101         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2102  
  2103         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_MIGRA TION_CONTR OL TO PPSN EPL_READ_O NLY_ROLE'  ;
  2104         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2105  
  2106         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_MIGRA TION_ERROR  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2107         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2108  
  2109         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_MIGRA TION_FILE  TO PPSNEPL _READ_ONLY _ROLE' ;
  2110         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2111  
  2112         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_MULTI _TEXT TO P PSNEPL_REA D_ONLY_ROL E' ;
  2113         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2114  
  2115         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_NATIO NAL_POSSIB LE_DOSAGES  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2116         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2117  
  2118         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_NATIO NAL_SETTIN GS TO PPSN EPL_READ_O NLY_ROLE'  ;
  2119         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2120  
  2121         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_NDCS  TO PPSNEPL _READ_ONLY _ROLE' ;
  2122         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2123  
  2124         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_NDC_B Y_OUTPATIE NT_SITE_ND C TO PPSNE PL_READ_ON LY_ROLE' ;
  2125         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2126  
  2127         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_NDF_O UTGOING_DI FFERENCES  TO PPSNEPL _READ_ONLY _ROLE' ;
  2128         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2129    
  2130         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_NDF_S YNCH_QUEUE  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2131         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2132  
  2133         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_NDF_U PDATE_FILE  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2134         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2135         
  2136         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_NOTIF ICATIONS T O PPSNEPL_ READ_ONLY_ ROLE' ;
  2137         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2138  
  2139         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_NOTIF _USER_PREF S TO PPSNE PL_READ_ON LY_ROLE' ;
  2140         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2141  
  2142         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_OI_AD MIN_SCHED_ ASSOCS TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  2143         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2144  
  2145         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_OI_DR UG_TEXT_L_ ASSOCS TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  2146         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2147  
  2148         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_OI_DR UG_TEXT_N_ ASSOCS TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  2149         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2150  
  2151         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_OI_ME D_ROUTE_AS SOCS TO PP SNEPL_READ _ONLY_ROLE ' ;
  2152         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2153  
  2154         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_OI_SC HEDULE_TYP ES TO PPSN EPL_READ_O NLY_ROLE'  ;
  2155         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2156  
  2157         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_ORDER ABLE_ITEMS  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2158         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2159  
  2160         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_ORDER _UNITS TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  2161         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2162  
  2163         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PACKA GE_SIZES T O PPSNEPL_ READ_ONLY_ ROLE' ;
  2164         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2165  
  2166         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PACKA GE_TYPES T O PPSNEPL_ READ_ONLY_ ROLE' ;
  2167         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2168  
  2169         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PACKA GE_USAGES  TO PPSNEPL _READ_ONLY _ROLE' ;
  2170         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2171  
  2172         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PACKA GE_USE_ASS OCS TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2173         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2174  
  2175         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PARTI AL_SAVE_MG T TO PPSNE PL_READ_ON LY_ROLE' ;
  2176         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2177  
  2178         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PHARM ACY_SYSTEM  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2179         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2180  
  2181         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PRINT _FIELDS TO  PPSNEPL_R EAD_ONLY_R OLE' ;
  2182         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2183  
  2184         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PRINT _TEMPLATES  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2185         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2186  
  2187         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PRODU CTS TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2188         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2189  
  2190         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PRODU CT_LABS TO  PPSNEPL_R EAD_ONLY_R OLE' ;
  2191         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2192  
  2193         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PRODU CT_VITALS  TO PPSNEPL _READ_ONLY _ROLE' ;
  2194         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2195  
  2196         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PROD_ DRUG_CLASS _ASSOCS TO  PPSNEPL_R EAD_ONLY_R OLE' ;
  2197         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2198  
  2199         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PROD_ DRUG_TEXT_ L_ASSOCS T O PPSNEPL_ READ_ONLY_ ROLE' ;
  2200         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2201  
  2202         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PROD_ DRUG_TEXT_ N_ASSOCS T O PPSNEPL_ READ_ONLY_ ROLE' ;
  2203         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2204  
  2205         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PROD_ INGREDIENT _ASSOCS TO  PPSNEPL_R EAD_ONLY_R OLE' ;
  2206         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2207  
  2208         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PROD_ SPEC_HANDL ING_ASSOCS  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2209         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2210  
  2211         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PROD_ WARN_LABEL _L_ASSOCS  TO PPSNEPL _READ_ONLY _ROLE' ;
  2212         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2213  
  2214         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PROD_ WARN_LABEL _N_ASSOCS  TO PPSNEPL _READ_ONLY _ROLE' ;
  2215         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2216         
  2217         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_REQUE STS TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2218         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2219  
  2220         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_REQUE ST_DETAILS  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2221         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2222  
  2223         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_SCHED ULE_TYPES  TO PPSNEPL _READ_ONLY _ROLE' ;
  2224         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2225  
  2226         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_SEARC H_CRITERIA  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2227         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2228  
  2229         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_SEARC H_TEMPLATE S TO PPSNE PL_READ_ON LY_ROLE' ;
  2230         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2231  
  2232         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_SEQ_N UMS TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2233         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2234  
  2235         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_SESSI ON_PREFERE NCES TO PP SNEPL_READ _ONLY_ROLE ' ;
  2236         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2237  
  2238         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_SITE_ CONFIGS TO  PPSNEPL_R EAD_ONLY_R OLE' ;
  2239         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2240  
  2241         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_SITE_ UPDATE_SCH EDULES TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  2242         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2243  
  2244         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_SPECI AL_HANDLIN G TO PPSNE PL_READ_ON LY_ROLE' ;
  2245         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2246  
  2247         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_STAND ARD_MED_RO UTES TO PP SNEPL_READ _ONLY_ROLE ' ;
  2248         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2249  
  2250         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_STATU S TO PPSNE PL_READ_ON LY_ROLE' ;
  2251         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2252         
  2253         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_SYNON YMS TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2254         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2255  
  2256         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_USERS  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2257         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2258  
  2259         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VADF_ ASSOC_VALU ES TO PPSN EPL_READ_O NLY_ROLE'  ;
  2260         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2261  
  2262         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VADF_ EDITABLE_P ROPERTIES  TO PPSNEPL _READ_ONLY _ROLE' ;
  2263         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2264  
  2265         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VADF_ LOVS TO PP SNEPL_READ _ONLY_ROLE ' ;
  2266         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2267  
  2268         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VADF_ NONLIST_VA LUES TO PP SNEPL_READ _ONLY_ROLE ' ;
  2269         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2270  
  2271         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VADF_ OWNERS TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  2272         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2273  
  2274         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VA_DF S TO PPSNE PL_READ_ON LY_ROLE' ;
  2275         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2276  
  2277         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VA_DI SPENSE_UNI TS TO PPSN EPL_READ_O NLY_ROLE'  ;
  2278         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2279  
  2280         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VA_DR UG_CLASSES  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2281         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2282  
  2283         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VA_GE N_NAMES TO  PPSNEPL_R EAD_ONLY_R OLE' ;
  2284         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2285  
  2286         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VISTA _STATUS TO  PPSNEPL_R EAD_ONLY_R OLE' ;
  2287         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2288         
  2289         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VISTA _UPDATE TO  PPSNEPL_R EAD_ONLY_R OLE' ;
  2290         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2291         
  2292         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VITAL S TO PPSNE PL_READ_ON LY_ROLE' ;
  2293         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2294  
  2295         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VUID_ STATUS_HIS TORY TO PP SNEPL_READ _ONLY_ROLE ' ;
  2296         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2297  
  2298         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_WARDS  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2299         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2300  
  2301         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_WARN_ LABELS TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  2302         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2303  
  2304         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .HIBERNATE _UNIQUE_KE Y TO PPSNE PL_READ_ON LY_ROLE' ;
  2305         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2306  
  2307         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .TEMP_EPL_ NDCS TO PP SNEPL_READ _ONLY_ROLE ' ;
  2308         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2309    
  2310         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PROD_ COPAY_TIER _ASSOCS TO  PPSNEPL_R EAD_ONLY_R OLE' ;
  2311         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2312  
  2313         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_COPAY _TIER TO P PSNEPL_REA D_ONLY_ROL E' ;
  2314         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2315  
  2316         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_COPAY _TIER_3_PR ODUCTS TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  2317         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2318  
  2319         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VADF_ VALUES_VIE W TO PPSNE PL_READ_ON LY' ;
  2320         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2321  
  2322         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .UPDATE_FI LE_SEQUENC E TO PPSNE PL_READ_ON LY_ROLE' ;
  2323         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2324         
  2325         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .FDB_PLBLW ARNINGS_V  TO PPSNEPL _READ_ONLY _ROLE' ;
  2326         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2327         
  2328         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .FDB_MONOG RAPH_PEM_V  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2329         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2330         
  2331         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .FDB_GCNSE QNO_PLBLW_ V TO PPSNE PL_READ_ON LY_ROLE' ;
  2332         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2333         
  2334         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .FDB_GCNSE QNO_PEM_V  TO PPSNEPL _READ_ONLY _ROLE' ;
  2335         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2336         
  2337         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VADF_ VALUES_VIE W TO PPSNE PL_READ_ON LY_ROLE' ;       
  2338         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2339         
  2340         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_COMPL IANCE_SITE  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2341         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2342  
  2343   -- UPDATE_ USER_ROLE_ HERE
  2344  
  2345         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _ADMIN_SCH EDULES TO  PPSNEPL_UP DATE_ROLE'  ;
  2346         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2347  
  2348         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _ATC_CANIS TERS TO PP SNEPL_UPDA TE_ROLE' ;
  2349         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2350  
  2351         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _CLASS_TYP ES TO PPSN EPL_UPDATE _ROLE' ;
  2352         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2353         
  2354         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _CMOP_ID_G ENERATOR T O PPSNEPL_ UPDATE_ROL E' ;
  2355         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2356  
  2357         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _CMOP_ID_H ISTORY TO  PPSNEPL_UP DATE_ROLE'  ;
  2358         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2359  
  2360         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _CS_FED_SC HEDULES TO  PPSNEPL_U PDATE_ROLE ' ;
  2361         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2362  
  2363         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _DDI_SEVER ITY TO PPS NEPL_UPDAT E_ROLE' ;
  2364         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2365  
  2366         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _DF_MED_RT _DF_ASSOCS  TO PPSNEP L_UPDATE_R OLE' ;
  2367         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2368         
  2369         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _DF_NOUNS  TO PPSNEPL _UPDATE_RO LE' ;
  2370         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2371  
  2372         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _DF_UNITS  TO PPSNEPL _UPDATE_RO LE' ;
  2373         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2374  
  2375         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _DISPENSE_ UNITS_PER_ DOSE TO PP SNEPL_UPDA TE_ROLE' ;
  2376         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2377  
  2378         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _DOSAGE_FO RMS TO PPS NEPL_UPDAT E_ROLE' ;
  2379         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2380  
  2381         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _DOSE_UNIT S TO PPSNE PL_UPDATE_ ROLE' ;
  2382         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2383  
  2384         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _DOSE_UNIT _SYNONYMS  TO PPSNEPL _UPDATE_RO LE' ;
  2385         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2386  
  2387         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _DRUG_DRUG _INTERACTI ON TO PPSN EPL_UPDATE _ROLE' ;
  2388         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2389         
  2390         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _DRUG_TEXT  TO PPSNEP L_UPDATE_R OLE' ;
  2391         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2392  
  2393         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _DRUG_UNIT S TO PPSNE PL_UPDATE_ ROLE' ;
  2394         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2395  
  2396         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _DT_SYNONY MS TO PPSN EPL_UPDATE _ROLE' ;
  2397         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2398  
  2399         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _FDB_ADD T O PPSNEPL_ UPDATE_ROL E' ;
  2400         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2401  
  2402         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _FDB_AUTO_ ADD TO PPS NEPL_UPDAT E_ROLE' ;
  2403         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2404  
  2405         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _FDB_AUTO_ UPDATE TO  PPSNEPL_UP DATE_ROLE'  ;
  2406         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2407  
  2408         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _FDB_DOSAG E_FORM TO  PPSNEPL_UP DATE_ROLE'  ;
  2409         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2410  
  2411         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _FDB_DRUG_ CLASS TO P PSNEPL_UPD ATE_ROLE'  ;
  2412         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2413  
  2414         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _FDB_DRUG_ INGREDIENT  TO PPSNEP L_UPDATE_R OLE' ;
  2415         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2416  
  2417         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _FDB_DRUG_ UNITS TO P PSNEPL_UPD ATE_ROLE'  ;
  2418         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2419  
  2420         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _FDB_GENER IC_NAME TO  PPSNEPL_U PDATE_ROLE ' ;
  2421         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2422  
  2423         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _FDB_NDC T O PPSNEPL_ UPDATE_ROL E' ;
  2424         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2425  
  2426         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _FDB_PRODU CT TO PPSN EPL_UPDATE _ROLE' ;
  2427         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2428  
  2429         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _FDB_UPDAT E TO PPSNE PL_UPDATE_ ROLE' ;
  2430         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2431  
  2432         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _HOSPITAL_ LOCATIONS  TO PPSNEPL _UPDATE_RO LE' ;
  2433         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2434  
  2435         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _IEN_GENER ATOR TO PP SNEPL_UPDA TE_ROLE' ;
  2436         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2437         
  2438         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _IFCAP_ITE M_NUMBERS  TO PPSNEPL _UPDATE_RO LE' ;
  2439         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2440  
  2441         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _INGREDIEN TS TO PPSN EPL_UPDATE _ROLE' ;
  2442         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2443         
  2444         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _INTENDED_ USES TO PP SNEPL_UPDA TE_ROLE' ;
  2445         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2446  
  2447         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _INTERFACE _COUNTERS  TO PPSNEPL _UPDATE_RO LE' ;
  2448         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2449  
  2450         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _ITEM_AUDI T_HISTORY  TO PPSNEPL _UPDATE_RO LE' ;
  2451         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2452  
  2453         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _ITEM_AUDI T_HISTORY_ DETAILS TO  PPSNEPL_U PDATE_ROLE ' ;
  2454         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2455  
  2456         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _LABS TO P PSNEPL_UPD ATE_ROLE'  ;
  2457         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2458  
  2459         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _LOCAL_CON SOLE_INFO  TO PPSNEPL _UPDATE_RO LE' ;
  2460         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2461  
  2462         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _LOCAL_MED _ROUTES TO  PPSNEPL_U PDATE_ROLE ' ;
  2463         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2464  
  2465         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _LOCAL_POS SIBLE_DOSA GES TO PPS NEPL_UPDAT E_ROLE' ;
  2466         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2467  
  2468         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _MANUFACTU RERS TO PP SNEPL_UPDA TE_ROLE' ;
  2469         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2470         
  2471         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _MEDICATIO N_INSTRUCT IONS TO PP SNEPL_UPDA TE_ROLE' ;
  2472         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2473  
  2474         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _MED_INSTR UCT_WARDS  TO PPSNEPL _UPDATE_RO LE' ;
  2475         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2476  
  2477         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _MIGRATION _CONTROL T O PPSNEPL_ UPDATE_ROL E' ;
  2478         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2479  
  2480         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _MIGRATION _ERROR TO  PPSNEPL_UP DATE_ROLE'  ;
  2481         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2482  
  2483         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _MIGRATION _FILE TO P PSNEPL_UPD ATE_ROLE'  ;
  2484         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2485  
  2486         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _MULTI_TEX T TO PPSNE PL_UPDATE_ ROLE' ;
  2487         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2488  
  2489         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _NATIONAL_ POSSIBLE_D OSAGES TO  PPSNEPL_UP DATE_ROLE'  ;
  2490         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2491  
  2492         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _NATIONAL_ SETTINGS T O PPSNEPL_ UPDATE_ROL E' ;
  2493         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2494  
  2495         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _NDCS TO P PSNEPL_UPD ATE_ROLE'  ;
  2496         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2497  
  2498         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _NDC_BY_OU TPATIENT_S ITE_NDC TO  PPSNEPL_U PDATE_ROLE ' ;
  2499         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2500  
  2501         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _NDF_OUTGO ING_DIFFER ENCES TO P PSNEPL_UPD ATE_ROLE'  ;
  2502         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2503    
  2504         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _NDF_SYNCH _QUEUE TO  PPSNEPL_UP DATE_ROLE'  ;
  2505         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2506  
  2507         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _NDF_UPDAT E_FILE TO  PPSNEPL_UP DATE_ROLE'  ;
  2508         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2509         
  2510         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _NOTIFICAT IONS TO PP SNEPL_UPDA TE_ROLE' ;
  2511         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2512  
  2513         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _NOTIF_USE R_PREFS TO  PPSNEPL_U PDATE_ROLE ' ;
  2514         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2515  
  2516         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _OI_ADMIN_ SCHED_ASSO CS TO PPSN EPL_UPDATE _ROLE' ;
  2517         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2518  
  2519         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _OI_DRUG_T EXT_L_ASSO CS TO PPSN EPL_UPDATE _ROLE' ;
  2520         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2521  
  2522         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _OI_DRUG_T EXT_N_ASSO CS TO PPSN EPL_UPDATE _ROLE' ;
  2523         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2524  
  2525         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _OI_MED_RO UTE_ASSOCS  TO PPSNEP L_UPDATE_R OLE' ;
  2526         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2527  
  2528         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _OI_SCHEDU LE_TYPES T O PPSNEPL_ UPDATE_ROL E' ;
  2529         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2530  
  2531         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _ORDERABLE _ITEMS TO  PPSNEPL_UP DATE_ROLE'  ;
  2532         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2533  
  2534         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _ORDER_UNI TS TO PPSN EPL_UPDATE _ROLE' ;
  2535         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2536  
  2537         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PACKAGE_S IZES TO PP SNEPL_UPDA TE_ROLE' ;
  2538         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2539  
  2540         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PACKAGE_T YPES TO PP SNEPL_UPDA TE_ROLE' ;
  2541         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2542  
  2543         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PACKAGE_U SAGES TO P PSNEPL_UPD ATE_ROLE'  ;
  2544         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2545  
  2546         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PACKAGE_U SE_ASSOCS  TO PPSNEPL _UPDATE_RO LE' ;
  2547         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2548  
  2549         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PARTIAL_S AVE_MGT TO  PPSNEPL_U PDATE_ROLE ' ;
  2550         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2551  
  2552         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PHARMACY_ SYSTEM TO  PPSNEPL_UP DATE_ROLE'  ;
  2553         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2554  
  2555         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PRINT_FIE LDS TO PPS NEPL_UPDAT E_ROLE' ;
  2556         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2557  
  2558         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PRINT_TEM PLATES TO  PPSNEPL_UP DATE_ROLE'  ;
  2559         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2560  
  2561         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PRODUCTS  TO PPSNEPL _UPDATE_RO LE' ;
  2562         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2563  
  2564         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PRODUCT_L ABS TO PPS NEPL_UPDAT E_ROLE' ;
  2565         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2566  
  2567         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PRODUCT_V ITALS TO P PSNEPL_UPD ATE_ROLE'  ;
  2568         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2569  
  2570         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PROD_DRUG _CLASS_ASS OCS TO PPS NEPL_UPDAT E_ROLE' ;
  2571         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2572  
  2573         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PROD_DRUG _TEXT_L_AS SOCS TO PP SNEPL_UPDA TE_ROLE' ;
  2574         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2575  
  2576         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PROD_DRUG _TEXT_N_AS SOCS TO PP SNEPL_UPDA TE_ROLE' ;
  2577         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2578  
  2579         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PROD_INGR EDIENT_ASS OCS TO PPS NEPL_UPDAT E_ROLE' ;
  2580         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2581  
  2582         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PROD_SPEC _HANDLING_ ASSOCS TO  PPSNEPL_UP DATE_ROLE'  ;
  2583         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2584  
  2585         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PROD_WARN _LABEL_L_A SSOCS TO P PSNEPL_UPD ATE_ROLE'  ;
  2586         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2587  
  2588         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PROD_WARN _LABEL_N_A SSOCS TO P PSNEPL_UPD ATE_ROLE'  ;
  2589         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2590          
  2591         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _REQUESTS  TO PPSNEPL _UPDATE_RO LE' ;
  2592         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2593  
  2594         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _REQUEST_D ETAILS TO  PPSNEPL_UP DATE_ROLE'  ;
  2595         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2596  
  2597         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _SCHEDULE_ TYPES TO P PSNEPL_UPD ATE_ROLE'  ;
  2598         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2599  
  2600         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _SEARCH_CR ITERIA TO  PPSNEPL_UP DATE_ROLE'  ;
  2601         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2602  
  2603         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _SEARCH_TE MPLATES TO  PPSNEPL_U PDATE_ROLE ' ;
  2604         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2605  
  2606         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _SEQ_NUMS  TO PPSNEPL _UPDATE_RO LE' ;
  2607         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2608  
  2609         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _SESSION_P REFERENCES  TO PPSNEP L_UPDATE_R OLE' ;
  2610         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2611  
  2612         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _SITE_CONF IGS TO PPS NEPL_UPDAT E_ROLE' ;
  2613         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2614  
  2615         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _SITE_UPDA TE_SCHEDUL ES TO PPSN EPL_UPDATE _ROLE' ;
  2616         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2617  
  2618         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _SPECIAL_H ANDLING TO  PPSNEPL_U PDATE_ROLE ' ;
  2619         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2620  
  2621         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _STANDARD_ MED_ROUTES  TO PPSNEP L_UPDATE_R OLE' ;
  2622         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2623  
  2624         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _STATUS TO  PPSNEPL_U PDATE_ROLE ' ;
  2625         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2626         
  2627         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _SYNONYMS  TO PPSNEPL _UPDATE_RO LE' ;
  2628         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2629  
  2630         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _USERS TO  PPSNEPL_UP DATE_ROLE'  ;
  2631         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2632  
  2633         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _VADF_ASSO C_VALUES T O PPSNEPL_ UPDATE_ROL E' ;
  2634         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2635  
  2636         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _VADF_EDIT ABLE_PROPE RTIES TO P PSNEPL_UPD ATE_ROLE'  ;
  2637         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2638  
  2639         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _VADF_LOVS  TO PPSNEP L_UPDATE_R OLE' ;
  2640         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2641  
  2642         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _VADF_NONL IST_VALUES  TO PPSNEP L_UPDATE_R OLE' ;
  2643         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2644  
  2645         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _VADF_OWNE RS TO PPSN EPL_UPDATE _ROLE' ;
  2646         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2647  
  2648         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _VA_DFS TO  PPSNEPL_U PDATE_ROLE ' ;
  2649         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2650  
  2651         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _VA_DISPEN SE_UNITS T O PPSNEPL_ UPDATE_ROL E' ;
  2652         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2653  
  2654         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _VA_DRUG_C LASSES TO  PPSNEPL_UP DATE_ROLE'  ;
  2655         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2656  
  2657         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _VA_GEN_NA MES TO PPS NEPL_UPDAT E_ROLE' ;
  2658         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2659  
  2660         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _VISTA_STA TUS TO PPS NEPL_UPDAT E_ROLE' ;
  2661         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2662         
  2663         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _VISTA_UPD ATE TO PPS NEPL_UPDAT E_ROLE' ;
  2664         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2665         
  2666         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _VITALS TO  PPSNEPL_U PDATE_ROLE ' ;
  2667         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2668  
  2669         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _VUID_STAT US_HISTORY  TO PPSNEP L_UPDATE_R OLE' ;
  2670         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2671  
  2672         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _WARDS TO  PPSNEPL_UP DATE_ROLE'  ;
  2673         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2674  
  2675         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _WARN_LABE LS TO PPSN EPL_UPDATE _ROLE' ;
  2676         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2677  
  2678         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.HIB ERNATE_UNI QUE_KEY TO  PPSNEPL_U PDATE_ROLE ' ;
  2679         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2680  
  2681         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.TEM P_EPL_NDCS  TO PPSNEP L_UPDATE_R OLE' ;
  2682         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2683         
  2684         vc_s ql_stateme nt := 'GRA NT ALTER,  SELECT ON  PPSNEPL.UP DATE_FILE_ SEQUENCE T O PPSNEPL_ UPDATE_ROL E' ;
  2685         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2686    
  2687         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PROD_COPA Y_TIER_ASS OCS TO PPS NEPL_UPDAT E_ROLE' ;
  2688         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2689  
  2690         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _COPAY_TIE R TO PPSNE PL_UPDATE_ ROLE' ;
  2691         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2692  
  2693         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_COPAY _TIER_3_PR ODUCTS TO  PPSNEPL_UP DATE_ROLE'  ;
  2694         EXEC UTE IMMEDI ATE vc_sql _statement ;      
  2695  
  2696         vc_s ql_stateme nt := 'GRA NT DELETE,  INSERT, U PDATE ON P PSNEPL.EPL _COMPLIANC E_SITE TO  PPSNEPL_UP DATE_ROLE'  ;
  2697         EXEC UTE IMMEDI ATE vc_sql _statement ;      
  2698         
  2699         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT ... to  ROLES ...m ultiple')  ;
  2700  
  2701         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  grant _TO_ROLES' );
  2702         RETU RN (0);
  2703      EXCEPTI ON
  2704         WHEN  OTHERS
  2705         THEN
  2706            v n_code :=  SQLCODE;
  2707            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  2708            s ys.DBMS_OU TPUT.put_l ine (
  2709                'grant_T O_ROLES: E rror code  ' || vn_co de || ': '  || vc_err m);
  2710            s ys.DBMS_OU TPUT.put_l ine (
  2711                'grant_T O_ROLES: l ast value  for vc_sql _statement  ');
  2712            s ys.DBMS_OU TPUT.put_l ine (
  2713                'grant_T O_ROLES: '  || vc_sql _statement );
  2714            R ETURN (1);
  2715      END gra nt_TO_ROLE S; 
  2716            
  2717      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  2718      -- NAME :          ALTER_EPL_ NDF_OUTG_D IF
  2719      -- TYPE :          Function
  2720      -- DESC RIPTION:   ALTER TABL E EPL_NDF_ DIFFERENCE S resize 2  columns
  2721      -- INPU TS:        None
  2722      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  2723      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  2724       FUNCTI ON alter_E PL_NDF_OUT G_DIF
  2725          RET URN NUMBER
  2726       IS
  2727               
  2728       BEGIN
  2729         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  2730         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  alt er_EPL_NDF _OUTG_DIF' ); 
  2731  
  2732         vc_s ql_stateme nt := 'ALT ER TABLE P PSNEPL.EPL _NDF_OUTGO ING_DIFFER ENCES MODI FY OLD_VAL UE VARCHAR 2(4000 BYT E)' ;
  2733         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2734         
  2735         vc_s ql_stateme nt := 'ALT ER TABLE P PSNEPL.EPL _NDF_OUTGO ING_DIFFER ENCES MODI FY NEW_VAL UE VARCHAR 2(4000 BYT E)' ;
  2736         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2737         
  2738         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  alter _EPL_NDF_O UTG_DIF');
  2739         RETU RN (0);
  2740      EXCEPTI ON
  2741         WHEN  OTHERS
  2742         THEN
  2743            v n_code :=  SQLCODE;
  2744            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  2745            s ys.DBMS_OU TPUT.put_l ine (
  2746                'alter_E PL_NDF_OUT G_DIF: Err or code '  || vn_code  || ': ' | | vc_errm) ;
  2747            s ys.DBMS_OU TPUT.put_l ine (
  2748                'alter_E PL_NDF_OUT G_DIF: las t value fo r vc_sql_s tatement ' );
  2749            s ys.DBMS_OU TPUT.put_l ine (
  2750                'alter_E PL_NDF_OUT G_DIF: ' | | vc_sql_s tatement);
  2751            R ETURN (1);
  2752      END alt er_EPL_NDF _OUTG_DIF;  
  2753        
  2754      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  2755      -- NAME :          ALTER_EPL_ VADF_LOVS
  2756      -- TYPE :          Function
  2757      -- DESC RIPTION:   ALTER TABL E EPL_VADF _LOVS add  one column
  2758      -- INPU TS:        None
  2759      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  2760      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  2761  
  2762       FUNCTI ON alter_E PL_VADF_LO VS
  2763          RET URN NUMBER
  2764        IS
  2765                  
  2766       BEGIN
  2767         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  2768         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  alt er_EPL_VAD F_LOVS'); 
  2769      
  2770         vc_s ql_stateme nt := 'ALT ER TABLE P PSNEPL.EPL _VADF_LOVS  ADD DISPL AY_VALUE V ARCHAR2(10 0 BYTE)' ;
  2771         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2772          
  2773         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  alter _EPL_VADF_ LOVS');
  2774         RETU RN (0);
  2775      EXCEPTI ON
  2776         WHEN  OTHERS
  2777         THEN
  2778            v n_code :=  SQLCODE;
  2779            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  2780            s ys.DBMS_OU TPUT.put_l ine (
  2781                'alter_E PL_VADF_LO VS: Error  code ' ||  vn_code ||  ': ' || v c_errm);
  2782            s ys.DBMS_OU TPUT.put_l ine (
  2783                'alter_E PL_VADF_LO VS: last v alue for v c_sql_stat ement ');
  2784            s ys.DBMS_OU TPUT.put_l ine (
  2785                'alter_E PL_VADF_LO VS: ' || v c_sql_stat ement);
  2786            R ETURN (1);
  2787     END alte r_EPL_VADF _LOVS; 
  2788      
  2789      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  2790      -- NAME :          ALTER_EPL_ PRODUCTS_C ODING
  2791      -- TYPE :          Function
  2792      -- DESC RIPTION:   ALTER TABL E EPL_PROD UCTS - COD ING SYSTEM
  2793      -- INPU TS:        None
  2794      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  2795      -- REVI SED FOR:   Armando an d Tim 4/28 /2017
  2796      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  2797       FUNCTI ON alter_E PL_PRODUCT S_CODING
  2798          RET URN NUMBER
  2799       IS
  2800      
  2801       BEGIN
  2802         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  2803         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  alt er_EPL_PRO DUCTS_CODI NG'); 
  2804      
  2805         vc_s ql_stateme nt := 'ALT ER TABLE P PSNEPL.EPL _PRODUCTS  ADD CODING _SYSTEM VA RCHAR2(10  BYTE)' ;
  2806         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2807         
  2808         vc_s ql_stateme nt := 'ALT ER TABLE P PSNEPL.EPL _PRODUCTS  ADD CODING _SYSTEM_CO DE VARCHAR 2(30 BYTE) ' ;
  2809         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2810  
  2811         vc_s ql_stateme nt := 'ALT ER TABLE P PSNEPL.EPL _PRODUCTS  ADD CODING _SYSTEM_LA ST_UPDATE_ DATE TIMES TAMP' ;
  2812         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2813         
  2814         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  alter _EPL_PRODU CTS_CODING ');
  2815         RETU RN (0);
  2816      EXCEPTI ON
  2817         WHEN  OTHERS
  2818         THEN
  2819            v n_code :=  SQLCODE;
  2820            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  2821            s ys.DBMS_OU TPUT.put_l ine (
  2822                'alter_E PL_PRODUCT S_CODING:  Error code  ' || vn_c ode || ':  ' || vc_er rm);
  2823            s ys.DBMS_OU TPUT.put_l ine (
  2824                'alter_E PL_PRODUCT S_CODING:  last value  for vc_sq l_statemen t ');
  2825            s ys.DBMS_OU TPUT.put_l ine (
  2826                'alter_E PL_PRODUCT S_CODING:  ' || vc_sq l_statemen t);
  2827            R ETURN (1);
  2828      END alt er_EPL_PRO DUCTS_CODI NG; 
  2829      
  2830      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  2831      -- NAME :          ALTER_EPL_ PRODUCTS_H Z
  2832      -- TYPE :          Function
  2833      -- DESC RIPTION:   ALTER TABL E EPL_PROD UCTS - HAZ ARDOUS WAS TE
  2834      -- INPU TS:        None
  2835      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  2836      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  2837       FUNCTI ON alter_E PL_PRODUCT S_HZ
  2838          RET URN NUMBER
  2839       IS
  2840         
  2841       BEGIN
  2842         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  2843         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  alt er_EPL_PRO DUCTS_HZ')
  2844  
  2845         vc_s ql_stateme nt := 'ALT ER TABLE P PSNEPL.EPL _PRODUCTS  ADD HAZARD OUS_TO_DIS POSE CHAR( 1)' ;
  2846         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2847  
  2848         vc_s ql_stateme nt := 'ALT ER TABLE P PSNEPL.EPL _PRODUCTS  ADD HAZARD OUS_TO_HAN DLE CHAR(1 )' ;
  2849         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2850  
  2851         vc_s ql_stateme nt := 'ALT ER TABLE P PSNEPL.EPL _PRODUCTS  ADD PRIMAR Y_EPA VARC HAR2(50 BY TE)' ;
  2852         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2853  
  2854         vc_s ql_stateme nt := 'ALT ER TABLE P PSNEPL.EPL _PRODUCTS  ADD WASTE_ SORT_CODE  VARCHAR2(5 0 BYTE)' ;
  2855         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2856  
  2857         vc_s ql_stateme nt := 'ALT ER TABLE P PSNEPL.EPL _PRODUCTS  ADD DOT_SH IPPING_NAM E VARCHAR2 (200 BYTE) ' ;
  2858         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2859         
  2860         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  alter _EPL_PRODU CTS_HZ');
  2861         RETU RN (0);
  2862      EXCEPTI ON
  2863         WHEN  OTHERS
  2864         THEN
  2865            v n_code :=  SQLCODE;
  2866            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  2867            s ys.DBMS_OU TPUT.put_l ine (
  2868                'alter_E PL_PRODUCT S_HZ: Erro r code ' | | vn_code  || ': ' ||  vc_errm);
  2869            s ys.DBMS_OU TPUT.put_l ine (
  2870                'alter_E PL_PRODUCT S_HZ: last  value for  vc_sql_st atement ') ;
  2871            s ys.DBMS_OU TPUT.put_l ine (
  2872                'alter_E PL_PRODUCT S_HZ: ' ||  vc_sql_st atement);
  2873            R ETURN (1);
  2874      END alt er_EPL_PRO DUCTS_HZ; 
  2875  
  2876      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  2877      -- NAME :          INSERT_EPL _VA_DFS_N_ LOVS_RX
  2878      -- TYPE :          Function
  2879      -- DESC RIPTION:   INSERT INT O TABLE EP L_VA_DFS a nd EPL_VA_ LOVS - SUP PRESS DML
  2880      -- INPU TS:        None
  2881      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  2882      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  2883       FUNCTI ON insert_ EPL_VA_DFS _N_LOVS_RX
  2884          RET URN NUMBER
  2885       IS
  2886  
  2887       max_id _dfs_plus_ 1 NUMBER;
  2888       max_id _lovs        NUMBER;
  2889           
  2890       BEGIN
  2891         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  2892         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  ins ert_EPL_VA _DFS_N_LOV S_RX'); 
  2893  
  2894         SELE CT NVL(MAX (ID), 0) +  1 INTO ma x_id_dfs_p lus_1 FROM  PPSNEPL.E PL_VA_DFS;
  2895         
  2896         vc_s ql_stateme nt :=
  2897            ' INSERT INT O PPSNEPL. EPL_VA_DFS  '
  2898         || ' (ID,VADF_N AME,VADF_T YPE,MULTI_ SELECT_YN, DEFAULT_VA LUE,VADF_U SAGES,CREA TED_BY,CRE ATED_DTM)  '
  2899         || ' VALUES ('| |max_id_df s_plus_1|| ',''rx.nor m.suppress '',''LIST' ',''N'',NU LL,''NPO'' ,''DEVELOP ER'',SYSDA TE)';
  2900            
  2901         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2902  
  2903         SELE CT ID INTO  max_id_lo vs FROM PP SNEPL.EPL_ VA_DFS WHE RE VADF_NA ME = 'rx.n orm.suppre ss';
  2904  
  2905         vc_s ql_stateme nt :=
  2906            ' INSERT INT O PPSNEPL. EPL_VADF_L OVS '
  2907         || ' (VADF_ID_F K,LIST_VAL UE,DISPLAY _VALUE,DEF AULT_VALUE ,CREATED_B Y,CREATED_ DTM) '
  2908              || 'VALUES  ('||max_i d_lovs||', ''N'', ''N -Not Suppr essible'',  ''N'', '' DEVELOPER' ', SYSDATE )';
  2909            
  2910         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2911  
  2912         vc_s ql_stateme nt :=
  2913            ' INSERT INT O PPSNEPL. EPL_VADF_L OVS '
  2914         || ' (VADF_ID_F K,LIST_VAL UE,DISPLAY _VALUE,DEF AULT_VALUE ,CREATED_B Y,CREATED_ DTM) '
  2915              || 'VALUES  ('||max_i d_lovs||', ''O'', ''O -Obsolete' ', ''N'',  ''DEVELOPE R'', SYSDA TE)';
  2916            
  2917         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2918  
  2919         vc_s ql_stateme nt :=
  2920            ' INSERT INT O PPSNEPL. EPL_VADF_L OVS '
  2921         || ' (VADF_ID_F K,LIST_VAL UE,DISPLAY _VALUE,DEF AULT_VALUE ,CREATED_B Y,CREATED_ DTM) '
  2922              || 'VALUES  ('||max_i d_lovs||', ''Y'', ''Y -Suppresse d'', ''N'' , ''DEVELO PER'', SYS DATE)';
  2923            
  2924         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2925             
  2926         vc_s ql_stateme nt :=
  2927            ' INSERT INT O PPSNEPL. EPL_VADF_L OVS '
  2928         || ' (VADF_ID_F K,LIST_VAL UE,DISPLAY _VALUE,DEF AULT_VALUE ,CREATED_B Y,CREATED_ DTM) '
  2929              || 'VALUES  ('||max_i d_lovs||', ''E'', ''E -Editor-As signed Sup pressiblit y'', ''N'' , ''DEVELO PER'', SYS DATE)';
  2930            
  2931         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2932         
  2933         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  inser t_EPL_VA_D FS_N_LOVS_ RX');
  2934         RETU RN (0);
  2935      EXCEPTI ON
  2936         WHEN  OTHERS
  2937         THEN
  2938            v n_code :=  SQLCODE;
  2939            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  2940            s ys.DBMS_OU TPUT.put_l ine (
  2941                'insert_ EPL_VA_DFS _N_LOVS_RX : Error co de ' || vn _code || ' : ' || vc_ errm);
  2942            s ys.DBMS_OU TPUT.put_l ine (
  2943                'insert_ EPL_VA_DFS _N_LOVS_RX : last val ue for vc_ sql_statem ent ');
  2944            s ys.DBMS_OU TPUT.put_l ine (
  2945                'insert_ EPL_VA_DFS _N_LOVS_RX : ' || vc_ sql_statem ent);
  2946            R ETURN (1);
  2947      END ins ert_EPL_VA _DFS_N_LOV S_RX; 
  2948             
  2949  
  2950      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  2951      -- NAME :          INSERT_EPL _VA_DFS_HZ
  2952      -- TYPE :          Function
  2953      -- DESC RIPTION:   INSERT INT O TABLE EP L_VA_DFS -  HAZARDOUS  WASTE DML
  2954      -- INPU TS:        None
  2955      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  2956      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  2957       FUNCTI ON insert_ EPL_VA_DFS _HZ
  2958          RET URN NUMBER
  2959       IS
  2960               max_id_df s_hz_1   N UMBER;
  2961               max_id_df s_hz_2   N UMBER;
  2962               max_id_df s_hz_3   N UMBER;                 
  2963       BEGIN
  2964         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  2965         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  ins ert_EPL_VA _DFS_HZ');  
  2966  
  2967         SELE CT NVL(MAX (ID), 0) +  1 INTO ma x_id_dfs_h z_1 FROM P PSNEPL.EPL _VA_DFS;
  2968         SELE CT NVL(MAX (ID), 0) +  2 INTO ma x_id_dfs_h z_2 FROM P PSNEPL.EPL _VA_DFS;
  2969         SELE CT NVL(MAX (ID), 0) +  3 INTO ma x_id_dfs_h z_3 FROM P PSNEPL.EPL _VA_DFS;
  2970                      
  2971         vc_s ql_stateme nt :=
  2972            ' INSERT INT O PPSNEPL. EPL_VA_DFS  '
  2973         || ' (ID,VADF_N AME,VADF_T YPE,MULTI_ SELECT_YN, DEFAULT_VA LUE,VADF_U SAGES,CREA TED_BY,CRE ATED_DTM,L AST_MODIFI ED_BY,LAST _MODIFIED_ DTM) '
  2974              || 'VALUES  ('||max_i d_dfs_hz_1 ||',''prim ary.epa'', ''STRING'' ,''N'',NUL L,''P'','' DEVELOPER' ',SYSDATE, NULL,SYSDA TE)';
  2975            
  2976         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2977  
  2978         vc_s ql_stateme nt :=
  2979            ' INSERT INT O PPSNEPL. EPL_VA_DFS  '
  2980         || ' (ID,VADF_N AME,VADF_T YPE,MULTI_ SELECT_YN, DEFAULT_VA LUE,VADF_U SAGES,CREA TED_BY,CRE ATED_DTM,L AST_MODIFI ED_BY,LAST _MODIFIED_ DTM) '
  2981              || 'VALUES  ('||max_i d_dfs_hz_2 ||',''wast e.sort.cod e'',''STRI NG'',''N'' ,NULL,''P' ',''DEVELO PER'',SYSD ATE,NULL,S YSDATE)';
  2982            
  2983         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2984  
  2985         vc_s ql_stateme nt :=
  2986            ' INSERT INT O PPSNEPL. EPL_VA_DFS  '
  2987         || ' (ID,VADF_N AME,VADF_T YPE,MULTI_ SELECT_YN, DEFAULT_VA LUE,VADF_U SAGES,CREA TED_BY,CRE ATED_DTM,L AST_MODIFI ED_BY,LAST _MODIFIED_ DTM) '
  2988              || 'VALUES  ('||max_i d_dfs_hz_3 ||',''dot. shipping.n ame'',''ST RING'',''N '',NULL,'' P'',''DEVE LOPER'',SY SDATE,NULL ,SYSDATE)' ;
  2989            
  2990         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2991         
  2992         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  inser t_EPL_VA_D FS_HZ');
  2993         RETU RN (0);
  2994      EXCEPTI ON
  2995         WHEN  OTHERS
  2996         THEN
  2997            v n_code :=  SQLCODE;
  2998            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  2999            s ys.DBMS_OU TPUT.put_l ine (
  3000                'insert_ EPL_VA_DFS _HZ: Error  code ' ||  vn_code | | ': ' ||  vc_errm);
  3001            s ys.DBMS_OU TPUT.put_l ine (
  3002                'insert_ EPL_VA_DFS _HZ: last  value for  vc_sql_sta tement ');
  3003            s ys.DBMS_OU TPUT.put_l ine (
  3004                'insert_ EPL_VA_DFS _HZ: ' ||  vc_sql_sta tement);
  3005            R ETURN (1);
  3006      END ins ert_EPL_VA _DFS_HZ; 
  3007  
  3008      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3009      -- NAME :          INSERT_EPL _NAT_SET_R X
  3010      -- TYPE :          Function
  3011      -- DESC RIPTION:   INSERT INT O TABLE EP L_NATIONAL _SETTINGS  - RX NORM
  3012      -- INPU TS:        None
  3013      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  3014      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3015       FUNCTI ON insert_ EPL_NAT_SE T_RX
  3016          RET URN NUMBER
  3017       IS
  3018          max _id_epl_1  NUMBER;
  3019          max _id_epl_2  NUMBER;        
  3020       BEGIN
  3021         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  3022         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  ins ert_EPL_NA T_SET_RX')
  3023  
  3024         SELE CT NVL(MAX (ID), 0) +  1 INTO ma x_id_epl_1  FROM PPSN EPL.EPL_NA TIONAL_SET TINGS;
  3025         SELE CT NVL(MAX (ID), 0) +  2 INTO ma x_id_epl_2  FROM PPSN EPL.EPL_NA TIONAL_SET TINGS;
  3026         
  3027         vc_s ql_stateme nt :=
  3028            ' INSERT INT O PPSNEPL. EPL_NATION AL_SETTING S (ID, KEY _NAME, CRE ATED_BY, C REATED_DTM ) '
  3029              || 'VALUES  ('||max_i d_epl_1||' ,''RXNORM_ UPDATE_RUN _STATE'',' 'DEVELOPER '',SYSDATE )';
  3030            
  3031         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3032      
  3033         vc_s ql_stateme nt :=
  3034            ' INSERT INT O PPSNEPL. EPL_NATION AL_SETTING S (ID, KEY _NAME, CRE ATED_BY, C REATED_DTM ) '
  3035         || ' VALUES ('| |max_id_ep l_2||',''R XNORM_UPDA TE_LAST_RU N'',''DEVE LOPER'',SY SDATE)';
  3036            
  3037         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3038         
  3039         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  inser t_EPL_NAT_ SET_RX');
  3040         RETU RN (0);
  3041      EXCEPTI ON
  3042         WHEN  OTHERS
  3043         THEN
  3044            v n_code :=  SQLCODE;
  3045            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  3046            s ys.DBMS_OU TPUT.put_l ine (
  3047                'insert_ EPL_NAT_SE T_RX: Erro r code ' | | vn_code  || ': ' ||  vc_errm);
  3048            s ys.DBMS_OU TPUT.put_l ine (
  3049                'insert_ EPL_NAT_SE T_RX: last  value for  vc_sql_st atement ') ;
  3050            s ys.DBMS_OU TPUT.put_l ine (
  3051                'insert_ EPL_NAT_SE T_RX: ' ||  vc_sql_st atement);
  3052            R ETURN (1);
  3053      END ins ert_EPL_NA T_SET_RX; 
  3054  
  3055      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3056      -- NAME :          INSERT_EPL _NAT_SET_F MCT
  3057      -- TYPE :          Function
  3058      -- DESC RIPTION:   INSERT INT O TABLE EP L_NATIONAL _SETTINGS  - FMCT RET ROFIT
  3059      -- INPU TS:        None
  3060      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  3061      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3062       FUNCTI ON insert_ EPL_NAT_SE T_FMCT
  3063          RET URN NUMBER
  3064       IS
  3065          max _id_epl_na t_fmct_1 N UMBER; 
  3066       BEGIN
  3067         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  3068         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  ins ert_EPL_NA T_SET_FMCT '); 
  3069  
  3070         SELE CT NVL(MAX (ID), 0) +  1 INTO ma x_id_epl_n at_fmct_1  FROM PPSNE PL.EPL_NAT IONAL_SETT INGS;
  3071     
  3072         vc_s ql_stateme nt :=
  3073            ' INSERT INT O PPSNEPL. EPL_NATION AL_SETTING S (ID, KEY _NAME, STR ING_VALUE,  CREATED_B Y, CREATED _DTM) '
  3074         || ' VALUES ('| |max_id_ep l_nat_fmct _1||',''ME SSAGE_COPA YTIER_TEXT '',''The C OPAY TIER  LEVEL sett ings have  been edite d for the  following  VA Product s.'',''DEV ELOPER'',S YSDATE)';
  3075            
  3076         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3077  
  3078         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  inser t_EPL_NAT_ SET_FMCT') ;
  3079         RETU RN (0);
  3080      EXCEPTI ON
  3081         WHEN  OTHERS
  3082         THEN
  3083            v n_code :=  SQLCODE;
  3084            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  3085            s ys.DBMS_OU TPUT.put_l ine (
  3086                'insert_ EPL_NAT_SE T_FMCT: Er ror code '  || vn_cod e || ': '  || vc_errm );
  3087            s ys.DBMS_OU TPUT.put_l ine (
  3088                'insert_ EPL_NAT_SE T_FMCT: la st value f or vc_sql_ statement  ');
  3089            s ys.DBMS_OU TPUT.put_l ine (
  3090                'insert_ EPL_NAT_SE T_FMCT: '  || vc_sql_ statement) ;
  3091            R ETURN (1);
  3092      END ins ert_EPL_NA T_SET_FMCT
  3093      
  3094      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3095      -- NAME :          update_EPL _STATUS
  3096      -- TYPE :          Function
  3097      -- DESC RIPTION:   UPDATE TAB LE EPL_STA TUS - RENA MED STATUS ES - updat ed later b y Armando,  re-includ ed...
  3098      -- INPU TS:        None
  3099      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  3100      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3101       FUNCTI ON update_ EPL_STATUS
  3102          RET URN NUMBER
  3103       IS
  3104  
  3105               epl_times tamp   TIM ESTAMP;
  3106                     
  3107       BEGIN
  3108         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  3109         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  upd ate_EPL_ST ATUS'); 
  3110  
  3111         SELE CT CURRENT _TIMESTAMP  INTO epl_ timestamp  FROM DUAL;
  3112         
  3113         vc_s ql_stateme nt :=
  3114            ' UPDATE PPS NEPL.EPL_S TATUS SET  STATUS_NAM E  = ''PPS -N/NDF Upd ate Test F ile Transm itted to t he test sF TP'', '
  3115         || ' STATUS_DES C = ''The  Test VistA  instance  has proces sed the PP S-N/NDF Up date Test  File and i s ready fo r testing.  A user ma y now acce ss the Upd ate approv al functio nality of  PPS-N'' '
  3116              || 'WHERE  STATUS_ID  = 3';
  3117            
  3118         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3119  
  3120         vc_s ql_stateme nt :=
  3121            ' UPDATE PPS NEPL.EPL_S TATUS SET  STATUS_NAM E  = ''PPS -N/NDF Upd ate Test F ile Instal l Successf ul'', '
  3122         || ' STATUS_DES C = ''The  Test VistA  instance  has proces sed the PP S-N/NDF Up date Test  File and i s ready fo r testing.  A user ma y now acce ss the Upd ate approv al functio nality of  PPS-N'' '
  3123              || 'WHERE  STATUS_ID  = 5';
  3124            
  3125         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3126  
  3127         vc_s ql_stateme nt :=
  3128            ' UPDATE PPS NEPL.EPL_S TATUS SET  STATUS_NAM E  = ''PPS -N/NDF Upd ate Test F ile Approv ed By PBM' ', '
  3129         || ' STATUS_DES C = ''The  PPS-N/NDF  Update Tes t File has  been appr oved by PB M in the u pdate mana gement are a of PPS-N '' '
  3130              || 'WHERE  STATUS_ID  = 6';
  3131            
  3132         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3133  
  3134         vc_s ql_stateme nt :=
  3135            ' UPDATE PPS NEPL.EPL_S TATUS SET  STATUS_NAM E  = ''PPS -N/NDF UPD ATE Test F ile Reject ed By PBM' ', '
  3136         || ' STATUS_DES C = ''The  PPS-N/NDF  Update Tes t File has  been appr oved by PB M in the u pdate mana gement are a of PPS-N '' '
  3137              || 'WHERE  STATUS_ID  = 7';
  3138            
  3139         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3140  
  3141         vc_s ql_stateme nt :=
  3142            ' UPDATE PPS NEPL.EPL_S TATUS SET  '
  3143         || ' STATUS_DES C = ''Tran smission o f the appr oved file  to the pro duction SF TP locatio n has been  completed '' '
  3144              || 'WHERE  STATUS_ID  = 8';
  3145            
  3146         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3147  
  3148         vc_s ql_stateme nt :=
  3149            ' UPDATE PPS NEPL.EPL_S TATUS SET  '
  3150         || ' STATUS_DES C = ''NDF  Update Pro cess Error  in PPS-N' ' '
  3151              || 'WHERE  STATUS_ID  = 99';
  3152            
  3153         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3154             
  3155         vc_s ql_stateme nt :=
  3156            ' INSERT INT O PPSNEPL. EPL_STATUS  '
  3157         || ' VALUES (98 ,''VistA E rror'',''A n error ha ppened in  VistA whil e the File  Update wa s being pr ocessed.'' ,''system' ','''||epl _timestamp ||''',NULL ,NULL) ';
  3158           
  3159         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3160  
  3161         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  updat e_EPL_STAT US');
  3162         RETU RN (0);
  3163      EXCEPTI ON
  3164         WHEN  OTHERS
  3165         THEN
  3166            v n_code :=  SQLCODE;
  3167            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  3168            s ys.DBMS_OU TPUT.put_l ine (
  3169                'update_ EPL_STATUS : Error co de ' || vn _code || ' : ' || vc_ errm);
  3170            s ys.DBMS_OU TPUT.put_l ine (
  3171                'update_ EPL_STATUS : last val ue for vc_ sql_statem ent ');
  3172            s ys.DBMS_OU TPUT.put_l ine (
  3173                'update_ EPL_STATUS : ' || vc_ sql_statem ent);
  3174            R ETURN (1);
  3175      END upd ate_EPL_ST ATUS; 
  3176         
  3177      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3178      -- NAME :          drop_creat e_EPL_CLAS S_TYPES
  3179      -- TYPE :          Function
  3180      -- DESC RIPTION:   DROP and C REATE revi sed EPL_CL ASS_TYPES  tables for  code/desc  split for  VistA
  3181      --                 Table is e xpected to  exist and  needs dro p/replace
  3182      -- INPU TS:        None
  3183      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  3184      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3185      FUNCTIO N drop_cre ate_EPL_CL ASS_TYPES
  3186         RETU RN NUMBER
  3187      IS
  3188  
  3189      BEGIN
  3190         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  3191         sys. DBMS_OUTPU T.put_line  (
  3192            ' INFORMATIO N -   STAR T:  drop_c reate_EPL_ CLASS_TYPE S'); 
  3193  
  3194         vc_s ql_stateme nt := 'ALT ER TABLE P PSNEPL.EPL _CLASS_TYP ES DROP PR IMARY KEY  CASCADE ';
  3195            
  3196         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3197  
  3198         vc_s ql_stateme nt := 'DRO P TABLE PP SNEPL.EPL_ CLASS_TYPE S CASCADE  CONSTRAINT S ';
  3199            
  3200         EXEC UTE IMMEDI ATE vc_sql _statement ;  
  3201         
  3202         vc_s ql_stateme nt :=
  3203                'CREATE  TABLE PPSN EPL.EPL_CL ASS_TYPES(  '
  3204            | | 'ID                   NUMBER(3 0)                  N OT NULL, '
  3205            | | 'CLASS_T YPE_CODE     VARCHAR2 (1)                 N OT NULL, '
  3206            | | 'CLASS_T YPE_DESC     VARCHAR2 (50 BYTE)           N OT NULL, '
  3207            | | 'CREATED _BY          VARCHAR2 (50 BYTE)           N OT NULL, '
  3208            | | 'CREATED _DTM         TIMESTAM P(6)                N OT NULL, '
  3209            | | 'LAST_MO DIFIED_BY    VARCHAR2 (50 BYTE),  '
  3210            | | 'LAST_MO DIFIED_DTM   TIMESTAM P(6) )'
  3211            | | 'TABLESP ACE PPSNEP L_DATA ';
  3212            
  3213         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3214  
  3215         vc_s ql_stateme nt :=
  3216                'ALTER T ABLE PPSNE PL.EPL_CLA SS_TYPES '
  3217            | | 'ADD (CO NSTRAINT E PL_CLASS_T YPES_PK '
  3218            | | 'PRIMARY  KEY (ID)  '
  3219            | | 'USING I NDEX '
  3220            | | 'ENABLE  VALIDATE)' ;
  3221         
  3222         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3223         
  3224         vc_s ql_stateme nt :=
  3225                'GRANT I NSERT, UPD ATE, DELET E '
  3226            | | 'ON PPSN EPL.EPL_CL ASS_TYPES  '
  3227            | | 'TO PPSN EPL_UPDATE _ROLE';
  3228  
  3229         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3230           
  3231         vc_s ql_stateme nt :=  
  3232                'GRANT S ELECT '
  3233            | | 'ON PPSN EPL.EPL_CL ASS_TYPES  '
  3234            | | 'TO PPSN EPL_READ_O NLY_ROLE';
  3235            
  3236         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3237  
  3238         vc_s ql_stateme nt :=
  3239                'CREATE  OR REPLACE  PUBLIC SY NONYM '
  3240            | | 'EPL_CLA SS_TYPES '
  3241            | | 'FOR PPS NEPL.EPL_C LASS_TYPES ';
  3242  
  3243         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3244  
  3245         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  drop_ create_EPL _CLASS_TYP ES');
  3246         RETU RN (0);
  3247      EXCEPTI ON
  3248         WHEN  OTHERS
  3249         THEN
  3250            v n_code :=  SQLCODE;
  3251            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  3252            s ys.DBMS_OU TPUT.put_l ine (
  3253                'drop_cr eate_EPL_C LASS_TYPES : Error co de ' || vn _code || ' : ' || vc_ errm);
  3254            s ys.DBMS_OU TPUT.put_l ine (
  3255                'drop_cr eate_EPL_C LASS_TYPES : last val ue for vc_ sql_statem ent ');
  3256            s ys.DBMS_OU TPUT.put_l ine (
  3257                'drop_cr eate_EPL_C LASS_TYPES : ' || vc_ sql_statem ent);
  3258            R ETURN (1);
  3259      END dro p_create_E PL_CLASS_T YPES;   
  3260  
  3261  
  3262      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3263      -- NAME :          INSERT_EPL _CLASS_TYP ES
  3264      -- TYPE :          Function
  3265      -- DESC RIPTION:   INSERT INT O TABLE EP L_CLASS_TY PES - REDE FINED TABL E FOR Vist A code/des c split DM L
  3266      -- INPU TS:        None
  3267      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  3268      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3269       FUNCTI ON insert_ EPL_CLASS_ TYPES
  3270          RET URN NUMBER
  3271       IS
  3272  
  3273       BEGIN
  3274         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  3275         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  ins ert_EPL_CL ASS_TYPES' ); 
  3276  
  3277         vc_s ql_stateme nt :=
  3278            ' INSERT INT O EPL_CLAS S_TYPES '
  3279         || ' (id, class _type_code , class_ty pe_desc, c reated_by,  created_d tm, LAST_M ODIFIED_BY , LAST_MOD IFIED_DTM)  '
  3280              || 'VALUES  (1,''0'', ''0-Major' ',''DEVELO PER'',SYSD ATE,NULL,N ULL)';
  3281            
  3282         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3283  
  3284         vc_s ql_stateme nt :=
  3285            ' INSERT INT O EPL_CLAS S_TYPES '
  3286         || ' (id, class _type_code , class_ty pe_desc, c reated_by,  created_d tm, LAST_M ODIFIED_BY , LAST_MOD IFIED_DTM)  '
  3287              || 'VALUES  (2,''1'', ''1-Minor' ',''DEVELO PER'',SYSD ATE,NULL,N ULL)';
  3288            
  3289         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3290  
  3291         vc_s ql_stateme nt :=
  3292            ' INSERT INT O EPL_CLAS S_TYPES '
  3293         || ' (id, class _type_code , class_ty pe_desc, c reated_by,  created_d tm, LAST_M ODIFIED_BY , LAST_MOD IFIED_DTM)  '
  3294              || 'VALUES  (3,''2'', ''2-Sub-Cl ass'',''DE VELOPER'', SYSDATE,NU LL,NULL)';
  3295            
  3296         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3297         
  3298         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  inser t_EPL_CLAS S_TYPES');
  3299         RETU RN (0);
  3300      EXCEPTI ON
  3301         WHEN  OTHERS
  3302         THEN
  3303            v n_code :=  SQLCODE;
  3304            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  3305            s ys.DBMS_OU TPUT.put_l ine (
  3306                'insert_ EPL_CLASS_ TYPES: Err or code '  || vn_code  || ': ' | | vc_errm) ;
  3307            s ys.DBMS_OU TPUT.put_l ine (
  3308                'insert_ EPL_CLASS_ TYPES: las t value fo r vc_sql_s tatement ' );
  3309            s ys.DBMS_OU TPUT.put_l ine (
  3310                'insert_ EPL_CLASS_ TYPES: ' | | vc_sql_s tatement);
  3311            R ETURN (1);
  3312      END ins ert_EPL_CL ASS_TYPES;  
  3313  
  3314      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3315      -- NAME :          delete_upd ate_EPL_NA T_SET_SFTP
  3316      -- TYPE :          Function
  3317      -- DESC RIPTION:   delete and  UPDATE NA TIONAL SET TINGS for  Secure FTP  
  3318      -- INPU TS:        None
  3319      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  3320      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3321       FUNCTI ON delete_ update_EPL _NAT_SET_S FTP
  3322          RET URN NUMBER
  3323       IS
  3324  
  3325       BEGIN
  3326         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  3327         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  del ete_update _EPL_NAT_S ET_SFTP');  
  3328  
  3329         vc_s ql_stateme nt :=
  3330            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S '
  3331              || 'WHERE  KEY_NAME =  ''NDF_OUT PUT_PROD_P ROTOCOL''  ';
  3332            
  3333         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3334  
  3335         vc_s ql_stateme nt :=
  3336            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S '
  3337         || ' WHERE KEY_ NAME = ''N DF_OUTPUT_ TST_PROTOC OL'' ';
  3338            
  3339         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3340  
  3341   -- REMOVE  PER DAVID  TOMBS 07-2 8-2017
  3342  
  3343         vc_s ql_stateme nt :=
  3344            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S '
  3345         || ' WHERE KEY_ NAME = ''M ESSAGE_ERR OR'' ';
  3346            
  3347         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3348  
  3349   -- CHANGED  PER BOB 8 /8
  3350  
  3351         vc_s ql_stateme nt :=
  3352              'UPDATE PP SNEPL.EPL_ NATIONAL_S ETTINGS SE T STRING_V ALUE = '' SERVER . DOMAIN '' '
  3353              || 'WHERE  KEY_NAME =  ''NDF_OUT PUT_PROD_H OSTNAME''  ';
  3354            
  3355         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3356  
  3357   -- CHANGED  PER BOB 8 /8
  3358  
  3359         vc_s ql_stateme nt :=
  3360              'UPDATE PP SNEPL.EPL_ NATIONAL_S ETTINGS SE T STRING_V ALUE = '' SERVER . DOMAIN '' '
  3361              || 'WHERE  KEY_NAME =  ''NDF_OUT PUT_TST_HO STNAME'' ' ;
  3362            
  3363         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3364  
  3365         vc_s ql_stateme nt :=
  3366            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = ''22 '' '
  3367              || 'WHERE  KEY_NAME =  ''NDF_OUT PUT_PROD_P ORT'' ';
  3368            
  3369         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3370  
  3371         vc_s ql_stateme nt :=
  3372            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = ''22 '' '
  3373              || 'WHERE  KEY_NAME =  ''NDF_OUT PUT_TST_PO RT'' ';
  3374            
  3375         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3376  
  3377         vc_s ql_stateme nt :=
  3378              'UPDATE PP SNEPL.EPL_ NATIONAL_S ETTINGS SE T STRING_V ALUE = '' PW       '' '
  3379              || 'WHERE  KEY_NAME =  ''NDF_OUT PUT_PROD_U SERNAME''  ';
  3380            
  3381         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3382  
  3383         vc_s ql_stateme nt :=
  3384              'UPDATE PP SNEPL.EPL_ NATIONAL_S ETTINGS SE T STRING_V ALUE = '' PW       '' '
  3385              || 'WHERE  KEY_NAME =  ''NDF_OUT PUT_TST_US ERNAME'' ' ;
  3386            
  3387         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3388  
  3389         vc_s ql_stateme nt :=
  3390              'UPDATE PP SNEPL.EPL_ NATIONAL_S ETTINGS SE T STRING_V ALUE = ' | |''' PW          '''
  3391            | | ' WHERE  KEY_NAME =  ''NDF_OUT PUT_PROD_P ASSWORD''  ';
  3392            
  3393         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3394  
  3395         vc_s ql_stateme nt :=
  3396              'UPDATE PP SNEPL.EPL_ NATIONAL_S ETTINGS SE T STRING_V ALUE = ' | |''' PW         '''
  3397                 || ' WH ERE KEY_NA ME = ''NDF _OUTPUT_TS T_PASSWORD '' ';
  3398            
  3399         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3400         
  3401   /* Removed  - D. Tomb s 3/22/201 7
  3402   -- NEW 9/2 3/2016 NOT  PREVIOUSL Y ENABLED  --   
  3403  
  3404         vc_s ql_stateme nt :=
  3405            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  BOOLEAN_V ALUE = 1 '
  3406              || 'WHERE  KEY_NAME =  ''NDF_OUT PUT_FTP_ON '' ';
  3407  
  3408         EXEC UTE IMMEDI ATE vc_sql _statement ;      
  3409   */
  3410                
  3411         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  delet e_update_E PL_NAT_SET _SFTP');
  3412         RETU RN (0);
  3413      EXCEPTI ON
  3414         WHEN  OTHERS
  3415         THEN
  3416            v n_code :=  SQLCODE;
  3417            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  3418            s ys.DBMS_OU TPUT.put_l ine (
  3419                'delete_ update_EPL _NAT_SET_S FTP: Error  code ' ||  vn_code | | ': ' ||  vc_errm);
  3420            s ys.DBMS_OU TPUT.put_l ine (
  3421                'delete_ update_EPL _NAT_SET_S FTP: last  value for  vc_sql_sta tement ');
  3422            s ys.DBMS_OU TPUT.put_l ine (
  3423                'delete_ update_EPL _NAT_SET_S FTP: ' ||  vc_sql_sta tement);
  3424            R ETURN (1);
  3425      END del ete_update _EPL_NAT_S ET_SFTP; 
  3426  
  3427      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3428      -- NAME :          update_EPL _NAT_SET_R PT_MSG
  3429      -- TYPE :          Function
  3430      -- DESC RIPTION:   delete and  UPDATE NA TIONAL SET TINGS for  Secure FTP  
  3431      -- INPU TS:        None
  3432      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  3433      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3434       FUNCTI ON update_ EPL_NAT_SE T_RPT_MSG
  3435          RET URN NUMBER
  3436       IS
  3437  
  3438          max _id_nat_se t   NUMBER ;
  3439          
  3440       BEGIN
  3441         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  3442         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  upd ate_EPL_NA T_SET_RPT_ MSG'); 
  3443  
  3444         SELE CT NVL(MAX (ID), 0) +  1 INTO ma x_id_nat_s et FROM PP SNEPL.EPL_ NATIONAL_S ETTINGS;
  3445        
  3446         vc_s ql_stateme nt :=
  3447            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3448              || '''The  following  interactio ns have be en added,  edited or  inactivate d.|These c hanges are  the resul t of revie w and reco mmendation s from the |NDF suppo rt group.' ' ' 
  3449              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3450              || 'WHERE  KEY_NAME =  ''MESSAGE 2_DDI_TEXT '' ';
  3451            
  3452         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3453  
  3454         vc_s ql_stateme nt :=
  3455            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3456              || '''The  following  VA Product (s) have b een flagge d for excl usion from |drug-drug  interacti on checks. '' '
  3457              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3458              || 'WHERE  KEY_NAME =  ''MESSAGE 2_EXCLUEDE DDDI_TEXT' ' ';
  3459            
  3460         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3461         
  3462         vc_s ql_stateme nt :=
  3463            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3464               || '''The  FDA Med G uide for t he followi ng VA Prod uct(s) has  been chan ged.|'' '
  3465               || ',LAST _MODIFIED_ BY=''DEVEL OPER'',LAS T_MODIFIED _DTM=SYSDA TE ' 
  3466               || 'WHERE  KEY_NAME  = ''MESSAG E2_MEDGUID E_TEXT'' ' ;
  3467            
  3468         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3469         
  3470         vc_s ql_stateme nt :=
  3471            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3472              || '''The  following  VA Product (s), previ ously flag ged for ex clusion fr om|drug-dr ug interac tion check s, have be en changed  to be inc luded in|d rug-drug i nteraction  checks.''  '
  3473              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3474              || 'WHERE  KEY_NAME =  ''MESSAGE 2_PREVEXCL UEDEDDDI_T EXT'' ';
  3475            
  3476         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3477         
  3478         vc_s ql_stateme nt :=
  3479            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3480              || '''The  following  VA Product (s) have b een added  to the Nat ional Drug  File.|You  may wish  to review,  then matc h or unmat ch local D RUG file ( #50)|entri es based o n this upd ated infor mation.''  '
  3481              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3482              || 'WHERE  KEY_NAME =  ''MESSAGE _ADDEDPROD UCT_TEXT''  ';
  3483            
  3484         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3485         
  3486         vc_s ql_stateme nt :=
  3487            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3488              || '''The  following  VA Product  Identifie r(s) (CMOP  ID) have  been added  or|edited .'' '
  3489              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3490              || 'WHERE  KEY_NAME =  ''MESSAGE _CMOPCHANG E_TEXT'' ' ;
  3491            
  3492         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3493         
  3494         vc_s ql_stateme nt :=
  3495            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3496              || '''The  following  VA Dispens e Unit(s)  have been  added or e dited.|''  '
  3497              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3498              || 'WHERE  KEY_NAME =  ''MESSAGE _DISPENSEU NITCHANGE_ TEXT'' ';
  3499            
  3500         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3501         
  3502         vc_s ql_stateme nt :=
  3503            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3504              || '''The  following  VA Dosage  Form(s) ha ve been ed ited.|'' '
  3505              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3506              || 'WHERE  KEY_NAME =  ''MESSAGE _DOSAGEFOR MCHANGE_TE XT'' ';
  3507            
  3508         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3509         
  3510         vc_s ql_stateme nt :=
  3511            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3512              || '''Unit (s) have b een added  or edited  for the fo llowing VA  Product(s ).|'' '
  3513              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3514              || 'WHERE  KEY_NAME =  ''MESSAGE _DRUGUNITC HANGE_TEXT '' ';
  3515            
  3516         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3517  
  3518         vc_s ql_stateme nt :=
  3519            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3520              || '''The  following  VA Product (s) WILL b e inactiva ted on the  date list ed. No|alt ernative V A Product( s) have be en found.' ' '
  3521              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3522              || 'WHERE  KEY_NAME =  ''MESSAGE _FUTUREINA CTIVE_TEXT '' ';
  3523            
  3524         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3525         
  3526         vc_s ql_stateme nt :=
  3527            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3528              || '''The  following  VA Generic  Name(s) h ave been a dded or ed ited.|'' '
  3529              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3530              || 'WHERE  KEY_NAME =  ''MESSAGE _GENERICNA MECHANGE_T EXT'' ';
  3531            
  3532         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3533         
  3534         vc_s ql_stateme nt :=
  3535            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3536              || '''The  following  active VA  Product(s)  are no lo nger marke d for CMOP . All|loca l DRUG fil e (#50) en tries matc hed to the  VA Produc t(s) will  be|UNMARKE D for CMOP . In order  to have t hese entri es dispens ed by CMOP ,|any loca l DRUG fil e (#50) en tries matc hed to the se product s must be| re-matched  to anothe r VA produ ct that is  marked fo r CMOP dis pensing.''  '
  3537              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3538              || 'WHERE  KEY_NAME =  ''MESSAGE _INACTIVAT EDCMOP_TEX T'' ';
  3539            
  3540         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3541         
  3542         vc_s ql_stateme nt :=
  3543            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3544              || '''The  following  VA Product (s) have b een inacti vated.|No  alternativ e VA Produ ct(s) have  been foun d.'' '
  3545              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3546              || 'WHERE  KEY_NAME =  ''MESSAGE _INACTIVAT EDPRODUCT_ TEXT'' ';
  3547            
  3548         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3549  
  3550         vc_s ql_stateme nt :=
  3551            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3552              || '''The  following  VA Product (s) have b een inacti vated. All  local DRU G|file (#5 0) entries  matched t o the VA P roduct(s)  will be un matched an d|automati cally rema tched to t he VA Prod uct listed .'' '
  3553              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3554              || 'WHERE  KEY_NAME =  ''MESSAGE _INACTIVAT EDREMATCHE D_TEXT'' ' ;
  3555            
  3556         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3557         
  3558         vc_s ql_stateme nt :=
  3559            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3560            | | '''The f ollowing V A Product( s) have be en inactiv ated. All  local DRUG |file (#50 ) entries  matched to  the VA Pr oducts wil l be unmat ched.|In o rder to co ntinue to  use the pr oduct(s),  it is sugg ested the  local|site  rematch t he local D RUG file ( #50) entry (ies) to t he listed| VA Product .'' '
  3561            | | ',LAST_M ODIFIED_BY =''DEVELOP ER'',LAST_ MODIFIED_D TM=SYSDATE  ' 
  3562            | | 'WHERE K EY_NAME =  ''MESSAGE_ INACTIVATE DWSUGG_TEX T'' ';
  3563            
  3564         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3565         
  3566         vc_s ql_stateme nt :=
  3567            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3568            | | '''The N ational Fo rmulary In dicator ha s changed  for the fo llowing|VA  Products.  The Natio nal Formul ary Indica tor will a utomatical ly be|chan ged in you r local DR UG file (# 50). Pleas e review t he local|D RUG file ( #50) Formu lary desig nations of  these pro ducts and  make|appro priate cha nges.'' '
  3569            | | ',LAST_M ODIFIED_BY =''DEVELOP ER'',LAST_ MODIFIED_D TM=SYSDATE  ' 
  3570            | | 'WHERE K EY_NAME =  ''MESSAGE_ NATIONALFO RMULARY_TE XT'' ';
  3571            
  3572         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3573  
  3574         vc_s ql_stateme nt :=
  3575            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3576              || '''The  following  VA Product (s) have b een edited . All loca l DRUG fil e|(#50) en tries matc hed to the  VA Produc ts will be  unmatched . No|alter native VA  Product(s)  have been  found.''  '
  3577              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3578              || 'WHERE  KEY_NAME =  ''MESSAGE _OTHERNORE MATCH_TEXT '' ';
  3579            
  3580         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3581         
  3582         vc_s ql_stateme nt :=
  3583            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3584              || '''The  following  VA Product (s) have b een edited . All loca l DRUG fil e|(#50) en tries matc hed to the  VA Produc t(s) will  be unmatch ed and|aut omatically  rematched  to the VA  Product l isted.'' '
  3585              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3586              || 'WHERE  KEY_NAME =  ''MESSAGE _OTHERREMA TCHED_TEXT '' ';
  3587            
  3588         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3589  
  3590         vc_s ql_stateme nt :=
  3591            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3592              || '''The  following  VA Product (s) have b een edited . All loca l DRUG fil e|(#50) en tries matc hed to the  VA Produc ts will be  unmatched . In order |to contin ue to use  the produc t(s), it i s suggeste d the loca l site|rem atch the l ocal DRUG  file (#50)  entry(ies ) to the l isted VA P roduct.''  '
  3593              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3594              || 'WHERE  KEY_NAME =  ''MESSAGE _OTHERREMA TCHSUGG_TE XT'' ';
  3595            
  3596         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3597                
  3598         vc_s ql_stateme nt :=
  3599            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3600              || '''The  OVERRIDE D F DOSE CHK  EXCLUSION (#31) fiel d in the V A PRODUCT| file(#50.6 8) has cha nged for t he followi ng VA Prod ucts.'' '
  3601              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3602              || 'WHERE  KEY_NAME =  ''MESSAGE _OVERRIDED OSECHECK_T EXT'' ';
  3603            
  3604         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3605         
  3606         vc_s ql_stateme nt :=
  3607            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3608              || '''The  Auto-Creat e Possible  Dosages s ettings ha ve been ed ited for t he|followi ng VA Prod uct(s). Pl ease revie w your loc al dosages  for|produ cts matche d to these  entries.  Edits to y our site'' ''s possib le|dosages  or local  possible d osages may  be needed .'' '
  3609              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3610              || 'WHERE  KEY_NAME =  ''MESSAGE _POSSIBLED OSAGE_TEXT '' ';
  3611            
  3612         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3613  
  3614         vc_s ql_stateme nt :=
  3615            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3616              || '''The  following  VA Print N ame(s) hav e been add ed or edit ed.|'' '
  3617              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3618              || 'WHERE  KEY_NAME =  ''MESSAGE _PRINTNAME CHANGE_TEX T'' ';
  3619            
  3620         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3621  
  3622         vc_s ql_stateme nt :=
  3623            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3624              || '''The  following  VA Product (s) WILL b e inactiva ted on the  date list ed.|All lo cal DRUG f ile (#50)  entries ma tched to t he VA Prod ucts will  be|unmatch ed once th e product  is inactiv ated. In o rder to co ntinue to| use the pr oduct(s),  it is sugg ested the  local site  rematch t he local|D RUG file ( #50) entry (ies) to t he listed  VA Product .'' '
  3625              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3626              || 'WHERE  KEY_NAME =  ''MESSAGE _PROPOSEDI NACTIVATED WSUGG_TEXT '' ';
  3627            
  3628         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3629  
  3630         vc_s ql_stateme nt :=
  3631            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3632              || '''The  following  VA Product (s) have b een reacti vated.|''  '
  3633              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3634              || 'WHERE  KEY_NAME =  ''MESSAGE _REACTIVAT EDPRODUCT_ TEXT'' ';
  3635            
  3636         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3637         
  3638         vc_s ql_stateme nt :=
  3639            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3640              || '''CS F ederal Sch edule(s) h ave been a dded or ed ited for t he followi ng|VA Prod uct(s). Pl ease revie w the loca l DEA spec ial handli ng field|a nd make re quired edi ts.'' '
  3641              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3642              || 'WHERE  KEY_NAME =  ''MESSAGE _SCHEDULEC HANGEALL_T EXT'' ';
  3643            
  3644         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3645  
  3646         vc_s ql_stateme nt :=
  3647            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3648              || '''Stre ngth(s) ha ve been ad ded or edi ted for th e followin g VA Produ ct(s).|''  '
  3649              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3650              || 'WHERE  KEY_NAME =  ''MESSAGE _STRENGTH_ TEXT'' ';
  3651            
  3652         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3653         
  3654         vc_s ql_stateme nt :=
  3655            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3656              || '''The  following  VA Drug Cl ass(es) ha ve been ad ded or edi ted. The V A Class|fo r this VA  Product wi ll be auto matically  updated in  the local |DRUG file  (#50).''  '
  3657              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3658              || 'WHERE  KEY_NAME =  ''MESSAGE _VACLASSCH ANGE_TEXT' ' ';
  3659            
  3660         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3661         
  3662         vc_s ql_stateme nt :=
  3663            ' INSERT INT O PPSNEPL. EPL_NATION AL_SETTING S (ID,KEY_ NAME,STRIN G_VALUE,CR EATED_BY,C REATED_DTM ) '
  3664         || ' VALUES ('| |max_id_na t_set||',' 'MESSAGE_N EWVADRUGCL ASS_TEXT'' ,''The fol lowing VA  Drug Class (es) have  been added .'',''DEVE LOPER'',SY SDATE)';
  3665                     
  3666         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3667                      
  3668         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  updat e_EPL_NAT_ SET_RPT_MS G');
  3669         RETU RN (0);
  3670      EXCEPTI ON
  3671         WHEN  OTHERS
  3672         THEN
  3673            v n_code :=  SQLCODE;
  3674            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  3675            s ys.DBMS_OU TPUT.put_l ine (
  3676                'update_ EPL_NAT_SE T_RPT_MSG:  Error cod e ' || vn_ code || ':  ' || vc_e rrm);
  3677            s ys.DBMS_OU TPUT.put_l ine (
  3678                'update_ EPL_NAT_SE T_RPT_MSG:  last valu e for vc_s ql_stateme nt ');
  3679            s ys.DBMS_OU TPUT.put_l ine (
  3680                'update_ EPL_NAT_SE T_RPT_MSG:  ' || vc_s ql_stateme nt);
  3681            R ETURN (1);
  3682      END upd ate_EPL_NA T_SET_RPT_ MSG; 
  3683  
  3684      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3685      -- NAME :          insert_EPL _VISTA_STA TUS
  3686      -- TYPE :          Function
  3687      -- DESC RIPTION:   UPDATE TAB LE EPL_VIS TA_STATUS  - by Arman do...
  3688      -- INPU TS:        None
  3689      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  3690      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3691       FUNCTI ON insert_ EPL_VISTA_ STATUS
  3692          RET URN NUMBER
  3693       IS
  3694               
  3695               eplv_time stamp   TI MESTAMP;
  3696               
  3697       BEGIN
  3698           
  3699         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  3700         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  ins ert_EPL_VI STA_STATUS '); 
  3701  
  3702         SELE CT CURRENT _TIMESTAMP  INTO eplv _timestamp  FROM DUAL ;
  3703         
  3704         vc_s ql_stateme nt :=
  3705                'INSERT  INTO PPSNE PL.EPL_VIS TA_STATUS  '
  3706            | | 'VALUES  (98,''ERRO R'',''Vist a Error'', ''system'' ,'''||eplv _timestamp ||''',''sy stem'',''' ||eplv_tim estamp||'' ')';
  3707            
  3708         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3709  
  3710         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  inser t_EPL_VIST A_STATUS') ;
  3711         RETU RN (0);
  3712      EXCEPTI ON
  3713         WHEN  OTHERS
  3714         THEN
  3715            v n_code :=  SQLCODE;
  3716            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  3717            s ys.DBMS_OU TPUT.put_l ine (
  3718                'insert_ EPL_VISTA_ STATUS: Er ror code '  || vn_cod e || ': '  || vc_errm );
  3719            s ys.DBMS_OU TPUT.put_l ine (
  3720                'insert_ EPL_VISTA_ STATUS: la st value f or vc_sql_ statement  ');
  3721            s ys.DBMS_OU TPUT.put_l ine (
  3722                'insert_ EPL_VISTA_ STATUS: '  || vc_sql_ statement) ;
  3723            R ETURN (1);
  3724      END ins ert_EPL_VI STA_STATUS
  3725  
  3726      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3727      -- NAME :          create_PER FORMANCE_I NDEXES
  3728      -- TYPE :          Function
  3729      -- DESC RIPTION:   CREATE IND EXES FOR P ERFORMANCE  IMPROVEME NTS - 12/2 0
  3730      -- INPU TS:        None
  3731      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  3732      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3733  
  3734       FUNCTI ON create_ PERFORMANC E_INDEXES
  3735            R ETURN NUMB ER
  3736       IS
  3737                       
  3738       BEGIN
  3739           
  3740         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  3741         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  cre ate_PERFOR MANCE_INDE XES'); 
  3742  
  3743         vc_s ql_stateme nt :=
  3744                'CREATE  INDEX PPSN EPL.PRODUC TS_NDF_PRO DUCT_IEN_I X '
  3745            | | 'ON PPSN EPL.EPL_PR ODUCTS '
  3746            | | '(NDF_PR ODUCT_IEN) ' ;
  3747         
  3748         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3749  
  3750         vc_s ql_stateme nt :=
  3751                'CREATE  INDEX PPSN EPL.DIFFS_ VISTA_IEN_ IX '
  3752            | | 'ON PPSN EPL.EPL_ND F_OUTGOING _DIFFERENC ES '
  3753            | | '(VISTA_ IEN) '
  3754            | | 'COMPRES S' ;
  3755         
  3756         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3757         
  3758         vc_s ql_stateme nt :=
  3759                'CREATE  INDEX PPSN EPL.DIFFS_ VISTA_FIEL D_NUMBER_I X '
  3760            | | 'ON PPSN EPL.EPL_ND F_OUTGOING _DIFFERENC ES '
  3761            | | '(VISTA_ FIELD_NUMB ER) '
  3762            | | 'COMPRES S' ;
  3763  
  3764         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3765  
  3766         vc_s ql_stateme nt :=
  3767                'CREATE  INDEX PPSN EPL.ITEM_A UD_HIST_CO L_NM_IX '
  3768            | | 'ON PPSN EPL.EPL_IT EM_AUDIT_H ISTORY_DET AILS '
  3769            | | '(COL_NM ) '
  3770            | | 'COMPRES S' ;
  3771         
  3772         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3773           
  3774         vc_s ql_stateme nt :=
  3775                'CREATE  BITMAP IND EX PPSNEPL .DRUG_CLS_ ASOC_EPL_I D_PROD_BIX  '
  3776            | | 'ON PPSN EPL.EPL_PR OD_DRUG_CL ASS_ASSOCS  '
  3777            | | '(EPL_ID _PRODUCT_F K) ' ;
  3778            
  3779         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3780  
  3781   -- LATEST  TIM - 6/5/ 2017
  3782           
  3783         vc_s ql_stateme nt :=
  3784                'CREATE  BITMAP IND EX PPSNEPL .EPL_ITEM_ AUD_HIST_I TEM_ID_BIX  '
  3785            | | 'ON PPSN EPL.EPL_IT EM_AUDIT_H ISTORY (AU DIT_ITEM_I D) ' ;
  3786            
  3787         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3788           
  3789         vc_s ql_stateme nt :=
  3790                'CREATE  BITMAP IND EX PPSNEPL .EPL_NDCS_ PRODUCT_ID _BIX '
  3791            | | 'ON PPSN EPL.EPL_ND CS (EPL_ID _PRODUCT_F K) ' ;
  3792            
  3793         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3794           
  3795         vc_s ql_stateme nt :=
  3796                'CREATE  BITMAP IND EX PPSNEPL .EPL_VADF_ OWNERS_OWN ER_ID_BIX  '
  3797            | | 'ON PPSN EPL.EPL_VA DF_OWNERS  (VADF_OWNE R_ID) ' ;
  3798            
  3799         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3800           
  3801         vc_s ql_stateme nt :=
  3802                'CREATE  BITMAP IND EX PPSNEPL .EPL_SYNON YMS_ID_PRO D_FK_BIX '
  3803            | | 'ON PPSN EPL.EPL_SY NONYMS (EP L_ID_PRODU CT_FK) ' ;
  3804            
  3805         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3806           
  3807         vc_s ql_stateme nt :=
  3808                'CREATE  BITMAP IND EX PPSNEPL .EPL_ITEM_ AUDIT_HIST _ID_FK_BIX  '
  3809            | | 'ON PPSN EPL.EPL_IT EM_AUDIT_H ISTORY_DET AILS (IAH_ ID_FK) ' ;
  3810            
  3811         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3812           
  3813         vc_s ql_stateme nt :=
  3814                'CREATE  BITMAP IND EX PPSNEPL .VADF_OWNE RS_EPL_ID_ NDC_FK_BIX  '
  3815            | | 'ON PPSN EPL.EPL_VA DF_OWNERS( EPL_ID_NDC _FK) ' ;
  3816            
  3817         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3818  
  3819   -- NEW 6/7
  3820  
  3821         vc_s ql_stateme nt :=
  3822                'CREATE  BITMAP IND EX PPSNEPL .NDCS_NDC_ NO_DASHES_ BIX '
  3823            | | 'ON PPSN EPL.EPL_ND CS(NDC_NO_ DASHES) '  ;
  3824            
  3825         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3826           
  3827         vc_s ql_stateme nt :=
  3828                'CREATE  BITMAP IND EX PPSNEPL .NDCS_ITEM _STATUS_BI X '
  3829            | | 'ON PPSN EPL.EPL_ND CS(ITEM_ST ATUS) ' ;
  3830            
  3831         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3832                    
  3833         vc_s ql_stateme nt :=
  3834                'CREATE  INDEX PPSN EPL.PRODUC TS_EPL_ID_ OI_FK_IX '
  3835            | | 'ON PPSN EPL.EPL_PR ODUCTS(EPL _ID_OI_FK)  COMPRESS  ' ;
  3836            
  3837         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3838        
  3839         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_PERFORMA NCE_INDEXE S');
  3840         RETU RN (0);
  3841      EXCEPTI ON
  3842         WHEN  OTHERS
  3843         THEN
  3844            v n_code :=  SQLCODE;
  3845            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  3846            s ys.DBMS_OU TPUT.put_l ine (
  3847                'create_ PERFORMANC E_INDEXES:  Error cod e ' || vn_ code || ':  ' || vc_e rrm);
  3848            s ys.DBMS_OU TPUT.put_l ine (
  3849                'create_ PERFORMANC E_INDEXES:  last valu e for vc_s ql_stateme nt ');
  3850            s ys.DBMS_OU TPUT.put_l ine (
  3851                'create_ PERFORMANC E_INDEXES:  ' || vc_s ql_stateme nt);
  3852            R ETURN (1);
  3853      END cre ate_PERFOR MANCE_INDE XES;           
  3854      
  3855   /* No long er needed  when refre shing from  Prod due  to Prod re lease remo ving these  objects a lready 
  3856      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3857      -- NAME :          drop_FMCT_ PROC_AND_A RTIFACTS
  3858      -- TYPE :          Function
  3859      -- DESC RIPTION:   DROP FMCT  broken pro c REPORT_C OPAY_TIER_ CHANGES an d artifact s
  3860      -- INPU TS:        None
  3861      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  3862      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3863  
  3864       FUNCTI ON drop_FM CT_PROC_AN D_ARTIFACT S
  3865            R ETURN NUMB ER
  3866       IS
  3867                       
  3868       BEGIN
  3869           
  3870         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  3871         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  dro p_FMCT_PRO C_AND_ARTI FACTS'); 
  3872      
  3873         vc_s ql_stateme nt :=
  3874                'DROP PR OCEDURE PP SNEPL.REPO RT_COPAY_T IER_CHANGE ' ;
  3875         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3876  
  3877         vc_s ql_stateme nt :=
  3878                'DROP PU BLIC SYNON YM REPORT_ COPAY_TIER _CHANGE' ;
  3879         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3880                  
  3881         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  drop_ FMCT_PROC_ AND_ARTIFA CTS');
  3882         RETU RN (0);
  3883      EXCEPTI ON
  3884         WHEN  OTHERS
  3885         THEN
  3886            v n_code :=  SQLCODE;
  3887            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  3888            s ys.DBMS_OU TPUT.put_l ine (
  3889                'drop_FM CT_PROC_AN D_ARTIFACT S: Error c ode ' || v n_code ||  ': ' || vc _errm);
  3890            s ys.DBMS_OU TPUT.put_l ine (
  3891                'drop_FM CT_PROC_AN D_ARTIFACT S: last va lue for vc _sql_state ment ');
  3892            s ys.DBMS_OU TPUT.put_l ine (
  3893                'drop_FM CT_PROC_AN D_ARTIFACT S: ' || vc _sql_state ment);
  3894            R ETURN (1);
  3895      END dro p_FMCT_PRO C_AND_ARTI FACTS;           
  3896   */
  3897         
  3898      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3899      -- NAME :          create_EPL _FORMULARY _ARTIFACTS
  3900      -- TYPE :          Function
  3901      -- DESC RIPTION:   CREATE new  EPL_FORMU LARY_DESIG NATOR arch itecture
  3902      -- INPU TS:        None
  3903      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  3904      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3905  
  3906      FUNCTIO N create_E PL_FORMULA RY_ARTIFAC TS
  3907         RETU RN NUMBER
  3908      IS
  3909  
  3910      BEGIN
  3911         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  3912         sys. DBMS_OUTPU T.put_line  (
  3913            ' INFORMATIO N -   STAR T:  create _EPL_FORMU LARY_ARTIF ACTS'); 
  3914         
  3915         vc_s ql_stateme nt :=
  3916                'CREATE  TABLE PPSN EPL.EPL_FO RMULARY_DE SIGNATOR(  '
  3917            | | 'EPL_ID               NUMBER(3 0)                  N OT NULL, '
  3918            | | 'NAME                 VARCHAR2 (30 BYTE)           N OT NULL, '
  3919            | | 'DESCRIP TION         VARCHAR2 (255 BYTE)          N OT NULL, '
  3920            | | 'ITEM_ST ATUS         VARCHAR2 (50 BYTE)           N OT NULL, '
  3921            | | 'INACTIV ATION_DATE   TIMESTAM P(6), '
  3922            | | 'REVISIO N_NUMBER     NUMBER(3 0)                  N OT NULL, '
  3923            | | 'CREATED _BY          VARCHAR2 (50 BYTE)           N OT NULL, '
  3924            | | 'CREATED _DTM         TIMESTAM P(6)                N OT NULL, '
  3925            | | 'LAST_MO DIFIED_BY    VARCHAR2 (50 BYTE),  '
  3926            | | 'LAST_MO DIFIED_DTM   TIMESTAM P(6) )'  
  3927                 || 'TAB LESPACE PP SNEPL_DATA  ';
  3928            
  3929         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3930  
  3931         vc_s ql_stateme nt :=
  3932            ' ALTER TABL E PPSNEPL. EPL_FORMUL ARY_DESIGN ATOR '
  3933         || ' ADD (CONST RAINT EPL_ FORMULARY_ DESIGNATOR _PK '
  3934         || ' PRIMARY KE Y (EPL_ID)  '
  3935         || ' USING INDE X '
  3936         || ' ENABLE VAL IDATE)';
  3937         
  3938         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3939  
  3940         vc_s ql_stateme nt :=
  3941                'ALTER T ABLE PPSNE PL.EPL_PRO DUCTS '
  3942            | | 'ADD (PR ODUCT_TEXT   VARCHAR2 (255 BYTE) )';
  3943  
  3944         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3945    
  3946          vc_ sql_statem ent :=
  3947                'ALTER T ABLE PPSNE PL.EPL_PRO DUCTS '
  3948            | | 'ADD (FO RMULARY_DE SIGNATOR_F K  NUMBER( 30))';
  3949  
  3950         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3951  
  3952         vc_s ql_stateme nt :=       
  3953                'ALTER T ABLE PPSNE PL.EPL_PRO DUCTS '
  3954            | | 'ADD CON STRAINT PR ODUCT_FORM ULARY_FK '
  3955            | | 'FOREIGN  KEY (FORM ULARY_DESI GNATOR_FK)  '
  3956            | | 'REFEREN CES PPSNEP L.EPL_FORM ULARY_DESI GNATOR (EP L_ID) '
  3957            | | 'ENABLE  VALIDATE';   
  3958  
  3959         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3960         
  3961         vc_s ql_stateme nt :=    
  3962                'ALTER T ABLE PPSNE PL.EPL_ORD ERABLE_ITE MS '
  3963            | | 'ADD (OI _TEXT  VAR CHAR2(255  BYTE))' ; 
  3964  
  3965         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3966         
  3967         vc_s ql_stateme nt :=   
  3968                'ALTER T ABLE PPSNE PL.EPL_ORD ERABLE_ITE MS '
  3969            | | 'ADD (FO RMULARY_DE SIGNATOR_F K  NUMBER( 30))'; 
  3970            
  3971         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3972         
  3973         vc_s ql_stateme nt :=   
  3974                'ALTER T ABLE PPSNE PL.EPL_ORD ERABLE_ITE MS '
  3975            | | 'ADD CON STRAINT OR DERABLE_FO RMULARY_FK  '
  3976            | | 'FOREIGN  KEY (FORM ULARY_DESI GNATOR_FK)  '
  3977            | | 'REFEREN CES PPSNEP L.EPL_FORM ULARY_DESI GNATOR (EP L_ID) '
  3978            | | 'ENABLE  VALIDATE';   
  3979  
  3980         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3981         
  3982         vc_s ql_stateme nt :=
  3983                'GRANT I NSERT, UPD ATE, DELET E '
  3984            | | 'ON PPSN EPL.EPL_FO RMULARY_DE SIGNATOR '
  3985            | | 'TO PPSN EPL_UPDATE _ROLE';
  3986  
  3987         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3988          
  3989         vc_s ql_stateme nt :=  
  3990                'GRANT S ELECT '
  3991            | | 'ON PPSN EPL.EPL_FO RMULARY_DE SIGNATOR '
  3992            | | 'TO PPSN EPL_READ_O NLY_ROLE';
  3993  
  3994         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3995         
  3996         vc_s ql_stateme nt :=  
  3997                'GRANT S ELECT '
  3998            | | 'ON PPSN EPL.EPL_FO RMULARY_DE SIGNATOR '
  3999            | | 'TO PPSN _ROLE';
  4000            
  4001         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4002  
  4003         vc_s ql_stateme nt :=
  4004                'CREATE  OR REPLACE  PUBLIC SY NONYM '
  4005            | | 'EPL_FOR MULARY_DES IGNATOR '
  4006            | | 'FOR PPS NEPL.EPL_F ORMULARY_D ESIGNATOR' ;
  4007  
  4008         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4009  
  4010         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_FORM ULARY_ARTI FACTS');
  4011         RETU RN (0);
  4012      EXCEPTI ON
  4013         WHEN  OTHERS
  4014         THEN
  4015            v n_code :=  SQLCODE;
  4016            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  4017            s ys.DBMS_OU TPUT.put_l ine (
  4018                'create_ EPL_FORMUL ARY_ARTIFA CTS: Error  code ' ||  vn_code | | ': ' ||  vc_errm);
  4019            s ys.DBMS_OU TPUT.put_l ine (
  4020                'create_ EPL_FORMUL ARY_ARTIFA CTS: last  value for  vc_sql_sta tement ');
  4021            s ys.DBMS_OU TPUT.put_l ine (
  4022                'create_ EPL_FORMUL ARY_ARTIFA CTS: ' ||  vc_sql_sta tement);
  4023            R ETURN (1);
  4024      END cre ate_EPL_FO RMULARY_AR TIFACTS;    
  4025         
  4026        
  4027      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  4028      -- NAME :          create_EPL _REMATCH_A RTIFACTS
  4029      -- TYPE :          Function
  4030      -- DESC RIPTION:   CREATE new  EPL_REMAT CH_ARTIFAC TS archite cture
  4031      -- ---- ---------  THE CONSTR AINTS ARE  BUNDLED IN  ORDER
  4032      -- ---- ---------  DUE TO DEP ENDENCIES  WITHIN
  4033      -- INPU TS:        None
  4034      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  4035      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  4036  
  4037      FUNCTIO N create_E PL_REMATCH _ARTIFACTS
  4038         RETU RN NUMBER
  4039      IS
  4040  
  4041      BEGIN
  4042         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  4043         sys. DBMS_OUTPU T.put_line  (
  4044            ' INFORMATIO N -   STAR T:  create _EPL_REMAT CH_ARTIFAC TS'); 
  4045  
  4046   -- EPL_MAT CH_TYPE
  4047  
  4048         vc_s ql_stateme nt :=
  4049            ' CREATE TAB LE PPSNEPL .EPL_MATCH _TYPE( '
  4050         || ' MATCH_TYPE _ID      N UMBER(30)                   NOT  NULL, '
  4051         || ' MATCH_NAME          V ARCHAR2(20 0 BYTE), '
  4052         || ' MATCH_DESC          V ARCHAR2(10 00 BYTE),  '
  4053         || ' CREATED_BY          V ARCHAR2(50  BYTE)           NOT  NULL, '
  4054         || ' CREATED_DT M        T IMESTAMP(6 )                NOT  NULL, '
  4055         || ' LAST_MODIF IED_BY   V ARCHAR2(50  BYTE), '
  4056         || ' LAST_MODIF IED_DTM  T IMESTAMP(6 ) )';
  4057  
  4058         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4059         
  4060         vc_s ql_stateme nt :=
  4061            ' GRANT INSE RT, UPDATE , DELETE '
  4062         || ' ON PPSNEPL .EPL_MATCH _TYPE '
  4063         || ' TO PPSNEPL _UPDATE_RO LE';
  4064  
  4065         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4066          
  4067         vc_s ql_stateme nt :=  
  4068            ' GRANT SELE CT '
  4069         || ' ON PPSNEPL .EPL_MATCH _TYPE '
  4070         || ' TO PPSNEPL _READ_ONLY _ROLE';
  4071  
  4072         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4073         
  4074   -- EPL_REM ATCH_SUGGE STION
  4075  
  4076         vc_s ql_stateme nt :=
  4077            ' CREATE TAB LE PPSNEPL .EPL_REMAT CH_SUGGEST ION( '
  4078         || ' EPL_REMATC H_ID    NU MBER(30)                    NOT  NULL, '
  4079         || ' TO_PRODUCT _ID_FK  NU MBER(30)                    NOT  NULL) ';      
  4080  
  4081         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4082         
  4083         vc_s ql_stateme nt :=
  4084            ' GRANT INSE RT, UPDATE , DELETE '
  4085         || ' ON PPSNEPL .EPL_REMAT CH_SUGGEST ION '
  4086         || ' TO PPSNEPL _UPDATE_RO LE';
  4087  
  4088         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4089          
  4090         vc_s ql_stateme nt :=  
  4091            ' GRANT SELE CT '
  4092         || ' ON PPSNEPL .EPL_REMAT CH_SUGGEST ION '
  4093         || ' TO PPSNEPL _READ_ONLY _ROLE';
  4094  
  4095         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4096         
  4097    -- EPL_RE MATCH
  4098  
  4099         vc_s ql_stateme nt :=
  4100            ' CREATE TAB LE PPSNEPL .EPL_REMAT CH( '
  4101         || ' EPL_REMATC H_ID          NUMBER( 30)              NOT  NULL, '
  4102         || ' FROM_PRODU CT_ID_FK      NUMBER( 30)              NOT  NULL, '       
  4103         || ' TO_PRODUCT _AUTO_ID_F K  NUMBER( 30), '  
  4104         || ' MATCH_TYPE _ID_FK        NUMBER( 30)              NOT  NULL, '      
  4105         || ' NDF_UPDATE _FILE_FK      NUMBER( 30), '  
  4106         || ' CREATED_BY               VARCHAR 2(50)            NOT  NULL, '      
  4107         || ' CREATED_DT M             TIMESTA MP(6)            NOT  NULL, '      
  4108         || ' LAST_MODIF IED_BY        VARCHAR 2(50), '         
  4109         || ' LAST_MODIF IED_DTM       TIMESTA MP(6)) '         
  4110         || ' TABLESPACE  PPSNEPL_D ATA ';
  4111    
  4112         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4113         
  4114         vc_s ql_stateme nt :=
  4115            ' GRANT INSE RT, UPDATE , DELETE '
  4116         || ' ON PPSNEPL .EPL_REMAT CH '
  4117         || ' TO PPSNEPL _UPDATE_RO LE';
  4118  
  4119         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4120          
  4121         vc_s ql_stateme nt :=  
  4122            ' GRANT SELE CT '
  4123         || ' ON PPSNEPL .EPL_REMAT CH '
  4124         || ' TO PPSNEPL _READ_ONLY _ROLE';
  4125  
  4126         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4127         
  4128   -- IDX --
  4129  
  4130         vc_s ql_stateme nt :=
  4131            ' CREATE UNI QUE INDEX  ppsnepl.MA TCH_TYPE_I X ' 
  4132         || ' ON PPSNEPL .EPL_MATCH _TYPE (MAT CH_TYPE_ID ) ';
  4133  
  4134         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4135         
  4136         vc_s ql_stateme nt :=     
  4137            ' CREATE UNI QUE INDEX  PPSNEPL.RE MATCH_IX '
  4138         || ' ON PPSNEPL .EPL_REMAT CH(EPL_REM ATCH_ID)';
  4139       
  4140         EXEC UTE IMMEDI ATE vc_sql _statement ;      
  4141         
  4142         vc_s ql_stateme nt :=   
  4143            ' CREATE IND EX PPSNEPL .MATCH_TYP E_ID_IX '
  4144         || ' ON PPSNEPL .EPL_REMAT CH(MATCH_T YPE_ID_FK)  ';
  4145  
  4146         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4147          
  4148         vc_s ql_stateme nt :=   
  4149            ' CREATE IND EX PPSNEPL .NDC_UPDAT E_FILE_IX  '
  4150         || ' ON PPSNEPL .EPL_REMAT CH(NDF_UPD ATE_FILE_F K) ';
  4151                
  4152         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4153  
  4154   -- PK --
  4155  
  4156         vc_s ql_stateme nt :=
  4157            ' ALTER TABL E PPSNEPL. EPL_MATCH_ TYPE '
  4158         || ' ADD CONSTR AINT EPL_M ATCH_PK '
  4159         || ' PRIMARY KE Y (MATCH_T YPE_ID) '
  4160         || ' USING INDE X PPSNEPL. MATCH_TYPE _IX '
  4161         || ' ENABLE VAL IDATE';  
  4162  
  4163         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4164         
  4165         vc_s ql_stateme nt :=   
  4166            ' ALTER TABL E PPSNEPL. EPL_REMATC H_SUGGESTI ON '
  4167         || ' ADD CONSTR AINT EPL_R EMATCH_SUG GESTION_PK  '
  4168         || ' PRIMARY KE Y (EPL_REM ATCH_ID, T O_PRODUCT_ ID_FK) '
  4169         || ' ENABLE VAL IDATE';  
  4170         
  4171         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4172        
  4173         vc_s ql_stateme nt :=   
  4174            ' ALTER TABL E PPSNEPL. EPL_REMATC H '
  4175         || ' ADD CONSTR AINT EPL_R EMATCH_PK  '
  4176         || ' PRIMARY KE Y (EPL_REM ATCH_ID) '
  4177         || ' USING INDE X PPSNEPL. REMATCH_IX  '
  4178         || ' ENABLE VAL IDATE';  
  4179             
  4180         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4181  
  4182   -- REF --       
  4183  
  4184         vc_s ql_stateme nt :=   
  4185            ' ALTER TABL E PPSNEPL. EPL_REMATC H_SUGGESTI ON '
  4186         || ' ADD CONSTR AINT EPL_R EMATCH_SUG GESTION_R0 1 '
  4187         || ' FOREIGN KE Y (TO_PROD UCT_ID_FK)  '
  4188         || ' REFERENCES  PPSNEPL.E PL_PRODUCT S (EPL_ID)  '
  4189         || ' ENABLE VAL IDATE';  
  4190            
  4191         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4192         
  4193         vc_s ql_stateme nt :=   
  4194            ' ALTER TABL E PPSNEPL. EPL_REMATC H_SUGGESTI ON '
  4195         || ' ADD CONSTR AINT EPL_R EMATCH_SUG GESTION_R0 2 '
  4196         || ' FOREIGN KE Y (EPL_REM ATCH_ID) '
  4197         || ' REFERENCES  PPSNEPL.E PL_REMATCH  (EPL_REMA TCH_ID) '
  4198         || ' ENABLE VAL IDATE';  
  4199            
  4200         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4201         
  4202         vc_s ql_stateme nt :=   
  4203            ' ALTER TABL E PPSNEPL. EPL_REMATC H '
  4204         || ' ADD CONSTR AINT EPL_R EMATCH_MAT CH_TYPE_R0 1 '
  4205         || ' FOREIGN KE Y (MATCH_T YPE_ID_FK)  '
  4206         || ' REFERENCES  PPSNEPL.E PL_MATCH_T YPE (MATCH _TYPE_ID)  '
  4207         || ' ENABLE VAL IDATE';  
  4208    
  4209         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4210          
  4211         vc_s ql_stateme nt :=   
  4212            ' ALTER TABL E PPSNEPL. EPL_REMATC H '
  4213         || ' ADD CONSTR AINT EPL_R EMATCH_NDF _UPDATE_R0 2  '
  4214         || ' FOREIGN KE Y (NDF_UPD ATE_FILE_F K) '
  4215         || ' REFERENCES  PPSNEPL.E PL_NDF_UPD ATE_FILE ( NDF_UPDATE _FILE_ID)  '
  4216         || ' ENABLE VAL IDATE';  
  4217     
  4218         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4219  
  4220         vc_s ql_stateme nt :=   
  4221            ' ALTER TABL E PPSNEPL. EPL_REMATC H '
  4222         || ' ADD CONSTR AINT EPL_R EMATCH_PRO DUCTS_R03   '
  4223         || ' FOREIGN KE Y (FROM_PR ODUCT_ID_F K) '
  4224         || ' REFERENCES  PPSNEPL.E PL_PRODUCT S (EPL_ID)  '
  4225         || ' ENABLE VAL IDATE';  
  4226     
  4227         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4228          
  4229         vc_s ql_stateme nt :=   
  4230            ' ALTER TABL E PPSNEPL. EPL_REMATC H '
  4231         || ' ADD CONSTR AINT EPL_R EMATCH_U01  '
  4232         || ' UNIQUE (FR OM_PRODUCT _ID_FK, ND F_UPDATE_F ILE_FK) '
  4233         || ' ENABLE VAL IDATE';  
  4234  
  4235         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4236    
  4237         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_REMA TCH_ARTIFA CTS');
  4238         RETU RN (0);
  4239      EXCEPTI ON
  4240         WHEN  OTHERS
  4241         THEN
  4242            v n_code :=  SQLCODE;
  4243            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  4244            s ys.DBMS_OU TPUT.put_l ine (
  4245                'create_ EPL_REMATC H_ARTIFACT S: Error c ode ' || v n_code ||  ': ' || vc _errm);
  4246            s ys.DBMS_OU TPUT.put_l ine (
  4247                'create_ EPL_REMATC H_ARTIFACT S: last va lue for vc _sql_state ment ');
  4248            s ys.DBMS_OU TPUT.put_l ine (
  4249                'create_ EPL_REMATC H_ARTIFACT S: ' || vc _sql_state ment);
  4250            R ETURN (1);
  4251      END cre ate_EPL_RE MATCH_ARTI FACTS;       
  4252  
  4253  
  4254      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  4255      -- NAME :          insert_EPL _MATCH_TYP E
  4256      -- TYPE :          Function
  4257      -- DESC RIPTSION:  INSERT dat a INTO EPL _MATCH_TYP E table
  4258      -- INPU TS:        None
  4259      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  4260      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  4261      FUNCTIO N insert_E PL_MATCH_T YPE
  4262         RETU RN NUMBER
  4263      IS
  4264      BEGIN
  4265         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  4266         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  ins ert_EPL_MA TCH_TYPE') ;
  4267        
  4268         vc_s ql_stateme nt :=
  4269            ' INSERT INT O PPSNEPL. EPL_MATCH_ TYPE (matc h_type_id,  match_nam e, match_d esc, creat ed_by, cre ated_dtm)  VALUES (1,  ''INACTIV ATE'', ''P PSN INACTI VATED PROD UCTS'',''D EVELOPER'' , sysdate) ';
  4270         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4271         
  4272         vc_s ql_stateme nt :=
  4273            ' INSERT INT O PPSNEPL. EPL_MATCH_ TYPE (matc h_type_id,  match_nam e, match_d esc, creat ed_by, cre ated_dtm)  VALUES (2,  ''FUTURE  INACTIVATE '', ''PPSN  FUTURE IN ACTIVATED  PRODUCTS'' ,''DEVELOP ER'', sysd ate)';
  4274         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4275         
  4276         vc_s ql_stateme nt :=       
  4277            ' INSERT INT O PPSNEPL. EPL_MATCH_ TYPE (matc h_type_id,  match_nam e, match_d esc, creat ed_by, cre ated_dtm)  VALUES (3,  ''MANUAL  REMATCH'',  ''MANUALL Y-TRIGGERE D REMATCH' ',''DEVELO PER'', sys date)';
  4278         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4279  
  4280         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  inser t_EPL_MATC H_TYPE');
  4281         RETU RN (0);
  4282         
  4283      EXCEPTI ON
  4284         WHEN  OTHERS
  4285         THEN
  4286            v n_code :=  SQLCODE;
  4287            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  4288            s ys.DBMS_OU TPUT.put_l ine (
  4289                'insert_ EPL_MATCH_ TYPE: Erro r code ' | | vn_code  || ': ' ||  vc_errm);
  4290            s ys.DBMS_OU TPUT.put_l ine (
  4291                'insert_ EPL_MATCH_ TYPE: last  value for  vc_sql_st atement ') ;
  4292            s ys.DBMS_OU TPUT.put_l ine (
  4293                'insert_ EPL_MATCH_ TYPE: ' ||  vc_sql_st atement);
  4294            R ETURN (1);
  4295         
  4296      END ins ert_EPL_MA TCH_TYPE;
  4297    
  4298    /*** DRL
  4299      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  4300      -- NAME :          create_EPL _MATCH_TYP E
  4301      -- TYPE :          Function
  4302      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  4303      -- INPU TS:        None
  4304      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  4305      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  4306      FUNCTIO N create_E PL_MATCH_T YPE
  4307         RETU RN NUMBER
  4308      IS
  4309         sequ ence_id NU MBER;
  4310          
  4311      BEGIN
  4312         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  4313         sys. DBMS_OUTPU T.put_line  (
  4314            ' INFORMATIO N -   STAR T:  create _EPL_MATCH _TYPE'); 
  4315        
  4316         SELE CT NVL(MAX (MATCH_TYP E_ID), 0)  + 1 INTO s equence_id  FROM PPSN EPL.EPL_MA TCH_TYPE ;
  4317            
  4318         vc_s ql_stateme nt := 'CRE ATE SEQUEN CE PPSNEPL .EPL_MATCH _TYPE_SEQ  MINVALUE 1  MAXVALUE  9999999999 9999999999 99999999 I NCREMENT B Y 1 START  WITH ' ||  sequence_i d || ' NOC ACHE ';
  4319         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4320         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE SEQUEN CE PPSNEPL .EPL_MATCH _TYPE_SEQ  INCREMENT  BY 1 START  WITH ' ||  sequence_ id ) ;
  4321           
  4322         vc_s ql_stateme nt := 'GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_MATCH_TY PE_SEQ TO  PPSNEPL_UP DATE_ROLE'  ;
  4323         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4324         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_MATCH_TY PE_SEQ TO  PPSNEPL_UP DATE_ROLE' ) ;    
  4325           
  4326         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_MATCH_ TYPE_SEQ F OR PPSNEPL .EPL_MATCH _TYPE_SEQ'  ;
  4327         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4328         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_MATCH_ TYPE_SEQ F OR PPSNEPL .EPL_MATCH _TYPE_SEQ' ) ;  
  4329      
  4330         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_MATC H_TYPE');
  4331         RETU RN (0);
  4332      EXCEPTI ON
  4333         WHEN  OTHERS
  4334         THEN
  4335            v n_code :=  SQLCODE;
  4336            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  4337            s ys.DBMS_OU TPUT.put_l ine (
  4338                'create_ EPL_MATCH_ TYPE: Erro r code ' | | vn_code  || ': ' ||  vc_errm);
  4339            s ys.DBMS_OU TPUT.put_l ine (
  4340                'create_ EPL_MATCH_ TYPE: last  value for  vc_sql_st atement ') ;
  4341            s ys.DBMS_OU TPUT.put_l ine (
  4342                'create_ EPL_MATCH_ TYPE: ' ||  vc_sql_st atement);
  4343            R ETURN (1);
  4344      END cre ate_EPL_MA TCH_TYPE;   
  4345                
  4346      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  4347      -- NAME :          EPL_REMATC H
  4348      -- TYPE :          Function
  4349      -- DESC RIPTION:   Create seq uence base d on maxva l + 1 of a ssociated  table PK
  4350      -- INPU TS:        None
  4351      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  4352      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  4353       FUNCTI ON create_ EPL_REMATC H
  4354          RET URN NUMBER
  4355       IS
  4356          seq uence_id N UMBER;
  4357        
  4358       BEGIN
  4359          sys .DBMS_OUTP UT.put_lin e (CHR (10 ));
  4360          sys .DBMS_OUTP UT.put_lin e ('INFORM ATION -    START:  cr eate_EPL_R EMATCH'); 
  4361     
  4362          SEL ECT NVL(MA X(EPL_REMA TCH_ID), 0 ) + 1 INTO  sequence_ id FROM PP SNEPL.EPL_ REMATCH ;
  4363            
  4364          vc_ sql_statem ent := 'CR EATE SEQUE NCE PPSNEP L.EPL_REMA TCH_SEQ MI NVALUE 1 M AXVALUE 99 9999999999 9999999999 999999 INC REMENT BY  1 START WI TH ' || se quence_id  || ' NOCAC HE ';
  4365          EXE CUTE IMMED IATE vc_sq l_statemen t;
  4366          DBM S_OUTPUT.p ut_line('E xecuted CR EATE SEQUE NCE PPSNEP L.EPL_REMA TCH_SEQ IN CREMENT BY  1 START W ITH ' || s equence_id  ) ;
  4367            
  4368          vc_ sql_statem ent := 'GR ANT SELECT , ALTER ON  PPSNEPL.E PL_REMATCH _SEQ TO PP SNEPL_UPDA TE_ROLE' ;
  4369          EXE CUTE IMMED IATE vc_sq l_statemen t;
  4370          DBM S_OUTPUT.p ut_line('E xecuted GR ANT SELECT , ALTER ON  PPSNEPL.E PL_REMATCH _SEQ TO PP SNEPL_UPDA TE_ROLE')  ;    
  4371            
  4372          vc_ sql_statem ent := 'CR EATE OR RE PLACE PUBL IC SYNONYM  EPL_REMAT CH_SEQ FOR  PPSNEPL.E PL_REMATCH _SEQ' ;
  4373          EXE CUTE IMMED IATE vc_sq l_statemen t;
  4374          DBM S_OUTPUT.p ut_line('E xecuted CR EATE OR RE PLACE PUBL IC SYNONYM  EPL_REMAT CH_SEQ FOR  PPSNEPL.E PL_REMATCH _SEQ') ;
  4375      
  4376          sys .DBMS_OUTP UT.put_lin e ('INFORM ATION -    END:  crea te_EPL_REM ATCH');
  4377          RET URN (0);
  4378        EXCEP TION
  4379          WHE N OTHERS
  4380          THE N
  4381              vn_code :=  SQLCODE;
  4382              vc_errm :=  SUBSTR (S QLERRM, 1,  64);
  4383              sys.DBMS_O UTPUT.put_ line (
  4384                 'create _EPL_REMAT CH: Error  code ' ||  vn_code ||  ': ' || v c_errm);
  4385              sys.DBMS_O UTPUT.put_ line (
  4386                 'create _EPL_REMAT CH: last v alue for v c_sql_stat ement ');
  4387              sys.DBMS_O UTPUT.put_ line (
  4388                 'create _EPL_REMAT CH: ' || v c_sql_stat ement);
  4389              RETURN (1) ;
  4390       END cr eate_EPL_R EMATCH; 
  4391   */
  4392  
  4393      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  4394      -- NAME :          insert_EPL _NAT_SET_F ORMULARY
  4395      -- TYPE :          Function
  4396      -- DESC RIPTION:   INSERT INT O TABLE EP L_NATIONAL _SETTINGS  - FORMULAR Y DESIGNAT OR TEXT
  4397      -- INPU TS:        None
  4398      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  4399      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  4400       FUNCTI ON insert_ EPL_NAT_SE T_FORMULAR Y
  4401          RET URN NUMBER
  4402       IS
  4403          max _id_epl_na t_form_1 N UMBER; 
  4404       BEGIN
  4405         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  4406         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  ins ert_EPL_NA T_SET_FORM ULARY'); 
  4407  
  4408         SELE CT NVL(MAX (ID), 0) +  1 INTO ma x_id_epl_n at_form_1  FROM PPSNE PL.EPL_NAT IONAL_SETT INGS;
  4409  
  4410   -- Updated  to add pi pe per Tim /Chris 201 70331
  4411  
  4412         vc_s ql_stateme nt :=
  4413            ' INSERT INT O PPSNEPL. EPL_NATION AL_SETTING S (ID, KEY _NAME, STR ING_VALUE,  CREATED_B Y, CREATED _DTM) '
  4414         || ' VALUES ('| |max_id_ep l_nat_form _1||',''ME SSAGE_FORM ULARYDESIG NATOR_TEXT '',''The F ORMULARY D ESIGNATOR  settings h ave been e dited for  the follow ing VA|Pro duct(s).'' ,''DEVELOP ER'',SYSDA TE)';
  4415            
  4416         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4417  
  4418         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  inser t_EPL_NAT_ SET_FORMUL ARY');
  4419         RETU RN (0);
  4420      EXCEPTI ON
  4421         WHEN  OTHERS
  4422         THEN
  4423            v n_code :=  SQLCODE;
  4424            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  4425            s ys.DBMS_OU TPUT.put_l ine (
  4426                'insert_ EPL_NAT_SE T_FORMULAR Y: Error c ode ' || v n_code ||  ': ' || vc _errm);
  4427            s ys.DBMS_OU TPUT.put_l ine (
  4428                'insert_ EPL_NAT_SE T_FORMULAR Y: last va lue for vc _sql_state ment ');
  4429            s ys.DBMS_OU TPUT.put_l ine (
  4430                'insert_ EPL_NAT_SE T_FORMULAR Y: ' || vc _sql_state ment);
  4431            R ETURN (1);
  4432      END ins ert_EPL_NA T_SET_FORM ULARY;    
  4433      
  4434         
  4435      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  4436      -- NAME :          create_EPL _COMPLIANC E_SITE
  4437      -- TYPE :          Function
  4438      -- DESC RIPTION:   CREATE new  EPL_COMPL IANCE_SITE  architect ure
  4439      -- INPU TS:        None
  4440      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  4441      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  4442  
  4443      FUNCTIO N create_E PL_COMPLIA NCE_SITE
  4444         RETU RN NUMBER
  4445      IS
  4446  
  4447      BEGIN
  4448         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  4449         sys. DBMS_OUTPU T.put_line  (
  4450            ' INFORMATIO N -   STAR T:  create _EPL_COMPL IANCE_SITE '); 
  4451         
  4452         vc_s ql_stateme nt :=
  4453                'CREATE  TABLE PPSN EPL.EPL_CO MPLIANCE_S ITE( '
  4454            | | 'STATION _NUMBER               VARCHAR2(7 )        N OT NULL, '
  4455            | | 'INCLUDE _EXCLUDE_I NDICATOR   VARCHAR2(1 )        N OT NULL, '
  4456            | | 'CREATED _BY                   VARCHAR2(5 0)       N OT NULL, '
  4457            | | 'CREATED _DTM                  TIMESTAMP( 6)       N OT NULL, '
  4458            | | 'LAST_MO DIFIED_BY             VARCHAR2(5 0), '
  4459            | | 'LAST_MO DIFIED_DTM            TIMESTAMP( 6) )'
  4460            | | 'TABLESP ACE PPSNEP L_DATA ';
  4461     
  4462         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4463         
  4464         vc_s ql_stateme nt :=
  4465            ' CREATE UNI QUE INDEX  PPSNEPL.EP L_COMPLIAN CE_SITE_PK  '
  4466         || ' ON PPSNEPL .EPL_COMPL IANCE_SITE (STATION_N UMBER) ' ;
  4467     
  4468         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4469  
  4470         vc_s ql_stateme nt :=
  4471            ' ALTER TABL E PPSNEPL. EPL_COMPLI ANCE_SITE  '
  4472         || ' ADD (CONST RAINT EPL_ COMPLIANCE _SITE_PK '
  4473         || ' PRIMARY KE Y (STATION _NUMBER) '
  4474         || ' USING INDE X PPSNEPL. EPL_COMPLI ANCE_SITE_ PK '
  4475         || ' ENABLE VAL IDATE)';
  4476         
  4477         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4478         
  4479         vc_s ql_stateme nt :=
  4480                'GRANT I NSERT, UPD ATE, DELET E '
  4481            | | 'ON PPSN EPL.EPL_CO MPLIANCE_S ITE '
  4482            | | 'TO PPSN EPL_UPDATE _ROLE';
  4483  
  4484         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4485          
  4486         vc_s ql_stateme nt :=  
  4487                'GRANT S ELECT '
  4488            | | 'ON PPSN EPL.EPL_CO MPLIANCE_S ITE '
  4489            | | 'TO PPSN EPL_READ_O NLY_ROLE';
  4490  
  4491         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4492         
  4493         vc_s ql_stateme nt :=  
  4494                'GRANT S ELECT '
  4495            | | 'ON PPSN EPL.EPL_CO MPLIANCE_S ITE '
  4496            | | 'TO PPSN _ROLE';
  4497            
  4498         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4499  
  4500         vc_s ql_stateme nt :=
  4501                'CREATE  OR REPLACE  PUBLIC SY NONYM '
  4502            | | 'EPL_COM PLIANCE_SI TE '
  4503            | | 'FOR PPS NEPL.EPL_C OMPLIANCE_ SITE';
  4504  
  4505         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4506  
  4507         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_COMP LIANCE_SIT E');
  4508         RETU RN (0);
  4509      EXCEPTI ON
  4510         WHEN  OTHERS
  4511         THEN
  4512            v n_code :=  SQLCODE;
  4513            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  4514            s ys.DBMS_OU TPUT.put_l ine (
  4515                'create_ EPL_COMPLI ANCE_SITE:  Error cod e ' || vn_ code || ':  ' || vc_e rrm);
  4516            s ys.DBMS_OU TPUT.put_l ine (
  4517                'create_ EPL_COMPLI ANCE_SITE:  last valu e for vc_s ql_stateme nt ');
  4518            s ys.DBMS_OU TPUT.put_l ine (
  4519                'create_ EPL_COMPLI ANCE_SITE:  ' || vc_s ql_stateme nt);
  4520            R ETURN (1);
  4521      END cre ate_EPL_CO MPLIANCE_S ITE;   
  4522  
  4523  
  4524      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  4525      -- NAME :          delete_EPL _NATIONAL_ SETTINGS
  4526      -- TYPE :          Function
  4527      -- DESC RIPTSION:  DELETE dat a from EPL _NATIONAL_ SETTINGS t able to
  4528      --                 remove row s EPL_NATI ONAL_SETTI NGS no lon ger used 
  4529      -- INPU TS:        None
  4530      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  4531      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  4532      FUNCTIO N delete_E PL_NATIONA L_SETTINGS
  4533         RETU RN NUMBER
  4534      IS
  4535      BEGIN
  4536         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  4537         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  del ete_EPL_NA TIONAL_SET TINGS');
  4538  
  4539         EXEC UTE IMMEDI ATE
  4540            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_A DDEDPRODUC T_TEXT'' '  ;
  4541         EXEC UTE IMMEDI ATE
  4542            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_C MOPCHANGE_ TEXT'' ' ;
  4543         
  4544         EXEC UTE IMMEDI ATE
  4545            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_C OPAYTIER_T EXT'' ' ;
  4546         
  4547         EXEC UTE IMMEDI ATE
  4548            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_D ISPENSEUNI TCHANGE_TE XT'' ' ;
  4549         
  4550         EXEC UTE IMMEDI ATE
  4551            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_D OSAGEFORMC HANGE_TEXT '' ' ;
  4552         
  4553         EXEC UTE IMMEDI ATE
  4554            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_D RUGUNITCHA NGE_TEXT''  ' ;
  4555         
  4556         EXEC UTE IMMEDI ATE
  4557            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_F ORMULARYDE SIGNATOR_T EXT'' ' ;
  4558         
  4559         EXEC UTE IMMEDI ATE
  4560            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_F UTUREINACT IVE_TEXT''  ' ;
  4561         
  4562         EXEC UTE IMMEDI ATE
  4563            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_G ENERICNAME CHANGE_TEX T'' ' ;
  4564         
  4565         EXEC UTE IMMEDI ATE
  4566            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_I NACTIVATED CMOP_TEXT' ' ' ;
  4567         
  4568         EXEC UTE IMMEDI ATE
  4569            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_I NACTIVATED PRODUCT_TE XT'' ' ;
  4570         
  4571         EXEC UTE IMMEDI ATE
  4572            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_I NACTIVATED REMATCHED_ TEXT'' ' ;
  4573         
  4574         EXEC UTE IMMEDI ATE
  4575            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_I NACTIVATED WSUGG_TEXT '' ' ;
  4576         
  4577         EXEC UTE IMMEDI ATE
  4578            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_N ATIONALFOR MULARY_TEX T'' ' ;
  4579         
  4580         EXEC UTE IMMEDI ATE
  4581            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_N EWVADRUGCL ASS_TEXT''  ' ;
  4582         
  4583         EXEC UTE IMMEDI ATE
  4584            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_O THERNOREMA TCH_TEXT''  ' ;
  4585         
  4586         EXEC UTE IMMEDI ATE
  4587            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_O THERREMATC HED_TEXT''  ' ;
  4588         
  4589         EXEC UTE IMMEDI ATE
  4590            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_O THERREMATC HSUGG_TEXT '' ' ;
  4591         
  4592         EXEC UTE IMMEDI ATE
  4593            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_O VERRIDEDOS ECHECK_TEX T'' ' ;
  4594         
  4595         EXEC UTE IMMEDI ATE
  4596            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_P OSSIBLEDOS AGE_TEXT''  ' ;
  4597         
  4598         EXEC UTE IMMEDI ATE
  4599            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_P RINTNAMECH ANGE_TEXT' ' ' ;
  4600         
  4601         EXEC UTE IMMEDI ATE
  4602            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_P ROPOSEDINA CTIVATEDWS UGG_TEXT''  ' ;
  4603         
  4604         EXEC UTE IMMEDI ATE
  4605            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_R EACTIVATED PRODUCT_TE XT'' ' ;
  4606         
  4607         EXEC UTE IMMEDI ATE
  4608            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_S CHEDULECHA NGE_TEXT''  ' ;
  4609         
  4610         EXEC UTE IMMEDI ATE
  4611            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_S CHEDULECHA NGEALL_TEX T'' ' ;
  4612         
  4613         EXEC UTE IMMEDI ATE
  4614            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_S TRENGTH_TE XT'' ' ;
  4615         
  4616         EXEC UTE IMMEDI ATE
  4617            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE_V ACLASSCHAN GE_TEXT''  ' ;
  4618         
  4619         EXEC UTE IMMEDI ATE
  4620            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE2_ DDI_TEXT''  ' ;
  4621         
  4622         EXEC UTE IMMEDI ATE
  4623            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE2_ EXCLUEDEDD DI_TEXT''  ' ;
  4624         
  4625         EXEC UTE IMMEDI ATE
  4626            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE2_ MEDGUIDE_T EXT'' ' ;
  4627         
  4628         EXEC UTE IMMEDI ATE
  4629            ' DELETE FRO M PPSNEPL. EPL_NATION AL_SETTING S WHERE KE Y_NAME = ' 'MESSAGE2_ PREVEXCLUE DEDDDI_TEX T'' ' ;
  4630  
  4631         EXEC UTE IMMEDI ATE 'SELEC T COUNT (* ) FROM PPS NEPL.EPL_N ATIONAL_SE TTINGS'
  4632            I NTO vn_row _count;
  4633  
  4634         sys. DBMS_OUTPU T.put_line  (
  4635                'INFORMA TION -   N umber of r ow(s) in P PSNEPL.EPL _NATIONAL_ SETTINGS :  '
  4636            | | TO_CHAR  (vn_row_co unt));
  4637  
  4638         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  delet e_EPL_NATI ONAL_SETTI NGS');
  4639  
  4640         IF v n_row_coun t = 0
  4641         THEN
  4642            R ETURN (1);
  4643         END  IF;
  4644  
  4645         RETU RN (0);
  4646      EXCEPTI ON
  4647         WHEN  OTHERS
  4648         THEN
  4649            v n_code :=  SQLCODE;
  4650            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  4651            s ys.DBMS_OU TPUT.put_l ine (
  4652                'delete_ EPL_NATION AL_SETTING S: Error c ode ' || v n_code ||  ': ' || vc _errm);
  4653            s ys.DBMS_OU TPUT.put_l ine (
  4654                'delete_ EPL_NATION AL_SETTING S: last va lue for vc _sql_state ment ');
  4655            s ys.DBMS_OU TPUT.put_l ine (
  4656                'delete_ EPL_NATION AL_SETTING S: ' || vc _sql_state ment);
  4657            R ETURN (1);
  4658  
  4659      END del ete_EPL_NA TIONAL_SET TINGS;
  4660         
  4661      
  4662   ---------- ---------- ---------- ---------- ---------- ---------- ---------- -------
  4663   -- MAIN SE CTION ***
  4664   ---------- ---------- ---------- ---------- ---------- ---------- ---------- -------
  4665   BEGIN
  4666      sys.DBM S_OUTPUT.p ut_line (C HR (10));
  4667      sys.DBM S_OUTPUT.p ut_line (
  4668         'INF ORMATION -    Checkin g to see i f PPSN 3 o bjects alr eady exist .');
  4669  
  4670      vn_cont inue := ch eck_for_PP SN_3;
  4671  
  4672      IF vn_c ontinue >  0
  4673      THEN
  4674         sys. DBMS_OUTPU T.put_line  (
  4675            ' ERROR   -      ONE OR  MORE PPSN  SEQUENCES  ALREADY E XIST. STOP PING MIGRA TION.');
  4676         sys. DBMS_OUTPU T.put_line  (
  4677            ' ERROR   -    EXECUTE  PPSN 3 ROL LBACK PROC ESS');
  4678         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4679         RETU RN;
  4680      END IF;
  4681  
  4682      vn_cont inue := cr eate_PPSNE PL_UPDATE_ ROLE;
  4683  
  4684      IF vn_c ontinue >  0
  4685      THEN
  4686         sys. DBMS_OUTPU T.put_line  (
  4687            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4688         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4689         RETU RN;
  4690      END IF;
  4691  
  4692      vn_cont inue := cr eate_PPSNE PL_READ_ON LY_ROLE;
  4693  
  4694      IF vn_c ontinue >  0
  4695      THEN
  4696         sys. DBMS_OUTPU T.put_line  (
  4697            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4698         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4699         RETU RN;
  4700      END IF;
  4701     
  4702      vn_cont inue := cr eate_PPSNE PL_UPDATE_ USER;
  4703  
  4704      IF vn_c ontinue >  0
  4705      THEN
  4706         sys. DBMS_OUTPU T.put_line  (
  4707            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4708         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4709         RETU RN;
  4710      END IF;
  4711  
  4712      vn_cont inue := cr eate_EPL_A TC_CANISTE RS;
  4713  
  4714      IF vn_c ontinue >  0
  4715      THEN
  4716         sys. DBMS_OUTPU T.put_line  (
  4717            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4718         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4719         RETU RN;
  4720      END IF;
  4721  
  4722      vn_cont inue := cr eate_EPL_H OSPITAL_LO CATIONS;
  4723  
  4724      IF vn_c ontinue >  0
  4725      THEN
  4726         sys. DBMS_OUTPU T.put_line  (
  4727            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4728         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4729         RETU RN;
  4730      END IF;
  4731  
  4732      vn_cont inue := cr eate_EPL_I FCAP_ITEM_ NUMBERS;
  4733  
  4734      IF vn_c ontinue >  0
  4735      THEN
  4736         sys. DBMS_OUTPU T.put_line  (
  4737            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4738         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4739         RETU RN;
  4740      END IF;
  4741  
  4742      vn_cont inue := cr eate_EPL_I TEM_AUDIT_ HIST_DTL;
  4743  
  4744      IF vn_c ontinue >  0
  4745      THEN
  4746         sys. DBMS_OUTPU T.put_line  (
  4747            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4748         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4749         RETU RN;
  4750      END IF;
  4751  
  4752      vn_cont inue := cr eate_EPL_L ABS;
  4753  
  4754      IF vn_c ontinue >  0
  4755      THEN
  4756         sys. DBMS_OUTPU T.put_line  (
  4757            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4758         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4759         RETU RN;
  4760      END IF;
  4761  
  4762      vn_cont inue := cr eate_EPL_L OCAL_POSS_ DOSAGE;
  4763  
  4764      IF vn_c ontinue >  0
  4765      THEN
  4766         sys. DBMS_OUTPU T.put_line  (
  4767            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4768         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4769         RETU RN;
  4770      END IF;
  4771  
  4772      vn_cont inue := cr eate_EPL_M ED_INSTRUC T_WARDS;
  4773  
  4774      IF vn_c ontinue >  0
  4775      THEN
  4776         sys. DBMS_OUTPU T.put_line  (
  4777            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4778         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4779         RETU RN;
  4780      END IF;
  4781  
  4782      vn_cont inue := cr eate_EPL_N ATIONAL_PO SS_DOSAG;
  4783  
  4784      IF vn_c ontinue >  0
  4785      THEN
  4786         sys. DBMS_OUTPU T.put_line  (
  4787            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4788         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4789         RETU RN;
  4790      END IF;
  4791  
  4792      vn_cont inue := cr eate_EPL_N DC_BY_OTP_ SITE_NDC;
  4793  
  4794      IF vn_c ontinue >  0
  4795      THEN
  4796         sys. DBMS_OUTPU T.put_line  (
  4797            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4798         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4799         RETU RN;
  4800      END IF;
  4801  
  4802      vn_cont inue := cr eate_EPL_P ARTIAL_SAV E_MGT;
  4803  
  4804      IF vn_c ontinue >  0
  4805      THEN
  4806         sys. DBMS_OUTPU T.put_line  (
  4807            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4808         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4809         RETU RN;
  4810      END IF;
  4811  
  4812      vn_cont inue := cr eate_EPL_P RODUCT_LAB S;
  4813  
  4814      IF vn_c ontinue >  0
  4815      THEN
  4816         sys. DBMS_OUTPU T.put_line  (
  4817            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4818         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4819         RETU RN;
  4820      END IF;
  4821  
  4822      vn_cont inue := cr eate_EPL_P RODUCT_VIT ALS;
  4823  
  4824      IF vn_c ontinue >  0
  4825      THEN
  4826         sys. DBMS_OUTPU T.put_line  (
  4827            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4828         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4829         RETU RN;
  4830      END IF;
  4831  
  4832      vn_cont inue := cr eate_EPL_R EQUEST_DET AILS;
  4833  
  4834      IF vn_c ontinue >  0
  4835      THEN
  4836         sys. DBMS_OUTPU T.put_line  (
  4837            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4838         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4839         RETU RN;
  4840      END IF;
  4841  
  4842      vn_cont inue := cr eate_EPL_R EQUESTS;
  4843  
  4844      IF vn_c ontinue >  0
  4845      THEN
  4846         sys. DBMS_OUTPU T.put_line  (
  4847            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4848         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4849         RETU RN;
  4850      END IF;
  4851  
  4852      vn_cont inue := cr eate_EPL_S ITE_UPDT_S CHEDULES;
  4853  
  4854      IF vn_c ontinue >  0
  4855      THEN
  4856         sys. DBMS_OUTPU T.put_line  (
  4857            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4858         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4859         RETU RN;
  4860      END IF;
  4861  
  4862      vn_cont inue := cr eate_EPL_S YNONYMS;
  4863  
  4864      IF vn_c ontinue >  0
  4865      THEN
  4866         sys. DBMS_OUTPU T.put_line  (
  4867            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4868         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4869         RETU RN;
  4870      END IF;
  4871  
  4872      vn_cont inue := cr eate_EPL_V ITALS;
  4873  
  4874      IF vn_c ontinue >  0
  4875      THEN
  4876         sys. DBMS_OUTPU T.put_line  (
  4877            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4878         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4879         RETU RN;
  4880      END IF;
  4881  
  4882      vn_cont inue := cr eate_EPL_W ARDS;
  4883  
  4884      IF vn_c ontinue >  0
  4885      THEN
  4886         sys. DBMS_OUTPU T.put_line  (
  4887            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4888         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4889         RETU RN;
  4890      END IF;
  4891  
  4892      vn_cont inue := cr eate_EPL_S TATUS;
  4893  
  4894      IF vn_c ontinue >  0
  4895      THEN
  4896         sys. DBMS_OUTPU T.put_line  (
  4897            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4898         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4899         RETU RN;
  4900      END IF;
  4901  
  4902      vn_cont inue := cr eate_EPL_V ISTA_STATU S;
  4903  
  4904      IF vn_c ontinue >  0
  4905      THEN
  4906         sys. DBMS_OUTPU T.put_line  (
  4907            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4908         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4909         RETU RN;
  4910      END IF;
  4911  
  4912      vn_cont inue := cr eate_EPL_V ISTA_UPDAT E;
  4913  
  4914      IF vn_c ontinue >  0
  4915      THEN
  4916         sys. DBMS_OUTPU T.put_line  (
  4917            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4918         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4919         RETU RN;
  4920      END IF;
  4921  
  4922      vn_cont inue := cr eate_EPL_D RUG_DRUG_I NTERACT;
  4923  
  4924      IF vn_c ontinue >  0
  4925      THEN
  4926         sys. DBMS_OUTPU T.put_line  (
  4927            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4928         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4929         RETU RN;
  4930      END IF;
  4931  
  4932      vn_cont inue := cr eate_EPL_N DF_OUTGOIN G_DIFFER;
  4933  
  4934      IF vn_c ontinue >  0
  4935      THEN
  4936         sys. DBMS_OUTPU T.put_line  (
  4937            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4938         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4939         RETU RN;
  4940      END IF;
  4941  
  4942      vn_cont inue := cr eate_EPL_P ACKAGE_SIZ ES;
  4943  
  4944      IF vn_c ontinue >  0
  4945      THEN
  4946         sys. DBMS_OUTPU T.put_line  (
  4947            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4948         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4949         RETU RN;
  4950      END IF;
  4951  
  4952      vn_cont inue := in sert_updat e_EPL_IEN_ GEN;
  4953  
  4954      IF vn_c ontinue >  0
  4955      THEN
  4956         sys. DBMS_OUTPU T.put_line  (
  4957            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4958         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4959         RETU RN;
  4960      END IF;
  4961      
  4962      vn_cont inue := al ter_EPL_ND F_OUTG_DIF ;
  4963  
  4964      IF vn_c ontinue >  0
  4965      THEN
  4966         sys. DBMS_OUTPU T.put_line  (
  4967            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4968         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4969         RETU RN;
  4970      END IF;    
  4971      
  4972      vn_cont inue := al ter_EPL_VA DF_LOVS;
  4973      
  4974      IF vn_c ontinue >  0
  4975      THEN
  4976         sys. DBMS_OUTPU T.put_line  (
  4977            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4978         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4979         RETU RN;
  4980      END IF;    
  4981     
  4982      vn_cont inue := al ter_EPL_PR ODUCTS_COD ING;
  4983      
  4984      IF vn_c ontinue >  0
  4985      THEN
  4986         sys. DBMS_OUTPU T.put_line  (
  4987            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4988         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4989         RETU RN;
  4990      END IF;    
  4991      
  4992      vn_cont inue := al ter_EPL_PR ODUCTS_HZ;
  4993      
  4994      IF vn_c ontinue >  0
  4995      THEN
  4996         sys. DBMS_OUTPU T.put_line  (
  4997            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4998         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4999         RETU RN;
  5000      END IF;    
  5001      
  5002      vn_cont inue := in sert_EPL_V A_DFS_N_LO VS_RX;
  5003      
  5004      IF vn_c ontinue >  0
  5005      THEN
  5006         sys. DBMS_OUTPU T.put_line  (
  5007            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  5008         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  5009         RETU RN;
  5010      END IF;    
  5011      
  5012      vn_cont inue := in sert_EPL_V A_DFS_HZ;
  5013      
  5014      IF vn_c ontinue >  0
  5015      THEN
  5016         sys. DBMS_OUTPU T.put_line  (
  5017            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  5018         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  5019         RETU RN;
  5020      END IF;    
  5021  
  5022      vn_cont inue := in sert_EPL_N AT_SET_RX;
  5023      
  5024      IF vn_c ontinue >  0
  5025      THEN
  5026         sys. DBMS_OUTPU T.put_line  (
  5027            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  5028         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  5029         RETU RN;
  5030      END IF;       
  5031      
  5032      vn_cont inue := in sert_EPL_N AT_SET_FMC T;
  5033      
  5034      IF vn_c ontinue >  0
  5035      THEN
  5036         sys. DBMS_OUTPU T.put_line  (
  5037            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  5038         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  5039         RETU RN;
  5040      END IF;       
  5041      
  5042      vn_cont inue := up date_EPL_S TATUS;
  5043      
  5044      IF vn_c ontinue >  0
  5045      THEN
  5046         sys. DBMS_OUTPU T.put_line  (
  5047            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  5048         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  5049         RETU RN;
  5050      END IF;       
  5051      
  5052      vn_cont inue := dr op_create_ EPL_CLASS_ TYPES;
  5053      
  5054      IF vn_c ontinue >  0
  5055      THEN
  5056         sys. DBMS_OUTPU T.put_line  (
  5057            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  5058         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  5059         RETU RN;
  5060      END IF;       
  5061  
  5062      vn_cont inue := in sert_EPL_C LASS_TYPES ;
  5063      
  5064      IF vn_c ontinue >  0
  5065      THEN
  5066         sys. DBMS_OUTPU T.put_line  (
  5067            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  5068         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  5069         RETU RN;
  5070      END IF;       
  5071      
  5072      vn_cont inue := de lete_updat e_EPL_NAT_ SET_SFTP;
  5073      
  5074      IF vn_c ontinue >  0
  5075      THEN
  5076         sys. DBMS_OUTPU T.put_line  (
  5077            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  5078         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  5079         RETU RN;
  5080      END IF;
  5081      
  5082      vn_cont inue := up date_EPL_N AT_SET_RPT _MSG;
  5083  
  5084      IF vn_c ontinue >  0
  5085      THEN
  5086         sys. DBMS_OUTPU T.put_line  (
  5087            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  5088         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  5089         RETU RN;
  5090      END IF;
  5091        
  5092      vn_cont inue := in sert_EPL_V ISTA_STATU S;
  5093  
  5094      IF vn_c ontinue >  0
  5095      THEN
  5096         sys. DBMS_OUTPU T.put_line  (
  5097            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  5098         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  5099         RETU RN;
  5100      END IF;
  5101      
  5102   -- TIM MER KT
  5103  
  5104      vn_cont inue := cr eate_PERFO RMANCE_IND EXES;
  5105  
  5106      IF vn_c ontinue >  0
  5107      THEN
  5108         sys. DBMS_OUTPU T.put_line  (
  5109            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  5110         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  5111         RETU RN;
  5112      END IF;
  5113  
  5114      vn_cont inue := cr eate_EPL_F ORMULARY_A RTIFACTS;
  5115      
  5116      IF vn_c ontinue >  0
  5117      THEN
  5118         sys. DBMS_OUTPU T.put_line  (
  5119            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  5120         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  5121         RETU RN;
  5122      END IF;
  5123  
  5124   -- DAVID T OMBS
  5125  
  5126      vn_cont inue := cr eate_EPL_R EMATCH_ART IFACTS;
  5127         
  5128      IF vn_c ontinue >  0
  5129      THEN
  5130         sys. DBMS_OUTPU T.put_line  (
  5131            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  5132         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  5133         RETU RN;
  5134      END IF;
  5135  
  5136   /*** DRL    
  5137      vn_cont inue := cr eate_EPL_M ATCH_TYPE;
  5138  
  5139      IF vn_c ontinue >  0
  5140      THEN
  5141         sys. DBMS_OUTPU T.put_line  (
  5142            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  5143         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  5144         RETU RN;
  5145      END IF;
  5146  
  5147      vn_cont inue := cr eate_EPL_R EMATCH;
  5148  
  5149      IF vn_c ontinue >  0
  5150      THEN
  5151         sys. DBMS_OUTPU T.put_line  (
  5152            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  5153         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  5154         RETU RN;
  5155      END IF;
  5156   ***/ 
  5157  
  5158   -- AMY JON ES/TIM
  5159  
  5160      vn_cont inue := in sert_EPL_N AT_SET_FOR MULARY;
  5161      
  5162      IF vn_c ontinue >  0
  5163      THEN
  5164         sys. DBMS_OUTPU T.put_line  (
  5165            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  5166         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  5167         RETU RN;
  5168      END IF;    
  5169      
  5170   -- DAVID T OMBS revis ed archite cture for  EPL_MATCH  type 
  5171  
  5172      vn_cont inue := in sert_EPL_M ATCH_TYPE;
  5173      
  5174      IF vn_c ontinue >  0
  5175      THEN
  5176         sys. DBMS_OUTPU T.put_line  (
  5177            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  5178         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  5179         RETU RN;
  5180      END IF;    
  5181  
  5182   -- DAVID T OMBS clean up the dat abase junk  drawer (d efunct mes sages)!!
  5183  
  5184      vn_cont inue := de lete_EPL_N ATIONAL_SE TTINGS;       
  5185      
  5186      IF vn_c ontinue >  0
  5187      THEN
  5188         sys. DBMS_OUTPU T.put_line  (
  5189            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  5190         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  5191         RETU RN;
  5192      END IF;    
  5193      
  5194      vn_cont inue := cr eate_EPL_C OMPLIANCE_ SITE;
  5195  
  5196      IF vn_c ontinue >  0
  5197      THEN
  5198         sys. DBMS_OUTPU T.put_line  (
  5199            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  5200         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  5201         RETU RN;
  5202      END IF;
  5203      
  5204      vn_cont inue := cr eate_repla ce_SYNS;
  5205  
  5206      IF vn_c ontinue >  0
  5207      THEN
  5208         sys. DBMS_OUTPU T.put_line  (
  5209            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  5210         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  5211         RETU RN;
  5212      END IF;
  5213  
  5214      vn_cont inue := gr ant_TO_ROL ES;
  5215  
  5216      IF vn_c ontinue >  0
  5217      THEN
  5218         sys. DBMS_OUTPU T.put_line  (
  5219            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  5220         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  5221         RETU RN;
  5222      END IF;
  5223      
  5224         -- P urge recyc le bin
  5225         
  5226         vc_s ql_stateme nt := 'pur ge RECYCLE BIN';
  5227         COMM IT;
  5228      
  5229         EXEC UTE IMMEDI ATE vc_sql _statement ;
  5230      
  5231         -- R ecompile S chema and  Gather Sta tistics
  5232         
  5233         DBMS _UTILITY.c ompile_sch ema (schem a => 'PPSN EPL');
  5234         DBMS _STATS.gat her_schema _stats ('P PSNEPL');
  5235         
  5236      EXCEPTI ON
  5237         WHEN  OTHERS
  5238         THEN
  5239            v n_code :=  SQLCODE;
  5240            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  5241            s ys.DBMS_OU TPUT.put_l ine (
  5242                'MAIN: E rror code  ' || vn_co de || ': '  || vc_err m);
  5243      END;
  5244      /
  5245         
  5246      SELECT  'Migration  Stopped:  ' || CURRE NT_TIMESTA MP FROM DU AL;
  5247      
  5248      SPOOL O FF
  5249   EXIT