From 96e8b096c5f1e83b995e5ef7103cd92e3bc0e1ee Mon Sep 17 00:00:00 2001 From: ^ Date: Mon, 29 Apr 2024 23:40:49 +0100 Subject: [PATCH] fix: addressing bug with non-unique PK for reverting multiple loads at once in mp_stripdiffs.sas --- all.sas | 6 +++--- base/mp_stripdiffs.sas | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/all.sas b/all.sas index ccb3b8c..618dbfb 100644 --- a/all.sas +++ b/all.sas @@ -13505,7 +13505,7 @@ run; %let ds3=%upcase(work.%mf_getuniquename(prefix=mpsd_keychar)); proc transpose data=&ds2(where=(tgtvar_type='C')) out=&ds3(drop=_name_); - by KEY_HASH; + by KEY_HASH PROCESSED_DTTM; id TGTVAR_NM; var charval; run; @@ -13513,7 +13513,7 @@ run; %let ds4=%upcase(work.%mf_getuniquename(prefix=mpsd_keynum)); proc transpose data=&ds2(where=(tgtvar_type='N')) out=&ds4(drop=_name_); - by KEY_HASH; + by KEY_HASH PROCESSED_DTTM; id TGTVAR_NM; var numval; run; @@ -13523,7 +13523,7 @@ run; %let ds5=%upcase(work.%mf_getuniquename(prefix=mpsd_merged)); data &ds5; - length key_hash $32; + length key_hash $32 processed_dttm 8; merge &ds3 &ds4; by key_hash; if not missing(key_hash); diff --git a/base/mp_stripdiffs.sas b/base/mp_stripdiffs.sas index 530701a..7be1fbb 100644 --- a/base/mp_stripdiffs.sas +++ b/base/mp_stripdiffs.sas @@ -120,7 +120,7 @@ run; %let ds3=%upcase(work.%mf_getuniquename(prefix=mpsd_keychar)); proc transpose data=&ds2(where=(tgtvar_type='C')) out=&ds3(drop=_name_); - by KEY_HASH; + by KEY_HASH PROCESSED_DTTM; id TGTVAR_NM; var charval; run; @@ -128,7 +128,7 @@ run; %let ds4=%upcase(work.%mf_getuniquename(prefix=mpsd_keynum)); proc transpose data=&ds2(where=(tgtvar_type='N')) out=&ds4(drop=_name_); - by KEY_HASH; + by KEY_HASH PROCESSED_DTTM; id TGTVAR_NM; var numval; run; @@ -138,7 +138,7 @@ run; %let ds5=%upcase(work.%mf_getuniquename(prefix=mpsd_merged)); data &ds5; - length key_hash $32; + length key_hash $32 processed_dttm 8; merge &ds3 &ds4; by key_hash; if not missing(key_hash);