20. EPMO Open Source Coordination Office Redaction File Detail Report

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

20.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_v8.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_v8.sql Thu Jul 6 14:31:42 2017 UTC

20.2 Comparison summary

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

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

20.4 Active regular expressions

No regular expressions were active.

20.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_SUGGESTI ON
  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_SUGGESTI ON
  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_SUGG ESTION'); 
  1617  
  1618         SELE CT NVL(MAX (EPL_REMAT CH_SUGGEST ION_ID), 0 ) + 1 INTO  sequence_ id FROM PP SNEPL.EPL_ REMATCH_SU GGESTION ;
  1619         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1620         
  1621         vc_s ql_stateme nt := 'CRE ATE SEQUEN CE PPSNEPL .EPL_REMAT CH_SUGGEST ION_SEQ MI NVALUE 1 M AXVALUE 99 9999999999 9999999999 999999 INC REMENT BY  1 START WI TH ' || se quence_id  || ' NOCAC HE ';
  1622         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1623         DBMS _OUTPUT.pu t_line('Ex ecuted CRE ATE SEQUEN CE PPSNEPL .EPL_REMAT CH_SUGGEST ION_SEQ IN CREMENT BY  1 START W ITH ' || s equence_id  ) ;
  1624         
  1625         vc_s ql_stateme nt := 'GRA NT SELECT,  ALTER ON  PPSNEPL.EP L_REMATCH_ SUGGESTION _SEQ TO PP SNEPL_UPDA TE_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_ SUGGESTION _SEQ TO PP SNEPL_UPDA TE_ROLE')  ;    
  1628         
  1629         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_REMATC H_SUGGESTI ON_SEQ FOR  PPSNEPL.E PL_REMATCH _SUGGESTIO N_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_SUGGESTI ON_SEQ FOR  PPSNEPL.E PL_REMATCH _SUGGESTIO N_SEQ') ;
  1632  
  1633         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_REMA TCH_SUGGES TION');
  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_SUGGESTI ON: Error  code ' ||  vn_code ||  ': ' || v c_errm);
  1642            s ys.DBMS_OU TPUT.put_l ine (
  1643                'create_ EPL_REMATC H_SUGGESTI ON: last v alue for v c_sql_stat ement ');
  1644            s ys.DBMS_OU TPUT.put_l ine (
  1645                'create_ EPL_REMATC H_SUGGESTI ON: ' || v c_sql_stat ement);
  1646            R ETURN (1);
  1647      END cre ate_EPL_RE MATCH_SUGG ESTION; 
  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         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' ;
  1917         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1918  
  1919         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_REQUES TS FOR PPS NEPL.EPL_R EQUESTS' ;
  1920         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1921  
  1922         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' ;
  1923         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1924  
  1925         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_SCHEDU LE_TYPES F OR PPSNEPL .EPL_SCHED ULE_TYPES'  ;
  1926         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1927  
  1928         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_SEARCH _CRITERIA  FOR PPSNEP L.EPL_SEAR CH_CRITERI A' ;
  1929         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1930  
  1931         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_SEARCH _TEMPLATES  FOR PPSNE PL.EPL_SEA RCH_TEMPLA TES' ;
  1932         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1933  
  1934         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_SEQ_NU MS FOR PPS NEPL.EPL_S EQ_NUMS' ;
  1935         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1936  
  1937         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'  ;
  1938         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1939  
  1940         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_SITE_C ONFIGS FOR  PPSNEPL.E PL_SITE_CO NFIGS' ;
  1941         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1942  
  1943         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' ;
  1944         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1945  
  1946         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' ;
  1947         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1948  
  1949         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'  ;
  1950         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1951  
  1952         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_STATUS  FOR PPSNE PL.EPL_STA TUS' ;
  1953         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1954  
  1955         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_SYNONY MS FOR PPS NEPL.EPL_S YNONYMS' ;
  1956         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1957  
  1958         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_USERS  FOR PPSNEP L.EPL_USER S' ;
  1959         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1960  
  1961         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' ;
  1962         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1963  
  1964         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'  ;
  1965         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1966  
  1967         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VADF_L OVS FOR PP SNEPL.EPL_ VADF_LOVS'  ;
  1968         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1969  
  1970         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'  ;
  1971         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1972  
  1973         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VADF_O WNERS FOR  PPSNEPL.EP L_VADF_OWN ERS' ;
  1974         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1975  
  1976         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' ;
  1977         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1978  
  1979         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VA_DFS  FOR PPSNE PL.EPL_VA_ DFS' ;
  1980         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1981  
  1982         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' ;
  1983         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1984  
  1985         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' ;
  1986         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1987  
  1988         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VA_GEN _NAMES FOR  PPSNEPL.E PL_VA_GEN_ NAMES' ;
  1989         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1990  
  1991         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VISTA_ STATUS FOR  PPSNEPL.E PL_VISTA_S TATUS' ;
  1992         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1993  
  1994         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VISTA_ UPDATE FOR  PPSNEPL.E PL_VISTA_U PDATE' ;
  1995         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1996  
  1997         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_VITALS  FOR PPSNE PL.EPL_VIT ALS' ;
  1998         EXEC UTE IMMEDI ATE vc_sql _statement ;
  1999  
  2000         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'  ;
  2001         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2002  
  2003         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_WARDS  FOR PPSNEP L.EPL_WARD S' ;
  2004         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2005  
  2006         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_WARN_L ABELS FOR  PPSNEPL.EP L_WARN_LAB ELS' ;
  2007         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2008  
  2009         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  HIBERNATE_ UNIQUE_KEY  FOR PPSNE PL.HIBERNA TE_UNIQUE_ KEY' ;
  2010         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2011  
  2012         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  STATS_TABL E FOR PPSN EPL.STATS_ TABLE' ;
  2013         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2014  
  2015         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  TEMP_EPL_N DCS FOR PP SNEPL.TEMP _EPL_NDCS'  ;
  2016         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2017  
  2018   -- 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
  2019  
  2020         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' ;
  2021         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2022  
  2023         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  EPL_COPAY_ TIER FOR P PSNEPL.EPL _COPAY_TIE R' ;
  2024         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2025  
  2026   /* REMOVED  01/11/201 7
  2027         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' ;
  2028         EXEC UTE IMMEDI ATE vc_sql _statement ;      
  2029   */
  2030         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' ;
  2031         EXEC UTE IMMEDI ATE vc_sql _statement ;      
  2032         
  2033   -- Additio nal missed  in PPSN-2  migration  script
  2034  
  2035         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  UPDATE_FIL E_SEQUENCE  FOR PPSNE PL.UPDATE_ FILE_SEQUE NCE' ;
  2036         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2037  
  2038         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' ;
  2039         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2040  
  2041         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'  ;
  2042         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2043  
  2044         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' ;
  2045         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2046  
  2047         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' ;
  2048         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2049  
  2050         vc_s ql_stateme nt := 'CRE ATE OR REP LACE PUBLI C SYNONYM  FDB_PLBLWA RNINGS_V F OR PPSNEPL .FDB_PLBLW ARNINGS_V'  ;
  2051         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2052        
  2053         DBMS _OUTPUT.pu t_line('Ex ecuted cre ate_replac e_SYNS ... multiple')  ;
  2054  
  2055         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_replace_ SYNS');
  2056         RETU RN (0);
  2057      EXCEPTI ON
  2058         WHEN  OTHERS
  2059         THEN
  2060            v n_code :=  SQLCODE;
  2061            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  2062            s ys.DBMS_OU TPUT.put_l ine (
  2063                'create_ replace_SY NS: Error  code ' ||  vn_code ||  ': ' || v c_errm);
  2064            s ys.DBMS_OU TPUT.put_l ine (
  2065                'create_ replace_SY NS: last v alue for v c_sql_stat ement ');
  2066            s ys.DBMS_OU TPUT.put_l ine (
  2067                'create_ replace_SY NS: ' || v c_sql_stat ement);
  2068            R ETURN (1);
  2069      END cre ate_replac e_SYNS; 
  2070      
  2071      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  2072      -- NAME :          grant_TO_R OLES
  2073      -- TYPE :          Function
  2074      -- DESC RIPTION:   Grants for  new roles /tables et
  2075      -- INPU TS:        None
  2076      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  2077      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  2078       FUNCTI ON grant_T O_ROLES
  2079          RET URN NUMBER
  2080       IS
  2081       
  2082       BEGIN
  2083         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  2084         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  gra nt_TO_ROLE S'); 
  2085  
  2086   -- READ_ON LY_ROLE HE RE
  2087  
  2088         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_ADMIN _SCHEDULES  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2089         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2090  
  2091         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_ATC_C ANISTERS T O PPSNEPL_ READ_ONLY_ ROLE' ;
  2092         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2093  
  2094         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_CLASS _TYPES TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  2095         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2096         
  2097         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_CMOP_ ID_GENERAT OR TO PPSN EPL_READ_O NLY_ROLE'  ;
  2098         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2099  
  2100         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_CMOP_ ID_HISTORY  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2101         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2102  
  2103         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_CS_FE D_SCHEDULE S TO PPSNE PL_READ_ON LY_ROLE' ;
  2104         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2105  
  2106         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_DDI_S EVERITY TO  PPSNEPL_R EAD_ONLY_R OLE' ;
  2107         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2108  
  2109         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_DF_ME D_RT_DF_AS SOCS TO PP SNEPL_READ _ONLY_ROLE ' ;
  2110         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2111         
  2112         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_DF_NO UNS TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2113         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2114  
  2115         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_DF_UN ITS TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2116         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2117  
  2118         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_DISPE NSE_UNITS_ PER_DOSE T O PPSNEPL_ READ_ONLY_ ROLE' ;
  2119         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2120  
  2121         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_DOSAG E_FORMS TO  PPSNEPL_R EAD_ONLY_R OLE' ;
  2122         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2123  
  2124         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_DOSE_ UNITS TO P PSNEPL_REA D_ONLY_ROL E' ;
  2125         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2126  
  2127         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_DOSE_ UNIT_SYNON YMS TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2128         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2129  
  2130         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_DRUG_ DRUG_INTER ACTION TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  2131         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2132         
  2133         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_DRUG_ TEXT TO PP SNEPL_READ _ONLY_ROLE ' ;
  2134         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2135  
  2136         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_DRUG_ UNITS TO P PSNEPL_REA D_ONLY_ROL E' ;
  2137         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2138  
  2139         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_DT_SY NONYMS TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  2140         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2141  
  2142         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_FDB_A DD TO PPSN EPL_READ_O NLY_ROLE'  ;
  2143         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2144  
  2145         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_FDB_A UTO_ADD TO  PPSNEPL_R EAD_ONLY_R OLE' ;
  2146         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2147  
  2148         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_FDB_A UTO_UPDATE  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2149         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2150  
  2151         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_FDB_D OSAGE_FORM  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2152         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2153  
  2154         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_FDB_D RUG_CLASS  TO PPSNEPL _READ_ONLY _ROLE' ;
  2155         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2156  
  2157         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_FDB_D RUG_INGRED IENT TO PP SNEPL_READ _ONLY_ROLE ' ;
  2158         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2159  
  2160         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_FDB_D RUG_UNITS  TO PPSNEPL _READ_ONLY _ROLE' ;
  2161         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2162  
  2163         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_FDB_G ENERIC_NAM E TO PPSNE PL_READ_ON LY_ROLE' ;
  2164         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2165  
  2166         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_FDB_N DC TO PPSN EPL_READ_O NLY_ROLE'  ;
  2167         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2168  
  2169         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_FDB_P RODUCT TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  2170         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2171  
  2172         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_FDB_U PDATE TO P PSNEPL_REA D_ONLY_ROL E' ;
  2173         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2174  
  2175         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_HOSPI TAL_LOCATI ONS TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2176         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2177  
  2178         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_IEN_G ENERATOR T O PPSNEPL_ READ_ONLY_ ROLE' ;
  2179         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2180         
  2181         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_IFCAP _ITEM_NUMB ERS TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2182         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2183  
  2184         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_INGRE DIENTS TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  2185         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2186         
  2187         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_INTEN DED_USES T O PPSNEPL_ READ_ONLY_ ROLE' ;
  2188         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2189  
  2190         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_INTER FACE_COUNT ERS TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2191         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2192  
  2193         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_ITEM_ AUDIT_HIST ORY TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2194         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2195  
  2196         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_ITEM_ AUDIT_HIST ORY_DETAIL S TO PPSNE PL_READ_ON LY_ROLE' ;
  2197         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2198  
  2199         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_LABS  TO PPSNEPL _READ_ONLY _ROLE' ;
  2200         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2201  
  2202         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_LOCAL _CONSOLE_I NFO TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2203         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2204  
  2205         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_LOCAL _MED_ROUTE S TO PPSNE PL_READ_ON LY_ROLE' ;
  2206         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2207  
  2208         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_LOCAL _POSSIBLE_ DOSAGES TO  PPSNEPL_R EAD_ONLY_R OLE' ;
  2209         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2210  
  2211         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_MANUF ACTURERS T O PPSNEPL_ READ_ONLY_ ROLE' ;
  2212         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2213  
  2214         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_MATCH _TYPE TO P PSNEPL_REA D_ONLY_ROL E' ;
  2215         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2216         
  2217         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_MEDIC ATION_INST RUCTIONS T O PPSNEPL_ READ_ONLY_ ROLE' ;
  2218         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2219  
  2220         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_MED_I NSTRUCT_WA RDS TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2221         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2222  
  2223         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_MIGRA TION_CONTR OL TO PPSN EPL_READ_O NLY_ROLE'  ;
  2224         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2225  
  2226         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_MIGRA TION_ERROR  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2227         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2228  
  2229         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_MIGRA TION_FILE  TO PPSNEPL _READ_ONLY _ROLE' ;
  2230         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2231  
  2232         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_MULTI _TEXT TO P PSNEPL_REA D_ONLY_ROL E' ;
  2233         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2234  
  2235         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_NATIO NAL_POSSIB LE_DOSAGES  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2236         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2237  
  2238         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_NATIO NAL_SETTIN GS TO PPSN EPL_READ_O NLY_ROLE'  ;
  2239         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2240  
  2241         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_NDCS  TO PPSNEPL _READ_ONLY _ROLE' ;
  2242         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2243  
  2244         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' ;
  2245         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2246  
  2247         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_NDF_O UTGOING_DI FFERENCES  TO PPSNEPL _READ_ONLY _ROLE' ;
  2248         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2249    
  2250         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_NDF_S YNCH_QUEUE  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2251         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2252  
  2253         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_NDF_U PDATE_FILE  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2254         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2255         
  2256         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_NOTIF ICATIONS T O PPSNEPL_ READ_ONLY_ ROLE' ;
  2257         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2258  
  2259         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_NOTIF _USER_PREF S TO PPSNE PL_READ_ON LY_ROLE' ;
  2260         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2261  
  2262         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_OI_AD MIN_SCHED_ ASSOCS TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  2263         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2264  
  2265         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_OI_DR UG_TEXT_L_ ASSOCS TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  2266         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2267  
  2268         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_OI_DR UG_TEXT_N_ ASSOCS TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  2269         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2270  
  2271         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_OI_ME D_ROUTE_AS SOCS TO PP SNEPL_READ _ONLY_ROLE ' ;
  2272         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2273  
  2274         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_OI_SC HEDULE_TYP ES TO PPSN EPL_READ_O NLY_ROLE'  ;
  2275         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2276  
  2277         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_ORDER ABLE_ITEMS  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2278         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2279  
  2280         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_ORDER _UNITS TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  2281         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2282  
  2283         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PACKA GE_SIZES T O PPSNEPL_ READ_ONLY_ ROLE' ;
  2284         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2285  
  2286         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PACKA GE_TYPES T O PPSNEPL_ READ_ONLY_ ROLE' ;
  2287         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2288  
  2289         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PACKA GE_USAGES  TO PPSNEPL _READ_ONLY _ROLE' ;
  2290         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2291  
  2292         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PACKA GE_USE_ASS OCS TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2293         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2294  
  2295         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PARTI AL_SAVE_MG T TO PPSNE PL_READ_ON LY_ROLE' ;
  2296         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2297  
  2298         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PHARM ACY_SYSTEM  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2299         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2300  
  2301         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PRINT _FIELDS TO  PPSNEPL_R EAD_ONLY_R OLE' ;
  2302         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2303  
  2304         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PRINT _TEMPLATES  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2305         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2306  
  2307         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PRODU CTS TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2308         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2309  
  2310         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PRODU CT_LABS TO  PPSNEPL_R EAD_ONLY_R OLE' ;
  2311         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2312  
  2313         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PRODU CT_VITALS  TO PPSNEPL _READ_ONLY _ROLE' ;
  2314         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2315  
  2316         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PROD_ DRUG_CLASS _ASSOCS TO  PPSNEPL_R EAD_ONLY_R OLE' ;
  2317         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2318  
  2319         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PROD_ DRUG_TEXT_ L_ASSOCS T O PPSNEPL_ READ_ONLY_ ROLE' ;
  2320         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2321  
  2322         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PROD_ DRUG_TEXT_ N_ASSOCS T O PPSNEPL_ READ_ONLY_ ROLE' ;
  2323         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2324  
  2325         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PROD_ INGREDIENT _ASSOCS TO  PPSNEPL_R EAD_ONLY_R OLE' ;
  2326         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2327  
  2328         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PROD_ SPEC_HANDL ING_ASSOCS  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2329         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2330  
  2331         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PROD_ WARN_LABEL _L_ASSOCS  TO PPSNEPL _READ_ONLY _ROLE' ;
  2332         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2333  
  2334         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PROD_ WARN_LABEL _N_ASSOCS  TO PPSNEPL _READ_ONLY _ROLE' ;
  2335         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2336  
  2337         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_REMAT CH_SUGGEST ION TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2338         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2339         
  2340         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_REQUE STS TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2341         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2342  
  2343         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_REQUE ST_DETAILS  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2344         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2345  
  2346         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_SCHED ULE_TYPES  TO PPSNEPL _READ_ONLY _ROLE' ;
  2347         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2348  
  2349         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_SEARC H_CRITERIA  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2350         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2351  
  2352         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_SEARC H_TEMPLATE S TO PPSNE PL_READ_ON LY_ROLE' ;
  2353         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2354  
  2355         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_SEQ_N UMS TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2356         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2357  
  2358         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_SESSI ON_PREFERE NCES TO PP SNEPL_READ _ONLY_ROLE ' ;
  2359         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2360  
  2361         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_SITE_ CONFIGS TO  PPSNEPL_R EAD_ONLY_R OLE' ;
  2362         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2363  
  2364         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_SITE_ UPDATE_SCH EDULES TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  2365         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2366  
  2367         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_SPECI AL_HANDLIN G TO PPSNE PL_READ_ON LY_ROLE' ;
  2368         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2369  
  2370         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_STAND ARD_MED_RO UTES TO PP SNEPL_READ _ONLY_ROLE ' ;
  2371         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2372  
  2373         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_STATU S TO PPSNE PL_READ_ON LY_ROLE' ;
  2374         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2375         
  2376         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_SYNON YMS TO PPS NEPL_READ_ ONLY_ROLE'  ;
  2377         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2378  
  2379         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_USERS  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2380         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2381  
  2382         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VADF_ ASSOC_VALU ES TO PPSN EPL_READ_O NLY_ROLE'  ;
  2383         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2384  
  2385         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VADF_ EDITABLE_P ROPERTIES  TO PPSNEPL _READ_ONLY _ROLE' ;
  2386         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2387  
  2388         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VADF_ LOVS TO PP SNEPL_READ _ONLY_ROLE ' ;
  2389         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2390  
  2391         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VADF_ NONLIST_VA LUES TO PP SNEPL_READ _ONLY_ROLE ' ;
  2392         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2393  
  2394         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VADF_ OWNERS TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  2395         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2396  
  2397         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VA_DF S TO PPSNE PL_READ_ON LY_ROLE' ;
  2398         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2399  
  2400         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VA_DI SPENSE_UNI TS TO PPSN EPL_READ_O NLY_ROLE'  ;
  2401         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2402  
  2403         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VA_DR UG_CLASSES  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2404         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2405  
  2406         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VA_GE N_NAMES TO  PPSNEPL_R EAD_ONLY_R OLE' ;
  2407         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2408  
  2409         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VISTA _STATUS TO  PPSNEPL_R EAD_ONLY_R OLE' ;
  2410         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2411         
  2412         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VISTA _UPDATE TO  PPSNEPL_R EAD_ONLY_R OLE' ;
  2413         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2414         
  2415         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VITAL S TO PPSNE PL_READ_ON LY_ROLE' ;
  2416         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2417  
  2418         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VUID_ STATUS_HIS TORY TO PP SNEPL_READ _ONLY_ROLE ' ;
  2419         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2420  
  2421         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_WARDS  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2422         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2423  
  2424         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_WARN_ LABELS TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  2425         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2426  
  2427         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .HIBERNATE _UNIQUE_KE Y TO PPSNE PL_READ_ON LY_ROLE' ;
  2428         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2429  
  2430         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .TEMP_EPL_ NDCS TO PP SNEPL_READ _ONLY_ROLE ' ;
  2431         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2432         
  2433   -- 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
  2434  
  2435         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_PROD_ COPAY_TIER _ASSOCS TO  PPSNEPL_R EAD_ONLY_R OLE' ;
  2436         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2437  
  2438         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_COPAY _TIER TO P PSNEPL_REA D_ONLY_ROL E' ;
  2439         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2440  
  2441   /* REMOVED  01/11/201 7
  2442         vc_s ql_stateme nt := 'GRA NT EXECUTE  ON PPSNEP L.REPORT_C OPAY_TIER_ CHANGE TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  2443         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2444   */
  2445         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_COPAY _TIER_3_PR ODUCTS TO  PPSNEPL_RE AD_ONLY_RO LE' ;
  2446         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2447  
  2448   -- UPDATE_ USER_ROLE_ HERE
  2449  
  2450         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _ADMIN_SCH EDULES TO  PPSNEPL_UP DATE_ROLE'  ;
  2451         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2452  
  2453         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _ATC_CANIS TERS TO PP SNEPL_UPDA TE_ROLE' ;
  2454         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2455  
  2456         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _CLASS_TYP ES TO PPSN EPL_UPDATE _ROLE' ;
  2457         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2458         
  2459         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _CMOP_ID_G ENERATOR T O PPSNEPL_ UPDATE_ROL E' ;
  2460         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2461  
  2462         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _CMOP_ID_H ISTORY TO  PPSNEPL_UP DATE_ROLE'  ;
  2463         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2464  
  2465         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _CS_FED_SC HEDULES TO  PPSNEPL_U PDATE_ROLE ' ;
  2466         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2467  
  2468         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _DDI_SEVER ITY TO PPS NEPL_UPDAT E_ROLE' ;
  2469         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2470  
  2471         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _DF_MED_RT _DF_ASSOCS  TO PPSNEP L_UPDATE_R OLE' ;
  2472         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2473         
  2474         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _DF_NOUNS  TO PPSNEPL _UPDATE_RO LE' ;
  2475         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2476  
  2477         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _DF_UNITS  TO PPSNEPL _UPDATE_RO LE' ;
  2478         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2479  
  2480         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _DISPENSE_ UNITS_PER_ DOSE TO PP SNEPL_UPDA TE_ROLE' ;
  2481         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2482  
  2483         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _DOSAGE_FO RMS TO PPS NEPL_UPDAT E_ROLE' ;
  2484         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2485  
  2486         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _DOSE_UNIT S TO PPSNE PL_UPDATE_ ROLE' ;
  2487         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2488  
  2489         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _DOSE_UNIT _SYNONYMS  TO PPSNEPL _UPDATE_RO LE' ;
  2490         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2491  
  2492         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _DRUG_DRUG _INTERACTI ON TO PPSN EPL_UPDATE _ROLE' ;
  2493         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2494         
  2495         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _DRUG_TEXT  TO PPSNEP L_UPDATE_R OLE' ;
  2496         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2497  
  2498         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _DRUG_UNIT S TO PPSNE PL_UPDATE_ ROLE' ;
  2499         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2500  
  2501         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _DT_SYNONY MS TO PPSN EPL_UPDATE _ROLE' ;
  2502         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2503  
  2504         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _FDB_ADD T O PPSNEPL_ UPDATE_ROL E' ;
  2505         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2506  
  2507         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _FDB_AUTO_ ADD TO PPS NEPL_UPDAT E_ROLE' ;
  2508         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2509  
  2510         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _FDB_AUTO_ UPDATE TO  PPSNEPL_UP DATE_ROLE'  ;
  2511         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2512  
  2513         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _FDB_DOSAG E_FORM TO  PPSNEPL_UP DATE_ROLE'  ;
  2514         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2515  
  2516         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _FDB_DRUG_ CLASS TO P PSNEPL_UPD ATE_ROLE'  ;
  2517         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2518  
  2519         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _FDB_DRUG_ INGREDIENT  TO PPSNEP L_UPDATE_R OLE' ;
  2520         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2521  
  2522         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _FDB_DRUG_ UNITS TO P PSNEPL_UPD ATE_ROLE'  ;
  2523         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2524  
  2525         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _FDB_GENER IC_NAME TO  PPSNEPL_U PDATE_ROLE ' ;
  2526         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2527  
  2528         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _FDB_NDC T O PPSNEPL_ UPDATE_ROL E' ;
  2529         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2530  
  2531         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _FDB_PRODU CT TO PPSN EPL_UPDATE _ROLE' ;
  2532         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2533  
  2534         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _FDB_UPDAT E TO PPSNE PL_UPDATE_ ROLE' ;
  2535         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2536  
  2537         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _HOSPITAL_ LOCATIONS  TO PPSNEPL _UPDATE_RO LE' ;
  2538         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2539  
  2540         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _IEN_GENER ATOR TO PP SNEPL_UPDA TE_ROLE' ;
  2541         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2542         
  2543         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _IFCAP_ITE M_NUMBERS  TO PPSNEPL _UPDATE_RO LE' ;
  2544         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2545  
  2546         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _INGREDIEN TS TO PPSN EPL_UPDATE _ROLE' ;
  2547         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2548         
  2549         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _INTENDED_ USES TO PP SNEPL_UPDA TE_ROLE' ;
  2550         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2551  
  2552         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _INTERFACE _COUNTERS  TO PPSNEPL _UPDATE_RO LE' ;
  2553         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2554  
  2555         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _ITEM_AUDI T_HISTORY  TO PPSNEPL _UPDATE_RO LE' ;
  2556         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2557  
  2558         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _ITEM_AUDI T_HISTORY_ DETAILS TO  PPSNEPL_U PDATE_ROLE ' ;
  2559         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2560  
  2561         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _LABS TO P PSNEPL_UPD ATE_ROLE'  ;
  2562         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2563  
  2564         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _LOCAL_CON SOLE_INFO  TO PPSNEPL _UPDATE_RO LE' ;
  2565         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2566  
  2567         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _LOCAL_MED _ROUTES TO  PPSNEPL_U PDATE_ROLE ' ;
  2568         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2569  
  2570         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _LOCAL_POS SIBLE_DOSA GES TO PPS NEPL_UPDAT E_ROLE' ;
  2571         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2572  
  2573         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _MANUFACTU RERS TO PP SNEPL_UPDA TE_ROLE' ;
  2574         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2575  
  2576         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _MATCH_TYP E TO PPSNE PL_UPDATE_ ROLE' ;
  2577         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2578         
  2579         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _MEDICATIO N_INSTRUCT IONS TO PP SNEPL_UPDA TE_ROLE' ;
  2580         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2581  
  2582         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _MED_INSTR UCT_WARDS  TO PPSNEPL _UPDATE_RO LE' ;
  2583         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2584  
  2585         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _MIGRATION _CONTROL T O PPSNEPL_ UPDATE_ROL E' ;
  2586         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2587  
  2588         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _MIGRATION _ERROR TO  PPSNEPL_UP DATE_ROLE'  ;
  2589         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2590  
  2591         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _MIGRATION _FILE TO P PSNEPL_UPD ATE_ROLE'  ;
  2592         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2593  
  2594         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _MULTI_TEX T TO PPSNE PL_UPDATE_ ROLE' ;
  2595         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2596  
  2597         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _NATIONAL_ POSSIBLE_D OSAGES TO  PPSNEPL_UP DATE_ROLE'  ;
  2598         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2599  
  2600         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _NATIONAL_ SETTINGS T O PPSNEPL_ UPDATE_ROL E' ;
  2601         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2602  
  2603         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _NDCS TO P PSNEPL_UPD ATE_ROLE'  ;
  2604         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2605  
  2606         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _NDC_BY_OU TPATIENT_S ITE_NDC TO  PPSNEPL_U PDATE_ROLE ' ;
  2607         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2608  
  2609         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _NDF_OUTGO ING_DIFFER ENCES TO P PSNEPL_UPD ATE_ROLE'  ;
  2610         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2611    
  2612         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _NDF_SYNCH _QUEUE TO  PPSNEPL_UP DATE_ROLE'  ;
  2613         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2614  
  2615         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _NDF_UPDAT E_FILE TO  PPSNEPL_UP DATE_ROLE'  ;
  2616         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2617         
  2618         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _NOTIFICAT IONS TO PP SNEPL_UPDA TE_ROLE' ;
  2619         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2620  
  2621         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _NOTIF_USE R_PREFS TO  PPSNEPL_U PDATE_ROLE ' ;
  2622         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2623  
  2624         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _OI_ADMIN_ SCHED_ASSO CS TO PPSN EPL_UPDATE _ROLE' ;
  2625         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2626  
  2627         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _OI_DRUG_T EXT_L_ASSO CS TO PPSN EPL_UPDATE _ROLE' ;
  2628         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2629  
  2630         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _OI_DRUG_T EXT_N_ASSO CS TO PPSN EPL_UPDATE _ROLE' ;
  2631         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2632  
  2633         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _OI_MED_RO UTE_ASSOCS  TO PPSNEP L_UPDATE_R OLE' ;
  2634         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2635  
  2636         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _OI_SCHEDU LE_TYPES T O PPSNEPL_ UPDATE_ROL E' ;
  2637         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2638  
  2639         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _ORDERABLE _ITEMS TO  PPSNEPL_UP DATE_ROLE'  ;
  2640         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2641  
  2642         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _ORDER_UNI TS TO PPSN EPL_UPDATE _ROLE' ;
  2643         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2644  
  2645         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PACKAGE_S IZES TO PP SNEPL_UPDA TE_ROLE' ;
  2646         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2647  
  2648         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PACKAGE_T YPES TO PP SNEPL_UPDA TE_ROLE' ;
  2649         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2650  
  2651         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PACKAGE_U SAGES TO P PSNEPL_UPD ATE_ROLE'  ;
  2652         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2653  
  2654         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PACKAGE_U SE_ASSOCS  TO PPSNEPL _UPDATE_RO LE' ;
  2655         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2656  
  2657         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PARTIAL_S AVE_MGT TO  PPSNEPL_U PDATE_ROLE ' ;
  2658         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2659  
  2660         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PHARMACY_ SYSTEM TO  PPSNEPL_UP DATE_ROLE'  ;
  2661         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2662  
  2663         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PRINT_FIE LDS TO PPS NEPL_UPDAT E_ROLE' ;
  2664         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2665  
  2666         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PRINT_TEM PLATES TO  PPSNEPL_UP DATE_ROLE'  ;
  2667         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2668  
  2669         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PRODUCTS  TO PPSNEPL _UPDATE_RO LE' ;
  2670         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2671  
  2672         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PRODUCT_L ABS TO PPS NEPL_UPDAT E_ROLE' ;
  2673         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2674  
  2675         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PRODUCT_V ITALS TO P PSNEPL_UPD ATE_ROLE'  ;
  2676         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2677  
  2678         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PROD_DRUG _CLASS_ASS OCS TO PPS NEPL_UPDAT E_ROLE' ;
  2679         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2680  
  2681         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PROD_DRUG _TEXT_L_AS SOCS TO PP SNEPL_UPDA TE_ROLE' ;
  2682         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2683  
  2684         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' ;
  2685         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2686  
  2687         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PROD_INGR EDIENT_ASS OCS TO PPS NEPL_UPDAT E_ROLE' ;
  2688         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2689  
  2690         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _PROD_SPEC _HANDLING_ ASSOCS TO  PPSNEPL_UP DATE_ROLE'  ;
  2691         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2692  
  2693         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'  ;
  2694         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2695  
  2696         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'  ;
  2697         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2698  
  2699         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _REMATCH_S UGGESTION  TO PPSNEPL _UPDATE_RO LE' ;
  2700         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2701         
  2702         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _REQUESTS  TO PPSNEPL _UPDATE_RO LE' ;
  2703         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2704  
  2705         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _REQUEST_D ETAILS TO  PPSNEPL_UP DATE_ROLE'  ;
  2706         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2707  
  2708         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _SCHEDULE_ TYPES TO P PSNEPL_UPD ATE_ROLE'  ;
  2709         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2710  
  2711         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _SEARCH_CR ITERIA TO  PPSNEPL_UP DATE_ROLE'  ;
  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 _SEARCH_TE MPLATES TO  PPSNEPL_U PDATE_ROLE ' ;
  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 _SEQ_NUMS  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 _SESSION_P REFERENCES  TO PPSNEP L_UPDATE_R OLE' ;
  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 _SITE_CONF IGS TO PPS NEPL_UPDAT E_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 _SITE_UPDA TE_SCHEDUL ES TO PPSN EPL_UPDATE _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 _SPECIAL_H ANDLING 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 _STANDARD_ MED_ROUTES  TO PPSNEP L_UPDATE_R OLE' ;
  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 _STATUS TO  PPSNEPL_U PDATE_ROLE ' ;
  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 _SYNONYMS  TO PPSNEPL _UPDATE_RO LE' ;
  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 _USERS TO  PPSNEPL_UP DATE_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 _VADF_ASSO C_VALUES T O PPSNEPL_ UPDATE_ROL E' ;
  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 _VADF_EDIT ABLE_PROPE RTIES TO P PSNEPL_UPD ATE_ROLE'  ;
  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 _VADF_LOVS  TO PPSNEP L_UPDATE_R OLE' ;
  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 _VADF_NONL IST_VALUES  TO PPSNEP L_UPDATE_R OLE' ;
  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 _VADF_OWNE RS TO PPSN EPL_UPDATE _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 _VA_DFS TO  PPSNEPL_U PDATE_ROLE ' ;
  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 _VA_DISPEN SE_UNITS T O PPSNEPL_ UPDATE_ROL E' ;
  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 _VA_DRUG_C LASSES TO  PPSNEPL_UP DATE_ROLE'  ;
  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 _VA_GEN_NA MES TO PPS NEPL_UPDAT E_ROLE' ;
  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 _VISTA_STA TUS TO PPS NEPL_UPDAT E_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 _VISTA_UPD ATE TO PPS NEPL_UPDAT E_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 _VITALS TO  PPSNEPL_U PDATE_ROLE ' ;
  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 _VUID_STAT US_HISTORY  TO PPSNEP L_UPDATE_R OLE' ;
  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 _WARDS TO  PPSNEPL_UP DATE_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 _WARN_LABE LS TO PPSN EPL_UPDATE _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.HIB ERNATE_UNI QUE_KEY TO  PPSNEPL_U PDATE_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.TEM P_EPL_NDCS  TO PPSNEP L_UPDATE_R OLE' ;
  2793         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2794         
  2795         vc_s ql_stateme nt := 'GRA NT ALTER,  SELECT ON  PPSNEPL.UP DATE_FILE_ SEQUENCE T O PPSNEPL_ UPDATE_ROL E' ;
  2796         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2797         
  2798   -- 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)
  2799  
  2800         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' ;
  2801         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2802  
  2803         vc_s ql_stateme nt := 'GRA NT INSERT,  UPDATE, D ELETE ON P PSNEPL.EPL _COPAY_TIE R TO PPSNE PL_UPDATE_ ROLE' ;
  2804         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2805  
  2806   /* REMOVED  01/11/201 7
  2807         vc_s ql_stateme nt := 'GRA NT EXECUTE  ON PPSNEP L.REPORT_C OPAY_TIER_ CHANGE TO  PPSNEPL_UP DATE_ROLE'  ;
  2808         EXEC UTE IMMEDI ATE vc_sql _statement ;    
  2809   */
  2810         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_COPAY _TIER_3_PR ODUCTS TO  PPSNEPL_UP DATE_ROLE'  ;
  2811         EXEC UTE IMMEDI ATE vc_sql _statement ;      
  2812         
  2813   -- Additio nal missed  in PPSN-2  migration  script an d others f or new rol e needs ac cess
  2814  
  2815         vc_s ql_stateme nt := 'GRA NT SELECT  ON EPL_VAD F_VALUES_V IEW TO PPS NEPL_READ_ ONLY' ;
  2816         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2817  
  2818         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .UPDATE_FI LE_SEQUENC E TO PPSNE PL_READ_ON LY_ROLE' ;
  2819         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2820         
  2821         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .FDB_PLBLW ARNINGS_V  TO PPSNEPL _READ_ONLY _ROLE' ;
  2822         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2823         
  2824         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .FDB_MONOG RAPH_PEM_V  TO PPSNEP L_READ_ONL Y_ROLE' ;
  2825         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2826         
  2827         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .FDB_GCNSE QNO_PLBLW_ V TO PPSNE PL_READ_ON LY_ROLE' ;
  2828         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2829         
  2830         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .FDB_GCNSE QNO_PEM_V  TO PPSNEPL _READ_ONLY _ROLE' ;
  2831         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2832         
  2833         vc_s ql_stateme nt := 'GRA NT SELECT  ON PPSNEPL .EPL_VADF_ VALUES_VIE W TO PPSNE PL_READ_ON LY_ROLE' ;       
  2834         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2835         
  2836         DBMS _OUTPUT.pu t_line('Ex ecuted GRA NT ... to  ROLES ...m ultiple')  ;
  2837  
  2838         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  grant _TO_ROLES' );
  2839         RETU RN (0);
  2840      EXCEPTI ON
  2841         WHEN  OTHERS
  2842         THEN
  2843            v n_code :=  SQLCODE;
  2844            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  2845            s ys.DBMS_OU TPUT.put_l ine (
  2846                'grant_T O_ROLES: E rror code  ' || vn_co de || ': '  || vc_err m);
  2847            s ys.DBMS_OU TPUT.put_l ine (
  2848                'grant_T O_ROLES: l ast value  for vc_sql _statement  ');
  2849            s ys.DBMS_OU TPUT.put_l ine (
  2850                'grant_T O_ROLES: '  || vc_sql _statement );
  2851            R ETURN (1);
  2852      END gra nt_TO_ROLE S; 
  2853            
  2854      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  2855      -- NAME :          ALTER_EPL_ NDF_OUTG_D IF
  2856      -- TYPE :          Function
  2857      -- DESC RIPTION:   ALTER TABL E EPL_NDF_ DIFFERENCE S resize 2  columns
  2858      -- INPU TS:        None
  2859      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  2860      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  2861       FUNCTI ON alter_E PL_NDF_OUT G_DIF
  2862          RET URN NUMBER
  2863       IS
  2864               
  2865       BEGIN
  2866         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  2867         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  alt er_EPL_NDF _OUTG_DIF' ); 
  2868  
  2869         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)' ;
  2870         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2871         
  2872         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)' ;
  2873         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2874         
  2875         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  alter _EPL_NDF_O UTG_DIF');
  2876         RETU RN (0);
  2877      EXCEPTI ON
  2878         WHEN  OTHERS
  2879         THEN
  2880            v n_code :=  SQLCODE;
  2881            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  2882            s ys.DBMS_OU TPUT.put_l ine (
  2883                'alter_E PL_NDF_OUT G_DIF: Err or code '  || vn_code  || ': ' | | vc_errm) ;
  2884            s ys.DBMS_OU TPUT.put_l ine (
  2885                'alter_E PL_NDF_OUT G_DIF: las t value fo r vc_sql_s tatement ' );
  2886            s ys.DBMS_OU TPUT.put_l ine (
  2887                'alter_E PL_NDF_OUT G_DIF: ' | | vc_sql_s tatement);
  2888            R ETURN (1);
  2889      END alt er_EPL_NDF _OUTG_DIF;  
  2890        
  2891      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  2892      -- NAME :          ALTER_EPL_ VADF_LOVS
  2893      -- TYPE :          Function
  2894      -- DESC RIPTION:   ALTER TABL E EPL_VADF _LOVS add  one column
  2895      -- INPU TS:        None
  2896      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  2897      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  2898  
  2899       FUNCTI ON alter_E PL_VADF_LO VS
  2900          RET URN NUMBER
  2901        IS
  2902                  
  2903       BEGIN
  2904         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  2905         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  alt er_EPL_VAD F_LOVS'); 
  2906      
  2907         vc_s ql_stateme nt := 'ALT ER TABLE P PSNEPL.EPL _VADF_LOVS  ADD DISPL AY_VALUE V ARCHAR2(10 0 BYTE)' ;
  2908         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2909          
  2910         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  alter _EPL_VADF_ LOVS');
  2911         RETU RN (0);
  2912      EXCEPTI ON
  2913         WHEN  OTHERS
  2914         THEN
  2915            v n_code :=  SQLCODE;
  2916            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  2917            s ys.DBMS_OU TPUT.put_l ine (
  2918                'alter_E PL_VADF_LO VS: Error  code ' ||  vn_code ||  ': ' || v c_errm);
  2919            s ys.DBMS_OU TPUT.put_l ine (
  2920                'alter_E PL_VADF_LO VS: last v alue for v c_sql_stat ement ');
  2921            s ys.DBMS_OU TPUT.put_l ine (
  2922                'alter_E PL_VADF_LO VS: ' || v c_sql_stat ement);
  2923            R ETURN (1);
  2924     END alte r_EPL_VADF _LOVS; 
  2925      
  2926      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  2927      -- NAME :          ALTER_EPL_ PRODUCTS_R X
  2928      -- TYPE :          Function
  2929      -- DESC RIPTION:   ALTER TABL E EPL_PROD UCTS - RX  NORM
  2930      -- INPU TS:        None
  2931      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  2932      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  2933       FUNCTI ON alter_E PL_PRODUCT S_RX
  2934          RET URN NUMBER
  2935       IS
  2936      
  2937       BEGIN
  2938         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  2939         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  alt er_EPL_PRO DUCTS_RX')
  2940  
  2941         vc_s ql_stateme nt := 'ALT ER TABLE P PSNEPL.EPL _PRODUCTS  ADD RX_NOR M_LAST_UPD ATE_DATE T IMESTAMP'  ;
  2942         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2943  
  2944         vc_s ql_stateme nt := 'ALT ER TABLE P PSNEPL.EPL _PRODUCTS  ADD RX_NOR M_EXCLUDE_ FROM_UPDAT E CHAR(1)'  ;
  2945         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2946         
  2947         vc_s ql_stateme nt := 'ALT ER TABLE P PSNEPL.EPL _PRODUCTS  MODIFY RX_ NORM_NAME  VARCHAR2(4 000 BYTE)'  ;
  2948         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2949         
  2950         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  alter _EPL_PRODU CTS_RX');
  2951         RETU RN (0);
  2952      EXCEPTI ON
  2953         WHEN  OTHERS
  2954         THEN
  2955            v n_code :=  SQLCODE;
  2956            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  2957            s ys.DBMS_OU TPUT.put_l ine (
  2958                'alter_E PL_PRODUCT S_RX: Erro r code ' | | vn_code  || ': ' ||  vc_errm);
  2959            s ys.DBMS_OU TPUT.put_l ine (
  2960                'alter_E PL_PRODUCT S_RX: last  value for  vc_sql_st atement ') ;
  2961            s ys.DBMS_OU TPUT.put_l ine (
  2962                'alter_E PL_PRODUCT S_RX: ' ||  vc_sql_st atement);
  2963            R ETURN (1);
  2964      END alt er_EPL_PRO DUCTS_RX; 
  2965      
  2966      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  2967      -- NAME :          ALTER_EPL_ PRODUCTS_H Z
  2968      -- TYPE :          Function
  2969      -- DESC RIPTION:   ALTER TABL E EPL_PROD UCTS - HAZ ARDOUS WAS TE
  2970      -- INPU TS:        None
  2971      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  2972      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  2973       FUNCTI ON alter_E PL_PRODUCT S_HZ
  2974          RET URN NUMBER
  2975       IS
  2976         
  2977       BEGIN
  2978         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  2979         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  alt er_EPL_PRO DUCTS_HZ')
  2980  
  2981         vc_s ql_stateme nt := 'ALT ER TABLE P PSNEPL.EPL _PRODUCTS  ADD HAZARD OUS_TO_DIS POSE CHAR( 1)' ;
  2982         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2983  
  2984         vc_s ql_stateme nt := 'ALT ER TABLE P PSNEPL.EPL _PRODUCTS  ADD HAZARD OUS_TO_HAN DLE CHAR(1 )' ;
  2985         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2986  
  2987         vc_s ql_stateme nt := 'ALT ER TABLE P PSNEPL.EPL _PRODUCTS  ADD PRIMAR Y_EPA VARC HAR2(50 BY TE)' ;
  2988         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2989  
  2990         vc_s ql_stateme nt := 'ALT ER TABLE P PSNEPL.EPL _PRODUCTS  ADD WASTE_ SORT_CODE  VARCHAR2(5 0 BYTE)' ;
  2991         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2992  
  2993         vc_s ql_stateme nt := 'ALT ER TABLE P PSNEPL.EPL _PRODUCTS  ADD DOT_SH IPPING_NAM E VARCHAR2 (200 BYTE) ' ;
  2994         EXEC UTE IMMEDI ATE vc_sql _statement ;
  2995         
  2996         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  alter _EPL_PRODU CTS_HZ');
  2997         RETU RN (0);
  2998      EXCEPTI ON
  2999         WHEN  OTHERS
  3000         THEN
  3001            v n_code :=  SQLCODE;
  3002            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  3003            s ys.DBMS_OU TPUT.put_l ine (
  3004                'alter_E PL_PRODUCT S_HZ: Erro r code ' | | vn_code  || ': ' ||  vc_errm);
  3005            s ys.DBMS_OU TPUT.put_l ine (
  3006                'alter_E PL_PRODUCT S_HZ: last  value for  vc_sql_st atement ') ;
  3007            s ys.DBMS_OU TPUT.put_l ine (
  3008                'alter_E PL_PRODUCT S_HZ: ' ||  vc_sql_st atement);
  3009            R ETURN (1);
  3010      END alt er_EPL_PRO DUCTS_HZ; 
  3011  
  3012      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3013      -- NAME :          INSERT_EPL _VA_DFS_N_ LOVS_RX
  3014      -- TYPE :          Function
  3015      -- DESC RIPTION:   INSERT INT O TABLE EP L_VA_DFS a nd EPL_VA_ LOVS - SUP PRESS DML
  3016      -- INPU TS:        None
  3017      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  3018      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3019       FUNCTI ON insert_ EPL_VA_DFS _N_LOVS_RX
  3020          RET URN NUMBER
  3021       IS
  3022  
  3023       max_id _dfs_plus_ 1 NUMBER;
  3024       max_id _lovs        NUMBER;
  3025           
  3026       BEGIN
  3027         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  3028         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  ins ert_EPL_VA _DFS_N_LOV S_RX'); 
  3029  
  3030         SELE CT NVL(MAX (ID), 0) +  1 INTO ma x_id_dfs_p lus_1 FROM  PPSNEPL.E PL_VA_DFS;
  3031         
  3032         vc_s ql_stateme nt :=
  3033            ' INSERT INT O PPSNEPL. EPL_VA_DFS  '
  3034         || ' (ID,VADF_N AME,VADF_T YPE,MULTI_ SELECT_YN, DEFAULT_VA LUE,VADF_U SAGES,CREA TED_BY,CRE ATED_DTM)  '
  3035         || ' VALUES ('| |max_id_df s_plus_1|| ',''rx.nor m.suppress '',''LIST' ',''N'',NU LL,''NPO'' ,''DEVELOP ER'',SYSDA TE)';
  3036            
  3037         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3038  
  3039         SELE CT ID INTO  max_id_lo vs FROM PP SNEPL.EPL_ VA_DFS WHE RE VADF_NA ME = 'rx.n orm.suppre ss';
  3040  
  3041         vc_s ql_stateme nt :=
  3042            ' INSERT INT O PPSNEPL. EPL_VADF_L OVS '
  3043         || ' (VADF_ID_F K,LIST_VAL UE,DISPLAY _VALUE,DEF AULT_VALUE ,CREATED_B Y,CREATED_ DTM) '
  3044              || 'VALUES  ('||max_i d_lovs||', ''N'', ''N -Not Suppr essible'',  ''N'', '' DEVELOPER' ', SYSDATE )';
  3045            
  3046         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3047  
  3048         vc_s ql_stateme nt :=
  3049            ' INSERT INT O PPSNEPL. EPL_VADF_L OVS '
  3050         || ' (VADF_ID_F K,LIST_VAL UE,DISPLAY _VALUE,DEF AULT_VALUE ,CREATED_B Y,CREATED_ DTM) '
  3051              || 'VALUES  ('||max_i d_lovs||', ''O'', ''O -Obsolete' ', ''N'',  ''DEVELOPE R'', SYSDA TE)';
  3052            
  3053         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3054  
  3055         vc_s ql_stateme nt :=
  3056            ' INSERT INT O PPSNEPL. EPL_VADF_L OVS '
  3057         || ' (VADF_ID_F K,LIST_VAL UE,DISPLAY _VALUE,DEF AULT_VALUE ,CREATED_B Y,CREATED_ DTM) '
  3058              || 'VALUES  ('||max_i d_lovs||', ''Y'', ''Y -Suppresse d'', ''N'' , ''DEVELO PER'', SYS DATE)';
  3059            
  3060         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3061             
  3062         vc_s ql_stateme nt :=
  3063            ' INSERT INT O PPSNEPL. EPL_VADF_L OVS '
  3064         || ' (VADF_ID_F K,LIST_VAL UE,DISPLAY _VALUE,DEF AULT_VALUE ,CREATED_B Y,CREATED_ DTM) '
  3065              || 'VALUES  ('||max_i d_lovs||', ''E'', ''E -Editor-As signed Sup pressiblit y'', ''N'' , ''DEVELO PER'', SYS DATE)';
  3066            
  3067         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3068         
  3069         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  inser t_EPL_VA_D FS_N_LOVS_ RX');
  3070         RETU RN (0);
  3071      EXCEPTI ON
  3072         WHEN  OTHERS
  3073         THEN
  3074            v n_code :=  SQLCODE;
  3075            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  3076            s ys.DBMS_OU TPUT.put_l ine (
  3077                'insert_ EPL_VA_DFS _N_LOVS_RX : Error co de ' || vn _code || ' : ' || vc_ errm);
  3078            s ys.DBMS_OU TPUT.put_l ine (
  3079                'insert_ EPL_VA_DFS _N_LOVS_RX : last val ue for vc_ sql_statem ent ');
  3080            s ys.DBMS_OU TPUT.put_l ine (
  3081                'insert_ EPL_VA_DFS _N_LOVS_RX : ' || vc_ sql_statem ent);
  3082            R ETURN (1);
  3083      END ins ert_EPL_VA _DFS_N_LOV S_RX; 
  3084             
  3085  
  3086      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3087      -- NAME :          INSERT_EPL _VA_DFS_HZ
  3088      -- TYPE :          Function
  3089      -- DESC RIPTION:   INSERT INT O TABLE EP L_VA_DFS -  HAZARDOUS  WASTE DML
  3090      -- INPU TS:        None
  3091      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  3092      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3093       FUNCTI ON insert_ EPL_VA_DFS _HZ
  3094          RET URN NUMBER
  3095       IS
  3096               max_id_df s_hz_1   N UMBER;
  3097               max_id_df s_hz_2   N UMBER;
  3098               max_id_df s_hz_3   N UMBER;                 
  3099       BEGIN
  3100         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  3101         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  ins ert_EPL_VA _DFS_HZ');  
  3102  
  3103         SELE CT NVL(MAX (ID), 0) +  1 INTO ma x_id_dfs_h z_1 FROM P PSNEPL.EPL _VA_DFS;
  3104         SELE CT NVL(MAX (ID), 0) +  2 INTO ma x_id_dfs_h z_2 FROM P PSNEPL.EPL _VA_DFS;
  3105         SELE CT NVL(MAX (ID), 0) +  3 INTO ma x_id_dfs_h z_3 FROM P PSNEPL.EPL _VA_DFS;
  3106                      
  3107         vc_s ql_stateme nt :=
  3108            ' INSERT INT O PPSNEPL. EPL_VA_DFS  '
  3109         || ' (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) '
  3110              || 'VALUES  ('||max_i d_dfs_hz_1 ||',''prim ary.epa'', ''STRING'' ,''N'',NUL L,''P'','' DEVELOPER' ',SYSDATE, NULL,SYSDA TE)';
  3111            
  3112         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3113  
  3114         vc_s ql_stateme nt :=
  3115            ' INSERT INT O PPSNEPL. EPL_VA_DFS  '
  3116         || ' (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) '
  3117              || 'VALUES  ('||max_i d_dfs_hz_2 ||',''wast e.sort.cod e'',''STRI NG'',''N'' ,NULL,''P' ',''DEVELO PER'',SYSD ATE,NULL,S YSDATE)';
  3118            
  3119         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3120  
  3121         vc_s ql_stateme nt :=
  3122            ' INSERT INT O PPSNEPL. EPL_VA_DFS  '
  3123         || ' (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) '
  3124              || 'VALUES  ('||max_i d_dfs_hz_3 ||',''dot. shipping.n ame'',''ST RING'',''N '',NULL,'' P'',''DEVE LOPER'',SY SDATE,NULL ,SYSDATE)' ;
  3125            
  3126         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3127         
  3128         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  inser t_EPL_VA_D FS_HZ');
  3129         RETU RN (0);
  3130      EXCEPTI ON
  3131         WHEN  OTHERS
  3132         THEN
  3133            v n_code :=  SQLCODE;
  3134            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  3135            s ys.DBMS_OU TPUT.put_l ine (
  3136                'insert_ EPL_VA_DFS _HZ: Error  code ' ||  vn_code | | ': ' ||  vc_errm);
  3137            s ys.DBMS_OU TPUT.put_l ine (
  3138                'insert_ EPL_VA_DFS _HZ: last  value for  vc_sql_sta tement ');
  3139            s ys.DBMS_OU TPUT.put_l ine (
  3140                'insert_ EPL_VA_DFS _HZ: ' ||  vc_sql_sta tement);
  3141            R ETURN (1);
  3142      END ins ert_EPL_VA _DFS_HZ; 
  3143  
  3144      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3145      -- NAME :          INSERT_EPL _NAT_SET_R X
  3146      -- TYPE :          Function
  3147      -- DESC RIPTION:   INSERT INT O TABLE EP L_NATIONAL _SETTINGS  - RX NORM
  3148      -- INPU TS:        None
  3149      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  3150      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3151       FUNCTI ON insert_ EPL_NAT_SE T_RX
  3152          RET URN NUMBER
  3153       IS
  3154          max _id_epl_1  NUMBER;
  3155          max _id_epl_2  NUMBER;        
  3156       BEGIN
  3157         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  3158         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  ins ert_EPL_NA T_SET_RX')
  3159  
  3160         SELE CT NVL(MAX (ID), 0) +  1 INTO ma x_id_epl_1  FROM PPSN EPL.EPL_NA TIONAL_SET TINGS;
  3161         SELE CT NVL(MAX (ID), 0) +  2 INTO ma x_id_epl_2  FROM PPSN EPL.EPL_NA TIONAL_SET TINGS;
  3162         
  3163         vc_s ql_stateme nt :=
  3164            ' INSERT INT O PPSNEPL. EPL_NATION AL_SETTING S (ID, KEY _NAME, CRE ATED_BY, C REATED_DTM ) '
  3165              || 'VALUES  ('||max_i d_epl_1||' ,''RXNORM_ UPDATE_RUN _STATE'',' 'DEVELOPER '',SYSDATE )';
  3166            
  3167         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3168      
  3169         vc_s ql_stateme nt :=
  3170            ' INSERT INT O PPSNEPL. EPL_NATION AL_SETTING S (ID, KEY _NAME, CRE ATED_BY, C REATED_DTM ) '
  3171         || ' VALUES ('| |max_id_ep l_2||',''R XNORM_UPDA TE_LAST_RU N'',''DEVE LOPER'',SY SDATE)';
  3172            
  3173         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3174         
  3175         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  inser t_EPL_NAT_ SET_RX');
  3176         RETU RN (0);
  3177      EXCEPTI ON
  3178         WHEN  OTHERS
  3179         THEN
  3180            v n_code :=  SQLCODE;
  3181            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  3182            s ys.DBMS_OU TPUT.put_l ine (
  3183                'insert_ EPL_NAT_SE T_RX: Erro r code ' | | vn_code  || ': ' ||  vc_errm);
  3184            s ys.DBMS_OU TPUT.put_l ine (
  3185                'insert_ EPL_NAT_SE T_RX: last  value for  vc_sql_st atement ') ;
  3186            s ys.DBMS_OU TPUT.put_l ine (
  3187                'insert_ EPL_NAT_SE T_RX: ' ||  vc_sql_st atement);
  3188            R ETURN (1);
  3189      END ins ert_EPL_NA T_SET_RX; 
  3190  
  3191      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3192      -- NAME :          INSERT_EPL _NAT_SET_F MCT
  3193      -- TYPE :          Function
  3194      -- DESC RIPTION:   INSERT INT O TABLE EP L_NATIONAL _SETTINGS  - FMCT RET ROFIT
  3195      -- INPU TS:        None
  3196      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  3197      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3198       FUNCTI ON insert_ EPL_NAT_SE T_FMCT
  3199          RET URN NUMBER
  3200       IS
  3201          max _id_epl_na t_fmct_1 N UMBER; 
  3202       BEGIN
  3203         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  3204         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  ins ert_EPL_NA T_SET_FMCT '); 
  3205  
  3206         SELE CT NVL(MAX (ID), 0) +  1 INTO ma x_id_epl_n at_fmct_1  FROM PPSNE PL.EPL_NAT IONAL_SETT INGS;
  3207     
  3208         vc_s ql_stateme nt :=
  3209            ' INSERT INT O PPSNEPL. EPL_NATION AL_SETTING S (ID, KEY _NAME, STR ING_VALUE,  CREATED_B Y, CREATED _DTM) '
  3210         || ' 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)';
  3211            
  3212         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3213  
  3214         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  inser t_EPL_NAT_ SET_FMCT') ;
  3215         RETU RN (0);
  3216      EXCEPTI ON
  3217         WHEN  OTHERS
  3218         THEN
  3219            v n_code :=  SQLCODE;
  3220            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  3221            s ys.DBMS_OU TPUT.put_l ine (
  3222                'insert_ EPL_NAT_SE T_FMCT: Er ror code '  || vn_cod e || ': '  || vc_errm );
  3223            s ys.DBMS_OU TPUT.put_l ine (
  3224                'insert_ EPL_NAT_SE T_FMCT: la st value f or vc_sql_ statement  ');
  3225            s ys.DBMS_OU TPUT.put_l ine (
  3226                'insert_ EPL_NAT_SE T_FMCT: '  || vc_sql_ statement) ;
  3227            R ETURN (1);
  3228      END ins ert_EPL_NA T_SET_FMCT
  3229      
  3230      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3231      -- NAME :          update_EPL _STATUS
  3232      -- TYPE :          Function
  3233      -- DESC RIPTION:   UPDATE TAB LE EPL_STA TUS - RENA MED STATUS ES - updat ed later b y Armando,  re-includ ed...
  3234      -- INPU TS:        None
  3235      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  3236      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3237       FUNCTI ON update_ EPL_STATUS
  3238          RET URN NUMBER
  3239       IS
  3240  
  3241               epl_times tamp   TIM ESTAMP;
  3242                     
  3243       BEGIN
  3244         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  3245         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  upd ate_EPL_ST ATUS'); 
  3246  
  3247         SELE CT CURRENT _TIMESTAMP  INTO epl_ timestamp  FROM DUAL;
  3248         
  3249         vc_s ql_stateme nt :=
  3250            ' 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'', '
  3251         || ' 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'' '
  3252              || 'WHERE  STATUS_ID  = 3';
  3253            
  3254         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3255  
  3256         vc_s ql_stateme nt :=
  3257            ' UPDATE PPS NEPL.EPL_S TATUS SET  STATUS_NAM E  = ''PPS -N/NDF Upd ate Test F ile Instal l Successf ul'', '
  3258         || ' 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'' '
  3259              || 'WHERE  STATUS_ID  = 5';
  3260            
  3261         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3262  
  3263         vc_s ql_stateme nt :=
  3264            ' UPDATE PPS NEPL.EPL_S TATUS SET  STATUS_NAM E  = ''PPS -N/NDF Upd ate Test F ile Approv ed By PBM' ', '
  3265         || ' 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 '' '
  3266              || 'WHERE  STATUS_ID  = 6';
  3267            
  3268         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3269  
  3270         vc_s ql_stateme nt :=
  3271            ' UPDATE PPS NEPL.EPL_S TATUS SET  STATUS_NAM E  = ''PPS -N/NDF UPD ATE Test F ile Reject ed By PBM' ', '
  3272         || ' 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 '' '
  3273              || 'WHERE  STATUS_ID  = 7';
  3274            
  3275         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3276  
  3277         vc_s ql_stateme nt :=
  3278            ' UPDATE PPS NEPL.EPL_S TATUS SET  '
  3279         || ' STATUS_DES C = ''Tran smission o f the appr oved file  to the pro duction SF TP locatio n has been  completed '' '
  3280              || 'WHERE  STATUS_ID  = 8';
  3281            
  3282         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3283  
  3284         vc_s ql_stateme nt :=
  3285            ' UPDATE PPS NEPL.EPL_S TATUS SET  '
  3286         || ' STATUS_DES C = ''NDF  Update Pro cess Error  in PPS-N' ' '
  3287              || 'WHERE  STATUS_ID  = 99';
  3288            
  3289         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3290             
  3291         vc_s ql_stateme nt :=
  3292            ' INSERT INT O PPSNEPL. EPL_STATUS  '
  3293         || ' 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) ';
  3294           
  3295         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3296  
  3297         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  updat e_EPL_STAT US');
  3298         RETU RN (0);
  3299      EXCEPTI ON
  3300         WHEN  OTHERS
  3301         THEN
  3302            v n_code :=  SQLCODE;
  3303            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  3304            s ys.DBMS_OU TPUT.put_l ine (
  3305                'update_ EPL_STATUS : Error co de ' || vn _code || ' : ' || vc_ errm);
  3306            s ys.DBMS_OU TPUT.put_l ine (
  3307                'update_ EPL_STATUS : last val ue for vc_ sql_statem ent ');
  3308            s ys.DBMS_OU TPUT.put_l ine (
  3309                'update_ EPL_STATUS : ' || vc_ sql_statem ent);
  3310            R ETURN (1);
  3311      END upd ate_EPL_ST ATUS; 
  3312         
  3313      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3314      -- NAME :          drop_creat e_EPL_CLAS S_TYPES
  3315      -- TYPE :          Function
  3316      -- DESC RIPTION:   DROP and C REATE revi sed EPL_CL ASS_TYPES  tables for  code/desc  split for  VistA
  3317      --                 Table is e xpected to  exist and  needs dro p/replace
  3318      -- INPU TS:        None
  3319      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  3320      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3321      FUNCTIO N drop_cre ate_EPL_CL ASS_TYPES
  3322         RETU RN NUMBER
  3323      IS
  3324  
  3325      BEGIN
  3326         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  3327         sys. DBMS_OUTPU T.put_line  (
  3328            ' INFORMATIO N -   STAR T:  drop_c reate_EPL_ CLASS_TYPE S'); 
  3329  
  3330         vc_s ql_stateme nt := 'ALT ER TABLE P PSNEPL.EPL _CLASS_TYP ES DROP PR IMARY KEY  CASCADE ';
  3331            
  3332         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3333  
  3334         vc_s ql_stateme nt := 'DRO P TABLE PP SNEPL.EPL_ CLASS_TYPE S CASCADE  CONSTRAINT S ';
  3335            
  3336         EXEC UTE IMMEDI ATE vc_sql _statement ;  
  3337         
  3338         vc_s ql_stateme nt :=
  3339                'CREATE  TABLE PPSN EPL.EPL_CL ASS_TYPES(  '
  3340            | | 'ID                   NUMBER(3 0)                  N OT NULL, '
  3341            | | 'CLASS_T YPE_CODE     VARCHAR2 (1)                 N OT NULL, '
  3342            | | 'CLASS_T YPE_DESC     VARCHAR2 (50 BYTE)           N OT NULL, '
  3343            | | 'CREATED _BY          VARCHAR2 (50 BYTE)           N OT NULL, '
  3344            | | 'CREATED _DTM         TIMESTAM P(6)                N OT NULL, '
  3345            | | 'LAST_MO DIFIED_BY    VARCHAR2 (50 BYTE),  '
  3346            | | 'LAST_MO DIFIED_DTM   TIMESTAM P(6) )'
  3347            | | 'TABLESP ACE PPSNEP L_DATA ';
  3348            
  3349         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3350  
  3351         vc_s ql_stateme nt :=
  3352                'ALTER T ABLE PPSNE PL.EPL_CLA SS_TYPES '
  3353            | | 'ADD (CO NSTRAINT E PL_CLASS_T YPES_PK '
  3354            | | 'PRIMARY  KEY (ID)  '
  3355            | | 'USING I NDEX '
  3356            | | 'ENABLE  VALIDATE)' ;
  3357         
  3358         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3359         
  3360         vc_s ql_stateme nt :=
  3361                'GRANT I NSERT, UPD ATE, DELET E '
  3362            | | 'ON PPSN EPL.EPL_CL ASS_TYPES  '
  3363            | | 'TO PPSN EPL_UPDATE _ROLE';
  3364  
  3365         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3366           
  3367         vc_s ql_stateme nt :=  
  3368                'GRANT S ELECT '
  3369            | | 'ON PPSN EPL.EPL_CL ASS_TYPES  '
  3370            | | 'TO PPSN EPL_READ_O NLY_ROLE';
  3371            
  3372         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3373  
  3374         vc_s ql_stateme nt :=
  3375                'CREATE  OR REPLACE  PUBLIC SY NONYM '
  3376            | | 'EPL_CLA SS_TYPES '
  3377            | | 'FOR PPS NEPL.EPL_C LASS_TYPES ';
  3378  
  3379         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3380  
  3381         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  drop_ create_EPL _CLASS_TYP ES');
  3382         RETU RN (0);
  3383      EXCEPTI ON
  3384         WHEN  OTHERS
  3385         THEN
  3386            v n_code :=  SQLCODE;
  3387            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  3388            s ys.DBMS_OU TPUT.put_l ine (
  3389                'drop_cr eate_EPL_C LASS_TYPES : Error co de ' || vn _code || ' : ' || vc_ errm);
  3390            s ys.DBMS_OU TPUT.put_l ine (
  3391                'drop_cr eate_EPL_C LASS_TYPES : last val ue for vc_ sql_statem ent ');
  3392            s ys.DBMS_OU TPUT.put_l ine (
  3393                'drop_cr eate_EPL_C LASS_TYPES : ' || vc_ sql_statem ent);
  3394            R ETURN (1);
  3395      END dro p_create_E PL_CLASS_T YPES;   
  3396  
  3397  
  3398      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3399      -- NAME :          INSERT_EPL _CLASS_TYP ES
  3400      -- TYPE :          Function
  3401      -- DESC RIPTION:   INSERT INT O TABLE EP L_CLASS_TY PES - REDE FINED TABL E FOR Vist A code/des c split DM L
  3402      -- INPU TS:        None
  3403      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  3404      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3405       FUNCTI ON insert_ EPL_CLASS_ TYPES
  3406          RET URN NUMBER
  3407       IS
  3408  
  3409       BEGIN
  3410         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  3411         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  ins ert_EPL_CL ASS_TYPES' ); 
  3412  
  3413         vc_s ql_stateme nt :=
  3414            ' INSERT INT O EPL_CLAS S_TYPES '
  3415         || ' (id, class _type_code , class_ty pe_desc, c reated_by,  created_d tm, LAST_M ODIFIED_BY , LAST_MOD IFIED_DTM)  '
  3416              || 'VALUES  (1,''0'', ''0-Major' ',''DEVELO PER'',SYSD ATE,NULL,N ULL)';
  3417            
  3418         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3419  
  3420         vc_s ql_stateme nt :=
  3421            ' INSERT INT O EPL_CLAS S_TYPES '
  3422         || ' (id, class _type_code , class_ty pe_desc, c reated_by,  created_d tm, LAST_M ODIFIED_BY , LAST_MOD IFIED_DTM)  '
  3423              || 'VALUES  (2,''1'', ''1-Minor' ',''DEVELO PER'',SYSD ATE,NULL,N ULL)';
  3424            
  3425         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3426  
  3427         vc_s ql_stateme nt :=
  3428            ' INSERT INT O EPL_CLAS S_TYPES '
  3429         || ' (id, class _type_code , class_ty pe_desc, c reated_by,  created_d tm, LAST_M ODIFIED_BY , LAST_MOD IFIED_DTM)  '
  3430              || 'VALUES  (3,''2'', ''2-Sub-Cl ass'',''DE VELOPER'', SYSDATE,NU LL,NULL)';
  3431            
  3432         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3433         
  3434         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  inser t_EPL_CLAS S_TYPES');
  3435         RETU RN (0);
  3436      EXCEPTI ON
  3437         WHEN  OTHERS
  3438         THEN
  3439            v n_code :=  SQLCODE;
  3440            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  3441            s ys.DBMS_OU TPUT.put_l ine (
  3442                'insert_ EPL_CLASS_ TYPES: Err or code '  || vn_code  || ': ' | | vc_errm) ;
  3443            s ys.DBMS_OU TPUT.put_l ine (
  3444                'insert_ EPL_CLASS_ TYPES: las t value fo r vc_sql_s tatement ' );
  3445            s ys.DBMS_OU TPUT.put_l ine (
  3446                'insert_ EPL_CLASS_ TYPES: ' | | vc_sql_s tatement);
  3447            R ETURN (1);
  3448      END ins ert_EPL_CL ASS_TYPES;  
  3449  
  3450      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3451      -- NAME :          delete_upd ate_EPL_NA T_SET_SFTP
  3452      -- TYPE :          Function
  3453      -- DESC RIPTION:   delete and  UPDATE NA TIONAL SET TINGS for  Secure FTP  
  3454      -- INPU TS:        None
  3455      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  3456      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3457       FUNCTI ON delete_ update_EPL _NAT_SET_S FTP
  3458          RET URN NUMBER
  3459       IS
  3460  
  3461       BEGIN
  3462         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  3463         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  del ete_update _EPL_NAT_S ET_SFTP');  
  3464  
  3465         vc_s ql_stateme nt :=
  3466            ' DELETE FRO M EPL_NATI ONAL_SETTI NGS '
  3467              || 'WHERE  KEY_NAME =  ''NDF_OUT PUT_PROD_P ROTOCOL''  ';
  3468            
  3469         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3470  
  3471         vc_s ql_stateme nt :=
  3472            ' DELETE FRO M EPL_NATI ONAL_SETTI NGS '
  3473         || ' WHERE KEY_ NAME = ''N DF_OUTPUT_ TST_PROTOC OL'' ';
  3474            
  3475         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3476  
  3477         vc_s ql_stateme nt :=
  3478              'UPDATE EP L_NATIONAL _SETTINGS  SET STRING _VALUE = ' ' DNS . DNS     '' '
  3479              || 'WHERE  KEY_NAME =  ''NDF_OUT PUT_PROD_H OSTNAME''  ';
  3480            
  3481         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3482  
  3483         vc_s ql_stateme nt :=
  3484              'UPDATE EP L_NATIONAL _SETTINGS  SET STRING _VALUE = ' ' DNS . DNS     '' '
  3485              || 'WHERE  KEY_NAME =  ''NDF_OUT PUT_TST_HO STNAME'' ' ;
  3486            
  3487         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3488  
  3489         vc_s ql_stateme nt :=
  3490            ' UPDATE EPL _NATIONAL_ SETTINGS S ET STRING_ VALUE = '' 22'' '
  3491              || 'WHERE  KEY_NAME =  ''NDF_OUT PUT_PROD_P ORT'' ';
  3492            
  3493         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3494  
  3495         vc_s ql_stateme nt :=
  3496            ' UPDATE EPL _NATIONAL_ SETTINGS S ET STRING_ VALUE = '' 22'' '
  3497              || 'WHERE  KEY_NAME =  ''NDF_OUT PUT_TST_PO RT'' ';
  3498            
  3499         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3500  
  3501         vc_s ql_stateme nt :=
  3502            ' UPDATE EPL _NATIONAL_ SETTINGS S ET STRING_ VALUE = '' presftp''  '
  3503              || 'WHERE  KEY_NAME =  ''NDF_OUT PUT_PROD_U SERNAME''  ';
  3504            
  3505         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3506  
  3507         vc_s ql_stateme nt :=
  3508            ' UPDATE EPL _NATIONAL_ SETTINGS S ET STRING_ VALUE = '' presftp''  '
  3509              || 'WHERE  KEY_NAME =  ''NDF_OUT PUT_TST_US ERNAME'' ' ;
  3510            
  3511         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3512  
  3513         vc_s ql_stateme nt :=
  3514            ' UPDATE EPL _NATIONAL_ SETTINGS S ET STRING_ VALUE = '' Im@g!N3''  '
  3515              || 'WHERE  KEY_NAME =  ''NDF_OUT PUT_PROD_P ASSWORD''  ';
  3516            
  3517         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3518  
  3519         vc_s ql_stateme nt :=
  3520            ' UPDATE EPL _NATIONAL_ SETTINGS S ET STRING_ VALUE = '' Im@g!N3''  '
  3521              || 'WHERE  KEY_NAME =  ''NDF_OUT PUT_TST_PA SSWORD'' ' ;
  3522            
  3523         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3524         
  3525   /* Removed  - D. Tomb s 3/22/201 7
  3526   -- NEW 9/2 3/2016 NOT  PREVIOUSL Y ENABLED  --   
  3527  
  3528         vc_s ql_stateme nt :=
  3529            ' UPDATE EPL _NATIONAL_ SETTINGS S ET BOOLEAN _VALUE = 1  '
  3530              || 'WHERE  KEY_NAME =  ''NDF_OUT PUT_FTP_ON '' ';
  3531   */
  3532  
  3533         EXEC UTE IMMEDI ATE vc_sql _statement ;      
  3534                
  3535         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  delet e_update_E PL_NAT_SET _SFTP');
  3536         RETU RN (0);
  3537      EXCEPTI ON
  3538         WHEN  OTHERS
  3539         THEN
  3540            v n_code :=  SQLCODE;
  3541            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  3542            s ys.DBMS_OU TPUT.put_l ine (
  3543                'delete_ update_EPL _NAT_SET_S FTP: Error  code ' ||  vn_code | | ': ' ||  vc_errm);
  3544            s ys.DBMS_OU TPUT.put_l ine (
  3545                'delete_ update_EPL _NAT_SET_S FTP: last  value for  vc_sql_sta tement ');
  3546            s ys.DBMS_OU TPUT.put_l ine (
  3547                'delete_ update_EPL _NAT_SET_S FTP: ' ||  vc_sql_sta tement);
  3548            R ETURN (1);
  3549      END del ete_update _EPL_NAT_S ET_SFTP; 
  3550  
  3551      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3552      -- NAME :          update_EPL _NAT_SET_R PT_MSG
  3553      -- TYPE :          Function
  3554      -- DESC RIPTION:   delete and  UPDATE NA TIONAL SET TINGS for  Secure FTP  
  3555      -- INPU TS:        None
  3556      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  3557      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3558       FUNCTI ON update_ EPL_NAT_SE T_RPT_MSG
  3559          RET URN NUMBER
  3560       IS
  3561  
  3562          max _id_nat_se t   NUMBER ;
  3563          
  3564       BEGIN
  3565         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  3566         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  upd ate_EPL_NA T_SET_RPT_ MSG'); 
  3567  
  3568         SELE CT NVL(MAX (ID), 0) +  1 INTO ma x_id_nat_s et FROM PP SNEPL.EPL_ NATIONAL_S ETTINGS;
  3569        
  3570         vc_s ql_stateme nt :=
  3571            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3572              || '''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.' ' ' 
  3573              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3574              || 'WHERE  KEY_NAME =  ''MESSAGE 2_DDI_TEXT '' ';
  3575            
  3576         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3577  
  3578         vc_s ql_stateme nt :=
  3579            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3580              || '''The  following  VA Product (s) have b een flagge d for excl usion from |drug-drug  interacti on checks. '' '
  3581              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3582              || 'WHERE  KEY_NAME =  ''MESSAGE 2_EXCLUEDE DDDI_TEXT' ' ';
  3583            
  3584         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3585         
  3586         vc_s ql_stateme nt :=
  3587            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3588               || '''The  FDA Med G uide for t he followi ng VA Prod uct(s) has  been chan ged.|'' '
  3589               || ',LAST _MODIFIED_ BY=''DEVEL OPER'',LAS T_MODIFIED _DTM=SYSDA TE ' 
  3590               || 'WHERE  KEY_NAME  = ''MESSAG E2_MEDGUID E_TEXT'' ' ;
  3591            
  3592         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3593         
  3594         vc_s ql_stateme nt :=
  3595            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3596              || '''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.''  '
  3597              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3598              || 'WHERE  KEY_NAME =  ''MESSAGE 2_PREVEXCL UEDEDDDI_T EXT'' ';
  3599            
  3600         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3601         
  3602         vc_s ql_stateme nt :=
  3603            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3604              || '''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.''  '
  3605              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3606              || 'WHERE  KEY_NAME =  ''MESSAGE _ADDEDPROD UCT_TEXT''  ';
  3607            
  3608         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3609         
  3610         vc_s ql_stateme nt :=
  3611            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3612              || '''The  following  VA Product  Identifie r(s) (CMOP  ID) have  been added  or|edited .'' '
  3613              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3614              || 'WHERE  KEY_NAME =  ''MESSAGE _CMOPCHANG E_TEXT'' ' ;
  3615            
  3616         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3617         
  3618         vc_s ql_stateme nt :=
  3619            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3620              || '''The  following  VA Dispens e Unit(s)  have been  added or e dited.|''  '
  3621              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3622              || 'WHERE  KEY_NAME =  ''MESSAGE _DISPENSEU NITCHANGE_ TEXT'' ';
  3623            
  3624         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3625         
  3626         vc_s ql_stateme nt :=
  3627            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3628              || '''The  following  VA Dosage  Form(s) ha ve been ed ited.|'' '
  3629              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3630              || 'WHERE  KEY_NAME =  ''MESSAGE _DOSAGEFOR MCHANGE_TE XT'' ';
  3631            
  3632         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3633         
  3634         vc_s ql_stateme nt :=
  3635            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3636              || '''Unit (s) have b een added  or edited  for the fo llowing VA  Product(s ).|'' '
  3637              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3638              || 'WHERE  KEY_NAME =  ''MESSAGE _DRUGUNITC HANGE_TEXT '' ';
  3639            
  3640         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3641  
  3642         vc_s ql_stateme nt :=
  3643            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3644              || '''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.' ' '
  3645              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3646              || 'WHERE  KEY_NAME =  ''MESSAGE _FUTUREINA CTIVE_TEXT '' ';
  3647            
  3648         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3649         
  3650         vc_s ql_stateme nt :=
  3651            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3652              || '''The  following  VA Generic  Name(s) h ave been a dded or ed ited.|'' '
  3653              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3654              || 'WHERE  KEY_NAME =  ''MESSAGE _GENERICNA MECHANGE_T EXT'' ';
  3655            
  3656         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3657         
  3658         vc_s ql_stateme nt :=
  3659            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3660              || '''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.''  '
  3661              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3662              || 'WHERE  KEY_NAME =  ''MESSAGE _INACTIVAT EDCMOP_TEX T'' ';
  3663            
  3664         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3665         
  3666         vc_s ql_stateme nt :=
  3667            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3668              || '''The  following  VA Product (s) have b een inacti vated.|No  alternativ e VA Produ ct(s) have  been foun d.'' '
  3669              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3670              || 'WHERE  KEY_NAME =  ''MESSAGE _INACTIVAT EDPRODUCT_ TEXT'' ';
  3671            
  3672         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3673  
  3674         vc_s ql_stateme nt :=
  3675            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3676              || '''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 .'' '
  3677              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3678              || 'WHERE  KEY_NAME =  ''MESSAGE _INACTIVAT EDREMATCHE D_TEXT'' ' ;
  3679            
  3680         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3681         
  3682         vc_s ql_stateme nt :=
  3683            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3684            | | '''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 .'' '
  3685            | | ',LAST_M ODIFIED_BY =''DEVELOP ER'',LAST_ MODIFIED_D TM=SYSDATE  ' 
  3686            | | 'WHERE K EY_NAME =  ''MESSAGE_ INACTIVATE DWSUGG_TEX T'' ';
  3687            
  3688         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3689         
  3690         vc_s ql_stateme nt :=
  3691            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3692            | | '''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.'' '
  3693            | | ',LAST_M ODIFIED_BY =''DEVELOP ER'',LAST_ MODIFIED_D TM=SYSDATE  ' 
  3694            | | 'WHERE K EY_NAME =  ''MESSAGE_ NATIONALFO RMULARY_TE XT'' ';
  3695            
  3696         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3697  
  3698         vc_s ql_stateme nt :=
  3699            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3700              || '''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.''  '
  3701              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3702              || 'WHERE  KEY_NAME =  ''MESSAGE _OTHERNORE MATCH_TEXT '' ';
  3703            
  3704         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3705         
  3706         vc_s ql_stateme nt :=
  3707            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3708              || '''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.'' '
  3709              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3710              || 'WHERE  KEY_NAME =  ''MESSAGE _OTHERREMA TCHED_TEXT '' ';
  3711            
  3712         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3713  
  3714         vc_s ql_stateme nt :=
  3715            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3716              || '''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.''  '
  3717              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3718              || 'WHERE  KEY_NAME =  ''MESSAGE _OTHERREMA TCHSUGG_TE XT'' ';
  3719            
  3720         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3721                
  3722         vc_s ql_stateme nt :=
  3723            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3724              || '''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.'' '
  3725              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3726              || 'WHERE  KEY_NAME =  ''MESSAGE _OVERRIDED OSECHECK_T EXT'' ';
  3727            
  3728         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3729         
  3730         vc_s ql_stateme nt :=
  3731            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3732              || '''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 .'' '
  3733              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3734              || 'WHERE  KEY_NAME =  ''MESSAGE _POSSIBLED OSAGE_TEXT '' ';
  3735            
  3736         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3737  
  3738         vc_s ql_stateme nt :=
  3739            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3740              || '''The  following  VA Print N ame(s) hav e been add ed or edit ed.|'' '
  3741              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3742              || 'WHERE  KEY_NAME =  ''MESSAGE _PRINTNAME CHANGE_TEX T'' ';
  3743            
  3744         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3745  
  3746         vc_s ql_stateme nt :=
  3747            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3748              || '''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 .'' '
  3749              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3750              || 'WHERE  KEY_NAME =  ''MESSAGE _PROPOSEDI NACTIVATED WSUGG_TEXT '' ';
  3751            
  3752         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3753  
  3754         vc_s ql_stateme nt :=
  3755            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3756              || '''The  following  VA Product (s) have b een reacti vated.|''  '
  3757              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3758              || 'WHERE  KEY_NAME =  ''MESSAGE _REACTIVAT EDPRODUCT_ TEXT'' ';
  3759            
  3760         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3761         
  3762         vc_s ql_stateme nt :=
  3763            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3764              || '''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.'' '
  3765              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3766              || 'WHERE  KEY_NAME =  ''MESSAGE _SCHEDULEC HANGEALL_T EXT'' ';
  3767            
  3768         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3769  
  3770         vc_s ql_stateme nt :=
  3771            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3772              || '''Stre ngth(s) ha ve been ad ded or edi ted for th e followin g VA Produ ct(s).|''  '
  3773              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3774              || 'WHERE  KEY_NAME =  ''MESSAGE _STRENGTH_ TEXT'' ';
  3775            
  3776         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3777         
  3778         vc_s ql_stateme nt :=
  3779            ' UPDATE PPS NEPL.EPL_N ATIONAL_SE TTINGS SET  STRING_VA LUE = '
  3780              || '''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).''  '
  3781              || ',LAST_ MODIFIED_B Y=''DEVELO PER'',LAST _MODIFIED_ DTM=SYSDAT E ' 
  3782              || 'WHERE  KEY_NAME =  ''MESSAGE _VACLASSCH ANGE_TEXT' ' ';
  3783            
  3784         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3785         
  3786         vc_s ql_stateme nt :=
  3787            ' INSERT INT O PPSNEPL. EPL_NATION AL_SETTING S (ID,KEY_ NAME,STRIN G_VALUE,CR EATED_BY,C REATED_DTM ) '
  3788         || ' 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)';
  3789                     
  3790         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3791                      
  3792         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  updat e_EPL_NAT_ SET_RPT_MS G');
  3793         RETU RN (0);
  3794      EXCEPTI ON
  3795         WHEN  OTHERS
  3796         THEN
  3797            v n_code :=  SQLCODE;
  3798            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  3799            s ys.DBMS_OU TPUT.put_l ine (
  3800                'update_ EPL_NAT_SE T_RPT_MSG:  Error cod e ' || vn_ code || ':  ' || vc_e rrm);
  3801            s ys.DBMS_OU TPUT.put_l ine (
  3802                'update_ EPL_NAT_SE T_RPT_MSG:  last valu e for vc_s ql_stateme nt ');
  3803            s ys.DBMS_OU TPUT.put_l ine (
  3804                'update_ EPL_NAT_SE T_RPT_MSG:  ' || vc_s ql_stateme nt);
  3805            R ETURN (1);
  3806      END upd ate_EPL_NA T_SET_RPT_ MSG; 
  3807  
  3808      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3809      -- NAME :          insert_EPL _VISTA_STA TUS
  3810      -- TYPE :          Function
  3811      -- DESC RIPTION:   UPDATE TAB LE EPL_VIS TA_STATUS  - by Arman do...
  3812      -- INPU TS:        None
  3813      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  3814      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3815       FUNCTI ON insert_ EPL_VISTA_ STATUS
  3816          RET URN NUMBER
  3817       IS
  3818               
  3819               eplv_time stamp   TI MESTAMP;
  3820               
  3821       BEGIN
  3822           
  3823         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  3824         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  ins ert_EPL_VI STA_STATUS '); 
  3825  
  3826         SELE CT CURRENT _TIMESTAMP  INTO eplv _timestamp  FROM DUAL ;
  3827         
  3828         vc_s ql_stateme nt :=
  3829                'INSERT  INTO PPSNE PL.EPL_VIS TA_STATUS  '
  3830            | | 'VALUES  (98,''ERRO R'',''Vist a Error'', ''system'' ,'''||eplv _timestamp ||''',''sy stem'',''' ||eplv_tim estamp||'' ')';
  3831            
  3832         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3833  
  3834         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  inser t_EPL_VIST A_STATUS') ;
  3835         RETU RN (0);
  3836      EXCEPTI ON
  3837         WHEN  OTHERS
  3838         THEN
  3839            v n_code :=  SQLCODE;
  3840            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  3841            s ys.DBMS_OU TPUT.put_l ine (
  3842                'insert_ EPL_VISTA_ STATUS: Er ror code '  || vn_cod e || ': '  || vc_errm );
  3843            s ys.DBMS_OU TPUT.put_l ine (
  3844                'insert_ EPL_VISTA_ STATUS: la st value f or vc_sql_ statement  ');
  3845            s ys.DBMS_OU TPUT.put_l ine (
  3846                'insert_ EPL_VISTA_ STATUS: '  || vc_sql_ statement) ;
  3847            R ETURN (1);
  3848      END ins ert_EPL_VI STA_STATUS
  3849  
  3850      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3851      -- NAME :          create_PER FORMANCE_I NDEXES
  3852      -- TYPE :          Function
  3853      -- DESC RIPTION:   CREATE IND EXES FOR P ERFORMANCE  IMPROVEME NTS - 12/2 0
  3854      -- INPU TS:        None
  3855      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  3856      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3857  
  3858       FUNCTI ON create_ PERFORMANC E_INDEXES
  3859            R ETURN NUMB ER
  3860       IS
  3861                       
  3862       BEGIN
  3863           
  3864         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  3865         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  cre ate_PERFOR MANCE_INDE XES'); 
  3866  
  3867         vc_s ql_stateme nt :=
  3868                'CREATE  INDEX PPSN EPL.PRODUC TS_NDF_PRO DUCT_IEN_I X '
  3869            | | 'ON PPSN EPL.EPL_PR ODUCTS '
  3870            | | '(NDF_PR ODUCT_IEN) ' ;
  3871         
  3872         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3873  
  3874         vc_s ql_stateme nt :=
  3875                'CREATE  INDEX PPSN EPL.DIFFS_ VISTA_IEN_ IX '
  3876            | | 'ON PPSN EPL.EPL_ND F_OUTGOING _DIFFERENC ES '
  3877            | | '(VISTA_ IEN) '
  3878            | | 'COMPRES S' ;
  3879         
  3880         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3881         
  3882         vc_s ql_stateme nt :=
  3883                'CREATE  INDEX PPSN EPL.DIFFS_ VISTA_FIEL D_NUMBER_I X '
  3884            | | 'ON PPSN EPL.EPL_ND F_OUTGOING _DIFFERENC ES '
  3885            | | '(VISTA_ FIELD_NUMB ER) '
  3886            | | 'COMPRES S' ;
  3887  
  3888         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3889  
  3890         vc_s ql_stateme nt :=
  3891                'CREATE  INDEX PPSN EPL.ITEM_A UD_HIST_CO L_NM_IX '
  3892            | | 'ON PPSN EPL.EPL_IT EM_AUDIT_H ISTORY_DET AILS '
  3893            | | '(COL_NM ) '
  3894            | | 'COMPRES S' ;
  3895         
  3896         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3897           
  3898         vc_s ql_stateme nt :=
  3899                'CREATE  BITMAP IND EX PPSNEPL .DRUG_CLS_ ASOC_EPL_I D_PROD_BIX  '
  3900            | | 'ON PPSN EPL.EPL_PR OD_DRUG_CL ASS_ASSOCS  '
  3901            | | '(EPL_ID _PRODUCT_F K) ' ;
  3902            
  3903         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3904         
  3905         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_PERFORMA NCE_INDEXE S');
  3906         RETU RN (0);
  3907      EXCEPTI ON
  3908         WHEN  OTHERS
  3909         THEN
  3910            v n_code :=  SQLCODE;
  3911            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  3912            s ys.DBMS_OU TPUT.put_l ine (
  3913                'create_ PERFORMANC E_INDEXES:  Error cod e ' || vn_ code || ':  ' || vc_e rrm);
  3914            s ys.DBMS_OU TPUT.put_l ine (
  3915                'create_ PERFORMANC E_INDEXES:  last valu e for vc_s ql_stateme nt ');
  3916            s ys.DBMS_OU TPUT.put_l ine (
  3917                'create_ PERFORMANC E_INDEXES:  ' || vc_s ql_stateme nt);
  3918            R ETURN (1);
  3919      END cre ate_PERFOR MANCE_INDE XES;           
  3920      
  3921   /* No long er needed  when refre shing from  Prod due  to Prod re lease remo ving these  objects a lready 
  3922      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3923      -- NAME :          drop_FMCT_ PROC_AND_A RTIFACTS
  3924      -- TYPE :          Function
  3925      -- DESC RIPTION:   DROP FMCT  broken pro c REPORT_C OPAY_TIER_ CHANGES an d artifact s
  3926      -- INPU TS:        None
  3927      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  3928      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3929  
  3930       FUNCTI ON drop_FM CT_PROC_AN D_ARTIFACT S
  3931            R ETURN NUMB ER
  3932       IS
  3933                       
  3934       BEGIN
  3935           
  3936         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  3937         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  dro p_FMCT_PRO C_AND_ARTI FACTS'); 
  3938      
  3939         vc_s ql_stateme nt :=
  3940                'DROP PR OCEDURE PP SNEPL.REPO RT_COPAY_T IER_CHANGE ' ;
  3941         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3942  
  3943         vc_s ql_stateme nt :=
  3944                'DROP PU BLIC SYNON YM REPORT_ COPAY_TIER _CHANGE' ;
  3945         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3946                  
  3947         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  drop_ FMCT_PROC_ AND_ARTIFA CTS');
  3948         RETU RN (0);
  3949      EXCEPTI ON
  3950         WHEN  OTHERS
  3951         THEN
  3952            v n_code :=  SQLCODE;
  3953            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  3954            s ys.DBMS_OU TPUT.put_l ine (
  3955                'drop_FM CT_PROC_AN D_ARTIFACT S: Error c ode ' || v n_code ||  ': ' || vc _errm);
  3956            s ys.DBMS_OU TPUT.put_l ine (
  3957                'drop_FM CT_PROC_AN D_ARTIFACT S: last va lue for vc _sql_state ment ');
  3958            s ys.DBMS_OU TPUT.put_l ine (
  3959                'drop_FM CT_PROC_AN D_ARTIFACT S: ' || vc _sql_state ment);
  3960            R ETURN (1);
  3961      END dro p_FMCT_PRO C_AND_ARTI FACTS;           
  3962   */
  3963         
  3964      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3965      -- NAME :          create_EPL _FORMULARY _ARTIFACTS
  3966      -- TYPE :          Function
  3967      -- DESC RIPTION:   CREATE new  EPL_FORMU LARY_DESIG NATOR arch itecture
  3968      -- INPU TS:        None
  3969      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  3970      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  3971  
  3972      FUNCTIO N create_E PL_FORMULA RY_ARTIFAC TS
  3973         RETU RN NUMBER
  3974      IS
  3975  
  3976      BEGIN
  3977         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  3978         sys. DBMS_OUTPU T.put_line  (
  3979            ' INFORMATIO N -   STAR T:  create _EPL_FORMU LARY_ARTIF ACTS'); 
  3980         
  3981         vc_s ql_stateme nt :=
  3982                'CREATE  TABLE PPSN EPL.EPL_FO RMULARY_DE SIGNATOR(  '
  3983            | | 'EPL_ID               NUMBER(3 0)                  N OT NULL, '
  3984            | | 'NAME                 VARCHAR2 (30 BYTE)           N OT NULL, '
  3985            | | 'DESCRIP TION         VARCHAR2 (255 BYTE)          N OT NULL, '
  3986            | | 'ITEM_ST ATUS         VARCHAR2 (50 BYTE)           N OT NULL, '
  3987            | | 'INACTIV ATION_DATE   TIMESTAM P(6), '
  3988            | | 'REVISIO N_NUMBER     NUMBER(3 0)                  N OT NULL, '
  3989            | | 'CREATED _BY          VARCHAR2 (50 BYTE)           N OT NULL, '
  3990            | | 'CREATED _DTM         TIMESTAM P(6)                N OT NULL, '
  3991            | | 'LAST_MO DIFIED_BY    VARCHAR2 (50 BYTE),  '
  3992            | | 'LAST_MO DIFIED_DTM   TIMESTAM P(6) )'  
  3993                 || 'TAB LESPACE PP SNEPL_DATA  ';
  3994            
  3995         EXEC UTE IMMEDI ATE vc_sql _statement ;
  3996  
  3997         vc_s ql_stateme nt :=
  3998            ' ALTER TABL E PPSNEPL. EPL_FORMUL ARY_DESIGN ATOR '
  3999         || ' ADD (CONST RAINT EPL_ FORMULARY_ DESIGNATOR _PK '
  4000         || ' PRIMARY KE Y (EPL_ID)  '
  4001         || ' USING INDE X '
  4002         || ' ENABLE VAL IDATE)';
  4003         
  4004         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4005  
  4006         vc_s ql_stateme nt :=
  4007                'ALTER T ABLE PPSNE PL.EPL_PRO DUCTS '
  4008            | | 'ADD (PR ODUCT_TEXT   VARCHAR2 (255 BYTE) )';
  4009  
  4010         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4011    
  4012          vc_ sql_statem ent :=
  4013                'ALTER T ABLE PPSNE PL.EPL_PRO DUCTS '
  4014            | | 'ADD (FO RMULARY_DE SIGNATOR_F K  NUMBER( 30))';
  4015  
  4016         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4017  
  4018         vc_s ql_stateme nt :=       
  4019                'ALTER T ABLE PPSNE PL.EPL_PRO DUCTS '
  4020            | | 'ADD CON STRAINT PR ODUCT_FORM ULARY_FK '
  4021            | | 'FOREIGN  KEY (FORM ULARY_DESI GNATOR_FK)  '
  4022            | | 'REFEREN CES PPSNEP L.EPL_FORM ULARY_DESI GNATOR (EP L_ID) '
  4023            | | 'ENABLE  VALIDATE';   
  4024  
  4025         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4026         
  4027         vc_s ql_stateme nt :=    
  4028                'ALTER T ABLE PPSNE PL.EPL_ORD ERABLE_ITE MS '
  4029            | | 'ADD (OI _TEXT  VAR CHAR2(255  BYTE))' ; 
  4030  
  4031         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4032         
  4033         vc_s ql_stateme nt :=   
  4034                'ALTER T ABLE PPSNE PL.EPL_ORD ERABLE_ITE MS '
  4035            | | 'ADD (FO RMULARY_DE SIGNATOR_F K  NUMBER( 30))'; 
  4036            
  4037         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4038         
  4039         vc_s ql_stateme nt :=   
  4040                'ALTER T ABLE PPSNE PL.EPL_ORD ERABLE_ITE MS '
  4041            | | 'ADD CON STRAINT OR DERABLE_FO RMULARY_FK  '
  4042            | | 'FOREIGN  KEY (FORM ULARY_DESI GNATOR_FK)  '
  4043            | | 'REFEREN CES PPSNEP L.EPL_FORM ULARY_DESI GNATOR (EP L_ID) '
  4044            | | 'ENABLE  VALIDATE';   
  4045  
  4046         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4047         
  4048         vc_s ql_stateme nt :=
  4049                'GRANT I NSERT, UPD ATE, DELET E '
  4050            | | 'ON PPSN EPL.EPL_FO RMULARY_DE SIGNATOR '
  4051            | | 'TO PPSN EPL_UPDATE _ROLE';
  4052  
  4053         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4054          
  4055         vc_s ql_stateme nt :=  
  4056                'GRANT S ELECT '
  4057            | | 'ON PPSN EPL.EPL_FO RMULARY_DE SIGNATOR '
  4058            | | 'TO PPSN EPL_READ_O NLY_ROLE';
  4059  
  4060         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4061         
  4062         vc_s ql_stateme nt :=  
  4063                'GRANT S ELECT '
  4064            | | 'ON PPSN EPL.EPL_FO RMULARY_DE SIGNATOR '
  4065            | | 'TO PPSN _ROLE';
  4066            
  4067         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4068  
  4069         vc_s ql_stateme nt :=
  4070                'CREATE  OR REPLACE  PUBLIC SY NONYM '
  4071            | | 'EPL_FOR MULARY_DES IGNATOR '
  4072            | | 'FOR PPS NEPL.EPL_F ORMULARY_D ESIGNATOR' ;
  4073  
  4074         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4075  
  4076         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_FORM ULARY_ARTI FACTS');
  4077         RETU RN (0);
  4078      EXCEPTI ON
  4079         WHEN  OTHERS
  4080         THEN
  4081            v n_code :=  SQLCODE;
  4082            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  4083            s ys.DBMS_OU TPUT.put_l ine (
  4084                'create_ EPL_FORMUL ARY_ARTIFA CTS: Error  code ' ||  vn_code | | ': ' ||  vc_errm);
  4085            s ys.DBMS_OU TPUT.put_l ine (
  4086                'create_ EPL_FORMUL ARY_ARTIFA CTS: last  value for  vc_sql_sta tement ');
  4087            s ys.DBMS_OU TPUT.put_l ine (
  4088                'create_ EPL_FORMUL ARY_ARTIFA CTS: ' ||  vc_sql_sta tement);
  4089            R ETURN (1);
  4090      END cre ate_EPL_FO RMULARY_AR TIFACTS;    
  4091         
  4092      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  4093      -- NAME :          create_EPL _REMATCH_A RTIFACTS
  4094      -- TYPE :          Function
  4095      -- DESC RIPTION:   CREATE new  EPL_REMAT CH_ARTIFAC TS archite cture
  4096      -- INPU TS:        None
  4097      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  4098      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  4099  
  4100      FUNCTIO N create_E PL_REMATCH _ARTIFACTS
  4101         RETU RN NUMBER
  4102      IS
  4103  
  4104      BEGIN
  4105         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  4106         sys. DBMS_OUTPU T.put_line  (
  4107            ' INFORMATIO N -   STAR T:  create _EPL_REMAT CH_ARTIFAC TS'); 
  4108  
  4109         vc_s ql_stateme nt :=
  4110                'CREATE  UNIQUE IND EX PPSNEPL .EPL_REMAT CH_SUGGEST ION_U01 '
  4111            | | 'ON PPSN EPL.EPL_RE MATCH_SUGG ESTION '
  4112            | | '(OLD_IE N, NDC_UPD ATE_FILE_F K)';
  4113         
  4114         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4115  
  4116         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  creat e_EPL_REMA TCH_ARTIFA CTS');
  4117         RETU RN (0);
  4118      EXCEPTI ON
  4119         WHEN  OTHERS
  4120         THEN
  4121            v n_code :=  SQLCODE;
  4122            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  4123            s ys.DBMS_OU TPUT.put_l ine (
  4124                'create_ EPL_REMATC H_ARTIFACT S: Error c ode ' || v n_code ||  ': ' || vc _errm);
  4125            s ys.DBMS_OU TPUT.put_l ine (
  4126                'create_ EPL_REMATC H_ARTIFACT S: last va lue for vc _sql_state ment ');
  4127            s ys.DBMS_OU TPUT.put_l ine (
  4128                'create_ EPL_REMATC H_ARTIFACT S: ' || vc _sql_state ment);
  4129            R ETURN (1);
  4130      END cre ate_EPL_RE MATCH_ARTI FACTS;       
  4131  
  4132      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  4133      -- NAME :          insert_EPL _NAT_SET_F ORMULARY
  4134      -- TYPE :          Function
  4135      -- DESC RIPTION:   INSERT INT O TABLE EP L_NATIONAL _SETTINGS  - FORMULAR Y DESIGNAT OR TEXT
  4136      -- INPU TS:        None
  4137      -- OUTP UTS:       Number: (0  - good: > 0 - error)
  4138      ------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  4139       FUNCTI ON insert_ EPL_NAT_SE T_FORMULAR Y
  4140          RET URN NUMBER
  4141       IS
  4142          max _id_epl_na t_form_1 N UMBER; 
  4143       BEGIN
  4144         sys. DBMS_OUTPU T.put_line  (CHR (10) );
  4145         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   S TART:  ins ert_EPL_NA T_SET_FORM ULARY'); 
  4146  
  4147         SELE CT NVL(MAX (ID), 0) +  1 INTO ma x_id_epl_n at_form_1  FROM PPSNE PL.EPL_NAT IONAL_SETT INGS;
  4148     
  4149         vc_s ql_stateme nt :=
  4150            ' INSERT INT O PPSNEPL. EPL_NATION AL_SETTING S (ID, KEY _NAME, STR ING_VALUE,  CREATED_B Y, CREATED _DTM) '
  4151         || ' 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)';
  4152            
  4153         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4154  
  4155         sys. DBMS_OUTPU T.put_line  ('INFORMA TION -   E ND:  inser t_EPL_NAT_ SET_FORMUL ARY');
  4156         RETU RN (0);
  4157      EXCEPTI ON
  4158         WHEN  OTHERS
  4159         THEN
  4160            v n_code :=  SQLCODE;
  4161            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  4162            s ys.DBMS_OU TPUT.put_l ine (
  4163                'insert_ EPL_NAT_SE T_FORMULAR Y: Error c ode ' || v n_code ||  ': ' || vc _errm);
  4164            s ys.DBMS_OU TPUT.put_l ine (
  4165                'insert_ EPL_NAT_SE T_FORMULAR Y: last va lue for vc _sql_state ment ');
  4166            s ys.DBMS_OU TPUT.put_l ine (
  4167                'insert_ EPL_NAT_SE T_FORMULAR Y: ' || vc _sql_state ment);
  4168            R ETURN (1);
  4169      END ins ert_EPL_NA T_SET_FORM ULARY;    
  4170      
  4171      
  4172   ---------- ---------- ---------- ---------- ---------- ---------- ---------- -------
  4173   -- MAIN SE CTION ***
  4174   ---------- ---------- ---------- ---------- ---------- ---------- ---------- -------
  4175   BEGIN
  4176      sys.DBM S_OUTPUT.p ut_line (C HR (10));
  4177      sys.DBM S_OUTPUT.p ut_line (
  4178         'INF ORMATION -    Checkin g to see i f PPSN 3 o bjects alr eady exist .');
  4179  
  4180      vn_cont inue := ch eck_for_PP SN_3;
  4181  
  4182      IF vn_c ontinue >  0
  4183      THEN
  4184         sys. DBMS_OUTPU T.put_line  (
  4185            ' ERROR   -      ONE OR  MORE PPSN  SEQUENCES  ALREADY E XIST. STOP PING MIGRA TION.');
  4186         sys. DBMS_OUTPU T.put_line  (
  4187            ' ERROR   -    EXECUTE  PPSN 3 ROL LBACK PROC ESS');
  4188         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4189         RETU RN;
  4190      END IF;
  4191  
  4192   /* Don't d rop role f or latest  scripts FM CT
  4193  
  4194      vn_cont inue := dr op_PPSN_RO LE;
  4195  
  4196      IF vn_c ontinue >  0
  4197      THEN
  4198         sys. DBMS_OUTPU T.put_line  (
  4199            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4200         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4201         RETU RN;
  4202      END IF;
  4203   */
  4204  
  4205      vn_cont inue := cr eate_PPSNE PL_UPDATE_ ROLE;
  4206  
  4207      IF vn_c ontinue >  0
  4208      THEN
  4209         sys. DBMS_OUTPU T.put_line  (
  4210            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4211         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4212         RETU RN;
  4213      END IF;
  4214  
  4215  
  4216      vn_cont inue := cr eate_PPSNE PL_READ_ON LY_ROLE;
  4217  
  4218      IF vn_c ontinue >  0
  4219      THEN
  4220         sys. DBMS_OUTPU T.put_line  (
  4221            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4222         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4223         RETU RN;
  4224      END IF;
  4225      
  4226      
  4227      vn_cont inue := cr eate_PPSNE PL_UPDATE_ USER;
  4228  
  4229      IF vn_c ontinue >  0
  4230      THEN
  4231         sys. DBMS_OUTPU T.put_line  (
  4232            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4233         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4234         RETU RN;
  4235      END IF;
  4236  
  4237  
  4238      vn_cont inue := cr eate_EPL_A TC_CANISTE RS;
  4239  
  4240      IF vn_c ontinue >  0
  4241      THEN
  4242         sys. DBMS_OUTPU T.put_line  (
  4243            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4244         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4245         RETU RN;
  4246      END IF;
  4247  
  4248  
  4249      vn_cont inue := cr eate_EPL_H OSPITAL_LO CATIONS;
  4250  
  4251      IF vn_c ontinue >  0
  4252      THEN
  4253         sys. DBMS_OUTPU T.put_line  (
  4254            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4255         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4256         RETU RN;
  4257      END IF;
  4258  
  4259  
  4260      vn_cont inue := cr eate_EPL_I FCAP_ITEM_ NUMBERS;
  4261  
  4262      IF vn_c ontinue >  0
  4263      THEN
  4264         sys. DBMS_OUTPU T.put_line  (
  4265            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4266         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4267         RETU RN;
  4268      END IF;
  4269  
  4270  
  4271      vn_cont inue := cr eate_EPL_I TEM_AUDIT_ HIST_DTL;
  4272  
  4273      IF vn_c ontinue >  0
  4274      THEN
  4275         sys. DBMS_OUTPU T.put_line  (
  4276            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4277         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4278         RETU RN;
  4279      END IF;
  4280  
  4281  
  4282      vn_cont inue := cr eate_EPL_L ABS;
  4283  
  4284      IF vn_c ontinue >  0
  4285      THEN
  4286         sys. DBMS_OUTPU T.put_line  (
  4287            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4288         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4289         RETU RN;
  4290      END IF;
  4291  
  4292  
  4293      vn_cont inue := cr eate_EPL_L OCAL_POSS_ DOSAGE;
  4294  
  4295      IF vn_c ontinue >  0
  4296      THEN
  4297         sys. DBMS_OUTPU T.put_line  (
  4298            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4299         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4300         RETU RN;
  4301      END IF;
  4302  
  4303  
  4304      vn_cont inue := cr eate_EPL_M ED_INSTRUC T_WARDS;
  4305  
  4306      IF vn_c ontinue >  0
  4307      THEN
  4308         sys. DBMS_OUTPU T.put_line  (
  4309            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4310         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4311         RETU RN;
  4312      END IF;
  4313  
  4314  
  4315      vn_cont inue := cr eate_EPL_N ATIONAL_PO SS_DOSAG;
  4316  
  4317      IF vn_c ontinue >  0
  4318      THEN
  4319         sys. DBMS_OUTPU T.put_line  (
  4320            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4321         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4322         RETU RN;
  4323      END IF;
  4324  
  4325  
  4326      vn_cont inue := cr eate_EPL_N DC_BY_OTP_ SITE_NDC;
  4327  
  4328      IF vn_c ontinue >  0
  4329      THEN
  4330         sys. DBMS_OUTPU T.put_line  (
  4331            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4332         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4333         RETU RN;
  4334      END IF;
  4335  
  4336  
  4337      vn_cont inue := cr eate_EPL_P ARTIAL_SAV E_MGT;
  4338  
  4339      IF vn_c ontinue >  0
  4340      THEN
  4341         sys. DBMS_OUTPU T.put_line  (
  4342            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4343         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4344         RETU RN;
  4345      END IF;
  4346  
  4347  
  4348      vn_cont inue := cr eate_EPL_P RODUCT_LAB S;
  4349  
  4350      IF vn_c ontinue >  0
  4351      THEN
  4352         sys. DBMS_OUTPU T.put_line  (
  4353            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4354         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4355         RETU RN;
  4356      END IF;
  4357  
  4358  
  4359      vn_cont inue := cr eate_EPL_P RODUCT_VIT ALS;
  4360  
  4361      IF vn_c ontinue >  0
  4362      THEN
  4363         sys. DBMS_OUTPU T.put_line  (
  4364            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4365         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4366         RETU RN;
  4367      END IF;
  4368  
  4369  
  4370      vn_cont inue := cr eate_EPL_R EQUEST_DET AILS;
  4371  
  4372      IF vn_c ontinue >  0
  4373      THEN
  4374         sys. DBMS_OUTPU T.put_line  (
  4375            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4376         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4377         RETU RN;
  4378      END IF;
  4379  
  4380  
  4381      vn_cont inue := cr eate_EPL_R EQUESTS;
  4382  
  4383      IF vn_c ontinue >  0
  4384      THEN
  4385         sys. DBMS_OUTPU T.put_line  (
  4386            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4387         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4388         RETU RN;
  4389      END IF;
  4390  
  4391  
  4392      vn_cont inue := cr eate_EPL_S ITE_UPDT_S CHEDULES;
  4393  
  4394      IF vn_c ontinue >  0
  4395      THEN
  4396         sys. DBMS_OUTPU T.put_line  (
  4397            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4398         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4399         RETU RN;
  4400      END IF;
  4401  
  4402  
  4403      vn_cont inue := cr eate_EPL_S YNONYMS;
  4404  
  4405      IF vn_c ontinue >  0
  4406      THEN
  4407         sys. DBMS_OUTPU T.put_line  (
  4408            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4409         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4410         RETU RN;
  4411      END IF;
  4412  
  4413  
  4414      vn_cont inue := cr eate_EPL_V ITALS;
  4415  
  4416      IF vn_c ontinue >  0
  4417      THEN
  4418         sys. DBMS_OUTPU T.put_line  (
  4419            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4420         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4421         RETU RN;
  4422      END IF;
  4423  
  4424  
  4425      vn_cont inue := cr eate_EPL_W ARDS;
  4426  
  4427      IF vn_c ontinue >  0
  4428      THEN
  4429         sys. DBMS_OUTPU T.put_line  (
  4430            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4431         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4432         RETU RN;
  4433      END IF;
  4434  
  4435  
  4436      vn_cont inue := cr eate_EPL_S TATUS;
  4437  
  4438      IF vn_c ontinue >  0
  4439      THEN
  4440         sys. DBMS_OUTPU T.put_line  (
  4441            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4442         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4443         RETU RN;
  4444      END IF;
  4445  
  4446  
  4447      vn_cont inue := cr eate_EPL_V ISTA_STATU S;
  4448  
  4449      IF vn_c ontinue >  0
  4450      THEN
  4451         sys. DBMS_OUTPU T.put_line  (
  4452            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4453         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4454         RETU RN;
  4455      END IF;
  4456  
  4457  
  4458      vn_cont inue := cr eate_EPL_V ISTA_UPDAT E;
  4459  
  4460      IF vn_c ontinue >  0
  4461      THEN
  4462         sys. DBMS_OUTPU T.put_line  (
  4463            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4464         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4465         RETU RN;
  4466      END IF;
  4467  
  4468  
  4469      vn_cont inue := cr eate_EPL_D RUG_DRUG_I NTERACT;
  4470  
  4471      IF vn_c ontinue >  0
  4472      THEN
  4473         sys. DBMS_OUTPU T.put_line  (
  4474            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4475         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4476         RETU RN;
  4477      END IF;
  4478  
  4479  
  4480      vn_cont inue := cr eate_EPL_M ATCH_TYPE;
  4481  
  4482      IF vn_c ontinue >  0
  4483      THEN
  4484         sys. DBMS_OUTPU T.put_line  (
  4485            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4486         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4487         RETU RN;
  4488      END IF;
  4489  
  4490  
  4491      vn_cont inue := cr eate_EPL_N DF_OUTGOIN G_DIFFER;
  4492  
  4493      IF vn_c ontinue >  0
  4494      THEN
  4495         sys. DBMS_OUTPU T.put_line  (
  4496            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4497         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4498         RETU RN;
  4499      END IF;
  4500  
  4501  
  4502      vn_cont inue := cr eate_EPL_P ACKAGE_SIZ ES;
  4503  
  4504      IF vn_c ontinue >  0
  4505      THEN
  4506         sys. DBMS_OUTPU T.put_line  (
  4507            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4508         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4509         RETU RN;
  4510      END IF;
  4511  
  4512  
  4513      vn_cont inue := cr eate_EPL_R EMATCH_SUG GESTION;
  4514  
  4515      IF vn_c ontinue >  0
  4516      THEN
  4517         sys. DBMS_OUTPU T.put_line  (
  4518            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4519         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4520         RETU RN;
  4521      END IF;
  4522      
  4523  
  4524      vn_cont inue := in sert_updat e_EPL_IEN_ GEN;
  4525  
  4526      IF vn_c ontinue >  0
  4527      THEN
  4528         sys. DBMS_OUTPU T.put_line  (
  4529            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4530         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4531         RETU RN;
  4532      END IF;
  4533      
  4534  
  4535      vn_cont inue := gr ant_TO_ROL ES;
  4536  
  4537      IF vn_c ontinue >  0
  4538      THEN
  4539         sys. DBMS_OUTPU T.put_line  (
  4540            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4541         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4542         RETU RN;
  4543      END IF;
  4544      
  4545      
  4546      vn_cont inue := al ter_EPL_ND F_OUTG_DIF ;
  4547  
  4548      IF vn_c ontinue >  0
  4549      THEN
  4550         sys. DBMS_OUTPU T.put_line  (
  4551            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4552         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4553         RETU RN;
  4554      END IF;    
  4555      
  4556      vn_cont inue := al ter_EPL_VA DF_LOVS;
  4557      
  4558      IF vn_c ontinue >  0
  4559      THEN
  4560         sys. DBMS_OUTPU T.put_line  (
  4561            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4562         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4563         RETU RN;
  4564      END IF;    
  4565     
  4566      vn_cont inue := al ter_EPL_PR ODUCTS_RX;
  4567      
  4568      IF vn_c ontinue >  0
  4569      THEN
  4570         sys. DBMS_OUTPU T.put_line  (
  4571            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4572         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4573         RETU RN;
  4574      END IF;    
  4575      
  4576      vn_cont inue := al ter_EPL_PR ODUCTS_HZ;
  4577      
  4578      IF vn_c ontinue >  0
  4579      THEN
  4580         sys. DBMS_OUTPU T.put_line  (
  4581            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4582         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4583         RETU RN;
  4584      END IF;    
  4585      
  4586      vn_cont inue := in sert_EPL_V A_DFS_N_LO VS_RX;
  4587      
  4588      IF vn_c ontinue >  0
  4589      THEN
  4590         sys. DBMS_OUTPU T.put_line  (
  4591            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4592         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4593         RETU RN;
  4594      END IF;    
  4595      
  4596      vn_cont inue := in sert_EPL_V A_DFS_HZ;
  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      vn_cont inue := in sert_EPL_N AT_SET_RX;
  4607      
  4608      IF vn_c ontinue >  0
  4609      THEN
  4610         sys. DBMS_OUTPU T.put_line  (
  4611            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4612         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4613         RETU RN;
  4614      END IF;       
  4615      
  4616      vn_cont inue := in sert_EPL_N AT_SET_FMC T;
  4617      
  4618      IF vn_c ontinue >  0
  4619      THEN
  4620         sys. DBMS_OUTPU T.put_line  (
  4621            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4622         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4623         RETU RN;
  4624      END IF;       
  4625      
  4626      vn_cont inue := up date_EPL_S TATUS;
  4627      
  4628      IF vn_c ontinue >  0
  4629      THEN
  4630         sys. DBMS_OUTPU T.put_line  (
  4631            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4632         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4633         RETU RN;
  4634      END IF;       
  4635      
  4636      vn_cont inue := dr op_create_ EPL_CLASS_ TYPES;
  4637      
  4638      IF vn_c ontinue >  0
  4639      THEN
  4640         sys. DBMS_OUTPU T.put_line  (
  4641            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4642         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4643         RETU RN;
  4644      END IF;       
  4645  
  4646      vn_cont inue := in sert_EPL_C LASS_TYPES ;
  4647      
  4648      IF vn_c ontinue >  0
  4649      THEN
  4650         sys. DBMS_OUTPU T.put_line  (
  4651            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4652         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4653         RETU RN;
  4654      END IF;       
  4655      
  4656      vn_cont inue := de lete_updat e_EPL_NAT_ SET_SFTP;
  4657      
  4658      IF vn_c ontinue >  0
  4659      THEN
  4660         sys. DBMS_OUTPU T.put_line  (
  4661            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4662         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4663         RETU RN;
  4664      END IF;
  4665      
  4666      vn_cont inue := up date_EPL_N AT_SET_RPT _MSG;
  4667  
  4668      IF vn_c ontinue >  0
  4669      THEN
  4670         sys. DBMS_OUTPU T.put_line  (
  4671            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4672         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4673         RETU RN;
  4674      END IF;
  4675      
  4676      vn_cont inue := cr eate_repla ce_SYNS;
  4677  
  4678      IF vn_c ontinue >  0
  4679      THEN
  4680         sys. DBMS_OUTPU T.put_line  (
  4681            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4682         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4683         RETU RN;
  4684      END IF;
  4685     
  4686      vn_cont inue := in sert_EPL_V ISTA_STATU S;
  4687  
  4688      IF vn_c ontinue >  0
  4689      THEN
  4690         sys. DBMS_OUTPU T.put_line  (
  4691            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4692         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4693         RETU RN;
  4694      END IF;
  4695      
  4696   -- TIM MER KT
  4697  
  4698      vn_cont inue := cr eate_PERFO RMANCE_IND EXES;
  4699  
  4700      IF vn_c ontinue >  0
  4701      THEN
  4702         sys. DBMS_OUTPU T.put_line  (
  4703            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4704         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4705         RETU RN;
  4706      END IF;
  4707  
  4708   /* -- TIM  MERKT - NO  LONGER RE QUIRED DUE  TO PROD R ELEASE REM OVING THES E ALREADY
  4709  
  4710      vn_cont inue := dr op_FMCT_PR OC_AND_ART IFACTS;
  4711  
  4712      IF vn_c ontinue >  0
  4713      THEN
  4714         sys. DBMS_OUTPU T.put_line  (
  4715            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4716         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4717         RETU RN;
  4718      END IF;
  4719   */
  4720  
  4721   -- TIM MER KT
  4722  
  4723      vn_cont inue := cr eate_EPL_F ORMULARY_A RTIFACTS;
  4724      
  4725      IF vn_c ontinue >  0
  4726      THEN
  4727         sys. DBMS_OUTPU T.put_line  (
  4728            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4729         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4730         RETU RN;
  4731      END IF;
  4732  
  4733   -- DAVID T OMBS
  4734  
  4735      vn_cont inue := cr eate_EPL_R EMATCH_ART IFACTS;
  4736         
  4737      IF vn_c ontinue >  0
  4738      THEN
  4739         sys. DBMS_OUTPU T.put_line  (
  4740            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4741         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4742         RETU RN;
  4743      END IF;
  4744  
  4745   -- AMY JON ES/TIM
  4746  
  4747      vn_cont inue := in sert_EPL_N AT_SET_FOR MULARY;
  4748      
  4749      IF vn_c ontinue >  0
  4750      THEN
  4751         sys. DBMS_OUTPU T.put_line  (
  4752            ' ERROR   -    EXECUTE  PPSNEPL 3  ROLLBACK P ROCESS');
  4753         sys. DBMS_OUTPU T.put_line  ('ERROR    -   EXITI NG SCRIPT. ..');
  4754         RETU RN;
  4755      END IF;    
  4756  
  4757      
  4758         -- P urge recyc le bin
  4759         
  4760         vc_s ql_stateme nt := 'pur ge RECYCLE BIN';
  4761         COMM IT;
  4762      
  4763         EXEC UTE IMMEDI ATE vc_sql _statement ;
  4764      
  4765         -- R ecompile S chema and  Gather Sta tistics
  4766         
  4767         DBMS _UTILITY.c ompile_sch ema (schem a => 'PPSN EPL');
  4768         DBMS _STATS.gat her_schema _stats ('P PSNEPL');
  4769         
  4770      EXCEPTI ON
  4771         WHEN  OTHERS
  4772         THEN
  4773            v n_code :=  SQLCODE;
  4774            v c_errm :=  SUBSTR (SQ LERRM, 1,  64);
  4775            s ys.DBMS_OU TPUT.put_l ine (
  4776                'MAIN: E rror code  ' || vn_co de || ': '  || vc_err m);
  4777      END;
  4778      /
  4779         
  4780      SELECT  'Migration  Stopped:  ' || CURRE NT_TIMESTA MP FROM DU AL;
  4781      
  4782      SPOOL O FF
  4783   EXIT