21. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 7/9/2017 11:00:48 PM Eastern Daylight 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.

21.1 Files compared

# Location File Last Modified
1 PPS_N_3.0_Iter2_Build_360.zip\Unredacted\PS_PPS_DataMgmt\src\main\resources\PPSN3.0\DDL\migration_scripts PPSN_3_migration_v9.sql Fri Jun 30 19:07:22 2017 UTC
2 PPS_N_3.0_Iter2_Build_360.zip\Unredacted\PS_PPS_DataMgmt\src\main\resources\PPSN3.0\DDL\migration_scripts PPSN_3_migration_v9.sql Thu Jul 6 14:35:54 2017 UTC

21.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 10410
Changed 2 4
Inserted 0 0
Removed 0 0

21.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

21.4 Active regular expressions

No regular expressions were active.

21.5 Comparison detail

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