rpardee

<#

Automates the handbrake CLI (such as it exists) so I can sic this script on a
whole dir of mkvs and have them trimmed down, but with subtitles

The raw command that works:

  flatpak run --command=HandBrakeCLI fr.handbrake.ghb `
  --input '../The Good Place S02E04.mkv' `
  --output 'The Good Place S0204.mkv' `

rpardee

var outcomes_health ;

function filter_down(indata) {
  const cols = indata.columns;
  let values = {};
  indata.columns.forEach(col => (values[col] = d3.map(indata, d => d[col]).keys()));
  outcomes_health = values['health_outcomes'] ;
}

async function get_values() {

rpardee

* Translate service centers to facility codes.  Translations change over time. ;
data svc_facs ;
  input
    @1   svcctr         $char3.
    @7   ctreffdt       date9.
    @19  ctrtrmdt       date9.
    @31  facility_code  $char3.
  ;
  format ctr: mmddyy10. ;
datalines ;

rpardee

* Gimme 10 records of a random var. ;
data fake_data ;
  do cnt = 1 to 10 ;
    randy = uniform(7376) ;
    output ;
  end ;
  keep randy ;
run ;

proc sort data = fake_data ;

rpardee

screen mode id:i:2
use multimon:i:0
desktopwidth:i:1600
desktopheight:i:1200
session bpp:i:32
winposstr:s:0,1,0,0,1538,718
compression:i:1
keyboardhook:i:2
audiocapturemode:i:0
videoplaybackmode:i:1

rpardee

proc format ;
  value $sx
    "F" = "Girls"
    "M" = "Boys"
  ;
  value ag
    low - 12 = '12 and under'
    13 - high = '13 and up'
  ;
quit ;

rpardee

require "win32ole"

=begin

Parsing strategy for unrolling the lists.
  lists are either CPTs or LOINCs
  CPTs are \d{5}.
  Loincs are \d{4,5}-\d

  Particular, problematic list is:

rpardee

* Write db commands to the log. ;
options
  fullstimer
  sastrace    = ',,,d'
  sastraceloc = saslog
;

%let my_server = EDW_PROD1 ;
%let my_schema = SB_GHRI ;

rpardee

/*********************************************
* Roy Pardee
* Group Health Research Institute
* (206) 287-2078
* pardee.r@ghc.org
*
* C:\Users/pardre1/Desktop/deleteme.sas
*
*
*********************************************/

rpardee

%macro limited_freq(inset = s.car_adm_f, var = , rowlim = 10) ;
  proc sql outobs = &rowlim nowarn ;
    create table topn as
    select &var, count(*) as frq
    from &inset
    group by &var
    order by 2 desc
    ;
  quit ;