From a66f2c25a53f61432f5be4573699c05d948a503f Mon Sep 17 00:00:00 2001
From: Desi Quintans <science@desiquintans.com>
Date: Sat, 25 May 2024 21:30:54 +1000
Subject: [PATCH] Add new mapping with chronic condition "U" codes for
 ICD-10-AM (#72)

* Add chronic condition "U" codes to ICD-10-AM

* Add 'charlson_icd10_am_ucodes' map
---
 R/sysdata.rda           | Bin 3789 -> 3792 bytes
 data-raw/make-mapping.R |  23 ++++++++++++++++++++++-
 2 files changed, 22 insertions(+), 1 deletion(-)

diff --git a/R/sysdata.rda b/R/sysdata.rda
index 80dec38067b4ca3f0410dde2a6310f747fc4a209..66bada3e56d996d88ae6aba71eee153561251e2e 100644
GIT binary patch
literal 3792
zcmV;>4lnUST4*^jL0KkKSq$35wE#0Se~kbC|Nh-sf8hWB|4_f@|KI=szyLr2;1iz*
zx!f~X*u@b<hYuqhDG=<@B8XIgM5t9nBo1%{00>DC07;?{Op)p|8UO~38Z>AC8UsVr
zX`lflObR5L5}%~S8Usv20BU5y8e%aFAYhCDLxG?)8Z-==01W^JCWe{@ngD3gpaG*n
z3X+ka0000000000000015B*e_^-cb&2*P17OiT%aGGGKTGGG7zOiX|(NP=n_n+P>e
zX*C|AdsOt)^#C$xXnKZ#05kx4Bg#EQG*E4Oj>76Zk7Z)(F-x*M7A(c!^DgapJQTAx
zGg9huIaJhOr886O5_*~$86C!j+A}k2dDl%$lYH+>LyticaU@VLC7_a6lB6U>EFE?w
z(Ik{mNQ<JO6BVIkB?v<xkOn|Q41vYt^0^q~|BY8CHz2d$l@EW#we5B9o$~GS_lF0_
ziffFvzRWtz$|rK?bFF*Vm(0kwg7%@z<$TUP?%!hk?2YjgTfzn9dA@T=w3{tiwJ;HO
zjVN#B2T*YXhf!_Cma<u8DJf90m?<zSPw%++)+|+)idX*55{?N^cB2KYFalu-NRcGn
zcx<y>ut)^j#lq->huGVed-!~0{%ORXwC8g*IJo`IZERS#HMq4qTN*TIX{MTKrkZJ{
znrWt*X{MTCh8SUn7-6QGX{MTKrkZK-%{0@mk<roDT~5}-yjHcTJMZXgS*y|AuW`m`
zYac&}aXxKqV3cD@N51k4J*^zmNi@?<JdHHdO*HWl4ODQg$wJb9i7Zpt^jEfu+%y?k
zZ+G4N6H`)CT&|0v=(d*v2q1z8Ac6=Wf(Rgj5D*X$5C|ihtSmSh8Wt87ty<NKR;^mK
zV#SLVELgE(eOekC8X6iNfap364wv-z*mfO<VcoH%mKLn*3s;M*&Z=|M-QDw??-rMQ
zuk}7oCa$J^Ug$$P&N@=mr71R#vpYhNg61>7Gxj+4r>c{<G;MCZ)26)Y3$=O9A&B$`
zdoMQSM^{->S0r8Uc84c7UaazY;;o?ecD4-_u+VHO6$yofg@uLp->piOD+XpTJ)Z3@
zR=R#}C{1^X^D~J!_6qB{rzp&Y{UE+@z2INWUo=b!#s0+N4_p%pr&GjyJaNx7<Hh8e
z0)%5Dyusn$gU$Co5$M*djAIyjPIQAplBGRfH(J-rCd8!jz3-2uYr?*{Ym!OX!ihT?
zYr}d^1#$4h6rMz%-CXZGc-*YA!pkhv3^4KJy*-_nXy>PGnVF^oyMF^Q!wEbVSBfZd
z@?K{!DcGWlD)s8Cmegl;IO;LHuVO7~w>{Y*JmcH;`gpRv&vJ3tTrRPO^Krdih>uY1
z<f2Q^&~<n=j@5A*KB$vctyo@;)p4UXu0eVl4zEVh+O8qA)?(_LLqZkc+U-pD9}?}1
z_+7k1yVpI>BH)VhJA`qWLNk-O1r~yI>DAOo6Px<RPakiMffyH*vDPoN>5OGbNoF<N
z^=V6Yo$p#vg#nrg)mGx>PP1MPVefKTnVYI4)cemn<P_cxb#(_0$B%J`t9qv#f({oF
zJ}%?4&wBHB@4D)EG|cm+A|7LVmzJTbd49*TN+`p@5}8VsDkG&m4%sX;#6;Izxzjg_
z^rkixzHk{tv`-7nbG>1MMl<P?+9B^H6a1yn{|QO(9+H2=@9*f?*rhhM)UF;5g!E}-
zYHBR9#VqOQX=`5_?@uaxiM>4Ox74zFNt$(~6Xj0CvT99Ua^ifcf@0$Gsi{x88mNRr
z=z<~v0E2=N0}L_@s9=y$xHw#-1pr`(C?FL;><?(7l9q%JdT2W;NX(QlOj44`1iDIv
zlIl{yVp&MAqQ#<ERT915HQpS4Z*BZ_-B#|G^5Oe@j2f7+WX*+cxg?f)Q0kMaR2s2Z
zZkt-`UAZpytvYbNZX9}}N+7dcu%;Q4t5Bgae01=*xV6@5qYh?`56aDHO>e44S~jcR
z6+@R_x7tuBSY?wQ`KHzim{!IYrbe_TG_`X^P0KQkjV)-wx=e<JEZ~*I;TItSkb!j<
ztwvzINe1c`yMzdgFu+0tcK0xt#PBLxWkCK3fbohWpsen_?@GxgFd2^nGrtMl*Jm9w
zCS)<ey6JTkY1c#t25Yr^s#WX-<p(g#RXwU!uEnLyMY-!&QgXo7%4GmM%k|fOXREoG
z87fGbLd0gLsS+OG>gm)J!j-KJ4An18wAdn)Ld5{VQMN=anzk|=!pI;gh_Z~{1qP}L
z7b;AuRM*aAvXsF^jfIyJ4sEVnUXI5I7-7N39DLggp4pv6jKuCtFfhQw0}O=BGcQ09
zgIQYG?W$lZ<70u%npR8`VE7m?z{mJ>l<9q~()!kD6|)g?>WjU^%$a~EOe|uQzA<2h
zhK2(QpuoceCP^4rtm@%b9CyZA(;1<I7;s|&f=HNxB#4Y)Fiw6gTL*mxoNPN`m;*6o
zWn!@dj4^hxRob%HNro=gKd3Uy_h$hd#Mf?Gs9w8N3@|SK`DvhD<`d>&BcXG^p?J8{
zD;9|3#`F-KI)$oMhK4B3$2IlagX)lAyxR*#<-Q!M9(2gU-JB>TKtMqRHWaBsWmyKS
z9yH3_TwH!>npX)Rl27BmFv{O{FJ-n{OveGCmyxW&oQ76=Ea7LGkCVaSaJuWLmRZWL
z7(4NWdt6|d@CNxRs;g4=Q@83EtXcV27A-xnut%D19+pkS;cN}7j<Cfc(=#S9<Ydd*
zqLs)N#WxFK`Aj=Ee6xyZMay3TBabUA%0EHAM?gPQ!=D6knVi3BVX@%|Nf0`dJY=NP
z!4d==SHdaNsIF)oE|!Nu(L1a<q`<+|oN1G#v`k!BVH0HF>kQU+!NUTT281Z!bB6}r
zGvTdu%O%xA!${<W1><y};nc5K>DRn(ot<3akTx}yXcus0ov2~6tF!3d;}O}JhFXG)
z<2h()R+UwmQvk`7Ze@v=D9qPWP&8V>hgL4e%CL0fP#xbx<aewzyIYya;MV}e*3NhR
ztUoLr02`x?p1fkQGoaBK1z5Av)^l}fo9n9eE!ZnooLA?H;PjR<^_Eh~Hr1-JB0L61
z$6Ij5o<s-?K#5~T3(2boamPo6suZkP7#MD2WvB)Rwu~oKw<ZT8g%&!Z`56HU6G&p@
zMhr=qX;Ng8a%iHf(j^CXVh(6Ld`I6>C#G3&;^Q&Eox#NH0&LA$WHU?!uoQMwk(o;I
z8?%eC21|$*EMoz3H(-7`uR6<_LSSxF5g?reM;Bv7j=e*3TMh7VR2zuofy=qWxZ}9Y
zGYrQAxNfu^%-}aND-%0d&@s0ehRA`%2ToAnGuY5~Xr%*DpHESaV7H+=wCPhpkjjFY
zEpu2CVh|=33|`^6dG0t+Ch|=Yh_K2$bQocdqmDS^0|M5(D<*AP<c`K3!mYfR;jo!>
zv^8qbwTqK>+s${8fr3;ind0Q^%HA9(dpS<qv>FnqG%z@BQ93)>YVLHL^5h+^->tGU
z6v)&0yoeZKhBnSK3=A>cFh#+~y25-G4Udt(MO8|w^qsq$I)1s-s>IoulTUjYj}y4e
zwI0?tb<(Bibsxh;D5RM|puz0$S!%4;Oei67Ldn!(;uhd;rB!NLWF}g`Ffipx6g!8!
z8ocJY=gv}LjuJs7cy?oWnQGA0tH(>N9yy(L)5*{<aYV8y`k~y+ENUxo#Y&W+)?@Qk
zlv0T0mD2VvY%u8RyIwTrty&&B8h??QnA|zywQA6~@O!tWELa)eT6ucSHCb3BS7l4o
zs_wC1l}Z?gZwr@Kxp1<(Oq!}IrW&2Ng6y@);dE4zGI<J7;&R5sXRe}Ruy*yF>P)dx
zWf<j#+!H5N3aYAv9x1uOfx1?#+d0KKgj?g8idPh=aH}z%uQ82OnXuZtZ%+)dVY}FX
zKy)}WB+S{NaC+FlUje0f<QI|hLB~8yMj+#|eHsX77Asi|VL^srTg@T57YG&O5Fxc;
zFqqL{7k*fSu!}4*y}QaN9$*m!1VeP7fNm&l4k!*NY$!iVEAc)0o7&*|>UM@8^^{pm
zSC2Hx7Xub73{|_Ca@yd)+rwOHF^VOMAcFaGX4-pILtyso=aEcE-sN#|$O98?u&7WZ
zvvKhvL3~L{1D>Vc6et$WrkRx=Fiy#sWXgpC<mVD(gN-pJHc>w1S(Zf}UM`qC{52gY
z=ydCao27alFx3+e<(@|tGNQ^X#RL>^F=E9l0%xU!5=6DL4)xAXx{^ke`dz}s&Q;kw
zRjg6NmPp#|WRiAVGU32@IB{O^vduU+9V{Lo#i}?GFf<M}#-4^}+cyj`zel#SoMvte
zS$1(;+aP{XRB>TxI+5l_;OAXiPm?xGnK@^Rt>iuf%noDFSg}d_iWVgwY~onCb&|y=
z`%x$9WV7{@9Edj=?9d#cS{0;90cl2*2Mj?e28zIwESr1=0R)t@m_rdTlrY3GGDJfG
z3{(=zkU<koAuKU0Foekh$WsX@P>=vbK`}8gGebZ$5X!R*%M&sZ(n~WC0SO>QQSHda
zNRgb-?z0@p0)f;VgZ4uh4Uk8i9EJotLLFhv5cLn7e@27&4^UUYJ0a=#2QYfz9-$i3
zsVs-%Cn`yrQhp?)z?%t4l46^QfjtMf?^C_lhxAO7dR-1==qB=Do6_llI*E#6Pl+y^
z=us|A$)b3Pu`EhX3Gou?xK1gopON`fhw6U^jG2>pESZ+#l!uKCq{%FYT6U)d=j%+#
z>op-^JCn*!(e0;Fa83!Zm=k#qY?~16PVZsPmpn<-nI}4OldPDghKZpwPSom4Kkbmn
zm+nK9p20n&=_V=6Qc&cvG)g5UCDTG!lujwZGfGP*Ivk0)I}-wAoXLu2hUB_voSkWs
z7$qUosHrkCPDH?)6H*u<)R|G@sVchlT`rg=ji$11O{C)9oeosGXod;wlc$+IWX%o<
zu{9xd>`lhB=}ZvBoi6rd?CNe!#>BdErI6H)1UupY;vdjQ{4o%4lyeY&;_gVN3K9XE
GSeBsQRsIhE

literal 3789
zcmV;;4l?mVT4*^jL0KkKS>Osr7yvU8|BV0t|Nh-sf8hWB{ZPN>|KI=szyLr2;1hoy
zuX(u7R3y!c0PZDwk4}L_13)T+)NB9%00wXf007W{F+|ZI&}adm05kwJ01W^D01`ql
zkr6a$CX*mE000000001D05wLQK~o`-gfSXq(+P+T7!VjB27^pY5ugyI6sMY=l6sp{
z)M<!3lRym~qaXkP001%#GzS0;0ib9AX{JB{qfCGe88AR%001gU0%~BGj8hROrl$2z
zNc2D$f$0qffF7Zs7)_FTNM@ki@;eKZdk<M+<(MVRPW6j0cfP9UbG_cBnKd*nQ=z3z
z1?p2JKH(>&nTd(wGcIPx$*tyGni$E#c+$hA#0b40QUEkuKvw}}1rjiaD-z^MB@~E=
zx)lhREG&ef2xJlf&<J6WJl<Zno#*N3f5&;dfKZ@K5)%z+(_v6_W}-sKm_U#gWYQ9C
zx&||n#Vj6OZ!ehjkGH$MQ|QusDmH#(P2F@avdGT$zH%Vu`7hsfEw=5hUb+YAwRU;@
zK=ua^IC}%|h8cr~5e!IS8j$J|{@fw>7#J$cMJwpa6OE2(PiCV9tuO*#2}F@3>be{(
z*=y2CB#sOgi3tyPb{O#L{-pSmw4S8c+|ccI{ylAM7&o=MS{=@oY}vCg!wfLP3^2nC
zFvAQm!wW33%Pg|XFvAQm!wfLP3_l#h3_1B6ICGqwvdd{}T9dvUr*^7Q5btn+&JMhs
zWsLH*l|-W&QYyEikB$yuhRiU-4+a=vh8TCPX{Jaof>5-RdnKl}^12*W;5ZCSdmA0u
zl*&ai$g>t=%vcshixw<cv0}xG7A#n?V#SJ7sZyn4#Tck4ATTf}C@E5<iq<Sxv0}Aq
z)vH#mTD17EFfcGMFg%9?fq}*M{d64%LC|$fVMPThIb|xf%f3$U*Q%<Bj=ITgrG9p<
zGb@zGKS~g0Wy+SNDM_4qbF?W47I@D2=dFz<)f3TjNnZK#onLTJE7vnD7A^uKT%Mg|
zB_}Bhs!)jM2K7C7zUO{Vt)+eg^*oW~*zMqtA>=l-VPQeKTLz_CP1j!)wY9ZlGg3ZZ
zQdCYlc=%e?Q%zpA`RbLR)au!m7vj796WdRSpW!^oM6!J8WIUv#$-T+q>f5_^TX}df
zT*-a-I@(-%^u3QhpxwLGRaH`xogi?esZC69t!uWCtfZ2??!3ER71b8Gvu8vSZ0K#z
zZR&PRJ(gP8;Mw|f9bZqZxw<GQqKquE&ipT4j*BpJ*D0Bqx1j2uv6zC*os>^<NabGN
zd%FpCB$7$2d6|kG4G^anjBhL0MD0_{NrWcL+3e<0eSLZ9;sSuA%-*gy!_!yT{u66w
z1A)Neo(|Jm#Mq-oELgCt9j3K|VrbEUfq{x}cAC~R80=>D*$W+GrYjw#t6BIrc<0#M
zYfkSm*z&}0v$)qf+)nn+LeoNY>DDa}Ouy)zA4j*~bR(gCCLawyl<AJUTU%Y~{Lh@;
z<2RY+sfBu4AR&3vm%L`H9JA?-vokj&*@^ShQCfL!$mGt5Iv<-pyVh=-8O;zun#XBX
zu8&OW`3=d|pl$DQjB8K5Ul`L$-k!csX2~S8qgzb2wzjpdE%0`|u-n$Px#pAXrZ=T;
zPz<%U*5HM^hJo$X<p+!q^hO7=ItX?KA5cG#f3f7_;^v$RQ*(7n<=*N~$(@m*pt8#p
zv#+V0t#%i1Pbz$=!92;k(z1Mn$vGtx=1#=2XiXl`aGx?>m^)t5niTVfiX?<Qi6H?1
zgM^|6Fvu{Wgo2Hj2%roR1q1-79_ahw1Tl&PA0-EZp)n;T>4H*OAeSVl7&;Lc0f6BN
zfI)$X;1mtLDZwLKZWEB(h#N#koRVI9K!U-82?_+3F#y4Z2aN|(ol20!YJ)Jz$5`zf
zccn?wgXI?UCK70)9julald4);OjJ63C{VH0;7Md&4X25`ZKkYSG_Y({kW7woe{buk
zD8Y$>{ezpRs8X`2eB>R$7;<}u3^0>QHV#hVN!b01U2xx?3IlFx3y3(hK48oovun+U
zbm0bu7+@j|d43%xI-Z4D<gh=%Fdv*cn1<&u{QD01zZ*k;UIxp7%*Sb_G}1<cbBmgj
z4sg&w%~Yx;RQrPZpyy1*r^_zgjNijT^FBOrZOjJF(<lSn=Vfz!F~>A}9TIz(YE<~y
zvG@+SokEb6O9KM&ZRM63qEte)Ai+AyHKm)HV)W&dXwXX<qD#ksm5HP@t%#{2Wjj<w
z+byOEC~GRW8(B&!u$Cau!wwEO<M*8}hsU|Gb>5C9Ac!Iek)obJHPYDZ*|)pq?(Gfi
z8?QmnCxwZESU%GSObmUuNlkOg^IY-cx(miM=M^t^6EbE1n(1}bS32tgFlgvHRtyX<
zGGvj`>gL=nhaKKNf#@7}PCJGYL=iD0L}oZ!o8P9#W~Sa?Y&5nTSY`mbS2s4OK;sNm
zD<-K$6v9j~RIUC2mS@wu1VyH*a+K+NWr5QI_xJHI&4){_<TiSoK4l!!jV0-{IQq^8
zlc!o(wy-cQYVzF2$7mlG!Gf<SC^G5niIMk(>dJO>%`0iN8d@OJSt?eODZLo1ePMN2
z<S2N{!d?xIY}xlU=pC;=F1d@#FDaPB2L@VaV*!Hz#M%jzn<}FXoFQ;7S>8g#%vkh$
z^NTMA2|n0)_!g~QoW;DafW-Ua&-hwcxJsZ$l+b!IXigNs*rC;ywj5?;#lFT&zA{R!
zflNz5Ogu{t&D2o~aw4|X0j)#rT^A?YGr_<gn}R;L<1;z(`PWU<M0SWhi9VsdwDf3#
z9beB$)2%Os2NxCx1BUY$bt!>^g%I1>#gcDTstYx`H)E?W8Q#ZO*r_!JmXtt55M(r2
zjZ+kD)ay~P&4z-lxU@mduVK@#s%NDh&U!Ki>&I&#<AIZ4P*Z2Qql_?&LK&HZCxJy7
zO&qB@0U+T($(C^Khd4_!aax1Hm>oL9jCn1C*VDuZh~XF_Rt{P%l;klFhz2HD46ypx
zCPoHe06fSye%_s4j{FCMTSc}#W;vL!y!M&+EX@;(2vzB7w0e{>_9&GXCQ{LCY}cT6
zKVH~+H;35-3_+t01svO4JB~U#ShTjSSXfz?ZFFf24^68#i)|aw=Ae>?QdDa68d^=T
zwHnpal11pkWWAdrkxJgQQ10wQn$CM~_~s0C)YW5eLaDVaV##U}wPQ1yja>$G66~jo
zz3-YE;^O#_$$CMC9dsNu#s}NJcxJ0LM54D!Ub<QrteiEoZ{BRiY&LCeXe({{mp59?
zwzA7vRH{`rtz%}4ma|rv*^2q67Yy3UY_h3Zkg{EAW?55dtAki+IIRj2&9^a>3kL*&
zCqTeOKvIc8!{t~Bn1l%n4!OYdzpuf<f?sPxnqiY`)6`*xJ%=1|#s&rB$IiEd{Cv+_
zDA{MZSl$?enoPK`F=D`_YByBb81J!xme!W{xKX^`)<Fc1L`$}0hApO$#bKi^Od4pV
zI?Y#tG<3Rr>Wy8S*xUO)4Gb{D9$Cg=frdUq2Amvx;^{;f9!Ko{dsbS%TF;Y*ul03U
zVu@yEQ|HLceGcO?@vn{^c(F?I>tAsstx8O^U@&|3QA%jXOf4Evw7WfqI3an0id9AI
zk1H?+1|3;NA0g_-pH0kqM6C=#vqs77*^GqC76vR`@pA{%UpdF*urNZ_*%JJb+`A}g
zCoHupR@O8u$Ae0VC2LVc@q4eBS;LdkvF%#0>jvN5Gcy-tbvUtLR=Pf#!quw_>zH@!
zVT%k6mmY<jn=O2((%qDGA0M9%E^~m`xYA0Ul5vKT5LFbSV5ui&#s}C+)ptYMJNEIT
zl@8xw&tgn0l9>1~-XSt|VQSTcKBb})194GCQ4qIwYM$J?TTr&P;WS%4y)_-dCxG&~
zu3yi#FmHAsAapo0B+SxacX)Ih=sYfKuwP5|Lymn6Ye3_&e+Ph$`oi^W*eGF`S@pIz
zslbB$I)Xf`6A6z62CBST4ue!sT>R?fkbUS8qd~1V7L5Z!(_li-Lep6(Pg>`%v=MH%
zvdtd?N+pTw%4MYiYSo3Q%)8x7V}k=^7~@flNwy@>qT;tj(t1-PSoG}cvRK&PMfJhR
z1|^b`Lrbh5n>HEEt-$BiXOcqtxlGBrbnKaiOr(&*aBR?d?TxYElYd0fBy8`gN0UXa
zwS*^HB)ccW>hNW_-*?#t+Sxfolv>fENDEf2ZCG!0#M(Eimv&*^VmFrxNg7k(P-4iM
zqg&FOVu&MV#>Z+lZ0L#zAT&7YvI;1|2Lp=7){9uR0kMI!IN7W`Gd@w4S#9>c)x<M2
z3{g}<s*w*8OpvUlEihXQ7P)6fUrF-h#fui1vy17T>Fk41=PX#H{zVHCkHB^oE-qOt
zQhaI!`Oe_O>IfYOIXAaJbcJYEkthYF8c-Z!2}n2W5@nN*0|5k-w=oQfgrSBZiIO51
z2x6d?RDuYaX$fJ8VT2|~7DAXwLWGb4A_<9!iJBS#poUeLW>}e!mXcYRfCxzfDv!rQ
zG!{2D_<Fj+yeBE!A&d_EBkKo2q92(LI%J2TKZ<|nN2H&LB=}RgKM%r}r@kJ9HK!D^
zAE262Op=rHr6uI)B_=6?ZzbgS&m+dCjo63xOjCkfhNS8z0$!XF<h-0of?!X9E={OW
zE+$0HHWQ^RN=|9;66D?|YHKIyex&F7UWbI46M-z57VSzy!iM5vmP3+vCp6p1GAF3e
zg@o}Zl%KQLPASbfr%5j-0v@?KQ0`9`fwe9+Cltjtrjl|d37MK^Oq01drJp^J#Fu!G
z(oX?Cl68{=)KXCBu`@~~B_+w3EJ`P8b4-$w$+ZrI-kphgF-=K=WQO#)Gfs|4iWj9J
z*Py8}F;0ZMohhLU(BhcUvZSizqU5<ROxulQ;G2os;GIn=a%P3;>l3e1dWn)8)1@>a
za&{*3T6Lx9U{1G<kvllIrt_sPO(|qFBbt-Sp!VLPC(x9o9%&NzPyR0Cig2MJz!Z!y
D9}4_f

diff --git a/data-raw/make-mapping.R b/data-raw/make-mapping.R
index 0f70b61..309daa0 100644
--- a/data-raw/make-mapping.R
+++ b/data-raw/make-mapping.R
@@ -72,7 +72,7 @@
 .maps[[.tmpn]][["pvd"]] <- c("I71", "I790", "I739", "R02", "Z958", "Z959")
 .maps[[.tmpn]][["cevd"]] <- c("I60", "I61", "I62", "I63", "I65", "I66", "G450", "G451", "G452", "G458", "G459", "G46", "I64", "G454", "I670", "I671", "I672", "I674", "I675", "I676", "I677", "I678", "I679", "I681", "I682", "I688", "I69")
 .maps[[.tmpn]][["dementia"]] <- c("F00", "F01", "F02", "F051")
-.maps[[.tmpn]][["cpd"]] <- c("J40", "J41", "J42", "J44", "J43", "J45", "J46", "J47", "J67", "J44", "J60", "J61", "J62", "J63", "J66", "J64", "J65")
+.maps[[.tmpn]][["cpd"]] <- c("J40", "J41", "J42", "J43", "J45", "J46", "J47", "J67", "J44", "J60", "J61", "J62", "J63", "J66", "J64", "J65")
 .maps[[.tmpn]][["rheumd"]] <- c("M32", "M34", "M332", "M053", "M058", "M059", "M060", "M063", "M069", "M050", "M052", "M051", "M353")
 .maps[[.tmpn]][["pud"]] <- c("K25", "K26", "K27", "K28")
 .maps[[.tmpn]][["mld"]] <- c("K702", "K703", "K73", "K717", "K740", "K742", "K746", "K743", "K744", "K745")
@@ -85,6 +85,27 @@
 .maps[[.tmpn]][["metacanc"]] <- c("C77", "C78", "C79", "C80")
 .maps[[.tmpn]][["aids"]] <- c("B20", "B21", "B22", "B23", "B24")
 
+# Charlson score, ICD10, Australian version with chronic condition "U-codes" added.
+.tmpn <- "charlson_icd10_am_ucodes"
+.maps[[.tmpn]] <- list()
+.maps[[.tmpn]][["mi"]] <- c("I21", "I22", "I252")
+.maps[[.tmpn]][["chf"]] <- c("I50", "U822")
+.maps[[.tmpn]][["pvd"]] <- c("I71", "I739", "I790", "R02", "Z95", "Z958")
+.maps[[.tmpn]][["cevd"]] <- c("G46", "G450", "G451", "G452", "G454", "G458", "G459", "I60", "I61", "I62", "I63", "I64", "I65", "I66", "I69", "I670", "I671", "I672", "I674", "I675", "I676", "I677", "I678", "I679", "I681", "I682", "I688")
+.maps[[.tmpn]][["dementia"]] <- c("F00", "F01", "F02", "F051", "U791")
+.maps[[.tmpn]][["cpd"]] <- c("J40", "J41", "J42", "J43", "J44", "J45", "J46", "J47", "J60", "J61", "J62", "J63", "J64", "J65", "J66", "J67", "U832")
+.maps[[.tmpn]][["rheumd"]] <- c("M050", "M051", "M052", "M053", "M058", "M059", "M060", "M063", "M069", "M32", "M332", "M34", "M353", "U861")
+.maps[[.tmpn]][["pud"]] <- c("K25", "K26", "K27", "K28")
+.maps[[.tmpn]][["mld"]] <- c("K702", "K703", "K717", "K73", "K740", "K742", "K743", "K744", "K745", "K746")
+.maps[[.tmpn]][["diab"]] <- c("E101", "E105", "E109", "E111", "E115", "E119", "E131", "E135", "E139", "E141", "E145", "E149")
+.maps[[.tmpn]][["diabwc"]] <- c("E102", "E103", "E104", "E112", "E113", "E114", "E132", "E133", "E134", "E142", "E143", "E144")
+.maps[[.tmpn]][["hp"]] <- c("G041", "G81", "G820", "G821", "G822", "U805")
+.maps[[.tmpn]][["rend"]] <- c("N01", "N03", "N052", "N053", "N054", "N055", "N056", "N072", "N073", "N074", "N18", "N19", "N25", "U871")
+.maps[[.tmpn]][["canc"]] <- c("C0", "C1", "C2", "C3", "C40", "C41", "C43", "C45", "C46", "C47", "C48", "C49", "C5", "C6", "C70", "C71", "C72", "C73", "C74", "C75", "C76", "C80", "C81", "C82", "C83", "C84", "C85", "C883", "C887", "C889", "C900", "C901", "C91", "C92", "C93", "C940", "C941", "C942", "C943", "C9451", "C947", "C95", "C96")
+.maps[[.tmpn]][["msld"]] <- c("K721", "K729", "K766", "K767", "U843")
+.maps[[.tmpn]][["metacanc"]] <- c("C77", "C78", "C79", "C80")
+.maps[[.tmpn]][["aids"]] <- c("B20", "B21", "B22", "B23", "B24")
+
 # Elixhauser score, ICD9
 .tmpn <- "elixhauser_icd9_quan"
 .maps[[.tmpn]] <- list()