From c176f089384d8ebef3c02d8d23d9673444c3b88f Mon Sep 17 00:00:00 2001 From: Andrew Bruce Date: Thu, 8 Feb 2024 18:25:10 -0800 Subject: [PATCH] updated `definitions` pin --- R/definitions.R | 122 +++++++++++------- R/pcs.R | 7 +- data-raw/definitions.R | 54 ++++++++ man/definitions.Rd | 7 +- man/devices.Rd | 4 +- man/includes.Rd | 7 +- man/index.Rd | 4 +- man/order.Rd | 9 +- pkgdown/assets/pins-board/_pins.yaml | 2 +- .../20240130T213811Z-131c7/data.txt | 10 -- .../20240130T213811Z-131c7/definitions.qs | Bin 13425 -> 0 bytes .../20240209T022033Z-01071/data.txt | 10 ++ .../20240209T022033Z-01071/definitions.qs | Bin 0 -> 13783 bytes 13 files changed, 166 insertions(+), 70 deletions(-) delete mode 100644 pkgdown/assets/pins-board/definitions/20240130T213811Z-131c7/data.txt delete mode 100644 pkgdown/assets/pins-board/definitions/20240130T213811Z-131c7/definitions.qs create mode 100644 pkgdown/assets/pins-board/definitions/20240209T022033Z-01071/data.txt create mode 100644 pkgdown/assets/pins-board/definitions/20240209T022033Z-01071/definitions.qs diff --git a/R/definitions.R b/R/definitions.R index d7db0c3..8784109 100644 --- a/R/definitions.R +++ b/R/definitions.R @@ -14,11 +14,13 @@ #' @export definitions <- function(section = NULL, axis = NULL, - col = "label", + col = c("label", "name", "definition", "explanation"), search = NULL) { def <- pins::pin_read(mount_board(), "definitions") + col <- match.arg(col) + if (!is.null(section)) { if (is.numeric(section)) section <- as.character(section) if (grepl("[[:lower:]]*", section)) section <- toupper(section) @@ -32,8 +34,9 @@ definitions <- function(section = NULL, def <- vctrs::vec_slice(def, def$axis == axis) } - def <- search %nn% srchcol(def, col = col, search = search, ignore = TRUE) - + if (!is.null(search)) { + def <- srchcol(def, col = col, search = search, ignore = TRUE) + } return(def) } @@ -48,11 +51,13 @@ definitions <- function(section = NULL, #' @export includes <- function(section = NULL, axis = NULL, - col = "label", + col = c("label", "name", "includes"), search = NULL) { includes <- pins::pin_read(mount_board(), "includes") + col <- match.arg(col) + if (!is.null(section)) { if (is.numeric(section)) section <- as.character(section) if (grepl("[[:lower:]]*", section)) section <- toupper(section) @@ -68,14 +73,14 @@ includes <- function(section = NULL, includes <- vctrs::vec_slice(includes, includes$axis == axis) } - if (!is.null(search)) includes <- srchcol(includes, col = col, search = search, ignore = TRUE) - # includes <- search %nn% srchcol(includes, col = col, search = search, ignore = TRUE) - + if (!is.null(search)) { + includes <- srchcol(includes, col = col, search = search, ignore = TRUE) + } return(includes) } #' ICD-10-PCS Index -#' @param col column to search: "term" (default), "verb", "value", "code" +#' @param col column to search: "term" (default), "index", "type", "value", "code" #' @param search string to search for in `col` #' @return a [dplyr::tibble()] #' @examplesIf interactive() @@ -87,7 +92,7 @@ includes <- function(section = NULL, #' #' @export index <- function(search = NULL, - col = "term") { + col = c("term", "index", "type", "value", "code")) { ind <- pins::pin_read(mount_board(), "index_v2") |> tidyr::unite("term", term, subterm, sep = ", ", na.rm = TRUE) |> @@ -96,48 +101,43 @@ index <- function(search = NULL, type = verb) |> dplyr::select(-term_id) - includes <- search %nn% srchcol(includes, col = col, search = search, ignore = TRUE) + col <- match.arg(col) + + if (!is.null(search)) { + + ind <- srchcol(ind, col = col, search = search, ignore = TRUE) + } return(ind) } -#' ICD-10-PCS Devices -#' @param system PCS system character. -#' @param operation PCS operation character. -#' @param device PCS device character. -#' @param col column to search: "device_name" (default), "includes" +#' ICD-10-PCS Order File +#' @param col column to search: "code" (default), "table", "row", "description_code", "description_table", "order" #' @param search string to search for in `col` #' @return a [dplyr::tibble()] #' @examplesIf interactive() -#' devices() +#' order(search = "00X") +#' +#' order(search = "Olfactory", col = "description_code") +#' #' @export -devices <- function(system = NULL, - operation = NULL, - device = NULL, - col = "device_name", - search = NULL) { - - dev <- pins::pin_read(mount_board(), "devices") +order <- function(search = NULL, col = c("code", + "table", + "row", + "description_code", + "description_table", + "order")) { - if (!is.null(system)) { - system <- rlang::arg_match(system, c(2:6, 8:9, "B", "C", "D", "J", "P", "Q", "R", "S", "U")) - dev <- vctrs::vec_slice(dev, dev$system == system) - } + tbl <- pins::pin_read(mount_board(), "tables_order") - if (!is.null(operation)) { - operation <- rlang::arg_match(operation, c("All applicable", "H", "R", "S", "V")) - dev <- vctrs::vec_slice(dev, dev$operation == operation) - } + col <- match.arg(col) - if (!is.null(device)) { - if (is.numeric(device)) device <- as.character(device) - device <- rlang::arg_match(device, c(2, 4:7, "D", "J", "M", "P", "S")) - dev <- vctrs::vec_slice(dev, dev$device == device) - } + if (!is.null(search)) { - dev <- search %nn% srchcol(dev, col = col, search = search, ignore = TRUE) + tbl <- srchcol(tbl, col = col, search = search, ignore = TRUE) - return(dev) + } + return(tbl) } #' Return a range of ICD-10-PCS codes. @@ -170,21 +170,47 @@ code_range <- function(start, end) { dplyr::filter(base, dplyr::between(order, o_start, o_end)) } -#' ICD-10-PCS Order File -#' @param col column to search: "code" (default), "table", "row", "description_code", "description_table" +#' ICD-10-PCS Devices +#' @param system PCS system character. +#' @param operation PCS operation character. +#' @param device PCS device character. +#' @param col column to search: "device_name" (default), "section", "system", "operation", "device", "includes" #' @param search string to search for in `col` #' @return a [dplyr::tibble()] #' @examplesIf interactive() -#' order(search = "00X") -#' -#' order(search = "Olfactory", col = "description_code") -#' +#' devices() #' @export -order <- function(col = "code", search = NULL) { +devices <- function(system = NULL, + operation = NULL, + device = NULL, + col = c("device_name", "section", "system", "operation", "device", "includes"), + search = NULL) { - tbl <- pins::pin_read(mount_board(), "tables_order") + dev <- pins::pin_read(mount_board(), "devices") - tbl <- search %nn% srchcol(tbl, col = col, search = search, ignore = TRUE) + col <- match.arg(col) - return(tbl) + if (!is.null(system)) { + system <- rlang::arg_match(system, c(2:6, 8:9, "B", "C", "D", "J", "P", "Q", "R", "S", "U")) + dev <- vctrs::vec_slice(dev, dev$system == system) + } + + if (!is.null(operation)) { + operation <- rlang::arg_match(operation, c("All applicable", "H", "R", "S", "V")) + dev <- vctrs::vec_slice(dev, dev$operation == operation) + } + + if (!is.null(device)) { + if (is.numeric(device)) device <- as.character(device) + device <- rlang::arg_match(device, c(2, 4:7, "D", "J", "M", "P", "S")) + dev <- vctrs::vec_slice(dev, dev$device == device) + } + + if (!is.null(search)) { + + dev <- srchcol(dev, col = col, search = search, ignore = TRUE) + + } + + return(dev) } diff --git a/R/pcs.R b/R/pcs.R index f772cb2..5be6f54 100644 --- a/R/pcs.R +++ b/R/pcs.R @@ -91,7 +91,10 @@ checks <- function(x = NULL, } } -.clierr <- function(x, n) { +.clierr <- function(x, + n, + arg = rlang::caller_arg(x), + call = rlang::caller_env()) { put <- substr(x$input, n, n) @@ -100,7 +103,7 @@ checks <- function(x = NULL, cli::cli_abort( paste("{.strong {.val {rlang::sym(put)}}} is an invalid", "{.val {rlang::sym(x$possible$name[[1]])}} value."), - call = rlang::caller_env()) + call = call) } } diff --git a/data-raw/definitions.R b/data-raw/definitions.R index 0e9be98..b27e29c 100644 --- a/data-raw/definitions.R +++ b/data-raw/definitions.R @@ -141,6 +141,60 @@ definitions <- def |> pivot_wider(names_from = type, values_from = description) +#------------------------------------- +select <- pins::pin_read(mount_board(), "tables_rows") + +axis3 <- select |> + select( + section = code_1, + name = name_3, + value = code_3, + label = label_3) |> + distinct() + + +def_axis_3 <- left_join(definitions(axis = "3"), axis3) |> + select(section, axis, value, name, label, definition, explanation) + +axis4 <- select |> + filter(code_1 == "G") |> + select( + section = code_1, + name = name_4, + value = code_4, + label = label_4) |> + distinct() + + +def_axis_4 <- left_join(definitions(axis = "4"), axis4) |> + select(section, axis, value, name, label, definition, explanation) + + +sects <- definitions(axis = "5") |> + distinct(section) |> + pull(section) + +axis5 <- select |> + filter(code_1 %in% sects) |> + select(section = code_1, rows) |> + unnest(rows) |> + filter(axis == "5") |> + select( + section, + name, + value = code, + label) |> + distinct() + + +def_axis_5 <- left_join(definitions(axis = "5"), axis5) |> + select(section, axis, value, name, label, definition, explanation) + + +definitions <- vctrs::vec_rbind(def_axis_3, def_axis_4, def_axis_5) |> + select(section, axis, name, value, label, definition, explanation) +#------------------------------------------- + board <- pins::board_folder(here::here("pkgdown/assets/pins-board")) board |> pins::pin_write(definitions, diff --git a/man/definitions.Rd b/man/definitions.Rd index 663de00..511ec21 100644 --- a/man/definitions.Rd +++ b/man/definitions.Rd @@ -4,7 +4,12 @@ \alias{definitions} \title{ICD-10-PCS Definitions} \usage{ -definitions(section = NULL, axis = NULL, col = "label", search = NULL) +definitions( + section = NULL, + axis = NULL, + col = c("label", "name", "definition", "explanation"), + search = NULL +) } \arguments{ \item{section}{PCS section character.} diff --git a/man/devices.Rd b/man/devices.Rd index e585275..0a387f4 100644 --- a/man/devices.Rd +++ b/man/devices.Rd @@ -8,7 +8,7 @@ devices( system = NULL, operation = NULL, device = NULL, - col = "device_name", + col = c("device_name", "section", "system", "operation", "device", "includes"), search = NULL ) } @@ -19,7 +19,7 @@ devices( \item{device}{PCS device character.} -\item{col}{column to search: "device_name" (default), "includes"} +\item{col}{column to search: "device_name" (default), "section", "system", "operation", "device", "includes"} \item{search}{string to search for in \code{col}} } diff --git a/man/includes.Rd b/man/includes.Rd index 89d3991..67cbc3a 100644 --- a/man/includes.Rd +++ b/man/includes.Rd @@ -4,7 +4,12 @@ \alias{includes} \title{ICD-10-PCS Includes} \usage{ -includes(section = NULL, axis = NULL, col = "label", search = NULL) +includes( + section = NULL, + axis = NULL, + col = c("label", "name", "includes"), + search = NULL +) } \arguments{ \item{section}{PCS section character.} diff --git a/man/index.Rd b/man/index.Rd index 4d753e1..d3dce54 100644 --- a/man/index.Rd +++ b/man/index.Rd @@ -4,12 +4,12 @@ \alias{index} \title{ICD-10-PCS Index} \usage{ -index(search = NULL, col = "term") +index(search = NULL, col = c("term", "index", "type", "value", "code")) } \arguments{ \item{search}{string to search for in \code{col}} -\item{col}{column to search: "term" (default), "verb", "value", "code"} +\item{col}{column to search: "term" (default), "index", "type", "value", "code"} } \value{ a \code{\link[dplyr:reexports]{dplyr::tibble()}} diff --git a/man/order.Rd b/man/order.Rd index 0867762..fbefa1d 100644 --- a/man/order.Rd +++ b/man/order.Rd @@ -4,12 +4,15 @@ \alias{order} \title{ICD-10-PCS Order File} \usage{ -order(col = "code", search = NULL) +order( + search = NULL, + col = c("code", "table", "row", "description_code", "description_table", "order") +) } \arguments{ -\item{col}{column to search: "code" (default), "table", "row", "description_code", "description_table"} - \item{search}{string to search for in \code{col}} + +\item{col}{column to search: "code" (default), "table", "row", "description_code", "description_table", "order"} } \value{ a \code{\link[dplyr:reexports]{dplyr::tibble()}} diff --git a/pkgdown/assets/pins-board/_pins.yaml b/pkgdown/assets/pins-board/_pins.yaml index 855e54d..7b07af7 100644 --- a/pkgdown/assets/pins-board/_pins.yaml +++ b/pkgdown/assets/pins-board/_pins.yaml @@ -1,5 +1,5 @@ definitions: -- definitions/20240130T213811Z-131c7/ +- definitions/20240209T022033Z-01071/ devices: - devices/20240117T201438Z-d5195/ includes: diff --git a/pkgdown/assets/pins-board/definitions/20240130T213811Z-131c7/data.txt b/pkgdown/assets/pins-board/definitions/20240130T213811Z-131c7/data.txt deleted file mode 100644 index 7669a73..0000000 --- a/pkgdown/assets/pins-board/definitions/20240130T213811Z-131c7/data.txt +++ /dev/null @@ -1,10 +0,0 @@ -file: definitions.qs -file_size: 13425 -pin_hash: 131c7e68c9066146 -type: qs -title: 'definitions: a pinned 326 x 6 data frame' -description: ICD-10-PCS 2024 Definitions -tags: ~ -urls: ~ -created: 20240130T213811Z -api_version: 1 diff --git a/pkgdown/assets/pins-board/definitions/20240130T213811Z-131c7/definitions.qs b/pkgdown/assets/pins-board/definitions/20240130T213811Z-131c7/definitions.qs deleted file mode 100644 index 8d93dd11223fa4b43c6dcf5739679f38d19c5142..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 13425 zcmV-%G>*#)4hjqa000030S^EH0000000010Gyni7wJ-f(Y|~w$0jft8I#j^Y6r}@F zaiJ`X7~XIw4i|V-7&w=5ELsp8k=yMv`%wg5Z#o-X)5tZ2cXO}{NW0>T7LNwy;=exnR_(OQ;u>1YK6 zavVV&A>kubxRN4JqgBC-SnQ%CHOX!wCPbx3^-USNg`G*ZExj?xiA7Av?*_JKc9YIi zhDnEna?QJvARQ{fvK9TbQVj4`RZVg$%BgnW{_c(WxR5=yk1Bm{EI zlF+)6gxH||_aC!i7CAN6l6*RU8S;kV!f@E=P>ZF7KdoR;8!RRnjajWsPv zC?Ak3(fIWzHA%~ad9|1p^nWEhF!D9CX(<;4#}$E0^Q^$4{^D!;&> z7QbHK%$a0~kG)P|T)r8{?Q^lAsq=*|CK}ovi0|`GokgR)7gsn|MT1p3epNR3`>hJc zE^TjBI-K>bN{6PKmR7~XzHVC;4^UUdX=}OIc$%VN-#Ziz-*+e*@uUN!e&V4HUracj zGkh`WST80T3#nuE5)IeuOcYs)Usu2AyDjE3e={ZLJFu?cYtEMm^GEWNn9oXBFb?( zr2y(1pd1G>fa>r`lMw!{pA)ZEb&hIPqjAMI}ISn1F(7c_#7ZVdoT5rDZ#fJoif^H$r-LTx{OpveJ zj|ta0vq_WM)HmbmHJVQSx4re;rs0PUY6M-@rDju=G#L@7rdgT~e!p~H!_S6KS_mD; z@p}zdRH$|88fm4BQfhqZy(E3tj#=VQZ%(I~@k#AZvZvEKl?4ULBTR+8U~Df@&!Y)r zN040-x;{;6KAlh_I6cfdB?YBUMCe#5xkecf6C^%>c;A(LX}BdNI5_yH=rNDypFTof z2+aodJa)q!k!{PMntFJQ*l6m}j&MBuWr4bhc>eF@+Tw$R2jdMhhhpOS+r4Rp#*6JL zL`+X5JsB~zxN#@^`PoTCaI`Gdu-&J5q$7p1Myu^cFtP*?+%H1FP!sGID0n}PS0%*; z_56Z^;&3M6=eT~Mq1*`}PM**Rt*VV{@pi%HxOPrK+REei<`TNpw2 zQ^^P(*kWa_AxPm$3D?UT21tnrYQ`f(eM6OcB}LO#$>*2#BAYVqkB(O~sF!69C6{-! zfwaT!5go4F+ziSdP;fPU2IU&H)Y?<2}mR4 zltsF2>G!T%qRcKR7*ej)gmN?-y?lIrQON16%$1UxVqluxQi3lGK`cFpn?6IAc5_3)?bs`vBYH{pL zlg_%jwCJ$zCtrLUs11!5)5)JuP^Gs@AGj~_Y}YMs<{G)A^DUZ=u~AQyOxmV#ouN@q za36h5y2rJGdjGr!@%tS??dW4LO~*y{yOwra9|GmOiR)DQC_xH;av@wdZ7ac7=)9_x z|LstU@@U#ndq|QVa&0Y?>w2)mfG=GvqHzuKKDJPT`n4ZHD1JbmH;yE^2njr><%^-d zZ2qD^m5W2Uu2a9$MsSLJsSA!XEoF;^dijO95~P|k*YN2kr}nXkko|-`4bcfYbk2uEEwv2$b&%6h3R^1%?+R;=nOTNbT&!{s-x1fJ;@lF z{z=l0>O#4W?-rU~S|O2lWlrRqzZIESI@NXWC$_vxN?D+wZJ~tt({#`kRt)&Hq{(mUAbuI^PnQ7drfxOa-!vzcK7Rc^Qd{gMEEhj- zwl!_YqMC<_yHS_-&>m(XtwXKHr&*mt{iF^*D7Kr{|IA!$+m1qgz-NfP9d{n#sP; z2BM{G;p0L?U3lkN=JB+Bl{P2G?nPRFYU|M+FP9(b)TN`QDI`!Ao@P}%phO@)>sI45 zjMQ^}{63q33>4da&U1c1@8?+!Q+mKQC8I7}xZp@nkEjkB6qFPteo-kzL4GtN@HP<< z5mk}Afl^@x7vN3}I=3y9!>0D^*d=~j-~wC?^79N-V)BFSau^WQyKdxC0L23H!bOUS z%Ck#;z;1U?f}k8+d7;>9mcBqyDt;+5*EKcQ7!|eoc)bC20Y2&wzwncj=Gld2W3h8S zppVrM0*h~UHPNKbRwFUw6qy*rt2$|R@UK}DNl;i;T(nSuK`BvDm=&tUXu*ZakJVKJ z#a3N%ik^p4hQl^lSWqyw@KEX)^7#MI36Q$L0@FgpgarkYjF$FF6BR8mD@d|6jEIsN zzBdqX8@!@B)#4LBRVQ~{%RZpq zSW{Y{HpN*~P>!?` z#J0J#Ye}{&#&G@GxUG%vYkK1~To$$t)bh5d^snuT6ef4EBNq?X?%xU&T>5BaGJSx0 z$73PP05npQw16a(tHhomVf|e|J&d4r_t)w?PPszltJ(c42{g zi=pFaq+D+ss0cRQY`s}g9v&ZCjmOA#MpRe7&%Uy$6#s9aG#;(3$I2M47ql*=Ks|Ha z+B*RdR+|z|(`+IxH85PZvaJs*mu0_f&?{`wSl7(og-(GwHh1lft@sMuK=VI7J>b>)Pd?r z8n{!=}M;HTHlrRWo5XR4MQ)xQAA~@ETGLlo+Z>1z_XPxsAqn8i!-R_1yIY zitGc-fN*};E9v{hSAymff2rhJ! zapM%~#-N?aW^Lj-&WyEm=E~xzp4)n`etA;pq8Mai(rby=1f2~M!Xtb63|R>Fxit}} zjY-r|O-(l=7+W<6;hAa8Mms0$x{v-4{*2<<78O%Ml8LC)5Jf#tbve<9IL-+h!GT_& z1^D^$JS?u$<9XLLyqxFj{w&Q9&79yuU5_KUACi1>P1npdnvu;9j`beKj!gaFJ|b0V zwhhm$kO_3-N=bu@`EG?;6I=w5I7qTu^`DdbiI`(4{jy)$@Mj{-gwRtch5@h{nb_aN zq<5NG1ri*yPN$<~@w|N6VuHM21AqWq#% zLe%kl@aR+(XsV?Wv0axItmwda7L~tjpuwnmVb~zwu+fll_=oslD4b2u$g4}PZig*P z;ICvmfHqZv^D)o&XO}@Ix%~U-awZ_RnrXa)0ymRb{Li`Uz!Mc@v6$;rktz|1hc3+O zrKAP{9=BLC6b7_j?l6rz{n`F{PX+jcdNMR)hgRj+3O#|9t9&}Wz)+0>`7nv8>HE~B z$d*_3jL|z!t`b~*|7;e`~M*NQHNroS%rRrOTMeSwnP}FbpxLig?!6f6O_Vf|K0Lj=r)yZ{uMt z@Dr{D4-f3ot+cp?EAjVJFpBERvUe{-lr}hLWPvPBX5LxF#=;1}GUJ5ES;%aGZWDNe#0;ftgF4c5z0P(C zWb1s1@A=-DJZdM9KdeCYM?A9i=s3jSG8Qgp9w-@aby_y8$X~%+Hw}hhutZkV#6X$J zkY23p>K(EnCiRNi-UjTtuKOdbJ8ZE5CBF^HYgJj0s`1U!5klE~n147Q%NB{U+6TSE z33i_wSOb|DEti z@1PLRh&Mj~z;WzR4@aClZrsPvHm-iqri zx^Nqz0}#E?KO~WwR*Bj_TbQ<9vvnaqkw&N4Nd{2`pQs>tlLrYU-*P_k;VF;fVEG+s zMuX=n1xm_Kz-6%b55980@rqzrL_>+j8`=rda^0u^A3c;1xYmd5e0oq|k!Fd!REgNd5h`=z9?Qqg2dS@&o@HZn6}3Y2pZ#=zZ&AZTMW>=1gIkde_r#NumnT^ zes=0ne!RB^5iu=l*fhnxOj&fX^7FEqyb5xJCc{jD|AqoDz2FkmQu)nK#+O_1mSXog ziI1_wS15sUfkWd{9?R^B8Ce z*X;foFm3lYJ2Qf#WO^pXjbxtGa>wZwyWd3as;79Nv82UJSJ4!+M+mcAa} zsYEwl0|(AgO#^kM91(%wB~9)nO=O8@(jM#_C_I9{$=VSXYw7)d9keEn-FiulgOa)2 z9h3ETbHWjIBTS`j_r!5m>>Rknid=Zc9s|8AaOu(&8W-1k$9gdFIhYgc?oO`b9L^JS z5d^^x-@SuFaG<&0?CEQo+teZ7)OEwu#$_KYOjkg}b0}gAGPhd|(-`eGHERi;jCE>C z6#mI^nD4ec=WI5=2&TM=C=m(+yG@dV^c~B|Dfof5m8N^JH0f#yd-DS2(E~a7F7fIon;Qnr~#2+zLmVqgR>_V_Vr6^d;Kv*ic$+se{{>D zZZ{V5?lhqMn?mFmk&DhH5s^#{h7R%QV{-X?TRI3#K)K5)I?s{dZ)$aFK7!Jnslb(E zCSlRKreHE|N8bVMtua^FWTc%q_fn|#l(2|=oZqt)@+<*O>9#o z&Q5X*Xt_Rb;oB&HBCXfL_2K0~l)9=! zUkw{#^L1?LVADKZv8xdkL=6o|j@NK{-=^P!LSw+`+hFK{eAfaO#LI|E;iGpJ$F;<% zh=3QkjP=*D3sHN7F)7`R4wf`2F=3}vXgJa3?ncfdM_e0V&|B#)o!TmcScDUp21P-J zU~bdftS1Cdj2Z45C#ileUx>(`5y5Ut$82mPDu@AOTKacJ(wB-o!ju2VE|*1Z8Jhv0n-Rn#pOZRA3=Z5$O780T4x2af>Wi@DI8K&`Y#Cu&{~i`kZ@-5 z81s=#=eUSB?ODJ)MKw*@M=O3ILB_+d#WiYBmQZ{o!EkE{r4o~iC~^qOZppNT zER~_T-x#E%GHJEhVcMj^WLkYkeGS~mt^Fm3K;&LQ!celnxH>m3Ja_Y5^x5=l^m-)-RLE0(JCX$YMWpq0IvZ(FaP=0V!l7v#H2BO zqlXOiN(Sc$7Lmq=MW>wj<&O`lV=m|e5tCXqnHQz!vOO;l9Ss=yAfCKzppp;mDtL=< zy2f=qk0r*{`f1&ZLqc~7QkBDx%#_3#?EuwuEZI3O&AnYBl#BIs0CU4(;O7Erna57I zI=0y!QIAJo6WMAZ#(f~B=`Gr<$DiseoV+!;_PU;}*YTc-MseGuTdH-uE8e`O4}U?# z4QSqB(_K;ss~7qjV5Xl`VjFUGYXR-ZoM4cS@myKEg9i^dk~Mm0in);j68Mp83Fk&Z z?#F-~QO6*{&iGzzIl}g!%Mh#aztI8^^h~`JXIz8CDQ}3RRKWrK9Flm zI6orr5?UWPc{`A#JRKyB>5oSfGf|Yd7&t$E+~x-D_npBn9R@_ZCMRe=i}OjxRccCW z{OWhtp+~U#u&reOmM4!HR0BvoZ%tYinMbK|H2Urs7C-kZu! z)`Uj%Ace$LqTU$=o3=9zU>w_Qj)HkfAXm;h+!D}VAkgZA{8agW6aJyHqKwZZ&YmWj zEA}IjDV0Enj^AwxYtnc1rb@8hhg7vDS@$g0xFv#Hc|g1Q*CGg9K3*q*OCmG%=xw|{1t+K~2{y&BU)b#2;IkTs@ZG#0d>khH zo#85iNt=`@7uFASbJ&w{Z%U$QVV0+1)jAAIR{KaZv9N-JMz}JgF%-W*!4T2&d-QN7 z9^M)4=qi;VOL5mq@Zc#g`0(a0+uwyyhYegU%#8YPqWcMmE{NGfhtMYNELRit%O#Co z^U^-*ql*jFQ9pO z^P(V6lrimS7&JA?+@nviqAyd)2nrvpSP+~wSWEuNo#!g?F**BJrwjwKOg zf1ex_Qbwoh11nczj^cC8XR#;V96~^&qWcW!$|sGgv_5i4(}CFr+a)mz-~<(4i*9e( znW@cc`r|AsTSvuN7*{!;`92}s>(c`xIsm_$z-0);XmJZ-HzoC;3UDAKzl zKIu&WhmoqcO%y>ybUs4J83^P>1Iv+ajrD?tJG+q^vNhnqi&-cmbC6cK?{n#i@=8CK zN+R$gO*OlhGGwdd4x%|aW}Zb^E{Lj)mCW+mT>OC>LOkT53Hpz+3FsLy!i{lxCKTz9;Y6y_T0}*jmlPDS&Zbb*f>rSZ9hcef~0&R>aI~ zG)Bp=rcJk|QWeUaFg+eab_e{-9hMbX*2Jd-x+R_*iv!NfKM0T6k|=wGbEv^9v*gC; zlADXq4Zg1OASW6}dJ+(PNt1b81srNBG-BCe$%~r^mINDe_M>9sdjKBh#T_ zw4iVa{Y1E-i3PLPW3$XS^*H?@8n{H|S{`3pjA+B<5?STcP_Q(% zu(xCf!Bwpr!y+=og<#{7z_oiac$uWOUUvWFV}^`cacd+UIp9^eDKvpES|9JkYv^d) zB7Fr;%_hpHZ}G(lfJO(O-_8^ifz#Rq5a@$rC{fQsXUk9QT*J2!_(&`ABY;7D>Mwe6 z8L$)@oe=3O29RulSgJ&}2E#pNciLB6SvUb|)T0OB+fpDCk@C&_m+xM#BxS^SilhT zg3`dc=E5%RR(D;qjjZ489t#!81?#$P;RCXBkls;1He48p#Gtyr4L6(abf7ETu}94u zLciGz!Ep&ZmPr9v$XBTu0(atu;LUX%dCj+!Qq=lW$SvHtIBO8N=?a6Dh<}EXtZ%vB z2*;I}eKy8|#U~<#x*KRX7`&U0bZeH+HwnWp)5=lH(fK!irbID!m*$al!j?7V9N#fX z%LN8iw>dLb8o<5pP_gE=ATdji3n_?M2f}9WZfZur!GF#^QEQ)JnY%NkqfoawfGT1Y z(>s#-#FD|@3}gL3H;=_?!1SyxgP><5EwVG1n*Nk8Q>1h<_b5M2FD*5@4Z!2QBMdb7 zuh4!0T7q>U919eh{K5mFTIyg)Nf(hru9e4l%#_j9AWL@LVMB(Bn#J%INTM`88##D^ zmD=u9Xg4FZmoc1s_hL4AN>SGI+B>_#;~cTK&)VjZ{<-t*N-Qgh&yIPER>UtM*tJbU z-%-aA#N;gZYG(o{sV)u59dw_b1PzLdHIG+^)hR42SaTD~HBQ4AEZUPhV6k2IRjJ)! zexYs>*bmr6Z5Yq_NQuGpg9Bu1d{o~>z--s%_kzfv?&* ziquNpIFF|Qy9EqxCGVr{A@Nd)T5TE^l3dmZSP>j%%?b>V!zRpf9E%#lM%XKD!cYs? z0SKL|O)o(Rx)Rudrs$PDiV`yGelU6qD4YxyEOsCWUnz@~*r=YUN}RW$1QkZ1gr#k5 z!RU>sqkc3k>QhRc0#Z0k0n%8B^@&U5z%nMo`7y}&k# z+SR36sVJILc!0+(!KP3&{#RlYy6U^!O+CiM4C&)-7zFx#Vj=of|bEKHW-%G|&~x>;PZ9V~&vc7fu_khJ9`-s9XgQKDc+W+6&e zOBi6p-5Ht$W7J^y7M^L#ir_=Q5zw0B zDCzeK|CW+IIs#Qq{T`njhX#92a8f~6$Z!DexRGuvaQVEjs1rKp{vf5R9!+N3IXbI| zjsXvei1q>Q-batZgOCbE`#+8t=!K9k-Kl0BhBq&KRt)=Q;i z(mS9G?JU_cgW!o6W7K(R*y?pH{c~1YXN}yrAn6*dc#@$@4)FbghoFf^rghZAmD+9) zF~wf2qif9~wo1+tWC}s;zV1<@OzbP_0F1DN6Ca8iTXeG=t?H2EPhMq2e_o-Thyp6x zKifjiDo|2h99?l~VlowWeAx|(wi!5LUJgwfHf3p|8fT<8- zq0k4~uln-Mlx>+`YDgIQ%ZV4>A*THA!LwM_C>k-uob0~Cy5FK(V#4(0mK%I0per>Xy2NRyMmUNc3Mrw7Med1O;#X zF3Dri!Z}#jAN5*xDSITq;juZ*mT}5?1PXK)J{XzKa(%QOw$z;_9gv)9^}=#qS*UHD zjLe%Mzea9v7nCDM20QH*rq+RyeY!C!6<-guxNBK$Baw~>TTt+DJQ^aP7>ds}TWfi_ zrjvhm$C99f8~+x#g=P^XedspWI|IBp1nCl7V}&}FM{Lt^(0Dq`?|?O8eRq8HV?Zb) zTegw7fi6XLDsB)dMzgvoUdoNC*Rb;p3?1-wxFZxGp_?W@SHaY~WB&YV8pMz}Go0y1 z;>{PiYu*2#eziQ?8#q6Ml5xoEUsSO)IbSnSt5kg>K6R}g?YubY^ebYxDv~do?;X=E3Ct#vn+$>m2Ym} zfBnX#|If4oAU@0th*EWDLk#;OBREJr2HGWhS5?%6%guS216B%ceT|IDZ(`_$_#lMGI2UGz~gr zy8lKDwvl>^sG^rqW(@xK;5i>4Zc(w`&U6fIB=pKhi@z>wY;L@%Z7hRZ*U9Yd#a%5c z3U;yk3R!f=+M2zdUW6k-QT_dP3Q6VRSzZ!AnLiI@>kQ%gOW*SW?o-=w^~8EX|jQ7ATeCy6YoTTqj;{3kncfL;bg|1d?1=B$6ucJDBpp0CI)PqHL) zt`H$cj0s>+uZF(#ZF0`haAfd~mjiybR*vB<$(Z~~2mgQM5(QPB#0n3s*w;ttV>*s> zAjD2eH%_KjKM39wU0JM%-8n`!JZ*#wM$F2wP)xC6Z#21in1(^3o^mP@^_VLdI_I>h` z+G)XA3Nnqo2h@rOzTQ$#VU4NMgn#!yH0C-loYt2n-Xh4y^Y2$Qt}Pu3Ma5K^ff)3Fx@_>f9eq|HMn}Ni%_wbew}= zBB(k=BX=q7z}`NnPT-lv1C;0l$9BS=0KhIb>-}mcE7(+=MF&1QmO|o7!nmO4gNvve z-gKq1b^wm-t10h1S;idka)e*qJ^(=^2$!<%wCXL;C8g=Rzjihpc(sQ?d$>V}R_|EQ6kz$!w4KR(&`N#q#!|ZdvDgakCS%t@30Mm^e#SvoI!#@l}sM?r1k^QQTNGV`k zL%~)xllY(c3nRZzOIXRt{oU>XeQoJi&S~fD`kIkMu{h4%K^fEbL}EAEk@xMuSZEJu zWgH~i%V6i@i8ka{!ocv6y>&3#`rdY;@^*F1rsW)rjATsUYa0dOqCVGY)ddt@dpFlK zp+-_~>0NB1Z{)^b^+uU?q5B89ugvpMZ5uIPFF&SmEfJIltH^oOi$zNS3^GPQ%4qCe z>A*n;LE(B(ekGm=_Fu$vt@>7fhYq9$5)rJ0O%RJm0xoY=L2U+oh(>n%FVstxO+?XB zY>CA$u3M^RKO@T-Cms?cg?C(prMXlwH-&WE8{K7lb0AkkzwAHaBS)r6z-LnGB)bTpZw!;+cu%`HW&7AFOk4k9b1d5L*eQ>flXNqYsXvPirnh=4pcylTYb7Ur61l z!G(SVwj*49r_mSoKVuR-wonRZ?ryb;${q0h25PsHPNB%t>~Mwxo+0J z!@EG7br|!L@#5dzE1rhV!}-*7hGCK>*hE z!8N=L&!)+g^c{hjZamVRJ#D|W(TXnREi8cGt}cU=@-;KS&eRc7R%2sUv8Gy4;f_3#hmHFsCw z<;CJPgvW$jYx3SKKLW{P=&sJUM1OpWRwiHBLU-J_S}ej^-_Sk9*vK64 z3F&zc5~S}b>yy%r8>kqbzUUyO@dg4*@VhK?Uc81dpD=@rrV}0l9zJHSFXA3Bpmn=`1}U{Y zPLV@m8X*jFvLNPsZYZ~Vu|Erbz#TdnB1mu}F4%pd4q8mDiKGl{KTcInclS6O(Wf>Buy*k`|`39yq_X>@nb1%Z+TPd4~}36&8G3cD#q4@P@Onv{`B TrvuK94~(oH%*{XaD*Vf&9avn< diff --git a/pkgdown/assets/pins-board/definitions/20240209T022033Z-01071/data.txt b/pkgdown/assets/pins-board/definitions/20240209T022033Z-01071/data.txt new file mode 100644 index 0000000..0cc1de7 --- /dev/null +++ b/pkgdown/assets/pins-board/definitions/20240209T022033Z-01071/data.txt @@ -0,0 +1,10 @@ +file: definitions.qs +file_size: 13783 +pin_hash: 0107105680958532 +type: qs +title: 'definitions: a pinned 329 x 7 data frame' +description: ICD-10-PCS 2024 Definitions +tags: ~ +urls: ~ +created: 20240209T022033Z +api_version: 1 diff --git a/pkgdown/assets/pins-board/definitions/20240209T022033Z-01071/definitions.qs b/pkgdown/assets/pins-board/definitions/20240209T022033Z-01071/definitions.qs new file mode 100644 index 0000000000000000000000000000000000000000..2f798fe7ef680b5c0132f473dd21f39a8ec2c310 GIT binary patch literal 13783 zcmV;|H7Lpp4hjqa000030S^EH000000002HH2?r8wJ-f(gV&9%0ZLctJyYOPt8`Ke zrqI|G1Ose=@j%!pm_$jCfuPU#zrPy=*HRn$WXnuZCOP>!?Y)zfr%vW-)XrZ9ZQNjD zEeW(5n9*U<|NsB{|5ddfV>6iJ5M!)70RjZN1D6ABr$!Ct){7-hrAFd*3Fvl;JG?2G?qfX2D za-g_U#099)cfOQR^azXX@L!a4Txq->#`9lLqh?%_IU=&-t*LXRS(|c!L0^fnoeQYe z+ZPp%z@W;8+u02U#>aMea-3RI0oAD`vAA$rxl$aB4jVQ&-giafm!7);`T5JzpgNu! zdQdZ7-_A89Ls8lW45-%Q4!?NP;rTnt3j~F<+CO+u?s`t8CLjFJ>cn;-amJJO{OlT! zDKgxTR%eyaGO82GwMJx$%+jWH)pT57|NEcmaENw6)=iVT{qp1vPnW?^alsr{ zJO5gFSOrT7hoU*=s-(qs&INOg3OOFOMW;+*1h!E-NB=WzBRhVJ(p(ohD}`gHJS=MP zQuS^s*{WcMQncV@P-2NhGNF8 zD5rBb7S8hdySZ4`P{8&XTccs8sFWtdzsidw!-N?Nb`k&%AD)h9^K|I&U@#+|4I$5l z4-W>T@puUEU@#_}2ZKp@HV=sh3BG7JRlFp6Y_XGAJ66?c}$)TARo_$hr{#nY&;tt zkB8&wct}D>o{s`-o{*>H>3A|v0iF_13J-~A#KZEeJSqu$jg~<ed~j@hC;{SwiH76}c{)5G z95y^3&xc0`$Hv1>0-!+$0onq59vJG1Lu9bn8!SEzGQn}&DRyipPq?Oad4X|+EMT3E zIxE0l{Q>N);|I0!)M&iUHU=fI$af7k));&fj$t12COz{p80v@eN(O;Le2^ z_PVYODukA-xOs@jeZiXCG;c>c3E~w}lb^j8m!UvaxA{ zs#U}(0fUj#Cg-u5PXo@Ul&y^2sqk2?r)vT(iC7ZXa^kYZniobbti`tqc zt9Ge9shf9GmK89!X4BbjTJ0MqN!q5>)MS@7U1ij?N!_MW^OE>AiVBRK1i*u{QV#A? zB$@y?xJPu5VApIVyrsyi;^6{&9)W>bIBQr!u}4s_n1V=DSzRm;hp$9oG2+|anj9mu zl(5gv_oc+z52-~oSuINmZ)e=UHXJlO$NFMVlg<^8*v^}T1_(8kgCWAcr&hh<0cxwX z=a7>|VqN2~6q> zMQRsufmIKceK{eMT2s^zEpAK8kDcN{JCQMBr!-b^Frh7UZ=rbT5F#>S!Cp}|qN0R| zaA^qDWu-x#bEJfI&ig*^=Z(Tup?Yx-f>jQElRsylf2`qV^3ZpfcIs0C21|* zB(`c04T|mDi6t05thuo%+3pynZKP?gB_bZ%!V*FSf$_qdkM?%*X2UUWHm=E0T?4Wk zjmXctH6$o}u{9%Z&2LWIjKG0Cgxs>yCXMZYFb^ABS-zSMhE~O~S(>!$BpnS^13|5r zBm-j)YjI0y+GDj~*Y(@7Bpe+kN_$HZ@@t*oNV#QMm!?)UrpVM(k`hLyQmc~rh*nj# zW;<3!gn4M}q0Z*Cw=LZ%Y1gwdBEOy4&S{X;mub)j7MpjaX2pF@a@z^>R7N5hf8 zDm*GEn(`|pGat{sN@?0wE!(LXGbTVKY5yCa)gc;1Ba;MkvgTN_V6Ge4UrWu4a>po07gyc3A!{0QVG&(-s#rh2)nn+@uSfXT;fNsT2_CLv%KT-k1?x3PD= zO1M<(2?W*{mcRBQdx;F#PsdP-?bv;67cGw#_59dZzU;cy&ME7R`UT862|=$L#aUQj z&{tbcZ=p-a7Pd}2%S7x~$k26sKkAC7a9OVOWlwm(*12tqRxja#P=UdAdCzFI3&Q8t zluK;Jh#gg?&;mA{N))X_rWf~2yA zLT^{F)Y z*#i_C)WNEckO}q>qgrQODhk_Krkw6mfw5~ZwR2hV%q**T%5JY=#%(1ltJbp>fWgMn--l2aIyMQxY-4Fb_%lFeJF|TJ072 zrDDLt#eglNMRjQkD#{7i4PIxTW3Nj!*QE6#7HMPGAA1qmI1*ki*nOtTE?oo0eh=1 z?V==ZC!n{DF0ykh{>5%>3b<%6>wrM8<#j^40p`5ayrA4|skjtM4cJY& z*NEB#g+_+~>{`tM*gEts8oPof$fZ@TF4XL(X@I@uXUb*ji0gY?aR*K~_9O4ZRFeX_ zz)sahesQKIFMxUEl_xQcoisN0Z3MzgLjwCNaCfvJV6s;c0kCh^=`^_R2}Vu10Ji!X z_Kqd>{3Rx^--a|!n5NpNKAo6RtrH~JR#rQX9it^Tc2t5*S~U#k%;x`Hi&&FY*u+p} zhP}IhFeyhEC1p>DnsQ%*Uc^|pCYBl`zk;T;5QB2h{WD;(Ar{us8Nqk9z`p7eUZnnA zYl%@A4-ecQtvW60d;|^Te zyd$d|!KgI4Kp#vjwswFbre5B9eo^R}ypiGK%CUew^zFQc$Dptp&s6(osVwZjMA^R8 zl!y@Qk~IF6BZB?1%dJCBgTsQ0v(AOwvq6(cY^GkNhrutq#ma1Q8@Z*Of+7=acCe;| z;iYD=XSb@TltR?Bx@w8+FKW=by0ix^sY&Z`z$z$4TqYmFrdD#9N@?zo{M(Jsm2zp& zw?u8C!z9Xe1*O_GSJHR4TnkM8ljL*!ep6GMdMH}2L9Y$nlYseltc_Z|RZTkoiXE|` z!mZ}(gkIUVPbdrnYEM&D{p1Q$nCoJ2)POs6JQ6i2YFyqj1Oj01_AL&^8chfzk&Ifd(Is1ymEwVGam)nxxWGZ^aR-*C=Y7*(vqKm6 z^w2OOzD-w6^>(w$u}gYlepB#TYAJ zld6T1?Dgs~r7G#h*yE}PI*}O!CRM}dBmgjOAfldWi_Xl{>u$V7N~4SXbuyz`cDZ5> z%7)SgZA+Rt>2u877g87TQ*I_%j>g}@fYG|8J@k_ti*zIXyC-_cp-f3|_yy@^!6E~! zfPX;V*>Pi@^C4cbjcms%lgM%?_vCc5N;LZ*n7YR)5kiY^FFI7F--d@oUG!xyB_8b1 zI6Ny$h2$uH2Cd3gcvzbSErK~E65 zw3Qh(x&4se%Tdrph4eixg^#p%owxVYdSBxWff62{(k;vJ?T6Hoj=XBx$-A8WZ~SUl zK@cfWW&qtBmpp{IUrFo%ZYdX?273P0YQhr7A*x3zaur>790S0Y0SVAFF?ogue`PfVPvdnJfcH5K;&!6k4+4?BV6)$=A}@w z+~|Okk)!dBC|A49sIx$%JnI!ag7i>dH)ifukZ%;>?&%!E&IG;%^?0sIkX7I4AcDNK z#qMnq5!q%Y)#xK-QTbS9prtsWk5B*$Tfy5-g~#sAGt!l@8}d;2-N9J)0Ao%Uw9~Rz zeo|38^fp3D&R1*47q(AKN=qZO!}LdbNcQQb4kqz4e}n=QGo7!5BRVH+c2?$@HHw3D zlx2)^D;inS>%SPP8qHzx3V0KOe0y*JW|DP{2+C{-cJ-p8@0bLxG`1olm&c2%(BBNl z6}o7IqvcYdUrB*fc(m7=em_};`cthtOd&6%^nsVL_gQqJBC3a&>t-2#LXN$P9qy2o z@fNBC$zeW%M-r(y1#rFT5p8B zUYOplI3DNNA5|2#=qJ~U^;k>H6XIWjhMQdN$@q4559WpS2?G~zv;h%;C&caZtc3H+ zu0?+30GlibC};@2fe6!m)$WCkId^$~dn_9F=$&x<{*C%Sb1d+*-eL<1dzs?+`~QK| zB%nh0cL1Ujzy_u`$rh>!s}rA@5sFAfh(dubF|ZQ}o81I-O13i^GUlZmgZ$TW*7qj6 z%;SVfU_niL*$_qR8)elqzUvLOyw)7_`-a!~GtBwRb65f2Hk+yrulcT&#iBre+3dln zRSVq)?YN}909Jjxn?Mi&1rEXLlzpsP3Ounwh>&;q{NAYeLTc+)s!GW`73Wg>}5S>_2O~Amo*&P5KevAYd8oglI8o1rUc`>Fx|5 z4x9-K7H{H5Fty^iGjvOD1D99>e^j z9gfj1csY#0iNaL#j zD0HGHqxK1?a?6AEGziW}RCVD*)Pquz%PU3<6XU~iY5TFpqL)QX*}oLpq?GXDr@TKl zi^kUTguJpd3=kkQc9n1>=5#4h5z#UdZaIG#PA1xs)^b|-*xvfEuYksV9iPYzGGUC- z3?Y93ERy2OeJCip!lu&ih5jW;8^hYJ0D|wV)F2scg#YB{*1OQ(Lx5LjD(HjU83y5q z+2>IYY-$)7Z zs9#RIoCL@nV1m1X`%XMy<5JNz$|gJa-|&;(+54Wg!t3VB!^t zzWU*|5Io3jJ7z(t*<LXHAf#4;=sUj1_L~VN|y~2G^u1@5>&LhV+p~iBo>OPeH zu<#@2i62~2u}JVMi2i53H3TbmUYru^x7?Y6AS2TprGJFidh-9WsX64 zi&zR@=y0T5@ZFeK4zhiY#!e*jTZ~%a-7k?S%J8kC3NQ4@na}tfGMt06JT9mEta_=+ z0K(H`2V8aBM&wOsxQLM)0!e|?dxM;5vu^PMo5m;T1M!1FCQ2;Pf^K?PLEz(t2jH?(n!GLT=cD7@=?QMb_Z&P-m4c zg~cu=Y;~!Gr_+G~#;`cJ5Wi!YMF_9R0F|fqT0x%%YstqWm&#=7I&=@ z!g&vkA^8IZS`p_9^1ie@_F?oXqoi%`O?%poF_lvvntom6Onvj;{D z9ZU))iLCS{Hs4Dz!0|9>E1FBMs&KQldCR9;m6btIBuyGXM(4zzSx%HjtHJr0kyd8F z3?^ux<3+AL$qSCO(psm5VX-+l#|^IF*6GjvbqTDWC0ZsmHx`iovT80#l$j#1A;2Im z2)OsVkevqX08BwA4AvHA#bE*ZH0j-;8(P88?2tsJcqULF3!!!tLP;S1i*}&z%rvT#{;|NWHO5NnNNyewf~w;BtMpFL z6%o6FnjiRkf$splP+v$sDg)n>dp-O=n$w*GtD7EfO(h5b*qFuBgJ<%kQx)cZ*Isxe zFl>D|)Fv#PS?<9ZQcKo)+mcPyoo8jRT`b_D1ZvX2?xut{T8q=bN!|{~;SF|ZyuiIC zWW6b-e`(Cdw!9I+i?exVC@^=yW|8feiHjXYJ_diogsP8`eKuL%7P@Au|5K|1s58~l zSY^#k+#|-)F;2JoDh;$7a$Q;vH{i~+k+gjD76qo?ec|gO%!ZFyieNv(^>z)6{elrfWJFVgdicVqce z$F36EkXZWs7^>+qu*TDtHbDtgQwdC>NZ&makGU@$GOtJWO|`OsoBgDqy{iD86;e5I zqG-Sv`IdevT}f02`x9N$xT$R-qMYxQzt1`kmezMVa91!pix_&opH_#C`#M}GX4cQM zu#=h$nDkB7;}a@mV;xa0dC{iSckyaehWdE~^}$fpoXHm~MkCU;;S1H`&6&_T)f$BQ zo%A@F{#=H%`LODuJ<0HlWxU5qM3EAUQEnD)P9kEjEbyd)xm?Syy#d0QtFR`X-z% zCsXF3K=8{wZX(E=9a^6xb7MX5X*Fqy?a;#XKTb;tWEy_!!uXQ8d zQ)p%22L{ND;xQ^gv3elM$w|oh`J@gh&efJvDPP5}8noQ6w|}e22*)OX6G!ky7nNFz z5s2g@aFtd7xr7#mPCg(Zg$Y{hp!C{eJ1uMh{~@c=a>iCqbDXAk^}N^PH#ZqN{9XOB z(M0W>M7!51UK&nrdl7u)=Dboh%_{A2wN1lJ?Jt5dcdPy@DbRS^{M4aNLbb2gR5Vh@ zQBQrgqKQl7Ls4@`Ec|^;Cg#SIlR^-qTm*AKDZ{%YD+wPpWt$&Md(dHpaQ74tUy`huLLO<6dli|` zQx493zMBXt6Ax~Rgd)UpD&@@@WC;$(CIfeCp=N~fE1UN~9&a{D3-Dlus+It6HQ z{eT?-Y#RnLZ;kh-F^5)V*BmRMmZERUM|QIp)3j8NNM!R$bK{61%UNIO<56#saUEey z8l1+wk0rB}m2cLG9MPYRP5nk^Hyb1Dl0_^fK)VC;eMa{sK_SK_fF|~3Wu}&v42b9P z{(x_rETOyb;S{r)Mg1W+5NFnOv&jW!lND%)wgt)BCXywlhF+xE4;p-w*)`~ zj?qJP5p?kQHVkqGpK?y_f32~NGnHsNEndli3y@i|V&@D1?(HhvOL;C>#1-7_kqT?7 zG$sueVnVVPfRN%KufhVC63G#GG$-xS%m=-b;-$=}k|H*rLrrPIPcAO?LjQ-8iF8sL z9CSvkGAt}CN|wDBdOgwpT@wh z(e&p=*-hLqz~tE$y-M*b4|mb8HY6yA*MevMjNS_7!!0tW45D?wCkT(qVz_;aOP_xp zPYTZBbvj^jz{egHZ%E{()pjZAMx8a+t~cv$EtN>y8!1c)EiCrwC*OiQCTzvQEdasU z`*zN&dNydx&{VfF%}~(s9ngmXLa>Rw{4?(Hm3-aY$cU|sAN2@rmU1H>$Tpf%n5sYy zB)SY_t3A&8in`c`{zc9C^rD6v?X%Qnj!i_&tjG#M5u6T!5u-Bk;6x!?4jGfpAM(05 zg%r;1tFGLeJO=#=@$V5ssMr|vw}Im%a*lk|hc()6e!E02cT&x##}eV~l%QK`0lIHZ z@s=kg8cqYsTEnaf=#lTuH_~AzlqzQ}lb5Z&7+EMIP=s?iJb}(LH6t5nCK^ehQc>mM zGmz&jmti&~&e4m=p$Y>KmtB0Nqv;L9+ShXu?)p_@aAK-d+mzqp)xTp3Oiow|L+EW< z?H$AP@UMh2dS}@TLIn^Ik}kKjq^RS2GF1+PW>0$_-pN@pE1&tS3=AuxXHyHGXbFcE zetg!Pw^+VMx==$i3_sM}VhnL;7Nz@4^J zF*hr13%`w>84F2L%Im)*w>_?zI2RT^KyV74PA&4UU^s4QY z15GH~Mf!GNqa{)gcH~m=!t#3xJI%`~P#9p+#dUFzrcHXRP-s@#A>I+O9dnJ|5v5(& zLIWcouvKe$igvtT`gJR4H($4}a!949@X{7pU2EK)N0jaCZ~ka)|Km5BN<^3g1$2?h zlaxxw6cuiDI^3ocUsp+fM6O4xwlP5XVG|s4+)Tp}hNxHA>LysNu9%qc)R)sR7o7-X zYvw>eWF$m5-JhYdL-KB&)r9(Zpu4KYTeFf=_|c5{q%C#Notp*Z8C96fIRcvG^tNV; z3X+44A)&~dcBd$y#?)BYRc+q3m-pD0viN!uBX6<&+qGYERzzE6HlGqWeYV;gAW7p? zM_WOcnGH>-;F1&seXp(wEQ?^W{*f~lVgVE1A9o)pt&-KDx>dF4ZXS(51UwO~^NwMD zsqP4Y)JUWRJVi__iJwkqV`xPXjWepesW}U$(<}J#_=oYSCSj8?HyqEtm%`n5yl6+2 zEI|BF13{gP!rytPvNa(5eKiaBviPuRDzxwYA|_@E@1drGb@=X@j5l8~W)cywJLH+ODkeRFXTbCJY2YfSMfN zRRV|7Ru!N%;S%}A50cQnL}_~JLa`E4Y|x)vn_e)XsrZDVEaoUnVnwud>`1h(#KP1S zG$t^rIPV1jRL?4rfs6D(cFUIDe!d$A6{m@uQI2fKan?7BQarLbN%cbSP-K93oaSop zk(}pdify?KOw#p0Zc_#{;G&O>02BB1NnSq|Y0c#y%#e<&ny=xbff?K)ZkQE&L%5FJ z?Q1F70%aFPIOJ5GgN=?>n1n%AVl$$z!{(b9-1(ci2%hh9LEf|X#gh#D+YE0K29pV# zTC?_uyVaC)N{UbktJ6<{tJG|tgAA3P?C6}PH6I8ps;2413z&^46`}PU@#ip==q?wr z`^t^sK(K|`C>){7@a!2Ux*d5@frbRxf?5PhQ?(`=Z{Uh;OyRe9Y~QrYxq9LWfznXvcw!27KVjm_YT#tEE1h2w4j^Q&D1P+hoZDQ8K?0URLCr zpZ`T-tGz`P6f7^%c}>Wfo&Z+N6NzCr_m?_$>7$gx>Ol?^`D_r~PP*{&Z4S`f?S1$u zLt9~r3^>+aAyg(*D27*XR|5uBu)8Xn$V^3yEi&VyW^4(hz|4=NIiw69))lfr2K`H= zNM`1u8Dnqm`z4t0b{MH~*F>@8$e%(G`p;n#K_-`FpbpS-MW~bsufmsU73er}B0d8E zAmx&ZrjKoD(JDcQ!AA|58C6>M8(xwSQh{g(kRt}Zl)@#DHV6!3`}qkN*+PZ!wXf@M zKodkDqdIZ1{-n$tPbQ=zZ0ULPs9{duXbM(odFuAmm3E!4S0fv46nCN`ObYauqbGI6 z2@0uLj39K)ZHpX1$>*gAoHcLXs=3QaO&8kz?UBg5GZfz=#w#Hk1#*qW09c5Rti~y2 z#=br0mHaFvpQR9Aei^gj+R@K6ut98q-V!H#V^6K9ObbUG(xC&HXkhC148$ViErsah z1;WaR!4PGfC{EV|!!cnCTwD>C%VO{bpwOqm+~m~UgbZTf4L$X~3koofgtN9-fI|Vq zrdIiXIk2Wd#_%zi0rFzr?ghiPDcM$Dl9)2WF7&e!VR>P)l!C;tI4!-xdzEd4mSr_D z2AgHaW95TZ1loZ+t^ck6LptBo3X*2NPgumrI-~Y`2lh!Hp?6M2jSZ^5UZX8-iD7lSaZJ z1T~#&{kH~bTHwP7{P>(Ej4+xD7y)peSIZtVzWT}^P8SAP{tdlE5~|-}byb?UVZl^- zTB&Q}nRm=h3#a#)&4?kMIzbmr58Bpx?dv&HrrRfw8dN}zAa=oM;t5IxFF?E|7GVe+ zQ&R%S+&I1f_RO>Q0-CQpQPbaHSL1&u!b zybOMbs6Oo(wu8Jm`nzuS)sUu7Tv2A*b@2lo@VqEuFI|%@`;s|z#xmq!_TkX~W>b*J z^Kp5&5CILNfYn1y*A(NUP1%HIW9b@x25)dB$of_ctlLucw2nWoz)HGj;Q5Y{0X&U@!GJ_#)qrSp1N^E7YNSt#6wZc_lbSw$aWixA%;Xug8d_8; z7CCrfG0b2=iaN_vYEE9pX0g-OO5RF0&a;dOng)9TZ~q3NteSkPXo9WJr%nLmnL6=! zJPpkK`fH7*@w;pcn42djErj$p!l*$8FvY+sg@NA@BH(v=qpj!^4V%{#bj9@=toWUN!H5feug%J=K=eXMkJ}eSnNO!wM9e?M&?*6Pl1}FJ0#F zc4`pC*d>?u_aIcYcxpp96-CS$-PFN&_5T}Vb`T47Z%~b-&Glgd40fUP1#N%J1rMl- zZ=?e?^8SY5{#%`Ur13A-rC>S1s5YfW&>1GgONxBS+yOrtNt*=LCcA2G?WvPq0PVVE z4z@YA7w-ADb&(YWE_@P*TK#}CDDXY<8YmMFih7rxV4Iann*VfpX-4(jaSAH!ZzA>Op=4^96R4n|0DawN!OsaL}|P;(#xI7pU58FwOjzGX=>_Ob?9dj6wrAmWHtSJ0$X;`T<@5l?69*D z-d@>gk$_ZKQvCvWE-u}_q@-iWN;ohCKSjOaWPEnykt23h{=iBZf^gd+!>SNQ-z-fq z{VGSt3-x`H^=R-Bq1DUlCf1#>*_f*|)beE=4L7et*8t#jMv`I{@rlEl3H zxfz@g6^Mq0G~|4tTd8DVlrtu(!gsv#8?o|GUXPC?Q!@0fqgMAOna}E@4wgP`c4vJDAP|0X~>~{XL&^lrz0sn^@AWT`luk00eHngt#^G z`-mH+oe5*B>tCCwf_#%NI9^4+>Am5N(&C5{P0fIDL;)41NBTc<6Xxn3`$KrB@K&H1 zAvk198iYly1z7FajW5zUR7z$~DuHEYGyY{0?jxE*vlT`Y8IVRChn>O~m+jVSOOg2$fz3gvsEDJmTW1hyWDXnB%z(8P} zYYA;7p2sl^Oh_%zulvBKgQ$8B`51kMvV^HOHMTQs(uB^E8s6DU=Zu0_n!nlJv%z8&35SR8V$SF5LkJie*Tls65VyYaa~b)Hd6=VFs29&ff`W8_904C;m7x9aIY{vfOA*9H-)k!_90s^kz^yT@ z^%;(x?3y*D*xzF1ISkbniWhB@Q(A%lifkiTiomfeDXh2(hF*X$kB_up7fFasy;~gz z=!&*CK*5l80SMhr9HNMz>LqvU$zF<<|2XRqoE0^PSl3)R2Rg}R{*f^@NFCiZ2fDcw zEP?tmbHzr?&+qCS+MnfrTWhS1MZM$t`(Gga5>AJDy&o{T2$_a#Vv%rtks6eySMmEf z)Sm@QfwP1DRL+4Ca-P^w2-AD52lkQw{g>}H9Y}P&v?K9m;9?YZ2z0;_-Q;yTU^O;_$uTFMY83 zVQ>S|o}oAiOPO`#DOD7Cb6*5R%+;$m%;+?*hU1|7%Zi1i3yQkZhmu60oO&b@H^Yj| zLLM;##JW}xz^0yw`4#bj8 zW7KK$Wx5rsar2SkD@(QjTF}yXW8dYeZVRywreV_x!SD=`=SKub)u4S?Eg^S_j{~XG zLHz?h_aG>JLJ0xalRBgRNokn7j7<%BJe zYIFxMa5}8Bf{)t{6j$$)z#9XOPw0m`Uzm9twRdp)ZKo=2Xgn}nfs?@|JP2VK==@`Q z^~7}HmnWu@MfaTYeho|N za%B`lhW(MS8RHKn8%|GjTeZ@CfFOj$mx~8hdx}|}u?7V8!Lc323tK88zvR;H)|ay9 zL&{3ypa}Ct>%|!bYN&-1@(~0$q`+qFY3Ka3~Rmr zuM~e@{ulH}34zJ>nPeU}c>Eu4{|M-I>1{G^$3cVtF&SgLKpmR%2xcI4<6(qA)Brgu NbF9$+9|%aa!yI(cTO9xZ literal 0 HcmV?d00001