6. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 4/5/2017 7:54:23 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.

6.1 Files compared

# Location File Last Modified
1 ADR_v17.0.0.0, build 3_April_2017.zip\ADR_v17.0.0.0, build 3_April_2017\DDL\ADR trigger.sql Thu Mar 30 18:32:30 2017 UTC
2 ADR_v17.0.0.0, build 3_April_2017.zip\ADR_v17.0.0.0, build 3_April_2017\DDL\ADR trigger.sql Mon Apr 3 15:48:15 2017 UTC

6.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 5 21272
Changed 4 8
Inserted 0 0
Removed 0 0

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

6.4 Active regular expressions

No regular expressions were active.

6.5 Comparison detail

  1   DROP TRIGG ER ADR.WKF _MSG_CASE_ AUDIR_TRGR ;
  2  
  3   CREATE OR  REPLACE TR IGGER ADR. wkf_msg_ca se_audir_t rgr
  4   after Upda te or Dele te or Inse rt
  5   ON ADR.WKF _MESSAGING _CASE
  6   for each r ow
  7   declare
  8           mD ML char(1) ;
  9   begin
  10  
  11           if  DELETING  then
  12                    inse rt into WK F_MESSAGIN G_CASE_H
  13                    (
  14                    WKF_ MESSAGING_ CASE_H_ID,
  15                    WKF_ MESSAGING_ CASE_ID,
  16                    HL7_ MESSAGE_ID ,
  17                    WKF_ CASE_ID,
  18                    MESS AGE_TRANSM ISSION_TYP E_ID,
  19                    ACK_ TYPE_ID,
  20                    STD_ INSTITUTIO N_ID,
  21                    TRAN SMISSION_T YPE_CODE,
  22                    TRAN SMISSION_D ATE,
  23                    ACK_ DATE,
  24                    ERRO R_MESSAGE_ TEXT,
  25                    RECO RD_CREATED _BY,
  26                    RECO RD_CREATED _DATE,
  27                    RECO RD_MODIFIE D_BY,
  28                    RECO RD_MODIFIE D_DATE,
  29                    RECO RD_MODIFIE D_COUNT,
  30                    TRAN SACTION_TY PE_CODE
  31                    )
  32                    valu es
  33                    (
  34                    WKF_ MESSAGING_ CASE_H_S.n extval,
  35                    :old .WKF_MESSA GING_CASE_ ID,
  36                    :old .HL7_MESSA GE_ID,
  37                    :old .WKF_CASE_ ID,
  38                    :old .MESSAGE_T RANSMISSIO N_TYPE_ID,
  39                    :old .ACK_TYPE_ ID,
  40                    :old .STD_INSTI TUTION_ID,
  41                    :old .TRANSMISS ION_TYPE_C ODE,
  42                    :old .TRANSMISS ION_DATE,
  43                    :old .ACK_DATE,
  44                    :old .ERROR_MES SAGE_TEXT,
  45                    :old .RECORD_CR EATED_BY,
  46                    :old .RECORD_CR EATED_DATE ,
  47                    :old .RECORD_MO DIFIED_BY,
  48                    :old .RECORD_MO DIFIED_DAT E,
  49                    :old .RECORD_MO DIFIED_COU NT,
  50                    'D'
  51                    );
  52           el se
  53                    if U PDATING th en
  54                             mDML : = 'U';
  55                    else
  56                             mDML : = 'I';
  57                    end  if;
  58  
  59                    inse rt into WK F_MESSAGIN G_CASE_H
  60                    (
  61                    WKF_ MESSAGING_ CASE_H_ID,
  62                    WKF_ MESSAGING_ CASE_ID,
  63                    HL7_ MESSAGE_ID ,
  64                    WKF_ CASE_ID,
  65                    MESS AGE_TRANSM ISSION_TYP E_ID,
  66                    ACK_ TYPE_ID,
  67                    STD_ INSTITUTIO N_ID,
  68                    TRAN SMISSION_T YPE_CODE,
  69                    TRAN SMISSION_D ATE,
  70                    ACK_ DATE,
  71                    ERRO R_MESSAGE_ TEXT,
  72                    RECO RD_CREATED _BY,
  73                    RECO RD_CREATED _DATE,
  74                    RECO RD_MODIFIE D_BY,
  75                    RECO RD_MODIFIE D_DATE,
  76                    RECO RD_MODIFIE D_COUNT,
  77                    TRAN SACTION_TY PE_CODE
  78                    )
  79                    valu es
  80                    (
  81                    WKF_ MESSAGING_ CASE_H_S.n extval,
  82                    :new .WKF_MESSA GING_CASE_ ID,
  83                    :new .HL7_MESSA GE_ID,
  84                    :new .WKF_CASE_ ID,
  85                    :new .MESSAGE_T RANSMISSIO N_TYPE_ID,
  86                    :new .ACK_TYPE_ ID,
  87                    :new .STD_INSTI TUTION_ID,
  88                    :new .TRANSMISS ION_TYPE_C ODE,
  89                    :new .TRANSMISS ION_DATE,
  90                    :new .ACK_DATE,
  91                    :new .ERROR_MES SAGE_TEXT,
  92                    :new .RECORD_CR EATED_BY,
  93                    :new .RECORD_CR EATED_DATE ,
  94                    :new .RECORD_MO DIFIED_BY,
  95                    :new .RECORD_MO DIFIED_DAT E,
  96                    :new .RECORD_MO DIFIED_COU NT,
  97                    mDML
  98                    );
  99           en d if;
  100   end wkf_ms g_case_aud ir_trgr;
  101   /
  102   DROP TRIGG ER ADR.WKF _CASE_STA_ DET_AUDIR_ TRGR;
  103  
  104   CREATE OR  REPLACE TR IGGER ADR. WKF_CASE_S TA_DET_AUD IR_TRGR
  105   after Upda te or Dele te or Inse rt
  106   ON ADR.WKF _CASE_STAT US_DETAIL  for each r ow
  107   declare
  108           mD ML char(1) ;
  109   begin
  110  
  111           if  DELETING  then
  112                 insert  into WKF_C ASE_STATUS _DETAIL_H
  113                    (
  114                    WKF_ CASE_STATU S_DETAIL_H _ID,
  115                    WKF_ CASE_STATU S_DETAIL_I D,
  116                    WKF_ CASE_ID,
  117                    WKF_ CASE_REQUE ST_TYPE_ID  ,
  118                    WKF_ CASE_STATU S_TYPE_ID  ,
  119                    WKF_ CASE_ACTIV ITY_TYPE_I D,
  120                    RECO RD_CREATED _BY ,
  121                    RECO RD_CREATED _DATE,
  122                    RECO RD_MODIFIE D_BY ,
  123                    RECO RD_MODIFIE D_DATE,
  124                    RECO RD_MODIFIE D_COUNT,
  125                    TRAN SACTION_TY PE_CODE
  126                    )
  127                    valu es
  128                    (
  129                    WKF_ CASE_STATU S_DETAIL_H _S.nextval   ,
  130                    :old .WKF_CASE_ STATUS_DET AIL_ID,
  131                    :old .WKF_CASE_ ID,
  132                    :old .WKF_CASE_ REQUEST_TY PE_ID,
  133                    :old .WKF_CASE_ STATUS_TYP E_ID ,
  134                    :old .WKF_CASE_ ACTIVITY_T YPE_ID,
  135                    :old .RECORD_CR EATED_BY,
  136                    :old .RECORD_CR EATED_DATE ,
  137                    :old .RECORD_MO DIFIED_BY,
  138                    :old .RECORD_MO DIFIED_DAT E,
  139                    :old .RECORD_MO DIFIED_COU NT,
  140                    'D'
  141                    );
  142           el se
  143                    if U PDATING th en
  144                             mDML : = 'U';
  145                    else
  146                             mDML : = 'I';
  147                    end  if;
  148  
  149                 insert  into WKF_C ASE_STATUS _DETAIL_H
  150                    (
  151                    WKF_ CASE_STATU S_DETAIL_H _ID,
  152                    WKF_ CASE_STATU S_DETAIL_I D,
  153                    WKF_ CASE_ID,
  154                    WKF_ CASE_REQUE ST_TYPE_ID  ,
  155                    WKF_ CASE_STATU S_TYPE_ID  ,
  156                    WKF_ CASE_ACTIV ITY_TYPE_I D,
  157                    RECO RD_CREATED _BY ,
  158                    RECO RD_CREATED _DATE,
  159                    RECO RD_MODIFIE D_BY ,
  160                    RECO RD_MODIFIE D_DATE,
  161                    RECO RD_MODIFIE D_COUNT,
  162                    TRAN SACTION_TY PE_CODE
  163                    )
  164                    valu es
  165                    (
  166                    WKF_ CASE_STATU S_DETAIL_H _S.nextval   ,
  167                    :new .WKF_CASE_ STATUS_DET AIL_ID,
  168                    :new .WKF_CASE_ ID,
  169                    :new .WKF_CASE_ REQUEST_TY PE_ID,
  170                    :new .WKF_CASE_ STATUS_TYP E_ID ,
  171                    :new .WKF_CASE_ ACTIVITY_T YPE_ID,
  172                    :new .RECORD_CR EATED_BY,
  173                    :new .RECORD_CR EATED_DATE ,
  174                    :new .RECORD_MO DIFIED_BY,
  175                    :new .RECORD_MO DIFIED_DAT E,
  176                    :new .RECORD_MO DIFIED_COU NT,
  177                    mDML
  178                    );
  179           en d if;
  180  
  181   End WKF_CA SE_STA_det _audir_trg r;
  182   /
  183   DROP TRIGG ER ADR.WKF _CASE_COMM _AUDIR_TRG R;
  184  
  185   CREATE OR  REPLACE TR IGGER ADR. WKF_CASE_C OMM_AUDIR_ TRGR
  186   after Upda te or Dele te or Inse rt
  187   ON ADR.WKF _CASE_COMM ENTS for e ach row
  188   declare
  189           mD ML char(1) ;
  190   begin
  191  
  192           if  DELETING  then
  193                 insert  into WKF_C ASE_Commen ts_H
  194                    (
  195                    WKF_ CASE_COMME NT_H_ID,
  196                    WKF_ CASE_ID,
  197                    WKF_ CASE_COMME NT_ID,
  198                    COMM ENT_VALUE  ,
  199                    RECO RD_CREATED _BY ,
  200                    RECO RD_CREATED _DATE,
  201                    RECO RD_MODIFIE D_BY ,
  202                    RECO RD_MODIFIE D_DATE,
  203                    RECO RD_MODIFIE D_COUNT,
  204                    TRAN SACTION_TY PE_CODE
  205                    )
  206                    valu es
  207                    (
  208                    WKF_ CASE_COMME NTS_H_S.ne xtval  ,
  209                    :old .WKF_CASE_ ID,
  210                    :old .WKF_CASE_ COMMENT_ID ,
  211                    :old .COMMENT_V ALUE,
  212                    :old .RECORD_CR EATED_BY,
  213                    :old .RECORD_CR EATED_DATE ,
  214                    :old .RECORD_MO DIFIED_BY,
  215                    :old .RECORD_MO DIFIED_DAT E,
  216                    :old .RECORD_MO DIFIED_COU NT,
  217                    'D'
  218                    );
  219           el se
  220                    if U PDATING th en
  221                             mDML : = 'U';
  222                    else
  223                             mDML : = 'I';
  224                    end  if;
  225  
  226                 insert  into WKF_C ASE_Commen ts_H
  227                    (
  228                    WKF_ CASE_COMME NT_H_ID,
  229                    WKF_ CASE_ID,
  230                    WKF_ CASE_COMME NT_ID,
  231                    COMM ENT_VALUE  ,
  232                    RECO RD_CREATED _BY ,
  233                    RECO RD_CREATED _DATE,
  234                    RECO RD_MODIFIE D_BY ,
  235                    RECO RD_MODIFIE D_DATE,
  236                    RECO RD_MODIFIE D_COUNT,
  237                    TRAN SACTION_TY PE_CODE
  238                    )
  239                    valu es
  240                    (
  241                    WKF_ CASE_COMME NTS_H_S.ne xtval  ,
  242                    :new .WKF_CASE_ ID,
  243                    :new .WKF_CASE_ COMMENT_ID ,
  244                    :new .COMMENT_V ALUE,
  245                    :new .RECORD_CR EATED_BY,
  246                    :new .RECORD_CR EATED_DATE ,
  247                    :new .RECORD_MO DIFIED_BY,
  248                    :new .RECORD_MO DIFIED_DAT E,
  249                    :new .RECORD_MO DIFIED_COU NT,
  250                    mDML
  251                    );
  252           en d if;
  253  
  254   End WKF_CA SE_COMM_au dir_trgr;
  255   /
  256   DROP TRIGG ER ADR.WKF _CASE_AUDI R_TRGR;
  257  
  258   CREATE OR  REPLACE TR IGGER ADR. WKF_CASE_A UDIR_TRGR
  259   after Upda te or Dele te or Inse rt
  260   ON ADR.WKF _CASE for  each row
  261   declare
  262       mDML c har(1);
  263   begin
  264  
  265     if DELET ING then
  266          ins ert into W KF_CASE_H
  267       (
  268  
  269       WKF_CA SE_H_ID,
  270       WKF_CA SE_ID,
  271       PERSON _ID,
  272       WKF_CA SE_TYPE_ID ,
  273       WKF_CA SE_REQUEST _TYPE_ID,
  274       WKF_CA SE_ISSUE_T YPE_ID,
  275       REQUES T_RECEIVED _SITE_ID,
  276       REQUES T_RECEIVED _DATE,
  277       RECORD _CREATED_B Y,
  278       RECORD _CREATED_D ATE,
  279       RECORD _MODIFIED_ BY,
  280       RECORD _MODIFIED_ DATE,
  281       RECORD _MODIFIED_ COUNT,
  282       TRANSA CTION_TYPE _CODE,
  283       Bf_Pro cessed
  284       )
  285       values
  286       (
  287       WKF_CA SE_H_S.nex tval,
  288       :old.W KF_CASE_ID ,
  289       :old.P ERSON_ID,
  290       :old.W KF_CASE_TY PE_ID,
  291       :old.W KF_CASE_RE QUEST_TYPE _ID,
  292       :old.W KF_CASE_IS SUE_TYPE_I D,
  293       :old.R EQUEST_REC EIVED_SITE _ID,
  294       :old.R EQUEST_REC EIVED_DATE ,
  295       :old.R ECORD_CREA TED_BY,
  296       :old.R ECORD_CREA TED_DATE,
  297       :old.R ECORD_MODI FIED_BY,
  298       :old.R ECORD_MODI FIED_DATE,
  299       :old.R ECORD_MODI FIED_COUNT ,
  300       'D',
  301       :old.B f_Processe d
  302       );
  303     else
  304       if UPD ATING then
  305         mDML  := 'U';
  306       else
  307         mDML  := 'I';
  308       end if ;
  309  
  310          ins ert into W KF_CASE_H
  311       (
  312       WKF_CA SE_H_ID,
  313       WKF_CA SE_ID,
  314       PERSON _ID,
  315       WKF_CA SE_TYPE_ID ,
  316       WKF_CA SE_REQUEST _TYPE_ID,
  317       WKF_CA SE_ISSUE_T YPE_ID,
  318       REQUES T_RECEIVED _SITE_ID,
  319       REQUES T_RECEIVED _DATE,
  320       RECORD _CREATED_B Y,
  321       RECORD _CREATED_D ATE,
  322       RECORD _MODIFIED_ BY,
  323       RECORD _MODIFIED_ DATE,
  324       RECORD _MODIFIED_ COUNT,
  325       TRANSA CTION_TYPE _CODE,
  326       Bf_Pro cessed
  327       )
  328       values
  329       (
  330       WKF_CA SE_H_S.nex tval,
  331       :new.W KF_CASE_ID ,
  332       :new.P ERSON_ID,
  333       :new.W KF_CASE_TY PE_ID,
  334       :new.W KF_CASE_RE QUEST_TYPE _ID,
  335       :new.W KF_CASE_IS SUE_TYPE_I D,
  336       :new.R EQUEST_REC EIVED_SITE _ID,
  337       :new.R EQUEST_REC EIVED_DATE ,
  338       :new.R ECORD_CREA TED_BY,
  339       :new.R ECORD_CREA TED_DATE,
  340       :new.R ECORD_MODI FIED_BY,
  341       :new.R ECORD_MODI FIED_DATE,
  342       :new.R ECORD_MODI FIED_COUNT ,
  343       mDML,
  344       :new.B f_Processe d
  345       );
  346     end if;
  347  
  348   End WKF_CA SE_audir_t rgr;
  349   /
  350   DROP TRIGG ER ADR.WKF _CASE_ASSG N_AUDIR_TR GR;
  351  
  352   CREATE OR  REPLACE TR IGGER ADR. WKF_CASE_A SSGN_AUDIR _TRGR
  353   after Upda te or Dele te or Inse rt
  354   ON ADR.WKF _CASE_ASSI GNMENT for  each row
  355   declare
  356           mD ML char(1) ;
  357   begin
  358  
  359           if  DELETING  then
  360                 insert  into WKF_C ASE_ASSIGN MENT_H
  361                    (
  362                    WKF_ CASE_ASSIG NMENT_H_ID ,
  363                    WKF_ CASE_ASSIG NMENT_ID,
  364                    WKF_ CASE_ID,
  365                    WKF_ CASE_ASSIG NED_BY,
  366                    WKF_ CASE_ASSIG NED_TO,
  367                    WKF_ CASE_ASSIG NMENT_DATE ,
  368                    RECO RD_CREATED _BY,
  369                    RECO RD_CREATED _DATE,
  370                    RECO RD_MODIFIE D_BY,
  371                    RECO RD_MODIFIE D_DATE,
  372                    RECO RD_MODIFIE D_COUNT,
  373                    TRAN SACTION_TY PE_CODE
  374                    )
  375                    valu es
  376                    (
  377                    WKF_ CASE_ASSIG NMENT_H_S. nextval  ,
  378                    :old .WKF_CASE_ ASSIGNMENT _ID,
  379                    :old .WKF_CASE_ ID,
  380                    :old .WKF_CASE_ ASSIGNED_B Y,
  381                    :old .WKF_CASE_ ASSIGNED_T O,
  382                    :old .WKF_CASE_ ASSIGNMENT _DATE,
  383                    :old .RECORD_CR EATED_BY,
  384                    :old .RECORD_CR EATED_DATE ,
  385                    :old .RECORD_MO DIFIED_BY,
  386                    :old .RECORD_MO DIFIED_DAT E,
  387                    :old .RECORD_MO DIFIED_COU NT,
  388                    'D'
  389                    );
  390           el se
  391                    if U PDATING th en
  392                             mDML : = 'U';
  393                    else
  394                             mDML : = 'I';
  395                    end  if;
  396  
  397                 insert  into WKF_C ASE_ASSIGN MENT_H
  398                    (
  399                    WKF_ CASE_ASSIG NMENT_H_ID ,
  400                    WKF_ CASE_ASSIG NMENT_ID,
  401                    WKF_ CASE_ID,
  402                    WKF_ CASE_ASSIG NED_BY,
  403                    WKF_ CASE_ASSIG NED_TO,
  404                    WKF_ CASE_ASSIG NMENT_DATE ,
  405                    RECO RD_CREATED _BY,
  406                    RECO RD_CREATED _DATE,
  407                    RECO RD_MODIFIE D_BY,
  408                    RECO RD_MODIFIE D_DATE,
  409                    RECO RD_MODIFIE D_COUNT,
  410                    TRAN SACTION_TY PE_CODE
  411                    )
  412                    valu es
  413                    (
  414                    WKF_ CASE_ASSIG NMENT_H_S. nextval  ,
  415                    :new .WKF_CASE_ ASSIGNMENT _ID,
  416                    :new .WKF_CASE_ ID,
  417                    :new .WKF_CASE_ ASSIGNED_B Y,
  418                    :new .WKF_CASE_ ASSIGNED_T O,
  419                    :new .WKF_CASE_ ASSIGNMENT _DATE,
  420                    :new .RECORD_CR EATED_BY,
  421                    :new .RECORD_CR EATED_DATE ,
  422                    :new .RECORD_MO DIFIED_BY,
  423                    :new .RECORD_MO DIFIED_DAT E,
  424                    :new .RECORD_MO DIFIED_COU NT,
  425                    mDML
  426                    );
  427           en d if;
  428  
  429   End WKF_CA SE_ASSGN_a udir_trgr;
  430   /
  431   DROP TRIGG ER ADR.VCE LIGIB_AUDI R_TRGR;
  432  
  433   CREATE OR  REPLACE TR IGGER ADR. VCELIGIB_A UDIR_TRGR
  434   after Upda te or Dele te or Inse rt
  435   ON ADR.VCE LIGIBILITY  for each  row
  436   declare
  437        mDML  char(1);
  438   begin
  439  
  440     if DELET ING then
  441  
  442   INSERT INT O ADR.VCEL IGIBILITY_ H (
  443      VCELIGI BILITY_H_I D,TRANSACT ION_TYPE_C ODE,VCELIG IBILITY_ID , PERSON_I D, VCESTAT USTYPE_ID,
  444      RECORD_ CREATED_BY , RECORD_C REATED_DAT E, RECORD_ MODIFIED_B Y,
  445      RECORD_ MODIFIED_D ATE, RECOR D_MODIFIED _COUNT)
  446   VALUES ( V CELIGIBILI TY_H_S.nex tval,
  447   'D',
  448   :old.VCELI GIBILITY_I D,
  449    :old.PERS ON_ID ,
  450    :old.VCES TATUSTYPE_ ID ,
  451    :old.RECO RD_CREATED _BY ,
  452    :old.RECO RD_CREATED _DATE ,
  453    :old.RECO RD_MODIFIE D_BY ,
  454    :old.RECO RD_MODIFIE D_DATE ,
  455    :old.RECO RD_MODIFIE D_COUNT  ) ;
  456  
  457     else
  458       if UPD ATING then
  459         mDML  := 'U';
  460       else
  461         mDML  := 'I';
  462       end if ;
  463  
  464     INSERT I NTO ADR.VC ELIGIBILIT Y_H (
  465      VCELIGI BILITY_H_I D,TRANSACT ION_TYPE_C ODE,VCELIG IBILITY_ID , PERSON_I D, VCESTAT USTYPE_ID,
  466      RECORD_ CREATED_BY , RECORD_C REATED_DAT E, RECORD_ MODIFIED_B Y,
  467      RECORD_ MODIFIED_D ATE, RECOR D_MODIFIED _COUNT)
  468   VALUES ( V CELIGIBILI TY_H_S.nex tval,
  469   mDML,
  470   :new.VCELI GIBILITY_I D,
  471    :new.PERS ON_ID ,
  472    :new.VCES TATUSTYPE_ ID ,
  473    :new.RECO RD_CREATED _BY ,
  474    :new.RECO RD_CREATED _DATE ,
  475    :new.RECO RD_MODIFIE D_BY ,
  476    :new.RECO RD_MODIFIE D_DATE ,
  477    :new.RECO RD_MODIFIE D_COUNT  ) ;
  478  
  479     end if;
  480  
  481   end VCELIG IB_AUDIR_T RGR;
  482   /
  483   DROP TRIGG ER ADR.VCA DMIN_AUDIR _TRGR;
  484  
  485   CREATE OR  REPLACE TR IGGER ADR. VCADMIN_AU DIR_TRGR
  486   after Upda te or Dele te or Inse rt
  487   ON ADR.VCA DMIN for e ach row
  488   declare
  489        mDML  char(1);
  490   begin
  491  
  492     if DELET ING then
  493  
  494     INSERT I NTO ADR.VC ADMIN_H (
  495      VCADMIN _H_ID, VCA DMIN_ID, P ERSON_ID,
  496      ERROR_T XT, VCADMI STATUS_TYP E_ID, TRAN SACTION_TY PE_CODE,
  497      RECORD_ CREATED_BY , RECORD_C REATED_DAT E, RECORD_ MODIFIED_B Y,
  498      RECORD_ MODIFIED_D ATE, RECOR D_MODIFIED _COUNT)
  499   VALUES ( V CADMIN_H_S .nextval,
  500    :old.VCAD MIN_ID,
  501    :old.PERS ON_ID ,
  502    :old.ERRO R_TXT ,
  503    :old.VCAD MISTATUS_T YPE_ID ,
  504    'D' ,
  505    :old.RECO RD_CREATED _BY ,
  506    :old.RECO RD_CREATED _DATE ,
  507    :old.RECO RD_MODIFIE D_BY ,
  508    :old.RECO RD_MODIFIE D_DATE ,
  509    :old.RECO RD_MODIFIE D_COUNT );
  510  
  511     else
  512       if UPD ATING then
  513         mDML  := 'U';
  514       else
  515         mDML  := 'I';
  516       end if ;
  517          INS ERT INTO A DR.VCADMIN _H (
  518      VCADMIN _H_ID, VCA DMIN_ID, P ERSON_ID,
  519      ERROR_T XT, VCADMI STATUS_TYP E_ID, TRAN SACTION_TY PE_CODE,
  520      RECORD_ CREATED_BY , RECORD_C REATED_DAT E, RECORD_ MODIFIED_B Y,
  521      RECORD_ MODIFIED_D ATE, RECOR D_MODIFIED _COUNT)
  522   VALUES ( V CADMIN_H_S .nextval,
  523    :new.VCAD MIN_ID,
  524    :new.PERS ON_ID ,
  525    :new.ERRO R_TXT ,
  526    :old.VCAD MISTATUS_T YPE_ID ,
  527    mDML ,
  528    :new.RECO RD_CREATED _BY ,
  529    :new.RECO RD_CREATED _DATE ,
  530    :new.RECO RD_MODIFIE D_BY ,
  531    :new.RECO RD_MODIFIE D_DATE ,
  532    :new.RECO RD_MODIFIE D_COUNT );
  533  
  534     end if;
  535  
  536   end VCADMI N_AUDIR_TR GR;
  537   /
  538   DROP TRIGG ER ADR.VA_ PERSON_DIV _DET_AUDIR _TRGR;
  539  
  540   CREATE OR  REPLACE TR IGGER ADR. VA_PERSON_ DIV_DET_au dir_trgr
  541   after Upda te or Dele te or Inse rt
  542   ON ADR.VA_ PERSON_DIV ISION_DETA IL
  543   for each r ow
  544   declare
  545           mD ML char(1) ;
  546   begin
  547  
  548           if  DELETING  then
  549                    inse rt into VA _PERSON_DI VISION_DET AIL_H
  550                    (
  551                    VA_P ERSON_DIVI SION_DETAI L_H_ID,
  552                    VA_P ERSON_DIVI SION_DETAI L_ID,
  553                    PERS ON_ID,
  554                    STD_ INSTITUTIO N_ID,
  555                    DEFA ULT_DIVISI ON_FLAG,
  556                    RECO RD_CREATED _BY,
  557                    RECO RD_CREATED _DATE,
  558                    RECO RD_MODIFIE D_BY,
  559                    RECO RD_MODIFIE D_DATE,
  560                    RECO RD_MODIFIE D_COUNT,
  561                    RECO RD_MODIFIE D_SITE_ID,
  562                    RECO RD_MODIFIE D_SRC_NAME ,
  563                    TRAN SACTION_TY PE_CODE
  564                    )
  565                    valu es
  566                    (
  567                    VA_P ERSON_DIVI SION_DETAI L_H_S.next val,
  568                    :old .VA_PERSON _DIVISION_ DETAIL_ID,
  569                    :old .PERSON_ID ,
  570                    :old .STD_INSTI TUTION_ID,
  571                    :old .DEFAULT_D IVISION_FL AG,
  572                    :old .RECORD_CR EATED_BY,
  573                    :old .RECORD_CR EATED_DATE ,
  574                    :old .RECORD_MO DIFIED_BY,
  575                    :old .RECORD_MO DIFIED_DAT E,
  576                    :old .RECORD_MO DIFIED_COU NT,
  577                    :old .RECORD_MO DIFIED_SIT E_ID,
  578                    :old .RECORD_MO DIFIED_SRC _NAME,
  579                    'D'
  580                    );
  581           el se
  582                    if U PDATING th en
  583                             mDML : = 'U';
  584                    else
  585                             mDML : = 'I';
  586                    end  if;
  587  
  588                    inse rt into VA _PERSON_DI VISION_DET AIL_H
  589                    (
  590                    VA_P ERSON_DIVI SION_DETAI L_H_ID,
  591                    VA_P ERSON_DIVI SION_DETAI L_ID,
  592                    PERS ON_ID,
  593                    STD_ INSTITUTIO N_ID,
  594                    DEFA ULT_DIVISI ON_FLAG,
  595                    RECO RD_CREATED _BY,
  596                    RECO RD_CREATED _DATE,
  597                    RECO RD_MODIFIE D_BY,
  598                    RECO RD_MODIFIE D_DATE,
  599                    RECO RD_MODIFIE D_COUNT,
  600                    RECO RD_MODIFIE D_SITE_ID,
  601                    RECO RD_MODIFIE D_SRC_NAME ,
  602                    TRAN SACTION_TY PE_CODE
  603                    )
  604                    valu es
  605                    (
  606                    VA_P ERSON_DIVI SION_DETAI L_H_S.next val,
  607                    :new .VA_PERSON _DIVISION_ DETAIL_ID,
  608                    :new .PERSON_ID ,
  609                    :new .STD_INSTI TUTION_ID,
  610                    :new .DEFAULT_D IVISION_FL AG,
  611                    :new .RECORD_CR EATED_BY,
  612                    :new .RECORD_CR EATED_DATE ,
  613                    :new .RECORD_MO DIFIED_BY,
  614                    :new .RECORD_MO DIFIED_DAT E,
  615                    :new .RECORD_MO DIFIED_COU NT,
  616                    :new .RECORD_MO DIFIED_SIT E_ID,
  617                    :new .RECORD_MO DIFIED_SRC _NAME,
  618                    mDML
  619                    );
  620           en d if;
  621  
  622   end VA_PER SON_DIV_DE T_audir_tr gr;
  623   /
  624   DROP TRIGG ER ADR.VA_ PERSON_CLA SS_DET_AUD IR_TRGR;
  625  
  626   CREATE OR  REPLACE TR IGGER ADR. VA_PERSON_ CLASS_DET_ audir_trgr
  627   after Upda te or Dele te or Inse rt
  628   ON ADR.VA_ PERSON_CLA SS_DETAIL
  629   for each r ow
  630   declare
  631           mD ML char(1) ;
  632   begin
  633  
  634           if  DELETING  then
  635                    inse rt into VA _PERSON_CL ASS_DETAIL _H
  636                    (
  637                    VA_P ERSON_CLAS S_DETAIL_H _ID,
  638                    VA_P ERSON_CLAS S_DETAIL_I D,
  639                    PERS ON_CLASS_S TART_DATE,
  640                    PERS ON_CLASS_E ND_DATE,
  641                    RECO RD_CREATED _BY,
  642                    RECO RD_CREATED _DATE,
  643                    RECO RD_MODIFIE D_BY,
  644                    RECO RD_MODIFIE D_DATE,
  645                    STD_ PERSONCLAS S_ID,
  646                    STD_ INSTITUTIO N_ID,
  647                    PERS ON_ID,
  648                    RECO RD_MODIFIE D_COUNT,
  649                    RECO RD_MODIFIE D_SITE_ID,
  650                    RECO RD_MODIFIE D_SRC_NAME ,
  651                    TRAN SACTION_TY PE_CODE
  652                    )
  653                    valu es
  654                    (
  655                    VA_P ERSON_CLAS S_DETAIL_H _S.nextval ,
  656                    :old .VA_PERSON _CLASS_DET AIL_ID,
  657                    :old .PERSON_CL ASS_START_ DATE,
  658                    :old .PERSON_CL ASS_END_DA TE,
  659                    :old .RECORD_CR EATED_BY,
  660                    :old .RECORD_CR EATED_DATE ,
  661                    :old .RECORD_MO DIFIED_BY,
  662                    :old .RECORD_MO DIFIED_DAT E,
  663                    :old .STD_PERSO NCLASS_ID,
  664                    :old .STD_INSTI TUTION_ID,
  665                    :old .PERSON_ID ,
  666                    :old .RECORD_MO DIFIED_COU NT,
  667                    :old .RECORD_MO DIFIED_SIT E_ID,
  668                    :old .RECORD_MO DIFIED_SRC _NAME,
  669                    'D'
  670                    );
  671           el se
  672                    if U PDATING th en
  673                             mDML : = 'U';
  674                    else
  675                             mDML : = 'I';
  676                    end  if;
  677  
  678                    inse rt into VA _PERSON_CL ASS_DETAIL _H
  679                    (
  680                    VA_P ERSON_CLAS S_DETAIL_H _ID,
  681                    VA_P ERSON_CLAS S_DETAIL_I D,
  682                    PERS ON_CLASS_S TART_DATE,
  683                    PERS ON_CLASS_E ND_DATE,
  684                    RECO RD_CREATED _BY,
  685                    RECO RD_CREATED _DATE,
  686                    RECO RD_MODIFIE D_BY,
  687                    RECO RD_MODIFIE D_DATE,
  688                    STD_ PERSONCLAS S_ID,
  689                    STD_ INSTITUTIO N_ID,
  690                    PERS ON_ID,
  691                    RECO RD_MODIFIE D_COUNT,
  692                    RECO RD_MODIFIE D_SITE_ID,
  693                    RECO RD_MODIFIE D_SRC_NAME ,
  694                    TRAN SACTION_TY PE_CODE
  695                    )
  696                    valu es
  697                    (
  698                    VA_P ERSON_CLAS S_DETAIL_H _S.nextval ,
  699                    :new .VA_PERSON _CLASS_DET AIL_ID,
  700                    :new .PERSON_CL ASS_START_ DATE,
  701                    :new .PERSON_CL ASS_END_DA TE,
  702                    :new .RECORD_CR EATED_BY,
  703                    :new .RECORD_CR EATED_DATE ,
  704                    :new .RECORD_MO DIFIED_BY,
  705                    :new .RECORD_MO DIFIED_DAT E,
  706                    :new .STD_PERSO NCLASS_ID,
  707                    :new .STD_INSTI TUTION_ID,
  708                    :new .PERSON_ID ,
  709                    :new .RECORD_MO DIFIED_COU NT,
  710                    :new .RECORD_MO DIFIED_SIT E_ID,
  711                    :new .RECORD_MO DIFIED_SRC _NAME,
  712                    mDML
  713                    );
  714           en d if;
  715  
  716   end VA_PER SON_CLASS_ DET_audir_ trgr;
  717   /
  718   DROP TRIGG ER ADR.USE R_ROLES_AU DIR_TRGR;
  719  
  720   CREATE OR  REPLACE TR IGGER ADR. USER_ROLES _audir_trg r
  721   after Upda te or Dele te or Inse rt
  722   ON ADR.USE R_ROLES
  723   for each r ow
  724   declare
  725           mD ML char(1) ;
  726   begin
  727  
  728           if  DELETING  then
  729                    inse rt into US ER_ROLES_H
  730                    (
  731                    USER _ROLES_H_I D,
  732                    USER _ROLE_ID,
  733                    INAC TIVE_FLAG,
  734                    INAC TIVE_DATE,
  735                    RECO RD_CREATED _BY,
  736                    RECO RD_CREATED _DATE,
  737                    RECO RD_MODIFIE D_BY,
  738                    RECO RD_MODIFIE D_DATE,
  739                    USER ID,
  740                    ROLE _ID,
  741                    RECO RD_MODIFIE D_COUNT,
  742                    TRAN SACTION_TY PE_CODE
  743                    )
  744                    valu es
  745                    (
  746                    USER _ROLES_H_S .nextval,
  747                    :old .USER_ROLE _ID,
  748                    :old .INACTIVE_ FLAG,
  749                    :old .INACTIVE_ DATE,
  750                    :old .RECORD_CR EATED_BY,
  751                    :old .RECORD_CR EATED_DATE ,
  752                    :old .RECORD_MO DIFIED_BY,
  753                    :old .RECORD_MO DIFIED_DAT E,
  754                    :old .USERID,
  755                    :old .ROLE_ID,
  756                    :old .RECORD_MO DIFIED_COU NT,
  757                    'D'
  758                    );
  759           el se
  760                    if U PDATING th en
  761                             mDML : = 'U';
  762                    else
  763                             mDML : = 'I';
  764                    end  if;
  765  
  766                    inse rt into US ER_ROLES_H
  767                    (
  768                    USER _ROLES_H_I D,
  769                    USER _ROLE_ID,
  770                    INAC TIVE_FLAG,
  771                    INAC TIVE_DATE,
  772                    RECO RD_CREATED _BY,
  773                    RECO RD_CREATED _DATE,
  774                    RECO RD_MODIFIE D_BY,
  775                    RECO RD_MODIFIE D_DATE,
  776                    USER ID,
  777                    ROLE _ID,
  778                    RECO RD_MODIFIE D_COUNT,
  779                    TRAN SACTION_TY PE_CODE
  780                    )
  781                    valu es
  782                    (
  783                    USER _ROLES_H_S .nextval,
  784                    :new .USER_ROLE _ID,
  785                    :new .INACTIVE_ FLAG,
  786                    :new .INACTIVE_ DATE,
  787                    :new .RECORD_CR EATED_BY,
  788                    :new .RECORD_CR EATED_DATE ,
  789                    :new .RECORD_MO DIFIED_BY,
  790                    :new .RECORD_MO DIFIED_DAT E,
  791                    :new .USERID,
  792                    :new .ROLE_ID,
  793                    :new .RECORD_MO DIFIED_COU NT,
  794                    mDML
  795                    );
  796           en d if;
  797  
  798   end USER_R OLES_audir _trgr;
  799   /
  800   DROP TRIGG ER ADR.USE R_PERM_SET _AUDIR_TRG R;
  801  
  802   CREATE OR  REPLACE TR IGGER ADR. USER_PERM_ SET_audir_ trgr
  803   after Upda te or Dele te or Inse rt
  804   ON ADR.USE R_PERMISSI ON_SETS
  805   for each r ow
  806   declare
  807           mD ML char(1) ;
  808   begin
  809  
  810           if  DELETING  then
  811                    inse rt into US ER_PERMISS ION_SETS_H
  812                    (
  813                    USER _PERMISSIO N_SET_H_ID ,
  814                    USER _PERMISSIO N_SET_ID,
  815                    USER ID,
  816                    PERM ISSION_SET _ID,
  817                    RECO RD_CREATED _BY,
  818                    RECO RD_CREATED _DATE,
  819                    RECO RD_MODIFIE D_BY,
  820                    RECO RD_MODIFIE D_DATE,
  821                    RECO RD_MODIFIE D_COUNT,
  822                    TRAN SACTION_TY PE_CODE
  823                    )
  824                    valu es
  825                    (
  826                    USER _PERMISSIO N_SETS_H_S .nextval,
  827                    :old .USER_PERM ISSION_SET _ID,
  828                    :old .USERID,
  829                    :old .PERMISSIO N_SET_ID,
  830                    :old .RECORD_CR EATED_BY,
  831                    :old .RECORD_CR EATED_DATE ,
  832                    :old .RECORD_MO DIFIED_BY,
  833                    :old .RECORD_MO DIFIED_DAT E,
  834                    :old .RECORD_MO DIFIED_COU NT,
  835                    'D'
  836                    );
  837           el se
  838                    if U PDATING th en
  839                             mDML : = 'U';
  840                    else
  841                             mDML : = 'I';
  842                    end  if;
  843  
  844                    inse rt into US ER_PERMISS ION_SETS_H
  845                    (
  846                    USER _PERMISSIO N_SET_H_ID ,
  847                    USER _PERMISSIO N_SET_ID,
  848                    USER ID,
  849                    PERM ISSION_SET _ID,
  850                    RECO RD_CREATED _BY,
  851                    RECO RD_CREATED _DATE,
  852                    RECO RD_MODIFIE D_BY,
  853                    RECO RD_MODIFIE D_DATE,
  854                    RECO RD_MODIFIE D_COUNT,
  855                    TRAN SACTION_TY PE_CODE
  856                    )
  857                    valu es
  858                    (
  859                    USER _PERMISSIO N_SETS_H_S .nextval,
  860                    :new .USER_PERM ISSION_SET _ID,
  861                    :new .USERID,
  862                    :new .PERMISSIO N_SET_ID,
  863                    :new .RECORD_CR EATED_BY,
  864                    :new .RECORD_CR EATED_DATE ,
  865                    :new .RECORD_MO DIFIED_BY,
  866                    :new .RECORD_MO DIFIED_DAT E,
  867                    :new .RECORD_MO DIFIED_COU NT,
  868                    mDML
  869                    );
  870           en d if;
  871  
  872   end USER_P ERM_SET_au dir_trgr;
  873   /
  874   DROP TRIGG ER ADR.USE R_PERMISSI ONS_AUDIR_ TRGR;
  875  
  876   CREATE OR  REPLACE TR IGGER ADR. USER_PERMI SSIONS_aud ir_trgr
  877   after Upda te or Dele te or Inse rt
  878   ON ADR.USE R_PERMISSI ONS
  879   for each r ow
  880   declare
  881           mD ML char(1) ;
  882   begin
  883  
  884           if  DELETING  then
  885                    inse rt into US ER_PERMISS IONS_H
  886                    (
  887                    USER _PERMISSIO NS_H_ID,
  888                    USER _PERMISSIO N_ID,
  889                    USER ID,
  890                    PERM ISSION_TYP E_ID,
  891                    ACTI VE_DATE,
  892                    INAC TIVE_DATE,
  893                    RECO RD_CREATED _BY,
  894                    RECO RD_CREATED _DATE,
  895                    RECO RD_MODIFIE D_BY,
  896                    RECO RD_MODIFIE D_DATE,
  897                    RECO RD_MODIFIE D_COUNT,
  898                    TRAN SACTION_TY PE_CODE
  899                    )
  900                    valu es
  901                    (
  902                    USER _PERMISSIO NS_H_S.nex tval,
  903                    :old .USER_PERM ISSION_ID,
  904                    :old .USERID,
  905                    :old .PERMISSIO N_TYPE_ID,
  906                    :old .ACTIVE_DA TE,
  907                    :old .INACTIVE_ DATE,
  908                    :old .RECORD_CR EATED_BY,
  909                    :old .RECORD_CR EATED_DATE ,
  910                    :old .RECORD_MO DIFIED_BY,
  911                    :old .RECORD_MO DIFIED_DAT E,
  912                    :old .RECORD_MO DIFIED_COU NT,
  913                    'D'
  914                    );
  915           el se
  916                    if U PDATING th en
  917                             mDML : = 'U';
  918                    else
  919                             mDML : = 'I';
  920                    end  if;
  921  
  922                    inse rt into US ER_PERMISS IONS_H
  923                    (
  924                    USER _PERMISSIO NS_H_ID,
  925                    USER _PERMISSIO N_ID,
  926                    USER ID,
  927                    PERM ISSION_TYP E_ID,
  928                    ACTI VE_DATE,
  929                    INAC TIVE_DATE,
  930                    RECO RD_CREATED _BY,
  931                    RECO RD_CREATED _DATE,
  932                    RECO RD_MODIFIE D_BY,
  933                    RECO RD_MODIFIE D_DATE,
  934                    RECO RD_MODIFIE D_COUNT,
  935                    TRAN SACTION_TY PE_CODE
  936                    )
  937                    valu es
  938                    (
  939                    USER _PERMISSIO NS_H_S.nex tval,
  940                    :new .USER_PERM ISSION_ID,
  941                    :new .USERID,
  942                    :new .PERMISSIO N_TYPE_ID,
  943                    :new .ACTIVE_DA TE,
  944                    :new .INACTIVE_ DATE,
  945                    :new .RECORD_CR EATED_BY,
  946                    :new .RECORD_CR EATED_DATE ,
  947                    :new .RECORD_MO DIFIED_BY,
  948                    :new .RECORD_MO DIFIED_DAT E,
  949                    :new .RECORD_MO DIFIED_COU NT,
  950                    mDML
  951                    );
  952           en d if;
  953  
  954   end USER_P ERMISSIONS _audir_trg r;
  955   /
  956   DROP TRIGG ER ADR.USE R_LOGIN_AU DIR_TRGR;
  957  
  958   CREATE OR  REPLACE TR IGGER ADR. USER_LOGIN _audir_trg r
  959   after Upda te or Dele te or Inse rt
  960   ON ADR.USE R_LOGIN
  961   for each r ow
  962   declare
  963           mD ML char(1) ;
  964   begin
  965  
  966           if  DELETING  then
  967                    inse rt into US ER_LOGIN_H
  968                    (
  969                    USER _LOGIN_H_I D,
  970                    ID,
  971                    USER ID,
  972                    LAST _LOGIN_SUC CESS_DATE,
  973                    LAST _LOGIN_FAI LURE_DATE,
  974                    RECO RD_CREATED _BY,
  975                    RECO RD_CREATED _DATE,
  976                    RECO RD_MODIFIE D_BY,
  977                    RECO RD_MODIFIE D_DATE,
  978                    RECO RD_MODIFIE D_COUNT,
  979                    TRAN SACTION_TY PE_CODE
  980                    )
  981                    valu es
  982                    (
  983                    USER _LOGIN_H_S .nextval,
  984                    :old .ID,
  985                    :old .USERID,
  986                    :old .LAST_LOGI N_SUCCESS_ DATE,
  987                    :old .LAST_LOGI N_FAILURE_ DATE,
  988                    :old .RECORD_CR EATED_BY,
  989                    :old .RECORD_CR EATED_DATE ,
  990                    :old .RECORD_MO DIFIED_BY,
  991                    :old .RECORD_MO DIFIED_DAT E,
  992                    :old .RECORD_MO DIFIED_COU NT,
  993                    'D'
  994                    );
  995           el se
  996                    if U PDATING th en
  997                             mDML : = 'U';
  998                    else
  999                             mDML : = 'I';
  1000                    end  if;
  1001  
  1002                    inse rt into US ER_LOGIN_H
  1003                    (
  1004                    USER _LOGIN_H_I D,
  1005                    ID,
  1006                    USER ID,
  1007                    LAST _LOGIN_SUC CESS_DATE,
  1008                    LAST _LOGIN_FAI LURE_DATE,
  1009                    RECO RD_CREATED _BY,
  1010                    RECO RD_CREATED _DATE,
  1011                    RECO RD_MODIFIE D_BY,
  1012                    RECO RD_MODIFIE D_DATE,
  1013                    RECO RD_MODIFIE D_COUNT,
  1014                    TRAN SACTION_TY PE_CODE
  1015                    )
  1016                    valu es
  1017                    (
  1018                    USER _LOGIN_H_S .nextval,
  1019                    :new .ID,
  1020                    :new .USERID,
  1021                    :new .LAST_LOGI N_SUCCESS_ DATE,
  1022                    :new .LAST_LOGI N_FAILURE_ DATE,
  1023                    :new .RECORD_CR EATED_BY,
  1024                    :new .RECORD_CR EATED_DATE ,
  1025                    :new .RECORD_MO DIFIED_BY,
  1026                    :new .RECORD_MO DIFIED_DAT E,
  1027                    :new .RECORD_MO DIFIED_COU NT,
  1028                    mDML
  1029                    );
  1030           en d if;
  1031  
  1032   end USER_L OGIN_audir _trgr;
  1033   /
  1034   DROP TRIGG ER ADR.USE RS_AUDIR_T RGR;
  1035  
  1036   CREATE OR  REPLACE TR IGGER ADR. USERS_audi r_trgr
  1037   after Upda te or Dele te or Inse rt
  1038   ON ADR.USE RS
  1039   for each r ow
  1040   declare
  1041           mD ML char(1) ;
  1042   begin
  1043  
  1044           if  DELETING  then
  1045                    inse rt into US ERS_H
  1046                    (
  1047                    USER S_H_ID,
  1048                    USER ID,
  1049                    STD_ INSTITUTIO N_ID,
  1050                    USER NAME,
  1051                    FULL _NAME,
  1052                    PASS WORD,
  1053                    PASS WORD_CREAT E_DATE,
  1054                    PASS WORD_CHANG E_DATE,
  1055                    PASS WORD_EXPIR E_DATE,
  1056                    USER _GROUP_TYP E_ID,
  1057                    FIRS T_NAME,
  1058                    MIDD LE_NAME,
  1059                    LAST _NAME,
  1060                    MAID EN_NAME,
  1061                    EMPL OYEE_NUMBE R,
  1062                    EMAI L_ADDRESS,
  1063                    TELE PHONE_NUMB ER,
  1064                    FAX_ NUMBER,
  1065                    JOB_ TITLE,
  1066                    AGRE EMENT_SIGN ATURE_CODE ,
  1067                    SIGN ATURE_VERI FIED_IND,
  1068                    INAC TIVE_FLAG,
  1069                    INAC TIVE_DATE,
  1070                    RECO RD_CREATED _BY,
  1071                    RECO RD_CREATED _DATE,
  1072                    RECO RD_MODIFIE D_BY,
  1073                    RECO RD_MODIFIE D_DATE,
  1074                    ACCO UNT_EXPIRE _DATE,
  1075                    ACCO UNT_LOCK_D ATE,
  1076                    NUMB ER_OF_LOGI N_ATTEMPTS ,
  1077                    INIT IAL_LOGIN_ DATE,
  1078                    RECO RD_MODIFIE D_COUNT,
  1079                    TRAN SACTION_TY PE_CODE
  1080                    )
  1081                    valu es
  1082                    (
  1083                    USER S_H_S.next val,
  1084                    :old .USERID,
  1085                    :old .STD_INSTI TUTION_ID,
  1086                    :old .USERNAME,
  1087                    :old .FULL_NAME ,
  1088                    :old .PASSWORD,
  1089                    :old .PASSWORD_ CREATE_DAT E,
  1090                    :old .PASSWORD_ CHANGE_DAT E,
  1091                    :old .PASSWORD_ EXPIRE_DAT E,
  1092                    :old .USER_GROU P_TYPE_ID,
  1093                    :old .FIRST_NAM E,
  1094                    :old .MIDDLE_NA ME,
  1095                    :old .LAST_NAME ,
  1096                    :old .MAIDEN_NA ME,
  1097                    :old .EMPLOYEE_ NUMBER,
  1098                    :old .EMAIL_ADD RESS,
  1099                    :old .TELEPHONE _NUMBER,
  1100                    :old .FAX_NUMBE R,
  1101                    :old .JOB_TITLE ,
  1102                    :old .AGREEMENT _SIGNATURE _CODE,
  1103                    :old .SIGNATURE _VERIFIED_ IND,
  1104                    :old .INACTIVE_ FLAG,
  1105                    :old .INACTIVE_ DATE,
  1106                    :old .RECORD_CR EATED_BY,
  1107                    :old .RECORD_CR EATED_DATE ,
  1108                    :old .RECORD_MO DIFIED_BY,
  1109                    :old .RECORD_MO DIFIED_DAT E,
  1110                    :old .ACCOUNT_E XPIRE_DATE ,
  1111                    :old .ACCOUNT_L OCK_DATE,
  1112                    :old .NUMBER_OF _LOGIN_ATT EMPTS,
  1113                    :old .INITIAL_L OGIN_DATE,
  1114                    :old .RECORD_MO DIFIED_COU NT,
  1115                    'D'
  1116                    );
  1117           el se
  1118                    if U PDATING th en
  1119                             mDML : = 'U';
  1120                    else
  1121                             mDML : = 'I';
  1122                    end  if;
  1123  
  1124                    inse rt into US ERS_H
  1125                    (
  1126                    USER S_H_ID,
  1127                    USER ID,
  1128                    STD_ INSTITUTIO N_ID,
  1129                    USER NAME,
  1130                    FULL _NAME,
  1131                    PASS WORD,
  1132                    PASS WORD_CREAT E_DATE,
  1133                    PASS WORD_CHANG E_DATE,
  1134                    PASS WORD_EXPIR E_DATE,
  1135                    USER _GROUP_TYP E_ID,
  1136                    FIRS T_NAME,
  1137                    MIDD LE_NAME,
  1138                    LAST _NAME,
  1139                    MAID EN_NAME,
  1140                    EMPL OYEE_NUMBE R,
  1141                    EMAI L_ADDRESS,
  1142                    TELE PHONE_NUMB ER,
  1143                    FAX_ NUMBER,
  1144                    JOB_ TITLE,
  1145                    AGRE EMENT_SIGN ATURE_CODE ,
  1146                    SIGN ATURE_VERI FIED_IND,
  1147                    INAC TIVE_FLAG,
  1148                    INAC TIVE_DATE,
  1149                    RECO RD_CREATED _BY,
  1150                    RECO RD_CREATED _DATE,
  1151                    RECO RD_MODIFIE D_BY,
  1152                    RECO RD_MODIFIE D_DATE,
  1153                    ACCO UNT_EXPIRE _DATE,
  1154                    ACCO UNT_LOCK_D ATE,
  1155                    NUMB ER_OF_LOGI N_ATTEMPTS ,
  1156                    INIT IAL_LOGIN_ DATE,
  1157                    RECO RD_MODIFIE D_COUNT,
  1158                    TRAN SACTION_TY PE_CODE
  1159                    )
  1160                    valu es
  1161                    (
  1162                    USER S_H_S.next val,
  1163                    :new .USERID,
  1164                    :new .STD_INSTI TUTION_ID,
  1165                    :new .USERNAME,
  1166                    :new .FULL_NAME ,
  1167                    :new .PASSWORD,
  1168                    :new .PASSWORD_ CREATE_DAT E,
  1169                    :new .PASSWORD_ CHANGE_DAT E,
  1170                    :new .PASSWORD_ EXPIRE_DAT E,
  1171                    :new .USER_GROU P_TYPE_ID,
  1172                    :new .FIRST_NAM E,
  1173                    :new .MIDDLE_NA ME,
  1174                    :new .LAST_NAME ,
  1175                    :new .MAIDEN_NA ME,
  1176                    :new .EMPLOYEE_ NUMBER,
  1177                    :new .EMAIL_ADD RESS,
  1178                    :new .TELEPHONE _NUMBER,
  1179                    :new .FAX_NUMBE R,
  1180                    :new .JOB_TITLE ,
  1181                    :new .AGREEMENT _SIGNATURE _CODE,
  1182                    :new .SIGNATURE _VERIFIED_ IND,
  1183                    :new .INACTIVE_ FLAG,
  1184                    :new .INACTIVE_ DATE,
  1185                    :new .RECORD_CR EATED_BY,
  1186                    :new .RECORD_CR EATED_DATE ,
  1187                    :new .RECORD_MO DIFIED_BY,
  1188                    :new .RECORD_MO DIFIED_DAT E,
  1189                    :new .ACCOUNT_E XPIRE_DATE ,
  1190                    :new .ACCOUNT_L OCK_DATE,
  1191                    :new .NUMBER_OF _LOGIN_ATT EMPTS,
  1192                    :new .INITIAL_L OGIN_DATE,
  1193                    :new .RECORD_MO DIFIED_COU NT,
  1194                    mDML
  1195                    );
  1196           en d if;
  1197  
  1198   end USERS_ audir_trgr ;
  1199   /
  1200   DROP TRIGG ER ADR.SSN _AUDIR_TRG R;
  1201  
  1202   CREATE OR  REPLACE TR IGGER ADR. SSN_AUDIR_ TRGR AFTER  UPDATE OR  INSERT OR  DELETE ON  "ADR"."SS N" FOR EAC H ROW
  1203   declare
  1204           mD ML char(1) ;
  1205   begin
  1206  
  1207           if  DELETING  then
  1208                    inse rt into SS N_H
  1209                    (
  1210                    SSN_ H_ID,
  1211                    SSN_ ID,
  1212                    PERS ON_ID,
  1213                    PERS ON_RELATIO N_ID,
  1214                    STD_ SSNTYPE_ID ,
  1215                    PSEU DO_SSN_REA SON_TYPE_I D,
  1216                    SSN_ CHANGE_SOU RCE_TYPE_I D,
  1217                    SSN_ VRFN_STATU S_TYPE_ID,
  1218                    SSA_ MESSAGE_TY PE_ID,
  1219                    SSN,
  1220                    SSA_ VERIFIED_D ATE,
  1221                    RECO RD_CREATED _BY,
  1222                    RECO RD_CREATED _DATE,
  1223                    RECO RD_MODIFIE D_BY,
  1224                    RECO RD_MODIFIE D_DATE,
  1225                    RECO RD_MODIFIE D_COUNT,
  1226                    TRAN SACTION_TY PE_CODE
  1227                    )
  1228                    valu es
  1229                    (
  1230                    SSN_ H_S.nextva l,
  1231                    :old .SSN_ID,
  1232                    :old .PERSON_ID ,
  1233                    :old .PERSON_RE LATION_ID,
  1234                    :old .STD_SSNTY PE_ID,
  1235                    :old .PSEUDO_SS N_REASON_T YPE_ID,
  1236                    :old .SSN_CHANG E_SOURCE_T YPE_ID,
  1237                    :old .SSN_VRFN_ STATUS_TYP E_ID,
  1238                    :old .SSA_MESSA GE_TYPE_ID ,
  1239                    :old .SSN,
  1240                    :old .SSA_VERIF IED_DATE,
  1241                    :old .RECORD_CR EATED_BY,
  1242                    :old .RECORD_CR EATED_DATE ,
  1243                    :old .RECORD_MO DIFIED_BY,
  1244                    :old .RECORD_MO DIFIED_DAT E,
  1245                    :old .RECORD_MO DIFIED_COU NT,
  1246                    'D'
  1247                    );
  1248           el se
  1249                    if U PDATING th en
  1250                             mDML : = 'U';
  1251                    else
  1252                             mDML : = 'I';
  1253                    end  if;
  1254  
  1255                    inse rt into SS N_H
  1256                    (
  1257                    SSN_ H_ID,
  1258                    SSN_ ID,
  1259                    PERS ON_ID,
  1260                    PERS ON_RELATIO N_ID,
  1261                    STD_ SSNTYPE_ID ,
  1262                    PSEU DO_SSN_REA SON_TYPE_I D,
  1263                    SSN_ CHANGE_SOU RCE_TYPE_I D,
  1264                    SSN_ VRFN_STATU S_TYPE_ID,
  1265                    SSA_ MESSAGE_TY PE_ID,
  1266                    SSN,
  1267                    SSA_ VERIFIED_D ATE,
  1268                    RECO RD_CREATED _BY,
  1269                    RECO RD_CREATED _DATE,
  1270                    RECO RD_MODIFIE D_BY,
  1271                    RECO RD_MODIFIE D_DATE,
  1272                    RECO RD_MODIFIE D_COUNT,
  1273                    TRAN SACTION_TY PE_CODE
  1274                    )
  1275                    valu es
  1276                    (
  1277                    SSN_ H_S.nextva l,
  1278                    :new .SSN_ID,
  1279                    :new .PERSON_ID ,
  1280                    :new .PERSON_RE LATION_ID,
  1281                    :new .STD_SSNTY PE_ID,
  1282                    :new .PSEUDO_SS N_REASON_T YPE_ID,
  1283                    :new .SSN_CHANG E_SOURCE_T YPE_ID,
  1284                    :new .SSN_VRFN_ STATUS_TYP E_ID,
  1285                    :new .SSA_MESSA GE_TYPE_ID ,
  1286                    :new .SSN,
  1287                    :new .SSA_VERIF IED_DATE,
  1288                    :new .RECORD_CR EATED_BY,
  1289                    :new .RECORD_CR EATED_DATE ,
  1290                    :new .RECORD_MO DIFIED_BY,
  1291                    :new .RECORD_MO DIFIED_DAT E,
  1292                    :new .RECORD_MO DIFIED_COU NT,
  1293                    mDML
  1294                    );
  1295           en d if;
  1296  
  1297   end SSN_au dir_trgr;
  1298   /
  1299   DROP TRIGG ER ADR.SPE CIAL_FACTO R_AUDIR_TR GR;
  1300  
  1301   CREATE OR  REPLACE TR IGGER ADR. SPECIAL_FA CTOR_AUDIR _TRGR AFTE R UPDATE O R INSERT O R DELETE O N "ADR"."S PECIAL_FAC TOR" FOR E ACH ROW
  1302   declare
  1303       mDML c har(1);
  1304   begin
  1305  
  1306     if DELET ING then
  1307       insert  into SPEC IAL_FACTOR _H
  1308       (
  1309       SPECIA L_FACTOR_H _ID,
  1310       SPECIA L_FACTOR_I D,
  1311       SPCL_F ACTOR_MAPP ING_TYPE_C ODE,
  1312       SPECIA L_FACTOR_R EGISTER_NU MBER,
  1313       SPECIA L_FACTOR_R EG_DATE_TX T,
  1314       SPECIA L_FACTOR_E XAM_DATE_T XT,
  1315       REMARK S,
  1316       SPECIA L_FACTOR_S TDYESNO_ID ,
  1317       RECORD _CREATED_B Y,
  1318       RECORD _CREATED_D ATE,
  1319       RECORD _MODIFIED_ BY,
  1320       RECORD _MODIFIED_ DATE,
  1321       RADIAT ION_EXP_ME THOD_TYPE_ ID,
  1322       PERSON _ID,
  1323       AGENT_ ORANGE_LOC ATION_TYPE _ID,
  1324       RECORD _MODIFIED_ COUNT,
  1325       CL_VER IFICATION_ METHOD_COD E,
  1326       CL_CHA NGE_SITE,
  1327       CL_COM MENT,
  1328       CL_SOU RCE_OF_CHA NGE,
  1329       HISTOR Y_CREATED_ DATE,
  1330       TRANSA CTION_TYPE _CODE
  1331  
  1332       )
  1333       values
  1334       (
  1335       SPECIA L_FACTOR_H _S.nextval ,
  1336       :old.S PECIAL_FAC TOR_ID,
  1337       :old.S PCL_FACTOR _MAPPING_T YPE_CODE,
  1338       :old.S PECIAL_FAC TOR_REGIST ER_NUMBER,
  1339       :old.S PECIAL_FAC TOR_REG_DA TE_TXT,
  1340       :old.S PECIAL_FAC TOR_EXAM_D ATE_TXT,
  1341       :old.R EMARKS,
  1342       :old.S PECIAL_FAC TOR_STDYES NO_ID,
  1343       :old.R ECORD_CREA TED_BY,
  1344       :old.R ECORD_CREA TED_DATE,
  1345       :old.R ECORD_MODI FIED_BY,
  1346       :old.R ECORD_MODI FIED_DATE,
  1347       :old.R ADIATION_E XP_METHOD_ TYPE_ID,
  1348       :old.P ERSON_ID,
  1349       :old.A GENT_ORANG E_LOCATION _TYPE_ID,
  1350       :old.R ECORD_MODI FIED_COUNT ,
  1351       :old.C L_VERIFICA TION_METHO D_CODE,
  1352       :old.C L_CHANGE_S ITE,
  1353       :old.C L_COMMENT,
  1354       :old.C L_SOURCE_O F_CHANGE,
  1355       SYSDAT E,
  1356       'D'
  1357       );
  1358  
  1359     else
  1360       if UPD ATING then
  1361         mDML  := 'U';
  1362       else
  1363         mDML  := 'I';
  1364       end if ;
  1365  
  1366       insert  into SPEC IAL_FACTOR _H
  1367       (
  1368       SPECIA L_FACTOR_H _ID,
  1369       SPECIA L_FACTOR_I D,
  1370       SPCL_F ACTOR_MAPP ING_TYPE_C ODE,
  1371       SPECIA L_FACTOR_R EGISTER_NU MBER,
  1372       SPECIA L_FACTOR_R EG_DATE_TX T,
  1373       SPECIA L_FACTOR_E XAM_DATE_T XT,
  1374       REMARK S,
  1375       SPECIA L_FACTOR_S TDYESNO_ID ,
  1376       RECORD _CREATED_B Y,
  1377       RECORD _CREATED_D ATE,
  1378       RECORD _MODIFIED_ BY,
  1379       RECORD _MODIFIED_ DATE,
  1380       RADIAT ION_EXP_ME THOD_TYPE_ ID,
  1381       PERSON _ID,
  1382       AGENT_ ORANGE_LOC ATION_TYPE _ID,
  1383       RECORD _MODIFIED_ COUNT,
  1384       CL_VER IFICATION_ METHOD_COD E,
  1385       CL_CHA NGE_SITE,
  1386       CL_COM MENT,
  1387       CL_SOU RCE_OF_CHA NGE,
  1388       HISTOR Y_CREATED_ DATE,
  1389       TRANSA CTION_TYPE _CODE
  1390       )
  1391       values
  1392       (
  1393       SPECIA L_FACTOR_H _S.nextval ,
  1394       :new.S PECIAL_FAC TOR_ID,
  1395       :new.S PCL_FACTOR _MAPPING_T YPE_CODE,
  1396       :new.S PECIAL_FAC TOR_REGIST ER_NUMBER,
  1397       :new.S PECIAL_FAC TOR_REG_DA TE_TXT,
  1398       :new.S PECIAL_FAC TOR_EXAM_D ATE_TXT,
  1399       :new.R EMARKS,
  1400       :new.S PECIAL_FAC TOR_STDYES NO_ID,
  1401       :new.R ECORD_CREA TED_BY,
  1402       :new.R ECORD_CREA TED_DATE,
  1403       :new.R ECORD_MODI FIED_BY,
  1404       :new.R ECORD_MODI FIED_DATE,
  1405       :new.R ADIATION_E XP_METHOD_ TYPE_ID,
  1406       :new.P ERSON_ID,
  1407       :new.A GENT_ORANG E_LOCATION _TYPE_ID,
  1408       :new.R ECORD_MODI FIED_COUNT ,
  1409       :new.C L_VERIFICA TION_METHO D_CODE,
  1410       :new.C L_CHANGE_S ITE,
  1411       :new.C L_COMMENT,
  1412       :new.C L_SOURCE_O F_CHANGE,
  1413       SYSDAT E,
  1414       mDML
  1415       );
  1416  
  1417     end if;
  1418  
  1419   end SPECIA L_FACTOR_a udir_trgr;
  1420   /
  1421   DROP TRIGG ER ADR.SIT E_RECEIVED _ENROL_AUD IR_TRGR;
  1422  
  1423   CREATE OR  REPLACE TR IGGER ADR. SITE_RECEI VED_ENROL_ audir_trgr
  1424   after Upda te or Dele te or Inse rt
  1425   ON ADR.SIT E_RECEIVED _ENROLLMEN T
  1426   for each r ow
  1427   declare
  1428           mD ML char(1) ;
  1429   begin
  1430  
  1431           if  DELETING  then
  1432                    inse rt into SI TE_RECEIVE D_ENROLLME NT_H
  1433                    (
  1434                    SITE _RECEIVED_ ENROLLMENT _H_ID,
  1435                    SITE _RECEIVED_ ENROLLMENT _ID,
  1436                    ENRO LLMENT_STA RT_DATE,
  1437                    ENRO LLMENT_END _DATE,
  1438                    ENRO LLMENT_CHA NGE_EFCTV_ DATE,
  1439                    OVER RIDE_IND,
  1440                    REMA RKS,
  1441                    RECO RD_CREATED _BY,
  1442                    RECO RD_CREATED _DATE,
  1443                    RECO RD_MODIFIE D_BY,
  1444                    RECO RD_MODIFIE D_DATE,
  1445                    STD_ ENROLLMENT STATUS_ID,
  1446                    PRIO RITY_GROUP _TYPE_ID,
  1447                    ENRO LLMENT_DAT A_SRC_TYPE _ID,
  1448                    STD_ INSTITUTIO N_ID,
  1449                    PRIO RITY_SUB_G ROUP_TYPE_ ID,
  1450                    PERS ON_ID,
  1451                    RECO RD_MODIFIE D_COUNT,
  1452                    TRAN SACTION_TY PE_CODE
  1453                    )
  1454                    valu es
  1455                    (
  1456                    SITE _RECEIVED_ ENROLLMENT _H_S.nextv al,
  1457                    :old .SITE_RECE IVED_ENROL LMENT_ID,
  1458                    :old .ENROLLMEN T_START_DA TE,
  1459                    :old .ENROLLMEN T_END_DATE ,
  1460                    :old .ENROLLMEN T_CHANGE_E FCTV_DATE,
  1461                    :old .OVERRIDE_ IND,
  1462                    :old .REMARKS,
  1463                    :old .RECORD_CR EATED_BY,
  1464                    :old .RECORD_CR EATED_DATE ,
  1465                    :old .RECORD_MO DIFIED_BY,
  1466                    :old .RECORD_MO DIFIED_DAT E,
  1467                    :old .STD_ENROL LMENTSTATU S_ID,
  1468                    :old .PRIORITY_ GROUP_TYPE _ID,
  1469                    :old .ENROLLMEN T_DATA_SRC _TYPE_ID,
  1470                    :old .STD_INSTI TUTION_ID,
  1471                    :old .PRIORITY_ SUB_GROUP_ TYPE_ID,
  1472                    :old .PERSON_ID ,
  1473                    :old .RECORD_MO DIFIED_COU NT,
  1474                    'D'
  1475                    );
  1476           el se
  1477                    if U PDATING th en
  1478                             mDML : = 'U';
  1479                    else
  1480                             mDML : = 'I';
  1481                    end  if;
  1482  
  1483                    inse rt into SI TE_RECEIVE D_ENROLLME NT_H
  1484                    (
  1485                    SITE _RECEIVED_ ENROLLMENT _H_ID,
  1486                    SITE _RECEIVED_ ENROLLMENT _ID,
  1487                    ENRO LLMENT_STA RT_DATE,
  1488                    ENRO LLMENT_END _DATE,
  1489                    ENRO LLMENT_CHA NGE_EFCTV_ DATE,
  1490                    OVER RIDE_IND,
  1491                    REMA RKS,
  1492                    RECO RD_CREATED _BY,
  1493                    RECO RD_CREATED _DATE,
  1494                    RECO RD_MODIFIE D_BY,
  1495                    RECO RD_MODIFIE D_DATE,
  1496                    STD_ ENROLLMENT STATUS_ID,
  1497                    PRIO RITY_GROUP _TYPE_ID,
  1498                    ENRO LLMENT_DAT A_SRC_TYPE _ID,
  1499                    STD_ INSTITUTIO N_ID,
  1500                    PRIO RITY_SUB_G ROUP_TYPE_ ID,
  1501                    PERS ON_ID,
  1502                    RECO RD_MODIFIE D_COUNT,
  1503                    TRAN SACTION_TY PE_CODE
  1504                    )
  1505                    valu es
  1506                    (
  1507                    SITE _RECEIVED_ ENROLLMENT _H_S.nextv al,
  1508                    :new .SITE_RECE IVED_ENROL LMENT_ID,
  1509                    :new .ENROLLMEN T_START_DA TE,
  1510                    :new .ENROLLMEN T_END_DATE ,
  1511                    :new .ENROLLMEN T_CHANGE_E FCTV_DATE,
  1512                    :new .OVERRIDE_ IND,
  1513                    :new .REMARKS,
  1514                    :new .RECORD_CR EATED_BY,
  1515                    :new .RECORD_CR EATED_DATE ,
  1516                    :new .RECORD_MO DIFIED_BY,
  1517                    :new .RECORD_MO DIFIED_DAT E,
  1518                    :new .STD_ENROL LMENTSTATU S_ID,
  1519                    :new .PRIORITY_ GROUP_TYPE _ID,
  1520                    :new .ENROLLMEN T_DATA_SRC _TYPE_ID,
  1521                    :new .STD_INSTI TUTION_ID,
  1522                    :new .PRIORITY_ SUB_GROUP_ TYPE_ID,
  1523                    :new .PERSON_ID ,
  1524                    :new .RECORD_MO DIFIED_COU NT,
  1525                    mDML
  1526                    );
  1527           en d if;
  1528  
  1529   end SITE_R ECEIVED_EN ROL_audir_ trgr;
  1530   /
  1531   DROP TRIGG ER ADR.SIT E_RECEIVED _ELIG_AUDI R_TRGR;
  1532  
  1533   CREATE OR  REPLACE TR IGGER ADR. SITE_RECEI VED_ELIG_A UDIR_TRGR  AFTER UPDA TE OR INSE RT OR DELE TE ON "ADR "."SITE_RE CEIVED_ELI GIBILITY"  FOR EACH R OW
  1534   declare
  1535           mD ML char(1) ;
  1536   begin
  1537  
  1538           if  DELETING  then
  1539                    inse rt into SI TE_RECEIVE D_ELIGIBIL ITY_H
  1540                    (
  1541                    SITE _RECEIVED_ ELIGIBILIT Y_H_ID,
  1542                    SITE _RECEIVED_ ELIGIBILIT Y_ID,
  1543                    ELIG IBILITY_EF FECTIVE_DA TE,
  1544                    ELIG IBILITY_EX PIRATION_D ATE,
  1545                    ELIG IBILITY_ST ATUS_DATE,
  1546                    STAT US_DATE_TX T,
  1547                    PRIM ARY_SECOND ARY_OR_OTH ER_IND,
  1548                    RECO RD_CREATED _BY,
  1549                    RECO RD_CREATED _DATE,
  1550                    RECO RD_MODIFIE D_BY,
  1551                    RECO RD_MODIFIE D_DATE,
  1552                    PERS ON_ID,
  1553                    STD_ INSTITUTIO N_ID,
  1554                    ELIG IBILITY_TY PE_ID,
  1555                    RECO RD_MODIFIE D_COUNT,
  1556                    ALLI ED_COUNTRY _TYPE_ID,
  1557                    FEDE RAL_AGENCY _TYPE_ID,
  1558                    TRAN SACTION_TY PE_CODE
  1559                    )
  1560                    valu es
  1561                    (
  1562                    SITE _RECEIVED_ ELIGIBILIT Y_H_S.next val,
  1563                    :old .SITE_RECE IVED_ELIGI BILITY_ID,
  1564                    :old .ELIGIBILI TY_EFFECTI VE_DATE,
  1565                    :old .ELIGIBILI TY_EXPIRAT ION_DATE,
  1566                    :old .ELIGIBILI TY_STATUS_ DATE,
  1567                    :old .STATUS_DA TE_TXT,
  1568                    :old .PRIMARY_S ECONDARY_O R_OTHER_IN D,
  1569                    :old .RECORD_CR EATED_BY,
  1570                    :old .RECORD_CR EATED_DATE ,
  1571                    :old .RECORD_MO DIFIED_BY,
  1572                    :old .RECORD_MO DIFIED_DAT E,
  1573                    :old .PERSON_ID ,
  1574                    :old .STD_INSTI TUTION_ID,
  1575                    :old .ELIGIBILI TY_TYPE_ID ,
  1576                    :old .RECORD_MO DIFIED_COU NT,
  1577                    :old .ALLIED_CO UNTRY_TYPE _ID,
  1578                    :old .FEDERAL_A GENCY_TYPE _ID,
  1579                    'D'
  1580                    );
  1581           el se
  1582                    if U PDATING th en
  1583                             mDML : = 'U';
  1584                    else
  1585                             mDML : = 'I';
  1586                    end  if;
  1587  
  1588                    inse rt into SI TE_RECEIVE D_ELIGIBIL ITY_H
  1589                    (
  1590                    SITE _RECEIVED_ ELIGIBILIT Y_H_ID,
  1591                    SITE _RECEIVED_ ELIGIBILIT Y_ID,
  1592                    ELIG IBILITY_EF FECTIVE_DA TE,
  1593                    ELIG IBILITY_EX PIRATION_D ATE,
  1594                    ELIG IBILITY_ST ATUS_DATE,
  1595                    STAT US_DATE_TX T,
  1596                    PRIM ARY_SECOND ARY_OR_OTH ER_IND,
  1597                    RECO RD_CREATED _BY,
  1598                    RECO RD_CREATED _DATE,
  1599                    RECO RD_MODIFIE D_BY,
  1600                    RECO RD_MODIFIE D_DATE,
  1601                    PERS ON_ID,
  1602                    STD_ INSTITUTIO N_ID,
  1603                    ELIG IBILITY_TY PE_ID,
  1604                    RECO RD_MODIFIE D_COUNT,
  1605                    ALLI ED_COUNTRY _TYPE_ID,
  1606                    FEDE RAL_AGENCY _TYPE_ID,
  1607                    TRAN SACTION_TY PE_CODE
  1608                    )
  1609                    valu es
  1610                    (
  1611                    SITE _RECEIVED_ ELIGIBILIT Y_H_S.next val,
  1612                    :new .SITE_RECE IVED_ELIGI BILITY_ID,
  1613                    :new .ELIGIBILI TY_EFFECTI VE_DATE,
  1614                    :new .ELIGIBILI TY_EXPIRAT ION_DATE,
  1615                    :new .ELIGIBILI TY_STATUS_ DATE,
  1616                    :new .STATUS_DA TE_TXT,
  1617                    :new .PRIMARY_S ECONDARY_O R_OTHER_IN D,
  1618                    :new .RECORD_CR EATED_BY,
  1619                    :new .RECORD_CR EATED_DATE ,
  1620                    :new .RECORD_MO DIFIED_BY,
  1621                    :new .RECORD_MO DIFIED_DAT E,
  1622                    :new .PERSON_ID ,
  1623                    :new .STD_INSTI TUTION_ID,
  1624                    :new .ELIGIBILI TY_TYPE_ID ,
  1625                    :new .RECORD_MO DIFIED_COU NT,
  1626                    :new .ALLIED_CO UNTRY_TYPE _ID,
  1627                    :new .FEDERAL_A GENCY_TYPE _ID,
  1628                    mDML
  1629                    );
  1630           en d if;
  1631  
  1632   end SITE_R ECEIVED_EL IG_audir_t rgr;
  1633   /
  1634   DROP TRIGG ER ADR.SIG NATURE_IMA GE_AUDIR_T RGR;
  1635  
  1636   CREATE OR  REPLACE TR IGGER ADR. SIGNATURE_ IMAGE_audi r_trgr
  1637   after Upda te or Dele te or Inse rt
  1638   ON ADR.SIG NATURE_IMA GE
  1639   for each r ow
  1640   declare
  1641           mD ML char(1) ;
  1642   begin
  1643  
  1644           if  DELETING  then
  1645                    inse rt into SI GNATURE_IM AGE_H
  1646                    (
  1647                    SIGN ATURE_IMAG E_H_ID,
  1648                    SIGN ATURE_IMAG E_ID,
  1649                    SIGN ATURE_INDI CATOR_TYPE _ID,
  1650                    IMAG E_NUMBER,
  1651                    INCO ME_YEAR,
  1652                    INDE XED_DATE,
  1653                    USER NAME,
  1654                    RECO RD_CREATED _BY,
  1655                    RECO RD_CREATED _DATE,
  1656                    RECO RD_MODIFIE D_BY,
  1657                    RECO RD_MODIFIE D_DATE,
  1658                    SUBM ITTING_SIT E_ID,
  1659                    PERS ON_ID,
  1660                    RECO RD_MODIFIE D_COUNT,
  1661                    TRAN SACTION_TY PE_CODE
  1662                    )
  1663                    valu es
  1664                    (
  1665                    SIGN ATURE_IMAG E_H_S.next val,
  1666                    :old .SIGNATURE _IMAGE_ID,
  1667                    :old .SIGNATURE _INDICATOR _TYPE_ID,
  1668                    :old .IMAGE_NUM BER,
  1669                    :old .INCOME_YE AR,
  1670                    :old .INDEXED_D ATE,
  1671                    :old .USERNAME,
  1672                    :old .RECORD_CR EATED_BY,
  1673                    :old .RECORD_CR EATED_DATE ,
  1674                    :old .RECORD_MO DIFIED_BY,
  1675                    :old .RECORD_MO DIFIED_DAT E,
  1676                    :old .SUBMITTIN G_SITE_ID,
  1677                    :old .PERSON_ID ,
  1678                    :old .RECORD_MO DIFIED_COU NT,
  1679                    'D'
  1680                    );
  1681           el se
  1682                    if U PDATING th en
  1683                             mDML : = 'U';
  1684                    else
  1685                             mDML : = 'I';
  1686                    end  if;
  1687  
  1688                    inse rt into SI GNATURE_IM AGE_H
  1689                    (
  1690                    SIGN ATURE_IMAG E_H_ID,
  1691                    SIGN ATURE_IMAG E_ID,
  1692                    SIGN ATURE_INDI CATOR_TYPE _ID,
  1693                    IMAG E_NUMBER,
  1694                    INCO ME_YEAR,
  1695                    INDE XED_DATE,
  1696                    USER NAME,
  1697                    RECO RD_CREATED _BY,
  1698                    RECO RD_CREATED _DATE,
  1699                    RECO RD_MODIFIE D_BY,
  1700                    RECO RD_MODIFIE D_DATE,
  1701                    SUBM ITTING_SIT E_ID,
  1702                    PERS ON_ID,
  1703                    RECO RD_MODIFIE D_COUNT,
  1704                    TRAN SACTION_TY PE_CODE
  1705                    )
  1706                    valu es
  1707                    (
  1708                    SIGN ATURE_IMAG E_H_S.next val,
  1709                    :new .SIGNATURE _IMAGE_ID,
  1710                    :new .SIGNATURE _INDICATOR _TYPE_ID,
  1711                    :new .IMAGE_NUM BER,
  1712                    :new .INCOME_YE AR,
  1713                    :new .INDEXED_D ATE,
  1714                    :new .USERNAME,
  1715                    :new .RECORD_CR EATED_BY,
  1716                    :new .RECORD_CR EATED_DATE ,
  1717                    :new .RECORD_MO DIFIED_BY,
  1718                    :new .RECORD_MO DIFIED_DAT E,
  1719                    :new .SUBMITTIN G_SITE_ID,
  1720                    :new .PERSON_ID ,
  1721                    :new .RECORD_MO DIFIED_COU NT,
  1722                    mDML
  1723                    );
  1724           en d if;
  1725  
  1726   end SIGNAT URE_IMAGE_ audir_trgr ;
  1727   /
  1728   DROP TRIGG ER ADR.SHA D_REGISTRY _DET_AUDIR _TRGR;
  1729  
  1730   CREATE OR  REPLACE TR IGGER ADR. SHAD_REGIS TRY_det_au dir_trgr
  1731   after Upda te or Dele te or Inse rt
  1732   ON ADR.SHA D_REGISTRY _DETAIL
  1733   for each r ow
  1734   declare
  1735           mD ML char(1) ;
  1736   begin
  1737  
  1738           if  DELETING  then
  1739                    inse rt into SH AD_REGISTR Y_DETAIL_H
  1740                    (
  1741                    SHAD _REGISTRY_ DETAIL_H_I D
  1742                    ,SHA D_REGISTRY _DETAIL_ID
  1743                    ,SHA D_REGISTRY _ID
  1744                    ,SHA D_DOCUMENT _TYPE_ID
  1745                    ,DOC UMENT_RECE IVED_DATE
  1746                    ,REC ORD_CREATE D_BY
  1747                    ,REC ORD_CREATE D_DATE
  1748                    ,REC ORD_MODIFI ED_BY
  1749                    ,REC ORD_MODIFI ED_DATE
  1750                    ,REC ORD_MODIFI ED_COUNT
  1751                    ,TRA NSACTION_T YPE_CODE
  1752                    )
  1753                    valu es
  1754                    (
  1755                    SHAD _REGISTRY_ DETAIL_H_S .nextval,
  1756                    :old .SHAD_REGI STRY_DETAI L_ID,
  1757                    :old .SHAD_REGI STRY_ID,
  1758                    :old .SHAD_DOCU MENT_TYPE_ ID,
  1759                    :OLD .DOCUMENT_ RECEIVED_D ATE,
  1760                    :old .RECORD_CR EATED_BY,
  1761                    :old .RECORD_CR EATED_DATE ,
  1762                    :old .RECORD_MO DIFIED_BY,
  1763                    :old .RECORD_MO DIFIED_DAT E,
  1764                    :old .RECORD_MO DIFIED_COU NT,
  1765                    'D'
  1766                    );
  1767           el se
  1768                    if U PDATING th en
  1769                             mDML : = 'U';
  1770                    else
  1771                             mDML : = 'I';
  1772                    end  if;
  1773  
  1774                    inse rt into SH AD_REGISTR Y_DETAIL_H
  1775                    (
  1776                    SHAD _REGISTRY_ DETAIL_H_I D
  1777                    ,SHA D_REGISTRY _DETAIL_ID
  1778                    ,SHA D_REGISTRY _ID
  1779                    ,SHA D_DOCUMENT _TYPE_ID
  1780                    ,DOC UMENT_RECE IVED_DATE
  1781                    ,REC ORD_CREATE D_BY
  1782                    ,REC ORD_CREATE D_DATE
  1783                    ,REC ORD_MODIFI ED_BY
  1784                    ,REC ORD_MODIFI ED_DATE
  1785                    ,REC ORD_MODIFI ED_COUNT
  1786                    ,TRA NSACTION_T YPE_CODE
  1787                    )
  1788                    valu es
  1789                    (
  1790                    SHAD _REGISTRY_ DETAIL_H_S .nextval,
  1791                    :new .SHAD_REGI STRY_DETAI L_ID,
  1792                    :new .SHAD_REGI STRY_ID,
  1793                    :new .SHAD_DOCU MENT_TYPE_ ID,
  1794                    :new .DOCUMENT_ RECEIVED_D ATE,
  1795                    :new .RECORD_CR EATED_BY,
  1796                    :new .RECORD_CR EATED_DATE ,
  1797                    :new .RECORD_MO DIFIED_BY,
  1798                    :new .RECORD_MO DIFIED_DAT E,
  1799                    :new .RECORD_MO DIFIED_COU NT,
  1800                    mDML
  1801                    );
  1802           en d if;
  1803  
  1804   end SHAD_R EGISTRY_de t_audir_tr gr;
  1805   /
  1806   DROP TRIGG ER ADR.SHA D_REGISTRY _AUDIR_TRG R;
  1807  
  1808   CREATE OR  REPLACE TR IGGER ADR. SHAD_REGIS TRY_AUDIR_ TRGR
  1809   after Upda te or Dele te or Inse rt
  1810   ON ADR.SHA D_REGISTRY
  1811   REFERENCIN G NEW AS N EW OLD AS  OLD
  1812   for each r ow
  1813   declare
  1814           mD ML char(1) ;
  1815   begin
  1816  
  1817           if  DELETING  then
  1818                    inse rt into SH AD_REGISTR Y_H
  1819                    (
  1820                    SHAD _REGISTRY_ H_ID,
  1821                    SHAD _REGISTRY_ ID,
  1822                    PERS ON_ID,
  1823                    REGI STRY_TRAIT _ID,
  1824                    CLAI M_NUMBER,
  1825                    SHAD _STDYESNO_ ID,
  1826                    LEGA CY_USERNAM E,
  1827                    RECO RD_CREATED _BY,
  1828                    RECO RD_CREATED _DATE,
  1829                    RECO RD_MODIFIE D_BY,
  1830                    RECO RD_MODIFIE D_DATE,
  1831                    RECO RD_MODIFIE D_COUNT,
  1832                    TRAN SACTION_TY PE_CODE
  1833                    )
  1834                    valu es
  1835                    (
  1836                    SHAD _REGISTRY_ H_S.nextva l,
  1837                    :old .SHAD_REGI STRY_ID,
  1838                    :old .PERSON_ID ,
  1839                    :old .REGISTRY_ TRAIT_ID,
  1840                    :old .CLAIM_NUM BER,
  1841                    :old .SHAD_STDY ESNO_ID,
  1842                    :old .LEGACY_US ERNAME,
  1843                    :old .RECORD_CR EATED_BY,
  1844                    :old .RECORD_CR EATED_DATE ,
  1845                    :old .RECORD_MO DIFIED_BY,
  1846                    :old .RECORD_MO DIFIED_DAT E,
  1847                    :old .RECORD_MO DIFIED_COU NT,
  1848                    'D'
  1849                    );
  1850  
  1851           el se
  1852                    if U PDATING th en
  1853                             mDML : = 'U';
  1854                    else
  1855                             mDML : = 'I';
  1856                    end  if;
  1857  
  1858                    inse rt into SH AD_REGISTR Y_H
  1859                    (
  1860                    SHAD _REGISTRY_ H_ID,
  1861                    SHAD _REGISTRY_ ID,
  1862                    PERS ON_ID,
  1863                    REGI STRY_TRAIT _ID,
  1864                    CLAI M_NUMBER,
  1865                    SHAD _STDYESNO_ ID,
  1866                    LEGA CY_USERNAM E,
  1867                    RECO RD_CREATED _BY,
  1868                    RECO RD_CREATED _DATE,
  1869                    RECO RD_MODIFIE D_BY,
  1870                    RECO RD_MODIFIE D_DATE,
  1871                    RECO RD_MODIFIE D_COUNT,
  1872                    TRAN SACTION_TY PE_CODE
  1873                    )
  1874                    valu es
  1875                    (
  1876                    SHAD _REGISTRY_ H_S.nextva l,
  1877                    :new .SHAD_REGI STRY_ID,
  1878                    :new .PERSON_ID ,
  1879                    :new .REGISTRY_ TRAIT_ID,
  1880                    :new .CLAIM_NUM BER,
  1881                    :new .SHAD_STDY ESNO_ID,
  1882                    :new .LEGACY_US ERNAME,
  1883                    :new .RECORD_CR EATED_BY,
  1884                    :new .RECORD_CR EATED_DATE ,
  1885                    :new .RECORD_MO DIFIED_BY,
  1886                    :new .RECORD_MO DIFIED_DAT E,
  1887                    :new .RECORD_MO DIFIED_COU NT,
  1888                    mDML
  1889                    );
  1890  
  1891           en d if;
  1892  
  1893   end SHAD_R EGISTRY_au dir_trgr;
  1894   /
  1895   DROP TRIGG ER ADR.SER VICE_CONNE CTED_AUDIR _TRGR;
  1896  
  1897   CREATE OR  REPLACE TR IGGER ADR. SERVICE_CO NNECTED_AU DIR_TRGR
  1898   after Upda te or Dele te or Inse rt
  1899   on ADR.SER VICE_CONNE CTED
  1900   REFERENCIN G NEW AS N EW OLD AS  OLD
  1901   for each r ow
  1902   declare
  1903           mD ML char(1) ;
  1904   begin
  1905  
  1906           if  DELETING  then
  1907                    inse rt into SE RVICE_CONN ECTED_H
  1908                    (
  1909                    SERV ICE_CONNEC TED_H_ID,
  1910                    SERV ICE_CONNEC TED_ID,
  1911                    SC_T OTAL_AMOUN T,
  1912                    SERV ICE_AWARD_ DATE_TXT,
  1913                    SC_C OMBINED_PE RCENT,
  1914                    SC_C OMBINED_PC T_EFCTV_DA TE_TXT,
  1915                    SC_P ERMANENT_A ND_TOTAL_I ND,
  1916                    SC_P ERMNT_AND_ TOTAL_EFCT V_DT,
  1917                    UNEM PLOYABLE_I NDICATOR,
  1918                    SERV ICE_CONNEC TED_IND,
  1919                    RECO RD_CREATED _BY,
  1920                    RECO RD_CREATED _DATE,
  1921                    RECO RD_MODIFIE D_BY,
  1922                    RECO RD_MODIFIE D_DATE,
  1923                    PERS ON_ID,
  1924                    RECO RD_MODIFIE D_COUNT,
  1925                    TRAN SACTION_TY PE_CODE
  1926                    )
  1927                    valu es
  1928                    (
  1929                    SERV ICE_CONNEC TED_H_S.ne xtval,
  1930                    :old .SERVICE_C ONNECTED_I D,
  1931                    :old .SC_TOTAL_ AMOUNT,
  1932                    :old .SERVICE_A WARD_DATE_ TXT,
  1933                    :old .SC_COMBIN ED_PERCENT ,
  1934                    :old .SC_COMBIN ED_PCT_EFC TV_DATE_TX T,
  1935                    :old .SC_PERMAN ENT_AND_TO TAL_IND,
  1936                    :old .SC_PERMNT _AND_TOTAL _EFCTV_DT,
  1937                    :old .UNEMPLOYA BLE_INDICA TOR,
  1938                    :old .SERVICE_C ONNECTED_I ND,
  1939                    :old .RECORD_CR EATED_BY,
  1940                    :old .RECORD_CR EATED_DATE ,
  1941                    :old .RECORD_MO DIFIED_BY,
  1942                    :old .RECORD_MO DIFIED_DAT E,
  1943                    :old .PERSON_ID ,
  1944                    :old .RECORD_MO DIFIED_COU NT,
  1945                    'D'
  1946                    );
  1947  
  1948           el se
  1949                    if U PDATING th en
  1950                             mDML : = 'U';
  1951                    else
  1952                             mDML : = 'I';
  1953                    end  if;
  1954  
  1955                    inse rt into SE RVICE_CONN ECTED_H
  1956                    (
  1957                    SERV ICE_CONNEC TED_H_ID,
  1958                    SERV ICE_CONNEC TED_ID,
  1959                    SC_T OTAL_AMOUN T,
  1960                    SERV ICE_AWARD_ DATE_TXT,
  1961                    SC_C OMBINED_PE RCENT,
  1962                    SC_C OMBINED_PC T_EFCTV_DA TE_TXT,
  1963                    SC_P ERMANENT_A ND_TOTAL_I ND,
  1964                    SC_P ERMNT_AND_ TOTAL_EFCT V_DT,
  1965                    UNEM PLOYABLE_I NDICATOR,
  1966                    SERV ICE_CONNEC TED_IND,
  1967                    RECO RD_CREATED _BY,
  1968                    RECO RD_CREATED _DATE,
  1969                    RECO RD_MODIFIE D_BY,
  1970                    RECO RD_MODIFIE D_DATE,
  1971                    PERS ON_ID,
  1972                    RECO RD_MODIFIE D_COUNT,
  1973                    TRAN SACTION_TY PE_CODE
  1974                    )
  1975                    valu es
  1976                    (
  1977                    SERV ICE_CONNEC TED_H_S.ne xtval,
  1978                    :new .SERVICE_C ONNECTED_I D,
  1979                    :new .SC_TOTAL_ AMOUNT,
  1980                    :new .SERVICE_A WARD_DATE_ TXT,
  1981                    :new .SC_COMBIN ED_PERCENT ,
  1982                    :new .SC_COMBIN ED_PCT_EFC TV_DATE_TX T,
  1983                    :new .SC_PERMAN ENT_AND_TO TAL_IND,
  1984                    :new .SC_PERMNT _AND_TOTAL _EFCTV_DT,
  1985                    :new .UNEMPLOYA BLE_INDICA TOR,
  1986                    :new .SERVICE_C ONNECTED_I ND,
  1987                    :new .RECORD_CR EATED_BY,
  1988                    :new .RECORD_CR EATED_DATE ,
  1989                    :new .RECORD_MO DIFIED_BY,
  1990                    :new .RECORD_MO DIFIED_DAT E,
  1991                    :new .PERSON_ID ,
  1992                    :new .RECORD_MO DIFIED_COU NT,
  1993                    mDML
  1994                    );
  1995  
  1996           en d if;
  1997  
  1998   end SERVIC E_CONNECTE D_audir_tr gr;
  1999   /
  2000   DROP TRIGG ER ADR.ROL E_PERM_SET _AUDIR_TRG R;
  2001  
  2002   CREATE OR  REPLACE TR IGGER ADR. ROLE_PERM_ SET_audir_ trgr
  2003   after Upda te or Dele te or Inse rt
  2004   ON ADR.ROL E_PERMISSI ON_SETS
  2005   for each r ow
  2006   declare
  2007           mD ML char(1) ;
  2008   begin
  2009  
  2010           if  DELETING  then
  2011                    inse rt into RO LE_PERMISS ION_SETS_H
  2012                    (
  2013                    ROLE _PERMISSIO N_SET_H_ID ,
  2014                    ROLE _PERMISSIO N_SET_ID,
  2015                    ROLE _ID,
  2016                    PERM ISSION_SET _ID,
  2017                    RECO RD_CREATED _BY,
  2018                    RECO RD_CREATED _DATE,
  2019                    RECO RD_MODIFIE D_BY,
  2020                    RECO RD_MODIFIE D_DATE,
  2021                    RECO RD_MODIFIE D_COUNT,
  2022                    TRAN SACTION_TY PE_CODE
  2023                    )
  2024                    valu es
  2025                    (
  2026                    ROLE _PERMISSIO N_SETS_H_S .nextval,
  2027                    :old .ROLE_PERM ISSION_SET _ID,
  2028                    :old .ROLE_ID,
  2029                    :old .PERMISSIO N_SET_ID,
  2030                    :old .RECORD_CR EATED_BY,
  2031                    :old .RECORD_CR EATED_DATE ,
  2032                    :old .RECORD_MO DIFIED_BY,
  2033                    :old .RECORD_MO DIFIED_DAT E,
  2034                    :old .RECORD_MO DIFIED_COU NT,
  2035                    'D'
  2036                    );
  2037           el se
  2038                    if U PDATING th en
  2039                             mDML : = 'U';
  2040                    else
  2041                             mDML : = 'I';
  2042                    end  if;
  2043  
  2044                    inse rt into RO LE_PERMISS ION_SETS_H
  2045                    (
  2046                    ROLE _PERMISSIO N_SET_H_ID ,
  2047                    ROLE _PERMISSIO N_SET_ID,
  2048                    ROLE _ID,
  2049                    PERM ISSION_SET _ID,
  2050                    RECO RD_CREATED _BY,
  2051                    RECO RD_CREATED _DATE,
  2052                    RECO RD_MODIFIE D_BY,
  2053                    RECO RD_MODIFIE D_DATE,
  2054                    RECO RD_MODIFIE D_COUNT,
  2055                    TRAN SACTION_TY PE_CODE
  2056                    )
  2057                    valu es
  2058                    (
  2059                    ROLE _PERMISSIO N_SETS_H_S .nextval,
  2060                    :new .ROLE_PERM ISSION_SET _ID,
  2061                    :new .ROLE_ID,
  2062                    :new .PERMISSIO N_SET_ID,
  2063                    :new .RECORD_CR EATED_BY,
  2064                    :new .RECORD_CR EATED_DATE ,
  2065                    :new .RECORD_MO DIFIED_BY,
  2066                    :new .RECORD_MO DIFIED_DAT E,
  2067                    :new .RECORD_MO DIFIED_COU NT,
  2068                    mDML
  2069                    );
  2070           en d if;
  2071  
  2072   end ROLE_P ERM_SET_au dir_trgr;
  2073   /
  2074   DROP TRIGG ER ADR.ROL E_PERMSSN_ AUDIR_TRGR ;
  2075  
  2076   CREATE OR  REPLACE TR IGGER ADR. ROLE_PERMS SN_audir_t rgr
  2077   after Upda te or Dele te or Inse rt
  2078   ON ADR.ROL E_PERMISSI ONS
  2079   for each r ow
  2080   declare
  2081           mD ML char(1) ;
  2082   begin
  2083  
  2084           if  DELETING  then
  2085                    inse rt into RO LE_PERMISS IONS_H
  2086                    (
  2087                    ROLE _PERMISSIO NS_H_ID,
  2088                    ROLE _PERMISSIO N_ID,
  2089                    ROLE _ID,
  2090                    PERM ISSION_TYP E_ID,
  2091                    RECO RD_CREATED _BY,
  2092                    RECO RD_CREATED _DATE,
  2093                    RECO RD_MODIFIE D_BY,
  2094                    RECO RD_MODIFIE D_DATE,
  2095                    RECO RD_MODIFIE D_COUNT,
  2096                    TRAN SACTION_TY PE_CODE
  2097                    )
  2098                    valu es
  2099                    (
  2100                    ROLE _PERMISSIO NS_H_S.nex tval,
  2101                    :old .ROLE_PERM ISSION_ID,
  2102                    :old .ROLE_ID,
  2103                    :old .PERMISSIO N_TYPE_ID,
  2104                    :old .RECORD_CR EATED_BY,
  2105                    :old .RECORD_CR EATED_DATE ,
  2106                    :old .RECORD_MO DIFIED_BY,
  2107                    :old .RECORD_MO DIFIED_DAT E,
  2108                    :old .RECORD_MO DIFIED_COU NT,
  2109                    'D'
  2110                    );
  2111           el se
  2112                    if U PDATING th en
  2113                             mDML : = 'U';
  2114                    else
  2115                             mDML : = 'I';
  2116                    end  if;
  2117  
  2118                    inse rt into RO LE_PERMISS IONS_H
  2119                    (
  2120                    ROLE _PERMISSIO NS_H_ID,
  2121                    ROLE _PERMISSIO N_ID,
  2122                    ROLE _ID,
  2123                    PERM ISSION_TYP E_ID,
  2124                    RECO RD_CREATED _BY,
  2125                    RECO RD_CREATED _DATE,
  2126                    RECO RD_MODIFIE D_BY,
  2127                    RECO RD_MODIFIE D_DATE,
  2128                    RECO RD_MODIFIE D_COUNT,
  2129                    TRAN SACTION_TY PE_CODE
  2130                    )
  2131                    valu es
  2132                    (
  2133                    ROLE _PERMISSIO NS_H_S.nex tval,
  2134                    :new .ROLE_PERM ISSION_ID,
  2135                    :new .ROLE_ID,
  2136                    :new .PERMISSIO N_TYPE_ID,
  2137                    :new .RECORD_CR EATED_BY,
  2138                    :new .RECORD_CR EATED_DATE ,
  2139                    :new .RECORD_MO DIFIED_BY,
  2140                    :new .RECORD_MO DIFIED_DAT E,
  2141                    :new .RECORD_MO DIFIED_COU NT,
  2142                    mDML
  2143                    );
  2144           en d if;
  2145  
  2146   end ROLE_P ERMSSN_aud ir_trgr;
  2147   /
  2148   DROP TRIGG ER ADR.ROL ES_AUDIR_T RGR;
  2149  
  2150   CREATE OR  REPLACE TR IGGER ADR. ROLES_audi r_trgr
  2151   after Upda te or Dele te or Inse rt
  2152   ON ADR.ROL ES
  2153   for each r ow
  2154   declare
  2155           mD ML char(1) ;
  2156   begin
  2157  
  2158           if  DELETING  then
  2159                    inse rt into RO LES_H
  2160                    (
  2161                    ROLE S_H_ID,
  2162                    ROLE _ID,
  2163                    ROLE _NAME,
  2164                    DESC RIPTION,
  2165                    SORT _ORDER,
  2166                    ACTI VE_DATE,
  2167                    INAC TIVE_FLAG,
  2168                    INAC TIVE_DATE,
  2169                    RECO RD_CREATED _BY,
  2170                    RECO RD_CREATED _DATE,
  2171                    RECO RD_MODIFIE D_BY,
  2172                    RECO RD_MODIFIE D_DATE,
  2173                    RECO RD_MODIFIE D_COUNT,
  2174                    TRAN SACTION_TY PE_CODE
  2175                    )
  2176                    valu es
  2177                    (
  2178                    ROLE S_H_S.next val,
  2179                    :old .ROLE_ID,
  2180                    :old .ROLE_NAME ,
  2181                    :old .DESCRIPTI ON,
  2182                    :old .SORT_ORDE R,
  2183                    :old .ACTIVE_DA TE,
  2184                    :old .INACTIVE_ FLAG,
  2185                    :old .INACTIVE_ DATE,
  2186                    :old .RECORD_CR EATED_BY,
  2187                    :old .RECORD_CR EATED_DATE ,
  2188                    :old .RECORD_MO DIFIED_BY,
  2189                    :old .RECORD_MO DIFIED_DAT E,
  2190                    :old .RECORD_MO DIFIED_COU NT,
  2191                    'D'
  2192                    );
  2193           el se
  2194                    if U PDATING th en
  2195                             mDML : = 'U';
  2196                    else
  2197                             mDML : = 'I';
  2198                    end  if;
  2199  
  2200                    inse rt into RO LES_H
  2201                    (
  2202                    ROLE S_H_ID,
  2203                    ROLE _ID,
  2204                    ROLE _NAME,
  2205                    DESC RIPTION,
  2206                    SORT _ORDER,
  2207                    ACTI VE_DATE,
  2208                    INAC TIVE_FLAG,
  2209                    INAC TIVE_DATE,
  2210                    RECO RD_CREATED _BY,
  2211                    RECO RD_CREATED _DATE,
  2212                    RECO RD_MODIFIE D_BY,
  2213                    RECO RD_MODIFIE D_DATE,
  2214                    RECO RD_MODIFIE D_COUNT,
  2215                    TRAN SACTION_TY PE_CODE
  2216                    )
  2217                    valu es
  2218                    (
  2219                    ROLE S_H_S.next val,
  2220                    :new .ROLE_ID,
  2221                    :new .ROLE_NAME ,
  2222                    :new .DESCRIPTI ON,
  2223                    :new .SORT_ORDE R,
  2224                    :new .ACTIVE_DA TE,
  2225                    :new .INACTIVE_ FLAG,
  2226                    :new .INACTIVE_ DATE,
  2227                    :new .RECORD_CR EATED_BY,
  2228                    :new .RECORD_CR EATED_DATE ,
  2229                    :new .RECORD_MO DIFIED_BY,
  2230                    :new .RECORD_MO DIFIED_DAT E,
  2231                    :new .RECORD_MO DIFIED_COU NT,
  2232                    mDML
  2233                    );
  2234           en d if;
  2235  
  2236   end ROLES_ audir_trgr ;
  2237   /
  2238   DROP TRIGG ER ADR.REL AXATION_PC T_AUDIR_TR GR;
  2239  
  2240   CREATE OR  REPLACE TR IGGER ADR. RELAXATION _PCT_AUDIR _TRGR
  2241     AFTER DE LETE OR IN SERT OR UP DATE
  2242     ON ADR.R ELAXATION_ PERCENTAGE   REFERENC ING  OLD A S OLD NEW  AS NEW
  2243    FOR EACH  ROW
  2244   declare
  2245          mDM L char(1);
  2246   begin
  2247  
  2248       if DEL ETING then
  2249           in sert into  RELAXATION _PERCENTAG E_H
  2250           (
  2251           RE LAXATION_P ERCENTAGE_ H_ID,
  2252           RE LAXATION_P ERCENTAGE_ ID,
  2253           RE LAXATION_P ERCENTAGE,
  2254           ST ART_DATE,
  2255           EN D_DATE,
  2256           IN COME_YEAR,
  2257           RE CORD_CREAT ED_BY,
  2258           RE CORD_CREAT ED_DATE,
  2259           RE CORD_MODIF IED_BY,
  2260           RE CORD_MODIF IED_DATE,
  2261           RE CORD_MODIF IED_COUNT,
  2262           HI STORY_CREA TED_DATE,
  2263           TR ANSACTION_ TYPE_CODE
  2264           )
  2265           va lues
  2266           (
  2267           RE LAXATION_P ERCENTAGE_ H_S.nextva l,
  2268           :o ld.RELAXAT ION_PERCEN TAGE_ID,
  2269           :o ld.RELAXAT ION_PERCEN TAGE,
  2270           :o ld.START_D ATE,
  2271           :o ld.END_DAT E,
  2272           :o ld.INCOME_ YEAR,
  2273           :o ld.RECORD_ CREATED_BY ,
  2274           :o ld.RECORD_ CREATED_DA TE,
  2275           :o ld.RECORD_ MODIFIED_B Y,
  2276           :o ld.RECORD_ MODIFIED_D ATE,
  2277           :o ld.RECORD_ MODIFIED_C OUNT,
  2278           SY SDATE,
  2279           'D '
  2280           );
  2281       else
  2282           if  UPDATING  then
  2283                mDML :=  'U';
  2284           el se
  2285                mDML :=  'I';
  2286           en d if;
  2287  
  2288           in sert into  RELAXATION _PERCENTAG E_H
  2289           (
  2290           RE LAXATION_P ERCENTAGE_ H_ID,
  2291           RE LAXATION_P ERCENTAGE_ ID,
  2292           RE LAXATION_P ERCENTAGE,
  2293           ST ART_DATE,
  2294           EN D_DATE,
  2295           IN COME_YEAR,
  2296           RE CORD_CREAT ED_BY,
  2297           RE CORD_CREAT ED_DATE,
  2298           RE CORD_MODIF IED_BY,
  2299           RE CORD_MODIF IED_DATE,
  2300           RE CORD_MODIF IED_COUNT,
  2301           HI STORY_CREA TED_DATE,
  2302           TR ANSACTION_ TYPE_CODE
  2303           )
  2304           va lues
  2305           (
  2306           RE LAXATION_P ERCENTAGE_ H_S.nextva l,
  2307           :n ew.RELAXAT ION_PERCEN TAGE_ID,
  2308           :n ew.RELAXAT ION_PERCEN TAGE,
  2309           :n ew.START_D ATE,
  2310           :n ew.END_DAT E,
  2311           :n ew.INCOME_ YEAR,
  2312           :n ew.RECORD_ CREATED_BY ,
  2313           :n ew.RECORD_ CREATED_DA TE,
  2314           :n ew.RECORD_ MODIFIED_B Y,
  2315           :n ew.RECORD_ MODIFIED_D ATE,
  2316           :n ew.RECORD_ MODIFIED_C OUNT,
  2317           SY SDATE,
  2318           mD ML
  2319           );
  2320       end if ;
  2321  
  2322   end;
  2323   /
  2324   DROP TRIGG ER ADR.REG ISTRY_TRAI T_DET_AUDI R_TRGR;
  2325  
  2326   CREATE OR  REPLACE TR IGGER ADR. REGISTRY_T RAIT_DET_a udir_trgr
  2327   after Upda te or Dele te or Inse rt
  2328   ON ADR.REG ISTRY_TRAI T_DETAIL
  2329   for each r ow
  2330   declare
  2331           mD ML char(1) ;
  2332   begin
  2333  
  2334           if  DELETING  then
  2335                    inse rt into RE GISTRY_TRA IT_DETAIL_ H
  2336                    (
  2337                    REGI STRY_TRAIT _DETAIL_H_ ID
  2338                    ,REG ISTRY_TRAI T_DETAIL_I D
  2339                    ,REG ISTRY_TRAI T_ID
  2340                    ,MIL ITARY_SERV ICE_NUMBER
  2341                    ,REC ORD_CREATE D_BY
  2342                    ,REC ORD_CREATE D_DATE
  2343                    ,REC ORD_MODIFI ED_BY
  2344                    ,REC ORD_MODIFI ED_DATE
  2345                    ,REC ORD_MODIFI ED_COUNT
  2346                    ,TRA NSACTION_T YPE_CODE
  2347                    )
  2348                    valu es
  2349                    (
  2350                    REGI STRY_TRAIT _DETAIL_H_ S.nextval,
  2351                    :old .REGISTRY_ TRAIT_DETA IL_ID,
  2352                    :old .REGISTRY_ TRAIT_ID,
  2353                    :old .MILITARY_ SERVICE_NU MBER,
  2354                    :old .RECORD_CR EATED_BY,
  2355                    :old .RECORD_CR EATED_DATE ,
  2356                    :old .RECORD_MO DIFIED_BY,
  2357                    :old .RECORD_MO DIFIED_DAT E,
  2358                    :old .RECORD_MO DIFIED_COU NT,
  2359                    'D'
  2360                    );
  2361           el se
  2362                    if U PDATING th en
  2363                             mDML : = 'U';
  2364                    else
  2365                             mDML : = 'I';
  2366                    end  if;
  2367  
  2368                    inse rt into RE GISTRY_TRA IT_DETAIL_ H
  2369                    (
  2370                     REG ISTRY_TRAI T_DETAIL_H _ID
  2371                    ,REG ISTRY_TRAI T_DETAIL_I D
  2372                    ,REG ISTRY_TRAI T_ID
  2373                    ,MIL ITARY_SERV ICE_NUMBER
  2374                    ,REC ORD_CREATE D_BY
  2375                    ,REC ORD_CREATE D_DATE
  2376                    ,REC ORD_MODIFI ED_BY
  2377                    ,REC ORD_MODIFI ED_DATE
  2378                    ,REC ORD_MODIFI ED_COUNT
  2379                    ,TRA NSACTION_T YPE_CODE
  2380                    )
  2381                    valu es
  2382                    (
  2383                    REGI STRY_TRAIT _DETAIL_H_ S.nextval,
  2384                    :new .REGISTRY_ TRAIT_DETA IL_ID,
  2385                    :new .REGISTRY_ TRAIT_ID,
  2386                    :new .MILITARY_ SERVICE_NU MBER,
  2387                    :new .RECORD_CR EATED_BY,
  2388                    :new .RECORD_CR EATED_DATE ,
  2389                    :new .RECORD_MO DIFIED_BY,
  2390                    :new .RECORD_MO DIFIED_DAT E,
  2391                    :new .RECORD_MO DIFIED_COU NT,
  2392                    mDML
  2393                    );
  2394           en d if;
  2395  
  2396   end  REGIS TRY_TRAIT_ DET_audir_ trgr;
  2397   /
  2398   DROP TRIGG ER ADR.REG ISTRY_TRAI T_AUDIR_TR GR;
  2399  
  2400   CREATE OR  REPLACE TR IGGER ADR. REGISTRY_T RAIT_AUDIR _TRGR AFTE R UPDATE O R INSERT O R DELETE O N "ADR"."R EGISTRY_TR AIT" FOR E ACH ROW
  2401   declare
  2402           mD ML char(1) ;
  2403   begin
  2404  
  2405           if  DELETING  then
  2406                    inse rt into RE GISTRY_TRA IT_H
  2407                    (
  2408                     REG ISTRY_TRAI T_H_ID
  2409                    ,REG ISTRY_TRAI T_ID
  2410                    ,REG ISTRY_TYPE _ID
  2411                    ,SSN
  2412                    ,FIR ST_NAME
  2413                    ,LAS T_NAME
  2414                    ,PRE FIX
  2415                    ,MID DLE_NAME
  2416                    ,SUF FIX
  2417                    ,EDU CATIONAL_D EGREE
  2418                    ,DEA TH_DATE_TX T
  2419                    ,REC ORD_CREATE D_BY
  2420                    ,REC ORD_CREATE D_DATE
  2421                    ,REC ORD_MODIFI ED_BY
  2422                    ,REC ORD_MODIFI ED_DATE
  2423                    ,REC ORD_MODIFI ED_COUNT
  2424                    ,TRA NSACTION_T YPE_CODE
  2425                    )
  2426                    valu es
  2427                    (
  2428                    REGI STRY_TRAIT _H_S.nextv al,
  2429                    :old .REGISTRY_ TRAIT_ID,
  2430                    :old .REGISTRY_ TYPE_ID,
  2431                    :old .SSN,
  2432                    :old .FIRST_NAM E,
  2433                    :old .LAST_NAME ,
  2434                    :old .PREFIX,
  2435                    :old .MIDDLE_NA ME,
  2436                    :old .SUFFIX,
  2437                    :old .EDUCATION AL_DEGREE,
  2438                    :old .DEATH_DAT E_TXT,
  2439                    :old .RECORD_CR EATED_BY,
  2440                    :old .RECORD_CR EATED_DATE ,
  2441                    :old .RECORD_MO DIFIED_BY,
  2442                    :old .RECORD_MO DIFIED_DAT E,
  2443                    :old .RECORD_MO DIFIED_COU NT,
  2444                    'D'
  2445                    );
  2446           el se
  2447                    if U PDATING th en
  2448                             mDML : = 'U';
  2449                    else
  2450                             mDML : = 'I';
  2451                    end  if;
  2452  
  2453                    inse rt into RE GISTRY_TRA IT_H
  2454                    (
  2455                     REG ISTRY_TRAI T_H_ID
  2456                    ,REG ISTRY_TRAI T_ID
  2457                    ,REG ISTRY_TYPE _ID
  2458                    ,SSN
  2459                    ,FIR ST_NAME
  2460                    ,LAS T_NAME
  2461                    ,PRE FIX
  2462                    ,MID DLE_NAME
  2463                    ,SUF FIX
  2464                    ,EDU CATIONAL_D EGREE
  2465                    ,DEA TH_DATE_TX T
  2466                    ,REC ORD_CREATE D_BY
  2467                    ,REC ORD_CREATE D_DATE
  2468                    ,REC ORD_MODIFI ED_BY
  2469                    ,REC ORD_MODIFI ED_DATE
  2470                    ,REC ORD_MODIFI ED_COUNT
  2471                    ,TRA NSACTION_T YPE_CODE
  2472                    )
  2473                    valu es
  2474                    (
  2475                    REGI STRY_TRAIT _H_S.nextv al,
  2476                    :new .REGISTRY_ TRAIT_ID,
  2477                    :new .REGISTRY_ TYPE_ID,
  2478                    :new .SSN,
  2479                    :new .FIRST_NAM E,
  2480                    :new .LAST_NAME ,
  2481                    :new .PREFIX,
  2482                    :new .MIDDLE_NA ME,
  2483                    :new .SUFFIX,
  2484                    :new .EDUCATION AL_DEGREE,
  2485                    :new .DEATH_DAT E_TXT,
  2486                    :new .RECORD_CR EATED_BY,
  2487                    :new .RECORD_CR EATED_DATE ,
  2488                    :new .RECORD_MO DIFIED_BY,
  2489                    :new .RECORD_MO DIFIED_DAT E,
  2490                    :new .RECORD_MO DIFIED_COU NT,
  2491                    mDML
  2492                    );
  2493           en d if;
  2494  
  2495   end REGIST RY_TRAIT_a udir_trgr;
  2496   /
  2497   DROP TRIGG ER ADR.RAT ED_DSBLTY_ DET_AUDIR_ TRGR;
  2498  
  2499   CREATE OR  REPLACE TR IGGER ADR. RATED_DSBL TY_DET_AUD IR_TRGR AF TER UPDATE  OR INSERT  OR DELETE  ON "ADR". "RATED_DIS ABILITY_DE TAIL" FOR  EACH ROW
  2500   declare
  2501           mD ML char(1) ;
  2502   begin
  2503  
  2504           if  DELETING  then
  2505                    inse rt into RA TED_DISABI LITY_DETAI L_H
  2506                    (
  2507                    RATE D_DISABILI TY_DETAIL_ H_ID,
  2508                    RATE D_DISABILI TY_DETAIL_ ID,
  2509                    RATE D_DISABILI TY_IS_SC_I ND,
  2510                    DISA BILITY_PER CENT,
  2511                    DISA BILITY_STA RT_DATE,
  2512                    ORIG _EFCTV_RAT ING_DATE_T XT,
  2513                    RATI NG_DATE_TX T,
  2514                    RECO RD_CREATED _BY,
  2515                    RECO RD_CREATED _DATE,
  2516                    RECO RD_MODIFIE D_BY,
  2517                    RECO RD_MODIFIE D_DATE,
  2518                    STD_ DISABILITY CONDITION_ ID,
  2519                    SERV ICE_CONNEC TED_ID,
  2520                    RECO RD_MODIFIE D_COUNT,
  2521                    DIAG NOSTIC_EXT REMITY_TYP E_ID,
  2522                    TRAN SACTION_TY PE_CODE
  2523                    )
  2524                    valu es
  2525                    (
  2526                    RATE D_DISABILI TY_DETAIL_ H_S.nextva l,
  2527                    :old .RATED_DIS ABILITY_DE TAIL_ID,
  2528                    :old .RATED_DIS ABILITY_IS _SC_IND,
  2529                    :old .DISABILIT Y_PERCENT,
  2530                    :old .DISABILIT Y_START_DA TE,
  2531                    :old .ORIG_EFCT V_RATING_D ATE_TXT,
  2532                    :old .RATING_DA TE_TXT,
  2533                    :old .RECORD_CR EATED_BY,
  2534                    :old .RECORD_CR EATED_DATE ,
  2535                    :old .RECORD_MO DIFIED_BY,
  2536                    :old .RECORD_MO DIFIED_DAT E,
  2537                    :old .STD_DISAB ILITYCONDI TION_ID,
  2538                    :old .SERVICE_C ONNECTED_I D,
  2539                    :old .RECORD_MO DIFIED_COU NT,
  2540                    :old .DIAGNOSTI C_EXTREMIT Y_TYPE_ID,
  2541                    'D'
  2542                    );
  2543           el se
  2544                    if U PDATING th en
  2545                             mDML : = 'U';
  2546                    else
  2547                             mDML : = 'I';
  2548                    end  if;
  2549  
  2550                    inse rt into RA TED_DISABI LITY_DETAI L_H
  2551                    (
  2552                    RATE D_DISABILI TY_DETAIL_ H_ID,
  2553                    RATE D_DISABILI TY_DETAIL_ ID,
  2554                    RATE D_DISABILI TY_IS_SC_I ND,
  2555                    DISA BILITY_PER CENT,
  2556                    DISA BILITY_STA RT_DATE,
  2557                    ORIG _EFCTV_RAT ING_DATE_T XT,
  2558                    RATI NG_DATE_TX T,
  2559                    RECO RD_CREATED _BY,
  2560                    RECO RD_CREATED _DATE,
  2561                    RECO RD_MODIFIE D_BY,
  2562                    RECO RD_MODIFIE D_DATE,
  2563                    STD_ DISABILITY CONDITION_ ID,
  2564                    SERV ICE_CONNEC TED_ID,
  2565                    RECO RD_MODIFIE D_COUNT,
  2566                    DIAG NOSTIC_EXT REMITY_TYP E_ID,
  2567                    TRAN SACTION_TY PE_CODE
  2568                    )
  2569                    valu es
  2570                    (
  2571                    RATE D_DISABILI TY_DETAIL_ H_S.nextva l,
  2572                    :new .RATED_DIS ABILITY_DE TAIL_ID,
  2573                    :new .RATED_DIS ABILITY_IS _SC_IND,
  2574                    :new .DISABILIT Y_PERCENT,
  2575                    :new .DISABILIT Y_START_DA TE,
  2576                    :new .ORIG_EFCT V_RATING_D ATE_TXT,
  2577                    :new .RATING_DA TE_TXT,
  2578                    :new .RECORD_CR EATED_BY,
  2579                    :new .RECORD_CR EATED_DATE ,
  2580                    :new .RECORD_MO DIFIED_BY,
  2581                    :new .RECORD_MO DIFIED_DAT E,
  2582                    :new .STD_DISAB ILITYCONDI TION_ID,
  2583                    :new .SERVICE_C ONNECTED_I D,
  2584                    :new .RECORD_MO DIFIED_COU NT,
  2585                    :new .DIAGNOSTI C_EXTREMIT Y_TYPE_ID,
  2586                    mDML
  2587                    );
  2588           en d if;
  2589  
  2590   end RATED_ DSBLTY_DET _audir_trg r;
  2591   /
  2592   DROP TRIGG ER ADR.PRS N_PREF_LAN G_AUDIR_TR GR;
  2593  
  2594   CREATE OR  REPLACE TR IGGER ADR. PRSN_PREF_ LANG_AUDIR _TRGR
  2595     AFTER DE LETE OR IN SERT OR UP DATE
  2596     ON ADR.P ERSON_PREF ERRED_LANG UAGE  REFE RENCING  O LD AS OLD  NEW AS NEW
  2597    FOR EACH  ROW
  2598   declare
  2599          mDM L char(1);
  2600   begin
  2601     if DELET ING then
  2602         inse rt into PE RSON_PREFE RRED_LANGU AGE_H
  2603         (
  2604         PERS ON_PREFERR ED_LANG_H_ ID,
  2605         PERS ON_PREFERR ED_LANGUAG E_ID,
  2606         PERS ON_ID,
  2607         STD_ LANGUAGECO DE_ID,
  2608         LANG UAGE_ENTRY _DATE,
  2609         RECO RD_CREATED _BY,
  2610         RECO RD_CREATED _DATE,
  2611         RECO RD_MODIFIE D_BY,
  2612         RECO RD_MODIFIE D_DATE,
  2613         RECO RD_MODIFIE D_COUNT,
  2614         HIST ORY_CREATE D_DATE,
  2615         TRAN SACTION_TY PE_CODE
  2616         )
  2617         valu es
  2618         (
  2619         PERS ON_PREFERR ED_LANGUAG E_H_S.next val,
  2620         :old .PERSON_PR EFERRED_LA NGUAGE_ID,
  2621         :old .PERSON_ID ,
  2622         :old .STD_LANGU AGECODE_ID ,
  2623         :old .LANGUAGE_ ENTRY_DATE ,
  2624         :old .RECORD_CR EATED_BY,
  2625         :old .RECORD_CR EATED_DATE ,
  2626         :old .RECORD_MO DIFIED_BY,
  2627         :old .RECORD_MO DIFIED_DAT E,
  2628         :old .RECORD_MO DIFIED_COU NT,
  2629         SYSD ATE,
  2630         'D'
  2631         );
  2632  
  2633     else
  2634         if U PDATING th en
  2635              mDML := 'U ';
  2636         else
  2637              mDML := 'I ';
  2638         end  if;
  2639  
  2640          ins ert into P ERSON_PREF ERRED_LANG UAGE_H
  2641         (
  2642         PERS ON_PREFERR ED_LANG_H_ ID,
  2643         PERS ON_PREFERR ED_LANGUAG E_ID,
  2644         PERS ON_ID,
  2645         STD_ LANGUAGECO DE_ID,
  2646         LANG UAGE_ENTRY _DATE,
  2647         RECO RD_CREATED _BY,
  2648         RECO RD_CREATED _DATE,
  2649         RECO RD_MODIFIE D_BY,
  2650         RECO RD_MODIFIE D_DATE,
  2651         RECO RD_MODIFIE D_COUNT,
  2652         HIST ORY_CREATE D_DATE,
  2653         TRAN SACTION_TY PE_CODE
  2654         )
  2655         valu es
  2656         (
  2657         PERS ON_PREFERR ED_LANGUAG E_H_S.next val,
  2658         :new .PERSON_PR EFERRED_LA NGUAGE_ID,
  2659         :new .PERSON_ID ,
  2660         :new .STD_LANGU AGECODE_ID ,
  2661         :new .LANGUAGE_ ENTRY_DATE ,
  2662         :new .RECORD_CR EATED_BY,
  2663         :new .RECORD_CR EATED_DATE ,
  2664         :new .RECORD_MO DIFIED_BY,
  2665         :new .RECORD_MO DIFIED_DAT E,
  2666         :new .RECORD_MO DIFIED_COU NT,
  2667         SYSD ATE,
  2668         mDML
  2669         );
  2670  
  2671     end if;
  2672  
  2673   end PRSN_P REF_LANG_a udir_trgr;
  2674   /
  2675   DROP TRIGG ER ADR.PRE FERRED_FAC ILITY_AUDI R_TRGR;
  2676  
  2677   CREATE OR  REPLACE TR IGGER ADR. PREFERRED_ FACILITY_A UDIR_TRGR  AFTER UPDA TE OR INSE RT OR DELE TE ON "ADR "."PREFERR ED_FACILIT Y" FOR EAC H ROW
  2678   declare
  2679          mDM L char(1);
  2680   begin
  2681       if DEL ETING then
  2682           in sert into  PREFERRED_ FACILITY_H
  2683           (
  2684           PR EFERRED_FA CILITY_H_I D,
  2685           PR EFERRED_FA CILITY_ID,
  2686           PE RSON_ID,
  2687           ST D_PREFERRE D_FACILITY _SRC_ID,
  2688           ST D_INSTITUT ION_ID,
  2689           AS SIGNMENT_D ATE,
  2690           UN ASSIGNMENT _DATE,
  2691           RE CORD_CREAT ED_BY,
  2692           RE CORD_CREAT ED_DATE,
  2693           RE CORD_MODIF IED_BY,
  2694           RE CORD_MODIF IED_DATE,
  2695           RE CORD_MODIF IED_COUNT,
  2696           HI STORY_CREA TED_DATE,
  2697           TR ANSACTION_ TYPE_CODE
  2698           )
  2699           va lues
  2700           (
  2701           PR EFERRED_FA CILITY_H_S .nextval,
  2702           :o ld.PREFERR ED_FACILIT Y_ID,
  2703           :o ld.PERSON_ ID,
  2704           :o ld.STD_PRE FERRED_FAC ILITY_SRC_ ID,
  2705           :o ld.STD_INS TITUTION_I D,
  2706           :o ld.ASSIGNM ENT_DATE,
  2707           :o ld.UNASSIG NMENT_DATE ,
  2708           :o ld.RECORD_ CREATED_BY ,
  2709           :o ld.RECORD_ CREATED_DA TE,
  2710           :o ld.RECORD_ MODIFIED_B Y,
  2711           :o ld.RECORD_ MODIFIED_D ATE,
  2712           :o ld.RECORD_ MODIFIED_C OUNT,
  2713           SY SDATE,
  2714           'D '
  2715           );
  2716       else
  2717           if  UPDATING  then
  2718                mDML :=  'U';
  2719           el se
  2720                mDML :=  'I';
  2721           en d if;
  2722  
  2723           in sert into  PREFERRED_ FACILITY_H
  2724           (
  2725           PR EFERRED_FA CILITY_H_I D,
  2726           PR EFERRED_FA CILITY_ID,
  2727           PE RSON_ID,
  2728           ST D_PREFERRE D_FACILITY _SRC_ID,
  2729           ST D_INSTITUT ION_ID,
  2730           AS SIGNMENT_D ATE,
  2731           UN ASSIGNMENT _DATE,
  2732           RE CORD_CREAT ED_BY,
  2733           RE CORD_CREAT ED_DATE,
  2734           RE CORD_MODIF IED_BY,
  2735           RE CORD_MODIF IED_DATE,
  2736           RE CORD_MODIF IED_COUNT,
  2737           HI STORY_CREA TED_DATE,
  2738           TR ANSACTION_ TYPE_CODE
  2739           )
  2740           va lues
  2741           (
  2742           PR EFERRED_FA CILITY_H_S .nextval,
  2743           :n ew.PREFERR ED_FACILIT Y_ID,
  2744           :n ew.PERSON_ ID,
  2745           :n ew.STD_PRE FERRED_FAC ILITY_SRC_ ID,
  2746           :n ew.STD_INS TITUTION_I D,
  2747           :n ew.ASSIGNM ENT_DATE,
  2748           :n ew.UNASSIG NMENT_DATE ,
  2749           :n ew.RECORD_ CREATED_BY ,
  2750           :n ew.RECORD_ CREATED_DA TE,
  2751           :n ew.RECORD_ MODIFIED_B Y,
  2752           :n ew.RECORD_ MODIFIED_D ATE,
  2753           :n ew.RECORD_ MODIFIED_C OUNT,
  2754           SY SDATE,
  2755           mD ML
  2756           );
  2757       end if ;
  2758  
  2759   end PREFER RED_FACILI TY_audir_t rgr;
  2760   /
  2761   DROP TRIGG ER ADR.POW _REG_DET_A UDIR_TRGR;
  2762  
  2763   CREATE OR  REPLACE TR IGGER ADR. pow_reg_de t_audir_tr gr
  2764   after Upda te or Dele te or Inse rt
  2765   ON ADR.POW _REGISTRY_ DETAIL
  2766   for each r ow
  2767   declare
  2768           mD ML char(1) ;
  2769   begin
  2770  
  2771           if  DELETING  then
  2772                    inse rt into PO W_REGISTRY _DETAIL_H
  2773                    (
  2774                    POW_ REGISTRY_D ETAIL_H_ID ,
  2775                    POW_ REGISTRY_D ETAIL_ID,
  2776                    PRIS ONER_OF_WA R_REGISTRY _ID,
  2777                    POW_ DATA_SOURC E_TYPE_ID,
  2778                    POW_ DOCUMENT_T YPE_ID,
  2779                    POW_ CONFINE_LO CN_TYPE_ID ,
  2780                    STD_ POWCASUALT YLOCATION_ ID,
  2781                    POW_ CAPTURE_DA TE_TXT,
  2782                    POW_ RELEASE_DA TE_TXT,
  2783                    NUMB ER_OF_DAYS _IN_CAPTIV ITY,
  2784                    LEGA CY_ENTERED _DATE,
  2785                    RECO RD_CREATED _BY,
  2786                    RECO RD_CREATED _DATE,
  2787                    RECO RD_MODIFIE D_BY,
  2788                    RECO RD_MODIFIE D_DATE,
  2789                    RECO RD_MODIFIE D_COUNT,
  2790                    TRAN SACTION_TY PE_CODE
  2791                    )
  2792                    valu es
  2793                    (
  2794                    POW_ REGISTRY_D ETAIL_H_S. nextval,
  2795                    :old .POW_REGIS TRY_DETAIL _ID,
  2796                    :old .PRISONER_ OF_WAR_REG ISTRY_ID,
  2797                    :old .POW_DATA_ SOURCE_TYP E_ID,
  2798                    :old .POW_DOCUM ENT_TYPE_I D,
  2799                    :old .POW_CONFI NE_LOCN_TY PE_ID,
  2800                    :old .STD_POWCA SUALTYLOCA TION_ID,
  2801                    :old .POW_CAPTU RE_DATE_TX T,
  2802                    :old .POW_RELEA SE_DATE_TX T,
  2803                    :old .NUMBER_OF _DAYS_IN_C APTIVITY,
  2804                    :old .LEGACY_EN TERED_DATE ,
  2805                    :old .RECORD_CR EATED_BY,
  2806                    :old .RECORD_CR EATED_DATE ,
  2807                    :old .RECORD_MO DIFIED_BY,
  2808                    :old .RECORD_MO DIFIED_DAT E,
  2809                    :old .RECORD_MO DIFIED_COU NT,
  2810                    'D'
  2811                    );
  2812           el se
  2813                    if U PDATING th en
  2814                             mDML : = 'U';
  2815                    else
  2816                             mDML : = 'I';
  2817                    end  if;
  2818  
  2819                    inse rt into PO W_REGISTRY _DETAIL_H
  2820                    (
  2821                    POW_ REGISTRY_D ETAIL_H_ID ,
  2822                    POW_ REGISTRY_D ETAIL_ID,
  2823                    PRIS ONER_OF_WA R_REGISTRY _ID,
  2824                    POW_ DATA_SOURC E_TYPE_ID,
  2825                    POW_ DOCUMENT_T YPE_ID,
  2826                    POW_ CONFINE_LO CN_TYPE_ID ,
  2827                    STD_ POWCASUALT YLOCATION_ ID,
  2828                    POW_ CAPTURE_DA TE_TXT,
  2829                    POW_ RELEASE_DA TE_TXT,
  2830                    NUMB ER_OF_DAYS _IN_CAPTIV ITY,
  2831                    LEGA CY_ENTERED _DATE,
  2832                    RECO RD_CREATED _BY,
  2833                    RECO RD_CREATED _DATE,
  2834                    RECO RD_MODIFIE D_BY,
  2835                    RECO RD_MODIFIE D_DATE,
  2836                    RECO RD_MODIFIE D_COUNT,
  2837                    TRAN SACTION_TY PE_CODE
  2838                    )
  2839                    valu es
  2840                    (
  2841                    POW_ REGISTRY_D ETAIL_H_S. nextval,
  2842                    :new .POW_REGIS TRY_DETAIL _ID,
  2843                    :new .PRISONER_ OF_WAR_REG ISTRY_ID,
  2844                    :new .POW_DATA_ SOURCE_TYP E_ID,
  2845                    :new .POW_DOCUM ENT_TYPE_I D,
  2846                    :new .POW_CONFI NE_LOCN_TY PE_ID,
  2847                    :new .STD_POWCA SUALTYLOCA TION_ID,
  2848                    :new .POW_CAPTU RE_DATE_TX T,
  2849                    :new .POW_RELEA SE_DATE_TX T,
  2850                    :new .NUMBER_OF _DAYS_IN_C APTIVITY,
  2851                    :new .LEGACY_EN TERED_DATE ,
  2852                    :new .RECORD_CR EATED_BY,
  2853                    :new .RECORD_CR EATED_DATE ,
  2854                    :new .RECORD_MO DIFIED_BY,
  2855                    :new .RECORD_MO DIFIED_DAT E,
  2856                    :new .RECORD_MO DIFIED_COU NT,
  2857                    mDML
  2858                    );
  2859           en d if;
  2860  
  2861   end pow_re g_det_audi r_trgr;
  2862   /
  2863   DROP TRIGG ER ADR.POW _REGISTRY_ AUDIR_TRGR ;
  2864  
  2865   CREATE OR  REPLACE TR IGGER ADR. POW_REGIST RY_AUDIR_T RGR
  2866   after Upda te or Dele te or Inse rt
  2867   on ADR.PRI SONER_OF_W AR_REGISTR Y
  2868   REFERENCIN G NEW AS N EW OLD AS  OLD
  2869   for each r ow
  2870   declare
  2871           mD ML char(1) ;
  2872   begin
  2873  
  2874           if  DELETING  then
  2875                    inse rt into PR ISONER_OF_ WAR_REGIST RY_H
  2876                    (
  2877                    PRIS ONER_OF_WA R_REGISTRY _H_ID,
  2878                    PRIS ONER_OF_WA R_REGISTRY _ID,
  2879                    RECO RD_CREATED _BY,
  2880                    RECO RD_CREATED _DATE,
  2881                    RECO RD_MODIFIE D_BY,
  2882                    RECO RD_MODIFIE D_DATE,
  2883                    PERS ON_ID,
  2884                    REGI STRY_TRAIT _ID,
  2885                    LEGA CY_ICN,
  2886                    LEGA CY_USERNAM E,
  2887                    LEGA CY_ENTERED _DATE,
  2888                    POW_ STDYESNO_I D,
  2889                    RECO RD_MODIFIE D_COUNT,
  2890                    TRAN SACTION_TY PE_CODE
  2891                    )
  2892                    valu es
  2893                    (
  2894                    PRIS ONER_OF_WA R_REGISTRY _H_S.nextv al,
  2895                    :old .PRISONER_ OF_WAR_REG ISTRY_ID,
  2896                    :old .RECORD_CR EATED_BY,
  2897                    :old .RECORD_CR EATED_DATE ,
  2898                    :old .RECORD_MO DIFIED_BY,
  2899                    :old .RECORD_MO DIFIED_DAT E,
  2900                    :old .PERSON_ID ,
  2901                    :old .REGISTRY_ TRAIT_ID,
  2902                    :old .LEGACY_IC N,
  2903                    :old .LEGACY_US ERNAME,
  2904                    :old .LEGACY_EN TERED_DATE ,
  2905                    :old .POW_STDYE SNO_ID,
  2906                    :old .RECORD_MO DIFIED_COU NT,
  2907                    'D'
  2908                    );
  2909  
  2910           el se
  2911                    if U PDATING th en
  2912                             mDML : = 'U';
  2913                    else
  2914                             mDML : = 'I';
  2915                    end  if;
  2916  
  2917                    inse rt into PR ISONER_OF_ WAR_REGIST RY_H
  2918                    (
  2919                    PRIS ONER_OF_WA R_REGISTRY _H_ID,
  2920                    PRIS ONER_OF_WA R_REGISTRY _ID,
  2921                    RECO RD_CREATED _BY,
  2922                    RECO RD_CREATED _DATE,
  2923                    RECO RD_MODIFIE D_BY,
  2924                    RECO RD_MODIFIE D_DATE,
  2925                    PERS ON_ID,
  2926                    REGI STRY_TRAIT _ID,
  2927                    LEGA CY_ICN,
  2928                    LEGA CY_USERNAM E,
  2929                    LEGA CY_ENTERED _DATE,
  2930                    POW_ STDYESNO_I D,
  2931                    RECO RD_MODIFIE D_COUNT,
  2932                    TRAN SACTION_TY PE_CODE
  2933                    )
  2934                    valu es
  2935                    (
  2936                    PRIS ONER_OF_WA R_REGISTRY _H_S.nextv al,
  2937                    :new .PRISONER_ OF_WAR_REG ISTRY_ID,
  2938                    :new .RECORD_CR EATED_BY,
  2939                    :new .RECORD_CR EATED_DATE ,
  2940                    :new .RECORD_MO DIFIED_BY,
  2941                    :new .RECORD_MO DIFIED_DAT E,
  2942                    :new .PERSON_ID ,
  2943                    :new .REGISTRY_ TRAIT_ID,
  2944                    :new .LEGACY_IC N,
  2945                    :new .LEGACY_US ERNAME,
  2946                    :new .LEGACY_EN TERED_DATE ,
  2947                    :new .POW_STDYE SNO_ID,
  2948                    :new .RECORD_MO DIFIED_COU NT,
  2949                    mDML
  2950                    );
  2951  
  2952           en d if;
  2953  
  2954   end POW_RE GISTRY_aud ir_trgr;
  2955   /
  2956   DROP TRIGG ER ADR.PH_ REGISTRY_D ET_AUDIR_T RGR;
  2957  
  2958   CREATE OR  REPLACE TR IGGER ADR. PH_REGISTR Y_DET_audi r_trgr
  2959   after Upda te or Dele te or Inse rt
  2960   ON ADR.PH_ REGISTRY_D ETAIL
  2961   for each r ow
  2962   declare
  2963           mD ML char(1) ;
  2964   begin
  2965  
  2966           if  DELETING  then
  2967                    inse rt into PH _REGISTRY_ DETAIL_H
  2968                    (
  2969                     PH_ REGISTRY_D ETAIL_H_ID ,
  2970                     PH_ REGISTRY_D ETAIL_ID,
  2971                     PH_ DOCUMENT_T YPE_ID,
  2972                     PUR PLE_HEART_ REGISTRY_I D,
  2973                     PH_ DATA_SOURC E_TYPE_ID,
  2974                     PH_ DOCUMENT_R ECEIVED_DA TE,
  2975                     PH_ DOCUMENT_L OGIN_DATE,
  2976                     PH_ DOCUMENT_L OGIN_USERN AME,
  2977                     PH_ DOCUMENT_A CCEPTABLE_ IND,
  2978                     PH_ DOC_UNACCE PTABLE_REM ARKS,
  2979                     REC ORD_CREATE D_BY,
  2980                     REC ORD_CREATE D_DATE,
  2981                     REC ORD_MODIFI ED_BY,
  2982                     REC ORD_MODIFI ED_DATE,
  2983                     REC ORD_MODIFI ED_COUNT,
  2984                     TRA NSACTION_T YPE_CODE
  2985                    )
  2986                    valu es
  2987                    (
  2988                    PH_R EGISTRY_DE TAIL_H_S.n extval,
  2989                    :old .PH_REGIST RY_DETAIL_ ID,
  2990                    :old .PH_DOCUME NT_TYPE_ID ,
  2991                    :old .PURPLE_HE ART_REGIST RY_ID,
  2992                    :old .PH_DATA_S OURCE_TYPE _ID,
  2993                    :old .PH_DOCUME NT_RECEIVE D_DATE,
  2994                    :old .PH_DOCUME NT_LOGIN_D ATE,
  2995                    :old .PH_DOCUME NT_LOGIN_U SERNAME,
  2996                    :old .PH_DOCUME NT_ACCEPTA BLE_IND,
  2997                    :old .PH_DOC_UN ACCEPTABLE _REMARKS,
  2998                    :old .RECORD_CR EATED_BY,
  2999                    :old .RECORD_CR EATED_DATE ,
  3000                    :old .RECORD_MO DIFIED_BY,
  3001                    :old .RECORD_MO DIFIED_DAT E,
  3002                    :old .RECORD_MO DIFIED_COU NT,
  3003                    'D'
  3004                    );
  3005           el se
  3006                    if U PDATING th en
  3007                             mDML : = 'U';
  3008                    else
  3009                             mDML : = 'I';
  3010                    end  if;
  3011  
  3012                    inse rt into PH _REGISTRY_ DETAIL_H
  3013                    (
  3014                     PH_ REGISTRY_D ETAIL_H_ID ,
  3015                     PH_ REGISTRY_D ETAIL_ID,
  3016                     PH_ DOCUMENT_T YPE_ID,
  3017                     PUR PLE_HEART_ REGISTRY_I D,
  3018                     PH_ DATA_SOURC E_TYPE_ID,
  3019                     PH_ DOCUMENT_R ECEIVED_DA TE,
  3020                     PH_ DOCUMENT_L OGIN_DATE,
  3021                     PH_ DOCUMENT_L OGIN_USERN AME,
  3022                     PH_ DOCUMENT_A CCEPTABLE_ IND,
  3023                     PH_ DOC_UNACCE PTABLE_REM ARKS,
  3024                     REC ORD_CREATE D_BY,
  3025                     REC ORD_CREATE D_DATE,
  3026                     REC ORD_MODIFI ED_BY,
  3027                     REC ORD_MODIFI ED_DATE,
  3028                     REC ORD_MODIFI ED_COUNT,
  3029                     TRA NSACTION_T YPE_CODE
  3030                    )
  3031                    valu es
  3032                    (
  3033                    PH_R EGISTRY_DE TAIL_H_S.n extval,
  3034                    :new .PH_REGIST RY_DETAIL_ ID,
  3035                    :new .PH_DOCUME NT_TYPE_ID ,
  3036                    :new .PURPLE_HE ART_REGIST RY_ID,
  3037                    :new .PH_DATA_S OURCE_TYPE _ID,
  3038                    :new .PH_DOCUME NT_RECEIVE D_DATE,
  3039                    :new .PH_DOCUME NT_LOGIN_D ATE,
  3040                    :new .PH_DOCUME NT_LOGIN_U SERNAME,
  3041                    :new .PH_DOCUME NT_ACCEPTA BLE_IND,
  3042                    :new .PH_DOC_UN ACCEPTABLE _REMARKS,
  3043                    :new .RECORD_CR EATED_BY,
  3044                    :new .RECORD_CR EATED_DATE ,
  3045                    :new .RECORD_MO DIFIED_BY,
  3046                    :new .RECORD_MO DIFIED_DAT E,
  3047                    :new .RECORD_MO DIFIED_COU NT,
  3048                    mDML
  3049                    );
  3050           en d if;
  3051  
  3052   end PH_REG ISTRY_DET_ audir_trgr ;
  3053   /
  3054   DROP TRIGG ER ADR.PH_ REGISTRY_A UDIR_TRGR;
  3055  
  3056   CREATE OR  REPLACE TR IGGER ADR. PH_REGISTR Y_AUDIR_TR GR
  3057   after Upda te or Dele te or Inse rt
  3058   on ADR.PUR PLE_HEART_ REGISTRY
  3059   REFERENCIN G NEW AS N EW OLD AS  OLD
  3060   for each r ow
  3061   declare
  3062           mD ML char(1) ;
  3063   begin
  3064  
  3065           if  DELETING  then
  3066                    inse rt into PU RPLE_HEART _REGISTRY_ H
  3067                    (
  3068                    PURP LE_HEART_R EGISTRY_H_ ID,
  3069                    PURP LE_HEART_R EGISTRY_ID ,
  3070                    PH_S TATUS_TYPE _ID,
  3071                    STD_ INSTITUTIO N_ID,
  3072                    STD_ REJECTEDRE MARKS_ID,
  3073                    PERS ON_ID,
  3074                    REGI STRY_TRAIT _ID,
  3075                    PH_S TATUS_LAST _EDIT_USER NAME,
  3076                    PH_S TATUS_LAST _EDIT_DATE ,
  3077                    ASSI GNED_CONTA CT_REP_USE RNAME,
  3078                    PURP LE_HEART_I ND,
  3079                    RECO RD_CREATED _BY,
  3080                    RECO RD_CREATED _DATE,
  3081                    RECO RD_MODIFIE D_BY,
  3082                    RECO RD_MODIFIE D_DATE,
  3083                    RECO RD_MODIFIE D_COUNT,
  3084                    TRAN SACTION_TY PE_CODE
  3085                    )
  3086                    valu es
  3087                    (
  3088                    PURP LE_HEART_R EGISTRY_H_ S.nextval,
  3089                    :old .PURPLE_HE ART_REGIST RY_ID,
  3090                    :old .PH_STATUS _TYPE_ID,
  3091                    :old .STD_INSTI TUTION_ID,
  3092                    :old .STD_REJEC TEDREMARKS _ID,
  3093                    :old .PERSON_ID ,
  3094                    :old .REGISTRY_ TRAIT_ID,
  3095                    :old .PH_STATUS _LAST_EDIT _USERNAME,
  3096                    :old .PH_STATUS _LAST_EDIT _DATE,
  3097                    :old .ASSIGNED_ CONTACT_RE P_USERNAME ,
  3098                    :old .PURPLE_HE ART_IND,
  3099                    :old .RECORD_CR EATED_BY,
  3100                    :old .RECORD_CR EATED_DATE ,
  3101                    :old .RECORD_MO DIFIED_BY,
  3102                    :old .RECORD_MO DIFIED_DAT E,
  3103                    :old .RECORD_MO DIFIED_COU NT,
  3104                    'D'
  3105                    );
  3106  
  3107           el se
  3108                    if U PDATING th en
  3109                             mDML : = 'U';
  3110                    else
  3111                             mDML : = 'I';
  3112                    end  if;
  3113  
  3114                    inse rt into PU RPLE_HEART _REGISTRY_ H
  3115                    (
  3116                    PURP LE_HEART_R EGISTRY_H_ ID,
  3117                    PURP LE_HEART_R EGISTRY_ID ,
  3118                    PH_S TATUS_TYPE _ID,
  3119                    STD_ INSTITUTIO N_ID,
  3120                    STD_ REJECTEDRE MARKS_ID,
  3121                    PERS ON_ID,
  3122                    REGI STRY_TRAIT _ID,
  3123                    PH_S TATUS_LAST _EDIT_USER NAME,
  3124                    PH_S TATUS_LAST _EDIT_DATE ,
  3125                    ASSI GNED_CONTA CT_REP_USE RNAME,
  3126                    PURP LE_HEART_I ND,
  3127                    RECO RD_CREATED _BY,
  3128                    RECO RD_CREATED _DATE,
  3129                    RECO RD_MODIFIE D_BY,
  3130                    RECO RD_MODIFIE D_DATE,
  3131                    RECO RD_MODIFIE D_COUNT,
  3132                    TRAN SACTION_TY PE_CODE
  3133                    )
  3134                    valu es
  3135                    (
  3136                    PURP LE_HEART_R EGISTRY_H_ S.nextval,
  3137                    :new .PURPLE_HE ART_REGIST RY_ID,
  3138                    :new .PH_STATUS _TYPE_ID,
  3139                    :new .STD_INSTI TUTION_ID,
  3140                    :new .STD_REJEC TEDREMARKS _ID,
  3141                    :new .PERSON_ID ,
  3142                    :new .REGISTRY_ TRAIT_ID,
  3143                    :new .PH_STATUS _LAST_EDIT _USERNAME,
  3144                    :new .PH_STATUS _LAST_EDIT _DATE,
  3145                    :new .ASSIGNED_ CONTACT_RE P_USERNAME ,
  3146                    :new .PURPLE_HE ART_IND,
  3147                    :new .RECORD_CR EATED_BY,
  3148                    :new .RECORD_CR EATED_DATE ,
  3149                    :new .RECORD_MO DIFIED_BY,
  3150                    :new .RECORD_MO DIFIED_DAT E,
  3151                    :new .RECORD_MO DIFIED_COU NT,
  3152                    mDML
  3153                    );
  3154  
  3155           en d if;
  3156  
  3157   end PH_REG ISTRY_audi r_trgr;
  3158   /
  3159   DROP TRIGG ER ADR.PHO NE_AUDIR_T RGR;
  3160  
  3161   CREATE OR  REPLACE TR IGGER ADR. PHONE_AUDI R_TRGR AFT ER UPDATE  OR INSERT  OR DELETE  ON "ADR"." PHONE" FOR  EACH ROW
  3162   declare
  3163       mDML c har(1);
  3164   begin
  3165  
  3166     if DELET ING then
  3167       insert  into PHON E_H
  3168       (
  3169       PHONE_ H_ID,
  3170       PHONE_ ID  ,
  3171       PHONE_ NUMBER,
  3172       CHANGE _EFFECTIVE _DATE,
  3173       RECORD _CREATED_B Y,
  3174       RECORD _CREATED_D ATE,
  3175       RECORD _MODIFIED_ BY ,
  3176       RECORD _MODIFIED_ DATE,
  3177       INSURA NCE_ID         ,
  3178       PHONE_ TYPE_ID        ,
  3179       PERSON _ID            ,
  3180       RECORD _MODIFIED_ COUNT,
  3181       STD_IN STITUTION_ ID  ,
  3182       PHONE_ CHANGE_SOU RCE_TYPE_I D,
  3183       RECORD _MODIFIED_ SRC_NAME,
  3184       PERSON _RELATION_ ID,
  3185       TRANSA CTION_TYPE _CODE
  3186       )
  3187       values
  3188       (
  3189       PHONE_ h_s.nextva l,
  3190       :old.P HONE_ID  ,
  3191       :old.P HONE_NUMBE R,
  3192       :old.C HANGE_EFFE CTIVE_DATE ,
  3193       :old.R ECORD_CREA TED_BY,
  3194       :old.R ECORD_CREA TED_DATE,
  3195       :old.R ECORD_MODI FIED_BY ,
  3196       :old.R ECORD_MODI FIED_DATE,
  3197       :old.I NSURANCE_I D        ,
  3198       :old.P HONE_TYPE_ ID       ,
  3199       :old.P ERSON_ID            ,
  3200       :old.R ECORD_MODI FIED_COUNT ,
  3201       :old.S TD_INSTITU TION_ID  ,
  3202       :old.P HONE_CHANG E_SOURCE_T YPE_ID,
  3203       :old.R ECORD_MODI FIED_SRC_N AME,
  3204       :old.P ERSON_RELA TION_ID,
  3205       'D'
  3206       );
  3207  
  3208     else
  3209       if UPD ATING then
  3210         mDML  := 'U';
  3211       else
  3212         mDML  := 'I';
  3213       end if ;
  3214       insert  into PHON E_H
  3215       (
  3216       PHONE_ H_ID,
  3217       PHONE_ ID  ,
  3218       PHONE_ NUMBER,
  3219       CHANGE _EFFECTIVE _DATE,
  3220       RECORD _CREATED_B Y,
  3221       RECORD _CREATED_D ATE,
  3222       RECORD _MODIFIED_ BY ,
  3223       RECORD _MODIFIED_ DATE,
  3224       INSURA NCE_ID         ,
  3225       PHONE_ TYPE_ID        ,
  3226       PERSON _ID            ,
  3227       RECORD _MODIFIED_ COUNT,
  3228       STD_IN STITUTION_ ID  ,
  3229       PHONE_ CHANGE_SOU RCE_TYPE_I D,
  3230       RECORD _MODIFIED_ SRC_NAME,
  3231       PERSON _RELATION_ ID,
  3232       TRANSA CTION_TYPE _CODE
  3233       )
  3234       values
  3235       (
  3236       PHONE_ h_s.nextva l,
  3237       :new.P HONE_ID  ,
  3238       :new.P HONE_NUMBE R,
  3239       :new.C HANGE_EFFE CTIVE_DATE ,
  3240       :new.R ECORD_CREA TED_BY,
  3241       :new.R ECORD_CREA TED_DATE,
  3242       :new.R ECORD_MODI FIED_BY ,
  3243       :new.R ECORD_MODI FIED_DATE,
  3244       :new.I NSURANCE_I D        ,
  3245       :new.P HONE_TYPE_ ID       ,
  3246       :new.P ERSON_ID            ,
  3247       :new.R ECORD_MODI FIED_COUNT ,
  3248       :new.S TD_INSTITU TION_ID  ,
  3249       :new.P HONE_CHANG E_SOURCE_T YPE_ID,
  3250       :new.R ECORD_MODI FIED_SRC_N AME,
  3251       :new.P ERSON_RELA TION_ID,
  3252       mDML
  3253       );
  3254  
  3255     end if;
  3256  
  3257   end PHONE_ audir_trgr ;
  3258   /
  3259   DROP TRIGG ER ADR.PER SON_RELATI ON_AUDIR_T RGR;
  3260  
  3261   CREATE OR  REPLACE TR IGGER ADR. PERSON_REL ATION_AUDI R_TRGR
  3262   after Upda te or Dele te or Inse rt
  3263   ON ADR.PER SON_RELATI ON
  3264   for each r ow
  3265   declare
  3266           mD ML char(1) ;
  3267   begin
  3268  
  3269           if  DELETING  then
  3270                    inse rt into PE RSON_RELAT ION_H
  3271                    (
  3272                    PERS ON_RELATIO N_H_ID,
  3273                    PERS ON_RELATIO N_ID,
  3274                    PERS ON_ID,
  3275                    STD_ GENDER_ID,
  3276                    PERS ON_RELATIO N_TYPE_ID,
  3277                    PRSN _RELATION_ MAPPING_TY PE_CD,
  3278                    HEC_ IEN,
  3279                    PREF IX,
  3280                    FIRS T_NAME,
  3281                    MIDD LE_NAME,
  3282                    LAST _NAME,
  3283                    MAID EN_NAME,
  3284                    SUFF IX,
  3285                    BIRT H_DATE_TXT ,
  3286                    EDUC ATIONAL_DE GREE,
  3287                    RELA TION_EFFEC TIVE_DATE_ TXT,
  3288                    RELA TION_END_D ATE,
  3289                    INCA PABLE_SELF _SUPPORT_I ND,
  3290                    RECO RD_CREATED _BY,
  3291                    RECO RD_CREATED _DATE,
  3292                    RECO RD_MODIFIE D_BY,
  3293                    RECO RD_MODIFIE D_DATE,
  3294                    RECO RD_MODIFIE D_COUNT,
  3295                    TRAN SACTION_TY PE_CODE
  3296                    )
  3297                    valu es
  3298                    (
  3299                    PERS ON_RELATIO N_H_S.next val,
  3300                    :old .PERSON_RE LATION_ID,
  3301                    :old .PERSON_ID ,
  3302                    :old .STD_GENDE R_ID,
  3303                    :old .PERSON_RE LATION_TYP E_ID,
  3304                    :old .PRSN_RELA TION_MAPPI NG_TYPE_CD ,
  3305                    :old .HEC_IEN,
  3306                    :old .PREFIX,
  3307                    :old .FIRST_NAM E,
  3308                    :old .MIDDLE_NA ME,
  3309                    :old .LAST_NAME ,
  3310                    :old .MAIDEN_NA ME,
  3311                    :old .SUFFIX,
  3312                    :old .BIRTH_DAT E_TXT,
  3313                    :old .EDUCATION AL_DEGREE,
  3314                    :old .RELATION_ EFFECTIVE_ DATE_TXT,
  3315                    :old .RELATION_ END_DATE,
  3316                    :old .INCAPABLE _SELF_SUPP ORT_IND,
  3317                    :old .RECORD_CR EATED_BY,
  3318                    :old .RECORD_CR EATED_DATE ,
  3319                    :old .RECORD_MO DIFIED_BY,
  3320                    :old .RECORD_MO DIFIED_DAT E,
  3321                    :old .RECORD_MO DIFIED_COU NT,
  3322                    'D'
  3323                    );
  3324           el se
  3325                    if U PDATING th en
  3326                             mDML : = 'U';
  3327                    else
  3328                             mDML : = 'I';
  3329                    end  if;
  3330  
  3331                    inse rt into PE RSON_RELAT ION_H
  3332                    (
  3333                    PERS ON_RELATIO N_H_ID,
  3334                    PERS ON_RELATIO N_ID,
  3335                    PERS ON_ID,
  3336                    STD_ GENDER_ID,
  3337                    PERS ON_RELATIO N_TYPE_ID,
  3338                    PRSN _RELATION_ MAPPING_TY PE_CD,
  3339                    HEC_ IEN,
  3340                    PREF IX,
  3341                    FIRS T_NAME,
  3342                    MIDD LE_NAME,
  3343                    LAST _NAME,
  3344                    MAID EN_NAME,
  3345                    SUFF IX,
  3346                    BIRT H_DATE_TXT ,
  3347                    EDUC ATIONAL_DE GREE,
  3348                    RELA TION_EFFEC TIVE_DATE_ TXT,
  3349                    RELA TION_END_D ATE,
  3350                    INCA PABLE_SELF _SUPPORT_I ND,
  3351                    RECO RD_CREATED _BY,
  3352                    RECO RD_CREATED _DATE,
  3353                    RECO RD_MODIFIE D_BY,
  3354                    RECO RD_MODIFIE D_DATE,
  3355                    RECO RD_MODIFIE D_COUNT,
  3356                    TRAN SACTION_TY PE_CODE
  3357                    )
  3358                    valu es
  3359                    (
  3360                    PERS ON_RELATIO N_H_S.next val,
  3361                    :new .PERSON_RE LATION_ID,
  3362                    :new .PERSON_ID ,
  3363                    :new .STD_GENDE R_ID,
  3364                    :new .PERSON_RE LATION_TYP E_ID,
  3365                    :new .PRSN_RELA TION_MAPPI NG_TYPE_CD ,
  3366                    :new .HEC_IEN,
  3367                    :new .PREFIX,
  3368                    :new .FIRST_NAM E,
  3369                    :new .MIDDLE_NA ME,
  3370                    :new .LAST_NAME ,
  3371                    :new .MAIDEN_NA ME,
  3372                    :new .SUFFIX,
  3373                    :new .BIRTH_DAT E_TXT,
  3374                    :new .EDUCATION AL_DEGREE,
  3375                    :new .RELATION_ EFFECTIVE_ DATE_TXT,
  3376                    :new .RELATION_ END_DATE,
  3377                    :new .INCAPABLE _SELF_SUPP ORT_IND,
  3378                    :new .RECORD_CR EATED_BY,
  3379                    :new .RECORD_CR EATED_DATE ,
  3380                    :new .RECORD_MO DIFIED_BY,
  3381                    :new .RECORD_MO DIFIED_DAT E,
  3382                    :new .RECORD_MO DIFIED_COU NT,
  3383                    mDML
  3384                    );
  3385           en d if;
  3386  
  3387   end PERSON _RELATION_ audir_trgr ;
  3388   /
  3389   DROP TRIGG ER ADR.PER SON_RACE_A UDIR_TRGR;
  3390  
  3391   CREATE OR  REPLACE TR IGGER ADR. PERSON_RAC E_AUDIR_TR GR
  3392   after Upda te or Dele te or Inse rt
  3393   ON ADR.PER SON_RACE f or each ro w
  3394   declare
  3395       mDML c har(1);
  3396   begin
  3397  
  3398     if DELET ING then
  3399       insert  into PERS ON_RACE_H
  3400       (
  3401       PERSON _RACE_H_ID ,
  3402       PERSON _RACE_ID,
  3403       RECORD _CREATED_B Y,
  3404       RECORD _CREATED_D ATE,
  3405       RECORD _MODIFIED_ BY,
  3406       RECORD _MODIFIED_ DATE,
  3407       STD_RA CE_ID,
  3408       COLLEC TION_METHO D_TYPE_ID,
  3409       PERSON _ID,
  3410       RECORD _MODIFIED_ COUNT,
  3411       RECORD _MODIFIED_ SITE_ID,
  3412       RECORD _MODIFIED_ SRC_NAME,
  3413       TRANSA CTION_TYPE _CODE
  3414       )
  3415       values
  3416       (
  3417       PERSON _RACE_H_S. nextval,
  3418       :old.P ERSON_RACE _ID,
  3419       :old.R ECORD_CREA TED_BY,
  3420       :old.R ECORD_CREA TED_DATE,
  3421       :old.R ECORD_MODI FIED_BY,
  3422       :old.R ECORD_MODI FIED_DATE,
  3423       :old.S TD_RACE_ID ,
  3424       :old.C OLLECTION_ METHOD_TYP E_ID,
  3425       :old.P ERSON_ID,
  3426       :old.R ECORD_MODI FIED_COUNT ,
  3427       :old.R ECORD_MODI FIED_SITE_ ID,
  3428       :old.R ECORD_MODI FIED_SRC_N AME,
  3429       'D'
  3430       );
  3431  
  3432  
  3433  
  3434     else
  3435       if UPD ATING then
  3436         mDML  := 'U';
  3437       else
  3438         mDML  := 'I';
  3439       end if ;
  3440  
  3441       insert  into PERS ON_RACE_H
  3442       (
  3443       PERSON _RACE_H_ID ,
  3444       PERSON _RACE_ID,
  3445       RECORD _CREATED_B Y,
  3446       RECORD _CREATED_D ATE,
  3447       RECORD _MODIFIED_ BY,
  3448       RECORD _MODIFIED_ DATE,
  3449       STD_RA CE_ID,
  3450       COLLEC TION_METHO D_TYPE_ID,
  3451       PERSON _ID,
  3452       RECORD _MODIFIED_ COUNT,
  3453       RECORD _MODIFIED_ SITE_ID,
  3454       RECORD _MODIFIED_ SRC_NAME,
  3455       TRANSA CTION_TYPE _CODE
  3456       )
  3457       values
  3458       (
  3459       PERSON _RACE_H_S. nextval,
  3460       :new.P ERSON_RACE _ID,
  3461       :new.R ECORD_CREA TED_BY,
  3462       :new.R ECORD_CREA TED_DATE,
  3463       :new.R ECORD_MODI FIED_BY,
  3464       :new.R ECORD_MODI FIED_DATE,
  3465       :new.S TD_RACE_ID ,
  3466       :new.C OLLECTION_ METHOD_TYP E_ID,
  3467       :new.P ERSON_ID,
  3468       :new.R ECORD_MODI FIED_COUNT ,
  3469       :new.R ECORD_MODI FIED_SITE_ ID,
  3470       :new.R ECORD_MODI FIED_SRC_N AME,
  3471       mDML
  3472       );
  3473  
  3474  
  3475  
  3476     end if;
  3477  
  3478   end PERSON _RACE_audi r_trgr;
  3479   /
  3480   DROP TRIGG ER ADR.PER SON_ETHNIC ITY_AUDIR_ TRGR;
  3481  
  3482   CREATE OR  REPLACE TR IGGER ADR. PERSON_ETH NICITY_AUD IR_TRGR
  3483   after Upda te or Dele te or Inse rt
  3484   ON ADR.PER SON_ETHNIC ITY for ea ch row
  3485   declare
  3486       mDML c har(1);
  3487   begin
  3488  
  3489     if DELET ING then
  3490       insert  into PERS ON_ETHNICI TY_H
  3491       (
  3492       PERSON _ETHNICITY _H_ID,
  3493       PERSON _ETHNICITY _ID,
  3494       RECORD _CREATED_B Y,
  3495       RECORD _CREATED_D ATE,
  3496       RECORD _MODIFIED_ BY,
  3497       RECORD _MODIFIED_ DATE,
  3498       STD_ET HNICITY_ID ,
  3499       COLLEC TION_METHO D_TYPE_ID,
  3500       PERSON _ID,
  3501       RECORD _MODIFIED_ COUNT,
  3502       RECORD _MODIFIED_ SITE_ID,
  3503       RECORD _MODIFIED_ SRC_NAME,
  3504       TRANSA CTION_TYPE _CODE
  3505       )
  3506       values
  3507       (
  3508       PERSON _ETHNICITY _H_S.nextv al,
  3509       :old.P ERSON_ETHN ICITY_ID,
  3510       :old.R ECORD_CREA TED_BY,
  3511       :old.R ECORD_CREA TED_DATE,
  3512       :old.R ECORD_MODI FIED_BY,
  3513       :old.R ECORD_MODI FIED_DATE,
  3514       :old.S TD_ETHNICI TY_ID,
  3515       :old.C OLLECTION_ METHOD_TYP E_ID,
  3516       :old.P ERSON_ID,
  3517       :old.R ECORD_MODI FIED_COUNT ,
  3518       :old.R ECORD_MODI FIED_SITE_ ID,
  3519       :old.R ECORD_MODI FIED_SRC_N AME,
  3520       'D'
  3521       );
  3522  
  3523     else
  3524       if UPD ATING then
  3525         mDML  := 'U';
  3526       else
  3527         mDML  := 'I';
  3528       end if ;
  3529  
  3530       insert  into PERS ON_ETHNICI TY_H
  3531       (
  3532       PERSON _ETHNICITY _H_ID,
  3533       PERSON _ETHNICITY _ID,
  3534       RECORD _CREATED_B Y,
  3535       RECORD _CREATED_D ATE,
  3536       RECORD _MODIFIED_ BY,
  3537       RECORD _MODIFIED_ DATE,
  3538       STD_ET HNICITY_ID ,
  3539       COLLEC TION_METHO D_TYPE_ID,
  3540       PERSON _ID,
  3541       RECORD _MODIFIED_ COUNT,
  3542       RECORD _MODIFIED_ SITE_ID,
  3543       RECORD _MODIFIED_ SRC_NAME,
  3544       TRANSA CTION_TYPE _CODE
  3545       )
  3546       values
  3547       (
  3548       PERSON _ETHNICITY _H_S.nextv al,
  3549       :new.P ERSON_ETHN ICITY_ID,
  3550       :new.R ECORD_CREA TED_BY,
  3551       :new.R ECORD_CREA TED_DATE,
  3552       :new.R ECORD_MODI FIED_BY,
  3553       :new.R ECORD_MODI FIED_DATE,
  3554       :new.S TD_ETHNICI TY_ID,
  3555       :new.C OLLECTION_ METHOD_TYP E_ID,
  3556       :new.P ERSON_ID,
  3557       :new.R ECORD_MODI FIED_COUNT ,
  3558       :new.R ECORD_MODI FIED_SITE_ ID,
  3559       :new.R ECORD_MODI FIED_SRC_N AME,
  3560       mDML
  3561       );
  3562  
  3563     end if;
  3564  
  3565   end PERSON _ETHNICITY _audir_trg r;
  3566   /
  3567   DROP TRIGG ER ADR.PER SON_CONTAC T_AUDIR_TR GR;
  3568  
  3569   CREATE OR  REPLACE TR IGGER ADR. PERSON_CON TACT_AUDIR _TRGR AFTE R UPDATE O R INSERT O R DELETE O N "ADR"."P ERSON_CONT ACT" FOR E ACH ROW
  3570   declare
  3571           mD ML char(1) ;
  3572   begin
  3573  
  3574           if  DELETING  then
  3575                    inse rt into PE RSON_CONTA CT_H
  3576                    (
  3577                    PERS ON_CONTACT _H_ID,
  3578                    PERS ON_CONTACT _ID,
  3579                    PERS ON_ID,
  3580                    PERS ON_CONTACT _TYPE_ID,
  3581                    CONT ACT_RELATI ONSHIP_TEX T,
  3582                    ORGA NIZATION_N AME,
  3583                    PREF IX,
  3584                    FIRS T_NAME,
  3585                    MIDD LE_NAME,
  3586                    LAST _NAME,
  3587                    SUFF IX,
  3588                    ADDR ESS_LINE1,
  3589                    ADDR ESS_LINE2,
  3590                    ADDR ESS_LINE3,
  3591                    CITY ,
  3592                    STAT E_CODE,
  3593                    COUN TY_CODE,
  3594                    PROV INCE_CODE,
  3595                    POST AL_CODE,
  3596                    ZIP_ PLUS_4,
  3597                    COUN TRY_CODE,
  3598                    HOME _PHONE,
  3599                    WORK _PHONE,
  3600                    EMAI L_ADDRESS,
  3601                    RECO RD_CREATED _BY,
  3602                    RECO RD_CREATED _DATE,
  3603                    RECO RD_MODIFIE D_BY,
  3604                    RECO RD_MODIFIE D_DATE,
  3605                    RECO RD_MODIFIE D_COUNT,
  3606                    HOME _PHONE_UPD ATE_DATE,
  3607                    WORK _PHONE_UPD ATE_DATE,
  3608                    ZIP_ CODE,
  3609                    CONT ACT_DATA_L AST_EDIT_D ATE,
  3610                    RECO RD_MODIFIE D_SITE_ID,
  3611                    RECO RD_MODIFIE D_SRC_NAME ,
  3612                    deac tivation_d ate,
  3613                    TRAN SACTION_TY PE_CODE
  3614                    )
  3615                    valu es
  3616                    (
  3617                    PERS ON_CONTACT _H_S.nextv al,
  3618                    :old .PERSON_CO NTACT_ID,
  3619                    :old .PERSON_ID ,
  3620                    :old .PERSON_CO NTACT_TYPE _ID,
  3621                    :old .CONTACT_R ELATIONSHI P_TEXT,
  3622                    :old .ORGANIZAT ION_NAME,
  3623                    :old .PREFIX,
  3624                    :old .FIRST_NAM E,
  3625                    :old .MIDDLE_NA ME,
  3626                    :old .LAST_NAME ,
  3627                    :old .SUFFIX,
  3628                    :old .ADDRESS_L INE1,
  3629                    :old .ADDRESS_L INE2,
  3630                    :old .ADDRESS_L INE3,
  3631                    :old .CITY,
  3632                    :old .STATE_COD E,
  3633                    :old .COUNTY_CO DE,
  3634                    :old .PROVINCE_ CODE,
  3635                    :old .POSTAL_CO DE,
  3636                    :old .ZIP_PLUS_ 4,
  3637                    :old .COUNTRY_C ODE,
  3638                    :old .HOME_PHON E,
  3639                    :old .WORK_PHON E,
  3640                    :old .EMAIL_ADD RESS,
  3641                    :old .RECORD_CR EATED_BY,
  3642                    :old .RECORD_CR EATED_DATE ,
  3643                    :old .RECORD_MO DIFIED_BY,
  3644                    :old .RECORD_MO DIFIED_DAT E,
  3645                    :old .RECORD_MO DIFIED_COU NT,
  3646                    :old .HOME_PHON E_UPDATE_D ATE,
  3647                    :old .WORK_PHON E_UPDATE_D ATE,
  3648                    :old .ZIP_CODE,
  3649                    :old .CONTACT_D ATA_LAST_E DIT_DATE,
  3650                    :old .RECORD_MO DIFIED_SIT E_ID,
  3651                    :old .RECORD_MO DIFIED_SRC _NAME,
  3652                    :old .deactivat ion_date,
  3653                    'D'
  3654                    );
  3655           el se
  3656                    if U PDATING th en
  3657                             mDML : = 'U';
  3658                    else
  3659                             mDML : = 'I';
  3660                    end  if;
  3661  
  3662                    inse rt into PE RSON_CONTA CT_H
  3663                    (
  3664                    PERS ON_CONTACT _H_ID,
  3665                    PERS ON_CONTACT _ID,
  3666                    PERS ON_ID,
  3667                    PERS ON_CONTACT _TYPE_ID,
  3668                    CONT ACT_RELATI ONSHIP_TEX T,
  3669                    ORGA NIZATION_N AME,
  3670                    PREF IX,
  3671                    FIRS T_NAME,
  3672                    MIDD LE_NAME,
  3673                    LAST _NAME,
  3674                    SUFF IX,
  3675                    ADDR ESS_LINE1,
  3676                    ADDR ESS_LINE2,
  3677                    ADDR ESS_LINE3,
  3678                    CITY ,
  3679                    STAT E_CODE,
  3680                    COUN TY_CODE,
  3681                    PROV INCE_CODE,
  3682                    POST AL_CODE,
  3683                    ZIP_ PLUS_4,
  3684                    COUN TRY_CODE,
  3685                    HOME _PHONE,
  3686                    WORK _PHONE,
  3687                    EMAI L_ADDRESS,
  3688                    RECO RD_CREATED _BY,
  3689                    RECO RD_CREATED _DATE,
  3690                    RECO RD_MODIFIE D_BY,
  3691                    RECO RD_MODIFIE D_DATE,
  3692                    RECO RD_MODIFIE D_COUNT,
  3693                    HOME _PHONE_UPD ATE_DATE,
  3694                    WORK _PHONE_UPD ATE_DATE,
  3695                    ZIP_ CODE,
  3696                    CONT ACT_DATA_L AST_EDIT_D ATE,
  3697                    RECO RD_MODIFIE D_SITE_ID,
  3698                    RECO RD_MODIFIE D_SRC_NAME ,
  3699                    deac tivation_d ate,
  3700                    TRAN SACTION_TY PE_CODE
  3701                    )
  3702                    valu es
  3703                    (
  3704                    PERS ON_CONTACT _H_S.nextv al,
  3705                    :new .PERSON_CO NTACT_ID,
  3706                    :new .PERSON_ID ,
  3707                    :new .PERSON_CO NTACT_TYPE _ID,
  3708                    :new .CONTACT_R ELATIONSHI P_TEXT,
  3709                    :new .ORGANIZAT ION_NAME,
  3710                    :new .PREFIX,
  3711                    :new .FIRST_NAM E,
  3712                    :new .MIDDLE_NA ME,
  3713                    :new .LAST_NAME ,
  3714                    :new .SUFFIX,
  3715                    :new .ADDRESS_L INE1,
  3716                    :new .ADDRESS_L INE2,
  3717                    :new .ADDRESS_L INE3,
  3718                    :new .CITY,
  3719                    :new .STATE_COD E,
  3720                    :new .COUNTY_CO DE,
  3721                    :new .PROVINCE_ CODE,
  3722                    :new .POSTAL_CO DE,
  3723                    :new .ZIP_PLUS_ 4,
  3724                    :new .COUNTRY_C ODE,
  3725                    :new .HOME_PHON E,
  3726                    :new .WORK_PHON E,
  3727                    :new .EMAIL_ADD RESS,
  3728                    :new .RECORD_CR EATED_BY,
  3729                    :new .RECORD_CR EATED_DATE ,
  3730                    :new .RECORD_MO DIFIED_BY,
  3731                    :new .RECORD_MO DIFIED_DAT E,
  3732                    :new .RECORD_MO DIFIED_COU NT,
  3733                    :new .HOME_PHON E_UPDATE_D ATE,
  3734                    :new .WORK_PHON E_UPDATE_D ATE,
  3735                    :new .ZIP_CODE,
  3736                    :new .CONTACT_D ATA_LAST_E DIT_DATE,
  3737                    :new .RECORD_MO DIFIED_SIT E_ID,
  3738                    :new .RECORD_MO DIFIED_SRC _NAME,
  3739                    :new .deactivat ion_date,
  3740                    mDML
  3741                    );
  3742           en d if;
  3743  
  3744   end PERSON _CONTACT_a udir_trgr;
  3745   /
  3746   DROP TRIGG ER ADR.PER SON_AUDIR_ TRGR;
  3747  
  3748   CREATE OR  REPLACE TR IGGER ADR. PERSON_AUD IR_TRGR
  3749     AFTER DE LETE OR IN SERT OR UP DATE
  3750     ON ADR.P ERSON
  3751    REFERENCI NG  OLD AS  OLD NEW A S NEW
  3752    FOR EACH  ROW
  3753   declare
  3754          mDM L char(1);
  3755   begin
  3756  
  3757       if DEL ETING then
  3758            i nsert into  person_h
  3759           (
  3760           PE RSON_H_ID,
  3761           PE RSON_ID,
  3762           VP ID_ID,
  3763           HE C_IEN,
  3764           CL AIM_FOLDER _NUMBER,
  3765           ED UCATIONAL_ DEGREE,
  3766           RE MARKS,
  3767           SE NSITIVITY_ IND,
  3768           SE NSITIVITY_ FLAG_SET_B Y,
  3769           SE NSITIVITY_ FLAG_SET_D ATE,
  3770           VE TERAN_IND,
  3771           DE ATH_DATE_T XT,
  3772           DE ATH_REPORT ED_DATE,
  3773           LA ZARUS_DATE _TXT,
  3774           US ER_ENROLEE _SITE_ID,
  3775           US ER_ENROLEE _THROUGH_Y EAR,
  3776           DI SABILITY_D ISCHARGE_I ND,
  3777           CO MBAT_VET_E LIGIBILITY _END_DT,
  3778           RE CORD_CREAT ED_BY,
  3779           RE CORD_CREAT ED_DATE,
  3780           RE CORD_MODIF IED_BY,
  3781           RE CORD_MODIF IED_DATE,
  3782           ST D_PROGRAMO FSTUDY_ID,
  3783           ST D_MARITALS TATUS_ID,
  3784           ST D_RELIGION _ID,
  3785           MI LITARY_DSB LTY_RETIRE MENT_IND,
  3786           DE ATH_REPORT ING_SITE_I D,
  3787           CL AIM_FOLDER _LOCATION_ SITE_ID,
  3788           DE ATH_NOTIFI CATION_SRC _TYPE_ID,
  3789           VA _ASSOCIATE _TITLE,
  3790           VA _SIGNATURE _BLOCK_PRI NT_NAME,
  3791           VA _SIGNATURE _BLOCK_TIT LE,
  3792           VA _LAST_TRAI NING_YEAR,
  3793           VA MC_MAIL_CO DE,
  3794           VA _ROOM_NUMB ER,
  3795           VA _TERMINATI ON_REASON_ TEXT,
  3796           VA _TERMINATI ON_DATE,
  3797           RE CORD_MODIF IED_COUNT,
  3798           VP ID_VALUE,
  3799           PR EFERRED_SI TE_ID,
  3800           WA S_PRISONER _OF_WAR_IN D,
  3801           AP POINTMENT_ WAS_REQUES TED_IND,
  3802           AP POINTMENT_ REQUESTED_ DATE,
  3803           SE NSITIVITY_ FLAG_SET_S RC_ID,
  3804           SE NSITIVITY_ FLAG_SET_S ITE_ID,
  3805           DE MOGRAPHIC_ UPDATE_EVE NT_DATE,
  3806           EE _MIGRATED_ IND,
  3807           RE CORD_MODIF IED_SITE_I D,
  3808           RE CORD_MODIF IED_SRC_NA ME,
  3809           TR ANSACTION_ TYPE_CODE,
  3810           DE NTAL_CLASS 2_IND,
  3811           DE NTAL_CLS2_ APP_BEF_DU E_DATE,
  3812           HI STORY_CREA TED_DATE,
  3813           ST D_MILITARY SVCQRYSTAT _ID,
  3814             DNS _IND,
  3815           DO D_VERIFIED _IND,
  3816           DE ATH_REPORT ED_BY
  3817           )
  3818           va lues
  3819           (
  3820           pe rson_h_s.n extval  ,
  3821           :o ld.PERSON_ ID,
  3822           :o ld.VPID_ID ,
  3823           :o ld.HEC_IEN ,
  3824           :o ld.CLAIM_F OLDER_NUMB ER,
  3825           :o ld.EDUCATI ONAL_DEGRE E,
  3826           :o ld.REMARKS ,
  3827           :o ld.SENSITI VITY_IND,
  3828           :o ld.SENSITI VITY_FLAG_ SET_BY,
  3829           :o ld.SENSITI VITY_FLAG_ SET_DATE,
  3830           :o ld.VETERAN _IND,
  3831           :o ld.DEATH_D ATE_TXT,
  3832           :o ld.DEATH_R EPORTED_DA TE,
  3833           :o ld.LAZARUS _DATE_TXT,
  3834           :o ld.USER_EN ROLEE_SITE _ID,
  3835           :o ld.USER_EN ROLEE_THRO UGH_YEAR,
  3836           :o ld.DISABIL ITY_DISCHA RGE_IND,
  3837           :o ld.COMBAT_ VET_ELIGIB ILITY_END_ DT,
  3838           :o ld.RECORD_ CREATED_BY ,
  3839           :o ld.RECORD_ CREATED_DA TE,
  3840           :o ld.RECORD_ MODIFIED_B Y,
  3841           :o ld.RECORD_ MODIFIED_D ATE,
  3842           :o ld.STD_PRO GRAMOFSTUD Y_ID,
  3843           :o ld.STD_MAR ITALSTATUS _ID,
  3844           :o ld.STD_REL IGION_ID,
  3845           :o ld.MILITAR Y_DSBLTY_R ETIREMENT_ IND,
  3846           :o ld.DEATH_R EPORTING_S ITE_ID,
  3847           :o ld.CLAIM_F OLDER_LOCA TION_SITE_ ID,
  3848           :o ld.DEATH_N OTIFICATIO N_SRC_TYPE _ID,
  3849           :o ld.VA_ASSO CIATE_TITL E,
  3850           :o ld.VA_SIGN ATURE_BLOC K_PRINT_NA ME,
  3851           :o ld.VA_SIGN ATURE_BLOC K_TITLE,
  3852           :o ld.VA_LAST _TRAINING_ YEAR,
  3853           :o ld.VAMC_MA IL_CODE,
  3854           :o ld.VA_ROOM _NUMBER,
  3855           :o ld.VA_TERM INATION_RE ASON_TEXT,
  3856           :o ld.VA_TERM INATION_DA TE,
  3857           :o ld.RECORD_ MODIFIED_C OUNT,
  3858           :o ld.VPID_VA LUE,
  3859           :o ld.PREFERR ED_SITE_ID ,
  3860           :o ld.WAS_PRI SONER_OF_W AR_IND,
  3861           :o ld.APPOINT MENT_WAS_R EQUESTED_I ND,
  3862           :o ld.APPOINT MENT_REQUE STED_DATE,
  3863           :o ld.SENSITI VITY_FLAG_ SET_SRC_ID ,
  3864           :o ld.SENSITI VITY_FLAG_ SET_SITE_I D,
  3865           :o ld.DEMOGRA PHIC_UPDAT E_EVENT_DA TE,
  3866           :o ld.EE_MIGR ATED_IND,
  3867           :o ld.RECORD_ MODIFIED_S ITE_ID,
  3868           :o ld.RECORD_ MODIFIED_S RC_NAME,
  3869                    'D',
  3870           :o ld.DENTAL_ CLASS2_IND ,
  3871           :o ld.DENTAL_ CLS2_APP_B EF_DUE_DAT E,
  3872           SY SDATE,
  3873           :o ld.STD_MIL ITARYSVCQR YSTAT_ID,
  3874             :old. DNS _IND,
  3875           :o ld.DOD_VER IFIED_IND,
  3876           :o ld.DEATH_R EPORTED_BY
  3877           );
  3878  
  3879       else
  3880           if  UPDATING  then
  3881                mDML :=  'U';
  3882           el se
  3883                mDML :=  'I';
  3884           en d if;
  3885  
  3886            i nsert into  person_h
  3887           (
  3888           PE RSON_H_ID,
  3889           PE RSON_ID,
  3890           VP ID_ID,
  3891           HE C_IEN,
  3892           CL AIM_FOLDER _NUMBER,
  3893           ED UCATIONAL_ DEGREE,
  3894           RE MARKS,
  3895           SE NSITIVITY_ IND,
  3896           SE NSITIVITY_ FLAG_SET_B Y,
  3897           SE NSITIVITY_ FLAG_SET_D ATE,
  3898           VE TERAN_IND,
  3899           DE ATH_DATE_T XT,
  3900           DE ATH_REPORT ED_DATE,
  3901           LA ZARUS_DATE _TXT,
  3902           US ER_ENROLEE _SITE_ID,
  3903           US ER_ENROLEE _THROUGH_Y EAR,
  3904           DI SABILITY_D ISCHARGE_I ND,
  3905           CO MBAT_VET_E LIGIBILITY _END_DT,
  3906           RE CORD_CREAT ED_BY,
  3907           RE CORD_CREAT ED_DATE,
  3908           RE CORD_MODIF IED_BY,
  3909           RE CORD_MODIF IED_DATE,
  3910           ST D_PROGRAMO FSTUDY_ID,
  3911           ST D_MARITALS TATUS_ID,
  3912           ST D_RELIGION _ID,
  3913           MI LITARY_DSB LTY_RETIRE MENT_IND,
  3914           DE ATH_REPORT ING_SITE_I D,
  3915           CL AIM_FOLDER _LOCATION_ SITE_ID,
  3916           DE ATH_NOTIFI CATION_SRC _TYPE_ID,
  3917           VA _ASSOCIATE _TITLE,
  3918           VA _SIGNATURE _BLOCK_PRI NT_NAME,
  3919           VA _SIGNATURE _BLOCK_TIT LE,
  3920           VA _LAST_TRAI NING_YEAR,
  3921           VA MC_MAIL_CO DE,
  3922           VA _ROOM_NUMB ER,
  3923           VA _TERMINATI ON_REASON_ TEXT,
  3924           VA _TERMINATI ON_DATE,
  3925           RE CORD_MODIF IED_COUNT,
  3926           VP ID_VALUE,
  3927           PR EFERRED_SI TE_ID,
  3928           WA S_PRISONER _OF_WAR_IN D,
  3929           AP POINTMENT_ WAS_REQUES TED_IND,
  3930           AP POINTMENT_ REQUESTED_ DATE,
  3931           SE NSITIVITY_ FLAG_SET_S RC_ID,
  3932           SE NSITIVITY_ FLAG_SET_S ITE_ID,
  3933           DE MOGRAPHIC_ UPDATE_EVE NT_DATE,
  3934           EE _MIGRATED_ IND,
  3935           RE CORD_MODIF IED_SITE_I D,
  3936           RE CORD_MODIF IED_SRC_NA ME,
  3937           TR ANSACTION_ TYPE_CODE,
  3938           DE NTAL_CLASS 2_IND,
  3939           DE NTAL_CLS2_ APP_BEF_DU E_DATE,
  3940           HI STORY_CREA TED_DATE,
  3941           ST D_MILITARY SVCQRYSTAT _ID,
  3942             DNS _IND,
  3943           DO D_VERIFIED _IND,
  3944           DE ATH_REPORT ED_BY
  3945           )
  3946           va lues
  3947           (
  3948           pe rson_h_s.n extval  ,
  3949           :n ew.PERSON_ ID,
  3950           :n ew.VPID_ID ,
  3951           :n ew.HEC_IEN ,
  3952           :n ew.CLAIM_F OLDER_NUMB ER,
  3953           :n ew.EDUCATI ONAL_DEGRE E,
  3954           :n ew.REMARKS ,
  3955           :n ew.SENSITI VITY_IND,
  3956           :n ew.SENSITI VITY_FLAG_ SET_BY,
  3957           :n ew.SENSITI VITY_FLAG_ SET_DATE,
  3958           :n ew.VETERAN _IND,
  3959           :n ew.DEATH_D ATE_TXT,
  3960           :n ew.DEATH_R EPORTED_DA TE,
  3961           :n ew.LAZARUS _DATE_TXT,
  3962           :n ew.USER_EN ROLEE_SITE _ID,
  3963           :n ew.USER_EN ROLEE_THRO UGH_YEAR,
  3964           :n ew.DISABIL ITY_DISCHA RGE_IND,
  3965           :n ew.COMBAT_ VET_ELIGIB ILITY_END_ DT,
  3966           :n ew.RECORD_ CREATED_BY ,
  3967           :n ew.RECORD_ CREATED_DA TE,
  3968           :n ew.RECORD_ MODIFIED_B Y,
  3969           :n ew.RECORD_ MODIFIED_D ATE,
  3970           :n ew.STD_PRO GRAMOFSTUD Y_ID,
  3971           :n ew.STD_MAR ITALSTATUS _ID,
  3972           :n ew.STD_REL IGION_ID,
  3973           :n ew.MILITAR Y_DSBLTY_R ETIREMENT_ IND,
  3974           :n ew.DEATH_R EPORTING_S ITE_ID,
  3975           :n ew.CLAIM_F OLDER_LOCA TION_SITE_ ID,
  3976           :n ew.DEATH_N OTIFICATIO N_SRC_TYPE _ID,
  3977           :n ew.VA_ASSO CIATE_TITL E,
  3978           :n ew.VA_SIGN ATURE_BLOC K_PRINT_NA ME,
  3979           :n ew.VA_SIGN ATURE_BLOC K_TITLE,
  3980           :n ew.VA_LAST _TRAINING_ YEAR,
  3981           :n ew.VAMC_MA IL_CODE,
  3982           :n ew.VA_ROOM _NUMBER,
  3983           :n ew.VA_TERM INATION_RE ASON_TEXT,
  3984           :n ew.VA_TERM INATION_DA TE,
  3985           :n ew.RECORD_ MODIFIED_C OUNT,
  3986           :n ew.VPID_VA LUE,
  3987           :n ew.PREFERR ED_SITE_ID ,
  3988           :n ew.WAS_PRI SONER_OF_W AR_IND,
  3989           :n ew.APPOINT MENT_WAS_R EQUESTED_I ND,
  3990           :n ew.APPOINT MENT_REQUE STED_DATE,
  3991           :n ew.SENSITI VITY_FLAG_ SET_SRC_ID ,
  3992           :n ew.SENSITI VITY_FLAG_ SET_SITE_I D,
  3993           :n ew.DEMOGRA PHIC_UPDAT E_EVENT_DA TE,
  3994           :n ew.EE_MIGR ATED_IND,
  3995           :n ew.RECORD_ MODIFIED_S ITE_ID,
  3996           :n ew.RECORD_ MODIFIED_S RC_NAME,
  3997                    mDML ,
  3998           :n ew.DENTAL_ CLASS2_IND ,
  3999           :n ew.DENTAL_ CLS2_APP_B EF_DUE_DAT E,
  4000           SY SDATE,
  4001           :n ew.STD_MIL ITARYSVCQR YSTAT_ID,
  4002             :new. DNS _IND,
  4003           :n ew.DOD_VER IFIED_IND,
  4004           :n ew.DEATH_R EPORTED_BY
  4005  
  4006           );
  4007  
  4008       end if ;
  4009  
  4010   End person _audir_trg r;
  4011   /
  4012   DROP TRIGG ER ADR.PER M_SET_PERM _AUDIR_TRG R;
  4013  
  4014   CREATE OR  REPLACE TR IGGER ADR. PERM_SET_P ERM_audir_ trgr
  4015   after Upda te or Dele te or Inse rt
  4016   ON ADR.PER MISSION_SE T_PERMISSI ONS
  4017   for each r ow
  4018   declare
  4019           mD ML char(1) ;
  4020   begin
  4021  
  4022           if  DELETING  then
  4023                    inse rt into PE RMISSION_S ET_PERMISS IONS_H
  4024                    (
  4025                    PERM _SET_PERMI SSIONS_H_I D,
  4026                    PERM _SET_PERMI SSIONS_ID,
  4027                    PERM ISSION_SET _ID,
  4028                    PERM ISSION_TYP E_ID,
  4029                    RECO RD_CREATED _BY,
  4030                    RECO RD_CREATED _DATE,
  4031                    RECO RD_MODIFIE D_BY,
  4032                    RECO RD_MODIFIE D_DATE,
  4033                    RECO RD_MODIFIE D_COUNT,
  4034                    TRAN SACTION_TY PE_CODE
  4035                    )
  4036                    valu es
  4037                    (
  4038                    PERM SSN_SET_PE RMSSNS_H_S .nextval,
  4039                    :old .PERM_SET_ PERMISSION S_ID,
  4040                    :old .PERMISSIO N_SET_ID,
  4041                    :old .PERMISSIO N_TYPE_ID,
  4042                    :old .RECORD_CR EATED_BY,
  4043                    :old .RECORD_CR EATED_DATE ,
  4044                    :old .RECORD_MO DIFIED_BY,
  4045                    :old .RECORD_MO DIFIED_DAT E,
  4046                    :old .RECORD_MO DIFIED_COU NT,
  4047                    'D'
  4048                    );
  4049           el se
  4050                    if U PDATING th en
  4051                             mDML : = 'U';
  4052                    else
  4053                             mDML : = 'I';
  4054                    end  if;
  4055  
  4056                    inse rt into PE RMISSION_S ET_PERMISS IONS_H
  4057                    (
  4058                    PERM _SET_PERMI SSIONS_H_I D,
  4059                    PERM _SET_PERMI SSIONS_ID,
  4060                    PERM ISSION_SET _ID,
  4061                    PERM ISSION_TYP E_ID,
  4062                    RECO RD_CREATED _BY,
  4063                    RECO RD_CREATED _DATE,
  4064                    RECO RD_MODIFIE D_BY,
  4065                    RECO RD_MODIFIE D_DATE,
  4066                    RECO RD_MODIFIE D_COUNT,
  4067                    TRAN SACTION_TY PE_CODE
  4068                    )
  4069                    valu es
  4070                    (
  4071                    PERM SSN_SET_PE RMSSNS_H_S .nextval,
  4072                    :new .PERM_SET_ PERMISSION S_ID,
  4073                    :new .PERMISSIO N_SET_ID,
  4074                    :new .PERMISSIO N_TYPE_ID,
  4075                    :new .RECORD_CR EATED_BY,
  4076                    :new .RECORD_CR EATED_DATE ,
  4077                    :new .RECORD_MO DIFIED_BY,
  4078                    :new .RECORD_MO DIFIED_DAT E,
  4079                    :new .RECORD_MO DIFIED_COU NT,
  4080                    mDML
  4081                    );
  4082           en d if;
  4083  
  4084   end PERM_S ET_PERM_au dir_trgr;
  4085   /
  4086   DROP TRIGG ER ADR.PER MISSION_SE T_AUDIR_TR GR;
  4087  
  4088   CREATE OR  REPLACE TR IGGER ADR. PERMISSION _SET_audir _trgr
  4089   after Upda te or Dele te or Inse rt
  4090   ON ADR.PER MISSION_SE T
  4091   for each r ow
  4092   declare
  4093           mD ML char(1) ;
  4094   begin
  4095  
  4096           if  DELETING  then
  4097                    inse rt into PE RMISSION_S ET_H
  4098                    (
  4099                    PERM ISSION_SET _H_ID,
  4100                    PERM ISSION_SET _ID,
  4101                    NAME ,
  4102                    DESC RIPTION,
  4103                    ACTI VE_DATE,
  4104                    INAC TIVE_DATE,
  4105                    RECO RD_CREATED _BY,
  4106                    RECO RD_CREATED _DATE,
  4107                    RECO RD_MODIFIE D_BY,
  4108                    RECO RD_MODIFIE D_DATE,
  4109                    RECO RD_MODIFIE D_COUNT,
  4110                    TRAN SACTION_TY PE_CODE
  4111                    )
  4112                    valu es
  4113                    (
  4114                    PERM ISSION_SET _H_S.nextv al,
  4115                    :old .PERMISSIO N_SET_ID,
  4116                    :old .NAME,
  4117                    :old .DESCRIPTI ON,
  4118                    :old .ACTIVE_DA TE,
  4119                    :old .INACTIVE_ DATE,
  4120                    :old .RECORD_CR EATED_BY,
  4121                    :old .RECORD_CR EATED_DATE ,
  4122                    :old .RECORD_MO DIFIED_BY,
  4123                    :old .RECORD_MO DIFIED_DAT E,
  4124                    :old .RECORD_MO DIFIED_COU NT,
  4125                    'D'
  4126                    );
  4127           el se
  4128                    if U PDATING th en
  4129                             mDML : = 'U';
  4130                    else
  4131                             mDML : = 'I';
  4132                    end  if;
  4133  
  4134                    inse rt into PE RMISSION_S ET_H
  4135                    (
  4136                    PERM ISSION_SET _H_ID,
  4137                    PERM ISSION_SET _ID,
  4138                    NAME ,
  4139                    DESC RIPTION,
  4140                    ACTI VE_DATE,
  4141                    INAC TIVE_DATE,
  4142                    RECO RD_CREATED _BY,
  4143                    RECO RD_CREATED _DATE,
  4144                    RECO RD_MODIFIE D_BY,
  4145                    RECO RD_MODIFIE D_DATE,
  4146                    RECO RD_MODIFIE D_COUNT,
  4147                    TRAN SACTION_TY PE_CODE
  4148                    )
  4149                    valu es
  4150                    (
  4151                    PERM ISSION_SET _H_S.nextv al,
  4152                    :new .PERMISSIO N_SET_ID,
  4153                    :new .NAME,
  4154                    :new .DESCRIPTI ON,
  4155                    :new .ACTIVE_DA TE,
  4156                    :new .INACTIVE_ DATE,
  4157                    :new .RECORD_CR EATED_BY,
  4158                    :new .RECORD_CR EATED_DATE ,
  4159                    :new .RECORD_MO DIFIED_BY,
  4160                    :new .RECORD_MO DIFIED_DAT E,
  4161                    :new .RECORD_MO DIFIED_COU NT,
  4162                    mDML
  4163                    );
  4164           en d if;
  4165  
  4166   end PERMIS SION_SET_a udir_trgr;
  4167   /
  4168   DROP TRIGG ER ADR.PEN SION_AUDIR _TRGR;
  4169  
  4170   CREATE OR  REPLACE TR IGGER ADR. PENSION_AU DIR_TRGR
  4171     AFTER DE LETE OR IN SERT OR UP DATE
  4172     ON ADR.P ENSION
  4173    REFERENCI NG  OLD AS  OLD NEW A S NEW
  4174    FOR EACH  ROW
  4175   declare
  4176          mDM L char(1);
  4177   begin
  4178  
  4179       if DEL ETING then
  4180           in sert into  PENSION_H
  4181           (
  4182           PE NSION_H_ID ,
  4183           PE NSION_ID,
  4184           MO NETARY_BEN EFIT_DETAI L_ID,
  4185           PE NSION_AWAR D_REASON_I D,
  4186           PE NSION_AWAR D_EFFECTIV E_DATE,
  4187           PE NSION_AWAR D_TERMINAT ION_DATE,
  4188           PE NSION_AWAR D_TERMINAT ION_ID1,
  4189           PE NSION_AWAR D_TERMINAT ION_ID2,
  4190           PE NSION_AWAR D_TERMINAT ION_ID3,
  4191           PE NSION_AWAR D_TERMINAT ION_ID4,
  4192           RE CORD_CREAT ED_BY,
  4193           RE CORD_CREAT ED_DATE,
  4194           RE CORD_MODIF IED_BY,
  4195           RE CORD_MODIF IED_DATE,
  4196           RE CORD_MODIF IED_COUNT,
  4197           HI STORY_CREA TED_DATE,
  4198           TR ANSACTION_ TYPE_CODE
  4199           )
  4200           va lues
  4201           (
  4202           PE NSION_H_S. nextval,
  4203           :o ld.PENSION _ID,
  4204           :o ld.MONETAR Y_BENEFIT_ DETAIL_ID,
  4205           :o ld.PENSION _AWARD_REA SON_ID,
  4206           :o ld.PENSION _AWARD_EFF ECTIVE_DAT E,
  4207           :o ld.PENSION _AWARD_TER MINATION_D ATE,
  4208           :o ld.PENSION _AWARD_TER MINATION_I D1,
  4209           :o ld.PENSION _AWARD_TER MINATION_I D2,
  4210           :o ld.PENSION _AWARD_TER MINATION_I D3,
  4211           :o ld.PENSION _AWARD_TER MINATION_I D4,
  4212           :o ld.RECORD_ CREATED_BY ,
  4213           :o ld.RECORD_ CREATED_DA TE,
  4214           :o ld.RECORD_ MODIFIED_B Y,
  4215           :o ld.RECORD_ MODIFIED_D ATE,
  4216           :o ld.RECORD_ MODIFIED_C OUNT,
  4217           SY SDATE,
  4218           'D '
  4219           );
  4220       else
  4221           if  UPDATING  then
  4222                mDML :=  'U';
  4223           el se
  4224                mDML :=  'I';
  4225           en d if;
  4226  
  4227           in sert into  PENSION_H
  4228           (
  4229           PE NSION_H_ID ,
  4230           PE NSION_ID,
  4231           MO NETARY_BEN EFIT_DETAI L_ID,
  4232           PE NSION_AWAR D_REASON_I D,
  4233           PE NSION_AWAR D_EFFECTIV E_DATE,
  4234           PE NSION_AWAR D_TERMINAT ION_DATE,
  4235           PE NSION_AWAR D_TERMINAT ION_ID1,
  4236           PE NSION_AWAR D_TERMINAT ION_ID2,
  4237           PE NSION_AWAR D_TERMINAT ION_ID3,
  4238           PE NSION_AWAR D_TERMINAT ION_ID4,
  4239           RE CORD_CREAT ED_BY,
  4240           RE CORD_CREAT ED_DATE,
  4241           RE CORD_MODIF IED_BY,
  4242           RE CORD_MODIF IED_DATE,
  4243           RE CORD_MODIF IED_COUNT,
  4244           HI STORY_CREA TED_DATE,
  4245           TR ANSACTION_ TYPE_CODE
  4246           )
  4247           va lues
  4248           (
  4249           PE NSION_H_S. nextval,
  4250           :n ew.PENSION _ID,
  4251           :n ew.MONETAR Y_BENEFIT_ DETAIL_ID,
  4252           :n ew.PENSION _AWARD_REA SON_ID,
  4253           :n ew.PENSION _AWARD_EFF ECTIVE_DAT E,
  4254           :n ew.PENSION _AWARD_TER MINATION_D ATE,
  4255           :n ew.PENSION _AWARD_TER MINATION_I D1,
  4256           :n ew.PENSION _AWARD_TER MINATION_I D2,
  4257           :n ew.PENSION _AWARD_TER MINATION_I D3,
  4258           :n ew.PENSION _AWARD_TER MINATION_I D4,
  4259           :n ew.RECORD_ CREATED_BY ,
  4260           :n ew.RECORD_ CREATED_DA TE,
  4261           :n ew.RECORD_ MODIFIED_B Y,
  4262           :n ew.RECORD_ MODIFIED_D ATE,
  4263           :n ew.RECORD_ MODIFIED_C OUNT,
  4264           SY SDATE,
  4265           mD ML
  4266           );
  4267       end if ;
  4268  
  4269   end PENSIO N_audir_tr gr;
  4270   /
  4271   DROP TRIGG ER ADR.PAT _PROV_ASSI GN_AUDIR_T RGR;
  4272  
  4273   CREATE OR  REPLACE TR IGGER ADR. PAT_PROV_A SSIGN_AUDI R_TRGR AFT ER UPDATE  OR INSERT  OR DELETE  ON "ADR"." PATIENT_PR OVIDER_ASS IGNMENT" F OR EACH RO W
  4274   declare
  4275          mDM L char(1);
  4276   begin
  4277       if DEL ETING then
  4278           in sert into  PATIENT_PR OVIDER_ASS IGNMENT_H
  4279           (
  4280           PA TIENT_PROV IDER_ASSIG N_H_ID,
  4281           PA TIENT_PROV IDER_ASSIG NMENT_ID,
  4282           HE ALTH_CARE_ PROVIDER_I D,
  4283           PE RSON_ID,
  4284           ST D_TEAM_PUR POSE_ID,
  4285           ST D_INSTITUT ION_ID,
  4286           TE AM_ID,
  4287           TE AM_NAME,
  4288           DA TE_ASSIGNE D,
  4289           DA TE_UNASSIG NED,
  4290           PA TIENT_IEN,
  4291           RE CORD_CREAT ED_BY,
  4292           RE CORD_CREAT ED_DATE,
  4293           RE CORD_MODIF IED_BY,
  4294           RE CORD_MODIF IED_DATE,
  4295           RE CORD_MODIF IED_COUNT,
  4296           HI STORY_CREA TED_DATE,
  4297           TR ANSACTION_ TYPE_CODE
  4298           )
  4299           va lues
  4300           (
  4301           PA TIENT_PROV _ASSIGN_H_ S.nextval,
  4302           :o ld.PATIENT _PROVIDER_ ASSIGNMENT _ID,
  4303           :o ld.HEALTH_ CARE_PROVI DER_ID,
  4304           :o ld.PERSON_ ID,
  4305           :o ld.STD_TEA M_PURPOSE_ ID,
  4306           :o ld.STD_INS TITUTION_I D,
  4307           :o ld.TEAM_ID ,
  4308           :o ld.TEAM_NA ME,
  4309           :o ld.DATE_AS SIGNED,
  4310           :o ld.DATE_UN ASSIGNED,
  4311           :o ld.PATIENT _IEN,
  4312           :o ld.RECORD_ CREATED_BY ,
  4313           :o ld.RECORD_ CREATED_DA TE,
  4314           :o ld.RECORD_ MODIFIED_B Y,
  4315           :o ld.RECORD_ MODIFIED_D ATE,
  4316           :o ld.RECORD_ MODIFIED_C OUNT,
  4317           SY SDATE,
  4318           'D '
  4319           );
  4320       else
  4321           if  UPDATING  then
  4322                mDML :=  'U';
  4323           el se
  4324                mDML :=  'I';
  4325           en d if;
  4326  
  4327           in sert into  PATIENT_PR OVIDER_ASS IGNMENT_H
  4328           (
  4329           PA TIENT_PROV IDER_ASSIG N_H_ID,
  4330           PA TIENT_PROV IDER_ASSIG NMENT_ID,
  4331           HE ALTH_CARE_ PROVIDER_I D,
  4332           PE RSON_ID,
  4333           ST D_TEAM_PUR POSE_ID,
  4334           ST D_INSTITUT ION_ID,
  4335           TE AM_ID,
  4336           TE AM_NAME,
  4337           DA TE_ASSIGNE D,
  4338           DA TE_UNASSIG NED,
  4339           PA TIENT_IEN,
  4340           RE CORD_CREAT ED_BY,
  4341           RE CORD_CREAT ED_DATE,
  4342           RE CORD_MODIF IED_BY,
  4343           RE CORD_MODIF IED_DATE,
  4344           RE CORD_MODIF IED_COUNT,
  4345           HI STORY_CREA TED_DATE,
  4346           TR ANSACTION_ TYPE_CODE
  4347           )
  4348           va lues
  4349           (
  4350           PA TIENT_PROV _ASSIGN_H_ S.nextval,
  4351           :n ew.PATIENT _PROVIDER_ ASSIGNMENT _ID,
  4352           :n ew.HEALTH_ CARE_PROVI DER_ID,
  4353           :n ew.PERSON_ ID,
  4354           :n ew.STD_TEA M_PURPOSE_ ID,
  4355           :n ew.STD_INS TITUTION_I D,
  4356           :n ew.TEAM_ID ,
  4357           :n ew.TEAM_NA ME,
  4358           :n ew.DATE_AS SIGNED,
  4359           :n ew.DATE_UN ASSIGNED,
  4360           :n ew.PATIENT _IEN,
  4361           :n ew.RECORD_ CREATED_BY ,
  4362           :n ew.RECORD_ CREATED_DA TE,
  4363           :n ew.RECORD_ MODIFIED_B Y,
  4364           :n ew.RECORD_ MODIFIED_D ATE,
  4365           :n ew.RECORD_ MODIFIED_C OUNT,
  4366           SY SDATE,
  4367           mD ML
  4368           );
  4369       end if ;
  4370  
  4371   end PAT_PR OV_ASSIGN_ AUDIR_TRGR ;
  4372   /
  4373   DROP TRIGG ER ADR.MON ETARY_BENF _DEF_AUDIR _TRGR;
  4374  
  4375   CREATE OR  REPLACE TR IGGER ADR. MONETARY_B ENF_DEF_AU DIR_TRGR A FTER UPDAT E OR INSER T OR DELET E ON "ADR" ."MONETARY _BENEFIT_D ETAIL" FOR  EACH ROW
  4376   declare
  4377           mD ML char(1) ;
  4378   begin
  4379  
  4380           if  DELETING  then
  4381                    inse rt into MO NETARY_BEN EFIT_DETAI L_H
  4382                    (
  4383                    MONE TARY_BENEF IT_DETAIL_ H_ID,
  4384                    MONE TARY_BENEF IT_DETAIL_ ID,
  4385                    MONE TARY_BENEF IT_ID,
  4386                    MONE TARY_BENEF IT_TYPE_ID ,
  4387                    MONE TARY_BENEF IT_STDYESN O_ID,
  4388                    RECO RD_CREATED _BY,
  4389                    RECO RD_CREATED _DATE,
  4390                    RECO RD_MODIFIE D_BY,
  4391                    RECO RD_MODIFIE D_DATE,
  4392                    RECO RD_MODIFIE D_COUNT,
  4393                    TRAN SACTION_TY PE_CODE
  4394           )
  4395                    valu es
  4396                    (
  4397                    MONE TARY_BENEF IT_DETAIL_ H_S.nextva l,
  4398                    :old .MONETARY_ BENEFIT_DE TAIL_ID,
  4399                    :old .MONETARY_ BENEFIT_ID ,
  4400                    :old .MONETARY_ BENEFIT_TY PE_ID,
  4401                    :old .MONETARY_ BENEFIT_ST DYESNO_ID,
  4402                    :old .RECORD_CR EATED_BY,
  4403                    :old .RECORD_CR EATED_DATE ,
  4404                    :old .RECORD_MO DIFIED_BY,
  4405                    :old .RECORD_MO DIFIED_DAT E,
  4406                    :old .RECORD_MO DIFIED_COU NT,
  4407                    'D'
  4408                    );
  4409           el se
  4410                    if U PDATING th en
  4411                             mDML : = 'U';
  4412                    else
  4413                             mDML : = 'I';
  4414                    end  if;
  4415  
  4416                    inse rt into MO NETARY_BEN EFIT_DETAI L_H
  4417                    (
  4418                    MONE TARY_BENEF IT_DETAIL_ H_ID,
  4419                    MONE TARY_BENEF IT_DETAIL_ ID,
  4420                    MONE TARY_BENEF IT_ID,
  4421                    MONE TARY_BENEF IT_TYPE_ID ,
  4422                    MONE TARY_BENEF IT_STDYESN O_ID,
  4423                    RECO RD_CREATED _BY,
  4424                    RECO RD_CREATED _DATE,
  4425                    RECO RD_MODIFIE D_BY,
  4426                    RECO RD_MODIFIE D_DATE,
  4427                    RECO RD_MODIFIE D_COUNT,
  4428                    TRAN SACTION_TY PE_CODE
  4429           )
  4430                    valu es
  4431                    (
  4432                    MONE TARY_BENEF IT_DETAIL_ H_S.nextva l,
  4433                    :new .MONETARY_ BENEFIT_DE TAIL_ID,
  4434                    :new .MONETARY_ BENEFIT_ID ,
  4435                    :new .MONETARY_ BENEFIT_TY PE_ID,
  4436                    :new .MONETARY_ BENEFIT_ST DYESNO_ID,
  4437                    :new .RECORD_CR EATED_BY,
  4438                    :new .RECORD_CR EATED_DATE ,
  4439                    :new .RECORD_MO DIFIED_BY,
  4440                    :new .RECORD_MO DIFIED_DAT E,
  4441                    :new .RECORD_MO DIFIED_COU NT,
  4442                    mDML
  4443                    );
  4444           en d if;
  4445  
  4446   end  MONET ARY_BENF_D EF_audir_t rgr;
  4447   /
  4448   DROP TRIGG ER ADR.MON ETARY_BENF _AUDIR_TRG R;
  4449  
  4450   CREATE OR  REPLACE TR IGGER ADR. MONETARY_B ENF_AUDIR_ TRGR
  4451   after Upda te or Dele te or Inse rt
  4452   on ADR.MON ETARY_BENE FIT
  4453   REFERENCIN G NEW AS N EW OLD AS  OLD
  4454   for each r ow
  4455   declare
  4456           mD ML char(1) ;
  4457   begin
  4458  
  4459           if  DELETING  then
  4460                    inse rt into MO NETARY_BEN EFIT_H
  4461                    (
  4462                    MONE TARY_BENEF IT_H_ID,
  4463                    MONE TARY_BENEF IT_ID,
  4464                    PERS ON_ID,
  4465                    MONE TARY_BENEF IT_AWARD_A MOUNT,
  4466                    VERI FIED_DATE,
  4467                    RECO RD_CREATED _BY,
  4468                    RECO RD_CREATED _DATE,
  4469                    RECO RD_MODIFIE D_BY,
  4470                    RECO RD_MODIFIE D_DATE,
  4471                    RECO RD_MODIFIE D_COUNT,
  4472                    TRAN SACTION_TY PE_CODE
  4473           )
  4474                    valu es
  4475                    (
  4476                    MONE TARY_BENEF IT_H_S.nex tval,
  4477                    :old .MONETARY_ BENEFIT_ID ,
  4478                    :old .PERSON_ID ,
  4479                    :old .MONETARY_ BENEFIT_AW ARD_AMOUNT ,
  4480                    :old .VERIFIED_ DATE,
  4481                    :old .RECORD_CR EATED_BY,
  4482                    :old .RECORD_CR EATED_DATE ,
  4483                    :old .RECORD_MO DIFIED_BY,
  4484                    :old .RECORD_MO DIFIED_DAT E,
  4485                    :old .RECORD_MO DIFIED_COU NT,
  4486                    'D'
  4487                    );
  4488  
  4489           el se
  4490                    if U PDATING th en
  4491                             mDML : = 'U';
  4492                    else
  4493                             mDML : = 'I';
  4494                    end  if;
  4495  
  4496                    inse rt into MO NETARY_BEN EFIT_H
  4497                    (
  4498                    MONE TARY_BENEF IT_H_ID,
  4499                    MONE TARY_BENEF IT_ID,
  4500                    PERS ON_ID,
  4501                    MONE TARY_BENEF IT_AWARD_A MOUNT,
  4502                    VERI FIED_DATE,
  4503                    RECO RD_CREATED _BY,
  4504                    RECO RD_CREATED _DATE,
  4505                    RECO RD_MODIFIE D_BY,
  4506                    RECO RD_MODIFIE D_DATE,
  4507                    RECO RD_MODIFIE D_COUNT,
  4508                    TRAN SACTION_TY PE_CODE
  4509           )
  4510                    valu es
  4511                    (
  4512                    MONE TARY_BENEF IT_H_S.nex tval,
  4513                    :new .MONETARY_ BENEFIT_ID ,
  4514                    :new .PERSON_ID ,
  4515                    :new .MONETARY_ BENEFIT_AW ARD_AMOUNT ,
  4516                    :new .VERIFIED_ DATE,
  4517                    :new .RECORD_CR EATED_BY,
  4518                    :new .RECORD_CR EATED_DATE ,
  4519                    :new .RECORD_MO DIFIED_BY,
  4520                    :new .RECORD_MO DIFIED_DAT E,
  4521                    :new .RECORD_MO DIFIED_COU NT,
  4522                    mDML
  4523                    );
  4524  
  4525           en d if;
  4526  
  4527   end  MONET ARY_BENF_a udir_trgr;
  4528   /
  4529   DROP TRIGG ER ADR.MOH _AUDIR_TRG R;
  4530  
  4531   CREATE OR  REPLACE TR IGGER ADR. MOH_AUDIR_ TRGR
  4532     AFTER DE LETE OR IN SERT OR UP DATE
  4533     ON ADR.M EDAL_OF_HO NOR
  4534    REFERENCI NG  OLD AS  OLD NEW A S NEW
  4535    FOR EACH  ROW
  4536   declare
  4537          mDM L char(1);
  4538   begin
  4539  
  4540       if DEL ETING then
  4541           in sert into  MEDAL_OF_H ONOR_H
  4542           (
  4543           ME DAL_OF_HON OR_H_ID,
  4544           ME DAL_OF_HON OR_ID,
  4545           PE RSON_ID,
  4546           MH _INDICATOR ,
  4547           MH _STATUS_UP DATE_DATE,
  4548           ST D_DECORATI ONSTATUS_I D,
  4549           DO CUMENT_REC EIPT_DATE,
  4550           ST D_DECORATI ONDOCUMENT _ID,
  4551           ST D_MHDATASO URCE_ID,
  4552           RE CORD_CREAT ED_BY,
  4553           RE CORD_CREAT ED_DATE,
  4554           RE CORD_MODIF IED_BY,
  4555           RE CORD_MODIF IED_DATE,
  4556           RE CORD_MODIF IED_COUNT,
  4557           HI STORY_CREA TED_DATE,
  4558           TR ANSACTION_ TYPE_CODE
  4559           )
  4560           va lues
  4561           (
  4562           ME DAL_OF_HON OR_H_S.nex tval,
  4563           :o ld.MEDAL_O F_HONOR_ID ,
  4564           :o ld.PERSON_ ID,
  4565           :o ld.MH_INDI CATOR,
  4566           :o ld.MH_STAT US_UPDATE_ DATE,
  4567           :o ld.STD_DEC ORATIONSTA TUS_ID,
  4568           :o ld.DOCUMEN T_RECEIPT_ DATE,
  4569           :o ld.STD_DEC ORATIONDOC UMENT_ID,
  4570           :o ld.STD_MHD ATASOURCE_ ID,
  4571           :o ld.RECORD_ CREATED_BY ,
  4572           :o ld.RECORD_ CREATED_DA TE,
  4573           :o ld.RECORD_ MODIFIED_B Y,
  4574           :o ld.RECORD_ MODIFIED_D ATE,
  4575           :o ld.RECORD_ MODIFIED_C OUNT,
  4576           SY SDATE,
  4577           'D '
  4578           );
  4579       else
  4580           if  UPDATING  then
  4581                mDML :=  'U';
  4582           el se
  4583                mDML :=  'I';
  4584           en d if;
  4585  
  4586           in sert into  MEDAL_OF_H ONOR_H
  4587           (
  4588           ME DAL_OF_HON OR_H_ID,
  4589           ME DAL_OF_HON OR_ID,
  4590           PE RSON_ID,
  4591           MH _INDICATOR ,
  4592           MH _STATUS_UP DATE_DATE,
  4593           ST D_DECORATI ONSTATUS_I D,
  4594           DO CUMENT_REC EIPT_DATE,
  4595           ST D_DECORATI ONDOCUMENT _ID,
  4596           ST D_MHDATASO URCE_ID,
  4597           RE CORD_CREAT ED_BY,
  4598           RE CORD_CREAT ED_DATE,
  4599           RE CORD_MODIF IED_BY,
  4600           RE CORD_MODIF IED_DATE,
  4601           RE CORD_MODIF IED_COUNT,
  4602           HI STORY_CREA TED_DATE,
  4603           TR ANSACTION_ TYPE_CODE
  4604           )
  4605           va lues
  4606           (
  4607           ME DAL_OF_HON OR_H_S.nex tval,
  4608           :n ew.MEDAL_O F_HONOR_ID ,
  4609           :n ew.PERSON_ ID,
  4610           :n ew.MH_INDI CATOR,
  4611           :n ew.MH_STAT US_UPDATE_ DATE,
  4612           :n ew.STD_DEC ORATIONSTA TUS_ID,
  4613           :n ew.DOCUMEN T_RECEIPT_ DATE,
  4614           :n ew.STD_DEC ORATIONDOC UMENT_ID,
  4615           :n ew.STD_MHD ATASOURCE_ ID,
  4616           :n ew.RECORD_ CREATED_BY ,
  4617           :n ew.RECORD_ CREATED_DA TE,
  4618           :n ew.RECORD_ MODIFIED_B Y,
  4619           :n ew.RECORD_ MODIFIED_D ATE,
  4620           :n ew.RECORD_ MODIFIED_C OUNT,
  4621           SY SDATE,
  4622           mD ML
  4623           );
  4624       end if ;
  4625  
  4626   end MOH_AU DIR_TRGR;
  4627   /
  4628   DROP TRIGG ER ADR.MIL ITARY_SERV _EPIS_AUDI R_TRGR;
  4629  
  4630   CREATE OR  REPLACE TR IGGER ADR. MILITARY_S ERV_EPIS_A UDIR_TRGR  AFTER UPDA TE OR INSE RT OR DELE TE ON "ADR "."MILITAR Y_SERVICE_ EPISODE" F OR EACH RO W
  4631   declare
  4632           mD ML char(1) ;
  4633   begin
  4634  
  4635           if  DELETING  then
  4636                    inse rt into MI LITARY_SER VICE_EPISO DE_H
  4637                    (
  4638                    MILI TARY_SERVI CE_EPISODE _H_ID,
  4639                    MILI TARY_SERVI CE_EPISODE _ID,
  4640                    MILI TARY_SERVI CE_ID,
  4641                    SERV ICE_BRANCH _TYPE_ID,
  4642                    SERV ICE_DISCHA RGE_TYPE_I D,
  4643                    SERV ICECOMPONE NTTYPE_ID,
  4644                    MILI TARY_SERVI CE_NUMBER,
  4645                    SERV ICE_ENTRY_ DATE_TXT,
  4646                    SERV ICE_SEPARA TION_DATE_ TXT,
  4647                    RECO RD_CREATED _BY,
  4648                    RECO RD_CREATED _DATE,
  4649                    RECO RD_MODIFIE D_BY,
  4650                    RECO RD_MODIFIE D_DATE,
  4651                    RECO RD_MODIFIE D_COUNT,
  4652                    TRAN SACTION_TY PE_CODE
  4653           )
  4654                    valu es
  4655                    (
  4656                    MILI TARY_SERVI CE_EPISODE _H_S.nextv al,
  4657                    :old .MILITARY_ SERVICE_EP ISODE_ID,
  4658                    :old .MILITARY_ SERVICE_ID ,
  4659                    :old .SERVICE_B RANCH_TYPE _ID,
  4660                    :old .SERVICE_D ISCHARGE_T YPE_ID,
  4661                    :old .SERVICECO MPONENTTYP E_ID,
  4662                    :old .MILITARY_ SERVICE_NU MBER,
  4663                    :old .SERVICE_E NTRY_DATE_ TXT,
  4664                    :old .SERVICE_S EPARATION_ DATE_TXT,
  4665                    :old .RECORD_CR EATED_BY,
  4666                    :old .RECORD_CR EATED_DATE ,
  4667                    :old .RECORD_MO DIFIED_BY,
  4668                    :old .RECORD_MO DIFIED_DAT E,
  4669                    :old .RECORD_MO DIFIED_COU NT,
  4670                    'D'
  4671                    );
  4672           el se
  4673                    if U PDATING th en
  4674                             mDML : = 'U';
  4675                    else
  4676                             mDML : = 'I';
  4677                    end  if;
  4678  
  4679                    inse rt into MI LITARY_SER VICE_EPISO DE_H
  4680                    (
  4681                    MILI TARY_SERVI CE_EPISODE _H_ID,
  4682                    MILI TARY_SERVI CE_EPISODE _ID,
  4683                    MILI TARY_SERVI CE_ID,
  4684                    SERV ICE_BRANCH _TYPE_ID,
  4685                    SERV ICE_DISCHA RGE_TYPE_I D,
  4686                    SERV ICECOMPONE NTTYPE_ID,
  4687                    MILI TARY_SERVI CE_NUMBER,
  4688                    SERV ICE_ENTRY_ DATE_TXT,
  4689                    SERV ICE_SEPARA TION_DATE_ TXT,
  4690                    RECO RD_CREATED _BY,
  4691                    RECO RD_CREATED _DATE,
  4692                    RECO RD_MODIFIE D_BY,
  4693                    RECO RD_MODIFIE D_DATE,
  4694                    RECO RD_MODIFIE D_COUNT,
  4695                    TRAN SACTION_TY PE_CODE
  4696           )
  4697                    valu es
  4698                    (
  4699                    MILI TARY_SERVI CE_EPISODE _H_S.nextv al,
  4700                    :new .MILITARY_ SERVICE_EP ISODE_ID,
  4701                    :new .MILITARY_ SERVICE_ID ,
  4702                    :new .SERVICE_B RANCH_TYPE _ID,
  4703                    :new .SERVICE_D ISCHARGE_T YPE_ID,
  4704                    :new .SERVICECO MPONENTTYP E_ID,
  4705                    :new .MILITARY_ SERVICE_NU MBER,
  4706                    :new .SERVICE_E NTRY_DATE_ TXT,
  4707                    :new .SERVICE_S EPARATION_ DATE_TXT,
  4708                    :new .RECORD_CR EATED_BY,
  4709                    :new .RECORD_CR EATED_DATE ,
  4710                    :new .RECORD_MO DIFIED_BY,
  4711                    :new .RECORD_MO DIFIED_DAT E,
  4712                    :new .RECORD_MO DIFIED_COU NT,
  4713                    mDML
  4714                    );
  4715           en d if;
  4716  
  4717   end  MILIT ARY_SERV_E PIS_audir_ trgr;
  4718   /
  4719   DROP TRIGG ER ADR.MIL ITARY_SERV _AUDIR_TRG R;
  4720  
  4721   CREATE OR  REPLACE TR IGGER ADR. MILITARY_S ERV_AUDIR_ TRGR AFTER  UPDATE OR  INSERT OR  DELETE ON  "ADR"."MI LITARY_SER VICE" FOR  EACH ROW
  4722   declare
  4723           mD ML char(1) ;
  4724   begin
  4725  
  4726           if  DELETING  then
  4727                    inse rt into MI LITARY_SER VICE_H
  4728                    (
  4729                    MILI TARY_SERVI CE_H_ID,
  4730                    MILI TARY_SERVI CE_ID,
  4731                    PERS ON_ID,
  4732                    STD_ PERIODOFSE RVICE_ID,
  4733                    FILI PINO_VET_D OC_TYPE_ID ,
  4734                    STD_ INSTITUTIO N_ID,
  4735                    RECO RD_CREATED _DATE,
  4736                    RECO RD_CREATED _BY,
  4737                    RECO RD_MODIFIE D_BY,
  4738                    RECO RD_MODIFIE D_DATE,
  4739                    RECO RD_MODIFIE D_COUNT,
  4740                    TRAN SACTION_TY PE_CODE
  4741           )
  4742                    valu es
  4743                    (
  4744                    MILI TARY_SERVI CE_H_S.nex tval,
  4745                    :old .MILITARY_ SERVICE_ID ,
  4746                    :old .PERSON_ID ,
  4747                    :old .STD_PERIO DOFSERVICE _ID,
  4748                    :old .FILIPINO_ VET_DOC_TY PE_ID,
  4749                    :old .STD_INSTI TUTION_ID,
  4750                    :old .RECORD_CR EATED_DATE ,
  4751                    :old .RECORD_CR EATED_BY,
  4752                    :old .RECORD_MO DIFIED_BY,
  4753                    :old .RECORD_MO DIFIED_DAT E,
  4754                    :old .RECORD_MO DIFIED_COU NT,
  4755                    'D'
  4756                    );
  4757           el se
  4758                    if U PDATING th en
  4759                             mDML : = 'U';
  4760                    else
  4761                             mDML : = 'I';
  4762                    end  if;
  4763  
  4764                    inse rt into MI LITARY_SER VICE_H
  4765                    (
  4766                    MILI TARY_SERVI CE_H_ID,
  4767                    MILI TARY_SERVI CE_ID,
  4768                    PERS ON_ID,
  4769                    STD_ PERIODOFSE RVICE_ID,
  4770                    FILI PINO_VET_D OC_TYPE_ID ,
  4771                    STD_ INSTITUTIO N_ID,
  4772                    RECO RD_CREATED _DATE,
  4773                    RECO RD_CREATED _BY,
  4774                    RECO RD_MODIFIE D_BY,
  4775                    RECO RD_MODIFIE D_DATE,
  4776                    RECO RD_MODIFIE D_COUNT,
  4777                    TRAN SACTION_TY PE_CODE
  4778           )
  4779                    valu es
  4780                    (
  4781                    MILI TARY_SERVI CE_H_S.nex tval,
  4782                    :new .MILITARY_ SERVICE_ID ,
  4783                    :new .PERSON_ID ,
  4784                    :new .STD_PERIO DOFSERVICE _ID,
  4785                    :new .FILIPINO_ VET_DOC_TY PE_ID,
  4786                    :new .STD_INSTI TUTION_ID,
  4787                    :new .RECORD_CR EATED_DATE ,
  4788                    :new .RECORD_CR EATED_BY,
  4789                    :new .RECORD_MO DIFIED_BY,
  4790                    :new .RECORD_MO DIFIED_DAT E,
  4791                    :new .RECORD_MO DIFIED_COU NT,
  4792                    mDML
  4793                    );
  4794           en d if;
  4795  
  4796   end  MILIT ARY_SERV_a udir_trgr;
  4797   /
  4798   DROP TRIGG ER ADR.MIL ITARY_FUT_ DIS_AUDIT_ TRGR;
  4799  
  4800   CREATE OR  REPLACE TR IGGER ADR. MILITARY_F UT_DIS_AUD IT_TRGR
  4801       AFTER  UPDATE OR  DELETE OR  INSERT OF  FUTURE_DIS CHARGE_DAT E
  4802       ON ADR .MILITARY_ FUTURE_DIS CHARGE
  4803       FOR EA CH ROW
  4804   DECLARE
  4805       mDML    CHAR (1)  := 'D';
  4806   BEGIN
  4807       IF DEL ETING
  4808       THEN
  4809           IN SERT
  4810              INTO ADR.M ILITARY_FU TURE_DISCH ARGE_H (MI LITARY_FUT URE_DISCHA RGE_H_ID,
  4811                                                       MI LITARY_FUT URE_DISCHA RGE_ID,
  4812                                                       FU TURE_DISCH ARGE_DATE,
  4813                                                       FU TURE_DISCH ARGE_SRC_T YPE_ID,
  4814                                                       OT HER_EXPLAN ATION,
  4815                                                       SE RVICE_BRAN CH_TYPE_ID ,
  4816                                                       SE RVICE_ENTR Y_DATE,
  4817                                                       SI TE_OF_CHAN GE,
  4818                                                       SO URCE_ID,
  4819                                                       MI LITARY_SER VICE_NUMBE R,
  4820                                                       TR ANSACTION_ TYPE_CODE,
  4821                                                       RE CORD_CREAT ED_BY,
  4822                                                       RE CORD_CREAT ED_DATE,
  4823                                                       RE CORD_MODIF IED_BY,
  4824                                                       RE CORD_MODIF IED_DATE,
  4825                                                       MI LITARY_SER VICE_ID,
  4826                                                       RE CORD_MODIF IED_COUNT)
  4827           VA LUES (ADR. MILITARY_F UTURE_DIS_ H_S.NEXTVA L,
  4828                    :old .MILITARY_ FUTURE_DIS CHARGE_ID,
  4829                    :old .FUTURE_DI SCHARGE_DA TE,
  4830                    :old .FUTURE_DI SCHARGE_SR C_TYPE_ID,
  4831                    :old .OTHER_EXP LANATION,
  4832                    :old .SERVICE_B RANCH_TYPE _ID,
  4833                    :old .SERVICE_E NTRY_DATE,
  4834                    :old .SITE_OF_C HANGE,
  4835                    :old .SOURCE_ID ,
  4836                    :old .MILITARY_ SERVICE_NU MBER,
  4837                    mDML ,
  4838                    :old .RECORD_CR EATED_BY,
  4839                    :old .RECORD_CR EATED_DATE ,
  4840                    :old .RECORD_MO DIFIED_BY,
  4841                    :old .RECORD_MO DIFIED_DAT E,
  4842                    :old .MILITARY_ SERVICE_ID ,
  4843                    :old .RECORD_MO DIFIED_COU NT);
  4844       ELSE
  4845           IF  UPDATING
  4846           TH EN
  4847                mDML :=  'U';
  4848           EL SE
  4849                mDML :=  'I';
  4850           EN D IF;
  4851  
  4852           IN SERT
  4853              INTO ADR.M ILITARY_FU TURE_DISCH ARGE_H (MI LITARY_FUT URE_DISCHA RGE_H_ID,
  4854                                                       MI LITARY_FUT URE_DISCHA RGE_ID,
  4855                                                       FU TURE_DISCH ARGE_DATE,
  4856                                                       FU TURE_DISCH ARGE_SRC_T YPE_ID,
  4857                                                       OT HER_EXPLAN ATION,
  4858                                                       SE RVICE_BRAN CH_TYPE_ID ,
  4859                                                       SE RVICE_ENTR Y_DATE,
  4860                                                       SI TE_OF_CHAN GE,
  4861                                                       SO URCE_ID,
  4862                                                       MI LITARY_SER VICE_NUMBE R,
  4863                                                       TR ANSACTION_ TYPE_CODE,
  4864                                                       RE CORD_CREAT ED_BY,
  4865                                                       RE CORD_CREAT ED_DATE,
  4866                                                       RE CORD_MODIF IED_BY,
  4867                                                       RE CORD_MODIF IED_DATE,
  4868                                                       MI LITARY_SER VICE_ID,
  4869                                                       RE CORD_MODIF IED_COUNT)
  4870           VA LUES (ADR. MILITARY_F UTURE_DIS_ H_S.NEXTVA L,
  4871                    :new .MILITARY_ FUTURE_DIS CHARGE_ID,
  4872                    :new .FUTURE_DI SCHARGE_DA TE,
  4873                    :new .FUTURE_DI SCHARGE_SR C_TYPE_ID,
  4874                    :new .OTHER_EXP LANATION,
  4875                    :new .SERVICE_B RANCH_TYPE _ID,
  4876                    :new .SERVICE_E NTRY_DATE,
  4877                    :new .SITE_OF_C HANGE,
  4878                    :new .SOURCE_ID ,
  4879                    :new .MILITARY_ SERVICE_NU MBER,
  4880                    mDML ,
  4881                    :new .RECORD_CR EATED_BY,
  4882                    :new .RECORD_CR EATED_DATE ,
  4883                    :new .RECORD_MO DIFIED_BY,
  4884                    :new .RECORD_MO DIFIED_DAT E,
  4885                    :new .MILITARY_ SERVICE_ID ,
  4886                    :new .RECORD_MO DIFIED_COU NT + 1);
  4887       END IF ;
  4888   END MILITA RY_FUT_DIS _AUDIT_TRG R;
  4889   /
  4890   DROP TRIGG ER ADR.MED ICAID_FACT OR_AUDIR_T RGR;
  4891  
  4892   CREATE OR  REPLACE TR IGGER ADR. MEDICAID_F ACTOR_AUDI R_TRGR
  4893   after Upda te or Dele te or Inse rt
  4894   on ADR.MED ICAID_FACT OR
  4895   REFERENCIN G NEW AS N EW OLD AS  OLD
  4896   for each r ow
  4897   declare
  4898           mD ML char(1) ;
  4899   begin
  4900  
  4901           if  DELETING  then
  4902                    inse rt into ME DICAID_FAC TOR_H
  4903                    (
  4904                    MEDI CAID_FACTO R_H_ID,
  4905                    MEDI CAID_FACTO R_ID,
  4906                    PERS ON_ID,
  4907                    MEDI CAID_ELIGI BILITY_IND ,
  4908                    MEDI CAID_LAST_ EDIT_DATE,
  4909                    RECO RD_CREATED _BY,
  4910                    RECO RD_CREATED _DATE,
  4911                    RECO RD_MODIFIE D_BY,
  4912                    RECO RD_MODIFIE D_DATE,
  4913                    RECO RD_MODIFIE D_COUNT,
  4914                    TRAN SACTION_TY PE_CODE
  4915           )
  4916                    valu es
  4917                    (
  4918                    MEDI CAID_FACTO R_H_S.next val,
  4919                    :old .MEDICAID_ FACTOR_ID,
  4920                    :old .PERSON_ID ,
  4921                    :old .MEDICAID_ ELIGIBILIT Y_IND,
  4922                    :old .MEDICAID_ LAST_EDIT_ DATE,
  4923                    :old .RECORD_CR EATED_BY,
  4924                    :old .RECORD_CR EATED_DATE ,
  4925                    :old .RECORD_MO DIFIED_BY,
  4926                    :old .RECORD_MO DIFIED_DAT E,
  4927                    :old .RECORD_MO DIFIED_COU NT,
  4928                    'D'
  4929                    );
  4930  
  4931           el se
  4932                    if U PDATING th en
  4933                             mDML : = 'U';
  4934                    else
  4935                             mDML : = 'I';
  4936                    end  if;
  4937  
  4938                    inse rt into ME DICAID_FAC TOR_H
  4939                    (
  4940                    MEDI CAID_FACTO R_H_ID,
  4941                    MEDI CAID_FACTO R_ID,
  4942                    PERS ON_ID,
  4943                    MEDI CAID_ELIGI BILITY_IND ,
  4944                    MEDI CAID_LAST_ EDIT_DATE,
  4945                    RECO RD_CREATED _BY,
  4946                    RECO RD_CREATED _DATE,
  4947                    RECO RD_MODIFIE D_BY,
  4948                    RECO RD_MODIFIE D_DATE,
  4949                    RECO RD_MODIFIE D_COUNT,
  4950                    TRAN SACTION_TY PE_CODE
  4951           )
  4952                    valu es
  4953                    (
  4954                    MEDI CAID_FACTO R_H_S.next val,
  4955                    :new .MEDICAID_ FACTOR_ID,
  4956                    :new .PERSON_ID ,
  4957                    :new .MEDICAID_ ELIGIBILIT Y_IND,
  4958                    :new .MEDICAID_ LAST_EDIT_ DATE,
  4959                    :new .RECORD_CR EATED_BY,
  4960                    :new .RECORD_CR EATED_DATE ,
  4961                    :new .RECORD_MO DIFIED_BY,
  4962                    :new .RECORD_MO DIFIED_DAT E,
  4963                    :new .RECORD_MO DIFIED_COU NT,
  4964                    mDML
  4965                    );
  4966  
  4967           en d if;
  4968  
  4969   end  MEDIC AID_FACTOR _audir_trg r;
  4970   /
  4971   DROP TRIGG ER ADR.INS URANCE_AUD IR_TRGR;
  4972  
  4973   CREATE OR  REPLACE TR IGGER ADR. INSURANCE_ AUDIR_TRGR
  4974   After Upda te or Dele te or Inse rt
  4975   ON ADR.INS URANCE REF ERENCING N EW AS NEW  OLD AS OLD
  4976   for each r ow
  4977   declare
  4978          mDM L char(1);
  4979       mc_eff _d date;
  4980   begin
  4981  
  4982       if DEL ETING then
  4983           in sert into  INSURANCE_ H
  4984           (
  4985           IN SURANCE_H_ ID,
  4986           IN SURANCE_ID ,
  4987           PE RSON_ID,
  4988           IN SURANCE_RP T_SRC_TYPE _ID,
  4989           PO LICY_HOLDE R_TYPE_ID,
  4990           IN SURANCE_MA PPING_TYPE _CODE,
  4991           IN SURANCE_CO MPANY_NAME ,
  4992           PO LICY_HOLDE R_SSN,
  4993           PO LICY_HOLDE R_NAME,
  4994           PO LICY_HOLDE R_BIRTH_DA TE,
  4995           PO LICY_NUMBE R,
  4996           PO LICY_EFFEC TIVE_DATE_ TXT,
  4997           PO LICY_EXPIR ATION_DATE _TXT,
  4998           GR OUP_NAME,
  4999           GR OUP_NUMBER ,
  5000           NA ME_ON_MEDI CARE_CARD,
  5001           ME DICARE_CLA IM_NUMBER,
  5002           ME DICARE_PAR T_A_IND,
  5003           ME DICARE_PAR T_B_IND,
  5004           IN SURANCE_DA TA_LAST_ED IT_DATE,
  5005           RE CORD_CREAT ED_BY,
  5006           RE CORD_CREAT ED_DATE,
  5007           RE CORD_MODIF IED_BY,
  5008           RE CORD_MODIF IED_DATE,
  5009           PR E_CERTIFIC ATION_PENA LTY_IND,
  5010           RE CORD_MODIF IED_COUNT,
  5011           IN SURANCE_DA TA_LAST_ED IT_USER,
  5012           ST D_INSTITUT ION_ID,
  5013           SI TE_UPLOAD_ STATUS_TYP E_ID,
  5014           SI TE_NO_UPLO AD_REASON_ TYPE_ID,
  5015           IN SURANCE_PL AN_TYPE_ID ,
  5016           PR ECRTFN_REQ D_IND,
  5017           DE DUCTIBLE_A MOUNT,
  5018           PE RCENTAGE_P AYABLE,
  5019           FI LING_TIME_ LIMIT,
  5020           ME DICARE_PAR T_A_EFF_DA TE_TXT,
  5021           ME DICARE_PAR T_B_EFF_DA TE_TXT,
  5022           TR ANSACTION_ TYPE_CODE
  5023              )
  5024           va lues
  5025           (
  5026           IN SURANCE_H_ S.nextval,
  5027           :o ld.INSURAN CE_ID,
  5028           :o ld.PERSON_ ID,
  5029           :o ld.INSURAN CE_RPT_SRC _TYPE_ID,
  5030           :o ld.POLICY_ HOLDER_TYP E_ID,
  5031           :o ld.INSURAN CE_MAPPING _TYPE_CODE ,
  5032           :o ld.INSURAN CE_COMPANY _NAME,
  5033           :o ld.POLICY_ HOLDER_SSN ,
  5034           :o ld.POLICY_ HOLDER_NAM E,
  5035           :o ld.POLICY_ HOLDER_BIR TH_DATE,
  5036           :o ld.POLICY_ NUMBER,
  5037           :o ld.POLICY_ EFFECTIVE_ DATE_TXT,
  5038           :o ld.POLICY_ EXPIRATION _DATE_TXT,
  5039           :o ld.GROUP_N AME,
  5040           :o ld.GROUP_N UMBER,
  5041           :o ld.NAME_ON _MEDICARE_ CARD,
  5042           :o ld.MEDICAR E_CLAIM_NU MBER,
  5043           :o ld.MEDICAR E_PART_A_I ND,
  5044           :o ld.MEDICAR E_PART_B_I ND,
  5045           :o ld.INSURAN CE_DATA_LA ST_EDIT_DA TE,
  5046           :o ld.RECORD_ CREATED_BY ,
  5047           :o ld.RECORD_ CREATED_DA TE,
  5048           :o ld.RECORD_ MODIFIED_B Y,
  5049           :o ld.RECORD_ MODIFIED_D ATE,
  5050           :o ld.PRE_CER TIFICATION _PENALTY_I ND,
  5051           :o ld.RECORD_ MODIFIED_C OUNT,
  5052           :o ld.INSURAN CE_DATA_LA ST_EDIT_US ER,
  5053           :o ld.STD_INS TITUTION_I D,
  5054           :o ld.SITE_UP LOAD_STATU S_TYPE_ID,
  5055           :o ld.SITE_NO _UPLOAD_RE ASON_TYPE_ ID,
  5056           :o ld.INSURAN CE_PLAN_TY PE_ID,
  5057           :o ld.PRECRTF N_REQD_IND ,
  5058           :o ld.DEDUCTI BLE_AMOUNT ,
  5059           :o ld.PERCENT AGE_PAYABL E,
  5060           :o ld.FILING_ TIME_LIMIT ,
  5061           :o ld.MEDICAR E_PART_A_E FF_DATE_TX T,
  5062           :o ld.MEDICAR E_PART_B_E FF_DATE_TX T,
  5063           'D '
  5064           );
  5065  
  5066       else
  5067           if  UPDATING  then
  5068                mDML :=  'U';
  5069           el se
  5070                mDML :=  'I';
  5071           en d if;
  5072  
  5073  
  5074           in sert into  INSURANCE_ H
  5075           (
  5076           IN SURANCE_H_ ID,
  5077           IN SURANCE_ID ,
  5078           PE RSON_ID,
  5079           IN SURANCE_RP T_SRC_TYPE _ID,
  5080           PO LICY_HOLDE R_TYPE_ID,
  5081           IN SURANCE_MA PPING_TYPE _CODE,
  5082           IN SURANCE_CO MPANY_NAME ,
  5083           PO LICY_HOLDE R_SSN,
  5084           PO LICY_HOLDE R_NAME,
  5085           PO LICY_HOLDE R_BIRTH_DA TE,
  5086           PO LICY_NUMBE R,
  5087           PO LICY_EFFEC TIVE_DATE_ TXT,
  5088           PO LICY_EXPIR ATION_DATE _TXT,
  5089           GR OUP_NAME,
  5090           GR OUP_NUMBER ,
  5091           NA ME_ON_MEDI CARE_CARD,
  5092           ME DICARE_CLA IM_NUMBER,
  5093           ME DICARE_PAR T_A_IND,
  5094           ME DICARE_PAR T_B_IND,
  5095           IN SURANCE_DA TA_LAST_ED IT_DATE,
  5096           RE CORD_CREAT ED_BY,
  5097           RE CORD_CREAT ED_DATE,
  5098           RE CORD_MODIF IED_BY,
  5099           RE CORD_MODIF IED_DATE,
  5100           PR E_CERTIFIC ATION_PENA LTY_IND,
  5101           RE CORD_MODIF IED_COUNT,
  5102           IN SURANCE_DA TA_LAST_ED IT_USER,
  5103           ST D_INSTITUT ION_ID,
  5104           SI TE_UPLOAD_ STATUS_TYP E_ID,
  5105           SI TE_NO_UPLO AD_REASON_ TYPE_ID,
  5106           IN SURANCE_PL AN_TYPE_ID ,
  5107           PR ECRTFN_REQ D_IND,
  5108           DE DUCTIBLE_A MOUNT,
  5109           PE RCENTAGE_P AYABLE,
  5110           FI LING_TIME_ LIMIT,
  5111           ME DICARE_PAR T_A_EFF_DA TE_TXT,
  5112           ME DICARE_PAR T_B_EFF_DA TE_TXT,
  5113           TR ANSACTION_ TYPE_CODE
  5114              )
  5115           va lues
  5116           (
  5117           IN SURANCE_H_ S.nextval,
  5118           :n ew.INSURAN CE_ID,
  5119           :n ew.PERSON_ ID,
  5120           :n ew.INSURAN CE_RPT_SRC _TYPE_ID,
  5121           :n ew.POLICY_ HOLDER_TYP E_ID,
  5122           :n ew.INSURAN CE_MAPPING _TYPE_CODE ,
  5123           :n ew.INSURAN CE_COMPANY _NAME,
  5124           :n ew.POLICY_ HOLDER_SSN ,
  5125           :n ew.POLICY_ HOLDER_NAM E,
  5126           :n ew.POLICY_ HOLDER_BIR TH_DATE,
  5127           :n ew.POLICY_ NUMBER,
  5128           :n ew.POLICY_ EFFECTIVE_ DATE_TXT,
  5129           :n ew.POLICY_ EXPIRATION _DATE_TXT,
  5130           :n ew.GROUP_N AME,
  5131           :n ew.GROUP_N UMBER,
  5132           :n ew.NAME_ON _MEDICARE_ CARD,
  5133           :n ew.MEDICAR E_CLAIM_NU MBER,
  5134           :n ew.MEDICAR E_PART_A_I ND,
  5135           :n ew.MEDICAR E_PART_B_I ND,
  5136           :n ew.INSURAN CE_DATA_LA ST_EDIT_DA TE,
  5137           :n ew.RECORD_ CREATED_BY ,
  5138           :n ew.RECORD_ CREATED_DA TE,
  5139           :n ew.RECORD_ MODIFIED_B Y,
  5140           :n ew.RECORD_ MODIFIED_D ATE,
  5141           :n ew.PRE_CER TIFICATION _PENALTY_I ND,
  5142           :n ew.RECORD_ MODIFIED_C OUNT,
  5143           :n ew.INSURAN CE_DATA_LA ST_EDIT_US ER,
  5144           :n ew.STD_INS TITUTION_I D,
  5145           :n ew.SITE_UP LOAD_STATU S_TYPE_ID,
  5146           :n ew.SITE_NO _UPLOAD_RE ASON_TYPE_ ID,
  5147           :n ew.INSURAN CE_PLAN_TY PE_ID,
  5148           :n ew.PRECRTF N_REQD_IND ,
  5149           :n ew.DEDUCTI BLE_AMOUNT ,
  5150           :n ew.PERCENT AGE_PAYABL E,
  5151           :n ew.FILING_ TIME_LIMIT ,
  5152           :n ew.MEDICAR E_PART_A_E FF_DATE_TX T,
  5153           :n ew.MEDICAR E_PART_B_E FF_DATE_TX T,
  5154           mD ML
  5155           );
  5156  
  5157  
  5158       end if ;
  5159  
  5160   end  INSUR ANCE_audir _trgr;
  5161   /
  5162   DROP TRIGG ER ADR.INE LIGIBLE_RU L_AUDIR_TR GR;
  5163  
  5164   CREATE OR  REPLACE TR IGGER ADR. INELIGIBLE _RUL_AUDIR _TRGR
  5165   after Upda te or Dele te or Inse rt
  5166   on ADR.INE LIGIBLE_RU LING
  5167   REFERENCIN G NEW AS N EW OLD AS  OLD
  5168   for each r ow
  5169   declare
  5170           mD ML char(1) ;
  5171   begin
  5172  
  5173           if  DELETING  then
  5174                    inse rt into IN ELIGIBLE_R ULING_H
  5175                    (
  5176                    INEL IGIBLE_RUL ING_H_ID,
  5177                    INEL IGIBLE_RUL ING_ID,
  5178                    PERS ON_ID,
  5179                    STD_ INSTITUTIO N_ID,
  5180                    INEL IGIBLE_DAT E,
  5181                    INEL IGIBLE_REA SON_TEXT,
  5182                    VARO _DECISION_ TEXT,
  5183                    RECO RD_CREATED _DATE,
  5184                    RECO RD_CREATED _BY,
  5185                    RECO RD_MODIFIE D_BY,
  5186                    RECO RD_MODIFIE D_DATE,
  5187                    RECO RD_MODIFIE D_COUNT      ,
  5188                    TRAN SACTION_TY PE_CODE
  5189           )
  5190                    valu es
  5191                    (
  5192                    INEL IGIBLE_RUL ING_H_S.ne xtval,
  5193                    :old .INELIGIBL E_RULING_I D,
  5194                    :old .PERSON_ID ,
  5195                    :old .STD_INSTI TUTION_ID,
  5196                    :old .INELIGIBL E_DATE,
  5197                    :old .INELIGIBL E_REASON_T EXT,
  5198                    :old .VARO_DECI SION_TEXT,
  5199                    :old .RECORD_CR EATED_DATE ,
  5200                    :old .RECORD_CR EATED_BY,
  5201                    :old .RECORD_MO DIFIED_BY,
  5202                    :old .RECORD_MO DIFIED_DAT E,
  5203                    :old .RECORD_MO DIFIED_COU NT     ,
  5204                    'D'
  5205                    );
  5206  
  5207           el se
  5208                    if U PDATING th en
  5209                             mDML : = 'U';
  5210                    else
  5211                             mDML : = 'I';
  5212                    end  if;
  5213  
  5214                    inse rt into IN ELIGIBLE_R ULING_H
  5215                    (
  5216                    INEL IGIBLE_RUL ING_H_ID,
  5217                    INEL IGIBLE_RUL ING_ID,
  5218                    PERS ON_ID,
  5219                    STD_ INSTITUTIO N_ID,
  5220                    INEL IGIBLE_DAT E,
  5221                    INEL IGIBLE_REA SON_TEXT,
  5222                    VARO _DECISION_ TEXT,
  5223                    RECO RD_CREATED _DATE,
  5224                    RECO RD_CREATED _BY,
  5225                    RECO RD_MODIFIE D_BY,
  5226                    RECO RD_MODIFIE D_DATE,
  5227                    RECO RD_MODIFIE D_COUNT,
  5228                    TRAN SACTION_TY PE_CODE
  5229           )
  5230                    valu es
  5231                    (
  5232                    INEL IGIBLE_RUL ING_H_S.ne xtval,
  5233                    :new .INELIGIBL E_RULING_I D,
  5234                    :new .PERSON_ID ,
  5235                    :new .STD_INSTI TUTION_ID,
  5236                    :new .INELIGIBL E_DATE,
  5237                    :new .INELIGIBL E_REASON_T EXT,
  5238                    :new .VARO_DECI SION_TEXT,
  5239                    :new .RECORD_CR EATED_DATE ,
  5240                    :new .RECORD_CR EATED_BY,
  5241                    :new .RECORD_MO DIFIED_BY,
  5242                    :new .RECORD_MO DIFIED_DAT E,
  5243                    :new .RECORD_MO DIFIED_COU NT,
  5244                    mDML
  5245                    );
  5246  
  5247           en d if;
  5248  
  5249   end  INELI GIBLE_RUL_ audir_trgr ;
  5250   /
  5251   DROP TRIGG ER ADR.INC OMPETENT_R UL_AUDIR_T RGR;
  5252  
  5253   CREATE OR  REPLACE TR IGGER ADR. INCOMPETEN T_RUL_AUDI R_TRGR
  5254   after Upda te or Dele te or Inse rt
  5255   on ADR.INC OMPETENT_R ULING
  5256   REFERENCIN G NEW AS N EW OLD AS  OLD
  5257   for each r ow
  5258   declare
  5259           mD ML char(1) ;
  5260   begin
  5261  
  5262           if  DELETING  then
  5263                    inse rt into IN COMPETENT_ RULING_H
  5264                    (
  5265                    INCO MPETENT_RU LING_H_ID,
  5266                    INCO MPETENT_RU LING_ID,
  5267                    PERS ON_ID,
  5268                    CIVI L_INCPTNT_ RULING_DAT E_TXT,
  5269                    VA_I NCPTNT_RUL ING_DATE_T XT,
  5270                    RULE D_INCOMPET ENT_IND,
  5271                    RECO RD_CREATED _BY,
  5272                    RECO RD_CREATED _DATE,
  5273                    RECO RD_MODIFIE D_BY,
  5274                    RECO RD_MODIFIE D_DATE,
  5275                    RECO RD_MODIFIE D_COUNT,
  5276                    TRAN SACTION_TY PE_CODE
  5277           )
  5278                    valu es
  5279                    (
  5280                    INCO MPETENT_RU LING_H_S.n extval,
  5281                    :old .INCOMPETE NT_RULING_ ID,
  5282                    :old .PERSON_ID ,
  5283                    :old .CIVIL_INC PTNT_RULIN G_DATE_TXT ,
  5284                    :old .VA_INCPTN T_RULING_D ATE_TXT,
  5285                    :old .RULED_INC OMPETENT_I ND,
  5286                    :old .RECORD_CR EATED_BY,
  5287                    :old .RECORD_CR EATED_DATE ,
  5288                    :old .RECORD_MO DIFIED_BY,
  5289                    :old .RECORD_MO DIFIED_DAT E,
  5290                    :old .RECORD_MO DIFIED_COU NT,
  5291                    'D'
  5292                    );
  5293  
  5294           el se
  5295                    if U PDATING th en
  5296                             mDML : = 'U';
  5297                    else
  5298                             mDML : = 'I';
  5299                    end  if;
  5300  
  5301                    inse rt into IN COMPETENT_ RULING_H
  5302                    (
  5303                    INCO MPETENT_RU LING_H_ID,
  5304                    INCO MPETENT_RU LING_ID,
  5305                    PERS ON_ID,
  5306                    CIVI L_INCPTNT_ RULING_DAT E_TXT,
  5307                    VA_I NCPTNT_RUL ING_DATE_T XT,
  5308                    RULE D_INCOMPET ENT_IND,
  5309                    RECO RD_CREATED _BY,
  5310                    RECO RD_CREATED _DATE,
  5311                    RECO RD_MODIFIE D_BY,
  5312                    RECO RD_MODIFIE D_DATE,
  5313                    RECO RD_MODIFIE D_COUNT,
  5314                    TRAN SACTION_TY PE_CODE
  5315           )
  5316                    valu es
  5317                    (
  5318                    INCO MPETENT_RU LING_H_S.n extval,
  5319                    :new .INCOMPETE NT_RULING_ ID,
  5320                    :new .PERSON_ID ,
  5321                    :new .CIVIL_INC PTNT_RULIN G_DATE_TXT ,
  5322                    :new .VA_INCPTN T_RULING_D ATE_TXT,
  5323                    :new .RULED_INC OMPETENT_I ND,
  5324                    :new .RECORD_CR EATED_BY,
  5325                    :new .RECORD_CR EATED_DATE ,
  5326                    :new .RECORD_MO DIFIED_BY,
  5327                    :new .RECORD_MO DIFIED_DAT E,
  5328                    :new .RECORD_MO DIFIED_COU NT,
  5329                    mDML
  5330                    );
  5331  
  5332           en d if;
  5333  
  5334   end  INCOM PETENT_RUL _audir_trg r;
  5335   /
  5336   DROP TRIGG ER ADR.INC OME_TEST_D ET_AUDIR_T RGR;
  5337  
  5338   CREATE OR  REPLACE TR IGGER ADR. INCOME_TES T_DET_AUDI R_TRGR AFT ER UPDATE  OR INSERT  OR DELETE  ON "ADR"." INCOME_TES T_DETAIL"  FOR EACH R OW
  5339   declare
  5340           mD ML char(1) ;
  5341   begin
  5342  
  5343           if  DELETING  then
  5344                    inse rt into IN COME_TEST_ DETAIL_H
  5345                    (
  5346                    INCO ME_TEST_DE TAIL_H_ID,
  5347                    INCO ME_TEST_DE TAIL_ID,
  5348                    INCO ME_TEST_ID ,
  5349                    INCO ME_TEST_TY PE_ID,
  5350                    TEST _STATUS_TY PE_ID,
  5351                    TEST _DETMND_ST ATUS_TYPE_ ID,
  5352                    INCO ME_TEST_LA ST_EDITED_ DATE,
  5353                    INCO ME_TEST_CO MPLETED_DA TE,
  5354                    INCO ME_TEST_EX PIRATION_D ATE,
  5355                    INCO ME_TEST_EF FECTIVE_DA TE,
  5356                    INCO ME_TEST_SI GNED_DATE,
  5357                    RECO RD_CREATED _BY,
  5358                    RECO RD_CREATED _DATE,
  5359                    RECO RD_MODIFIE D_BY,
  5360                    RECO RD_MODIFIE D_DATE,
  5361                    RECO RD_MODIFIE D_COUNT,
  5362                    TRAN SACTION_TY PE_CODE
  5363           )
  5364                    valu es
  5365                    (
  5366                    INCO ME_TEST_DE TAIL_H_S.n extval,
  5367                    :old .INCOME_TE ST_DETAIL_ ID,
  5368                    :old .INCOME_TE ST_ID,
  5369                    :old .INCOME_TE ST_TYPE_ID ,
  5370                    :old .TEST_STAT US_TYPE_ID ,
  5371                    :old .TEST_DETM ND_STATUS_ TYPE_ID,
  5372                    :old .INCOME_TE ST_LAST_ED ITED_DATE,
  5373                    :old .INCOME_TE ST_COMPLET ED_DATE,
  5374                    :old .INCOME_TE ST_EXPIRAT ION_DATE,
  5375                    :old .INCOME_TE ST_EFFECTI VE_DATE,
  5376                    :old .INCOME_TE ST_SIGNED_ DATE,
  5377                    :old .RECORD_CR EATED_BY,
  5378                    :old .RECORD_CR EATED_DATE ,
  5379                    :old .RECORD_MO DIFIED_BY,
  5380                    :old .RECORD_MO DIFIED_DAT E,
  5381                    :old .RECORD_MO DIFIED_COU NT,
  5382                    'D'
  5383                    );
  5384           el se
  5385                    if U PDATING th en
  5386                             mDML : = 'U';
  5387                    else
  5388                             mDML : = 'I';
  5389                    end  if;
  5390  
  5391                    inse rt into IN COME_TEST_ DETAIL_H
  5392                    (
  5393                    INCO ME_TEST_DE TAIL_H_ID,
  5394                    INCO ME_TEST_DE TAIL_ID,
  5395                    INCO ME_TEST_ID ,
  5396                    INCO ME_TEST_TY PE_ID,
  5397                    TEST _STATUS_TY PE_ID,
  5398                    TEST _DETMND_ST ATUS_TYPE_ ID,
  5399                    INCO ME_TEST_LA ST_EDITED_ DATE,
  5400                    INCO ME_TEST_CO MPLETED_DA TE,
  5401                    INCO ME_TEST_EX PIRATION_D ATE,
  5402                    INCO ME_TEST_EF FECTIVE_DA TE,
  5403                    INCO ME_TEST_SI GNED_DATE,
  5404                    RECO RD_CREATED _BY,
  5405                    RECO RD_CREATED _DATE,
  5406                    RECO RD_MODIFIE D_BY,
  5407                    RECO RD_MODIFIE D_DATE,
  5408                    RECO RD_MODIFIE D_COUNT,
  5409                    TRAN SACTION_TY PE_CODE
  5410           )
  5411                    valu es
  5412                    (
  5413                    INCO ME_TEST_DE TAIL_H_S.n extval,
  5414                    :new .INCOME_TE ST_DETAIL_ ID,
  5415                    :new .INCOME_TE ST_ID,
  5416                    :new .INCOME_TE ST_TYPE_ID ,
  5417                    :new .TEST_STAT US_TYPE_ID ,
  5418                    :new .TEST_DETM ND_STATUS_ TYPE_ID,
  5419                    :new .INCOME_TE ST_LAST_ED ITED_DATE,
  5420                    :new .INCOME_TE ST_COMPLET ED_DATE,
  5421                    :new .INCOME_TE ST_EXPIRAT ION_DATE,
  5422                    :new .INCOME_TE ST_EFFECTI VE_DATE,
  5423                    :new .INCOME_TE ST_SIGNED_ DATE,
  5424                    :new .RECORD_CR EATED_BY,
  5425                    :new .RECORD_CR EATED_DATE ,
  5426                    :new .RECORD_MO DIFIED_BY,
  5427                    :new .RECORD_MO DIFIED_DAT E,
  5428                    :new .RECORD_MO DIFIED_COU NT,
  5429                    mDML
  5430                    );
  5431           en d if;
  5432  
  5433   end  INCOM E_TEST_DET _audir_trg r;
  5434   /
  5435   DROP TRIGG ER ADR.INC OME_TEST_A UDIR_TRGR;
  5436  
  5437   CREATE OR  REPLACE TR IGGER ADR. INCOME_TES T_AUDIR_TR GR
  5438   after Upda te or Dele te or Inse rt
  5439   on ADR.INC OME_TEST
  5440   REFERENCIN G NEW AS N EW OLD AS  OLD
  5441   for each r ow
  5442   declare
  5443          mDM L char(1);
  5444   begin
  5445  
  5446       if DEL ETING then
  5447           in sert into  INCOME_TES T_H
  5448           (
  5449           IN COME_TEST_ H_ID,
  5450           IN COME_TEST_ ID,
  5451           PE RSON_ID,
  5452           IN COME_TEST_ TYPE_ID,
  5453           IN COME_TEST_ SRC_TYPE_I D,
  5454           ME ANS_TEST_S TATUS_TYPE _ID,
  5455           MT _NOT_REQD_ RSN_TYPE_I D,
  5456           SI TE_CONDUCT ING_TEST_I D,
  5457           IN COME_YEAR,
  5458           IN COME_TEST_ EFFECTIVE_ DATE,
  5459           IV M_TEST_COM PLETION_DA TE,
  5460           PR IMARY_TEST _IND,
  5461           AD JUDICATION _SENT_DATE ,
  5462           AD JUDICATED_ DATE,
  5463           TH RESHOLD_MT _EXEMPT_AM OUNT,
  5464           TH RESHOLD_GM T_AMOUNT,
  5465           TH RESHOLD_NE TWORTH_AMO UNT,
  5466           TH RESHOLD_PE NSION_AMOU NT,
  5467           TH RESHOLD_IN COME_AMOUN T,
  5468           DE DUCTIBLE_E XPENSE_AMO UNT,
  5469           IN COME_VERIF Y_STATUS_D ATE,
  5470           FA RM_RANCH_I NCOME_AMOU NT,
  5471           DI SCLOSE_FIN ANCIAL_INC OME_IND,
  5472           AG REED_TO_PA Y_DEDUCTIB LE_IND,
  5473           DE PENDENT_OT HER_COUNT,
  5474           IN COME_TOTAL ,
  5475           EX PENSE_TOTA L,
  5476           NE T_WORTH_TO TAL,
  5477           PR EV_YEAR_TH RESHOLD_IN D,
  5478           MT _NOT_REQUI RED_DATE,
  5479           RE FUSED_TO_S IGN_IND,
  5480           GM T_ADDRESS_ LINE1,
  5481           GM T_ADDRESS_ LINE2,
  5482           GM T_CITY,
  5483           GM T_STATE_CO DE,
  5484           GM T_COUNTY_C ODE,
  5485           GM T_POSTAL_C ODE,
  5486           GM T_MSA_CODE ,
  5487           GM T_SITE_ADD RESS_IND,
  5488           FI NANCIAL_HA RDSHIP_IND ,
  5489           HA RDSHIP_REV IEW_DATE,
  5490           HA RDSHIP_EFF ECTIVE_DAT E,
  5491           RE MARKS,
  5492           HA RDSHIP_REA SON_TEXT,
  5493           RE CORD_CREAT ED_BY,
  5494           RE CORD_CREAT ED_DATE,
  5495           RE CORD_MODIF IED_BY,
  5496           RE CORD_MODIF IED_DATE,
  5497           RE CORD_MODIF IED_COUNT,
  5498           CA D_ADJUSTED _IND,
  5499           HA RDSHIP_REV IEW_SITE_I D,
  5500           IN COME_VERIF Y_STATUS_T YPE_ID,
  5501           GM T_ADDRESS_ LINE3,
  5502           GM T_COUNTRY_ CODE,
  5503           FU TURE_TEST_ FLAG,
  5504           IN COME_NET_T OTAL,
  5505           AS SIGNED_CON TACT_REP_U SERNAME,
  5506           PG 8_RELAXATI ON_IND,         --ccr  1802
  5507           TR ANSACTION_ TYPE_CODE,
  5508           ST D_WORKFLOW CASESTATUS _ID,
  5509           IV M_CONVERSI ON_DATE,
  5510           BT _FINANCIAL _IND
  5511              )
  5512           va lues
  5513           (
  5514           IN COME_TEST_ H_S.nextva l,
  5515           :o ld.INCOME_ TEST_ID,
  5516           :o ld.PERSON_ ID,
  5517           :o ld.INCOME_ TEST_TYPE_ ID,
  5518           :o ld.INCOME_ TEST_SRC_T YPE_ID,
  5519           :o ld.MEANS_T EST_STATUS _TYPE_ID,
  5520           :o ld.MT_NOT_ REQD_RSN_T YPE_ID,
  5521           :o ld.SITE_CO NDUCTING_T EST_ID,
  5522           :o ld.INCOME_ YEAR,
  5523           :o ld.INCOME_ TEST_EFFEC TIVE_DATE,
  5524           :o ld.IVM_TES T_COMPLETI ON_DATE,
  5525           :o ld.PRIMARY _TEST_IND,
  5526           :o ld.ADJUDIC ATION_SENT _DATE,
  5527           :o ld.ADJUDIC ATED_DATE,
  5528           :o ld.THRESHO LD_MT_EXEM PT_AMOUNT,
  5529           :o ld.THRESHO LD_GMT_AMO UNT,
  5530           :o ld.THRESHO LD_NETWORT H_AMOUNT,
  5531           :o ld.THRESHO LD_PENSION _AMOUNT,
  5532           :o ld.THRESHO LD_INCOME_ AMOUNT,
  5533           :o ld.DEDUCTI BLE_EXPENS E_AMOUNT,
  5534           :o ld.INCOME_ VERIFY_STA TUS_DATE,
  5535           :o ld.FARM_RA NCH_INCOME _AMOUNT,
  5536           :o ld.DISCLOS E_FINANCIA L_INCOME_I ND,
  5537           :o ld.AGREED_ TO_PAY_DED UCTIBLE_IN D,
  5538           :o ld.DEPENDE NT_OTHER_C OUNT,
  5539           :o ld.INCOME_ TOTAL,
  5540           :o ld.EXPENSE _TOTAL,
  5541           :o ld.NET_WOR TH_TOTAL,
  5542           :o ld.PREV_YE AR_THRESHO LD_IND,
  5543           :o ld.MT_NOT_ REQUIRED_D ATE,
  5544           :o ld.REFUSED _TO_SIGN_I ND,
  5545           :o ld.GMT_ADD RESS_LINE1 ,
  5546           :o ld.GMT_ADD RESS_LINE2 ,
  5547           :o ld.GMT_CIT Y,
  5548           :o ld.GMT_STA TE_CODE,
  5549           :o ld.GMT_COU NTY_CODE,
  5550           :o ld.GMT_POS TAL_CODE,
  5551           :o ld.GMT_MSA _CODE,
  5552           :o ld.GMT_SIT E_ADDRESS_ IND,
  5553           :o ld.FINANCI AL_HARDSHI P_IND,
  5554           :o ld.HARDSHI P_REVIEW_D ATE,
  5555           :o ld.HARDSHI P_EFFECTIV E_DATE,
  5556           :o ld.REMARKS ,
  5557           :o ld.HARDSHI P_REASON_T EXT,
  5558           :o ld.RECORD_ CREATED_BY ,
  5559           :o ld.RECORD_ CREATED_DA TE,
  5560           :o ld.RECORD_ MODIFIED_B Y,
  5561           :o ld.RECORD_ MODIFIED_D ATE,
  5562           :o ld.RECORD_ MODIFIED_C OUNT,
  5563           :o ld.CAD_ADJ USTED_IND,
  5564           :o ld.HARDSHI P_REVIEW_S ITE_ID,
  5565           :o ld.INCOME_ VERIFY_STA TUS_TYPE_I D,
  5566           :o ld.GMT_ADD RESS_LINE3 ,
  5567           :o ld.GMT_COU NTRY_CODE,
  5568           :o ld.FUTURE_ TEST_FLAG,
  5569           :o ld.INCOME_ NET_TOTAL,
  5570           :o ld.ASSIGNE D_CONTACT_ REP_USERNA ME,
  5571           :O LD.PG8_REL AXATION_IN D,    -- c cr 1802
  5572           'D ',
  5573           :o ld.STD_WOR KFLOWCASES TATUS_ID,
  5574           :o ld.IVM_CON VERSION_DA TE,
  5575           :o ld.BT_FINA NCIAL_IND
  5576           );
  5577  
  5578       else
  5579           if  UPDATING  then
  5580                mDML :=  'U';
  5581           el se
  5582                mDML :=  'I';
  5583           en d if;
  5584  
  5585           in sert into  INCOME_TES T_H
  5586           (
  5587           IN COME_TEST_ H_ID,
  5588           IN COME_TEST_ ID,
  5589           PE RSON_ID,
  5590           IN COME_TEST_ TYPE_ID,
  5591           IN COME_TEST_ SRC_TYPE_I D,
  5592           ME ANS_TEST_S TATUS_TYPE _ID,
  5593           MT _NOT_REQD_ RSN_TYPE_I D,
  5594           SI TE_CONDUCT ING_TEST_I D,
  5595           IN COME_YEAR,
  5596           IN COME_TEST_ EFFECTIVE_ DATE,
  5597           IV M_TEST_COM PLETION_DA TE,
  5598           PR IMARY_TEST _IND,
  5599           AD JUDICATION _SENT_DATE ,
  5600           AD JUDICATED_ DATE,
  5601           TH RESHOLD_MT _EXEMPT_AM OUNT,
  5602           TH RESHOLD_GM T_AMOUNT,
  5603           TH RESHOLD_NE TWORTH_AMO UNT,
  5604           TH RESHOLD_PE NSION_AMOU NT,
  5605           TH RESHOLD_IN COME_AMOUN T,
  5606           DE DUCTIBLE_E XPENSE_AMO UNT,
  5607           IN COME_VERIF Y_STATUS_D ATE,
  5608           FA RM_RANCH_I NCOME_AMOU NT,
  5609           DI SCLOSE_FIN ANCIAL_INC OME_IND,
  5610           AG REED_TO_PA Y_DEDUCTIB LE_IND,
  5611           DE PENDENT_OT HER_COUNT,
  5612           IN COME_TOTAL ,
  5613           EX PENSE_TOTA L,
  5614           NE T_WORTH_TO TAL,
  5615           PR EV_YEAR_TH RESHOLD_IN D,
  5616           MT _NOT_REQUI RED_DATE,
  5617           RE FUSED_TO_S IGN_IND,
  5618           GM T_ADDRESS_ LINE1,
  5619           GM T_ADDRESS_ LINE2,
  5620           GM T_CITY,
  5621           GM T_STATE_CO DE,
  5622           GM T_COUNTY_C ODE,
  5623           GM T_POSTAL_C ODE,
  5624           GM T_MSA_CODE ,
  5625           GM T_SITE_ADD RESS_IND,
  5626           FI NANCIAL_HA RDSHIP_IND ,
  5627           HA RDSHIP_REV IEW_DATE,
  5628           HA RDSHIP_EFF ECTIVE_DAT E,
  5629           RE MARKS,
  5630           HA RDSHIP_REA SON_TEXT,
  5631           RE CORD_CREAT ED_BY,
  5632           RE CORD_CREAT ED_DATE,
  5633           RE CORD_MODIF IED_BY,
  5634           RE CORD_MODIF IED_DATE,
  5635           RE CORD_MODIF IED_COUNT,
  5636           CA D_ADJUSTED _IND,
  5637           HA RDSHIP_REV IEW_SITE_I D,
  5638           IN COME_VERIF Y_STATUS_T YPE_ID,
  5639           GM T_ADDRESS_ LINE3,
  5640           GM T_COUNTRY_ CODE,
  5641           FU TURE_TEST_ FLAG,
  5642           IN COME_NET_T OTAL,
  5643           AS SIGNED_CON TACT_REP_U SERNAME,
  5644           PG 8_RELAXATI ON_IND,         --ccr  1802
  5645           TR ANSACTION_ TYPE_CODE,
  5646           ST D_WORKFLOW CASESTATUS _ID,
  5647           IV M_CONVERSI ON_DATE,
  5648           BT _FINANCIAL _IND
  5649              )
  5650           va lues
  5651           (
  5652           IN COME_TEST_ H_S.nextva l,
  5653           :n ew.INCOME_ TEST_ID,
  5654           :n ew.PERSON_ ID,
  5655           :n ew.INCOME_ TEST_TYPE_ ID,
  5656           :n ew.INCOME_ TEST_SRC_T YPE_ID,
  5657           :n ew.MEANS_T EST_STATUS _TYPE_ID,
  5658           :n ew.MT_NOT_ REQD_RSN_T YPE_ID,
  5659           :n ew.SITE_CO NDUCTING_T EST_ID,
  5660           :n ew.INCOME_ YEAR,
  5661           :n ew.INCOME_ TEST_EFFEC TIVE_DATE,
  5662           :n ew.IVM_TES T_COMPLETI ON_DATE,
  5663           :n ew.PRIMARY _TEST_IND,
  5664           :n ew.ADJUDIC ATION_SENT _DATE,
  5665           :n ew.ADJUDIC ATED_DATE,
  5666           :n ew.THRESHO LD_MT_EXEM PT_AMOUNT,
  5667           :n ew.THRESHO LD_GMT_AMO UNT,
  5668           :n ew.THRESHO LD_NETWORT H_AMOUNT,
  5669           :n ew.THRESHO LD_PENSION _AMOUNT,
  5670           :n ew.THRESHO LD_INCOME_ AMOUNT,
  5671           :n ew.DEDUCTI BLE_EXPENS E_AMOUNT,
  5672           :n ew.INCOME_ VERIFY_STA TUS_DATE,
  5673           :n ew.FARM_RA NCH_INCOME _AMOUNT,
  5674           :n ew.DISCLOS E_FINANCIA L_INCOME_I ND,
  5675           :n ew.AGREED_ TO_PAY_DED UCTIBLE_IN D,
  5676           :n ew.DEPENDE NT_OTHER_C OUNT,
  5677           :n ew.INCOME_ TOTAL,
  5678           :n ew.EXPENSE _TOTAL,
  5679           :n ew.NET_WOR TH_TOTAL,
  5680           :n ew.PREV_YE AR_THRESHO LD_IND,
  5681           :n ew.MT_NOT_ REQUIRED_D ATE,
  5682           :n ew.REFUSED _TO_SIGN_I ND,
  5683           :n ew.GMT_ADD RESS_LINE1 ,
  5684           :n ew.GMT_ADD RESS_LINE2 ,
  5685           :n ew.GMT_CIT Y,
  5686           :n ew.GMT_STA TE_CODE,
  5687           :n ew.GMT_COU NTY_CODE,
  5688           :n ew.GMT_POS TAL_CODE,
  5689           :n ew.GMT_MSA _CODE,
  5690           :n ew.GMT_SIT E_ADDRESS_ IND,
  5691           :n ew.FINANCI AL_HARDSHI P_IND,
  5692           :n ew.HARDSHI P_REVIEW_D ATE,
  5693           :n ew.HARDSHI P_EFFECTIV E_DATE,
  5694           :n ew.REMARKS ,
  5695           :n ew.HARDSHI P_REASON_T EXT,
  5696           :n ew.RECORD_ CREATED_BY ,
  5697           :n ew.RECORD_ CREATED_DA TE,
  5698           :n ew.RECORD_ MODIFIED_B Y,
  5699           :n ew.RECORD_ MODIFIED_D ATE,
  5700           :n ew.RECORD_ MODIFIED_C OUNT,
  5701           :n ew.CAD_ADJ USTED_IND,
  5702           :n ew.HARDSHI P_REVIEW_S ITE_ID,
  5703           :n ew.INCOME_ VERIFY_STA TUS_TYPE_I D,
  5704           :n ew.GMT_ADD RESS_LINE3 ,
  5705           :n ew.GMT_COU NTRY_CODE,
  5706           :n ew.FUTURE_ TEST_FLAG,
  5707           :n ew.INCOME_ NET_TOTAL,
  5708           :n ew.ASSIGNE D_CONTACT_ REP_USERNA ME,
  5709           :N EW.PG8_REL AXATION_IN D,         --ccr 1802
  5710           mD ML,
  5711            : new.STD_WO RKFLOWCASE STATUS_ID,
  5712            : new.IVM_CO NVERSION_D ATE,
  5713            : new.BT_FIN ANCIAL_IND
  5714           );
  5715  
  5716       end if ;
  5717  
  5718   end  INCOM E_TEST_aud ir_trgr;
  5719   /
  5720   DROP TRIGG ER ADR.HLT H_BEN_PLN_ NAM_AUDIR_ TRGR;
  5721  
  5722   CREATE OR  REPLACE TR IGGER ADR. HLTH_BEN_P LN_NAM_AUD IR_TRGR
  5723     AFTER DE LETE OR IN SERT OR UP DATE
  5724       ON ADR .HEALTH_BE NEFIT_PLAN _NAME
  5725     REFERENC ING  OLD A S OLD NEW  AS NEW
  5726     FOR EACH  ROW
  5727   DECLARE
  5728  
  5729       mDML c har(1);
  5730  
  5731     BEGIN
  5732  
  5733       IF DEL ETING THEN
  5734  
  5735         INSE RT INTO AD R.HEALTH_B ENEFIT_PLA N_NAME_H
  5736              (HLTH_BEN_ PLAN_NAME_ H_ID ,
  5737               HLTH_BEN_ PLAN_NAME_ ID,
  5738               HLTH_BEN_ PLAN_NAME,
  5739               STD_HLTHB ENEFITPLAN TYPE_ID ,
  5740               RECORD_CR EATED_BY,
  5741               RECORD_CR EATED_DATE ,
  5742               RECORD_MO DIFIED_BY,
  5743               RECORD_MO DIFIED_DAT E,
  5744               RECORD_MO DIFIED_COU NT,
  5745               HISTORY_C REATED_DAT E ,
  5746               TRANSACTI ON_TYPE_CO DE
  5747          )
  5748         VALU ES
  5749           (H EALTH_BENE FIT_PLAN_N AME_H_S.NE XTVAL,
  5750            : OLD.HLTH_B EN_PLAN_NA ME_ID,
  5751            : OLD.HLTH_B EN_PLAN_NA ME,
  5752            : OLD.STD_HL THBENEFITP LANTYPE_ID ,
  5753            : OLD.RECORD _CREATED_B Y,
  5754            : OLD.RECORD _CREATED_D ATE,
  5755            : OLD.RECORD _MODIFIED_ BY,
  5756            : OLD.RECORD _MODIFIED_ DATE,
  5757            : OLD.RECORD _MODIFIED_ COUNT,
  5758            S YSDATE,
  5759            ' D'
  5760           );
  5761  
  5762       ELSE
  5763  
  5764         IF U PDATING TH EN
  5765  
  5766           mD ML := 'U';
  5767  
  5768         ELSE
  5769  
  5770           mD ML := 'I';
  5771  
  5772         END  IF;
  5773  
  5774         INSE RT INTO AD R.HEALTH_B ENEFIT_PLA N_NAME_H
  5775         ( HL TH_BEN_PLA N_NAME_H_I D ,
  5776           HL TH_BEN_PLA N_NAME_ID,
  5777           HL TH_BEN_PLA N_NAME,
  5778           ST D_HLTHBENE FITPLANTYP E_ID ,
  5779           RE CORD_CREAT ED_BY,
  5780           RE CORD_CREAT ED_DATE,
  5781           RE CORD_MODIF IED_BY,
  5782           RE CORD_MODIF IED_DATE,
  5783           RE CORD_MODIF IED_COUNT,
  5784           HI STORY_CREA TED_DATE ,
  5785           TR ANSACTION_ TYPE_CODE
  5786        )
  5787        VALUE S
  5788           (H EALTH_BENE FIT_PLAN_N AME_H_S.NE XTVAL,
  5789           :N EW.HLTH_BE N_PLAN_NAM E_ID,
  5790           :N EW.HLTH_BE N_PLAN_NAM E,
  5791           :N EW.STD_HLT HBENEFITPL ANTYPE_ID,
  5792           :N EW.RECORD_ CREATED_BY ,
  5793           :N EW.RECORD_ CREATED_DA TE,
  5794           :N EW.RECORD_ MODIFIED_B Y,
  5795           :N EW.RECORD_ MODIFIED_D ATE,
  5796           :N EW.RECORD_ MODIFIED_C OUNT,
  5797            S YSDATE,
  5798            m DML
  5799           );
  5800  
  5801       END IF ;
  5802  
  5803     END HLTH _BEN_PLN_N AM_AUDIR_T RGR;
  5804   /
  5805   DROP TRIGG ER ADR.HLT H_BEN_PLN_ DTL_AUDIR_ TRGR;
  5806  
  5807   CREATE OR  REPLACE TR IGGER ADR. HLTH_BEN_P LN_DTL_AUD IR_TRGR
  5808     AFTER DE LETE OR IN SERT OR UP DATE
  5809       ON ADR .HEALTH_BE NEFIT_PLAN _DETAIL
  5810     REFERENC ING  OLD A S OLD NEW  AS NEW
  5811     FOR EACH  ROW
  5812   DECLARE
  5813  
  5814       mDML c har(1);
  5815  
  5816     BEGIN
  5817  
  5818       IF DEL ETING THEN
  5819  
  5820         INSE RT INTO AD R.HEALTH_B ENEFIT_PLA N_DETAIL_H
  5821           (H EALTH_BENE FIT_PLAN_D ET_H_ID,
  5822            H EALTH_BENE FIT_PLAN_D ETAIL_ID,
  5823            H LTH_BEN_PL AN_NAME_ID ,
  5824            H LTH_BEN_PL AN_CODE,
  5825            H LTH_BEN_PL AN_COV_COD E,
  5826            H LTH_BEN_PL AN_EFF_DAT E,
  5827            H LTH_BEN_PL AN_EXP_DAT E,
  5828            H LTH_BEN_PL AN_AUTO_IN D,
  5829            R ECORD_CREA TED_BY,
  5830            R ECORD_CREA TED_DATE,
  5831            R ECORD_MODI FIED_BY,
  5832            R ECORD_MODI FIED_DATE,
  5833            R ECORD_MODI FIED_COUNT ,
  5834            H ISTORY_CRE ATED_DATE,
  5835            T RANSACTION _TYPE_CODE
  5836           )
  5837           VA LUES
  5838           (H EALTH_BENE FIT_PLAN_D ETAIL_H_S. NEXTVAL,
  5839            : OLD.HEALTH _BENEFIT_P LAN_DETAIL _ID,
  5840            : OLD.HLTH_B EN_PLAN_NA ME_ID,
  5841            : OLD.HLTH_B EN_PLAN_CO DE,
  5842            : OLD.HLTH_B EN_PLAN_CO V_CODE,
  5843            : OLD.HLTH_B EN_PLAN_EF F_DATE,
  5844            : OLD.HLTH_B EN_PLAN_EX P_DATE,
  5845            : OLD.HLTH_B EN_PLAN_AU TO_IND,
  5846            : OLD.RECORD _CREATED_B Y,
  5847            : OLD.RECORD _CREATED_D ATE,
  5848            : OLD.RECORD _MODIFIED_ BY,
  5849            : OLD.RECORD _MODIFIED_ DATE,
  5850            : OLD.RECORD _MODIFIED_ COUNT,
  5851            S YSDATE,
  5852            ' D'
  5853           );
  5854  
  5855       ELSE
  5856  
  5857         IF U PDATING TH EN
  5858  
  5859           mD ML := 'U';
  5860  
  5861         ELSE
  5862  
  5863           mD ML := 'I';
  5864  
  5865         END  IF;
  5866  
  5867         inse rt into AD R.HEALTH_B ENEFIT_PLA N_DETAIL_H
  5868         (HEA LTH_BENEFI T_PLAN_DET _H_ID,
  5869            H EALTH_BENE FIT_PLAN_D ETAIL_ID,
  5870            H LTH_BEN_PL AN_NAME_ID ,
  5871            H LTH_BEN_PL AN_CODE,
  5872            H LTH_BEN_PL AN_COV_COD E,
  5873            H LTH_BEN_PL AN_EFF_DAT E,
  5874            H LTH_BEN_PL AN_EXP_DAT E,
  5875            H LTH_BEN_PL AN_AUTO_IN D,
  5876            R ECORD_CREA TED_BY,
  5877            R ECORD_CREA TED_DATE,
  5878            R ECORD_MODI FIED_BY,
  5879            R ECORD_MODI FIED_DATE,
  5880            R ECORD_MODI FIED_COUNT ,
  5881            H ISTORY_CRE ATED_DATE,
  5882            T RANSACTION _TYPE_CODE
  5883           )
  5884           VA LUES
  5885           (H EALTH_BENE FIT_PLAN_D ETAIL_H_S. NEXTVAL,
  5886               :NEW.HEAL TH_BENEFIT _PLAN_DETA IL_ID,
  5887               :NEW.HLTH _BEN_PLAN_ NAME_ID,
  5888               :NEW.HLTH _BEN_PLAN_ CODE,
  5889               :NEW.HLTH _BEN_PLAN_ COV_CODE,
  5890               :NEW.HLTH _BEN_PLAN_ EFF_DATE,
  5891               :NEW.HLTH _BEN_PLAN_ EXP_DATE,
  5892               :NEW.HLTH _BEN_PLAN_ AUTO_IND,
  5893               :NEW.RECO RD_CREATED _BY,
  5894               :NEW.RECO RD_CREATED _DATE,
  5895               :NEW.RECO RD_MODIFIE D_BY,
  5896               :NEW.RECO RD_MODIFIE D_DATE,
  5897               :NEW.RECO RD_MODIFIE D_COUNT,
  5898            S YSDATE,
  5899            m DML
  5900         );
  5901  
  5902       END IF ;
  5903  
  5904     END HLTH _BEN_PLAN_ DESC_AUDIR _TRGR;
  5905   /
  5906   DROP TRIGG ER ADR.HLT H_BEN_PLAN _DESC_AUDI R_TRGR;
  5907  
  5908   CREATE OR  REPLACE TR IGGER ADR. HLTH_BEN_P LAN_DESC_A UDIR_TRGR
  5909     AFTER DE LETE OR IN SERT OR UP DATE
  5910       ON ADR .HEALTH_BE NEFIT_PLAN _DESC
  5911     REFERENC ING  OLD A S OLD NEW  AS NEW
  5912     FOR EACH  ROW
  5913   DECLARE
  5914  
  5915       mDML c har(1);
  5916  
  5917     BEGIN
  5918  
  5919       IF DEL ETING THEN
  5920  
  5921         INSE RT INTO AD R.HEALTH_B ENEFIT_PLA N_DESC_H
  5922           (H LTH_BEN_PL AN_DESC_H_ ID,
  5923            H LTH_BEN_PL AN_DESC_ID ,
  5924            H LTH_BEN_PL AN_DESCRIP TION,
  5925            R ECORD_CREA TED_BY,
  5926            R ECORD_CREA TED_DATE,
  5927            R ECORD_MODI FIED_BY,
  5928            R ECORD_MODI FIED_DATE,
  5929            R ECORD_MODI FIED_COUNT ,
  5930            H ISTORY_CRE ATED_DATE,
  5931            T RANSACTION _TYPE_CODE ,
  5932            H EALTH_BENE FIT_PLAN_D ETAIL_ID
  5933           )
  5934           VA LUES
  5935           (H EALTH_BENE FIT_PLAN_D ESC_H_S.NE XTVAL,
  5936            : OLD.HLTH_B EN_PLAN_DE SC_ID,
  5937            : OLD.HLTH_B EN_PLAN_DE SCRIPTION,
  5938            : OLD.Record _created_b y,
  5939            : OLD.Record _created_d ate,
  5940            : OLD.Record _modified_ by,
  5941            : OLD.Record _modified_ date,
  5942            : OLD.Record _modified_ count,
  5943            S YSDATE,
  5944            ' D',
  5945            : OLD.HEALTH _BENEFIT_P LAN_DETAIL _ID
  5946           );
  5947  
  5948       ELSE
  5949  
  5950         IF U PDATING TH EN
  5951  
  5952           mD ML := 'U';
  5953  
  5954         ELSE
  5955  
  5956           mD ML := 'I';
  5957  
  5958         END  IF;
  5959  
  5960         inse rt into AD R.HEALTH_B ENEFIT_PLA N_DESC_H
  5961           (H LTH_BEN_PL AN_DESC_H_ ID,
  5962            H LTH_BEN_PL AN_DESC_ID ,
  5963            H LTH_BEN_PL AN_DESCRIP TION,
  5964            R ECORD_CREA TED_BY,
  5965            R ECORD_CREA TED_DATE,
  5966            R ECORD_MODI FIED_BY,
  5967            R ECORD_MODI FIED_DATE,
  5968            R ECORD_MODI FIED_COUNT ,
  5969            H ISTORY_CRE ATED_DATE,
  5970            T RANSACTION _TYPE_CODE ,
  5971            H EALTH_BENE FIT_PLAN_D ETAIL_ID
  5972           )
  5973           VA LUES
  5974           (H EALTH_BENE FIT_PLAN_D ESC_H_S.NE XTVAL,
  5975            : NEW.HLTH_B EN_PLAN_DE SC_ID,
  5976            : NEW.HLTH_B EN_PLAN_DE SCRIPTION,
  5977            : NEW.Record _created_b y,
  5978            : NEW.Record _created_d ate,
  5979            : NEW.Record _modified_ by,
  5980            : NEW.Record _modified_ date,
  5981            : NEW.Record _modified_ count,
  5982            S YSDATE,
  5983            m DML,
  5984            : NEW.HEALTH _BENEFIT_P LAN_DETAIL _ID
  5985           );
  5986  
  5987       END IF ;
  5988  
  5989     END HLTH _BEN_PLAN_ DESC_AUDIR _TRGR;
  5990   /
  5991   DROP TRIGG ER ADR.HEA LTH_CARE_P ROV_AUDIR_ TRGR;
  5992  
  5993   CREATE OR  REPLACE TR IGGER ADR. HEALTH_CAR E_PROV_AUD IR_TRGR
  5994     AFTER DE LETE OR IN SERT OR UP DATE
  5995     ON ADR.H EALTH_CARE _PROVIDER
  5996    REFERENCI NG  OLD AS  OLD NEW A S NEW
  5997    FOR EACH  ROW
  5998   declare
  5999          mDM L char(1);
  6000   begin
  6001       if DEL ETING then
  6002           in sert into  HEALTH_CAR E_PROVIDER _H
  6003           (
  6004           HE ALTH_CARE_ PROVIDER_H _ID,
  6005           HE ALTH_CARE_ PROVIDER_I D,
  6006           LA ST_NAME,
  6007           FI RST_NAME,
  6008           MI DDLE_NAME,
  6009           SU FFIX,
  6010           PR EFIX,
  6011           ED UCATIONAL_ DEGREE,
  6012           PR ACTITIONER _ID,
  6013           RE CORD_CREAT ED_BY,
  6014           RE CORD_CREAT ED_DATE,
  6015           RE CORD_MODIF IED_BY,
  6016           RE CORD_MODIF IED_DATE,
  6017           RE CORD_MODIF IED_COUNT,
  6018           HI STORY_CREA TED_DATE,
  6019           TR ANSACTION_ TYPE_CODE
  6020           )
  6021           va lues
  6022           (
  6023           HE ALTH_CARE_ PROVIDER_H _S.nextval ,
  6024           :o ld.HEALTH_ CARE_PROVI DER_ID,
  6025           :o ld.LAST_NA ME,
  6026           :o ld.FIRST_N AME,
  6027           :o ld.MIDDLE_ NAME,
  6028           :o ld.SUFFIX,
  6029           :o ld.PREFIX,
  6030           :o ld.EDUCATI ONAL_DEGRE E,
  6031           :o ld.PRACTIT IONER_ID,
  6032           :o ld.RECORD_ CREATED_BY ,
  6033           :o ld.RECORD_ CREATED_DA TE,
  6034           :o ld.RECORD_ MODIFIED_B Y,
  6035           :o ld.RECORD_ MODIFIED_D ATE,
  6036           :o ld.RECORD_ MODIFIED_C OUNT,
  6037           SY SDATE,
  6038           'D '
  6039           );
  6040       else
  6041           if  UPDATING  then
  6042                mDML :=  'U';
  6043           el se
  6044                mDML :=  'I';
  6045           en d if;
  6046  
  6047           in sert into  HEALTH_CAR E_PROVIDER _H
  6048           (
  6049           HE ALTH_CARE_ PROVIDER_H _ID,
  6050           HE ALTH_CARE_ PROVIDER_I D,
  6051           LA ST_NAME,
  6052           FI RST_NAME,
  6053           MI DDLE_NAME,
  6054           SU FFIX,
  6055           PR EFIX,
  6056           ED UCATIONAL_ DEGREE,
  6057           PR ACTITIONER _ID,
  6058           RE CORD_CREAT ED_BY,
  6059           RE CORD_CREAT ED_DATE,
  6060           RE CORD_MODIF IED_BY,
  6061           RE CORD_MODIF IED_DATE,
  6062           RE CORD_MODIF IED_COUNT,
  6063           HI STORY_CREA TED_DATE,
  6064           TR ANSACTION_ TYPE_CODE
  6065           )
  6066           va lues
  6067           (
  6068           HE ALTH_CARE_ PROVIDER_H _S.nextval ,
  6069           :n ew.HEALTH_ CARE_PROVI DER_ID,
  6070           :n ew.LAST_NA ME,
  6071           :n ew.FIRST_N AME,
  6072           :n ew.MIDDLE_ NAME,
  6073           :n ew.SUFFIX,
  6074           :n ew.PREFIX,
  6075           :n ew.EDUCATI ONAL_DEGRE E,
  6076           :n ew.PRACTIT IONER_ID,
  6077           :n ew.RECORD_ CREATED_BY ,
  6078           :n ew.RECORD_ CREATED_DA TE,
  6079           :n ew.RECORD_ MODIFIED_B Y,
  6080           :n ew.RECORD_ MODIFIED_D ATE,
  6081           :n ew.RECORD_ MODIFIED_C OUNT,
  6082           SY SDATE,
  6083           mD ML
  6084           );
  6085       end if ;
  6086  
  6087   end HEALTH _CARE_PROV _audir_trg r;
  6088   /
  6089   DROP TRIGG ER ADR.HEA LTH_BENF_A PPLN_AUDIR _TRGR;
  6090  
  6091   CREATE OR  REPLACE TR IGGER ADR. HEALTH_BEN F_APPLN_AU DIR_TRGR
  6092   after Upda te or Dele te or Inse rt
  6093   ON ADR.HEA LTH_BENEFI TS_APPLICA TION for e ach row
  6094   declare
  6095       mDML c har(1);
  6096   begin
  6097  
  6098     if DELET ING then
  6099       insert  into HEAL TH_BENEFIT S_APPLICAT ION_H
  6100       (
  6101       HEALTH _BENEFITS_ APPLN_H_ID ,
  6102       HEALTH _BENEFITS_ APPLICATIO N_ID,
  6103       PERSON _ID,
  6104       STD_IN STITUTION_ ID,
  6105       APPLIC ATION_DATE ,
  6106       STD_HE ALTHBENEFI TTYPE_ID,
  6107       Z07_FR OM_VISTA_I ND,
  6108       RECORD _CREATED_B Y,
  6109       RECORD _CREATED_D ATE,
  6110       RECORD _MODIFIED_ BY,
  6111       RECORD _MODIFIED_ DATE,
  6112       RECORD _MODIFIED_ COUNT,
  6113       TRANSA CTION_TYPE _CODE
  6114           )
  6115       values
  6116       (
  6117       HEALTH _BENEFITS_ APP_H_S.ne xtval,
  6118       :old.H EALTH_BENE FITS_APPLI CATION_ID,
  6119       :old.P ERSON_ID,
  6120       :old.S TD_INSTITU TION_ID,
  6121       :old.A PPLICATION _DATE,
  6122       :old.S TD_HEALTHB ENEFITTYPE _ID,
  6123       :old.Z 07_FROM_VI STA_IND,
  6124       :old.R ECORD_CREA TED_BY,
  6125       :old.R ECORD_CREA TED_DATE,
  6126       :old.R ECORD_MODI FIED_BY,
  6127       :old.R ECORD_MODI FIED_DATE,
  6128       :old.R ECORD_MODI FIED_COUNT ,
  6129       'D'
  6130       );
  6131  
  6132     else
  6133       if UPD ATING then
  6134         mDML  := 'U';
  6135       else
  6136         mDML  := 'I';
  6137       end if ;
  6138  
  6139       insert  into HEAL TH_BENEFIT S_APPLICAT ION_H
  6140       (
  6141       HEALTH _BENEFITS_ APPLN_H_ID ,
  6142       HEALTH _BENEFITS_ APPLICATIO N_ID,
  6143       PERSON _ID,
  6144       STD_IN STITUTION_ ID,
  6145       APPLIC ATION_DATE ,
  6146       STD_HE ALTHBENEFI TTYPE_ID,
  6147       Z07_FR OM_VISTA_I ND,
  6148       RECORD _CREATED_B Y,
  6149       RECORD _CREATED_D ATE,
  6150       RECORD _MODIFIED_ BY,
  6151       RECORD _MODIFIED_ DATE,
  6152       RECORD _MODIFIED_ COUNT,
  6153       TRANSA CTION_TYPE _CODE
  6154           )
  6155       values
  6156       (
  6157       HEALTH _BENEFITS_ APP_H_S.ne xtval,
  6158       :new.H EALTH_BENE FITS_APPLI CATION_ID,
  6159       :new.P ERSON_ID,
  6160       :new.S TD_INSTITU TION_ID,
  6161       :new.A PPLICATION _DATE,
  6162       :new.S TD_HEALTHB ENEFITTYPE _ID,
  6163       :new.Z 07_FROM_VI STA_IND,
  6164       :new.R ECORD_CREA TED_BY,
  6165       :new.R ECORD_CREA TED_DATE,
  6166       :new.R ECORD_MODI FIED_BY,
  6167       :new.R ECORD_MODI FIED_DATE,
  6168       :new.R ECORD_MODI FIED_COUNT ,
  6169       mDML
  6170       );
  6171  
  6172     end if;
  6173  
  6174   end  HEALT H_BENF_APP LN_audir_t rgr;
  6175   /
  6176   DROP TRIGG ER ADR.HEA LTH_BENEFI T_PROF_AUD IR_TRGR;
  6177  
  6178   CREATE OR  REPLACE TR IGGER ADR. HEALTH_BEN EFIT_PROF_ AUDIR_TRGR
  6179     AFTER DE LETE OR IN SERT OR UP DATE
  6180       ON ADR .Health_Be nefit_Prof ile
  6181     REFERENC ING  OLD A S OLD NEW  AS NEW
  6182     FOR EACH  ROW
  6183   DECLARE
  6184  
  6185       mDML c har(1);
  6186  
  6187     BEGIN
  6188  
  6189       IF DEL ETING THEN
  6190  
  6191         INSE RT INTO He alth_Benef it_Profile _H
  6192           (H ealth_bene fit_profil e_h_id,
  6193            H ealth_bene fit_profil e_id,
  6194            P erson_id,
  6195            R ecord_crea ted_by,
  6196            R ecord_crea ted_date,
  6197            R ecord_modi fied_by,
  6198            R ecord_modi fied_date,
  6199            R ecord_modi fied_count ,
  6200            H istory_cre ated_date,
  6201            T ransaction _type_code
  6202           )
  6203           VA LUES
  6204           (H ealth_Bene fit_Profil e_H_S.NEXT VAL,
  6205            : OLD.Health _benefit_p rofile_id,
  6206            : OLD.Person _id,
  6207            : OLD.Record _created_b y,
  6208            : OLD.Record _created_d ate,
  6209            : OLD.Record _modified_ by,
  6210            : OLD.Record _modified_ date,
  6211            : OLD.Record _modified_ count,
  6212            S YSDATE,
  6213            ' D' 
  6214           );
  6215  
  6216       ELSE
  6217  
  6218         IF U PDATING TH EN
  6219  
  6220           mD ML := 'U';
  6221  
  6222         ELSE
  6223  
  6224           mD ML := 'I';
  6225  
  6226         END  IF;
  6227  
  6228         INSE RT INTO He alth_Benef it_Profile _H
  6229           (H ealth_bene fit_profil e_h_id,
  6230            H ealth_bene fit_profil e_id,
  6231            P erson_id,
  6232            R ecord_crea ted_by,
  6233            R ecord_crea ted_date,
  6234            R ecord_modi fied_by,
  6235            R ecord_modi fied_date,
  6236            R ecord_modi fied_count ,
  6237            H istory_cre ated_date,
  6238            T ransaction _type_code
  6239           )
  6240           VA LUES
  6241           (H ealth_Bene fit_Profil e_H_S.NEXT VAL,
  6242            : NEW.Health _benefit_p rofile_id,
  6243            : NEW.Person _id,
  6244            : NEW.Record _created_b y,
  6245            : NEW.Record _created_d ate,
  6246            : NEW.Record _modified_ by,
  6247            : NEW.Record _modified_ date,
  6248            : NEW.Record _modified_ count,
  6249            S YSDATE,
  6250            m DML
  6251           );
  6252  
  6253       END IF ;
  6254  
  6255     END Heal th_Benefit _Prof_Audi r_Trgr;
  6256   /
  6257   DROP TRIGG ER ADR.HEA LTH_BENEFI T_PLAN_AUD IR_TRGR;
  6258  
  6259   CREATE OR  REPLACE TR IGGER ADR. HEALTH_BEN EFIT_PLAN_ AUDIR_TRGR
  6260     AFTER DE LETE OR IN SERT OR UP DATE
  6261       ON ADR .Health_Be nefit_Plan
  6262     REFERENC ING  OLD A S OLD NEW  AS NEW
  6263     FOR EACH  ROW
  6264   DECLARE
  6265  
  6266       mDML c har(1);
  6267  
  6268     BEGIN
  6269  
  6270       IF DEL ETING THEN
  6271  
  6272         INSE RT INTO He alth_Benef it_Plan_H
  6273           (H ealth_bene fit_plan_h _id,
  6274            H ealth_bene fit_plan_i d,
  6275            H ealth_bene fit_profil e_id,
  6276            S td_healthb enefitplan _id,
  6277            H ealth_bnft _pln_updat e_date,
  6278            S td_datacha ngesource_ id,
  6279            S td_institu tion_id,
  6280            R ecord_crea ted_by,
  6281            R ecord_crea ted_date,
  6282            R ecord_modi fied_by,
  6283            R ecord_modi fied_date,
  6284            R ecord_modi fied_count ,
  6285            H istory_cre ated_date,
  6286            O verride_fl ag,
  6287            O verride_as signment,
  6288            O verride_re ason,
  6289            T ransaction _type_code
  6290           )
  6291           VA LUES
  6292           (H ealth_Bene fit_Plan_H _S.NEXTVAL ,
  6293            : OLD.Health _benefit_p lan_id,
  6294            : OLD.Health _benefit_p rofile_id,
  6295            : OLD.Std_he althbenefi tplan_id,
  6296            : OLD.Health _bnft_pln_ update_dat e,
  6297            : OLD.Std_da tachangeso urce_id,
  6298            : OLD.Std_in stitution_ id,
  6299            : OLD.Record _created_b y,
  6300            : OLD.Record _created_d ate,
  6301            : OLD.Record _modified_ by,
  6302            : OLD.Record _modified_ date,
  6303            : OLD.Record _modified_ count,
  6304            S YSDATE,
  6305            : OLD.Overri de_flag,
  6306            : OLD.Overri de_assignm ent,
  6307            : OLD.Overri de_reason,
  6308            ' D'
  6309           );
  6310  
  6311       ELSE
  6312  
  6313         IF U PDATING TH EN
  6314  
  6315           mD ML := 'U';
  6316  
  6317         ELSE
  6318  
  6319           mD ML := 'I';
  6320  
  6321         END  IF;
  6322  
  6323         inse rt into HE ALTH_BENEF IT_PLAN_H
  6324           (H ealth_bene fit_plan_h _id,
  6325            H ealth_bene fit_plan_i d,
  6326            H ealth_bene fit_profil e_id,
  6327            S td_healthb enefitplan _id,
  6328            H ealth_bnft _pln_updat e_date,
  6329            S td_datacha ngesource_ id,
  6330            S td_institu tion_id,
  6331            R ecord_crea ted_by,
  6332            R ecord_crea ted_date,
  6333            R ecord_modi fied_by,
  6334            R ecord_modi fied_date,
  6335            R ecord_modi fied_count ,
  6336            H istory_cre ated_date,
  6337            O verride_fl ag,
  6338            O verride_as signment,
  6339            O verride_re ason,
  6340            T ransaction _type_code
  6341           )
  6342           VA LUES
  6343           (H ealth_Bene fit_Plan_H _S.NEXTVAL ,
  6344            : NEW.Health _benefit_p lan_id,
  6345            : NEW.Health _benefit_p rofile_id,
  6346            : NEW.Std_he althbenefi tplan_id,
  6347            : NEW.Health _bnft_pln_ update_dat e,
  6348            : NEW.Std_da tachangeso urce_id,
  6349            : NEW.Std_in stitution_ id,
  6350            : NEW.Record _created_b y,
  6351            : NEW.Record _created_d ate,
  6352            : NEW.Record _modified_ by,
  6353            : NEW.Record _modified_ date,
  6354            : NEW.Record _modified_ count,
  6355            S YSDATE,
  6356            : NEW.Overri de_flag,
  6357            : NEW.Overri de_assignm ent,
  6358            : NEW.Overri de_reason,
  6359            m DML
  6360           );
  6361  
  6362       END IF ;
  6363  
  6364     END Heal th_Benefit _Plan_Audi r_Trgr;
  6365   /
  6366   DROP TRIGG ER ADR.HAN DBOOK_REQ_ VET_AUDIR_ TRGR;
  6367  
  6368   CREATE OR  REPLACE TR IGGER ADR. HANDBOOK_R EQ_VET_AUD IR_TRGR
  6369     AFTER DE LETE OR IN SERT OR UP DATE
  6370     ON ADR.H ANDBOOK_RE QUEST_VETE RAN  REFER ENCING  OL D AS OLD N EW AS NEW
  6371    FOR EACH  ROW
  6372   declare
  6373          mDM L char(1);
  6374   begin
  6375       if DEL ETING then
  6376           in sert into  HANDBOOK_R EQUEST_VET ERAN_H
  6377           (
  6378          HAN DBOOK_REQU EST_VETERA N_H_ID,
  6379          HAN DBOOK_REQU EST_VETERA N_ID,
  6380           HA NDBOOK_BAT CH_REQUEST _ID,
  6381           PE RSON_ID,
  6382           RE CORD_CREAT ED_BY,
  6383           RE CORD_CREAT ED_DATE,
  6384           RE CORD_MODIF IED_BY,
  6385           RE CORD_MODIF IED_DATE,
  6386           RE CORD_MODIF IED_COUNT,
  6387           HI STORY_CREA TED_DATE,
  6388           TR ANSACTION_ TYPE_CODE
  6389           )
  6390           va lues
  6391           (
  6392          HAN DBOOK_REQU EST_VETERA N_H_S.next val,
  6393           :o ld.HANDBOO K_REQUEST_ VETERAN_ID ,
  6394           :o ld.HANDBOO K_BATCH_RE QUEST_ID,
  6395           :o ld.PERSON_ ID,
  6396           :o ld.RECORD_ CREATED_BY ,
  6397           :o ld.RECORD_ CREATED_DA TE,
  6398           :o ld.RECORD_ MODIFIED_B Y,
  6399           :o ld.RECORD_ MODIFIED_D ATE,
  6400           :o ld.RECORD_ MODIFIED_C OUNT,
  6401           SY SDATE,
  6402           'D '
  6403           );
  6404       else
  6405           if  UPDATING  then
  6406                mDML :=  'U';
  6407           el se
  6408                mDML :=  'I';
  6409           en d if;
  6410  
  6411           in sert into  HANDBOOK_R EQUEST_VET ERAN_H
  6412           (
  6413          HAN DBOOK_REQU EST_VETERA N_H_ID,
  6414          HAN DBOOK_REQU EST_VETERA N_ID,
  6415           HA NDBOOK_BAT CH_REQUEST _ID,
  6416           PE RSON_ID,
  6417           RE CORD_CREAT ED_BY,
  6418           RE CORD_CREAT ED_DATE,
  6419           RE CORD_MODIF IED_BY,
  6420           RE CORD_MODIF IED_DATE,
  6421           RE CORD_MODIF IED_COUNT,
  6422           HI STORY_CREA TED_DATE,
  6423           TR ANSACTION_ TYPE_CODE
  6424           )
  6425           va lues
  6426           (
  6427          HAN DBOOK_REQU EST_VETERA N_H_S.next val,
  6428           :n ew.HANDBOO K_REQUEST_ VETERAN_ID ,
  6429           :n ew.HANDBOO K_BATCH_RE QUEST_ID,
  6430           :n ew.PERSON_ ID,
  6431           :n ew.RECORD_ CREATED_BY ,
  6432           :n ew.RECORD_ CREATED_DA TE,
  6433           :n ew.RECORD_ MODIFIED_B Y,
  6434           :n ew.RECORD_ MODIFIED_D ATE,
  6435           :n ew.RECORD_ MODIFIED_C OUNT,
  6436           SY SDATE,
  6437           mD ML
  6438           );
  6439       end if ;
  6440  
  6441   end HANDBO OK_REQ_VET _AUDIR_TRG R;
  6442   /
  6443   DROP TRIGG ER ADR.HAN DBOOK_MAIL _STATUS_AU D_TRGR;
  6444  
  6445   CREATE OR  REPLACE TR IGGER ADR. HANDBOOK_M AIL_STATUS _AUD_TRGR  AFTER UPDA TE OR INSE RT OR DELE TE ON "ADR "."HANDBOO K_MAIL_STA TUS" FOR E ACH ROW
  6446   declare
  6447          mDM L char(1);
  6448   begin
  6449       if DEL ETING then
  6450           in sert into  HANDBOOK_M AIL_STATUS _H
  6451           (
  6452           HA NDBOOK_MAI L_STATUS_H _ID,
  6453           HA NDBOOK_MAI L_STATUS_I D,
  6454       CMS_FI LE_GENERAT ED_DATE,
  6455       SENT_T O_USPS_DAT E,
  6456       HANDBO OK_MAIL_QU EUE_ID,
  6457       STD_CO MREJECTREA SONTYPE_ID ,
  6458       STD_HA NDBOOKMAIL STATTYPE_I D,
  6459       ERROR_ TEXT,
  6460       RETURN ED_FROM_US PS_DATE,
  6461           RE CORD_CREAT ED_BY,
  6462           RE CORD_CREAT ED_DATE,
  6463           RE CORD_MODIF IED_BY,
  6464           RE CORD_MODIF IED_DATE,
  6465           RE CORD_MODIF IED_COUNT,
  6466           HI STORY_CREA TED_DATE,
  6467           TR ANSACTION_ TYPE_CODE
  6468           )
  6469           va lues
  6470           (
  6471           HA NDBOOK_MAI L_STATUS_H _S.nextval ,
  6472           :o ld.HANDBOO K_MAIL_STA TUS_ID,
  6473       :old.C MS_FILE_GE NERATED_DA TE,
  6474       :old.S ENT_TO_USP S_DATE,
  6475       :old.H ANDBOOK_MA IL_QUEUE_I D,
  6476       :old.S TD_COMREJE CTREASONTY PE_ID,
  6477       :old.S TD_HANDBOO KMAILSTATT YPE_ID,
  6478       :old.E RROR_TEXT,
  6479       :old.R ETURNED_FR OM_USPS_DA TE,
  6480           :o ld.RECORD_ CREATED_BY ,
  6481           :o ld.RECORD_ CREATED_DA TE,
  6482           :o ld.RECORD_ MODIFIED_B Y,
  6483           :o ld.RECORD_ MODIFIED_D ATE,
  6484           :o ld.RECORD_ MODIFIED_C OUNT,
  6485           SY SDATE,
  6486           'D '
  6487           );
  6488       else
  6489           if  UPDATING  then
  6490                mDML :=  'U';
  6491           el se
  6492                mDML :=  'I';
  6493           en d if;
  6494  
  6495           in sert into  HANDBOOK_M AIL_STATUS _H
  6496           (
  6497           HA NDBOOK_MAI L_STATUS_H _ID,
  6498           HA NDBOOK_MAI L_STATUS_I D,
  6499       CMS_FI LE_GENERAT ED_DATE,
  6500       SENT_T O_USPS_DAT E,
  6501       HANDBO OK_MAIL_QU EUE_ID,
  6502       STD_CO MREJECTREA SONTYPE_ID ,
  6503       STD_HA NDBOOKMAIL STATTYPE_I D,
  6504       ERROR_ TEXT,
  6505       RETURN ED_FROM_US PS_DATE,
  6506           RE CORD_CREAT ED_BY,
  6507           RE CORD_CREAT ED_DATE,
  6508           RE CORD_MODIF IED_BY,
  6509           RE CORD_MODIF IED_DATE,
  6510           RE CORD_MODIF IED_COUNT,
  6511           HI STORY_CREA TED_DATE,
  6512           TR ANSACTION_ TYPE_CODE
  6513           )
  6514           va lues
  6515           (
  6516           HA NDBOOK_MAI L_STATUS_H _S.nextval ,
  6517           :n ew.HANDBOO K_MAIL_STA TUS_ID,
  6518       :new.C MS_FILE_GE NERATED_DA TE,
  6519       :new.S ENT_TO_USP S_DATE,
  6520       :new.H ANDBOOK_MA IL_QUEUE_I D,
  6521       :new.S TD_COMREJE CTREASONTY PE_ID,
  6522       :new.S TD_HANDBOO KMAILSTATT YPE_ID,
  6523       :new.E RROR_TEXT,
  6524       :new.R ETURNED_FR OM_USPS_DA TE,
  6525           :n ew.RECORD_ CREATED_BY ,
  6526           :n ew.RECORD_ CREATED_DA TE,
  6527           :n ew.RECORD_ MODIFIED_B Y,
  6528           :n ew.RECORD_ MODIFIED_D ATE,
  6529           :n ew.RECORD_ MODIFIED_C OUNT,
  6530           SY SDATE,
  6531           mD ML
  6532           );
  6533       end if ;
  6534  
  6535   end HANDBO OK_MAIL_ST ATUS_AUD_T RGR;
  6536   /
  6537   DROP TRIGG ER ADR.HAN DBOOK_MAIL _QUEUE_AUD IR_TRGR;
  6538  
  6539   CREATE OR  REPLACE TR IGGER ADR. HANDBOOK_M AIL_QUEUE_ AUDIR_TRGR  AFTER UPD ATE OR INS ERT OR DEL ETE ON "AD R"."HANDBO OK_MAIL_QU EUE" FOR E ACH ROW
  6540   declare
  6541          mDM L char(1);
  6542   begin
  6543       if DEL ETING then
  6544           in sert into  HANDBOOK_M AIL_QUEUE_ H
  6545           (
  6546           HA NDBOOK_MAI L_QUEUE_H_ ID,
  6547           HA NDBOOK_MAI L_QUEUE_ID ,
  6548       COM_LE TTER_TEMPL ATE_ID,
  6549       REMARK ,
  6550       STD_HA NDBOOKRELE ASECNTL_ID ,
  6551       PERSON _ID,
  6552       ADDRES S_ID,
  6553       HANDBO OK_BATCH_R EQUEST_ID,
  6554           RE CORD_CREAT ED_BY,
  6555           RE CORD_CREAT ED_DATE,
  6556           RE CORD_MODIF IED_BY,
  6557           RE CORD_MODIF IED_DATE,
  6558           RE CORD_MODIF IED_COUNT,
  6559           HI STORY_CREA TED_DATE,
  6560           TR ANSACTION_ TYPE_CODE
  6561           )
  6562           va lues
  6563           (
  6564           HA NDBOOK_MAI L_QUEUE_H_ S.nextval,
  6565           :o ld.HANDBOO K_MAIL_QUE UE_ID,
  6566       :old.C OM_LETTER_ TEMPLATE_I D,
  6567       :old.R EMARK,
  6568       :old.S TD_HANDBOO KRELEASECN TL_ID,
  6569       :old.P ERSON_ID,
  6570       :old.A DDRESS_ID,
  6571       :old.H ANDBOOK_BA TCH_REQUES T_ID,
  6572           :o ld.RECORD_ CREATED_BY ,
  6573           :o ld.RECORD_ CREATED_DA TE,
  6574           :o ld.RECORD_ MODIFIED_B Y,
  6575           :o ld.RECORD_ MODIFIED_D ATE,
  6576           :o ld.RECORD_ MODIFIED_C OUNT,
  6577           SY SDATE,
  6578           'D '
  6579           );
  6580       else
  6581           if  UPDATING  then
  6582                mDML :=  'U';
  6583           el se
  6584                mDML :=  'I';
  6585           en d if;
  6586  
  6587           in sert into  HANDBOOK_M AIL_QUEUE_ H
  6588           (
  6589           HA NDBOOK_MAI L_QUEUE_H_ ID,
  6590           HA NDBOOK_MAI L_QUEUE_ID ,
  6591       COM_LE TTER_TEMPL ATE_ID,
  6592       REMARK ,
  6593       STD_HA NDBOOKRELE ASECNTL_ID ,
  6594       PERSON _ID,
  6595       ADDRES S_ID,
  6596       HANDBO OK_BATCH_R EQUEST_ID,
  6597           RE CORD_CREAT ED_BY,
  6598           RE CORD_CREAT ED_DATE,
  6599           RE CORD_MODIF IED_BY,
  6600           RE CORD_MODIF IED_DATE,
  6601           RE CORD_MODIF IED_COUNT,
  6602           HI STORY_CREA TED_DATE,
  6603           TR ANSACTION_ TYPE_CODE
  6604           )
  6605           va lues
  6606           (
  6607           HA NDBOOK_MAI L_QUEUE_H_ S.nextval,
  6608           :n ew.HANDBOO K_MAIL_QUE UE_ID,
  6609       :new.C OM_LETTER_ TEMPLATE_I D,
  6610       :new.R EMARK,
  6611       :new.S TD_HANDBOO KRELEASECN TL_ID,
  6612       :new.P ERSON_ID,
  6613       :new.A DDRESS_ID,
  6614       :new.H ANDBOOK_BA TCH_REQUES T_ID,
  6615           :n ew.RECORD_ CREATED_BY ,
  6616           :n ew.RECORD_ CREATED_DA TE,
  6617           :n ew.RECORD_ MODIFIED_B Y,
  6618           :n ew.RECORD_ MODIFIED_D ATE,
  6619           :n ew.RECORD_ MODIFIED_C OUNT,
  6620           SY SDATE,
  6621           mD ML
  6622           );
  6623       end if ;
  6624  
  6625   end HANDBO OK_MAIL_QU EUE_audir_ trgr;
  6626   /
  6627   DROP TRIGG ER ADR.HAN DBOOK_BATC H_REQ_AUDI R_TRGR;
  6628  
  6629   CREATE OR  REPLACE TR IGGER ADR. HANDBOOK_B ATCH_REQ_A UDIR_TRGR
  6630     AFTER DE LETE OR IN SERT OR UP DATE
  6631     ON ADR.H ANDBOOK_BA TCH_REQUES T  REFEREN CING  OLD  AS OLD NEW  AS NEW
  6632    FOR EACH  ROW
  6633   declare
  6634          mDM L char(1);
  6635   begin
  6636       if DEL ETING then
  6637           in sert into  HANDBOOK_B ATCH_REQUE ST_H
  6638           (
  6639           HA NDBOOK_BAT CH_REQUEST _H_ID,
  6640           HA NDBOOK_BAT CH_REQUEST _ID,
  6641       MAX_PE R_JOB_NUMB ER,
  6642       BATCH_ RELEASE_DA TE,
  6643       BATCH_ RELEASE_SI ZE,
  6644       BATCH_ CANCEL_DAT E,
  6645       NOTE,
  6646       STD_HA NDBOOKRELE ASECNTL_ID ,
  6647       STD_HA NDBOOKBATC HREQUESTST A_ID,
  6648           RE CORD_CREAT ED_BY,
  6649           RE CORD_CREAT ED_DATE,
  6650           RE CORD_MODIF IED_BY,
  6651           RE CORD_MODIF IED_DATE,
  6652           RE CORD_MODIF IED_COUNT,
  6653           HI STORY_CREA TED_DATE,
  6654           TR ANSACTION_ TYPE_CODE
  6655           )
  6656           va lues
  6657           (
  6658           HA NDBOOK_BAT CH_REQUEST _H_S.nextv al,
  6659           :o ld.HANDBOO K_BATCH_RE QUEST_ID,
  6660           :o ld.MAX_PER _JOB_NUMBE R,
  6661           :o ld.BATCH_R ELEASE_DAT E,
  6662           :o ld.BATCH_R ELEASE_SIZ E,
  6663           :o ld.BATCH_C ANCEL_DATE ,
  6664           :o ld.NOTE,
  6665           :o ld.STD_HAN DBOOKRELEA SECNTL_ID,
  6666          :OL D.STD_HAND BOOKBATCHR EQUESTSTA_ ID,
  6667           :o ld.RECORD_ CREATED_BY ,
  6668           :o ld.RECORD_ CREATED_DA TE,
  6669           :o ld.RECORD_ MODIFIED_B Y,
  6670           :o ld.RECORD_ MODIFIED_D ATE,
  6671           :o ld.RECORD_ MODIFIED_C OUNT,
  6672           SY SDATE,
  6673           'D '
  6674           );
  6675       else
  6676           if  UPDATING  then
  6677                mDML :=  'U';
  6678           el se
  6679                mDML :=  'I';
  6680           en d if;
  6681  
  6682           in sert into  HANDBOOK_B ATCH_REQUE ST_H
  6683           (
  6684           HA NDBOOK_BAT CH_REQUEST _H_ID,
  6685           HA NDBOOK_BAT CH_REQUEST _ID,
  6686       MAX_PE R_JOB_NUMB ER,
  6687       BATCH_ RELEASE_DA TE,
  6688       BATCH_ RELEASE_SI ZE,
  6689       BATCH_ CANCEL_DAT E,
  6690       NOTE,
  6691       STD_HA NDBOOKRELE ASECNTL_ID ,
  6692     STD_HAND BOOKBATCHR EQUESTSTA_ ID,
  6693           RE CORD_CREAT ED_BY,
  6694           RE CORD_CREAT ED_DATE,
  6695           RE CORD_MODIF IED_BY,
  6696           RE CORD_MODIF IED_DATE,
  6697           RE CORD_MODIF IED_COUNT,
  6698           HI STORY_CREA TED_DATE,
  6699           TR ANSACTION_ TYPE_CODE
  6700           )
  6701           va lues
  6702           (
  6703           HA NDBOOK_BAT CH_REQUEST _H_S.nextv al,
  6704           :n ew.HANDBOO K_BATCH_RE QUEST_ID,
  6705           :n ew.MAX_PER _JOB_NUMBE R,
  6706           :n ew.BATCH_R ELEASE_DAT E,
  6707           :n ew.BATCH_R ELEASE_SIZ E,
  6708           :n ew.BATCH_C ANCEL_DATE ,
  6709           :n ew.NOTE,
  6710           :n ew.STD_HAN DBOOKRELEA SECNTL_ID,
  6711           :n ew.STD_HAN DBOOKBATCH REQUESTSTA _ID,
  6712           :n ew.RECORD_ CREATED_BY ,
  6713           :n ew.RECORD_ CREATED_DA TE,
  6714           :n ew.RECORD_ MODIFIED_B Y,
  6715           :n ew.RECORD_ MODIFIED_D ATE,
  6716           :n ew.RECORD_ MODIFIED_C OUNT,
  6717           SY SDATE,
  6718           mD ML
  6719           );
  6720       end if ;
  6721  
  6722   end HANDBO OK_BATCH_R EQ_AUDIR_T RGR;
  6723   /
  6724   DROP TRIGG ER ADR.FIN AN_STATEME NT_AUDIR_T RGR;
  6725  
  6726   CREATE OR  REPLACE TR IGGER ADR. FINAN_STAT EMENT_AUDI R_TRGR AFT ER UPDATE  OR INSERT  OR DELETE  ON "ADR"." FINANCIAL_ STATEMENT"  FOR EACH  ROW
  6727   declare
  6728          mDM L char(1);
  6729   begin
  6730  
  6731       if DEL ETING then
  6732           in sert into  FINANCIAL_ STATEMENT_ H
  6733           (
  6734           FI NANCIAL_ST ATEMENT_H_ ID,
  6735           FI NANCIAL_ST ATEMENT_ID ,
  6736           PE RSON_ID,
  6737           PE RSON_RELAT ION_ID,
  6738           RE F_FINANCIA L_STATEMEN T_ID,
  6739           IN COME_YEAR,
  6740           FI N_STMT_MAP PING_TYPE_ CODE,
  6741           CO NTRIBUTION _TO_SPOUSE _AMT,
  6742           CO NTRIBUTION _TO_DEPEND ENT_AMT,
  6743           DI SCLOSED_FI NANCIAL_IN FO_IND,
  6744           SP OUSE_HAS_I NCOME_IND,
  6745           MA RRIED_CURR _CALENDAR_ YEAR_IND,
  6746           MA RRIED_PREV _CALENDAR_ YEAR_IND,
  6747           DE PENDENT_IN COME_AVAIL ABLE_IND,
  6748           DE PENDENT_HA S_INCOME_I ND,
  6749           DE PENDENT_IN _SCHOOL_IN D,
  6750           LI VED_WITH_V ETERAN_IND ,
  6751           IS _INCAPABLE _SELF_SUPP ORT_IND,
  6752           DE PENDENT_CH ILDREN_COU NT,
  6753           CH ILD_SUPPOR T_IND,
  6754           VE RIFIED_DAT E,
  6755           RE MARKS,
  6756           RE CORD_CREAT ED_BY,
  6757           RE CORD_CREAT ED_DATE,
  6758           RE CORD_MODIF IED_BY,
  6759           RE CORD_MODIF IED_DATE,
  6760           RE CORD_MODIF IED_COUNT,
  6761           VA LID_DEPEND ENT_IND,
  6762           PO ST_2005_DI SPLAY_FORM AT_FLAG,
  6763           TR ANSACTION_ TYPE_CODE,
  6764           CO NTRIBUTED_ TO_SPOUSE_ IND
  6765              )
  6766           va lues
  6767           (
  6768           FI NANCIAL_ST ATEMENT_H_ S.nextval,
  6769           :o ld.FINANCI AL_STATEME NT_ID,
  6770           :o ld.PERSON_ ID,
  6771           :o ld.PERSON_ RELATION_I D,
  6772           :o ld.REF_FIN ANCIAL_STA TEMENT_ID,
  6773           :o ld.INCOME_ YEAR,
  6774           :o ld.FIN_STM T_MAPPING_ TYPE_CODE,
  6775           :o ld.CONTRIB UTION_TO_S POUSE_AMT,
  6776           :o ld.CONTRIB UTION_TO_D EPENDENT_A MT,
  6777           :o ld.DISCLOS ED_FINANCI AL_INFO_IN D,
  6778           :o ld.SPOUSE_ HAS_INCOME _IND,
  6779           :o ld.MARRIED _CURR_CALE NDAR_YEAR_ IND,
  6780           :o ld.MARRIED _PREV_CALE NDAR_YEAR_ IND,
  6781           :o ld.DEPENDE NT_INCOME_ AVAILABLE_ IND,
  6782           :o ld.DEPENDE NT_HAS_INC OME_IND,
  6783           :o ld.DEPENDE NT_IN_SCHO OL_IND,
  6784           :o ld.LIVED_W ITH_VETERA N_IND,
  6785           :o ld.IS_INCA PABLE_SELF _SUPPORT_I ND,
  6786           :o ld.DEPENDE NT_CHILDRE N_COUNT,
  6787           :o ld.CHILD_S UPPORT_IND ,
  6788           :o ld.VERIFIE D_DATE,
  6789           :o ld.REMARKS ,
  6790           :o ld.RECORD_ CREATED_BY ,
  6791           :o ld.RECORD_ CREATED_DA TE,
  6792           :o ld.RECORD_ MODIFIED_B Y,
  6793           :o ld.RECORD_ MODIFIED_D ATE,
  6794           :o ld.RECORD_ MODIFIED_C OUNT,
  6795           :o ld.VALID_D EPENDENT_I ND,
  6796           :o ld.POST_20 05_DISPLAY _FORMAT_FL AG,
  6797           'D ',
  6798           :o ld.CONTRIB UTED_TO_SP OUSE_IND
  6799           );
  6800  
  6801       else
  6802           if  UPDATING  then
  6803                mDML :=  'U';
  6804           el se
  6805                mDML :=  'I';
  6806           en d if;
  6807  
  6808           in sert into  FINANCIAL_ STATEMENT_ H
  6809           (
  6810           FI NANCIAL_ST ATEMENT_H_ ID,
  6811           FI NANCIAL_ST ATEMENT_ID ,
  6812           PE RSON_ID,
  6813           PE RSON_RELAT ION_ID,
  6814           RE F_FINANCIA L_STATEMEN T_ID,
  6815           IN COME_YEAR,
  6816           FI N_STMT_MAP PING_TYPE_ CODE,
  6817           CO NTRIBUTION _TO_SPOUSE _AMT,
  6818           CO NTRIBUTION _TO_DEPEND ENT_AMT,
  6819           DI SCLOSED_FI NANCIAL_IN FO_IND,
  6820           SP OUSE_HAS_I NCOME_IND,
  6821           MA RRIED_CURR _CALENDAR_ YEAR_IND,
  6822           MA RRIED_PREV _CALENDAR_ YEAR_IND,
  6823           DE PENDENT_IN COME_AVAIL ABLE_IND,
  6824           DE PENDENT_HA S_INCOME_I ND,
  6825           DE PENDENT_IN _SCHOOL_IN D,
  6826           LI VED_WITH_V ETERAN_IND ,
  6827           IS _INCAPABLE _SELF_SUPP ORT_IND,
  6828           DE PENDENT_CH ILDREN_COU NT,
  6829           CH ILD_SUPPOR T_IND,
  6830           VE RIFIED_DAT E,
  6831           RE MARKS,
  6832           RE CORD_CREAT ED_BY,
  6833           RE CORD_CREAT ED_DATE,
  6834           RE CORD_MODIF IED_BY,
  6835           RE CORD_MODIF IED_DATE,
  6836           RE CORD_MODIF IED_COUNT,
  6837           VA LID_DEPEND ENT_IND,
  6838           PO ST_2005_DI SPLAY_FORM AT_FLAG,
  6839           TR ANSACTION_ TYPE_CODE,
  6840           CO NTRIBUTED_ TO_SPOUSE_ IND
  6841              )
  6842           va lues
  6843           (
  6844           FI NANCIAL_ST ATEMENT_H_ S.nextval,
  6845           :n ew.FINANCI AL_STATEME NT_ID,
  6846           :n ew.PERSON_ ID,
  6847           :n ew.PERSON_ RELATION_I D,
  6848           :n ew.REF_FIN ANCIAL_STA TEMENT_ID,
  6849           :n ew.INCOME_ YEAR,
  6850           :n ew.FIN_STM T_MAPPING_ TYPE_CODE,
  6851           :n ew.CONTRIB UTION_TO_S POUSE_AMT,
  6852           :n ew.CONTRIB UTION_TO_D EPENDENT_A MT,
  6853           :n ew.DISCLOS ED_FINANCI AL_INFO_IN D,
  6854           :n ew.SPOUSE_ HAS_INCOME _IND,
  6855           :n ew.MARRIED _CURR_CALE NDAR_YEAR_ IND,
  6856           :n ew.MARRIED _PREV_CALE NDAR_YEAR_ IND,
  6857           :n ew.DEPENDE NT_INCOME_ AVAILABLE_ IND,
  6858           :n ew.DEPENDE NT_HAS_INC OME_IND,
  6859           :n ew.DEPENDE NT_IN_SCHO OL_IND,
  6860           :n ew.LIVED_W ITH_VETERA N_IND,
  6861           :n ew.IS_INCA PABLE_SELF _SUPPORT_I ND,
  6862           :n ew.DEPENDE NT_CHILDRE N_COUNT,
  6863           :n ew.CHILD_S UPPORT_IND ,
  6864           :n ew.VERIFIE D_DATE,
  6865           :n ew.REMARKS ,
  6866           :n ew.RECORD_ CREATED_BY ,
  6867           :n ew.RECORD_ CREATED_DA TE,
  6868           :n ew.RECORD_ MODIFIED_B Y,
  6869           :n ew.RECORD_ MODIFIED_D ATE,
  6870           :n ew.RECORD_ MODIFIED_C OUNT,
  6871           :n ew.VALID_D EPENDENT_I ND,
  6872           :n ew.POST_20 05_DISPLAY _FORMAT_FL AG,
  6873           mD ML,
  6874           :n ew.CONTRIB UTED_TO_SP OUSE_IND
  6875           );
  6876  
  6877       end if ;
  6878  
  6879   end  FINAN _STATEMENT _audir_trg r;
  6880   /
  6881   DROP TRIGG ER ADR.FIN AN_INC_DET _AUDIR_TRG R;
  6882  
  6883   CREATE OR  REPLACE TR IGGER ADR. FINAN_INC_ DET_AUDIR_ TRGR AFTER  UPDATE OR  INSERT OR  DELETE ON  "ADR"."FI NANCIAL_IN COME_DETAI L" FOR EAC H ROW
  6884   declare
  6885           mD ML char(1) ;
  6886   begin
  6887  
  6888           if  DELETING  then
  6889                    inse rt into FI NANCIAL_IN COME_DETAI L_H
  6890                    (
  6891                    FINA NCIAL_INCO ME_DETAIL_ H_ID,
  6892                    FINA NCIAL_INCO ME_DETAIL_ ID,
  6893                    FINA NCIAL_STAT EMENT_ID,
  6894                    FINA NCIAL_INCO ME_TYPE_ID ,
  6895                    GROS S_AMOUNT,
  6896                    RECO RD_CREATED _BY,
  6897                    RECO RD_CREATED _DATE,
  6898                    RECO RD_MODIFIE D_BY,
  6899                    RECO RD_MODIFIE D_DATE,
  6900                    RECO RD_MODIFIE D_COUNT,
  6901                    TRAN SACTION_TY PE_CODE
  6902           )
  6903                    valu es
  6904                    (
  6905                    FINA NCIAL_INCO ME_DETAIL_ H_S.nextva l,
  6906                    :old .FINANCIAL _INCOME_DE TAIL_ID,
  6907                    :old .FINANCIAL _STATEMENT _ID,
  6908                    :old .FINANCIAL _INCOME_TY PE_ID,
  6909                    :old .GROSS_AMO UNT,
  6910                    :old .RECORD_CR EATED_BY,
  6911                    :old .RECORD_CR EATED_DATE ,
  6912                    :old .RECORD_MO DIFIED_BY,
  6913                    :old .RECORD_MO DIFIED_DAT E,
  6914                    :old .RECORD_MO DIFIED_COU NT,
  6915                    'D'
  6916                    );
  6917           el se
  6918                    if U PDATING th en
  6919                             mDML : = 'U';
  6920                    else
  6921                             mDML : = 'I';
  6922                    end  if;
  6923  
  6924                    inse rt into FI NANCIAL_IN COME_DETAI L_H
  6925                    (
  6926                    FINA NCIAL_INCO ME_DETAIL_ H_ID,
  6927                    FINA NCIAL_INCO ME_DETAIL_ ID,
  6928                    FINA NCIAL_STAT EMENT_ID,
  6929                    FINA NCIAL_INCO ME_TYPE_ID ,
  6930                    GROS S_AMOUNT,
  6931                    RECO RD_CREATED _BY,
  6932                    RECO RD_CREATED _DATE,
  6933                    RECO RD_MODIFIE D_BY,
  6934                    RECO RD_MODIFIE D_DATE,
  6935                    RECO RD_MODIFIE D_COUNT,
  6936                    TRAN SACTION_TY PE_CODE
  6937           )
  6938                    valu es
  6939                    (
  6940                    FINA NCIAL_INCO ME_DETAIL_ H_S.nextva l,
  6941                    :new .FINANCIAL _INCOME_DE TAIL_ID,
  6942                    :new .FINANCIAL _STATEMENT _ID,
  6943                    :new .FINANCIAL _INCOME_TY PE_ID,
  6944                    :new .GROSS_AMO UNT,
  6945                    :new .RECORD_CR EATED_BY,
  6946                    :new .RECORD_CR EATED_DATE ,
  6947                    :new .RECORD_MO DIFIED_BY,
  6948                    :new .RECORD_MO DIFIED_DAT E,
  6949                    :new .RECORD_MO DIFIED_COU NT,
  6950                    mDML
  6951                    );
  6952           en d if;
  6953  
  6954   end  FINAN _INC_DET_a udir_trgr;
  6955   /
  6956   DROP TRIGG ER ADR.FIN AN_EXP_DET _AUDIR_TRG R;
  6957  
  6958   CREATE OR  REPLACE TR IGGER ADR. FINAN_EXP_ DET_AUDIR_ TRGR AFTER  UPDATE OR  INSERT OR  DELETE ON  "ADR"."FI NANCIAL_EX PENSE_DETA IL" FOR EA CH ROW
  6959   declare
  6960           mD ML char(1) ;
  6961   begin
  6962  
  6963           if  DELETING  then
  6964                    inse rt into FI NANCIAL_EX PENSE_DETA IL_H
  6965                    (
  6966                    FINA NCIAL_EXPE NSE_DETAIL _H_ID,
  6967                    FINA NCIAL_EXPE NSE_DETAIL _ID,
  6968                    FINA NCIAL_STAT EMENT_ID,
  6969                    FINA NCIAL_EXPE NSE_TYPE_I D,
  6970                    GROS S_AMOUNT,
  6971                    RECO RD_CREATED _BY,
  6972                    RECO RD_CREATED _DATE,
  6973                    RECO RD_MODIFIE D_BY,
  6974                    RECO RD_MODIFIE D_DATE,
  6975                    RECO RD_MODIFIE D_COUNT,
  6976                    TRAN SACTION_TY PE_CODE
  6977           )
  6978                    valu es
  6979                    (
  6980                    FINA NCIAL_EXPE NSE_DETAIL _H_S.nextv al,
  6981                    :old .FINANCIAL _EXPENSE_D ETAIL_ID,
  6982                    :old .FINANCIAL _STATEMENT _ID,
  6983                    :old .FINANCIAL _EXPENSE_T YPE_ID,
  6984                    :old .GROSS_AMO UNT,
  6985                    :old .RECORD_CR EATED_BY,
  6986                    :old .RECORD_CR EATED_DATE ,
  6987                    :old .RECORD_MO DIFIED_BY,
  6988                    :old .RECORD_MO DIFIED_DAT E,
  6989                    :old .RECORD_MO DIFIED_COU NT,
  6990                    'D'
  6991                    );
  6992           el se
  6993                    if U PDATING th en
  6994                             mDML : = 'U';
  6995                    else
  6996                             mDML : = 'I';
  6997                    end  if;
  6998  
  6999                    inse rt into FI NANCIAL_EX PENSE_DETA IL_H
  7000                    (
  7001                    FINA NCIAL_EXPE NSE_DETAIL _H_ID,
  7002                    FINA NCIAL_EXPE NSE_DETAIL _ID,
  7003                    FINA NCIAL_STAT EMENT_ID,
  7004                    FINA NCIAL_EXPE NSE_TYPE_I D,
  7005                    GROS S_AMOUNT,
  7006                    RECO RD_CREATED _BY,
  7007                    RECO RD_CREATED _DATE,
  7008                    RECO RD_MODIFIE D_BY,
  7009                    RECO RD_MODIFIE D_DATE,
  7010                    RECO RD_MODIFIE D_COUNT,
  7011                    TRAN SACTION_TY PE_CODE
  7012           )
  7013                    valu es
  7014                    (
  7015                    FINA NCIAL_EXPE NSE_DETAIL _H_S.nextv al,
  7016                    :new .FINANCIAL _EXPENSE_D ETAIL_ID,
  7017                    :new .FINANCIAL _STATEMENT _ID,
  7018                    :new .FINANCIAL _EXPENSE_T YPE_ID,
  7019                    :new .GROSS_AMO UNT,
  7020                    :new .RECORD_CR EATED_BY,
  7021                    :new .RECORD_CR EATED_DATE ,
  7022                    :new .RECORD_MO DIFIED_BY,
  7023                    :new .RECORD_MO DIFIED_DAT E,
  7024                    :new .RECORD_MO DIFIED_COU NT,
  7025                    mDML
  7026                    );
  7027           en d if;
  7028  
  7029   end  FINAN _EXP_DET_a udir_trgr;
  7030   /
  7031   DROP TRIGG ER ADR.FIN AN_DEBT_DE T_AUDIR_TR GR;
  7032  
  7033   CREATE OR  REPLACE TR IGGER ADR. FINAN_DEBT _DET_AUDIR _TRGR
  7034   after Upda te or Dele te or Inse rt
  7035   on ADR.FIN ANCIAL_DEB T_DETAIL
  7036   REFERENCIN G NEW AS N EW OLD AS  OLD
  7037   for each r ow
  7038   declare
  7039           mD ML char(1) ;
  7040           d_ prsnid         number   := 0;
  7041   begin
  7042  
  7043           if  DELETING  then
  7044                    inse rt into FI NANCIAL_DE BT_DETAIL_ H
  7045                    (
  7046                    FINA NCIAL_DEBT _DETAIL_H_ ID,
  7047                    FINA NCIAL_DEBT _DETAIL_ID ,
  7048                    FINA NCIAL_STAT EMENT_ID,
  7049                    GROS S_AMOUNT,
  7050                    RECO RD_CREATED _BY,
  7051                    RECO RD_CREATED _DATE,
  7052                    RECO RD_MODIFIE D_BY,
  7053                    RECO RD_MODIFIE D_DATE,
  7054                    RECO RD_MODIFIE D_COUNT,
  7055                    TRAN SACTION_TY PE_CODE
  7056           )
  7057                    valu es
  7058                    (
  7059                    FINA NCIAL_DEBT _DETAIL_H_ S.nextval,
  7060                    :old .FINANCIAL _DEBT_DETA IL_ID,
  7061                    :old .FINANCIAL _STATEMENT _ID,
  7062                    :old .GROSS_AMO UNT,
  7063                    :old .RECORD_CR EATED_BY,
  7064                    :old .RECORD_CR EATED_DATE ,
  7065                    :old .RECORD_MO DIFIED_BY,
  7066                    :old .RECORD_MO DIFIED_DAT E,
  7067                    :old .RECORD_MO DIFIED_COU NT,
  7068                    'D'
  7069                    );
  7070                    sele ct
  7071                             fs.per son_id
  7072                    into
  7073                             d_prsn id
  7074                    from
  7075                             ADR.FI NANCIAL_ST ATEMENT fs
  7076                    wher e   financ ial_statem ent_id = : OLD.financ ial_statem ent_id;
  7077  
  7078           el se
  7079                    if U PDATING th en
  7080                             mDML : = 'U';
  7081                    else
  7082                             mDML : = 'I';
  7083                    end  if;
  7084  
  7085                    inse rt into FI NANCIAL_DE BT_DETAIL_ H
  7086                    (
  7087                    FINA NCIAL_DEBT _DETAIL_H_ ID,
  7088                    FINA NCIAL_DEBT _DETAIL_ID ,
  7089                    FINA NCIAL_STAT EMENT_ID,
  7090                    GROS S_AMOUNT,
  7091                    RECO RD_CREATED _BY,
  7092                    RECO RD_CREATED _DATE,
  7093                    RECO RD_MODIFIE D_BY,
  7094                    RECO RD_MODIFIE D_DATE,
  7095                    RECO RD_MODIFIE D_COUNT,
  7096                    TRAN SACTION_TY PE_CODE
  7097           )
  7098                    valu es
  7099                    (
  7100                    FINA NCIAL_DEBT _DETAIL_H_ S.nextval,
  7101                    :new .FINANCIAL _DEBT_DETA IL_ID,
  7102                    :new .FINANCIAL _STATEMENT _ID,
  7103                    :new .GROSS_AMO UNT,
  7104                    :new .RECORD_CR EATED_BY,
  7105                    :new .RECORD_CR EATED_DATE ,
  7106                    :new .RECORD_MO DIFIED_BY,
  7107                    :new .RECORD_MO DIFIED_DAT E,
  7108                    :new .RECORD_MO DIFIED_COU NT,
  7109                    mDML
  7110                    );
  7111                    sele ct
  7112                             fs.per son_id
  7113                    into
  7114                             d_prsn id
  7115                    from
  7116                             ADR.FI NANCIAL_ST ATEMENT fs
  7117                    wher e   financ ial_statem ent_id = : NEW.financ ial_statem ent_id;
  7118  
  7119           en d if;
  7120  
  7121   end  FINAN _DEBT_DET_ audir_trgr ;
  7122   /
  7123   DROP TRIGG ER ADR.FIN AN_ASSET_D ET_AUDIR_T RGR;
  7124  
  7125   CREATE OR  REPLACE TR IGGER ADR. FINAN_ASSE T_DET_AUDI R_TRGR AFT ER UPDATE  OR INSERT  OR DELETE  ON "ADR"." FINANCIAL_ ASSET_DETA IL" FOR EA CH ROW
  7126   declare
  7127           mD ML char(1) ;
  7128   begin
  7129  
  7130           if  DELETING  then
  7131                    inse rt into FI NANCIAL_AS SET_DETAIL _H
  7132                    (
  7133                    FINA NCIAL_ASSE T_DETAIL_H _ID,
  7134                    FINA NCIAL_ASSE T_DETAIL_I D,
  7135                    FINA NCIAL_STAT EMENT_ID,
  7136                    FINA NCIAL_ASSE T_TYPE_ID,
  7137                    GROS S_AMOUNT,
  7138                    RECO RD_CREATED _BY,
  7139                    RECO RD_CREATED _DATE,
  7140                    RECO RD_MODIFIE D_BY,
  7141                    RECO RD_MODIFIE D_DATE,
  7142                    RECO RD_MODIFIE D_COUNT,
  7143                    TRAN SACTION_TY PE_CODE
  7144           )
  7145                    valu es
  7146                    (
  7147                    FINA NCIAL_ASSE T_DETAIL_H _S.nextval ,
  7148                    :old .FINANCIAL _ASSET_DET AIL_ID,
  7149                    :old .FINANCIAL _STATEMENT _ID,
  7150                    :old .FINANCIAL _ASSET_TYP E_ID,
  7151                    :old .GROSS_AMO UNT,
  7152                    :old .RECORD_CR EATED_BY,
  7153                    :old .RECORD_CR EATED_DATE ,
  7154                    :old .RECORD_MO DIFIED_BY,
  7155                    :old .RECORD_MO DIFIED_DAT E,
  7156                    :old .RECORD_MO DIFIED_COU NT,
  7157                    'D'
  7158                    );
  7159           el se
  7160                    if U PDATING th en
  7161                             mDML : = 'U';
  7162                    else
  7163                             mDML : = 'I';
  7164                    end  if;
  7165  
  7166                    inse rt into FI NANCIAL_AS SET_DETAIL _H
  7167                    (
  7168                    FINA NCIAL_ASSE T_DETAIL_H _ID,
  7169                    FINA NCIAL_ASSE T_DETAIL_I D,
  7170                    FINA NCIAL_STAT EMENT_ID,
  7171                    FINA NCIAL_ASSE T_TYPE_ID,
  7172                    GROS S_AMOUNT,
  7173                    RECO RD_CREATED _BY,
  7174                    RECO RD_CREATED _DATE,
  7175                    RECO RD_MODIFIE D_BY,
  7176                    RECO RD_MODIFIE D_DATE,
  7177                    RECO RD_MODIFIE D_COUNT,
  7178                    TRAN SACTION_TY PE_CODE
  7179           )
  7180                    valu es
  7181                    (
  7182                    FINA NCIAL_ASSE T_DETAIL_H _S.nextval ,
  7183                    :new .FINANCIAL _ASSET_DET AIL_ID,
  7184                    :new .FINANCIAL _STATEMENT _ID,
  7185                    :new .FINANCIAL _ASSET_TYP E_ID,
  7186                    :new .GROSS_AMO UNT,
  7187                    :new .RECORD_CR EATED_BY,
  7188                    :new .RECORD_CR EATED_DATE ,
  7189                    :new .RECORD_MO DIFIED_BY,
  7190                    :new .RECORD_MO DIFIED_DAT E,
  7191                    :new .RECORD_MO DIFIED_COU NT,
  7192                    mDML
  7193                    );
  7194           en d if;
  7195  
  7196   end  FINAN _ASSET_DET _audir_trg r;
  7197   /
  7198   DROP TRIGG ER ADR.FEE _BASIS_AUD IR_TRGR;
  7199  
  7200   CREATE OR  REPLACE TR IGGER ADR. FEE_BASIS_ audir_trgr
  7201   after Upda te or Dele te or Inse rt
  7202   ON ADR.FEE _BASIS
  7203   for each r ow
  7204   declare
  7205           mD ML char(1) ;
  7206   begin
  7207  
  7208           if  DELETING  then
  7209                    inse rt into FE E_BASIS_H
  7210                    (
  7211                    FEE_ BASIS_H_ID ,
  7212                    FEE_ BASIS_ID,
  7213                    PERS ON_ID,
  7214                    FEE_ BASIS_PROG RAM_TYPE_I D,
  7215                    FEE_ BASIS_TREA TMENT_TYPE _ID,
  7216                    STD_ INSTITUTIO N_ID,
  7217                    AUTH ORIZATION_ FROM_DATE,
  7218                    AUTH ORIZATION_ TO_DATE,
  7219                    FEE_ BASIS_REPO RT_DATE,
  7220                    RECO RD_CREATED _BY,
  7221                    RECO RD_CREATED _DATE,
  7222                    RECO RD_MODIFIE D_BY,
  7223                    RECO RD_MODIFIE D_DATE,
  7224                    RECO RD_MODIFIE D_COUNT,
  7225                    TRAN SACTION_TY PE_CODE
  7226           )
  7227                    valu es
  7228                    (
  7229                    FEE_ BASIS_H_S. nextval,
  7230                    :old .FEE_BASIS _ID,
  7231                    :old .PERSON_ID ,
  7232                    :old .FEE_BASIS _PROGRAM_T YPE_ID,
  7233                    :old .FEE_BASIS _TREATMENT _TYPE_ID,
  7234                    :old .STD_INSTI TUTION_ID,
  7235                    :old .AUTHORIZA TION_FROM_ DATE,
  7236                    :old .AUTHORIZA TION_TO_DA TE,
  7237                    :old .FEE_BASIS _REPORT_DA TE,
  7238                    :old .RECORD_CR EATED_BY,
  7239                    :old .RECORD_CR EATED_DATE ,
  7240                    :old .RECORD_MO DIFIED_BY,
  7241                    :old .RECORD_MO DIFIED_DAT E,
  7242                    :old .RECORD_MO DIFIED_COU NT,
  7243                    'D'
  7244                    );
  7245           el se
  7246                    if U PDATING th en
  7247                             mDML : = 'U';
  7248                    else
  7249                             mDML : = 'I';
  7250                    end  if;
  7251  
  7252                    inse rt into FE E_BASIS_H
  7253                    (
  7254                    FEE_ BASIS_H_ID ,
  7255                    FEE_ BASIS_ID,
  7256                    PERS ON_ID,
  7257                    FEE_ BASIS_PROG RAM_TYPE_I D,
  7258                    FEE_ BASIS_TREA TMENT_TYPE _ID,
  7259                    STD_ INSTITUTIO N_ID,
  7260                    AUTH ORIZATION_ FROM_DATE,
  7261                    AUTH ORIZATION_ TO_DATE,
  7262                    FEE_ BASIS_REPO RT_DATE,
  7263                    RECO RD_CREATED _BY,
  7264                    RECO RD_CREATED _DATE,
  7265                    RECO RD_MODIFIE D_BY,
  7266                    RECO RD_MODIFIE D_DATE,
  7267                    RECO RD_MODIFIE D_COUNT,
  7268                    TRAN SACTION_TY PE_CODE
  7269           )
  7270                    valu es
  7271                    (
  7272                    FEE_ BASIS_H_S. nextval,
  7273                    :new .FEE_BASIS _ID,
  7274                    :new .PERSON_ID ,
  7275                    :new .FEE_BASIS _PROGRAM_T YPE_ID,
  7276                    :new .FEE_BASIS _TREATMENT _TYPE_ID,
  7277                    :new .STD_INSTI TUTION_ID,
  7278                    :new .AUTHORIZA TION_FROM_ DATE,
  7279                    :new .AUTHORIZA TION_TO_DA TE,
  7280                    :new .FEE_BASIS _REPORT_DA TE,
  7281                    :new .RECORD_CR EATED_BY,
  7282                    :new .RECORD_CR EATED_DATE ,
  7283                    :new .RECORD_MO DIFIED_BY,
  7284                    :new .RECORD_MO DIFIED_DAT E,
  7285                    :new .RECORD_MO DIFIED_COU NT,
  7286                    mDML
  7287                    );
  7288           en d if;
  7289  
  7290   end  FEE_B ASIS_audir _trgr;
  7291   /
  7292   DROP TRIGG ER ADR.ENR OLLMENT_OV ER_AUDIR_T RGR;
  7293  
  7294   CREATE OR  REPLACE TR IGGER ADR. ENROLLMENT _OVER_AUDI R_TRGR
  7295   after Upda te or Dele te or Inse rt
  7296   on ADR.ENR OLLMENT_OV ERRIDE
  7297   REFERENCIN G NEW AS N EW OLD AS  OLD
  7298   for each r ow
  7299   declare
  7300           mD ML char(1) ;
  7301   begin
  7302  
  7303           if  DELETING  then
  7304                    inse rt into EN ROLLMENT_O VERRIDE_H
  7305                    (
  7306                    ENRO LLMENT_OVE RRIDE_H_ID ,
  7307                    ENRO LLMENT_OVE RRIDE_ID,
  7308                    PERS ON_ID,
  7309                    OVER RIDE_FLAG,
  7310                    OVER RIDE_DATE,
  7311                    STD_ ENROLLMENT OVERRIDERS N_ID,
  7312                    REMA RKS,
  7313                    OVER RIDE_CREAT ED_USER,
  7314                    OVER RIDE_CREAT ED_DATE,
  7315                    RECO RD_CREATED _BY,
  7316                    RECO RD_CREATED _DATE,
  7317                    RECO RD_MODIFIE D_BY,
  7318                    RECO RD_MODIFIE D_DATE,
  7319                    RECO RD_MODIFIE D_COUNT,
  7320                    TRAN SACTION_TY PE_CODE
  7321           )
  7322                    valu es
  7323                    (
  7324                    ENRO LLMENT_OVE RRIDE_H_S. nextval,
  7325                    :old .ENROLLMEN T_OVERRIDE _ID,
  7326                    :old .PERSON_ID ,
  7327                    :old .OVERRIDE_ FLAG,
  7328                    :old .OVERRIDE_ DATE,
  7329                    :old .STD_ENROL LMENTOVERR IDERSN_ID,
  7330                    :old .REMARKS,
  7331                    :old .OVERRIDE_ CREATED_US ER,
  7332                    :old .OVERRIDE_ CREATED_DA TE,
  7333                    :old .RECORD_CR EATED_BY,
  7334                    :old .RECORD_CR EATED_DATE ,
  7335                    :old .RECORD_MO DIFIED_BY,
  7336                    :old .RECORD_MO DIFIED_DAT E,
  7337                    :old .RECORD_MO DIFIED_COU NT,
  7338                    'D'
  7339                    );
  7340  
  7341           el se
  7342                    if U PDATING th en
  7343                             mDML : = 'U';
  7344                    else
  7345                             mDML : = 'I';
  7346                    end  if;
  7347  
  7348                    inse rt into EN ROLLMENT_O VERRIDE_H
  7349                    (
  7350                    ENRO LLMENT_OVE RRIDE_H_ID ,
  7351                    ENRO LLMENT_OVE RRIDE_ID,
  7352                    PERS ON_ID,
  7353                    OVER RIDE_FLAG,
  7354                    OVER RIDE_DATE,
  7355                    STD_ ENROLLMENT OVERRIDERS N_ID,
  7356                    REMA RKS,
  7357                    OVER RIDE_CREAT ED_USER,
  7358                    OVER RIDE_CREAT ED_DATE,
  7359                    RECO RD_CREATED _BY,
  7360                    RECO RD_CREATED _DATE,
  7361                    RECO RD_MODIFIE D_BY,
  7362                    RECO RD_MODIFIE D_DATE,
  7363                    RECO RD_MODIFIE D_COUNT,
  7364                    TRAN SACTION_TY PE_CODE
  7365           )
  7366                    valu es
  7367                    (
  7368                    ENRO LLMENT_OVE RRIDE_H_S. nextval,
  7369                    :new .ENROLLMEN T_OVERRIDE _ID,
  7370                    :new .PERSON_ID ,
  7371                    :new .OVERRIDE_ FLAG,
  7372                    :new .OVERRIDE_ DATE,
  7373                    :new .STD_ENROL LMENTOVERR IDERSN_ID,
  7374                    :new .REMARKS,
  7375                    :new .OVERRIDE_ CREATED_US ER,
  7376                    :new .OVERRIDE_ CREATED_DA TE,
  7377                    :new .RECORD_CR EATED_BY,
  7378                    :new .RECORD_CR EATED_DATE ,
  7379                    :new .RECORD_MO DIFIED_BY,
  7380                    :new .RECORD_MO DIFIED_DAT E,
  7381                    :new .RECORD_MO DIFIED_COU NT,
  7382                    mDML
  7383                    );
  7384  
  7385           en d if;
  7386  
  7387   end  ENROL LMENT_OVER _audir_trg r;
  7388   /
  7389   DROP TRIGG ER ADR.ENR OLLMENT_DE TER_AUDIR_ TRGR;
  7390  
  7391   CREATE OR  REPLACE TR IGGER ADR. ENROLLMENT _DETER_AUD IR_TRGR
  7392       AFTER  UPDATE OR  DELETE OR  INSERT
  7393       ON ADR .ENROLLMEN T_DETERMIN ATION
  7394       FOR EA CH ROW
  7395   DECLARE
  7396       Mdml    CHAR (1);
  7397   BEGIN
  7398       IF DEL ETING
  7399       THEN
  7400           IN SERT INTO  ADR.Enroll ment_Deter mination_H  (Enrollme nt_determi nation_h_i d,
  7401                                                            Enrollme nt_determi nation_id,
  7402                                                            Person_i d,
  7403                                                            Std_enro llmentstat us_id,
  7404                                                            Enrollme nt_data_sr c_type_id,
  7405                                                            Priority _group_typ e_id,
  7406                                                            Priority _sub_group _type_id,
  7407                                                            Applicat ion_site_i d,
  7408                                                            Egt_sett ing_id,
  7409                                                            Enrollme nt_applica tion_date,
  7410                                                            Enrollme nt_start_d ate,
  7411                                                            Enrollme nt_end_dat e,
  7412                                                            Change_e ffective_d ate,
  7413                                                            Enrollme nt_overrid den_flag,
  7414                                                            Record_c reated_by,
  7415                                                            Record_c reated_dat e,
  7416                                                            Record_m odified_by ,
  7417                                                            Record_m odified_da te,
  7418                                                            Record_m odified_co unt,
  7419                                                            Transact ion_type_c ode,
  7420                                                            Std_enro llmentprio rgrp_id,
  7421                                                            Std_enro llmentprio rsgrp_id,
  7422                                                            CLOSE_AP L_RSN_TYPE _ID)
  7423                 VALUES  (ADR.Enrol lment_dete rmination_ h_s.NEXTVA L,
  7424                          :OLD.Enro llment_det ermination _id,
  7425                          :OLD.Pers on_id,
  7426                          :OLD.Std_ enrollment status_id,
  7427                          :OLD.Enro llment_dat a_src_type _id,
  7428                          :OLD.Prio rity_group _type_id,
  7429                          :OLD.Prio rity_sub_g roup_type_ id,
  7430                          :OLD.Appl ication_si te_id,
  7431                          :OLD.Egt_ setting_id ,
  7432                          :OLD.Enro llment_app lication_d ate,
  7433                          :OLD.Enro llment_sta rt_date,
  7434                          :OLD.Enro llment_end _date,
  7435                          :OLD.Chan ge_effecti ve_date,
  7436                          :OLD.Enro llment_ove rridden_fl ag,
  7437                          :OLD.Reco rd_created _by,
  7438                          :OLD.Reco rd_created _date,
  7439                          :OLD.Reco rd_modifie d_by,
  7440                          :OLD.Reco rd_modifie d_date,
  7441                          :OLD.Reco rd_modifie d_count,
  7442                          'D',
  7443                          :OLD.Std_ enrollment priorgrp_i d,
  7444                          :OLD.Std_ enrollment priorsgrp_ id,
  7445                          :OLD.CLOS E_APL_RSN_ TYPE_ID);
  7446       ELSE
  7447           IF  UPDATING
  7448           TH EN
  7449                Mdml :=  'U';
  7450           EL SE
  7451                Mdml :=  'I';
  7452           EN D IF;
  7453  
  7454           IN SERT INTO  ADR.Enroll ment_Deter mination_H  (Enrollme nt_determi nation_h_i d,
  7455                                                            Enrollme nt_determi nation_id,
  7456                                                            Person_i d,
  7457                                                            Std_enro llmentstat us_id,
  7458                                                            Enrollme nt_data_sr c_type_id,
  7459                                                            Priority _group_typ e_id,
  7460                                                            Priority _sub_group _type_id,
  7461                                                            Applicat ion_site_i d,
  7462                                                            Egt_sett ing_id,
  7463                                                            Enrollme nt_applica tion_date,
  7464                                                            Enrollme nt_start_d ate,
  7465                                                            Enrollme nt_end_dat e,
  7466                                                            Change_e ffective_d ate,
  7467                                                            Enrollme nt_overrid den_flag,
  7468                                                            Record_c reated_by,
  7469                                                            Record_c reated_dat e,
  7470                                                            Record_m odified_by ,
  7471                                                            Record_m odified_da te,
  7472                                                            Record_m odified_co unt,
  7473                                                            Transact ion_type_c ode,
  7474                                                            Std_enro llmentprio rgrp_id,
  7475                                                            Std_enro llmentprio rsgrp_id,
  7476                                                            CLOSE_AP L_RSN_TYPE _ID)
  7477                 VALUES  (ADR.Enrol lment_dete rmination_ h_s.NEXTVA L,
  7478                          :NEW.Enro llment_det ermination _id,
  7479                          :NEW.Pers on_id,
  7480                          :NEW.Std_ enrollment status_id,
  7481                          :NEW.Enro llment_dat a_src_type _id,
  7482                          :NEW.Prio rity_group _type_id,
  7483                          :NEW.Prio rity_sub_g roup_type_ id,
  7484                          :NEW.Appl ication_si te_id,
  7485                          :NEW.Egt_ setting_id ,
  7486                          :NEW.Enro llment_app lication_d ate,
  7487                          :NEW.Enro llment_sta rt_date,
  7488                          :NEW.Enro llment_end _date,
  7489                          :NEW.Chan ge_effecti ve_date,
  7490                          :NEW.Enro llment_ove rridden_fl ag,
  7491                          :NEW.Reco rd_created _by,
  7492                          :NEW.Reco rd_created _date,
  7493                          :NEW.Reco rd_modifie d_by,
  7494                          :NEW.Reco rd_modifie d_date,
  7495                          :NEW.Reco rd_modifie d_count,
  7496                          Mdml,
  7497                          :NEW.Std_ enrollment priorgrp_i d,
  7498                          :NEW.Std_ enrollment priorsgrp_ id,
  7499                          :NEW.CLOS E_APL_RSN_ TYPE_ID);
  7500       END IF ;
  7501   END ENROLL MENT_DETER _AUDIR_TRG R;
  7502   /
  7503   DROP TRIGG ER ADR.EMP LOYMENT_AU DIR_TRGR;
  7504  
  7505   CREATE OR  REPLACE TR IGGER ADR. EMPLOYMENT _AUDIR_TRG R AFTER UP DATE OR IN SERT OR DE LETE ON "A DR"."EMPLO YMENT" FOR  EACH ROW
  7506   declare
  7507       mDML c har(1);
  7508   begin
  7509  
  7510     if DELET ING then
  7511       insert  into EMPL OYMENT_H
  7512       (
  7513       EMPLOY MENT_H_ID,
  7514       EMPLOY MENT_ID,
  7515       PERSON _ID,
  7516       PERSON _RELATION_ ID,
  7517       STD_EM PLOYMENTST ATUS_ID,
  7518       EMPLOY EE_OCCUPAT ION,
  7519       EMPLOY ER_FULL_NA ME,
  7520       PHONE_ NUMBER,
  7521       ADDRES S_LINE1,
  7522       ADDRES S_LINE2,
  7523       ADDRES S_LINE3,
  7524       CITY,
  7525       STATE_ CODE,
  7526       COUNTY _CODE,
  7527       PROVIN CE_CODE,
  7528       ZIP_CO DE,
  7529       ZIP_PL US_4,
  7530       POSTAL _CODE,
  7531       COUNTR Y_CODE,
  7532       RECORD _CREATED_B Y,
  7533       RECORD _CREATED_D ATE,
  7534       RECORD _MODIFIED_ BY,
  7535       RECORD _MODIFIED_ DATE,
  7536       RECORD _MODIFIED_ COUNT,
  7537       EMPLOY EE_RETIREM ENT_DATE_T XT,
  7538       TRANSA CTION_TYPE _CODE
  7539       )
  7540       values
  7541       (
  7542       EMPLOY MENT_h_s.n extval,
  7543       :old.E MPLOYMENT_ ID ,
  7544       :old.P ERSON_ID,
  7545       :old.P ERSON_RELA TION_ID,
  7546       :old.S TD_EMPLOYM ENTSTATUS_ ID,
  7547       :old.E MPLOYEE_OC CUPATION,
  7548       :old.E MPLOYER_FU LL_NAME,
  7549       :old.P HONE_NUMBE R,
  7550       :old.A DDRESS_LIN E1,
  7551       :old.A DDRESS_LIN E2,
  7552       :old.A DDRESS_LIN E3,
  7553       :old.C ITY,
  7554       :old.S TATE_CODE,
  7555       :old.C OUNTY_CODE ,
  7556       :old.P ROVINCE_CO DE,
  7557       :old.Z IP_CODE,
  7558       :old.Z IP_PLUS_4,
  7559       :old.P OSTAL_CODE ,
  7560       :old.C OUNTRY_COD E,
  7561       :old.R ECORD_CREA TED_BY,
  7562       :old.R ECORD_CREA TED_DATE,
  7563       :old.R ECORD_MODI FIED_BY ,
  7564       :old.R ECORD_MODI FIED_DATE,
  7565       :old.R ECORD_MODI FIED_COUNT ,
  7566       :old.E MPLOYEE_RE TIREMENT_D ATE_TXT,
  7567       'D'
  7568       );
  7569  
  7570  
  7571     else
  7572       if UPD ATING then
  7573         mDML  := 'U';
  7574       else
  7575         mDML  := 'I';
  7576       end if ;
  7577       insert  into EMPL OYMENT_H
  7578       (
  7579       EMPLOY MENT_H_ID,
  7580       EMPLOY MENT_ID,
  7581       PERSON _ID,
  7582       PERSON _RELATION_ ID,
  7583       STD_EM PLOYMENTST ATUS_ID,
  7584       EMPLOY EE_OCCUPAT ION,
  7585       EMPLOY ER_FULL_NA ME,
  7586       PHONE_ NUMBER,
  7587       ADDRES S_LINE1,
  7588       ADDRES S_LINE2,
  7589       ADDRES S_LINE3,
  7590       CITY,
  7591       STATE_ CODE,
  7592       COUNTY _CODE,
  7593       PROVIN CE_CODE,
  7594       ZIP_CO DE,
  7595       ZIP_PL US_4,
  7596       POSTAL _CODE,
  7597       COUNTR Y_CODE,
  7598       RECORD _CREATED_B Y,
  7599       RECORD _CREATED_D ATE,
  7600       RECORD _MODIFIED_ BY,
  7601       RECORD _MODIFIED_ DATE,
  7602       RECORD _MODIFIED_ COUNT,
  7603       EMPLOY EE_RETIREM ENT_DATE_T XT,
  7604       TRANSA CTION_TYPE _CODE
  7605       )
  7606       values
  7607       (
  7608       EMPLOY MENT_h_s.n extval,
  7609       :new.E MPLOYMENT_ ID ,
  7610       :new.P ERSON_ID,
  7611       :new.P ERSON_RELA TION_ID,
  7612       :new.S TD_EMPLOYM ENTSTATUS_ ID,
  7613       :new.E MPLOYEE_OC CUPATION,
  7614       :new.E MPLOYER_FU LL_NAME,
  7615       :new.P HONE_NUMBE R,
  7616       :new.A DDRESS_LIN E1,
  7617       :new.A DDRESS_LIN E2,
  7618       :new.A DDRESS_LIN E3,
  7619       :new.C ITY,
  7620       :new.S TATE_CODE,
  7621       :new.C OUNTY_CODE ,
  7622       :new.P ROVINCE_CO DE,
  7623       :new.Z IP_CODE,
  7624       :new.Z IP_PLUS_4,
  7625       :new.P OSTAL_CODE ,
  7626       :new.C OUNTRY_COD E,
  7627       :new.R ECORD_CREA TED_BY,
  7628       :new.R ECORD_CREA TED_DATE,
  7629       :new.R ECORD_MODI FIED_BY ,
  7630       :new.R ECORD_MODI FIED_DATE,
  7631       :new.R ECORD_MODI FIED_COUNT ,
  7632       :new.E MPLOYEE_RE TIREMENT_D ATE_TXT,
  7633       mDML
  7634       );
  7635  
  7636  
  7637  
  7638     end if;
  7639  
  7640   end EMPLOY MENT_audir _trgr;
  7641   /
  7642   DROP TRIGG ER ADR.EME RG_RESPONS E_AUDIR_TR GR;
  7643  
  7644   CREATE OR  REPLACE TR IGGER ADR. EMERG_RESP ONSE_AUDIR _TRGR
  7645   after Upda te or Dele te or Inse rt
  7646   on ADR.EME RGENCY_RES PONSE
  7647   REFERENCIN G NEW AS N EW OLD AS  OLD
  7648   for each r ow
  7649   declare
  7650           mD ML char(1) ;
  7651   begin
  7652  
  7653           if  DELETING  then
  7654                    inse rt into EM ERGENCY_RE SPONSE_H
  7655                    (
  7656                    EMER GENCY_RESP ONSE_H_ID,
  7657                    EMER GENCY_RESP ONSE_ID,
  7658                    PERS ON_ID,
  7659                    STD_ EMERGENCYR ESPONSE_ID ,
  7660                    RECO RD_CREATED _BY,
  7661                    RECO RD_CREATED _DATE,
  7662                    RECO RD_MODIFIE D_BY,
  7663                    RECO RD_MODIFIE D_DATE,
  7664                    RECO RD_MODIFIE D_COUNT,
  7665                    TRAN SACTION_TY PE_CODE
  7666                    )
  7667                    valu es
  7668                    (
  7669                    EMER GENCY_RESP ONSE_H_S.n extval,
  7670                    :old .EMERGENCY _RESPONSE_ ID,
  7671                    :old .PERSON_ID ,
  7672                    :old .STD_EMERG ENCYRESPON SE_ID,
  7673                    :old .RECORD_CR EATED_BY,
  7674                    :old .RECORD_CR EATED_DATE ,
  7675                    :old .RECORD_MO DIFIED_BY,
  7676                    :old .RECORD_MO DIFIED_DAT E,
  7677                    :old .RECORD_MO DIFIED_COU NT,
  7678                    'D'
  7679                    );
  7680           el se
  7681                    if U PDATING th en
  7682                             mDML : = 'U';
  7683                    else
  7684                             mDML : = 'I';
  7685                    end  if;
  7686  
  7687                    inse rt into EM ERGENCY_RE SPONSE_H
  7688                    (
  7689                    EMER GENCY_RESP ONSE_H_ID,
  7690                    EMER GENCY_RESP ONSE_ID,
  7691                    PERS ON_ID,
  7692                    STD_ EMERGENCYR ESPONSE_ID ,
  7693                    RECO RD_CREATED _BY,
  7694                    RECO RD_CREATED _DATE,
  7695                    RECO RD_MODIFIE D_BY,
  7696                    RECO RD_MODIFIE D_DATE,
  7697                    RECO RD_MODIFIE D_COUNT,
  7698                    TRAN SACTION_TY PE_CODE
  7699                    )
  7700                    valu es
  7701                    (
  7702                    EMER GENCY_RESP ONSE_H_S.n extval,
  7703                    :new .EMERGENCY _RESPONSE_ ID,
  7704                    :new .PERSON_ID ,
  7705                    :new .STD_EMERG ENCYRESPON SE_ID,
  7706                    :new .RECORD_CR EATED_BY,
  7707                    :new .RECORD_CR EATED_DATE ,
  7708                    :new .RECORD_MO DIFIED_BY,
  7709                    :new .RECORD_MO DIFIED_DAT E,
  7710                    :new .RECORD_MO DIFIED_COU NT,
  7711                    mDML
  7712                    );
  7713  
  7714           en d if;
  7715  
  7716   end emerg_ response_a udir_trgr;
  7717   /
  7718   DROP TRIGG ER ADR.EMA IL_AUDIR_T RGR;
  7719  
  7720   CREATE OR  REPLACE TR IGGER ADR. EMAIL_audi r_trgr
  7721   after Upda te or Dele te or Inse rt
  7722   ON ADR.EMA IL
  7723   for each r ow
  7724   declare
  7725           mD ML char(1) ;
  7726   begin
  7727  
  7728           if  DELETING  then
  7729                    inse rt into EM AIL_H
  7730                    (
  7731                    EMAI L_H_ID,
  7732                    EMAI L_ID,
  7733                    PERS ON_ID,
  7734                    INSU RANCE_ID,
  7735                    EMAI L_TYPE_ID,
  7736                    EMAI L_ADDRESS,
  7737                    CHAN GE_EFFECTI VE_DATE,
  7738                    RECO RD_CREATED _BY,
  7739                    RECO RD_CREATED _DATE,
  7740                    RECO RD_MODIFIE D_BY,
  7741                    RECO RD_MODIFIE D_DATE,
  7742                    RECO RD_MODIFIE D_COUNT,
  7743                    STD_ INSTITUTIO N_ID,
  7744                    EMAI L_CHANGE_S OURCE_TYPE _ID,
  7745                    RECO RD_MODIFIE D_SITE_ID,
  7746                    RECO RD_MODIFIE D_SRC_NAME ,
  7747                    TRAN SACTION_TY PE_CODE
  7748                    )
  7749                    valu es
  7750                    (
  7751                    EMAI L_H_S.next val,
  7752                    :old .EMAIL_ID,
  7753                    :old .PERSON_ID ,
  7754                    :old .INSURANCE _ID,
  7755                    :old .EMAIL_TYP E_ID,
  7756                    :old .EMAIL_ADD RESS,
  7757                    :old .CHANGE_EF FECTIVE_DA TE,
  7758                    :old .RECORD_CR EATED_BY,
  7759                    :old .RECORD_CR EATED_DATE ,
  7760                    :old .RECORD_MO DIFIED_BY,
  7761                    :old .RECORD_MO DIFIED_DAT E,
  7762                    :old .RECORD_MO DIFIED_COU NT,
  7763                    :old .STD_INSTI TUTION_ID,
  7764                    :old .EMAIL_CHA NGE_SOURCE _TYPE_ID,
  7765                    :old .RECORD_MO DIFIED_SIT E_ID,
  7766                    :old .RECORD_MO DIFIED_SRC _NAME,
  7767                    'D'
  7768                    );
  7769           el se
  7770                    if U PDATING th en
  7771                             mDML : = 'U';
  7772                    else
  7773                             mDML : = 'I';
  7774                    end  if;
  7775  
  7776                    inse rt into EM AIL_H
  7777                    (
  7778                    EMAI L_H_ID,
  7779                    EMAI L_ID,
  7780                    PERS ON_ID,
  7781                    INSU RANCE_ID,
  7782                    EMAI L_TYPE_ID,
  7783                    EMAI L_ADDRESS,
  7784                    CHAN GE_EFFECTI VE_DATE,
  7785                    RECO RD_CREATED _BY,
  7786                    RECO RD_CREATED _DATE,
  7787                    RECO RD_MODIFIE D_BY,
  7788                    RECO RD_MODIFIE D_DATE,
  7789                    RECO RD_MODIFIE D_COUNT,
  7790                    STD_ INSTITUTIO N_ID,
  7791                    EMAI L_CHANGE_S OURCE_TYPE _ID,
  7792                    RECO RD_MODIFIE D_SITE_ID,
  7793                    RECO RD_MODIFIE D_SRC_NAME ,
  7794                    TRAN SACTION_TY PE_CODE
  7795                    )
  7796                    valu es
  7797                    (
  7798                    EMAI L_H_S.next val,
  7799                    :new .EMAIL_ID,
  7800                    :new .PERSON_ID ,
  7801                    :new .INSURANCE _ID,
  7802                    :new .EMAIL_TYP E_ID,
  7803                    :new .EMAIL_ADD RESS,
  7804                    :new .CHANGE_EF FECTIVE_DA TE,
  7805                    :new .RECORD_CR EATED_BY,
  7806                    :new .RECORD_CR EATED_DATE ,
  7807                    :new .RECORD_MO DIFIED_BY,
  7808                    :new .RECORD_MO DIFIED_DAT E,
  7809                    :new .RECORD_MO DIFIED_COU NT,
  7810                    :new .STD_INSTI TUTION_ID,
  7811                    :new .EMAIL_CHA NGE_SOURCE _TYPE_ID,
  7812                    :new .RECORD_MO DIFIED_SIT E_ID,
  7813                    :new .RECORD_MO DIFIED_SRC _NAME,
  7814                    mDML
  7815                    );
  7816           en d if;
  7817  
  7818   end EMAIL_ audir_trgr ;
  7819   /
  7820   DROP TRIGG ER ADR.ELI GIBILITY_V ER_AUDIR_T RGR;
  7821  
  7822   CREATE OR  REPLACE TR IGGER ADR. ELIGIBILIT Y_VER_AUDI R_TRGR
  7823      AFTER U PDATE OR D ELETE OR I NSERT
  7824      ON ADR. ELIGIBILIT Y_VERIFICA TION
  7825      REFEREN CING NEW A S NEW OLD  AS OLD
  7826      FOR EAC H ROW
  7827   DECLARE
  7828      mDML    CHAR (1);
  7829   BEGIN
  7830      IF DELE TING
  7831      THEN
  7832         INSE RT INTO EL IGIBILITY_ VERIFICATI ON_H (ELIG IBILITY_VE RIFICATION _H_ID,
  7833                                                     ELIG IBILITY_VE RIFICATION _ID,
  7834                                                     PERS ON_ID,
  7835                                                     ELGB TY_STATUS_ TYPE_ID,
  7836                                                     ELGB TY_VRFN_SO URCE_TYPE_ ID,
  7837                                                     VBA_ QUERY_STAT US_TYPE_ID ,
  7838                                                     STD_ INSTITUTIO N_ID,
  7839                                                     VERI FICATION_M ETHOD_CODE ,
  7840                                                     ELIG IBILITY_ST ATUS_DATE_ TXT,
  7841                                                     VBA_ QUERY_STAT US_DATE,
  7842                                                     VBA_ QUERY_SENT _DATE,
  7843                                                     elgb ty_Status_ reason_id,
  7844                                                     elgb ty_reason_ explanatio n,
  7845                                                     RECO RD_CREATED _BY,
  7846                                                     RECO RD_CREATED _DATE,
  7847                                                     RECO RD_MODIFIE D_BY,
  7848                                                     RECO RD_MODIFIE D_DATE,
  7849                                                     RECO RD_MODIFIE D_COUNT,
  7850                                                     TRAN SACTION_TY PE_CODE)
  7851               VALUES (E LIGIBILITY _VERIFICAT ION_H_s.NE XTVAL,
  7852                       : old.ELIGIB ILITY_VERI FICATION_I D,
  7853                       : old.PERSON _ID,
  7854                       : old.ELGBTY _STATUS_TY PE_ID,
  7855                       : old.ELGBTY _VRFN_SOUR CE_TYPE_ID ,
  7856                       : old.VBA_QU ERY_STATUS _TYPE_ID,
  7857                       : old.STD_IN STITUTION_ ID,
  7858                       : old.VERIFI CATION_MET HOD_CODE,
  7859                       : old.ELIGIB ILITY_STAT US_DATE_TX T,
  7860                       : old.VBA_QU ERY_STATUS _DATE,
  7861                       : old.VBA_QU ERY_SENT_D ATE,
  7862                       : old.elgbty _Status_re ason_id,
  7863                       : old.elgbty _reason_ex planation,
  7864                       : old.RECORD _CREATED_B Y,
  7865                       : old.RECORD _CREATED_D ATE,
  7866                       : old.RECORD _MODIFIED_ BY,
  7867                       : old.RECORD _MODIFIED_ DATE,
  7868                       : old.RECORD _MODIFIED_ COUNT,
  7869                       ' D');
  7870      ELSE
  7871         IF U PDATING
  7872         THEN
  7873            m DML := 'U' ;
  7874         ELSE
  7875            m DML := 'I' ;
  7876         END  IF;
  7877  
  7878         INSE RT INTO EL IGIBILITY_ VERIFICATI ON_H (ELIG IBILITY_VE RIFICATION _H_ID,
  7879                                                     ELIG IBILITY_VE RIFICATION _ID,
  7880                                                     PERS ON_ID,
  7881                                                     ELGB TY_STATUS_ TYPE_ID,
  7882                                                     ELGB TY_VRFN_SO URCE_TYPE_ ID,
  7883                                                     VBA_ QUERY_STAT US_TYPE_ID ,
  7884                                                     STD_ INSTITUTIO N_ID,
  7885                                                     VERI FICATION_M ETHOD_CODE ,
  7886                                                     ELIG IBILITY_ST ATUS_DATE_ TXT,
  7887                                                     VBA_ QUERY_STAT US_DATE,
  7888                                                     VBA_ QUERY_SENT _DATE,
  7889                                                     elgb ty_Status_ reason_id,
  7890                                                     elgb ty_reason_ explanatio n,
  7891                                                     RECO RD_CREATED _BY,
  7892                                                     RECO RD_CREATED _DATE,
  7893                                                     RECO RD_MODIFIE D_BY,
  7894                                                     RECO RD_MODIFIE D_DATE,
  7895                                                     RECO RD_MODIFIE D_COUNT,
  7896                                                     TRAN SACTION_TY PE_CODE)
  7897               VALUES (E LIGIBILITY _VERIFICAT ION_H_s.NE XTVAL,
  7898                       : new.ELIGIB ILITY_VERI FICATION_I D,
  7899                       : new.PERSON _ID,
  7900                       : new.ELGBTY _STATUS_TY PE_ID,
  7901                       : new.ELGBTY _VRFN_SOUR CE_TYPE_ID ,
  7902                       : new.VBA_QU ERY_STATUS _TYPE_ID,
  7903                       : new.STD_IN STITUTION_ ID,
  7904                       : new.VERIFI CATION_MET HOD_CODE,
  7905                       : new.ELIGIB ILITY_STAT US_DATE_TX T,
  7906                       : new.VBA_QU ERY_STATUS _DATE,
  7907                       : new.VBA_QU ERY_SENT_D ATE,
  7908                       : new.elgbty _Status_re ason_id,
  7909                       : new.elgbty _reason_ex planation,
  7910                       : new.RECORD _CREATED_B Y,
  7911                       : new.RECORD _CREATED_D ATE,
  7912                       : new.RECORD _MODIFIED_ BY,
  7913                       : new.RECORD _MODIFIED_ DATE,
  7914                       : new.RECORD _MODIFIED_ COUNT,
  7915                       m DML);
  7916      END IF;
  7917   END ELIGIB ILITY_VER_ audir_trgr ;
  7918   /
  7919   DROP TRIGG ER ADR.ELI GIBILITY_D ET_AUDIR_T RGR;
  7920  
  7921   CREATE OR  REPLACE TR IGGER ADR. ELIGIBILIT Y_DET_audi r_trgr
  7922   after Upda te or Dele te or Inse rt
  7923   ON ADR.ELI GIBILITY_D ETERMINATI ON
  7924   for each r ow
  7925   declare
  7926           mD ML char(1) ;
  7927   begin
  7928  
  7929           if  DELETING  then
  7930                    inse rt into EL IGIBILITY_ DETERMINAT ION_H
  7931                    (
  7932                    ELIG IBILITY_DE TERMINATIO N_H_ID,
  7933                    ELIG IBILITY_DE TERMINATIO N_ID  ,
  7934                    ENRO LLMENT_DET ERMINATION _ID   ,
  7935                    ELIG IBILITY_TY PE_ID            ,
  7936                    PRIM ARY_SECOND ARY_OR_OTH ER    ,
  7937                    STD_ ELIGIBILIT YFACTOR_ID            ,
  7938                    RECO RD_CREATED _BY              ,
  7939                    RECO RD_CREATED _DATE            ,
  7940                    RECO RD_MODIFIE D_BY             ,
  7941                    RECO RD_MODIFIE D_DATE           ,
  7942                    RECO RD_MODIFIE D_COUNT          ,
  7943                    TRAN SACTION_TY PE_CODE
  7944           )
  7945                    valu es
  7946                    (
  7947                    ELIG IBILITY_DE TERMINATIO N_H_s.next val,
  7948                    :old .ELIGIBILI TY_DETERMI NATION_ID,
  7949                    :old .ENROLLMEN T_DETERMIN ATION_ID,
  7950                    :old .ELIGIBILI TY_TYPE_ID ,
  7951                    :old .PRIMARY_S ECONDARY_O R_OTHER,
  7952                    :old .STD_ELIGI BILITYFACT OR_ID,
  7953                    :old .RECORD_CR EATED_BY,
  7954                    :old .RECORD_CR EATED_DATE ,
  7955                    :old .RECORD_MO DIFIED_BY,
  7956                    :old .RECORD_MO DIFIED_DAT E,
  7957                    :old .RECORD_MO DIFIED_COU NT,
  7958                    'D'
  7959                    );
  7960           el se
  7961                    if U PDATING th en
  7962                             mDML : = 'U';
  7963                    else
  7964                             mDML : = 'I';
  7965                    end  if;
  7966  
  7967                    inse rt into EL IGIBILITY_ DETERMINAT ION_H
  7968                    (
  7969                    ELIG IBILITY_DE TERMINATIO N_H_ID,
  7970                    ELIG IBILITY_DE TERMINATIO N_ID  ,
  7971                    ENRO LLMENT_DET ERMINATION _ID   ,
  7972                    ELIG IBILITY_TY PE_ID            ,
  7973                    PRIM ARY_SECOND ARY_OR_OTH ER    ,
  7974                    STD_ ELIGIBILIT YFACTOR_ID ,
  7975                    RECO RD_CREATED _BY              ,
  7976                    RECO RD_CREATED _DATE            ,
  7977                    RECO RD_MODIFIE D_BY             ,
  7978                    RECO RD_MODIFIE D_DATE           ,
  7979                    RECO RD_MODIFIE D_COUNT          ,
  7980                    TRAN SACTION_TY PE_CODE
  7981           )
  7982                    valu es
  7983                    (
  7984                    ELIG IBILITY_DE TERMINATIO N_H_s.next val,
  7985                    :new .ELIGIBILI TY_DETERMI NATION_ID,
  7986                    :new .ENROLLMEN T_DETERMIN ATION_ID,
  7987                    :new .ELIGIBILI TY_TYPE_ID ,
  7988                    :new .PRIMARY_S ECONDARY_O R_OTHER,
  7989                    :new .STD_ELIGI BILITYFACT OR_ID,
  7990                    :new .RECORD_CR EATED_BY,
  7991                    :new .RECORD_CR EATED_DATE ,
  7992                    :new .RECORD_MO DIFIED_BY,
  7993                    :new .RECORD_MO DIFIED_DAT E,
  7994                    :new .RECORD_MO DIFIED_COU NT,
  7995                    mDML
  7996                    );
  7997           en d if;
  7998  
  7999   end  ELIGI BILITY_DET _audir_trg r;
  8000   /
  8001   DROP TRIGG ER ADR.EGT _STATISTIC S_AUDIR_TR GR;
  8002  
  8003   CREATE OR  REPLACE TR IGGER ADR. EGT_STATIS TICS_audir _trgr
  8004   after Upda te or Dele te or Inse rt
  8005   ON ADR.EGT _STATISTIC S
  8006   for each r ow
  8007   declare
  8008           mD ML char(1) ;
  8009   begin
  8010  
  8011           if  DELETING  then
  8012                    inse rt into EG T_STATISTI CS_H
  8013                    (
  8014                    EGT_ STATISTICS _H_ID,
  8015                    EGT_ STATISTICS _ID,
  8016                    EGT_ SETTING_ID ,
  8017                    PROC ESS_START_ DATE,
  8018                    PROC ESS_END_DA TE,
  8019                    BENE FICIARY_PR OCESSED_CO UNT,
  8020                    BENE FICIARY_NO T_ENROLLED _COUNT,
  8021                    PROC ESS_NUMBER ,
  8022                    PROC ESS_MESSAG E_DESCRIPT ION,
  8023                    IN_P ROCESS_CAT GRY_COUNT,
  8024                    ENRO LLED_CATGR Y_COUNT,
  8025                    RECO RD_CREATED _BY,
  8026                    RECO RD_CREATED _DATE,
  8027                    RECO RD_MODIFIE D_BY,
  8028                    RECO RD_MODIFIE D_DATE,
  8029                    RECO RD_MODIFIE D_COUNT,
  8030                    TRAN SACTION_TY PE_CODE
  8031                    )
  8032                    valu es
  8033                    (
  8034                    EGT_ STATISTICS _H_S.nextv al,
  8035                    :old .EGT_STATI STICS_ID,
  8036                    :old .EGT_SETTI NG_ID,
  8037                    :old .PROCESS_S TART_DATE,
  8038                    :old .PROCESS_E ND_DATE,
  8039                    :old .BENEFICIA RY_PROCESS ED_COUNT,
  8040                    :old .BENEFICIA RY_NOT_ENR OLLED_COUN T,
  8041                    :old .PROCESS_N UMBER,
  8042                    :old .PROCESS_M ESSAGE_DES CRIPTION,
  8043                    :old .IN_PROCES S_CATGRY_C OUNT,
  8044                    :old .ENROLLED_ CATGRY_COU NT,
  8045                    :old .RECORD_CR EATED_BY,
  8046                    :old .RECORD_CR EATED_DATE ,
  8047                    :old .RECORD_MO DIFIED_BY,
  8048                    :old .RECORD_MO DIFIED_DAT E,
  8049                    :old .RECORD_MO DIFIED_COU NT,
  8050                    'D'
  8051                    );
  8052           el se
  8053                    if U PDATING th en
  8054                             mDML : = 'U';
  8055                    else
  8056                             mDML : = 'I';
  8057                    end  if;
  8058  
  8059                    inse rt into EG T_STATISTI CS_H
  8060                    (
  8061                    EGT_ STATISTICS _H_ID,
  8062                    EGT_ STATISTICS _ID,
  8063                    EGT_ SETTING_ID ,
  8064                    PROC ESS_START_ DATE,
  8065                    PROC ESS_END_DA TE,
  8066                    BENE FICIARY_PR OCESSED_CO UNT,
  8067                    BENE FICIARY_NO T_ENROLLED _COUNT,
  8068                    PROC ESS_NUMBER ,
  8069                    PROC ESS_MESSAG E_DESCRIPT ION,
  8070                    IN_P ROCESS_CAT GRY_COUNT,
  8071                    ENRO LLED_CATGR Y_COUNT,
  8072                    RECO RD_CREATED _BY,
  8073                    RECO RD_CREATED _DATE,
  8074                    RECO RD_MODIFIE D_BY,
  8075                    RECO RD_MODIFIE D_DATE,
  8076                    RECO RD_MODIFIE D_COUNT,
  8077                    TRAN SACTION_TY PE_CODE
  8078                    )
  8079                    valu es
  8080                    (
  8081                    EGT_ STATISTICS _H_S.nextv al,
  8082                    :new .EGT_STATI STICS_ID,
  8083                    :new .EGT_SETTI NG_ID,
  8084                    :new .PROCESS_S TART_DATE,
  8085                    :new .PROCESS_E ND_DATE,
  8086                    :new .BENEFICIA RY_PROCESS ED_COUNT,
  8087                    :new .BENEFICIA RY_NOT_ENR OLLED_COUN T,
  8088                    :new .PROCESS_N UMBER,
  8089                    :new .PROCESS_M ESSAGE_DES CRIPTION,
  8090                    :new .IN_PROCES S_CATGRY_C OUNT,
  8091                    :new .ENROLLED_ CATGRY_COU NT,
  8092                    :new .RECORD_CR EATED_BY,
  8093                    :new .RECORD_CR EATED_DATE ,
  8094                    :new .RECORD_MO DIFIED_BY,
  8095                    :new .RECORD_MO DIFIED_DAT E,
  8096                    :new .RECORD_MO DIFIED_COU NT,
  8097                    mDML
  8098                    );
  8099           en d if;
  8100  
  8101   end EGT_ST ATISTICS_a udir_trgr;
  8102   /
  8103   DROP TRIGG ER ADR.EGT _SITE_STAT ISTICS_AUD IR_TRGR;
  8104  
  8105   CREATE OR  REPLACE TR IGGER ADR. EGT_SITE_S TATISTICS_ audir_trgr
  8106   after Upda te or Dele te or Inse rt
  8107   ON ADR.EGT _SITE_STAT ISTICS
  8108   for each r ow
  8109   declare
  8110           mD ML char(1) ;
  8111   begin
  8112           if  DELETING  then
  8113                    inse rt into EG T_SITE_STA TISTICS_H
  8114                    (
  8115                    EGT_ SITE_STATI STICS_H_ID ,
  8116                    EGT_ SITE_STATI STICS_ID,
  8117                    EGT_ STATISTICS _ID,
  8118                    STD_ INSTITUTIO N_ID,
  8119                    BENE FICIARY_NO T_ENROLLED _COUNT,
  8120                    IN_P ROCESS_CAT GRY_COUNT,
  8121                    ENRO LLED_CATGR Y_COUNT,
  8122                    BENE FICIARY_PR OCESSED_CO UNT,
  8123                    RECO RD_CREATED _DATE,
  8124                    RECO RD_CREATED _BY,
  8125                    RECO RD_MODIFIE D_BY,
  8126                    RECO RD_MODIFIE D_DATE,
  8127                    RECO RD_MODIFIE D_COUNT,
  8128                    TRAN SACTION_TY PE_CODE
  8129                    )
  8130                    valu es
  8131                    (
  8132                    EGT_ SITE_STATI STICS_H_s. nextval,
  8133                    :old .EGT_SITE_ STATISTICS _ID,
  8134                    :old .EGT_STATI STICS_ID,
  8135                    :old .STD_INSTI TUTION_ID,
  8136                    :old .BENEFICIA RY_NOT_ENR OLLED_COUN T,
  8137                    :old .IN_PROCES S_CATGRY_C OUNT,
  8138                    :old .ENROLLED_ CATGRY_COU NT,
  8139                    :old .BENEFICIA RY_PROCESS ED_COUNT,
  8140                    :old .RECORD_CR EATED_DATE ,
  8141                    :old .RECORD_CR EATED_BY,
  8142                    :old .RECORD_MO DIFIED_BY,
  8143                    :old .RECORD_MO DIFIED_DAT E,
  8144                    :old .RECORD_MO DIFIED_COU NT,
  8145                    'D'
  8146                    );
  8147           el se
  8148                    if U PDATING th en
  8149                             mDML : = 'U';
  8150                    else
  8151                             mDML : = 'I';
  8152                    end  if;
  8153  
  8154                    inse rt into EG T_SITE_STA TISTICS_H
  8155                    (
  8156                    EGT_ SITE_STATI STICS_H_ID ,
  8157                    EGT_ SITE_STATI STICS_ID,
  8158                    EGT_ STATISTICS _ID,
  8159                    STD_ INSTITUTIO N_ID,
  8160                    BENE FICIARY_NO T_ENROLLED _COUNT,
  8161                    IN_P ROCESS_CAT GRY_COUNT,
  8162                    ENRO LLED_CATGR Y_COUNT,
  8163                    BENE FICIARY_PR OCESSED_CO UNT,
  8164                    RECO RD_CREATED _DATE,
  8165                    RECO RD_CREATED _BY,
  8166                    RECO RD_MODIFIE D_BY,
  8167                    RECO RD_MODIFIE D_DATE,
  8168                    RECO RD_MODIFIE D_COUNT,
  8169                    TRAN SACTION_TY PE_CODE
  8170                    )
  8171                    valu es
  8172                    (
  8173                    EGT_ SITE_STATI STICS_H_s. nextval,
  8174                    :new .EGT_SITE_ STATISTICS _ID,
  8175                    :new .EGT_STATI STICS_ID,
  8176                    :new .STD_INSTI TUTION_ID,
  8177                    :new .BENEFICIA RY_NOT_ENR OLLED_COUN T,
  8178                    :new .IN_PROCES S_CATGRY_C OUNT,
  8179                    :new .ENROLLED_ CATGRY_COU NT,
  8180                    :new .BENEFICIA RY_PROCESS ED_COUNT,
  8181                    :new .RECORD_CR EATED_DATE ,
  8182                    :new .RECORD_CR EATED_BY,
  8183                    :new .RECORD_MO DIFIED_BY,
  8184                    :new .RECORD_MO DIFIED_DAT E,
  8185                    :new .RECORD_MO DIFIED_COU NT,
  8186                    mDML
  8187                    );
  8188  
  8189           en d if;
  8190  
  8191   end  EGT_S ITE_STATIS TICS_audir _trgr;
  8192   /
  8193   DROP TRIGG ER ADR.EGT _SETTING_A UDIR_TRGR;
  8194  
  8195   CREATE OR  REPLACE TR IGGER ADR. EGT_SETTIN G_audir_tr gr
  8196   after Upda te or Dele te or Inse rt
  8197   ON ADR.EGT _SETTING
  8198   for each r ow
  8199   declare
  8200           mD ML char(1) ;
  8201   begin
  8202  
  8203           if  DELETING  then
  8204                    inse rt into EG T_SETTING_ H
  8205                    (
  8206                    EGT_ SETTING_H_ ID,
  8207                    EGT_ SETTING_ID   ,
  8208                    EGT_ TYPE_ID      ,
  8209                    PRIO RITY_GROUP _TYPE_ID,
  8210                    PRIO RITY_SUB_G ROUP_TYPE_ ID,
  8211                    EGT_ EFFECTIVE_ DATE         ,
  8212                    FEDE RAL_REGIST RY_DATE      ,
  8213                    REMA RKS                     ,
  8214                    DISA BLED_EGT_F LAG          ,
  8215                    CURR ENT_EGT_FL AG,
  8216                    REFE RENCE_EGT_ SETTING_ID ,
  8217                    RECO RD_CREATED _BY          ,
  8218                    RECO RD_CREATED _DATE        ,
  8219                    RECO RD_MODIFIE D_BY         ,
  8220                    RECO RD_MODIFIE D_DATE       ,
  8221                    RECO RD_MODIFIE D_COUNT      ,
  8222                    TRAN SACTION_TY PE_CODE
  8223                    )
  8224                    valu es
  8225                    (
  8226                    EGT_ SETTING_H_ s.nextval,
  8227                    :old .EGT_SETTI NG_ID,
  8228                    :old .EGT_TYPE_ ID,
  8229                    :old .PRIORITY_ GROUP_TYPE _ID,
  8230                    :old .PRIORITY_ SUB_GROUP_ TYPE_ID,
  8231                    :old .EGT_EFFEC TIVE_DATE,
  8232                    :old .FEDERAL_R EGISTRY_DA TE,
  8233                    :old .REMARKS,
  8234                    :old .DISABLED_ EGT_FLAG,
  8235                    :old .CURRENT_E GT_FLAG,
  8236                    :old .REFERENCE _EGT_SETTI NG_ID,
  8237                    :old .RECORD_CR EATED_BY,
  8238                    :old .RECORD_CR EATED_DATE ,
  8239                    :old .RECORD_MO DIFIED_BY,
  8240                    :old .RECORD_MO DIFIED_DAT E,
  8241                    :old .RECORD_MO DIFIED_COU NT,
  8242                    'D'
  8243                    );
  8244           el se
  8245                    if U PDATING th en
  8246                             mDML : = 'U';
  8247                    else
  8248                             mDML : = 'I';
  8249                    end  if;
  8250  
  8251                    inse rt into EG T_SETTING_ H
  8252                    (
  8253                    EGT_ SETTING_H_ ID,
  8254                    EGT_ SETTING_ID   ,
  8255                    EGT_ TYPE_ID      ,
  8256                    PRIO RITY_GROUP _TYPE_ID,
  8257                    PRIO RITY_SUB_G ROUP_TYPE_ ID,
  8258                    EGT_ EFFECTIVE_ DATE         ,
  8259                    FEDE RAL_REGIST RY_DATE      ,
  8260                    REMA RKS                     ,
  8261                    DISA BLED_EGT_F LAG          ,
  8262                    CURR ENT_EGT_FL AG,
  8263                    REFE RENCE_EGT_ SETTING_ID ,
  8264                    RECO RD_CREATED _BY          ,
  8265                    RECO RD_CREATED _DATE        ,
  8266                    RECO RD_MODIFIE D_BY         ,
  8267                    RECO RD_MODIFIE D_DATE       ,
  8268                    RECO RD_MODIFIE D_COUNT      ,
  8269                    TRAN SACTION_TY PE_CODE
  8270           )
  8271                    valu es
  8272                    (
  8273                    EGT_ SETTING_H_ s.nextval,
  8274                    :new .EGT_SETTI NG_ID,
  8275                    :new .EGT_TYPE_ ID,
  8276                    :new .PRIORITY_ GROUP_TYPE _ID,
  8277                    :new .PRIORITY_ SUB_GROUP_ TYPE_ID,
  8278                    :new .EGT_EFFEC TIVE_DATE,
  8279                    :new .FEDERAL_R EGISTRY_DA TE,
  8280                    :new .REMARKS,
  8281                    :new .DISABLED_ EGT_FLAG,
  8282                    :new .CURRENT_E GT_FLAG,
  8283                    :new .REFERENCE _EGT_SETTI NG_ID,
  8284                    :new .RECORD_CR EATED_BY,
  8285                    :new .RECORD_CR EATED_DATE ,
  8286                    :new .RECORD_MO DIFIED_BY,
  8287                    :new .RECORD_MO DIFIED_DAT E,
  8288                    :new .RECORD_MO DIFIED_COU NT,
  8289                    mDML
  8290                    );
  8291           en d if;
  8292  
  8293   end  EGT_S ETTING_aud ir_trgr;
  8294   /
  8295   DROP TRIGG ER ADR.DLV PRF_AUDIR_ TRGR;
  8296  
  8297   CREATE OR  REPLACE TR IGGER ADR. DLVPRF_AUD IR_TRGR
  8298     AFTER DE LETE OR IN SERT OR UP DATE
  8299     ON ADR.D ELIVERY_PR EFERENCE
  8300    REFERENCI NG  OLD AS  OLD NEW A S NEW
  8301    FOR EACH  ROW
  8302   declare
  8303          mDM L char(1);
  8304   begin
  8305       if DEL ETING then
  8306           in sert into  DELIVERY_P REFERENCE_ H
  8307           (
  8308           DE LIVERY_PRE FERENCE_H_ ID,
  8309           DE LIVERY_PRE FERENCE_ID ,
  8310           PE RSON_ID,
  8311           ST D_DELIVERY PREFERENCE TYPE_ID,
  8312   STD_DELIVE RYPREFSRCT YPE_ID,
  8313           RE CORD_CREAT ED_BY,
  8314           RE CORD_CREAT ED_DATE,
  8315           RE CORD_MODIF IED_BY,
  8316           RE CORD_MODIF IED_DATE,
  8317           RE CORD_MODIF IED_COUNT,
  8318           HI STORY_CREA TED_DATE,
  8319           TR ANSACTION_ TYPE_CODE
  8320           )
  8321           va lues
  8322           (
  8323           DE LIVERY_PRE FERENCE_H_ S.nextval,
  8324           :o ld.DELIVER Y_PREFEREN CE_ID,
  8325           :o ld.PERSON_ ID,
  8326           :o ld.STD_DEL IVERYPREFE RENCETYPE_ ID,
  8327   :old.STD_D ELIVERYPRE FSRCTYPE_I D,
  8328           :o ld.RECORD_ CREATED_BY ,
  8329           :o ld.RECORD_ CREATED_DA TE,
  8330           :o ld.RECORD_ MODIFIED_B Y,
  8331           :o ld.RECORD_ MODIFIED_D ATE,
  8332           :o ld.RECORD_ MODIFIED_C OUNT,
  8333           SY SDATE,
  8334           'D '
  8335           );
  8336       else
  8337           if  UPDATING  then
  8338                mDML :=  'U';
  8339           el se
  8340                mDML :=  'I';
  8341           en d if;
  8342  
  8343           in sert into  DELIVERY_P REFERENCE_ H
  8344           (
  8345           DE LIVERY_PRE FERENCE_H_ ID,
  8346           DE LIVERY_PRE FERENCE_ID ,
  8347           PE RSON_ID,
  8348           ST D_DELIVERY PREFERENCE TYPE_ID,
  8349   STD_DELIVE RYPREFSRCT YPE_ID,
  8350           RE CORD_CREAT ED_BY,
  8351           RE CORD_CREAT ED_DATE,
  8352           RE CORD_MODIF IED_BY,
  8353           RE CORD_MODIF IED_DATE,
  8354           RE CORD_MODIF IED_COUNT,
  8355           HI STORY_CREA TED_DATE,
  8356           TR ANSACTION_ TYPE_CODE
  8357           )
  8358           va lues
  8359           (
  8360           DE LIVERY_PRE FERENCE_H_ S.nextval,
  8361           :n ew.DELIVER Y_PREFEREN CE_ID,
  8362           :n ew.PERSON_ ID,
  8363           :n ew.STD_DEL IVERYPREFE RENCETYPE_ ID,
  8364   :new.STD_D ELIVERYPRE FSRCTYPE_I D,
  8365           :n ew.RECORD_ CREATED_BY ,
  8366           :n ew.RECORD_ CREATED_DA TE,
  8367           :n ew.RECORD_ MODIFIED_B Y,
  8368           :n ew.RECORD_ MODIFIED_D ATE,
  8369           :n ew.RECORD_ MODIFIED_C OUNT,
  8370           SY SDATE,
  8371           mD ML
  8372           );
  8373       end if ;
  8374  
  8375   end DELIVE RY_PREFERE NCE_audir_ trgr;
  8376   /
  8377   DROP TRIGG ER ADR.DLV PRFEM_AUDI R_TRGR;
  8378  
  8379   CREATE OR  REPLACE TR IGGER ADR. DLVPRFEM_A UDIR_TRGR
  8380     AFTER DE LETE OR IN SERT OR UP DATE
  8381     ON ADR.D ELIVERY_PR EFERENCE_E MAIL
  8382    REFERENCI NG  OLD AS  OLD NEW A S NEW
  8383    FOR EACH  ROW
  8384   declare
  8385          mDM L char(1);
  8386   begin
  8387       if DEL ETING then
  8388           in sert into  DELIVERY_P REFERENCE_ EMAIL_H
  8389           (
  8390           DE LIVERY_PRE FERENCE_EM AIL_H_ID,
  8391           DE LIVERY_PRE FERENCE_EM AIL_ID,
  8392   DELIVERY_P REFERENCE_ ID,
  8393   STD_EMAILA DDRESSTYPE _ID,
  8394   EMAIL_ADDR ESS,
  8395           RE CORD_CREAT ED_BY,
  8396           RE CORD_CREAT ED_DATE,
  8397           RE CORD_MODIF IED_BY,
  8398           RE CORD_MODIF IED_DATE,
  8399           RE CORD_MODIF IED_COUNT,
  8400           HI STORY_CREA TED_DATE,
  8401           TR ANSACTION_ TYPE_CODE
  8402           )
  8403           va lues
  8404           (
  8405           DE LIVERY_PRE FERENCE_EM AIL_H_S.ne xtval,
  8406           :o ld.DELIVER Y_PREFEREN CE_EMAIL_I D,
  8407           :o ld.DELIVER Y_PREFEREN CE_ID,
  8408           :o ld.STD_EMA ILADDRESST YPE_ID,
  8409           :o ld.EMAIL_A DDRESS,
  8410           :o ld.RECORD_ CREATED_BY ,
  8411           :o ld.RECORD_ CREATED_DA TE,
  8412           :o ld.RECORD_ MODIFIED_B Y,
  8413           :o ld.RECORD_ MODIFIED_D ATE,
  8414           :o ld.RECORD_ MODIFIED_C OUNT,
  8415           SY SDATE,
  8416           'D '
  8417           );
  8418       else
  8419           if  UPDATING  then
  8420                mDML :=  'U';
  8421           el se
  8422                mDML :=  'I';
  8423           en d if;
  8424  
  8425           in sert into  DELIVERY_P REFERENCE_ EMAIL_H
  8426           (
  8427           DE LIVERY_PRE FERENCE_EM AIL_H_ID,
  8428           DE LIVERY_PRE FERENCE_EM AIL_ID,
  8429           DE LIVERY_PRE FERENCE_ID ,
  8430           ST D_EMAILADD RESSTYPE_I D,
  8431   EMAIL_ADDR ESS,
  8432           RE CORD_CREAT ED_BY,
  8433           RE CORD_CREAT ED_DATE,
  8434           RE CORD_MODIF IED_BY,
  8435           RE CORD_MODIF IED_DATE,
  8436           RE CORD_MODIF IED_COUNT,
  8437           HI STORY_CREA TED_DATE,
  8438           TR ANSACTION_ TYPE_CODE
  8439           )
  8440           va lues
  8441           (
  8442           DE LIVERY_PRE FERENCE_EM AIL_H_S.ne xtval,
  8443           :n ew.DELIVER Y_PREFEREN CE_EMAIL_I D,
  8444           :n ew.DELIVER Y_PREFEREN CE_ID,
  8445           :n ew.STD_EMA ILADDRESST YPE_ID,
  8446           :n ew.EMAIL_A DDRESS,
  8447           :n ew.RECORD_ CREATED_BY ,
  8448           :n ew.RECORD_ CREATED_DA TE,
  8449           :n ew.RECORD_ MODIFIED_B Y,
  8450           :n ew.RECORD_ MODIFIED_D ATE,
  8451           :n ew.RECORD_ MODIFIED_C OUNT,
  8452           SY SDATE,
  8453           mD ML
  8454           );
  8455       end if ;
  8456  
  8457   end DLVPRF EM_AUDIR_T RGR;
  8458   /
  8459   DROP TRIGG ER ADR.DEP LOYMENT_AU DIR_TRGR;
  8460  
  8461   CREATE OR  REPLACE TR IGGER ADR. DEPLOYMENT _AUDIR_TRG R
  8462     AFTER DE LETE OR IN SERT OR UP DATE
  8463     ON ADR.D EPLOYMENT
  8464    REFERENCI NG  OLD AS  OLD NEW A S NEW
  8465    FOR EACH  ROW
  8466   declare
  8467          mDM L char(1);
  8468   begin
  8469  
  8470       if DEL ETING then
  8471           in sert into  DEPLOYMENT _H
  8472           (
  8473           DE PLOYMENT_H _ID,
  8474           DE PLOYMENT_I D,
  8475           AC TIVATION_I D,
  8476           ST D_TERMINAT IONREASON_ ID,
  8477           ST D_MHDATASO URCE_ID,
  8478           ST D_COUNTRY_ ID,
  8479           ST D_SPECIALO PERATION_I D,
  8480           DE PLOYMENT_B EGIN_DATE,
  8481           DE PLOYMENT_E ND_DATE,
  8482           RE CORD_CREAT ED_BY,
  8483           RE CORD_CREAT ED_DATE,
  8484           RE CORD_MODIF IED_BY,
  8485           RE CORD_MODIF IED_DATE,
  8486           RE CORD_MODIF IED_COUNT,
  8487           HI STORY_CREA TED_DATE,
  8488           TR ANSACTION_ TYPE_CODE
  8489           )
  8490           va lues
  8491           (
  8492           DE PLOYMENT_H _S.nextval ,
  8493           :o ld.DEPLOYM ENT_ID,
  8494           :o ld.ACTIVAT ION_ID,
  8495           :o ld.STD_TER MINATIONRE ASON_ID,
  8496           :o ld.STD_MHD ATASOURCE_ ID,
  8497           :o ld.STD_COU NTRY_ID,
  8498           :o ld.STD_SPE CIALOPERAT ION_ID,
  8499           :o ld.DEPLOYM ENT_BEGIN_ DATE,
  8500           :o ld.DEPLOYM ENT_END_DA TE,
  8501           :o ld.RECORD_ CREATED_BY ,
  8502           :o ld.RECORD_ CREATED_DA TE,
  8503           :o ld.RECORD_ MODIFIED_B Y,
  8504           :o ld.RECORD_ MODIFIED_D ATE,
  8505           :o ld.RECORD_ MODIFIED_C OUNT,
  8506           SY SDATE,
  8507           'D '
  8508           );
  8509       else
  8510           if  UPDATING  then
  8511                mDML :=  'U';
  8512           el se
  8513                mDML :=  'I';
  8514           en d if;
  8515  
  8516           in sert into  DEPLOYMENT _H
  8517           (
  8518           DE PLOYMENT_H _ID,
  8519           DE PLOYMENT_I D,
  8520           AC TIVATION_I D,
  8521           ST D_TERMINAT IONREASON_ ID,
  8522           ST D_MHDATASO URCE_ID,
  8523           ST D_COUNTRY_ ID,
  8524           ST D_SPECIALO PERATION_I D,
  8525           DE PLOYMENT_B EGIN_DATE,
  8526           DE PLOYMENT_E ND_DATE,
  8527           RE CORD_CREAT ED_BY,
  8528           RE CORD_CREAT ED_DATE,
  8529           RE CORD_MODIF IED_BY,
  8530           RE CORD_MODIF IED_DATE,
  8531           RE CORD_MODIF IED_COUNT,
  8532           HI STORY_CREA TED_DATE,
  8533           TR ANSACTION_ TYPE_CODE
  8534           )
  8535           va lues
  8536           (
  8537           DE PLOYMENT_H _S.nextval ,
  8538           :n ew.DEPLOYM ENT_ID,
  8539           :n ew.ACTIVAT ION_ID,
  8540           :n ew.STD_TER MINATIONRE ASON_ID,
  8541           :n ew.STD_MHD ATASOURCE_ ID,
  8542           :n ew.STD_COU NTRY_ID,
  8543           :n ew.STD_SPE CIALOPERAT ION_ID,
  8544           :n ew.DEPLOYM ENT_BEGIN_ DATE,
  8545           :n ew.DEPLOYM ENT_END_DA TE,
  8546           :n ew.RECORD_ CREATED_BY ,
  8547           :n ew.RECORD_ CREATED_DA TE,
  8548           :n ew.RECORD_ MODIFIED_B Y,
  8549           :n ew.RECORD_ MODIFIED_D ATE,
  8550           :n ew.RECORD_ MODIFIED_C OUNT,
  8551           SY SDATE,
  8552           mD ML
  8553           );
  8554       end if ;
  8555  
  8556   end DEPLOY MENT_audir _trgr;
  8557   /
  8558   DROP TRIGG ER ADR.COR RESPONDENC E_AUDIR_TR GR;
  8559  
  8560   CREATE OR  REPLACE TR IGGER ADR. CORRESPOND ENCE_AUDIR _TRGR
  8561     AFTER DE LETE OR IN SERT OR UP DATE
  8562       ON ADR .CORRESPON DENCE
  8563     REFERENC ING  OLD A S OLD NEW  AS NEW
  8564     FOR EACH  ROW
  8565   DECLARE
  8566  
  8567       mDML c har(1);
  8568  
  8569     BEGIN
  8570  
  8571       IF DEL ETING THEN
  8572  
  8573         INSE RT INTO CO RRESPONDEN CE_H
  8574           (C ORRESPONDE NCE_H_ID,
  8575            C ORRESPONDE NCE_ID,
  8576            C ORRESPONDE NCE_TYPE_I D,
  8577            C ORRESPONDE NCE_STATUS _ID,
  8578            P ERSON_ID ,
  8579            C ORRESPONDE NCE_STATUS _DATE,
  8580            C ORRESPONDE NCE_EFFECT IVE_DATE,
  8581            C ORRESPONDE NCE_DOCUME NT_ID ,
  8582            C OM_LETTER_ TEMPLATE_I D,
  8583            E MAIL_TEMPL ATE_ID ,
  8584            E MAIL_H_ID   ,
  8585            A DDRESS_H_I D,
  8586            E RROR_DESCR IPTION ,
  8587            R ECORD_CREA TED_BY ,
  8588            R ECORD_CREA TED_DATE,
  8589            R ECORD_MODI FIED_BY ,
  8590            R ECORD_MODI FIED_COUNT ,
  8591            R ECORD_MODI FIED_DATE,
  8592            H ISTORY_CRE ATED_DATE,
  8593            T RANSACTION _TYPE_CODE
  8594           )
  8595           VA LUES
  8596           (C ORRESPONDE NCE_H_S.NE XTVAL,
  8597            : OLD.CORRES PONDENCE_I D,
  8598            : OLD.CORRES PONDENCE_T YPE_ID,
  8599            : OLD.CORRES PONDENCE_S TATUS_ID,
  8600            : OLD.PERSON _ID ,
  8601            : OLD.CORRES PONDENCE_S TATUS_DATE ,
  8602            : OLD.CORRES PONDENCE_E FFECTIVE_D ATE,
  8603            : OLD.CORRES PONDENCE_D OCUMENT_ID  ,
  8604            : OLD.COM_LE TTER_TEMPL ATE_ID,
  8605            : OLD.EMAIL_ TEMPLATE_I D ,
  8606            : OLD.EMAIL_ H_ID  ,
  8607            : OLD.ADDRES S_H_ID,
  8608            : OLD.ERROR_ DESCRIPTIO N ,
  8609            : OLD.Record _created_b y,
  8610            : OLD.Record _created_d ate,
  8611            : OLD.Record _modified_ by,
  8612            : OLD.Record _modified_ count,
  8613            : OLD.Record _modified_ date,
  8614            S YSDATE,
  8615            ' D'
  8616           );
  8617  
  8618       ELSE
  8619  
  8620         IF U PDATING TH EN
  8621  
  8622           mD ML := 'U';
  8623  
  8624         ELSE
  8625  
  8626           mD ML := 'I';
  8627  
  8628         END  IF;
  8629  
  8630         INSE RT INTO CO RRESPONDEN CE_H
  8631           (C ORRESPONDE NCE_H_ID,
  8632            C ORRESPONDE NCE_ID,
  8633            C ORRESPONDE NCE_TYPE_I D,
  8634            C ORRESPONDE NCE_STATUS _ID,
  8635            P ERSON_ID ,
  8636            C ORRESPONDE NCE_STATUS _DATE,
  8637            C ORRESPONDE NCE_EFFECT IVE_DATE,
  8638            C ORRESPONDE NCE_DOCUME NT_ID ,
  8639            C OM_LETTER_ TEMPLATE_I D,
  8640            E MAIL_TEMPL ATE_ID ,
  8641            E MAIL_H_ID   ,
  8642            A DDRESS_H_I D,
  8643            E RROR_DESCR IPTION ,
  8644            R ECORD_CREA TED_BY ,
  8645            R ECORD_CREA TED_DATE,
  8646            R ECORD_MODI FIED_BY ,
  8647            R ECORD_MODI FIED_COUNT ,
  8648            R ECORD_MODI FIED_DATE,
  8649            H ISTORY_CRE ATED_DATE,
  8650            T RANSACTION _TYPE_CODE
  8651           )
  8652           VA LUES
  8653           (C ORRESPONDE NCE_H_S.NE XTVAL,
  8654            : NEW.CORRES PONDENCE_I D,
  8655            : NEW.CORRES PONDENCE_T YPE_ID,
  8656            : NEW.CORRES PONDENCE_S TATUS_ID,
  8657            : NEW.PERSON _ID ,
  8658            : NEW.CORRES PONDENCE_S TATUS_DATE ,
  8659            : NEW.CORRES PONDENCE_E FFECTIVE_D ATE,
  8660            : NEW.CORRES PONDENCE_D OCUMENT_ID  ,
  8661            : NEW.COM_LE TTER_TEMPL ATE_ID,
  8662            : NEW.EMAIL_ TEMPLATE_I D ,
  8663            : NEW.EMAIL_ H_ID  ,
  8664            : NEW.ADDRES S_H_ID,
  8665            : NEW.ERROR_ DESCRIPTIO N ,
  8666            : NEW.Record _created_b y,
  8667            : NEW.Record _created_d ate,
  8668            : NEW.Record _modified_ by,
  8669            : NEW.Record _modified_ count,
  8670            : NEW.Record _modified_ date,
  8671            S YSDATE,
  8672            m DML
  8673           );
  8674  
  8675       END IF ;
  8676  
  8677     END CORR ESPONDENCE _AUDIR_TRG R;
  8678   /
  8679   DROP TRIGG ER ADR.CON F_ADDR_CAT GRY_AUDIR_ TRGR;
  8680  
  8681   CREATE OR  REPLACE TR IGGER ADR. CONF_ADDR_ CATGRY_aud ir_trgr
  8682   after Upda te or Dele te or Inse rt
  8683   ON ADR.CON FIDENTIAL_ ADDR_CATGR Y
  8684   for each r ow
  8685   declare
  8686           mD ML char(1) ;
  8687   begin
  8688  
  8689           if  DELETING  then
  8690                    inse rt into CO NFIDENTIAL _ADDR_CATG RY_H
  8691                    (
  8692                    CONF IDENTIAL_A DDR_CATGRY _H_ID,
  8693                    CONF IDENTIAL_A DDR_CATGRY _ID  ,
  8694                    PERS ON_ID                     ,
  8695                    CONF IDENTIAL_A DDR_TYPE_I D    ,
  8696                    INAC TIVE_FLAG                  ,
  8697                    INAC TIVE_DATE                  ,
  8698                    RECO RD_CREATED _BY             ,
  8699                    RECO RD_CREATED _DATE           ,
  8700                    RECO RD_MODIFIE D_BY            ,
  8701                    RECO RD_MODIFIE D_DATE          ,
  8702                    RECO RD_MODIFIE D_COUNT         ,
  8703                    RECO RD_MODIFIE D_SITE_ID,
  8704                    RECO RD_MODIFIE D_SRC_NAME ,
  8705                    TRAN SACTION_TY PE_CODE
  8706                    )
  8707                    valu es
  8708                    (
  8709                    CONF IDENTIAL_A DDR_CATGRY _H_S.nextv al,
  8710                    :old .CONFIDENT IAL_ADDR_C ATGRY_ID   ,
  8711                    :old .PERSON_ID                     ,
  8712                    :old .CONFIDENT IAL_ADDR_T YPE_ID     ,
  8713                    :old .INACTIVE_ FLAG                  ,
  8714                    :old .INACTIVE_ DATE                  ,
  8715                    :old .RECORD_CR EATED_BY              ,
  8716                    :old .RECORD_CR EATED_DATE            ,
  8717                    :old .RECORD_MO DIFIED_BY             ,
  8718                    :old .RECORD_MO DIFIED_DAT E          ,
  8719                    :old .RECORD_MO DIFIED_COU NT         ,
  8720                    :old .RECORD_MO DIFIED_SIT E_ID,
  8721                    :old .RECORD_MO DIFIED_SRC _NAME,
  8722                    'D'
  8723                    );
  8724           el se
  8725  
  8726                    if U PDATING th en
  8727                             mDML : = 'U';
  8728                    else
  8729                             mDML : = 'I';
  8730                    end  if;
  8731  
  8732                    inse rt into CO NFIDENTIAL _ADDR_CATG RY_H
  8733                    (
  8734                    CONF IDENTIAL_A DDR_CATGRY _H_ID,
  8735                    CONF IDENTIAL_A DDR_CATGRY _ID  ,
  8736                    PERS ON_ID                     ,
  8737                    CONF IDENTIAL_A DDR_TYPE_I D    ,
  8738                    INAC TIVE_FLAG                  ,
  8739                    INAC TIVE_DATE                  ,
  8740                    RECO RD_CREATED _BY             ,
  8741                    RECO RD_CREATED _DATE           ,
  8742                    RECO RD_MODIFIE D_BY            ,
  8743                    RECO RD_MODIFIE D_DATE          ,
  8744                    RECO RD_MODIFIE D_COUNT         ,
  8745                    RECO RD_MODIFIE D_SITE_ID,
  8746                    RECO RD_MODIFIE D_SRC_NAME ,
  8747                    TRAN SACTION_TY PE_CODE
  8748                    )
  8749                    valu es
  8750                    (
  8751                    CONF IDENTIAL_A DDR_CATGRY _H_S.nextv al,
  8752                    :new .CONFIDENT IAL_ADDR_C ATGRY_ID   ,
  8753                    :new .PERSON_ID                     ,
  8754                    :new .CONFIDENT IAL_ADDR_T YPE_ID     ,
  8755                    :new .INACTIVE_ FLAG                  ,
  8756                    :new .INACTIVE_ DATE                  ,
  8757                    :new .RECORD_CR EATED_BY              ,
  8758                    :new .RECORD_CR EATED_DATE            ,
  8759                    :new .RECORD_MO DIFIED_BY             ,
  8760                    :new .RECORD_MO DIFIED_DAT E          ,
  8761                    :new .RECORD_MO DIFIED_COU NT         ,
  8762                    :new .RECORD_MO DIFIED_SIT E_ID,
  8763                    :new .RECORD_MO DIFIED_SRC _NAME,
  8764                    mDML
  8765                    );
  8766           en d if;
  8767   end CONF_A DDR_CATGRY _audir_trg r;
  8768   /
  8769   DROP TRIGG ER ADR.CON FLICT_DETA IL_AUDIR_T RGR;
  8770  
  8771   CREATE OR  REPLACE TR IGGER ADR. CONFLICT_D ETAIL_audi r_trgr
  8772   after Upda te or Dele te or Inse rt
  8773   ON ADR.CON FLICT_DETA IL
  8774   for each r ow
  8775   declare
  8776           mD ML char(1) ;
  8777   begin
  8778  
  8779           if  DELETING  then
  8780                    inse rt into CO NFLICT_DET AIL_H
  8781                    (
  8782                    CONF LICT_DETAI L_H_ID ,
  8783                    CONF LICT_DETAI L_ID   ,
  8784                    MILI TARY_SERVI CE_ID  ,
  8785                    STD_ COMBATLOCA TION_ID,
  8786                    CONF LICT_FROM_ DATE_TXT   ,
  8787                    CONF LICT_TO_DA TE_TXT     ,
  8788                    RECO RD_CREATED _BY         ,
  8789                    RECO RD_CREATED _DATE       ,
  8790                    RECO RD_MODIFIE D_BY        ,
  8791                    RECO RD_MODIFIE D_DATE      ,
  8792                    RECO RD_MODIFIE D_COUNT     ,
  8793                    TRAN SACTION_TY PE_CODE
  8794           )
  8795                    valu es
  8796                    (
  8797                    CONF LICT_DETAI L_H_S.next val,
  8798                    :old .CONFLICT_ DETAIL_ID,
  8799                    :old .MILITARY_ SERVICE_ID ,
  8800                    :old .STD_COMBA TLOCATION_ ID,
  8801                    :old .CONFLICT_ FROM_DATE_ TXT,
  8802                    :old .CONFLICT_ TO_DATE_TX T,
  8803                    :old .RECORD_CR EATED_BY,
  8804                    :old .RECORD_CR EATED_DATE ,
  8805                    :old .RECORD_MO DIFIED_BY,
  8806                    :old .RECORD_MO DIFIED_DAT E,
  8807                    :old .RECORD_MO DIFIED_COU NT,
  8808                    'D'
  8809                    );
  8810           el se
  8811                    if U PDATING th en
  8812                             mDML : = 'U';
  8813                    else
  8814                             mDML : = 'I';
  8815                    end  if;
  8816  
  8817                    inse rt into CO NFLICT_DET AIL_H
  8818                    (
  8819                    CONF LICT_DETAI L_H_ID ,
  8820                    CONF LICT_DETAI L_ID   ,
  8821                    MILI TARY_SERVI CE_ID  ,
  8822                    STD_ COMBATLOCA TION_ID,
  8823                    CONF LICT_FROM_ DATE_TXT   ,
  8824                    CONF LICT_TO_DA TE_TXT     ,
  8825                    RECO RD_CREATED _BY         ,
  8826                    RECO RD_CREATED _DATE       ,
  8827                    RECO RD_MODIFIE D_BY        ,
  8828                    RECO RD_MODIFIE D_DATE      ,
  8829                    RECO RD_MODIFIE D_COUNT     ,
  8830                    TRAN SACTION_TY PE_CODE
  8831           )
  8832                    valu es
  8833                    (
  8834                    CONF LICT_DETAI L_H_S.next val,
  8835                    :new .CONFLICT_ DETAIL_ID,
  8836                    :new .MILITARY_ SERVICE_ID ,
  8837                    :new .STD_COMBA TLOCATION_ ID,
  8838                    :new .CONFLICT_ FROM_DATE_ TXT,
  8839                    :new .CONFLICT_ TO_DATE_TX T,
  8840                    :new .RECORD_CR EATED_BY,
  8841                    :new .RECORD_CR EATED_DATE ,
  8842                    :new .RECORD_MO DIFIED_BY,
  8843                    :new .RECORD_MO DIFIED_DAT E,
  8844                    :new .RECORD_MO DIFIED_COU NT,
  8845                    mDML
  8846                    );
  8847           en d if;
  8848  
  8849   end  CONFL ICT_DETAIL _audir_trg r;
  8850   /
  8851   DROP TRIGG ER ADR.COM BAT_PAY_AU DIR_TRGR;
  8852  
  8853   CREATE OR  REPLACE TR IGGER ADR. COMBAT_PAY _AUDIR_TRG R
  8854     AFTER DE LETE OR IN SERT OR UP DATE
  8855     ON ADR.C OMBAT_PAY
  8856    REFERENCI NG  OLD AS  OLD NEW A S NEW
  8857    FOR EACH  ROW
  8858   declare
  8859           mD ML char(1) ;
  8860   begin
  8861  
  8862           if  DELETING  then
  8863                    inse rt into CO MBAT_PAY_H
  8864                    (
  8865                     COM BAT_PAY_H_ ID
  8866                    ,COM BAT_PAY_ID
  8867                    ,PER SON_ID
  8868                    ,COM BATSERVICE SOURCE_ID
  8869                    ,COM BATSERVICE LOCATION_I D
  8870           ,S TD_COMBATP AYTYPE_ID
  8871                    ,COM BAT_PAY_ST ART_DATE_T XT
  8872                    ,COM BAT_PAY_EN D_DATE_TXT
  8873                    ,REC ORD_CREATE D_BY
  8874                    ,REC ORD_CREATE D_DATE
  8875                    ,REC ORD_MODIFI ED_BY
  8876                    ,REC ORD_MODIFI ED_DATE
  8877                    ,REC ORD_MODIFI ED_COUNT
  8878                    ,TRA NSACTION_T YPE_CODE
  8879                    )
  8880                    valu es
  8881                    (
  8882                    COMB AT_PAY_H_S .nextval,
  8883                    :old .COMBAT_PA Y_ID,
  8884                    :old .PERSON_ID  ,
  8885                    :old .COMBATSER VICESOURCE _ID,
  8886                    :old .COMBATSER VICELOCATI ON_ID,
  8887           :o ld.STD_COM BATPAYTYPE _ID,
  8888                    :old .COMBAT_PA Y_START_DA TE_TXT,
  8889                    :old .COMBAT_PA Y_END_DATE _TXT,
  8890                    :old .RECORD_CR EATED_BY,
  8891                    :old .RECORD_CR EATED_DATE ,
  8892                    :old .RECORD_MO DIFIED_BY,
  8893                    :old .RECORD_MO DIFIED_DAT E,
  8894                    :old .RECORD_MO DIFIED_COU NT,
  8895                    'D'
  8896                    );
  8897           el se
  8898                    if U PDATING th en
  8899                             mDML : = 'U';
  8900                    else
  8901                             mDML : = 'I';
  8902                    end  if;
  8903                    inse rt into CO MBAT_PAY_H
  8904                    (
  8905                     COM BAT_PAY_H_ ID
  8906                    ,COM BAT_PAY_ID
  8907                    ,PER SON_ID
  8908                    ,COM BATSERVICE SOURCE_ID
  8909                    ,COM BATSERVICE LOCATION_I D
  8910           ,S TD_COMBATP AYTYPE_ID
  8911                    ,COM BAT_PAY_ST ART_DATE_T XT
  8912                    ,COM BAT_PAY_EN D_DATE_TXT
  8913                    ,REC ORD_CREATE D_BY
  8914                    ,REC ORD_CREATE D_DATE
  8915                    ,REC ORD_MODIFI ED_BY
  8916                    ,REC ORD_MODIFI ED_DATE
  8917                    ,REC ORD_MODIFI ED_COUNT
  8918                    ,TRA NSACTION_T YPE_CODE
  8919                    )
  8920                    valu es
  8921                    (
  8922                    COMB AT_PAY_H_S .nextval,
  8923                    :new .COMBAT_PA Y_ID,
  8924                    :new .PERSON_ID  ,
  8925                    :new .COMBATSER VICESOURCE _ID,
  8926                    :new .COMBATSER VICELOCATI ON_ID,
  8927           :n ew.STD_COM BATPAYTYPE _ID,
  8928                    :new .COMBAT_PA Y_START_DA TE_TXT,
  8929                    :new .COMBAT_PA Y_END_DATE _TXT,
  8930                    :new .RECORD_CR EATED_BY,
  8931                    :new .RECORD_CR EATED_DATE ,
  8932                    :new .RECORD_MO DIFIED_BY,
  8933                    :new .RECORD_MO DIFIED_DAT E,
  8934                    :new .RECORD_MO DIFIED_COU NT,
  8935                    mDML
  8936                    );
  8937           en d if;
  8938  
  8939   end COMBAT _PAY_audir _trgr;
  8940   /
  8941   DROP TRIGG ER ADR.COM BAT_EPISOD E_AUDIR_TR GR;
  8942  
  8943   CREATE OR  REPLACE TR IGGER ADR. COMBAT_EPI SODE_audir _trgr
  8944   after Upda te or Dele te or Inse rt
  8945   ON ADR.COM BAT_EPISOD E
  8946   for each r ow
  8947   declare
  8948           mD ML char(1) ;
  8949   begin
  8950  
  8951           if  DELETING  then
  8952                    inse rt into CO MBAT_EPISO DE_H
  8953                    (
  8954                    COMB AT_EPISODE _H_ID,
  8955                    COMB AT_EPISODE _ID,
  8956                    PERS ON_ID,
  8957                    OEFO IFSOURCE_I D,
  8958                    COMB ATPAYTYPE_ ID,
  8959                    COMB ATLOCATION TYPE_ID,
  8960                    STD_ INSTITUTIO N_ID,
  8961                    COMB AT_FROM_DA TE_TXT,
  8962                    COMB AT_TO_DATE _TXT,
  8963                    RECO RD_CREATED _BY,
  8964                    RECO RD_CREATED _DATE,
  8965                    RECO RD_MODIFIE D_BY,
  8966                    RECO RD_MODIFIE D_DATE,
  8967                    RECO RD_MODIFIE D_COUNT,
  8968                    TRAN SACTION_TY PE_CODE
  8969                    )
  8970                    valu es
  8971                    (
  8972                    COMB AT_EPISODE _H_S.nextv al,
  8973                    :OLD .COMBAT_EP ISODE_ID,
  8974                    :OLD .PERSON_ID ,
  8975                    :OLD .OEFOIFSOU RCE_ID,
  8976                    :OLD .COMBATPAY TYPE_ID,
  8977                    :OLD .COMBATLOC ATIONTYPE_ ID,
  8978                    :OLD .STD_INSTI TUTION_ID,
  8979                    :OLD .COMBAT_FR OM_DATE_TX T,
  8980                    :OLD .COMBAT_TO _DATE_TXT,
  8981                    :OLD .RECORD_CR EATED_BY,
  8982                    :OLD .RECORD_CR EATED_DATE ,
  8983                    :OLD .RECORD_MO DIFIED_BY,
  8984                    :OLD .RECORD_MO DIFIED_DAT E,
  8985                    :OLD .RECORD_MO DIFIED_COU NT,
  8986                    'D'
  8987                    );
  8988           el se
  8989                    if U PDATING th en
  8990                             mDML : = 'U';
  8991                    else
  8992                             mDML : = 'I';
  8993                    end  if;
  8994  
  8995                    inse rt into CO MBAT_EPISO DE_H
  8996                    (
  8997                    COMB AT_EPISODE _H_ID,
  8998                    COMB AT_EPISODE _ID,
  8999                    PERS ON_ID,
  9000                    OEFO IFSOURCE_I D,
  9001                    COMB ATPAYTYPE_ ID,
  9002                    COMB ATLOCATION TYPE_ID,
  9003                    STD_ INSTITUTIO N_ID,
  9004                    COMB AT_FROM_DA TE_TXT,
  9005                    COMB AT_TO_DATE _TXT,
  9006                    RECO RD_CREATED _BY,
  9007                    RECO RD_CREATED _DATE,
  9008                    RECO RD_MODIFIE D_BY,
  9009                    RECO RD_MODIFIE D_DATE,
  9010                    RECO RD_MODIFIE D_COUNT,
  9011                    TRAN SACTION_TY PE_CODE
  9012                    )
  9013                    valu es
  9014                    (
  9015                    COMB AT_EPISODE _H_S.nextv al,
  9016                    :NEW .COMBAT_EP ISODE_ID,
  9017                    :NEW .PERSON_ID ,
  9018                    :NEW .OEFOIFSOU RCE_ID,
  9019                    :NEW .COMBATPAY TYPE_ID,
  9020                    :NEW .COMBATLOC ATIONTYPE_ ID,
  9021                    :NEW .STD_INSTI TUTION_ID,
  9022                    :NEW .COMBAT_FR OM_DATE_TX T,
  9023                    :NEW .COMBAT_TO _DATE_TXT,
  9024                    :NEW .RECORD_CR EATED_BY,
  9025                    :NEW .RECORD_CR EATED_DATE ,
  9026                    :NEW .RECORD_MO DIFIED_BY,
  9027                    :NEW .RECORD_MO DIFIED_DAT E,
  9028                    :NEW .RECORD_MO DIFIED_COU NT,
  9029                    mDML
  9030                    );
  9031           en d if;
  9032  
  9033   end COMBAT _EPISODE_a udir_trgr;
  9034   /
  9035   DROP TRIGG ER ADR.CL_ VERIF_METH OD_AUDIR_T RGR;
  9036  
  9037   CREATE OR  REPLACE TR IGGER ADR. CL_VERIF_M ETHOD_AUDI R_TRGR
  9038     AFTER DE LETE OR IN SERT OR UP DATE
  9039     ON ADR.C L_VERIFICA TION_METHO D
  9040    REFERENCI NG  OLD AS  OLD NEW A S NEW
  9041    FOR EACH  ROW
  9042   declare
  9043          mDM L char(1);
  9044   begin
  9045  
  9046       if DEL ETING then
  9047           in sert into  CL_VERIFIC ATION_METH OD_H
  9048           (
  9049            C L_VERIFICA TION_METHO D_H_ID,
  9050            C L_VERIFICA TION_METHO D_ID,
  9051            S PECIAL_FAC TOR_ID,
  9052            C L_VERIFICA TION_METHO D_CODE,
  9053            R ECORD_CREA TED_BY ,
  9054            R ECORD_CREA TED_DATE,
  9055            R ECORD_MODI FIED_BY,
  9056            R ECORD_MODI FIED_DATE,
  9057            R ECORD_MODI FIED_COUNT ,
  9058            H ISTORY_CRE ATED_DATE,
  9059            T RANSACTION _TYPE_CODE
  9060           )
  9061           va lues
  9062           (
  9063           CL _VERIFICAT ION_METHOD _H_S.nextv al,
  9064            : old.CL_VER IFICATION_ METHOD_ID,
  9065            : old.SPECIA L_FACTOR_I D,
  9066            : old.CL_VER IFICATION_ METHOD_COD E,
  9067            : old.RECORD _CREATED_B Y,
  9068            : old.RECORD _CREATED_D ATE,
  9069            : old.RECORD _MODIFIED_ BY,
  9070            : old.RECORD _MODIFIED_ DATE,
  9071            : old.RECORD _MODIFIED_ COUNT,
  9072            s ysdate,
  9073           'D '
  9074           );
  9075       else
  9076           if  UPDATING  then
  9077                mDML :=  'U';
  9078           el se
  9079                mDML :=  'I';
  9080           en d if;
  9081           in sert into  CL_VERIFIC ATION_METH OD_H
  9082           (
  9083            C L_VERIFICA TION_METHO D_H_ID,
  9084            C L_VERIFICA TION_METHO D_ID,
  9085            S PECIAL_FAC TOR_ID,
  9086            C L_VERIFICA TION_METHO D_CODE,
  9087            R ECORD_CREA TED_BY ,
  9088            R ECORD_CREA TED_DATE,
  9089            R ECORD_MODI FIED_BY,
  9090            R ECORD_MODI FIED_DATE,
  9091            R ECORD_MODI FIED_COUNT ,
  9092            H ISTORY_CRE ATED_DATE,
  9093            T RANSACTION _TYPE_CODE
  9094           )
  9095           va lues
  9096           (
  9097           CL _VERIFICAT ION_METHOD _H_S.nextv al,
  9098            : new.CL_VER IFICATION_ METHOD_ID,
  9099            : new.SPECIA L_FACTOR_I D,
  9100            : new.CL_VER IFICATION_ METHOD_COD E,
  9101            : new.RECORD _CREATED_B Y,
  9102            : new.RECORD _CREATED_D ATE,
  9103            : new.RECORD _MODIFIED_ BY,
  9104            : new.RECORD _MODIFIED_ DATE,
  9105            : new.RECORD _MODIFIED_ COUNT,
  9106            s ysdate,
  9107           mD ML
  9108           );
  9109       end if ;
  9110  
  9111   end CL_VER IF_METHOD_ AUDIR_TRGR ;
  9112   /
  9113   DROP TRIGG ER ADR.CAT _DSBLTY_PR OC_AUDIR_T RGR;
  9114  
  9115   CREATE OR  REPLACE TR IGGER ADR. CAT_DSBLTY _PROC_audi r_trgr
  9116   after Upda te or Dele te or Inse rt
  9117   ON ADR.CAT _DSBLTY_PR OCEDURE
  9118   for each r ow
  9119   declare
  9120           mD ML char(1) ;
  9121   begin
  9122           if  DELETING  then
  9123                    inse rt into CA T_DSBLTY_P ROCEDURE_H
  9124                    (
  9125                    CAT_ DSBLTY_PRO CEDURE_H_I D,
  9126                    CAT_ DSBLTY_PRO CEDURE_ID   ,
  9127                    CATA STROPHIC_D ISABILITY_ ID,
  9128                    PROC EDURE_TYPE _ID         ,
  9129                    AFFE CTED_EXTRE MITY_TYPE_ ID,
  9130                    RECO RD_CREATED _BY         ,
  9131                    RECO RD_CREATED _DATE       ,
  9132                    RECO RD_MODIFIE D_BY        ,
  9133                    RECO RD_MODIFIE D_DATE      ,
  9134                    RECO RD_MODIFIE D_COUNT     ,
  9135                    TRAN SACTION_TY PE_CODE
  9136                    )
  9137                    valu es
  9138                    (
  9139                    CAT_ DSBLTY_PRO CEDURE_H_s .nextval,
  9140                    :old .CAT_DSBLT Y_PROCEDUR E_ID,
  9141                    :old .CATASTROP HIC_DISABI LITY_ID,
  9142                    :old .PROCEDURE _TYPE_ID,
  9143                    :old .AFFECTED_ EXTREMITY_ TYPE_ID,
  9144                    :old .RECORD_CR EATED_BY,
  9145                    :old .RECORD_CR EATED_DATE ,
  9146                    :old .RECORD_MO DIFIED_BY,
  9147                    :old .RECORD_MO DIFIED_DAT E,
  9148                    :old .RECORD_MO DIFIED_COU NT,
  9149                    'D'
  9150                    );
  9151           el se
  9152  
  9153                    if U PDATING th en
  9154                             mDML : = 'U';
  9155                    else
  9156                             mDML : = 'I';
  9157                    end  if;
  9158  
  9159                    inse rt into CA T_DSBLTY_P ROCEDURE_H
  9160                    (
  9161                    CAT_ DSBLTY_PRO CEDURE_H_I D,
  9162                    CAT_ DSBLTY_PRO CEDURE_ID   ,
  9163                    CATA STROPHIC_D ISABILITY_ ID,
  9164                    PROC EDURE_TYPE _ID         ,
  9165                    AFFE CTED_EXTRE MITY_TYPE_ ID,
  9166                    RECO RD_CREATED _BY         ,
  9167                    RECO RD_CREATED _DATE       ,
  9168                    RECO RD_MODIFIE D_BY        ,
  9169                    RECO RD_MODIFIE D_DATE      ,
  9170                    RECO RD_MODIFIE D_COUNT     ,
  9171                    TRAN SACTION_TY PE_CODE
  9172                    )
  9173                    valu es
  9174                    (
  9175                    CAT_ DSBLTY_PRO CEDURE_H_s .nextval,
  9176                    :new .CAT_DSBLT Y_PROCEDUR E_ID,
  9177                    :new .CATASTROP HIC_DISABI LITY_ID,
  9178                    :new .PROCEDURE _TYPE_ID,
  9179                    :new .AFFECTED_ EXTREMITY_ TYPE_ID,
  9180                    :new .RECORD_CR EATED_BY,
  9181                    :new .RECORD_CR EATED_DATE ,
  9182                    :new .RECORD_MO DIFIED_BY,
  9183                    :new .RECORD_MO DIFIED_DAT E,
  9184                    :new .RECORD_MO DIFIED_COU NT,
  9185                    mDML
  9186                    );
  9187           en d if;
  9188  
  9189   end  CAT_D SBLTY_PROC _audir_trg r;
  9190   /
  9191   DROP TRIGG ER ADR.CAT _DSBLTY_DI AG_AUDIR_T RGR;
  9192  
  9193   CREATE OR  REPLACE TR IGGER ADR. CAT_DSBLTY _DIAG_audi r_trgr
  9194   after Upda te or Dele te or Inse rt
  9195   ON ADR.CAT _DSBLTY_DI AGNOSIS
  9196   for each r ow
  9197   declare
  9198           mD ML char(1) ;
  9199   begin
  9200  
  9201           if  DELETING  then
  9202                    inse rt into CA T_DSBLTY_D IAGNOSIS_H
  9203                    (
  9204                    CAT_ DSBLTY_DIA GNOSIS_H_I D,
  9205                    CAT_ DSBLTY_DIA GNOSIS_ID,
  9206                    CATA STROPHIC_D ISABILITY_ ID,
  9207                    DIAG NOSIS_TYPE _ID          ,
  9208                    RECO RD_CREATED _BY          ,
  9209                    RECO RD_CREATED _DATE        ,
  9210                    RECO RD_MODIFIE D_BY         ,
  9211                    RECO RD_MODIFIE D_DATE       ,
  9212                    RECO RD_MODIFIE D_COUNT      ,
  9213                    TRAN SACTION_TY PE_CODE
  9214                    )
  9215                    valu es
  9216                    (
  9217                    CAT_ DSBLTY_DIA GNOSIS_H_S .nextval,
  9218                    :old .CAT_DSBLT Y_DIAGNOSI S_ID,
  9219                    :old .CATASTROP HIC_DISABI LITY_ID,
  9220                    :old .DIAGNOSIS _TYPE_ID,
  9221                    :old .RECORD_CR EATED_BY,
  9222                    :old .RECORD_CR EATED_DATE ,
  9223                    :old .RECORD_MO DIFIED_BY,
  9224                    :old .RECORD_MO DIFIED_DAT E,
  9225                    :old .RECORD_MO DIFIED_COU NT,
  9226                    'D'
  9227                    );
  9228           el se
  9229                    if U PDATING th en
  9230                             mDML : = 'U';
  9231                    else
  9232                             mDML : = 'I';
  9233                    end  if;
  9234  
  9235                    inse rt into CA T_DSBLTY_D IAGNOSIS_H
  9236                    (
  9237                    CAT_ DSBLTY_DIA GNOSIS_H_I D,
  9238                    CAT_ DSBLTY_DIA GNOSIS_ID,
  9239                    CATA STROPHIC_D ISABILITY_ ID,
  9240                    DIAG NOSIS_TYPE _ID          ,
  9241                    RECO RD_CREATED _BY          ,
  9242                    RECO RD_CREATED _DATE        ,
  9243                    RECO RD_MODIFIE D_BY         ,
  9244                    RECO RD_MODIFIE D_DATE       ,
  9245                    RECO RD_MODIFIE D_COUNT      ,
  9246                    TRAN SACTION_TY PE_CODE
  9247                    )
  9248                    valu es
  9249                    (
  9250                    CAT_ DSBLTY_DIA GNOSIS_H_S .nextval,
  9251                    :new .CAT_DSBLT Y_DIAGNOSI S_ID,
  9252                    :new .CATASTROP HIC_DISABI LITY_ID,
  9253                    :new .DIAGNOSIS _TYPE_ID,
  9254                    :new .RECORD_CR EATED_BY,
  9255                    :new .RECORD_CR EATED_DATE ,
  9256                    :new .RECORD_MO DIFIED_BY,
  9257                    :new .RECORD_MO DIFIED_DAT E,
  9258                    :new .RECORD_MO DIFIED_COU NT,
  9259                    mDML
  9260                    );
  9261  
  9262           en d if;
  9263  
  9264  
  9265   end  CAT_D SBLTY_DIAG _audir_trg r;
  9266   /
  9267   DROP TRIGG ER ADR.CAT _DSBLTY_DE SC_AUDIR_T RGR;
  9268  
  9269   CREATE OR  REPLACE TR IGGER ADR. CAT_DSBLTY _DESC_AUDI R_TRGR
  9270     AFTER DE LETE OR IN SERT OR UP DATE
  9271       ON ADR .CAT_DSBLT Y_DESCRIPT OR
  9272     REFERENC ING  OLD A S OLD NEW  AS NEW
  9273     FOR EACH  ROW
  9274   DECLARE
  9275  
  9276       mDML c har(1);
  9277  
  9278     BEGIN
  9279  
  9280       IF DEL ETING THEN
  9281  
  9282         INSE RT INTO AD R.CAT_DSBL TY_DESCRIP TOR_H
  9283           (C AT_DSBLTY_ DESCRIPTOR _ID_H,
  9284            C AT_DSBLTY_ DESCRIPTOR _ID,
  9285            C ATASTROPHI C_DISABILI TY_ID,
  9286            D ESCRIPTOR_ TYPE_ID,
  9287            D ETERMINATI ON_DATE,
  9288            S TD_INSTITU TION_ID,
  9289            R ECORD_CREA TED_BY,
  9290            R ECORD_CREA TED_DATE,
  9291            R ECORD_MODI FIED_BY,
  9292            R ECORD_MODI FIED_COUNT ,
  9293            R ECORD_MODI FIED_DATE,
  9294            H ISTORY_CRE ATED_DATE,
  9295            T RANSACTION _TYPE_CODE
  9296           )
  9297           VA LUES
  9298           (C AT_DSBLTY_ DESCRIPTOR _H_S.NEXTV AL,
  9299            : OLD.CAT_DS BLTY_DESCR IPTOR_ID,
  9300            : OLD.CATAST ROPHIC_DIS ABILITY_ID ,
  9301            : OLD.DESCRI PTOR_TYPE_ ID,
  9302            : OLD.DETERM INATION_DA TE,
  9303            : OLD.STD_IN STITUTION_ ID,
  9304            : OLD.Record _created_b y,
  9305            : OLD.Record _created_d ate,
  9306            : OLD.Record _modified_ by,
  9307            : OLD.Record _modified_ count,
  9308            : OLD.Record _modified_ date,
  9309            S YSDATE,
  9310            ' D'
  9311           );
  9312  
  9313       ELSE
  9314  
  9315         IF U PDATING TH EN
  9316  
  9317           mD ML := 'U';
  9318  
  9319         ELSE
  9320  
  9321           mD ML := 'I';
  9322  
  9323         END  IF;
  9324  
  9325         INSE RT INTO AD R.CAT_DSBL TY_DESCRIP TOR_H
  9326           (C AT_DSBLTY_ DESCRIPTOR _ID_H,
  9327            C AT_DSBLTY_ DESCRIPTOR _ID,
  9328            C ATASTROPHI C_DISABILI TY_ID,
  9329            D ESCRIPTOR_ TYPE_ID,
  9330            D ETERMINATI ON_DATE,
  9331            S TD_INSTITU TION_ID,
  9332            R ECORD_CREA TED_BY,
  9333            R ECORD_CREA TED_DATE,
  9334            R ECORD_MODI FIED_BY,
  9335            R ECORD_MODI FIED_COUNT ,
  9336            R ECORD_MODI FIED_DATE,
  9337            H ISTORY_CRE ATED_DATE,
  9338            T RANSACTION _TYPE_CODE
  9339           )
  9340           VA LUES
  9341           (C AT_DSBLTY_ DESCRIPTOR _H_S.NEXTV AL,
  9342            : NEW.CAT_DS BLTY_DESCR IPTOR_ID,
  9343            : NEW.CATAST ROPHIC_DIS ABILITY_ID ,
  9344            : NEW.DESCRI PTOR_TYPE_ ID,
  9345            : NEW.DETERM INATION_DA TE,
  9346            : NEW.STD_IN STITUTION_ ID,
  9347            : NEW.Record _created_b y,
  9348            : NEW.Record _created_d ate,
  9349            : NEW.Record _modified_ by,
  9350            : NEW.Record _modified_ count,
  9351            : NEW.Record _modified_ date,
  9352            S YSDATE,
  9353            m DML
  9354           );
  9355  
  9356       END IF ;
  9357  
  9358     END CAT_ DSBLTY_DES C_AUDIR_TR GR;
  9359   /
  9360   DROP TRIGG ER ADR.CAT _DSBLTY_CO ND_AUDIR_T RGR;
  9361  
  9362   CREATE OR  REPLACE TR IGGER ADR. CAT_DSBLTY _COND_AUDI R_TRGR
  9363   after Upda te or Dele te or Inse rt
  9364   ON ADR.CAT _DSBLTY_CO NDITION
  9365   for each r ow
  9366   declare
  9367          mDM L char(1);
  9368   begin
  9369  
  9370       if DEL ETING then
  9371           in sert into  CAT_DSBLTY _CONDITION _H
  9372           (
  9373           CA T_DSBLTY_C ONDITION_H _ID,
  9374           CA T_DSBLTY_C ONDITION_I D,
  9375           CA TASTROPHIC _DISABILIT Y_ID,
  9376           CO NDITION_TY PE_ID          ,
  9377           RE CORD_CREAT ED_BY          ,
  9378           RE CORD_CREAT ED_DATE        ,
  9379           RE CORD_MODIF IED_BY         ,
  9380           RE CORD_MODIF IED_DATE       ,
  9381           RE CORD_MODIF IED_COUNT      ,
  9382           PR MNT_DSBLTY _STDYESNO_ ID  ,
  9383           DI SABILITY_S CORE           ,
  9384           TR ANSACTION_ TYPE_CODE      ,
  9385           PR MNT_DSBLTY _STDPERM_I D
  9386           )
  9387           va lues
  9388           (
  9389           CA T_DSBLTY_C ONDITION_H _s.nextval ,
  9390           :o ld.CAT_DSB LTY_CONDIT ION_ID,
  9391           :o ld.CATASTR OPHIC_DISA BILITY_ID,
  9392           :o ld.CONDITI ON_TYPE_ID ,
  9393           :o ld.RECORD_ CREATED_BY ,
  9394           :o ld.RECORD_ CREATED_DA TE,
  9395           :o ld.RECORD_ MODIFIED_B Y,
  9396           :o ld.RECORD_ MODIFIED_D ATE,
  9397           :o ld.RECORD_ MODIFIED_C OUNT,
  9398           :o ld.PRMNT_D SBLTY_STDY ESNO_ID,
  9399           :o ld.DISABIL ITY_SCORE,
  9400           'D ',
  9401           :o ld.PRMNT_D SBLTY_STDP ERM_ID
  9402           );
  9403       else
  9404           if  UPDATING  then
  9405                mDML :=  'U';
  9406           el se
  9407                mDML :=  'I';
  9408           en d if;
  9409  
  9410           in sert into  CAT_DSBLTY _CONDITION _H
  9411           (
  9412           CA T_DSBLTY_C ONDITION_H _ID,
  9413           CA T_DSBLTY_C ONDITION_I D,
  9414           CA TASTROPHIC _DISABILIT Y_ID,
  9415           CO NDITION_TY PE_ID          ,
  9416           RE CORD_CREAT ED_BY          ,
  9417           RE CORD_CREAT ED_DATE        ,
  9418           RE CORD_MODIF IED_BY         ,
  9419           RE CORD_MODIF IED_DATE       ,
  9420           RE CORD_MODIF IED_COUNT      ,
  9421           PR MNT_DSBLTY _STDYESNO_ ID  ,
  9422           DI SABILITY_S CORE           ,
  9423           TR ANSACTION_ TYPE_CODE      ,
  9424           PR MNT_DSBLTY _STDPERM_I D
  9425           )
  9426           va lues
  9427           (
  9428           CA T_DSBLTY_C ONDITION_H _s.nextval ,
  9429           :n ew.CAT_DSB LTY_CONDIT ION_ID,
  9430           :n ew.CATASTR OPHIC_DISA BILITY_ID,
  9431           :n ew.CONDITI ON_TYPE_ID ,
  9432           :n ew.RECORD_ CREATED_BY ,
  9433           :n ew.RECORD_ CREATED_DA TE,
  9434           :n ew.RECORD_ MODIFIED_B Y,
  9435           :n ew.RECORD_ MODIFIED_D ATE,
  9436           :n ew.RECORD_ MODIFIED_C OUNT,
  9437           :n ew.PRMNT_D SBLTY_STDY ESNO_ID,
  9438           :n ew.DISABIL ITY_SCORE,
  9439           mD ML,
  9440           :n ew.PRMNT_D SBLTY_STDP ERM_ID
  9441           );
  9442       end if ;
  9443  
  9444   end  CAT_D SBLTY_COND _audir_trg r;
  9445   /
  9446   DROP TRIGG ER ADR.CAT _DISABILIT Y_AUDIR_TR GR;
  9447  
  9448   CREATE OR  REPLACE TR IGGER ADR. CAT_DISABI LITY_AUDIR _TRGR
  9449     AFTER UP DATE OR DE LETE OR IN SERT
  9450     ON ADR.C ATASTROPHI C_DISABILI TY   FOR E ACH ROW
  9451   DECLARE
  9452  
  9453       Mdml                                  C HAR(1);
  9454  
  9455   BEGIN
  9456  
  9457     IF DELET ING THEN
  9458  
  9459       INSERT
  9460       INTO       Catast rophic_Dis ability_H
  9461                  (Catas trophic_di sability_h _id,
  9462                   Catas trophic_di sability_i d,
  9463                   Perso n_id,
  9464                   Cat_d sblty_eval _mthd_type _id,
  9465                   Std_i nstitution _id,
  9466                   Clini cal_approv er_name,
  9467                   Catas trophicall y_disabled _ind,
  9468                   Cat_d sblty_eval uation_dat e,
  9469                   Decis ion_date,
  9470                   Recor d_created_ by,
  9471                   Recor d_created_ date,
  9472                   Recor d_modified _by,
  9473                   Recor d_modified _date,
  9474                   Recor d_modified _count,
  9475                   Cat_d sblty_revi ew_request ed_dt,
  9476                   Cat_d sblty_revi ew_initiat ed_dt,
  9477                   Cat_d sblty_revi ew_notifie d_dt,
  9478                   Trans action_typ e_code)
  9479       VALUES     (ADR.C atastrophi c_disabili ty_h_s.NEX TVAL,
  9480                   :OLD. Catastroph ic_disabil ity_id      ,
  9481                   :OLD. Person_id                         ,
  9482                   :OLD. Cat_dsblty _eval_mthd _type_id    ,
  9483                   :OLD. Std_instit ution_id               ,
  9484                   :OLD. Clinical_a pprover_na me,
  9485                   :OLD. Catastroph ically_dis abled_ind   ,
  9486                   :OLD. Cat_dsblty _evaluatio n_date      ,
  9487                   :OLD. Decision_d ate                    ,
  9488                   :OLD. Record_cre ated_by    ,
  9489                   :OLD. Record_cre ated_date              ,
  9490                   :OLD. Record_mod ified_by               ,
  9491                   :OLD. Record_mod ified_date         ,
  9492                   :OLD. Record_mod ified_coun t     ,
  9493                   :OLD. Cat_dsblty _review_re quested_dt ,
  9494                   :OLD. Cat_dsblty _review_in itiated_dt ,
  9495                   :OLD. Cat_dsblty _review_no tified_dt   ,
  9496                   'D');
  9497  
  9498     ELSE
  9499  
  9500       IF UPD ATING THEN
  9501  
  9502         Mdml  := 'U';
  9503  
  9504       ELSE
  9505  
  9506         Mdml  := 'I';
  9507  
  9508       END IF ;
  9509  
  9510       INSERT
  9511       INTO       ADR.Ca tastrophic _Disabilit y_H
  9512                  (Catas trophic_di sability_h _id,
  9513                   Catas trophic_di sability_i d,
  9514                   Perso n_id,
  9515                   Cat_d sblty_eval _mthd_type _id,
  9516                   Std_i nstitution _id,
  9517                   Clini cal_approv er_name,
  9518                   Catas trophicall y_disabled _ind,
  9519                   Cat_d sblty_eval uation_dat e,
  9520                   Decis ion_date,
  9521                   Recor d_created_ by,
  9522                   Recor d_created_ date,
  9523                   Recor d_modified _by,
  9524                   Recor d_modified _date,
  9525                   Recor d_modified _count,
  9526                   Cat_d sblty_revi ew_request ed_dt,
  9527                   Cat_d sblty_revi ew_initiat ed_dt,
  9528                   Cat_d sblty_revi ew_notifie d_dt,
  9529                   Trans action_typ e_code)
  9530       VALUES      (ADR. Catastroph ic_disabil ity_h_s.NE XTVAL,
  9531                    :NEW .Catastrop hic_disabi lity_id,
  9532                    :NEW .Person_id ,
  9533                    :NEW .Cat_dsblt y_eval_mth d_type_id,
  9534                    :NEW .Std_insti tution_id,
  9535                    :NEW .Clinical_ approver_n ame,
  9536                    :NEW .Catastrop hically_di sabled_ind ,
  9537                    :NEW .Cat_dsblt y_evaluati on_date,
  9538                    :NEW .Decision_ date,
  9539                    :NEW .Record_cr eated_by,
  9540                    :NEW .Record_cr eated_date ,
  9541                    :NEW .Record_mo dified_by,
  9542                    :NEW .Record_mo dified_dat e,
  9543                    :NEW .Record_mo dified_cou nt,
  9544                    :NEW .Cat_dsblt y_review_r equested_d t,
  9545                    :NEW .Cat_dsblt y_review_i nitiated_d t,
  9546                    :NEW .Cat_dsblt y_review_n otified_dt ,
  9547                    Mdml );
  9548  
  9549     END IF;
  9550  
  9551   END  Cat_D isability_ Audir_Trgr ;
  9552   /
  9553   DROP TRIGG ER ADR.CAN CEL_DECLIN E_AUDIR_TR GR;
  9554  
  9555   CREATE OR  REPLACE TR IGGER ADR. CANCEL_DEC LINE_AUDIR _TRGR
  9556   after Upda te or Dele te or Inse rt
  9557   on ADR.CAN CEL_DECLIN E
  9558   REFERENCIN G NEW AS N EW OLD AS  OLD
  9559   for each r ow
  9560   declare
  9561           mD ML char(1) ;
  9562   begin
  9563  
  9564           if  DELETING  then
  9565                    inse rt into CA NCEL_DECLI NE_H
  9566                    (
  9567                    CANC EL_DECLINE _H_ID,
  9568                    CANC EL_DECLINE _ID,
  9569                    PERS ON_ID,
  9570                    CANC EL_DECLINE _STATUS_TY PE_ID,
  9571                    CANC EL_DECLINE _REASON_TY PE_ID,
  9572                    CANC EL_DECLINE _IND,
  9573                    CANC EL_DECLINE _EFFECTIVE _DATE,
  9574                    REMA RKS,
  9575                    RECO RD_CREATED _BY,
  9576                    RECO RD_CREATED _DATE,
  9577                    RECO RD_MODIFIE D_BY,
  9578                    RECO RD_MODIFIE D_DATE,
  9579                    RECO RD_MODIFIE D_COUNT,
  9580                    TRAN SACTION_TY PE_CODE
  9581                    )
  9582                    valu es
  9583                    (
  9584                    CANC EL_DECLINE _H_S.nextv al,
  9585                    :old .CANCEL_DE CLINE_ID,
  9586                    :old .PERSON_ID ,
  9587                    :old .CANCEL_DE CLINE_STAT US_TYPE_ID ,
  9588                    :old .CANCEL_DE CLINE_REAS ON_TYPE_ID ,
  9589                    :old .CANCEL_DE CLINE_IND,
  9590                    :old .CANCEL_DE CLINE_EFFE CTIVE_DATE ,
  9591                    :old .REMARKS,
  9592                    :old .RECORD_CR EATED_BY,
  9593                    :old .RECORD_CR EATED_DATE ,
  9594                    :old .RECORD_MO DIFIED_BY,
  9595                    :old .RECORD_MO DIFIED_DAT E,
  9596                    :old .RECORD_MO DIFIED_COU NT,
  9597                    'D'
  9598                    );
  9599  
  9600           el se
  9601                    if U PDATING th en
  9602                             mDML : = 'U';
  9603                    else
  9604                             mDML : = 'I';
  9605                    end  if;
  9606  
  9607                    inse rt into CA NCEL_DECLI NE_H
  9608                    (
  9609                    CANC EL_DECLINE _H_ID,
  9610                    CANC EL_DECLINE _ID,
  9611                    PERS ON_ID,
  9612                    CANC EL_DECLINE _STATUS_TY PE_ID,
  9613                    CANC EL_DECLINE _REASON_TY PE_ID,
  9614                    CANC EL_DECLINE _IND,
  9615                    CANC EL_DECLINE _EFFECTIVE _DATE,
  9616                    REMA RKS,
  9617                    RECO RD_CREATED _BY,
  9618                    RECO RD_CREATED _DATE,
  9619                    RECO RD_MODIFIE D_BY,
  9620                    RECO RD_MODIFIE D_DATE,
  9621                    RECO RD_MODIFIE D_COUNT,
  9622                    TRAN SACTION_TY PE_CODE
  9623                    )
  9624                    valu es
  9625                    (
  9626                    CANC EL_DECLINE _H_S.nextv al,
  9627                    :new .CANCEL_DE CLINE_ID,
  9628                    :new .PERSON_ID ,
  9629                    :new .CANCEL_DE CLINE_STAT US_TYPE_ID ,
  9630                    :new .CANCEL_DE CLINE_REAS ON_TYPE_ID ,
  9631                    :new .CANCEL_DE CLINE_IND,
  9632                    :new .CANCEL_DE CLINE_EFFE CTIVE_DATE ,
  9633                    :new .REMARKS,
  9634                    :new .RECORD_CR EATED_BY,
  9635                    :new .RECORD_CR EATED_DATE ,
  9636                    :new .RECORD_MO DIFIED_BY,
  9637                    :new .RECORD_MO DIFIED_DAT E,
  9638                    :new .RECORD_MO DIFIED_COU NT,
  9639                    mDML
  9640                    );
  9641  
  9642           en d if;
  9643  
  9644   end  CANCE L_DECLINE_ audir_trgr ;
  9645   /
  9646   DROP TRIGG ER ADR.BEN EF_VISIT_S UMM_AUDIR_ TRGR;
  9647  
  9648   CREATE OR  REPLACE TR IGGER ADR. BENEF_VISI T_SUMM_AUD IR_TRGR AF TER UPDATE  OR INSERT  OR DELETE  ON "ADR". "BENEFICIA RY_VISIT_S UMMARY" FO R EACH ROW
  9649   declare
  9650           mD ML char(1) ;
  9651   begin
  9652  
  9653           if  DELETING  then
  9654                    inse rt into BE NEFICIARY_ VISIT_SUMM ARY_H
  9655                    (
  9656                    BENE FICIARY_VI SIT_SUMMAR Y_H_ID,
  9657                    BENE FICIARY_VI SIT_SUMMAR Y_ID   ,
  9658                    PERS ON_ID                        ,
  9659                    STD_ INSTITUTIO N_ID  ,
  9660                    INCO ME_YEAR                    ,
  9661                    INPA TIENT_DAYS               ,
  9662                    OUTP ATIENT_VIS ITS_NUMBER  ,
  9663                    LAST _VISIT_DAT E                ,
  9664                    RECO RD_CREATED _BY    ,
  9665                    RECO RD_CREATED _DATE,
  9666                    RECO RD_MODIFIE D_BY         ,
  9667                    RECO RD_MODIFIE D_DATE   ,
  9668                    RECO RD_MODIFIE D_COUNT,
  9669                    TRAN SACTION_TY PE_CODE
  9670                    )
  9671                    valu es
  9672                    (
  9673                    BENE FICIARY_VI SIT_SUMMAR Y_H_S.next val,
  9674                    :old .BENEFICIA RY_VISIT_S UMMARY_ID    ,
  9675                    :old .PERSON_ID                         ,
  9676                    :old .STD_INSTI TUTION_ID   ,
  9677                    :old .INCOME_YE AR                    ,
  9678                    :old .INPATIENT _DAYS              ,
  9679                    :old .OUTPATIEN T_VISITS_N UMBER ,
  9680                    :old .LAST_VISI T_DATE                 ,
  9681                    :old .RECORD_CR EATED_BY     ,
  9682                    :old .RECORD_CR EATED_DATE ,
  9683                    :old .RECORD_MO DIFIED_BY         ,
  9684                    :old .RECORD_MO DIFIED_DAT E   ,
  9685                    :old .RECORD_MO DIFIED_COU NT,
  9686                    'D'
  9687                    );
  9688  
  9689           el se
  9690                    if U PDATING th en
  9691                             mDML : = 'U';
  9692                    else
  9693                             mDML : = 'I';
  9694                    end  if;
  9695  
  9696                    inse rt into BE NEFICIARY_ VISIT_SUMM ARY_H
  9697                    (
  9698                    BENE FICIARY_VI SIT_SUMMAR Y_H_ID,
  9699                    BENE FICIARY_VI SIT_SUMMAR Y_ID   ,
  9700                    PERS ON_ID                        ,
  9701                    STD_ INSTITUTIO N_ID  ,
  9702                    INCO ME_YEAR                    ,
  9703                    INPA TIENT_DAYS               ,
  9704                    OUTP ATIENT_VIS ITS_NUMBER  ,
  9705                    LAST _VISIT_DAT E                ,
  9706                    RECO RD_CREATED _BY    ,
  9707                    RECO RD_CREATED _DATE,
  9708                    RECO RD_MODIFIE D_BY         ,
  9709                    RECO RD_MODIFIE D_DATE   ,
  9710                    RECO RD_MODIFIE D_COUNT,
  9711                    TRAN SACTION_TY PE_CODE
  9712                    )
  9713                    valu es
  9714                    (
  9715                    BENE FICIARY_VI SIT_SUMMAR Y_H_S.next val,
  9716                    :new .BENEFICIA RY_VISIT_S UMMARY_ID    ,
  9717                    :new .PERSON_ID                         ,
  9718                    :new .STD_INSTI TUTION_ID   ,
  9719                    :new .INCOME_YE AR                    ,
  9720                    :new .INPATIENT _DAYS              ,
  9721                    :new .OUTPATIEN T_VISITS_N UMBER ,
  9722                    :new .LAST_VISI T_DATE                 ,
  9723                    :new .RECORD_CR EATED_BY     ,
  9724                    :new .RECORD_CR EATED_DATE ,
  9725                    :new .RECORD_MO DIFIED_BY         ,
  9726                    :new .RECORD_MO DIFIED_DAT E   ,
  9727                    :new .RECORD_MO DIFIED_COU NT,
  9728                    mDML
  9729                    );
  9730  
  9731           en d if;
  9732  
  9733   end BENEF_ VISIT_SUMM _audir_trg r;
  9734   /
  9735   DROP TRIGG ER ADR.BEN EF_SCI_AUD IR_TRGR;
  9736  
  9737   CREATE OR  REPLACE TR IGGER ADR. BENEF_SCI_ AUDIR_TRGR
  9738   after Upda te or Dele te or Inse rt
  9739   ON ADR.BEN EFICIARY_S CI
  9740   for each r ow
  9741   declare
  9742           mD ML char(1) ;
  9743   begin
  9744  
  9745           if  DELETING  then
  9746                    inse rt into BE NEFICIARY_ SCI_H
  9747                    (
  9748                    BENE FICIARY_SC I_H_ID,
  9749                    BENE FICIARY_SC I_ID,
  9750                    PERS ON_ID,
  9751                    STD_ SPINALINJU RYCODE_ID,
  9752                    RECO RD_CREATED _BY,
  9753                    RECO RD_CREATED _DATE,
  9754                    RECO RD_MODIFIE D_BY ,
  9755                    RECO RD_MODIFIE D_DATE,
  9756                    RECO RD_MODIFIE D_COUNT,
  9757                    TRAN SACTION_TY PE_CODE
  9758                    )
  9759                    valu es
  9760                    (
  9761                    BENE FICIARY_SC I_H_s.next val,
  9762                    :old .BENEFICIA RY_SCI_ID,
  9763                    :old .PERSON_ID ,
  9764                    :old .STD_SPINA LINJURYCOD E_ID,
  9765                    :old .RECORD_CR EATED_BY,
  9766                    :old .RECORD_CR EATED_DATE ,
  9767                    :old .RECORD_MO DIFIED_BY  ,
  9768                    :old .RECORD_MO DIFIED_DAT E,
  9769                    :old .RECORD_MO DIFIED_COU NT,
  9770                    'D'
  9771                    );
  9772           el se
  9773                    if U PDATING th en
  9774                             mDML : = 'U';
  9775                    else
  9776                             mDML : = 'I';
  9777                    end  if;
  9778                    inse rt into BE NEFICIARY_ SCI_H
  9779                    (
  9780                    BENE FICIARY_SC I_H_ID,
  9781                    BENE FICIARY_SC I_ID,
  9782                    PERS ON_ID,
  9783                    STD_ SPINALINJU RYCODE_ID,
  9784                    RECO RD_CREATED _BY,
  9785                    RECO RD_CREATED _DATE,
  9786                    RECO RD_MODIFIE D_BY ,
  9787                    RECO RD_MODIFIE D_DATE,
  9788                    RECO RD_MODIFIE D_COUNT,
  9789                    TRAN SACTION_TY PE_CODE
  9790                    )
  9791                    valu es
  9792                    (
  9793                    BENE FICIARY_SC I_H_s.next val,
  9794                    :new .BENEFICIA RY_SCI_ID,
  9795                    :new .PERSON_ID ,
  9796                    :new .STD_SPINA LINJURYCOD E_ID,
  9797                    :new .RECORD_CR EATED_BY,
  9798                    :new .RECORD_CR EATED_DATE ,
  9799                    :new .RECORD_MO DIFIED_BY  ,
  9800                    :new .RECORD_MO DIFIED_DAT E,
  9801                    :new .RECORD_MO DIFIED_COU NT,
  9802                    mDML
  9803                    );
  9804           en d if;
  9805  
  9806   end BENEF_ SCI_audir_ trgr;
  9807   /
  9808   DROP TRIGG ER ADR.BEN EFICIARY_T RVL_AUDIR_ TRGR;
  9809  
  9810   CREATE OR  REPLACE TR IGGER ADR. BENEFICIAR Y_TRVL_aud ir_trgr
  9811   after Upda te or Dele te or Inse rt
  9812   ON ADR.BEN EFICIARY_T RAVEL
  9813   for each r ow
  9814   declare
  9815           mD ML char(1) ;
  9816   begin
  9817  
  9818           if  DELETING  then
  9819                    inse rt into BE NEFICIARY_ TRAVEL_H
  9820                    (
  9821                    BENE FICIARY_TR AVEL_H_ID,
  9822                    BENE FICIARY_TR AVEL_ID,
  9823                    PERS ON_ID,
  9824                    STD_ INSTITUTIO N_ID,
  9825                    INCO ME_YEAR,
  9826                    TRAV EL_CERTIFI ED_AMOUNT,
  9827                    TRAV EL_CERTIFI ED_DATE,
  9828                    TRAV EL_CLAIM_D ATE,
  9829                    TRAV EL_ELIGIBI LITY_IND,
  9830                    RECO RD_CREATED _BY,
  9831                    RECO RD_CREATED _DATE,
  9832                    RECO RD_MODIFIE D_BY,
  9833                    RECO RD_MODIFIE D_DATE,
  9834                    RECO RD_MODIFIE D_COUNT,
  9835                    TRAN SACTION_TY PE_CODE
  9836                    )
  9837                    valu es
  9838                    (
  9839                    BENE FICIARY_TR AVEL_H_S.n extval,
  9840                    :old .BENEFICIA RY_TRAVEL_ ID,
  9841                    :old .PERSON_ID ,
  9842                    :old .STD_INSTI TUTION_ID,
  9843                    :old .INCOME_YE AR,
  9844                    :old .TRAVEL_CE RTIFIED_AM OUNT,
  9845                    :old .TRAVEL_CE RTIFIED_DA TE,
  9846                    :old .TRAVEL_CL AIM_DATE,
  9847                    :old .TRAVEL_EL IGIBILITY_ IND,
  9848                    :old .RECORD_CR EATED_BY,
  9849                    :old .RECORD_CR EATED_DATE ,
  9850                    :old .RECORD_MO DIFIED_BY,
  9851                    :old .RECORD_MO DIFIED_DAT E,
  9852                    :old .RECORD_MO DIFIED_COU NT,
  9853                    'D'
  9854                    );
  9855           el se
  9856                    if U PDATING th en
  9857                             mDML : = 'U';
  9858                    else
  9859                             mDML : = 'I';
  9860                    end  if;
  9861  
  9862                    inse rt into BE NEFICIARY_ TRAVEL_H
  9863                    (
  9864                    BENE FICIARY_TR AVEL_H_ID,
  9865                    BENE FICIARY_TR AVEL_ID,
  9866                    PERS ON_ID,
  9867                    STD_ INSTITUTIO N_ID,
  9868                    INCO ME_YEAR,
  9869                    TRAV EL_CERTIFI ED_AMOUNT,
  9870                    TRAV EL_CERTIFI ED_DATE,
  9871                    TRAV EL_CLAIM_D ATE,
  9872                    TRAV EL_ELIGIBI LITY_IND,
  9873                    RECO RD_CREATED _BY,
  9874                    RECO RD_CREATED _DATE,
  9875                    RECO RD_MODIFIE D_BY,
  9876                    RECO RD_MODIFIE D_DATE,
  9877                    RECO RD_MODIFIE D_COUNT,
  9878                    TRAN SACTION_TY PE_CODE
  9879                    )
  9880                    valu es
  9881                    (
  9882                    bene ficiary_tr avel_h_s.n extval,
  9883                    :new .BENEFICIA RY_TRAVEL_ ID,
  9884                    :new .PERSON_ID ,
  9885                    :new .STD_INSTI TUTION_ID,
  9886                    :new .INCOME_YE AR,
  9887                    :new .TRAVEL_CE RTIFIED_AM OUNT,
  9888                    :new .TRAVEL_CE RTIFIED_DA TE,
  9889                    :new .TRAVEL_CL AIM_DATE,
  9890                    :new .TRAVEL_EL IGIBILITY_ IND,
  9891                    :new .RECORD_CR EATED_BY,
  9892                    :new .RECORD_CR EATED_DATE ,
  9893                    :new .RECORD_MO DIFIED_BY,
  9894                    :new .RECORD_MO DIFIED_DAT E,
  9895                    :new .RECORD_MO DIFIED_COU NT,
  9896                    mDML
  9897                    );
  9898  
  9899           en d if;
  9900   end BENEFI CIARY_TRVL _audir_trg r;
  9901   /
  9902   DROP TRIGG ER ADR.BEN EFICIARY_N TR_AUDIR_T RGR;
  9903  
  9904   CREATE OR  REPLACE TR IGGER ADR. BENEFICIAR Y_NTR_AUDI R_TRGR
  9905   after Upda te or Dele te or Inse rt
  9906   on ADR.BEN EFICIARY_N TR
  9907   REFERENCIN G NEW AS N EW OLD AS  OLD
  9908   for each r ow
  9909   declare
  9910           mD ML char(1) ;
  9911   begin
  9912  
  9913           if  DELETING  then
  9914                    inse rt into BE NEFICIARY_ NTR_H
  9915                    (
  9916                    BENE FICIARY_NT R_H_ID ,
  9917                    BENE FICIARY_NT R_ID        ,
  9918                    PERS ON_ID                        ,
  9919                    NTR_ DIAGNOSIS_ SITE_ID ,
  9920                    NTR_ VERIFICATI ON_SITE_ID  ,
  9921                    NTR_ VERIFY_MET HOD_TYPE_I D,
  9922                    VERI FICATION_D ATE             ,
  9923                    AVIA TOR_PRE195 5_IND         ,
  9924                    NAVY _SUB_TRAIN EE_PRE_196 5_IND  ,
  9925                    RECE IVED_NTR_T REATMENT_I ND     ,
  9926                    DIAG NOSED_HEAD _NECK_CANC ER_IND,
  9927                    HEAD _NECK_CANC ER_DIAGNOS IS_DT ,
  9928                    RECO RD_CREATED _BY               ,
  9929                    RECO RD_CREATED _DATE          ,
  9930                    RECO RD_MODIFIE D_BY              ,
  9931                    RECO RD_MODIFIE D_DATE         ,
  9932                    RECO RD_MODIFIE D_COUNT      ,
  9933                    TRAN SACTION_TY PE_CODE
  9934                    )
  9935                    valu es
  9936                    (
  9937                    bene ficiary_nt r_h_s.next val,
  9938                    :old .BENEFICIA RY_NTR_ID        ,
  9939                    :old .PERSON_ID                         ,
  9940                    :old .NTR_DIAGN OSIS_SITE_ ID ,
  9941                    :old .NTR_VERIF ICATION_SI TE_ID ,
  9942                    :old .NTR_VERIF Y_METHOD_T YPE_ID,
  9943                    :old .VERIFICAT ION_DATE              ,
  9944                    :old .AVIATOR_P RE1955_IND         ,
  9945                    :old .NAVY_SUB_ TRAINEE_PR E_1965_IND   ,
  9946                    :old .RECEIVED_ NTR_TREATM ENT_IND      ,
  9947                    :old .DIAGNOSED _HEAD_NECK _CANCER_IN D,
  9948                    :old .HEAD_NECK _CANCER_DI AGNOSIS_DT  ,
  9949                    :old .RECORD_CR EATED_BY                ,
  9950                    :old .RECORD_CR EATED_DATE          ,
  9951                    :old .RECORD_MO DIFIED_BY               ,
  9952                    :old .RECORD_MO DIFIED_DAT E        ,
  9953                    :old .RECORD_MO DIFIED_COU NT     ,
  9954                    'D'
  9955                    );
  9956  
  9957           el se
  9958                    if U PDATING th en
  9959                             mDML : = 'U';
  9960                    else
  9961                             mDML : = 'I';
  9962                    end  if;
  9963  
  9964                    inse rt into BE NEFICIARY_ NTR_H
  9965                    (
  9966                    BENE FICIARY_NT R_H_ID ,
  9967                    BENE FICIARY_NT R_ID        ,
  9968                    PERS ON_ID                        ,
  9969                    NTR_ DIAGNOSIS_ SITE_ID ,
  9970                    NTR_ VERIFICATI ON_SITE_ID  ,
  9971                    NTR_ VERIFY_MET HOD_TYPE_I D,
  9972                    VERI FICATION_D ATE             ,
  9973                    AVIA TOR_PRE195 5_IND         ,
  9974                    NAVY _SUB_TRAIN EE_PRE_196 5_IND  ,
  9975                    RECE IVED_NTR_T REATMENT_I ND     ,
  9976                    DIAG NOSED_HEAD _NECK_CANC ER_IND,
  9977                    HEAD _NECK_CANC ER_DIAGNOS IS_DT ,
  9978                    RECO RD_CREATED _BY               ,
  9979                    RECO RD_CREATED _DATE          ,
  9980                    RECO RD_MODIFIE D_BY              ,
  9981                    RECO RD_MODIFIE D_DATE         ,
  9982                    RECO RD_MODIFIE D_COUNT      ,
  9983                    TRAN SACTION_TY PE_CODE
  9984                    )
  9985                    valu es
  9986                    (
  9987                    bene ficiary_nt r_h_s.next val,
  9988                    :new .BENEFICIA RY_NTR_ID        ,
  9989                    :new .PERSON_ID                         ,
  9990                    :new .NTR_DIAGN OSIS_SITE_ ID ,
  9991                    :new .NTR_VERIF ICATION_SI TE_ID ,
  9992                    :new .NTR_VERIF Y_METHOD_T YPE_ID,
  9993                    :new .VERIFICAT ION_DATE              ,
  9994                    :new .AVIATOR_P RE1955_IND         ,
  9995                    :new .NAVY_SUB_ TRAINEE_PR E_1965_IND   ,
  9996                    :new .RECEIVED_ NTR_TREATM ENT_IND      ,
  9997                    :new .DIAGNOSED _HEAD_NECK _CANCER_IN D,
  9998                    :new .HEAD_NECK _CANCER_DI AGNOSIS_DT  ,
  9999                    :new .RECORD_CR EATED_BY                ,
  10000                    :new .RECORD_CR EATED_DATE          ,
  10001                    :new .RECORD_MO DIFIED_BY               ,
  10002                    :new .RECORD_MO DIFIED_DAT E        ,
  10003                    :new .RECORD_MO DIFIED_COU NT     ,
  10004                    mDML
  10005                    );
  10006  
  10007           en d if;
  10008   end BENEFI CIARY_NTR_ audir_trgr ;
  10009   /
  10010   DROP TRIGG ER ADR.BEN EFICIARY_M ST_AUDIR_T RGR;
  10011  
  10012   CREATE OR  REPLACE TR IGGER ADR. BENEFICIAR Y_MST_AUDI R_TRGR
  10013   after Upda te or Dele te or Inse rt
  10014   on ADR.BEN EFICIARY_M ST
  10015   REFERENCIN G NEW AS N EW OLD AS  OLD
  10016   for each r ow
  10017   declare
  10018           mD ML char(1) ;
  10019   begin
  10020           if  DELETING  then
  10021                    inse rt into BE NEFICIARY_ MST_H
  10022                    (
  10023                    BENE FICIARY_MS T_H_ID,
  10024                    BENE FICIARY_MS T_ID  ,
  10025                    PERS ON_ID            ,
  10026                    MST_ STATUS_TYP E_ID ,
  10027                    STD_ INSTITUTIO N_ID  ,
  10028                    MST_ EVALUATION _DATE,
  10029                    RECO RD_CREATED _BY   ,
  10030                    RECO RD_CREATED _DATE,
  10031                    RECO RD_MODIFIE D_BY  ,
  10032                    RECO RD_MODIFIE D_DATE,
  10033                    RECO RD_MODIFIE D_COUNT,
  10034                    TRAN SACTION_TY PE_CODE
  10035                    )
  10036                    valu es
  10037                    (
  10038                    bene ficiary_ms t_h_s.next val,
  10039                    :old .BENEFICIA RY_MST_ID,
  10040                    :old .PERSON_ID         ,
  10041                    :old .MST_STATU S_TYPE_ID,
  10042                    :old .STD_INSTI TUTION_ID,
  10043                    :old .MST_EVALU ATION_DATE ,
  10044                    :old .RECORD_CR EATED_BY ,
  10045                    :old .RECORD_CR EATED_DATE ,
  10046                    :old .RECORD_MO DIFIED_BY  ,
  10047                    :old .RECORD_MO DIFIED_DAT E,
  10048                    :old .RECORD_MO DIFIED_COU NT,
  10049                    'D'
  10050                    );
  10051  
  10052           el se
  10053  
  10054                    if U PDATING th en
  10055                             mDML : = 'U';
  10056                    else
  10057                             mDML : = 'I';
  10058                    end  if;
  10059  
  10060                    inse rt into BE NEFICIARY_ MST_H
  10061                    (
  10062                    BENE FICIARY_MS T_H_ID,
  10063                    BENE FICIARY_MS T_ID  ,
  10064                    PERS ON_ID            ,
  10065                    MST_ STATUS_TYP E_ID ,
  10066                    STD_ INSTITUTIO N_ID ,
  10067                    MST_ EVALUATION _DATE,
  10068                    RECO RD_CREATED _BY  ,
  10069                    RECO RD_CREATED _DATE,
  10070                    RECO RD_MODIFIE D_BY ,
  10071                    RECO RD_MODIFIE D_DATE,
  10072                    RECO RD_MODIFIE D_COUNT,
  10073                    TRAN SACTION_TY PE_CODE
  10074                    )
  10075                    valu es
  10076                    (
  10077                    bene ficiary_ms t_h_s.next val,
  10078                    :new .BENEFICIA RY_MST_ID,
  10079                    :new .PERSON_ID          ,
  10080                    :new .MST_STATU S_TYPE_ID,
  10081                    :new .STD_INSTI TUTION_ID,
  10082                    :new .MST_EVALU ATION_DATE ,
  10083                    :new .RECORD_CR EATED_BY   ,
  10084                    :new .RECORD_CR EATED_DATE ,
  10085                    :new .RECORD_MO DIFIED_BY,
  10086                    :new .RECORD_MO DIFIED_DAT E,
  10087                    :new .RECORD_MO DIFIED_COU NT,
  10088                    mDML
  10089                    );
  10090  
  10091           en d if;
  10092  
  10093   end benefi ciary_mst_ audir_trgr ;
  10094   /
  10095   DROP TRIGG ER ADR.BAT CH_REQ_PRI _GRP_AUDIR _TRGR;
  10096  
  10097   CREATE OR  REPLACE TR IGGER ADR. BATCH_REQ_ PRI_GRP_AU DIR_TRGR
  10098     AFTER DE LETE OR IN SERT OR UP DATE
  10099     ON ADR.B ATCH_REQUE ST_PRIORIT Y_GROUP  R EFERENCING   OLD AS O LD NEW AS  NEW
  10100    FOR EACH  ROW
  10101   declare
  10102          mDM L char(1);
  10103   begin
  10104       if DEL ETING then
  10105           in sert into  BATCH_REQU EST_PRIORI TY_GROUP_H
  10106           (
  10107           BA TCH_REQUES T_PRI_GRP_ H_ID,
  10108           BA TCH_REQUES T_PRIORITY _GRP_ID,
  10109       STD_EN ROLLMENTPR IORSGRP_ID ,
  10110       STD_EN ROLLMENTPR IORGRP_ID,
  10111       HANDBO OK_BATCH_R EQUEST_ID,
  10112           RE CORD_CREAT ED_BY,
  10113           RE CORD_CREAT ED_DATE,
  10114           RE CORD_MODIF IED_BY,
  10115           RE CORD_MODIF IED_DATE,
  10116           RE CORD_MODIF IED_COUNT,
  10117           HI STORY_CREA TED_DATE,
  10118           TR ANSACTION_ TYPE_CODE
  10119           )
  10120           va lues
  10121           (
  10122           BA TCH_REQUES T_PRI_GRP_ H_ID_S.nex tval,
  10123           :o ld.BATCH_R EQUEST_PRI ORITY_GRP_ ID,
  10124       :old.S TD_ENROLLM ENTPRIORSG RP_ID,
  10125       :old.S TD_ENROLLM ENTPRIORGR P_ID,
  10126       :old.H ANDBOOK_BA TCH_REQUES T_ID,
  10127           :o ld.RECORD_ CREATED_BY ,
  10128           :o ld.RECORD_ CREATED_DA TE,
  10129           :o ld.RECORD_ MODIFIED_B Y,
  10130           :o ld.RECORD_ MODIFIED_D ATE,
  10131           :o ld.RECORD_ MODIFIED_C OUNT,
  10132           SY SDATE,
  10133           'D '
  10134           );
  10135       else
  10136           if  UPDATING  then
  10137                mDML :=  'U';
  10138           el se
  10139                mDML :=  'I';
  10140           en d if;
  10141  
  10142           in sert into  BATCH_REQU EST_PRIORI TY_GROUP_H
  10143           (
  10144           BA TCH_REQUES T_PRI_GRP_ H_ID,
  10145           BA TCH_REQUES T_PRIORITY _GRP_ID,
  10146       STD_EN ROLLMENTPR IORSGRP_ID ,
  10147       STD_EN ROLLMENTPR IORGRP_ID,
  10148       HANDBO OK_BATCH_R EQUEST_ID,
  10149           RE CORD_CREAT ED_BY,
  10150           RE CORD_CREAT ED_DATE,
  10151           RE CORD_MODIF IED_BY,
  10152           RE CORD_MODIF IED_DATE,
  10153           RE CORD_MODIF IED_COUNT,
  10154           HI STORY_CREA TED_DATE,
  10155           TR ANSACTION_ TYPE_CODE
  10156           )
  10157           va lues
  10158           (
  10159           BA TCH_REQUES T_PRI_GRP_ H_ID_S.nex tval,
  10160           :n ew.BATCH_R EQUEST_PRI ORITY_GRP_ ID,
  10161       :new.S TD_ENROLLM ENTPRIORSG RP_ID,
  10162       :new.S TD_ENROLLM ENTPRIORGR P_ID,
  10163       :new.H ANDBOOK_BA TCH_REQUES T_ID,
  10164           :n ew.RECORD_ CREATED_BY ,
  10165           :n ew.RECORD_ CREATED_DA TE,
  10166           :n ew.RECORD_ MODIFIED_B Y,
  10167           :n ew.RECORD_ MODIFIED_D ATE,
  10168           :n ew.RECORD_ MODIFIED_C OUNT,
  10169           SY SDATE,
  10170           mD ML
  10171           );
  10172       end if ;
  10173  
  10174   end BATCH_ REQ_PRI_GR P_AUDIR_TR GR;
  10175   /
  10176   DROP TRIGG ER ADR.BAT CH_REQUEST _FAC_AUD_T RGR;
  10177  
  10178   CREATE OR  REPLACE TR IGGER ADR. BATCH_REQU EST_FAC_AU D_TRGR
  10179     AFTER DE LETE OR IN SERT OR UP DATE
  10180     ON ADR.B ATCH_REQUE ST_FACILIT Y  REFEREN CING  OLD  AS OLD NEW  AS NEW
  10181    FOR EACH  ROW
  10182   declare
  10183          mDM L char(1);
  10184   begin
  10185       if DEL ETING then
  10186           in sert into  BATCH_REQU EST_FACILI TY_H
  10187           (
  10188           BA TCH_REQUES T_FACILITY _H_ID,
  10189           BA TCH_REQUES T_FACILITY _ID,
  10190           HA NDBOOK_BAT CH_REQUEST _ID,
  10191           ST D_INSTITUT ION_ID,
  10192           RE CORD_CREAT ED_BY,
  10193           RE CORD_CREAT ED_DATE,
  10194           RE CORD_MODIF IED_BY,
  10195           RE CORD_MODIF IED_DATE,
  10196           RE CORD_MODIF IED_COUNT,
  10197           HI STORY_CREA TED_DATE,
  10198           TR ANSACTION_ TYPE_CODE,
  10199           PA RENT_STD_I NSTITUTION _ID
  10200           )
  10201           va lues
  10202           (
  10203           BA TCH_REQUES T_FACILITY _H_S.nextv al,
  10204           :o ld.BATCH_R EQUEST_FAC ILITY_ID,
  10205           :o ld.HANDBOO K_BATCH_RE QUEST_ID,
  10206          :ol d.STD_INST ITUTION_ID ,
  10207           :o ld.RECORD_ CREATED_BY ,
  10208           :o ld.RECORD_ CREATED_DA TE,
  10209           :o ld.RECORD_ MODIFIED_B Y,
  10210           :o ld.RECORD_ MODIFIED_D ATE,
  10211           :o ld.RECORD_ MODIFIED_C OUNT,
  10212           SY SDATE,
  10213           'D ',
  10214           :o ld.PARENT_ STD_INSTIT UTION_ID
  10215           );
  10216       else
  10217           if  UPDATING  then
  10218                mDML :=  'U';
  10219           el se
  10220                mDML :=  'I';
  10221           en d if;
  10222  
  10223           in sert into  BATCH_REQU EST_FACILI TY_H
  10224           (
  10225           BA TCH_REQUES T_FACILITY _H_ID,
  10226           BA TCH_REQUES T_FACILITY _ID,
  10227       HANDBO OK_BATCH_R EQUEST_ID,
  10228       STD_IN STITUTION_ ID,
  10229           RE CORD_CREAT ED_BY,
  10230           RE CORD_CREAT ED_DATE,
  10231           RE CORD_MODIF IED_BY,
  10232           RE CORD_MODIF IED_DATE,
  10233           RE CORD_MODIF IED_COUNT,
  10234           HI STORY_CREA TED_DATE,
  10235           TR ANSACTION_ TYPE_CODE,
  10236           PA RENT_STD_I NSTITUTION _ID
  10237           )
  10238           va lues
  10239           (
  10240           BA TCH_REQUES T_FACILITY _H_S.nextv al,
  10241           :n ew.BATCH_R EQUEST_FAC ILITY_ID,
  10242       :new.H ANDBOOK_BA TCH_REQUES T_ID,
  10243       :new.S TD_INSTITU TION_ID,
  10244           :n ew.RECORD_ CREATED_BY ,
  10245           :n ew.RECORD_ CREATED_DA TE,
  10246           :n ew.RECORD_ MODIFIED_B Y,
  10247           :n ew.RECORD_ MODIFIED_D ATE,
  10248           :n ew.RECORD_ MODIFIED_C OUNT,
  10249           SY SDATE,
  10250           mD ML,
  10251           :n ew.PARENT_ STD_INSTIT UTION_ID
  10252           );
  10253       end if ;
  10254  
  10255   end BATCH_ REQUEST_FA C_AUD_TRGR ;
  10256   /
  10257   DROP TRIGG ER ADR.ADD R_CONF_DTL _AUDIR_TRG R;
  10258  
  10259   CREATE OR  REPLACE TR IGGER ADR. ADDR_CONF_ DTL_AUDIR_ TRGR
  10260   after Upda te or Dele te or Inse rt
  10261   ON ADR.ADD R_CONFIDEN TIAL_DTL
  10262   for each r ow
  10263   declare
  10264           mD ML char(1) ;
  10265   begin
  10266  
  10267           if  DELETING  then
  10268                    inse rt into AD DR_CONFIDE NTIAL_DTL_ H
  10269                    (
  10270                    ADDR _CONFIDENT IAL_DTL_H_ ID,
  10271                    ADDR _CONFIDENT IAL_DTL_ID ,
  10272                    ADDR ESS_ID,
  10273                    STD_ CONFIDENTI ALADDRESSC AT_ID,
  10274                    RECO RD_CREATED _BY,
  10275                    RECO RD_CREATED _DATE,
  10276                    RECO RD_MODIFIE D_BY ,
  10277                    RECO RD_MODIFIE D_DATE,
  10278                    RECO RD_MODIFIE D_COUNT,
  10279                    TRAN SACTION_TY PE_CODE
  10280                    )
  10281                    valu es
  10282                    (
  10283                    ADDR _CONFIDENT IAL_DTL_H_ s.nextval,
  10284                    :old .ADDR_CONF IDENTIAL_D TL_ID,
  10285                    :old .ADDRESS_I D,
  10286                    :old .STD_CONFI DENTIALADD RESSCAT_ID ,
  10287                    :old .RECORD_CR EATED_BY,
  10288                    :old .RECORD_CR EATED_DATE ,
  10289                    :old .RECORD_MO DIFIED_BY  ,
  10290                    :old .RECORD_MO DIFIED_DAT E,
  10291                    :old .RECORD_MO DIFIED_COU NT,
  10292                    'D'
  10293                    );
  10294           el se
  10295                    if U PDATING th en
  10296                             mDML : = 'U';
  10297                    else
  10298                             mDML : = 'I';
  10299                    end  if;
  10300                    inse rt into AD DR_CONFIDE NTIAL_DTL_ H
  10301                    (
  10302                    ADDR _CONFIDENT IAL_DTL_H_ ID,
  10303                    ADDR _CONFIDENT IAL_DTL_ID ,
  10304                    ADDR ESS_ID,
  10305                    STD_ CONFIDENTI ALADDRESSC AT_ID,
  10306                    RECO RD_CREATED _BY,
  10307                    RECO RD_CREATED _DATE,
  10308                    RECO RD_MODIFIE D_BY ,
  10309                    RECO RD_MODIFIE D_DATE,
  10310                    RECO RD_MODIFIE D_COUNT,
  10311                    TRAN SACTION_TY PE_CODE
  10312                    )
  10313                    valu es
  10314                    (
  10315                    ADDR _CONFIDENT IAL_DTL_H_ s.nextval,
  10316                    :new .ADDR_CONF IDENTIAL_D TL_ID,
  10317                    :new .ADDRESS_I D,
  10318                    :new .STD_CONFI DENTIALADD RESSCAT_ID ,
  10319                    :new .RECORD_CR EATED_BY,
  10320                    :new .RECORD_CR EATED_DATE ,
  10321                    :new .RECORD_MO DIFIED_BY  ,
  10322                    :new .RECORD_MO DIFIED_DAT E,
  10323                    :new .RECORD_MO DIFIED_COU NT,
  10324                    mDML
  10325                    );
  10326           en d if;
  10327  
  10328   end ADDR_C ONF_DTL_au dir_trgr;
  10329   /
  10330   DROP TRIGG ER ADR.ADD RESS_AUDIR _TRGR;
  10331  
  10332   CREATE OR  REPLACE TR IGGER ADR. ADDRESS_AU DIR_TRGR A FTER UPDAT E OR INSER T OR DELET E ON ADR.A DDRESS FOR  EACH ROW
  10333   declare
  10334       mDML c har(1);
  10335   begin
  10336  
  10337     if DELET ING then
  10338       insert  into ADDR ESS_H
  10339       (
  10340       ADDRES S_H_ID,
  10341       ADDRES S_ID  ,
  10342       PERSON _ID   ,
  10343       INSURA NCE_ID,
  10344       STD_AD DRESSTYPE_ ID,
  10345       ADDRES S_CHANGE_S RC_TYPE_ID ,
  10346       STD_IN STITUTION_ ID         ,
  10347       ADDRES S_INVALID_ TYPE_ID    ,
  10348       NCOA_S TATUS_TYPE _ID        ,
  10349       NCOA_D ELIVERY_TY PE_ID      ,
  10350       NCOA_Z IP_MATCH_T YPE_ID     ,
  10351       ADDRES S_LINE1               ,
  10352       ADDRES S_LINE2               ,
  10353       ADDRES S_LINE3               ,
  10354       CITY                         ,
  10355       STATE_ CODE                  ,
  10356       COUNTY _CODE                 ,
  10357       PROVIN CE_CODE               ,
  10358       POSTAL _CODE                 ,
  10359       ZIP_PL US_4                  ,
  10360       COUNTR Y_CODE                ,
  10361       ADDRES S_CHANGE_E FFECTIVE_D ATE,
  10362       ADDRES S_INVALIDA TED_DATE   ,
  10363       NCOA_A DDRESS_CHE CK_DATE    ,
  10364       ADDRES S_START_DA TE_TXT   ,
  10365       ADDRES S_END_DATE _TXT     ,
  10366       RECORD _CREATED_B Y          ,
  10367       RECORD _CREATED_D ATE        ,
  10368       RECORD _MODIFIED_ BY         ,
  10369       RECORD _MODIFIED_ DATE       ,
  10370       RECORD _MODIFIED_ COUNT      ,
  10371       ADDRES S_PHONE_NU MBER,
  10372       ZIP_CO DE                    ,
  10373       NCOA_Z IP_NO_MATC H_TYPE_ID  ,
  10374       RECORD _MODIFIED_ SRC_NAME,
  10375       PERSON _RELATION_ ID,
  10376       CASSCE RTIFIEDTYP E_ID,
  10377       CASS_C ERTIFIED_D ATE,
  10378       purpos e_of_use_t ype_id,
  10379       TRANSA CTION_TYPE _CODE
  10380       )
  10381       values
  10382       (
  10383       ADDRES S_h_s.next val,
  10384       :old.A DDRESS_ID   ,
  10385       :old.P ERSON_ID    ,
  10386       :old.I NSURANCE_I D,
  10387       :old.S TD_ADDRESS TYPE_ID,
  10388       :old.A DDRESS_CHA NGE_SRC_TY PE_ID,
  10389       :old.S TD_INSTITU TION_ID         ,
  10390       :old.A DDRESS_INV ALID_TYPE_ ID   ,
  10391       :old.N COA_STATUS _TYPE_ID        ,
  10392       :old.N COA_DELIVE RY_TYPE_ID      ,
  10393       :old.N COA_ZIP_MA TCH_TYPE_I D    ,
  10394       :old.A DDRESS_LIN E1              ,
  10395       :old.A DDRESS_LIN E2              ,
  10396       :old.A DDRESS_LIN E3              ,
  10397       :old.C ITY                        ,
  10398       :old.S TATE_CODE                  ,
  10399       :old.C OUNTY_CODE                 ,
  10400       :old.P ROVINCE_CO DE              ,
  10401       :old.P OSTAL_CODE                 ,
  10402       :old.Z IP_PLUS_4                  ,
  10403       :old.C OUNTRY_COD E               ,
  10404       :old.A DDRESS_CHA NGE_EFFECT IVE_DATE,
  10405       :old.A DDRESS_INV ALIDATED_D ATE  ,
  10406       :old.N COA_ADDRES S_CHECK_DA TE   ,
  10407       :old.A DDRESS_STA RT_DATE_TX T   ,
  10408       :old.A DDRESS_END _DATE_TXT      ,
  10409       :old.R ECORD_CREA TED_BY          ,
  10410       :old.R ECORD_CREA TED_DATE        ,
  10411       :old.R ECORD_MODI FIED_BY         ,
  10412       :old.R ECORD_MODI FIED_DATE       ,
  10413       :old.R ECORD_MODI FIED_COUNT      ,
  10414       :old.A DDRESS_PHO NE_NUMBER,
  10415       :old.Z IP_CODE                    ,
  10416       :old.N COA_ZIP_NO _MATCH_TYP E_ID ,
  10417       :old.R ECORD_MODI FIED_SRC_N AME,
  10418       :old.P ERSON_RELA TION_ID,
  10419       :old.C ASSCERTIFI EDTYPE_ID,
  10420       :old.C ASS_CERTIF IED_DATE,
  10421       :old.p urpose_of_ use_type_i d,
  10422       'D'
  10423       );
  10424     else
  10425       if UPD ATING then
  10426         mDML  := 'U';
  10427       else
  10428         mDML  := 'I';
  10429       end if ;
  10430  
  10431       insert  into ADDR ESS_H
  10432       (
  10433       ADDRES S_H_ID,
  10434       ADDRES S_ID  ,
  10435       PERSON _ID   ,
  10436       INSURA NCE_ID,
  10437       STD_AD DRESSTYPE_ ID,
  10438       ADDRES S_CHANGE_S RC_TYPE_ID ,
  10439       STD_IN STITUTION_ ID         ,
  10440       ADDRES S_INVALID_ TYPE_ID    ,
  10441       NCOA_S TATUS_TYPE _ID        ,
  10442       NCOA_D ELIVERY_TY PE_ID      ,
  10443       NCOA_Z IP_MATCH_T YPE_ID     ,
  10444       ADDRES S_LINE1               ,
  10445       ADDRES S_LINE2               ,
  10446       ADDRES S_LINE3               ,
  10447       CITY                         ,
  10448       STATE_ CODE                  ,
  10449       COUNTY _CODE                 ,
  10450       PROVIN CE_CODE               ,
  10451       POSTAL _CODE                 ,
  10452       ZIP_PL US_4                  ,
  10453       COUNTR Y_CODE                ,
  10454       ADDRES S_CHANGE_E FFECTIVE_D ATE,
  10455       ADDRES S_INVALIDA TED_DATE   ,
  10456       NCOA_A DDRESS_CHE CK_DATE    ,
  10457       ADDRES S_START_DA TE_TXT   ,
  10458       ADDRES S_END_DATE _TXT     ,
  10459       RECORD _CREATED_B Y          ,
  10460       RECORD _CREATED_D ATE        ,
  10461       RECORD _MODIFIED_ BY         ,
  10462       RECORD _MODIFIED_ DATE       ,
  10463       RECORD _MODIFIED_ COUNT      ,
  10464       ADDRES S_PHONE_NU MBER,
  10465       ZIP_CO DE                    ,
  10466       NCOA_Z IP_NO_MATC H_TYPE_ID  ,
  10467       RECORD _MODIFIED_ SRC_NAME,
  10468       PERSON _RELATION_ ID,
  10469       CASSCE RTIFIEDTYP E_ID,
  10470       CASS_C ERTIFIED_D ATE,
  10471       purpos e_of_use_t ype_id,
  10472       TRANSA CTION_TYPE _CODE
  10473       )
  10474       values
  10475       (
  10476       ADDRES S_h_s.next val,
  10477       :new.A DDRESS_ID   ,
  10478       :new.P ERSON_ID    ,
  10479       :new.I NSURANCE_I D,
  10480       :new.S TD_ADDRESS TYPE_ID,
  10481       :new.A DDRESS_CHA NGE_SRC_TY PE_ID,
  10482       :new.S TD_INSTITU TION_ID         ,
  10483       :new.A DDRESS_INV ALID_TYPE_ ID   ,
  10484       :new.N COA_STATUS _TYPE_ID        ,
  10485       :new.N COA_DELIVE RY_TYPE_ID      ,
  10486       :new.N COA_ZIP_MA TCH_TYPE_I D    ,
  10487       :new.A DDRESS_LIN E1              ,
  10488       :new.A DDRESS_LIN E2              ,
  10489       :new.A DDRESS_LIN E3              ,
  10490       :new.C ITY                        ,
  10491       :new.S TATE_CODE                  ,
  10492       :new.C OUNTY_CODE                 ,
  10493       :new.P ROVINCE_CO DE              ,
  10494       :new.P OSTAL_CODE                 ,
  10495       :new.Z IP_PLUS_4                  ,
  10496       :new.C OUNTRY_COD E               ,
  10497       :new.A DDRESS_CHA NGE_EFFECT IVE_DATE,
  10498       :new.A DDRESS_INV ALIDATED_D ATE  ,
  10499       :new.N COA_ADDRES S_CHECK_DA TE   ,
  10500       :new.A DDRESS_STA RT_DATE_TX T   ,
  10501       :new.A DDRESS_END _DATE_TXT      ,
  10502       :new.R ECORD_CREA TED_BY          ,
  10503       :new.R ECORD_CREA TED_DATE        ,
  10504       :new.R ECORD_MODI FIED_BY         ,
  10505       :new.R ECORD_MODI FIED_DATE       ,
  10506       :new.R ECORD_MODI FIED_COUNT      ,
  10507       :new.A DDRESS_PHO NE_NUMBER,
  10508       :new.Z IP_CODE                    ,
  10509       :new.N COA_ZIP_NO _MATCH_TYP E_ID ,
  10510       :new.R ECORD_MODI FIED_SRC_N AME,
  10511       :new.P ERSON_RELA TION_ID,
  10512       :new.C ASSCERTIFI EDTYPE_ID,
  10513       :new.C ASS_CERTIF IED_DATE,
  10514       :new.p urpose_of_ use_type_i d,
  10515       mDML
  10516       );
  10517     end if;
  10518  
  10519   end ADDRES S_audir_tr gr;
  10520   /
  10521   DROP TRIGG ER ADR.ACT IVEAGG_TRA CKER_BUR_T RGR;
  10522  
  10523   CREATE OR  REPLACE TR IGGER ADR. ACTIVEAGG_ TRACKER_BU R_TRGR
  10524      BEFORE  UPDATE
  10525      ON ADR. ACTIVEAGG_ TRACKER
  10526      REFEREN CING NEW A S New OLD  AS Old
  10527      FOR EAC H ROW
  10528   DECLARE
  10529   BEGIN
  10530  
  10531      :new.RE CORD_MODIF IED_TS :=  SYSDATE;
  10532   EXCEPTION
  10533      WHEN OT HERS
  10534      THEN
  10535         DBMS _OUTPUT.pu t_line (SU BSTR (   D BMS_UTILIT Y.FORMAT_C ALL_STACK
  10536                                          || D BMS_UTILIT Y.format_e rror_stack
  10537                                          || D BMS_UTILIT Y.format_e rror_backt race,
  10538                                          1,
  10539                                          2000 ));
  10540   END ACTIVE AGG_TRACKE R_BUR_TRGR ;
  10541   /
  10542   DROP TRIGG ER ADR.ACT IVATION_AU DIR_TRGR;
  10543  
  10544   CREATE OR  REPLACE TR IGGER ADR. ACTIVATION _AUDIR_TRG R
  10545     AFTER DE LETE OR IN SERT OR UP DATE
  10546     ON ADR.A CTIVATION
  10547    REFERENCI NG  OLD AS  OLD NEW A S NEW
  10548    FOR EACH  ROW
  10549   declare
  10550          mDM L char(1);
  10551   begin
  10552  
  10553       if DEL ETING then
  10554           in sert into  ACTIVATION _H
  10555           (
  10556           AC TIVATION_H _ID,
  10557           AC TIVATION_I D,
  10558           PE RSON_ID,
  10559           ST D_MHDATASO URCE_ID,
  10560           ST D_NAMEDCON TINGENCY_I D,
  10561           ST D_TERMINAT IONREASON_ ID,
  10562           ST D_SPECIALO PERATION_I D,
  10563           AC TIVATION_B EGIN_DATE,
  10564           AC TIVATION_E ND_DATE,
  10565           RE CORD_CREAT ED_BY,
  10566           RE CORD_CREAT ED_DATE,
  10567           RE CORD_MODIF IED_BY,
  10568           RE CORD_MODIF IED_DATE,
  10569           RE CORD_MODIF IED_COUNT,
  10570           HI STORY_CREA TED_DATE,
  10571           TR ANSACTION_ TYPE_CODE
  10572           )
  10573           va lues
  10574           (
  10575           AC TIVATION_H _S.nextval ,
  10576           :o ld.ACTIVAT ION_ID,
  10577           :o ld.PERSON_ ID,
  10578           :o ld.STD_MHD ATASOURCE_ ID,
  10579           :o ld.STD_NAM EDCONTINGE NCY_ID,
  10580           :o ld.STD_TER MINATIONRE ASON_ID,
  10581           :o ld.STD_SPE CIALOPERAT ION_ID,
  10582           :o ld.ACTIVAT ION_BEGIN_ DATE,
  10583           :o ld.ACTIVAT ION_END_DA TE,
  10584           :o ld.RECORD_ CREATED_BY ,
  10585           :o ld.RECORD_ CREATED_DA TE,
  10586           :o ld.RECORD_ MODIFIED_B Y,
  10587           :o ld.RECORD_ MODIFIED_D ATE,
  10588           :o ld.RECORD_ MODIFIED_C OUNT,
  10589           SY SDATE,
  10590           'D '
  10591           );
  10592       else
  10593           if  UPDATING  then
  10594                mDML :=  'U';
  10595           el se
  10596                mDML :=  'I';
  10597           en d if;
  10598  
  10599           in sert into  ACTIVATION _H
  10600           (
  10601           AC TIVATION_H _ID,
  10602           AC TIVATION_I D,
  10603           PE RSON_ID,
  10604           ST D_MHDATASO URCE_ID,
  10605           ST D_NAMEDCON TINGENCY_I D,
  10606           ST D_TERMINAT IONREASON_ ID,
  10607           ST D_SPECIALO PERATION_I D,
  10608           AC TIVATION_B EGIN_DATE,
  10609           AC TIVATION_E ND_DATE,
  10610           RE CORD_CREAT ED_BY,
  10611           RE CORD_CREAT ED_DATE,
  10612           RE CORD_MODIF IED_BY,
  10613           RE CORD_MODIF IED_DATE,
  10614           RE CORD_MODIF IED_COUNT,
  10615           HI STORY_CREA TED_DATE,
  10616           TR ANSACTION_ TYPE_CODE
  10617           )
  10618           va lues
  10619           (
  10620           AC TIVATION_H _S.nextval ,
  10621           :n ew.ACTIVAT ION_ID,
  10622           :n ew.PERSON_ ID,
  10623           :n ew.STD_MHD ATASOURCE_ ID,
  10624           :n ew.STD_NAM EDCONTINGE NCY_ID,
  10625           :n ew.STD_TER MINATIONRE ASON_ID,
  10626           :n ew.STD_SPE CIALOPERAT ION_ID,
  10627           :n ew.ACTIVAT ION_BEGIN_ DATE,
  10628           :n ew.ACTIVAT ION_END_DA TE,
  10629           :n ew.RECORD_ CREATED_BY ,
  10630           :n ew.RECORD_ CREATED_DA TE,
  10631           :n ew.RECORD_ MODIFIED_B Y,
  10632           :n ew.RECORD_ MODIFIED_D ATE,
  10633           :n ew.RECORD_ MODIFIED_C OUNT,
  10634           SY SDATE,
  10635           mD ML
  10636           );
  10637       end if ;
  10638  
  10639   end ACTIVA TION_audir _trgr;
  10640   /