Hi All, I am new to SAS AML but I do have basic understanding of BASE SAS ,SAS MACRO and SAS DI/BI. Can somebody explain me how is scenario code SAS10006 will execute code is given below ? from where it will pick up values of variables like p10006_begin_date,run_scenario_init,n ,date_key array,account_type_desc{i}. /*============================================================================== | SAS SCENARIO FILE | | PRODUCT: SAS Anti-Money Laundering | SYSTEM: UNIX/WINDOWS ================================================================================ | NAME: | SAS10006 | | | CATEGORY: | Cash Activity | | | SEVERITY: | Scenario | | | FREQUENCY: | Daily | | | DURATION: | 5 days | | | SUBJECT: | Customer | | | PREP FILE: | PARTY_TRANSACTIONS | | | HEADER FILE: | party_header | | | TRIGGER: | Yes | | | DAYS CONSIDERED: | Business ================================================================================ SHORT DESCRIPTION ----------------- Large Total Cash Transactions DESCRIPTION ----------- A customer's total amount of cash transactions exceeds a threshold over several days. BUSINESS NOTES -------------- This scenario calculates the sum of a customer's cash credit and cash debit transactions over a specified time period. If the total amount of the cash transactions is greater than or equal to the specified threshold, a match is found. This scenario considers both credit and debit cash transactions based on business days. Related scenarios SAS10007 only considers cash deposits and SAS10020 allows for examining multiple transaction types. TECHNICAL NOTES --------------- Not Applicable MESSAGE ------- r10006_threshold_message = %str("Total Cash Transactions = #$ #1; Business Day Count = #2"); SAMPLE MESSAGE -------------- Total Cash Transactions = USD 20,708; Business Day Count = 5 ================================================================================ PARAMETERS Name Type Default Value ---------------------------------|-------------------|-------------------------- p10006_account_type_desc | Character List | 'P' p10006_cdi_indicator | Character List | 'C','D' p10006_currency_acct | Character List | 'N' p10006_num_days | Numeric Constant | 5 p10006_pri_medium_desc | Character List | 'CASH' p10006_status_desc | Character List | 'SUCCESS' p10006_trans_limit | Numeric Constant | 10000 p10006_trans_today | Numeric Constant | 2000 p10006_trans_total | Numeric Constant | 20000 Descriptions ------------ - p10006_account_type_desc List denoting valid types of accounts - p10006_cdi_indicator List denoting credit and debit activities - p10006_currency_acct List denoting non-exempt accounts - p10006_num_days Number of business days in interval - p10006_pri_medium_desc List denoting currency activities - p10006_status_desc List denoting completed transactions - p10006_trans_limit Maximum single amount of a valid transaction in interval - p10006_trans_today Minimum aggregate amount of valid transactions on the current day - p10006_trans_total Minimum aggregate amount of valid credits ================================================================================ ================================================================================ Copyright (c) 2012 by SAS Institute Inc., Cary, NC 27513 USA - All rights reserved ==============================================================================*/ /*---------------------------------------------------------------------------- NOTE:> The statement below required for triggering transaction processing ------------------------------------------------------------------------------*/ %let this_macro_name = &sysmacroname; /* save this macro name */ /*----------------------------------------------------------------------------*/ retain p10006_begin_date; format p10006_day_list $512.; /* This init section should be placed before any goto statements. This section of code will only be run when processing the first BY group of the prep data set. Any goto statements placed before it may prevent the init code from being run. */ if run_scenario_init eq 1 then do; p10006_begin_date = input(put(rundate_number-&p10006_num_days+1,num_to_date.),8.); end; /* Skip parties that do not have transactions on the current day */ if date_key{n} < rundate then goto &sysmacroname.; p10006_day_list = ' '; p10006_day_count = 0; p10006_todays_total = 0; p10006_total_amount = 0; do i = n to 1 by -1 until(date_key{i} < p10006_begin_date); if p10006_begin_date <= date_key{i} <= rundate then do; if upcase(account_type_desc{i}) in (&p10006_account_type_desc) and upcase(currency_based_account_ind{i}) in (&p10006_currency_acct) and upcase(primary_medium_desc{i}) in (&p10006_pri_medium_desc) and upcase(transaction_cdi_code{i}) in (&p10006_cdi_indicator) and upcase(status_desc{i}) in (&p10006_status_desc) then do; if currency_amount{i} gt &p10006_trans_limit then goto &sysmacroname.; %save_transaction_key (calling_macro=&this_macro_name); p10006_total_amount = sum(p10006_total_amount,currency_amount{i}); repeat = indexw(p10006_day_list,strip(put(date_key{i},8.))); if repeat eq 0 and not missing(date_key{i}) then do; p10006_day_list = catx(' ',p10006_day_list,put(date_key{i},8.)); p10006_day_count + 1; end; if date_key{i} = rundate then p10006_todays_total = sum(p10006_todays_total,currency_amount{i}); end; end; end; /* Compare party values to parameters for a match */ if p10006_todays_total ge &p10006_trans_today and p10006_total_amount ge &p10006_trans_total then do; actual_values_text = tranwrd(&r10006_threshold_message,'#1',strip(put(p10006_total_amount,nlnum32.)) ); actual_values_text = tranwrd(actual_values_text,'#2',strip(put(p10006_day_count,nlnum32.)) ); actual_values_text = tranwrd(actual_values_text,'#$', "¤cy_code" ); output &alert_fname; end; /* EXIT */ &sysmacroname.:; /* ========================================================================== */ /* END SCENARIO - SAS10006 */ /* ========================================================================== */
... View more
