Standard Jet DBnb` Ugr@?~1y0̝cßFN]e7ڜ((` {6.߱jC13y[I+|*|I8f_Љ$g'DeFx -bT4.0 YHZ ! Y ~@S  Y   Y CY  Y Y  Y  aY  Y  a Y  Y  Y S Y   Y 2.Y  Y   Y  Y ConnectDatabaseDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypezkkkzzkzYYIdParentIdName        OY"S  Y Y Y  Y 2ACMFInheritableObjectIdSID YObjectId YS  Y  Y &Y Y  Y @u Y xY  Y  ,AttributeExpressionFlagLvExtra Name1 Name2ObjectId Order, x, x ,xY"ObjectIdAttribute   -YTS  Y Y Y  Y  Y  Y  Y  Y ccolumn grbiticolumnszColumnszObject$szReferencedColumn$szReferencedObjectszRelationship2  $  :  <? T  YYYszObject$szReferencedObjectszRelationship f!R  w & W  ;  @ q "7q  YH|  \ @A@h +kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^kQiqYMQk RhJMmYqQkQiqYMQk^JmQkm:Shiv+^YkmfJmYQbmsYmWkQiqYMQJbO^JLxyhk`SdLm^Jkm8vi+dqQi@6LJk^Yb\QOmJL^QkLJkomY^kLJkomY^k:`dOo^Q8iQfdimsYxJiOifmko``JivOQfiQkkYdbifmko``JivOYJLQmQkifmmQ`fifmskM+JfWk+MdiQ+`QJkoiQk ifmskM+OYJLQmQk+MdiQ+`QJkoiQk!OJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk&obYdbhoQiv8"+kh+MSi`MdobmfJmYQbmk+kh+M^kmJ^^Ou#+kh+MSi`MdobmfJmYQbmk+kh+M^kmJ^^Ou8$+kh+MSi`MdobmfJmYQbmk+kh+M^kmJ^^^JLk%+kh+MSi`MdobmfJmYQbmk+kh+M^kmJ^^iu&+kh+MSi`MdobmfJmYQbmk+kh+M^kmJ^^kQiqYMQk'+kh+MSi`MdobmfJmYQbmk+kh+M^kmJ^^kfQMYJ^`QJkoiQk(+kh+MSi`MdobmfJmYQbmk+kh+M^kmMWdkQbOu)+kh+MSi`MdobmfJmYQbmk+kh+M^kmiQ^JmQOOQ`d+kh+MSi`MdobmfJmYQbmk+kh+M^kmiQ^JmQOOu+kh+MSi`MdobmfJmYQbmk+kh+M^kmiQ^JmQO^JLk+kh+MSi`MdobmfJmYQbmk+kh+M^kmiQ^JmQOiu+kh+MSi`MdobmfJmYQbmk+kh+M^kmiQ^JmQOkQiqYMQk+kh+MSi`MdobmfJmYQbmk+kh+M^kmiQ^JmQOkfQMYJ^`QJkoiQk+kh+MSi`MdobmfJmYQbmk+kh+M^kmiQ^JmQOqYmJ^k+kh+MSi`MdobmfJmYQbmkMiYmQiYJ+kh+M^kmQmWbYMYmvSY^mQi[+kh+MSi`MdobmfJmYQbmkMiYmQiYJ+kh+M^kmiJMQ[+kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^Ou +kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^Ou8 +kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^^JLk +kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^iu +kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^kQiqYMQk +kh+MSi`^YkmfJmYQbmk+kh+M^kmMWdkQbOu+kh+MSi`^YkmfJmYQbmk+kh+M^kmiQ^JmQOOQ`d+kh+MSi`^YkmfJmYQbmk+kh+M^kmiQ^JmQOOu+kh+MSi`^YkmfJmYQbmk+kh+M^kmiQ^JmQO^JLk+kh+MSi`^YkmfJmYQbmk+kh+M^kmiQ^JmQOiu+kh+MSi`^YkmfJmYQbmk+kh+M^kmiQ^JmQOkQiqYMQk+kh+MSi`^YkmfJmYQbmk+kh+M^kmiQ^JmQOqYmJ^k+kh+MSi`^YkmfJmYQbmkUddOd^O+kh+MM`LMdbOYmYdbW+kh+MSi`^YkmfJmYQbmkUddOd^O+kh+M^km^JLkW+kh+MSi`^YkmfJmYQbmkUddOd^O+kh+M^kmkQiqYMQkW+kh+MSi`iQfdimk+kh+MM`LMdbOYmYdb+kh+MSi`iQfdimk+kh+MM`L^JL+kh+MSi`iQfdimk+kh+MM`L`QO+kh+MSi`iQfdimk+kh+MM`LkQiqYMQ+kh+MSi`iQfdimk+kh+M^kmhoQiYQk+kh+MSi`iQfdimk+kh+M^kmkQ^QMmM^YbYM+kh+MSi`kQmof+kh+MMLdMdbOYmYdb+kh+MSi`kQmof+kh+M^kmJ^^Ou+kh+MSi`kQmof+kh+M^kmJ^^^JLk+kh+MSi`kQmof+kh+M^kmJ^^iu+kh+MSi`kQmof+kh+M^kmJ^^kQiqYMQk+kh+iifmmQ`fMWJbUQMhiv+kQiqYMQ+iQSQiiJ^+Md`f^QmQOMhiv+kQiqYMQiQSQiiJ^k+YbfQiYdO `kvkJMMQkkdL[QMmk `kvkJMMQkku`^ `kvkJMQk`kvkbJqfJbQUidofMJmQUdiYQk `kvkbJqfJbQUidofk `kvkbJqfJbQUidofmddL[QMmk`kvkbJqfJbQdL[QMmYOk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkhJMmYqQOQ`dhJMmYqQWQJ^mWhJMmYqQWQJ^mW8hJMmYqQ^JLkhJMmYqQ^JLk^JmQkm8hJMmYqQ^JLk^JmQkm:hJMmYqQ^JLk^JmQkm<hJMmYqQ^JLk^JmQkm>hJMmYqQ`QOhJMmYqQ`QO8JMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQOokQiOQSYbQO @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @           !"#$%&' (!)"#$%&'()*+ , - . / 0123456789:;<=>?@ABCDEFG HIJKLMNOPQRSTUVWX Y!Z"[#\$]%^&_Y`YaYbYcYdYeYfYgYhY iY jY kY lY mYnYoYpYqYrYsYtYuYvYwYxYyYzY{Y|Y}Y~Yxxxxxxxxxx x x x x xxxxxxxxxxxxxxxxxxx x!x"x#x$      !"#$%&'      &'^()*+,-  ^     $ 3 8 < AH"v% @ AJ J'287:9!!!!!! ! ! ! !!!!!!!!!!!!!$!% !& !' !( !) !* !+ !, !- !. !/ !0 !1 !2 !3 !4!5!6!7!8!9!:!;!<!=!>!?!@!A!B!C!D!E!F!G!H!I!J!K!L!M!N!O$$$$$$$$$$ $ $ $ $ $$$$$$$$$$$$$ $ $ $!$!$!$ "$!"$""$##$$#$%#$&$$'$$($$)%$*%$+%$,&$-&$.&$/'$0'$1'$2($3($4($5)$6)$7)$8*$9*$:*$;+$<+$=+$>,$?,$@,$A-$B-$C-$D.$E.$F.$G/$H/$I/$J0%0%0%1%1%1%2%2%2%3% 3% 3% 4% 4% 4%5%5%5%6%6%6%7%7%7%7%8%8%8%8%9%9%9%9% :%!:%":%#;%$;%%;%&<%'<%(<%)=%*=%+=%,>%->%.>%/?%0?%1?%2@%3@%4@%5A%6A%7A%8B%9B%:B%;C%<C%=C%>D%?D%@D%AE%BE%CE%DF'F'F'G'G'G'H'+H',H'-I'.I'/I'0J'1J'2J'3K'4K'5K'6L'7L'8L'9M':M';M'<N'=N'>N'?O'@O'AO'BP'CP*P*Q*Q*Q*R*R*R*S*S* S* T* T* T* U*U*U*V*V*V*W*W*W*X*X*X*Y*Y*Y*Z*Z*Z*[* [*![*"\*#\*$\*%]*&]*']*(^*)^**^*+_*,_*-_*.`*/`*0`*1a*2a*3a*4b*5b*6b*7c*8c*9c*:d*;d*<d*=e*>e*?e*@f*Af*Bf*Cg*Dg*Eg*Fh*Gh*Hh*Ii*Ji/i/j/j/j/k/k/k/l/l/ l/ m/ m/ m/ n/n/n/o/o/o/p/p/p/q/q/q/r/r/r/s/s/s/t/ t/!t/"u/#u/$u/%v/&v/'v/(w/)w/*w/+x/,x/-x/.y//y/0y/1z/2z/3z/4{/5{/6{/7|/8|/9|/:}/;}/<}/=~/>~/?~/@/A/B/C/D/E/F/G/H/I/J77777777'"'#'$'''%'&'''(')'*%E''$'$' $' $' 3' 3' 3'3'8'8'8'8'<'<'<'<'A'A'A'A'H'H'H' H'!!!!! !! !!!!!!"!#v1CHD"!!!$ H@ IPTULKS!RDCL$S(%IP  @ @ @ @&!2CARQO[V1T` Z[f\<^la*boe fr g:iulmx o?p{ s u  z{}.!$( ! $#p!H!=*, 4Q! 12345 6 7 8 9/ : < = > ? @  A ;!B!D!E!F!C"G""""""" " " "H# # # # ## # $$$$$ $ $ $%%%%%% %&&!&"&#&$& %& '&'(')'*' +' ,' -''(.(0(1(2(3(4(5( 6( 7( 8(/)9);)<) =):*>*@*A*B* C* D*?+E+G+++++++ +F,, , , , ,- ------- - - - -....... . !. ". #. $./%/'/(/)/*/+/,/ -/ ./ // 0/&01030405021618191:1;1<1=1 >1 ?1 @172A2Bv1@   *d _ Z g  ~K ] < =@3*&DaB@!rire~@rire~@~sq_cfrmCountPatients~sq_clstChosenDxjjjjjjjjjjj  Tc@ @@ @~sq_cfrmCountPatients~sq_clstAllSpecialMeasures44MR2KeepLocal T~ @" @" @~sq_cfrmCountPatients~sq_clstAllServices44MR2KeepLocal Trrrrrrrp @ " @" @~sq_cfrmCountPatients~sq_clstAllLabs44MR2KeepLocal Tjjjjjjjh @H@ @H@ @~sq_cfrmCountPatients~sq_clstAllDx144MR2KeepLocal Thhhhhhhf @ Bw@lBw@@UnionQuery14@#|@"RFF:::::::8 @VTtҤ@qڤ@rptWSC_Diabetes_Core_Measures4\\\\\\\\\\Z 3tҤ@qڤ@rptWSC_APHS_Core_Measures4TTTTTTTTTTR 3tҤ@qڤ@rptTemp40000000000. sҤ@qڤ@rptSummaryDiabetes4FFFFFFFFFFD [sҤ@qڤ@rptSummaryDepression4JJJJJJJJJJH [sҤ@qڤ@report wizard4<<<<<<<<<<: *@*@Module140000000000. [sҤ@qڤ@basUtils2444444444442 [sҤ@qڤ@basUtils422222222220 [sҤ@qڤ@basLinkedTables4@@@@@@@@@@> [sҤ@qڤ@basCommonFile4<<<<<<<<<<: [sҤ@qڤ@basAutoexec488888888886  sҤ@qڤ@frmSplash444444444442  {b: @{b: @frmReports466666666664  kK1Y@kK1Y@frmListPatients4@@@@@@@@@@>  Ȧkw@Ȧkw@frmCountPatients-criteria4TTTTTTTTTTR  QlҤ@qڤ@frmCountPatients4BBBBBBBBBB@  "&XҤ@lҤ@UserDefined4A@#DDD88888886 @ "&XҤ@v@SummaryInfo4 @#DDD88888886 @ bҤ@bҤ@SysRel4.........., bҤ@bҤ@Scripts40000000000. bҤ@bҤ@Reports40000000000. bҤ@bҤ@Modules40000000000. bҤ@bҤ@Forms4,,,,,,,,,,* bҤ@bҤ@DataAccessPages4@@@@@@@@@@> -WҤ@-WҤ@MSysRelationships5DDDDDDDDDDB -WҤ@ڤ@MSysQueries588888888886 -WҤ@ڤ@MSysACEs522222222220 -WҤ@-WҤ@MSysObjects588888888886 -WҤ@x~@MSysDb4@c:::......., @-WҤ@-WҤ@Relationships5<<<<<<<<<<: -WҤ@-WҤ@Databases544444444442 -WҤ@-WҤ@Tables5.........., "IJ J G  } _ ! Y ! t  R ( f cmO1ebv6Y/o("r "r G!r@  '!rtblReportsTemp.display_text: g!rtblReportsTemp--- !r !r G tb tblReportsSpecial.report_order= '  tbL@  ' tbtblReportsSpecial.field_name; g tb tblReportsSpecial.source_query= g tb!tblReportsSpecial.display_label> g  tbtblReportsSpecial333  tb  tb G r@  ' rtlkpCrosswalk.type_code6 g rtlkpSetup.health_status6 g rtlkpCrosswalk.working_code9 grtlkpSetuptlkpCrosswalkh@ I=# rFirstOfraw_codeFirst(tlkpCrosswalk.raw_code)Z// ortlkpCrosswalk.working_code9 grtlkpCrosswalk+++ rtlkpSetup### r Gr r G @  ' tlkpCrosswalk.type_code6 g tlkpSetup.health_status6 g tlkpCrosswalk.working_code9 gtlkpSetuptlkpCrosswalkh@I=# FirstOfraw_codeFirst(tlkpCrosswalk.raw_code)Z// otlkpCrosswalk.working_code9 gtlkpCrosswalk+++ tlkpSetup###  G  G @ ' tlkpCrosswalk.type_code6 g tlkpSetup.health_status6 g tlkpCrosswalk.working_code9 gtlkpSetuptlkpCrosswalkh@I=# FirstOfraw_codeFirst(tlkpCrosswalk.raw_code)Z// otlkpCrosswalk.working_code9 gtlkpCrosswalk+++ tlkpSetup###  G  GX7YZ_____2@1% 7X7YZ_____1@1% 7 G  G  G tlkpCrosswalk.working_code9 g@ 'tlkpSetuptlkpCrosswalkh@I=# FirstOfraw_codeFirst(tlkpCrosswalk.raw_code)Z// otlkpCrosswalk.working_code9 gtlkpCrosswalk+++ tlkpSetup###  G  GX7YZ_____2@1% 7X7YZ_____1@1% 7 G  G  GLVAL   v rp`X(((tblReportsTemp.type_order)=9))(((tblReportsTemp.type_order)=7))(((tblReportsTemp.type_order)=6))(((tblReportsTemp.type_order)=8))(((tblReportsTemp.type_order)=5))(((tblReportsTemp.type_order)=2))(((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0) AND ((tblReportsTemp.display_order)=0))(((tblReportsSpecial.report_order)>0))(((tlkpSetup.health_status) In (SELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0)))) AND ((tlkpCrosswalk.type_code)="service"))tlkpSetup.related_field = tlkpCrosswalk.working_code(((tlkpSetup.health_status) In (SELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0)))) AND ((tlkpCrosswalk.type_code)="rx"))tlkpSetup.related_field = tlkpCrosswalk.working_code(((tlkpSetup.health_status) In (SELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0)))) AND ((tlkpCrosswalk.type_code)="lab"))tlkpSetup.related_field = tlkpCrosswalk.working_codeSELECT '<any>' AS [working_code],'<any>' as [raw_code] from qUnduplicatedDxCrosswalkSELECT DISTINCTROW qUnduplicatedDxCrosswalk.working_code, First(qUnduplicatedDxCrosswalk.raw_code) AS FirstOfraw_code FROM qUnduplicatedDxCrosswalk GROUP BY qUnduplicatedDxCrosswalk.working_code; (((tlkpSetup.health_status) In (SELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0)))) AND ((tlkpCrosswalk.type_code)="Dx"))tlkpSetup.related_field = tlkpCrosswalk.working_codeSelect tlkpCrosswalk.working_code, [tlkpCrosswalk].[raw_code] FROM tlkpCrosswalk WHERE (((tlkpCrosswalk.type_code)='Dx'))SELECT '<any>' AS [working_code],'<any>' as [raw_code] from tlkpCrosswalk WHERE (((tlkpCrosswalk.type_code)='Dx')); SO1b^N L J V RIG$ FKzvDBfbA>>re~@re~@~sq_>bfP@bfP@~sq_cfrmReports~sq_clstQueries4# @[4MR2KeepLocal Tj^^^^^^\ ` <KR@KR@~sq_cfrmReports~sq_ccmbMed44MR2KeepLocal TVVVVVVVT @;Q@KR@~sq_cfrmReports~sq_ccmbLab44MR2KeepLocal TVVVVVVVT @ 9\@\@~sq_cfrmListPatients-goodold~sq_clstServices44MR2KeepLocal Tzzzzzzzx @8OS\@OS\@~sq_cfrmListPatients-goodold~sq_clstLabs44MR2KeepLocal Trrrrrrrp @ 6Ane@Ane@~sq_cfrmListPatients~sq_clstRelatedVitals44MR2KeepLocal Ttttttttr @5e@e@~sq_cfrmListPatients~sq_clstRelatedServices44MR2KeepLocal Txxxxxxxv @ 3Ze@Ze@~sq_cfrmListPatients~sq_clstRelatedLabs44MR2KeepLocal Tpppppppn @25e@5e@~sq_cfrmListPatients~sq_clstRelatedDx44MR2KeepLocal Tlllllllj @ 0e@e@~sq_cfrmListPatients~sq_clstChosenDx44MR2KeepLocal Tjjjjjjjh @/e@5e@~sq_cfrmListPatients~sq_clstAllServices44MR2KeepLocal Tpppppppn @ -Ane@e@~sq_cfrmListPatients~sq_clstAllLabs44MR2KeepLocal Thhhhhhhf @,e@e@~sq_cfrmListPatients~sq_clstAllDx144MR2KeepLocal Tfffffffd @ *)L@)L@~sq_cfrmCountPatients-criteria~sq_clstRace44MR2KeepLocal Tvvvvvvvt @)@@~sq_cfrmCountPatients-criteria~sq_clstEthnicityFilter44MR2KeepLocal T @ '@ @@ @~sq_cfrmCountPatients~sq_clstRelatedSpecialMeasures44MR2KeepLocal T @&#@ @#@ @~sq_cfrmCountPatients~sq_clstRelatedServices44MR2KeepLocal Tzzzzzzzx @ $@ @@ @~sq_cfrmCountPatients~sq_clstRelatedLabs44MR2KeepLocal Trrrrrrrp @#a@ @a@ @~sq_cfrmCountPatients~sq_clstRelatedDx44MR2KeepLocal Tnnnnnnnl @ H:; o 5  7  z P { ] ?  { Q LtVf`DE' cE'{> + G+ + G*  "xrace"& g* tblDemo.ethnicity0 g*raw_code "xrace"6!! o*tblDemo.ethnicity0 g*tblDemo * * G) tblDemo.ethnicity0 g)tblDemo.ethnicity0 g)tblDemo ) ) G( tblReportsTemp.display_order; '( tblReportsTemp.section_order; '( tblReportsTemp.type_order8 '(B@ '(tblReportsTemp.display_order; g(tblReportsTemp.section_order; g(tblReportsTemp.type_order8 g(tblReportsTemp.display_text: g(tblReportsTemp--- ( ( G' tblReportsTemp.display_order; '' tblReportsTemp.section_order; '' tblReportsTemp.type_order8 ''B@ ''tblReportsTemp.display_text: g'tblReportsTemp--- ' ' G& tblReportsTemp.display_order; '&B@ '&tblReportsTemp.display_order; g&tblReportsTemp.display_text: g&tblReportsTemp--- & & G% tblReportsTemp.display_order; '%B@ '%tblReportsTemp.raw_code6 g%tblReportsTemp.display_text: g%tblReportsTemp--- % % G$ tblReportsTemp.display_order; '$ tblReportsTemp.section_order; '$ tblReportsTemp.type_order8 '$B@ '$tblReportsTemp.display_text: g$tblReportsTemp--- $ $ G# tblReportsTemp.display_order; '#B@ '#tblReportsTemp.type_order8 g#tblReportsTemp.display_text: g#tblReportsTemp--- # # G" rtblReportsTemp.display_order; '" rtblReportsTemp.section_order; '" rtblReportsTemp.type_order8 '"rB@ '"rtblReportsTemp.display_order; g"rtblReportsTemp.section_order; g"rtblReportsTemp.type_order8 g"rtblReportsTemp.display_text: g"rtblReportsTemp--- LVALV 4  vVN :`qUnduplicatedLabCrosswalk.working_codeqUnduplicatedDxCrosswalk.raw_codeqUnduplicatedDxCrosswalk.working_code(((tlkpCrosswalk.type_code)="service"))(((tlkpCrosswalk.type_code)="lab"))qUnduplicatedDxCrosswalk.raw_codeqUnduplicatedDxCrosswalk.working_code(((tblReportsTemp.type_order)=3))(((tblReportsTemp.type_order)=7))(((tblReportsTemp.type_order)=6))(((tblReportsTemp.type_order)>7))(((tblReportsTemp.type_order)=5))(((tblReportsTemp.type_order)=2))(((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0) AND ((tblReportsTemp.display_order)=0))(((tlkpSetup.health_status) In (SELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0)))) AND ((tlkpCrosswalk.type_code)="service"))tlkpSetup.related_field = tlkpCrosswalk.working_code(((tlkpSetup.health_status) In (SELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0)))) AND ((tlkpCrosswalk.type_code)="rx"))tlkpSetup.related_field = tlkpCrosswalk.working_code(((tlkpSetup.health_status) In (SELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0)))) AND ((tlkpCrosswalk.type_code)="lab"))tlkpSetup.related_field = tlkpCrosswalk.working_codeSELECT '<any>' AS [working_code],'<any>' as [raw_code] from qUnduplicatedDxCrosswalkSELECT DISTINCTROW qUnduplicatedDxCrosswalk.working_code, First(qUnduplicatedDxCrosswalk.raw_code) AS FirstOfraw_code FROM qUnduplicatedDxCrosswalk GROUP BY qUnduplicatedDxCrosswalk.working_code; (((tlkpSetup.health_status) In (SELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0)))) AND ((tlkpCrosswalk.type_code)="Dx"))tlkpSetup.related_field = tlkpCrosswalk.working_code(((tblReportsTemp.type_order)=3))3ERk% o 1  o ) l & v X :  n  k(a1Lm*C\]jL2rtblReportsTemp.display_text: g2rtblReportsTemp--- 2r 2r G1 rtblReportsTemp.display_order; '1 rtblReportsTemp.section_order; '1 rtblReportsTemp.type_order8 '1rB@  '1rtblReportsTemp.display_order; g1rtblReportsTemp.section_order; g1rtblReportsTemp.type_order8 g1rtblReportsTemp.display_text: g1rtblReportsTemp--- 1r 1r G0 tb@  '0tbtblReportsTemp.display_text: g0 tbtblReportsTemp--- 0 tb 0tb G/ r@  '/ rtlkpCrosswalk.type_code6 g/ rtlkpSetup.health_status6 g/ rtlkpCrosswalk.working_code9 g/rtlkpSetuptlkpCrosswalkh@ I=# /rFirstOfraw_codeFirst(tlkpCrosswalk.raw_code)Z// o/rtlkpCrosswalk.working_code9 g/rtlkpCrosswalk+++ /rtlkpSetup### /r G/r /r G. @ '. tlkpCrosswalk.type_code6 g. tlkpSetup.health_status6 g. tlkpCrosswalk.working_code9 g.tlkpSetuptlkpCrosswalkh@I=# .FirstOfraw_codeFirst(tlkpCrosswalk.raw_code)Z// o.tlkpCrosswalk.working_code9 g.tlkpCrosswalk+++ .tlkpSetup### . G. . G- r@ '- rtlkpCrosswalk.type_code6 g- rtlkpSetup.health_status6 g- rtlkpCrosswalk.working_code9 g-rtlkpSetuptlkpCrosswalkh@I=# -rFirstOfraw_codeFirst(tlkpCrosswalk.raw_code)Z// o-rtlkpCrosswalk.working_code9 g-rtlkpCrosswalk+++ -rtlkpSetup### -r G-r -r G,rX7YZ_____2@1% 7,rX7YZ_____1@1% 7,r G, r G,r ,r G+ tlkpCrosswalk.working_code9 g+@ '+tlkpSetuptlkpCrosswalkh@I=# +FirstOfraw_codeFirst(tlkpCrosswalk.raw_code)Z// o+tlkpCrosswalk.working_code9 g+tlkpCrosswalk+++ +tlkpSetup###  @ @ @ @ @ @ @ @ @ @ @ @ @ @           !"$%&'() * + , -#.012345 6 7 8 9/ : < = > ? @  A ;!B!D!E!F!C"G""""""" " " "H# # # # ## # $$$$$ $ $ $%%%%%% %&&!&"&#&$& %& '&'(')'*' +' ,' -''(.(0(1(2(3(4(5( 6( 7( 8(/)9);)<) =):*>*@*A*B* C* D*?+E+G+++++++ +F,, , , , ,- ------- - - - -....... . !. ". #. $./%/'/(/)/*/+/,/ -/ ./ // 0/&01030405021618191:1;1<1=1 >1 ?1 @172A2B @ @ @ @ @ @ @ @ @ @ @ @ @ @&"&#&$& %& '&'(')'*' +' ,' -''(.(0(1(2(3(4(5( 6( 7( 8(/)9);)<) =):*>*@*A*B* C* D*?+E+G+++++++ +F,, , , , ,- ------- - - - -....... . !. ". #. $./%/'/(/)/*/+/,/ -/ ./ // 0/&01030405021618191:1;1<1=1 >1 ?1 @172A2C2D222 2B33333 3  3  34 4 4444 4 555555 56666666 6 !6 "6 #67$7&7'7(7)7%8*8,8-8.8/8+909293949591:6:8:9:::;:7;<;>;?;@;A;=<B<D<E<F<G<C=H=J=K=L=M=I>N>>>>>>> > >  >? ? ? ? @@@@@@ @AAAAOI+ b o Q  c  ^  h . Z  [kA]}7q#u%w){#> G=L@ g=T@ g=qUnduplicatedServiceCrosswalkKKK = G= = G<B@ g<J@ g<qUnduplicatedRxCrosswalkAAA < G< < G;D@ g;L@ g;qUnduplicatedLabCrosswalkCCC ; G; ; G:B@ g:J@ g:qUnduplicatedDxCrosswalkAAA : G: : G9N@ '9tlkpCrosswalk.raw_code5 g9tlkpCrosswalk.working_code9 g9tlkpCrosswalk+++ 9 9 G8F@ '8tlkpCrosswalk.raw_code5 g8tlkpCrosswalk.working_code9 g8tlkpCrosswalk+++ 8 8 G7B@ g7J@ g7qUnduplicatedDxCrosswalkAAA 7 G7 7 G6 tblReportsTemp.display_order; '6 tblReportsTemp.section_order; '6 tblReportsTemp.type_order8 '6B@ '6tblReportsTemp.display_order; g6tblReportsTemp.section_order; g6tblReportsTemp.type_order8 g6tblReportsTemp.display_text: g6tblReportsTemp--- 6 6 G5 tblReportsTemp.display_order; '5B@ '5tblReportsTemp.display_order; g5tblReportsTemp.display_text: g5tblReportsTemp--- 5 5 G4 tblReportsTemp.display_order; '4B@ '4tblReportsTemp.raw_code6 g4tblReportsTemp.display_text: g4tblReportsTemp--- 4 4 G3 tblReportsTemp.display_order; '3 tblReportsTemp.section_order; '3 tblReportsTemp.type_order8 '3B@ '3tblReportsTemp.display_text: g3tblReportsTemp--- 3 3 G2 rtblReportsTemp.display_order; '2rB@  '2rtblReportsTemp.type_order8 gLVAL"r0F \  ^  j : 4@FN "(((ActiveClinic([tblDemo].[clinic_code]))=True) AND ((Activeperiod([tblDemo].[start_date],Nz([tblDemo].[end_date],Date())))=True))DateDiff("yyyy",[dob],[forms]![frmReports]![txtEndDate])+Int(Format([Forms]![frmReports]![txtEndDate],'mmdd')<Format([tblDemo].[dob],'mmdd'))Switch(Len([pcp]),[tblDemo].[pcp],Len([tblDemo].[pcp] & "")=0,'unassigned')tblDemo.[last_name] & ", " & [first_name](((tblServices.status_flag)="r"))[last_name] & ", " & [first_name](((ActiveClinic([tblServices].[clinic_code]))=True) AND ((ActivePeriod([tblServices]![service_date],[tblServices]![service_date]))=True) AND ((Activeperiod([tblDemo].[start_date],Nz([tblDemo].[end_date],Date())))=True))tblDemo.chart_number = tblServices.chart_numbertblDemo.clinic_code = tblServices.clinic_code[last_name] & ", " & [first_name]QRY_Last_Service_Date.MaxOfservice_datecqry_ServiceReferrals_InPeriod.referral_datecqry_ServiceReferrals_InPeriod.raw_codecqry_ServiceReferrals_InPeriod.chart_numbercqry_ServiceReferrals_InPeriod.clinic_code(((QRY_Last_Service_Date.MaxOfservice_date)>([cqry_ServiceReferrals_InPeriod]![referral_date])))cqry_ServiceReferrals_InPeriod.clinic_code = QRY_Last_Service_Date.clinic_codecqry_ServiceReferrals_InPeriod.chart_number = QRY_Last_Service_Date.chart_numbercqry_ServiceReferrals_InPeriod.raw_code = QRY_Last_Service_Date.raw_codeQRY_Last_Service_Date.MaxOfservice_datecqry_ServiceReferrals_InPeriod.referral_datecqry_ServiceReferrals_InPeriod.raw_codecqry_ServiceReferrals_InPeriod.chart_numbercqry_ServiceReferrals_InPeriod.clinic_codeqUnduplicatedServiceCrosswalk.working_codeqUnduplicatedServiceCrosswalk.working_codeqUnduplicatedRxCrosswalk.working_codeqUnduplicatedLabCrosswalk.working_codeqUnduplicatedDxCrosswalk.working_codeqUnduplicatedServiceCrosswalk.raw_codeqUnduplicatedServiceCrosswalk.working_codeqUnduplicatedRxCrosswalk.raw_codeqUnduplicatedRxCrosswalk.working_codeqUnduplicatedLabCrosswalk.raw_codeHp*f& e G  H ~ `  >  l B $  f<=cW:tJ~^4 F N@ gF V@ gF T@ gF@ 'Fcqry_ServiceReferrals_InPeriodQRY_Last_Service_Date@wM Fcqry_ServiceReferrals_InPeriodQRY_Last_Service_Date@wM Fcqry_ServiceReferrals_InPeriodQRY_Last_Service_Date@wM FcompletedN@/## oFX@  gFN@  gFV@  gFT@  gFQRY_Last_Service_Date;;; Fcqry_ServiceReferrals_InPeriodMMM F F GE tblReportsData.filter4 gE tblReportsData.denominator9 gE tblReportsData.percent5 gEtblReportsData.value3 gEtblReportsData.raw_code6 gEtblReportsData.display_text: gEtblReportsData.display_order; gE tblReportsData.section_heading= gEtblReportsData.section_order; gEtblReportsData.typefield7 gEtblReportsData.type_order8 gEtblReportsData--- E E GD T@  'DT@ gDqUnduplicatedServiceCrosswalkKKK D GD D GCJ@ gCqUnduplicatedRxCrosswalkAAA C GC C GBL@ gBqUnduplicatedLabCrosswalkCCC B GB B GAJ@ gAqUnduplicatedDxCrosswalkAAA A GA A G@ tlkpSetup.health_status6 g@!(((tlkpSetup.type_field)="Dx"))> '@tlkpSetup.health_status6 g@tlkpSetup### @ G@ @ G?tlkpClinic%%% ?  G? ? G> tblQueries.qry_name2 '> tblQueries.qry_description9 '> tblQueries.qry_order3 '>tblQueries.qry_showlist6 g>tblQueries.qry_comment5 g>tblQueries.qry_name2 g>tblQueries.qry_description9 g>tblQueries.qry_order3 g>tblQueries%%% > R'OAN  M ( 4 0K} yJ ! IQ40FfxCp 5A=A^~se~@~se~@QRY_Last_Visit_Date_InPer^Hw٤@Hw٤@QRY_Last_Visit_Date_InPeriodWithBP4@ +rrrfffffffd @&\Hw٤@Hw٤@QRY_Last_Service_Date4@+XXXLLLLLLLJ @[ u٤@ u٤@QRY_HbA1c90DaysApart4@+@@)bVVJJJJJJJH @Z u٤@ u٤@QRY_ExerciseOver3InWeek4@+\\\PPPPPPPN @Y u٤@ u٤@qChosenDx4ι@+@@@44444442 @X u٤@ u٤@qActiveVisits4@+HHH<<<<<<<: @WC@O @qActiveVisitLatest_InPeriod4@+|@)pddXXXXXXXV @&Uw@w@qActiveServicesLatest34Z@ (ZZZNNNNNNNL @TYt٤@Yt٤@qActiveServicesLatest24'@+ZZZNNNNNNNL @SYt٤@Yt٤@qActiveServicesLatest14}@+ZZZNNNNNNNL @R(s٤@(s٤@qActiveServices4@(LLL@@@@@@@> @Qw@w@qActiveMed14Z@(DDD88888886 @&OL;n@L;n@qActiveLabsLatest44Z@(RRRFFFFFFFD @Nw@w@qActiveLabsLatest34Z@#RRRFFFFFFFD @M(s٤@(s٤@qActiveLabsLatest24'@(RRRFFFFFFFD @L(s٤@(s٤@qActiveLabsLatest14'@(RRRFFFFFFFD @Kq٤@q٤@qActiveLabs4@#DDD88888886 @Jw@w@qActiveHealth14Z@#JJJ>>>>>>>< @Iq٤@q٤@qActiveHealth4@#HHH<<<<<<<: @&H<E&w@<E&w@ MSysNavPaneObjectIDs44MR2KeepLocal  TJJJJJJJH @A0%w@0%w@ MSysNavPaneGroupToObjects44MR2KeepLocal  TTTTTTTTR @&80%w@0%w@ MSysNavPaneGroupCategories44MR2KeepLocal  TVVVVVVVT @&$Z!pe~@fEqe~@MSysAccessObjects4DDDDDDDDDDB G3:*@4:*@cqry_ServiceReferrals_InPeriod4@(@"vjj^^^^^^^\ @FT0:*@3:*@cqry_Service_Referral_Completed4~@(`@"xll```````^ @tҤ@ڤ@change4@#:::......., @&Dry@Fsy@~sq_cfrmSetUp~sq_clstAllServices44MR2KeepLocal Tbbbbbbb` @C;?;@;A;=<B<D<E<F<G<C=H=J=K=L=M=I>N>>>>>>> > >  >? ? ? ? @@@@@@ @AAAAABBBBBCC!C"C#C D$D&D'D(D )D%E*E,E-E.E/E0E1E2E3E4E 5E 6E 7E+F8F:F;FF?F@FAFBFCFDF EF FF GF #F #F9G#G#G#G#G#G#G# G# G# G# G# G#G#G#G #G #G #G #G #G #G #G#H#H#H#H#H#H#H#H# H#!H#"H ##H #$H #%H #&H #'H#(H#)H#I#*I#,I#-I#.I#/I#0I#1I#2I#3I#4I #5I #6I #7I #8I#+J#9J#:YN  Y  Y WdY ID changedate%'L) ",YPrimaryKeyv1 C}? l E  W  a 9 I  @format patch for averages in summary rpt templateA@new create list, can save & shows numeric labs>added 3 elements to qActive Demo/list program=in qActivedemoage =datediff("m",dob,date)/12 not d/365.25;new cells in aphs!aphs core added f crireria to mam &paps7bp in summary now >140 and >90.bp in summary now >130 & >85 (not or)5list patient last lab only last result (was all)@depressionb summary report included4m@list service w/service only "c"/dm sum rpt shows avg for every lab2smoker last eval results or inperiod smk cess=60+ age category dm sum rpt shows all labs w &w/o numeric resultsAlist pat with labs now can find any last value>list pat w labs now looks at last lab any value? @k@age recalculated in aphs and dm summary7 @k@age and sex added to master qry/ d@diabetes summary smke cessation fixed percentage@ a@summary rpt didn't filter out dm and aphs patientsB receiving labs qrys now exclude non c's7Collaborative reports placeholders coded8@U@MOGE patients criterion added to all qrys9?  @ @ @!! ! ! ! ! !!!! ! ! ! ! !!!!!!!!!!!IpR4M A { 8 S  ~ ? y ? Ye5 c"H \MxN cE' KqryMaxLabandResultInPeriodEEE K GK GK K GJ qActiveHealth.raw_code5 gJ qActiveHealth.chart_number9 gJ qActiveHealth.clinic_code8 gJ"@N gJqActiveHealth.chart_number9 gJqActiveHealth.clinic_code8 gJLastOfstart_dateD@N=11 oJqActiveHealth+++ J GJ J GI tblHealth.type_code2 gI tblHealth.raw_code1 gI tblHealth.chart_number5 gI tblHealth.clinic_code4 gIP@N 'ItblHealth.type_code2 gIstart_dateLast(tblHealth.start_date)M%% oItblHealth.raw_code1 gItblHealth.chart_number5 gItblHealth.clinic_code4 gItblHealth### I GI GI I GHlkp@! 'Hkpage@ # oHkp tblDemo.end_date/ gHkp tblDemo.ethnicity0 gHkp tblDemo.sex* gHkp tblDemo.primary_language7 gHkp tblDemo.insurance0 gHkptblDemo.migrant. gHkptblDemo.homeless/ gHkppcp2@% oHkptblDemo.phone1- gHkpaddress[address1] & ", " & [city]G oHkpnameT@% oHkptblDemo.chart_number3 gHkptblDemo.clinic_code2 gHlkptblDemo Hlkp Hkp GG B@ 'G tblServices.status_flag6 gG tblServices.raw_code3 gG  tblDemo.pcp* gG B@ gG tblServices.chart_number7 gG tblServices.clinic_code6 gG@ 'GtblDemotblServices^@A5 GtblDemotblServicesZ@A5 Greferral_dateMax(tblServices.service_date)V++ oGtblServices.raw_code3 gG tblDemo.pcp* gGnameB@% oGtblServices.chart_number7 gGtblServices.clinic_code6 gGtblDemo GtblServices''' G GG GG G GF N@ gF X@ g Y mN%%  Y Y DataIDXmm%2m8ωYAOIndexv1K$[4x" "(U0a0IVuSysAccessObjects%LLLLLLLLLLJ toCorrectCpgConversion BuildNavPane ClosedNavPane Width NavPane Category*NavPane Category NameNavPane View ByNavPane Sort By   08.50              kzkzpkz kzkz kz kz8kz@kzHkzPkzXkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzhkzkz kz ankz kz kzz kzkz8kzkzX kz dX kz,kzX kz kztblReportsTempPkz primaryhkzkzv xkzXkz00kzkzkqzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkzkz kzkzPkz#kztblReportsTempankzkzankzkzankzkzankzkzxkz kzkzXkzkzhkz kzxkzkz kzkz(kz0kzDkz primary(kz \kz8"hz"kzXkzkz kzkzkzkzkz kzkzkzxkzkzkz kz@@@ankzkzankzkzankzkzankzkzkzkzkzkzPkzkzkzkzkzkz kzhOR؃OROROR(OROR8OR0ORHORhORXORORhOR ORxOR dOR dOR dOR d0OR dhOR dOR ORDxOROROROROROROROROROR0ORhORORORORC:\Users\Jackie\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbtlkpClinic dOR dORPrimaryKeyClinic_codeORORv ORORPORhOROR`OR`OqR`OR`OR`OR`OR`OR`OR`OR`OR`OR`OR`OR`OR`OR`OR`OR`OR`OR`OR`OR`OR`OR`OR`OR`OR`OR`OR`OR`OROR OROROR@ORHORC:\Users\Jackie\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbtlkpClinicPrimaryKey6hORHOROROROR6hOR`OROROROR(ORORK$[ࡱ> *+MtuvwxZ- (  !"#$%&'()-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root Entry; VBAP|MX VBAProjectP|MX VBA P|MX dir _VBA_PROJECT >BNNFMMBTCBAAUDOTAEQFIHPSIPR_:,BPPBECCGMFEDHEHRMGU__DLWFCJJ: ,   !"#$%&'()*+-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVXYZ[\]^_`abcdefghijklmnopqrstuvwxy{|}~0* pHdcdems-97,@ Z= n C\L %J< rst dole>stdole h%^*\G{0002`0430-C 0046}#2.0#0#C:\Windows\SysWOW64\e2.tlb#OLE Automation#`DAO>JDAO5A A5E01A5AProgram Files (x86)\Common \Microsoft Shared\>\dao360.dll# 3.6 Object Lib0raryKVBIDE> VBIDE__E157_3CP/VBA\6E6EXT.OLB1Visual Basic for Applic`s Extensibilit`y 5.3@- @basUtils2G@asUi@s2XYICJUNBOORYZDYBQVHONBCJAKAC28AYJCJ@NMOOR ZOYQVHA AKCB@1B`w B,+g!+BModule1G(du1-VECPPIMCTHQUNDQJWPBBEZRTGE-VvCP@I@MCT"QQ0DQ2W@BQ/EZRG-@ --eexecGTb".A@tQ@exucNBAHQTJUOJTNXDJXGDVKIDFGRXPSN)AT"/OTNXՠ.JGV -XFG 2PSa:.e .FGEEBPPBECCGMFEDHEHRMGU__DLWPFCJJB+PU+C.G+F@1DU E`RG0__LWFmJ`  / !asCRG,C/C.mmn ^e/FKZPEN_HMBITDEEHCLAAGUJTPADUKF@+ZU@E@*_M@IG DACL\A/U3AU`T%^EMDFOMJEVASTFRDPMYJCIEGPHWPDIUCM@F@M7EUA`gTRPU%YCE@PK$[.D/  APHvSqR AU(Hp _o`emMq]uDEBLLNDWWJYYTDSGLDXTKZNJWWDT:a,B ,LD#WY0]TS0LpXKQjNW0DpUE/PForm_fr@mListPPment@-F-m0 f m ijt0ja2ketsHMZCCKCMHULTKBETRTVOPCIYTXKS_ZpC 9CH*L BHjT-TPOQY5XS/.^kzSulmm4f23bf86Form_frmReports5 898HUHSPZCWUKMAVDZEUVUK_PPCXRCE0?4f23bf869Form_frmSplashP[8SNNJBQCOKIXNTDHDSNKDDLOCFLWF0@4f23bf86i<Form_frmCountPatients-criteria=hD 8BNNFMMBTCBAAUDOTAEQFIHPSIPR_0A4f23bf86*Form_frmCountPatientssPh8Hx 0jR@ Gq H8L>C 2BoI%q3̈́RJ\ b^6ygQH'3A6޴[׸EYcYW`z+<JKWWLAK[]Ʌ*hس@= ӕ'!?@(rkXu~A]3hqo Aq.o;nGGn!F(G + AGhlMC)?(lstRelatedDemolstRelatedVitals  lstRelatedRxT lstRelatedDxNlstRelatedServices lstRelatedLabsH.lstAllRxClstAllDxAlstAllServices lstAllLabs)= cmdSave_ClickrstAll intVariable new_report_IDV7 old_report_IDcnt+new_nameninput_report_nameA&test_if_new_namevbCrLf vbQuestion vbYesNoCancelqvbYesa? Add_report|vbCancel'InputBox  ListCount6Columni RecordCount{MoveLast report_IDAddNewa qry_order(qry_description Update vbInformationnDetail_DblClickR,lblRemoveDemo_Click Form_Open-SetFocus lstAllDx1 lstAllDemo&lblAddAllDemo_Click' SelectedYlblAddDemo_ClicklblAddAllDx_ClickORlblAddDx_ClicklblAddAllLabs_ClickYlblAddLab_ClickplblAddAllRx_Click}<lblAddRx_ClicklblAddAllServices_Click(FlblAddService_Click: rstSecExistsʁ rstSecNew section_ordersection_headingb display_ordercriteria7raw_codeK=frmListPatients< ItemsSelectedoItemData maxofdisplay_order6Maxofsection_orderi type_order typefieldlblAddDx1_ClickJrstCreateQueryDefzNExecuteY RowSource2lblAddSpecialLab_ClickElblAddSpecialService_ClickXlblAddVital_Clickb lstAllVitalsRElblRemoveAllDemo_ClickblblRemoveAllDx_Click@lblRemoveAllLabs_ClicklblRemoveAllRx_Click@*lblRemoveAllServices_Click intType intSection] err_resolve;lblRemoveDx_ClicklilblRemoveDx1_ClickWhlblRemoveLab_Click=lblRemoveRx_ClickSlblRemoveService_ClicklblRemoveVital_ClickePlstAllDemo_DblClickmlstAllDx_DblClicklstAllDx1_DblClickrGlstAllLabs_DblClickelstAllRx_DblClickPlstAllServices_DblClicknlstAllVitals_DblClicklstChosenDx_DblClickElstRelatedDemo_DblClicklstRelatedDx_DblClickK$[lstRelatedLabs_DblClicklstRelatedRx_DblClickvlstRelatedServices_DblClick lstRelatedVitals_DblClickۭReport_rptSummaryDiabetesMFstrRecordSource RecordSourcebtxt_pcpVisiblelbl_ReportNameJCaptionx report wizardǕ blnPCP_Report"blnInsurance_ReportstrSQLWhereEthnicitySstrSQLWhereGender}strSQLWhereAgeintEOP8rstLabsIn_tblReportTemp4rstServicesIn_tblReportTemplrstHealthIn_tblReportTemp`rstMedIn_tblReportTempI rstDatahprm= ParameterhrstItemsSelected rstChosenDxz rstSummary2  fldColumnb,field3 cnt_fieldsqdf1Rqdf2RqdfLabs  qdfServices VarSelected strTypeField/PstrSection_textstrDisplay_Text strResult sngPercent ZstrPCP 4 strSQLSelectM strSQLFromr strSQLFrom1@ strSQLWhereq strSQLGroup  strSQL_Total  strSQL_Total21GetRowsßvbOK%CountRx CountServicesH CountLabs9 OpenQuery CreateReport[^ strInsurance source_query98Expr1rExpr2r Parameters`valueKEval=n dbOpenDynaset intTotaluXpercent^Round OpenReport acViewPreview2OpenTempReportReport_rptTempW Report_CloseYErrCodeacFormReport_rptSummaryDepressionH7Form_frmReports btnRun_Click Err_btnCancelݯlstSelectClinic7yDateDiffcmbMed!a cmbService y cmbCondition cmbLab2[cmbLabResultOperater% IsNumeric$*txtLabResultValueZ)OpenFormacNormalMaximizeFy Exit_Click"Err_cmdClose_ClickExit_cmdClose_Click rstDefaultsK rstClinicListclinic_defaulto txtClinic clinic_code-Comments)txthidden_end_date^fraOptPeriod_ClickA fraOptPeriod lblLastDaysM txtLastdays!_ lblStartDatec lblEndDatelstQueries_Click strShowListS lblconditionlblMedlblLab- lblServiceTrim@ ColumnHeadsֻlstQueries_DblClickىlstSelectClinic_AfterUpdateYtxtEndDate_AfterUpdateȖtxtLastdays_AfterUpdaterForm_frmSplashcmdAgree_ClickKrstAgreezEdit+clinic_support_DCP` cmdExit_ClickQuit9acExit  Form_Close[tempRMsgQLabel14DLabel15ELabel5,Label6,Label17GLabel3,txtLocalSupportn txtDCPSupport txtVersionLabel_copyrightpcmdAgree?cmdExit\ Form_TimerForm_frmCountPatients-criteriachkAgeAutoLabel_AfterUpdatetxtDemoDisplayalblDemoDisplaychkAutoLabel_AfterUpdatex txtDisplay lblDisplay[cmbOperator_AfterUpdatechkBMIAutoLabel_AfterUpdatef txtBMIDisplay3z lblBMIDisplay5cmbBMIOperator_AfterUpdateMchkSrvcAutoLabel_AfterUpdatetxtSrvcDisplayclblSrvcDisplayUtxtBMICriteriacmbBMIOperator txtBMIResult1tk txtBMIResult2uk lblBMIAndmjlblBMIInclusive  txtRaw_CodeE_cmbDemoOperator_AfterUpdate txtDemoCriteriascmbDemoOperator  txtAgeResult1A txtAgeResult2AlblAgeInclusive_ lblAgeAnd txtCriteria1 cmbOperator txtResult1 txtResult2lblAnd=blblLabInclusiveԤtxtWorking_codecmdAddLabWithCriteria_Click strCriteriaIfrmCountPatients chkAutoLabel+Result1cmbSrvcOperator_AfterUpdateUtxtSrvcCriteriaɽcmbSrvcOperatorFtxtSrvcResult1DtxtSrvcResult2D lblSrvcAnd>@lblSrvcInclusivebcmdAgeCreate_ClickIPcmdBMICreate_ClickcmdBPCreate_Click strResponseO strAnd_Or strAnd_Or29 frmAnd/Or txtBPSystolic txtBPDiastolick vbOKCancelx? txtBPDisplayD;cmbBPSystolicOperatorcmbBPDiastolicOperatorJ txtBPCriteriaicmdCreateSrvc_ClickfchkSrvcAutoLabel0txtSrvcResult1_AfterUpdatetxtSrvcResK$[ult2_AfterUpdate1cmdDemoCreate_ClickfrmCountPatients-criterianlstRacecmdLabCreate_ClickƱtxtResult1_AfterUpdatetxtResult2_AfterUpdateKcmdOptionsContinue_Click txtInputBoxJ? optAll/PCP, optEthnicitylstEthnicityFiltertxtAge1&txtAge2& optGenderoptAge_AfterUpdateHoptAgelblAge1lblAge2 lblAge_andoptEthnicity_AfterUpdatetxtAgeResult1_AfterUpdateFwtxtAgeResult2_AfterUpdate8&txtBMIResult1_AfterUpdateo txtBMIResult2_AfterUpdateForm_frmCountPatientsT TabControl0#PagescmdClosejlblCloseʝlstRelatedSpecialMeasureslstAllSpecialMeasures%jumpFextra?varpts_cntrgen_cntr*age_cntru;rac_cntrKins_cntr^%spp_cntrWlblAddSpecialDemo_ClickImtxtTypeCriteriachkAgeAutoLabelBAlblAgeAutoLabellblAddSpecialMeasures_Clicki field_name3lblAddSpecialVital_Click working_code!lblRemoveAllSpecialMeasures_Click6rlblRemoveSpecialMeasures_ClickElstAllSpecialMeasures_DblClickc"lstRelatedSpecialMeasures_DblClick ?,U i c EG  #9*[    #}9.2ˁ      !"#$%&')*+,./012456789:;<=>?@ABCDEFGHIJKLOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~%@%sxME PS<S<S<< <<<<JXFN0{5705D417-8E2A-11D8-A7B3-00A0C9C6E171}" @@ B 3 H %`L`N`P`R 6% nK$[4`N8`L p % 6%  (  % HHtRes % ph  % 6%`rt`[frm`ia].`REtr` efor`Leate@P \`-cri`Nopti` B@ ifi  yi B`L`x` . Hries % p %  % 6r la% ` `  ` ` h` ` @  % 8 % HX` %` `sTem`emp;``VB@` ``L" 68% ,p `p`. tb`8p`====02486rom 8h:====  T  "t %  name % H  %` pe_o`.dis`epor` tbl`L(tbl`er)=`L 6 !X%   S H0  %` "^ h " % D  % 6 %  ]  <-- % ( ---- % HH  %` ame `ace?`you ` `Lrt$`"`and 6 '% U p _ID  %  (tbl % H   %` '`j```L Z`New `ng R 6x"% X  B %   % HP %` ```----`L----``rt_I 6\% <X+`` `` DHK$[W   % @ % H` %` ````L`^``F 6@% `` H@``J` d`L` ``  %  % H8 %``` 6% `L X`L  `L "`L $``L L`L p'` `8`&`L`( ,(%` `L`8`&`( .6` `L`8`&`( 0%` `L`8`&`( 2P$` `L`8`&`( 4%` `L`8`&`( N%` `L`8`&`( 6x#` `L`8`&`( 8 i` :P0i <i >i @pPi Bi P0i Dpi Fi HP 0 i J K$[ i L! i Np!P!i P!!i R0""i Rp"i""%86"0"" " ("0 8 @HPX` h x 4 F   ( 8  HX x 4 L (8$`  (0H  P"X `hpx  T|  @  P &h        08 @ X  p4x  (8HX h "px       $ H P 0X .   .     F  ( 0  8  H  X  h  x         B H P  8       8  H          8 4@x  $ "8 @ H X Bh   J    (0 8 .@ p *x        <  `h (p 8H X hx J "  "  f h p  VX \ ` Lp N  J N` X < 4H P . > @  \` f K$[ `(   H (` l F b@ b T Th P V Vh Z ` ! &! L! d! f`"    b"0#8#@# H#P#X# `#  h#Jx#V#  4 $ X$4h$$<$ $  %%H(%  Hp% d% p & $& & &&Jp'  J' ,( "@( h( (L( ()  F )  h)X .x)  , , , , ,- - -0-@-P-`-p-- ------- .".. .8. H.X.`.. . . ".. .. ../ / 0/@/ "H/P/ X/x/ / /  /// // "00 000 @0 P0  X0p00 00 "00 00 0 1  1(1H1 X1h1 "p18x1.11 11202P2h22 2 2  2"2 22,3@3  f`3 @3(45   P5066  7 7 87 H7X7`7x7777 $777 778 F8`8 x8(9 x@99 9: :; ;X< `< $x<< 6< :< N =p= =  = = ==J=(>J@>>b>? ? $0?X?`? Lh???  ? ? @@V@p@(@A("A B("BD("(DPE("hE  F(F G(GH(HJ (J $(JPJXJ H`J JJ J J JJVKhKVKKZKPLVhLLXL0MHM@N (HN B`NNN PNO  O (O8O $POxOO ZOOP : K$[P \HP "P P P Q Q 8Q @Q `Q hQ Q Q Q *Q ,Q R N R pR R $R RRPR(SR@SS S $SSS ZSPTpT xT $T T NT U U (U 8U HU XU hU xU UUU UU UV VV  V 8V@V HV hV pV xVV V"VVV VVV  (VWWWW W(W 0W B@W bW W  `X ^`X >XY   bY TY Y YZ ( Z HZ XZhZxZZ FZZ Z[ x[8\ X\ ] @]^ ^^ ^ $^ _ 6(_ :`_ N__  _ `(`8`@`JX``J`ab(aa a $aa La0b  8b HbhbxbbVbb(bd(" d He("`ef("fg("g  i(i 0j(@jXk(hkl (l $ll Hlm m 0mPm`mhmVmmVmHnZ`nnVn0oXHooop (p $pp PqPq Xq :hq \q "r 0r Pr pr xr r r r r r r s &s ,8s hs Nxs s s $st t(tP@ttRtu u $ uHu ZPuu u  uuu  u uuv Tv`vhvpvv vv v "v jv "@w "hw w8w.wx x xx  x(x0xPx hx  px"x x x  x xy, yPy  fpy @y z z   z{ {({0{*8{h{ (p{j{   | N| h| x| | X| } } } 0} @} P} h}x} } }  K$[ }} }}} }~ ~ "~ ~(~0~8~ @~ H~"X~ ~  ~ ~ >~ ~ x   4   0 P p T ؀   T   4P 20P ؃   8 @ @$8 @ `      Ќ   H h   " ȍ ( . b@ D F 08 .h 8.Џ    (0P h  p"    Ȑ , P  fp @ؑ (  PH  (8 P `pxn    N0      Ж    (8 @ `  hx  ȗЗ "ؗ j "P "x 8.   ( 08@` x  "    ؙ ,0`  f @ (    08@*Hx (h    N  p  X    0 @ P hx    ؞   "  b@ ( &П  8.8h p x  Р  ؠ"    0 Pp,  f @H  P   hx*أ (r    N K$[    X p     إ   ( 0HP Xx "  Ц* @`   ȧ  h    &    0 HЩ $  ^(  08@Hhp "x * Ы(Hh,xЬج " j "X " 8.  (0 8@Hhp x  "    خ .00`. f @( h 0   HXpx*X  8 $H p   N    X  x    ȳ    0 8PX `  "  *$(Hh,ȵе "  "04X *     *( X x   з   (0P  X "` h ( 0 d FH F 2ع . @HPp8. ^ RpȻ л  " ( 0  H h,ؼ  f @` (h  Pп     (0 8@X X8^    N h x        ( 0 P  Xh p   "      K$[   "       "       "  0    "(0  8 H    (8 "@H  P `   0 @P "X`hpx       (T p    B  8@ H h p "x     0 @ P`hx   B   8 @ "HPX `hp  x   (T 0 @ P` &h8: 0 8@ 8<  P`p   B  ( 0 PX "`hpx      ( 8HP` p x B   ( "08@HPX` p       0 @ HPX B`   " (0 @ Ph        ( B0 x   "   8P X p  K$[     B H`h p   "   0 ( @ P `px   B   ( HP " X`h$ "  "  "  ( " 08@ " HPX " `hp " x "  "  "  "  "  "  "  (0 " 8@HXxp VB@BoP@]]]]]] .6 ========================-gather selected Dxs to create a default name?SELECT tblReportsTemp.type_order, tblReportsTemp.display_text, TtblReportsTemp.raw_code FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=0));'L~ L 6%V.H" H!X H!ZNo diagnosis selected. 2 0 Select Condition(s)$*'N| VB@Bk HB@\ H"^'P HB@`tRes H!Xa P Or  H"^'P HB@`p P Report'P.Forms![frmCountPatients-criteria].Modal = TrueEtry opening from sub before this sub if rpt created before this input\frmCountPatients-criteria VB@options B"!% B@Report Options B"( B"!"(\ B"!$(\fill suggested name in B""t B""t! P B")d B""t B")ko ]`]x]] .6" tblQueries 6%V.p B"j"rrpt B"j"rlstWdon't delete the master labelExisting report < "t/> will be removed from library. Yes to continue v 2 Confirm Delete$*'N N xG|j" VB@b,DELETE tblReports.report_ID FROM tblReports WHERE (((tblReports.report_ID)=' B"j"r'));'L L VB@j ------------ MsgBox "deleting from tblQueries= p!X p!Z\dP pB@\ p!Xa p"z B"j"r pB@| B"j"rB@~xk pB@`k ------------`refresh all itemsk,Delete tblReportsTemp.* from tblReportsTemp;'L VB@b L VB@j VB@b" "t! )t\ "B@~ "B@~ "B@~es "B@~ "B@~ "B@~, "B@~o]]0]P]p .6 tblQueries 6%V.p=========================]]]]]]] ]8capture data from form]P]h*==========================================(here is determinK$[e if report has name yet "t "t!'suggest a new name from the chosen dx'ses?SELECT tblReportsTemp.type_order, tblReportsTemp.display_text, TtblReportsTemp.raw_code FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=0));'L L 6%V.H H!X H!ZNo diagnosis selected. 2 0 Select Condition(s)$*'N|k HB@\Pati H"^'P HB@`" H!Xa P Or  H"^'P] = HB@`P P Report'P(d  "t'Pk<------------------------------------------------------------L_ $Report name already exists, replace? No allows you to name again   Replacing Report$*'N N "&delete old report and add new in place ' P'R delete old tblreport VB@b) ,DELETE tblReports.report_ID FROM tblReports WHERE (((tblReports.report_ID)=' B"j"r'));'L L VB@j VB@b% N eiabe|k P_ Z'PNew Report Name Naming Report P$'P" Pdx user hit cancel so exit|PkH@'  B"j"r!   B"j"r% PP  B"j"r%''k  <------------------------------------------------------------gets last report_ID$Select tblReports.* FROM tblReports +WHERE LEFT(tblReports.report_ID,3) = 'rpt' -ORDER BY CInt(Mid(tblReports.report_ID,4,3));'LEnew dlk 11/2007 L 6%V.>/opens entire reports library to get last rpt### !  B@ "$X'  'd'krpt '.name of new report_ID P'R#=================================== update tblqueries R pB@ 88a p) R p)  p)z pB@d Must enter a name. 2 0 No Report Name$*'N| k "==================================` VB@bZINSERT INTO tblReports (report_ID, type_order, typefield, section_order, section_heading, fdisplay_order, display_text, raw_code, criteria, [percent], denominator, period2_start, period2_end ) SELECT ' '$ AS exp, tblReportsTemp.type_order, 8tblReportsTemp.typefield, tblReportsTemp.section_order, [tblReportsTemp.section_heading, tblReportsTemp.display_order, tblReportsTemp.display_text, ftblReportsTemp.raw_code, tblReportsTemp.criteria, tblReportsTemp.percent, tblReportsTemp.denominator, MtblReportsTemp.period2_start, tblReportsTemp.period2_end FROM tblReportsTemp;'L L VB@j VB@b  B"j)r B"j"rB@~($ R )t New report < R > added  0 Report Added$*'N$o Ao _ When opens the report has a report_ID of "rpt" (len=3) if new or rpt+int taken from tblQueriesbif old report, items are permanently stored in tblReports but all editing and creating takes placeiin tblReportsTemp, when a report is opened or saved - it is moved from tblReportsTemp to into tblReports.PInstoring the items the criteria holds the raw_code & type_order & display orderUWhen the output of qSummary creates variables with those raw_code+#+display order idsYqSummary is designed dynamically by recreating the unique combination from tblReportsTempFspecial case is the average items they are stored as raw-code * "~avg"*Gin creating qsummary2 these are given different operand (ave vs. count)CWhen a report is created it is dK$[one in a blank tblReportstemp tableGWhen report is calculated the variables currently in tblReportsTemp areRall passed to the Module "Report Wizard" where they are used to dynamically create6qActiveLabsLatest3(holds the labs required for report) .qActiveServicesLatest3 (holds the services)and JqSummary1 (which converts the data into single formated multicolumn query)'qSummary2 (which does the calculations)8tblReportData (which holds the data in structure to feedrptTemp the final reportUthe fields are created in qSummary1 with names :raw_code & type_order & display_order4_since raw codes are unique in cdems within the Dx, Rx, Service and Lab this uniquely identifiesYeach line (eg. ha1c display displayed on 3rd line of section =[ha1c81] 8 because ha1c =Dx{But demo section has subsections: xvisit, xage, xsex, xrace, sxppop. eg. xvisit201 is first item in demo section (2) visitsh6Astructure of tblReportsData is such that when rptReportTemp opens"the report is created dynamically.frptTemp is the master report - breaks on 4 fields: filter, type_order, section_order and display_order?the filter field defaults to "all" so no new page is generated,\when a pcp report is run the items in tblReportsData are repeated for each pcp one line each[------------------------------------------------------------------------------------------- Mtype_order 0 = "dx criteria" demographics: section_order 1 = "Visits";Mtype_order 2 = "demo" section_order 2 = "Gender" Jtype_order 3 = "vitals" (bmi & bp) section_order 3 = "Age"Ptype order 5 = "Dx" section_order 4 = "Ethnicity"Ptype_order 6= "Rx" section_order 5 = "Insurance"Ttype_order 7 = "Service" section_order 6 = "Type Diabetes"CritZtype_order 8 = "Lab" section_order 7 = "Special Populations" type_order 9 ="Special Measures:F Labs has section order for each labtblR^ section_order 1 = [first lab name] & "Labs")^_ section_order 2 = [second lab name] & "Labs"gr[-------------------------------------------------------------------------------------------(A du]@]X]p]]]] .6 tblQueries 6%V.p8%this displays the items on frmReportstblReportsTemp 6%V.H8-this opens the temp table to store inprogresses.clear old tblReportsTemp yblReportsData tables" VB@b",DELETE tblReportsTemp.* FROM tblReportsTemp;'L L VB@j,Delete tblReportsData.* from tblReportsData; VB@jtRes VB@brefresh all boxes "B@~ "B@'3necessary to keep title from having selected shadowAIf Me!txtTitle = Me!txtTitle.DefaultValue Then 'only rest if new] Me!lstAllDemo.Selected(0) = True 'sets cnt of patients in lstAllDemo- need field alwaystResi Call AddDemo(2, "Demo", 1, "Visits", 1, "Pts count", "xvisit", "tblDemo.Patient_ID as [xvisit201]") Me!lstRelatedDemo.Requery"End IfMe===============$Select tblReports.* FROM tblReports ,WHERE LEFT(tblReports.report_ID, 3) = 'rpt' ORDER BY tblReports.report_ID;'L L 6%V.8/opens entire reports library to get last rpt###(\CWhen setup a form opens - checks to see if a particular rpt started(\%len >3 only if already created reportneed to load values in cells "===================="existing reports B"j!r 20comes as rpt if neK$[w or rpt1, rpt20 etc if exists\ load title B"j!r% )tes@load report design paramenters from tblReports to tblReportsTemp VB@bpens(      % NINSERT INTO tblReportsTemp ( report_ID, type_order, typefield, section_order, Bsection_heading, display_order, display_text, raw_code, criteria, >[value], [percent], denominator, period2_start, period2_end ) JSELECT tblReports.report_ID, tblReports.type_order, tblReports.typefield, PtblReports.section_order, tblReports.section_heading, tblReports.display_order, CtblReports.display_text, tblReports.raw_code, tblReports.criteria, >tblReports.value, tblReports.percent, tblReports.denominator, 1tblReports.period2_start, tblReports.period2_end /FROM tblReports WHERE (((tblReports.report_ID)=' B"j"r'))QORDER BY tblReports.type_order,tblReports.section_order,tblReports.display_order;'L r L VB@j VB@bd0section for new reportsha "t! )tk "B@~ "B@~ts "B@~. "B@~ "B@~ri "B@~-- "B@~-- "&B@~co "B@~i "B@~ "B@~ "B@~ "B@~ "B@~ "(B@~o]H  ! at o  , splay A  ! untP  , lectedoX`]  !   , ItemA  ! e  ,  code o]  ! d fi  , EifAto unhighlight wil  ! s ma  , Jo]P  ! emp.  , fdisplAto unhighlight_cod  ! adin  , p GROUoHh]  ! on_o  , .raw_cAto unhighlighthead  ! tsTe  , lReporo]))gets info for exisiting section if exists] #gets info to create new sectionrs]@]`]x section_order] section_headingem] display_ordertion] criteriapo] raw_codepo] working codeHAVING]]  .6der)=2tblReportsTemp 6%V.HT  B""!  B""%'C working code"  B""%'`this code tests if a section exists already for the new item already and finds the section_order:and last item display_order for what is inside the section JSELECT tblReportsTemp.section_order, Max(tblReportsTemp.display_order) AS LMaxOfdisplay_order, tblReportsTemp.raw_code, tblReportsTemp.section_heading VFROM tblReportsTemp GROUP BY tblReportsTemp.type_order, tblReportsTemp.section_order, 8tblReportsTemp.raw_code, tblReportsTemp.section_heading HHAVING (((tblReportsTemp.type_order)=2) AND ((tblReportsTemp.raw_code)= ' '));'L L 6%V."Ifinds the last section already prsent so can assign new section if needed?SELECT Max(tblReportsTemp.section_order) AS MaxOfsection_order 7FROM tblReportsTemp GROUP BY tblReportsTemp.type_order )HAVING (((tblReportsTemp.type_order)=2));'L L 6%V.] ! " 'id. "'' !e ' " 'ia invd''kh=============================B@  %'H) $PtsKTrstT  Pts CountKTortstblDemo.Patient_ID as [xvisit 0#$]'HPtK$[s Avg VisitsKT^$5IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]),@CInt([QRY_LatestVisitDate].[CountOfVisits]),Null) AS [xvisit~avg 0#$]'KTPts w/ 0 visitsKT$8IIf(IsNull([QRY_LatestVisitDate].[CountOfVisits]),True) As [xvisit 0#$]'Pts w/ 1-2 visitsKT` $$9IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]) And (([QRY_LatestVisitDate].[CountOfVisits])  Between 1 And 2,True) AS [xvisit 0#$]'*A:Pts w/ 3-5 visitsKTready $$9IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]) And (([QRY_LatestVisitDate].[CountOfVisits])  Between 3 And 5,True) AS [xvisit 0#$]'ectionPts w/ 6+ visitsKT$$9IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]) And (([QRY_LatestVisitDate].[CountOfVisits]) >=6,True) AS [xvisit 0#$]'n (new)routine for creating new itemn ifdX/parameters=(type_order,typefield,section_order,4section_heading,display_order,display_text,criteria)d on rGCall AddDemo(2, "Demo", 1, "Visits", pts_cntr, str, "xvisit", criteria)10Visits'kxGenKTMsgBox "selected gender".  Gender-MaleKT cri"IIf(tblDemo.Sex='M',True) AS [xsex 0#$]'B" Gender-FemaleKTB"IIf(tblDemo.Sex='F',True) AS [xsex 0#$]'Oif Gender-UnknKT val9IIf(tblDemo.Sex='U' or isnull(tblDemo.sex),True) AS [xsex 0#$]'.Itemsn (new) routine for creating new item!txt*dECall AddDemo(2, "Demo", 2, "Gender", gen_cntr, str, "xsex", criteria)ode Gender'iok0AgeKT iteMsgBox "selected age"ion_ Age-UnknKT.IIf (Isdate(tblDemo.dob)= False,true) as [xage 0#$]'JAge <14KT 9IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,"Forms![frmReports]![txtEndDate]) +2Int(Format(Forms![frmReports]![txtEndDate],'mmdd')=60,true) as [xage 0#$]'Age 55+KT 9IIf (Isdate(tblDemo.dob) And DK$[atediff('yyyy',tblDemo.dob,"Forms![frmReports]![txtEndDate]) +2Int(Format(Forms![frmReports]![txtEndDate],'mmdd')=55,true) as [xage 0#$]' Age 45+KT 9IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,"Forms![frmReports]![txtEndDate]) +2Int(Format(Forms![frmReports]![txtEndDate],'mmdd')=45,true) as [xage 0#$]'r rstTn5 (new)ortsroutine for creating new item H*5d5BCall AddDemo(2, "Demo", 3, "Age", age_cntr, str, "xage", criteria)Age'k@5RacKTMsgBox "selected race"  Race-WhiteKT======-IIf(tblDemo.Ethnicity='White',True) AS [xrace 0#$]'re Race-BlackKTgnA@*-IIf(tblDemo.Ethnicity='Black',True) AS [xrace 0#$]' Race-AmIndKT======1IIf(tblDemo.Ethnicity='Am Indian',True) AS [xrace 0#$]' this Race-AsianKT] -IIf(tblDemo.Ethnicity='Asian',True) AS [xrace 0#$]'s Race-HispanicKT v0IIf(tblDemo.Ethnicity='Hispanic',True) AS [xrace 0#$]' race-OtherKT1, disDIIf(tblDemo.Ethnicity<>'Asian' And tblDemo.ethnicity <> 'Black' And BtblDemo.ethnicity<>'Am Indian' And tblDemo.ethnicity<>'White' And -tblDemo.ethnicity<>'Hispanic',True) AS [xrace 0#$]'n1 (new) crite;routine for creating new item is called with special button ra*P1dH1ICall AddDemo(2, "Demo", 4, "Ethnicity", rac_cntr, str, "xrace", criteria) Ethnicity'te crik0InsKT---- (new)coroutine for creating new item!*0dx0TCall AddDemo(2, "Demo", 7, "Special Populations", spp_cntr, str, "xsppop", criteria)sts if Insurance'alreadk/4>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>last iU 'MsgBox "selected insurance THIS WOULD REQUIRE a new table using tlkpInsurance!!"p.se ins_cntr = ins_cntr + 1splay_ Select Case str_order Case "Ins-None" tblRe Case "Ins-Medicare"bl Case "Ins-Medicaid"pe Case "Ins-Comm"er,  End Select tbl# If InStr(strItem, "(new)") ThenortsTe% 'routine for creating new itemn_he Else'H Call AddDemo(2, "Demo", 5, "Insurance", ins_cntr, str, criteria)ec End IfSpPKTssigMsgBox "selected special pop"?  SpPop-MigrantKTio(IIf(tblDemo.migrant='Y',true) as [xsppop 0#$]' SpPop-HmlessKTVING)IIf(tblDemo.homeless='Y',true) as [xsppop 0#$]'n`, (new)"routine for creating new item"*,d,TCall AddDemo(2, "Demo", 7, "Special Populations", spp_cntr, str, "xsppop", criteria) entriSpecial Populations'k+n+============================= HB@e "Blorpt0 H)(8"rpt0" is default for rstTemp - never used in tblReports H)/or Demo H)  H).  H)here  H) dia  H)^ysto  H)"  H)$ HB@- B""B@~d bloo*for 'new items valid | *==========================T) (!,  KT  in data base skip) KTthis is a custom item[QRY)S) (!,  (!.A@*n`)oX)@TH)]]]]"these feed the display order field]]] ]( ]@ ]X ========<criteria is such that in Summary the variables will be namedMass I\raw_codeK$[ & section_order & display order eg. xage201 is visit-section 'age' display order= 1ay_ord======="Zpts_cntr = 1 'display order normally starts at 0, but "pts count" added at form open eventXso that every report will have total count of patients included for calculating percents8Me!lstAllDemo.Selected(0) = True 'in case user unselects 0G'0j\CAUTION this code errors if a record comes in and doesn't fall into one of these categories,(!,Nbecause the 'cntr's get thrown off and duplicate variables created by criteria*eg., [age5[ and [Age5]B@B !!. . "!ns . %'8*str=working code 8$PtsKT any 0 '0an 8 Pts CountKTselecttblDemo.Patient_ID as [xvisit 00#$]'s Pts Avg VisitsKTB:$5IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]),@CInt([QRY_LatestVisitDate].[CountOfVisits]),Null) AS [xvisit~avg 00#$]'dePts w/ 0 visitsKT$8IIf(IsNull([QRY_LatestVisitDate].[CountOfVisits]),True) As [xvisit 00#$]'Pts w/ 1-2 visitsKTd on r$$9IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]) And (([QRY_LatestVisitDate].[CountOfVisits])  Between 1 And 2,True) AS [xvisit 00#$]'--Pts w/ 3-5 visitsKTco$$9IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]) And (([QRY_LatestVisitDate].[CountOfVisits])  Between 3 And 5,True) AS [xvisit 00#$]'txtDisPts w/ 6+ visitsKT$$9IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]) And (([QRY_LatestVisitDate].[CountOfVisits]) >=6,True) AS [xvisit 00#$]'adn ! 8(new) and froutine for creating new itemst id /parameters=(type_order,typefield,section_order,?4section_heading,display_order,display_text,criteria)rder GCall AddDemo(2, "Demo", 1, "Visits", pts_cntr, str, "xvisit", criteria)lRk GenKTr)=7MsgBox "selected gender" 2 '2 8 Gender-MaleKT"IIf(tblDemo.Sex='M',True) AS [xsex 20#$]'" Gender-FemaleKT=="IIf(tblDemo.Sex='F',True) AS [xsex 20#$]' Gender-UnknKT\II9IIf(tblDemo.Sex='U' or isnull(tblDemo.sex),True) AS [xsex 20#$]' 4Menh 8(new)Numeriroutine for creating new item d ECall AddDemo(2, "Demo", 2, "Gender", gen_cntr, str, "xsex", criteria)Mid(kAgeKTst3]MsgBox "selected age"n([q 4 '4La 8Age-UnknKT.IIf (Isdate(tblDemo.dob)= False,true) as [xage 40#$]'KAge <14KT 9IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,"Forms![frmReports]![txtEndDate]) +2Int(Format(Forms![frmReports]![txtEndDate],'mmdd')=60,true) as [xage 40#$]'rvicesAge 55+KT 9IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,"Forms![frmReports]![txtEndDate]) +2Int(Format(Forms![frmReports]![txtEndDate],'mmdd')=55,true) as [xage 40#$]'= Age 45+KT 9IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,"Forms![frmReports]![txtEndDate]) +2Int(Format(Forms![frmReports]![txtEndDate],'mmdd')=45,true) as [xage 40#$]'Activenx 8(new)],routine for creating new item3].[d0BCall AddDemo(2, "Demo", 3, "Age", age_cntr, str, "xage", criteria)kRacKT4,MsgBox "selected race"st3] 6 '6], 8 Race-WhiteKTicesLa-IIf(tblDemo.Ethnicity='White',True) AS [xrace 60#$]' Race-BlackKT] -IIf(tblDemo.Ethnicity='Black',True) AS [xrace 60#$]' " Race-AmIndKT 1IIf(tblDemo.Ethnicity='Am Indian',True) AS [xrace 60#$]' Race-AsianKTActive-IIf(tblDemo.Ethnicity='Asian',True) AS [xrace 60#$]'-1 Race-HispanicKTCs0IIf(tblDemo.Ethnicity='Hispanic',True) AS [xrace 60#$]' race-OtherKT],DIIf(tblDemo.Ethnicity<>'Asian' And tblDemo.ethnicity <> 'Black' And BtblDemo.ethnicity<>'Am Indian' And tblDemo.ethnicity<>'White' And -tblDemo.ethnicity<>'Hispanic',True) AS [xrace 60#$]'ss)"nH 8(new)%routine for creating new itemActidICall AddDemo(2, "Demo", 4, "Ethnicity", rac_cntr, str, "xrace", criteria)k Case "Ins"4>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>(U 'MsgBox "selected insurance THIS WOULD REQUIRE a new table using tlkpInsurance!!"  ins_cntr = ins_cntr + 1icesLa Select Case str, Null Case "Ins-None",True) Case "Ins-Medicare" Case "Ins-Medicaid"it Case "Ins-Comm" End Select0 If InStr(str, "(new)") Then'% 'routine for creating new itemrpt0 Else"rH Call AddDemo(2, "Demo", 5, "Insurance", ins_cntr, str, criteria)rv End IfSpPKTMsgBox "selected special pop"tem : ': 8 SpPop-MigrantKT(IIf(tblDemo.migrant='Y',true) as [xsppop :0#$]' SpPop-HmlessKT==)IIf(tblDemo.homeless='Y',true) as [xsppop :0#$]'(A dun 8(new)ort deroutine for creating new item d TCall AddDemo(2, "Demo", 7, "Special Populations", spp_cntr, str, "xsppop", criteria)s to skH n@ .Hcuk( "B@~ot| T ( KTNattempted to add previously selected item. Unique on [section]+[display label]his  KT custom 'new item'ctioSh (!,  (!.A@*n@ o8 K$[p cNew lab Line or vital can normally be one of three types BUT Dx are lumped together in same sectionax secA: Other rx selected already = 1B: this can be the first rxal ite] ))gets info for exisiting section if exists] #gets info to create new section] ] ]( ]@ ]X ]p ] working codexists] raw_codeo ] .6iontblReportsTemp 6%V.H TPcreate criteriat -------------------------code from addDxri  B""!])<=10  B""%'A working codetb  B""%'`this code tests if a section exists already for the new item already and finds the section_orderag:and last item display_order for what is inside the section?SELECT Max(tblReportsTemp.display_order) AS MaxOfdisplay_order 7FROM tblReportsTemp GROUP BY tblReportsTemp.type_order )HAVING (((tblReportsTemp.type_order)=5));'Lorms!f L 6%V.llLa !lected " ' 'd''all service section_order=0 k!IIf(Len([Flu Vac]),True) AS Expr1IIf(Len([qActiveHealth1].[  ]),True) AS [  0#$]'he sec HB@ not frpt0 H)(8"rpt0" is default for rstTemp - never used in tblReports t H)p.seHealth Conditions H)p.  H)r) A RrstTemp!section_heading = strItem no section heading only one section in services  H)rtsT  H)^ tbl  H)type  H)epor HB@tion_o B""B@~ortsTe e, tbl|==========================TX (!,.type_ KT in data base skip S (!,  (!.A@*no ] ]8 ]P ]p ] .6 assigtblReportsTemp 6%V.H?Tx  "!io HB@S MaxOrpt0 H)('this is the default rpt for design workp. rstTemp!report_content = only in temp may contain section_heading & display_order maybe use if change from multi primary key H) 'rstTemp!typefield = H)- 'rstTemp!section_heading = section_heading====  rstTemp!display_order =0  "% H)^  "% H) rstTemp!criteria = 0 HB@MMsgBox Me!lstAllDx1.ItemData(varItem) & " " & Me!lstAllDx1.Column(1, varItem)----hereMMsgBox Me!lstAllDx1.ItemData(varItem) & " " & Me!lstAllDx1.Column(1, varItem)-dlk 2/2009 this keeps only one any in dx list7SELECT tblReportsTemp.display_text FROM tblReportsTemp /WHERE (((tblReportsTemp.display_text)='')) 6%V.  ! this is true when selected    %DELETE tblReportsTemp.section_order, 9tblReportsTemp.type_order, tblReportsTemp.display_order, tblReportsTemp.display_text >FROM tblReportsTemp WHERE (((tblReportsTemp.section_order)=0) KAND ((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.display_order)=0) -AND ((tblReportsTemp.display_text)<>'')) 6%.D DB@k| "B@~ !   ,SELECT DISTINCT tlkpCrosswalk.working_code, 1First(tlkpCrosswalk.raw_code) AS FirstOfraw_code CFROM tlkpSetup INNER JOIN tlkpCrosswalk ON tlkpSetup.related_field ?= tlkpCrosswalk.working_code WHERE (((tlkpSetup.health_status) 9In (SELECT tlkpCrosswalk.working_code FROM tlkpCrosswalk LWHERE ((tlkpCrosswalk.type_code)='Dx') AND (tlkpCrosswalk.type_code)='Dx')) IAND ((tlkpCrosswalk.type_code)='Dx')) GROUP BY tlkpCrosswalk.working_code "(   ,SELECT DISTINCT tlkpCrosswalk.workK$[ing_code, 1First(tlkpCrosswalk.raw_code) AS FirstOfraw_code EFROM tlkpSetup INNER JOIN tlkpCrosswalk ON tlkpSetup.related_field = @tlkpCrosswalk.working_code GROUP BY tlkpCrosswalk.working_code, 1tlkpSetup.health_status, tlkpCrosswalk.type_code #HAVING (((tlkpSetup.health_status) 9In (SELECT tlkpCrosswalk.working_code FROM tlkpCrosswalk PWHERE (((tlkpCrosswalk.type_code)='Dx')))) AND ((tlkpCrosswalk.type_code)='Rx')) "(   ,SELECT DISTINCT tlkpCrosswalk.working_code, 1First(tlkpCrosswalk.raw_code) AS FirstOfraw_code EFROM tlkpSetup INNER JOIN tlkpCrosswalk ON tlkpSetup.related_field = @tlkpCrosswalk.working_code GROUP BY tlkpCrosswalk.working_code, 1tlkpSetup.health_status, tlkpCrosswalk.type_code #HAVING (((tlkpSetup.health_status) 9In (SELECT tlkpCrosswalk.working_code FROM tlkpCrosswalk UWHERE (((tlkpCrosswalk.type_code)='Dx')))) AND ((tlkpCrosswalk.type_code)='Service')) "(   ,SELECT DISTINCT tlkpCrosswalk.working_code, 1First(tlkpCrosswalk.raw_code) AS FirstOfraw_code EFROM tlkpSetup INNER JOIN tlkpCrosswalk ON tlkpSetup.related_field = @tlkpCrosswalk.working_code GROUP BY tlkpCrosswalk.working_code, 1tlkpSetup.health_status, tlkpCrosswalk.type_code #HAVING (((tlkpSetup.health_status) 9In (SELECT tlkpCrosswalk.working_code FROM tlkpCrosswalk QWHERE (((tlkpCrosswalk.type_code)='Dx')))) AND ((tlkpCrosswalk.type_code)='Lab')) "(kxs - "B@~ "B@~ "B@~ "B@~ "B@~ "(B@~|rTr ( KTBan entry of a section+display label already in form so skip adding MsgBox "here"xrSpr (!,  (!.A@*nHro@r ======================="New Line can be one of three types(A: Other labs like this already selected[ section_order = section_order of other labs, display_order= display_order of others + 1>B: Other labs selected already, but this is first of this type@ section_order = max section_order used + 1, display_order = 1*C: this can be the first lab item selected' section_order = 1, display_order = 1] ))gets info for exisiting section if exists] #gets info to create new section]0 ]P ]h ] ] ] ] working code] raw_code] .6tblReportsTemp 6%V.HTPocreate criteria-------------------------code from addlabs  B""!  B""%'C working code  B""%'`this code tests if a section exists already for the new item already and finds the section_order:and last item display_order for what is inside the section JSELECT tblReportsTemp.section_order, Max(tblReportsTemp.display_order) AS LMaxOfdisplay_order, tblReportsTemp.raw_code, tblReportsTemp.section_heading VFROM tblReportsTemp GROUP BY tblReportsTemp.type_order, tblReportsTemp.section_order, 8tblReportsTemp.raw_code, tblReportsTemp.section_heading NHAVING (((tblReportsTemp.type_order)=8)AND ((tblReportsTemp.section_heading)= ' '));'L L 6%V.Jfinds the last section already present so can assign new section if needed?SELECT Max(tblReportsTemp.section_order) AS MaxOfsection_order 7FROM tblReportsTemp GROUP BY tblReportsTemp.type_order )HAVING (((tblReportsTemp.type_order)=8));'L L 6%V. ! " ' "' !e' " 'dhj''kPjIIf(Len([qActiveLabsLatest3].[  ]),True) AS [ K$[ 0#$]' HB@rpt0 H)(8"rpt0" is default for rstTemp - never used in tblReports H)Labs H)  H)  H)  H)  H)^  H)  H) HB@ B""B@~ |h==========================Th (!, KT in data base skip`hSXh (!,  (!.A@*n0ho(h cNew lab Line or vital can normally be one of three types BUT Rx are lumped together in same sectionA: Other rx selected alreadyB: this can be the first rx]X ))gets info for exisiting section if exists]x #gets info to create new section] ] ] ] ]]]0 working code]H raw_code]` .6tblReportsTemp 6%V.HT@fcreate criteria-------------------------code from addRx  B""!  B""%'A working code  B""%'`this code tests if a section exists already for the new item already and finds the section_order:and last item display_order for what is inside the section?SELECT Max(tblReportsTemp.display_order) AS MaxOfdisplay_order 7FROM tblReportsTemp GROUP BY tblReportsTemp.type_order )HAVING (((tblReportsTemp.type_order)=6));'L L 6%V. ! " ''dc''all service section_order=0kc!IIf(Len([Flu Vac]),True) AS Expr1IIf(Len([qActiveMed1].[  ]),True) AS [  0#$]' HB@rpt0 H)(8"rpt0" is default for rstTemp - never used in tblReports H) Medications H)  H) RrstTemp!section_heading = strItem no section heading only one section in services  H)  H)^  H)  H) HB@ B""B@~ |a==========================TXa (!, KT in data base skip aSa (!,  (!.A@*n`o`=======================[New Line can normally be one of three types BUT service are lumped together in same section"A: Other services selected already B: this can be the first service]))gets info for exisiting section if exists]#gets info to create new section]] ]8]P]h]] working code] raw_code] .6tblReportsTemp 6%V.HT^create criteria-------------------------code from addservices  B""!  B""%'G working code  B""%'`this code tests if a section exists already for the new item already and finds the section_order:and last item display_order for what is inside the section?SELECT Max(tblReportsTemp.display_order) AS MaxOfdisplay_order 7FROM tblReportsTemp GROUP BY tblReportsTemp.type_order )HAVING (((tblReportsTemp.type_order)=7));'L L 6%V. ! " ''d`\''all service section_order=0k \!IIf(Len([Flu Vac]),True) AS Expr1"IIf(Len([qActiveServicesLatest3].[  ]),True) AS [  0#$]' HB@rpt0 H)(8"rpt0" is default for rstTemp - never used in tblReports H)Services H)  H) RrstTemp!section_heading = strItem no section heading only one section in services  H)  H)^K$[  H)  H) HB@ B""B@~ |Z==========================TY (!, KT in data base skipYSY (!,  (!.A@*nYoxY](]@ !!. B"!%'  "%'  "%newfrmCountPatients-criteria VB@demo B"!% B@ Demographics B"(>  "% B"(  B"( xageKT B"!(\o'result >= #.#';'>=';'result > #.#';'>';'result <= #.#';'<=';'result < #.#';'<';'Between';'between' B"!(< B"( B"!@(\ B"!B(\xraceKT' ethnicity =';'=' B"!(= B"( B"!(\ B"!@(\ B"!B(\ SELECT tblDemo.ethnicity, E'xrace' AS raw_code FROM tblDemo GROUP BY tblDemo.ethnicity, 'xrace'; B"!( xinsuranceKT' carrier =';'=' B"!(= B"( ASELECT tblDemo.insurance FROM tblDemo GROUP BY tblDemo.insurance; B"!( B"!(\ SELECT tblDemo.insurance, O'xinsurance' AS raw_code FROM tblDemo GROUP BY tblDemo.insurance, 'xinsurance'; B"!(nTkTdTNothing selectedA@*kToTX]] !!.frmCountPatients-criteria VB@lab B"!% B@Lab B"(> B"!%'  "%'  "% B"(  B"(  "% numeric B"(rdPSNothing selectedA@*k(So ScNew lab Line or vital can normally be one of three types BUT Rx are lumped together in same sectionA: Other rx selected alreadyB: this can be the first rx]))gets info for exisiting section if exists](#gets info to create new section]H]h]]]]]% working code]]]( .6tblReportsTemp 6%V.HT@Qcreate criteria-------------------------code from addRx  B""(!  B""(%'^S display_label  B""(%'S source_query  B""(%'FR field_name`this code tests if a section exists already for the new item already and finds the section_order:and last item display_order for what is inside the section?SELECT Max(tblReportsTemp.display_order) AS MaxOfdisplay_order 7FROM tblReportsTemp GROUP BY tblReportsTemp.type_order )HAVING (((tblReportsTemp.type_order)=9));'L L 6%V. ! " ''dN''all service section_order=0k@NIIf( ! F , True) as [ F  0#$]'If (Len(criteria)) Then Else criteria = "update query"End If HB@rpt0 H)(8"rpt0" is default for rstTemp - never used in tblReports H)Special Measures H)  H) RrstTemp!section_heading = strItem no section heading only one section in services  H) ^ H)^ F H)  H) HB@ B""&B@~ |L==========================TK (!, KT in data base skipKSK (!,  (!.A@*nxKopKH]] !!.frmCountPatients-criteria VB@service B"!% B@Service B"(K$[> B"!%'  "%'  "% B"(  B"(  "% numeric B"(d0JNothing selectedA@*kJoJ]]]( !!. B""'J: working code JBlood Pressure01 is bmi, 0 is bpfrmCountPatients-criteria VB@BP B"!% B@ Vital Signs B"(>Blood Pressure B"(dHfrmCountPatients-criteria VB@bmi B"!% B@Vitals B"(> B"!%'  "%'  "% B"(  B"(  numeric B"(zkGdGNothing selectedA@*kGoG@======================="New Line can be one of three types*A: Other vitals like this already selected] section_order = section_order of other vitals, display_order= display_order of others + 1@B: Other vitals selected already, but this is first of this type@ section_order = max section_order used + 1, display_order = 1,C: this can be the first vital item selected' section_order = 1, display_order = 1]]] working code] raw_code]))gets info for exisiting section if exists]#gets info to create new section] ]@]X]pWDim strDisplay_text As String 'holds what's in list boxt and on report (display_text)LDim strCriteria As String 'holds string criteria e.g., :".[ha1c])<=10"]Dim response As String .6tblReportsTemp 6%V.HTCcreate criteria-------------------------code from addvitals  B""!  B""%'E working code  B""%'`this code tests if a section exists already for the new item already and finds the section_order:and last item display_order for what is inside the section JSELECT tblReportsTemp.section_order, Max(tblReportsTemp.display_order) AS LMaxOfdisplay_order, tblReportsTemp.raw_code, tblReportsTemp.section_heading VFROM tblReportsTemp GROUP BY tblReportsTemp.type_order, tblReportsTemp.section_order, 8tblReportsTemp.raw_code, tblReportsTemp.section_heading NHAVING (((tblReportsTemp.type_order)=3)AND ((tblReportsTemp.section_heading)= ' '));'L L 6%V.Ifinds the last section already prsent so can assign new section if needed?SELECT Max(tblReportsTemp.section_order) AS MaxOfsection_order 7FROM tblReportsTemp GROUP BY tblReportsTemp.type_order )HAVING (((tblReportsTemp.type_order)=3));'L L 6%V. ! " ' "' !e' " 'd>''k> Blood pressureKT FIif(IsNumeric([QRY_Latest_BP_>Systolic/Diastolic2].[bp_systolic]) AND KIsnumeric([QRY_Latest_BP_>Systolic/Diastolic2].[bp_diastolic]),True) as [bp 0#$]'Body Mass IndexKT/IIf(IsNumeric(QRY_LatestBMI.BMI), True) as [bmi 0#$]'WeightKT5IIf(IsNumeric(QRY_LatestBMI.weight), True) as [weight 0#$]'n< HB@rpt0 H)(8"rpt0" is default for rstTemp - never used in tblReports H)Vitals H)  H)  H)  H)  H)^  H)  H) HB@ B""B@~ |;==========================T; (!, KT in data base skipp;Sh; (!,  (!.A@*n@;K$[o8;] VB@b@DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp )WHERE (((tblReportsTemp.type_order) = 2))'L L VB@j VB@b !B@~o :]@ VB@b@DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp )WHERE (((tblReportsTemp.type_order) = 5))'L L VB@j VB@b !B@~o9X] VB@b@DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp )WHERE (((tblReportsTemp.type_order) = 8))'L L VB@j VB@b !B@~o7] VB@b@DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp )WHERE (((tblReportsTemp.type_order) = 6))'L L VB@j VB@b !B@~o6]H VB@b@DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp )WHERE (((tblReportsTemp.type_order) = 7))'L L VB@j VB@b !B@~o5`] VB@b@DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp )WHERE (((tblReportsTemp.type_order) = 9))'L L VB@j VB@b !&B@~o4]]](]@]X !!. VB@b  "!  "%'8  "%'&  "%'( @DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp &WHERE (((tblReportsTemp.type_order) =  &) AND !((tblReportsTemp.section_order)=  ( ) AND ! ((tblReportsTemp.display_text)= ' 8'));'L L VB@j  VB@bkX2 "B@~|@2*82 ( KT;this is an entry of a section+display label already in form MsgBox "here"1S1 (!,  (!.A@*n1o1p]]]]] !!. VB@b  "!  "%'8'&intSection = 0  @DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp &WHERE (((tblReportsTemp.type_order) =  &) AND ! ((tblReportsTemp.display_text)= ' 8'));'L L VB@j  VB@bk/ "B@~ "B@~|p/*h/ ( KT;this is an entry of a section+display label already in form MsgBox "here".S. (!,  (!.A@*n.o.(]h]]]] !!. VB@b  "!  "%'8'&'( @DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp &WHERE (((tblReportsTemp.type_order) =  &) AND !((tblReportsTemp.section_order)=  ( ) AND ! ((tblReportsTemp.display_text)= ' 8'));'L L VB@j  VB@bk,reset the rowsource to original   ,SELECT DISTINCT tlkpCrosswalk.working_code, @First(tlkpCrosswalk.raw_code) AS FirstOfraw_code FROM tlkpSetup QINNER JOIN tlkpCrosswalk ON tlkpSetup.related_fiK$[eld = tlkpCrosswalk.working_code VGROUP BY tlkpCrosswalk.working_code, tlkpSetup.health_status, tlkpCrosswalk.type_code OHAVING (((tlkpSetup.health_status) In (SELECT tblReportsTemp.display_text FROM :tblReportsTemp WHERE (((tblReportsTemp.type_order)=0) AND K((tblReportsTemp.section_order)=0)))) AND ((tlkpCrosswalk.type_code)='Rx')) "(   ,SELECT DISTINCT tlkpCrosswalk.working_code, YFirst(tlkpCrosswalk.raw_code) AS FirstOfraw_code FROM tlkpSetup INNER JOIN tlkpCrosswalk ZON tlkpSetup.related_field = tlkpCrosswalk.working_code WHERE (((tlkpSetup.health_status) AIn (SELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE K(((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0)))) IAND ((tlkpCrosswalk.type_code)='Dx')) GROUP BY tlkpCrosswalk.working_code "(   ,SELECT DISTINCT tlkpCrosswalk.working_code, YFirst(tlkpCrosswalk.raw_code) AS FirstOfraw_code FROM tlkpSetup INNER JOIN tlkpCrosswalk ]ON tlkpSetup.related_field = tlkpCrosswalk.working_code GROUP BY tlkpCrosswalk.working_code, TtlkpSetup.health_status, tlkpCrosswalk.type_code HAVING (((tlkpSetup.health_status) AIn (SELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE K(((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0)))) *AND ((tlkpCrosswalk.type_code)='service')) "(   ,SELECT DISTINCT tlkpCrosswalk.working_code, YFirst(tlkpCrosswalk.raw_code) AS FirstOfraw_code FROM tlkpSetup INNER JOIN tlkpCrosswalk ]ON tlkpSetup.related_field = tlkpCrosswalk.working_code GROUP BY tlkpCrosswalk.working_code, TtlkpSetup.health_status, tlkpCrosswalk.type_code HAVING (((tlkpSetup.health_status) AIn (SELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE K(((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0)))) &AND ((tlkpCrosswalk.type_code)='Lab')) "( "B@~ "B@~ "B@~ "B@~ "(B@~|X#*P# ( KT;this is an entry of a section+display label already in form MsgBox "here""S" (!,  (!.A@*n"o"] ]8]P]h] !!. VB@b  "!  "%'8'&intSection = 0  @DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp &WHERE (((tblReportsTemp.type_order) =  &) AND ! ((tblReportsTemp.display_text)= ' 8'));'L L VB@j  VB@bk "B@~ "B@~| * ( KT;this is an entry of a section+display label already in form MsgBox "here" S (!,  (!.A@*no]]]] ]8 !!. VB@b  "!  "%'8'&intSection = 0  @DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp &WHERE (((tblReportsTemp.type_order) =  &) AND ! ((tblReportsTemp.display_text)= ' 8'));'L L VB@j  VB@bk "B@~ "B@~|* ( KT;this is an entry of a section+display label already in form MsgBox "here"8S0 (!,  (!.A@*noP]]]]] !!. VB@b  "!  "%'8'&intSection = 0  @DELETE tblReportsTemp.type_order, tblReportsTemp.section_oK$[rder, 0tblReportsTemp.display_text FROM tblReportsTemp &WHERE (((tblReportsTemp.type_order) =  &) AND ! ((tblReportsTemp.display_text)= ' 8'));'L L VB@j  VB@bk "B@~ "B@~|* ( KT;this is an entry of a section+display label already in form MsgBox "here"hS` (!,  (!.A@*n8o0]H]`]x]] &!!. VB@b  "&!  "&%'8 '&intSection = 0  @DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp &WHERE (((tblReportsTemp.type_order) =  &) AND ! ((tblReportsTemp.display_text)= ' 8'));'L L VB@j  VB@bk@ "&B@~ "(B@~|* ( KT;this is an entry of a section+display label already in form MsgBox "here"S (!,  (!.A@*nho`]]]0]H]` !!. VB@b  "!  "%'8'&  @DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp &WHERE (((tblReportsTemp.type_order) =  &) AND ! ((tblReportsTemp.display_text)= ' 8'));'L L VB@j  VB@bk "B@~ "B@~|`*X ( KT;this is an entry of a section+display label already in form MsgBox "here"S (!,  (!.A@*nox]  B""!  B""%(new)A<d@Ak0 oAoPA oAoAopAoADo0AopA.oXAo@P A,o( A0o!A2op!A4o!ANo0"A6o/Attribute VB_Name = "Form_frmCountPatien ts" Bas0{5705D417-8E2A-11D8-A7B3-00A0C9C6E171} |Global!SpacIFalse dCreatablTru Predecl2aId"Ex0pose_TemplateDerivCust0omizD$ Option CompC DW  ?lic`it P15 Sub cmdClK_Ck() DoCmd. EndeReport Dim rsti As DAO.Rec`ordse>strSQLSngespons @ Defa$ulxtM nehw_rC!n db A!DSet = Curr$DbP'= 'gather @selecthDxs to cA a d( 7SELE@CT tblCJsE.type_Der,disy_text, " _ & "raw_cod@e FROML WHERE ((()=0));Bj=D.Op4enFk(1@ Ifu.EOF &A.BThenrp= MsgBox("No diagnosisFP.", vbCritical +OKOhnly`S,`Yndon(s)"CSExitQTTIf MoveFi1G=6!I-+N/ABDo Untili #k @6 Or7& ILoopp " #J8#Tas![-c ,a].Mod -= 'try o=ing @from sbefore thKA5i>pt\dB inpuz !#1aG "` ?TabControl0.Pa@ges("o›s").@VFocus? txtWork@er& â .Ť.Visib.lbl"!L'fill@/gBi`in)!TitS s!6.dTValue fta I;x P@l!@X? , \fq<YSuZkDPBt~eg?di g9Qu1esEbjlPbdcpcP)T(?!\L )c)s!lst <> "prpt"V p" 'd8on'n w*be remVdClibrarpy. YQq;inue2^0`^^ ^=firm C]  vbpA+> j_G 3GpWarn` s %9>DwTE(r.ID svUOtRs)=W'Q[]Wg]"3w Run1)gv '-3'u "db[P~#cAF$zTz E<0iet1peЀsC!qry_M=BoJ,r+I 40Ll|etS0R4eq =y$DoIqFS3y  y~'K$[re"f@,h ap]itemj`N(*:+*5;1//%QL?S=>Oc  -ChnDx5RedD@AVitR?5Services?3Lab2dSavd_ A0_aΤ1ehc~e Qdϐe-xdb\e̅sintVa ribPIntexgerRSqold varI0ns0 As String Dim strDefau@ltTextcntInteger 'capture data from formXresponse new_nam.Boolean L'=&,heuis determine if report ha$s `yeIf Me!txtT@itle = .Value TheD  'suggest8 a \,tthe chosen` dx'sSQL4"SELECT tblRMsTemp.type_order, display_t, " "_*& "#raw_code FROM$ WHE@RE (((>)@=0));"0S et rs{mp/db.OpenRec*set({5) GX.EOF And|.B VU@csgBox("No diagnos@uselected.", vbCritical +OKOnlyFS Condon(s)"'Exit Sub)E&If-MoveFi@C !hSN9Do UntilFJG   Or&7T#+.6 $Loop" #XEgGoTo i`nput_Coz Else8 ql tl_if_E@ $6@~-6 og O{already exists,lace?3 QLf!Vallows you todgain'v`1XQu`ionXYesNoCancel Y` X'me^=@b bdbte olpa(addbin ch3!7ID]߀L=ġ=e'CD DoCmd.Warn s FaGa KVDTE.PLK ZP)')=^'[Fs]![frm#C4lst:ries]A""+ CRunA}"Trul6"oAdd5AoCM _B_Dat NA:<#'&I!DS`ewD0 N _"p1,_`Le``z )lIQQ'ushbc9 so?2Dd=KeL +$ = 0 T%J!%!%.L0HCou- 1Hp F).Column(1,)0,^y?02 O= x1j ir'^0dgets laМBz Eד.* OE a0cELEFT E,3'rpt'_IORDER BY C(Mid_ID,4s' dlk 11/2007Y tAllo4tr )cV'os eibrarynpt###w*p.c,' waъLI1 intVariab'v![], 4, 3) +k5B Z8m, t"Q9'sofTIϑ/T v p-SPuppesquekSlS To.gNewY a!qryC@'"88ajdescript=) x ID.Ug O /"Mu`D2cjbТsm)eu%_ g\XNINSER T INTO tblReports (r@_ID, type_order,field, sectiondheading, " _ & "display^text, raw_code, criteria, [percent], denominatoiod2_star:end )uSELECT'" & new_"" AS exppTemp. ~h #& 5LGa @[dIJh\ElpOwsFROM Y;"GDoCmd.RunSQL (str)SetWarns TrueGForms!frmRÿ!lstQues =" P.Reqy Me!txtTitDleKnam$r@esponsMsgBox("New  <±H > added", vbInf3a +OKOnly7, AB IE@Sub Pri vate  Detail_DblClick(Cancel As IntegerD,Call lemoveDemo2_  ,_OpenV ' W hen os the%has a of "rpt" (len=3) if4 or +in t tak fr\om!H92'old , ite"m re @SmaBnly sed in(P but edit@JD a`(cre-nRgBs cD:'cW, we is @sav-*d $Sa to'g.InaA(!z h+HG* B3aoutp 0qSummary` eva`bl with@8oYŌ+#+ idsd  "design !dy\ic-py by5'-@Cunil combA`ё% special ca` -rage? xy a`@> N- * "~avNgD:&qs# 2GU` !giv@Od`iffer`I!wp :248$cd1T$0 Dx, R04R@(@)s3'ti @ea li.(eg. ha1c ECt on 3rd r`Hs =[81] 8 beca@(=DxT 6BK os sub$s: xPvisixA, xse@ xracsxppop. c2019firsp:8 $m(2) trt \!supthatcR2 qt!>۱hdg7a'$11masD$ - bkhn 4 #$:pl0(>syRdX fig0fap4Pgo "@E" so n pRXs generJ,Trpcpu ruy&sm&&Xhs`u"%11T"#$-xu0"dxF"a)grapPI( 1QVA)sh822З4m{%RG0er? 31vitals bmiAbp)c;RAge  r5Dx/ , 4QEthnicity 6= |"Ro k0u@yc #, 7qtKW/ k6QT2 DK$[iabeterpI= "`Po; ǫ $Pop|e/ 9 ="SMeasds:(+* Labs has section order for each lab .'&$_1 = [first name] & ""Ed2dqwondek'-W3Dim strSQL As String cnt Integer varItem Vari8ant TempDAO.Recse:QueriesAllGdbDatabaseCCSet @= Current.DH!= .Open+("tbl)")'this displays the i@Bs frmReportsA o'@!p 4leH to@jornprogresC'clear 0old @- y'rDef@$h aGboxe$Me!lstChosenDxSqPylA Focus'nec/ary1kee3it3Xhav(`led shadowC 'If t(xtT=.DefaultValue Then 'only t if ne cDemo8(0)`!'@ns xof pati_s iln ` - @fie GalwZCEC'Adda ( 2,`A ", 1@VisitsPt ountx"xvA!`QP_ID [p201]D:CR`elateB 4'EIf '= VSJct(HV " _`WHERE LEFT(f.rz@, 3+'rpt'nORDERx BY)&b`J ``/4dbd#/m'Á@7iC s librPgla###!'WH`@up am c - check`e@fpartic3Q Qalready >c@5 TdneJload váYbNcellpm7"9exista4c3Len(Forms!V.,AZ) > 3e3c|ome& 3 +P20 etc15e  t9SO10):st.Column(17DJc'r d esign8ram0ers NE'a T %[31INSERT INTO8* (2.typeٳ, A,33sÚ_h!,r5ts_text, raw_code,P$@tp0E 9T["$], `[perc denominator, `iod2_st+eB)k:SlCTHo)>?i.H_ AC7heT?:KhHcrQ0B* :z lOO "| cZ((OZ,)=/P "'"0[;]|![D'Dr"))_ "?^s .( eaH=_ Da/ 4BE`S@>TO"Me!Psxo}czVit stR_DServiASpecialMeasuO@yx1stReB?2_qO  O !SBuPriv lblA_Click(5䑦p c7r= 0 To.L~C b@- 1 lstAllDemo.Selected(cnt) @= TrueN0ext T4Call lblAddn_Click14ForNx0 To List@Count $Fals~ End Sub Privatex()DimAs IntegerWx.VxK;ÒLabsHH)H%@C'CC'to u@nhighltooM'2RRPROE%H?CO_'3}PServiceP (= 芅Q*)&R$RBRS?,=,Dz*rst SecExs `DAO.Rec@ordsetD 'gets inPfo fei@ting si@on if ts New3 wcren TempN! varItemVarian_@erĻ' EheaFda Str!  #disp8lay3 crxite F d+'Craw_codeRCst 'workAa &SQL'  dba?Databau S= Curren?= dž=1-2= And=dTBetw een 1B#2,CcXKX3-5X%?,p?, ]U {%,35?,wajX6+,?;,% !,,I ">=6** EsSelectoIf InStr(strItem (new)aThen 'routine for creag  mWElse 'parame@s=(0typedAfi eld,sionY %head0ing,̥te(xt,eK) Call AddDe0mo(2%", 1@pts_cnt*/P, | ϦQ!Ifc9Gen/1'MsgBox "s&ed gena*V'@ P-Ma|lereutbla.Sex='M'7sexc@7 Fem_/ / ( F/ &~ //* K$[ U=60os osos1Q;5?3?s?s?syD0?ߔ !:?? 7 ??255??4O#E( vw/70 >=4$a Select$n!`InStr(strItem` (new)Th enOt'routine for creag 5 0modGoTo jumpaElse 'Call Ad2dA(2 ",< 3@_cntо PR, -)sion_headin>g1!Ifcc4RacRr'MsgBox "sed raceac 4e-Wh?_Q2\=Ethnicity="'"',TAS֒ 6ccr( BlackobA/ ( "/ / ? 6( AmInd;/  F&_='Am 0iano o l,ay_order, "0#") & "]" Case "Race-Asianrcriteria = "IIf(tblDemo.Ethni@city='',True) AS [xrY"2Format@(displ3H}:al;"STx- OtherR<>A And e <> 'Black'" _nm Ind|Wh|w?Z5EDSelxect=>S If@Str(st rItem@(new)Then'routine for creag @ Lm is called with special@ buttoGoTo jump!Else$ 'BC Add(2", 4@FtS_cntw``Ct,@{)w s .ion_heading' g38Ifo#Insg_6M?[6s 22v27.SBPopulGo  ,@Ep3sppo>p633(urpance)0'>./'MsgBox "svbins THIS WOULD REQUIRE aitable usMtlkpF!!' 'cSF+ 1# M@aQ-Non('Medicara " idq>Comm} / S UR O 8"/T4b95T rOP'1%llOP, 570, !7P5Q2SgJ #"SpPO/`A=/A_Q*j# op-Mig?t 0e\ms='Y',tasHϜϜ $ Hmle>so^` homDss a   U?0s_qO0O0[?0?0 OiJO2OiOit~sgOiOi:?2㐙oo}7s'=3rstTemp.XNew33 !report_ID1rpt0" '"Нdefault4 -`kver knARbs/mp!typ6ec02/$fieldQRo`%2ߠ5_Pptxext Craw_code`p8Aw.`Updatr1s!frmCountPpents!lstRePe.RequeryD ѷ: 'Q'KhN va" Exit Sub && e4rr : \Err.Number Q302 'j" a bskiResume  oCase 3315 'this a custom item|Resume Next.aElse$hMsgBox Err.Number & "& Description5End Selecb  ub SubB vra()'On?or GoTo err_codyDim cnt As Intpeger3varVaria&nf st St0ringQte  efeed the display ordwfieldStatic pts_O5# Pgenag"eracin?spp'= 3'Esuch@?at in SummaryBCZiables will be nameDD'raw[Bn@s}_M&AQeg. x@>201AvisitR- '' =| 1D),` ' lnormally starts 40, but " count" add{f open eve'soCAreport@have total of pnclu@ calculng pe rcA/Me!lstAllDemo.ed(0) = True J'@acAusunssI%P= 0 Th` "d'CAUTIlON`a @B+ 1Am 6 F'-ܢC (I sdateFdo@b)= Fa@d,tasˀ).`' <14dbw 6D diff('y',}," _S$a)@}s![frmReports]!0[txtd ]) +=Int( ,'mmdd'z)= < D1^45߮#cL"`\ 15-29_5EH A_5_5_5B=_5>_5 _50A`between + a@#29.9|9977BS)go30-3_:_:o 37;&/}=60/r TTCqx:5Q_5mqv0 >=55s [xage" & 20Format(_cntr, "0#")`"]" Case "Age 45+Flcriteria = "IIf (Isdate(tblDemo.dob) And Ddiff($'y', ," _a& "s![frmReports]![@txtEndU]) +AInt(&,'mmdd')(<'c>=45,tru0e) aԀ SelectQS oInStr(s(new)@Then'routine fo@r creag* @ m Else 'Cal l Add(2", 3o@DZC*,â)3@IfRac'MsgBox "sBYed race ñ+ 1S$m  @2 'e-Wh8w pEthnicity='B',TOAS?%.ᄀ'e-BlackE;Bc]h'AmIndAm `ian??c?"'As@ ?:AHispaHjX-Otherh<>'0'BEeg <> 'cT} Hs @ct? 1 ,Ӏ_>߀4?foL?f?f&?fin?f[?f?f4f4 ORf7fepVfbfF mRIns_* '>_'?kinsurance THIS WOULD REQUIRE a{table usatlkp` #!! rPnn n 8RC[-NonvPOMedicaribComm '/ R5 %OC?4?4fbO4O4F__4Q%ko15P4#!, R43?Q23!SpPspecial pop?2spp,,~ d3{ ?qV op-Mig07t/&ms='Yw `8U  dd HmlRRKeD onЇo`}#{p(ta 4qph(w .UpdUAe"K$[e%x`>p ]🦱'=x lM '! a !~ skip ϰ2I?8?o0L9_Z1ku& o Q(qdfQaDe@p`:u% OaSߑcqc`& {B1_D ?L eA?L2LLULNLdesign Q '@%contPI@űp mءaeGUC&܆ŠR@changem`Uiimary keQ4STj! vMS % Stn ITx % jN t0MNz0g= {'rstTemp!criteria = 0 .Update\'MsgBox Me!lstAllDx1.ItemData(var) & "& LColumn(1, NW|'-  '8her\6'dlk 2/2009 this keeps onlye any in dx listSet db.OpenRecordset("SELECT tblReports.display_text FROM  _-WHER E (((")='<M>'))")If (M.ICount) Then '7@8true w selectedAc8qdf8CreQueryDef("", "D@9TEM9Bsion_Ber@ 464type T;' Y"^[2)=0)h3ANDj5? *B79)<>΁'@o.ExecuEEnd IfC<#{ChosenDxFq=#/`ILI"I }.RowSource`Fe`DISTINalkpCrosswalk.working_coLdeDDFi@("t*raw) AS Ofe2kXup INNER JOIdN O.rel`\d_fiheldN =K* He.health_status G In (ń`3#E%bj+`Dx'&T{V- ) GRO UP BY$" FGRNGGgG!KGkpBBGetup G=N4.I_'c L, 0&5HAVINGes *LPE! L'workIcodqBFaw_A '6r1b AdDa tabas SedbCurrentDb@rK@b.Openq("tblRe ports")A On ErrtGoTo err& $'fEDG'-@8from add FEacDh nIn ms!frmCou@ntPati4s!lstAllLe.+sS&~Ast?='() 2! /*?Column(k7e "'te!jcadfhAi"_"yand|nds@eC yla] what instids (Y= "SELECT D.$, Max(, ) AS " _# *& "Of, e/hChm FROM GROUP BY  HAVING (((G)=8)A\ND`T$!)@6 +'"[a]&"));"0A ?p@ A6aC'fiP"M1pre2s`u s@as0signaneed lMJE>B%$j>& p O.n>mcqn(S IfwvO Th|endZ3`y!}Po{5#1= :!Else  Fa} _# !`ofK "o" `s<rERIf{`2IIf(Len([$qA@ve!eLaY3].[3=3]),True'7Lx8abat(, "0#"~)8C Sw.xAdd3!"r"z_ID "rpt0"'\default2i4 -07vRiFnO/mp!0= 8/$fieldQD l]0|}&text 71F?a$D.U|pd %!%R4elpd!5quheryN Ą B t SuP'=:% q) C .N8umbq B3022 ' # a skipResume  33pB&MsgBoxx/pU&"Des p0 0:C Priv  lbl1Rx_Click(i'p21 Line Уvital normally!of res BUT Rx are pto asa (AUr٣ena'`cpn*rx ooooԑIQPʏooqGF t'oԷofo2C cq_3p  'working code Dim raw_4 As StNrpp XdbLDAO.Da tabas Set 2= CurrentDb&rstTemp =.OpenRecordset("tblRe ports"")a On Error GoTo err 'create criteria?'- 'qfrom ad@dRx F3Each varItem In ms!frmCountPatigs!lstAllRx.sSel ected>st-="(8)  s(Column(1,a!K'this tests i f a s.io n exial!Sdy fBthe new VHand finXds D_perClast display1Bwha@ns#K$[ideI PSQL"SELECT Max( .) AS OfK" _CR& "FROM   GROUP BY.type.HAVING (( % )=6));"AA@SecECZC=l .If I.¥ Then @@= !maxoLI+ 1j:@00CElA{0 C'all@MrviceENC+= JIf'IIf(Len([Flu Vac]),True=Expr(eEqActiveMed1].[" &@ Dm& 6!at(j*, "0#")"]@< #4A.AddNewc@ADD!r"_IDarpt0"'"#tdefault"fd -qver used inGUR W= 6Vf0ield %iconsCae C 'Mhead=!{B noA only Lon&DseFs\:text nRȮEOE!.UpdㅁRelѠ{queryC N t Su`'=a :SA Cz u.0Numb[C30d22 '! a } skipResume 33iBMsgBo6xx3 8Desptg0 ?ct ! Priv@ lblP5SC!_Click>(S~P8 L"i%can'rm!Hy be&of@hreh^s B UT)Jare up6togeo:r2)ap/ 'Ax: O* ubB:1xPt" q1r|stbA9'3` tfoBa|it6 Q~}ĝB0to@A NF *Vra@nt; Integ(qDDw 5ss_sp5qo> '@`oo?oooo oe &jU0I ϯrϯůD8s/ V^*r ooces.ﰒJB;5:K`Kfrd4U' 0Ai1΢ ﰗR0l s+&!]C8)=7Mݯ1(S=3 ﰡ KG4I= ponv ﰢAf7sLatest3].[" & raw_codeP"]),True ) AS p_ ,  7VFormat(display_order, "0#":)"v rstTemp.AdpdNew]!report_ID = "rpt0" ' is default for 3 - never used in tblRFsbtypeV17fieldBServi8cesgW>!section( .'qheading1strItem no  only one psI^ .text7G# Ɗ= criteriaC B.Upd  Cs!frmCountPatients!lsPtRel db.Requery N-vaP Exit Sub  '=Aerr:C Sels Case Err.Number30222 '/a Bb skipResume &lseMsgBox hDesMpA4nld &.EA8PrivEA; lblSpecialDemo_Click() Dim cnt As IntegA4a&9StrQ If @.Al.Rsed."3 ThenA = s7. (0%i= Me=Column(1N,&In (!Data( b)newj DoCmd.OpDen ("M--U"].TabControl0.Pages("d0").SetFocu( txtT`CGh"A:graphi>c0$0 Work=- ( %%]. R@CAтGjN Bc"x& ?KRace.Visible`Fail"L-cmb+Brator.RowSourc1 "'r`y >= #.#';'>= ><<<`<Between b$ T].` "<g-"!chkAgeAutoLabels!o'!ߡIt rO:m?sO' ethnicitdy ='toQ=OOJP*Bp/q6u49#zz9*4SELECTaa6.@Z d& "'x Q '1VjFROM% GROUP BY?, ;%insurancemB carri%0 /.G%  "& vi o/o/__t3%%F % %6%%+'xRQ!4IfEhi"N8othxpaedT)eqSq Y݊ps@ߓ@ؓϓ"lab_0$G >盛񄠧I"ߪ1;;@ `3%pF Forms![frmCountPatients-criteria].txtDisplay = Me!lstAllLabs.ItemData(cnt) & " numjc" B Else MsgBox "Nothing selected*nd If  ESub Private  lblAddSpecialMeasures_Click()b 'New lab Line or vital can nally bf three types BUT Rx are lumped together in sameXction @ 'A: O rxc alreaDdy\'B:.is<7 fir st rx Dim SecExists As DAO.Recordset'As@fo fgeitF if  ts *('to c,uWnLsb6D&T8emp%6va&rA~VantuEd_1N Integer'PŜStr9 trSQLMptextNNworkJcodA.source_ queryfield_nAz.9C dbA Ahba1 Si@= Curr@D@vO= db.Openu("tblReports "NOn ErrxGoTo err_,E3'jEHGA'- from ad dR@ Each 8In D}n~sSw#j1= x)x y@yelC J7_ .Co`zn(1,e) ' # @ 2 ' 'c@Q teA~ waedxeb}As`7l afin|ds&j l>a (q!what insi:dh蚠M sn= "SELECT Max(+WB.J ) ASObf+" _# Y& "FROM GROUP B:Y.DHAVING ((g)=9));rpsDIfJd Th^eak =!maxo$+ 1d s#$= 0sCI - ` '@Mrvic= =p%w`a#`]~"IIf("}[2]~!bG.B, True) pas [ 9#0Fat( , P"0#"]Ԁ'A(Len(O)b)8'  * updQ2^Q 4Z.P$K$[r30!rrZ_IDArpt0"'" 4defau lt:4 - never usG./mp!8.= 9/$bQX` p ! -$J'-h !s=1@B~VJonpo@"e%p *o`}:raw2sPG'%%w.UB$ua q~sqRel&A'sNmxit!y=U: S1 C .pNumb1 B3022 'a0a  skipѶRes 3_3w;" &ѢDespB /*S"S1cn✖ qڙBCT&;ZDoCmd㲙 ("!A0c e$].TabControl0.Pages("s").0hpFocu2tTC +"4?Ws.m(0n4FG  tWS9aF_Vs RP?C?!@v@Srvcl 0jSubVa1sqw#1` 3k @ If lstAllVitals.ItemsSelected.Count Thenworking_code = Forms!frmTPatienHts! 'f fx( K"Blood Pres@sure")y '1 is bmi, 0 p DoCmd.Open (" -criteriXa") 9^[].TabControl0.Pages("BP").SetFocus'txtTyp,eCH" Signs"0'WÍ(Else /ML}YMp?NNL c.(0̆ rawMe lumn(1,?A mDaXta(3R.CE1~BMIDisplayT!& " numicUEnd c  MMsgBox "Noth sO$ ASub Pr@ivate  @lblAddBe_@Click("'= 'New Line ca@n be o@of three t p w'A: O@ther vb (likhalready Asion_ord=ct c , d'= s + 1- BE% d, 8but@firsta*sC-maxusedA@<C:C [&# C B$ m? 3b Di trSQL As StrA1var^VantLʁ &T '# `'SecExistsDAO.RDec:set'geinfo for eitX> ift@Ist O/ to cK@[nTD6&Temp + Integerk?eA / str>_te xt'holds what'0s in@2'bo`a@?on report ( !9[ jA e.g., :".[ha1c]`)<=10BdNb Qbam'ponse C0z = CurrPDPE12 9bb("tbtlR s!O n Err@ GoTo erraN="'E '-caZfro m addsH Y Each 1In˛CB4/qӟg) ϛ qd rmrU B'KBte8@5aK5Pb8IQ3ǒHeZ(finp*z0Sla+bk4=-insi`7XB K= "SELECT ".z, Max() AStF_a$& "@Ozfj,mLhk!5" FROM GROUP BYM!rskoIp, , t5 HAVING ((M )=3p)AND0L)  '"P[1]"));Aa?B(c N!1'(&4+prs0H s_ ass _dneededcs&$'$#co o o C~c!r|CzTzo ܕ= i!`ok5S%s 13  <Ð_!`ofK Ro@B0f PSelect Case strItemD"Blood pressure"hzcriteria = "Iif(IsNum c([QRY_Latest_BP_>Systolic/Dia2].[bp_s]) AN`D " _^b&)Ysn-Ude]),True) as n" & 3Format(display_order, "0#")"]qody Mass IndexIBMI.H), DmiDWeight0@wA!AdgEnd CrstTemp.AddN$  If lstRelated.sSelMed.Count Then3J DoCmd.SetWarnbs False For EachIn Me!8 4=Data(Column(1,N!2#7Av= "DE@LETE tportsTemp.t_orde4r,sC|E" "_& " display_text FROM WHERE H(((V() 1 (& [D^]")p ANDN 5)Db (<x"'"@'AH%K$["p));"OPORtun7(@GN+$S /gTrugEnd IfceRequery Exit Sub err_resolve: cw Cas0e Erd3022 'this @an entry of a d/+DD label already in form#Y'MsgBox "here('Resume ?a cD.N`umberAED& ADescrip#"CA$Priv!xIrA9`SlC%@N`&+x c+ mQ= 5 'h"= 0Ia/A4ߤ*,6Xߤ & "oR\oR`/M51~Ri\/M MO/MB/MQL/Mt?r /M/M/Mx.M NAllDNNNN N NN NQ NNx N"N NbNNDx1?g?t/O sR@KPO"PChosen P Puc`(7  eP:_P%rONKo ` OPe.OP&کT! pOPOP!%@ DP UTA!P ?UU_UUU'Qet the rowsource to origiXnal VRVo,wScSCT DISTINtlkpCrosswalk.workP_codetFirst(1raw mS Of5  upwINNER JOIN L O.r_fieldǻ GROUP BY Shealth_stat ustype_code @" _ & "HAVING (((tlkpSetup.health_status) In (SELECT tblReportsTemp.display_text FROM X WHEREh Dtyorder)=0) AND E /sec tion_2))5Crossw0alk.X)='Rx'))"z}Me!lstAllDx.RowSource = "tDISTINy)work(ing,SFirstrawOS Of  INNER JOIN  " 2Orelated_field] .TyɄ)|y A|#y|D| GROUpP BYTF LService:s kpǥjC$e+]L#P ,,o \OONKnrOsGKLabK46f8XKkoKK@8_ "KKCz_`KKgK`GJ  CMChosenAequery#c0oR0ogOS+pecialMeasurqSY Exit Sub! err_ olve: Sel} Case Err 3022@'this an entry of a T:+d label already in formю'MsgBox `"hered_qResume N@lse .NumberQ1 PK& !Desc8ripa#nd Priv@{ laqmove`_Click()Dim varItem As VariantstrSQLqStromtT`IntegetintS#If .R a s ed.Count T8henS11DoCmd.pbWarn0 s Fa*AFor Each9S*r"ed[AЏoq Data(!5r(= 8'= ~0`DTE j#hN[*hHRI& "  v|߹#r@"`/[D]!0KoLо )`1'QA "));9E3&Run0~(\Q=% *Tru(?EPrivN B lmoveService_@Click(mDim k As VariantxStrlJĪIntegeDZ`{` !{If g>ds.Hs#ed.Count Then#3%oKFa +Fo@r Each&In M+  "`sWData(*ce$= 7o Ah@ 㟠& "H!@ 9  cM@3UfSS`s Yz;QlQ@DP^1`1e`/Q!QpecialMeasubQ !K4LQLQrmu?OQQQK /R/Rw'/R /R-RmYHRdSmS 'S9/S/P S__p._+S_RߧQKS}S_fSY_ "Sg'S7Bey o+S_P}&St _SS!?!Sx kR. SS  SSVitalJS_S6_S Bo#jQ_S_SYS _'RR/ed1q=QwTQ3 PPPPo & "tblReportsTemp.display_text FROM " _ WHERE ((( type_order) =z& [intT*]~) AND/TO N )O"'b"IstrO "0));"DoCmd.RunSQL (!) NvarItem SetWarnings TrueEnd IfMe!lstRelatedVitals.R@equery All Exit Sub err_resolve: Select Case Err&3022'this an entry of a sion+T label already @in for<'MsgBox "hereWRes0ume JHElsB(.NumbejBDescript#C<O6>PrivPB TKDemo_DblClick(Canc0As IntegCDim p VariantAFor Eac"hIn ms!frmCountPatiLso.sC'edIfStr( Data($), "(new)"@) Then sll lblAddSpecial&K$[99AFWCa LFKARx)1 Dx_f ͱ 1 x1 1 Labs]  =@ 0, True, Fa;)*E4 'q6Visits: if dase nt isy of v-365 it ret@urns t t any pati who hadC in pUod or withAdaysstaruP(_'@Ag, endJdy $n FB7C]\S* <>= AUg@[ >=9+gdaFever movesg1/@900 so Dntdhat_ppenr cbejacked΃.xt.a . ODEBLLNDWWJYYTDSGLDXTKZNJWWDJ:WFKZPEN_HMBITDEEHCLAAGUJTADUK: 33GMPYBOGIZZTFCECUVJKUIIPFDGIF:N5HUHSPZCWUKMAVDZEUVUK_PPCXRCE:yxME (S<S<S<<N0{04D33B37-2498-11D7-A7B3-00A0C9C6E171}@ @ i'K$[(Syb``` :i0%  "  >(hp  "  <x]`x]6There is no data for the date range you entered(aphs).' 0'No Data for Date Range'   A@*'oHdyyyy B"j"v$<$< B"j)to.Attribute VB_Name = "Report_rptWSC_APHS_Core_Measures"  Basn0{04D33B37-2498-11D7-A7B3-00A0C9C6E171} |Global|SpacAIFalse dCreatablTru PredeclaIdā"Expose_Templat@eDerivCustomizD $ Option CompD DXP,0 Sub No(Cancel As Integer) Dim strMsg Sng,xTit   intSty? $&There is no d@) for thee range you e@#@T(aphXs).n F= vbOKOnly&@No?8e RD 6Box8,8 F= tEndPCTSOpenSS  Forms!frm`s!txQLart)=-eAdd("d",h 1,y-[]![g&])o)t{_gxMElP P,X %0 <p F , >( ,h :  < (08@ (Hp  68"p >     (  0 @  H X ` h p 8x       8 :8 x      : : .P  6 : 4 :8 x       B . B( :p 8  * ,  ,P   , 4   *0 `,  B  <  * ,8 ,h   :  > @ H Xh   $ From Access 97 Developer's Handbook`% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved.XP^^0^H^`^x^^^^^^^ ^8^P^h^^^^^p`]$]$ ]$8]$P]$h]$]$]$]$]$]$ ]$@]$(]$@]$X]$p]$]$]$   !'-6 This is the entry point you'll use to call the common1 file open/save dialog. The parameters are listed below)K$[, and all are optional.$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. In:@ Flags: one or more of the adhOFN_* constants, OR'd together.4 InitialDir: the directory in which to first look4 Filter: a set of file filters, set up by calling) AddFilterItem. See examples.8 FilterIndex: 1-based integer indicating which filter5 set to use, by default (1 if unspecified)? DefaultExt: Extension to use if the user doesn't enter one.& Only useful on file saves.7 FileName: Default value for the file name text box.& DialogTitle: Title for the dialog.3 OpenFile: Boolean(True=Open File/False=Save As) Out:6 Return Value: Either Null or the selected filename]]0]H]`! Give the dialog a caption title. $G'j $G'j $G'j $G'j $G'j $G'j $G'j $G'j0 Allocate string space for the returned strings. $\$'$\'7 Set up the data structure before you call the function  9 !9 9 9 9 9 9 9 9 9 9 L91 Didn't think most people would want to deal with these options.9$\999q1 This will pass the desired data structure to the3 Windows API, which will in turn it uses to display the Open/Save As Dialog.  $'dH $'k04 The function call filled in the strFileTitle member4 of the structure. You'll have to write special code' to retrieve that if you're interested. 0 You might care to check the Flags member of the4 structure to get information about the chosen file.. In this example, if you bothered to pass in a4 value for Flags, we'll fill it in with the outgoing Flags value. $G !'j !$'d0'k ix' Tack a new chunk onto the file filter.< That is, take the old value, stick onto it the description,3 (like "Databases"), a null character, the skeleton1 (like "*.mdb;*.mda") and a final null character.$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. In:& strFilter: existing file filter- strDescription: new filter description varItem: new filter Out:$ Return value: new file filter $G*.*'j     'iH5 Trims the Null from a string returned by an API call$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. In:4 strItem: string that contains null terminator Out:8 Return value: same string without null terminator]x  '    $'dx 'khi`XAttribute VB_Name = "basCommonFi@le" ' From Access 97 Developer's HandbookLby Litwin, Getz 4 Gilbert. (@Sybex)NCopyright 1997. All Rs Reserved.' Option pare PDataeExplicit Type tagOPENFILENAME  lStructSize A@s LonghWndOwner Instancэstrt*i$ CustomnMaxCN IndexD8C7*K$['PeTitl InitialDiBCM7Flags,OffsetAIntegerD\Extensvc!Def lOAH.`lpfnH@TemplateEEnd AADeclFuncšadh_apbiOpe+Lib "comdlg32.dll" _@4Alias "L A" (Xofn$ )Boolean Savew#I C6lmDlgb3dedErrory (0 Pu.b@p@tf 'OFN_READONDLY&H1sOVERWRITE@PROMPTB2SHIDEJ 4NOCHANGE(DIR 8SH@OWHELPb10u VALIDA TEALLOWMULTISE(LEC0EXTENSIONDIFF`N4PATHMUSTEXISC8UAK10uC) /VSHAW TNO>RET8URNTE|ST!NETWORKBUhTTO 2LONGAS" TEXPL`DFY P6CELINK# bT k  ݡnoy("Cal ByRef Variantt,V@ 9fil_nBHPVi0[aultt[JYhogVgZUt2Jq^a' This the entry point you' 0uso ca!^k' 0De Pn/sY d .0e Љ s dlistedubw,ˁoralP O"' d?$In: ': on!r moof" !adh_* cots, OR'd toge]r%q):d@irecto`in which`prst l2Q'A(: a Q/@A,Bup?AV1Add-tem. $Se@ xa0esY D: 1-d P"Apdicat #q (to 0%,q defa2 (1 if unspecified! W4: rx2Sar doesn|'tA,p Onlyfulo++8:P value f e n- te@xt boxDG:: :1e:: (True =a @e/Faplse=1Pe !>spa-r2( &5 e#= Left(B & "(256, 0), 4.tS%=7 S@NQ9d PuXbe ealkfͳWp2/a.lVStructSize = Len(ofn) .hWndOwnerxApplication\Access*^strFilt^f8N4Ind|exAKenamenMa>x9$ TitlJK(Dialog&Flagsk (DefExt ault! Init*DiCur ' Didn't think most peopmwould wano dea@l withthese ops. .hInstancAH0@,CustomCh-ing(255, 0IEAc F HlpfnHookEnd W( ' This,ll pass8e1sired data @#ure toA Windows API, whichCin turn it useEisplayED Open/Save As@WtFCIf42e@'enCfR eso3adh_apiGetA NElsgA@HIfGe funco c6aIl@G:heGAmember,' ofSFP@. You'@hC>Swrit pecO codD'a-retrie $that ifL y0in{e0sted)&%Th &'! might`c8check_Cfcg-'+?ge`nform" aboube chosen "e$ ' IAaKexam@e,D bo@K BN)Bavalu`.or Ke&.JAl"`go@cJNot IsMissi)L J. MCommon<aMV= TrimNullN.D,dTs, tak` co 0z,@Ii` Adg,c ' (liI@"Dba`"8), @,arac nkeletoD&*.mdb;a") a yan@nFrom 97 Dnloper's Hb@Eby Li@twin, z Gil~t. @(Sybexd@'@ Copyrbo1@997. A@R s erveAx3'In:4v: exist+1}';:`1]5! G OutRe]R66$66"*.*>" 2- &-10-& vbA4CharXc /6] =ByV@#u26o2pNA`nP) f$?bs@\pbp#anr2dV'e'' 'd ''l ' @['1.:% hc 0 r'LeftD- 1^#+ &]Q'S ˁ  +K$[xME P<<|<< <<<<JXF hd hf hhhjhlhnp l p'% r% t(New % vHP$% xhus% z`% ~% % HP% % (%` 6` % D% % % % %``` `L`8`````` `N` ` `` ``` @ e p(% rH % th#% vL% x % z% ~%  % H(X(% H% h%`( 6( % D% % X)%  % @%`)`)` )`L*`8*``@*``````N```````` x@ O *8h "      >8 Lx   h F      (0 8@HPX` h  T (  0  `@ 0 ` .0z`  (,K$[     0  H` (x  ( 0   <0 p  <   N 8 &P *x  : , : `X 6 z p 0z   @ H X 0h   (  ( 08 h <  <  0 N8 &*  : F8 :z@ X(p 8 X p   4   (( P (p 0  @   @@   . Z( *@.p : 0 : \P 8zh 0   8X ` p 4  (  (8 0`  @  @  HX N` *.  :( Dh :p    &  ! (! 8! 4H!  !! (! ! (" 0(" X" 6p" " 6"  ## .# ZH## *#&#  :$ BX$ :$$`% x% % & & && & ' 0'  @'X' (p' ' (' 0' ( 4(( `( 4(  (( .( Z)`) *x)$) ))))))**  * `(* * `* + & +H+ , 2(, `,>x,,, ,F, H8- -- --- - <-(.88. *00`0 01 H1X1h12 22(VP2 3 3334 "4 .505 5 5566 (66 7777`8 .h88 09H9X9 h9 0:H: X: ; *(;-K$[X; ;<<(<< 4< @ =`= => >0>> F>8?H? ? @(@H@F`@@@ @ "@ A A,8AhALpA A  A VA 8BHBPB &XB B ,BB B ,B C &8C `C C "C CC &C  D"(D b0D .D pD h8E hE @F dHF xF *(G xXG ^G r0H 4H rH RXI <I PI |@J (J "J fK nxK vK `L lhL <L >M XM |M X`N 6N tN @hO rO  P b8P bP TQ (`Q TQ ^Q `@R bR BS .PS <S S lPT xT 8U 2PUUUUUUU UUU hUFHV VV VVVV VVVVV VV VWWWW W(W @W`W hWWWTWWWWX  X X ` X 0X `X .Yz@YY Y *Y [ @[ X[x[ [ [ 0[  [[ (\ (\ (H\ 0p\ \ <\ \ <]  X]h] Np]] &]*^ :0^ Fp^ :^z^x_ _(_ pa a aa a a 4a  (bHb (`b b (b 0b c @c Xc @xc  cc .c Zd`d *xd.d :d De :`ee f 8f Pf pg g &gg g g 4g  0hPh (hh h (h 0h i 6 i Xi 6xi  ii .i ZiXj *pj&j  :j Bk :Pkkl .K$[ (l @l Hm hm mm m m 0m  mn ( n Hn (hn 0n n 4n o 40o  hoxo .o Zop *(p$Xp pppppppp  p `p 8q `Xq q &qq Br jsxs D tht xu`v xv 00w 2`w w>wwx x (x Hxhx Hy Xyhy yyy y <yz8z *|8| | |}}} 2}} ~ ~~~ ( ` .h 0HXh0 *8h (8 8 D0x h    p F؇    ؏F8P X "x ,Ȑv x   (0 8@ P ,h & ؒ  " 0 $P &x `  ` "x  Dؔ R 4x R4  H X.h    Ж , (( P p 2&   (H` *h 0   PК 0 Л  " *(Xp  ` X `P JȝZ x   ȞО     ^x (   ȟ . (@ Hh p     Р H8 Xhxȡ ! !8 X! `      Т آ   4/K$[ 8 4X  ȣ  & * P Xhpx  " ؤ xp] ] * 6/2007, dlk@$Public blnBaseline_Report As Boolean] 0( 3/2009 dlk] H( 3/2009 dlk] `( 3/2009 dlk] xfor list wizardtype order list health = 5 rx = 6tb services = 78 lab = 8 returns labs in mm/dd/yy (reslut) formatjE numeric lab= 9 numeric labs (was special measures in cpount version)"]]]]0]P!hold]p]]]bDim rstTempQSM As DAO.Recordset 'holds the list of special measures update query names selected]&7hold variable names to create qSummary2 uses qSummary1a]]0]H]h]]]]]] ]8]P]h]]]]]]Dim strField As String] for Summary1](]@]XEstores first part of sql from statement - adds to From to get section]p]]] .6Y=========================================================================================)Step 1a - dynamically create qActiveLabs3Y=========================================================================================(create labs recordset from tblReportTemp(SELECT DISTINCT tblReportsTemp.raw_code <FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=8));'L L 6%V.p core string  ;TRANSFORM Last(Format([qActiveLabsLatest2].[service_date], 'mm/dd/yy'G)& ' ( ' & qActiveLabsLatest2.result_any &' )') AS LastOfservice_date GSELECT qActiveLabsLatest2.clinic_code, qActiveLabsLatest2.chart_number AFROM qActiveLabsLatest2 GROUP BY qActiveLabsLatest2.clinic_code, FqActiveLabsLatest2.chart_number PIVOT qActiveLabsLatest2.raw_code In ('L p!X p!Zif no labs selectedd pB@ pB@\*MsgBox rstLabsIn_tblReportTemp.RecordCountlabs into an array p! p%'!MsgBox UBound(VarSelected, 2) + 1   !to create the temp crosswalk qry: L' $','L for the select: ,qActiveLabsLatest3.[ $] ' for the group by sql: ,qActiveLabsLatest3.[ $] ' kGcreate "none" column because the program hangs without a column heading L'none');'Lsaves qdf as qActiveLabsLatest3qActiveLabsLatest3 L 6%.3===================================================%dynamically create qActiveLabsLatest43===================================================Ythis code allow calculating the column which contains the numeric value of the lab result0create numeric labs recordset from tblReportTemp(SELECT DISTINCT tblReportsTemp.raw_code <FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=9));'L L 6%V.p  :TRANSFORM Last(qActiveLabsLatest1.result) AS LastOfresult GSELECT qActiveLabsLatest1.clinic_code, qActiveLabsLatest1.chart_number FROM qActiveLabsLatest1 1WHERE (((qActiveLabsLatest1.status_flag) = 'c')) IGROUP BY qActiveLabsLatest1.clinic_code, qActiveLabsLatest1.chart_number &PIVOT qActiveLabsLatest1.raw_code In ('L p!X p!Zif no labs selectedd pB@ pB@\*Ms0K$[gBox rstLabsIn_tblReportTemp.RecordCountlabs into an array p! p%'!MsgBox UBound(VarSelected, 2) + 1   !to create the temp crosswalk qry: L' $','L for the select: ,qActiveLabsLatest4.[ $] ' for the group by sql: ,qActiveLabsLatest4.[ $] ' kGcreate "none" column because the program hangs without a column heading L'none');'Lsaves qdf as qActiveLabsLatest4qActiveLabsLatest4 L 6%.4====================================================@Step 1b - dynamically create qActiveServices3 from tblReportTemp4====================================================(SELECT DISTINCT tblReportsTemp.raw_code <FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=7));'L L 6%V.r core string  ?TRANSFORM Last(Format([qActiveServicesLatest2].[service_date], 'mm/dd/yy'G)& ' ( ' & qActiveServicesLatest2.result &' )') AS LastOfservice_date OSELECT qActiveServicesLatest2.clinic_code, qActiveServicesLatest2.chart_number IFROM qActiveServicesLatest2 GROUP BY qActiveServicesLatest2.clinic_code, NqActiveServicesLatest2.chart_number PIVOT qActiveServicesLatest2.raw_code In ('LFootrisk ass","Flu vac"); r!X r!Zif no services selecteddh rB@ rB@\.MsgBox rstSErvicesIn_tblReportTemp.RecordCountservices into an array r! r%'!MsgBox UBound(VarSelected, 2) + 1   !to create the temp crosswalk qry: L' $','L for the select: ,qActiveServicesLatest3.[ $] ' for the group by sql: ,qActiveServicesLatest3.[ $] ' kh (finish creating the temp crosswalk tableT(needed to create "none" column because the program hung without the col headings??? L'none');'L#saves qdf as qActiveServicesLatest3qActiveServicesLatest3 L 6%.3===================================================)dynamically create qActiveServicesLatest43===================================================Uthis code allow calculating the column which contains the value of the service result2create service result recordset from tblReportTemp(SELECT DISTINCT tblReportsTemp.raw_code <FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=7));'L L 6%V.r  >TRANSFORM Last(qActiveServicesLatest2.result) AS LastOfresult OSELECT qActiveServicesLatest2.clinic_code, qActiveServicesLatest2.chart_number FROM qActiveServicesLatest2 5WHERE (((qActiveServicesLatest2.status_flag) = 'c')) QGROUP BY qActiveServicesLatest2.clinic_code, qActiveServicesLatest2.chart_number *PIVOT qActiveServicesLatest2.raw_code In ('L r!X r!Zif no labs selectedd rB@ rB@\.MsgBox rstServicesIn_tblReportTemp.RecordCountservices into an array r! r%'!MsgBox UBound(VarSelected, 2) + 1   !to create the temp crosswalk qry: L' $','L for the select: ,qActiveServicesLatest4.[ $] ' for the group by sql: ,qActiveServicesLatest4.[ $] ' kGcreate "none" column because the program hangs without a column heading L'none');'L#saves qdf as qActiveServicesLatest4qActiveSer1K$[vicesLatest4 L 6%.4====================================================>Step 1c - dynamically create qActiveHealth2 from tblReportTemp4====================================================)SELECT Distinct tblReportsTemp.raw_code ?FROM tblReportsTemp WHERE (((tblReportsTemp.type_order) = 5 ));'L L 6%V.t core string ATRANSFORM Last([qActiveHealth].[start_date]) AS LastOfstart_date =SELECT qActiveHealth.clinic_code, qActiveHealth.chart_number 7FROM qActiveHealth GROUP BY qActiveHealth.clinic_code, <qActiveHealth.chart_number PIVOT qActiveHealth.raw_code In ('LFootrisk ass","Flu vac"); t!X t!Z if no Health conditions selectedd tB@ tB@\.MsgBox rstSErvicesIn_tblReportTemp.RecordCountservices into an array t! t%'!MsgBox UBound(VarSelected, 2) + 1   !to create the temp crosswalk qry: L' $','L for the select: ,qActiveHealth.[ $] ' for the group by sql: ,qActiveHealth.[ $] ' k(finish creating the temp crosswalk tableT(needed to create "none" column because the program hung without the col headings??? L'none');'L#saves qdf as qActiveServicesLatest3qActiveHealth1 L 6%.4====================================================;Step 1d - dynamically create qActiveMed1 from tblReportTemp4====================================================)SELECT Distinct tblReportsTemp.raw_code ?FROM tblReportsTemp WHERE (((tblReportsTemp.type_order) = 6 ));'L L 6%V.v core string >TRANSFORM Last([qActiveMed].[LastOfstart_date]) AS start_date 7SELECT qActiveMed.clinic_code, qActiveMed.chart_number 1FROM qActiveMed GROUP BY qActiveMed.clinic_code, 6qActiveMed.chart_number PIVOT qActiveMed.raw_code In ('LFootrisk ass","Flu vac"); v!X v!Zif no Rxs selectedd vB@ vB@\)MsgBox rstMedIn_tblReportTemp.RecordCountRxs into an array v! v%'!MsgBox UBound(VarSelected, 2) + 1   !to create the temp crosswalk qry: L' $','L for the select:  ,qActiveMed.[ $] ' for the group by sql:  ,qActiveMed.[ $] ' k0(finish creating the temp crosswalk tableT(needed to create "none" column because the program hung without the col headings??? L'none');'L#saves qdf as qActiveServicesLatest3 qActiveMed1 L 6%......t.v.p.r MsgBox "step1"Y=========================================================================================Step 2 creating Summary 1Y========================================================================================= ------------- version1 before special measuresYSELECT tblReportsTemp.type_order, tblReportsTemp.display_order, tblReportsTemp.criteria, QtblReportsTemp.raw_code FROM tblReportsTemp WHERE (Len(tblReportsTemp.criteria));'L L 6%V.H,gathering the criterias stored in tblReports H!X H!ZNothing selected 2  No Selections made$*'N N G|jk(added distinct#Select Distinct tblDemo.clinic_code'6total my grand adder H!7maybe no record count if only special measures selected H!Xa ,  H2K$["' HB@`8k0 ===========5Number of '(' parenthesis = number of 'left joins' -1 FROM ((' tblDemo JINNER JOIN qActiveDemo ON (tblDemo.clinic_code = qActiveDemo.clinic_code) 7AND (tblDemo.chart_number = qActiveDemo.chart_number)) MLEFT JOIN qActiveHealth ON (tblDemo.clinic_code = qActiveHealth.clinic_code) 9AND (tblDemo.chart_number = qActiveHealth.chart_number)) YLEFT JOIN QRY_LatestVisitDate ON (tblDemo.clinic_code = QRY_LatestVisitDate.clinic_code) ?AND (tblDemo.chart_number = QRY_LatestVisitDate.chart_number)) '#==========add BMI section========== &SELECT tblReportsTemp.section_heading OFROM tblReportsTemp WHERE ((tblReportsTemp.section_heading)='Body Mass Index') -or (tblReportsTemp.section_heading='Weight'); 6%V.~ =========== ~! (' MLEFT JOIN QRY_LatestBMI ON (tblDemo.clinic_code = QRY_LatestBMI.clinic_code) 9AND (tblDemo.chart_number = QRY_LatestBMI.chart_number)) 'k +===========add blood pressure==============  &SELECT tblReportsTemp.section_heading OFROM tblReportsTemp WHERE (((tblReportsTemp.section_heading)='Blood Pressure') 4 Or (tblReportsTemp.section_heading ='BP systolic') 5 Or (tblReportsTemp.section_heading ='BP diastolic') 6 Or (tblReportsTemp.section_heading ='BP last date')); 6%V.~ =========== ~! (' }LEFT JOIN [QRY_Latest_BP_>Systolic/Diastolic2] ON (tblDemo.chart_number = [QRY_Latest_BP_>Systolic/Diastolic2].chart_number) NAND (tblDemo.clinic_code = [QRY_Latest_BP_>Systolic/Diastolic2].clinic_code)) 'k( +++++++++++++++2-11-06--dlk'==========add next visit date==========&SELECT tblReportsTemp.section_heading KFROM tblReportsTemp WHERE tblReportsTemp.section_heading='Next Visit Date'; 6%V.~ =========== ~! (' ULEFT JOIN QRY_NextVisitDate ON (tblDemo.clinic_code = QRY_NextVisitDate.clinic_code) =AND (tblDemo.chart_number = QRY_NextVisitDate.chart_number)) 'k@ "===========add rx table===========3SELECT Count(tblReportsTemp.type_order) AS CountRx <FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=6)); 6%V.~ =========== ~" (' ILEFT JOIN qActiveMed1 ON (tblDemo.clinic_code = qActiveMed1.clinic_code) 7AND (tblDemo.chart_number = qActiveMed1.chart_number)) 'k(===========add Services table===========9SELECT Count(tblReportsTemp.type_order) AS CountServices <FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=7)); 6%V.~ =========== ~" ('  _LEFT JOIN qActiveServicesLatest3 ON (tblDemo.clinic_code = qActiveServicesLatest3.clinic_code) BAND (tblDemo.chart_number = qActiveServicesLatest3.chart_number)) ' services results ('  _LEFT JOIN qActiveServicesLatest4 ON (tblDemo.clinic_code = qActiveServicesLatest4.clinic_code) BAND (tblDemo.chart_number = qActiveServicesLatest4.chart_number)) 'k$===========add Labs table===========5SELECT Count(tblReportsTemp.type_order) AS CountLabs <FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=8)); 6%V.~ =========== ~" (' WLEFT JOIN qActiveLabsLatest3 ON (tblDemo.clinic_code = qActiveLabsLatest3.clinic_code) >AND (tblDemo.chart_number = qActiveLabsLatest3.chart_number)) 'k-===========Add Special Labs tables===========9finds all special 3K$[labs in rptTemp and then joins together5SELECT Count(tblReportsTemp.type_order) AS CountLabs <FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=9)); 6%V.~ =========== ~" (' WLEFT JOIN qActiveLabsLatest4 ON (tblDemo.clinic_code = qActiveLabsLatest4.clinic_code) >AND (tblDemo.chart_number = qActiveLabsLatest4.chart_number)) 'k?=================add demo (has closing single ")"============== (' P LEFT JOIN qActiveHealth1 ON (tblDemo.clinic_code = qActiveHealth1.clinic_code) 9AND (tblDemo.chart_number = qActiveHealth1.chart_number) '  'changed to a stored query qChosenDx 6%V. !X !ZNo conditions selected 0 2 Dx Missing Criteria$*'N N G|jk8?======================filter for health conditions B@\ "WHERE (True = true'( placeholder"d>!WHERE ((qActiveHealth!raw_code = ' "')' B@` !Xa  Or (qActiveHealth!raw_code = ' "')' B@`=k=strSQLWhere = strSQLWhere & ")" ------------%process core elements CREATE qSummary )' ------------%process core elements CREATE qSummary   'For Each prm In qdf1.Parametersprm.value = Eval(prm.Name)Next prm qSummary1  6%.MsgBox "summary 1 done" qSummary1 VB@db.QueryDefs("qSummary1").Closeo;[-------------------------------------------------------------------------------------------' about strategy and naming conventions:jwe have the look/criterias of the new report all stored in tblReports and a working copy in tblReportsTempbBut no results. the results come from creating the dynamically created queries - how to match thearesults coming after passing a value thru three or more created queries with the labels to print?9Other issue is dealing with report only for a single pcp.^We keep careful control of the names using "Identifier": raw_code & type_order & display_orderrthe raw_code concatenated with the type order (dx=5,vital=2,visit=3, rx=6, service=7, lab= 8,. special measures=9)$concatenated with the display order.qnote the display order is formated to be always "0#" so a leading zero inserted (if needed) to make 2 char stringXPlus ouput from qSummary1 always has created default variables: "Patient_ID", and "pcp"lthese two fields passed to qSummary2 mean we have a grand "total" and a "pcp" field to use in the report for.breaking a page at pcp or calculating percentslOrder of selection by user determines the order printed. For example, first item selected in each section:K "xvisit201", "bmi301","bp301","HTN1501","ASA601", "Flu vac701", "ha1c801"5 these are calculated in qSummary2 and passed out as:J "201xvisit" "301bmi" "301bp" "501HTN", "601HTN", "701Flu vac", "801ha1c"u Before printing the labels in tblReportTemp and the data in qSummary->rstData are brought together in tblReportsData! using the "Identifier" variablesThe concatenated id because`the raw_codes come from tlkpCrosswalk, but they are not unique across CDEMS sections only withinh- they can be repeated in different sections (eg. a "hrt" raw_code, typefield="Dx" can co-exist in CDEMSo with a raw_code of "hrt", typefield="Rx") The same code used in different sections for different working codese--------------------------------------------------------------------------------------------------4K$[---6the main component of the report wizard has five steps81. Dynamically creates qActiveLabs3 and qActiveServices3Note qActiveLabs3 returns just the result BUT qActiveServices3 returns a combined #datelastdone# contanenated to (result) fieldvthis is because services often have no result and identify if service took place the test is agains t len of the fieldRFor services the returned field need to massaged to get result from combined field02. Creates a summary1 query with three sections:n SELECT qActiveDemo.chart_number, QRY_LatestVisitDate.CountOfVisits, QRY_LatestBMI.bmi, QRY_LatestBP.bp,9 qActiveServicesLatest3.[DMEduc], qActiveLabs3.[24up]l in creating the Select section, "Identifier" is used to bring in the stored criterias in tblReportsTemp FROM .....[ this is permanent code with all possible always selected, but could dynamically change[ depending on if a table/query was needed - should it. YES this version does just that.M WHERE (qActiveHealth.raw_code = 'DM-1' or qActiveHealth.raw_code = 'DM-2')" AND (qActiveDemo.sex like 'F*')N get the Chosen Dxs selected (they have type_order =0) from tblReportsTempW get the pcp/all and active_pts/baseline criteria from public variables supplied byZ entries in Forms![frmCountpatients-criteria]!tabControl0!Page("options") option boxes\3. Creates a Summary2 query ->rstSummary2 recordset to return results of each requested item;matches with tblReportsTemps design data using "Identifier"'4. Moves the data to tblReportsData and65. Adds into tblReportsData items for special measures special measures are hard coded, named qsm???.(eg.qsmSmkeCessOfferedInPeriod.) Each special measure calculated by a set of qryiese which reference each other. The last qry is an update qry which adds the measure to tblReportData.r Since rptTemp is bound to the tblReportsData table changes in data table change the report to include new items6. opens rptTemp+===========================================]]0]P]p]hold]]]]bDim rstTempQSM As DAO.Recordset 'holds the list of special measures update query names selected]0"7hold variable names to create qSummary2 uses qSummary1a]P]p]]]]]](]H]`]x]]]]]]] ]8]P dlk 6/2007Dim strField As String]h for Summary1]]]Estores first part of sql from statement - adds to From to get section]]]] .6T'Y=========================================================================================)Step 1a - dynamically create qActiveLabs3Y=========================================================================================(create labs recordset from tblReportTemp(SELECT DISTINCT tblReportsTemp.raw_code <FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=8));'L L 6%V.p core string /TRANSFORM Last(qActiveLabsLatest2.result_any ) GSELECT qActiveLabsLatest2.clinic_code, qActiveLabsLatest2.chart_number AFROM qActiveLabsLatest2 GROUP BY qActiveLabsLatest2.clinic_code, FqActiveLabsLatest2.chart_number PIVOT qActiveLabsLatest2.raw_code In ('LFootrisk ass","Flu vac"); p!X p!Zif no labs selectedd$ pB@ pB@\*MsgBox rstLabsIn_tblReportTemp.RecordCountlabs into an array p! p%'!MsgBox UBound(VarSelected, 2) + 1   !to create the temp crosswa5K$[lk qry: L' $','L for the select: ,qActiveLabsLatest3.[ $] ' for the group by sql: ,qActiveLabsLatest3.[ $] ' k"Gcreate "none" column because the program hangs without a column heading L'none');'Lsaves qdf as qActiveLabsLatest3qActiveLabsLatest3 L 6%.4====================================================@Step 1b - dynamically create qActiveServices3 from tblReportTemp4====================================================(SELECT DISTINCT tblReportsTemp.raw_code <FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=7));'L L 6%V.r core string  ?TRANSFORM Last(Format([qActiveServicesLatest2].[service_date], 'mm/dd/yy'G)& ' ( ' & qActiveServicesLatest2.result &' )') AS LastOfservice_date OSELECT qActiveServicesLatest2.clinic_code, qActiveServicesLatest2.chart_number IFROM qActiveServicesLatest2 GROUP BY qActiveServicesLatest2.clinic_code, NqActiveServicesLatest2.chart_number PIVOT qActiveServicesLatest2.raw_code In ('LFootrisk ass","Flu vac"); r!X r!Zif no services selectedd0 rB@ rB@\.MsgBox rstSErvicesIn_tblReportTemp.RecordCountservices into an array r! r%'!MsgBox UBound(VarSelected, 2) + 1   !to create the temp crosswalk qry: L' $','L for the select: ,qActiveServicesLatest3.[ $] ' for the group by sql: ,qActiveServicesLatest3.[ $] ' k0(finish creating the temp crosswalk tableT(needed to create "none" column because the program hung without the col headings??? L'none');'L#saves qdf as qActiveServicesLatest3qActiveServicesLatest3 L 6%.4====================================================>Step 1c - dynamically create qActiveHealth2 from tblReportTemp4====================================================)SELECT Distinct tblReportsTemp.raw_code ?FROM tblReportsTemp WHERE (((tblReportsTemp.type_order) = 5 ));'L L 6%V.t core string ATRANSFORM Last([qActiveHealth].[start_date]) AS LastOfstart_date =SELECT qActiveHealth.clinic_code, qActiveHealth.chart_number 7FROM qActiveHealth GROUP BY qActiveHealth.clinic_code, <qActiveHealth.chart_number PIVOT qActiveHealth.raw_code In ('LFootrisk ass","Flu vac"); t!X t!Z if no Health conditions selectedd( tB@ tB@\.MsgBox rstSErvicesIn_tblReportTemp.RecordCountservices into an array t! t%'!MsgBox UBound(VarSelected, 2) + 1   !to create the temp crosswalk qry: L' $','L for the select: ,qActiveHealth.[ $] ' for the group by sql: ,qActiveHealth.[ $] ' k8(finish creating the temp crosswalk tableT(needed to create "none" column because the program hung without the col headings??? L'none');'L#saves qdf as qActiveServicesLatest3qActiveHealth1 L 6%.4====================================================;Step 1d - dynamically create qActiveMed1 from tblReportTemp4====================================================)SELECT Distinct tblReportsTemp.raw_code ?FROM tblReportsTemp WHERE (((tblReportsTemp.type_order6K$[) = 6 ));'L L 6%V.v core string >TRANSFORM Last([qActiveMed].[LastOfstart_date]) AS start_date 7SELECT qActiveMed.clinic_code, qActiveMed.chart_number 1FROM qActiveMed GROUP BY qActiveMed.clinic_code, 6qActiveMed.chart_number PIVOT qActiveMed.raw_code In ('LFootrisk ass","Flu vac"); v!X v!Zif no Rxs selectedd` vB@ vB@\)MsgBox rstMedIn_tblReportTemp.RecordCountRxs into an array v! v%'!MsgBox UBound(VarSelected, 2) + 1   !to create the temp crosswalk qry: L' $','L for the select:  ,qActiveMed.[ $] ' for the group by sql:  ,qActiveMed.[ $] ' k(finish creating the temp crosswalk tableT(needed to create "none" column because the program hung without the col headings??? L'none');'L#saves qdf as qActiveServicesLatest3 qActiveMed1 L 6%......t.v.p.r MsgBox "step1"Y=========================================================================================Step 2 creating Summary 1Y========================================================================================= ------------- version1 before special measuresYSELECT tblReportsTemp.type_order, tblReportsTemp.display_order, tblReportsTemp.criteria, QtblReportsTemp.raw_code FROM tblReportsTemp WHERE (Len(tblReportsTemp.criteria));'L;version2 testing sp with update always in the criteria celldstrSQL = "SELECT tblReportsTemp.type_order, tblReportsTemp.display_order, tblReportsTemp.criteria, "& "tblReportsTemp.raw_code FROM tblReportsTemp WHERE (((tblReportsTemp.criteria)<>'update query') "'& "AND ((Len([tblReportsTemp].[criteria]))<>False));"=version3 with qsm in criterai to jump around specail measures5strSQL = "SELECT tblReportsTemp.type_order, tblReportsTemp.display_order, tblReportsTemp.raw_code, "'& "tblReportsTemp.criteria FROM tblReportsTemp WHERE (((Left(tblReportsTemp.criteria,3))<>'qsm') AND "'& "((Len([tblReportsTemp].[criteria]))<>False));"cstrSQL = "SELECT tblReportsTemp.type_order, tblReportsTemp.display_order, tblReportsTemp.raw_code "'& "FROM tblReportsTemp WHERE (((Len([criteria]))>3) AND "'& "((Len([tblReportsTemp].[criteria]))<>False));" L 6%V.HstrSQL = "SELECT tblReportsTemp.criteria "'& "FROM tblReportsTemp WHERE (((Left(tblReportsTemp.criteria,3))='qsm') AND "'& "((Len([tblReportsTemp].[criteria]))>3));")Set rstTempQSM = db.OpenRecordset(strSQL),gathering the criterias stored in tblReports H!X H!ZNothing selected 2  No Selections made$*'N N G|jkadded distinctadded insurance 6/2007,dlk-----------------------Select Distinct qActiveDemo.pcp2, qActiveDemo.insurance, tblDemo.clinic_code, tblDemo.start_date, tblDemo.end_date, tblDemo.Patient_ID'total my grand adder H!7maybe no record count if only special measures selected H!Xa ,  H"' HB@``kX ===========5Number of '(' parenthesis = number of 'left joins' -1 FROM ((' tblDemo ILEFT JOIN qActiveDemo ON (tblDemo.clinic_code = qActiveDemo.clinic_code) 7AND (tblDemo.chart_number = qActiveDemo.chart_number)) MLEFT JOIN qActiveHealth ON (tblDemo.clinic_code = qActiveHealth.clinic_code) 9AND (tblDemo.chart_number = qActiveHealth.chart_number)) YLEFT JOIN QRY_LatestVisitDate ON (tblDemo.clinic_code = QR7K$[Y_LatestVisitDate.clinic_code) ?AND (tblDemo.chart_number = QRY_LatestVisitDate.chart_number)) '#==========add BMI section==========&SELECT tblReportsTemp.section_heading QFROM tblReportsTemp WHERE (((tblReportsTemp.section_heading)='Body Mass Index')); 6%V.~ =========== ~! (' MLEFT JOIN QRY_LatestBMI ON (tblDemo.clinic_code = QRY_LatestBMI.clinic_code) 9AND (tblDemo.chart_number = QRY_LatestBMI.chart_number)) 'k@+===========add blood pressure==============&SELECT tblReportsTemp.section_heading PFROM tblReportsTemp WHERE (((tblReportsTemp.section_heading)='Blood Pressure')); 6%V.~ =========== ~! (' }LEFT JOIN [QRY_Latest_BP_>Systolic/Diastolic2] ON (tblDemo.chart_number = [QRY_Latest_BP_>Systolic/Diastolic2].chart_number) NAND (tblDemo.clinic_code = [QRY_Latest_BP_>Systolic/Diastolic2].clinic_code)) 'k@"===========add rx table===========3SELECT Count(tblReportsTemp.type_order) AS CountRx <FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=6)); 6%V.~ =========== ~" (' ILEFT JOIN qActiveMed1 ON (tblDemo.clinic_code = qActiveMed1.clinic_code) 7AND (tblDemo.chart_number = qActiveMed1.chart_number)) 'k~(===========add Services table===========9SELECT Count(tblReportsTemp.type_order) AS CountServices <FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=7)); 6%V.~ =========== ~" (' _LEFT JOIN qActiveServicesLatest3 ON (tblDemo.clinic_code = qActiveServicesLatest3.clinic_code) BAND (tblDemo.chart_number = qActiveServicesLatest3.chart_number)) 'k|$===========add Labs table===========5SELECT Count(tblReportsTemp.type_order) AS CountLabs <FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=8)); 6%V.~ =========== ~" (' WLEFT JOIN qActiveLabsLatest3 ON (tblDemo.clinic_code = qActiveLabsLatest3.clinic_code) >AND (tblDemo.chart_number = qActiveLabsLatest3.chart_number)) 'k{1===========Add Special Measures tables============finds all special measures in rptTemp and then joins together &SELECT tblReportsSpecial.source_query RFROM tblReportsTemp INNER JOIN tblReportsSpecial ON tblReportsTemp.display_text = HtblReportsSpecial.display_label WHERE (((tblReportsTemp.type_order)=9)); 6%V.~ =========== ~! ~B@\ ~!Xa ('   LEFT JOIN  ~" ON (tblDemo.chart_number =  ~".chart_number) AND (tblDemo.clinic_code =  ~".clinic_code))' ~B@`xxkpx?=================add demo (has closing single ")"============== (' P LEFT JOIN qActiveHealth1 ON (tblDemo.clinic_code = qActiveHealth1.clinic_code) 9AND (tblDemo.chart_number = qActiveHealth1.chart_number) '  'PNk.(<WAstrSQLFrom = " FROM (((((((((tblDemo "' & "LEFT JOIN qActiveDemo ON (tblDemo.clinic_code = qActiveDemo.clinic_code) "' & "AND (tblDemo.chart_number = qActiveDemo.chart_number)) "' & "LEFT JOIN qActiveHealth1 ON (tblDemo.clinic_code = qActiveHealth1.clinic_code)"' & "AND (tblDemo.chart_number = qActiveHealth1.chart_number)) "' & "LEFT JOIN qActiveMed1 ON (tblDemo.clinic_code = qActiveMed1.clinic_code) "' & "AND (tblDemo.chart_number = qActiveMed1.chart_number)) "' & "LEFT JOIN qActiveLabsLatest3 ON (tblDemo.clinic_code = qActiveLabsLatest3.clinic_code) 8K$["' & "AND (tblDemo.chart_number = qActiveLabsLatest3.chart_number)) "' & "LEFT JOIN qActiveServicesLatest3 ON (tblDemo.clinic_code = qActiveServicesLatest3.clinic_code) "' & "AND (tblDemo.chart_number = qActiveServicesLatest3.chart_number)) "' & "LEFT JOIN QRY_LatestVisitDate ON (tblDemo.clinic_code = QRY_LatestVisitDate.clinic_code) "' & "AND (tblDemo.chart_number = QRY_LatestVisitDate.chart_number)) "' & "LEFT JOIN QRY_LatestBMI ON (tblDemo.clinic_code = QRY_LatestBMI.clinic_code) "' & "AND (tblDemo.chart_number = QRY_LatestBMI.chart_number)) "' & "LEFT JOIN qActiveHealth ON (tblDemo.clinic_code = qActiveHealth.clinic_code) "' & "AND (tblDemo.chart_number = qActiveHealth.chart_number)) "' & "LEFT JOIN [QRY_Latest_BP_>Systolic/Diastolic2] ON (tblDemo.chart_number = [QRY_Latest_BP_>Systolic/Diastolic2].chart_number) "' & "AND (tblDemo.clinic_code = [QRY_Latest_BP_>Systolic/Diastolic2].clinic_code)) "' & "LEFT JOIN [qsmSmokeCessationOfferedInPeriod1] ON (tblDemo.chart_number = [qsmSmokeCessationOfferedInPeriod1].chart_number) "' & "AND (tblDemo.clinic_code = [qsmSmokeCessationOfferedInPeriod1].clinic_code)"changed to a stored query qChosenDx 6%V. !X !ZNo conditions selected 0 2 Dx Missing Criteria$*'N N G|jko======================filter for health conditions B@\ "WHERE (True = true'( placeholder"do!WHERE ((qActiveHealth!raw_code = ' "' h l j)'6/18/09 dlk patch B@` !Xa  Or (qActiveHealth!raw_code = ' "' h l j)'o6/18/09 dlk patch B@`mkm ' )' ------------%process core elements CREATE qSummary   'For Each prm In qdf1.Parametersprm.value = Eval(prm.Name)Next prm qSummary1  6%.MsgBox "summary 1 done"DoCmd.OpenQuery ("qSummary1")db.QueryDefs("qSummary1").CloseY=========================================================================================Step 3 qSummary2Y=========================================================================================MsgBox "creating qSummary2" qSummary1a 6%V. !X !Z>no selections - just a default count (total) & pcp field (pcp)LstrSQLSelect = "SELECT qSummary1.pcp, Count(qSummary1.Patient_ID) AS Total ",SELECT Count(qSummary1.Patient_ID) AS Total 'dHjLstrSQLSelect = "SELECT qSummary1.pcp, Count(qSummary1.Patient_ID) AS Total ",SELECT Count(qSummary1.Patient_ID) AS Total ' B@\ !Xa ,  " As  "' B@`PikHi From qSummary1 '======================%filter for pcp or total clinic report d , qSummary1!pcp2 as pcp2 'GROUP BY qSummary1.pcp2;'----------------added 6/2007, dlk fe #, qSummary1!insurance as insurance 'GROUP BY qSummary1.insurance;'-----------------dg , Null as pcp2 'Group By Null;'kg$====================================If blnBaseline_Report ThenCD MsgBox "Baseline reports ignore a patient's registry start date" & Chr(10) & Chr(13)' & "Normally only data while a patient is recorded as active in the registry" & Chr(10) & Chr(13)' & "is counted in a report. " & Chr(10) & Chr(13) & Chr(10) & Chr(13)' & "Using a baseline report allows you to enter the date" & Chr(10) & Chr(13)' & "the patient was added to the registry as their start date in table Demo " & Chr(10) & Chr(13)' & "and still run a report on the 'baseline' time 9K$[period"J strSQLWhere = "WHERE (((Activeclinic(qSummary1![clinic_code]))=True))"Else:WHERE (((Activeclinic(qSummary1![clinic_code]))=True) AND N((Activeperiod(qSummary1.[start_date],Nz(qSummary1.[end_date],Date())))=True))'End If    ' qSummary2  6%.$Set qdf2 = db.QueryDefs("qSummary2") z ! z!$ z( zY=========================================================================================RSTEP 4 -Putting data into a table with display related fields and results togetherY=========================================================================================  %V.tblReportsTemp 6%V.H1!report design - no results or pcptblReportsData 6%V.x11report source with results and pcp level (if any)MsgBox rstData.RecordCount]( holds pcp total !d0a No recordsA@*|aka B@\ !XaWthis fills filter field with pcp name or if pcp blank either 'unassigned, or 'all pcps' dpcp2 %! unassigned'd8`pcp2 %!'k` fe insurance %! unassigned'd_ insurance %!'k_dFAll'kp_total %!'  !!. HB@\ H!Xa H" H"0#$ H"X '8- eg., 201xage 8  %! xB@ H" x) H" x) H" x) H" x) H" x) H"^ x)^  %! x)  x) H"~avg x)  %!$ x)\new dlk 7/2010d]  %!  x)kx] xB@x`]kX] +++++++++++ HB@`(]  B@`]-=============================================step 6 open report in-=============================================rptTemp  VB@Set qdf = NothingSet qdf1 = NothingSet qdf2 = Nothingdb.QueryDefs("qsummary1").Close#===================================|[T ( KT[S[ (!,  (!.A@*nX[oP[@ rptTemp  VB@o [[Attribute VB_Name = "report wizard" Option Compare Database`Explicit Pub blnPCP_RAs Boolean @Insuranc e& '6/2007, dlk( 'YBzlin7^strSQLWhereEthny Sng]'3\9[-GendercAgei ntEOPInteg4'for lis Sub CreateL ()type orM healt*h4 5rx#= 6se@rvices = 7lab= 8 returns s in mm/dd/yy (reslut) 'max' numeri"c = 9s (was special mea@x@cpount vers@2 Dim rstLabsIn_tblCTempAGDAO.RecE2 m{9? {/| 'Footrisks@XFluЦc");q}#)~?.o~`~ts ~/q_Tw~V./%S^E? mA '&  n@2 ?//Soed/G/un//4_csOwQ}Ewvmvm'evvpv +v 5v'f0sP,tabl0hung without the col headings??? strS QL =  & "'none');" 'saves qdf a ActiveServicesLatest3qSetL6d b.Cre#QueryDef("q@Healthh1",v)Bn=06Step 1d - dynamically c> :Med1 from tblReportTemp6: "SELECT Di`stinc2s2.raw_code " _v0FROMF WHERE (((R type_o rder)6 )BrstoIn_maOpenRecset(z@\w?ea%d"TRANSFORM L ast([GR].[Ofstart_d@y]) A>SJ:G.clinicD,h.chnumb erK GROUP BY  IZ  PIVOTIaiIn (X'Footrisks","Flu vac");PAIf S`.EOF AndBThen^'if no Rxs selectedElseCA0Movee" Fi''MsgBoxGCount g$'into an arrayVarSIGetRows>( UB d( , 2)p + 1D;K$['F@or cnt`0 To  Atosswalk qry:ʩ" & Q((0,)"'aJ'f#B,&( ",^[] D]atgroup by sql2G"Next$E`jIffshc`B4tablg'(needed* :"a"Aumn becauseBprogra|m %>s?`: pNoth&^()@|dfLab <}h k16=`O '$' O"sp10'o+Š2+SummaryAK/7p- 'version1/PF`pecial measuresA-%t,.displayScriteria,S~PBxopeLenu| .!Q4QL'gaVruD#xtorCin8~}(ponE=&("Ǵ0~аvbC@ѫ!0lvbOKNo \s made"pesU Exit Sub 6RadgaO 3db= "Demo9" 'tot!y QWQrLz'maybe]Qr"V@ on s''д`zntilqEWWf Z Ag%&!;D!.qeLoo04'Nof '(' paren#siPDleft joins' -Ј F1@(" "-~( 0&1INNER JOINEON a//I)AND=)z)LEFT^   s ? S ? 0_ PQRY_sVisitDɯ cǰ e $__= O@| #1^3 BMI/@on&&KIps-G= K/YB2siXon_heading " _ & "FROM tblReportsTemp WHERE (( X.secti)='Body Mass Index')or ~='Weight');") '= If rstItemsSelxed.RecordCount Then strSQLFrom1 = (" $LEFT JOIN QRY_LatestBMI ONbDemo.clinic_code" +ANDhart_number )! End` If add blood pressure Set8db.OpenCQset("SELECTLy,P, Oފ P systolic2dia%xl d')+ [G_BP_>SI/D<2]˱P2].cS$B`o& "K\Jd? ! G^'+ 2-11-06-0-dlkAbnext visit4aDaa_GQ='NVDaJ___`T!ܠj_A?KP!XMΡQrx tabl??-?bMtype_πer) AS b 0?~;i0 nqA0}veMed1_nXbnnvn]nServices/nted/n'n"6=7=o` vO` ObA>%Ӎ3  `~< 3 O s0ults M"//c.4//#(34// )/tM#'0Labko0Mco0dmo0mp.Mnt/0//0'08/0/0! #02//P'$?/m???iv^e齹ASpecial  Os׌'finds all sl!in rp*tJa0Ut join#oger##r#?6q ###9###Oq7C#MqR! t?BB### #F~ d0 (has clos1Ale ")"7= strSQLFrom1 = h& "("C | _ B LEFT JOIN qActiveHealth1 ON (tblDemo.clinic_codeG P ) "WAND>hart_number?@ 1 &'change@d to a orquery Set rstChosenDx"B"CAÜWherB"WHERE ((Trut" 'placeh olderEltse("'"@H.& <")@PH 7NextK Do Until|% 6I Or )wA!&.-LoopI}; C-process A`6`Tments CREATE qSumma7!h `u' w _Total@sC Se;LF@YEach prm In qdf1.Parame ]sm.val"PE( .N|~'A@Aa aC@reateQDef$!1w##~ "s% 1 doneNDoCmd % sj.Cl aA{b| Report(i.?(' abo utA!gy anamavE:'we have the look/c`s ofnew rB allXin Cs" a work py" Tem_'B no sultxs. Yme f c8 dyA`$ies - howamatI aafpaca Jthruree QmΣ! withlabels pri(nt?` O@ r @Tis da {Bd%oš`l@e pcp.b.We keep c@arefuln0trol.s "u2e"Idfi pW: v\& type_`pa& disZy  cp n0d F \ (dx=5,vi<=2psit=3, rx=6, prvi@ce=7, p= 8,. speci`?measu=91-a 'not& pbe&ways "0#" slead!Qzero%sery (if n@eeded) ke 2 pr0"Plu-up("&VR1uhaTDrdfa0)"|bles: "Pati_IDD56"B'P two Plds &S X2 n 6Pa grtS"33 u@14p9%b0 R6a:g`t%$lc ul` perc T Orae\sCE@ "xvip$20W"bmi3"bpsHTN1B5ASA6 "Fluc7ha1c8 A82&dOasp'P" "pppp"t;qhpPaBe` DA broughtgeEYUaq@@).qD>id beca`<K$[$/A*AqmVtlkpCrosswalk, b1 c: uni ac1 CDE|MS"NEi'-y0n !cAoddiff n0ic"s (eg. "hrt" ,bMb4="co-exist LaS!*Rx") s U/ ӾT ldeb4bA?yama%com0=ebTAwizard @|s9|stepA '1. DssULabs3R*dSer^s3'NaZreturns jua v BUTUFaPmbin;#0elast#pntaneci_()P eldTthu ,'S q0ten irf5ok c* te @agpp} lĎ'O@foPrXA RRg maDp<፤o2.Qeates a summary1 query with three sections: ' SELECT qA\veDemo.chart_number, QRY_LtVisitD.CountOf s,HBMI.bmi P.b p,piServicesZ3.[DMEduc]8!"Labs24up]; in cring`e Sel, "Identifier" is used to brthtor crit erias*tblReportsTempFRO0M .@th+permanA6 codeall possible alwa ysMPed, butuld dynamicDy nge.d ependUonH ifta&/CUneed^- sho%it.0 YESJveDrsw dojustat.3WHERE (WHealth.raw_0= 'DM-1' orŃ2')+ANDFsex li@ke 'F*  ge!e Chosen DxGE (dy have type_order =0) from e!pcp/\and a_pts/baselineCxpublic va|T! uppliSby3_sriN@Forms![frm!pati@s- ]!fControl0!Pag e("opB") C boxesÁ_`3. CA(a S2->rstrec@BsNo returnsults of each3@st/@9m  'match c~Zs design data cLeB4. Moveg0a -%5. 8Addg/s fIspecial measura!A8 are@rdd[, cqsm???.(eg.@SmkeCessOffewInPwod.X) E!l kculd byc)@'qry<=whi( nce*Bo r. Tla h!an up"e #a%!f%A% oSbi rpta b⒁+~Ă+5{ze?! lu@new /96.`Pens  =% Dim RIn_f"As DAO.RT? #MedU@ 'holdCprm Parame!'Ite|ms Q&cDnxs"4&' Q^SM y"s=li@QW.gR"a3UF fE?"6Qr7oSv.ts q1afldCoplumn`wc(nt_sIn tegerEdbAZ qdfEQ Def1 2,*^S~t !F V ar"iantustrSQL}/P)@TpFi^eS_textrDisplay_T2 Re!d~ngݠTcmpalQ  PCPtrIn\aQM& 'dlk 6/2007F qEesp@e b&p_1FQoPcB# 'saPii`M p0tsql)Ӂstbm1- s]o ms9y Whpho a Group_To~tq? 0 -u Sk3= Cu$rr Dba%On ErrvGoT`o errB'?o^0Step 1a -KRU!73Re l0pŒ;Ucp, = "DISTs8;>,qActiveLb st3.[H] "group by sqlR$G= AC# F0NextRDEnd If 'l"none" column @becausqprogram hangs wit@hout a heading qE1Bl');I@saves qpdf aZ&Set`@hdb.CQueryDef("h",N=0 Step 1b - dynamicallyServices3 from ?f'"SELECT DISTINf sraw_code " _CaDFROM WHERE ((( type_er)=7)B3Aw.C1OpenÛset(cb.qIore1Aa 2"TRANSFORM Last(mat([*n2].[s#-d_dp],B"mm/dd/yys$)& ' (&  .result &' @)') ASOf j 1 cli(nic1,5chart_numberJ 6 GROUP BY )APIVOTC5 KIn ('FootriskvsFlu v`ac");>!=IfA֕G.EOF &A L.B`ThenZ'if nto 2scE8lse# Mo͡s(Fi  ySEW'& _ n@2 WoP91oedwun46O& s~ejHI & S Mpt? te_e>d? _U'f9pLshn[ߛk tabl@7'(nxeed@u\ngP ts???s$p0 l` u _{clWHealth2p=\ Distinct.upt 5n ބ# QL!5tw)~V~p3.}ve|6w ]|%{#.:{tz zzz#lzoz=K$[`znditionzzz qzz?r2eҿz޵lected = rstHealthIn_tblReportTemp.GetRows(RecordCount) 'Msg@Box UB0d@(VarSe, 2) + 1V For cnt0 To<.k'to create thosswalk qry: /strSQLa& " '" & P(0,B) "," "'f[>sq8~;>,qA ctive.[ E] #Cgroup by sqlFG= C"aD~NextOHEnd If '@finishjingQktable (needv"none" column becaus|program huwithoutA heads???#}>Bx');Vsaves qdf afServicesLst3C8Set @vdb.CQuery Def("v1"n,D\ɀ=0 Step 1d - dynamicallyVe Med1 froS*#.c*l_cb",H4.chnumber% GROUP BY )-  `PIVOT)4In (ċ'Footrisk``s`Flu vac");!(A0IfA00.EOF A@~4.BThenC/'if no RHxs CedE1pt_SR/n st ;' Ĺ"sp1P_'o Ŋ2#(+Summary/p- 'version1 `pecial measures_A-%t,.displayScriteri|a,S~ 3xopeLenup!T2 teg sp upq always incd cellw`_tK)<>' qѷ')S'pAND;[@E ])YFa`m3qsmai rjump  i$'"³$3$!$U $$((Left(tblReportsTemp.criteria,3))<>'qsm') AND " _ '& "((Len([ ].[r]pFalse) );" jstrSQL = "SELECT type_order, displayraw_codeFROM C WHEREL (>3mSet rstndb.OpenReceset({)K&e=4݀DEBm'6QSM]7gathng  2s stor`ed indCIfM.EOF AndBThen re@sponseMsgBox("Nothiselected", vbCical +OK,  SBi maxde"bGvbOK  Exit Sub E@#Ifadd/tinctinsurance 6/2007P,dlk- . C#2"DDis qActiveDemo.pcp2,JF clinicBstart_daDteendLPatient_ID" 'tot!`&my gd r3YCount$'maybe no3] cbif only speci ea$e@@49 Do Until?#@3E&% '@: :&%!LDq.MoveNex 6 Loop:=A'Number of '(' par#hesis@5ngleft jo1' -1:From1a: ((!@a6z`LEFT JOIN< ON !;C>) gh@=HcH)Health?. AQRY_LZstVisitD@x?.,AG a'Ig BMI< sLItems[= ƃ$ _headA;b a"݌)='Body Mass Index'z0R( = Z .=A8w/1`/߁1>17  (WA2= zPdO2_F2 ` ^7=blooxd p@jN OOQOOOb'Ot(#A2 P4 ?=?Qv?y[?"??=\[_BP_>Sy lic/Dia2]?>P)~"gv c2]'ggBO$rx table##!0CyQ`Rg`S 2RxcCp$d\=6B?# !> 0]s 1-"=!=%AjMed1`sQA AAAAd/ServicOAOAIA"҇6/ar=7vOOgO`N?ve%c3  `~? ? p 0 Then strSQLFrom1 = & "(" @ > _ !LEFT JOIN qActive^Latest3 ON (tblDemo.clinic_codeG, ) "^ANDBhart_number!)" End If Add Special Measures tables 'finds@ all smin rptT) a2t join$oger Set€\db.OpenRecset("SELECT ReportsN.source_ queryFR OM INNE>RCbNb .display_txext@$[ label WHERE ((uD*ɣ9ģ`.@¥ģ NL.Move$Fi Do@ Until EOFB B ǼB& "G" &! gE@˾ .cɲ~ cjk g))|e /ND"+pLoopj)fakd} (has closing le ")"k@ȓ3 ΏHealth1/#Dߎ 14{!J1@HGB*"~ zkC`q!C?'QB e s?0-((QCF8DMed_Ce%a'Cd /s 4zkF}Services}} / YO'@QRY_ VisitD OAe Ao` BMI_ _ tp ђ?=E6 ,s ?#[_BP_>Systolic/Dia2] 8%X;6e ?717[qsmSmokeCessation>K$[OfferedInPeriod1  Qf foorn=nge@d to ao RVChosenDxq."γ.` AG 6BOF !ponsTMsgBox("No@ condis s$", vbOKOnly + Crcal, " MisQ@aqes Exit xSubo+filtfor hR !raw%""XӆWh`$0"TruqBt`" 'Pc0eholPElse#z;$~'e hEthityhAge Gen 0'6/18/09 dlk patch 3( #p Or (" !"0ğeB(trSQLWhereGender & ")" '6/18/09 dlk patch rstChosenDx.MoveNext Loop End I@f s <= 4x= '-process core elements CREATE qSummary[_TotalewS/ct]F8rom 9'For Each prm In qdf1.Para@metersAm@.value,E(.N)%Setdb.CreateQueryDef("V1",W"MsgBox "sh 1 done"/DoCmd.Open$^ #41s .lClq=U'Step 3b2/TJcWingK_D2a NRedset HHa"O IfA .EOF A@.BTheBnno sBions - just a default@unt( (t)pcp field ( 'D= "SELECTF21. , Co(ti_ID) AS =TElseb| ycI2Fi CDo Until{M9 m&.%, "5 !Expr1`" As\/h!b@> ; 's_ 'fil f D M clinic repor@ ZblnPCP_R" cWD &! 2 as Group`k"GROUP BY+W2;ʸ!`gadded 6/2007,OInsurance"d97}i!1.Fr-ge'eaNull](b)By a%@Ca'Base@''>EEEs ignQuaA~E'sgip y3art dl1Chr( 10M3) _Normally on@ a whilepQЃ i!X 0%active i`n the61PcAQ@a/.9 & ?X Usca b ows you to WQ ߯ 5w"/sprei&rHab@DeTmo (a jsOOun?'E ' time periodT03Q3,=WHERE (((AE7h![_code]))=True))'m1//1/! AND@1&0`&E Qq[st*_],NzptD,()9 @Yac<"[&@vb"Q8j22'?y2ߪf2ת1 ?gSTEP 4 -Put6t!7pa.@1a t"/with d@isplay`8l%dcs .reJss8ge3r ==E}1!2dbDynCt@8TemqP|tb lxs!") '4;desX~ D+aPOG!Hsourc=MhfV@Tsection_headingHLu  $j@( j texa%E ? " rF hEFb filt_=<UIn hcri iac~avg dQbperceNull! RdvW!, 1)A'new dlk 7/ r0 am W / |0d.UpdatXExit Do0'+ 7N_Loop$ > ('=' 'step 6 open rC~i ~yDoCmd.OPBRC"rpt ", acView0Prev` 'S@et qdfp:NothM41Odf2Jdb.QueryDefqs1PvCloNsB Sub errRi : Sel@W Case Err B 3012Ree 3S@MsgBoxa.Numbs" "Co.Des Ap]%r@ A() <8EUxME PS<S<S<<<<<<JXN0{CCD6CA6E-B40E-11D8-A7B4-00A0C9C6E171}x :?K$[ <X % 6x%`L B H X,iens `Jry t`L B@ % 6X%`L fh@%@@U " (  0  l@^ (  8 H h  x "   "   "   :0  lpB(@ BX 6 &  8 X x          0 "8` h p   "  xp]@]`] .6ecode to display copyright notice drafted by anne thompson until default clinic is changed from Wa_DOHTherUSELECT tlkpDefaults.clinic_default,tlkpDefaults.clinic_support_DCP FROM tlkpDefaults;'L L 6%V.<er <B@\ <B@>$fread copyright <)@_APH <B@ VB@Bop F B@D quits accesso@ frmReports VB@o]x]]]] .6$H'J)this gets links or navigates to new linksecode to display copyright notice drafted by anne thompson until default clinic is changed from Wa_DOH9SELECT tlkpDefaults.clinic_support_DCP FROM tlkpDefaults;'L L 6%V.  !X !Z;no default entry - should never happen, unless user altereddX B@\ "@ "@read copyright N(\!assumes responsibilityte P(\" copyright dohy_ R(\" developed bynK T(\" Wa support V(\" nonwa supportit X(\"version Z(\+800qry_ \(\+ jackie homeKT ^(\+xxNo s `(\ected b(\ d(\; -d this is the original screens------kk$4'^stPatiox !N!\ VB@BjgWHERkHo@8Attribute VB_Name = "Form_frmSpl@ash" Bas0{CCD6CA6E-B40E-11D8-A7B4-00A0C9C6E171} |GlobaBlSpacFalse dCre atablTru PredecdlaId"E`xpose_TemteDerivCustomizD$Option Comp@ DT  .OpenT(C!^ .MoveFi GFEdtg![.']{рdT'AU " lw G Label14.Visib 'assumes responilityC(5. DEdoh- 'd@'lop 6/ ` 'Wa >17'nonwJ 3 'sqtxtLo0calSs\ '800 ^'jackie @i AVerǑOC'xx_fp3P|%X. F GtheFiginal s:cn\bIfS/Get|DBq^\t eg aTimer`6Me.=0+2jl@qSu@1mMDFOMJEVASTFRDPMYJCIEGPHWPDI:!MZCCKCMHULTKBETRTVOPCIYTXKS_: NBAHQTJUOJTNXDJXGDVKIDFGRPSN:zQIKZUDIDAFDESDQHZQEXLKUTZHTH: N      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~\egxME(<<"< <X+ x@ i`L +Noii` ndbo`twin`(Syb 6Xight%` 2 C%`$eter`&4 t`e ta`e ba`(x   * ,8 ,h 2  B  * , ,Hx  8 :  08@H P BX h 8x @ > 0 *8 ,h ,    ( ,@p AK$[  @   0@P 6XF`b8V @ ,P2 (V  0 @ L`      6  8 H .X  :   4 @  X  h  2 (    $  ( 8 @  H P X  p          B ( 0 8 H $ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved.)Use database order for string comparisons $ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved.]`x2 Check for failure. If can't determine the name of4 the first field in the table, the link must be bad.  %%!'L (' d' kix Purpose:1 Check status of Links and relinks if broken.9 If broken, first try the current database directory.7 If that fails, present user with file open dialog.$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved.0]]](]@]`]x]]]]]adhVerifyLinks'% Verify Links using one sample table. $ ' 'N*hk`9 Get name of folder where application database is located$'  $ ~* Data database found in current directory.  'd0 Let user find data database using common dialog The required file ' ' could not be found.' ! You can use the next dialog box "to locate the file on your system.' ! If you cannot find this file or #are unsure what to do choose CANCEL' ! at the next screen and call the database administrator.'  0 2 A@*9 Display Open File dialog using the adhCommonFileOpenSave% function in the basCommonfile module Access (*.mdb)*.mdb$'   '(     (Locate Data database file$' $,  User pressed Cancel. -You can't run database until you can locate ' '.'  0 2 A@*'N*(d  $'kk0Rebuild Links. Check for number of tables first. .6 6!!.'& 0Relinking tables &$R' Loop through all tables.4 Reattach those with nonzero-length Connect strings.'$  6!- If connect is blank, its not an Linked table !2 $ '$ ;DATABASE=  (2 + The RefreshLink might fail if the new path ! isn't OK. So trap errors inline. B@4 If one link bad, return False ('N*kk 6 $ $R' 'N*ph T$R' dlk4/12/02z80 (S BK$[ Error# (!,:  (!. 0 2 A@*n*i Attribute VB_Name = "basLinkedTables" ' From Access 97 Developer's Han dbookLby Litwin,@ Getz 4 Gilbert. (Sybex)NCopyright 1997.@ All Rs Reserved.' Option Compare Datae 'Use dorder for sng c1isons GExp licitPriva~Func2heck~(!A As S')Boolean ? 'Dim v arRetNVaprianm QO`n Erru1Nex}' C;Lfailure. If can't determine the nof>first field inB Qfle,l mu@be bas+= CurrentDb.YDefs]).FAs(0).AC@&2 <> 0 Thea1mFalse EF Trund<}E@adhVerifyA*Ƣ, _SampleInteger%' Purpose:-'fstatus o"fnksreAVs if broken@AHC,fgtrycc[directorytha:As, pr@qnt ur wiDth le ~n dialogFE?b!c?bL ^GoTo 7H/gurn.h@9DBDirG dMsg1dbDAO.ED `FileFjvq tdfbintI!HA#!hNumsProcE }lngFlag LongE'i gK,`' fXuTsio`sc dHC1 hi@ ]K@}!&0BD  I#.'ş@lwhe@apAa"@is locd$H= B(! (L$#.&!GG)"")̞'Gzfou`@}l|&O= -> +T' Lf@fiAPwmzACa`2" requ dD'" TS1"'|ufnot e.`&& " YonulK2PnodK hbox&Z5"tofP: you0ystem%Aq 2th!runsw wqW@do choa CANCELObAZy screenbbca*ad}i na`` Bs , vbOKOnly +Criti,#EE5A@)isplay Op&5"A :p"qSavy3>fmoxdul L=Q^AddI (#*, "(*.mdb)""9OrOFN_HIDEREADONLY Or7P /r aNOCHANGEDIRc11;9k QPe:=Ms! 4p:=Y PYR]:=%D}Titl0"L2M G2 0IsNu8ll( K ' @rsed Cancela10 .C=Щru aca0until 7%"Triml_m'ReXbuiT.numbp0ys ZpS_ػ= dH.CPi$0 Ret~Sys@Cmd(acInitM`8R"#9Ztioopp[rough. O 'Patptach0UҬnonzero-lengConn@Ms0I`j0FEbpI@('r`blank, its aan/wp3Len(0p) T bx+ 1' ";DATABAS E=`$x P0' The RefreshLink might fail if ttnew path isn't OK. So trap errors inline. ^On Elsume Next !tdf. 'If one Yk bad, return False +*j <> 0n {adhVerifyys ="GoTo DB (End If CvarRV= SysCmd(acUpdateMeter,tI + 1)e ZTru} P:$Remov$"C0 'dlk4/12/02Exit Functio[$cD$Select CaseCCqMsgBox "@or#" &A .Number": Descrip, _n vbOKOnly@TvbCritical, strProcNi @ifrom BpPi Dirts. F0i---- Hpi Ji( LP0iDele Ni Pi" RPi"p%X.EK$[pp " ("0 8@HP X`hp x   4 F ( 0 @ P  `p   J L h x  ((0X$x$   8Xp  48 H   Xp x   "   "  (0 8H Thz@  Xh   & H `  h  x                ( 40  h x           0 @ P ` "h p x            $ @ H 0P ,   .     F   ( 0 @ P  ` p    B@|H  8    0  @        0 08hp x $ "( 0 8 H BX   Jx      ( .0 ` *h        : PX (` 88 H Xh F "  "  f fh n  P@  H L X( < > 4 P8   b T Th P V Vh Z `  "    b   ( 0 FK$[8 @  H JX V  4! 8!4H!!<! !  !!H"  P"h"J"  JH# ,# "# # $L($ x$$  F$  $X .%  0( @( P( X( x(( (((((((  ))()8)H)X) h)"p)x) )) )))) ) * "**  *@* P*`*h** ** "** ** * +  + +@+ P+`+ "h+p+ x++ + +  +++ ,, " ,(, 0,P, `, p,  x,,, ,, ",8,.-H- P-X-x----- . .  ."(. P. X.h.,..  f. @@/(/@1   PX11p2  22 2 2222233 $383P3X3 ,p3 3 &33 (3 4 *84 h4 x44 4 4 44 5(5 85 X5 h5 5 5 5 56 66 &66 .787 &P7x7 (77 $77 $8(8 "88 `8    $h8 8 N8 8 9 9  9 09 @9 P9 `9 p99  99 99 99 9 : :  : @: X: `:: : ": j: "; "0; X;8`;.;; ; ;; ;;;< 0<  8<"H< p< x<  < <<,<=  f8= @= = >   >>>>>*?0? (8?`?f?  X@ Nh@ @ @ @ X@ PA `A pA A A A AA A GK$[A  AB B(B0B 8BXB `B "hBpBxBBB B B"B B  B B >C @C C C C 4D @D `D D D D TD (E   8E THE   4EE 2hF0F (H8H  @H PH8`H @hJ @$L @ N  P  P  P PQQ Q0Q  @Q HQPQXQ H`Q QQQ QQ Q "R R ((R .PR bR DR F0S 0xS .S 8S.T@T HT PTXT `ThTpTT T  T"T T T  U (U@U,`UU  fU @V (XV X  P8XXPY  hYxY Y YYYYYYYYvZ   [ N[ `[ p[ [ [ [ [ [ [ [ [ \\ \ @\  H\X\ `\x\\ \\\ "\ j\ "0] "X] ]8].]] ] ^^ ^^ ^@^ X^  `^"p^ ^ ^  ^ ^^,_@_  f`_ @_ ` `   ``aa a*(aXa (`aajb   b Nb b b c X c xc c c c c c cc c d  d0d 8dPdXd `dd d "d d bd ( e &He pe 8xe.ee e ee fff0f Hf  Pf"`f f f  f ff,g8g  fXg @g h h   hhiii* iHK$[PitXi~i   Pj N`j j j j Xj @k Pk `k pk k k kk k k  kk ll l (lHl Pl "Xl `l (l .l bl D@m Fm 0m .n 80n.hnn n nn nnnno o  o" o Ho Po  ho oo,oo  fp @xp (pr  Prrs  ss s ttt0t8t@tHtPtpt~u  u Nu u u v v (v 8v Xv hv xv v vv v v  vv vww w@w Hw "Pw Xw (xw 2w fw H@x Fx 4x .y 88y.pyy y yy yyyyz z  z"(z Pz Xz  pz zz,z{  f { @{ ({}  P}}~  ~~   (@HPX`~   N    0 @ P p   ȁ Ё    (0 8X ` "h p ( 0 d FP F 2 . HPXx8.Ȅ ^ RxЅ ؅  " 0 8  P p,    f @h (p  P؉  Ȋ   (08 @  (Hpp  P N`  Ȍ~Ќ P(rh     (R@ j N hfIK$[    N P ` x     Ȕ ؔ    8  @P Xpx   "   Е     "ȖЖ  ؖ    ȗ ؗ "     И  "    ؙ   "  0    "(08@H P   X h xț (T @ P `px  B   8 @ "HPX`hpx  Ȟ О    08H X `hp Bx ؠ   " ( 08@  H X h (T   0  &88:` 0 8@ 8<  0@P  ` hpx B Ȭ  " (08@HP ` p   خ   0 8@H BP    "  0 @Xp x    ȱر   B h  "Ȳвز  (@ H ` x   д JK$[ش B 8PX `   " е  0  0 @ P`hx   B   8@ " HPX x  "  "  " ȸиظ "  "  "  " (08 " @HP " X`h " px "  "  " ȹعxp VB@BoP@]]]]]]](]@ .6xTp========================-gather selected Dxs to create a default name?SELECT tblReportsTemp.type_order, tblReportsTemp.display_text, TtblReportsTemp.raw_code FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=0));'L` L 6%V.H H!X H!ZNo diagnosis selected. 2 0 Select Condition(s)$*'N| VB@Bk HB@\ H"^'P HB@` H!Xa P Or  H"^'P HB@`X P List'PDthis cycles through all queries to check to see if query TEMP existsE(same qdf used in the list program, must delete before creating new 1 VB@b D 6!d D!tempKT htemp VB@fqActiveServicesLatest3KT hqActiveServicesLatest3 VB@fqActiveServicesLatest4KT hqActiveServicesLatest4 VB@fqActiveLabsLatest3KT hqActiveLabsLatest3 VB@fqActiveLabsLatest4KT hqActiveLabsLatest4 VB@fqActiveHealth1KT hqActiveHealth1 VB@f qActiveMed1KT h qActiveMed1 VB@f qSummary1KT h qSummary1 VB@f qSummary2KT h qSummary2 VB@fn0 Dclears old data table,Delete tblReportsData.* from tblReportsData;'8 8 VB@j VB@b =============Al =============|hT` ( KT no object to delete(S  (!,  (!.A@*noX]]]] .6 tblQueries 6%V.p B"j"rrpt B"j"rlstWdon't delete the master labelExisting list < "t/> will be removed from library. Yes to continue v 2 Confirm Delete$*'N N xG|j VB@b,DELETE tblReports.report_ID FROM tblReports WHERE (((tblReports.report_ID)=' B"j"r'));'L L VB@j ------------ MsgBox "deleting from tblQueries p!X p!Zd pB@\ p!Xa p"z B"j"r pB@| B"j"rB@~x0k( pB@`k ------------refresh all itemsk,Delete tblReportsTemp.* from tblReportsTemp;'KK$[L VB@b L VB@j VB@b "t! )t "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~o]H]h]] .6 tblQueries 6%V.p=========================]]]]](]@]X]pcapture data from form]]*==========================================&here is determine if list has name yet "t "t!'suggest a new name from the chosen dx's?SELECT tblReportsTemp.type_order, tblReportsTemp.display_text, TtblReportsTemp.raw_code FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=0));'L L 6%V.H H!X H!ZNo diagnosis selected. 2 0 Select Condition(s)$*'N|k HB@\ H"^'P HB@` H!Xa P Or  H"^'P HB@`X P List'P0d( "t'Pk<------------------------------------------------------------_ "List name already exists, replace? No allows you to name again   Replacing List$*'N N "&delete old report and add new in place ' P'R delete old tblreport VB@b ,DELETE tblReports.report_ID FROM tblReports WHERE (((tblReports.report_ID)=' B"j"r'));'L L VB@j VB@b N e|k P_ Z'P New List Name Naming List P$'P Pd user hit cancel so exit|`kXP'  B"j"r!   B"j"r% P  B"j"r%''k  <------------------------------------------------------------gets last report_ID$Select tblReports.* FROM tblReports +WHERE LEFT(tblReports.report_ID, 3) = 'lst'-ORDER BY CInt(Mid(tblReports.report_ID,4,3));'LC new dlk 11/2007 L 6%V.>/opens entire reports library to get last lst### ! B@ "$X'  'd 'k lst '.name of new report_ID P'R#===================================update tblqueries R pB@99a p) R p)  p)z pB@d Must enter a name. 2 0 No List Name$*'N| k "==================================p VB@bZINSERT INTO tblReports (report_ID, type_order, typefield, section_order, section_heading, fdisplay_order, display_text, raw_code, criteria, [percent], denominator, period2_start, period2_end ) SELECT ' '$ AS exp, tblReportsTemp.type_order, 8tblReportsTemp.typefield, tblReportsTemp.section_order, [tblReportsTemp.section_heading, tblReportsTemp.display_order, tblReportsTemp.display_text, ftblReportsTemp.raw_code, tblReportsTemp.criteria, tblReportsTemp.percent, tblReportsTemp.denominator, MtblReportsTemp.period2_start, tblReportsTemp.period2_end FROM tblReportsTemp;'L L VB@j VB@b  B"j)r B"j"rB@~ R )t New list < R > added  0 List Added$*'No Ao_ When opens the report has a report_ID of "lst" (len=3) if new or lst+int taken from tblQueries`if old list, items are permanently stored in tblReports but all editing and creating takes placegin tblReportsTemp, when a list is opLK$[ened or saved - it is moved from tblReportsTemp to into tblReports.IIn storing the items the criteria holds the raw_code & new column headingAWhen a list is created it is done in a blank tblReportstemp tableEWhen list is calculated the variables currently in tblReportsTemp areRall passed to the Module "Report Wizard" where they are used to dynamically create6qActiveLabsLatest3(holds the labs required for report)8qActiveLabsLatest holds the latest labs that are numeric.qActiveServicesLatest3 (holds the services)andJqSummary1 (which converts the data into single formated multicolumn query)rptTemp the final list[-------------------------------------------------------------------------------------------Mtype_order 0 = "dx criteria" demographics: section_order 1 = "Visits"Mtype_order 2 = "demo" section_order 2 = "Gender"Jtype_order 3 = "vitals" last visit, bp, bmi & wt) section_order 3 = "Age"Ptype order 5 = "Dx" section_order 4 = "Ethnicity"Ptype_order 6= "Rx" section_order 5 = "Insurance"Ttype_order 7 = "Service" section_order 6 = "Type Diabetes"Ztype_order 8 = "Lab" section_order 7 = "Special Populations"type_order 9 ="Lab numeric"[-------------------------------------------------------------------------------------------hH6w]x]]]]]]  .6 tblQueries 6%V.p8%this displays the items on frmReportstblReportsTemp 6%V.H8-this opens the temp table to store inprogress.clear old tblReportsTemp yblReportsData tables VB@b,DELETE tblReportsTemp.* FROM tblReportsTemp;'L L VB@j,Delete tblReportsData.* from tblReportsData; VB@j VB@brefresh all boxes "B@~ "B@'3necessary to keep title from having selected shadow===============$Select tblReports.* FROM tblReports ,WHERE LEFT(tblReports.report_ID, 3) = 'lst' ORDER BY tblReports.report_ID;'L L 6%V.8/opens entire reports library to get last rpt###CWhen setup a form opens - checks to see if a particular lst started%len >3 only if already created reportneed to load values in cells====================existing reports B"j!r 20comes as lst if new or lst1, lst20 etc if exists load title B"j!r% )t@load report design paramenters from tblReports to tblReportsTemp VB@b(      % NINSERT INTO tblReportsTemp ( report_ID, type_order, typefield, section_order, Bsection_heading, display_order, display_text, raw_code, criteria, >[value], [percent], denominator, period2_start, period2_end ) JSELECT tblReports.report_ID, tblReports.type_order, tblReports.typefield, PtblReports.section_order, tblReports.section_heading, tblReports.display_order, CtblReports.display_text, tblReports.raw_code, tblReports.criteria, >tblReports.value, tblReports.percent, tblReports.denominator, 1tblReports.period2_start, tblReports.period2_end /FROM tblReports WHERE (((tblReports.report_ID)=' B"j"r'))QORDER BY tblReports.type_order,tblReports.section_order,tblReports.display_order;'L L VB@j VB@bdsection for new reports "t! )tkh "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~o@]  !MK$[   , A  !  , o]  !   , A  !  , oP]0  !   , Ato unhighlight  !  , oH]  !   , Ato unhighlight  !  , o]  !   , Ato unhighlight  !  , o(]8))gets info for exisiting section if exists]X#gets info to create new section]x]] section_order] section_heading] display_order] criteria] raw_code]( working code]@]X .6tblReportsTemp 6%V.HT++++  B""!  B""%'B working code  B""%'`this code tests if a section exists already for the new item already and finds the section_order:and last item display_order for what is inside the section JSELECT tblReportsTemp.section_order, Max(tblReportsTemp.display_order) AS LMaxOfdisplay_order, tblReportsTemp.raw_code, tblReportsTemp.section_heading VFROM tblReportsTemp GROUP BY tblReportsTemp.type_order, tblReportsTemp.section_order, 8tblReportsTemp.raw_code, tblReportsTemp.section_heading HHAVING (((tblReportsTemp.type_order)=2) AND ((tblReportsTemp.raw_code)= ' '));'L L 6%V.Ifinds the last section already prsent so can assign new section if needed?SELECT Max(tblReportsTemp.section_order) AS MaxOfsection_order 7FROM tblReportsTemp GROUP BY tblReportsTemp.type_order )HAVING (((tblReportsTemp.type_order)=2));'L L 6%V. ! " ' "' !e' " 'd ''k =============================  %'  Chart NumberKT#tblDemo.chart_number as ChartNumber' Last nameKTtblDemo.last_name as LastName' First nameKTtblDemo.first_name as FirstName'Street AddressKT!tblDemo.address1 as StreetAddress'CityKTtblDemo.city as City'StateKTtblDemo.state as State'ZipKTtblDemo.zip as Zip'Phone1KTtblDemo.phone1 as Phone1'Phone2KTtblDemo.phone2 as Phone2'PCPKTtblDemo.pcp as PCP'DOBKTtblDemo.dob as DOB'AgeKT DateDiff('yyyy',[dob],' B"j"v')+ Int(Format(' B"j"v'/,'mmdd')==========================T> (!, KT in data base skip=S= (!,  (!.A@*n=o= ] ]@ ]X ]x ] .6tblReportsTemp 6%V.HT(=  "! HB@rpt0 H)('this is the default rpt for design work rstTemp!report_content = only in temp may contain section_heading & display_order maybe use if change from multi primary key H) 'rstTemp!typefield = H)- 'rstTemp!section_heading = section_heading  rstTemp!display_order =0  "% H)^  "% H) rstTemp!criteria = 0 HB@MMsgBox Me!lstAllDx1.ItemData(varItem) & " " & Me!lstAllDx1.Column(1, varItem)----hereMMsgBox Me!lstAllDx1.ItemData(varItem) & " " & Me!lstAllDx1.Column(1, varItem)-dlk 2/2009 this keeps only one any in dx list7SELECT tblReportsTemp.display_text FROM tblReportsTemp /WHERE (((tblReportsTemp.display_text)='')) 6%V.  ! this is true when selected    %DELETE tblReportsTemp.section_order, 9tblReportsTemp.type_order, tblReportsTemp.display_order, tblReportsTemp.display_text >FROM tblReportsTemp WHERE (((tblReportsTemp.section_order)=0) KAND ((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.display_order)=0) -AND ((tblReportsTemp.display_text)<>'')) 6%.D DB@k7 "B@~ !   ,SELECT DISTINCT tlkpCrosswalk.working_code, 1First(tlkpCrosswalOK$[k.raw_code) AS FirstOfraw_code CFROM tlkpSetup INNER JOIN tlkpCrosswalk ON tlkpSetup.related_field ?= tlkpCrosswalk.working_code WHERE (((tlkpSetup.health_status) 9In (SELECT tlkpCrosswalk.working_code FROM tlkpCrosswalk LWHERE ((tlkpCrosswalk.type_code)='Dx') AND (tlkpCrosswalk.type_code)='Dx')) IAND ((tlkpCrosswalk.type_code)='Dx')) GROUP BY tlkpCrosswalk.working_code "(   ,SELECT DISTINCT tlkpCrosswalk.working_code, 1First(tlkpCrosswalk.raw_code) AS FirstOfraw_code EFROM tlkpSetup INNER JOIN tlkpCrosswalk ON tlkpSetup.related_field = @tlkpCrosswalk.working_code GROUP BY tlkpCrosswalk.working_code, 1tlkpSetup.health_status, tlkpCrosswalk.type_code #HAVING (((tlkpSetup.health_status) 9In (SELECT tlkpCrosswalk.working_code FROM tlkpCrosswalk PWHERE (((tlkpCrosswalk.type_code)='Dx')))) AND ((tlkpCrosswalk.type_code)='Rx')) "(   ,SELECT DISTINCT tlkpCrosswalk.working_code, 1First(tlkpCrosswalk.raw_code) AS FirstOfraw_code EFROM tlkpSetup INNER JOIN tlkpCrosswalk ON tlkpSetup.related_field = @tlkpCrosswalk.working_code GROUP BY tlkpCrosswalk.working_code, 1tlkpSetup.health_status, tlkpCrosswalk.type_code #HAVING (((tlkpSetup.health_status) 9In (SELECT tlkpCrosswalk.working_code FROM tlkpCrosswalk UWHERE (((tlkpCrosswalk.type_code)='Dx')))) AND ((tlkpCrosswalk.type_code)='Service')) "(   ,SELECT DISTINCT tlkpCrosswalk.working_code, 1First(tlkpCrosswalk.raw_code) AS FirstOfraw_code EFROM tlkpSetup INNER JOIN tlkpCrosswalk ON tlkpSetup.related_field = @tlkpCrosswalk.working_code GROUP BY tlkpCrosswalk.working_code, 1tlkpSetup.health_status, tlkpCrosswalk.type_code #HAVING (((tlkpSetup.health_status) 9In (SELECT tlkpCrosswalk.working_code FROM tlkpCrosswalk QWHERE (((tlkpCrosswalk.type_code)='Dx')))) AND ((tlkpCrosswalk.type_code)='Lab')) "(k(/ - "B@~ "B@~ "B@~ "B@~ "B@~|.T. ( KTBan entry of a section+display label already in form so skip adding MsgBox "here"8.S0. (!,  (!.A@*n.o. ======================="New Line can be one of three types(A: Other labs like this already selected[ section_order = section_order of other labs, display_order= display_order of others + 1>B: Other labs selected already, but this is first of this type@ section_order = max section_order used + 1, display_order = 1*C: this can be the first lab item selected' section_order = 1, display_order = 1] ))gets info for exisiting section if exists] #gets info to create new section]8 ]X ]p ] ] ] ] working code] raw_code] .6tblReportsTemp 6%V.HT+create criteria-------------------------code from addlabs  B""!  B""%'B working code  B""%'`this code tests if a section exists already for the new item already and finds the section_order:and last item display_order for what is inside the section JSELECT tblReportsTemp.section_order, Max(tblReportsTemp.display_order) AS LMaxOfdisplay_order, tblReportsTemp.raw_code, tblReportsTemp.section_heading VFROM tblReportsTemp GROUP BY tblReportsTemp.type_order, tblReportsTemp.section_order, 8tblReportsTemp.raw_code, tblReportsTemp.section_heading NHAVING (((tblReportsTemp.type_order)=8)AND ((tblReportsTemp.section_heading)= ' '));'L L 6%V.Ifinds the last section alreaPK$[dy prsent so can assign new section if needed?SELECT Max(tblReportsTemp.section_order) AS MaxOfsection_order 7FROM tblReportsTemp GROUP BY tblReportsTemp.type_order )HAVING (((tblReportsTemp.type_order)=8));'L L 6%V. ! " ' "' !e' " 'd(&''k&criteria = "IIf(Len([qActiveLabsLatest3].[" & raw_code & "]),True) AS [" ' & raw_code & 8 & Format(display_order, "0#") & "]" IIf(Len([qActiveLabsLatest3].[ ]),[qActiveLabsLatest3].[ ]) AS [ ]' HB@rpt0 H)(8"rpt0" is default for rstTemp - never used in tblReports H)Labs H)  H)  H)  H)  H)^  H)  H) HB@ B""B@~ |#==========================T# (!, KT in data base skip#Sx# (!,  (!.A@*nP#oH# cNew lab Line or vital can normally be one of three types BUT Rx are lumped together in same sectionA: Other rx selected alreadyB: this can be the first rx]` ))gets info for exisiting section if exists] #gets info to create new section] ] ] ] ] ] ]8 working code]P raw_code]h .6tblReportsTemp 6%V.HT`!create criteria-------------------------code from addRx  B""!  B""%'@ working code  B""%'`this code tests if a section exists already for the new item already and finds the section_order:and last item display_order for what is inside the section?SELECT Max(tblReportsTemp.display_order) AS MaxOfdisplay_order 7FROM tblReportsTemp GROUP BY tblReportsTemp.type_order )HAVING (((tblReportsTemp.type_order)=6));'L L 6%V. ! " ''d''all service section_order=0k!IIf(Len([Flu Vac]),True) AS Expr1|criteria = "IIf(Len([qActiveMed1].[" & raw_code & "]),True) AS [" '& raw_code & 6 & Format(display_order, "0#") & "]"IIf(Len([qActiveMed1].[ ]), [qActiveMed1].[ ]) AS [ ]' HB@rpt0 H)(8"rpt0" is default for rstTemp - never used in tblReports H) Medications H)  H) RrstTemp!section_heading = strItem no section heading only one section in services  H)  H)^  H)  H) HB@ B""B@~ |==========================T (!, KT in data base skipS (!,  (!.A@*nxop =======================[New Line can normally be one of three types BUT service are lumped together in same section"A: Other services selected already B: this can be the first service] ))gets info for exisiting section if exists] #gets info to create new section]](]@]X]p]] working code] raw_code] .6tblReportsTemp 6%V.HTpcreate criteria-------------------------code from addservices  B""!  B""%'F working code  B""%'`this code tests if a section exists already for the new item already and finds the section_order:and last item display_order for what is insiQK$[de the section?SELECT Max(tblReportsTemp.display_order) AS MaxOfdisplay_order 7FROM tblReportsTemp GROUP BY tblReportsTemp.type_order )HAVING (((tblReportsTemp.type_order)=7));'L L 6%V. ! " ''d''all service section_order=0kecriteria = "IIf(Len([qActiveServicesLatest3].[" & raw_code & "]),True) AS [" '& raw_code & "]" "IIf(Len([qActiveServicesLatest3].[ ]),[qActiveServicesLatest3].[ ]) AS [ ]' HB@rpt0 H)(8"rpt0" is default for rstTemp - never used in tblReports H)Services H)  H) RrstTemp!section_heading = strItem no section heading only one section in services  H)  H)^  H)  H) HB@ B""B@~ |@==========================T (!, KT in data base skipS (!,  (!.A@*no======================="New Line can be one of three types(A: Other labs like this already selected[ section_order = section_order of other labs, display_order= display_order of others + 1>B: Other labs selected already, but this is first of this type@ section_order = max section_order used + 1, display_order = 1*C: this can be the first lab item selected' section_order = 1, display_order = 1]0))gets info for exisiting section if exists]P#gets info to create new section]p]]]]]] working code]  raw_code]8]P .6tblReportsTemp 6%V.HTcreate criteria-------------------------code from addlabs  B""!  B""%'B working code  B""%'`this code tests if a section exists already for the new item already and finds the section_order:and last item display_order for what is inside the section JSELECT tblReportsTemp.section_order, Max(tblReportsTemp.display_order) AS LMaxOfdisplay_order, tblReportsTemp.raw_code, tblReportsTemp.section_heading VFROM tblReportsTemp GROUP BY tblReportsTemp.type_order, tblReportsTemp.section_order, 8tblReportsTemp.raw_code, tblReportsTemp.section_heading NHAVING (((tblReportsTemp.type_order)=9)AND ((tblReportsTemp.section_heading)= ' '));'L L 6%V.Jfinds the last section already present so can assign new section if needed?SELECT Max(tblReportsTemp.section_order) AS MaxOfsection_order 7FROM tblReportsTemp GROUP BY tblReportsTemp.type_order )HAVING (((tblReportsTemp.type_order)=9));'L L 6%V. ! " ' "' !e' " 'd ''k (  #)'^criteria = "IIf(Len([qActiveLabsLatest3].[" & raw_code & "]),True) AS [" ' & raw_code & 8 & Format(display_order, "0#") & "]" IIf(Len([qActiveLabsLatest4].[ ]),Round([qActiveLabsLatest4].[  ],2)) As [ ^]' HB@rpt0 H)(8"rpt0" is default for rstTemp - never used in tblReports H)Labs H)  H)  H)  H)  numeric H)^  H)  H) HB@ B""B@~ |H ==========================T (!, KT in data base skipS (!,  (!.A@*nop======================="New Line canRK$[ be one of three types,A: Other services like this already selected_ section_order = section_order of other services, display_order= display_order of others + 1BB: Other services selected already, but this is first of this type@ section_order = max section_order used + 1, display_order = 1.C: this can be the first service item selected' section_order = 1, display_order = 1]))gets info for exisiting section if exists]#gets info to create new section]]](]@]X]p] working code] raw_code]] .6tblReportsTemp 6%V.HTcreate criteria-------------------------code from addservices  B""!  B""%'F working code  B""%'`this code tests if a section exists already for the new item already and finds the section_order:and last item display_order for what is inside the section JSELECT tblReportsTemp.section_order, Max(tblReportsTemp.display_order) AS LMaxOfdisplay_order, tblReportsTemp.raw_code, tblReportsTemp.section_heading VFROM tblReportsTemp GROUP BY tblReportsTemp.type_order, tblReportsTemp.section_order, 8tblReportsTemp.raw_code, tblReportsTemp.section_heading NHAVING (((tblReportsTemp.type_order)=7)AND ((tblReportsTemp.section_heading)= ' '));'L L 6%V.Jfinds the last section already present so can assign new section if needed?SELECT Max(tblReportsTemp.section_order) AS MaxOfsection_order 7FROM tblReportsTemp GROUP BY tblReportsTemp.type_order )HAVING (((tblReportsTemp.type_order)=7));'L L 6%V. ! " ' "' !e' " 'd''k(  #)'^criteria = "IIf(Len([qActiveLabsLatest3].[" & raw_code & "]),True) AS [" ' & raw_code & 8 & Format(display_order, "0#") & "]" "IIf(Len([qActiveServicesLatest4].[ ]),[qActiveServicesLatest4].[ ]) As [ ^]' HB@rpt0 H)(8"rpt0" is default for rstTemp - never used in tblReports H)Services H)  H)  H)  H)  result H)^  H)  H) HB@ B""B@~ |0~==========================T~ (!, KT in data base skip}S} (!,  (!.A@*n}o}======================="New Line can be one of three types*A: Other vitals like this already selected] section_order = section_order of other vitals, display_order= display_order of others + 1@B: Other vitals selected already, but this is first of this type@ section_order = max section_order used + 1, display_order = 1,C: this can be the first vital item selected' section_order = 1, display_order = 1]0]H]` working code]x raw_code]))gets info for exisiting section if exists]#gets info to create new section]]]] WDim strDisplay_text As String 'holds what's in list boxt and on report (display_text)LDim strCriteria As String 'holds string criteria e.g., :".[ha1c])<=10"]8Dim response As String .6tblReportsTemp 6%V.HTycreate criteria-------------------------code from addvitals  B""!  B""%'D working code  B""%'`this code tests if a sectionSK$[ exists already for the new item already and finds the section_order:and last item display_order for what is inside the section JSELECT tblReportsTemp.section_order, Max(tblReportsTemp.display_order) AS LMaxOfdisplay_order, tblReportsTemp.raw_code, tblReportsTemp.section_heading VFROM tblReportsTemp GROUP BY tblReportsTemp.type_order, tblReportsTemp.section_order, 8tblReportsTemp.raw_code, tblReportsTemp.section_heading NHAVING (((tblReportsTemp.type_order)=3)AND ((tblReportsTemp.section_heading)= ' '));'L L 6%V.Jfinds the last section already present so can assign new section if needed?SELECT Max(tblReportsTemp.section_order) AS MaxOfsection_order 7FROM tblReportsTemp GROUP BY tblReportsTemp.type_order )HAVING (((tblReportsTemp.type_order)=3));'L L 6%V. ! " ' "' !e' " 'dt''kt ! ++++++++++++++++++++++++++++++++Last Visit DateKTgIIf(IsDate(Qry_LatestVisitDate.LatestVisitDate), (Qry_LatestVisitDate.LatestVisitDate)) as 'last visit''MsgBox "visit"J strSQLSelect = strSQLSelect & ", Qry_LatestVisitDate.LatestVisitDate "H strSQLGroup = strSQLGroup & ", Qry_LatestVisitDate.LatestVisitDate "Count of visitsKT2IIf(IsNumeric(Qry_LatestVisitDate.CountOfVisits), 5(Qry_LatestVisitDate.CountOfVisits)) as 'Visit count''Blood pressureKT   FIif(IsNumeric([QRY_Latest_BP_>Systolic/Diastolic2].[bp_systolic]) AND @Isnumeric([QRY_Latest_BP_>Systolic/Diastolic2].[bp_diastolic]), ;[QRY_Latest_BP_>Systolic/Diastolic2].[visit_date] & ' (' & 8[QRY_Latest_BP_>Systolic/Diastolic2].[bp_systolic] & '/'C& [QRY_Latest_BP_>Systolic/Diastolic2].[bp_diastolic] & ')' ) as BP'new 3/2009 dlk start BP Last dateKT  FIIf(IsNumeric([QRY_Latest_BP_>Systolic/Diastolic2].[bp_systolic]) And @IsNumeric([QRY_Latest_BP_>Systolic/Diastolic2].[bp_diastolic]), @[QRY_Latest_BP_>Systolic/Diastolic2].[visit_date]) AS [BP ldate]' BP systolicKT  FIIf(IsNumeric([QRY_Latest_BP_>Systolic/Diastolic2].[bp_systolic]) And @IsNumeric([QRY_Latest_BP_>Systolic/Diastolic2].[bp_diastolic]), D[QRY_Latest_BP_>Systolic/Diastolic2].[bp_systolic]) AS [BP systolic]' BP diastolicKT  FIIf(IsNumeric([QRY_Latest_BP_>Systolic/Diastolic2].[bp_systolic]) And @IsNumeric([QRY_Latest_BP_>Systolic/Diastolic2].[bp_diastolic]), F[QRY_Latest_BP_>Systolic/Diastolic2].[bp_diastolic]) AS [BP diastolic]'new 3/2009 dlk endBody Mass IndexKTIIIf(IsNumeric(QRY_LatestBMI.BMI), Format(QRY_LatestBMI.BMI,'0.0')) as BMI'dcriteria = "IIf(IsNumeric(QRY_LatestBMI.BMI), True) as [bmi" & 3 & Format(display_order, "0#") & "]"WeightKTFIIf(IsNumeric(QRY_LatestBMI.weight), (QRY_LatestBMI.weight)) as Weight'Next Visit DateKT^IIf(IsDate(Qry_NextVisitDate.NextVisit), (Qry_NextVisitDate.NextVisit),'none') as 'next visit''nl HB@rpt0 H)(8"rpt0" is default for rstTemp - never used in tblReports H)Vitals H)  H)  H)  H)  H)^  H)  H) HB@ B""B@~ |j==========================Tj (!, KT in data base skipjSj (!,  (!.A@*nXjoPjX] VB@b@DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp )WHERE (((tblReportsTemp.type_order) = 2))'L L VB@j VB@b !B@TK$[~o8i] VB@b@DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp )WHERE (((tblReportsTemp.type_order) = 5))'L L VB@j VB@b !B@~o h]H VB@b@DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp )WHERE (((tblReportsTemp.type_order) > 7))'L L VB@j VB@b !B@~og`] VB@b@DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp )WHERE (((tblReportsTemp.type_order) = 6))'L L VB@j VB@b !B@~oe] VB@b@DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp )WHERE (((tblReportsTemp.type_order) = 7))'L L VB@j VB@b !B@~od]P]h]]] !!. VB@b  "!  "%'8  "%'&  "%'( @DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp &WHERE (((tblReportsTemp.type_order) =  &) AND !((tblReportsTemp.section_order)=  ( ) AND ! ((tblReportsTemp.display_text)= ' 8'));'L L VB@j  VB@bkb "B@~|pb*hb ( KT;this is an entry of a section+display label already in form MsgBox "here"aSa (!,  (!.A@*naoa]] ]8]P]h !!. VB@b  "!  "%'8'&intSection = 0  @DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp &WHERE (((tblReportsTemp.type_order) =  &) AND ! ((tblReportsTemp.display_text)= ' 8'));'L L VB@j  VB@bk_ "B@~ "B@~|_*_ ( KT;this is an entry of a section+display label already in form MsgBox "here" _S_ (!,  (!.A@*n^o^]]]]]  !!. VB@b  "!  "%'8'&'( @DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp &WHERE (((tblReportsTemp.type_order) =  &) AND !((tblReportsTemp.section_order)=  ( ) AND ! ((tblReportsTemp.display_text)= ' 8'));'L L VB@j  VB@bk\reset the rowsource to original   ,SELECT DISTINCT tlkpCrosswalk.working_code, @First(tlkpCrosswalk.raw_code) AS FirstOfraw_code FROM tlkpSetup QINNER JOIN tlkpCrosswalk ON tlkpSetup.related_field = tlkpCrosswalk.working_code VGROUP BY tlkpCrosswalk.working_code, tlkpSetup.health_status, tlkpCrosswalk.type_code OHAVING (((tlkpSetup.health_status) In (SELECT tblReportsTemp.display_text FROM :tblReportsTemp WHERE (((tblReportsTemp.type_order)=0) AND K((tblReportsTemp.section_order)=0)))) AND ((tlkpCrosswalk.type_code)='Rx')) "(   ,SELECT DISTINCT tlkpCrosswalk.working_code, YFirst(tlkpCrosswalk.raw_code) AS FirstOfraw_code FROM tlkpSetup INNER JOIN tlkpCrosswalk ZON tlkUK$[pSetup.related_field = tlkpCrosswalk.working_code WHERE (((tlkpSetup.health_status) AIn (SELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE K(((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0)))) IAND ((tlkpCrosswalk.type_code)='Dx')) GROUP BY tlkpCrosswalk.working_code "(   ,SELECT DISTINCT tlkpCrosswalk.working_code, YFirst(tlkpCrosswalk.raw_code) AS FirstOfraw_code FROM tlkpSetup INNER JOIN tlkpCrosswalk ]ON tlkpSetup.related_field = tlkpCrosswalk.working_code GROUP BY tlkpCrosswalk.working_code, TtlkpSetup.health_status, tlkpCrosswalk.type_code HAVING (((tlkpSetup.health_status) AIn (SELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE K(((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0)))) *AND ((tlkpCrosswalk.type_code)='service')) "(   ,SELECT DISTINCT tlkpCrosswalk.working_code, YFirst(tlkpCrosswalk.raw_code) AS FirstOfraw_code FROM tlkpSetup INNER JOIN tlkpCrosswalk ]ON tlkpSetup.related_field = tlkpCrosswalk.working_code GROUP BY tlkpCrosswalk.working_code, TtlkpSetup.health_status, tlkpCrosswalk.type_code HAVING (((tlkpSetup.health_status) AIn (SELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE K(((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0)))) &AND ((tlkpCrosswalk.type_code)='Lab')) "( "B@~ "B@~ "B@~ "B@~|S*S ( KT;this is an entry of a section+display label already in form MsgBox "here"SSS (!,  (!.A@*nRoR8]x]]]] !!. VB@b  "!  "%'8'&intSection = 0  @DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp &WHERE (((tblReportsTemp.type_order) >  &) AND ! ((tblReportsTemp.display_text)= ' 8'));'L L VB@j  VB@bkP "B@~ "B@~|P*P ( KT;this is an entry of a section+display label already in form MsgBox "here"HPS@P (!,  (!.A@*nPoP]0]H]`]x] !!. VB@b  "!  "%'8'&intSection = 0  @DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp &WHERE (((tblReportsTemp.type_order) =  &) AND ! ((tblReportsTemp.display_text)= ' 8'));'L L VB@j  VB@bk N "B@~ "B@~|M*M ( KT;this is an entry of a section+display label already in form MsgBox "here"xMSpM (!,  (!.A@*nHMo@M]]]]0]H !!. VB@b  "!  "%'8'&intSection = 0  @DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp &WHERE (((tblReportsTemp.type_order) =  &) AND ! ((tblReportsTemp.display_text)= ' 8'));'L L VB@j  VB@bkPK "B@~ "B@~|(K* K ( KT;this is an entry of a section+display label already in form MsgBox "here"JSJ (!,  (!.A@*nxJopJ`]]]]] !!. VB@b  VK$["!  "%'8'&  @DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp &WHERE (((tblReportsTemp.type_order) =  &) AND ! ((tblReportsTemp.display_text)= ' 8'));'L L VB@j  VB@bkH "B@~ "B@~|pH*hH ( KT;this is an entry of a section+display label already in form MsgBox "here"GSG (!,  (!.A@*nGoG]x  B""!A ohGAoPGA o8GPAo GAoGAoFpAoFA.oF0AoFA,oFA0oxFPA2o`FA4oHFA6o0F(FWAttribute VB_Name = "Form_frmListPatients" Bas0{AD26B33B-969E-455D-8F06-40AB0D8E9987} |GlobalSpacIFalse dCreatablTru PredeclaId"Expose_TemplateDerivCustomizD$ Option CompC DW  ?lici0t P15 Sub cmdCl K_Ck()  DoCmd. EndeReport Dim qdf As DAO.QueryDefdb TBQstrSnbg rstI Recordse@4#SQLRespon$M@ 'HaulxtQnew_rC:n Set @4= CurrDbd3On Error GoTo er r_cod '=C3'gather selectDxs to c] a def, $ D?SELECT (tblgsAN.type_Mer,disy_text, " _C& "rawA0 FROML WHERE ((()=0));/GMEu=(.Open:(dRIf .EOF, A@SBThenr== MsgBox("No diagnosis*.", vbCritical +OKOhnly SB/@jndon(s)"ExitbeAfI]MovxeFiiN=]!)1d_.!N3Do Until"# @;h Or@=&_LLXoop  "!>#'th0cycles through all q`ia@]hecka^see ifBy TEMP ex@sB X'(sAru!i"n e l program, &m@ flebeforeiingr { 1#9RWHarn`s  EachInaVe?Fҍ.aˣ C"t!EDM teObj} ac PjqActServicesLst3 ` X 4_ X J Lab?+  r!?6+Health>1] Me>d *Summary2??2cz.!L3'@ars old d@ bK" f!.* from\;T #5Runрdq[C=s= y CHeKq`0 ~:@@"3011 'no o>0}dpResuT^E ҨTl p.Num:b&[U!Descri"Pu@ɛsXq̕stJ![ўdb@S1q(" 3As!P¤!l <> "rpt"p" ! 'don'0Crdmast@label ,f'Y st!eg<Me!txtTitC> wi@nbe remdS,libr:. YŔoo@}nue҉0u`\Confirm #5vbp h*` _0n DTEx6.ID=)Kws)="'Q[r]!['G]") >)1> '-' "6q%DT%cA!yT.:!,Bs  !qry_= ++AI 1#"Re1y $DoIQEU kdL W t- 'refresh all items  End If strSQL = "Delete tblReportsTemp.* from *;" DoCmd.SetWarnings False_Run[(c)3Tru2Me!txtTitle .DefaultVal(lstChosenDx.Requeryt3Relat@edDemo VlitSR) Services)Lab VAll7 l 3 1yxSub PPrivE  cmdSave_@Click(di m rst A s DAO1cordsetlAEWQ`iesdbDataba) @= CurrentD/*@"=.O penRe#(" ". '=.in@riab@7Integernew_rB_ID(StrcoldHnamevarI܁VanRڏ!I@ĸTexD 8cntA+capture dPaform*@p8ons!BooleanAW&N) +heis d@rmine if list h(as yEIf vxx The `a'sugge a  he c} dx'a)SELECT typDe_Xer,Mdisplay_tA., " _ & aL raw_code FROM, WHERE ((()=0)) \BjP\[g`,c.EOF A B +C= MsgBox("No diagno*s`:sc.", vbCrit@ical +OKOnly`#Sb Condon8(s)!oExit!!A˅MoveFiG_Fd!I4:.! N7''Do Untile%`n @@ Or=B&E` Lo,op""L@k'GoTo `input呁n Ef 8tP6_if_A>_Ho' =alre@ady exs, `Xlace?"WK$[7(Lf8*ows you togain:;,astion,YesNoCancelP,<]> 5  q6es3U=0RKpXd0O0a1 @ aaDddRKin pEc40"wf= eoWU='G3+OH @O+$pUTE(O.g P+HTP4QsI)="'Q[Fls]![frmW~] "Td.R5k$(28AdA8"C'knRR< _ &A:AID`ew1 NP@`v"pF2,H3 Le`tr[), J'user hbc9 so@0DoeKX33 % є= 0 T&!g&!G&.ACou- 1'p st).Column(1,)Plyj@02 = ]&s 1jr}'^dgets laFCz dF$0EE !AFLEFT'F, 3'0C "ORDER BY C(M id,4,3 qGQ'^dlk 11/2007I ?ԟUQ8'os iibraryAos` ###*Al7l.RecordCount Th en rstAll.Mov eLast xintVariable = CInt (Mid(j![report_ID], 4, 3)) N+ 1 ,0Else< .nd If 0new_"lst" & 9'name of  "= strDefaultTex '= 'update tblqueries2If Len([X5)Q.@AddNewT A!qry_eBr{99a"descripti|on L!DH ID .U?J~responsAMsgBox("Must ent @8a !.", vbCritical +OKOnly, "No Li N{"LExit Sub#EDu a:GDoCmd.SetWarnings FaJSQLfINSERT INTO"Rs (Ƣ, 0typesfield, secAlEhead @= _G$& "d isplaB, t`X, raw_code, A*ia, [pe rc@,@ydenominator, iod2_sPtarte&) "SELECvT 'oEq"" AS ex"p blR Temp.m @iMd#,sK%&) )*\ .0 d2$*4 8/ ;9FROMR!2;H\RunY(Zk`TruhSForms!frmRC?!@+鋘܁y' Me!txtTitֈPa0頬 l added"Infa?"`$ 0Priv! Detail_DblClick(Cancel AsB eger+Call lAem Demo_  %_Open/!$ ' W oA@s thep has aqrt(len=3) "isor `+itaken from#S'old", it$emreQEmanFlyvoredz' but Qed ^ng aqFcres Mc%'inQ+, w aisP` sav- pd )Q too.C In W < hW$ % column 4GZRg 2 `k! donea `blank p t r,p0rcul`'d v4s currS arpassp@!Modu5" Wizard"1y udyp7z3 D qAPmbsBL st3(7labs(qui!p6,'c "tha$p numcSerPvice s )'ESummary1 (whichnvertS a3#sP!A`miTJE rppm8f0wp>G4-Ogw 0ad*x"d@Ggrap@s:0sIv 1QVisitsc'822/4m;RGpier? 31vitH" l v,D bPbmi6wt) {SAge  5Dx/ \ K 4QEthn icity 6= "Ro Insurao 7q+/  J6QT D0eDter 8AL3`sly ilready c3dne6`lloa@d valu@in cellDGm7"9exista?$If Len(F`s!ǃ. Ċ) > 3 TA! 'coma$"new o$r 1,20 etc! "tPA0@YtxtTBS= .Column(1$k '  design -am`:erssa > HZabINSERT INTfOhTb( b\type_er, afield,Hction%Jg gseCh`C 8,e_text, raw_c0ode,H ri,a,j [BH], [perc@&@denomina , iod2_st Vend )2 SCT I|*!." ")gN%$| ϋ*+crY-.@G:z aR|.l)O "q cZ((OZ,)=/ "' " & [;]!n[D'D]0"))_ "?^s .( 3eaH=@/QL8Ea1?W{j 4BE'!` P>TO1Me!N.DefauXltV\ E5IfS߀RelabDemoςstVitpRServi0pLabs?{Dx1Ost bB?2  '  SuPriv  lblAddP_Click(D%Dim cnt As Inte8gerI03= 00 TosD.LzCou- 1#XK$[#ed(w7*N`QSC Q}lh xE7 "x t Wx?t %q(:% o f r,$ $$e$(% S'unhighl0@ & 9&9R&??90D? 7 C T 40k P'to unhigh ltFor cnt = 0 To lstAllRx.ListCou2- 1Tsacn!=!(D)<%a3&1? .Column(1,!Łhis :tebsif aFgf $al`dykthe aFma @finds soCP 'last kTvwha`xsiLC= "SELECT 9.J, Max(,j) A`S " _ !*& "Of, .tm FROM GROUP BY typec' ‡,.LHAVING (((G)=2(ND)5 *T'"[e]F"));"0Dwg;( +''&)prs : so can ass8ign,aneeded&$&$#? p? I.n>c1o If wDwThenq32i!maxo5 +ؙeF=:!E@   =_n\!@ofK wos|oԨIf'=3`(?` eaf C=q tR"Chart NumberT71;˰pa.2w2)CPoocB PDOBdobAAg-@-9eDiff(D'y',[],p"sp ms]4![RӨtxntAq+jy:& "(1at(__nd\,'m@mdd')LQBg5p'workaBCCp'Ddbaoaa6Sp@= CurrAD>1D Idb.Openf(1R\!"p*On 0)GoTo UA3,a 'c$teӎ'-%QfrR 'Ktea40a,t1 t9_38.aNafinds0;eC*CSlastQ c;.A|whaa:siiA.B D,`SELECT Max(g~!.) ASAOf" _q& "0FROM GROUP BY|.xmHAVIN0G ((M 7)=5));p/GL= /S# dIfjPOCount Thend ;=j!maxro\+ G= 0sEj 'd"rvicML#=p%If' 'IIf(Len([Flu Vac]),TrueExpr@?7"vqAPZveHealth1].["t4 "h'& 5pq EyB@ EachE In MeAllDx1.sC]ed Q.YNewEBt+!r&_ID = "rpt0"'this the def ault  f*design workG'@ 0contIon lyA@p may as_headingdisplay_{er be uif change from m$i primary keև!"typeD(= 0 +' fi`eld =GN!υ(M= , w%=tA=>Column(0,%CK Hxraw‡1F1${telh& '.Ti:(dw)&? '-(G)''her?e?ô vC'dlk 2/2009 ekeeps "]one an"^dx lcĄ@(dbMSELECT +.C?FROM _c & "WHERE ((()='B<@>'))ːIf (9DCount) Then grue wA/B[χ t cbCre E(@"", "DTEeBl dI`L{, j ,"/]. 0)=0)' ANDO Jr? !l)<>~ .ExecuE|I r&#;ChosenD$$$gk.RowSourc e@1"40DISTIN0lkpCrosswalk.f0bRL| Fi  (t5O) AS Of5k5P:up INNER JOIN J OR.r#n_c# = $5.Pplth_status#(eB0 *25!0BDx'@A*?4O ' ) GROUP BYk%")woR'# ###.### `"!#+#ted#iG@k/ _^ K&Sb$,HAVINGes *x@En0d IfCNext varItem'-BäChosenDx.RequeryRV @C Exit Sub P err:Select Case ErrB3022'an entry o f a s ion+display label already in form so skip 8add@'MsgBox "here Resume +C8lsegD.N`umber!uL& ADescript`C7!9 a! Priv n# lblAdd(_Click() '= New Line c#be o@#three fsA: Ota$s lik@(his%s/ed@ $+_ord`.=%- o , ;/=5bs + 1 B , but t!fA!Amax,usedaC:C &@ C H ii 7Q! 1 8DiDm Sec`]sts As DAO@oc)setbL'geinfoT exisiFtT% ift7 =2 to c@`te n@C TempaVari8ant%<Integet+$gate S trptrSQ~Le&& oa'b!2Datab#! dbCCurrFDJ1P-b.OpenRed("tblR@eports!"@:On!@or GoTo 5Nc?a ''-/ fromL*!FEach` 0m0ms!frmListPhati ssH.Q strd,nt(") ';ֈ= Column(oP5%BB'?te4P1_1FL^=c/b<`aVfindssccJSplast?.Qwhas0esidݡSee:B @, ".z, Max(pS>@Ofj (.`p ǜKXo, 4 %& "ï )=8)+M) |'"P[0]"));4A]A(c @q01=!'(&4+pr 0tъaiassi gn \`need(;&$'$#} o Dg $>c1n|C0vdvCount Thend`J3NIz!ok5k1=:!EТIfd  q} r@_t'!`of║o=1A1?`kT{P2IIf(Len([q@ActiveL`st3].[3<3]),Trune'w'8cQbat(C0#")"]Ƅ;  de & "]) AS [" _ & raw_co"dxrstTemp.AddNew&v4!report_ID = "rpt0"@'is default for 3 - never used in tblRFsbtype_ord1= 8"fieldLabsvarItem>Varian2displa$y_^er>IntegerndcriteO8@String7trSQL,A'work? codeDrawn_#'pdb~Databas" Set = Curr`entDb =A.Open("tblRepoHrts")0 On Error GoTo errM I'' '- 'qfrom adrvices F6Each" oIn ms!frmListPati4s!lstAllSeCB.XsSeled!st=gQ() g=gdColumn(<1,E4VB('this~ tesAf aŸ ex!;s aldy f@FthMand finds sCClast ˾1AwhasideI S= "SELEC@T Max(K.!) AS Of1K" _CAS& @"FROM  GROUP BY.typerHAVING ((g)=7))<;"ASad@bSe|cE#-bC6a sDIf&DCount The/k =!maxo$+ 1d Cj: = 0CE~l}B- 'xall@MgENC+= JIf}H@IIf(Len([qA vepL st3].[0" & e<]),TrueB@'  4"F_SV+".AddNew'cD!r"_ID`7"rpt0" '$ defaultB|d -ver used (aR (c= 7Vfield5h-_` N 'Mhhead!=! noL onl y onein@C mp!-text<8]p(w.Upd00EFkntkRel `duCqueryN1 dh It SuP|'=wz:U qq C |.NumbqC3022 '& a skipResume 339HMsgBoxx @" @DesPpEEz  Priv! lblP5SpecialLab_Click(Xc@8 Li%@can beR&orfPmremdP'A: Orr labs likao8vs'0bˤho, )0es ^'BeE, but Ӑ fi0& b? du5 BD `1Pb'C:# 3:cq$stGv?ͺ1(1itD ifI  onCGs_VLpU 2R ppٿSxFG "1ǐ1}ƻq> 0Gsž m?_rX 6BŀO0,SE~BABportsTemp.section_order, Max(tblRedisplay) AS @" _ &$ "hOf L,  raw_code0heading[FROM L GROUP BY dtype f VHAVI`NG (( M)=9)ANDQ)='" & [strIt(em]""));"Set rstSecExists = db.OpenReBcxset(SQL)C'finds the last I alrcy preseno can assign newF ifpeded@ "SELECTbBz$hVN=VA If d".aCouRTh|en @J̀Mq!maxo + 1KL=!  Else&i !8of?a' HEnd@+text9@"(!ee #)Dd -'criteriaAIIf(Len([qAveLabsLatest3].[]),TruneBU' 8Format( , "0#")"]4R`Id,2)9`s j (& ?&,RAd>d=c@AD!rB_ID+rpt$0"'"#is default0 forU -`ver used inR ` 9Vfield:-T=] %`C?@:YAF numVc3Od MEwUpd@0 ,s!frmLPePati`s!lstRel `d DquerJyN8vaj  ht Sub 8 '=er r:S Sel Case Err.Nu0mberB30d22 '# a bskipRes 33P&MsgBoxxbQ@DespQ0 H I Priv@ lbl2SpecialService_Clic|k(x`5 Linevbe oofyree /s@A: O {r@+s likh@6u{sAy'a/.H o , *Po)sh'B u, but`  fi&Qt! a P ` ] o?9sB e 6Pb'C^:# s# _m%=1 Dim*v As DAOTtP1'gePinfoNePlit @AtGtpteS6 2U-O Ad9A Va`pntInteg6qsDStr`s\rMf4'wo|rkaCM 'U T1vb1 DataB%Sгdb $CurrNDJ14Q5δ""@=On!DmGoTo EMVF e!B<'-1 from add,#Z Each In _[ntR[[K$[AlHs.1ssL0g=u_a() A_dYColumn(P8eBB'BsQ4aB 4Q@b?Qa\G-Sb1Q what LnstidaWe5B / dп___A}1&_l^section_heading @" _ & "FROM tblReportsTemp GR@OUP BY \.type_order, 4s:  `.raw_co deFHAVING ((( Q)=7)AND#g "Q-)='" & [strItem]" "));"Set rstSecExists = db.OpenRecxset(aSQL)'finds the last A alry p resen o can assi@gn newifeded(3@"SELECTp Maxt) AS OfB$hVN=VA( If d.aCouRThen @displayCMq!maxofK+ 1KL=!  Else&3%^!zoq?+G.= HEnd@+text!N(!eEwe #)Dd -'criteriaAIIf(Len([qAveLabsLatest3].[]),TrueBU' 8Format( , "0#") "]Serviced4sr]@s J'&~ i%,R.Add Column(PAE^'LѰ&f aK 6I2I[1)gغI'b 5Q.B 1Vnsid`e5BqL@rb,op.{]OrtsTemp.section_heading @" _ & "FROM tblRepor GROUP BY ..type_@order, 4s: `.raw`_codeFHAVING ((( Q)=3)ASystolic/Di@L!2].[bp_s] !;@-Isn d ]M"d ? 3! B4_d[!' |('I  '/@h~`n#g)' 24BP,A%'j3/2009 dlk@2artdP ?(OtO ILO "Is__C$TO5#OO(.[HRx[BP l2k5 8R? ? : cX es_Zq:c  Si"( CC% P1%t4v`!4scws44p> 7\K$[4 o!nD5!!5a/_iRHi _5_5 _5_5_5i@]46e4gw65Rx5?OqService5qpH4oN go45n?xr53d 5u5m?l5Vaynt 7*$intTIntegE$zP'SCXIf Lzssed.Count The5oOw p Eachu In MeR  *oaData(=_ lumn(1, tE/o%2/ 888⩿8o9o9o9:::"[]) AND@J )}" ?0p+ .94"' %")); //G6 2Օ% 3IqbIf3_/6 Aresol>vq;'this an ry of a + label alreatdyf '"herey `P"?D:T Y6riant Dim strSQL As S`tring Xi@ntType4Integerd6Section<If lstRelatedDx.ItemsSel2ed.Count ThenP1DoCmd.SetWarns False $For Each varV In Me!n 3 =Data(,)= 5'= 0== "DELETE tblReportsTemp.t_order, sƅ" _/& " display_text FRO M WHERE (((V()X" & [M]") AND')E'Ap3"));"O;O×Run([LyNB TruȦEnd If ͣRequery AllDx.  Exit Sub err_resolve: Ca`se ErB3022'this an entry of a $C+d= label already in fo rm#S'MsgBox "here*Resume~ $csD.Number5=& ADescrip#&CAA(Priv`! l`moveDx1_Click(65Va_@DS$VA? a('Chosen=OMm砳 gA aahŠj’`'ßs1g& "N*, d9U "UG /+U7rC%{ .UU'Qet the rowsource to origina.lSXVRVowSc%SuCT @DISTINtlkpCrosswalk.work_code,jFirst(1raw0S Of5 Cu`upINNER@ JOIN  &O.rC_field0u GROUP BY Shealth_statu>sbHAVING2 .j)!I(}"E6P 6)=0?P49!))S)='Rx'))sp<%{?%?%?%?%?%?%?% $c,?%ed?%/O")ZOVOY ߥOOO; pe3<='D 3đ\!Services.R!!!!!!Ͽ!!).!kpFiC? FtFkcF?Fp=F#'r''';'s''''s#EFG %Lab%Elos0swalk.working_code, " _  & "First(tlkpCrosrawA) AS @Of& FROM ^Setup INNER JOInN( O1.related_field = 6 GROUP BY# .health_status, typep HAVINpG ((P ) dIn (SELECT tblReportsTemp.display_text  WHERE &: "Korder)=0NDL 4section_))QA<)='Lab') )"CCMe!lstChosenDx.RequeryAllRServices  Exit Sub err_resolve: Sel@9 Cas`e Err B3022'this an entry of a G+c label already in fo rmCA'MsgBox "hereDResum8e N@s "lse(.Number &w"@Descripj Priv@āB Blmove@M_Click()Dim varItem As V@ariants trSQLStrJintT`AIntegew, `SL#Itf ERy;sced.Count ThenaaDoCmd.lWarn`s FaJ*For EachnT !@Data>(D)+Ae"= 7 '(#= 0) a/5= "D TE-j(`P_ Cڔ >& [&~]A`̌ /I){"a'h8b"x));s +cLRuna(-?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~895 xME PS<S<S<<<<<<^K$[XJN0{87CD04F6-06D6-443B-8AFC-0ADF37A4414A} p`N(`8 @ p#i 6(er % H$f% h_APH%   `Z`"  %`LB" 6X` % 0itQue 2@ nMed% 68No m % 4 6%   " (  "0X4p@    F8. <  ,(>X $ $  0 PX&`   $    (*0` 2x (      B( <p    "  ( HPFX       ( 8"Px  "  * P .h . .  ( (0 X  ,p    &   ,   ( 0 8 (@ \h 4    "8 `  x  "    * $ "8 &` & &  ^ PX $ . 0 *0:`,  * DP `px 66B hp x  "      "    ( 8X  x_K$[        0 8@ HX`h  x   "2      ( 8H P `  p $    "   D( Jp < @ N@   "        ( 8 H Xx    L  (0  8 H X hH `Nx       ( (N@        R ` p      "  "     0  @P  p         "  8(` p "x, xp]@]XPerror chks selecting a query B"j"r You must pick a query to run 2 0 $*'N|P B"j" e'You must select a clinic to run a query 2 0 $*'N|dkerror chks dates B"j"t$f "rQRY_rptWSC_APHS_Core_MeasuresEnter valid Start Date 2 0 $*'NyD|Hk@ B"j"v$f$You must enter End Date to run query 2 0 $*'N|kd B"j"v B"j"t$ `3Start Date should be less than or equal to End DateA@*|`kX "r'8txtQuery_Selected 8built-in intervention reportsqry_ListPatientOnMedKT $,No med selectedA@*|kqry_ListPatientReceiveServiceKT $,No service selectedA@*|@k8qry_ListPatientWithConditionKT $,No condition selectedA@*|k!qry_ListPatientOnMedWithConditionKT====== $, $,'Need to select both a condition and medA@* 1a - |Hk@ qry_ListPatientNotReceiveServiceKT $,====No service selectedA@*==|k; ------------- QRY_ServiceReferral_status -----------------(SELE%qry_ListPatient_ServiceReferralStatusKT5 6/07,jgWHER $,rtsTNo service selectedA@*|kqry_ListPatientReceiveLabKT $,;No lab selectedA@*tiveLa|k'qry_ListPatientReceiveLabWithLastValue2KT4+++++9/2002,dlkat $,any Need to enter a labA@*|(k  =KTi`K$[c_cod B"j"$ch 8_='8k>=KTLatest B"j"$Criteria is not a numberA@*absLat|dx 8_>'8k`<KTe In ( B"j"$Criteria is not a numberA@*|d 8_<'8kn"qry_ListPatientWithConditionAndLabKT $, $,$Need to select a condition and a labA@*|`kX%qry_ListPatientWithConditionAndNotLabKT $, $,$Need to select a condition and a labA@*|k qry_ListPatientWithServiceAndLabKT $, $,"Need to select a service and a labA@*|XkPqry_ListPatientNoServiceAndLabKT $, $,"Need to select a service and a labA@*|kSn"----------------------------------Vhere the custom queries are run, calculate button made invisible for user made queries 8$rpt 8$lst 8$rpt MsgBox "trying"frmCountPatients  VB@ DoCmd.Maximize 8$lstefrmListPatients  VB@ DoCmd.Maximizek #-----------------------------------prebuilt queries are run here 8QRY_SummaryDepression2erptSummaryDepression  VB@ 8QRY_SummaryDepression2_PCPerptSummaryDepression  VB@ 8QRY_SummaryDiabetes2erptSummaryDiabetes  VB@F3since dm-2 or dm-1 can't use cmbCondition like aphs 8QRY_SummaryDiabetes2_PCPeF%same report just different row sourcerptSummaryDiabetes  VB@ 8!QRY_rptWSC_Diabetes_Core_MeasureserptWSC_Diabetes_Core_Measures  VB@ 8QRY_rptWSC_APHS_Core_MeasureseAPHS B"j)G this will load the APHS patientsrptWSC_APHS_Core_Measures  VB@d($------------------------------------>here are other reports they do not have "qry" in front of name 8 VB@ VB@k|xp ( KT(error from cancelling do command ignored(KT(error from cancelling do command ignored KT6Non-numeric entries in labs. Run query to find errors.A@* S (!,  (!.A@*`nXoPp@ VB@Bolic/D(|  (!.A@*blo]]0]P$ .6ic_c tlkpDefaults 6%V. tlkpClinic 6%V. B@\====== "  B"j)==== B@\ "  )l$defaultct !Xag K " " ER "mp " )ld " )lk x d B@`k "B@~@ )zULEFT Z )xtVioX p  If date Opt Button is selected= (\mo.cha (\= QRY_ (\ate.ch (\))  t(\@  v(\======d  (\====== (\3SE (\(tblRe (\type_od B"j" Z$<'tsTem t(\(tblRe v(\type_o Z'vk o ]]](]@ .6=adding code to handle multiple raw codes for one working code_codCif multiple then need to allow user to select between the raw codes1.char5rst returns the working codes with multiple raw codess ta9if recordcount=0 then only need to show the working codesHif not eof and bof (recordcnt>0) then show col headings and widen columnrdmake all dropdowns invisible====== $(\~" (\ &(\  (\_ ((\qActiv (\atest3 *(\mo.cli (\ qActi (\Latest (\ode)  r%$ ,$ $'"r "Cce aK$[$(\hart_n (\' 5SELECT tlkpCrosswalk.working_code FROM tlkpCrosswalk *WHERE (((tlkpCrosswalk.type_code) = 'Dx'))$GROUP BY tlkpCrosswalk.working_code 1HAVING (((Count(tlkpCrosswalk.working_code))>1));'L L 6%V.  !X !Z Labd Dresize the box there's two Dxs for at least one of the working codes) AS@ (< (.portsTkk "Mpe &(\);  (\~ 5SELECT tlkpCrosswalk.working_code FROM tlkpCrosswalk *WHERE (((tlkpCrosswalk.type_code) = 'Rx'))$GROUP BY tlkpCrosswalk.working_code 1HAVING (((Count(tlkpCrosswalk.working_code))>1));'L L 6%V.  !X !Z Sped Eresize the box there's two meds for at least one of the working codesen@ (her (.5SEkk "L_o ((\ountLa (\OM tbl 5SELECT tlkpCrosswalk.working_code FROM tlkpCrosswalk +WHERE (((tlkpCrosswalk.type_code) = 'Lab'))$GROUP BY tlkpCrosswalk.working_code 1HAVING (((Count(tlkpCrosswalk.working_code))>1));'Lic_cod L 6%V. mo.c !X !ZeLabd Eresize the box there's two labs for at least one of the working codeslo@ (")"= (.===kHk@ "S *(\JOIN q (\th1 ON 5SELECT tlkpCrosswalk.working_code FROM tlkpCrosswalk /WHERE (((tlkpCrosswalk.type_code) = 'Service'))$GROUP BY tlkpCrosswalk.working_code 1HAVING (((Count(tlkpCrosswalk.working_code))>1));'Lt L 6%V. 0 !X !ZHd Iresize the box there's two services for at least one of the working codesty@ (t (.lth kxkp "Vtb (\vices  (\8 lk8o0`Ao]] $ .69 nu tlkpClinic 6%V.es B@\ versi B@\ "  )l$default !Xa " "  "Di " )ld@ " )lk(x d B@`e querk "B@~hoo@1updates the default end date to match for period2 "v )od B"j" Z$< B"j)tPoH@Attribute VB_Name = "Form_frmReports" Bas0{87CD04F6-06D6-443B-8AFC-0ADF37A4414A} |GlobalSpacI False dCr@eatablTru PredeclaId"Expose_Template DerivCustomizD$ Optio@n CompC fDW  ?licitP26 Sub btn Run_Ck() Dim @responAHs Sng str On Error GoTo_*Cancel'echks selecting a query!If Le$n(zs!{!lstQ@ ies) < 1 ThenC )= MsgBox("You mI pick to run", vbCritical +OKOnlyA=@ExitAED6E&S2@Nnicl'CA'cli@(+2*,End \If]d{s~:4Not (Ise]txt StartA))$ AMeb <> "QRY_rptWSC_APHS_Core_Measue" jGjEnter valid@ze_ 4`  `DIIe A6"Xkwa4 @2 Diff("d .ag2, '6 > 0/c "b, should be less@ than @xequ`ce AF`.:*D'wy_dedC< C!  'built-in iA,v-rc""qry_Li@stPatiO0nMed?IsNull(cmb-@)k @ Ą "No mp?+"@`jRece Service<sD  a5WithCond@onc A'ab9Or  ep/Ne`-WbothW a!A \)G 0@>g TZ* ~ f D6 - [Refyal_statusAS/8_ >R/PF" ' 6/07,jZ_::__3 aY &DL|abO1sD0lab0y  0LastValue2'+9/2002,dlkz% 0wa O/IY ]9ResultOperrq=1P Num0cOe2{usiQ& "_os Q >/#[ 3r-(-? !? %tuqa i s notKnumber' ѭ >ow #<t,_|C5źc#fJs028pV) sq8Nsa Qs/D%?{  Hr JonditionAndNotLa b" If IsNull(cmbC) Or\d) Thenn|MsgBbK$[ox "Need to selec t a c a4ndl r:Ex@it SubPE )IfCase "qry_ListPatientWithService$-ViewPrev %*_PCPL]iabetesa[e4'since dm-2 @i1`nn'tj ɾ like ap|hs?#'$ )'@same r3jA diff nt row sourc]Z:4c:A3WSC_D_Core_Measures:axïJ}APHSAs!@cZs! 4 A"-'this will loa! pStL  ;/a/b-Ba`oar"saby do notP havC"` fro #of n%C; Q`ey <Tuo_Click:q Err_btnCa3lo C2501 'e,rr5p m5cella coLShign(d Resu1900?OOOO 34 644l("Non-nric #yin Ps.P Runb[yfip s.") NB"1D.Number &$ "& !Descrip ?0  Priv1 0N@dClose( OnGoTo_cm93 S2A##OI/(aC_!(C+ As IntegertDim dbqDAO.Datab`rstDefaultsERecordsetZ@3nicGbaASetA= Curr%Db)=p2F("tlkp5 &tH#u# .MoveFiW3? = B[]![c>ic_dS]cSSaMe!txt) ' Do Until EOFS!(! G code&]? 1LenCPLs])oO 67 B  O@ ; Doo_Nex/acLoopG ".ReayAC hidden_start_dI= #1/900#!endu ;@NfraOptPodN] If fraOptPeriod = 1 Th en ' date p Button is selected  lblLastDays.Visible FalseHtxtHd$IStarJteJTruI$EndD"lG#E _:q L(qQ v$Add("d", -(Forms!frmReports!ш)), A )G%G '@ Q'D' Sub PrivA lstQues_Click()Dim strShowList As String.rDAO.Reco`rdsetQrLRdbFabaSet = CurrentD@,B'add! code to hand@multipraws for one worFkE if F t!needallow userA betwe;@ @returns s withG r'count=0!nly %s0 not eof ! b($ nt>0) bcol hea'swid1umn 'make " dr opdowinvfcond`ition ScmbC\Med Lab7 Servic G Res@OOper jr4wFpValuu*n= UCc$(Trim$(u.Col7(4))EvInt(, "C")Τ i6K7! @|= "SELECT tlkpCrosswalk.a_uFROM " _& "WHE@RE (((t(ypeb) 'Dx'))-GRO`UP BYmHAVING Coi))>1))\;"A=.?n/QLEW@.EOF And BQGq 'resiRz NheP=xq? 40((ng(*((-(R( "(0((o4a4((x((.(E(o(med( (es"_('w'fd''L'id'[]P /(/(/(R/(/(/( P?(XP\3?(?(?(a1?(?( ?(<(lab?(?(d?(ba?( @*?( ?(?(?yr?(bl~(/( ((((y~P ((((ycOy`u0kdbySyB(((b(vices for at least one of the working cod es cm bServ.Width = 2880HColumnHeadsTTrueTEnd8 If If InStr(strShowList, "V") Then%LabResultOperater.Visibl"evtxt,Value H4 Sub P(riv4  lstQueries_DblClick(Cancel Asbteger) Call btnRun_  )Selectnic_AfkUpd9(%& Dim rs8DAO.RecordsetdbDat0abasDcCSet @= CurrentDbWA=@ .ZnF@("tlkp*"B: J.MopveFiMe!lC8=  'defa@~ Do UntilF.EOFC 5 ([ ']![clliZ] )#LLenCoDmmPs]) ?J05",ElmA)6L)q Exit Doj';NexMZ|Loopc _`f[Vq@hyG*cmB Xeb 'ubdsbdC e@!g to `match`iod2A#(hidden__EM/ u`L daysForms!frmReports!ZStartALAdd("d", -(e ), Fl@A cK$[SNNJBQCOKIXNTDHDSNKDDLOCFLWF:oVECPPIMCTHQUNDQJWPBBEZMCTRTG:VHZWNGEEAHPLIEOBFRFZBYINQSF_:b XGPTCKMZVHDPNDITXSAZGPZKYYHJ:#$(@> =xME PS<S<S<<<<<<JXFN0{ECB28463-B520-4616-AD8B-341C152876BD}H j@ p x  ~@V 8 vT X`L` "`tRes`Me x % \ % Hz %`\`Me``] = 68\%`N ave R 0`L"` `>K`\ PMe % pMe % H" %`"``"`\ 6] = %`N] = `L` "`tRes`Me  % \ % H( %`\`Me``] = 6\%`N <= x  " % @] =  % H`] =  %`)z`h```L"`\`] = ` tRes`"`\, 6pNeed% @ P `L `dK$[ `"`tRes p Me %  " % H Age  %`AndL`"`tRes`Me 60 %`N\--  `L\nv` Me``] =  )l % (  % HH Pati %`"`\`] = `tRes`" 6 \%`Nr--  `LMe` ryDe`"` ave  =K %  " % H ] =  %`] = `\r `)` 6x "%`N] =  D > % 6iabe%`8\` ] = `tRes`"`\PH   P    P    8%o  "8 &X "  " "( "08Xx "  "    ( 8 Xx     (8H  hx   (8 H h    8HX  x    (8H X x  ( Hh   "       8HX  p  eK$[   ( 8 H h         0 @ P h x          "  (  8 H  P ` p          0 P p         0  P ` p         0 Pp     0@  `p    0@P `    " @ N (h . b D( Fp 0 .  (H8`. D:(hp  x"     ,(X  Vx       \ Lx ( p      @P h x d   (*8 h*p  4 Z0 *   & ( *  *(X`  h Nx       ( 8 H X p      2 ( 8 @  H h  p "x         !(!8!   X!h!x! ! !!!!  ""(" 8" X"x""  """ " "#(#8#  X#h#x# # ####  $$($ 8$ X$x$$$  $$$ $ %(%8%fK$[H% h%x%%%% % %%& &  & "(& @0& Np& (& 0& b' F' F' 2( .H( x((((8(.(()0)8) D@):)))  )") * *  0* P*h*,**  V* H0+ x+ &+ &+ +  ^+ LX, (,h.   P../  // / //00 0(000 @80x0 0 0 00@0  2*2H2P2 X2h2 p2 $x2 2002  3*3 4 4(4*04`4 h4x4  4 N4 4 4 5 5 5 05 @5 P5 `5 p5 5 55 5 5  55 526 @6P6X6`6h6 p66 6 "6 @6 N6 (87 0`7 b7 F7 F@8 28 .8 889 9889.p9999 D9::@:H:  P:"`: : :  : ::,;0;  VP; H; ; &< &8< `<  ^p< L< ( => ??  ?? @ @(@0@H@P@X@`@  @h@@ @ @ t@ XA (hA :A &A JA HB JXB B BB B C C*CDD D(D 0D 8D HD  $D E(E E*E F(F0F 8F@FHF*PFFF  F NF F G G G 0G @G PG `G pG G G GG G G  GG H2H PH`H hH pHH H "H (H (H 0H d(I FI FI 2 J .XJ 8J.JJ JK$K0K8K @K`K xKKKK K"K gK$[K K K L(L,HLxL  fL @M (@MO  P OpO8P  PP`P xP PPPPPPP  "P Q  Q   8Q PQ pQ Q QQQQ Q QQ  4R 8RXRR`R  RR R >R S  S T   T 8T pXT T  T NT @U PU hU xU U U U U U U U V V V 8V  @VPV XVpVxV VV V "V VV "V @V NW &hW (W ,W <W (X0X8XXX8pX.XXXX DX:8YxYY  Y"Y Y Y   Y ZZ,8ZhZ  ZZ Z[[[$ [ H[ P[ `[  fp[ @[ \ \ \] ](]0]*8]h]  @p]] ] ] b] :P^( ^  _ _(,_ a*a@aHaPa  Xa`a "paPa c*ccc dd  d dH (d  f H(fHpfhh  ph HhHhj  j HjH km  m H0mHxmpo   xo*oooo oo*opp  p N(p xp p p (p p p p q q (q @q Pq`q hq q  qq q2q qr r r8r @r "Hr @Pr Nr (r 0s b8s Fs Fs 20t .ht tttt8t.uHuPuXu`u Dhu:uuu  v"v 8v @v  Xv >xvv vv,v w  V@w Hw w &x &(x Px  ^`x Lx (yz   Pz8{| hK$[ |(| @| P|`|h||||| @|| | } $} @}0@`}  ~*~~~ ~   :0$p 0 00  *@HP X`h*p  N    0 @ P ` p   0Ȃ,H(h(   P@X  p     ؆   @8zP Ї  ~   NЈ 0 @ P `p   ȉ ؉    0 82P  Ȋ Њ  " @ NH ( . b DX F 0 . HPXx8.ȍ D:X  "       8,X  V D Xx 2 Ȑ      \А L0 (H `(  @P h x  @Ȕ  0 x@  ؕ x* Ȗ Жؖ   * ( 8HP X ` p &( P` (*0 `px *ȚК  ؚ N 8 H X h x    ț    (  0@ H2`   ؜  "  8 H $P x ȝН ؝   , @ ,X  iK$[    (@,H>x ȟ؟ 2  8 H nP  Рؠ( ((P(X   ( J L P ` x (Т$@ Xxȣ     ( 84X   Ȥ Ф    "@H Pp  x "    ȥ إ     0@H "PX` hx  " "Ȧ$Ц " "($0X "`h", "(06H, " " H `,  "ȩЩ6 0P,Xxp "l!\ "l(\ . "n!\ "n(\( Call cmbDemoOperator_AfterUpdateox@ "r!\ "r(\ "t!\ "t(\9AvCall txtResult1_AfterUpdateCall txtResult2_AfterUpdateo "z!\ "z(\ "|!\ "|(\ens A~ox "!\ "(\  "!\ "(\6o( ) )z #KT "(\ "(\Me![txtResult1] = ""Me![txtResult2] = "" "(\ "(\ " numeric )zAvgKT "(\ "(\Me![txtResult1] = ""Me![txtResult2] = "" "(\ "(\ " average )z=KT "(\ "(\Me![txtResult1] = ""Me![txtResult1] = "" "(\ "(\ " =  )z>KT "(\ "(\Me![txtResult1] = ""Me![txtResult1] = "" "(\ "(\ " >  )z>=KT "(\ "(\Me![txtResult1] = ""Me![txtResult1] = "" "(\ "(\ " >=  )z<KT "(\ "(\Me![txtResult1] = ""Me![txtResult1] = "" "(\ "(\ " <  )z<=KT "(\ "(\Me![txtResult1] = ""Me![txtResult1] = "" "(\ "(\ " <=  )zbetweenKT "(\ "(\ "(\ "(\Me![txtResult1] = ""Me![jK$[txtResult1] = "" "  )zSxnpoh@ ) )l >KT "(\ "(\Me![txtResult1] = ""Me![txtResult1] = ""tWithC "(\K "(\,Age > )l$Need>=KT a con "(\ab "(\Me![txtResult1] = ""tWithCMe![txtResult1] = ""$, "(\ "(\leAge >= )l lab<KT "(\y_ "(\hSMe![txtResult1] = "" $Me![txtResult1] = "" a ser "(\A@ "(\Age < )lstPati<=KTceAndL "(\, "(\Me![txtResult1] = ""ce andMe![txtResult1] = "" "(\ "(\--Age <= )l----betweenKT "(\ar "(\te "(\nv "(\r Me![txtResult1] = ""Me![txtResult1] = ""lstAge )lSno )" )rPati #KT "(\xi "(\Me![txtResult1] = ""frmLMe![txtResult2] = "" "(\xi "(\ " numeric )r--AvgKT "(\ q "(\ hMe![txtResult1] = ""yDepreMe![txtResult2] = ""maryDe "(\V "(\ " average )r=KTmaryDe "(\V "(\Me![txtResult1] = ""rptSMe![txtResult1] = ""F "(\r " =  )rn like>KT8 "(\be "(\FMe![txtResult1] = ""nt rowMe![txtResult1] = ""etes "(\ "(\tW " >  )re>=KT_Diabe "(\re "(\Me![txtResult1] = ""re_MeaMe![txtResult1] = ""B"j "(\ w "(\PH " >=  )r_APHS_<KTres  "(\ "(\--Me![txtResult1] = ""------Me![txtResult1] = ""er rep "(\ot "(\ f " <  )r<=KT "(\ "(\Me![txtResult1] = ""r fromMe![txtResult1] = ""ored "(\ "(\ " <=  )r strinbetweenKT "(\? "(\(F "(\Se "(\.[Me![txtResult1] = ""mm/dMe![txtResult1] = ""' & qA "  )rS@n8o0:form opens and accepts values to store custom report linesHcustom line is anything other than a count of patients with selected labic"New Line can be one of three types(A: Other labs like this already selectedsL[ section_order = section_order of other labs, display_order= display_order of others + 1o serv>B: Other labs selected already, but this is first of this type rst@ section_order = max section_order used + 1, display_order = 1*C: this can be the first lab item selected' section_order = 1, display_order = 1]]]0 working codeL]H raw_code]`))gets info for exisiting section if exists]#gets info to create new section]]]] 6holds what's in list boxt and on report (display_text)'] +holds string criteria e.g., :".[ha1c])<=10"sswalk] ]@ .6reate tblReportsTemp 6%V.Hhung wTH create criteria-------------------------code from addlabic  B""!iveSer  B""%'D working code====  B""%'==Oif setting several lab values at once - need to change txtDisplay between items B""!!. ===='  )====Avk Vthis code assumes a section exist for the new item already and finds the section_orderp.tyEif the section_order not found will assign new section order as max+1 JSELECT tblkK$[ReportsTemp.section_order, Max(tblReportsTemp.display_order) AS LMaxOfdisplay_order, tblReportsTemp.raw_code, tblReportsTemp.section_heading VFROM tblReportsTemp GROUP BY tblReportsTemp.type_order, tblReportsTemp.section_order, 8tblReportsTemp.raw_code, tblReportsTemp.section_heading NHAVING (((tblReportsTemp.type_order)=8)AND ((tblReportsTemp.section_heading)= ' '));'Lmp L 6%V.se?SELECT Max(tblReportsTemp.section_order) AS MaxOfsection_order 7FROM tblReportsTemp GROUP BY tblReportsTemp.type_order )HAVING (((tblReportsTemp.type_order)=8));'L L 6%V.e se ! " ' "'] !e fo' " 'd''k9============================Criterias==================== " "ded to#KTone" c$Iif(IsNumeric([qActiveLabsLatest3].[  ],True) AS [  ] )qdf =KTServic "$ "  )L "e "' "' )======dCriteria invalid. 2 0 $*'N qActi|XkPbetweenKT "$ "$between " AND  " )Dist " "ebetween ' "'and ' "' )%VdhCriteria invalid. 2 0 $*'N>TRANk0avgKTed].avg )Shere for <,<=,>,>=,= operatorsd. " qAc $Iif(IsNumeric([qActiveLabsLatest3].[  ] AND CInt([qActiveLabsLatest3.[ ]) " " ,True) as [  ] )d Criteria invalid. 2 0 $*'N`kndCriteria invalid. 2 0 $*'Np.Reco|k HB@arrayrpt0 H)(8"rpt0" is default for rstTemp - never used in tblReports H)Labs H)  H)sswa  H)  H)$ "r H)^  H)fo " H) HB@Active B""B@~  VB@Bthe gr|h==========================T@ (!,]  KT in dat base skip(A duplicate was already in report designA@* VB@B|S (!,  (!.A@*noX ) ) #KT "(\ "(\Me![txtResult1] = ""Me![txtResult2] = "" "(\ "(\ " numeric )AvgKT "(\ "(\Me![txtResult1] = ""Me![txtResult2] = "" "(\ "(\ " average )=KT "(\ "(\Me![txtResult1] = ""Me![txtResult1] = "" "(\ " eq  )>KT "(\ "(\Me![txtResult1] = ""Me![txtResult1] = "" "(\ "(\ " >  )>=KT "(\ "(\Me![txtResult1] = ""Me![txtResult1] = "" "(\ "(\ " >=  )<KT "(\ "(\Me![txtResult1] = ""Me![txtResult1] = "" "(\ "(\ " <  )<=KT "(\ "(\Me![txtResult1] = ""Me![txtResult1] = "" "(\ "(\ " <=  )betweenKT "(\ "(\ "(\ "(\Me![txtResult1] = ""Me![txtResult1] = "" "  )Sno:form opens and accepts values to store custom report linesHcustom line lK$[is anything other than a count of patients with selected lab"New Line can be one of three types*A: Other Vitals like this already selected\ section_order = section_order of other vital, display_order= display_order of others + 1@B: Other vitals selected already, but this is first of this type@ section_order = max section_order used + 1, display_order = 1,C: this can be the first vital item selected' section_order = 1, display_order = 1]]] working code]  raw_code]8))gets info for exisiting section if exists]X#gets info to create new section]x]]] 6holds what's in list boxt and on report (display_text)] +holds string criteria e.g., :".[ha1c])<=10"]] .6tblReportsTemp 6%V.HTcreate criteria-------------------------code from add bmi  B""!  B""%'D working code  B""%'Oif setting several lab values at once - need to change txtDisplay between itemsAIf Forms!frmCountPatients!lstAllLabs.ItemsSelected.Count > 1 Then chkAutoLabel = False Me!txtWorking_code = strItem Call cmbOperator_AfterUpdateEnd IfWthis code assumes a section exists for the new item already and finds the section_orderEif the section_order not found will assign new section order as max+1 JSELECT tblReportsTemp.section_order, Max(tblReportsTemp.display_order) AS LMaxOfdisplay_order, tblReportsTemp.raw_code, tblReportsTemp.section_heading VFROM tblReportsTemp GROUP BY tblReportsTemp.type_order, tblReportsTemp.section_order, 8tblReportsTemp.raw_code, tblReportsTemp.section_heading HHAVING (((tblReportsTemp.type_order)=2) AND ((tblReportsTemp.raw_code)= ' '));'L L 6%V.Ifinds the last section already prsent so can assign new section if needed?SELECT Max(tblReportsTemp.section_order) AS MaxOfsection_order 7FROM tblReportsTemp GROUP BY tblReportsTemp.type_order )HAVING (((tblReportsTemp.type_order)=2));'L L 6%V. ! " ' "' !e' " 'd''k9============================Criterias==================== " "betweenKT "$ "$  9IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,"Forms![frmReports]![txtEndDate]) +2Int(Format(Forms![frmReports]![txtEndDate],'mmdd')%,>= operators "  9IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,"Forms![frmReports]![txtEndDate]) +2Int(Format(Forms![frmReports]![txtEndDate],'mmdd') 1 Then chkAutoLabel = False Me!txtWorking_code = strItem Call cmbOperator_AfterUpdateEnd IfWthis code assumes a section exists for the new item already and finds the section_orderEif the section_order not found will assign new section order as max+1 JSELECT tblReportsTemp.section_order, Max(tblReportsTemp.display_order) AS LMaxOfdisplay_order, tblReportsTemp.raw_code, tblReportsTemp.section_heading VFROM tblReportsTemp GROUP BY tblReportsTemp.type_order, tblReportsTemp.section_order, 8tblReportsTemp.raw_code, tblReportsTemp.section_heading NHAVING (((tblReportsTemp.type_order)=3)AND ((tblReportsTemp.section_heading)= ' '));'L L 6%V.?SELECT Max(tblReportsTemp.section_order) AS MaxOfsection_order 7FROM tblReportsTemp GROUP BY tblReportsTemp.type_order )HAVING (((tblReportsTemp.type_order)=3));'L L 6%V. ! " '? "' !e' " 'd?''k?9============================Criterias==================== " "#KTIIf(IsNumeric([qry_LatestBMI].[  ]),True) AS [  0#$] )Case "="! If IsNumeric(Me!Result1) Then4 Me!txtCriteria = Me!cmbOperator & txtResult1 ElseIf Len(Me!Result1) ThenC Me!txtCriteria = Me!cmbOperator & "'" & Me!txtResult1 & "'" ElseD response = MsgBox("Criteria invalid.", vbCritical + vbOKOnly) Exit Sub End IfbetweenKT "$ "$ )IIf(IsNumeric([qry_LatestBMI].[bmi]) And CSng([qry_LatestBMI].[bmi])between  " AND  " ,True) AS [  0#$] )d(<Criteria invalid. 2 0 $*'N''BMI 'z|;k;avgKT IIf(IsNumeric([qry_LatestBMI].[ ]),[qry_LatestBMI].[ ],Null) as [ ~avg 0#$] )Shere for <,<=,>,>= operators "$ IIf(IsNumeric([qry_LatestBMI].[ ]) AND CInt([qry_LatestBMI].[ ]) " " ,True) as nK$[[  0#$] )d:Criteria invalid. 2 0 $*'N'A~|9k9n9d9Criteria invalid. 2 0 $*'N|x9kp9 HB@rpt0 H)(8"rpt0" is default for rstTemp - never used in tblReports H)Labs H)  H)  H)  H) "z H)^  H) " H) HB@ B""B@~  VB@B|@8==========================T8 (!, KT in dat base skip(A duplicate was already in report designA@* VB@B|7S7 (!,  (!.A@*nh7o`7"=================================="New Line can be one of three types*A: Other vitals like this already selected] section_order = section_order of other vitals, display_order= display_order of others + 1@B: Other vitals selected already, but this is first of this type@ section_order = max section_order used + 1, display_order = 1,C: this can be the first vital item selected' section_order = 1, display_order = 1]))gets info for exisiting section if exists](#gets info to create new section]H]h]]for creating criteria]]] working code] raw_code]](]@]X .6tblReportsTemp 6%V.HT(4create criteria-------------------------code addvitals  B""!  B""%'E working code  B""%'`this code tests if a section exists already for the new item already and finds the section_order:and last item display_order for what is inside the section JSELECT tblReportsTemp.section_order, Max(tblReportsTemp.display_order) AS LMaxOfdisplay_order, tblReportsTemp.raw_code, tblReportsTemp.section_heading VFROM tblReportsTemp GROUP BY tblReportsTemp.type_order, tblReportsTemp.section_order, 8tblReportsTemp.raw_code, tblReportsTemp.section_heading NHAVING (((tblReportsTemp.type_order)=3)AND ((tblReportsTemp.section_heading)= ' '));'L L 6%V.Ifinds the last section already prsent so can assign new section if needed?SELECT Max(tblReportsTemp.section_order) AS MaxOfsection_order 7FROM tblReportsTemp GROUP BY tblReportsTemp.type_order )HAVING (((tblReportsTemp.type_order)=3));'L L 6%V. ! " ' "' !e' " 'd@/''k(/===========================now get cell entries ----------- ----------- Select Case strItem Case "Blood pressure" ========== "/and ' AND 'd(./or ' Or 'k.. are there entries for diastolic and systolic? "$ "$d-Invalid blood pressure entries 2  Invalid Entries$*' VB@B|0-k(- BP "   " "' 6IIf([QRY_Latest_BP_>Systolic/Diastolic2].[bp_systolic] "  3[QRY_Latest_BP_>Systolic/Diastolic2].[bp_diastolic]  " ,True) As [BP 0#$]'  )MsgBox criteria +++++++++++++ Case "Body Mass Index"i criteria = "IIf(IsNumeric(QRY_LatestBMI.BMI), True) as [bmi" & 3 & Format(display_order, "0#") & "]" End Select HB@rpt0 H)(8"rpt0" is default for rstTemp - never used in tblReports H)oK$[Vitals H)  H)  H)  H)  H)^  H)  H) HB@ B""B@~  VB@B|)==========================T) (!, KT in data base skip)S) (!,  (!.A@*nX)oP)x VB@Bo0):form opens and accepts values to store custom report linesHcustom line is anything other than a count of patients with selected lab New Line can be one of two types!A: Other services already entered&B: this is first service item selected6 all services in section 0 no section_heading stored]] ]( working code]@ raw_code]X ))gets info for exisiting section if exists]x #gets info to create new section] ] ] ] 6holds what's in list boxt and on report (display_text)] +holds string criteria e.g., :".[ha1c])<=10"] ]8 .6tblReportsTemp 6%V.HT8&create criteria-------------------------code from addlab  B""!  B""%'H working code  B""%'Tif setting several services values at once - need to change txtDisplay between items B""!!. 'AA "betweenGAjk$  )  )`this code tests if a section exists already for the new item already and finds the section_order:and last item display_order for what is inside the section?SELECT Max(tblReportsTemp.display_order) AS MaxOfdisplay_order 7FROM tblReportsTemp GROUP BY tblReportsTemp.type_order )HAVING (((tblReportsTemp.type_order)=7));'L L 6%V. ! " ''d"''all service section_order=0k"9============================Criterias==================== " "#KT \IIf(Len([flu vac])>14,Mid([flu vac],13,Len([flu vac])-14), Null) = the results from qALSrvc3 4Me!txtSrvcCriteria = "Iif(IsNumeric( ),true) as []"   Iif(IsNumeric("IIf(Len([qActiveServicesLatest3].[ ])>14,Mid([qActiveServicesLatest3].[ ],13,Len([qActiveServicesLatest3].[  ])-14), Null) ),True) as [  0#$] )=KTtext or numbers " IIf("IIf(Len([qActiveServicesLatest3].[ ])>14,Mid([qActiveServicesLatest3].[ ],13,Len([qActiveServicesLatest3].[  ])-14), Null)=' "' ,True ) As [  0#$] )dCriteria invalid. 2 0 $*'N'A|kbetweenKT "$ "$$ %+3IIf (Isnumeric("IIf(Len([qActiveServicesLatest3].[ ])>14,Mid([qActiveServicesLatest3].[ ],13,Len([qActiveServicesLatest3].[  ])-14), Null) ) And csng("IIf(Len([qActiveServicesLatest3].[ ])>14,Mid([qActiveServicesLatest3].[ ],13,Len([qActiveServicesLatest3].[  ])-14), Null) ) between  " AND  " ,True ) As [  0#$] )d@Criteria invalid. 2 0 $*'N''A|kavgKT  %+IIf(Isnumeric("IIf(Len([qActiveServicesLatest3].[ ])>14,Mid([qActiveServicesLatest3].[ ],13,Len([qActiveServpK$[icesLatest3].[  ])-14), Null)), Csng("IIf(Len([qActiveServicesLatest3].[ ])>14,Mid([qActiveServicesLatest3].[ ],13,Len([qActiveServicesLatest3].[  ])-14), Null) ),Null ) As [ ~avg 0#$] )>=KT "$40len 14 because qservice3 rsult "mm/dd/yyyys(ss)"  %+IIf(Isnumeric("IIf(Len([qActiveServicesLatest3].[ ])>14,Mid([qActiveServicesLatest3].[ ],13,Len([qActiveServicesLatest3].[  ])-14), Null) ) And Csng("IIf(Len([qActiveServicesLatest3].[ ])>14,Mid([qActiveServicesLatest3].[ ],13,Len([qActiveServicesLatest3].[  ])-14), Null))>= " ,True) As [  0#$] )k>KT "$40len 14 because qservice3 rsult "mm/dd/yyyys(ss)"  %+IIf(Isnumeric("IIf(Len([qActiveServicesLatest3].[ ])>14,Mid([qActiveServicesLatest3].[ ],13,Len([qActiveServicesLatest3].[  ])-14), Null) ) And Csng("IIf(Len([qActiveServicesLatest3].[ ])>14,Mid([qActiveServicesLatest3].[ ],13,Len([qActiveServicesLatest3].[  ])-14), Null))> " ,True) As [  0#$] )k8<=KT "$40len 14 because qservice3 rsult "mm/dd/yyyys(ss)"  %+IIf(Isnumeric("IIf(Len([qActiveServicesLatest3].[ ])>14,Mid([qActiveServicesLatest3].[ ],13,Len([qActiveServicesLatest3].[  ])-14), Null) ) And Csng("IIf(Len([qActiveServicesLatest3].[ ])>14,Mid([qActiveServicesLatest3].[ ],13,Len([qActiveServicesLatest3].[  ])-14), Null))<= " ,True) As [  0#$] )k<KT "$40len 14 because qservice3 rsult "mm/dd/yyyys(ss)"  %+IIf(Isnumeric("IIf(Len([qActiveServicesLatest3].[ ])>14,Mid([qActiveServicesLatest3].[ ],13,Len([qActiveServicesLatest3].[  ])-14), Null) ) And Csng("IIf(Len([qActiveServicesLatest3].[ ])>14,Mid([qActiveServicesLatest3].[ ],13,Len([qActiveServicesLatest3].[  ])-14), Null))< " ,True) As [  0#$] )kSCriteria invalid. 2 0 $*'N'A|8n0d(Criteria invalid. 2 0 $*'N|k HB@rpt0 H)(8"rpt0" is default for rstTemp - never used in tblReports H)Services H)  H) !rstTemp!section_heading = strItem  H) " H)^  H) " H) HB@ B""B@~  VB@B|==========================Tp (!, KT in dat base skip(A duplicate was already in report designA@* VB@B| S (!,  (!.A@*n o P :form opens and accepts values to store custom report linesHcustom line is anything other than a count of patients with selected lab"New Line can be one of three types*A: Other Vitals like this already selected\ section_order = section_order of other vital, display_order= display_order of others + 1@B: Other vitals selected already, but this is first of this type@ section_order = max section_order used + 1, display_order = 1,C: this can be the first vital item selected' section_oqK$[rder = 1, display_order = 1] ] ] working code] raw_code] ))gets info for exisiting section if exists] #gets info to create new section]0 ]P ]h ] ] 6holds what's in list boxt and on report (display_text)] +holds string criteria e.g., :".[ha1c])<=10"] ] .6tblReportsTemp 6%V.HT create criteria-------------------------7need three sections oneeach for age, insurance and race xageKT  B""!  B""%'D working code  B""%'Oif setting several lab values at once - need to change txtDisplay between itemsAIf Forms!frmCountPatients!lstAllLabs.ItemsSelected.Count > 1 Then chkAutoLabel = False Me!txtWorking_code = strItem Call cmbOperator_AfterUpdateEnd IfWthis code assumes a section exists for the new item already and finds the section_orderEif the section_order not found will assign new section order as max+1 JSELECT tblReportsTemp.section_order, Max(tblReportsTemp.display_order) AS LMaxOfdisplay_order, tblReportsTemp.raw_code, tblReportsTemp.section_heading VFROM tblReportsTemp GROUP BY tblReportsTemp.type_order, tblReportsTemp.section_order, 8tblReportsTemp.raw_code, tblReportsTemp.section_heading HHAVING (((tblReportsTemp.type_order)=2) AND ((tblReportsTemp.raw_code)= ' '));'L L 6%V.Ifinds the last section already prsent so can assign new section if needed?SELECT Max(tblReportsTemp.section_order) AS MaxOfsection_order 7FROM tblReportsTemp GROUP BY tblReportsTemp.type_order )HAVING (((tblReportsTemp.type_order)=2));'L L 6%V. ! " ' "' !e' " 'dx''k`9============================Criterias==================== " "betweenKTAge'%only used for age "$ "$  9IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,"Forms![frmReports]![txtEndDate]) +2Int(Format(Forms![frmReports]![txtEndDate],'mmdd')%,>= operatorsAge'&other than = only used for age "$  9IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,"Forms![frmReports]![txtEndDate]) +2Int(Format(Forms![frmReports]![txtEndDate],'mmdd')B: Other labs selected already, but this is first of this type@ section_order = max section_order used + 1, display_order = 1*C: this can be the first lab item selected' section_order = 1, display_order = 1]@ ]X ]p working code] raw_code] ))gets info for exisiting section if exists] #gets info to create new section] ] ] ]0 6holds what's in list boxt and on report (display_text)]H +holds string criteria e.g., :".[ha1c])<=10"]` ] .6tblReportsTemp 6%V.HTqcreate criteria-------------------------code from addlab  B""!  B""%'D working code  B""%'Oif setting several lab values at once - need to change txtDisplay between items  )  )!1this causes the text to advance to next selection B""!!. 'AvA%&this is to force refreshing txtDisplayAk0oVthis code assumes a section exist for the new item already and finds the section_orderEif the section_order not found will assign new section order as max+1 JSELECT tblReportsTemp.section_order, Max(tblReportsTemp.display_order) AS LMaxOfdisplay_order, tblReportsTemp.raw_code, tblReportsTemp.section_heading VFROM tblReportsTemp GROUP BY tblReportsTemp.type_order, tblReportsTemp.section_order, 8tblReportsTemp.raw_code, tblReportsTemp.section_heading NHAVING (((tblReportsTemp.type_order)=8)AND ((tblReportsTemp.section_heading)= ' '));'L L 6%V.?SELECT Max(tblReportsTemp.section_order) AS MaxOfsection_osK$[rder 7FROM tblReportsTemp GROUP BY tblReportsTemp.type_order )HAVING (((tblReportsTemp.type_order)=8));'L L 6%V. ! " ' "' !e' " 'dPk''k8k9============================Criterias==================== " "#KT$Iif(IsNumeric([qActiveLabsLatest3].[  ]),True) AS [  0#$] )=KTtext or numbers " IIf([qActiveLabsLatest3].[ ] = ' "' ,True) as [  0#$] )diCriteria invalid. 2 0 $*'N )Av|0ik(ibetweenKT "$ "$ $IIf(IsNumeric([qActiveLabsLatest3].[ ]) AND CSng([qActiveLabsLatest3].[ ])between  " AND  " ,True) As [  0#$] )dhCriteria invalid. 2 0 $*'N ) )Av|gkgavgKT $IIf(IsNumeric([qActiveLabsLatest3].[ ]),Csng([qActiveLabsLatest3].[ ]), Null) as [ ~avg 0#$] )Shere for <,<=,>,>=, operators "$ $IIf(IsNumeric([qActiveLabsLatest3].[ "]) AND CSng([qActiveLabsLatest3].[ ]) " " ,True) as [  0#$] )deCriteria invalid. 2 0 $*'N )Av|ekxenpedheCriteria invalid. 2 0 $*'N|0ek(e HB@rpt0 H)(8"rpt0" is default for rstTemp - never used in tblReports H)Labs H)  H)  H)  H) "r H)^  H) " H) HB@ B""B@~  VB@B|c==========================Tc (!, KT in dat base skip(A duplicate was already in report designA@* VB@B|PcSHc (!,  (!.A@*n coc ] ] ]]0]H]`]x dlk 3/2009 .6Tb "G " B")tj ========== "'d'f% 6/2007,dlk "e'd'f "e'f'dkb =========%=====================================Process filters%===================================== ethnicity KT'hKT'  B""!!.  B""!  AND ('hd` h OR 'hk`  B""%'Z working code h [tblDemo].[ethnicity] =  ' ''h  '  `  B""!!.G h)'hjn_ ------------age'l  $ $G" AND ([qActiveDemo].[age] between  AND  )'ljgender'j KT'jKT AND ([qActiveDemo].[sex] = 'F')'jKT AND ([qActiveDemo].[sex] = 'M')'jKT AND ([qActiveDemo].[sex] = 'U')'jnx^"__________________________________Dthis cycles through all queries to check to see if query TEMP existsE(same qdf used in the list program, must delete before creating new 1 VB@b D 6!d D!tempKT htemp VB@fqActiveServicesLatest3KT hqActiveServicesLatest3 VB@fqActiveLabsLatest3KT hqActiveLabsLatest3 VB@ftK$[qActiveHealth1KT hqActiveHealth1 VB@f qActiveMed1KT h qActiveMed1 VB@f qSummary1KT h qSummary1 VB@f qSummary2KT h qSummary2 VB@fn[ Dclears old data table,Delete tblReportsData.* from tblReportsData;'8 8 VB@j VB@b =============A ============= DoCmd.Close|ZTZ ( KT no object to deleteZSZ (!,  (!.A@*nZoZ KT (\ (\ (\ (\ (\KT (\ (\ (\ (\ (\nYoY KT (\KT (\nhYo`Y "l  )lo8YP "l to  " )loY "z  )zoX "z to  " )zoX "between "  " )r "#e " numeric )rdX "  " " )rkWoWP "between "  " -  " )r "#e " numeric )rd@W "  " " )rkWoW "between "  " ) "#e " numeric )dxV "  " " )k@Vo8V between "  " -  " ) #e " numeric )dU "  " " )kpUohU`U(Attribute VB_Name = "Form_frmCountPatients-crite@ria" Basj0{ECB28463-B520-4616-AD8B-341C152876BD} |GlobaBlzSpacIFalse dCre atablTru PredecdlaId"E`xpose_TemplateDpvCustomizD$ Option CompB DV >licit!Priv5 Sub chkAgeAutoLab el_AfUpd() Me!txtDe moDisRy.VisiNot lbl'Call cmbAOperator) End265'65 ,  21ZC;$Result1 :P2BBMIZyq Yy DD"<I7}t[ xt7vI> #M 8#OGd/9~w1pI># <#xOYO^>@/##<#<##=? GJ"tRm<#between_$_$__R8DD:///&/A*E#723P2er;Ֆ-ߝ/5n c Cfߴ_KvoxoxʼdOI lblAgeInclusive.Visible = False B Me!lAndtxtDemoDispla y" > " Case x">= 5&R@esult1^Tru '2'[*O]ns^=<` LDgP!D Oxt4o l # "0!ϔ09?r44!Uq !O oe!##>s G2XO !o߰n5## ?5?5. g" //e!#2  mCU؟l  1M0[#d-?DdAddpWithe@_Click1'form opens aaccepts values to s!e cupm report lines 'T iyth other than a count of patienw sed laB'New L c`be on0fPree typA: OUPspkhlreadyV 1Wsion_ord =ct0 c , d3`= s + 1-B as, 8but firsf this type ' sectiouK$[n_order = max Lused + 1, d@isplayV1 C:can bee first lab i(temledCV Di9trSQL As @StringvarIWVariant-.A'workA cod|.raw_/',gSecExistsDAO.Re"cset1geinfo for eit9H if ts *New(''to create n'"Temp!׀Integ|erCDsItrD|TextU'holds what's in lF bo and on report ( t)Crnw ARs{= e.g., :".[ha1c])<=10"CdbdDatabaswesponse Sl@ = Curren8tDbxR= db.Openw@("tblRB3s "@1AOn Err@zGoTo errB ƃlc:GA'-from ad"d FEach In ms!frmCountPati3s!lstAll Labs.sSeB& +d=Ł*() iA ee_Column(~e "'`d@jfveralvalues at Kce -a`!bhangxtDU`tweenB mIfk%.B* > 1 ThenA chkAu$to+elalM!aMe!txtWC= .g&Call cmbMrator_AfterUpd@}E`iIfc'"Fassum$‘thiEJldy Aufinyꁣ 1NP not` u`wFi igni as+Ā# !!= "SELPECT kk.j,` Max(,j) AS " _ A0& "Of, EVheadam FROM GROUP BY a샫 $,.LHAVIN0G ((( )=8)AND0LJ)  '"P[4-]"));XV s/U(c T1!!" ߓ'ooo].~t=ca~sK3IHj.Ii!o0a#sA;= 3EN   o} 3@A/IdU!ofK `A= T'=es?==wL8en(p_h\A1")c0c x C` kW"#4Q1e8Iif(IsN0_ric([qAveLdst3].[30& %E ],True4{?]H c =l 7 0 Result1)^ @4(oEo|e!,Ms'/ Q{ r= MsgBox(" vinid.", vbQic@+OKOnlyHP pt Sub ,beҎ?:'P`{12?q* 'dRv&( dab23 4f " "/#Q1pEn s? Q ? /"avg ;"+ 'h3ere for <,<=,>,>=,= operators If Len(Me!txtResult1) T8hen NdHCriteria = "Iif(IsNum c([qActiveLabsLatest3].[" _J& raw_code & "] AND CInt7CB /)Tcm|bO-Yk5,True) as L*display_order ]"[ElsedresponseMsgBox("invalid.", vb ical +OKOnly) 0nd If ESelect<6Exit Sub CIrstTemp.AddNew !report_IDArpt$0"'"Cis defaB @ - nevZused in t8blRtypeg= 8R!fieldA!AKpEs@UionEheadingstrItefmR K= Z textCD F= criu eS".Upd `v #Forms!frmCountPatients!lsld+.RequeryCNva"DoCmd.ClofgN '=Qerr: ` CalErr.berC3021 &'aI@ bsk ipFt "A duplqte w@alr;yYUsignG$e c dA "ADes@4ptQqf~!u Priv @/w SrvcE_Af!?K"g;$MG I.L "#;'$ [@A ĭ].@VisiblAFRaj"e!k2w' .2]@lblAAndInclus? yg& `Work@f n%$&'Avg'''}  !!-= .^aaageݩ=0' ~_ o'/* 1,O)''P eq =Y>__7_xt:#_!#a##!##77>/#/#/#DS/#/#?#?V%= {36>f+l"~<%%%o]T2 50G%% <%<%%Bpo8o8re !o8o8o8%r <%betweeKY1//$ /"=.>O@??%%%0\SBᴢocmdAgeCreate_Click()  'form opens and accepts values to store cum report lines '* iything other than a count of @patien\with selected lab LNew L X c6be o nfEree typqA: O\Vitals*kh|ldyWQsdionP_ord=c.tJUv', display= as + Z1/BEs< aE, but_NfirsgP Pmax Rus9 O =BC:1 5J` itemLS1! Di@trSQL As S trvCvarIVarian>tF  A`'workcode raw_A ' stSec0ExisDA O.Rec@use"tE 'ge@inHfo e@ iFtX ift7dRrcB n@F&Temp0 %C IntegerC!FtrDaDTextU'holds what's in™bo on:( t@~:Cr_@C`7 !) s= ce.g., :".[ha1c])<=10" dbDatabas;esponseG }S6 @= CurrDa1)nb.O ;("tblR5BsA"! On Error GoTo errI?"d6e''-dRfrom add bmicF Each#`In `ms!f(rmCP!lstAllDemo.absS䝄+]Be=!+(n)< ii_ o.Column(@we 'ejdgveralance -a@c%@gxtU betweenm 1IfLabs%> vK$[1 Then chkAuto@el FN Me!ptxtWC`t6Call c$mbMra_AfterUpdeEIf'·Cassuma嵄a"finv /N not` 2u wiign`/was }+`@  = "SELECT 4.J, Ma x(*L) AS0 " _p& "@Ofj,m)ÎheadZFROM GROUP BYMAwToi, , tG HAVI`NG ((M )=2@ND@_*J) `'"P[]&"));W tSqS(F |/ SsS'(lac prsY8 so_'tneeded8&$&$#U s,? ? ? NTc! NS4aL2@i!`L 0*{ C O "o: #1IsNbric1iAgeResult10ACoq` p ֜CI(IsAlaH.dobCpediff('y',0H,z7yWI[RØ]![ rQ]) ^+h(Qatbs!nd,'mmdd')<y )FOJc! A{X2oX,@true) x[xage2T /`h0#'P]"g%K41r= MsgBox$(" in0id@.", vbQiηcal + vbOKOnly)  txtAgeResult1 = ""2FDemoDispXlayH Exit Sub fEnd If Case El'here for <,<=,>,>= oper`ators0If Len(Me!o) Then _CritPeria`I"(Isdate(tbl.dob) AVD diff('y',p," _13& "Forms![frmReports]![S!*]) + In4t("a&,'@mmdd')]<1@OcmbŁGODc & T=,True) "as [xage"2D&d_order, "0#")@"]_Adrespon= Msg Box("Finvalid.",;AiISeplectG KDoCmd.Close  K9IcrstTemp.AddNew% D!rBR_IDA`rpt0"V'"#is defa`pd - never used in H$[aR type8` 2VfieldAK<s,ion  %heading T *N ò %text`䢒raw_codeEcg EV'd#.Up!L #hs!@CountPatients!lstRela.RequeryCNvarItem M '=Qerr: ( c #rr.Numberт302B'!J@ b!skip% v "A dupBl`tte watlr;yYVsign<`k1315 !me> a"* E&&BDes8ptUu$$ Priv 2 cmdBMIBCte_C@k*('mans aaccepts ues to s`e cum 4linZepr'T =anyth0otv than a ca" of p" with sM9P>la|`D L  c`be o n0fPree C>A: OVitals likhluz4'work!JcJ;'LSecp5s)DAOE Fc|setU'geinfo2eexisit!4 if At$Gq'0p0c3iwD p1J  %1eg!J@#str^_T!Tc holds what'sIlist bob 1X'chkAuto el1 a0bAÍWGt4`Callqb5Ǹ_AfEq'Ur'B\B"assumraeA$F"HX8newSX9fi~n;:@D  (not0u@zwi ppH P}0d+ \ 0|R\0S`ELECTh4.A:, MaxaR#diXsplay_order) AS @" _ & "MaxOfdi, tblReportsTemp.raw_code0section_headingFROM GROUP BY dtypef,eEHAVING ((((M)=3)ANDg )=R'" & [strItem]" "));"Set rstSecExists = db.OpenRecxset(SQL)ۃ "SELECT ]KN{TmSBNew)AIfJP.NCount ThenM@ ^!maxo + 1L=!  Else&@4%^!rof %+G. DEnd If# '=Crit eriasq  Len(Me!@cmbBMI[ratora") > 04Sel Case ns"#htxt e<"IIf(IsNumc([qry_Lates].[3J & Ş]),True"h3Formatf(*- 0#]'=I$gResult1)j# '@ ++&DS2 !  &'MR%respon== Ms@gBox("invalid.", vbicalrvbOKOnly t S,>= opeBfs=A`=E?=CInt/<8h "!(3022\ ' in dat Bb^skipMsgBox "A duplicate was a@lready8report de sign"9DoC *l%9[ & "&  Descriptionnd u0PrivV c mdBPCXte_Cbk()>New Line can be oof three typesA: Other vita@ls likhisedssa_ord,= o, display = E s + :1B #Em, 8but0@'firstt+4(M(maxL)use&d' =B!C:7M3 H ixtemEM1 Dim" @-Secsts As DAO.RecTset! 'ge@info for exisitingE2 iftq|Rto cB n.F&Temp%strR`espon@Str@$@AndX_Or2' 'aAbteria#  SQL{&IA2E('pworkB raw 'Hvare Va ntZ! Inte>g$Jddb>Data!bOCurrentDSA@E2gb.OpenD@("tblR"sA" OnAEGoTo '$?'.'-i! addc F Each "In `ms!frmCountPatis!lstAllV.a(sÝAf!E"+=,ls%() > L;a F; @.Column(u %'btetmafoqseɁYiafindseC /2].[bp_U]h e rAnd_Or2 & "[QRY_Latest_BP_>Systolic/Dia$2].[bp_d<]" _ & cmbBPROperatorMe!txt6,True) As [BP"3Format(display_order,@ "0#")"]"kTCriteria = c 'MsgB ox  '+ ' Case "Body Mass Inde:x6'n#3"IIf(IsNum ;c(BMI.Q), mambmi+n' End SelectXrstTemp.AddNew L  !rep@ort_IDRrpt0"'"is defau0lt fʄ - never used in t(blRsty,pee3fieldA!Vita,lsm+s@8ionEheadingstrItemR J Z text ¢ raw_code   ɨC!Db.Upd@ CAs!frmCountPatients!lst(Rel dCV.R@equery N -vaDDoCmd.CloseExit Sub0 '=er r: C#ReErr._b erg3022 'aIa b!!kskipfRe:s@g cElaDDw  iAHDes(ptG  e Pr\iv%@d _Ck()# reSrvc'hm opens a vaccepts values to re cum Acs line k'  sanyt"h!Zothqth@an a cA? of p? wi0th sbula' 9`9 L cAbe on`f` two u A: OB servicalJeredB: sfiR b: m4alVln`c1 0 n{t!  Di trSQLStr`ӤVVan|$D'work&ap&r 'gt! Sec@bFs6DAOic`set'ge!infoex0isitAD if t, 22 Dc"Kw'?Ca˚ IntegAqEB!צDTv'holds what'Rli`st boP.o>nU,zR4trxI{e.g., :".[ha1c])<=10bdb0Data1D repsponz&JS= Curr}-Dp11 1s`WdDb.nRe(6"n!"P On FqGoTo ePcJ 4h\@1-2bfrom0 addR;] EachBZ /_C "_AllSt;.}0sXQ;A FC=?fc=q(T7)P?4a2 s.Column(1,U @'2530a(DTSatK 1 Then# AchkA_AutoLabel`{aCAP@Qծ_AfШ|a1 olt1 (L"TpQ `xX2 m\IfRC鯋 WUՍ;q'q2'b-Cf@kQSQ ef1h newdExfinpGK'lcOQJ1kinsiXB2Ag= "SELHECTPx(+@.˪SAOf& "FROMHFGROUP 4BY|.ȳmHAVING ((M 7xK$[)=7));Q M'l= NN`PT8 %ion"/[=1Ʀ!maxo|+ 1s aZ+v0* 0@'(r=P_C._Xjs== Len_9"8>0Cٲ5 ="#PQ5'Q[fluTq>14,Mid(,13,+-14Nul1D4,KMid)G, 13F-G-14), Null)JX),Te7gFormat(display_order, "0#")vCase "=" 'text or numbers If hResult1) ThentTriN7 pAqrG&A@\@'rT AlB"} ) AC}ElseNjr espon= MsgBox("Finvalid@.", vbAi cal +OKOnly)}CLOCall cmbAOperator_Af@Upd@v Exit Sub kEnd IfgYbetween,@X., & 2)]&' i^_ZK^ʠҗD ^+YD ,csng("A_IKd?"j ?"55?"೅U v ANDޣT!(߆ c҆ CvbCtCC J2E B!FFFF{ Gtavg G BHA( b0R0oh0 A0' CAOK q<),~q&P(W,r>= rsEp0len 14 becau/qs3 rѡ "mm /dd/ys(ss)l 1Q=QIs1p R ?l #s1(" #)P+/$5po22^*}^?S^4|O4O43 'O4rO4yO4O4O4?#?#?#?#q n& "Mid([qActiveServicesLatest3].[" & raw _code("],13," _ Len))-14), Null)R) And Csng(!"IIf(-y>1.4>Me!txtSrvcResult1 ,Trues  7Format(display_order,@ "0#")]"tE^IfMCase "<= If (IsNumeric(*)) Then  'l@14 becau@qs3 rA4 "mm /dd/ys(ss)'Crit@a = "AIsn)?ч%??h."s "{ ")VS!!hhHhhh}hhchc<<F FFF`F?џhhFG_U_ _v )< ?4?4hh^=4=i x!iElseresponP7= MsgBox("dinvalid. ", vbQical +OKOnly)|x h Call cmb{Opera@tor_AfPkU pdoExitp SubSelectG  W5  rstTemp.AddNew!report_IDyrpt$0"'"is defa0 f or`K - n ever d in tblRbs/mp!typ6e$07/$fixeldQ sqion'-heading0strItemJtextW7DO@A=6pc51.%+qs!frmCountPatients!lstRe l-d.ReqPuerycN va4DoCmd.Clo;G( '= errE:CA)17!>Err.berRA3022L '%8 bѬskipA "A dupl@te was alr@y-,sign$ 3G COJg4w Y" qV!D$espt) I@B PrivpC GdDemoC te_CP k(7L'7m openP оacc epts 0Pue@s to spJeH cupm lhineP8'T AP_^.*stSecExists.DAO.Re"cset5'geinfo for e-itrsection $ifts TNew('to create n'"Temp! Integer$headbtrD0TextA'holds what's in l boand reportT ((t)Critev Z $c e.g., :".[ha1c])<=102"CdbAlDa tabases`ponseASs@ = CurrentDb rstY= db .Open("PtblRB3s"@1AOn ErrGoTo err t0G A'- 'need three psTeeachage,]surance A\rac=Sel CA txtR@CB"xk@MA(F.EIn ms!frmCountPatiHs!lstAllDemo.sed4jB=4()  waes _Column(e '`r@xtveral lab values at* (-oA.phan ge'd_ betxwee{@ {'IfLabs%.b* > 1 Then chkAuto@el!al!X Me! 9W=a.Call cmb Wrator_AbfkUpdErIf'this¥ assum!M䘂MthÒ!vm aldyBNfin@T /N note` u wii4gn`/wCas max+1b  e= "SELE(CT r., 0Max(,) AS " _ @-H& "Of,? Sm FROM GROUP BY type) %,.LHAVING (((G)=2Y(ND)5 `'"P[]&"));H4XWxX~(FЂWq1sS'a(last$*p$rsL s=an.]'PB1W5M8&$&$#Z(? p? tbf.n>;cш N0qSLL2+@i!`(aP_y_5")f0f OW #oT: yK$[Np>Age"|only ust1` IsNfric mResult1P4aeF' pAf Iq(Isp1L.dobC@edi ff('y',L,P5uL3[pRS]![Q]) +hKP(Qatbs!nd,'m`mdd')<y )OJcs$ A[2sX,trude)V [B20T 90l0#+P~]l&#8@r= MsgBoHx(" inid.", vbQic +OKO*dqH$_ +62`K"? '߀A%0 |<9 t S~uZ3#b#<=-'I;c@qbe eir Inu!thnicitywB 'here2<,<=,>,>= op0 ݵ section_heading = "Age"'other thanTonly used for age   If IsNumeric(@Me!txtResult1) pThen `l'DemoCrit: a~IK(Isdate(tbl.dob) And DdiffH('y', ," _c & "Forms![frmRepo@rts]![SEnd*]) + Int("a&,'mmdd')}(<'ccmbOperart& {,@True) EaPs [xv" 2D&display_order,@ "0#")@"]"[KElsLcresponsezMsgBox("Finvalid.", vbAical +OKO) A%Call J_dAf@UpOExit SubK1@ IfSel@ نWemR?J8on'_?*Ie  p;hO [e8U= ˶ !a ErdstTemp!section_order = x( r headingn"rdisplayC 5textlMe!txtDem oDN8raw_pcode4 +criteria 0C .Update Forms!frmCountPatients!lstReld\.RequeryNlvarItem End Sel DoCmd.Clos4Exit Sub'=err%}:L ) Case Err.Number3022 ' Hin 8 b skipMsgBox "A duplic@5 was alryreport d@esign"FResume <v'8':A'315C ElH(9 & "@D& Des|p?[N`ZPr ivA8] cmdLabC9te_C>k() 'f| open@naccepts values to storeH cum FlpinesD "iythoththan a c of p withA ed laNeHw L c be onf three typaBA: O sP lik@hAl7sbOed)a# , Jz=Afs + 1 B H, but@ @fin!#`*@max us$ }aC:C &" C  `m, 1 wi trSQL As Str`:$}Va@nt!DY'wor~kB 'D 'Sec@jFsRDAO cset'geAinfo Y exisitA$, iftV N2 `cBf nS caIaIntega ɀstr$<_T! 0 'holds what'slist( bo a xon=t(e`}tr%Á !) `5e.g., :".[ha1c])0<=10 dbÁDatarespon` S6 = Curr D~a@ 1 Th enc1 chkAHuto`elTrugCalJl@vb,ra0s_AfPR0alt1Ic pL ref42u;M2/ If_$as0}iTUfP"fGfinI NC& not0uyKwi`P@&wv0q+`o`"!j= "SELPECT B.:,` Max(JZ)h ASP_& "@Ofj,mOE8" FROM GROUP BYMbo, , tU HAVI`NG ((M )=8)AND0LM) 1'"P[>]"));ta`=bc a!1!!" 'oooC~cq(RP9ēNNj.Niz!7o0E;= Ϧ    { @= 1 section_order = rstSecNew@!Maxof x+!Elsedisplay4End IfA'=Criteprias#?If Len(Me!cmbOperatozK$[r & "") > 0 Then-Sel Case c"#"t xtL"Iif@(IsNumTc([qAveLabsLatest3].[" _ #B& raw_codeU]),True) AS  8Format(, "l0#ru]S\=" 'text numbers !M4Resuplt1)PK+=I^fV;6I8'A&/_G 3 DCas}CA/˭Arespon@= Ms@gBox("uinvalid.", vbAical +OKOnly)sHDQ< ACall _AfUpdExit Sub  @C"betweenLwǥ'LqV2?@Ar!.I @?_lA)ta" AND CSngϿJf5 ! "IK -2s"ErPŠTra5,9JaRRe = Ai2WL?Wa c_WavgV&qL!L,CsK Null)r p"~I_"I/ 'here f<,<=,>,>=, oOvz,)kk k;]o?p`0 {C Tq 82 A`Q7```0+ 7aaaq3o5qap&W ,QTemp.AddP!repo rt_IDQGrpDt0 '"is defa01 - nevused in ptblRb2!Ptype8_mp"fieldQ,H= headingstrItemʹ20e!D3;ྔpcrib S,XT.ŋ1s!frmCountPatients!lst(Rel@d.R@equery#N vatDoCm`d.Cloa7'  o& err:C )Err.CW3022 &'$p b!sk ip "A duplpte wHalry,*sigX Q20G C`=w @RF"!Des py 9?AQ PrivpqdO2sCont@inue_C k(Dim qdf As DAOd.QDeڡdbDataA Ǒ0-Str0.EVant!0/)cntInteg?q 'dlk 3/2009 Set @ = Cu4rrP'DQOn @uGoTo "1:Inpuvt# ,,P6Title1ex*  [optAll/PCP]E`1Lbln_fRLFaʡInsuranceL 6Q7,S_ ;%CP] = 2 Then blnPCP_R eport|True tInsuranceFalsHTEIf Me![optAll/3Os mqnd If '= Process filtersethni0citySelect Case E 1 strSQL`Where""2cn0While  < Forms![frmCountPatien@ts-cridi@a]!lst-Fo.Items(Xed.C  Each varQ IndE @j.= 0̃tC AND (E < AR& " OR ȐD?=>Data(Q) 'working codHT<-[tblDemo].[A" 5'[/Z]'9=B_+ O NextE=*Wen5,yLLSB> _ -=b)E5W '-ag,a*lAgefk@IsNumeri c(txt 1) AA2)k cT[qActi ved4@] be tweenN& ߄ 5Z6c2a$ 'g 1er @)"G&#!FAsexN'F'#3*.M4k,eUC a'_'this cycles through all qu`Dao check to see ifBy TEMP exist'(same qdf used in e l program, must d te`Dfor`renewbtDoCmd.Se tWarns >F$ȵA @db.Q@yDefg)D.N@ c#"`pBCD HObjlacb, r"ServiPtLatest3ya*Labs  Health1_ _ X ] Medor*Summaryq2 ?96. d&'@4ars old dp tabloFL- 0mCsAs.* from\; s Runp (p>)CY2t Q{ C=C6es/ '3CloExit S ub"err_c|:)6ErA[3011 'nxo oS4@C> R|esg2TM@sgBox p.qiberbb!Desptio3*p Q Priv8a #qj_AfpUpe(B AsG1plbl1.VisiH!2 _and?5$r _̂D9 +ge + ge/ |  9uyw 2{(/ltt1 0Display&</`@+S2!Ч1Q8?G}BBMI PP(ߒtpIDisplay = Me!txtBM& " to&lResult2 End Sub Private$ L1_Aft erUpd4() IfcmbOperator"between" Then$  Raw@_Code "&m:Elsed#-^numeric"* KO rTIf2ߎ&BX-~.~ dY Z Z[\ SrvcDh\ D d AZ   ]. e! /]k1_= `H! b1`gka3 b#_3lt12MEx xpAAttribute VB_Name = "Module1" Opti{K$[on Compare Database ,3/ xME (S<S<S<<N0{82E83AE4-E437-11D6-A7B3-00A0C9C6E171} @i``` :i`V----``e al`e? h%`hh,  "  r  8  ( " 08@P  Xp    (  $ @ .P    xpk Display a message if user enters a date for which there are no records, and don't preview or print report.Tp]`x==]0There is no data for the date range you entered.' 0'No Data for Date Range'   A@*er, tb'o]] 8.r]P frmReports$:ER B"j"rsTQRY_SummaryDiabetes2KTQRY_SummaryDiabetes2 (X "Z(\Diabetes Summary Report "^(`QRY_SummaryDiabetes2_PCPKTQRY_SummaryDiabetes2_PCP (X "Z(\ Diabetes Summary Report By PCP "^(` nxkpoh`)Attribute VB_Name = "Report_rptSummaryDiabetes" " Bas`0{82E83AE4-E437-11D6-A7B3-00A0C9C6 E171} |GlobaluSpacIFalse dCreatablTru Pre declaId"Expose_TemplateDerivCustomizD$ Option CompC DW  A?licitP26 Sub No(Cancel As Integer) ' DisNy a message if useHr ers d'for which there Dno records, and don't preview print{ .A' Dim @strMsg"Sng,ATitga' E Sty.CbT&is @&@-a A-+ 0ran7you6ed.= vbOKOnlyF%No^Se RD 4Box7<, 7 b= EE@NSuboOXpennQR`SourNgYA F@@IX%-If IsLoaded("frmÖs") ]nRSel ect CAFo rms![]!@[lstQu aes]"QRtY_l2D, bMe.`3 Me![txt_pcp].Visi#~m Albl_c].Cap `ll_PCPR!ScK By 07W>g-aIf  bc] xME (S<S<S<<N0{2523F261-8FF2-11D8-A7B3-00A0C9C6E171}x h@%@@|K$[  " , P X`&h   xpF frmCountPatients-criteria VB@B|( ( KT form was already closedhS` (!,  (!.A@*n8o0(ܱAttribute VB_Name = "Report_rptT@emp" Bas0{2523F261-8FF2-11D8-A7B3-00A0C9C6E171} |GlobaBlSpacFalse dCre atablTru PredecdlaId"Expose_lateDerivCustom izD$ Option CompB DV >licitP15 Sub ClM()  On Error GoTo`Code: D oCmd. acForm, "frmCountPatients-critgaExit7?-(Select C /A!B245@0 ' f @was albdhy c,dG A ResuNex9?tMsgBox6.Number & " @& .Des.BTCEnd *0Aub XYICJUNBOORYZDYBQVHONBCJAKAC:{YLVPRDMYLGDIFEZDAEJSHBNHBWIJ:6 ZRGOQDGNIGVXWDUBCBUSIZTSCIFE:i,PROJECT      !"#$%&'()*+,-./012345789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghjklmnopqrstuvwxyz{|}~q gxME(<<@< <X+/ X%``from 4  6%`8+:H i< O >turn%pF B   >( 8h  * , , 8 @ P ` >p  <      0 @ Ph    B  (B08@ H .XB   }K$[   xp Purpose:7 Gets the directory of the currently open database.2 Based on code originally from Mike Gunderloy.$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved.Fi In:sof Noned Out:BA8 Return Value - The name of the directory as a stringB History:6 Created 09/13/94 pel; Last Modified 12/20/95 pel3]@]`]xGetDBDir' . !' $ "\b   $ 'p $ $'&XPzH@ (S0 Error# (!,:  (!. 0 2 A@*&ni]]$ .6 6! 6!. $'4ip':]h > B >! <':y(k >iAttribute VB_Name = "basUtils2" Option Compare PDataxe`Explicit " Pub FunclGetDBDir() As Sng   ' Purpose:5s the directory ofcurrentlpen d. =Based code original2from Mike Gunderloy8FAccess 97 Developer's Ha@ndbookby Litwin$, Wz  Gilbert. (Sybex)CopyCht 1997. All Rights ReservedDIn Non' Out Return Value - T9naㄘas a s' H isAW Creat@P09/13/94 pel; Last M odifi12/20/95}A&On Error GoToDB~Dim dbCpDAO.(DbProcZ@?e @Set!= #Db5= .F1o Whilep$(+, 1) <>x "\FLeft Len )o1DLoopE1UCHD A E Dsc07Exit 4Seln a :3lsPAMs@gBox " o r#" &.Num@`": e@Descri, _ ! vbO(KOn@s+@Critical,Tw8euZ End c͡9(a'Jdb0Q$M!fG0&Fb`B Mid(dbF, (InH"."<4)`E5  IsLoaded(Byz!Form" FbInteger 3Fa&5AfrmAC  Each !In !sC IfB@ X`n7QTru(C LoI IfCNext  k ,3_ yVxME (S<S<S<<N0{5B2FCF11-D234-4B40-916F-FC06DD26D2D9} @i``` :i`V6tb`7`8 re`yy (h%`hh.  "  r  8  ( " 08@P  Xp  "  * " &0 X 0h    xpk Display a message if user enters a date for which there are no records, and don't preview or print report.( 3/]`x]~K$[0There is no data for the date range you entered.' 0'No Data for Date Range'   A@*('o]] 8]P frmReports$: B"j"rQRY_SummaryDepression2KTQRY_SummaryDepression2 (X "Z(\Depression Summary Report "^(`QRY_SummaryDepression2_PCPKTrstTemQRY_SummaryDepression2_PCP (Xst "Z(\as Depression Summary Report By PCP "^(`n`kXoPH(Attribute VB_Name = "Report_rptSummaryDepression" Basd0{5B2FCF11-D234-4B40-916F-FC06DD26D2D9} |@GlobalwSpacIFalse dCreataDblTru Predecla Id"Expo se_TemplateDerivCustomLizD$ Opt CompE DY  AAlicitP48 Sub No(Cancel As Integer) ' DisPy a mage if user Rers d'for which there Dno records, and @don't view print}.A' Dim strMsg"S@ng,qATitb' E Sty./CT&isf @&@-a A-+ 0ran7youq6ed.= vbOKOnlyF%No^Se RD 4Box7, 7S b= E@NSuboOpennQR`SourNgYA F@@IX%-If IsLoaded("frmÖs") ]nRSelect CAForms![]![lstQuaes]A"QRY_.2DŽ, bMe.3!Me![txt_pcp].Visi#nb A0lbl_].Caq m"mk_PCP?T"Lt By 9bY"@g-aaIf b^lsOxME (S<S<S<<N0{8250C2B1-23E6-11D7-A7B3-00A0C9C6E171} @ i```%   "  8(`h  x]`xDe]0There is no data for the date range you entered.' 0'No Data for Date Range'   A@*)'oPHӱAttribute VB_Name = "Report_rptWSC_Diabetes_Core_Measures" Basv0{8250C2B1-23E6-11D7-A7B3-00A0C9C6E171} |GlobalSpacIFalse dCreatablTru PredeclaId"Expose_TemplateDerivCustomizD$ Option CompD DX P*. Sub No(Cancel As Integer) Dim strMsg SԈng,Tit'  intSty $&There is no d@( for thee range you e@#@S.k = vbOKOnlyFs%No=7e< RD 4Bozx7,7 DE=b rEndNARID="{109FE8D2-6872-4FB4-9048-8E36D6C09306}" Module=basUtils2 DocClass=Form_frmSplash/&H00000000 Module=basAutoexec Module=report wizard Module=basCommonFile DocClass=Report_rptWSC_Diabetes_Core_Measures/&H00000000 Module=basLK$[inkedTables DocClass=Report_rptWSC_APHS_Core_Measures/&H00000000 DocClass=Report_rptSummaryDiabetes/&H00000000 DocClass=Form_frmCountPatients/&H00000000 DocClass=Report_rptSummaryDepression/&H00000000 Module=basUtils DocClass=Report_rptTemp/&H00000000 DocClass=Form_frmListPatients/&H00000000 DocClass=Form_frmReports/&H00000000 Module=Module1 DocClass=Form_frmCountPatients-criteria/&H00000000 Name="cdems-97" HelpContextID="0" VersionCompatible32="393222000" CMG="C4C604420C0210021002100210" DPB="888A484B494B494B" GC="4C4E8CCA948F958F9570" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] basUtils2=66, 66, 699, 437, Form_frmSplash=44, 44, 844, 492, basAutoexec=0, 0, 986, 368, report wizard=272, 47, 846, 308, Z basCommonFile=0, 0, 0, 0, C Report_rptWSC_Diabetes_Core_Measures=0, 0, 0, 0, C basLinkedTables=110, 110, 743, 481, Report_rptWSC_APHS_Core_Measures=135, 175, 942, 618, Report_rptSummaryDiabetes=0, 0, 0, 0, C Form_frmCountPatients=0, 0, 574, 780, C Report_rptSummaryDepression=0, 0, 0, 0, C basUtils=44, 44, 677, 415, Report_rptTemp=-159, 42, 791, 565, Form_frmListPatients=-11, 35, 1025, 427, Form_frmReports=88, 88, 888, 585, Module1=110, 145, 1096, 513, Form_frmCountPatients-criteria=140, 140, 942, 532, basUtils2basUtils2Form_frmSplashForm_frmSpPROJECTwmAcessVBAData Forms :+P|MX 0P|MXP|MXlashbasAutoexecbasAutoexecreport wizardreport wizardbasCommonFilebasCommonFileReport_rptWSC_Diabetes_Core_MeasuresReport_rptWSC_Diabetes_Core_MeasuresbasLinkedTablesbasLinkedTablesReport_rptWSC_APHS_Core_MeasuresReport_rptWSC_APHS_Core_MeasuresReport_rptSummaryDiabetesReport_rptSummaryDiabetesForm_frmCountPatientsForm_frmCountPatientsReport_rptSummaryDepressionReport_rptSummaryDepressionbasUtilsbasUtilsReport_rptTempReport_rptTempForm_frmListPatientsForm_frmListPatientsForm_frmReportsForm_frmReportsModule1Module1Form_frmCountPatients-criteriaForm_frmCountPatients-criteriaBlob  PropDataTypeInfoBlobDelta  0123=Babc !e gVh\ ij,.k  H@Reports"[Event Procedure] Arial8X hHP OfficeJet@f,,@MSUDHP OfficeJetdLwinspoolHP OfficeJetLPT1: d2hghK$[MS Sans Serifi1ghk1m45n2o2zijMS Sans Serif` Detaild25U`a<bcdeX3fLabel74(CDEMS Queries KS-QOCh1U`abvcicmdClose Close"[Event Procedure]n3W`abHcN d(llstSelectClinicTable/QuerytlkpClinic 2880;0"[Event Procedure] Ariald5]`aXbc Label2Select Clinicm 7`AabGcktxtClinic$=[lstSelectClinic] Ariald5]`abc Label4Clinic Selectedn3`a bcdtllstQueriesTable/QuerySELECT tblQueries.qry_order, tblQueries.qry_description, tblQueries.qry_name, tblQueries.qry_comment, tblQueries.qry_showlist FROM tblQueries ORDER BY tblQueries.qry_order, tblQueries.qry_description, tblQueries.qry_name;@0;4320;0;0;0;0;0;0;0;0;0;0;0;0;0"[Event Procedure]"" Arial"[Event Procedure]h1U`abvci btnRunRun"[Event Procedure]d5]` apbcLabel25"Queries Availablem7U`abchk"txtQuery_Selected=[lstQueries] Arialm 7`AaXbcktxtClinicList Ariald5]`aXbcLabel31Clinics in Listd5U`a8btclblStartDateStart Periodd5]`abtclblEndDateEnd Periodm7U;`Pa8b8k txtStartDatemm/dd/yy00/00/00;0;_m7];`Pab8k txtEndDatemm/dd/yy"[Event Procedure] Date()00/00/00;0;_o5]`bchdn ,"";"";"";"";"10";"100" cmbMedTable/QuerySELECT DISTINCTROW qUnduplicatedRxCrosswalk.working_code, qUnduplicatedRxCrosswalk.raw_code FROM qUnduplicatedRxCrosswalk;1440;1440o5]`bcHdcfn ,"";"";"";"";"10";"100"cmbConditionTable/QuerySELECT DISTINCTROW qUnduplicatedDxCrosswalk.working_code, qUnduplicatedDxCrosswalk.raw_code FROM qUnduplicatedDxCrosswalk; 1440;0d5` asbHclblconditionConditiond5`abHc lblMedMedo5`bcdeC,"";"";"";"";"10";"100" cmbLabTable/QuerySELECT DISTINCTROW qUnduplicatedLabCrosswalk.working_code, qUnduplicatedLabCrosswalk.raw_code FROM qUnduplicatedLabCrosswalk;1440;1440d5`abHc lblLabLabo5`bcdTfn ,"";"";"";"";"10";"100"cmbServiceTable/QuerySELECT DISTINCTROW qUnduplicatedServiceCrosswalk.working_code, qUnduplicatedServiceCrosswalk.raw_code FROM qUnduplicatedServiceCrosswalk;1440;1440d5` adbHclblServiceServiceo05wbcdcen(cmbLabResultOperaterValue List"=";">=";"<"1440"="K$[m7`aTbk"txtLabResultValuem7`PadbhktxtLastdays:IsNumeric([txtLastdays])=True,Number must be entered"[Event Procedure]0k5U`abdcHifraOptPeriod1"[Event Procedure]d25`a bcLabel73 Periodi2W`aVbcOptDated5W`ia8bcLabel75Date Rangei2W`abOptDaysd5W`nadbcLabel77Daysd5`adb8clblLastDaysDaysm7UC`abc,k(txthidden_start_date#1/1/1900#m7UC`ahbc,k$txthidden_end_date"[me]![txtEndDate]m47UC`Xa b*ckcriteria0(used for bp control2ͬ&͇;D 7AJDetaild Label74h cmdClosenlstSelectClinicd Label2mtxtClinicd Label4nlstQueriesh btnRund Label25m txtQuery_Selectedm txtClinicListd Label31d lblStartDated lblEndDatemtxtStartDatemtxtEndDateocmbMedocmbConditiond lblconditiond lblMedocmbLabd lblLabocmbServiced lblServiceocmbLabResultOperatermtxtLabResultValuemtxtLastdayskfraOptPeriodd Label73iOptDated Label75i OptDaysd !Label77d "lblLastDaysm#txthidden_start_datem$txthidden_end_datem%criteria1D/13F d    h    i    k    m     n     o     zK$[    dh!n(dm+dn(h!dm+m+dddm+m+o2o2ddo2do2do2m+m+kdididdm+m+m+ͬXW*qDetailmtxtTitlenlstAllDx1d Label45d Label43h cmdSaved Label59h cmdDeleted Label61h cmdClosed Label63d Label64d Label47d Label49d Label65d lblAddAllDemod 1&"P|MXP|MXBlob RPropData!$TypeInfoa      !"%&')Z*+,-./0[23456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYs\]^_abcdefghijklmnopqrz{|}~0=BabcGe gj6k[NQI@"[Event Procedure] Arial8 hHP OfficeJet@f,,@MSUDHP OfficeJetdhwinspoolHP OfficeJetLPT1:d2 Ariale12hghMS Sans Serifm45bP cgL Arialn2o2r35` Detail"[Event Procedure]On3W8`aPbcd` llstRelatedLabsTable/Query|SELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=8)) ORDER BY tblReportsTemp.type_order, tblReportsTemp.section_order, tblReportsTemp.display_order;1440;0;0"[Event Procedure] Ariald25]`a bceXYYY܃K$[Label116Laboratoryn3W8`a4bcTd l lstAllDxTable/QueryjSELECT DISTINCT tlkpCrosswalk.working_code, First(tlkpCrosswalk.raw_code) AS FirstOfraw_code FROM tlkpSetup INNER JOIN tlkpCrosswalk ON tlkpSetup.related_field = tlkpCrosswalk.working_code WHERE (((tlkpSetup.health_status) In (SELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0)))) AND ((tlkpCrosswalk.type_code)="Dx")) GROUP BY tlkpCrosswalk.working_code; 1440;0"[Event Procedure] Ariale25]bc Box70m 47<Cb i j txtTitle""Create-A-Report"Times New Romann38`abHcTdllstAllDx1Table/Query@SELECT DISTINCTROW qUnduplicatedDxCrosswalk.working_code, First(qUnduplicatedDxCrosswalk.raw_code) AS FirstOfraw_code FROM qUnduplicatedDxCrosswalk GROUP BY qUnduplicatedDxCrosswalk.working_code; Union SELECT '<any>' AS [working_code],'<any>' as [raw_code] from qUnduplicatedDxCrosswalk 1440;0"[Event Procedure] Ariald5`DabcLabel45$All Possible Dx'sh1]`d aPbc@icmdSaveSave Report"[Event Procedure](ڭ ڭз ڭ pڠ 03 з 03 333 333 0   Arial Save Recordd5W` aPbc,Label59Saveh1]`laPb@c@icmdDeleteDelete Report"[Event Procedure](ڭѭQDDEDMQ_JڤMJڤDDDDDMԄHDHJڤDDDDDM Arial Save Recordd5W`aPbXc,Label61 Deleteh1]`!aPb^c"icmdCloseCommand10"[Event Procedure](K$[33333333333033H33H33DH33DDD33DDDD33DDDD33DDD30DH3H0H Close Formd5U`aPbc,Label63Calculated5`aPbc,Label64Exitn03W8`ab~ cTd` llstAllDemoValue ListPts Count;xvisit;Pts Avg Visits;xvisit;Pts w/ 0 visits;xvisit;Pts w/ 1-2 visits;xvisit;Pts w/ 3-5 visits;xvisit;Pts w/ 6+ visits;xvisit;Gender-Male;xsex;Gender-Female;xsex;Gender-Unkn;xsex;Age-Unkn;xage;Age <14;xage;Age 15-29;xage;Age 30-39;xage;Age 40-49;xage;Age 50-59;xage;Age 60+;xage;Age 55+;xage;Age 45+;xage;Age (new);xage;Race-White;xrace;Race-Black;xrace;Race-AmInd;xrace;Race-Asian;xrace;Race-Hispanic;xrace;Race-Other;xrace;Race-(new);xrace;Insurance (new);xinsurance;SpPop-Migrant;xsppop;SpPop-Hmless;xsppop1440;1440"[Event Procedure] Ariald5]`abHcLabel49Selectionsd5U`Ta b celblAddAllDemo<<"[Event Procedure]d5U`Ta^ bcelblAddDemo<"[Event Procedure]d5]`xabdcLabel65$Included in Reportd5U`Tab celblRemoveDemo>"[Event Procedure]d5U`TaIb ce lblRemoveAllDemo>>"[Event Procedure]n3W8`axb~ d` llstRelatedDemoTable/Query*SELECT tblReportsTemp.display_text, tblReportsTemp.type_order, tblReportsTemp.section_order, tblReportsTemp.display_order FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=2)) ORDER BY tblReportsTemp.type_order, tblReportsTemp.section_order, tblReportsTemp.display_order;1440;0;0"[Event Procedure] Ariald25WabceXYYYLabel47 Demographic Infod5`TabcelblAddDx1<"[Event Procedure]d5`Tab celblRemoveDx1>"[Event Procedure]n38`axbHdllstChosenDxTable/QueryZSELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0) AND ((tblReportsTemp.display_order)=0)); 1440;0"[Event Procedure] Ariald5abcLabel43"These Dx selectedn3W8`a4bK$[cTd llstAllRxTable/QuerySELECT DISTINCT tlkpCrosswalk.working_code, First(tlkpCrosswalk.raw_code) AS FirstOfraw_code FROM tlkpSetup INNER JOIN tlkpCrosswalk ON tlkpSetup.related_field = tlkpCrosswalk.working_code GROUP BY tlkpCrosswalk.working_code, tlkpSetup.health_status, tlkpCrosswalk.type_code HAVING (((tlkpSetup.health_status) In (SELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0)))) AND ((tlkpCrosswalk.type_code)="rx")); 1440;0"[Event Procedure] Ariald5]`4a,bHcLabel74Selectionsd5U`ab celblAddAllRx<<"[Event Procedure]d5U`a bcelblAddRx<"[Event Procedure]d5]`a,bdcLabel77$Included in Reportd5U`a0b celblAddNewRx<+d5U`apb celblRemoveRx>"[Event Procedure]d5U`a b celblRemoveAllRx>>"[Event Procedure]n3W8`abd` l lstRelatedRxTable/Query<SELECT tblReportsTemp.display_text, tblReportsTemp.raw_code FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=6)) ORDER BY tblReportsTemp.display_order;1440;0;0"[Event Procedure] Ariald25W`xa<b7ceXYYYLabel83Medicationsd5]`4a bHcLabel85Selectionsd5U`a<b celblAddAllDx<<"[Event Procedure]d5U`abcelblAddDx<"[Event Procedure]d5]`a bdcLabel88$Included in Reportd5U`ab,celblAddSpecialDx<+d5U`ab celblRemoveDx>"[Event Procedure]d5U`ab celblRemoveAllDx>>"[Event Procedure]n3W8`abd` l lstRelatedDxTable/Query@SELECT tblReportsTemp.display_text, tblReportsTemp.type_order FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=5)) ORDER BY tblReportsTemp.display_order;1440;0;0"[Event Procedure] Ariald25W`xa bceXYYYLabel94Conditionsn3W8`a@)bcTd l lstAllServicesTable/QuerySELECT DISTINCT tlkpCrosswalk.working_code, First(tlkpCrosswalk.raw_code) AS FirstOfraw_code FROM tlkpSetup INNER JOIN tlkpCrosswalk ON tlkpSetup.related_field = tlkpCrosswalk.working_code GROUP BY tlkpCrosswalk.working_code, tlkpSetup.health_status, tlkpCrosswalk.type_code HAVING (((tlkpSetup.health_status) In (SELECT tblRK$[eportsTemp.display_text FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0)))) AND ((tlkpCrosswalk.type_code)="service")); 1440;0"[Event Procedure] Ariald5]`@)a,bHcLabel96Selectionsd5U`'ab ce"lblAddAllServices<<"[Event Procedure]d5U`'a bcelblAddService<"[Event Procedure]d5]`a,bdcLabel99$Included in Reportd5U`'aHb ce(lblAddSpecialService<+"[Event Procedure]d5U`'apb ce lblRemoveService>"[Event Procedure]d5U`'a b,ce(lblRemoveAllServices>>"[Event Procedure]n3W8`aPbcd l $lstRelatedServicesTable/QueryFSELECT tblReportsTemp.display_text, tblReportsTemp.display_order FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=7)) ORDER BY tblReportsTemp.display_order; 1440;0"[Event Procedure] Ariald25W`a<b7ceXYYYLabel105Servicesn3W8`a@)bcTd llstAllLabsTable/QuerySELECT DISTINCT tlkpCrosswalk.working_code, First(tlkpCrosswalk.raw_code) AS FirstOfraw_code FROM tlkpSetup INNER JOIN tlkpCrosswalk ON tlkpSetup.related_field = tlkpCrosswalk.working_code GROUP BY tlkpCrosswalk.working_code, tlkpSetup.health_status, tlkpCrosswalk.type_code HAVING (((tlkpSetup.health_status) In (SELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0)))) AND ((tlkpCrosswalk.type_code)="lab")); 1440;0"[Event Procedure] Ariald5]`@)a bHcLabel107Selectionsd5U`'a<b celblAddAllLabs<<"[Event Procedure]d5U`'abcelblAddLab<"[Event Procedure]d5_`a bdcLabel110$Included in Reportd5U`'ab ce lblAddSpecialLab<+"[Event Procedure]d5U`'ab celblRemoveLab>"[Event Procedure]d5U`'ab ce lblRemoveAllLabs>>"[Event Procedure]h1U`aPb@c@icmdCreateReport"[Event Procedure](ڭڭڭڭqڭڭڭڭK$[ n03W`abTcTdllstAllVitalsValue ListZ"Blood Pressure";"BP";"Body Mass Index";"BMI" 1440;0"[Event Procedure] Ariald5]`adbHcLabel134Selectionsd5]`TaTbcelblAddVital<"[Event Procedure]d5]`xadbdcLabel137$Included in Reportd5`TaDb ce$lblAddSpecialVital<+"[Event Procedure]d5U`Tapb celblRemoveVital>"[Event Procedure]n3W8`axbTd l lstRelatedVitalsTable/Query*SELECT tblReportsTemp.display_text, tblReportsTemp.type_order, tblReportsTemp.section_order, tblReportsTemp.display_order FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=3)) ORDER BY tblReportsTemp.type_order, tblReportsTemp.section_order, tblReportsTemp.display_order;1440;0;0"[Event Procedure] Ariald25WatbceXYYYLabel143General Healthn3W8`a42bc4dl2lstRelatedSpecialMeasuresTable/Query|SELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=9)) ORDER BY tblReportsTemp.type_order, tblReportsTemp.section_order, tblReportsTemp.display_order;1440;0;0"[Event Procedure] Ariald25]`1a<bceXYYYLabel145 Special Measuresn3W8`a0)) ORDER BY tblReportsSpecial.report_order;2160;0;0"[Event Procedure] Ariald5]`"[Event Procedure]d5U`;ab ce6lblRemoveAllSpecialMeasures>>"[Event Procedure]d5U`Tah b,ce"lblAddSpecialDemo<+"[Event Procedure]     !"#$%&'()*+,-./0K$[123456789:;<=>?@ABCDEFGHLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvyz{|~lblAddDemod lblRemoveDemod lblRemoveAllDemoeBox70nlstAllDemonlstRelatedDemod lblAddDx1d lblRemoveDx1nlstChosenDxd !Label74d $Label77d *Label83d ,Label85d /Label88d 5Label94n lstAllRxn)lstRelatedRxd "lblAddAllRxd #lblAddRxd (lblRemoveAllRxd %lblAddNewRxd 'lblRemoveRxn+lstAllDxn4lstRelatedDxd -lblAddAllDxd .lblAddDxd 2lblRemoveDxd 3lblRemoveAllDxd 7Label96d :Label99d @Label105d BLabel107d ELabel110d KLabel116n?lstRelatedServicesnJlstRelatedLabsnAlstAllLabsd 8lblAddAllServicesd 9lblAddServiced >lblRemoveAllServicesd ClblAddAllLabsd DlblAddLabd HlblRemoveLabd IlblRemoveAllLabsd =lblRemoveServicen6lstAllServicesh LcmdCreateReportd FlblAddSpecialLabd NLabel134d QLabel137d WLabel143nVlstRelatedVitalsnMlstAllVitalsd PlblAddVitald RlblAddSpecialVitald TlblRemoveVitald ;lblAddSpecialServiced 0lblAddSpecialDxd YLabel145d [Label147d ^Label150f`Line153faLine154fbLine155fcLine156fdLine157d glblAddSpecialDemod ]lblAddSpecialMeasuresd elblRemoveSpecialMeasuresd flblRemoveAllSpecialMeasuresnZlstAllSpecialMeasuresnXlstRelatedSpecialMeasures1D/13Fd    eBlobDelta#% PropDataCopyI3(P|MX@%MXBlob 1P    h    m     n     o     K$[r    Pn(dn(em+n(dh!dh!dh!ddn(ddddddn(dddn(dn(dddddddn(ddddddddn(dn(dddddddn(dn(dddddddh!n(dddddn(dn(dn(dddf    f    f    f    f    ddddͬc F4(vDetail{ TabControl0|!BPd Label17mtxtBPSystolicmtxtBPDiastolickfrmAnd_OrfrmAnd/OriOption42d Label43i Option44d Label45d Label27d Label28d Label29d Label30d L0=Babce gAh ijT$k\R? u@ Arial8hTf od,,Letter(PRIV to  yArialP_splmf01.exeZK$[dArialdBRIL07A.DLLEOSCC"<USB001 d2e12hghMS Sans Serifi1ghj1ghk1m5Cbc, Arialn2o2w2` DetailD]X@1gd{1U56abc,TabControl0 ArialG3H[Lm|} |1`<abcBP܄xU@oU2Bad5`a\ bXc,Label17OK Arialْ~OKj˽EOm57C` a4ctxtBPSystolic"|bisA-km57C` a cktxtBPDiastolic}SC#,k5`La4b:cifrmAnd/Or1frmAnd_Or~o";">=""<" Arialo025cd eXn푗/Jl=µHx,cmbBPDiastolicOperatorValue List""<";"<=";">";">=""<" Arialm57C`a| b ktxtBPDisplayMS Sans SerifGOTKN6eM;d5`a| bclblBPDisplay:Label for item You can edit! ArialFRK}@ϵFm 47C`axb chktxtBPCriteriaԌe$n@ŀT$d5`axbclblBPCriteriatxtcriteria Arialևj~Cv-|1`<abc܋K$[BMIEs֔I̙7b o05`cid ef.mT HKcmbBMIOperatorValue List"Numeric";"#";"result >= #.#";">=";"result > #.#";">";"result <= #.#";"<=";"result < #.#";"<";"Between";"between";"Average";"avg" 1008;0"[Event Procedure]"#"d5`]a bXcLabel72Criteria33|$XAbLd5` a bXc,Label73OK ArialKM@]m47C` a bcktxtBMIResult1"[Event Procedure]MS Sans Serif6FAXMim47C`a bcktxtBMIResult2"[Event Procedure]MS Sans Serif! DZcj2`a$bxcichkBMIAutoLabel"[Event Procedure]TrueWjEiN8d5`@a bcLabel77AutoLabel6.ٙGz d5` a bYcelblBMIAndand\=ךH: m57C`Da b ktxtBMIDisplayMS Sans Serif"_B07Dġd5`a bclblBMIDisplay:Label for item You can edit! Arial^J\l!m47C`ab chktxtBMICriteriaMS Sans Serife#U)DD Id5`@abcLabel82txtcriteria Arial7^zBdAݥh1` a b@c@icmdBMICreateCommand10"[Event Procedure](ڭ𭭭𭭭𭭭DDDDDDDD ڭ Close FormᱰK~du+d25`abP cYYYLabel84Step 1: Select criteria Step 2: Pick values (if required) Step 3: Optionally adjust label Step 4: Ok button adds item70WHU\!d5`a4bcelblBMIInclusiveinclusiveVHXhUOS7B|1`<abcLabw$-A9 o05`cddpef,S5JXOcmbOperatorValue ListH"Numeric";"#";"result >= #.#";">=";"result > #.#";">";"result <= #.#";"<=";"result < #.#";"<";"Between";"between";"Average";"avg";"result = abc";"=" 1008;0"[Event Procedure]"#"d5`XapbXcLabel130CriteriajOė%6d5`a\ bXc, Label3OK Arial5TL:mKm47C` apbcktxtResult1"[Event Procedure]MS Sans SerifH&7DS&{Wm47C`apbcktxtResult2"[Event Procedure]MS Sans SerifIV2~LcI fj2`abxcichkAutoLabel"[Event Procedure]True[DNPd5`;aLbcLabel16AutoLabelV?A3]Qd5` apbYce lblAndandE{LKpjm57C`a b ktxtDisplayMS Sans Serifa/NH$bd5`,a bclblDisplay:Label for item You can edit! Arial"2G据m47C`ab chktxtCriteriaMS SK$[ans SerifNP^Id5`;abc Label5txtcriteria ArialݒwNyh1` a b@c@icmdLabCreateCommand10"[Event Procedure](ڭ𭭭𭭭𭭭DDDDDDDD ڭ Close FormdμŒKgqzбd25`abP cYYYLabel15Step 1: Select criteria Step 2: Pick values (if required) Step 3: Optionally adjust label Step 4: Ok button adds itemt=|F9d5`apbcelblLabInclusiveinclusiveq}MOX{|1`<abcService+&Fɾk d25`,abP cYYYLabel234Step 1: Select criteria Step 2: Pick values (if required) Step 3: Optionally adjust label Step 4: Ok button adds item/zW$[E ¼o05`cdef;6 nG4cmbSrvcOperatorValue ListH"Numeric";"#";"result >= #.#";">=";"result > #.#";">";"result <= #.#";"<=";"result < #.#";"<";"Between";"between";"Average";"avg";"result = abc";"=" 1008;0"[Event Procedure]"#"d5`abXcLabel236CriteriaIO@m47C`K abIcktxtSrvcResult1"[Event Procedure]MS Sans SerifŧB\ ?1m47C`(abgcktxtSrvcResult2"[Event Procedure]MS Sans Serif؈IiNb|d5` abYcelblSrvcAndandzu@xd\id5`abce lblSrvcInclusiveinclusive8Fk$ d5`a\ bXc,Label241OK Arialbfi=AP)/j2`aLbxci chkSrvcAutoLabel"[Event Procedure]True\w>E4-zgd5`abcLabel243AutoLabel=ӥKc(=m57C`a b ktxtSrvcDisplayMS Sans Serif&ݒ®Dspd5`a bclblSrvcDisplay:Label for item You can edit! Arial\\LRm47C`ab chktxtSrvcCriteriaMS Sans Serif4OGV d5`habcLabel247txtcriteria Arialu-F7oxh1`m a b@c@icmdCreateSrvcCommand10"[Event Procedure](ڭ𭭭𭭭𭭭DDDDDDDD ڭ Close Form9P[A{M=F4|1`<abcOptions**%+@A}3v d5` a<b,c,$lblOptionsContinueOK Arial\K$[h1`La0bmc^$cmdOptionsContinueCommand10"[Event Procedure](ڭ𭭭𭭭𭭭DDDDDDDD ڭ Close Form8չ§RKӽ"d25``aHb| cYYYLabel232All report - gathers data across pts. PCP report - a report for each pcp. Insurance report - a report for each recorded insurance.u~E׵k5`a bc4ioptAll/PCP1optAll_PCPf<bAHi12`abtnAllReportrgLRFςd5`aHb cLabel260ALLp.8XK S!yUi12`abtnPCPreport+g+LC}-sd5`abcLabel262PCPZH@Rڮi12`ax$btnInsuranceReportAIld5`axb cLabel287InsuranceȍDNXۆ/m57C`aHbdchktxtInputBoxO/xFxpQd5`abcLabel264Report Title:"Ni?FURVd25`apbcYYYlblFilterPGender filter Age filter EthnicityFGC"2Rk135`(abPcioptGender1$9%G לχi12` acbtnFemakeiwLD D/d5`apbcLabel295Females!vLfli12`acbtnMale:Hr/Hd5` apbcLabel297 Males=FO,<~ i12`abcbtnUnknown3ݓ!'|:LBd5`apbhcLabel299Unkd ,}JϷi12`TacbtnAllGenderw0)^%E6Zd5`(apbcLabel293Allg0N'@]Tuk135`(a bci optAge"[Event Procedure]1YOhi12`Ta, btnAllAge9@/QBd5`(a bcLabel304All_I"@I i12` a, btnBetweenAge:'-Ood5`a bcLabel306BetweenPwOTYN Πm57F`a bhcktxtAge1~fHFFsU ۡd5`` a bclblAge1Age1 vB 1q#m57F`a bhcktxtAge2i,[lA_sBd5`a bclblAge2Age2#f=!JN d5`,a bhclblAge_andAndJmPHTQ0k135`4a bcioptEthnicity"[Event Procedure]1J 뤡GA57!+i12``a btnAllEthnicity3OEHTENd5`4ad bcLabel316AllX/ =K`( i12` a (btnEthnicitySelectedְxBZ=*d5`ad bcLabel318SelectedBp;MfB6n238Aab dl$lstEthnicityFilterTable/Query߂SELECT tblDemo.ethnicity FROM tblDemo GROUP BY tblDemo.ethnicity;1440YxmFaKW|1`<abcdemooyFmHe o05`cd efXù-L({[cmbDemoOperatorValue List"result >= #.#";">=";"result > #.#";">";"result <= #.#";"<=";"result < #.#";"<";"Between";"between" 1008;0"[K$[Event Procedure]"#"d5`a bXcLabel269CriteriaaBoöxm47C` a bcktxtAgeResult1"[Event Procedure]MS Sans Serifϕb'Hm47C`Qa bcktxtAgeResult2"[Event Procedure]MS Sans SerifָCZ³fɓd5`5 a bYcelblAgeAndanduYQhG>iin׆d25`Pab cYYYLabel273Step 1: Select criteria Step 2: Pick values Step 3: Optionally adjust label Step 4: Ok button adds item8xAad5`Da bXc,Label274OK Arial<"_HUaj2`a$bxcichkAgeAutoLabel"[Event Procedure]True\Yc_CP=d5`xa bclblAgeAutoLabelAutoLabeluL0B_@Rx6m57C`|a b ktxtDemoDisplayMS Sans Serif_EꨤlblSrvcAndd ?lblSrvcInclusived @Label241jAchkSrvcAutoLabeld BLabel243mCtxtSrvcDisplayd DlblSrvcDisplaymEtxtSrvcCriteriad FLabel247h GcmdCreateSrvc|!HOptionsd IlblOptionsContinueh JcmdOptionsContinued KLabel232kQoptAll_PCPoptAll/PCPd SLabel260d ULabel262d WLabel287mXtxtInputBoxd YLabel264|!Zdemoo[cmbDemoOperatord \Label269m]txtAgeResult1m^txtAgeResult2d _lblAgeAndd `Label273d aLabel274jbchkAgeAutoLabeld clblAgeAutoLabelmdtxtDemoDisplayd elblDemoDisplaymftxtDemoCriteriad gLabel280h hcmdDemoCreated ilblAgeInclusivenjlstRaced kLabel0elBox13mmtxtWorking_codemntxtTypeCriteriamotxtRaw_Coded plblCloseh qcmdClosed rlblFilterd vLabel293d xLabel295d zLabel297d |Label299d Label304d Label306mtxtAge1d lblAge1mtxtAge2d Label316d Label318koptEthnicityk}optAgeksoptGendernlstEthnicityFilteriRbtnAllReportiTbtnPCPreportiVbtnInsuranceReportiubtnAllGenderiwbtnFemakeiybtnMalei{btnUnknownibtnAllAgeibtnBetweenAged lblAge_andd lblAge2ibtnAllEthnicityibtnEthnicitySelected1D/13F d    e    h    iK$[    j    k    m     n     o     w    {    K L!M|    J<KLDMdmmkididddddddhoomdmd|    J<KLDM oddmmjddmdmdhdd|    J<KLDM oddmmjddmdmdhdd|    J<KLDM dodmmdddjdmdmdh|    K$[J<KLDM dJ K<L Mhh%JL&K0'L(MdJ`KHL Mk!J"K #L $M@i%J&K'L(MtdJKHLM8i%J&K'L(MdJKLMi%J&Kx'L(MhdJKxLMhm.J/KH0LT1MdJKLM dJKpLMV k!J("K#Lx$M i%J &K'L (M dJKpLt MH i%J&K'L(M dJ KpLMH i%J&K'Lx(M dJKpL MH i%JT&K'LX(M dJ(KpL$MH k!J("K #L $M i%JT&K, 'LX(M dJ(K L$M i%J &K, 'L (M dJK Lt M m.J/K 0L1M dJ` K L@M m.J/K 0LH1M dJK LtM dJ,K LM k!J4"K #L $M i%J`&K 'Ld(M dJ4Kd L0MH i%J &K 'L (M dJKd L MH n,J-K .L /MX|    JK$[<KLDM odmmdddjdmdmdhdndem+m+m+dJXK0LtM\h!%J&K0'L(MRBlob yNPropData,.wTypeInfo/x3BlobDelta}R      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~  0239BCabcxe ghijk~K$[,(AA֭{޵֭sޭ{޽޵{޵޽ƜƥֽέΥ޽ֵ{ޭsε޽ֵƜֽ޵sֵ罜޽罔Ɣεƭ֭ƔέΜ罌֭経組Υ$,&       % *    ))  )*        (! "   /           &$$         %%%   ) **  ) )      ( (( ' ! ## ! * ; &      :  /     $       %%%  ) ) )) )  )))    ( ( 4( ' ! ! ""## ' )              &$,      %  * * *  *) )       (' !"  &          &$&&     /   %%    ))))) *    ( 4(! " "####   ,       / $$$,&       * )  ) )    ( ( 4 !  "##"   & &           K$[$-&        %%   **  )       ((' ! ! " #" 3 %&&         &$,-& :       )         ( 43 ! " ###    ,           &-&--         %.%  * ))      ( ' '  #   &  :           ,-&& :     %%   )        (   ( ' ! "###"   &-&               &&,&-&           * *        ' ' " #####! % &      : :         &&-&&$$,        .. ))       (! !"### (                &7-$K$[;7-&&     //  %    )   ( (4 ' ' ""# '    &&            $,&   :     %  ))*        !  "###     /      &&&-&7$,&--&&        %   )*) ) )*   (  '! ""### !          / &-$,,,  :  :        *))    ( '  ! " " "           &7$-&  : :     %   ) ))        ' 3 " ""##"!    %        : &$,,    :      %  *))     (   '! "#" ! ' *     /   $$&K$[           .  ))) *   ( (  ! " "" '          ,$,,,   :        )))   )*    3! "" " "" ! !     / ,$$-&&    /  % *   )    (   '   " (  %       7$$$$,,,&        .   *      )   (  ' " "" " ! '         $$$$$,  &            *      (  ' ' !     " '  ) %     $$$$$$,    &&    .     )    ( ' ! " "  !  )*      ,$$$$$,,&   : :         .       ( ! "" " "  !'  %. %     &K$[$$$$$$$,-&&        %     % )    (   ( " "" ! " " !  %   $$$$,,&      &     %%  %    *     ('! !" "  ! "    %.%  &$$$$$$$$$,        :   :     % % % ) *   (  4 " ! ! !  " ! '  .   $$$$$$,,,&           %  %          !! ! ! ! !  "  3   %   $$$$$,     /         % %%  )    ( ' !" !  )  %   $$,,,-    /  :      %    *))     3!''(' ! ' ! ! !'     $$$$$K$[$$$$$$$,,    /       .    )     (''! !'      $$$$$&&        /        )     (4('  (!      &$$$$&    /  /      %    )             ! !  *   -$$$$$$$$$&,,  :          %    *      (           $$$$$$$$$$$$&,7              %%. % %% *           )* ( '     $$$$$$ &         /   .%% .           )        &$$$$$$$$K$[$$$$ 7             % . .     *   )        $$$$$$$$$&   &           .%.%% .   )     )     $$$$$$$$$$              %%    ** *             $$$$$$&     / &   /      %      )))           $$$$$,$$$&     / &     .      *))       ) * *    $$$$$$$$$$$$      &&              *  )        *    $$--$$$    K$[    &        * *) *       )*     )      $$$$-,,$$-        ,            )) % %           %.   $$$$$$$7-,$     &     & / &    )))) *   )    )**     . $$$$-,-  $             . *   ))  .%   *) % * )*) .%%  $$$$$&    -&      &       *  * ))  *      ))* )   * . - ///  $      & .  %   *    %    * * *     %% $$$$$$$$$,,  /   $    %           .  * **  % ) *          K$[$$$$$$$$,-  /   -$$         .        %  .  * *       . % $$$$$$$$$$$$,            .%%          % .%  * ) *        % $$$$$$,&, /   7$           %       .%.                $$$$$$,--      ,  %  % *  )) ) )*  .% * %        $$$$$,   69  $  &- % %%   )      % *     /    $$$$$$$    =6. 6  ,&     ..  * )      .       &&$K$[$$$    6  &$   %%     )         %      /  $$$$$$$$,,    =   ,    %%   ) ) *    %         $$$$$$-&   6  / &    .% )* * * ) ** *)* ))         &- $$$$$-& / 6 96969 =      *  )      *)  )*  % $$$$$$$$    969 96 6 / & %      %   *   *   ) )  ) . $$$$$$$$$$$    6 9   -&&,-/ .        % * *  .% %     * *    $$$$$&  .6K$[  &&$ %       * %     *)     $$$$$$$-     69.   && %    % % %       *)  6  $$$$$$$,   / 6    &$   &&     %%     %    / $$$$   = / &     -&     &    $$$$$$&-  /  6%6 /    -&$    &         $$$$$$$$          ,             $$$$$-  /      ,   K$[        &   $$$$$$$$      --&&  --    $$$-         &&&,,$&  &&$$$$-       &&&,$ $$$$$-        &-,,,$ &&-$$$$$$$$$$&& &&$$$$$$$$$$& & ,,&-,,$$$K$[$$$$&& &&&-,$$$$ &&&&-&-,$$$$$$$$$$$$-&&,&,&&-,&$$$$$$&&&&7$$$$$$$$$$$$$$$-   &$$$$$$$$$&,&-&    ,$$$$$$$K$[$$$$$-7,&    $$$$$$$$$$$,&-      $$$$$$$$$-&-    %%  ,&&$$$$$$$$$$$$$$       && -$$$$$$$$$$$$$$$   %% &&&  $$$$$$$$$$$$$$    &-&&    $$$$$$$$$$$$$$$K$[$   %%%      &-$$$$$$$$$$$$$$$$$$66 %%  %     &   &&$$$$$$$$$$$$$$$$$$$..%%    %.         .   - $$$$$$$$$$$$$$$$$$$$           %        $$$$$$$$$$$$$$$$$$$$$$ %   **           %        &$$$$$$$$$$$   '  %% 9                  $$$$$$$$$$$$$$$$$ *)  ! '  %.%  K$[%%          $$$$$$$$$$$$$$          %%          &$$$$$$$$$$$$ *    ! " !  )  . %%.       /  / $$$$$$$$$$$$ *   !  "    .%.   &      $$$$$$$$$$$$$$$$$$$$  ! """ !  %.  &&&     $$$$$$$$$$     ' ' " " ! ) %.%.%      $$$$$$$$ 3!    %.  &&-     $$$K$[$$$$    ! ! "! "! '   .%%%. &&    $$$$$$$$$$$$$ ('  "  !" 4     .   %  &--&   $$$$$$  ( !     ) ..%% / &&  $$$$$$$$$$$$$$$$   !  " !       &&-&   $$$$$$$$   ! ! ! !    %  &-,  $$$$$$$$$$$   '  ** %  &&&  &K$[$$$$       *   &&$$$$$,$$$ ** ******  % %  $$$$$,,$$%        %  7&-$$$$,&-$$$   %%  %%  &&&-&,-&&&-$$   %.  -&$$$$$-& &&$        &$$$$$$,K$[&  &       .   7$$$$$$$-,    & / :       &,$$&-         &$          &$$$$--           &$          / ,&&$$$$&       /     &        /   &,&$$$$$-     /          $$$   & :   /   &$$,     /      /    &$   &   K$[    /  ,         /      $     / ;-$$,&       /        &$      ,&-$$--             &$  &&     ,,&-&-      //    &$ &     &$$&       &$$   :  ,7$,,7       &  &&-,K$[$$-&-     &&  &&-$$7-     & & &&,7,$$-&,$$$ &-,,,$&&&,&-$$$$&&&-&-,$,&$$,&-&,,K$[$-&-,,,&$$&$$-&7,&$,& $--,,,,,$&&,,  &$&& $, &&&&&-$,  --&&&&K$[$&  --&&$$&&&$$$-&&&--&&;-$$$&&&&&-,,&$- &&&,--$$,&&&&--$$$K$[     &-,,&&,-$$,&-&&& :     & &&&---&&&77,--$        &,--      ,&-&--$,&    &&  //   &-7-&-&-& $$$$$$$-    &7,        -&-,-&  --$$&&     &-      &&-&7,-&-& &,,$K$[     &-  /  &&7,& &&&&$$$$$$&   /  &-7    69= 96       &&&-&&$$  --       &&  ..%9         && &&$$$   7         &,&7       .        && $$$   -&    ,     . ////  /               $$$      -   / &,--  .%  ) %   /                $$$$        &&   /   K$[,&    )    9   /             /  /  $$$$$$$-&   %     &&&&&       : &&   %  *  %                   //     $$$$         &&        &&-,-  6%      % 6...                  // &$$$$$    %        ,&    :  &,&    *      %. 6 6 /     /       /   &-$$   % .       -          &-           %  .9    ///          9 / &$$- 6      %    &          &  9   (     *   .9   /   /    99  &$$$$  % %%. % .%   &&            &&-,     (3(   * ) )    6         /K$[  %.% /  &&-$$$$$,&  %   %%%    %   ,,-&          &&-      33      )) *  ... 6    / 9. %% / $$$-&      ) .%%%% )) %  ,,,      &&7  /  *  ' '   )     9           6   .    &$$$       69% %      %%  )) %  ,&               &---    6.   ''' !(      )   .69      %       $$$$$$        . *    %% )     ,&          &-&  /  = )*    !'('       )  = /   .   .6     $$   /    )*   * )       %  ,            &&--  /     ! ' ' !  (     *)  *    % 6 /  %       $$$$$      /  . *)  ) *      ) %  7&            &---,,-   6  ('    ''                 %    %=   &$$$$$K$[        % )  3     %  )    *  * .  -&- : :          &   )  ' ! ' ! !  (    )) * *       %   %6   $$       .%    '      *   &&-     :        &    %  * (' !   !(        ) ) * %   .    %%%   $$                 )))  . ;&,&&-&         &      9.    ! ! ! '  !4        )  )  ) %%%%    % %%   $$$$&        %%             )     &,7&&--&       &&,-& //  *   ! " !  !(          ) *   %      ..%  $$$         ('!' ( ) *)*          &&       &,     4! ! ! '  (   )    %%      %%.  $,  /   %       4      )    %   &&&    /  &,  /    (!  ! '(           * )  %      .%  $,,        '!!  K$[ '       * * %   &   &&     : &,    .  4! ! " !!  '(  (           * % % .%      .  $$,       .    !'''  '('      )     &&           ,- /    ( !! ((         )*)    .     &$$$,&7        ('! '  ''''  '       && :                & /   .   ' ! ! ' ! 4 (  (         )  %      $$,    .. * ('  ' !! ! ! '    )*  %     :                     ,7 /  ) ! ! !! !( (          )     %%        $$$--&          '' ! !  " " " ! ! '                              ,   %    ! '   ' (           )    %         -,      . % * ' ' " ! ! " "      )* % .                       ,  / %   ' ! ! !  ! ' '  (          *   . %%         $$$$$&,;    /    ! ! "  ! "  !"   ! '(    .                    K$[-,-/ 9. )   ' " "  '  (4              )  %         $        %  ! " "  ! """ ! !4     ) % .%       %              ,        ! ! " ' ! '('((               *  % %%   /    $$$7-&    .! " " "" ! 3   * .%%     % )   )         %  )*  ( 4 " " !    4(3           ) *     9       $$$$,-   /   %   ""#    " !! ! !'       %%%% .%            %     ( !! ' ! ' '(4    (        )  .% . %% 6  /   &$$$ -&-  %.% )(! " " """  !         . %     . )    %% %.      -  .     ( '  !   ( (    (           =    &&&$$$-     ... %    ! '    )   %      %%      *     &  %      ( '' ! ! ' ! !3   (   (       ) *  %%%6 /  &-&$$$$-&,,   % %%   "###  ! '    *           *    )  %%     =         ! !   4 '(4'   ( (    K$[      . /   ,$$$ &,,&--   .%  %     ! "#####"! !      ))    )*    )       )  % %         )     '! ' !  ! !' '((3  ( ( (  (       ) %%%6      ,,&    %%    ) )  ## ' '  *) *)      *)))       ) %      ,&  9    (     ! '  '   !'(' '' 3('  ( (      )     &-7$$ &,,   %        *) * ' ! "! 3   )  ) *           *))))  )       %   &&,,   6 ))     3!! ' !  ! !!  ''(4    ( (     ) %.6    -$$$$$ &,,,  %      )) *  ##! ! ' '   )*))   *))     )  *)   )  .     .   (      ! ! !!  !! !' !!''''          .9 7$$$$ &,,-  % )  **  (' ##          )  *)  * )    *)  )  ))*)      &-; /  )*   (  34' !! !! !!  !  !       ' ' '  (   )     $$   &-&&    )         ! " !  ! '    )) *  )  * )     * )    ) ))*)) %   &,-& /  =%     (  ( (    ' ! ' !  ' ' ' ' ' ' ! ''3 '   ( (     * %.   &K$[$$/  &-&-                ! "# ! ' (             *  ) )  * )  *) ))   %    % )   ( 4' '!! ' !! ! ' ! ! '        (    '   *  %6  ,$$$  &&&--&   %     ' # ! !  '4           ))*)  *    *   *  ) )) )* *         ( (( (   ! ! ! ! !  ! ! !! ! !!! ''(4  (          $$   &&-  % *)      3 '(4' #  '3                  ) *   *  *) * )*  *      ,-&  9% )   4 ' '' ' !! ' !! ! !   ' (( ( (     .9  &,,,$$$   &-           ( ' ! " #! ! !((        (    *       )  )  )  %  &,         (((     ! !! !!''3  (     6  -$$$$     &-&   %  )    ('' ' ' ! ! !  ""  4  '       ''''3    )) * )* )    ) ) * ) *)        .   ( 4 ' '' ! ' !! ' !! " " ! " ! '   !'((' (  (   %  ,$/    &   %   '! !  " " ! ' '        3 4' ! ! ! '  ) )*  *) *  )   * %.  & 9    (  (      ! " ! " " !  " ' !!  '  (4     $,        / % )   '! ! " ! K$[!  " """  ! !  ( (   3  ' ! ! " ' !     )   ) )) ) *)      -,       3'' ' !! ' !! ' ! ! ! ! " " " " " "   !! '' '     9  &,,,$        &   . )    ! " "! '(      ''(' ! ! " !  '       )   )) *  .%  ,&  9%   ( (       ! ! " "   "! " ! !  ( ' '   .   7,7,,,  / /               ' ! ! "" ""#"" ! !''' ( (  '! !! ! """" ! ! " !'        ) ))    *   %  &&   6     3'! ' !! ' !! ' ! ! ! "  ! ! " " " ! ! " ! ! !! '!' ('     -,--,,--               %     ' " "###"       (' ! ! ! ""  !   (      ))))     %  - / 9%  ((       ' "    "  "" ""    ' '    %6    7&,,7& / /      % )*   '  "#####  ! '(3' 3   '' ! ! "" ### " ! ! !'4      ))))) %    / 6. )    '!!! ' !! ' !! ' ! "   " ! ! ! " ! ! ! ' ' '  3   %  -    &-&&-&& &            % *    ! ""#######!" '(   (  3 ! " " "## "  ! '3      *)*)) )) *  .   -  /    ( '        !        " !  ""! " !  !(      % / -   &-&&,&&&&    /   )    !#####  ! 3     (' !! "### ! ! '          ))   %  K$[,   =. )   '' !! ' !! ' !! ' "  " !" " !    ! !' '      &      -,-&           .     ' ## ' 3   ( 3' " ## " "  '(3'     )  ))    * . %  ,    * (        ! !       !" " "" ' '   )    ,,         ,&     / &       )  3  ! ####" ! ' ( ' ( ! "###"  ! !'  (     ))*)    &-   . )  3' ' ' !! ' !! ' !! ' ! ! !   """" ""  " ! ' ! 3   *  %   &-,,-         &&&      //    %%       (' "#####" ! 4 '  ''!  ## " ! (' (     *)  )    %.%  --    *          !  "!   ! !    " !" ! ! '(  )   ,-7 /  /                        / ..%       ' 4! "####### ! '('' " !  ' ' 3    ) * *    ,&   % )  4' '! ' !! ' !! ' !! " "   " " "" "!  " ! '    ) %   ;, /       /                      %%.%%%% %  *     ( ' "######### ! ! ' ! !! ! ### "  !' (     ) )    *  % %%  -   *  (       ! """ "   ! " " "" "! " !' 3    7  /                96      &%%   ..%%.      '(' '! " "#"  '!  ! 22++#  !(   (    ))))   &-   %    ' ! ' ' !! ' !! ' !! ' ! ! " !"  !K$[ !  " " " ! !   ! '( (  *  %6  --&    6  /  /   /  =6         % %%      )  (     " ! ! '(! ! "#008812+ ! ! 3 ' 4     *))    *   .%  ,-       '         """ " " !! !"  !" "  '(4      ,7    = 6 %%9        .%   = %  &-& /     .% *)    '' ' ! ! ! "! "### ! '!''( "+11<51# ! ! '( (    ))    &,    %   ((' ! ' !! ' !! ' ' '  ! ! !   " " " " " "  ! !(4  ) .   &,-&   // 6 = .% 6 %  %9 6   ,                 (   ! "  !"     !"# " !((('!! !"#2828585080  !  3 (       )))  %%  -  /            ! """" ! ! "  "  " "  (4 (   %  -,,      %   %% 9 9.   % 6 9....      )         )   !' ! ! " ! ! !  """## !' ' '  "++10<+5050<1#" " !4        ) )    ,-    % ) (4(! ' ! ' !! '! ' ' ! ! !  "    " "  """  " ! '(4(    %  -      /  ) %. 6 9     )   .. 9 .  &&       * *       ('! ! ! " ! " ! ! "# !(   (' ! " ! #<+555555801+#" " !((3       **)  * %         '         """! ! ! " ! ! ! " !  3   ) 6  ,,--       % )   %%%%  )* .%.    ,    ) ))*      )  (   ! " " ! ! ! ! " " " ""#"" '     '   ""++8<55555550<2+ ! !4(      *      )     &    )    ' ' !!! ' ' ' ! ' !! ! !    " !   !!  (  )  % / 7-               K$[%%.         %     ,  )        ('! " " "   !  ! "  !  ' " ! #10855550551+#""         )* *    %%  &,     * (         ! ! " " ! " '    )   &,     /     *)     %        %%.%%  &     * )))   ) (4! " ! ! ' ! !!  ! ! " ##"     ' ""0<055555510 ! '         ) * ))  &-   )   4!!!! '! ' ' !! ' ! !  " !   ! "  " ! '!(4    )    -,-           .   *  )          )    &  &  )           " " ' ! (''''! " ' *  ! ! ! #10555852+1+! ! !      )) *    %  ,   9             ! ! ! "  (    ) % /  &       % *   )          . %%.  / &   -&&  *) **     )   ' ' " ! """  !'(4 ' ' '(' !"! ( *   ( ! !"#+1+5058<+"  ! '     ) )    -,-  / 6. *   (4 ' !! ' ' !' !! ! ! !  " " !' '      * . /    &,       %    )*   *)   (    *    &  & &   *   )    "  " " ! ' (    '  '   ('' ! #+25<5512+ ! '(      )))*  *)    % ,    . *  (      ' !  ! ! " ! ' ( (  )     &&      6 6...%%%%  * )    (      .% / & &  **    %       ' ! !!! ""  ! 3      '! "" ! . * (' ++++ !  4      ))   %        (4(' ' ' ! ' ' ' ! ! ! ! ! " ! !!!'          &-    6 %%   )  )  )    (     / &,  ,%         (K$[( "" '        ! ( * %   '! #++ '4 ) *   )*  )       , / 6.%      '       ! " !  ( (    ) 9  &  /    %%     )      * )))  ( (     % /  &- .%    %.      4 '' ! " ""  " 3        ' ! !        #" (  ) *)  *    ) )) * )* %,,, /  )   ( (4' !!! ' ! " !  ! ! ! !' '  (       &&   =%       )* )))))  *    (   %    ,&  %%  % * )  (  "! ! !'           (     *  ! "# '4  * * ))  )   *)* )      ,  / .% *   ( (   ' "  " ! ! ! !  ! (  3 )  %.6 % .696   -&   9%    ***                  % /     %%.%  )   )    ' " '((           * ! "" ' (   * )     * ))            6 )   34 ! '! ' ! !  ! !! ' '  (     6  /  7& /  6               (      *   /     % )        ' ! ! ! "     )            # " ' )   )  *  *    %  &    .% *   (  ! ! "   " " " ! ! !  ' ' 4     * %%.%%6    -7  %           (   (   *  %       %            ! " '3   *)   *      !  ##"! ! (                 -     % )   4 ' ' '  ! "  ! " ' ' !(' 3( ' (  * % %9    & /    ( (((((  ('      ( (  )*       -    %           3( ! '(    ) )*  *  *      ) ' " '  * %%  *      K$[    * %  ,,&  /  /      (  ! ! !    " " " ! !   ( '((4(      )  %      .     ((  ! ' ''' ! ' 4    (     *  %                 '! !    )   %%%          *) ! ""  "" !(   %.%  *)))* * )    ) %       / =%    ( ! ' ! ! " " " ! ! ' !('('(' '('       6     /    ( (  ! ! ! ! " ! '' '     * %        )   (         ''  *    %      ( ! "! ! " ' '   %     *  *)   )        /     '   ! "  "    ! ! !! '  ' ' '! '('(    .9       6 .  ( ( '  ! ! ! ! ' ! '(   *)     /    .       (       ('(    ) %          4 "! " " ' * %  )     * % ,      ..    '! ! ! " " " ! !  !! !'   ' (4   *       = .    ( ! ! ! " "! "!" " !    4(     &          '!3(         )           *  ('! ! ! ! ! ! !'    % *    ))*   ,      % )            " " ! ' '  !  ! !!!!! ' !  ((3  )* %6     6    (( ! !"" ""! " ! " " " " ! ! !  *  %   , % *  (4(        )* * %                !  ! ( * %     ) ) *  )))   &      .% *  3! " ! " " !  ! !  ! ' ! ! ! ! ! ! (     .9 /     =.%     ""   "" "" !" ! ! !  '   )   /  ,&.    ( ('! !!(      *    %    //     '' (''' ! '   %    %  *  *) )     &,,    = ) (  ! K$[ ""  "  !    "" " ! !!! ! ! ! '   3  % /    %   (  ! !" """"!  " !!! ((  *     %% )  (    '    ) * * )*)*           ---  )   (' '    /   ))*  * *** * %     6%% )  '! " " ! " ! ! ! " " !"! " ! ! " " " ! '(   )* %.    / 6%   (  " #"##     ! !! '( *          '! ! '    )    %%%         ,       ('     /   %   %%      % &,&  6  6. )   ! ! !" ! "  !"  ! " " ! " ! " ! ! ! ! "    6  / /    9%  *    ! "##### #  ! ((   %  )* ) )     ((    ))               &&    *      )        *)    ,,,&&  .%.%   (' ! " "  " !" " " " ! "!" "!" ! ! ! ! ! "  " """ " " ' (  9   /   *  ( ! "! "#### "!  !! (((   %     (( 43(''              &&&-,       *     /  /  %  %.%.   %  %  ,,,,  6 %%    4 "!"  " "  " ""  ! "  "  " ! !"" """" ! (    %      %     (  " ###" !         &     (( (4    * %%            ,  **    .        %%  -,,,&  6.      )  '!  " " """ " " ! " "! " ! " ! " "! " """"""  " ! 4(  %      6.    ! " ###"#!" (    * %  &  ( 4 4''      *               &&,      *  * . .%        %  %  &7,,    ) )   )* ( ! !" ! """"  ! ! " !"  !  """"    ""      %9   / .    ""#K$[## " !      &      ((( (3               &    %   %  * .                -,,,,&     * )       ' ' !  " "  " " ! " !" """" " "  "  "#" ! '  * % 6 /      '( ! !"##""!   **          4 4 ''( )     .    &      &-,  %* %        .%        &-,& % )*)))    ! !   " ""    ! "" !     #  ! !  )   / %     !  ### " !(      7      ((  *   %   &      -    %.   %           ,,,    )      ( ' ' !  "! !! ""  "    "" !   *   /   )    ('   ##""      7     ( *   *     -&&     &-,&      ) ))             &,-&             ! " """ !    ! " #       " !!    @      ' ! ! "#  ! '        *   * *      &    &    % *                &- &,, )         ( ' ! " " ! " "  """"   ! !  ) . /  .  )  (' ! ""#++++#"! !     &  )))*  % *)       &&  . ))       :  /      ,   6  3  ( '   ""  !"   !"       "     "" ! (( *      6%     ! ""#+2+#" (  %   K$[**)*   )               )             -  &&  %      3( ! " ! !   !  "!""#  ! !        / @ 69 )  '! ! # #0+00++#!! !(    $        %    -&  ,,&  %  ))  /         &&-    &,&-         !! " "  ! " "!  " ! ! """ " " "  ( * %         ' ! #++2+0+#" '  % -7 * * *    %        &,,,&   *)       :      &&    --,,-&&  % *  ' ' ( ' ! ! ! "  ! " " " #"  ! ! " " ! ! !           ! ! #"#+0+00++ !      -%      /    /  ))              -,      ' '  ' '' '  ! "  """ "" " " ! " """! ! "" ! (          %  '! ! " "++010++ " !(  /&$%        &  %       .      &&-,     &,,-,-   )  '   !   ! " "! " ! "" "  " " ""  " " !   * %       )*     !   +011112+0   % ,            &&,   **         &7     ,,&  %  3 !! ! ! ! ! !  !  !" !  " "  "# !"!"" " ! !         :   )  3! !  "" #+00+111++" !!(   &           %  &    *  K$[          ,&-    &-&&,-- /    ! ! "  ! !"! ! "" " " " "  "  (((        .   3 !"##+1111110+# " !   % /,  -        &  .    :         ,&-&    &-&  .   " "  ! "" ! ! "" "    "!#" "         %    ! " #0+21110## (  *           -&              :&&&    &&&-, /   '!! " ! ! "   " ! " ! " "! ! ((    * *              ' " ""#+++1111111++# " '         &                     -&   &&---&&    ! !  "  "! "" " ""! " "  !       **            ) 3 ! "  #+2+211100  '(           &,  &&        && :     -    ' ' '  "!" " "" "" "   " "  " !           .  )  ( ! " " ++1111+ !   % / 7 &-              &-   :&&-&-&&  &,  % *   ! " " ! ""  #"" !  "  "!"  ""  **        % )  ' ! ##++021110+2+#  !'           &-      - :  :  ;  &&   K$[' ' " ""!"" "  " !" "" " ! !" ""! ! !  *          )  4 ! "#++0+" ( ,     &&&  &&     &   &&    ( " " "   " " "  ""!" " '             %%  ( " "# #+2+2+00++""     , &  7&  ,      &     ,  ) ' ! ! " " !  " """"  " ! !"" " !           *    ! !"+++00+0+#     /& -  ,     :     -  /    *   "   "" " ! !        %% ) ( ! "##++++      &&       &        ' !  !" # ""! " ! ! ! ! ! ' * %         ( ! "##++++##  ! !  % ,,,-&                 " "    #  ! " !     //  .  ( ' " """###" (   &- :  :    & :&- %%. &   ! " " " #"! ! " "  ' !'   % &       ( K$[## " 4  % ,&7-  :  &  ,-&       !  #"## " ! ' (    /       ( ! "## (     --&  :   &&  -&   & 3 ! """   ##"  " ' !   ''   *   -&     . ) ( ! "### "   *    ,,&, :      &-&&   &  '  ### "!  ''   %  -   *  " "##" !(   % &&,-&   &  &-&   &  ' "  "######  !' '   *   &  %  ( ! " ## "      &-&&  : & &-    &    ! #####""  4          (  ! ! !  ###! !   *) /&&&  &&&&-    &   ' ! "  "###  ! ' '       .  (  ####! 3 )    K$[,& &&&,&         "  ######"! ! ! '    %      ( !! ""######"" !    &&  &&7,        ! " "" ##   '      & %  (  ####!" ! 3    -&& &-&, &        ' " ## ! !  % 7     ( ! !  #### " " ! '  )   && &,   &  %    "## ##   ! !   ,    (  "  #"#####" ! !    $   & &-&&,           ######"    -  .  ( ""###"" ! !   $    &&--&       -&   #"##" " '  . && /     " "" ### " ! '     K$[      &&-&   -&    % .  ' "#######!   &&    ( "###" ! (        $      & &7-          ####### '    / . )  " !    "#" " '          &-&    *    *! " #####" !   ,&  )  ( ! #" !" ' **       ,-7          ###### (    &     ! !    "! !           &&&   ,   '     ! !######" !  . /  % )   ""  " ! ! ' )   &$$$    &;       3       4' " ! ####    7   * ( !  " !" "  * %%  $     &&&   &)K$[  *      (  "  ####### !  )    /  ) (  "!  ! !  ) %   % /                   ' ! "! #### !  * %  ,-&   ( ! ""  ! ! !3  %  -  %           &        * ' !    """##### !   /-&  %    ( " ! " ! ! !! (    $&- %  . & .           ..   ! ! !! #! '      *  ( (    " " ' '(  % / -$   .  &   /           ' ! ! ####    7    (  ! "  " !! ! '      $%    &  % &        % " ! ###" ! '  %    ( ( ! "" "  ! '      $,  *   .    /,  %     ,     * ! "#####    ,K$[ % *  ( !  """ ! !       &- % )  %    %    &     ! ""# !'   ,    ( " " !  ! !  %  -;??, %  * *      :      &&      ' ' ###         (  " !  *   ,,$;>               &&--&     ' "###### " ''      ( " "" " " !      ??-    %%    :              "# (   *       ! ! ! 3 *  % / &$?                  &--7     " ! #######" '  ) .       ' " " " " !*     &;;- -  *   %.        / &       ' #####         "" !   .  ,K$[>?       *          &      ,     '' ######## ! '  )   -     "! " ! ! ' * %  -& $>;>         %%     % % &       %  &-      '  ! "######## !         !       $?,;; 9   /     %         &-      .        ! ! "# !'  *      "" " '  .   ,>>?  %    %%      %     *     & (' )   %  &   * ' ##!"""" !        ! "      >;>, %%  .  % % %   .    !        &  %  "# ! ! """"     &     ! ! '    -,$;>9 %   *   %%%     * *     ' '          "##### " ! ! ! ! ! !"" !4      ( ! '    / K$[;;;;, %%     % .%%     * %     ! (        &   ####! " !  !    %  -     -$;? ..    ) ) %%         .   !'              ## !'('!!! ! '  *  -&     *  ,,,;>,, %        %%%.    %         *    3       &    !###" ! '(   ! '        **  /,;>,;9 .%      %            *   *  /        "##" !(4          -     $$;;?;;,,;,     )     %%    )     )               ##!       *      ,$;;,,,-,  %%  **     %   *   &              &   ## ! '     *       $$$>>,,,,,,-      *)*  %       *  K$[  /        * ##" !  (   *) **   ,$$$>;,,,-,77,,&    %  *  %%.% %     ) &   /   //      /   !#" !     *   &-$;;,,7&,-:   %%    .. % )   *     /          6%    " ## '   *)*    &;,,,-7&-,-&-, /    .  %%% *    )           %  6   ##" (        &$,,,77&&&-&7-,;-&   %%      .        & ,-         )  ' ##" " ! ( *   ,$$,,,,,&&--7---&   .%% .%%       ) %   &-&       .%    (  ##! '        -$,,,-,7&&,&-,,,-    %%   %     (   *)   ,-      (! ####"  (  )* %   K$[$$;,,,,,-&7&7,,,7& /  % %%%%% % %%   (        &&&    %  ))  ! ###" "   *    $>,,,&,&&& -&      % 3'3       %  7     @ %  * ('(! ####"" ! '    %    ;>;,-&-  &    . )   %%% .     (          &       *)   "###" " " ! (       & >,,,,         *   %   3!'   (   *  -      %    (( ! ####  "  '   *   &,   -,>,77            % .    !    ( 3   /&7   :        ! ####" ! 3   %      >        % )  *  %   ' ! '  !   ( 3  7     % ) ( "###" " ! ! '        K$[   ,,,,, ,7,   /           *     " !3 (( *         )  (' "" ##### ! !          %-7,,,  -,- /          *)   ' " "     3!3   /     %  *  ( "  #  ! '(       ,   ,77,7-,,,  7  /    )    (  ** ' "  " ! '    3*%       .    ! ""##### " !! '    %   ,  . %-&&&&-&   -&7& /  .             '  " "      3(4         @9  * (( "###"! ! !  '           % ,  -     -&-         3 3  !! " " " '    4( ( */        (( " "##"  ' !!   *    &  % ,    &     & &  / % )*  '   ' ! ! """!    3''(      6.   (( ! ##! !'  4( * % %       % *K$[  // --&      / %%  '' ! ! ' ' ( "! # ! ' ''           (( ## ! ' !(       ,   ,,-    ,        // %   ! ! ! !' ! ! " " ## !' ' ! "           " !##""!  ! (4        % , /// / , &             4(' "  "!  !  ! !  ""  ###" " " ! ! " ( %%   %   ( " ####" ! ! ''(           )*;,-,,  // ,-          /   ' ! " ""  !  ! ! ! " ## ! "        ##"!" '             .  -, /               /  *   "" !    ""####  " *      ! ## "  " !'(3  *        .  $-& /  // &&             / .   !" "# " " ""# ######  )  9%    #" " ! !         &    ,--&   /  -,     @ %%    //  )3' #"!" !  !"""  #K$[###   ' "## !   (        &    %    ,&--,-  /     7&/          .   "# ! ! " " ! "" "### ' *  #"! ! " '            * 47,-7-  / ///   /    6 6 6.  . /     #" !  "" "### ((!  " " !  )           3 -&    /        =        9%   ! "##" ! ! #""""+++++++0++#" !  *      &,    ,-& -&- /         . @  ) ) ) % % *  ! ####! !  ! ! "###++22+0++2+2++### ! ! ! '( *) %           (3 '   &-- //  //      6    )* * %= 6.  ! "#  "  ##0+2+++0+0+0++0++0++#"" !   '(  )    &   ('  : -  /   /// /   96 %    )  6  ! " #"! " " ##++++22+0++00+0+##" !!''     &  K$[ %    !&    ,--&      / / %% * )     %    ## """" ##0++2+02+0+0+0+0++2+++2+0 ! !' (    %     %  ' ! -7  /   /   /  ..% )      9.  ( ##"""##+2+++02+0++00+++# "                (!  ;&       /  %         * ( "#" ##0+++0+22+++2+2+2+" ! '(4    *     4! ! "?   //  /     %% *         )  ( ### ####++2000+++# ! '    *   &   ( ;      ..9  %            (( "### #+00+++++0+#"" ! '     %%  &  ' "!"?,7&  /  /    . ..            !#####++2++2000+# '(    %  K$[,   ! ";,&    / %%%.%           (  3   (!  ##++0++2++2+++++0+!     * .  ,-    ! ! ";;,&   /    // .%.             (     ( ( ( (  "#####++2++00+0+++++0+000+## ! !' *    &&&   3' ,,,&  / /   /  .  )   ) ) )       ('  ' ((! !  ######+2+0+2+2+++++2++2++++#" (      ,    ' ! !,-&,,,,,    / %. . %  ))) )      33!' '('('(' ! ""####++0+0++00+002+020+0+0050+2++## " ! ' * * * %         (!!  &-7&7   / //  %        *))    (4 ( !' '  '! " " ####+0++++0++++++5+++#  )     ,-     )  ' ''       %. )    ( **    ('' ! !! ' (''!! ! " "####+002+20+2+2+0+2++25+2++0++# ! (            33(4       / K$[    %.%    ) (        (4 ! !' '!! !! ""###+2+<11+<82+0+++0++2111+++++##"" ' *  &  %    (      / / / /    .%%     *)  (''          4!  !!!  '  !( '  #######++211+<118112+0+0+02+0+0# " 3   &-         / / . %    ) *))**   ( ((       (  ' (''!'! '  "#####2+<+51+58512181100+0+2++# !     && %        /  %  )    *   * (((( (  (     '' ''('   " "#####++00111+<12888215<12+2++++###"    & %          /  % .  ** ********   ((((((((((        ( (' '' ""# ######1180<80058221811+2+++2+ 3  %                . ..  * *      '   (      '4 '' ! !! #####+0+58<1+2112880<8081+00++####""! !(       % )      &  // .%    )         ((( ( ( ! ! (    4'' 3  '!! '' ""######K$[2+1+<80058<28<1121120++++##     & %    *    / % %  * (  (        (( !'      (! ' ('''' !" ! ! !  #########++1+<+2112+851+<8281+<1+++2+2+"! (  .            &  % %  ** ((  (      (   (( !' !  (  '' ''!  !" !'"' ! ""#########++2181+<800582121881+<100+2++###   * )      $ %    )       %      (( (    (        ! ! ! ""! '    " ! ! !  ' ! ! " ! ! #"########+<52111181015518<12+++0++####!! !(     &&               %%%   (((( ( (   (   (!  ""  ""    (''! "  ' ! " "! " " ######+2+18<5801558111518212+2+2+###  )*      $  %         &  / / / %%% * ( '((  (( (( ((  ( ! ! "# "" '! ""! ! '  " " !' " ######+08118818<+<8281+<181+++++++#####! ( *       ** *)   &   %6 *  (( (( ' ((((   ! !   ! ! ! !  " " ! !! " ##########++10182828<1881+<1+100020+###" '    %  &   K$[  %          / 6 9 9 9 ) (((((((  ((   " ## "" " ! " " " " ! " ! #########0015111181015518<1++++### !         $  . **))       / = 6% *  ( (3(( ( (    ! #####"   !  ! ! ########++00808<811151801002++#! !  * %   :  %  )        9 .   (( ((((  4  ! " ## "  " " ! " ####"####+2111+1<+<8281+511+++++##" !       &    % *     &   / 96 6 %  ( (  '(   (   "####"  " ""##### ####+0+01015+1888<+00+# " !  *      -&  . )     &&&      ((  '(((     ! ""### ""###########+++11101515112+2++####"" ( )        &$  %       &  / 69.   ( !(    ( ! #+###### "###+02++111++0++# ! " ! (      : K$[,:   .    )    &   9%  (  ! ' ((( ( " ##+0+############""#+0+2+2+2++####" ! !!'   %     &    *      %  ) (   (   ' (  ""##+0+#### # ""++++02+++##  ! ! !     &     % )  *&   % )   !' ' '( ' (! ! " #+0+### """!  ! "##++002+2+++0+##" " "  ! (      &  &,&   %           (!!  ' "###++0++######" " " !"" " "! !" "#++0++0+0+0+00+2++# " " ! ! '   &-  $-  .   )       %    (( ' !'''! "#+02+2+###   " "" !  #++0+0++++###  !" " ! ! '       -  % *  *   /      '( ''(!! ! " "#+++02+++0#"" ! ! ! ! !""+++0+0+0+0+0+0++! " ! ! ' '(   * %   &$  . *     K$[   % *    '! "!  ##+20+12+2+ ! "!!  ! ! ! ! "##++++# ! " ! ' !        &  &,,,          % )   (!(! ! ""  ##++++28<+00+#"! ! !' !! ! ! ! ! "! #++++++++++##! " " ! ! ! (3    *    ,&   .          4 ' ''' !"""##+021+<1++ ! ! !'   ! ( ' (! " ######" ! !'(    * %   &    *    ) %. *   ' ""++2+2+0155+2+# !   ''(((  ##"" ! ! ! ('    * %   $,,       *      '( ! ! ! "#++2+++0++###"! !' !'3  ((   ( ! ! "! ! ('(     ) %    &&,&   % )   ) %%..%% )   ' ! "+++++++0+0+# !'('(  4        ! ####" ! !!!(('     * *     &  ,,&&     )  * *    %    ('! " "#+++2++++# " !   3('K$[ 4  *  (( ! #### ! ! ( '      %     &  /    *    %%%% %% % )  (! " "+00### " !        )  ( ""## " !! '     )    &&   -7-                %   )    ! "#+++++##     *  **   !#### ! ! ('       %  /-    &--&-&       /  % *)              ' ! "##"" !!  ** *))*   ) (   #### ! !('(   )) ** %%  $&    &  /       *) *           ! " ###"#  ) * *)** % ))   ##! ! '    ** %   $,       -         / .  *   )  *   )   ' ! !####" (   *  %   . ** (! ""###" ! (    * *             &-      /       * *       ))   "   !  * %   %      "##### "!  '   *    K$[  $$$          ,           %%   %    *))   ! ! " ### "   )* *) %    *  ( "#### ! ! (       % %   &                /        *   %     ! ! "###" " '       /     (  #####! ! ''     .    ,$        ,-           %    %           ' ! "  #####       / /   ( ""#" ! ((    ) %    &,$&   9//     ,&,              * )  %        ! ""#######! ! ((   .   /  %     #######! ! !( '   *  %  &  / /     &&&&&             .     *'(''''     ! ####" !  *  .%%  /  /    .    #######" !   ) %   &-         &  &&         %   *) * % '! 3   '! " ###### !  ** . // // /  /   % .  (  ""########## "  (' )   -&&-K$[,-      %% &-                           *!  ! !!( ' !#### (         /    %.    !######  " !!('  *    ,,-    %  % & /          %  ) )  .%  ! ! "  ' ' 3 ! ! #####!  ! !  *     / / /      (  "#########!  ( (        &&-7,&   /  %    %% -   6            * %.   ! " ! !4 ' "###### ! ' !            / // %% ) ( "##" ! ! (4  *   %       % . %  &&&   6...%..%%.%      .% *   %%% *! ! ! ! !'   !" #### '   *           /  /   * (  ####### ! " ! (('    )*  /    /    %        6  ..%.%%...%    .   %  " !    ! ! !" #### !      &       /   ( " ## "  '  )      &   &    .             9%    %     .  % % %%%    %%   %.% ! ! ! ' ' ! "#### ! (   * %        .  ' ###  ! ! (((    %  ,  &,-&      * *       %% %% %%  %% . %K$[ % % . * " ! ! !  ' ! !" "### '       &     ,&   ) (    "#" ! '         &   &&-,&   %   )   )      .%      %      %%   %   %%%  ! ! ! ###### " ! '(   %  &         (  ""##" " ! ('  * *          ,   96.    *           6  . % %%%  *)     %%  . %.%%  ! ! ! " "##### ! ' 3      &&   7,-&   ) (  # ! ! (((4            &   & ,,&  %. )    *  )    :  %          ) ) * )   .   %  .%%   ! " " ""######### ! '   *      &&  7    (' " ### ! !  4(    % * /          &-&-         *)    % %  * ) )     %%   % %.% ) " "  "! " "##### ! ! 4  )     &-7,   ) (  !   ! ! ( (   %   ,      ,7 6% ) * ))    ) %%   @        ) ) )    %  "  ! "##### '  ( ' * %      ,,,-,  / %  ( (! ! ###" ! "  (3                 &--,& .%  ))       )    %         )) *    % ..%  *" """ ####### " '  '    K$[      ,,,,,- /  *   ! ######" "  '      %    7$-&   :     %   -&&   %               %       )       )        " " #######"  " ## "            ,;,   /   ( ( ! "  ! ! (    *)                  &&  %         )  %.    *))    )   ) )   %% % * ###"  "#"  ' ' (  * %     ,    ((! ! " ! " '        %       7       %                 )          (   *)* *  ) )*   )    (    ))    %  "###### # !" ! !"!!#""" !!' 3' (        ;,;7 //     ""  " ! ((   *  )**     :        %               )             )   ) * )      3(     )      %.% #####"# #  " ! ! ! ! ! " "  !! ' *      77/ /   (( ' " ! ! ! ! ! '(  * ) *  .          %  %           /                    ) ))      '(''(3          .  ## #"! " ! ! ! " !"""" ! 4( ' !    *        &    (((  !  " !" !  (   **          %  )  *              *         4 '((4    *      ' '        *  %.%. ##  " " '  " ! '   ! !'  %         /   (  ' " "  "! " ! !    K$[% /           )* %  %  6 6   %   ' '('('(3   (('('4    (       '(  !  ('(             )##  !""" ! ! !  (   ' !  ! ! '  4  ! '           * ( ( ((  ! """  ! ! ! ('                   *    ..=        3('(3(3 '( ( '   (  '       '( !! ! ! ! !(4       * %%.%%%%% * ## " "   " ' (( !  """  '(   ! !(      & / %  ( ' " "     ! ! ! ! !! (  )*  %   &  &     * ) * %  .  %6  %   (4' '  ''  ! '  '    '' " !         ((  ! ! ! '(           .   *#" !!"  " " ((( ! "! "! !' '         & /    ( ! !"" " " !!!  (   *  %%%      ,  %     .  .  /      ! ! " ! ! !    ' ! ' 3 ( ( ( ! ! !  (( ! ! ! ! !!'        )  %%%.%%% )####  !  ((      " " !                 / .  * (   (( ! ! ""! " " ! !  (  )              %    %.6  /  * ' ! !! ! ! ! !   '   3  3' "! '  '( ! ! !" ! " "  (        %%  ) ## !! ! ! !  (    ( ! ! !              //  *    (  ! ! ! ! ! (   *   ..%%      /          %   )))  *     %  '! " "" " " ! !! ! !  ! ! ' '  (  " "" ! (3'   ' ! ! ! ""  ! " !!3    .%%%.%%  ###" ! '    " ' 4            /   * (    ! ! ! !  (       .      &   . *     K$[  )  %6      (' " "" ! ! ! !!!!!!   ' (4' " " '  ! !" " " " ! ! ! (      %.   ## !  ( (((   ' ! !     *        , /    ) ( ! ! ' ! ' (4(      *  %%   & &  % )*    (  *         )  ! "  " ! !! '(  # " !!!! ! ! ! ! "! ! !'(      ) ..%.%% .  * #! " ' '  (  *))**)   !    * *         //  *     ' ! !! ' !!! (          / $&        3'     )*       ! "" #"" ! ! ! ' 4  '! "" ! ! " " "" " ! !(4      *  %...    ###!    (  )* )* ( 3    .%     , / * ( *  * ( ! ! '(    **  %%      $   %% )  ( ' '           .   "##" ! ! " ! !     "  " ! " " ! ""! ! ! !   ( '      . %.%..   "! " ! (((( **   ((    .   &&/  * (  % *((( ((((  *)) %      /            ' '       .    !! "##" " !  !    ' !   " " " ' !'('       %%.   ## !   ((( )*       **   &&,- //   (  . * ( '(   *    %       7  .%    4((''   ( '   (  *  %.%  * ( ! ##### "! ! ! '( ( #"""! ! " "  ""  " ! !  (  3   % . %%%      # ! '  (( (  **   %     *    --7    ( ) .  *    (( ***   %           )   ' ! ! !'      *      3 "### ""!    ! ""#  !" " "" #"" 'K$[ ''(4    * % %  )  ##" '      *) %%.%%         . * (3   *     *    %           % )    '!    '         "#### " ! ! 4  ##  " !" " !! (4(          )     # "  (((   *  %6 *           *    .       %.% /     &-     )))   '  ! ! !' ((4  *  )*  ( "#"  ! (' ! "####" " "  ! ! ! !(4 (         ) )    #""  " (      *        -& / .     / %   *       -   )*    (' !  '         ### " !'' # ""  ! (4 (      *  *   )    # " !! '(((  )*  .                         &    )    ! ''  4    ' ! ! #  !  " ### "" ! ' !(4(   *   )  )     ###" ! " ' ((     .    .%              * *      *  *  %     ,&  %         ( '( 3 (   '(4     ' ####" ! ""  "" ! !(3(     )) )      ( #" ! " "   )*  %               *       *  * %      ,&    )     3   3' ' 3( ' ' '! !  ' " #++#"!  !! ##    "" ! !'(     )       ( (#! !(    *  %  /      K$[ %  *  .%     %   %       ,,    )    ''' '3 (   '   ! ! ! ! ! ! "##++0+0+###  ###   ! ! ! ( (    ))     ( (  (   " ! '! !  )   / /  /   &-      %          % *    ' '  '' '! !' ' !  " "" ! " #+2+++#" ""#   ! ! ('    ))     ((    ((#  '    *))* %  /      ,      %    &         *  ! !!' ' ! !   ! " """"" ""2+0+2##"###    !" ! " !((        ( ((      ( (((#" ''' ('  * )   / /         . *       ,     &7 %     ' ! !   ! ! !'! " # ###+++######"  """ ! !!!'        ((    ( (((((   !((   ! ) * *  .  /          %          &&  )    ! " ' ! ' ! ! !    "##00+# # " " " ! ! '  '( (          (((((    ! '  ( ' ! (   %% /   &     .      -&           ' " ! "   ! " '' ' ! " ####++#  ### !"  " " !'! ' 3      (   (((((    ! !    ! !* )  % /    -   -&    .%% %% ,, &-&K$[  %     3 ' !" ! !  ! #####00+####  " ! ! ! ! ! ' '(        ((((      " ! 3 3! " '  .       &   &,&         !   " ! ! !! ! ! #++2+####" ! " " ! ' !! '      (  ((      !  ! '(  !   *      -       ,-&,--,   )   ('' ! ! " "! ! " " "  !  ##2++++###"" ! "" " ! ! ! ! !   (       ( ((   ! ! ! ! " ! '(4' !! ' * * *       7            %   3(' ! # "  ! ""! !  "++02+### " ' ! ! !!' 4  3 ( (   ! !!! "!    " "" !      -    ,    ! ! " "  ! " ! " """##+++++#### " "!" ! ! " " ! '  (     (   ! ! " " ! !" " '  ' !    .   -&    -&  %   ' ' " "  "" " "#++00020######## ! ! " !!' ' !!3    ( '(   " ! " "!" " " ""'   ! " " 4       &  &-    "K$[! ! ###+0+0++++++#######" "" ! " " ! ! ! " !!   ' '   (   ! " "" "" " '! !  '  %%   ,   &,     ' ! ""# " "" "#+0002+2++########" " " ! !! !   (  '(  ' ! ! ! ! ! """ "!  "! ! *    & &  &       ##+2++++#######" "" ! ! " " " " !  ' '(3( ((  " "   ! """ !     --&     &&-&   * (! !"####+00+####"" " " " ! ! ! (  ! ! " ! " ###"   '  *   - -&    &    4 "  #########+0++####   !  ! ! ! ! ! ! ! " " ! ! !' ' ! ! "  "  #####!!!   *   ,-,-7    -,      ! "#########0++## " " ! ! ! ! " ! ! ! '! ! ! "! " "####    *    ---  /    ' ! ########++0+#######K$[ ! ! " " " " ! " " ! ! ! ! ! "###! '   ) %  -&,   & &&     #####+0+####  !"! !! " " ! " ! ! !  #### !      -   &   . ) ' ! "######+0+#####"  ! ! ! " "!"""!" " ! ! ! " "" ##### !  * %       -    ( ###+0+#####"! !"! !"" " "! !   "! " " "  """ ######" !     -   &    '! "####++########"  !  !  !! ! " """"""""" ! ! ! "" ! " " ###    % %    :   &     " ###0+2+#########" !""!" "  "   " " "" "####' * %      7  &&   ' !##+0++####   " """       "  " ####  %     -K$[   /       ! ####++0++02+#########  #### * %       -      ' ""##+++20++++2+0++#####   #######   )   $-  &, /     4 !" ##+00++0+0+2+0#######   "  ### %.    % &  ,     "  ##+0+++0+0+0+############### #####      -  ..%%  ! ! #+2+0++################## %   -   %   ( ! " " !"#+0+<12+2+#######"######### %%   /  K$[-&  %   3 '!! ! " #+++01+101512+2+##########"############%      - %  )      ! ! " ##20+28<811+<8+######## ###     &&&  )   ' '! !! "++0+8285+15152++#####################  (     )*  !  !  !"#++++2++5111511+0+############+        ! ! ! !!! ++0++255551+5500+#############+     $ % )   ! ! ! '  ! " "#++0+2+++02++5555++###########++++2       *K$[   ! " " ##0+2++++++25555552+0++############+++02+ **   $ %   '  ! !  #+0+0+2+05+0######+20+++0        4 ! "  ! "####+++00+0+0++05555+0+0+##########++0++02      ) ( ! ! ###2++055552+##+0+00        4 ! ! ! "###+++0+0+++0+0+0+05555550+0+0+########+0+0+0+     * (  " 2+0+0+01 -  %  ' ! ! ""+0++0+0+0+0+0+0+0+055555555555550+0+0+K$[++0+0+0+0+0<8585Clouds.bmpC>@(CDEMS Welcome Screen"[Event Procedure]"[Event Procedure] Arial"[Event Procedure]d2hgh Tahomam45`Z Detaild235]8a bcde3f Label1CDEMS KS-QOCTimes New Romand235W`bn cd Label2XChronic Disease Electronic Management Systemd5]`ab cwd e Label3Version: d5]`apbcd e Label5VDeveloped by the Washington State Department of Health Diabetes Prevention and Control Program, with funds from the CDC. Customized for KS Quality of Care projects 2010.d5`8a bce Label6KS Support: m 47C`ab3 chi jtxtVersionm 47;C`a bIc,i jk3ftxtLocalSupport="785-368-7058" Ariald5]`ab cLabel15^ 1999 copyright WA State Department of Healthd5`;a bc,eLabel17(National Support: m 47;C`Da bIc,i jktxtDCPSupport="916-817-1401" Ariald5`,abcd Label14User assumes responsibility for use of program "As-Is". No warrantees or support offered or implied. d5`<abc Label_copyright 1999 WASHINGTON STATE DEPARTMENT OF HEALTH This software and any subsequent update(s) is the Intellectual Property of the Washington State Department of Health (DOH) and protected by copyright, trademark and other laws, and is provided "AS IS". The software is licensed, not sold. Recipient may install, use, access, display, run, or otherwise interact with the software. All rights not expressly granted are reserved by (DOH). Software is solely for non-commercial use and may not be marketed in any form. Recipients may modify software to meet recipients needs. No release to third parties is authorized even after modification by the primary recipient without prior approval by the State of Washington Department of Health. It is expressly forbidden to modify, reproduce, sell, publish, or broadcast such material without the express written permission of the Washington State Department of Health. You must maintain all copyright notices on all copies of the SOFTWARE.You may not rent or lease or lend the SOFTWARE. DOH may prK$[ovide you with support services related to the SOFTWARE ("Support Services"), at its discretion. W1[̨Gj养Hh1U`hapbHcicmdAgree Agree"[Event Procedure]AK{>(h1U`apbHcicmdExitExit CDEMS"[Event Procedure]1y0MͬnqvDetaild vLabel1d vLabel2d vLabel3d vLabel5d vLabel6mvtxtVersionmvtxtLocalSupportd vLabel15d v Label17mv txtDCPSupportd v Label14d v Label_copyrighth v cmdAgreeh vcmdExit1D/13Fd    h    m     dddddm+m+ddJ;K L7MLm+.JD/K 0L1MLddJ<KLMh!h!ͬK;&]E@ DetailnlstRelatedLabsd Label116nlstAllDxeBox70mtxtTitlenlstAllDx1d Label45h cmdSaved Label59h cmdDeleted Label61h c82@%MX@%MXBlob JPropData14TypeInfo    K$[ Y!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGIJKLMNOPQRSTUVWX\]^_`abcdefghijklmnopqrstuvwxyz{|}~0=Babcd2e ghj,4k[NQI@"[Event Procedure] Arial8 hHP OfficeJet@f,,@MSUDHP OfficeJetdtwinspoolHP OfficeJetLPT1:d2 Ariale12hghMS Sans Serifm45bP cgL Arialn2o2r35` Detail"[Event Procedure]Cn3W8`aJbcdP llstRelatedLabsTable/Query|SELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)>7)) ORDER BY tblReportsTemp.type_order, tblReportsTemp.section_order, tblReportsTemp.display_order;1440;0;0"[Event Procedure] Ariald25]`a bceXYYYLabel116Laboratoryn3W8`aabcTd l lstAllDxTable/QueryjSELECT DISTINCT tlkpCrosswalk.working_code, First(tlkpCrosswalk.raw_code) AS FirstOfraw_code FROM tlkpSetup INNER JOIN tlkpCrosswalk ON tlkpSetup.related_field = tlkpCrosswalk.working_code WHERE (((tlkpSetup.health_status) In (SELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0)))) AND ((tlkpCrosswalk.type_code)="Dx")) GROUP BY tlkpCrosswalk.working_code; 1440;0"[Event Procedure] Ariale25]bc Box70m 47<Cb i j txtTitle"Create-A-List"Times New Romann38`abHcTdllstAllDx1Table/Query@SELECT DISTINCTROW qUnduplicatedDxCrosswalk.working_code, First(qUnduplicatedDxCrosswalk.raw_code) AS FirstOfraw_code FROM qUnduplicatedDxCrosswalk GROUP BY qUnduplicatedDxCrosswalk.working_code; Union SELECT '<any>' AS [working_code],'<any>' as [raw_code] fK$[rom qUnduplicatedDxCrosswalk 1440;0"[Event Procedure] Ariald5`DabcLabel45$All Possible Dx'sh1]` abc@icmdSaveSave Report"[Event Procedure](ڭ ڭз ڭ pڠ 03 з 03 333 333 0   Arial Save Recordd5W`abc,Label59Saveh1]`ab@c@icmdDeleteDelete Report"[Event Procedure](ڭѭQDDEDMQ_JڤMJڤDDDDDMԄHDHJڤDDDDDM Arial Save Recordd5W`abXc,Label61 Deleteh1U`"ab^c"icmdCloseCommand10"[Event Procedure](33333333333033H33H33DH33DDD33DDDD33DDDD33DDD30DH3H0H Close Formd5U`abc,Label63Calculated5U`"[Event Procedure]d5U`caIb ce lblRemoveAllDemo>>"[Event Procedure]n3W8`axb~ d` llstRelatedDemoTable/Query*SELECT tblReportsTemp.display_text, tblReportsTemp.type_order, tblReportsTemp.section_order, tblReportsTemp.display_order FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=2)) ORDER BY tblReportsTemp.type_order, tblReportsTemp.section_order, tblReportsTemp.display_order;1440;0;0"[Event Procedure] Ariald25WabceXYYYLabel47 Demographic Infod5`TabcelblAddDx1<"[Event Procedure]d5`Tab celblRemoveDx1>"[Event Procedure]n38`axbdllstChosenDxTable/QueryZSELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0) AND ((tblReportsTemp.display_order)=0)); 1440;0"[Event Procedure] Ariald5abcLabel43"These Dx selectedn3W8`aabcTd llstAllRxTable/QuerySELECT DISTINCT tlkpCrosswalk.working_code, First(tlkpCrosswalk.raw_code) AS FirstOfraw_code FROM tlkpSetup INNER JOIN tlkpCrosswalk ON tlkpSetup.related_field = tlkpCrosswalk.working_code GROUP BY tlkpCrosswalk.working_code, tlkpSetup.health_status, tlkpCrosswalk.type_code HAVING (((tlkpSetup.health_status) In (SELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0)))) AND ((tlkpCrosswalk.type_code)="rx")); 1440;0"[Event Procedure] Ariald5]`aa,bHcLabel74Selectionsd5U`ab celblAddAllRx<<"[Event Procedure]d5U`a bcelblAddRx<"[Event Procedure]d5]`a,bdcLabel77$Included in Reportd5U`apb celblRemoveRx>"[Event Procedure]d5U`a b celblRemoveAllRx>>"[Event Procedure]n3W8`abd` l lstRelatedRxTable/Query<SELECT tblReportsTemp.display_text, tblReportsTemp.raw_code FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=6)) ORDER BY tblReportsTemp.display_order;1440;0;0"[Event Procedure] Ariald25W`xa<b7ceXYYYLabel83Medicationsd5]`aa bHcLabel85Selectionsd5U`a<b celblAddAllDx<<"[Event PrK$[ocedure]d5U`abcelblAddDx<"[Event Procedure]d5]`a bdcLabel88$Included in Reportd5U`ab celblRemoveDx>"[Event Procedure]d5U`ab celblRemoveAllDx>>"[Event Procedure]n3W8`abdP l lstRelatedDxTable/Query@SELECT tblReportsTemp.display_text, tblReportsTemp.type_order FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=5)) ORDER BY tblReportsTemp.display_order;1440;0;0"[Event Procedure] Ariald25W`xa bceXYYYLabel94Conditionsn3W8`a#(bcd` l lstAllServicesTable/QuerySELECT DISTINCT tlkpCrosswalk.working_code, First(tlkpCrosswalk.raw_code) AS FirstOfraw_code FROM tlkpSetup INNER JOIN tlkpCrosswalk ON tlkpSetup.related_field = tlkpCrosswalk.working_code GROUP BY tlkpCrosswalk.working_code, tlkpSetup.health_status, tlkpCrosswalk.type_code HAVING (((tlkpSetup.health_status) In (SELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0)))) AND ((tlkpCrosswalk.type_code)="service")); 1440;0"[Event Procedure] Ariald5]`#(a,bHcLabel96Selectionsd5U`&ab ce"lblAddAllServices<<"[Event Procedure]d5U`&a bcelblAddService<"[Event Procedure]d5]`;a,bdcLabel99$Included in Reportd5U`&apb ce lblRemoveService>"[Event Procedure]d5U`&a b,ce(lblRemoveAllServices>>"[Event Procedure]n3W8`a;bcd l $lstRelatedServicesTable/QueryFSELECT tblReportsTemp.display_text, tblReportsTemp.display_order FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=7)) ORDER BY tblReportsTemp.display_order; 1440;0"[Event Procedure] Ariald25W`a<b7ceXYYYLabel105Servicesn3W8`a#(bcdP llstAllLabsTable/QuerySELECT DISTINCT tlkpCrosswalk.working_code, First(tlkpCrosswalk.raw_code) AS FirstOfraw_code FROM tlkpSetup INNER JOIN tlkpCrosswalk ON tlkpSetup.related_field = tlkpCrosswalk.working_code GROUP BY tlkpCrosswalk.working_code, tlkpSetup.health_status, tlkpCrosswalk.type_code HAVING (((tlkpSetup.health_status) In (SELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE (((tblReportsTemp.type_orK$[der)=0) AND ((tblReportsTemp.section_order)=0)))) AND ((tlkpCrosswalk.type_code)="lab")); 1440;0"[Event Procedure] Ariald5]`#(a bHcLabel107Selectionsd5U`&a<b celblAddAllLabs<<"[Event Procedure]d5U`&abcelblAddLab<"[Event Procedure]d5_`Ja bdcLabel110$Included in Reportd5U`&ab ce lblAddSpecialLab<+"[Event Procedure]d5U`&ab celblRemoveLab>"[Event Procedure]d5U`&ab ce lblRemoveAllLabs>>"[Event Procedure]h1U`ab@c@icmdCreateReport"[Event Procedure](ڭڭڭڭqڭڭڭڭ n03W`abTcTdllstAllVitalsValue List"Last Visit Date";"Last Visit";Count of visits;visit count;"Blood Pressure";"BP";"BP Last date";"BP LDate";"BP systolic";"BP systolic";"BP diastolic";"BP diastolic";"Body Mass Index";"BMI";"Weight";"Weight";"Next Visit Date";"Next Visit" 1440;0"[Event Procedure] Ariald5]`adbHcLabel134Selectionsd5U``abcelblAddVital<"[Event Procedure]d5]`iadbdcLabel137$Included in Reportd5U``ab celblRemoveVital>"[Event Procedure]n3W8`axbTdl lstRelatedVitalsTable/Query*SELECT tblReportsTemp.display_text, tblReportsTemp.type_order, tblReportsTemp.section_order, tblReportsTemp.display_order FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=3)) ORDER BY tblReportsTemp.type_order, tblReportsTemp.section_order, tblReportsTemp.display_order;1440;0;0"[Event Procedure] Ariald25Watb7ceXYYYLabel143General Healthf23]`xa<bcLine153f23]`<bcLine154f23W`Kal b"Line156f23W`<a8bLine157d5U`&ab ce(lblAddSpecialService<+"[Event Procedure]uZiGnmdClosed Label63d Label6K$[4nlstAllDemod Label49d lblAddAllDemod lblAddDemod Label65d lblRemoveDemod lblRemoveAllDemonlstRelatedDemod Label47d lblAddDx1d lblRemoveDx1nlstChosenDxd Label43nlstAllRxd Label74d lblAddAllRxd lblAddRxd Label77d "lblRemoveRxd #lblRemoveAllRxn$lstRelatedRxd %Label83d &Label85d 'lblAddAllDxd (lblAddDxd )Label88d +lblRemoveDxd ,lblRemoveAllDxn-lstRelatedDxd .Label94n/lstAllServicesd 0Label96d 1lblAddAllServicesd 2lblAddServiced 3Label99d 5lblRemoveServiced 6lblRemoveAllServicesn7lstRelatedServicesd 8Label105n9lstAllLabsd :Label107d ;lblAddAllLabsd <lblAddLabd =Label110d >lblAddSpecialLabd ?lblRemoveLabd @lblRemoveAllLabsh AcmdCreateReportnBlstAllVitalsd CLabel134d DlblAddVitald ELabel137d GlblRemoveVitalnHlstRelatedVitalsd ILabel143fPLine153fQLine154fSLine156fTLine157d UlblAddSpecialService1D/13FdBlobDelta35PropDataCopyDirData08PropData;    e    h    m     n     o     r    Cn(dn(em+n(dh!dh!dh!ddn(ddddK$[ddn(dddn(dn(ddddddn(dddddddn(dn(ddddddn(dn(dddddddh!n(ddddn(df    f    f    f    dJ&KL'M6frmCountPatients-criteriafrmReportsfrmSplash$frmCountPatients"frmListPatients 3CB0 0CB0 1CB0 7CB0 8CB0"frmListPatients$frmCountPatientsfrmSplashfrmReportsDirDataCopy79PropDataCopyFCmdbars@%MX@%MXModulessB@%MX 8frmCountPatients-criteria26frmCountPatients-criteria 8CB0 7CB0 1CB0 0CB0 2CB0 3CB00=@%MX@%MXPropData 1<@?@%MX@%MXPropData 2A@%MX@%MXPropData 3>FCK$[@%MX@%MXPropData 4E@%MX@%MXPropData 5DKG@%MX@%MXPropData report wizardbasUtils2basUtils"basLinkedTablesbasCommonFilebasAutoexecModule1 0CB0 1CB0 2CB0 3CB0 4CB0 56I@%MX@%MXPropDataJ PropDataCopyDirDataHLPropDataMQPropDataCopyFReports_@%MX 0Q@%MX@%MX     !"#$%&'()*+,-./0123456789:;<=>?@ABCDGHIJKLMNOPQRSTUVWXYZ[\]^_`abchijmCB0 6CB0 5CB0 4CB0 3CB0 2CB0 1CB0 0CB0Blob PropDataPR TypeInfo1OYU@%MX@%MXBlob  OPropDataTWK$[TypeInfoHO!BlobDeltaVX0:<=Babc-e gXhdij'k[Event Procedure]zzm@QRY_SummaryDepression2[Event Procedure]Arial8hDXHP OfficeJet R80xiX od,,LetterDINU"4$XH $$$$;.HP OfficeJet R80xiHP OfficeJet R80xi\\BIG\HP-R80 d28Arialm5<Arialpcp DemographicsVisitsTests` PageHeaderm<"`aPb cei jtxt_pcp =IIf([pcp] Is Null,"None",[pcp])primary care practitionerd8"aPbcd eLabel212Primary Care Provider:d278`M b{ cJd lbl_ReportNameDepression Summary ReportTimes New Romanm`ab8ckText222$=[Forms]![frmReports]![txtStartDate]d`DabcLabel223Between:m`"abkText224"=[Forms]![frmReports]![txtEndDate]d` abcLabel225Andm<`xbTc,i kText228'=[Forms]![frmReports]![lstSelectClinic]Times New Roman` GroupHeader3`4a GroupHeader0Ve24abXcD4Box142d278"`"bcd eLabel143 DEMOGRAPHICSd8"`ia bceText473. Agem5C`a bU Age_Unknown Age_Unknownd`a bcText50a. Age unspecifiedm5C`a bUkAge_14_AndUnderAge_14_AndUnderd`a bcText52b. <= 14m5C`abUk Age_40_to_49 Age_40_To_49d`abcText48e. 40-49m5C`abUk Age_15_To_29 Age_15_To_29d`abcText54c. 15-29m05C`a bktxt_Age_Unknown_Percentage=[Age_Unknown]/[Patient_Count]Percentm05C`a bktxt_Age_14_AndUnder_Percentage"=[Age_14_AndUnder]/[Patient_Count]Percentm05C`abktxt_Age_15_To_29_Percentage=[Age_15_To_29]/[Patient_Count]Percentm05C`abktxt_Age_40_to_49_Percentage=[Age_40_to_49]/[Patient_Count]Percentd8"`a&b ceText736. Type of depressiond8"`abceLabel493 4. Ethnicitym5C`abUkEthnicity_WhiteEthnicity_Whited`abcLabel495a. Whitem5C`abUk Ethnicity_AmIndianEthnicity_AmIndiand`abcLabel497c. American Indianm5C`abUk Ethnicity_BlackEthnicity_Blackd`abcLabel499b. Blackm05C`abk txt_Ethnicity_White_Percent"=[Ethnicity_White]/[Patient_Count]Percentm05C`abk txt_Ethnicity_Black_Percent"=[Ethnicity_Black]/[Patient_Count]Percentm05C`abk txt_Ethnicity_AmIndian_Percent%=[Ethnicity_AmIndian]/[Patient_Count]Percentm5C`abUkEthnicity_AsianEthnicity_Asiand`abcLabel1d. Asianm05C`abktxt_Ethnicity_Asian_Percent"=[Ethnicity_Asian]/[Patient_Count]Percentm5C`abUkEthnicity_HispanicEthnicity_Hispanicd`abcLabel5 e. Hispanicm5C`abUkEthnicity_OtherEthnicity_Otherd`abcLabel9f. Other/unspecifiedm05C`abktxt_Ethnicity_Hispanic_Percent%=[Ethnicity_Hispanic]/[Patient_Count]Percentm05C`abktxt_Ethnicity_Other_Percent"=[Ethnicity_Other]/[Patient_Count]PercK$[entd8"`ZaSb8ceLabel125 2. Genderm5C`abUk Gender_Female Gender_Femaled`abcLabel127 a. Femalem5C`a_ bUkGender_UnspecifiedGender_Unspecifiedd`a_ bcLabel129c. Unspecifiedm5C`ao bUk Gender_Male Gender_Maled`ao bcLabel131b. Malem05C`abktxt_Gender_Female_Percent =[Gender_Female]/[Patient_Count]Percentm05C`ao bktxt_Gender_Male_Percent=[Gender_Male]/[Patient_Count]Percentm05C`a_ bktxt_Gender_Unspecified_Percent%=[Gender_Unspecified]/[Patient_Count]Percentd8"`aYbceLabel138 5. Insurancem5C`abUk Age_30_To_39 Age_30_To_39d`abcLabel140d. 30-39m05C`abktxt_Age_30_To_39_Percent=[Age_30_To_39]/[Patient_Count]Percentm5<"C`abUkPatient_Visit_0[Patient_Visit_0]d8"`ab4cLabel172b. Pts w/ 0 office visitsd8"`ab ceLabel2101. Depression Patients m5C`aX bUkText262Insurance_specifiedd`aX bcLabel263a. Insurance indicatedm5C`a8"bUkText264[Insurance_medicaid]d`a8"bcLabel265 c. Medicaidm5C`aH!bUkText266[Insurance_commercial]d`aH!bcLabel267 b. Commercialm05C`aH!bk Text269'=[Insurance_commercial]/[Patient_Count]Percentm05C`a8"bk!Text270%=[Insurance_medicaid]/[Patient_Count]Percentm5C`a(#bUck"Text271[Insurance_medicare]d`a(#bcLabel272 d. Medicarem05C`a(#bck#Text273%=[Insurance_medicare]/[Patient_Count]Percentm5C`a $bUk$Text274[Insurance_other]d`a $bcLabel275e. Otherm05C`a $bk%Text276"=[Insurance_other]/[Patient_Count]Percentm5C`a$bUk&Text277[Insurance_none]d`a$bcLabel278f. Nonem05C`a$bk'Text279!=[Insurance_none]/[Patient_Count]Percentm5C`a bUk(Patient_Visit_1_To_2Patient_Visit_1_To_2d`a bcText65c. Pts w/. 1-2 office visitsm5C`abUk)Patient_Visit_6_AndOverPatient_Visit_6_AndOverd`ab%cText61e. pts w/. 6+ office visitsm5C`abUk*Patient_Visit_3_To_5Patient_Visit_3_To_5d`abcText67d. Pts w/. 3-5 office visitsm05C`a bk+ txt_Patient_Visit_1_To_2_Percent'=[Patient_Visit_1_To_2]/[Patient_Count]Percentm05C`abk, txt_Patient_Visit_3_To_5_Percent'=[Patient_Visit_3_To_5]/[Patient_Count]Percentm05C`abk-#txt_Patient_Visit_6_AndOver_Percent*=[Patient_Visit_6_AndOver]/[Patient_Count]Percentm05C`abk.Patient_Visit_Avg![Patient_Visit_0]/[Patient_Count]Percentd8"`ia.b ceLabel3277. Special Populationsm5C`xa/bUk/Text328Migrantd`a/bcLabel329 a. Migrantm5C`xa0bUk0Text332Homelessd`a0bcLabel333 b. Homelessm05C`a/bk1Text334=[Migrant]/[Patient_Count]Percentm05C`a0bk2Text335=[Homeless]/[Patient_Count]Percentm5<"C`a+bUk3Text337 Patient_Countd8"`a+bcLabel338a. Count, Avg office visits/ptm05C`a+bk4Text339Patient_Visit_AvgFixedm5C`abUk5Age_45_AndOver Age_45AndOverd`abcLabel347j. 45+m5C`abUk6 Age_50_to_59 Age_50_To_59d`abcLabel349 f. 50-59m05C`abk7Age_50_to_59_Percentage=[Age_50_To_59]/[Patient_Count]Percentm05C`abk8Age_45_AndOver_Percentage =[Age_45AndOver]/[Patient_Count]Percentm5C`a bUk9Age_65_AndOverAge_65_AndOverd`a bcLabel353h. 65+m05C`a bk:Text354!=[Age_65_AndOver]/[Patient_Count]Percentm5C`abUk;Text356 Age_55AndOverd`abcLabel357i. 55+m05C`abk<Text359 =[Age_55AndOver]/[Patient_Count]Percentm5C`xa}(bUk=Text376Cnt_Minor_depressiond`a}(bcLabel377b. Minor Depressionm5C`xa'bUk>Text378Cnt_Major_depressiond`a'bcLabel379a. Major DeprK$[essionm05C`a'bk?Text380'=[Cnt_Major_depression]/[Patient_Count]Percentm05C`a}(bk@Text381'=[Cnt_Minor_depression]/[Patient_Count]Percentm5C`xam)bUckAText382 Cnt_Dysthymiad`am)bcLabel383 c.Dysthymiam05C`am)bckBText384 =[Cnt_Dysthymia]/[Patient_Count]Percentm5C`xaN*bUkCText385CSDd`aN*bcLabel386d. CSDm05C`aN*bkDText387=[CSD]/[Patient_Count]Percentm5C`xa>+bUkEText388CSD_2_OrMore_Weeksd`a>+bcLabel389e. CSD (2+ weeks)m05C`a>+bkFText390%=[CSD_2_OrMore_Weeks]/[Patient_Count]Percentm5C`xa.,bUkGText391CSD_6_OrMore_Weeksd`a.,bcLabel392f. CSD (6+ weeks)m05C`a.,bkHText393%=[CSD_6_OrMore_Weeks]/[Patient_Count]Percentm5C`xa-bUkIText394CSD_6_OrMore_monthsd`a-bcLabel395g. CSD (6+ months)m05C`a-bkJText396&=[CSD_6_OrMore_months]/[Patient_Count]Percentm5C`abUkKText581Age_60_AndOverd`abcLabel582g. 60+m05C`abkLText583!=[Age_60_AndOver]/[Patient_Count]Percent`5a GroupHeader1*e24abXcD4Box158d278"`"bcd eLabel159 VISIT INFOd8"`xa&b5ceText1559. Medicationsm5C`iaB bUanti_psychoticsmed_anti_psychoticsd`aB bcText156b. Anti Psychoticsm5<"C`iaRbUkanti_depressantmed_anti_depressantd8"`aRbcText162a. Anti Depressant m05<"C`aRbkanti_depressant_Percent&=[med_anti_depressant]/[Patient_count]Percentm05C`aB bkanti_psychotics_Percent&=[med_anti_psychotics]/[Patient_count]Percentm5C`iabUkCount_Office_Visits Visits_Officed`abcText116a. Office visits, per ptd8"`iawb ceText1138. Count of Encountersm5C`iabUk Visits_Lab Visits_Labd`abcText118b. Lab visits, per ptm05C`abkVisits_Lab_Percent=[Visits_Lab]/[Patient_Count]Fixedm05C`abktxt_BMI_Calculated_Percent =[Visits_Office]/[Patient_Count]Fixedm5C`iabUk Visits_Phone Visits_Phoned`abcLabel166c. Phone visits, per ptm05C`abk Visit_Phone_Percent=[Visits_Phone]/[Patient_Count]Fixedm5C`ia" bUk med_mood_stabilizermed_mood_stabilizerd8"`a" bcLabel361d. Mood Stabilizerm5<"C`ia2 bUk med_benzodiazepinesmed_benzodiazepinesd8"`a2 bcLabel363c. Benzodiazepinesm05<"C`a2 bk med_benzodiazepines_percent&=[med_benzodiazepines]/[Patient_count]Percentm05C`a" bk med_mood_stabilizer_percent&=[med_mood_stabilizer]/[Patient_count]Percentm5C`ia bUk med_other_mh med_other_mhd8"`a bcLabel430e. Other Depressionm05C`a bkmed_other_mh_percent=[med_other_mh]/[patient_count]Percentm5C`ia bUk med_stimulant med_stimulantd8"`a bcLabel433 f. Stimulantm05C`a bckmed_stimulant_percent =[med_stimulant]/[patient_count]Percentm5C`iasbUk Visits_Other Visits_Otherd`asbcLabel436c. Other visits, per ptm05C`asbkText437=[Visits_Other]/[Patient_Count]Fixedd8"`xabo ceLabel43810. Health Profile - Behaviorsm5C`iabUk hlth_smoker hlth_smokerd`abcLabel440b. Current tobacco usem5<"C`iabUkhlth_subst_abuserhlth_subst_abuserd8"`abcLabel442a. Alcohol/Drug abuse m05<"C`abkhlth_subst_abuser_percent$=[hlth_subst_abuser]/[Patient_count]Percentm05C`abkhlth_smoker_percent=[hlth_smoker]/[Patient_count]Percentm5<"C`iabUkhlth_exerciserhlth_exerciserd8"`abCcLabel448c. Physical activity (=>3/wk)m05<"C`abkhlth_exerciser_percent!=[hlth_exerciser]/[Patient_count]Percentd8"`iab5ceLabel45711. Specialty Carem5C`ZabUkText458 edu_mh_hospd`abcLabel459b. MH hospitalizationmK$[5<"C`Za bUkText460edu_in_house_cnsld8"`a bcLabel461a. In house counseling m05<"C`a bkText462$=[edu_in_house_cnsl]/[Patient_count]Percentm05C`abkText463=[edu_mh_hosp]/[Patient_count]Percentm5C`ZabUkText464edu_Psychiatric_consultd8"`abcLabel465d. Psychiatric consultm5<"C`ZabUkText466 edu_MH_Refd8"`abcLabel467c. MH referralm05<"C`abk Text468=[edu_MH_Ref]/[Patient_count]Percentm05C`abk!Text469*=[edu_Psychiatric_consult]/[Patient_count]Percentm5C`ZabUk"Text470edu_sm_goal_depresd8"`abcLabel471e. SM goal - depressionm05C`abk#Text472%=[edu_sm_goal_depres]/[patient_count]Percent`5a GroupHeader2Ye24abXcD4Box160d278"`)abcd eLabel161 TEST INFOm5C`abUText397 PHQ_0AndOverd`abcLabel398a. Patients with PHQm05C` abkText399=[PHQ_0AndOver]/[Patient_Count]Percentm5C`abUkText400PHQ_index_20AndOverd`abcLabel401b. >= 20m05C` abkText402%=[PHQ_index_20AndOver]/[PHQ_0AndOver]Percentm5C`abUkText403PHQ_index_15_to_19d`abcLabel404 c. 15 - 19m05C` abkText405$=[PHQ_index_15_to_19]/[PHQ_0AndOver]Percentm5C`abUkText406PHQ_index_10_to_14d`abcLabel407 d. 10 - 14m05C` abkText408$=[PHQ_index_10_to_14]/[PHQ_0AndOver]Percentd8"`xab ceLabel40912. PHQ Initialm5C`a bUkText410 PHQ_0AndOverd`a bcLabel411a. Patients with PHQm05C`a bk Text412=[PHQ_0AndOver]/[Patient_Count]Percentm5C`a bUk Text413 PHQ_20AndOverd`a bcLabel414b. >= 20m05C`a bk Text415=[PHQ_20AndOver]/[PHQ_0AndOver]Percentm5C`a bUk Text416 PHQ_15_to_19d`a bcLabel417 c. 15 - 19m05C`a bk Text418=[PHQ_15_to_19]/[PHQ_0AndOver]Percentm5C`a bUkText419 PHQ_10_to_14d`a bcLabel420d. 10-14m05C`a bkText421=[PHQ_10_to_14]/[PHQ_0AndOver]Percentd8"`Kab ceLabel422 13. PHQ Lastm5C`a bUkText423 PHQ_5_to_9d`a bcLabel424e. 5 - 9m05C`a bkText425=[PHQ_5_to_9]/[PHQ_0AndOver]Percentm5C`abUkText426 PHQ_0_to_4d`abcLabel427f. 0 - 4m05C`abkText428=[PHQ_0_to_4]/[PHQ_0AndOver]Percentm5C`aXbUkCSD_PHQ_0AndOverCSD_PHQ_0AndOverd`aXbcLabel477 a. CSD pts m05C`aXbkText478=[CSD_PHQ_0AndOver]/[CSD]Percentm5C`aHbUkCSD_PHQ_20AndOverCSD_PHQ_20AndOverd`aHbcLabel480b. >= 20m05C`aHbkCSD_PHQ_20AndOver_percent'=[CSD_PHQ_20AndOver]/[CSD_PHQ_0AndOver]Percentm5C`a8bUkText482CSD_PHQ_15_to_19d`a8bcLabel483 c. 15 - 19m05C`a8bkText484&=[CSD_PHQ_15_to_19]/[CSD_PHQ_0AndOver]Percentm5C`a(bUkText485CSD_PHQ_10_to_14d`a(bcLabel486d. 10-14m05C`a(bkText487&=[CSD_PHQ_10_to_14]/[CSD_PHQ_0AndOver]Percentd8"`Ka,bceLabel48814. PHQ Last CSD onlym5C`abUkText489CSD_PHQ_5_to_9d`abcLabel490e. 5 - 9m05C`abkText491$=[CSD_PHQ_5_to_9]/[CSD_PHQ_0AndOver]Percentm5C`abUkText492CSD_PHQ_0_to_4d`abcLabel494f. 0 - 4m05C`abkText495$=[CSD_PHQ_0_to_4]/[CSD_PHQ_0AndOver]Percentm5C`abUk Text496]=([PHQ_Change_50AndOver])+([PHQ_Change_25_to_49])+([PHQ_Change_0_to_24])+([PHQ_Change_minus])General Numberd`abcLabel498a. Pts with both m5C`abUk!Text500PHQ_Change_avgPercentd`abcLabel501b. Avg % changem5C`a|bUk"Text503PHQ_Change_50AndOverd`a|bcLabel504c. >=50%m05C`a|bk#Text505*=[PHQ_change_50AndOver]/[CSD_PHQ_0AndOver]Percentm5CK$[`albUk$Text506PHQ_Change_25_to_49d`albcLabel507 d. 25-49%m05C`albk%Text508)=[PHQ_Change_25_to_49]/[CSD_PHQ_0AndOver]Percentd8"`KapbceLabel509'15. PHQ Change (CSD Index -most recent)m5C`a\bUk&Text510PHQ_Change_0_to_24d`a\bcLabel511e. 0-24%m05C`a[bk'Text512(=[PHQ_Change_0_to_24]/[CSD_PHQ_0AndOver]Percentm5C`aLbUk(Text513PHQ_Change_minusd`aLbcLabel514f. Increased PHQm05C`aLbk)Text515&=[PHQ_change_minus]/[CSD_PHQ_0AndOver]Percentm5C`abUk*Text516!CSD_PHQ_Next_Visit_AtUnder_2weeksd`abcLabel517 a. <= 2 wksm05C`abk+Text5187=[CSD_PHQ_Next_Visit_AtUnder_2weeks]/[CSD_PHQ_0AndOver]Percentm5C`a bUk,Text519"CSD_PHQ_Next_Visit_2Over_to_4weeksd`a bcLabel520b. Over 2 to 4 wksm5C`a!bUk-Text521"CSD_PHQ_Next_Visit_Over4_to_6weeksd`a!bcLabel522c. Over 4 to 6 wksm05C`a!bk.Text5238=[CSD_PHQ_Next_Visit_Over4_to_6weeks]/[CSD_PHQ_0AndOver]Percentm5C`a"bUk/Text524CSD_PHQ_Next_Visit_6Over_weeksd`a"bcLabel525 d. Over 6wksm05C`a"bk0Text5264=[CSD_PHQ_Next_Visit_6Over_weeks]/[CSD_PHQ_0AndOver]Percentd8"`KabLceLabel527-16. CSD F/U Visit (CSD PHQ - next visit date)m5C`a#bUk1Text528CSD_PHQ_Next_Visit_Neverd`a#bcLabel529e.No office/phone periodm05C`a#bk2Text530.=[CSD_PHQ_Next_Visit_Never]/[CSD_PHQ_0AndOver]Percentm05C`a bk3Text5348=[CSD_PHQ_Next_Visit_2Over_to_4weeks]/[CSD_PHQ_0AndOver]Percentm5C`xa,bUk4Text535Last_PHQ_6OrUnder_monthsd`a,bpcLabel536a. PHQ in last 6mos of periodm05C`a,bk5Text537+=[Last_PHQ_6OrUnder_months]/[Patient_count]Percentm5C`xax-bUk6Text538Last_PHQ_Over6_monthsd`ax-bcLabel539b. PHQ over 6 mosm05C`ax-bk7Text540(=[Last_PHQ_Over6_months]/[Patient_count]Percentd8"`<a\+b ceLabel547$18. Depressed pts Last PHQ xx monthsm5C`aW0bUk8Text558lab_TSH_AnyNumericResultd`aW0bcLabel559 a. Pts W/ TSHm05C`aW0bk9Text560+=[lab_TSH_AnyNumericResult]/[Patient_count]Percentm5C`aG1bUk:Text561lab_CBC_AnyNumericResultd`aG1bcLabel562 b Pts w/ CBCm05C`aG1bk;Text563+=[lab_CBC_AnyNumericResult]/[Patient_count]Percentm5C`a72bUk<Text564lab_chem_panel_AnyNumericResultd`a72bcLabel565c. Pts w/ Chem panelm05C`a72bk=Text5662=[lab_chem_panel_AnyNumericResult]/[Patient_count]Percentm5C`a'3bUk>Text567 lab_blood_level_AnyNumericResultd`a'3bcLabel568d. Pts w/ Blood levelm05C`a'3bk?Text5693=[lab_blood_level_AnyNumericResult]/[Patient_count]Percentd8"`ia+/b ceLabel570 12. Labs*d`a3b c,Label571(* Only labs with numeric results Countedm5C`abUk@Text575PHQ_index_5_to_9d`abcLabel576e. 5 - 9m05C` abkAText577"=[PHQ_index_5_to_9]/[PHQ_0AndOver]Percentm5C`abUkBText578PHQ_index_0_to_4d`abcLabel579 f. 0 - 4m05C` abkCText580"=[PHQ_index_0_to_4]/[PHQ_0AndOver]Percentm5C`a4&bUkDText584CSD_PHQ_Retested_AtUnder_2weeksߡҥC">wd`a4&bcLabel585 a. <= 2 wks6{cK Bjovm05C`a4&bkEText5865=[CSD_PHQ_Retested_AtUnder_2weeks]/[CSD_PHQ_0AndOver]Percentm{\eH ָGkm5C`a$'bUkFText587 CSD_PHQ_Retested_2Over_to_4weeksm 4BK:d`a$'bcLabel588b. Over 2 to 4 wksA-&kGN?sm5C`a(bUkGText589 CSD_PHQ_Retested_Over4_to_6weeks-bm`CYkdd`a(bcLabel590c. Over 4 to 6 wksa?4r#HV m05C`a(bkHText5916=[CSD_PHQ_Retested_Over4_to_6weeks]/[CSD_PHQ_0AndOver]Percent8@{E_1m5C`a)bUkIText592CSD_PHQ_Retested_6Over_weeksmzfѽ*Gλխ-d`a)bcK$[Label593 d. Over 6wks%ݝODϦm05C`a)bkJText5942=[CSD_PHQ_Retested_6Over_weeks]/[CSD_PHQ_0AndOver]Percent.d3xD|[\Rd8"`Ka%bceLabel59517. CSD Pts F/U PHQ reassessK5KJ. ^m5C`a)bUkKText596CSD_PHQ_Retested_Never?SOGؚEmd`a)bcLabel597e.No re-assess in periodևR4Gr-OLabel210m?Text262d@Label263mAText264dBLabel265mCText266dDLabel267mEText269mFText270mGText271dHLabel272mIText273mJText274dKLabel275mLText276mMText277dNLabel278mOText279mPPatient_Visit_1_To_2dQText65mRPatient_Visit_6_AndOverdSText61mTPatient_Visit_3_To_5dUText67mVtxt_Patient_Visit_1_To_2_PercentmWtxt_Patient_Visit_3_To_5_PercentmXtxt_Patient_Visit_6_AndOver_PercentmYPatient_Visit_AvgdZLabel327m[Text328d\Label329m]Text332d^Label333m_Text334m`Text335maText337dbLabel338mcText339mdAge_45_AndOverdeLabel347mfAge_50_to_59dgLabel349mhAge_50_to_59_PercentagemiAge_45_AndOver_PercentagemjAge_65_AndOverdkLabel353mlText354mmText356dnLabel357moText359mpText376dqLabel377mrText378dsLabel379mtText380muText381mvText382dwLabel383mxText384myText385dzLabel386m{Text387m|Text388d}Label389m~Text390mText391dLabel392mText393mText394dLabel395mText396mText581dLabel582mText583GroupHeader1eBox158dLabel159dText155manti_psychoticsdText156manti_depressantdText162manti_depressant_Percentmanti_psychotics_PercentmCountK$[_Office_VisitsdText116dText113mVisits_LabdText118mVisits_Lab_Percentmtxt_BMI_Calculated_PercentmVisits_PhonedLabel166mVisit_Phone_Percentmmed_mood_stabilizerdLabel361mmed_benzodiazepinesdLabel363mmed_benzodiazepines_percentmmed_mood_stabilizer_percentmmed_other_mhdLabel430mmed_other_mh_percentmmed_stimulantdLabel433mmed_stimulant_percentmVisits_OtherdLabel436mText437dLabel438mhlth_smokerdLabel440mhlth_subst_abuserdLabel442mhlth_subst_abuser_percentmhlth_smoker_percentmhlth_exerciserdLabel448mhlth_exerciser_percentdLabel457mText458dLabel459mText460dLabel461mText462mText463mText464dLabel465mText466dLabel467mText468mText469mText470dLabel471mText472GroupHeader2eBox160dLabel161mText397dLabel398mText399mText400dLabel401mText402mText403dLabel404mText405mText406dLabel407mText408dLabel409mText410dLabel411mText412mText413dLabel414mText415mText416dLabel417mText418mText419dLabel420mText421dLabel422mText423dLabel424mText425mText426dLabel427mText428mCSD_PHQ_0AndOverdLabel477mText478mCSD_PHQ_20AndOverdLabel480mCSD_PHQ_20AndOver_percentmText482dLabel483mText484mText485dLabel486mText487dLabel488mText489dLabel490mText491mText492dLabel494mText495mText496dLabel498mText500dLabel501mText503dLabel504mText505mText506dLabel507mText508dLabel509mText510dLabel511mText512m Text513d Label514m Text515m Text516d Label517mText518mText519dLabel520mText521dLabel522mText523mText524dLabel525mText526dLabel527mText528dLabel529mText530mText534mText535dLabel536mText537mText538d Label539m!Text540d"Label547m#Text558d$Label559m%Text560m&Text561d'Label562m(Text563m)Text564d*Label565m+Text566m,Text567d-Label568m.Text569d/Label570d0Label571m1Text575d2Label576m3Text577m4Text578d5Label579m6Text580m7Text584d8Label585m9Text586m:Text587d;Label588m<Text589d=Label590m>Text591m?Text592d@Label593mAText594dBLabel595mCText596dDLabel597mEText598mFText599GDetailHPageFootermIText215JpcpKDemographicsLVisitsMTestsNPatient_CountOVisits_OfficePAge_60_AndOverQAge_45AndOverRAge_55AndOverSInsurance_specifiedTInsurance_medicaidUInsurance_medicareVInsurance_commercialWInsurance_otherXInsurance_noneYMigrantZHomeless[Cnt_Major_depression\Cnt_Minor_depression]Cnt_Dysthymia^CSD_CSD_2_OrMore_Weeks`CSD_6_OrMore_WeeksK$[aCSD_6_OrMore_monthsbmed_anti_depressantcmed_anti_psychoticsdedu_in_house_cnsleedu_mh_hospfedu_MH_Refgedu_Psychiatric_consulthedu_sm_goal_depresiPHQ_index_20AndOverjPHQ_index_15_to_19kPHQ_index_10_to_14lPHQ_index_5_to_9mPHQ_index_0_to_4nPHQ_0AndOveroPHQ_20AndOverpPHQ_15_to_19qPHQ_10_to_14rPHQ_5_to_9sPHQ_0_to_4tCSD_PHQ_15_to_19uCSD_PHQ_10_to_14vCSD_PHQ_5_to_9wCSD_PHQ_0_to_4xPHQ_Change_avgyPHQ_Change_50AndOverzPHQ_Change_25_to_49{PHQ_Change_0_to_24|PHQ_Change_minus}CSD_PHQ_Retested_AtUnder_2weeks~CSD_PHQ_Retested_Over4_to_6weeksCSD_PHQ_Retested_6Over_weeksCSD_PHQ_Retested_NeverCSD_PHQ_Retested_2Over_to_4weeksCSD_PHQ_Next_Visit_AtUnder_2weeksCSD_PHQ_Next_Visit_2Over_to_4weeksCSD_PHQ_Next_Visit_Over4_to_6weeksCSD_PHQ_Next_Visit_6Over_weeksCSD_PHQ_Next_Visit_NeverLast_PHQ_6OrUnder_monthsLast_PHQ_Over6_monthslab_TSH_AnyNumericResultlab_blood_level_AnyNumericResultlab_CBC_AnyNumericResultlab_chem_panel_AnyNumericResultPropDataCopy2[@%MX@%MXBlob [PropDataZ] 0:<=Babc,e ghi j/k"[Event Procedure] _k@(QRY_SummaryDiabetes2"[Event Procedure] Arial8hhh:XHP OfficeJet G85xiXC od,,LetterDINU"4$ $$$$@&winspoolHP OfficeJet G85xiDOT4_001 d28 Arialm5< ArialpcpDemographics Visits Tests`PageHeaderm<"`aPb cei jtxt_pcp@=IIf([pcp] Is Null,"None",[pcp])2primary care practitionerd8"aPbcd eLabel212,Primary Care ProviK$[der:d278` bcJd elbl_ReportName.Diabetes Summary ReportTimes New Romanm`iab8kText222H=[Forms]![frmReports]![txtStartDate]d`abHcLabel223Between:m`5%abkText224D=[Forms]![frmReports]![txtEndDate]d`#abhcLabel225andm<`bc,i kText228N=[Forms]![frmReports]![lstSelectClinic]Times New Roman`GroupHeader3`4aGroupHeader0Oe24abXcD4 Box142d278"`"bcd eLabel143DEMOGRAPHICSd8"`ia bce Text47 3. Agem5C`a bUAge_UnknownAge_Unknownd`a bc Text50$a. Age unspecifiedm5C`a bUkAge_14_AndUnderAge_14_AndUnderd`a bc Text52b. <= 14m5C`abUkAge_40_to_49Age_40_To_49d`abc Text48e. 40-49m5C`abUkAge_15_To_29Age_15_To_29d`abc Text54c. 15-29m05C`a bk4txt_Age_Unknown_Percentage<=[Age_Unknown]/[Patient_Count]Percentm05C`a bk=[Age_15_To_29]/[Patient_Count]Percentm05C`abk6txt_Age_40_to_49_Percentage>=[Age_40_to_49]/[Patient_Count]Percentd8"`a%b ce Text73&6. Type of diabetesm5C`a&bUk*Diabetes_Type_Unknown*Diabetes_Type_Unknownd`a&bc Text86a. Unspecifiedm5C`a}(bUk Diabetes_Type_2Diabetes_Type_2d`a}(bc Text84c. Type 2m5C`a'bUk Diabetes_Type_1Diabetes_Type_1d`a'bc Text88b. Type 1m05C`a&bk Htxt_Diabetes_Type_Unknown_PercentageP=[Diabetes_Type_Unknown]/[Patient_Count]Percentm05C`a'bk =[Age_30_To_39]/[Patient_Count]Percentm5<"C`abUk"Patient_Visit_0"[Patient_Visit_0]d8"`abcLabel172$b. Pts w/ 0 visitsd8"`ab ceLabel2101. Patients m5C`awbUk#Text262&Insurance_specifiedd`awbcLabel263,a. Insurance indicatedm5C`aW!bUk$Text264([Insurance_medicaid]d`aW!bcLabel265c. Medicaidm5C`ag bUk%Text266,[Insurance_commercial]d`ag bcLabel267b. Commercialm05C`ag bk&Text269N=[Insurance_commercial]/[Patient_Count]Percentm05C`aW!bk'Text270J=[Insurance_medicaid]/[Patient_Count]Percentm5C`aG"bUck(Text271([Insurance_medicare]d`aG"bcLabel272d. Medicarem05C`aG"bck)Text273J=[Insurance_medicare]/[Patient_Count]Percentm5C`a(#bUk*Text274"[Insurance_other]d`a(#bcLabel275e. Otherm05C`a(#bk+Text276D=[Insurance_other]/[Patient_Count]Percentm5C`a$bUk,Text277 [Insurance_none]d`a$bcLabel278f. Nonem05C`a$bk-Text279B=[Insurance_none]/[Patient_Count]Percentm5C`a bUk.(Patient_Visit_1_To_2(Patient_Visit_1_To_2d`a bcK$[ Text65(c. Pts w/ 1-2 visitsm5C`abUk/.Patient_Visit_6_AndOver.Patient_Visit_6_AndOverd`abc Text61&e. Pts w/ 6+ visitsm5C`abUk0(Patient_Visit_3_To_5(Patient_Visit_3_To_5d`abc Text67(d. Pts w/ 3-5 visitsm05C`a bk1@txt_Patient_Visit_1_To_2_PercentN=[Patient_Visit_1_To_2]/[Patient_Count]Percentm05C`abk2@txt_Patient_Visit_3_To_5_PercentN=[Patient_Visit_3_To_5]/[Patient_Count]Percentm05C`abk3Ftxt_Patient_Visit_6_AndOver_PercentT=[Patient_Visit_6_AndOver]/[Patient_Count]Percentm05C`abk4"Patient_Visit_AvgB[Patient_Visit_0]/[Patient_Count]Percentd8"`a*b ceLabel327,7. Special Populationsm5C`a+bUk5Text328Migrantd`a+bcLabel329a. Migrantm5C`a,bUk6Text332Homelessd`a,bcLabel333b. Homelessm05C`a+bk7Text3344=[Migrant]/[Patient_Count]Percentm05C`a,bk8Text3356=[Homeless]/[Patient_Count]Percentm58 <"C`a+bUk9Text337Patient_Countd8"`a+bcLabel338Ba. Total registry & Avg visits/ptm05C`a+bk:Text339"Patient_Visit_Avg Fixedm5C`abUk;Age_45_AndOverAge_45AndOverd`abcLabel347j. 45+m5C`abUk<Age_50_to_59Age_50_To_59d`abcLabel349f. 50-59m05C`abk=.Age_50_to_59_Percentage>=[Age_50_To_59]/[Patient_Count]Percentm05C`abk>2Age_45_AndOver_Percentage@=[Age_45AndOver]/[Patient_Count]Percentm5C`abUk?Age_65_AndOverAge_65_AndOverd`abcLabel353 h. 65+m05C`abk@Text354B=[Age_65_AndOver]/[Patient_Count]Percentm5C`abUkAText356Age_55AndOverd`abcLabel357i. 55+m05C`abkBText359@=[Age_55AndOver]/[Patient_Count]Percentd38"`,a-b cdLabel375P* Smoker=marked as current at last evaluation or referred, attended or declined cessation class in period. **Smoke cessation class attended, declined or referred to.m5C`abUkCText376Age_60_AndOverd`abcLabel377 g. 60+m05C`abkDText379B=[Age_60_AndOver]/[Patient_Count]Percent`5aGroupHeader1We24abXcD4 Box158d278"`"bcd eLabel159VISIT INFOd8"`xa&b5ceText155"9. Blood pressurem05C`ia bUBp_Systolic_AvgBp_Systolic_Avg Fixedd`a bcText160@b. Avg systolic && Avg diastolicm58 C`ia bUkBp_140_90OverBp_140_9K$[0Overd`a bcText1560d. BP checked & > 140/90m58 <"C`ia bUkBp_130_85OverBp_135_85Overd8"`a bcText1622c. BP checked & > 135/85m05C`a bk"Bp_Diastolioc_Avg"Bp_Diastolioc_Avg Fixedm05<"C`a bk2txt_Bp_130_85Over_Percentd=IIf([Bp_checked],[Bp_135_85Over]/[Bp_Checked],"")Percentm05C`a bk2txt_Bp_140_90Over_Percentd=IIf([Bp_checked],[Bp_140_90Over]/[Bp_Checked],"")Percentm5C`ia%bUkBp_CheckedBp_Checkedd`a%bcText1582a. Patients w/ bp checkedm05C`a%bk,txt_Bp_Checked_Percent:=[Bp_Checked]/[Patient_Count]Percentm5C`iabUkBMI_CalculatedBMI_Calculatedd`abcText116"a. BMI calculatedd8"`iawb ceText113 8. BMIm5C`iabUk BMI_24_AndUnderBMI_24_AndUnderd`abcText118b. <= 24m5C`iasbUk BMI_30_AndOverBMI_30_AndOverd`asbcText120d. >= 30m05C`abk 6txt_BMI_24_AndUnder_PercentD=[BMI_24_AndUnder]/[Patient_Count]Percentm05C`asbk 4txt_BMI_30_AndOver_PercentB=[BMI_30_AndOver]/[Patient_Count]Percentm05C`abk 4txt_BMI_Calculated_PercentB=[BMI_Calculated]/[Patient_Count]Percentm5C`iabUkBMI_25_To_29BMI_25_To_29d`abcLabel166c. 25 - 29m05C`abk0txt_BMI_25_To_29_Percent>=[BMI_25_To_29]/[Patient_Count]Percentd8"`abceText37710. Medicationsm5C`xabUk$Medication_Insulin$Medication_InsulinGeneral Numberd`abcText380a. Insulinm05C`abktxt_Medication_bp_other_PercentL=[Medication_bp_other]/[Patient_Count]Percentm5C`xaobUk&Medication_bp_other&Medication_bp_otherGeneral Numberd`aobcLabel410j. BP Otherm05C`abk Dtxt_Medication_lipid_lower_PercentR=[Medication_lipid_lower]/[Patient_Count]Percentm05C`xabUk!Text239,Medication_lipid_lowerGeneral Numberd`abcLabel240"h. Lipid loweringm05C`abk"Text312T=[Medication_ag_inhibitor]/[Patient_Count]Percentm5C`xabUk#Text313.Medication_ag_inhibitorGeneral Numberd`abcLabel314 f. AG_Inhibitord8"`xab ceText355N12. Health Profile (number % diagnosed)m5C`xabUk$,Health_cerebrovascular,Health_cerebrovascularGeneral Numberd`abcText358$a. Cerebrovascularm05C`abk%Dtxt_Health_cerebrovascular_PercentR=[Health_cerebrovascular]/[Patient_Count]Percentm5C`xabUk&Health_heartHealth_heartGeneral Numberd`abcLabel416(b. Heart Disease/CADm05C`abk'0txt_Health_heart_Percent>=[Health_heart]/[Patient_Count]Percentm5C`xabUk(*Health_hyperlipidemia*Health_hyperlipidemiaGeneral Numberd`abcLabel419"d. Hyperlipidemiam05C`abk)Btxt_Health_hyperlipidemia_PercentP=[Health_hyperlipidemia]/[Patient_Count]Percentm5C`xabUk*&Health_hypertension&Health_hypertensionGeneral Numberd`abcLabel422c. Hypertensionm05C`abk+Text423L=[Health_hypertension]/[Patient_Count]Percentm5C`xabUk,$Health_nephropathy$Health_nephropathyGeneral Numberd`abcLabel425e. Nephropathym05C`abk-Text426J=[Health_nephropathy]/[Patient_Count]Percentm5C`xawbUk."Health_neuropathy"Health_neuropathyGeneraK$[l Numberd`awbcLabel428f. Neuropathym05C`awbk/Text429H=[Health_neuropathy]/[Patient_Count]Percentm5C`xag bUk0"Health_peripheral"Health_peripheralGeneral Numberd`ag bcLabel431$g. Periph Vascularm05C`ag bk1Text432H=[Health_peripheral]/[Patient_Count]Percentm5C`xaW!bUk2$Health_retinopathy$Health_retinopathyGeneral Numberd`aW!bcLabel434h. Retinopathym05C`aW!bk3Text435J=[Health_retinopathy]/[Patient_Count]Percentm5C`xaG"bUk4*Health_selfmonitor_bg*Health_selfmonitor_bgGeneral Numberd`aG"bcLabel437(i. Self monitors BGm05C`aG"bk5Text438P=[Health_selfmonitor_bg]/[Patient_Count]Percentm5C`xa'$bUck6Health_smokerColl2003_smkerGeneral Numberd`a'$bcLabel443k. Smoker *m05C`a'$bck7Text444B=[Coll2003_smker]/[Patient_Count]Percentm5C`xa7#bUk8Text315&Education_exercisesGeneral Numberd`a7#bcLabel316:j. Physical Activity >3/ wkm05C`a7#bk9Text317L=[Education_exercises]/[Patient_Count]Percentm5C`ia<-bUk:4Health_selfmanagement_goal:Education_selfmanagement_goalGeneral Numberd8"`a<-bcLabel440*h. Self mgt goal set?m05C`a<-bk;Text441`=[Education_selfmanagement_goal]/[Patient_Count]Percentd8"`ia%b ceLabel179613. Specialty Care Receivedm5C`ia&bUk<Education_dmEducation_dmGeneral Numberd`a&bcLabel181a. Dm Educationm05C`a&bk=Text182>=[Education_dm]/[Patient_Count]Percentm5C`ia'bUk>&Education_nutrition&Education_nutritionGeneral Numberd`a'bcLabel184b. Nutritionm05C`a'bk?Text185L=[Education_nutrition]/[Patient_Count]Percentm5C`ia(bUk@,Education_retinal_exam,Education_retinal_examGeneral Numberd`a(bcLabel187c. Retinal Examm05C`a(bkAText188R=[Education_retinal_exam]/[Patient_Count]Percentm5C`ia|)bUkB2Education_smoke_cessationJColl2003_smoke_cessation_ref_dec_doneGeneral Numberd8"`a|)bcLabel190(d. Smoke Cessation**m05C`a|)bkCText191r=[Coll2003_smoke_cessation_ref_dec_done]/[Coll2003_smker]Percentm5C`ial*bUkD>Education_pneumonia_vaccination>Education_pneumonia_vaccinationGeneral Numberd`al*bcLabel1930e. Pneumonia Vaccinationm05C`al*bkEText194d=[Education_pnK$[eumonia_vaccination]/[Patient_Count]Percentm5C`ia\+bUkF2Education_flu_vaccination2Education_flu_vaccinationGeneral Numberd`a\+bcLabel196&f. Flu Vaccinationm05C`a\+bkGText199X=[Education_flu_vaccination]/[Patient_Count]Percentm5C`iaL,bUkH Education_dental Education_dentalGeneral Numberd`aL,bcLabel202g. Dentalm05C`aL,bkIText203F=[Education_dental]/[Patient_Count]Percentm5C`ia,.bUkJ(Education_foot_check(Education_foot_checkGeneral Numberd`a,.bcLabel208i. Foot Checkm05C`a,.bkKText209N=[Education_foot_check]/[Patient_Count]Percentm58 C`iaM bUkLText360Bp_140_90Underd8"`aM bcLabel3610f. BP checked & < 140/90m58 <"C`ia] bUkMText362Bp_130_80Underd8"`a] bcLabel3630e. BP checked & < 130/80m05<"C`a] bkNText364f=IIf([Bp_checked],[Bp_130_80Under]/[Bp_Checked],"")Percentm05C`aM bkOText365f=IIf([Bp_checked],[Bp_140_90Under]/[Bp_Checked],"")Percent`45aGroupHeader2Ue24abXcD4 Box160d8"`<a;b ceText167814. HbA1c or Glycosylated Hbm5C`<a+bUTest_HbA1CTest_HbA1Cd`da+bcText170*a. Patients with testm5C`<a bUk$Test_HbA1C_7_Under$Test_HbA1C_7_Underd`da bcText172c. Under 7.0m5C`<abUk*Test_HbA1C_10_AndOver*Test_HbA1C_10_AndOverd`dabcText168 g. 10+m5C`<abUk(Test_HbA1C_9_To_9pt9(Test_HbA1C_9_To_9pt9d`dabcText174f. 9.0 to 9.9m05C`a+bk$Test_HbA1C_Percent:=[Test_HbA1C]/[Patient_Count]Percentm05C`a bk4Test_HbA1C_7_Under_Percentݎ=IIf([Test_HbA1C_numeric],[Test_HbA1C_7_Under]/[Test_HbA1C_numeric],"")Percentm05C`abk8Test_HbA1C_9_To_9pt9_Percentݒ=IIf([Test_HbA1C_numeric],[Test_HbA1C_9_To_9pt9]/[Test_HbA1C_numeric],"")Percentm05C`abk:Test_HbA1C_10_AndOver_Percentݔ=IIf([Test_HbA1C_numeric],[Test_HbA1C_10_AndOver]/[Test_HbA1C_numeric],"")Percentd8"`<awbceText19716. Creatininem5C`<avbUkTest_CreatinineTest_Creatinined`agbcText200*a. Patients with testm5C`<aVbUk 4Test_Creatinine_1pt5_Under4Test_Creatinine_1pt5_Underd`aVbcText198b. Under 1.5m05C`avbk 6txt_Test_Creatinine_PercentD=[Test_Creatinine]/[Patient_Count]Percentm05C`aVbk Ltxt_Test_Creatinine_1pt5_Under_PercK$[entݲ=IIf([Test_Creatinine_numeric],[Test_Creatinine_1pt5_Under]/[Test_Creatinine_numeric],"")Percentd8"`<ab'ceText226"18. Lipid Profilem5C`<abUk Test_Cholesterol Test_Cholesterold8"`abcText2290a. With Cholesterol testm5C`<abUk 8Test_Cholesterol_200_AndOver8Test_Cholesterol_200_AndOverd`abcText227$c. Patients >= 200m5C`<abUk(Test_Cholesterol_Avg0Test_Cholesterol_numericd`abcText2312b. W/ numeric result, Avgm05C`abk8txt_Test_Cholesterol_PercentF=[Test_Cholesterol]/[Patient_Count]Percentm05C`abkPtxt_Test_Cholesterol_200_AndOver_Percentݺ=IIf([Test_Cholesterol_numeric],[Test_Cholesterol_200_AndOver]/[Test_Cholesterol_numeric],"")Percentm5C`<a+ bUk"Test_Triglyceride"Test_Triglycerided8"`a+ bcText2384d. With Triglycerides testm5C`<a "bUk:Test_Triglyceride_200_AndOver:Test_Triglyceride_200_AndOverd`a "bcText236&f. Patients >= 200m5C`<a!bUk*Test_Triglyceride_Avg2Test_Triglyceride_numericd`a!bcText2402e. W/ numeric result, Avgm05C`a+ bk:txt_Test_Triglyceride_PercentH=[Test_Triglyceride]/[Patient_Count]Percentm05C`a "bkRtxt_Test_Triglyceride_200_AndOver_Percent=IIf([Test_Triglyceride_numeric],[Test_Triglyceride_200_AndOver]/[Test_Triglyceride_numeric],"")Percentm5C`<as#bUkTest_HDLTest_HDLd8"`as#bcText247 g. With HDL testm5C`<aS%bUk"Test_HDL_35_Under"Test_HDL_35_Underd`aS%bcText245"i. Patients < 35m5C`<ac$bUkTest_HDL_Avg Test_HDL_numericd`ac$bcText2492h. W/ numeric result, Avgm05C`as#bk(txt_Test_HDL_Percent6=[Test_HDL]/[Patient_Count]Percentm05C`aS%bk:txt_Test_HDL_35_Under_Percentt=IIf([Test_HDL],[Test_HDL_35_Under]/[Test_HDL_numeric],"")Percentm5C`<a&bUkTest_LDLTest_LDLd8"`a&bcText256 j. With LDL testm5C`<a|)bUk&Test_LDL_100_to 129&Test_LDL_100_to_129&Test_LDL_100_to_129d`a|)bcText254.l. Patients 100 - 129m5C`<a'bUkTest_LDL_Avg Test_LDL_numericd`a'bcText2584k. W/ numeric results, Avgm05C`a&bk(txt_Test_LDL_Percent6=[Test_LDL]/[Patient_Count]Percentm05C`a|)bk>txt_Test_LDL_100_to_129_Percent݈=IIf([Test_LDL_numeric],[Test_LDL_100_to_1K$[29]/[Test_LDL_numeric],"")Percentm5C`<aFbUk 8Test_Creatinine_1pt5_To_2pt58Test_Creatinine_1pt5_To_2pt5d`a7bcLabel454c. 1.5 - 2.5m05C`aFbk!Ptxt_Test_Creatinine_1pt5_To_2pt5_Percentݶ=IIf([Test_Creatinine_numeric],[Test_Creatinine_1pt5_To_2pt5]/[Test_Creatinine_numeric],"")Percentm5C`<a6bUk"2Test_Creatinine_2pt5_Over2Test_Creatinine_2pt5_Overd`a'b4cLabel457d. > 2.5m05C`a6bk#Jtxt_Test_Creatinine_2pt5_Over_Percentݰ=IIf([Test_Creatinine_numeric],[Test_Creatinine_2pt5_Over]/[Test_Creatinine_numeric],"")Percentd8"`-a] b ceLabel144815. MicroAl/Creatinine Ratiom5C`<a=bUk$FTest_MicroAl/Creatinine_30_AndUnder>Test_MicroAl-Creatinine_numericFTest_MicroAl_Creatinine_30_AndUnderd`a=bcLabel1462b. W/ numeric result, Avgm05C`a=bk%^txt_Test_MicroAl/Creatinine_30_AndUnder_Percent6Test_MicroAl-Creatinine_avg Fixed^txt_Test_MicroAl_Creatinine_30_AndUnder_Percentm5C`<a-bUk&>Test_MicroAl/Creatinine_30_OverFTest_MicroAl-Creatinine_30_AndUnder>Test_MicroAl_Creatinine_30_Overd`a-bqcLabel149"c. Normal (<= 30)m05C`a-bk'Ztxt_Test_MicroAl/Creatinine_3pt5_Over_Percent=IIf([Test_MicroAl-Creatinine_numeric],[Test_MicroAl-Creatinine_30_AndUnder]/[Test_MicroAl-Creatinine_numeric],"")PercentZtxt_Test_MicroAl_Creatinine_3pt5_Over_Percentm5C`<aM bUk(.Test_MicroAl/Creatinine.Test_MicroAl-Creatinine.Test_MicroAl_Creatinined`aM bcLabel174*a. Patients with testm05C`aM bk)Ftxt_Test_MicroAl/Creatinine_PercentT=[Test_MicroAl-Creatinine]/[Patient_Count]PercentFtxt_Test_MicroAl_Creatinine_Percentm5C`<abUk*(Test_HbA1C_8_To_8pt9(Test_HbA1C_8_To_8pt9d`dabcLabel214e. 8.0 to 8.9m05C`abk+8Test_HbA1C_8_To_8pt9_Percentݒ=IIf([Test_HbA1C_numeric],[Test_HbA1C_8_To_8pt9]/[Test_HbA1C_numeric],"")Percentm5C`<abUk,(Test_HbA1C_7_To_7pt9(Test_HbA1C_7_To_7pt9d`dabcLabel231d. 7.0 to 7.9m05C`abk-8Test_HbA1C_7_To_7pt9_Percentݒ=IIf([Test_HbA1C_numeric],[Test_HbA1C_7_To_7pt9]/[Test_HbA1C_numeric],"")Percentm5C`<abUk.Text233$Test_HbA1c_numericd`dabcLabel2342b. W/.numeric result, Avgm5C`<al*bUk/Text259(Test_LDLK$[_130_AndOverd8"`al*bcLabel260$m. Patients >= 130m05C`al*bk0Text261݊=IIf([Test_LDL_numeric],[Test_LDL_130_AndOver]/[Test_LDL_numeric],"")Percentm5C`<a(bUk1Text280"Test_LDL_100Underd`a(bcLabel281*m. Patients Under 100m05C`a(bk2Text282݄=IIf([Test_LDL_numeric],[Test_LDL_100Under]/[Test_LDL_numeric],"")Percentd8"`<a,b ceLabel291,19. 24 hour Ur Proteinm5C`<a.bUk3Text292$Test_Urine_Proteind`ca.bcLabel293*a. Patients with testm05C`a.bk4Text294J=[Test_Urine_Protein]/[Patient_Count]Percentm5C`<a /bUk5Text2954Test_Urine_Protein_numericd`ca /bcLabel2962b. W/ numeric result, avgm5C`<a_bUk6Text304Test_ASTd`aPbcLabel305(c. Patients with ASTm5C`<aObUk7Text306 Test_AST_numericm05C`aObk8Text307Test_AST_Avg Fixedd`a@bcLabel3084d. W/ Numeric result, Avg d8"`-ab ceLabel321,17 Liver Function Testm5C`<abUk9Text322Test_ALTd`abcLabel3232a. Patients with ALT testm05C`abk:Text3246=[Test_ALT]/[Patient_Count]Percentm5C`<aobUk;Text325 Test_ALT_numericd`aobcLabel3264b. W/ numeric results, Avgm5C`<abUk<Text340.Test_HbA1C_9pt5_AndOverd8"`dabecLabel341h. >= 9.5 m05C`abk=Text342ݘ=IIf([Test_HbA1C_numeric],[Test_HbA1C_9pt5_AndOver]/[Test_HbA1C_numeric],"")Percentm5;C`<a bUck>*txtHbA1C_91Days_Apart=[DateDiff90]d8"`da bcLabel344.j. 2+ A1c >=91dys apartd278"`)abcd eLabel161TEST INFOm5C`<a bUk?Text366&Test_HbA1C_Under_8rd8"`da becLabel367i. < 8.0 m05C`a bk@Text368ݐ=IIf([Test_HbA1C_numeric],[Test_HbA1C_Under_8r]/[Test_HbA1C_numeric],"")Percentm5C`<a\+bUkAText372"Test_LDL_130Underd8"`a\+bcLabel373$n. Patients < 130m05C`a\+bkBText374݄=IIf([Test_LDL_numeric],[Test_LDL_130Under]/[Test_LDL_numeric],"")Percentm05C`abkCText383Test_HbA1C_Avg Fixedm05C`aobkDText384Test_ALT_Avg Fixedm05C`a_bkEText3856=[Test_AST]/[Patient_Count]Percentm5C`<afbUkFText386.Test_Creatinine_numericd`aWbcLabel3874b. W/ numeric results, Avgm05C`afbkGText388&Test_Creatinine_avg Fixedm05C`abkHText389(Test_Cholesterol_Avg Fixedm05C`a!bkIText390*Test_Triglyceride_Avg Fixedm05C`ac$bkJK$[Text391Test_HDL_Avg Fixedm05C`a'bkKText392Test_LDL_Avg Fixedm05C`a /bkLText393,Test_Urine_Protein_Avg Fixed` Detail`PageFootermC`Text215H="Page " & [Page] & " of " & [Pages]TypeInfo/)BlobDelta\^PropDataCopy3Sja@%MX@%MXͬ:7qPageHeadermtxt_pcpdLabel212dlbl_ReportNamemText222dLabel223mText224dLabel225mText228 GroupHeader3 GroupHeader0e Box142d Label143d Text47mAge_UnknowndText50mAge_14_AndUnderdText52mAge_40_to_49dText48mAge_15_To_29dText54mtxt_Age_Unknown_Percentagemtxt_Age_14_AndUnder_Percentagemtxt_Age_15_To_29_Percentagemtxt_Age_40_to_49_PercentagedText73mDiabetes_Type_UnknowndText86mDiabetes_Type_2dText84mDiabetes_Type_1d Text88m!txt_Diabetes_Type_Unknown_Percentagem"txt_Diabetes_Type_1_Percentagem#txt_Diabetes_Type_2_Percentaged$Label493m%Ethnicity_Whited&Label495m'Ethnicity_AmIndiand(Label497m)Ethnicity_Blackd*Label499m+txt_Ethnicity_White_Percentm,txt_Ethnicity_Black_Percentm-txt_Ethnicity_AmIndian_Percentm.Ethnicity_Asiand/Label1m0txt_Ethnicity_Asian_Percentm1Ethnicity_Hispanicd2Label5m3Ethnicity_Otherd4Label9m5txt_Ethnicity_Hispanic_Percentm6txt_Ethnicity_Other_Percentd7Label125m8Gender_Femaled9Label127m:Gender_Unspecifiedd;Label129m<Gender_Maled=Label131m>txt_Gender_Female_Percentm?txt_Gender_Male_Percentm@txt_Gender_Unspecified_PercentdALabel138mBAge_30_To_39dCLabel140mDtxt_Age_30_To_39_PercentmEPatient_Visit_0dFLabel172dGLabel210mHText262dILabel263mJText264dKLabel265mLText266dMLabel267mNText269mOText270mPText271dQLabel272mRText273mSText274dTLabel275mUText276mVText277dWLabel278mXText279mYPatient_Visit_1_To_2dZText65matient_Visit_6_AndOverd\Text61m]Patient_Visit_3_To_5d^Text67m_txt_Patient_Visit_1_To_2_Percentm`txt_Patient_Visit_3_To_5_Percentmatxt_Patient_Visit_6_AndOver_PercentmbPatient_Visit_AvgdcLabel327mdText328deLabel329mfText332dgLabel333mhText334miText335mjText337dkLabel338mlText339mmAge_45_AndOverdnLabel347moAge_50_to_59dpLabel349mqAge_50_to_59_PercentagemrAge_45_AndOver_PercentagemsAge_65_AndOverdtLabel353muText354mvText356dwLabel357mxText359dyLabel375mzText376d{Label377m|Text379K$[}GroupHeader1e~Box158dLabel159dText155mBp_Systolic_AvgdText160mBp_140_90OverdText156mBp_130_85OverdText162mBp_Diastolioc_Avgmtxt_Bp_130_85Over_Percentmtxt_Bp_140_90Over_PercentmBp_CheckeddText158mtxt_Bp_Checked_PercentmBMI_CalculateddText116dText113mBMI_24_AndUnderdText118mBMI_30_AndOverdText120mtxt_BMI_24_AndUnder_Percentmtxt_BMI_30_AndOver_Percentmtxt_BMI_Calculated_PercentmBMI_25_To_29dLabel166mtxt_BMI_25_To_29_PercentdText377mMedication_InsulindText380mtxt_Medication_Insulin_Percentmtxt_Medication_ace_inhibitor_Percentmtxt_Medication_sulfonylurea_PercentmMedication_aspirindText397mtxt_Medication_aspirin_PercentmMedication_sulfonylureadText382mMedication_ace_inhibitordText378mtxt_Medication_glucophage_PercentmMedication_glucophagedLabel401mtxt_Medication_glitazones_PercentmMedication_glitazonesdLabel404mtxt_Medication_prandin_PercentmMedication_prandindLabel407mtxt_Medication_bp_other_PercentmMedication_bp_otherdLabel410mtxt_Medication_lipid_lower_PercentmText239dLabel240mText312mText313dLabel314dText355mHealth_cerebrovasculardText358mtxt_Health_cerebrovascular_PercentmHealth_heartdLabel416mtxt_Health_heart_PercentmHealth_hyperlipidemiadLabel419mtxt_Health_hyperlipidemia_PercentmHealth_hypertensiondLabel422mText423mHealth_nephropathydLabel425mText426mHealth_neuropathydLabel428mText429mHealth_peripheraldLabel431mText432mHealth_retinopathydLabel434mText435mHealth_selfmonitor_bgdLabel437mText438mHealth_smokerdLabel443mText444mText315dLabel316mText317mHealth_selfmanagement_goaldLabel440mText441dLabel179mEducation_dmdLabel181mText182mEducation_nutritiondLabel184mText185mEducation_retinal_examdLabel187mText188mEducation_smoke_cessationdLabel190mText191mEducation_pneumonia_vaccinationdLabel193mText194mEducation_flu_vaccinationdLabel196mText199mEducation_dentaldLabel202mText203mEducation_foot_checkdLabel208mText209mText360dLabel361mText362dLabel363mText364mText365GroupHeader2eBox160dText167mTest_HbA1CdText170mTest_HbA1C_7_UnderdText172mTest_HbA1C_10_AndOverdText168mTest_HbA1C_9_To_9pt9dText174mTest_HbA1C_Percentm Test_HbA1C_7_Under_Percentm Test_HbA1C_9_To_9pt9_Percentm Test_HbA1C_10_AndOver_Percentd Text197m Test_CreatininedText200mTest_Creatinine_1pt5_UnderdText198mtxt_Test_Creatinine_Percentmtxt_Test_Creatinine_1pt5_Under_PercentdText226mTest_CholesteroldText229mTest_Cholesterol_200_AndOverdText227mTest_Cholesterol_AvgdText231mtxt_Test_Cholesterol_Percentmtxt_Test_Cholesterol_200_AndOver_PercentmTest_TriglyceridedText238mTest_Triglyceride_200_AndOverdText236m Test_Triglyceride_AvgK$[d!Text240m"txt_Test_Triglyceride_Percentm#txt_Test_Triglyceride_200_AndOver_Percentm$Test_HDLd%Text247m&Test_HDL_35_Underd'Text245m(Test_HDL_Avgd)Text249m*txt_Test_HDL_Percentm+txt_Test_HDL_35_Under_Percentm,Test_LDLd-Text256m.Test_LDL_100_to_129Test_LDL_100_to 129d/Text254m0Test_LDL_Avgd1Text258m2txt_Test_LDL_Percentm3txt_Test_LDL_100_to_129_Percentm4Test_Creatinine_1pt5_To_2pt5d5Label454m6txt_Test_Creatinine_1pt5_To_2pt5_Percentm7Test_Creatinine_2pt5_Overd8Label457m9txt_Test_Creatinine_2pt5_Over_Percentd:Label144m;Test_MicroAl_Creatinine_30_AndUnderTest_MicroAl/Creatinine_30_AndUnderd<Label146m=txt_Test_MicroAl_Creatinine_30_AndUnder_Percenttxt_Test_MicroAl/Creatinine_30_AndUnder_Percentm>Test_MicroAl_Creatinine_30_OverTest_MicroAl/Creatinine_30_Overd?Label149m@txt_Test_MicroAl_Creatinine_3pt5_Over_Percenttxt_Test_MicroAl/Creatinine_3pt5_Over_PercentmATest_MicroAl_CreatinineTest_MicroAl/CreatininedBLabel174mCtxt_Test_MicroAl_Creatinine_Percenttxt_Test_MicroAl/Creatinine_PercentmDTest_HbA1C_8_To_8pt9dELabel214mFTest_HbA1C_8_To_8pt9_PercentmGTest_HbA1C_7_To_7pt9dHLabel231mITest_HbA1C_7_To_7pt9_PercentmJText233dKLabel234mLText259dMLabel260mNText261mOText280dPLabel281mQText282dRLabel291mSText292dTLabel293mUText294mVText295dWLabel296mXText304dYLabel305mZText306m[Text307d\Label308d]Label321m^Text322d_Label323m`Text324maText325dbLabel326mcText340ddLabel341meText342mftxtHbA1C_91Days_ApartdgLabel344dhLabel161miText366djLabel367mkText368mlText372dmLabel373mnText374moText383mpText384mqText385mrText386dsLabel387mtText388muText389mvText390mwText391mxText392myText393zDetail{PageFooterm|Text215}pcp~DemographicsVisitsTestsPatient_CountAge_60_AndOverAge_45AndOverAge_55AndOverInsurance_specifiedInsurance_medicaidInsurance_medicareInsurance_commercialInsurance_otherInsurance_noneMigrantHomelessBp_135_85OverBp_140_90UnderBp_130_80UnderMedication_ag_inhibitorMedication_lipid_lowerEducation_selfmanagement_goalEducation_exercisesColl2003_smoke_cessation_ref_dec_doneColl2003_smkerTest_HbA1C_AvgTest_HbA1c_numericTest_HbA1C_9pt5_AndOverTest_HbA1C_Under_8rDateDiff90Test_MicroAl/Creatinine_numericTest_Creatinine_numericTest_Creatinine_avgTest_ALTTest_ALT_numericTest_ALT_AvgTest_ASTTest_AST_numericTest_AST_AvgTest_Cholesterol_numericTest_Triglyceride_numericTest_HDL_numericTest_LDL_numericTest_LDL_100UnderTest_LDL_130_AndOverTest_LDL_130UnderTest_LDL_Under_100Test_Urine_ProteinTest_Urine_Protein_numericTest_Urine_Protein_AvgBlob K$[./PropData`bTypeInfoc BlobDelta) 0:<=Babc`'e g#hi<jk,Y@SELECT tblReportsData.type_order, tblReportsData.typefield, tblReportsData.section_order, tblReportsData.section_heading, tblReportsData.display_order, tblReportsData.display_text, tblReportsData.raw_code, tblReportsData.value, tblReportsData.percent, tblReportsData.denominator, tblReportsData.filter FROM tblReportsData;"[Event Procedure] Arial8hhh: H%HP Officejet Pro L7500 Seriest$C odXXLetterDINU" p.bSSMTJHP Officejet Pro L7500 SeriesInputBinFORMSOURCERESDLLUniresDLLHPPreAnalysisFalseMSPreAnalysisFalseHPReportSymmetricMarginsFalseHPMinimizeMarginsFalseHPAlignMarginsForMDTrueDuplexNONEHPPrintPreviewFalseHPOverSprayOptionAutomaticHPOverSpray100HPBorderLessPhotoFalseHPOutputOrderReverseTrueJobUITruePaperSizeLETTEROrientationPORTRAITHPPaperSizeDuplexConstraintsINDEX_CARD_3X5HPDocPropResourceDatahpzhl4sa.cabHPNUseDiffFirstPageChoiceTrueHPMediaTypeDuplexConstraintsHP_MATTE_GREETING_CARDSHPDryTimeOptionAutomaticHPDryTime0HPInkVolumeOptionAutomaticHPInkVolumeNormalHPPrintInGrayScaleFalsePrintQualityNormalPrintQualityGroupPQGroup_2HPJobAccountingHPJOBACCT_JOBACNT_TIMESTAMPHPColorModeCOLOR_MODEHPPDLTypePDL_PCL3HPPJLEncodingUTF8HPXMLFileUsedhpwl7503.xmlHPTilingSelectionTrueHPMediaTypeTreeviewPopupTrueColorModeColor24TextAsBlackFalseMediaTypePLAINResolution600dpiPQDPIInstalledHPMirrorPrintFalseHPAutoDuplexScalingTrueHPManualFeedOrientationFACEUPHPSpeedMechFastDraftHPOutputBinOrientationFACEUPHPMapManualFeedToTray1FalseHPSendPJLUsageCmdLNNAME_CARRPSAlignmentFileHPZ3A4saPSServicesOptionServiceFileEndHPCleaningFilesDataHP_Clean_TestPageHPConsumerCustomPaperHPCustomHPColorSelectionForHPAEnabledHPSmartDuplexSinglePageJobTrueHPBornOnDateHPBODHPInputColorSpaceCOLORSMARTHPDriverDataDriverDataHPCustomSizeCommandTRUEHPSendPreloadCommandTRUEESPRITSupportedTrueHPUseAutoDuplexUnitFalseHPHideManualFeedTrueHPRESDLLNameHPFRS4saHPRedEyeReductionOffHPDigitalImagingHPHomePrintingHPSmartFocusOffHPContrastOnHPDigitalFlashOnHPSharpnessOnHPSmoothingOnHPJpegPngPassthroughTrueHPReverseBandOrderForEvenPagesReverseBandOrderHalftoneHT_PATSIZE_DEFAULTHPHTDLLNameHPFIG4saHPMHDLLNameHPFIE4saHPHPAFilterTrueHPAdvancedColorSettingTrueHPICCPrinterFamily5700_6500HPCRDCommandTrueHPSendUnitMeasureCommandTRUEHPPaperSizeTreeviewPopupMetricHPSimplifiedUK$[ITrueHPPosterPrintingOptionSUIFalseHPPhotoFixOFFHPScaleToPaperFalsepIUPHdLetter o [none] [none]Arial4Pd?OWNER<Automatic>44K$[dMicrosoft Access for WindowsNoneMSACCESS.EXEC:\Program Files\Microsoft Office\Office\MSACCESS.EXEIPACDRWDSGATCAPI;F4E8Q;Ki݅&E%9xI1winspoolHP Officejet Pro L7500 SeriesUSB001d28 Arialm5< Arial0 filter0type_order0section_orderdisplay_order`ReportHeader`PageHeaderm <bcij Label1L=[Forms]![frmCountPatients]![txtTitle]Times New Romanm<`\ahb8c,i jk Text29H=[Forms]![frmReports]![txtStartDate]Times New Romanm;<`(#ahbc,i jk Text31D=[Forms]![frmReports]![txtEndDate]Times New Romand8`!ahbcd eLabel32toTimes New Romanm;<``bc,i jk Text33f=[Forms]![frmReports]![lstSelectClinic].[column](0)Times New Roman0`GroupHeader0m <b cij Text27 filterTimes New Roman`Xa"[Event Procedure]GroupHeader2eab c, Box25m<"C`Xa bc,j Text20[typefield]`,K$[aGroupHeader3m`bpc, Text23"[section_heading]` Detail m;`bc Text5 valueGeneral Numberm`bDk Text10display_textf`<b Line11f`bc Line12f` bc Line14m0`K bk Text16percentPercentf`<ab Line18f`<bc Line22f` bc Line26`PageFooter`ReportFooterͬ%a#%qReportHeaderPageHeadermLabel1mText29mText31dLabel32mText33GroupHeader0mText27 GroupHeader2e Box25m Text20 GroupHeader3m Text23DetailmText5mText10fLine11fLine12fLine14mText16fLine18fLine22fLine26PageFooterReportFootertype_ordertypefieldsection_ordersection_headingdisplay_orderdisplay_text raw_code!value"percent#denominator$filter1D13Fd    m     m+m+m+dm+m+e    m+m+ m+.J0L 1Mm+f    J<L f    f    J L Mm+.JK 0L 1Mf    J<KLK$[ Mf    f    J L Mͬa7;$qReportHeaderdLabel0dLabel2mText3mText15dLab4f@%MX@%MXBlob +PropDataehETypeInfoFe0:<=Babc$e gehri-j,k "[Event Procedure]tY_@ QRY_SummaryAPHS2"[Event Procedure] Arial8$hhp officejet g series!@h߀dBeRLdMBeںںhp officejet g series series,LocalOnly,DrvConvertC)winspoolhp officejet g seriesDOT4_002d28 Arialm5< Arial`ReportHeaderd5Q8"b{cde Label0FWSDC III APHS Core Measures Report d5Q8"`abWc,d e Label2Clinic:m7Q<"`abc,i j Text3N=[Forms]!K$[[frmReports]![lstSelectClinic]m7Q;C`Ha bXk Text15Patient_Countd5Q7`Da bcLabel16DPatients in registry end of periodm7Q;<"C`o adbc i jXkText222݈=DateAdd("d",1,DateAdd("yyyy",-2,[Forms]![frmReports]![txtEndDate]))mmm-dd-yyyyd5Q8"`wadbc d eXLabel2232 Year Period:m7Q<"C`adbTc i jXk$txtEndDateTwoYearsD=[Forms]![frmReports]![txtEndDate]mmm-dd-yyyyd5Q8"`wadbYc d eXLabel225tod5Q8"`,aB bc,d Label21Print Date:m7Q;<"C`aB bc,i k Text26=Date()mm/dd/yyyyf3Q`Ha^ b Line28m7Q;<"C`` abc i jXk&txtStartDateOneYear݈=DateAdd("d",1,DateAdd("yyyy",-1,[Forms]![frmReports]![txtEndDate]))mmm-dd-yyyyd5Q8"`habc d eXLabel731 Year Period:m7Q<"C`abTc i jXk"txtEndDateOneYearD=[Forms]![frmReports]![txtEndDate]mmm-dd-yyyyd5Q8"`habYc d eXLabel75tom7Q;<"C`` abc i jXk Text76="1/1900"d5Q8"`habqc d eXLabel77Anytime Period:m7Q<"C`abTc i jXktxtEndDateAnyD=[Forms]![frmReports]![txtEndDate]mmm-dd-yyyyd5Q8"`habYc d eXLabel79tom7Q;C`Ha bXk Text93Gender_Femaled5Q7`Da b'cLabel94&Females in registrym7Q;C`HabXk Text95Age_65_AndOverd5Q7`DabcLabel96:Patients aged 65+ in registry` Detail&m7Q;C`HaXbX Text13:Education_selfmanagement_goald5Q`aXbcLabel14r5. Self-management goal recorded: 1 year (% registry). m7Q;C`HabIek$Test_HbA1C_8_Under6edu_mammogram_inappropriated5Q8"`abcLabel30ݚ1b. Number of females with Mammogram contraindicated: 2 years (% of women). m7Q;C`HabXk Text38*Education_breast_examm7Q`HabIk Text41edu_mammogramd5Q`ab4cLabel42v1a. Number of females with Mammogram: 2 years (% of women).d5QbKc-Label44d5Q`abpcLabel46v2a. Number of females with Breast exam: 1year (% of women).m07Q;C`abXk Text48p=IIf([Gender_Female],[edu_mammogram]/[Gender_Female],"")Percentm07Q;C`abXk Text49ݐ=IIf([Gender_Female],([edu_mammogram_inappropriate])/[Gender_Female],"")Percentm07Q;C`abXk Text50ݴ=IIf([Gender_Female],([edu_mammogram])/([Gender_Female]-[edu_mammogram_inappropriate]),"")Percentm07S;C`abXk Text51݀=IIf([Gender_Female],[Education_breast_exam]/[Gender_Female],"")Percentm7Q;C`Ha bXk Text53Age_65_AndOverd5Q`a b cLabel54`4b. Number oK$[f patients aged 65+ (% registry) m7Q;C`Ha bXk Text55>Education_pneumonia_vaccinationd5Q`a bcLabel56ݨ4a. Number of patients with Pneumo vax on or before end of period. (% of registry)m07S;C`a bXk Text57ݔ=IIf([Patient_Count],[Education_pneumonia_vaccination]/[Patient_Count],"")Percentm07S;C`a bXk Text58r=IIf([Patient_Count],[Age_65_AndOver]/[Patient_Count],"")Percentm7Q;C`HatbXk Text59Coll2003_smkerd5Q8"`atbcLabel605a. Number of patients recorded as "current" tobacco users: 1 year (Includes all offered+referred+declined classes) (% registry) m7Q;C`HaTbXk Text61JColl2003_smoke_cessation_ref_dec_doned5Q8"`aTbcLabel625b. Number of patients offerered tobacco-cessation:1 year (Includes declines, referals, & completed services (% of smokers).m07S;C`aTbXk Text63ݦ=IIf([Coll2003_smker],[Coll2003_smoke_cessation_ref_dec_done]/[Coll2003_smker],"-")Percentm07S;C`atbXk Text64r=IIf([Patient_Count],[Coll2003_smker]/[Patient_Count],"")Percentm07S;C`aXbXk Text65ݐ=IIf([Patient_Count],[Education_selfmanagement_goal]/[Patient_Count],"")Percentf3Q`Ha,b Line66f3Q`Hab Line67f3Q`Ha0 b Line68f3Q`Hab Line69f3Q`Hab Line70d5Q`abcLabel81ݘ1c. Females with Mammogram as percent of women not contraindicated: 2 years.m7Q;C`Ha` bIk Text82BEducation_pap_smear_inappropriated5Q8"`a` bpcLabel83ݖ3b. Number of females with Pap test contraindicated: 1 year (% of women). m7Q`Ha4bIk Text84&Education_pap_smeard5Q`a4b4cLabel85r3a. Number of females with Pap test: 1 year (% of women).m07Q;C`a4bXk Text86|=IIf([Gender_Female],[Education_pap_smear]/[Gender_Female],"")Percentm07Q;C`a` bXk Text87ݜ=IIf([Gender_Female],([Education_pap_smear_inappropriate])/[Gender_Female],"")Percentm07Q;C`a bXk Text88=IIf([Gender_Female],[Education_pap_smear]/([Gender_Female]-[Education_pap_smear_inappropriate]),"")Percentd5Q`a bcLabel89ݔ3c. Females with Pap test as percent of women not contraindicated: 1 year.m07Q;C`abXk Text90ݢ=IIf([Age_65_AndOver],[Education_pneumonia_vaccination_65]/([Age_65_AndOver]),"")Percentd5Q`K$[abcLabel91݀4c. Patients aged 65 or over with Pneumo vax as % all aged 65+. f3Q`Hab Line97m7S;C`HabXk Text98DEducation_pneumonia_vaccination_65General Number40>L5Lrm7S;C`Ha bXk Text99&Education_pap_smearGeneral Number0ƍ2C0lm7S;C`HabXkText100edu_mammogramGeneral Number=/JfE֎`hReportFooterel16mText222dLabel223mtxtEndDateTwoYearsd Label225d Label21m Text26f Line28m txtStartDateOneYeardLabel73mtxtEndDateOneYeardLabel75mText76dLabel77mtxtEndDateAnydLabel79mText93dLabel94mText95dLabel96DetailmText13dLabel14mTest_HbA1C_8_UnderdLabel30mText38mText41d Label42d!Label44d"Label46m#Text48m$Text49m%Text50m&Text51m'Text53d(Label54m)Text55d*Label56m+Text57m,Text58m-Text59d.Label60m/Text61d0Label62m1Text63m2Text64m3Text65f4Line66f5Line67f6Line68f7Line69f8Line70d9Label81m:Text82d;Label83m<Text84d=Label85m>Text86m?Text87m@Text88dALabel89mBText90dCLabel91fDLine97EReportFooterFpcpGDemographicsHVisitsITestsJPatient_CountKGender_FemaleLGender_MaleMGender_UnspecifiedNAge_UnknownOAge_14_AndUnderPAge_15_To_29QAge_30_To_39RAge_40_to_49SAge_50_to_59TAge_65_AndOverUAge_45AndOverVAge_55AndOverWedu_mammogramXEducation_breast_examYEducation_pap_smearZEducation_pneumonia_vaccination[Education_selfmanagement_goal\Coll2003_smoke_cessation_ref_dec_done]Coll2003_smkerm^Text98m_Text99m`Text100>rptWSC_Diabetes_Core_MeasuresBlobDeltagiPropDataCopyd5dql@%MX@%MXBlob S   0:<=BabcT$e gHhri-j4kI[Event Procedure]kh_@QRY_SummaryDiabetes2Arial8T$DhHP OfficeJet R80xiXC od,,LetterK$[DINU"4$XH $$$$;.HP OfficeJet R80xiHP OfficeJet R80xi\\BIG\HP-R80d28Arialm5<Arial` ReportHeader d8"b{cdeLabel0%WSDC II and III Core Measures Report d8"`abWc,d eLabel2Clinic:m<"`abc,i jText3'=[Forms]![frmReports]![lstSelectClinic]m;C`HapbXckText15 Patient_Countd7`Dapb'cLabel16Patients in registrym;<"C`achi jkText222$=[Forms]![frmReports]![txtStartDate] mmm-dd-yyyyd8"`,abchd eLabel223Period:m<"C`\ abTchi jkText224"=[Forms]![frmReports]![txtEndDate] mmm-dd-yyyyd8"` abYc;d eLabel225tod8"`,abc,d Label21 Print Date:m;<"C`abc,i kText26=Date() mm/dd/yyyyf`HabLine28`DDetailm;C`HabXText7/=[Test_HbA1c_numeric]-[Test_HbA1C_9pt5_AndOver]d`ab4cLabel8F1c. The last HbA1C in reporting period was <9.5. (% w. HbA1C test) m;C`HaDbXkText9"=[Test_LDL]-[Test_LDL_130_AndOver]d`aDbcLabel10@2b. The last LDL in reporting period was <130. (% w. LDL test) m;C`Ha bXkText13Education_selfmanagement_goald`a bcLabel14I4. Self-management goal recorded within reporting period. (% registry) m;C`HabIekTest_HbA1C_8_Under0=([Test_HbA1C_7_Under])+([Test_HbA1C_7_To_7pt9])d8"`abceLabel30E1b. The last HbA1C in reporting period was <8.0. (% w. HbA1C test) m;C`HabXkText38Test_LDLd`ab;c,Label40** Items in bold are new WSDC III measures.m`HabIkText41 Test_HbA1Cd`ablcLabel42U1a. Number of patients with HbA1C test in selected clinic in period. (% of registry)dbKc-Label44d`abpcLabel46T2a. Number of patients with LDL test in selected clinic in period. (% of registry)m0;C`abXkText485=IIf([Patient_Count],[Test_HbA1C]/[Patient_Count],"")Percentm0;C`abXkText49P=IIf([Test_HbA1C],([Test_HbA1C_7_Under]+[Test_HbA1C_7_To_7pt9])/[Test_HbA1C],"")Percentm0;C`abXkText50K=IIf([Test_HbA1C],([Test_HbA1C]-[Test_HbA1C_9pt5_AndOver])/[Test_HbA1C],"")Percentm0;C`abXk Text513=IIf([Patient_Count],[Test_LDL]/[Patient_Count],"")Percentm0;C`aDbXk Text52B=IIf([Test_LDL],([Test_LDL]-[Test_LDL_130_AndOver])/[Test_LDL],"")Percentm;C`Ha bXk Text53Bp_140_90Underd`a b$cLabel54E3b. The last BP in reporting period was <140/90. (% w. BP measured) m;C`Ha` bXk Text55 Bp_Checkedd`a` bcLabel56W3a. Number of patients with BP recorded in selected clinic in period. (% of registry)m0;C`a` bXk Text575=IIf([Patient_Count],[BP_Checked]/[Patient_Count],"")Percentm0;C`a bXkText583=IIf([BP_Checked],[Bp_140_90Under]/[BP_Checked],"")Percentm;C`HabXkText59Coll2003_smkerd8"`ablceLabel60ݤ5a. Number of patients recorded as "current" tobacco users in selected clinic during period, (Includes all offered+referred+declined classes) (% registry) m;C`HabXkText61%Coll2003_smoke_cessation_ref_dec_doned8"`abceLabel62ݞ5b. Number of patients offerered tobacco-cessation in selected clinic in period. (Includes declines, referals, & completed services) (% of smokers)m0;C`abXkText63S=IIf([Coll2003_smkerK$[],[Coll2003_smoke_cessation_ref_dec_done]/[Coll2003_smker],"-")Percentm0;C`abXkText649=IIf([Patient_Count],[Coll2003_smker]/[Patient_Count],"")Percentm0;C`a bXkText65H=IIf([Patient_Count],[Education_selfmanagement_goal]/[Patient_Count],"")Percentf`Ha,bLine66f`abLine67f`HabLine68f`Ha bLine69f`HaLbLine70`, ReportFooterPropDatakneTypeInfo 3BlobDeltamoPropDataCopyfͬP#qReportHeaderdLabel0dLabel2mText3mText15dLabel16mText222dLabel223mText224d Label225d Label21m Text26f Line28 DetailmText7dLabel8mText9dLabel10mText13dLabel14mTest_HbA1C_8_UnderdLabel30mText38dLabel40mText41dLabel42dLabel44dLabel46mText48mText49mText50mText51m Text52m!Text53d"Label54m#Text55d$Label56m%Text57m&Text58m'Text59d(Label60m)Text61d*Label62m+Text63m,Text64m-Text65f.Line66f/Line67f0Line68f1Line69f2Line703ReportFooter4pcp5Demographics6Visits7Tests8Patient_Count9Patient_Visit_Avg:Patient_Visit_0;Patient_Visit_1_To_2<Patient_Visit_3_To_5=Patient_Visit_6_AndOver>Gender_Female?Gender_Male@Gender_UnspecifiedAAge_UnknownBAge_14_AndUnderCAge_15_To_29DAge_30_To_39EAge_40_to_49FAge_50_to_59GAge_65_AndOverHAge_45AndOverIAge_55AndOverJEthnicity_WhiteKEthnicity_BlackLEthnicity_AmIndianMEthnicity_AsianNEthnicity_HispanicOEthnicity_OtherPInsurance_specifiedQInsurance_medicaidRInsurance_medicareSInsurance_commercialTInsurance_otherUInsurance_noneVDiabetes_Type_UnknownWDiabetes_Type_1XDiabetes_Type_2YMigrantZHomeless[BMI_Calculated\BMI_24_AndUnder]BMI_25_To_29^BMI_30_AndOver_Bp_130_85Over`Bp_135_85OveraBp_140_90OverbBp_140_90UndercBp_130_80UnderdBp_CheckedeBp_Systolic_AvgfBp_Diastolioc_AvggMedication_InsulinhMedication_sulfonylureaiMedication_glucophagejMedication_glitazoneskMedication_prandinlMedication_ag_inhibitormMedication_bp_othernMedication_aspirinoMedication_ace_inhibitorpMedication_lipid_lowerqHealth_cerebrovascularrHealth_heartsHealth_hyperlipidemiatHealth_hypertensionuHealth_nephropathyvHealth_neuropathywHealth_peripheralxHea K$[lth_retinopathyyHealth_selfmonitor_bgzEducation_dm{Education_nutrition|Education_retinal_exam}Education_smoke_cessation~Education_pneumonia_vaccinationEducation_flu_vaccinationEducation_selfmanagement_goalEducation_dentalEducation_foot_checkEducation_smokerEducation_exercisesTest_HbA1C_AvgTest_HbA1CTest_HbA1C_7_UnderTest_HbA1C_7_To_7pt9Test_HbA1C_8_To_8pt9Test_HbA1C_9_To_9pt9Test_HbA1C_10_AndOverTest_HbA1C_9pt5_AndOverTest_HbA1C_Under_8rDateDiff90Test_MicroAl/CreatinineTest_MicroAl/Creatinine_30_AndUnderTest_MicroAl/Creatinine_30_OverTest_CreatinineTest_Creatinine_1pt5_UnderTest_Creatinine_1pt5_To_2pt5Test_Creatinine_2pt5_OverTest_ALT_AvgTest_ALTTest_AST_AvgTest_ASTTest_Cholesterol_AvgTest_CholesterolTest_Cholesterol_200_AndOverTest_TriglycerideTest_Triglyceride_AvgTest_Triglyceride_200_AndOverTest_HDLTest_HDL_AvgTest_HDL_35_UnderTest_LDLTest_LDL_AvgTest_LDL_100UnderTest_LDL_100_to_129Test_LDL_130_AndOverTest_LDL_130UnderTest_LDL_Under_100Test_Urine_ProteinTest_Urine_Protein_AvgDirDatagPropDataprk;PropDataCopylFScriptsNu@%MX@%MX6rptWSC_APHS_Core_MeasuresrptTemp(rptSummaryDiabetes,rptSummaryDepression 5CB0 4CB0 3CB0 2CB0 1CB0 5CB0 4CB0 3CB0 2CB0 1CB0 0CB0jiMSysDbPropDatanDatabasestzv@%MX 0xw@%MX@%MXBlob DirDataoImExSpecs@%MX@%MXCustomGroupsy{@%MX@%MXDataAccessPages @%MX@%M K$[X $ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @&'()*+,-. / 0 1 2 3456789:;<=>?@ABCDE F!G"H#I$J%K&L'M(N)O*P+Q,R-S.T/U0V1W2X3Y4Z5[6\7]8^9_:`;a<b=c>d?e@fAgBhCiDjEkFlGmHnIoJpKqLrMsNtOuPvQwRxSyTzU{V|W}X~YZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-. / 0 1S YN44Y  Y Y   Y  , Y ,v Y vId LValueObjectGuidObjectNameProperty Value, v, v,45v , v, v,46v , v, v,47v ,YYYId$ObjectGuidProperty$ObjectNameProperty4Hv1b@  3 3 3>YN99 Y Y &Y  Y  Y ,~Y ~Y   Filter FlagsIdNamePosition SelectedObjectIDType ~, ~, 9;,~ YIdVa8OuCustom ^Zables"w V8::: RY"N==Y Y Y  Y Y ,Y Y   FlagsGroupCategoryIDIdName"Object Type GroupObjectIDPosition , , =?,  , , =@, YYGroupCategoryIDIdv1@@ <yL|O" n A " w  w w w w w  wCustom Group 162.*  w w w w w w w < @ @> > > > > >>>>>>>>>> < @ @>>>>>>>> >> > > > > "> YNBBY Y Y Y  Y ,Y Y   FlagsGroupIDIconIdNameObjectIDPosition, , BF ,, , BG ,YYGroupIDIdv1@ 8(AVyLk> ] 0  | O " n A  ` 3   R % qDc6 U(tGf9 X+wJi< o o o o o o o o~ o} o| o{ oz oy~ ox} ow| ov{ ouz oty osx orw~ oqv} opu| oot{ onsz omry olqx okpw ojov oinu ohms oglq ofko oejm odik ochj obgh oafg o`ee o_dc o^ca o]b_ o\a] o[`[ oZ_Y oY^W oX]U oW\S oV[Q oUZO oTYM oSXK oQTH oPSF oORD oMPA oJM< oIL: oHK8 oFI5 oEH+ oD3 oC$ oBG4 oAF* o@ o o o o o o o o o  o  o  o  o  o  o  o  o o o o o(AVyLk> ] 0  | O " n A  ` 3   R % qDc6 U(tGf9 X+wJi< o o o o o o o o oW o  o oA o< o8 ot or op on ol oi of od ob o` o^ o\ oZ oX oV oT oR oP oN oL oJ oI oG oE oC oB o@ o> o= o; o9 o7 o6 o3 o o" o! o  o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o oV A$yLk> ] 0  | O " n A  ` 3  j oi oh og of oe od oc ob oa o` o_ o^ o] o\ o[ oZ oY o o oU oQ oN oJ oO oV o o o o o o o o o o oA @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @CCCCCCCDD D!D"D#D$DGDHDIEEEEEEEEEEEEEEE E!E"E#CCCCCCCCCC C!C"C#C$C%C&C'C(C)C*C+C,C-C.C/C0C1C2C3C4C5C6C7C8C9C:C;C<C=C>C?C@CACBCCCDCECFCGCHCICJCKCLCMCNCOCPCQCRCSCTCUDDDDDDDDDD D D D D DDDDDDDDDDDDDDDDDD%D&D'D(D)D*D+D,D-D.D/D0D1D2D3D4D5D6D7D8D9D:D;D<D=D>D?D@DADBDCDDDEDFDJDLDMDNDODPDQDRDSDTDUEEEEEEEEEE E E E E EEEECCCCDKCCCCCCC C C C C CA @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @CCCCCCC C C C  C  C C C CCCCCC@CACBCCCDCECFCHCICJCMCOCPC QC!SC"TC#UC$VC%WC&XC'YC(ZC)[C*\C+]C,^C-_C.`C/aC0bC1cC2dC3eC4fC5gC6hC7iC8jC9kC:lC;mC<nC=oC>pC?qC@rCAsCBtCCuCDvCEwCFxCGyCHzCI{CJ|CK}CL~CMCNCOCPCQCRCSCTCUDDDDDDDDDD D D D D DDDDDDDDDDDDDDDDDDD D!D"D#D$D%D&D'D(D)D*D+D,D-D.D/D0D1D2D3D4D5D6D7D8D9D:D;D<D=D>D?D@DADBDCDDDEDFDGDHDIDJDKDLDMDNDODPDQDRDSDTDUEEEEEEEEEE E E E E EEEEEEEEEEEEEEEEEEE E!E"E#RYkie\NIIY  Y Y IdNameTypedvPP LVALrGDHV HD_5 ')?V HV  V HV  ^V V V V .V fV V _HV V V V V PV V kppV pV pV pV pV pV pV c_^V V V V .V fV V kp d  d  d  d  d  d   !tlkpClinic.ClinictlkpClinic-tlkpClinic.Clinic_code/tlkpClinic.Clinic_group'tlkpClinic.Type_Form1tlkpClinic.Type_Flowsheet/tlkpClinic.Type_OverFlow%tlkpClinic.Comments8V 0V V V  V nQ@V V ^V XRuV XRV XRV XR.V XRfV XRV XRtlkpClinic V V V PV  V $V V j_@b w@E~sq_cfrmReports~sq_clstSelectClinicV  HV V  V V  V V  V V  V V  PV V  V V HV V V V V V V PV V ^V XR hV XRhV XRV XR.V XRhfV XRhV XR C:\Users\Jackieq\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbtlkpClinictlkpClinic ^V V  V V  V V  V V  .V V  fV V  V V HV V V V V V PV V  V `V V  V 8V XV xV V V V V  V V  V V  V V  V V  V V  V V  V V  V V  V V  V V  V V  V V  V V  V V  V V  V V  V V  V V  V V  V V  V V  V V  V V  V V  V V  V V  V V  V V  V V (V XV 0V anV V  anV V  anV V  anV V  anV V  anV V  hanV V  $V z  V PV V hV TV V V (V V 8V 0V HV hV XV V hV  V xV  dV  dV  dV  d0V  dhV  dV  V DxV V V V V V V V V V 0V hV V V V C:\Users\Jackie\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbtlkpClinic dV  dV PrimaryKeyClinic_codeV V v V V PV hV V `V `Vq `V `V `V `V `V `V `V `V `V `V `V `V `V `V `V `V `V `V `V `V `V `V `V `V `V `V `V `V V  V V V @V HV C:\Users\Jackie\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbtlkpClinicPrimaryKeyanV HV V V V anV `V V V V (V V LVALrGDH Hl5 '*? H  H  ^    . f  _H     P  kpp p p p p p p c_^    . f  kp d  d  d  d  d  d   !tlkpClinic.ClinictlkpClinic-tlkpClinic.Clinic_code/tlkpClinic.Clinic_group'tlkpClinic.Type_Form1tlkpClinic.Type_Flowsheet/tlkpClinic.Type_OverFlow%tlkpClinic.Comments8 0     nQ@  V V^ 0FV u 0F 0F 0F. 0Ff 0F 0FtlkpClinic   P  $  j_@b w@E~sq_cfrmReports~sq_clstSelectClinic  H               P     H       P  ^ 0F V 0F 0FV 0FV V. 0F f 0F V 0F V C:\Users\Jackieq\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbtlkpClinictlkpClinic ^        .  f   H     P    `    8 X x                                                              ( X 0 un   un   un   un   un   un   hun   $ z   P  h H   (  8 0 H h X  h   x  d  d  d  d0  dh  d   Dx          0 h    C:\Users\Jackie\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbtlkpClinic d  d PrimaryKeyClinic_code  v   P h  ` ` q ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` `     @ H C:\Users\Jackie\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbtlkpClinicPrimaryKeyun H    un `    (  LVALrGD 6. D_5 ')?668 606 6^66666H666606060606066^6666 d    d  ȅ  d 'tblQueries.qry_ordertblQueries3tblQueries.qry_description%tblQueries.qry_name+tblQueries.qry_comment-tblQueries.qry_showlisth6`66 6 6bfP@86P6 6@Z ^6@Z 6@Z 6@Z 6@ZtblQueries66666Q @;~sq_cfrmReports~sq_clstQueriesP66p6 H6x6 66 66 666H66666@Z ^6@Z 6@Z 6@Z 6@ZtblQueries 6 6 ^6 6 6 6 6( 6 60 66H6666 6H66 686P6h6668 668 668 668 668 668 668 668 668 668 668 668 668 668 668 668 668 668 668 668 668 668 668 668 668 668 668 668 668 668 66666an66 an66 an66 an66 an66 6z `66x6]P668606p6@66P66`6 d6 86 dp6 ȃ6 d6<0686@6H6P6686p6666tblQueries d6qry_number66v 6606H6H6qH6H6H6H6H6H6H6H6H6H6H6H6H6H6H6H6H6H6H6H6H6H6H6H6H6H6H6H6(6 8 6h66606tblQueriesan606 an606 an606 an6066p666(66`66 d6 6 d(6`6 d@ @ d@ an6H6 an6H6 an6H6 an6H6h666H66X66h6       6x661LVALArGD{HpHtd5 '*?pHp pHp ^pppp.pfppHpppppPpppppppppppppppp^pppp.pfpp d  d  d  d  d  d   !tlkpClinic.ClinictlkpClinic+tlkpClinic.Clinic_code-tlkpClinic.Clinic_group'tlkpClinic.Type_Form1tlkpClinic.Type_Flowsheet/tlkpClinic.Type_OverFlow%tlkpClinic.Comments8p0ppp pnQ@pp  ^pN upNpNpN.pNfpNpNtlkpClinic pppPp p$ppj_@b w@E~sq_cfrmReports~sq_clstSelectClinicp Hpp pp pp pp pp Ppp ppHpppppPpp ^pN  pNpN pN  .pN fpN pN C:\Users\Jackieq\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbtlkpClinictlkpClinic ^p p p p p p p p .p p fp p p pHpppppPpp p`pp p8pXpxppp pp pp pp pp pp pp pp pp pp pp pp pp pp pp pp pp pp pp pp pp pp pp pp pp pp pp pp pp pp pp(pXp0punpp unpp unpp unpp unpp unpp hunpp $pz  pPpphppPppp(pp8p0pHphpXpphp pxp dp dp dp d0p dhp dp pDxpppppppppp0phppppC:\Users\Jackie\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbtlkpClinic dp dpPrimaryKeyClinic_codeppv ppPphpp`p`pq`p`p`p`p`p`p`p`p`p`p`p`p`p`p`p`p`p`p`p`p`p`p`p`p`p`p`p`pp ppp@pHpC:\Users\Jackie\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbtlkpClinicPrimaryKeyunpHppppunp`pppp(pp^LVAL$lJ j  H h  t ( Dd2H(((ActivePeriod([tblServices].[service_date],[tblServices].[service_date]))=True) AND ((ActiveClinic([tblServices].[clinic_code]))=True))Last([qActiveMed].[LastOfstart_date])(((ActivePeriod([tblMed].[start_date],IIf(IsDate([tblMed].[end_date]),[tblMed].[end_date],Date())))=True) AND ((ActiveClinic([tblMed].[clinic_code]))=True))(((qActiveLabsLatest1.status_flag) = 'c'))qActiveLabsLatest1.raw_code In ('ha1c','none')qActiveLabsLatest2.raw_code In ('chol','ha1c','hdl','ldl','trig','none')Last(qActiveLabsLatest2.result_any )(((qryMaxLabandResultInPeriod2.status_flag)="c"))qryMaxLabandResultInPeriod2.status_flagqryMaxLabandResultInPeriod2.service_dateqryMaxLabandResultInPeriod2.result_anyqryMaxLabandResultInPeriod2.raw_codeqryMaxLabandResultInPeriod2.chart_numberqryMaxLabandResultInPeriod2.clinic_code(((ActiveClinic([qryMaxLabandResultInPeriod].[clinic_code]))=True))ActiveClinic([qryMaxLabandResultInPeriod].[clinic_code])qryMaxLabandResultInPeriod.status_flagqryMaxLabandResultInPeriod.result_numberqryMaxLabandResultInPeriod.raw_codeqryMaxLabandResultInPeriod.chart_numberqryMaxLabandResultInPeriod.clinic_codeqryMaxLabandResultInPeriod.status_flagMax(qryMaxLabandResultInPeriod.service_date)qryMaxLabandResultInPeriod.result_numberqryMaxLabandResultInPeriod.raw_codeqryMaxLabandResultInPeriod.chart_numberqryMaxLabandResultInPeriod.clinic_code(((ActiveClinic([qryMaxLabandResultInPeriod].[clinic_code]))=True))qryMaxLabandResultInPeriod.status_flagqryMaxLabandResultInPeriod.result_numberqryMaxLabandResultInPeriod.raw_codeqryMaxLabandResultInPeriod.chart_numberqryMaxLabandResultInPeriod.clinic_codeqActiveHealth.raw_code In ('CKD','CVD','DM-1','DM-2','DQOC','Heart','HTN','Hyperlipidemia','Nephropathy','Neuropathy','PVD','Retinopathy','none')Last([qActiveHealth].[start_date])(((ActivePeriod([tblHealth].[start_date],IIf(IsDate([tblHealth].[end_date]),[tblHealth].[end_date],Date())))=True) AND ((ActiveClinic([tblHealth].[clinic_code]))=True))T @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ABBBBBCC!C"C#C D$D&D'D(D )D%E*E,E-E.E/E0E1E2E3E4E 5E 6E 7E+F8F:F;FF?F@FAFBFCFDF EF FF GF #F #F9G#G#G#G#G#G#G# G# G# G# G# G#G#G#G #G #G #G #G #G #G #G#H#H#H#H#H#H#H#H# H#!H#"H ##H #$H #%H #&H #'H#(H#)H#I#*I#,I#-I#.I#/I#0I#1I#2I#3I#4I #5I #6I #7I #8I#+J#9J#;J#J#?J#@J #AJ #BJ #CJ#:K#DK#FK#GK#HKPKPKPKPKPKPK#ELPLPLP LP LP LP LP LPLPLPL PL PL PL PL PL PL PLPMPMPMPMPMPMPMPMP MP!MPNP"NP$NP%NP&NP'NP(NP)N P*N P+N P,NP#OP-OP/OP0OP1OP2OP3OP4OP5O P6O P7O P8OP.PP9PP;PPPP?PP@PPAPPBP PCP PDP PEPP:QPFQPHQPIQPJQPKQPLQPMQ QQ QQ QQPGRQRQRQRQRQRQ RQ RQ RQ RQ RQ NL". z .  \ 2  N $ | R ( b  Ym+~3 Ja#FdF( XQ!qActiveMed.raw_code In ('none')> gQqActiveMed.chart_number6 gQqActiveMed.clinic_code5 gQstart_dateJ@"N1%% oQqActiveMed%%% Q GQ Q GP tblMed.raw_code. gP tblMed.chart_number2 gP tblMed.clinic_code1 gP8@!N 'PLastOfstart_dateLast(tblMed.start_date)V11 oPtblMed.raw_code. gPtblMed.chart_number2 gPtblMed.clinic_code1 gPtblMed P GP GP P GO qActiveLabsLatest1.raw_code: gO !qActiveLabsLatest1.chart_number> gO  qActiveLabsLatest1.clinic_code= gOT@ N 'O\@N gO!qActiveLabsLatest1.chart_number> gO qActiveLabsLatest1.clinic_code= gOLastOfresult!Last(qActiveLabsLatest1.result)V)) oOqActiveLabsLatest1555 O GO O GN qActiveLabsLatest2.raw_code: gN !qActiveLabsLatest2.chart_number> gN  qActiveLabsLatest2.clinic_code= gN@N gN!qActiveLabsLatest2.chart_number> gN qActiveLabsLatest2.clinic_code= gNH@N gNqActiveLabsLatest2555 N GN N GMb@N 'MN@N gMP@N gML@N gMH@N gMP@N gMN@N gMqryMaxLabandResultInPeriod2GGG M M GL @N 'L p@N gL L@N gL P@N gL F@N gL N@N gL L@N gLL@N gLMaxOfservice_dateX@ N?33 oLresultP@ N) oLF@ N gLN@ N gLL@ N gLqryMaxLabandResultInPeriodEEE L GL GL L GK@N 'KL@N gKresultP@N) oKF@N gKN@N gKL@N gG{<M  H  r / P \   a - \W;mwM^tJ W GV !qActiveServicesLatest2.raw_code> gV F@U gV D@U gV\@U 'V@U gVF@U gVD@U gVLastOfresultF@ U5)) oVqActiveServicesLatest2=== V GV V GU !qActiveServicesLatest2.raw_code> gU F@ U gU D@ U gU@ U gUF@ U gUD@U gULastOfservice_date@UA55 oUqActiveServicesLatest2=== U GU U GTB@U 'TtblServicesqActiveServicesLatest1x@U_S' TtblServicesqActiveServicesLatest1v@U_S' TtblServicesqActiveServicesLatest1l@U_S' TtblServicesqActiveServicesLatest1|@U_S' TtblServicesqActiveServicesLatest1x@U_S' TtblServices.status_flag6 gTtblServices.service_date7 gTtblServices.result1 gTtblServices.raw_code3 gTtblServices.chart_number7 gTtblServices.clinic_code6 gTqActiveServicesLatest1=== TtblServices''' T GT GT T GS tblServices.status_flag6 gS tblServices.raw_code3 gS tblServices.chart_number7 gS tblServices.clinic_code6 gS@U 'StblServices.status_flag6 gSlast_dateMax(tblServices.service_date)N## oStblServices.raw_code3 gStblServices.chart_number7 gStblServices.clinic_code6 gStblServices''' S GS GS S GR@#N 'RtblServices.status_flag6 gRtblServices.result1 gRtblServices.raw_code3 gRtblServices.chart_number7 gRtblServices.clinic_code6 gRtblServices''' R GR GR R GQ qActiveMed.raw_code2 gQ qActiveMed.chart_number6 gQ qActiveMed.clinic_code5 gS@ @@ @ @ @@Si`MdobmfJmYQbmkSi`MdobmfJmYQbmkMiYmQiYJGSi`^YkmfJmYQbmkSi`iQfdimkSi`kf^JkWLJkJomdQuQMLJkMd``dbSY^QLJk^Yb\QOmJL^QkLJkomY^kLJkomY^k:`dOo^Q8iQfdimsYxJiOifmko``JivOQfiQkkYdbifmko``JivOYJLQmQkifmmQ`fifmskM+JfWk+MdiQ+`QJkoiQk ifmskM+OYJLQmQk+MdiQ+`QJkoiQk!OJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk&obYdbhoQiv8"+kh+MSi`MdobmfJmYQbmk+kh+M^kmJ^^Ou#+kh+MSi`MdobmfJmYQbmk+kh+M^kmJ^^Ou8$+kh+MSi`MdobmfJmYQbmk+kh+M^kmJ^^^JLk%+kh+MSi`MdobmfJmYQbmk+kh+M^kmJ^^iu&+kh+MSi`MdobmfJmYQbmk+kh+M^kmJ^^kQiqYMQk'+kh+MSi`MdobmfJmYQbmk+kh+M^kmJ^^kfQMYJ^`QJkoiQk(+kh+MSi`MdobmfJmYQbmk+kh+M^kmMWdkQbOu)+kh+MSi`MdobmfJmYQbmk+kh+M^kmiQ^JmQOOQ`d+kh+MSi`MdobmfJmYQbmk+kh+M^kmiQ^JmQOOu+kh+MSi`MdobmfJmYQbmk+kh+M^kmiQ^JmQO^JLk+kh+MSi`MdobmfJmYQbmk+kh+M^kmiQ^JmQOiu+kh+MSi`MdobmfJmYQbmk+kh+M^kmiQ^JmQOkQiqYMQk+kh+MSi`MdobmfJmYQbmk+kh+M^kmiQ^JmQOkfQMYJ^`QJkoiQk+kh+MSi`MdobmfJmYQbmk+kh+M^kmiQ^JmQOqYmJ^k+kh+MSi`MdobmfJmYQbmkMiYmQiYJ+kh+M^kmQmWbYMYmvSY^mQi[+kh+MSi`MdobmfJmYQbmkMiYmQiYJ+kh+M^kmiJMQ[+kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^Ou +kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^Ou8 +kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^^JLk +kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^iu +kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^kQiqYMQk +kh+MSi`^YkmfJmYQbmk+kh+M^kmMWdkQbOu+kh+MSi`^YkmfJmYQbmk+kh+M^kmiQ^JmQOOQ`d+kh+MSi`^YkmfJmYQbmk+kh+M^kmiQ^JmQOOu+kh+MSi`^YkmfJmYQbmk+kh+M^kmiQ^JmQO^JLk+kh+MSi`^YkmfJmYQbmk+kh+M^kmiQ^JmQOiu+kh+MSi`^YkmfJmYQbmk+kh+M^kmiQ^JmQOkQiqYMQk+kh+MSi`^YkmfJmYQbmk+kh+M^kmiQ^JmQOqYmJ^k+kh+MSi`^YkmfJmYQbmkUddOd^O+kh+MM`LMdbOYmYdbW+kh+MSi`^YkmfJmYQbmkUddOd^O+kh+M^km^JLkW+kh+MSi`^YkmfJmYQbmkUddOd^O+kh+M^kmkQiqYMQkW+kh+MSi`iQfdimk+kh+MM`LMdbOYmYdb+kh+MSi`iQfdimk+kh+MM`L^JL+kh+MSi`iQfdimk+kh+MM`L`QO+kh+MSi`iQfdimk+kh+MM`LkQiqYMQ+kh+MSi`iQfdimk+kh+M^kmhoQiYQk+kh+MSi`iQfdimk+kh+M^kmkQ^QMmM^YbYM+kh+MSi`kQmof+kh+MMLdMdbOYmYdb+kh+MSi`kQmof+kh+M^kmJ^^Ou+kh+MSi`kQmof+kh+M^kmJ^^^JLk+kh+MSi`kQmof+kh+M^kmJ^^iu+kh+MSi`kQmof+kh+M^kmJ^^kQiqYMQk+kh+iifmmQ`fMWJbUQMhiv+kQiqYMQ+iQSQiiJ^+Md`f^QmQOMhiv+kQiqYMQiQSQiiJ^k+YbfQiYdO `kvkJMMQkkdL[QMmk `kvkJMMQkku`^ `kvkJMQk`kvkbJqfJbQUidofMJmQUdiYQk `kvkbJqfJbQUidofk `kvkbJqfJbQUidofmddL[QMmk`kvkbJqfJbQdL[QMmYOk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkhJMmYqQOQ`dhJMmYqQWQJ^mWhJMmYqQWQJ^mW8hJMmYqQ^JLkhJMmYqQ^JLk^JmQkm8hJMmYqQ^JLk^JmQkm:hJMmYqQ^JLk^JmQkm<hJMmYqQ^JLk^JmQkm>hJMmYqQ`QOhJMmYqQ`QO8JMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQOokQiOQSYbQORy@  @@@@  @ +kh+MSi`^YkmfJmYQbmk+kh+M^kmMWdkQbOu+kh+MSi`^YkmfJmYQbmk+kh+M^kmiQ^JmQOOQ`d+kh+MSi`^YkmfJmYQbmk+kh+M^kmiQ^JmQOOu+kh+MSi`^YkmfJmYQbmk+kh+M^kmiQ^JmQO^JLk+kh+MSi`^YkmfJmYQbmk+kh+M^kmiQ^JmQOiu+kh+MSi`^YkmfJmYQbmk+kh+M^kmiQ^JmQOkQiqYMQk+kh+MSi`^YkmfJmYQbmk+kh+M^kmiQ^JmQOqYmJ^k+kh+MSi`^YkmfJmYQbmkUddOd^O+kh+MM`LMdbOYmYdbW+kh+MSi`^YkmfJmYQbmkUddOd^O+kh+M^km^JLkW+kh+MSi`^YkmfJmYQbmkUddOd^O+kh+M^kmkQiqYMQkW+kh+MSi`iQfdimk+kh+MM`LMdbOYmYdb+kh+MSi`iQfdimk+kh+MM`L^JL+kh+MSi`iQfdimk+kh+MM`L`QO+kh+MSi`iQfdimk+kh+MM`LkQiqYMQ+kh+MSi`iQfdimk+kh+M^kmhoQiYQk+kh+MSi`iQfdimk+kh+M^kmkQ^QMmM^YbYM+kh+MSi`kQmof+kh+MMLdMdbOYmYdb+kh+MSi`kQmof+kh+M^kmJ^^Ou+kh+MSi`kQmof+kh+M^kmJ^^^JLk+kh+MSi`kQmof+kh+M^kmJ^^iu+kh+MSi`kQmof+kh+M^kmJ^^kQiqYMQk+kh+iifmmQ`fMWJbUQMhiv+kQiqYMQ+iQSQiiJ^+Md`f^QmQOMhiv+kQiqYMQiQSQiiJ^k+YbfQiYdO `kvkJMMQkkdL[QMmk `kvkJMMQkku`^ `kvkJMQk`kvkbJqfJbQUidofMJmQUdiYQk `kvkbJqfJbQUidofk `kvkbJqfJbQUidofmddL[QMmk`kvkbJqfJbQdL[QMmYOk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkhJMmYqQOQ`dhJMmYqQWQJ^mWhJMmYqQWQJ^mW8hJMmYqQ^JLkhJMmYqQ^JLk^JmQkm8hJMmYqQ^JLk^JmQkm:hJMmYqQ^JLk^JmQkm<hJMmYqQ^JLk^JmQkm>hJMmYqQ`QOhJMmYqQ`QO8hJMmYqQkQiqYMQkhJMmYqQkQiqYMQk^JmQkm8hJMmYqQkQiqYMQk^JmQkm:hJMmYqQkQiqYMQk^JmQkm<hJMmYqQkQiqYMQk^JmQkm>hJMmYqQqYkYm^JmQkm+YbfQiYdOhJMmYqQqYkYmk hMWdkQbOu!hiv+QuQiMYkQdqQiVQ?VQ@VQAVQBV QCV QDV QEVQ;WQFWVWVWVWVWVWVWVW VW V WVXV XV XV XVXVXVXVXVXV YVYVYVYVYVYVYVYVZVZVZVZVZV ZV!ZV"ZV#Z V$Z V%ZV[V&[V([V)[V*[V+[V,[V-[V.[V/[V0[V1[V2[V3[V'\V4\V6\V7\V8\V9\V:\V;\V<\V=\V>\V?\V@\VA\VB\VC\VD\ VE\ X\ X\ X\ X\ X\ X\V5]X]X]X ]X ]X ]X ]X ]X]X]X]X]X]X] X] X] X] X]X]X]X] X] X] X] X] X] X ] X!] X"]  X#]  X$]  X%]X^X&^X(^X)^X*^X+^X,^X-^X.^X/^X0^X1^ X2^ X3^X'_X4_X6_X7_X8_X9_X:_X;_X<_X=_X>_X?_X@_XA_ XB_XC_Z_Z_X5`Z`Z`Z`Z`Z`Z`Z `Z `Z `Z `Z `Z` Z` Z`ZX'LVALv  ^ < R  >b|~x6l*bqryMinLabDateInPeriod.raw_code = qryMaxLabDateInPeriod.raw_codeIIf(DateDiff("d",[MinOfService_date],[MaxOfService_date])>=91,1,0)qryMinLabDateInPeriod.chart_numberqryMinLabDateInPeriod.clinic_code(((tblServices.raw_code)="exer ass") AND ((Activeperiod([tblServices].[service_date],[tblServices].[service_date]))=True) AND ((tblServices.status_flag)="c") AND ((CInt(IIf(Len([result]) And IsNumeric([result]),[result],0)))>=3))(((tblReportsTemp.type_order)=0))(((ActivePeriod([tblVisits].[visit_date]-365,[tblVisits].[visit_date]))=True) AND ((ActiveClinic([tblVisits].[clinic_code]))=True))(((ActivePeriod([tblVisits].[visit_date],[tblVisits].[visit_date]))=True) AND ((ActiveClinic([tblVisits].[clinic_code]))=True))qActiveServicesLatest2.chart_numberqActiveServicesLatest2.clinic_code(((qActiveServicesLatest2.status_flag) = 'c'))qActiveServicesLatest2.raw_code In ('Exer Ass','SM Goal','smke ass','none')qActiveServicesLatest2.chart_numberqActiveServicesLatest2.clinic_codeLast(qActiveServicesLatest2.result)qActiveServicesLatest2.chart_numberqActiveServicesLatest2.clinic_codeqActiveServicesLatest2.raw_code In ('CounselAlcohol','CounselWT','Depresn Scrn','DM Educ','Exer Ass','Flu Vac','Foot chk','LifestyleProg','Nut Educ','Pne Vac','Retinal Ex','SM Goal','smke ass','smke ce','none')qActiveServicesLatest2.chart_numberqActiveServicesLatest2.clinic_codeLast(Format([qActiveServicesLatest2].[service_date], 'mm/dd/yy')& ' ( ' & qActiveServicesLatest2.result &' )')(((tblServices.status_flag)="c"))tblServices.status_flag = qActiveServicesLatest1.status_flagtblServices.service_date = qActiveServicesLatest1.last_datetblServices.raw_code = qActiveServicesLatest1.raw_codetblServices.chart_number = qActiveServicesLatest1.chart_numbertblServices.clinic_code = qActiveServicesLatest1.clinic_code(((ActivePeriod([tblServices].[service_date],[tblServices].[service_date]))=True) AND ((ActiveClinic([tblServices].[clinic_code]))=True))<Fv5c" h 8 u K -  V  o ; I  z\> f<,0b.b?\ tblDemo.clinic_code2 g\@W '\tblDemotblServices^@WA5 \tblDemotblServicesZ@WA5 \tblServices.raw_code3 g\MaxOfservice_dateMax(tblServices.service_date)^33 o\Phone2tblDemo.phone29 o\Phone1tblDemo.phone19 o\FirstNametblDemo.first_nameC## o\LastNametblDemo.last_name@!! o\tblDemo.chart_number3 g\tblDemo.clinic_code2 g\tblServices''' \tblDemo \ G\ G\ \ G[V@W '[qryMinLabDateInPeriodqryMaxLabDateInPeriod@Wqe; [qryMinLabDateInPeriodqryMaxLabDateInPeriod@Wqe; [qryMinLabDateInPeriodqryMaxLabDateInPeriod~@Uqe; [Ha1c90DaysApart@U;// o[ qryMinLabDateInPeriod.raw_code= g[D@U g[B@U g[qryMinLabDateInPeriod;;; [qryMaxLabDateInPeriod;;; [ G[ G[ [ GZ tblServices.chart_number7 gZ tblServices.clinic_code6 gZ@U 'ZMaxOfservice_dateMax(tblServices.service_date)^33 oZtblServices.chart_number7 gZtblServices.clinic_code6 gZtblServices''' Z GZ GZ Z GYB@U 'YtblReportsTemp.type_order8 gYtblReportsTemp.raw_code6 gYtblReportsTemp--- Y GY GY Y GX@U 'XtblVisits.visit_date3 gXtblVisits.chart_number5 gXtblVisits.clinic_code4 gXtblVisits### X GX GX X GW tblVisits.chart_number5 gW tblVisits.clinic_code4 gW@U 'WLastOfvisit_dateLast(tblVisits.visit_date)Y11 oWtblVisits.chart_number5 gWtblVisits.clinic_code4 gWtblVisits### W GW GW LVALv8 j   T l.P|QRY_Last_Visit_Date_InPeriodWithBP.chart_number = tblVisits.chart_numberQRY_Last_Visit_Date_InPeriodWithBP.clinic_code = tblVisits.clinic_code(((tblVisits.bp_systolic)>[systolic]) AND ((Activeperiod([tblDemo].[start_date],Nz([tblDemo].[end_date],Date())))=True)) OR (((tblVisits.bp_diastolic)>[diastolic]))tblDemo.chart_number = tblVisits.chart_numbertblDemo.clinic_code = tblVisits.clinic_codeQRY_Last_Visit_Date_InPeriodWithBP.LastVisitDate = tblVisits.visit_dateQRY_Last_Visit_Date_InPeriodWithBP.chart_number = tblVisits.chart_numberQRY_Last_Visit_Date_InPeriodWithBP.clinic_code = tblVisits.clinic_codeQRY_Last_Visit_Date.LastVisitDateQRY_Last_Visit_Date.LastVisitDate(((Activeperiod([tblDemo].[start_date],Nz([tblDemo].[end_date],Date())))=True) AND ((Activeclinic([tblDemo]![clinic_code]))=True) AND ((QRY_Last_Visit_Date.chart_number) Is Null))tblDemo.chart_number = QRY_Last_Visit_Date.chart_numbertblDemo.clinic_code = QRY_Last_Visit_Date.clinic_codeFormat([tblDemo]![phone1],("(@@@) @@@-@@@@"))(((Activeclinic([tblDemo]![clinic_code]))=True) AND ((tblVisits.type_visit)="o") AND ((tblVisits.bp_diastolic)>0) AND ((tblVisits.bp_systolic)>0) AND ((ActivePeriod([visit_date],[visit_date]))=True))tblDemo.chart_number = tblVisits.chart_numbertblDemo.clinic_code = tblVisits.clinic_code(((Activeclinic([tblDemo]![clinic_code]))=True) AND ((tblVisits.type_visit)="o") AND ((ActivePeriod([visit_date],[visit_date]))=True))tblDemo.chart_number = tblVisits.chart_numbertblDemo.clinic_code = tblVisits.clinic_code(((Activeclinic([tblDemo]![clinic_code]))=True) AND ((tblServices.status_flag)="c") AND ((ActivePeriod([service_date],[service_date]))=True))tblDemo.chart_number = tblServices.chart_numbertblDemo.clinic_code = tblServices.clinic_code(((qryMinLabDateInPeriod.raw_code)="ha1c"))qryMinLabDateInPeriod.chart_number = qryMaxLabDateInPeriod.chart_numberqryMinLabDateInPeriod.clinic_code = qryMaxLabDateInPeriod.clinic_code1DE sU7 ~ > B j ' V Y  b&~D f6X[w3x<\%_tblDemoQRY_Last_Visit_Datej@ WQE _ tblDemo.pcp* g_phone_1Z@ W+ o_ tblDemo.zip* g_tblDemo.state, g_tblDemo.city+ g_tblDemo.address1/ g_tblDemo.first_name1 g_tblDemo.last_name0 g_tblDemo.chart_number3 g_QRY_Last_Visit_Date777 _tblDemo _ G_ G_ _ G^ tblDemo.chart_number3 g^ tblDemo.clinic_code2 g^@ W '^tblDemotblVisitsZ@ W=1 ^tblDemotblVisitsV@ W=1 ^LastVisitDateMax(tblVisits.visit_date)R++ o^tblDemo.chart_number3 g^tblDemo.clinic_code2 g^tblVisits### ^tblDemo ^ G^ G^ ^ G]  tblDemo.phone2- g]  tblDemo.phone1- g]  tblDemo.zip* g] tblDemo.state, g] tblDemo.city+ g] tblDemo.address2/ g] tblDemo.address1/ g] tblDemo.first_name1 g] tblDemo.last_name0 g] tblDemo.chart_number3 g] tblDemo.clinic_code2 g] @W ']tblDemotblVisitsZ@W=1 ]tblDemotblVisitsV@W=1 ] Phone2tblDemo.phone29 o] Phone1tblDemo.phone19 o] ZipCode tblDemo.zip8 o] StatetblDemo.state6 o]CitytblDemo.city3 o]Address2tblDemo.address2?!! o]Address1tblDemo.address1?!! o]FirstNametblDemo.first_nameC## o]LastNametblDemo.last_name@!! o]LastVisitDateMax(tblVisits.visit_date)R++ o]tblDemo.chart_number3 g]tblDemo.clinic_code2 g]tblVisits### ]tblDemo ] G] G] ] G\ tblServices.raw_code3 g\ tblDemo.phone2- g\ tblDemo.phone1- g\ tblDemo.first_name1 g\ tblDemo.last_name0 g\ tblDemo.chart_number3 ge mK K L; ? + 'J ~GHMD'lFBA~Nte~@Nte~@QRY_ListPatientWithNoServiceAndLa~٤@٤@QRY_ListPatientWithNoServiceAndLab4@ 3rrrfffffffd @ &|٤@٤@Qry_ListPatientWithDepression4@3hhh\\\\\\\Z @{٤@ *@Qry_ListPatientWithConditionAndNotlab4'@3@5xxlllllllj @z"م٤@UBO*@Qry_ListPatientWithConditionAndLab4@3@4~rrfffffffd @y"م٤@jQ)"*@Qry_ListPatientWithCondition4Ϊ@3@4rffZZZZZZZX @xNd٤@_*@Qry_ListPatientReceiveService4@3@4thh\\\\\\\Z @wNd٤@Nd٤@QRY_ListPatientReceiveLabWithValue_>4@3vvvjjjjjjjh @ &u-٤@-٤@QRY_ListPatientReceiveLabWithValue4@3rrrfffffffd @tʸ٤@i*@QRY_ListPatientReceiveLabWithLastValue2_>4@3@2tttttttr @sʸ٤@W*@QRY_ListPatientReceiveLabWithLastValue2_=4'@ .@2tttttttr @r٤@=Lc*@QRY_ListPatientReceiveLabWithLastValue2_<4@ .@2tttttttr @q٤@٤@QRY_ListPatientReceiveLabWithLastValue24'@ .|||pppppppn @ &oiK٤@b*@Qry_ListPatientOnMedWithCondition4@.@1|ppdddddddb @niK٤@,A*@Qry_ListPatientOnMed4Ϊ@.@1bVVJJJJJJJH @m}٤@(F*@Qry_ListPatientNotReceiveService4Ϊ@.@0znnbbbbbbb` @l}٤@l*@QRY_ListPatientNoServiceAndLab4@.@0vjj^^^^^^^\ @ &j|٤@|٤@QRY_ListPatientNoLab4@.VVVJJJJJJJH @i4:*@:L*@QRY_ListPatient_ServiceReferralStatus4P@.@0xxlllllllj @h|٤@S^@QRY_LatestWeightDate4w@.|@-bVVJJJJJJJH @g+{٤@@QRY_LatestVisitDate4Ξ@,|@-`TTHHHHHHHF @f+{٤@+{٤@QRY_LatestSmkeCess_Refer_Declined_Done_InPeriod4@ +~ @ &day٤@ay٤@QRY_LatestBP4-@,FFF:::::::8 @cay٤@$`@QRY_LatestBMI4@,@-THH<<<<<<<: @bx٤@ay٤@QRY_Latest_BP_>Systolic/Diastolic24Α@,rrrfffffffd @ax٤@=*@QRY_Latest_BP_>Systolic/Diastolic4c@,@)|ppdddddddb @`x٤@x٤@QRY_Last_Visit_xx_days_AndUnder4@ +lll```````^ @_Hw٤@)f}@QRY_Last_Visit_xx_Days_AndOver4@ +@)vjj^^^^^^^\ @_?xZ<q% j " Q ~ 3 u , X  @"j:m-v>TQQuW9btblVisits### b Gb Gb b GaH@W 'atblDemotblVisitsZ@W=1 atblDemotblVisitsV@W=1 aQRY_Last_Visit_Date_InPeriodWithBPtblVisits@WsgU aQRY_Last_Visit_Date_InPeriodWithBPtblVisits@WsgU aQRY_Last_Visit_Date_InPeriodWithBPtblVisits@WsgU a tblVisits.bp_diastolic5 ga tblVisits.bp_systolic4 ga tblVisits.visit_date3 ga tblDemo.phone1- ga tblDemo.zip* gatblDemo.state, gatblDemo.city+ gatblDemo.address1/ gatblDemo.first_name1 gatblDemo.last_name0 gatblDemo.chart_number3 gatblDemo.clinic_code2 gatblDemo aQRY_Last_Visit_Date_InPeriodWithBPUUU atblVisits### a Gadiastolic### Oasystolic!!! Oa Ga a G`  QRY_Last_Visit_Date.Phone29 g`  QRY_Last_Visit_Date.Phone19 g`  QRY_Last_Visit_Date.ZipCode: g`  QRY_Last_Visit_Date.State8 g` QRY_Last_Visit_Date.City7 g` QRY_Last_Visit_Date.Address2; g` QRY_Last_Visit_Date.Address1; g` QRY_Last_Visit_Date.FirstName< g` QRY_Last_Visit_Date.LastName; g` B@W g` "QRY_Last_Visit_Date.chart_number? g` !QRY_Last_Visit_Date.clinic_code> g` QRY_Last_Visit_Date.Phone29 g` QRY_Last_Visit_Date.Phone19 g` QRY_Last_Visit_Date.ZipCode: g` QRY_Last_Visit_Date.State8 g`QRY_Last_Visit_Date.City7 g`QRY_Last_Visit_Date.Address2; g`QRY_Last_Visit_Date.Address1; g`QRY_Last_Visit_Date.FirstName< g`QRY_Last_Visit_Date.LastName; g`B@W g`"QRY_Last_Visit_Date.chart_number? g`!QRY_Last_Visit_Date.clinic_code> g`QRY_Last_Visit_Date777 ` G` G` ` G_f@W '_tblDemoQRY_Last_Visit_Daten@WQE T^ @ @ @ @ @ @ @ @ @ @ @ @ @ @[V2[V3[V'\V4\V6\V7\V8\V9\V:\V;\V<\V=\V>\V?\V@\VA\VB\VC\VD\ VE\ X\ X\ X\ X\ X\ X\V5]X]X]X ]X ]X ]X ]X ]X]X]X]X]X]X] X] X] X] X]X]X]X] X] X] X] X] X] X ] X!] X"]  X#]  X$]  X%]X^X&^X(^X)^X*^X+^X,^X-^X.^X/^X0^X1^ X2^ X3^X'_X4_X6_X7_X8_X9_X:_X;_X<_X=_X>_X?_X@_XA_ XB_XC_Z_Z_X5`Z`Z`Z`Z`Z`Z`Z `Z `Z `Z `Z `Z` Z` Z` Z` Z` Z` Z` Z` Z` Z` Z` Z` Z`  Z`  Z`  Z`  Z`ZaZaZ!aZ"aZ#aZ$aZ%aZ&aZ'aZ(aZ)aZ*aZ+aZ,aZ-aZ.aZ/a Z0a Z1a Z2a Z3aZ4aZ5aZ6aZ7aZ8aZ9aZ bZ:bZb\b\b\b\b\b\b\b\b\b\ b\ b\ b\ bZ;c\ c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\ c\!c\"c\#c \$c \%c\d\&d\(d\)d\*d\+d\,d\-d\.d\'e\/e\1e\2e\3e\4e\5e\6e\7e \8e \9e\0f\:f\;?r3r0 0 f  z N  L S # +c?o-sU7Hz8ftblServices''' f Gf Gf f Ge tblVisits.chart_number5 ge tblVisits.clinic_code4 ge~@] 'eMaxOfvisit_dateMax(tblVisits.visit_date)V// oetblVisits.chart_number5 getblVisits.clinic_code4 getblVisits### e Ge Ge e GdbpH@]! odbp_date^@]+ odb@] gd`@] gdQRY_Latest_BP_>Systolic/Diastolic2UUU d Gd Gd d Gc QRY_LatestHeightDatetblVisits_1z@][O9 c QRY_LatestHeightDatetblVisits_1x@][O9 cQRY_LatestHeightDatetblVisits_1t@ ][O9 ctblDemoQRY_LatestHeightDatep@ ]SG ctblDemoQRY_LatestHeightDatel@ ]SG cQRY_LatestWeightDatetblVisitsv@ ]WK9 cQRY_LatestWeightDatetblVisitst@ ]WK9 cQRY_LatestWeightDatetblVisitsp@]WK9 ctblDemoQRY_LatestWeightDatep@]SG ctblDemoQRY_LatestWeightDatel@]SG cWt_dateH@]+ ocBMI@]# octblVisits_1.height1 gctblVisits.weight/ gctblDemo.chart_number3 gctblDemo.clinic_code2 gcQRY_LatestHeightDate999 ctblVisitstblVisits_199# cQRY_LatestWeightDate999 ctblVisits### ctblDemo c Gc Gc c Gb@] 'btblDemotblVisitsZ@]=1 btblDemotblVisitsV@]=1 bQRY_Last_Visit_Date_InPeriodWithBPtblVisits@]sgU bQRY_Last_Visit_Date_InPeriodWithBPtblVisits@WsgU bQRY_Last_Visit_Date_InPeriodWithBPtblVisits@WsgU btblVisits.bp_diastolic5 gbtblVisits.bp_systolic4 gbtblVisits.visit_date3 gbtblDemo.chart_number3 gbtblDemo.clinic_code2 gbtblDemo bQRY_Last_Visit_Date_InPeriodWithBPUUU LVALr N  * F d  .n&x<\cqry_ServiceReferrals_InPeriod.raw_codecqry_ServiceReferrals_InPeriod.pcpcqry_ServiceReferrals_InPeriod.namecqry_ServiceReferrals_InPeriod.chart_numbercqry_ServiceReferrals_InPeriod.clinic_code(((tblVisits.type_visit)="o") AND ((IsNumeric([weight]))=True) AND ((ActivePeriod([visit_date],[visit_date]))=True))(((ActivePeriod([visit_date],[visit_date]))=True))Sum(Switch(Len([type_visit] & "") And [type_visit]<>'p' And [type_visit]<>'l' And [type_visit]<>'o',1))(((Max(tblServices.service_date)) Between [Forms]![frmReports]![txtStartDate] And [Forms]![frmReports]![txtEndDate]))(((tblServices.raw_code)="smke ce") AND ((tblServices.status_flag)="r" Or (tblServices.status_flag)="d" Or (tblServices.status_flag)="c"))(((tblVisits.type_visit)="o") AND ((IsNumeric([height]))=True))[bp_systolic] & "/" & [bp_diastolic][QRY_Latest_BP_>Systolic/Diastolic2].visit_date[QRY_Latest_BP_>Systolic/Diastolic2].chart_number[QRY_Latest_BP_>Systolic/Diastolic2].clinic_codeQRY_LatestHeightDate.MaxOfvisit_date = tblVisits_1.visit_dateQRY_LatestHeightDate.chart_number = tblVisits_1.chart_numberQRY_LatestHeightDate.clinic_code = tblVisits_1.clinic_codetblDemo.chart_number = QRY_LatestHeightDate.chart_numbertblDemo.clinic_code = QRY_LatestHeightDate.clinic_codeQRY_LatestWeightDate.MaxOfvisit_date = tblVisits.visit_dateQRY_LatestWeightDate.chart_number = tblVisits.chart_numberQRY_LatestWeightDate.clinic_code = tblVisits.clinic_codetblDemo.chart_number = QRY_LatestWeightDate.chart_numbertblDemo.clinic_code = QRY_LatestWeightDate.clinic_codeQRY_LatestWeightDate.MaxOfvisit_date(0.453*[tblVisits].[weight]/(([tblVisits_1].[height]*0.0254)^2))(((tblVisits.bp_systolic)>[Forms]![frmReports]![criteria]) AND ((tblVisits.bp_diastolic)>[Forms]![frmReports]![criteria]))tblDemo.chart_number = tblVisits.chart_numbertblDemo.clinic_code = tblVisits.clinic_codeQRY_Last_Visit_Date_InPeriodWithBP.LastVisitDate = tblVisits.visit_date[b @ @ @ @ @ @ @ @ @ @ @ @ @ @` Z` Z` Z` Z` Z` Z` Z` Z` Z`  Z`  Z`  Z`  Z`ZaZaZ!aZ"aZ#aZ$aZ%aZ&aZ'aZ(aZ)aZ*aZ+aZ,aZ-aZ.aZ/a Z0a Z1a Z2a Z3aZ4aZ5aZ6aZ7aZ8aZ9aZ bZ:bZb\b\b\b\b\b\b\b\b\b\ b\ b\ b\ bZ;c\ c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\ c\!c\"c\#c \$c \%c\d\&d\(d\)d\*d\+d\,d\-d\.d\'e\/e\1e\2e\3e\4e\5e\6e\7e \8e \9e\0f\:f\f_f_f_f_f _f _f _f\;g_g_ g_ g_ g_ g_ g_g_g_g_g_g_g _g_g _g _g_h_h_h_h_h_h_h_h_ h _!h _"h_i_#i_%i_&i_'i_(i_)i_*i_+i_,i_-i_.i_/i_0i_1i_2i_3i_4i_5i_6i _7i _8i _9i _:i _;i _ ^  f vjjd^:ttblDemo.clinic_code = Qry_ListPatientReceiveService.clinic_codetblDemo.chart_number = Qry_ListPatientReceiveService.chart_numberQRY_ListPatientReceiveLab.address1QRY_ListPatientReceiveLab.first_nameQRY_ListPatientReceiveLab.last_nameQRY_ListPatientReceiveLab.chart_numberQRY_ListPatientReceiveLab.clinic_codeQRY_ListPatientReceiveLab.clinic_code = QRY_ListPatientNoService.clinic_codeQRY_ListPatientReceiveLab.chart_number = QRY_ListPatientNoService.chart_numberQRY_ListPatientReceiveLab.address1QRY_ListPatientReceiveLab.first_nameQRY_ListPatientReceiveLab.last_nameQRY_ListPatientReceiveLab.chart_numberQRY_ListPatientReceiveLab.clinic_code(((Qry_ListPatientReceiveService.chart_number) Is Null))tblDemo.chart_number = Qry_ListPatientReceiveService.chart_numbertblDemo.clinic_code = Qry_ListPatientReceiveService.clinic_code(((QRY_ListPatientReceiveLab.chart_number) Is Null) AND ((Activeperiod([tblDemo].[start_date],Nz([tblDemo].[end_date],Date())))=True))tblDemo.chart_number = QRY_ListPatientReceiveLab.chart_numbertblDemo.clinic_code = QRY_ListPatientReceiveLab.clinic_codecqry_Service_Referral_Completed.completedcqry_ServiceReferrals_InPeriod.referral_datecqry_ServiceReferrals_InPeriod.raw_codecqry_ServiceReferrals_InPeriod.pcpcqry_ServiceReferrals_InPeriod.namecqry_ServiceReferrals_InPeriod.chart_numbercqry_ServiceReferrals_InPeriod.clinic_code(((tlkpCrosswalk.working_code)=[Forms]![frmReports]![cmbService]))tlkpCrosswalk.raw_code = cqry_ServiceReferrals_InPeriod.raw_codecqry_ServiceReferrals_InPeriod.referral_date = cqry_Service_Referral_Completed.referral_datecqry_ServiceReferrals_InPeriod.raw_code = cqry_Service_Referral_Completed.raw_codecqry_ServiceReferrals_InPeriod.chart_number = cqry_Service_Referral_Completed.chart_numbercqry_ServiceReferrals_InPeriod.clinic_code = cqry_Service_Referral_Completed.clinic_codecqry_Service_Referral_Completed.completedcqry_ServiceReferrals_InPeriod.referral_dateD|^2c& p 8 $ r T 6  T  ^ " z@\2jtJl `6X m Gm m Gl  "QRY_ListPatientReceiveLab.phone1? gl QRY_ListPatientReceiveLab.zip< gl !QRY_ListPatientReceiveLab.state> gl  QRY_ListPatientReceiveLab.city= gl D@ ` gl H@` gl F@` gl L@` gl J@` glQRY_ListPatientReceiveLabQRY_ListPatientNoService@`sC lQRY_ListPatientReceiveLabQRY_ListPatientNoService@`sC l "QRY_ListPatientReceiveLab.phone1? glQRY_ListPatientReceiveLab.zip< gl!QRY_ListPatientReceiveLab.state> gl QRY_ListPatientReceiveLab.city= glD@` glH@` glF@` glL@` glJ@` glQRY_ListPatientNoServiceAAA lQRY_ListPatientReceiveLabCCC l Gl Gl l Gkp@` 'ktblDemoQry_ListPatientReceiveService@`eY ktblDemoQry_ListPatientReceiveService~@`eY k tblDemo.phone1- gk tblDemo.zip* gktblDemo.state, gktblDemo.city+ gktblDemo.address2/ gktblDemo.address1/ gktblDemo.first_name1 gktblDemo.last_name0 gktblDemo.clinic_code2 gktblDemo.chart_number3 gkQry_ListPatientReceiveServiceKKK ktblDemo k Gk Gk k Gj @` 'jtblDemoQRY_ListPatientReceiveLabz@`]Q jtblDemoQRY_ListPatientReceiveLabv@`]Q j tblDemo.phone1- gj tblDemo.zip* gjtblDemo.state, gjtblDemo.city+ gjtblDemo.address2/ gjtblDemo.address1/ gjtblDemo.first_name1 gjtblDemo.last_name0 gjtblDemo.clinic_code2 gjtblDemo.chart_number3 gjQRY_ListPatientReceiveLabCCC jtblDemo j Gj Gj j Gi R@` g^f @ @ @ @ @ @ @ @ @ @ @ @ @ @f\=f\>f_f_f_f_f _f _f _f\;g_g_ g_ g_ g_ g_ g_g_g_g_g_g_g _g_g _g _g_h_h_h_h_h_h_h_h_ h _!h _"h_i_#i_%i_&i_'i_(i_)i_*i_+i_,i_-i_.i_/i_0i_1i_2i_3i_4i_5i_6i _7i _8i _9i _:i _;i _l a?l  a@la(maAmaCmcmcmcmcmcmcmcmcmcmc mc m c m c mc mcm cm cm cm cm cm cm cm cm  cm  cm  cm  cm  cm cmaBncncnc nc!nc"nc#nc$nc%nc&nc'nc(nc)nc*nc+n c,n c-n c.nc/nc0nc1nc2n c3n c4n c5n c6n c7n c8n c9n c:n  c;n  coc@ocAocBocCoeoeoeoeoeoeoeoeo eo e o e oe oc?.D^d( F  + o 1 M  ^ 4  Z.r4Pu1s4y=[~` oQry_ListPatientOnMed999 oQry_ListPatientWithConditionIII o Go Go o Gn  tblMed.start_date0 gn  tlkpCrosswalk.working_code9 gn  tblDemo.phone1- gn  tblDemo.zip* gn tblDemo.state, gn tblDemo.city+ gn tblDemo.address1/ gn tblDemo.first_name1 gn tblDemo.last_name0 gn tblDemo.chart_number3 gn tblDemo.clinic_code2 gn@d 'ntlkpCrosswalktblMedP@dC7+ ntblDemotblMedT@d7+ ntblDemotblMedP@d7+ n Rx_start_datetblMed.start_dateJ++ on RxtlkpCrosswalk.working_code= on tblDemo.phone1- gn tblDemo.zip* gntblDemo.state, gntblDemo.city+ gntblDemo.address1/ gntblDemo.first_name1 gntblDemo.last_name0 gntblDemo.chart_number3 gntblDemo.clinic_code2 gntblDemo ntlkpCrosswalk+++ ntblMed n Gn Gn n Gm z@d 'm  @d gm  J@d gm  T@d gm  tblDemo.pcp* gm  tblDemo.phone1- gm  tblDemo.zip* gm tblDemo.state, gm tblDemo.city+ gm tblDemo.address1/ gm tblDemo.first_name1 gm tblDemo.last_name0 gm tblDemo.chart_number3 gm tblDemo.clinic_code2 gmtblDemoQry_ListPatientReceiveService~@"`eY mtblDemoQry_ListPatientReceiveService@!`eY m tblDemo.pcp* gm tblDemo.phone1- gm tblDemo.zip* gmtblDemo.state, gmtblDemo.city+ gmtblDemo.address1/ gmtblDemo.first_name1 gmtblDemo.last_name0 gmtblDemo.chart_number3 gmtblDemo.clinic_code2 gmQry_ListPatientReceiveServiceKKK mtblDemo m GLVALb`  l Z *T`l,bActiveClinic([tblLab]![clinic_code])ActivePeriod([tblLab]![service_date],[tblLab]![service_date])qryMaxLabandResultInPeriod2.service_date(((tblLab.status_flag)="c") AND ((tlkpCrosswalk.raw_code)=[Forms]![frmReports]![cmbLab]) AND ((Activeperiod([tblDemo].[start_date],Nz([tblDemo].[end_date],Date())))=True) AND ((qryMaxLabandResultInPeriod2.raw_code)=[Forms]![frmReports]![cmbLab]))tlkpCrosswalk.type_code = tblLab.type_codetlkpCrosswalk.raw_code = tblLab.raw_codetblDemo.chart_number = tblLab.chart_numbertblDemo.clinic_code = tblLab.clinic_codetlkpCrosswalk.type_code = tblLab.type_codetlkpCrosswalk.raw_code = tblLab.raw_codetblDemo.chart_number = qryMaxLabandResultInPeriod2.chart_numbertblDemo.clinic_code = qryMaxLabandResultInPeriod2.clinic_codeLast(qryMaxLabandResultInPeriod2.result_any)qryMaxLabandResultInPeriod2.service_dateQry_ListPatientOnMed.Rx_start_dateQry_ListPatientOnMed.chart_numberQry_ListPatientOnMed.chart_number = Qry_ListPatientWithCondition.chart_numberQry_ListPatientOnMed.clinic_code = Qry_ListPatientWithCondition.clinic_codeQry_ListPatientOnMed.Rx_start_dateQry_ListPatientOnMed.chart_number(((ActivePeriod([tblMed]![start_date],IIf(IsDate([tblMed]![end_date]),[tblMed]![end_date],[Forms]![frmReports]![txtEndDate])))=True) AND ((ActiveClinic([tblMed]![clinic_code]))=True) AND ((tlkpCrosswalk.raw_code)=[Forms]![frmReports]![cmbMed]) AND ((Activeperiod([tblDemo].[start_date],Nz([tblDemo].[end_date],Date())))=True))tlkpCrosswalk.raw_code = tblMed.raw_codetblDemo.chart_number = tblMed.chart_numbertblDemo.clinic_code = tblMed.clinic_code(((Qry_ListPatientReceiveService.chart_number) Is Null) AND ((Activeclinic([tblDemo]![clinic_code]))=True) AND ((Activeperiod([tblDemo].[start_date],Nz([tblDemo].[end_date],Date())))=True))Activeperiod([tblDemo].[start_date],Nz([tblDemo].[end_date],Date()))Activeclinic([tblDemo]![clinic_code])Qry_ListPatientReceiveService.chart_number+<@g! S )  U | 6 h >  b8e(v=\&Jf"X^"p tblDemo.state, gp tblDemo.city+ gp tblDemo.address1/ gp tblDemo.first_name1 gp tblDemo.last_name0 gp tblDemo.chart_number3 gp tblDemo.clinic_code2 gp@d 'ptlkpCrosswalktblLabT@dC7+ ptlkpCrosswalktblLabP@dC7+ ptblDemotblLabT@d7+ ptblDemotblLabP@d7+ ptlkpCrosswalktblLabT@dC7+ ptlkpCrosswalktblLabP@dC7+ ptblDemoqryMaxLabandResultInPeriod2~@daU ptblDemoqryMaxLabandResultInPeriod2z@daU p resultX@d) op P@d gp tlkpCrosswalk.working_code9 gp tblDemo.phone1- gp tblDemo.zip* gptblDemo.state, gptblDemo.city+ gptblDemo.address1/ gptblDemo.first_name1 gptblDemo.last_name0 gptblDemo.chart_number3 gptblDemo.clinic_code2 gpqryMaxLabandResultInPeriod2GGG ptblLab ptblDemo ptlkpCrosswalk+++ p Gp Gp p Go  D@ d go  Qry_ListPatientOnMed.Rx6 go  Qry_ListPatientOnMed.phone1: go Qry_ListPatientOnMed.zip7 go Qry_ListPatientOnMed.state9 go Qry_ListPatientOnMed.city8 go Qry_ListPatientOnMed.address1< go !Qry_ListPatientOnMed.first_name> go  Qry_ListPatientOnMed.last_name= go B@ d go "Qry_ListPatientOnMed.clinic_code? goQry_ListPatientOnMedQry_ListPatientWithCondition@ d}q9 oQry_ListPatientOnMedQry_ListPatientWithCondition@ d}q9 o D@ d go Qry_ListPatientOnMed.Rx6 go Qry_ListPatientOnMed.phone1: goQry_ListPatientOnMed.zip7 goQry_ListPatientOnMed.state9 goQry_ListPatientOnMed.city8 goQry_ListPatientOnMed.address1< go!Qry_ListPatientOnMed.first_name> go Qry_ListPatientOnMed.last_name= goB@d go"Qry_ListPatientOnMed.clinic_code? gbi @ @ @ @ @ @ @ @ @ @ @ @ @ @la+la,la-la.la/la0la1la2la3la4l a5la6la7l a8l a9l a:l a;l al a?l  a@la(maAmaCmcmcmcmcmcmcmcmcmcmc mc m c m c mc mcm cm cm cm cm cm cm cm cm  cm  cm  cm  cm  cm cmaBncncnc nc!nc"nc#nc$nc%nc&nc'nc(nc)nc*nc+n c,n c-n c.nc/nc0nc1nc2n c3n c4n c5n c6n c7n c8n c9n c:n  c;n  coc@ocAocBocCoeoeoeoeoeoeoeoeo eo e o e oe oe o e o eo eo eo eo eo eo eo  eo  eo  eoc?pepepepepepepepe pe!pe"pe#pe$pe%pe&pe'p e(p e)p e*p e+pe,pe-pe.pe/pe0pe1pe2pe3pe4p e5p e6p e7p e8p e9p e:p e;p gp  gp  gp  gp  gp  gp gpeqgqg qg qg qg qg qgqgqgqgqgqgqgqgq gq gq gq gq gqgqgqgqgq gq g q g!q g"q g#q g$q g%q g&q  g'q  g(q  g)q  g*qgrg+rg-rg.rg/rg0rg1rg2rg3rg4rg5rg6rg7rg8rg9rg,MAIeG) q 2 U  l ' d : ^ {;Hf,^&Sd+w+KrtblDemoqryMaxLabandResultInPeriod2~@ haU rtblDemoqryMaxLabandResultInPeriod2z@ haU r resultX@h) or last_dateP@h/## or labtlkpCrosswalk.working_code? or pcpLast(tblDemo.pcp)6 or tblDemo.phone1- gr tblDemo.zip* grtblDemo.state, grtblDemo.city+ grtblDemo.address1/ grtblDemo.first_name1 grtblDemo.last_name0 grtblDemo.chart_number3 grtblDemo.clinic_code2 grqryMaxLabandResultInPeriod2GGG rtlkpCrosswalk+++ rtblDemo r Gr Gr r Gq  L@h gq  tblDemo.phone2- gq  tblDemo.phone1- gq  tblDemo.zip* gq tblDemo.state, gq tblDemo.city+ gq tblDemo.address2/ gq tblDemo.address1/ gq tblDemo.first_name1 gq tblDemo.last_name0 gq tblDemo.chart_number3 gq tblDemo.clinic_code2 gqh@h 'qqryMaxLabandResultInPeriod2tlkpCrosswalkz@hmaG qtblDemoqryMaxLabandResultInPeriod2~@haU qtblDemoqryMaxLabandResultInPeriod2z@haU q L@h gq LastOfpcpLast(tblDemo.pcp)B## oq tblDemo.phone2- gq tblDemo.phone1- gq ZipCode tblDemo.zip8 oqtblDemo.state, gqtblDemo.city+ gqtblDemo.address2/ gqtblDemo.address1/ gqFirstNametblDemo.first_nameC## oqLastNametblDemo.last_name@!! oqtblDemo.chart_number3 gqtblDemo.clinic_code2 gqqryMaxLabandResultInPeriod2GGG qtlkpCrosswalk+++ qtblDemo q Gq Gq q Gp @h 'p  H@d gp  z@d gp  P@d gp  tlkpCrosswalk.working_code9 gp  tblDemo.phone1- gp  tblDemo.zip* gLVAL F N J x `z"*(((ActiveClinic([tblDemo].[clinic_code]))=True) AND ((CSng(IIf(IsNumeric([qryMaxLabAndResultInPeriod2].[result_any]),[qryMaxLabAndResultInPeriod2].[result_any],99999)))=CSng([Forms]![frmReports]![txtLabResultValue])) AND ((tlkpCrosswalk.raw_code)=[Forms]![frmReports]![cmbLab]) AND ((Activeperiod([tblDemo].[start_date],Nz([tblDemo].[end_date],Date())))=True))qryMaxLabandResultInPeriod2.raw_code = tlkpCrosswalk.raw_codetblDemo.chart_number = qryMaxLabandResultInPeriod2.chart_numbertblDemo.clinic_code = qryMaxLabandResultInPeriod2.clinic_codeLast(qryMaxLabandResultInPeriod2.result_any)qryMaxLabandResultInPeriod2.service_dateqryMaxLabandResultInPeriod2.raw_codeqryMaxLabandResultInPeriod2.status_flagqryMaxLabandResultInPeriod2.service_date(((ActiveClinic([tblDemo].[clinic_code]))=True) AND ((CSng(IIf(IsNumeric([qryMaxLabAndResultInPeriod2].[result_any]),[qryMaxLabAndResultInPeriod2].[result_any],99999)))<CSng([Forms]![frmReports]![txtLabResultValue])) AND ((tlkpCrosswalk.raw_code)=[Forms]![frmReports]![cmbLab]) AND ((Activeperiod([tblDemo].[start_date],Nz([tblDemo].[end_date],Date())))=True))qryMaxLabandResultInPeriod2.raw_code = tlkpCrosswalk.raw_codetblDemo.chart_number = qryMaxLabandResultInPeriod2.chart_numbertblDemo.clinic_code = qryMaxLabandResultInPeriod2.clinic_codeLast(qryMaxLabandResultInPeriod2.result_any)qryMaxLabandResultInPeriod2.service_dateqryMaxLabandResultInPeriod2.result_any(((ActiveClinic([tblDemo].[clinic_code]))=True) AND ((Nz([result_any],""))=([Forms]![frmReports]![txtLabResultValue])) AND ((tlkpCrosswalk.raw_code)=[Forms]![frmReports]![cmbLab]))qryMaxLabandResultInPeriod2.raw_code = tlkpCrosswalk.raw_codetblDemo.chart_number = qryMaxLabandResultInPeriod2.chart_numbertblDemo.clinic_code = qryMaxLabandResultInPeriod2.clinic_codeqryMaxLabandResultInPeriod2.result_any(((ActivePeriod([tblLab]![service_date],[tblLab]![service_date]))=True) AND ((ActiveClinic([tblLab]![clinic_code]))=True))fm @ @ @ @ @ @ @ @ @ @ @ @ @ @o e o eo eo eo eo eo eo eo  eo  eo  eoc?pepepepepepepepe pe!pe"pe#pe$pe%pe&pe'p e(p e)p e*p e+pe,pe-pe.pe/pe0pe1pe2pe3pe4p e5p e6p e7p e8p e9p e:p e;p gp  gp  gp  gp  gp  gp gpeqgqg qg qg qg qg qgqgqgqgqgqgqgqgq gq gq gq gq gqgqgqgqgq gq g q g!q g"q g#q g$q g%q g&q  g'q  g(q  g)q  g*qgrg+rg-rg.rg/rg0rg1rg2rg3rg4rg5rg6rg7rg8rg9r g:r g;r grg?rg@rjrjr jr jr jr jr jr jr jr j r  j r  j r  j r  j rg,sjsjsjsjsjsjsjsjsjsjsjsjsjsjs js js js j s j!sj"sj#sj$sj%s j&s j's j(s j)s j*s j+s j,s j-s  j.s  j/s  j0s  j1sjtj2tj4tj5tj6tj7tj8tj9tj:tj;tjtj?tj@t jAt jBt jCt lt ltltltltlt lt lt lt l t l t l t l t l t  lt  lt  lt  ltj3ulululululululululululululD\b& ~ D n P 2  z ; D b  }'~AVgI+ 7{=Yt H@k gt pcpLast(tblDemo.pcp)6 ot tblDemo.phone1- gt tblDemo.zip* gttblDemo.state, gttblDemo.city+ gttblDemo.address1/ gttblDemo.first_name1 gttblDemo.last_name0 gttblDemo.chart_number3 gttblDemo.clinic_code2 gtqryMaxLabandResultInPeriod2GGG ttlkpCrosswalk+++ ttblDemo t Gt Gt t Gs  N@k gs  P@k gs  H@k gs  tblDemo.phone1- gs  tblDemo.zip* gs tblDemo.state, gs tblDemo.city+ gs tblDemo.address1/ gs tblDemo.first_name1 gs tblDemo.last_name0 gs tblDemo.chart_number3 gs tblDemo.clinic_code2 gs@h 'sqryMaxLabandResultInPeriod2tlkpCrosswalkz@hmaG stblDemoqryMaxLabandResultInPeriod2~@haU stblDemoqryMaxLabandResultInPeriod2z@haU s resultX@h) os last_dateP@h/## os labH@h# os pcpLast(tblDemo.pcp)6 os tblDemo.phone1- gs tblDemo.zip* gstblDemo.state, gstblDemo.city+ gstblDemo.address1/ gstblDemo.first_name1 gstblDemo.last_name0 gstblDemo.chart_number3 gstblDemo.clinic_code2 gsqryMaxLabandResultInPeriod2GGG stlkpCrosswalk+++ stblDemo s Gs Gs s Gr  N@h gr  P@ h gr  tlkpCrosswalk.working_code9 gr  tblDemo.phone1- gr  tblDemo.zip* gr tblDemo.state, gr tblDemo.city+ gr tblDemo.address1/ gr tblDemo.first_name1 gr tblDemo.last_name0 gr tblDemo.chart_number3 gr tblDemo.clinic_code2 gr@ h 'rqryMaxLabandResultInPeriod2tlkpCrosswalkz@ hmaG LVAL"h* 2 V  Z^v,FvJNQry_Last_Visit_xx_days_AndUnder.FirstNameQry_Last_Visit_xx_days_AndUnder.LastNameQry_Last_Visit_xx_days_AndUnder.LastVisitDateQry_Last_Visit_xx_days_AndUnder.chart_numberQry_Last_Visit_xx_days_AndUnder.clinic_code(((tlkpCrosswalk.working_code)=[Forms]![frmReports]![cmblab]) AND ((tblLab.result)=[Forms]![frmReports]![txtLabResultvalue]))Qry_Last_Visit_xx_days_AndUnder.chart_number = tblLab.chart_numberQry_Last_Visit_xx_days_AndUnder.clinic_code = tblLab.clinic_codetlkpCrosswalk.raw_code = tblLab.raw_codeQry_Last_Visit_xx_days_AndUnder.Phone2Qry_Last_Visit_xx_days_AndUnder.Phone1Qry_Last_Visit_xx_days_AndUnder.ZipCodeQry_Last_Visit_xx_days_AndUnder.StateQry_Last_Visit_xx_days_AndUnder.CityQry_Last_Visit_xx_days_AndUnder.Address2Qry_Last_Visit_xx_days_AndUnder.Address1Qry_Last_Visit_xx_days_AndUnder.FirstNameQry_Last_Visit_xx_days_AndUnder.LastNameQry_Last_Visit_xx_days_AndUnder.LastVisitDateQry_Last_Visit_xx_days_AndUnder.chart_numberQry_Last_Visit_xx_days_AndUnder.clinic_codeqryMaxLabandResultInPeriod2.status_flagqryMaxLabandResultInPeriod2.service_dateqryMaxLabandResultInPeriod2.raw_code(((ActiveClinic([tblDemo].[clinic_code]))=True) AND ((CSng(IIf(IsNumeric([qryMaxLabAndResultInPeriod2].[result_any]),[qryMaxLabAndResultInPeriod2].[result_any],0)))>=CSng([Forms]![frmReports]![txtLabResultValue])) AND ((tlkpCrosswalk.raw_code)=[Forms]![frmReports]![cmbLab]) AND ((Activeperiod([tblDemo].[start_date],Nz([tblDemo].[end_date],Date())))=True))qryMaxLabandResultInPeriod2.raw_code = tlkpCrosswalk.raw_codetblDemo.chart_number = qryMaxLabandResultInPeriod2.chart_numbertblDemo.clinic_code = qryMaxLabandResultInPeriod2.clinic_codeLast(qryMaxLabandResultInPeriod2.result_any)qryMaxLabandResultInPeriod2.service_dateqryMaxLabandResultInPeriod2.raw_codeqryMaxLabandResultInPeriod2.status_flagqryMaxLabandResultInPeriod2.service_dateqryMaxLabandResultInPeriod2.raw_codenJ2J  d & y B  l N 0  ~ T * X .  \ $|R(V,.xN$|R(vQry_Last_Visit_xx_days_AndUndertblLab@ng[O vtlkpCrosswalktblLabP@nC7+ v L@n gv L@n gv N@n gv J@n gvH@n gvP@ n gvP@ n gvR@ n gvP@ n gvZ@ n gvX@n gvV@n gvtblLab vtlkpCrosswalk+++ vQry_Last_Visit_xx_days_AndUnderOOO v Gv Gv v Gu  L@n gu  L@n gu  N@n gu  J@n gu H@n gu P@n gu P@n gu R@!k gu P@ k gu Z@k gu X@k gu V@k gu@k 'uQry_Last_Visit_xx_days_AndUndertblLab@kg[O uQry_Last_Visit_xx_days_AndUndertblLab@kg[O utlkpCrosswalktblLabP@kC7+ u L@k gu L@k gu N@k gu J@k guH@k guP@k guP@k guR@k guP@k guZ@k guX@k guV@ k gutblLab utlkpCrosswalk+++ uQry_Last_Visit_xx_days_AndUnderOOO u Gu Gu u Gt  N@ k gt  P@ k gt  H@ k gt  tblDemo.phone1- gt  tblDemo.zip* gt tblDemo.state, gt tblDemo.city+ gt tblDemo.address1/ gt tblDemo.first_name1 gt tblDemo.last_name0 gt tblDemo.chart_number3 gt tblDemo.clinic_code2 gt@ k 'tqryMaxLabandResultInPeriod2tlkpCrosswalkz@kmaG ttblDemoqryMaxLabandResultInPeriod2~@kaU ttblDemoqryMaxLabandResultInPeriod2z@kaU t resultX@k) ot P@k gip @ @ @ @ @ @ @ @ @ @ @ @ @ @r g;r grg?rg@rjrjr jr jr jr jr jr jr jr j r  j r  j r  j r  j rg,sjsjsjsjsjsjsjsjsjsjsjsjsjsjs js js js j s j!sj"sj#sj$sj%s j&s j's j(s j)s j*s j+s j,s j-s  j.s  j/s  j0s  j1sjtj2tj4tj5tj6tj7tj8tj9tj:tj;tjtj?tj@t jAt jBt jCt lt ltltltltlt lt lt lt l t l t l t l t l t  lt  lt  lt  ltj3ulululululululululululululul u l!u l"u l#u l$ul%ul&ul'ul(u l)u l*u l+u l,u l-u l.u l/u l0u  l1u  l2u  l3u  l4ulvl5vl7vl8vl9vl:vl;vlvl?vl@vlAvlBvlCv lDv lEv lFv lGvlHvlIvovov ov ov ov ov ov ov ov o v  o v  o v  o v  o vl6wowowowowowowowowowowowowowow ow ow ow o wo!wo"wo#wo$w o%w o&w o'w o(w o)w o*w o+w o,w  o-w  o.w  o/woxo0xo2xo3xo4xo5xo6xo7xo8xo9xo:xo;xoxo1LVAL'`4 : > V r & V (~,D`l (((ActiveClinic([tblDemo].[clinic_code]))=True) AND ((Activeperiod([qryLabs].[service_date],[qryLabs].[service_date]))=True) AND ((qryLabs.result_number)>=CSng([Forms]![frmReports]![txtLabResultValue])) AND ((tlkpCrosswalk.raw_code)=[Forms]![frmReports]![cmbLab]))qryLabs.raw_code = tlkpCrosswalk.raw_codetblDemo.chart_number = qryLabs.chart_numbertblDemo.clinic_code = qryLabs.clinic_codeQry_Last_Visit_xx_days_AndUnder.Phone2Qry_Last_Visit_xx_days_AndUnder.Phone1Qry_Last_Visit_xx_days_AndUnder.ZipCodeQry_Last_Visit_xx_days_AndUnder.StateQry_Last_Visit_xx_days_AndUnder.CityQry_Last_Visit_xx_days_AndUnder.Address2Qry_Last_Visit_xx_days_AndUnder.Address1Qry_Last_Visit_xx_days_AndUnder.FirstNameQry_Last_Visit_xx_days_AndUnder.LastNameQry_Last_Visit_xx_days_AndUnder.LastVisitDateQry_Last_Visit_xx_days_AndUnder.chart_numberQry_Last_Visit_xx_days_AndUnder.clinic_code(((tlkpCrosswalk.working_code)=[Forms]![frmReports]![cmblab]) AND ((tblLab.result)<=[Forms]![frmReports]![txtLabResultvalue]))Qry_Last_Visit_xx_days_AndUnder.chart_number = tblLab.chart_numberQry_Last_Visit_xx_days_AndUnder.clinic_code = tblLab.clinic_codetlkpCrosswalk.raw_code = tblLab.raw_codeQry_Last_Visit_xx_days_AndUnder.Phone2Qry_Last_Visit_xx_days_AndUnder.Phone1Qry_Last_Visit_xx_days_AndUnder.ZipCodeQry_Last_Visit_xx_days_AndUnder.StateQry_Last_Visit_xx_days_AndUnder.CityQry_Last_Visit_xx_days_AndUnder.Address2Qry_Last_Visit_xx_days_AndUnder.Address1Qry_Last_Visit_xx_days_AndUnder.FirstNameQry_Last_Visit_xx_days_AndUnder.LastNameQry_Last_Visit_xx_days_AndUnder.LastVisitDateQry_Last_Visit_xx_days_AndUnder.chart_numberQry_Last_Visit_xx_days_AndUnder.clinic_codeQry_Last_Visit_xx_days_AndUnder.Phone2Qry_Last_Visit_xx_days_AndUnder.Phone1Qry_Last_Visit_xx_days_AndUnder.ZipCodeQry_Last_Visit_xx_days_AndUnder.StateQry_Last_Visit_xx_days_AndUnder.CityQry_Last_Visit_xx_days_AndUnder.Address2Qry_Last_Visit_xx_days_AndUnder.Address1Fb8f< j L .  b # F ]  : \2v8OhJ,U^&|6VxtlkpCrosswalktblServices^@qMA+ xtlkpCrosswalktblServicesZ@qMA+ xtblDemotblServices^@qA5 xtblDemotblServicesZ@qA5 x tblServices.service_date7 gx tlkpCrosswalk.working_code9 gx tblDemo.phone1- gx tblDemo.zip* gxtblDemo.state, gxtblDemo.city+ gxtblDemo.address1/ gxtblDemo.first_name1 gxtblDemo.last_name0 gxtblDemo.chart_number3 gxtblDemo.clinic_code2 gxtblServices''' xtblDemo xtlkpCrosswalk+++ x Gx Gx x Gw  tblDemo.phone2- gw  tblDemo.phone1- gw  tblDemo.zip* gw tblDemo.state, gw tblDemo.city+ gw tblDemo.address2/ gw tblDemo.address1/ gw tblDemo.first_name1 gw tblDemo.last_name0 gw tblDemo.chart_number3 gw tblDemo.clinic_code2 gw@&n 'wqryLabstlkpCrosswalkR@%nE9 wtblDemoqryLabsV@$n9- wtblDemoqryLabsR@#n9- w MaxOfresult_numberMax(qryLabs.result_number)]55 ow tblDemo.phone2- gw tblDemo.phone1- gw ZipCode tblDemo.zip8 owtblDemo.state, gwtblDemo.city+ gwtblDemo.address2/ gwtblDemo.address1/ gwFirstNametblDemo.first_nameC## owLastNametblDemo.last_name@!! owtblDemo.chart_number3 gwtblDemo.clinic_code2 gwtlkpCrosswalk+++ wqryLabs wtblDemo w Gw Gw w Gv  L@"n gv  L@!n gv  N@ n gv  J@n gv H@n gv P@n gv P@n gv R@n gv P@n gv Z@n gv X@n gv V@n gv@n 'vQry_Last_Visit_xx_days_AndUndertblLab@ng[O mu @ @ @ @ @ @ @ @ @ @ @ @ @ @ul u l!u l"u l#u l$ul%ul&ul'ul(u l)u l*u l+u l,u l-u l.u l/u l0u  l1u  l2u  l3u  l4ulvl5vl7vl8vl9vl:vl;vlvl?vl@vlAvlBvlCv lDv lEv lFv lGvlHvlIvovov ov ov ov ov ov ov ov o v  o v  o v  o v  o vl6wowowowowowowowowowowowowowow ow ow ow o wo!wo"wo#wo$w o%w o&w o'w o(w o)w o*w o+w o,w  o-w  o.w  o/woxo0xo2xo3xo4xo5xo6xo7xo8xo9xo:xo;xox o?x o@x oAxoBxoCxoDxoExrx rx rx rx rx rx rx rx rx  r x  r x  r x  r x  r x rxo1yryryryryryryryryryryryryryryry ry r y r!yr"yr#yr$yr%y r&y r'y r(y r)y r*y r+y r,y r-y  r.y  r/y  r0yrzr1zr3zr4zr5zr6zr7zr8zr9zr:zr;zrz r?z r@z rAz rBzszsz sz sz sz sz sz sz sz s z  s z  s z  s z  s zr2{s{s{s{s{s{s{s{s{s{s{s{s{s{ s{s{s{ s{sLVALH @ . ~ ( x.Tx4X4FQry_ListPatientWithCondition.last_nameQry_ListPatientWithCondition.chart_numberQry_ListPatientWithCondition.clinic_codeQRY_ListPatientReceiveLab.service_dateQRY_ListPatientReceiveLab.working_codeQRY_ListPatientReceiveLab.address1QRY_ListPatientReceiveLab.first_nameQRY_ListPatientReceiveLab.last_nameQRY_ListPatientReceiveLab.chart_numberQRY_ListPatientReceiveLab.clinic_codeQRY_ListPatientReceiveLab.chart_number = Qry_ListPatientWithCondition.chart_numberQRY_ListPatientReceiveLab.clinic_code = Qry_ListPatientWithCondition.clinic_codeQRY_ListPatientReceiveLab.service_dateQRY_ListPatientReceiveLab.working_codeQRY_ListPatientReceiveLab.address1QRY_ListPatientReceiveLab.first_nameQRY_ListPatientReceiveLab.last_nameQRY_ListPatientReceiveLab.chart_numberQRY_ListPatientReceiveLab.clinic_code(((ActivePeriod([tblHealth]![start_date],IIf(IsDate([tblHealth]![end_date]),[tblHealth]![end_date],[Forms]![frmReports]![txtEndDate])))=True) AND ((ActiveClinic([tblHealth]![clinic_code]))=True) AND ((tlkpCrosswalk.raw_code)=[Forms]![frmReports]![cmbCondition]) AND ((Activeperiod([tblDemo].[start_date],Nz([tblDemo].[end_date],Date())))=True))tlkpCrosswalk.raw_code = tblHealth.raw_codetblDemo.chart_number = tblHealth.chart_numbertblDemo.clinic_code = tblHealth.clinic_code(((ActivePeriod([tblServices]![service_date],[tblServices]![service_date]))=True) AND ((ActiveClinic([tblServices]![clinic_code]))=True))ActiveClinic([tblServices]![clinic_code])ActivePeriod([tblServices]![service_date],[tblServices]![service_date])(((tblServices.status_flag)="c") AND ((tlkpCrosswalk.working_code)=[Forms]![frmReports]![cmbService]) AND ((Activeperiod([tblDemo].[start_date],Nz([tblDemo].[end_date],Date())))=True))tlkpCrosswalk.type_code = tblServices.type_codetlkpCrosswalk.raw_code = tblServices.raw_codetblDemo.chart_number = tblServices.chart_numbertblDemo.clinic_code = tblServices.clinic_codeCWh/ x 4 z \ v F  L  h . @v7|@^~`f<S jz "QRY_ListPatientReceiveLab.result? gz L@q gz L@q gz "QRY_ListPatientReceiveLab.phone1? gzQRY_ListPatientReceiveLab.zip< gz!QRY_ListPatientReceiveLab.state> gz QRY_ListPatientReceiveLab.city= gzD@q gzH@q gzF@q gzL@ q gzJ@ q gzQry_ListPatientWithConditionIII zQRY_ListPatientReceiveLabCCC z Gz Gz z Gy  tblHealth.start_date3 gy  tlkpCrosswalk.working_code9 gy  tblDemo.phone1- gy  tblDemo.zip* gy tblDemo.state, gy tblDemo.city+ gy tblDemo.address1/ gy tblDemo.first_name1 gy tblDemo.last_name0 gy tblDemo.chart_number3 gy tblDemo.clinic_code2 gy@ q 'ytlkpCrosswalktblHealthV@ qI=+ ytblDemotblHealthZ@ q=1 ytblDemotblHealthV@q=1 y Dx_start_datetblHealth.start_dateM++ oy DxtlkpCrosswalk.working_code= oy tblDemo.phone1- gy tblDemo.zip* gytblDemo.state, gytblDemo.city+ gytblDemo.address1/ gytblDemo.first_name1 gytblDemo.last_name0 gytblDemo.chart_number3 gytblDemo.clinic_code2 gytblHealth### ytblDemo ytlkpCrosswalk+++ y Gy [Forms]![frmReports]![cmbCondition]WWW Oy Gy y Gx @q 'x  R@q gx  @q gx  tblServices.service_date7 gx  tlkpCrosswalk.working_code9 gx  tblDemo.phone1- gx  tblDemo.zip* gx tblDemo.state, gx tblDemo.city+ gx tblDemo.address1/ gx tblDemo.first_name1 gx tblDemo.last_name0 gx tblDemo.chart_number3 gx tblDemo.clinic_code2 gxp@q 'ADlZ0 q ( <  n ( V ,   xN$|Rl-_ uK hJ,rF}tblDemo.clinic_code2 g}tblHealth### }tblDemo }tlkpCrosswalk+++ } G} [Forms]![frmReports]![cmbCondition]WWW O} G} } G| tlkpCrosswalk.working_code9 g| tblDemo.chart_number3 g| tblDemo.clinic_code2 g|0@t '|tblDemotblHealthZ@t=1 |tblDemotblHealthV@t=1 |tlkpCrosswalktblHealthV@tI=+ |tlkpCrosswalk.working_code9 g|type_depression^@t;// o|tblDemo.chart_number3 g|tblDemo.clinic_code2 g|tblHealth### |tblDemo |tlkpCrosswalk+++ | G| [Forms]![frmReports]![cmbCondition]WWW O| G| | G{  F@t g{ "Qry_ListPatientWithCondition.zip? g{ D@ t g{ B@ t g{ J@ t g{ N@ t g{ L@ t g{ R@t g{ P@t g{Qry_ListPatientWithConditionqry_ListPatientNoLab@t}qI {Qry_ListPatientWithConditionqry_ListPatientNoLab@t}qI { F@t g{"Qry_ListPatientWithCondition.zip? g{D@t g{B@t g{J@t g{N@t g{L@q g{R@q g{P@q g{qry_ListPatientNoLab999 {Qry_ListPatientWithConditionIII { G{ G{ { Gz  "QRY_ListPatientReceiveLab.result? gz  L@q gz  L@q gz  "QRY_ListPatientReceiveLab.phone1? gz QRY_ListPatientReceiveLab.zip< gz !QRY_ListPatientReceiveLab.state> gz  QRY_ListPatientReceiveLab.city= gz D@q gz H@q gz F@q gz L@q gz J@q gzQRY_ListPatientReceiveLabQry_ListPatientWithCondition@q{C zQRY_ListPatientReceiveLabQry_ListPatientWithCondition@q{C LVALh&l  ~ 0 `  f  8(((ActivePeriod([tblHealth]![start_date],IIf(IsDate([tblHealth]![end_date]),[tblHealth]![end_date],[Forms]![frmReports]![txtEndDate])))=True) AND ((ActiveClinic([tblHealth]![clinic_code]))=True) AND ((tlkpCrosswalk.raw_code)="DM-1" Or (tlkpCrosswalk.raw_code)="DM-2") AND ((Activeperiod([tblDemo].[start_date],Nz([tblDemo].[end_date],Date())))=True))tlkpCrosswalk.raw_code = tblHealth.raw_codetblDemo.chart_number = tblHealth.chart_numbertblDemo.clinic_code = tblHealth.clinic_codeSwitch([tblHealth].[raw_code]="DM-1","Type 1",[tblHealth].[raw_code]="DM-2","Type 2",[tblHealth].[raw_code]="DM-G","Type G")(((ActivePeriod([tblHealth]![start_date],IIf(IsDate([tblHealth]![end_date]),[tblHealth]![end_date],[Forms]![frmReports]![txtEndDate])))=True) AND ((ActiveClinic([tblHealth]![clinic_code]))=True) AND ((tlkpCrosswalk.raw_code)="Major Depresn" Or (tlkpCrosswalk.raw_code)="Minor Depresn" Or (tlkpCrosswalk.raw_code)="Dysthymia") AND ((Activeperiod([tblDemo].[start_date],Nz([tblDemo].[end_date],Date())))=True))tblDemo.chart_number = tblHealth.chart_numbertblDemo.clinic_code = tblHealth.clinic_codetlkpCrosswalk.raw_code = tblHealth.raw_codeMin(Switch([tblHealth].[raw_code]="Major Depresn","Major Depression",[tblHealth].[raw_code]="Minor Depresn","Minor Depression",[tblHealth].[raw_code]="Dysthymia","Dysthymia"))Qry_ListPatientWithCondition.phone1Qry_ListPatientWithCondition.stateQry_ListPatientWithCondition.cityQry_ListPatientWithCondition.address1Qry_ListPatientWithCondition.first_nameQry_ListPatientWithCondition.last_nameQry_ListPatientWithCondition.chart_numberQry_ListPatientWithCondition.clinic_codeQry_ListPatientWithCondition.clinic_code = qry_ListPatientNoLab.clinic_codeQry_ListPatientWithCondition.chart_number = qry_ListPatientNoLab.chart_numberQry_ListPatientWithCondition.phone1Qry_ListPatientWithCondition.stateQry_ListPatientWithCondition.cityQry_ListPatientWithCondition.address1Qry_ListPatientWithCondition.first_namep{ @ @ @ @ @ @ @ @ @ @ @ @ @ @x o@x oAxoBxoCxoDxoExrx rx rx rx rx rx rx rx rx  r x  r x  r x  r x  r x rxo1yryryryryryryryryryryryryryryry ry r y r!yr"yr#yr$yr%y r&y r'y r(y r)y r*y r+y r,y r-y  r.y  r/y  r0yrzr1zr3zr4zr5zr6zr7zr8zr9zr:zr;zrz r?z r@z rAz rBzszsz sz sz sz sz sz sz sz s z  s z  s z  s z  s zr2{s{s{s{s{s{s{s{s{s{s{s{s{s{ s{s{s{ s{ s { s!{ s"{ s#{ s${ s%{ s&{  s'{s|s(|s*|s+|s,|s-|s.|s/|s0|s1|s2|s3|s4|s5|s6|s7| s8| s9| s:|s)}s;}s=}s>}s?}s@}sA}sB}sC}v}v}v}v}v}v}v} v} v} v } v }s<~v ~v ~v~v~v~v~v~v~v~v~v~v~v~ v~ v~ v~v~v~ v~ v~ v ~ v!~ v"~ v#~ v$~ v%~  v&~  v'~  v(~v v)v+v,v-v.v/v0v1v2v3v4v5v6 v7 v8 v9v:v; v< v= v> v? v@ vA z z  z  zv*B|6L" y 3  k  S ) j  { c9g=y#w=Y!1kA L@!w g L@ w g P@w g N@w g T@w g R@w gQry_ListPatientReceiveServiceQry_ListPatientWithCondition@wK Qry_ListPatientReceiveServiceQry_ListPatientWithCondition@wK  H@w g H@w g ZipCodeB@w+ oF@w gD@w gL@w gL@w gFirstNameP@w/## oLastNameN@w-!! oT@w gR@w gQry_ListPatientReceiveServiceKKK Qry_ListPatientWithConditionIII  G G  G~  "QRY_ListPatientReceiveLab.phone2? g~  "QRY_ListPatientReceiveLab.phone1? g~  QRY_ListPatientReceiveLab.zip< g~ !QRY_ListPatientReceiveLab.state> g~  QRY_ListPatientReceiveLab.city= g~ D@w g~ D@ w g~ H@ w g~ F@ w g~ L@ w g~ J@ w g~QRY_ListPatientReceiveLabqry_ListPatientNoService@wsC ~QRY_ListPatientReceiveLabqry_ListPatientNoService@wsC ~ "QRY_ListPatientReceiveLab.phone2? g~ "QRY_ListPatientReceiveLab.phone1? g~ ZipCodeQRY_ListPatientReceiveLab.zipJ o~!QRY_ListPatientReceiveLab.state> g~ QRY_ListPatientReceiveLab.city= g~D@w g~D@w g~FirstNameH@w/## o~LastNameF@w-!! o~L@w g~J@w g~qry_ListPatientNoServiceAAA ~QRY_ListPatientReceiveLabCCC ~ G~ G~ ~ G} tlkpCrosswalk.working_code9 g} @w g} tblDemo.chart_number3 g} tblDemo.clinic_code2 g}@t '}tlkpCrosswalktblHealthV@tI=+ }tblDemotblHealthZ@t=1 }tblDemotblHealthV@t=1 }tlkpCrosswalk.working_code9 g}type_diabetes@t7++ o}tblDemo.chart_number3 gLVAL,r, \ ( L  | * 8 \DJ`Hn"PQRY_ListPatientReceiveLab.address1QRY_ListPatientReceiveLab.first_nameQRY_ListPatientReceiveLab.last_nameQRY_ListPatientReceiveLab.chart_numberQRY_ListPatientReceiveLab.clinic_codeQry_ListPatientReceiveService.phone2Qry_ListPatientReceiveService.phone1Qry_ListPatientReceiveService.zipQry_ListPatientReceiveService.stateQry_ListPatientReceiveService.cityQry_ListPatientReceiveService.address2Qry_ListPatientReceiveService.address1Qry_ListPatientReceiveService.first_nameQry_ListPatientReceiveService.last_nameQry_ListPatientReceiveService.chart_numberQry_ListPatientReceiveService.clinic_codeQry_ListPatientReceiveService.chart_number = Qry_ListPatientWithCondition.chart_numberQry_ListPatientReceiveService.clinic_code = Qry_ListPatientWithCondition.clinic_codeQry_ListPatientReceiveService.phone2Qry_ListPatientReceiveService.phone1Qry_ListPatientReceiveService.zipQry_ListPatientReceiveService.stateQry_ListPatientReceiveService.cityQry_ListPatientReceiveService.address2Qry_ListPatientReceiveService.address1Qry_ListPatientReceiveService.first_nameQry_ListPatientReceiveService.last_nameQry_ListPatientReceiveService.chart_numberQry_ListPatientReceiveService.clinic_codeQRY_ListPatientReceiveLab.address2QRY_ListPatientReceiveLab.address1QRY_ListPatientReceiveLab.first_nameQRY_ListPatientReceiveLab.last_nameQRY_ListPatientReceiveLab.chart_numberQRY_ListPatientReceiveLab.clinic_codeQRY_ListPatientReceiveLab.chart_number = qry_ListPatientNoService.clinic_codeQRY_ListPatientReceiveLab.clinic_code = qry_ListPatientNoService.chart_numberQRY_ListPatientReceiveLab.address2QRY_ListPatientReceiveLab.address1QRY_ListPatientReceiveLab.first_nameQRY_ListPatientReceiveLab.last_nameQRY_ListPatientReceiveLab.chart_numberQRY_ListPatientReceiveLab.clinic_codeSwitch([tblHealth].[raw_code]="DM-1","Type 1",[tblHealth].[raw_code]="DM-2","Type 2",[tblHealth].[raw_code]="DM-G","Type G")x%ieO{ } { K $ B LGZV'D?cm]@`ue~@`ue~@qryMaxServiceDateAtEndOfPeriod\\\\\\\\\\\ &¡٤@¡٤@qryMaxPapLastYear_Inappropriate4΅@>lll```````^ @¡٤@¡٤@qryMaxMedDateInPeriod4΄@>XXXLLLLLLLJ @L٤@L٤@qryMaxMammogramLast_2Years_Inappropriate4Α@>~~~rrrrrrrp @x٤@x٤@qryMaxMammogramLast_2Years4@:bbbVVVVVVVT @x٤@x٤@qryMaxLabDateInPeriod24Μ@>ZZZNNNNNNNL @٤@٤@qryMaxLabDateInPeriod4Z@>XXXLLLLLLLJ @٤@٤@qryMaxLabDate24'@>JJJ>>>>>>>< @k٤@k٤@qryMaxLabDate4@:HHH<<<<<<<: @&C5٤@C5٤@qryMaxLabandResultInPeriod4@>bbbVVVVVVVT @C5٤@C5٤@qryMaxHealthDateInPeriod4@ 6^^^RRRRRRRP @p٤@p٤@qryLabs24ο@<>>>22222220 @p٤@p٤@qryLabs4@=<<<0000000. @٤@٤@qryDiabetesLabsInPeriod4Ω@=\\\PPPPPPPN @٤@٤@qryAge_65_AndOverWith_Pneumo_Vax4@ 6nnnbbbbbbb` @٤@٤@QRY_SummaryDiabetes2_PCP4B@=^^^RRRRRRRP @&gi٤@;ޕ٤@QRY_SummaryDiabetes14w @<VVVJJJJJJJH @2٤@gi٤@QRY_SummaryDepression2_PCP4@;bbbVVVVVVVT @2٤@2٤@QRY_SummaryDepression24@:ZZZNNNNNNNL @㽑٤@㽑٤@QRY_SummaryDepression14@:ZZZNNNNNNNL @3٤@㽑٤@QRY_SummaryAPHS24Y@:NNNBBBBBBB@ @3٤@3٤@QRY_SummaryAPHS14@:NNNBBBBBBB@ @_٤@_٤@QRY_SubstAbuseInPeriod4'@ 6ZZZNNNNNNNL @&_٤@_٤@QRY_SmokersLastEval4'@6TTTHHHHHHHF @ۍ٤@ۍ٤@QRY_SmokersInPeriod4@6TTTHHHHHHHF @ۍ٤@ۍ٤@qry_PHQ-CSD_1st_Followup_Visit_Date4Ψ@6ttthhhhhhhf @f٤@ۍ٤@qry_PHQ-CSD_1st_Followup_PHQ_Date4Τ@6pppdddddddb @f٤@f٤@qry_PHQ_Min_Max_DateInPeriod4@6fffZZZZZZZX @f٤@f٤@qry_PHQ_Index_Date4@6RRRFFFFFFFD @*0٤@*0٤@QRY_PHQ_FollowupAfterIndex4'@6bbbVVVVVVVT @*0٤@*0٤@qry_PHQ_Date_Result4'@6TTTHHHHHHHF @@ @Qry_NextVisitDate4C@6|@5\PPDDDDDDDB @&W٤@W٤@QRY_ListPatientWithServiceAndCondition4@ 3zzznnnnnnnl @S@ @ @  hJMmYqQkQiqYMQk^JmQkm<hJMmYqQkQiqYMQk^JmQkm>hJMmYqQqYkYm^JmQkm+YbfQiYdOhJMmYqQqYkYmk hMWdkQbOu!hiv+QuQiMYkQdqQi   6 r.[jL Ty9KZqry_PHQ_Min_Max_DateInPeriodtblServices@|k_I tblDemoqry_PHQ_Min_Max_DateInPeriod@ |cW tblDemoqry_PHQ_Min_Max_DateInPeriod|@ |cW tblDemoqry_PHQ_Index_Datel@ |OC tblDemoqry_PHQ_Index_Dateh@ |OC CSD_PHQtblServices_2.resultA oqry_PHQ_Index_Date.CSD_Date: gMax_PHQtblServices_1.resultA oMin_PHQtblServices.result? oR@ | gR@| gtblDemo.chart_number3 gtblDemo.clinic_code2 gtblServicestblServices_2AA' tblServicestblServices_1AA' tblServices''' qry_PHQ_Min_Max_DateInPeriodIII tblDemo qry_PHQ_Index_Date555  G G  G "QRY_LatestVisitDate.chart_number? g !QRY_LatestVisitDate.clinic_code> gNextVisit@|/## o"QRY_LatestVisitDate.chart_number? g!QRY_LatestVisitDate.clinic_code> gQRY_LatestVisitDate777  G G  G  "QRY_ListPatientReceiveLab.phone1? g QRY_ListPatientReceiveLab.zip< g !QRY_ListPatientReceiveLab.state> g  QRY_ListPatientReceiveLab.city= g D@| g H@| g F@| g L@| g J@| gQRY_ListPatientReceiveLabQry_ListPatientReceiveService@|}C QRY_ListPatientReceiveLabQry_ListPatientReceiveService@|}C  "QRY_ListPatientReceiveLab.phone1? gQRY_ListPatientReceiveLab.zip< g!QRY_ListPatientReceiveLab.state> g QRY_ListPatientReceiveLab.city= gD@+w gH@*w gF@)w gL@(w gJ@'w gQry_ListPatientReceiveServiceKKK QRY_ListPatientReceiveLabCCC  G G  G  H@&w g  H@%w g  B@$w g F@#w g D@"w gu @ @ @ @ @ @ @ @ @ @ @ @ @ @{ s!{ s"{ s#{ s${ s%{ s&{  s'{s|s(|s*|s+|s,|s-|s.|s/|s0|s1|s2|s3|s4|s5|s6|s7| s8| s9| s:|s)}s;}s=}s>}s?}s@}sA}sB}sC}v}v}v}v}v}v}v} v} v} v } v }s<~v ~v ~v~v~v~v~v~v~v~v~v~v~v~ v~ v~ v~v~v~ v~ v~ v ~ v!~ v"~ v#~ v$~ v%~  v&~  v'~  v(~v v)v+v,v-v.v/v0v1v2v3v4v5v6 v7 v8 v9v:v; v< v= v> v? v@ vA z z  z  z  zv*zzzz z z z z zzzzz zzz z z z z z z z z  zzzz!z"z#z$z%z& z' z(z z)z+z,z-z.z/z0z1z2z3z4z5z6z7z8z9z:z;z<z=z>z?}}} } } } } }}} } z*} } }}}}}}}}}}}}}}} } }} }}!}"}#}$}%}&}'}( }) }* }+} },}-LVAL^n" P J > V R B.*:R>tblDemo.chart_number = qry_PHQ_Index_Date.chart_numbertblDemo.clinic_code = qry_PHQ_Index_Date.clinic_codeFirst((DateDiff("d",[qry_PHQ_Index_Date].[CSD_date],[qry_PHQ-CSD_1st_Followup_Visit_Date].[CSD_FollowUp_Visit_date]))/7)First((DateDiff("d",[qry_PHQ_Index_Date].[CSD_date],[qry_PHQ-CSD_1st_Followup_PHQ_Date].[CSD_FollowUp_PHQ_date]))/7)qry_PHQ_Index_Date.raw_code = tblServices_2.raw_codeqry_PHQ_Index_Date.CSD_Date = tblServices_2.service_dateqry_PHQ_Index_Date.chart_number = tblServices_2.chart_numberqry_PHQ_Index_Date.clinic_code = tblServices_2.clinic_codeqry_PHQ_Min_Max_DateInPeriod.Raw_Code = tblServices_1.raw_codeqry_PHQ_Min_Max_DateInPeriod.Raw_Code = tblServices.raw_codeqry_PHQ_Min_Max_DateInPeriod.Max_PHQ_Date = tblServices_1.service_dateqry_PHQ_Min_Max_DateInPeriod.Min_PHQ_Date = tblServices.service_dateqry_PHQ_Min_Max_DateInPeriod.chart_number = tblServices_1.chart_numberqry_PHQ_Min_Max_DateInPeriod.clinic_code = tblServices_1.clinic_codeqry_PHQ_Min_Max_DateInPeriod.chart_number = tblServices.chart_numberqry_PHQ_Min_Max_DateInPeriod.clinic_code = tblServices.clinic_codetblDemo.chart_number = qry_PHQ_Min_Max_DateInPeriod.chart_numbertblDemo.clinic_code = qry_PHQ_Min_Max_DateInPeriod.clinic_codetblDemo.chart_number = qry_PHQ_Index_Date.chart_numbertblDemo.clinic_code = qry_PHQ_Index_Date.clinic_codeqry_PHQ_Min_Max_DateInPeriod.Max_PHQ_Dateqry_PHQ_Min_Max_DateInPeriod.Min_PHQ_DateMax(Switch(Not IsDate([NextVisitDate]),"",[NextVisitDate]<=[LatestVisitDate],"",[NextVisitDate]>[LatestVisitDate],[NextVisitDate]))QRY_ListPatientReceiveLab.address1QRY_ListPatientReceiveLab.first_nameQRY_ListPatientReceiveLab.last_nameQRY_ListPatientReceiveLab.chart_numberQRY_ListPatientReceiveLab.clinic_codeQRY_ListPatientReceiveLab.chart_number = Qry_ListPatientReceiveService.chart_numberQRY_ListPatientReceiveLab.clinic_code = Qry_ListPatientReceiveService.clinic_code5  $ @ p  N " ^  S!)l,=`6oQ3<Min_PHQ_DateMin(tblServices.service_date)T)) oRaw_CodeMin(tblServices.raw_code)H!! otblServices.chart_number7 gtblServices.clinic_code6 gtblServices'''  G G  G tblServices.raw_code3 g tblServices.chart_number7 g tblServices.clinic_code6 g@~ 'CSD_DateMin(tblServices.service_date)L!! otblServices.raw_code3 gtblServices.chart_number7 gtblServices.clinic_code6 gtblServices'''  G G  G tblDemo.chart_number3 g tblDemo.clinic_code2 gtblDemoqry_PHQ-CSD_1st_Followup_Visit_Date@~qe tblDemoqry_PHQ-CSD_1st_Followup_PHQ_Date@~ma tblDemoqry_PHQ-CSD_1st_Followup_Visit_Date@~qe tblDemoqry_PHQ-CSD_1st_Followup_PHQ_Date@~ma tblDemoqry_PHQ_Index_Datel@|OC tblDemoqry_PHQ_Index_Dateh@|OC re-visit_lag@|5)) oreassessment_lag@|=11 otblDemo.chart_number3 gtblDemo.clinic_code2 gqry_PHQ-CSD_1st_Followup_Visit_DateWWW qry_PHQ-CSD_1st_Followup_PHQ_DateSSS tblDemo qry_PHQ_Index_Date555  G G  Gqry_PHQ_Index_DatetblServices_2h@|[O5 qry_PHQ_Index_DatetblServices_2p@|[O5 qry_PHQ_Index_DatetblServices_2x@|[O5  qry_PHQ_Index_DatetblServices_2t@|[O5  qry_PHQ_Min_Max_DateInPeriodtblServices_1|@|ocI  qry_PHQ_Min_Max_DateInPeriodtblServicesx@|k_I  qry_PHQ_Min_Max_DateInPeriodtblServices_1@|ocI  qry_PHQ_Min_Max_DateInPeriodtblServices@|k_I qry_PHQ_Min_Max_DateInPeriodtblServices_1@|ocI qry_PHQ_Min_Max_DateInPeriodtblServices_1@|ocI qry_PHQ_Min_Max_DateInPeriodtblServices@|k_I ^LVALvZ  |  Dh$.DateDiff("yyyy",[dob],[forms]![frmReports]![txtEndDate])+Int(Format([Forms]![frmReports]![txtEndDate],'mmdd')<Format([tblDemo].[dob],'mmdd'))(((tblServices.raw_code)="subst abuse ass") AND ((Len([result] & ""))>0) AND ((Activeperiod([tblServices].[service_date],[tblServices].[service_date]))=True) AND ((tblServices.status_flag)="c"))(((tblServices.raw_code)="smke ass") AND ((tblServices.status_flag)="c"))(((tblServices.raw_code)="smke ass") AND ((tblServices.result)="current") AND ((tblServices.status_flag)="c"))(((tblServices.raw_code)="smke asmt") AND ((tblServices.result)="current") AND ((Activeperiod([tblServices].[service_date],[tblServices].[service_date]))=True) AND ((tblServices.status_flag)="c"))(((tblVisits.visit_date)>[CSD_Date] And (tblVisits.visit_date)<=[Forms]![frmReports]![txtEndDate]) AND ((tblVisits.type_visit)="o" Or (tblVisits.type_visit)="p"))qry_PHQ_Index_Date.chart_number = tblVisits.chart_numberqry_PHQ_Index_Date.clinic_code = tblVisits.clinic_code(((tblServices.service_date)>[CSD_Date] And (tblServices.service_date)<=[Forms]![frmReports]![txtEndDate]) AND ((tblServices.status_flag)="c" Or (tblServices.status_flag)="d"))qry_PHQ_Index_Date.raw_code = tblServices.raw_codeqry_PHQ_Index_Date.chart_number = tblServices.chart_numberqry_PHQ_Index_Date.clinic_code = tblServices.clinic_code(((tblServices.raw_code)="PHQ") AND ((tblServices.status_flag)="c") AND ((Activeperiod([tblServices].[service_date],[tblServices].[service_date]))=True))(((tblServices.raw_code)="PHQ") AND ((tblServices.status_flag)="c") AND ((CInt(Switch(IsNull([result]),0,IsNull([result])=False,[result])))>=10) AND ((tblServices.service_date)<=[Forms]![frmReports]![txtEndDate]))tblDemo.chart_number = [qry_PHQ-CSD_1st_Followup_Visit_Date].chart_numbertblDemo.chart_number = [qry_PHQ-CSD_1st_Followup_PHQ_Date].chart_numbertblDemo.clinic_code = [qry_PHQ-CSD_1st_Followup_Visit_Date].clinic_codetblDemo.clinic_code = [qry_PHQ-CSD_1st_Followup_PHQ_Date].clinic_code{ @ @ @ @ @ @ @ @ @ @ @ @ @ @v*zzzz z z z z zzzzz zzz z z z z z z z z  zzzz!z"z#z$z%z& z' z(z z)z+z,z-z.z/z0z1z2z3z4z5z6z7z8z9z:z;z<z=z>z?}}} } } } } }}} } z*} } }}}}}}}}}}}}}}} } }} }}!}"}#}$}%}&}'}( }) }* }+} },}.}/}0}1}2}3}4  }-          !"$%&'()* + ,#-/012345 6 7.8:;<=>?@ A 9          BFwY; ]  ; s I x Z < 5 bC%T{8|HV,iK-r tblServices.clinic_code6 g@~ 'MaxOfservice_dateMax(tblServices.service_date)^33 otblServices.chart_number7 gtblServices.clinic_code6 gtblServices'''  G G  G tblServices.chart_number7 g tblServices.clinic_code6 g@~ 'MaxOfservice_dateMax(tblServices.service_date)^33 otblServices.chart_number7 gtblServices.clinic_code6 gtblServices'''  G G  G tblServices.chart_number7 g tblServices.clinic_code6 g@ ~ 'MaxOfservice_dateMax(tblServices.service_date)^33 otblServices.chart_number7 gtblServices.clinic_code6 gtblServices'''  G G  G !qry_PHQ_Index_Date.chart_number> g  qry_PHQ_Index_Date.clinic_code= gD@ ~ 'qry_PHQ_Index_DatetblVisitsp@ ~SG5 qry_PHQ_Index_DatetblVisitsl@ ~SG5 CSD_FollowUp_visit_dateMin(tblVisits.visit_date)f?? o!qry_PHQ_Index_Date.chart_number> g qry_PHQ_Index_Date.clinic_code= gtblVisits### qry_PHQ_Index_Date555  G G  G !qry_PHQ_Index_Date.chart_number> g  qry_PHQ_Index_Date.clinic_code= g`@ ~ 'qry_PHQ_Index_DatetblServicesd@~WK5 qry_PHQ_Index_DatetblServicest@~WK5 qry_PHQ_Index_DatetblServicesp@~WK5 CSD_FollowUp_PHQ_dateMin(tblServices.service_date)f;; o!qry_PHQ_Index_Date.chart_number> g qry_PHQ_Index_Date.clinic_code= gtblServices''' qry_PHQ_Index_Date555  G G  G tblServices.chart_number7 g tblServices.clinic_code6 g2@~ 'Cnt_PHQ!Count(tblServices.service_date)L oMax_PHQ_DateMax(tblServices.service_date)T)) o2bD. } _ A #  E o  S ` u5o q?KAa tblDemoqryMaxMammogramLast_2Years|@_S  tblDemoqryMaxMammogramLast_2Yearsx@_S tblDemoqryMaxServiceDateAtEndOfPeriod@g[ tblDemoqryMaxServiceDateAtEndOfPeriod@g[ tblDemoQRY_LatestSmkeCess_Refer_Declined_Done_InPeriod@} tblDemoQRY_LatestSmkeCess_Refer_Declined_Done_InPeriod@} tblDemoQRY_SmokersInPeriodn@ QE tblDemoQRY_SmokersInPeriodj@ QE tblDemoqryMaxServiceDateInPeriodz@ ]Q tblDemoqryMaxServiceDateInPeriodv@ ]Q Coll2003_smkerJ@ 9-- o Smke_cess_ref_dec_done@I== o edu_selfmanagement_goal_dateT@UII o edu_age65_AndOver_with_pvax@SGG o edu_pneumonia_vaccination_date^@YMM o edu_pap_inappropriatep@G;; oedu_pap_smearX@7++ oedu_breast_exam\@;// oedu_mammogram_inappropriate@SGG oedu_mammogramV@7++ o tblDemo.sex* gage@~# otblDemo.chart_number3 gtblDemo.clinic_code2 g Qry_ListPatientWithConditionIII  qryAge_65_AndOverWith_Pneumo_VaxQQQ qryMaxPapLastYear_InappropriateOOO qryMaxMammogramLast_2Years_Inappropriateaaa qryMaxMammogramLast_2YearsEEE qryMaxServiceDateAtEndOfPeriodMMM QRY_LatestSmkeCess_Refer_Declined_Done_InPeriodooo QRY_SmokersInPeriod777 qryMaxServiceDateInPeriodCCC tblDemo  G G  G tblServices.chart_number7 g tblServices.clinic_code6 g@~ 'test_dateMax(tblServices.service_date)N## otblServices.chart_number7 gtblServices.clinic_code6 gtblServices'''  G G  G tblServices.chart_number7 g2LVALh  " b ~  nHL<"zDateDiff("yyyy",[dob],[forms]![frmReports]![txtEndDate])+Int(Format([Forms]![frmReports]![txtEndDate],'mmdd')<Format([tblDemo].[dob],'mmdd'))tblDemo.chart_number = Qry_ListPatientWithCondition.chart_numbertblDemo.clinic_code = Qry_ListPatientWithCondition.clinic_codeqryAge_65_AndOverWith_Pneumo_Vax.chart_number = tblDemo.chart_numberqryAge_65_AndOverWith_Pneumo_Vax.clinic_code = tblDemo.clinic_codetblDemo.chart_number = qryMaxPapLastYear_Inappropriate.chart_numbertblDemo.clinic_code = qryMaxPapLastYear_Inappropriate.clinic_codetblDemo.chart_number = qryMaxMammogramLast_2Years_Inappropriate.chart_numbertblDemo.clinic_code = qryMaxMammogramLast_2Years_Inappropriate.clinic_codetblDemo.chart_number = qryMaxMammogramLast_2Years.chart_numbertblDemo.clinic_code = qryMaxMammogramLast_2Years.clinic_codetblDemo.chart_number = qryMaxServiceDateAtEndOfPeriod.chart_numbertblDemo.clinic_code = qryMaxServiceDateAtEndOfPeriod.clinic_codetblDemo.chart_number = QRY_LatestSmkeCess_Refer_Declined_Done_InPeriod.chart_numbertblDemo.clinic_code = QRY_LatestSmkeCess_Refer_Declined_Done_InPeriod.clinic_codetblDemo.chart_number = QRY_SmokersInPeriod.chart_numbertblDemo.clinic_code = QRY_SmokersInPeriod.clinic_codetblDemo.chart_number = qryMaxServiceDateInPeriod.chart_numbertblDemo.clinic_code = qryMaxServiceDateInPeriod.clinic_codeFirst((Switch(IsNull([QRY_SmokersInPeriod]![MaxofService_date])=False,1,IsNull([QRY_LatestSmkeCess_Refer_Declined_Done_InPeriod]![smke_cess_ref_dec_done])=False,1)))First(QRY_LatestSmkeCess_Refer_Declined_Done_InPeriod.Smke_cess_ref_dec_done)First(qryMaxServiceDateInPeriod.[sm goal])First(qryAge_65_AndOverWith_Pneumo_Vax.age65_AndOver_with_pneumo_vax)First(qryMaxServiceDateAtEndOfPeriod.[pne vac])First(qryMaxPapLastYear_Inappropriate.pap_inappropriate)First(qryMaxServiceDateInPeriod.[pap smear])First(qryMaxServiceDateInPeriod.[breast exam])First(qryMaxMammogramLast_2Years_Inappropriate.mammogram_inappropriate)First(qryMaxMammogramLast_2Years.mammogram) @ @ @ @ @ @ @ @ @ @ @ @ @ @}/}0}1}2}3}4  }-          !"$%&'()* + ,#-/012345 6 7.8:;<=>?@ A 9         ! " # $ % &'()*+,-./ 0 1                  !"#$%&'()*+,-./ 0 1 2 3 4                !"#5xz  4 T 6  r < ~  M Aw3K;eGm=  G Null# g Null# g Null# g Null# g@ 'tblDemoQRY_SummaryAPHS1h@K? tblDemoQRY_SummaryAPHS1d@K? Coll2003_smkerL@9-- oColl2003_smoke_cessation_ref_dec_done\@g[[ oEducation_selfmanagement_goalp@WKK oEducation_pneumonia_vaccination_65n@aUU oEducation_pneumonia_vaccinationt@[OO oEducation_pap_smear_inappropriateb@_SS oEducation_pap_smearR@C77 oEducation_breast_exam@G;; oedu_mammogram_inappropriaten@ SGG oedu_mammogram@ 7++ oAge_55AndOverZ@ 7++ oAge_45AndOverZ@ 7++ oAge_65_AndOverZ@ 9-- oAge_50_To_59v@5)) o Age_40_To_49v@5)) o Age_30_To_39v@5)) o Age_15_To_29v@5)) o Age_14_AndUnderZ@;// o Age_Unknownb@3'' oGender_Unspecified@A55 oGender_MaleZ@3'' oGender_FemaleZ@7++ oPatient_CountCount(tblDemo.Patient_ID)R++ oTestsNull- oVisitsNull/ oDemographicsNull;)) opcpNull) oQRY_SummaryAPHS1111 tblDemo  G G  G  tblDemo.sex* g @ g tblDemo.chart_number3 g tblDemo.clinic_code2 gtblDemoQry_ListPatientWithCondition@cW tblDemoQry_ListPatientWithCondition|@cW qryAge_65_AndOverWith_Pneumo_VaxtblDemo@k_Q qryAge_65_AndOverWith_Pneumo_VaxtblDemo@k_Q tblDemoqryMaxPapLastYear_Inappropriate@i]  tblDemoqryMaxPapLastYear_Inappropriate@i]  tblDemoqryMaxMammogramLast_2Years_Inappropriate@{o  tblDemoqryMaxMammogramLast_2Years_Inappropriate@{o LVAL!LH x   b  f P (J>DjSwitch(IsNumeric([Max_PHQ]),CInt(Nz([Max_PHQ],0)))Switch(IsNumeric([Min_PHQ]),CInt(Nz([Min_PHQ],0)))Qry_ListPatientWithDepression.type_depression In ("major depression","minor depression","dysthymia")DateDiff("yyyy",[dob],[forms]![frmReports]![txtEndDate])+Int(Format([Forms]![frmReports]![txtEndDate],'mmdd')<Format([tblDemo].[dob],'mmdd'))QRY_LatestVisitDate.CountOfOtherVisitsQRY_LatestVisitDate.CountOfLabVisitsQRY_LatestVisitDate.CountOfPhoneVisitsQRY_LatestVisitDate.CountOfVisits(((Activeclinic([tblDemo]![clinic_code]))=True) AND ((Activeperiod([tblDemo].[start_date],Nz([tblDemo].[end_date],Date())))=True))tblDemo.chart_number = QRY_SummaryAPHS1.chart_numbertblDemo.clinic_code = QRY_SummaryAPHS1.clinic_codeCount(QRY_SummaryAPHS1.Coll2003_smker)Count(QRY_SummaryAPHS1.Smke_cess_ref_dec_done)Count([QRY_SummaryAPHS1]![edu_selfmanagement_goal_date])Count([QRY_SummaryAPHS1]![edu_age65_AndOver_with_pvax])Count([QRY_SummaryAPHS1]![edu_pneumonia_vaccination_date])Count([QRY_SummaryAPHS1]![edu_pap_inappropriate])Count([QRY_SummaryAPHS1]![edu_pap_smear])Sum(Switch([QRY_SummaryAPHS1]![edu_breast_exam] And [QRY_SummaryAPHS1]![sex]="f",1))Count([QRY_SummaryAPHS1]![edu_mammogram_inappropriate])Count(IIf([QRY_SummaryAPHS1]![edu_mammogram] And [QRY_SummaryAPHS1]![sex]="F",1))Count(Switch([QRY_SummaryAPHS1].[Age]>=55,1))Count(Switch([QRY_SummaryAPHS1].[Age]>=45,1))Count(Switch([QRY_SummaryAPHS1].[Age]>=65,1))Count(Switch([QRY_SummaryAPHS1].[Age] Between 50 And 59,1))Count(Switch([QRY_SummaryAPHS1].[Age] Between 40 And 49,1))Count(Switch([QRY_SummaryAPHS1].[Age] Between 30 And 39,1))Count(Switch([QRY_SummaryAPHS1].[Age] Between 15 And 29,1))Count(Switch([QRY_SummaryAPHS1].[Age]<=14,1))Count(Switch([QRY_SummaryAPHS1].[Age] Is Null,1))Count(Switch([QRY_SummaryAPHS1].[sex]='U' Or [QRY_SummaryAPHS1].[sex] Is Null,1))Count(Switch([QRY_SummaryAPHS1].[sex]="M",1))Count(Switch([QRY_SummaryAPHS1].[sex]="F",1)):zB^ T  t " Y " z J  1 I K{+;i#Q8j2tlkpInsurancetblDemo`@E9+ )lab_chem_panel~@9-- o(lab_CBCp@+ o'lab_blood_level@;// o&lab_TSHp@+ o%edu_sm_goal_depresP@A55 o$edu_Psychiatric_consultX@K?? o#edu_MH_Ref!Sum(Switch(IsDate([MH Ref]),1))R%% o"edu_mh_hosp"Sum(Switch(IsDate([mh hosp]),1))U'' o!edu_in_house_cnslL@?33 o exercises`@/## osubstance_abuserN@ =11 oColl2003_smkerJ@ 9-- oMinOfworking_code^@ ?33 omed_stimulantH@ 7++ omed_other_mhH@ 5)) omed_mood_stabilizerX@C77 omed_benzodiazepinesT@C77 omed_anti_psychoticsX@C77 omed_anti_depressantX@C77 oVisit_FollowupR@9-- oPHQ_Followupb@5)) oLast_PHQ_Under6@;// oPHQ_Change@1%% oLast_PHQ_CSDV@5)) oLast_PHQ_Alld@ 5)) oPHQ_indexd@/## oCSD_Typeqry_PHQ_Date_Result.CSD_DateK!! o@ g insurance_codedtlkpInsurance.Insurance_typeY// o homeless_yestblDemo.homelessG)) o migrant_yestblDemo.migrantD'' o tblDemo.ethnicity0 g tblDemo.sex* gage@# oL@ gH@ gL@ gB@ g tblDemo.pcp* gtblDemo.chart_number3 gtblDemo.clinic_code2 g qryMaxLabDateInPeriod2===  QRY_PHQ_FollowupAfterIndexEEE  qry_PHQ_Date_Result777  qryMaxServiceDateInPeriodCCC  QRY_ExerciseOver3InWeek??? QRY_SubstAbuseInPeriod=== QRY_SmokersInPeriod777 QRY_LatestSmkeCess_Refer_Declined_Done_InPeriodooo qryMaxMedDateInPeriod;;; QRY_LatestVisitDate777 Qry_ListPatientWithDepressionKKK tlkpInsurance+++ tblDemo  G G LVAL! `  \  t  ~  z*:Ln4tblDemo.chart_number = QRY_SmokersInPeriod.chart_numbertblDemo.clinic_code = QRY_SmokersInPeriod.clinic_codeQRY_LatestSmkeCess_Refer_Declined_Done_InPeriod.chart_number = tblDemo.chart_numberQRY_LatestSmkeCess_Refer_Declined_Done_InPeriod.clinic_code = tblDemo.clinic_codetblDemo.chart_number = qryMaxMedDateInPeriod.chart_numbertblDemo.clinic_code = qryMaxMedDateInPeriod.clinic_codeQRY_LatestVisitDate.chart_number = tblDemo.chart_numberQRY_LatestVisitDate.clinic_code = tblDemo.clinic_codetblDemo.chart_number = Qry_ListPatientWithDepression.chart_numbertblDemo.clinic_code = Qry_ListPatientWithDepression.clinic_codetlkpInsurance.Insurance_name = tblDemo.insuranceSum(Switch([qryMaxLabDateInPeriod2].[raw_code]="Chem panel",1))Sum(Switch([qryMaxLabDateInPeriod2].[raw_code]="CBC",1))Sum(Switch([qryMaxLabDateInPeriod2].[raw_code]="Blood level",1))Sum(Switch([qryMaxLabDateInPeriod2].[raw_code]="TSH",1))Sum(Switch(IsDate([sm goal -depres]),1))Sum(Switch(IsDate([Psychiatric consult]),1))Sum(Switch(IsDate([in-house cnsl]),1))First(QRY_ExerciseOver3InWeek.MaxOfservice_date)First(QRY_SubstAbuseInPeriod.test_date)First((Switch(IsNull([QRY_SmokersInPeriod]![MaxofService_date])=False,1,IsNull([QRY_LatestSmkeCess_Refer_Declined_Done_InPeriod]![smke_cess_ref_dec_done])=False,1)))Min(Qry_ListPatientWithDepression.working_code)Sum(qryMaxMedDateInPeriod.Stimulant)Sum(qryMaxMedDateInPeriod.[Othr MH])Sum(qryMaxMedDateInPeriod.[Mood stabilizer])Sum(qryMaxMedDateInPeriod.Benzodiazepines)Sum(qryMaxMedDateInPeriod.[anti psychotics])Sum(qryMaxMedDateInPeriod.[Anti depressant])Max(IIf(([re-visit_lag]),[re-visit_lag]))Max(IIf(([reassessment_lag]),[reassessment_lag]))Last(DateDiff("d",[Max_PHQ_date],[Forms]![frmReports]![txtEndDate]))Max(IIf([CSD_Date] And IsDate([Max_PHQ_date]) And IsDate([csd_date]) And ([Max_PHQ_date]<>[CSD_date]),([CSD_PHQ]-[Max_PHQ])/[CSD_PHQ]))Last(IIf([CSD_date],CInt(Nz([Max_PHQ],0)))) @ @ @ @ @ @ @ @ @ @ @ @ @ @ " # $ % &'()*+,-./ 0 1                  !"#$%&'()*+,-./ 0 1 2 3 4                !"#$%&'()*+,-. /!0"1#2$3%4&5'6(7)89                           !  " # $ % &')*+,-./0123           !"#$%&'($4`  p  P L $Tq:h1}5 oQ3K.Patient_Visit_0@;// oPatient_Visit_AvgR@?33 oPatient_CountCount(tblDemo.Patient_ID)R++ oTestsNull- oVisitsNull/ oDemographicsNull;)) opcpNull) oQRY_SummaryDepression1=== tblDemo  G G  G d@ g d@ g qry_PHQ_Date_Result.CSD_Date; g Z@ g  tlkpInsurance.Insurance_type; g  tblDemo.homeless/ g  tblDemo.migrant. g  tblDemo.ethnicity0 g  tblDemo.sex* g @ g L@ g H@ g L@  g B@  g  tblDemo.pcp* g tblDemo.chart_number3 g tblDemo.clinic_code2 gtblDemoqryMaxLabDateInPeriod2t@ WK tblDemoqryMaxLabDateInPeriod2p@ WK tblDemoQRY_PHQ_FollowupAfterIndex|@ _S tblDemoQRY_PHQ_FollowupAfterIndexx@_S tblDemoqry_PHQ_Date_Resultn@QE tblDemoqry_PHQ_Date_Resultj@QE tblDemoqryMaxServiceDateInPeriodz@]Q tblDemoqryMaxServiceDateInPeriodv@]Q tblDemoQRY_ExerciseOver3InWeekv@YM tblDemoQRY_ExerciseOver3InWeekr@YM  tblDemoQRY_SubstAbuseInPeriodt@WK  tblDemoQRY_SubstAbuseInPeriodp@WK  tblDemoQRY_SmokersInPeriodn@ QE  tblDemoQRY_SmokersInPeriodj@QE  QRY_LatestSmkeCess_Refer_Declined_Done_InPeriodtblDemo@}o QRY_LatestSmkeCess_Refer_Declined_Done_InPeriodtblDemo@}o tblDemoqryMaxMedDateInPeriodr@UI tblDemoqryMaxMedDateInPeriodn@UI QRY_LatestVisitDatetblDemon@QE7 QRY_LatestVisitDatetblDemoj@QE7 tblDemoQry_ListPatientWithDepression@eY tblDemoQry_ListPatientWithDepression~@eY LVAL"4 D l x  R  r X6b>tdp Count(Switch([QRY_SummaryDepression1].[Age]<=14,1))Count(Switch([QRY_SummaryDepression1].[Age] Is Null,1))Count(Switch([QRY_SummaryDepression1].[sex]='U' Or [QRY_SummaryDepression1].[sex] Is Null,1))Count(Switch([QRY_SummaryDepression1].[sex]="M",1))Count(Switch([QRY_SummaryDepression1].[sex]="F",1))Sum(QRY_SummaryDepression1.CountOfOtherVisits)Sum(QRY_SummaryDepression1.CountOfLabVisits)Sum(QRY_SummaryDepression1.CountOfPhoneVisits)Sum(QRY_SummaryDepression1.CountOfVisits)Count(Switch([QRY_SummaryDepression1].[CountOfVisits]>=6,1))Count(Switch([QRY_SummaryDepression1].[CountOfVisits] Between 3 And 5,1))Count(Switch([QRY_SummaryDepression1].[CountOfVisits] Between 1 And 2,1))Count(Switch([QRY_SummaryDepression1].[CountOfVisits] Is Null,1))Avg(QRY_SummaryDepression1.CountOfVisits)Switch(IsNumeric([Max_PHQ]),CInt(Nz([Max_PHQ],0)))Switch(IsNumeric([Min_PHQ]),CInt(Nz([Min_PHQ],0)))Qry_ListPatientWithDepression.type_depressionDateDiff("yyyy",[dob],[forms]![frmReports]![txtEndDate])+Int(Format([Forms]![frmReports]![txtEndDate],'mmdd')<Format([tblDemo].[dob],'mmdd'))QRY_LatestVisitDate.CountOfOtherVisitsQRY_LatestVisitDate.CountOfLabVisitsQRY_LatestVisitDate.CountOfPhoneVisitsQRY_LatestVisitDate.CountOfVisitstblDemo.chart_number = qryMaxLabDateInPeriod2.chart_numbertblDemo.clinic_code = qryMaxLabDateInPeriod2.clinic_codetblDemo.chart_number = QRY_PHQ_FollowupAfterIndex.chart_numbertblDemo.clinic_code = QRY_PHQ_FollowupAfterIndex.clinic_codetblDemo.chart_number = qry_PHQ_Date_Result.chart_numbertblDemo.clinic_code = qry_PHQ_Date_Result.clinic_codetblDemo.chart_number = qryMaxServiceDateInPeriod.chart_numbertblDemo.clinic_code = qryMaxServiceDateInPeriod.clinic_codetblDemo.chart_number = QRY_ExerciseOver3InWeek.chart_numbertblDemo.clinic_code = QRY_ExerciseOver3InWeek.clinic_codetblDemo.chart_number = QRY_SubstAbuseInPeriod.chart_numbertblDemo.clinic_code = QRY_SubstAbuseInPeriod.clinic_code56\~@ z , b V  @ b  |.F<Uiy)WE=edu_Psychiatric_consultf@K?? oP@6Sum(Switch(IsDate([CSD_Type]) And DateDiff("d",[CSD_Type],[Forms]![frmReports]![txtEndDate])>=14,1))Sum(Switch(IsDate([CSD_Type]),1))Sum(Switch(Len([minor depression]),1))Sum(Switch(Len([major depression]),1))Count(Switch([QRY_SummaryDepression1]![homeless_yes]="Y",1))Count(Switch([QRY_SummaryDepression1]![migrant_yes]="Y",1))Sum(IIf([QRY_SummaryDepression1]![insurance_coded]="0",1,0))Sum(IIf([QRY_SummaryDepression1]![insurance_coded]="5",1,0))Sum(IIf([QRY_SummaryDepression1]![insurance_coded]="1",1,0))Sum(IIf([QRY_SummaryDepression1]![insurance_coded]="3",1,0))Sum(IIf([QRY_SummaryDepression1]![insurance_coded]="2",1,0))Sum(IIf([QRY_SummaryDepression1]![insurance_coded]<>"4",1,0))Count(Switch([QRY_SummaryDepression1]![ethnicity]<>"White" And [QRY_SummaryDepression1]![ethnicity]<>"Black" And [QRY_SummaryDepression1]![ethnicity]<>"Am Indian" And [QRY_SummaryDepression1]![ethnicity]<>"Asian" And [QRY_SummaryDepression1]![ethnicity]<>"Hispanic" Or [QRY_SummaryDepression1]![ethnicity] Is Null Or [QRY_SummaryDepression1]![ethnicity]="",1))Count(Switch([QRY_SummaryDepression1]![ethnicity]="Hispanic",1))Count(Switch([QRY_SummaryDepression1]![ethnicity]="Asian",1))Count(Switch([QRY_SummaryDepression1]![ethnicity]="Am Indian",1))Count(Switch([QRY_SummaryDepression1]![ethnicity]="Black",1))Sum(IIf([QRY_SummaryDepression1]![ethnicity]="White" Or [QRY_SummaryDepression1]![ethnicity]="Russian",1,0))Count(Switch([QRY_SummaryDepression1].[Age]>=55,1))Count(Switch([QRY_SummaryDepression1].[Age]>=45,1))Count(Switch([QRY_SummaryDepression1].[Age]>=65,1))Count(Switch([QRY_SummaryDepression1].[Age]>=60,1))Count(Switch([QRY_SummaryDepression1].[Age] Between 50 And 59.9999,1))Count(Switch([QRY_SummaryDepression1].[Age] Between 40 And 49.9999,1))Count(Switch([QRY_SummaryDepression1].[Age] Between 30 And 39.9999,1))Count(Switch([QRY_SummaryDepression1].[Age] Between 15 And 29.99999,1)) @ @ @ @ @ @ @ @ @ @ @ @ @ @%&'()*+,-. /!0"1#2$3%4&5'6(7)89                           !  " # $ % &')*+,-./0123           !"#$%&'( )!*"+#,$-%.&/'0(1)2*3+4,5-6.7/8091:2;3<4=5>?@ABCDEFG H I J K LMNOPQRSTUVWXYZ[\]^ _!`"a#b$c%d&'() * + , -(.0123           /LVAL(8j  P P f r h  @Z hFv*jfSum(Switch(Nz([PHQ_Followup],0)>4 And [PHQ_Followup]<=6,1))Sum(Switch(Nz([PHQ_Followup],99)<=2,1))Sum(Switch(Nz([PHQ_Change],0)<0,1))Sum(Switch(Nz([PHQ_Change],99) Between 0 And 0.24999,1))Sum(Switch(Nz([PHQ_Change],0) Between 0.25 And 0.49999,1))Sum(Switch(Nz([PHQ_Change],0)>=0.5,1))Avg(QRY_SummaryDepression1.PHQ_Change)Sum(Switch(Nz([Last_PHQ_CSD],-99) Between 0 And 4,1))Sum(Switch(Nz([Last_PHQ_CSD],0) Between 5 And 9,1))Sum(Switch(Nz([Last_PHQ_CSD],0) Between 10 And 14,1))Sum(Switch(Nz([Last_PHQ_CSD],0) Between 15 And 19,1))Sum(Switch(Nz([Last_PHQ_CSD],0)>=20,1))Sum(Switch(Nz([Last_PHQ_CSD],-99)>=0,1))Sum(Switch(Nz([Last_PHQ_All],99) Between 0 And 4,1))Sum(Switch(Nz([Last_PHQ_All],0) Between 5 And 9,1))Sum(Switch(Nz([Last_PHQ_All],0) Between 10 And 14,1))Sum(Switch(Nz([Last_PHQ_All],0) Between 15 And 19,1))Sum(Switch(Nz([Last_PHQ_All],0)>=20,1))Sum(Switch(IsNumeric([Last_PHQ_All]),1))Sum(Switch(Nz([PHQ_index],99)<=4,1))Sum(Switch(Nz([PHQ_index],0) Between 5 And 9,1))Sum(Switch(Nz([PHQ_index],0) Between 10 And 14,1))Sum(Switch(Nz([PHQ_index],0) Between 15 And 19,1))Sum(Switch(Nz([PHQ_index],0)>=20,1))Sum(QRY_SummaryDepression1.edu_sm_goal_depres)Sum(QRY_SummaryDepression1.edu_Psychiatric_consult)Sum(QRY_SummaryDepression1.edu_MH_Ref)Sum(QRY_SummaryDepression1.edu_mh_hosp)Sum(QRY_SummaryDepression1.edu_in_house_cnsl)Sum(Switch(IsDate([exercises]),1))Sum(QRY_SummaryDepression1.Coll2003_smker)Sum(Switch(IsDate([substance_abuser]),1))Sum(QRY_SummaryDepression1.med_stimulant)Sum(QRY_SummaryDepression1.med_other_mh)Sum(QRY_SummaryDepression1.med_mood_stabilizer)Sum(QRY_SummaryDepression1.med_benzodiazepines)Sum(QRY_SummaryDepression1.med_anti_psychotics)Sum(QRY_SummaryDepression1.med_anti_depressant)Sum(Switch(IsDate([CSD_Type]) And DateDiff("d",[CSD_Type],[Forms]![frmReports]![txtEndDate])>=182.6,1))Sum(Switch(IsDate([CSD_Type]) And DateDiff("d",[CSD_Type],[Forms]![frmReports]![txtEndDate])>=42,1))04b|2 j ( b  < ^  v  B:z rF~T$vX:QRY_SummaryDepression1=== tblDemo  G G  G Null# g Null# g Null# g Null# g@ 'tblDemoQRY_SummaryDepression1t@WK tblDemoQRY_SummaryDepression1p@WK dlab_chem_panel_AnyNumericResultT@ [OO oclab_CBC_AnyNumericResultF@ MAA oblab_blood_level_AnyNumericResultV@ ]QQ oalab_TSH_AnyNumericResultF@ MAA o`Last_PHQ_Over6_monthsX@ G;; o_Last_PHQ_6OrUnder_months\@MAA o^CSD_PHQ_Next_Visit_Never|@MAA o]CSD_PHQ_Next_Visit_6Over_weeksN@YMM o\CSD_PHQ_Next_Visit_Over4_to_6weeks~@aUU o[CSD_PHQ_Next_Visit_2Over_to_4weeks~@aUU oZCSD_PHQ_Next_Visit_AtUnder_2weeksR@_SS oYCSD_PHQ_Retested_2Over_to_4weeksv@]QQ oXCSD_PHQ_Retested_Neverx@I== oWCSD_PHQ_Retested_6Over_weeksJ@UII oVCSD_PHQ_Retested_Over4_to_6weeksv@']QQ oUCSD_PHQ_Retested_AtUnder_2weeksN@&[OO oTPHQ_Change_minusF@%=11 oSPHQ_Change_0_to_24p@$A55 oRPHQ_Change_25_to_49t@#C77 oQPHQ_Change_50AndOverL@"E99 oPPHQ_Change_avgL@!9-- oOCSD_PHQ_0_to_4j@ 9-- oNCSD_PHQ_5_to_9f@9-- oMCSD_PHQ_10_to_14j@=11 oLCSD_PHQ_15_to_19j@=11 oKCSD_PHQ_20AndOverN@?33 oJCSD_PHQ_0AndOverP@=11 oIPHQ_0_to_4h@1%% oHPHQ_5_to_9f@1%% oGPHQ_10_to_14j@5)) oFPHQ_15_to_19j@5)) oEPHQ_20AndOverN@7++ oDPHQ_0AndOverP@5)) oCPHQ_index_0_to_4H@=11 oBPHQ_index_5_to_9`@=11 oAPHQ_index_10_to_14d@A55 o@PHQ_index_15_to_19d@A55 o?PHQ_index_20AndOverH@C77 o>edu_sm_goal_depres\@A55 oLVAL">v z , T `  V  xnh @$ Count(Switch([QRY_SummaryDepression1].[Age] Between 40 And 49.9999,1))Count(Switch([QRY_SummaryDepression1].[Age] Between 30 And 39.9999,1))Count(Switch([QRY_SummaryDepression1].[Age] Between 15 And 29.99999,1))Count(Switch([QRY_SummaryDepression1].[Age]<=14,1))Count(Switch([QRY_SummaryDepression1].[Age] Is Null,1))Count(Switch([QRY_SummaryDepression1].[sex]='U' Or [QRY_SummaryDepression1].[sex] Is Null,1))Count(Switch([QRY_SummaryDepression1].[sex]="M",1))Count(Switch([QRY_SummaryDepression1].[sex]="F",1))Sum(QRY_SummaryDepression1.CountOfOtherVisits)Sum(QRY_SummaryDepression1.CountOfLabVisits)Sum(QRY_SummaryDepression1.CountOfPhoneVisits)Sum(QRY_SummaryDepression1.CountOfVisits)Count(Switch([QRY_SummaryDepression1].[CountOfVisits]>=6,1))Count(Switch([QRY_SummaryDepression1].[CountOfVisits] Between 3 And 5,1))Count(Switch([QRY_SummaryDepression1].[CountOfVisits] Between 1 And 2,1))Count(Switch([QRY_SummaryDepression1].[CountOfVisits] Is Null,1))Avg(QRY_SummaryDepression1.CountOfVisits)(((Activeperiod([tblDemo].[start_date],Nz([tblDemo].[end_date],Date())))=True) AND ((Activeclinic([tblDemo]![clinic_code]))=True))tblDemo.chart_number = QRY_SummaryDepression1.chart_numbertblDemo.clinic_code = QRY_SummaryDepression1.clinic_codeSum(QRY_SummaryDepression1.lab_chem_panel)Sum(QRY_SummaryDepression1.lab_CBC)Sum(QRY_SummaryDepression1.lab_blood_level)Sum(QRY_SummaryDepression1.lab_TSH)Sum(Switch(Nz([Last_PHQ_Under6],0)>182.6,1))Sum(Switch(Nz([Last_PHQ_Under6],99)<=182.6,1))Sum(Switch(IsNull([Visit_Followup]) And IsDate([CSD_type]),1))Sum(Switch(Nz([Visit_Followup],0)>6,1))Sum(Switch(Nz([Visit_Followup],0)>4 And [Visit_Followup]<=6,1))Sum(Switch(Nz([Visit_Followup],0)>2 And [Visit_Followup]<=4,1))Sum(Switch(Nz([Visit_Followup],99)<=2,1))Sum(Switch(Nz([PHQ_Followup],0)>2 And [PHQ_Followup]<=4,1))Sum(Switch(IsNull([PHQ_Followup]) And IsDate([CSD_type]),1))Sum(Switch(Nz([PHQ_Followup],0)>6,1));6{?Z n  R  > t 2 h " R t&@XNg{+;6med_stimulantR@7++ o5med_other_mhP@5)) o4med_mood_stabilizer^@C77 o3med_benzodiazepines^@C77 o2med_anti_psychotics^@C77 o1med_anti_depressant^@C77 o0CSD_6_OrMore_months@C77 o/CSD_6_OrMore_Weeks@A55 o.CSD_2_OrMore_Weeks@A55 o-CSDB@# o,Cnt_Dysthymia!Sum(Switch(Len([dysthymia]),1))X++ o+Cnt_Minor_depressionL@E99 o*Cnt_Major_depressionL@E99 o)Homelessx@-!! o(Migrantv@+ o'Insurance_nonex@9-- o&Insurance_otherx@;// o%Insurance_commercialx@E99 o$Insurance_medicarex@ A55 o#Insurance_medicaidx@ A55 o"Insurance_specifiedz@ C77 o!Ethnicity_Other@ ;// o Ethnicity_Hispanic@ A55 oEthnicity_Asianz@;// oEthnicity_AmIndian@A55 oEthnicity_Blackz@;// oEthnicity_White@;// oAge_55AndOverf@7++ oAge_45AndOverf@7++ oAge_65_AndOverf@9-- oAge_60_AndOverf@9-- oAge_50_To_59@5)) oAge_40_To_49@!5)) oAge_30_To_39@ 5)) oAge_15_To_29@5)) oAge_14_AndUnderf@;// oAge_Unknownn@3'' oGender_Unspecified@A55 oGender_Malef@3'' oGender_Femalef@7++ oVisits_Other\@5)) o Visits_LabX@1%% o Visits_Phone\@5)) o Visits_OfficeR@7++ o Patient_Visit_6_AndOverx@K?? o Patient_Visit_3_To_5@E99 oPatient_Visit_1_To_2@E99 oPatient_Visit_0@;// oPatient_Visit_AvgR@?33 oPatient_CountCount(tblDemo.Patient_ID)R++ oTestsNull- oVisitsNull/ oDemographicsNull;)) opcp tblDemo.pcp0 oLVALtB    >L\l~2FSum(QRY_SummaryDepression1.med_anti_depressant)Sum(Switch(IsDate([CSD_Type]) And DateDiff("d",[CSD_Type],[Forms]![frmReports]![txtEndDate])>=182.6,1))Sum(Switch(IsDate([CSD_Type]) And DateDiff("d",[CSD_Type],[Forms]![frmReports]![txtEndDate])>=42,1))Sum(Switch(IsDate([CSD_Type]) And DateDiff("d",[CSD_Type],[Forms]![frmReports]![txtEndDate])>=14,1))Sum(Switch(IsDate([CSD_Type]),1))Sum(Switch(Len([minor depression]),1))Sum(Switch(Len([major depression]),1))Count(Switch([QRY_SummaryDepression1]![homeless_yes]="Y",1))Count(Switch([QRY_SummaryDepression1]![migrant_yes]="Y",1))Sum(IIf([QRY_SummaryDepression1]![insurance_coded]="0",1,0))Sum(IIf([QRY_SummaryDepression1]![insurance_coded]="5",1,0))Sum(IIf([QRY_SummaryDepression1]![insurance_coded]="1",1,0))Sum(IIf([QRY_SummaryDepression1]![insurance_coded]="3",1,0))Sum(IIf([QRY_SummaryDepression1]![insurance_coded]="2",1,0))Sum(IIf([QRY_SummaryDepression1]![insurance_coded]<>"4",1,0))Count(Switch([QRY_SummaryDepression1]![ethnicity]<>"White" And [QRY_SummaryDepression1]![ethnicity]<>"Black" And [QRY_SummaryDepression1]![ethnicity]<>"Am Indian" And [QRY_SummaryDepression1]![ethnicity]<>"Asian" And [QRY_SummaryDepression1]![ethnicity]<>"Hispanic" Or [QRY_SummaryDepression1]![ethnicity] Is Null Or [QRY_SummaryDepression1]![ethnicity]="",1))Count(Switch([QRY_SummaryDepression1]![ethnicity]="Hispanic",1))Count(Switch([QRY_SummaryDepression1]![ethnicity]="Asian",1))Count(Switch([QRY_SummaryDepression1]![ethnicity]="Am Indian",1))Count(Switch([QRY_SummaryDepression1]![ethnicity]="Black",1))Sum(IIf([QRY_SummaryDepression1]![ethnicity]="White" Or [QRY_SummaryDepression1]![ethnicity]="Russian",1,0))Count(Switch([QRY_SummaryDepression1].[Age]>=55,1))Count(Switch([QRY_SummaryDepression1].[Age]>=45,1))Count(Switch([QRY_SummaryDepression1].[Age]>=65,1))Count(Switch([QRY_SummaryDepression1].[Age]>=60,1))Count(Switch([QRY_SummaryDepression1].[Age] Between 50 And 59.9999,1)) @ @ @ @ @ @ @ @ @ @ @ @ @ @)!*"+#,$-%.&/'0(1)2*3+4,5-6.7/8091:2;3<4=5>?@ABCDEFG H I J K LMNOPQRSTUVWXYZ[\]^ _!`"a#b$c%d&'() * + , -(.0123           ! "!#"$#%$&%'&(')(*)+*,+-,.-/.0/102132435465789:;<=>?@ A B C D EFGHIJKLMNOPQRSTUVW X!Y"Z#[$\%]&^'_(`)a*b+c,d-./    /              ! " #LVAL)DD Z f \ 4 N z\:j^Z"ZSum(Switch(Nz([Visit_Followup],99)<=2,1))Sum(Switch(Nz([PHQ_Followup],0)>2 And [PHQ_Followup]<=4,1))Sum(Switch(IsNull([PHQ_Followup]) And IsDate([CSD_type]),1))Sum(Switch(Nz([PHQ_Followup],0)>6,1))Sum(Switch(Nz([PHQ_Followup],0)>4 And [PHQ_Followup]<=6,1))Sum(Switch(Nz([PHQ_Followup],99)<=2,1))Sum(Switch(Nz([PHQ_Change],0)<0,1))Sum(Switch(Nz([PHQ_Change],99) Between 0 And 0.24999,1))Sum(Switch(Nz([PHQ_Change],0) Between 0.25 And 0.49999,1))Sum(Switch(Nz([PHQ_Change],0)>=0.5,1))Avg(QRY_SummaryDepression1.PHQ_Change)Sum(Switch(Nz([Last_PHQ_CSD],-99) Between 0 And 4,1))Sum(Switch(Nz([Last_PHQ_CSD],0) Between 5 And 9,1))Sum(Switch(Nz([Last_PHQ_CSD],0) Between 10 And 14,1))Sum(Switch(Nz([Last_PHQ_CSD],0) Between 15 And 19,1))Sum(Switch(Nz([Last_PHQ_CSD],0)>=20,1))Sum(Switch(Nz([Last_PHQ_CSD],-99)>=0,1))Sum(Switch(Nz([Last_PHQ_All],99) Between 0 And 4,1))Sum(Switch(Nz([Last_PHQ_All],0) Between 5 And 9,1))Sum(Switch(Nz([Last_PHQ_All],0) Between 10 And 14,1))Sum(Switch(Nz([Last_PHQ_All],0) Between 15 And 19,1))Sum(Switch(Nz([Last_PHQ_All],0)>=20,1))Sum(Switch(IsNumeric([Last_PHQ_All]),1))Sum(Switch(Nz([PHQ_index],99)<=4,1))Sum(Switch(Nz([PHQ_index],0) Between 5 And 9,1))Sum(Switch(Nz([PHQ_index],0) Between 10 And 14,1))Sum(Switch(Nz([PHQ_index],0) Between 15 And 19,1))Sum(Switch(Nz([PHQ_index],0)>=20,1))Sum(QRY_SummaryDepression1.edu_sm_goal_depres)Sum(QRY_SummaryDepression1.edu_Psychiatric_consult)Sum(QRY_SummaryDepression1.edu_MH_Ref)Sum(QRY_SummaryDepression1.edu_mh_hosp)Sum(QRY_SummaryDepression1.edu_in_house_cnsl)Sum(Switch(IsDate([exercises]),1))Sum(QRY_SummaryDepression1.Coll2003_smker)Sum(Switch(IsDate([substance_abuser]),1))Sum(QRY_SummaryDepression1.med_stimulant)Sum(QRY_SummaryDepression1.med_other_mh)Sum(QRY_SummaryDepression1.med_mood_stabilizer)Sum(QRY_SummaryDepression1.med_benzodiazepines)Sum(QRY_SummaryDepression1.med_anti_psychotics)0t.d  n > v 4 n " H  jN"F,~RtblDemoQRY_SummaryDepression1t@ WK tblDemoQRY_SummaryDepression1p@ WK dlab_chem_panel_AnyNumericResultT@ [OO oclab_CBC_AnyNumericResultF@MAA oblab_blood_level_AnyNumericResultV@]QQ oalab_TSH_AnyNumericResultF@MAA o`Last_PHQ_Over6_monthsX@G;; o_Last_PHQ_6OrUnder_months\@MAA o^CSD_PHQ_Next_Visit_Never|@MAA o]CSD_PHQ_Next_Visit_6Over_weeksN@YMM o\CSD_PHQ_Next_Visit_Over4_to_6weeks~@aUU o[CSD_PHQ_Next_Visit_2Over_to_4weeks~@aUU oZCSD_PHQ_Next_Visit_AtUnder_2weeksR@(_SS oYCSD_PHQ_Retested_2Over_to_4weeksv@']QQ oXCSD_PHQ_Retested_Neverx@&I== oWCSD_PHQ_Retested_6Over_weeksJ@%UII oVCSD_PHQ_Retested_Over4_to_6weeksv@$]QQ oUCSD_PHQ_Retested_AtUnder_2weeksN@#[OO oTPHQ_Change_minusF@"=11 oSPHQ_Change_0_to_24p@!A55 oRPHQ_Change_25_to_49t@ C77 oQPHQ_Change_50AndOverL@E99 oPPHQ_Change_avgL@9-- oOCSD_PHQ_0_to_4j@9-- oNCSD_PHQ_5_to_9f@9-- oMCSD_PHQ_10_to_14j@=11 oLCSD_PHQ_15_to_19j@=11 oKCSD_PHQ_20AndOverN@?33 oJCSD_PHQ_0AndOverP@=11 oIPHQ_0_to_4h@1%% oHPHQ_5_to_9f@1%% oGPHQ_10_to_14j@5)) oFPHQ_15_to_19j@5)) oEPHQ_20AndOverN@7++ oDPHQ_0AndOverP@5)) oCPHQ_index_0_to_4H@=11 oBPHQ_index_5_to_9`@=11 oAPHQ_index_10_to_14d@A55 o@PHQ_index_15_to_19d@A55 o?PHQ_index_20AndOverH@ C77 o>edu_sm_goal_depres\@ A55 o=edu_Psychiatric_consultf@ K?? oSystolic/Diastolic2].bp_diastolic[QRY_Latest_BP_>Systolic/Diastolic2].bp_systolicQRY_LatestVisitDate.CountOfVisitsQRY_LatestVisitDate.LatestVisitDateDateDiff("yyyy",[dob],[forms]![frmReports]![txtEndDate])+Int(Format([Forms]![frmReports]![txtEndDate],'mmdd')<Format([tblDemo].[dob],'mmdd'))(((Activeperiod([tblDemo].[start_date],Nz([tblDemo].[end_date],Date())))=True) AND ((Activeclinic([tblDemo]![clinic_code]))=True))tblDemo.chart_number = QRY_SummaryDepression1.chart_numbertblDemo.clinic_code = QRY_SummaryDepression1.clinic_codeSum(QRY_SummaryDepression1.lab_chem_panel)Sum(QRY_SummaryDepression1.lab_CBC)Sum(QRY_SummaryDepression1.lab_blood_level)Sum(QRY_SummaryDepression1.lab_TSH)Sum(Switch(Nz([Last_PHQ_Under6],0)>182.6,1))Sum(Switch(Nz([Last_PHQ_Under6],99)<=182.6,1))Sum(Switch(IsNull([Visit_Followup]) And IsDate([CSD_type]),1))Sum(Switch(Nz([Visit_Followup],0)>6,1))Sum(Switch(Nz([Visit_Followup],0)>4 And [Visit_Followup]<=6,1))Sum(Switch(Nz([Visit_Followup],0)>2 And [Visit_Followup]<=4,1))M9o?k' U o ) a } ? Y " @sIY0:v=_"hlth_retinopathyj@=11 o!hlth_peripheralZ@;// o hlth_neuropathyh@;// ohlth_nephropathyj@=11 ohlth_hypertensionZ@?33 ohlth_hyperlipidemiap@C77 ohlth_heart^@1%% ohlth_cerebrovascularZ@E99 omed_bp_otherFirst(Nz([BP_med],0))L)) omed_lipid_lowerFirst(Nz([lipid_agent],0))W// omed_ace_inhibitorFirst(Nz([ace],0))S33 omed_aspirinFirst(Nz([asa],0))G'' omed_ag_inhibitorT@=11 omed_prandinFirst(Nz([prandin],0))K'' omed_glitazonesFirst(Nz([glitazones],0))T-- omed_glucophageFirst(Nz([glucophage],0))T-- omed_sulfonylureaFirst(Nz([sulfonylurea],0))Z11 omed_insulinFirst(Nz([insulin],0))K'' oDiabetes_Type^@7++ ob@ g`@ g B@ g QRY_LatestBMI.BMI0 g F@ g insurance_codedtlkpInsurance.Insurance_typeY// o homeless_yestblDemo.homelessG)) omigrant_yestblDemo.migrantD'' otblDemo.ethnicity0 g tblDemo.sex* gage@ # o tblDemo.pcp* gtblDemo.chart_number3 gtblDemo.clinic_code2 gtblDemo.Patient_ID1 gqryDiabetesLabsInPeriod???  QRY_SmokersLastEval777  Qry_ListPatientWithDiabetesGGG  QRY_LatestSmkeCess_Refer_Declined_Done_InPeriodooo  QRY_ExerciseOver3InWeek???  QRY_HbA1c90DaysApart999 qryMaxServiceDateInPeriodCCC qryMaxHealthDateInPeriodAAA qryMaxMedDateInPeriod;;; QRY_Latest_BP_>Systolic/Diastolic2UUU QRY_LatestBMI+++ tlkpInsurance+++ QRY_LatestVisitDate777 tblDemo  G G  G Null# g Null# g Null# g  tblDemo.pcp* g@  ' @ @ @ @ @ @ @ @ @ @ @ @ @ @"!#"$#%$&%'&(')(*)+*,+-,.-/.0/102132435465789:;<=>?@ A B C D EFGHIJKLMNOPQRSTUVW X!Y"Z#[$\%]&^'_(`)a*b+c,d-./    /              ! " #$%&'()*+,-./012345 6!7"8#$%&'()*+, - . / 0 123456789:;<=>?@ABC D!"#$%&'() * + , - ./01                          !"t2p"z. n t  ~ B  j : b ( P^ hpDrH|tblDemoQRY_LatestSmkeCess_Refer_Declined_Done_InPeriod@} tblDemoQRY_ExerciseOver3InWeekv@YM tblDemoQRY_ExerciseOver3InWeekr@YM  tblDemoQRY_HbA1c90DaysApartp@%SG  tblDemoQRY_HbA1c90DaysApartl@$SG  tblDemoqryMaxServiceDateInPeriodz@#]Q  tblDemoqryMaxServiceDateInPeriodv@"]Q  tblDemoqryMaxHealthDateInPeriodx@![O tblDemoqryMaxHealthDateInPeriodt@ [O tblDemoqryMaxMedDateInPeriodr@UI tblDemoqryMaxMedDateInPeriodn@UI tblDemoQRY_Latest_BP_>Systolic/Diastolic2@oc tblDemoQRY_Latest_BP_>Systolic/Diastolic2@oc tblDemoQRY_LatestBMIb@E9 tblDemoQRY_LatestBMI^@E9 tlkpInsurancetblDemo`@E9+ DDateDiff90V@1%% oCColl2003_smkerJ@9-- oB24up_doneV@/## oA24upR@% o@trig_doneR@/## o?trigR@% o>ldl_doneP@-!! o=ldlN@# oSystolic/Diastolic2].chart_numbertblDemo.clinic_code = [QRY_Latest_BP_>Systolic/Diastolic2].clinic_codetblDemo.chart_number = QRY_LatestBMI.chart_numbertblDemo.clinic_code = QRY_LatestBMI.clinic_codetlkpInsurance.Insurance_name = tblDemo.insuranceFirst(QRY_HbA1c90DaysApart.Ha1c90DaysApart)First((Switch(IsNull([QRY_SmokersLastEval]![MaxofService_date])=False,1,IsNull([QRY_LatestSmkeCess_Refer_Declined_Done_InPeriod]![smke_cess_ref_dec_done])=False,1)))Max(qryDiabetesLabsInPeriod.[24up_numeric])Max(Switch([24up_numeric],[24up_result]))Max(qryDiabetesLabsInPeriod.trig_numeric)Max(Switch([trig_numeric],[trig_result]))Max(qryDiabetesLabsInPeriod.ldl_numeric)Max(Switch([ldl_numeric],[ldl_result]))Max(qryDiabetesLabsInPeriod.hdl_numeric)Max(Switch([hdl_numeric],[hdl_result]))Max(qryDiabetesLabsInPeriod.chol_numeric)Max(Switch([chol_numeric],[chol_result]))Max(qryDiabetesLabsInPeriod.alt_numeric)Max(Switch([alt_numeric],[alt_result]))Max(qryDiabetesLabsInPeriod.ast_numeric)Max(Switch([ast_numeric],[ast_result]))Max(qryDiabetesLabsInPeriod.alcr_numeric)Max(Switch([alcr_numeric],[alcr_result]))Max(qryDiabetesLabsInPeriod.crea_numeric)Max(Switch([crea_numeric],[crea_result]))Max(IIf(Len([Ha1c_result]),True))Max(Switch([ha1c_numeric],[ha1c_result]))First(QRY_LatestSmkeCess_Refer_Declined_Done_InPeriod.Smke_cess_ref_dec_done)First(qryMaxServiceDateInPeriod.[foot chk])First(qryMaxServiceDateInPeriod.dental)LVALv V n ( @ & > >BFCount(Switch([QRY_SummaryDiabetes1].[Age] Between 50 And 59,1))Count(Switch([QRY_SummaryDiabetes1].[Age] Between 40 And 49,1))Count(Switch([QRY_SummaryDiabetes1].[Age] Between 30 And 39,1))Count(Switch([QRY_SummaryDiabetes1].[Age] Between 15 And 29,1))Count(Switch([QRY_SummaryDiabetes1].[Age]<=14,1))Count(Switch([QRY_SummaryDiabetes1].[Age] Is Null,1))Count(Switch([QRY_SummaryDiabetes1].[sex]='U' Or [QRY_SummaryDiabetes1].[sex] Is Null,1))Count(Switch([QRY_SummaryDiabetes1].[sex]="M",1))Count(Switch([QRY_SummaryDiabetes1].[sex]="F",1))Count(Switch([QRY_SummaryDiabetes1].[CountOfVisits]>=6,1))Count(Switch([QRY_SummaryDiabetes1].[CountOfVisits] Between 3 And 5,1))Count(Switch([QRY_SummaryDiabetes1].[CountOfVisits] Between 1 And 2,1))Count(Switch([QRY_SummaryDiabetes1].[CountOfVisits] Is Null,1))Avg(QRY_SummaryDiabetes1.CountOfVisits)[QRY_Latest_BP_>Systolic/Diastolic2].bp_diastolic[QRY_Latest_BP_>Systolic/Diastolic2].bp_systolicQRY_LatestVisitDate.CountOfVisitsQRY_LatestVisitDate.LatestVisitDateDateDiff("yyyy",[dob],[forms]![frmReports]![txtEndDate])+Int(Format([Forms]![frmReports]![txtEndDate],'mmdd')<Format([tblDemo].[dob],'mmdd'))tblDemo.chart_number = qryDiabetesLabsInPeriod.chart_numbertblDemo.clinic_code = qryDiabetesLabsInPeriod.clinic_codetblDemo.chart_number = QRY_LatestVisitDate.chart_numbertblDemo.clinic_code = QRY_LatestVisitDate.clinic_codetblDemo.chart_number = QRY_SmokersLastEval.chart_numbertblDemo.clinic_code = QRY_SmokersLastEval.clinic_codetblDemo.chart_number = Qry_ListPatientWithDiabetes.chart_numbertblDemo.clinic_code = Qry_ListPatientWithDiabetes.clinic_codetblDemo.chart_number = QRY_LatestSmkeCess_Refer_Declined_Done_InPeriod.chart_numbertblDemo.clinic_code = QRY_LatestSmkeCess_Refer_Declined_Done_InPeriod.clinic_codetblDemo.chart_number = QRY_ExerciseOver3InWeek.chart_numbertblDemo.clinic_code = QRY_ExerciseOver3InWeek.clinic_code+9j0 t  J V , } A h >  p*p6CGu5i'YAEthnicity_Asianv@;// oEthnicity_AmIndian~@A55 oEthnicity_Blackv@;// oEthnicity_White@;// oAge_55AndOverb@7++ oAge_45AndOverb@7++ oAge_65_AndOverb@9-- oAge_60_AndOverb@9-- oAge_50_To_59~@5)) oAge_40_To_49~@5)) oAge_30_To_39~@5)) oAge_15_To_29~@5)) oAge_14_AndUnderb@;// oAge_Unknownj@3'' o Gender_Unspecified@A55 o Gender_Maleb@3'' o Gender_Femaleb@7++ o Patient_Visit_6_AndOvert@K?? o Patient_Visit_3_To_5@E99 oPatient_Visit_1_To_2@E99 oPatient_Visit_0~@;// oPatient_Visit_AvgN@?33 oPatient_CountCount(tblDemo.Patient_ID)R++ oTestsNull- oVisitsNull/ oDemographicsNull;)) opcpNull) oQRY_SummaryDiabetes1999 tblDemo  G G  G b@ g `@ g  B@ g  QRY_LatestBMI.BMI0 g  F@  g  tlkpInsurance.Insurance_type; g  tblDemo.homeless/ g tblDemo.migrant. g tblDemo.ethnicity0 g  tblDemo.sex* g @  g  tblDemo.pcp* g tblDemo.chart_number3 g tblDemo.clinic_code2 g tblDemo.Patient_ID1 gtblDemoqryDiabetesLabsInPeriodv@ YM tblDemoqryDiabetesLabsInPeriodr@ YM tblDemoQRY_LatestVisitDaten@ QE tblDemoQRY_LatestVisitDatej@QE tblDemoQRY_SmokersLastEvaln@QE tblDemoQRY_SmokersLastEvalj@QE tblDemoQry_ListPatientWithDiabetes~@aU tblDemoQry_ListPatientWithDiabetesz@aU tblDemoQRY_LatestSmkeCess_Refer_Declined_Done_InPeriod@}  @ @ @ @ @ @ @ @ @ @ @ @ @ @%&'()*+,-./012345 6!7"8#$%&'()*+, - . / 0 123456789:;<=>?@ABC D!"#$%&'() * + , - ./01                          !"#$% & ' ( ) *+,-./012345678 !"#$% & ' ( ) *+,-./0123456789:;< =!>"?#@$A%B&C'D(E)F*G+H,I-J.K/L0M1N2OPQRSTUVWX Y Z [ \ ]^_`abcdefghijklmno LVAL<x 2 >  $<TnnCount(Switch(([QRY_SummaryDiabetes1]![bp_systolic]>130 Or [QRY_SummaryDiabetes1]![bp_diastolic]>85),1))Count(Switch([QRY_SummaryDiabetes1]![BMI]>=30,1))Count(Switch([QRY_SummaryDiabetes1]![BMI]>=25 And [QRY_SummaryDiabetes1]![BMI]<30,1))Count(Switch([QRY_SummaryDiabetes1]![BMI]<25,1))Sum(Switch(IsNumeric([QRY_SummaryDiabetes1]![BMI]),1))Count(Switch([QRY_SummaryDiabetes1]![homeless_yes]="Y",1))Count(Switch([QRY_SummaryDiabetes1]![migrant_yes]="Y",1))Count(Switch([QRY_SummaryDiabetes1]![Diabetes_Type]="Type 2",1))Count(Switch([QRY_SummaryDiabetes1]![Diabetes_Type]="Type 1",1))Count(Switch([QRY_SummaryDiabetes1]![Diabetes_Type]="Unknown" Or [QRY_SummaryDiabetes1]![Diabetes_Type] Is Null,1))Sum(IIf([QRY_SummaryDiabetes1]![insurance_coded]="0",1,0))Sum(IIf([QRY_SummaryDiabetes1]![insurance_coded]="4",1,0))Sum(IIf([QRY_SummaryDiabetes1]![insurance_coded]="1",1,0))Sum(IIf([QRY_SummaryDiabetes1]![insurance_coded]="3",1,0))Sum(IIf([QRY_SummaryDiabetes1]![insurance_coded]="2",1,0))Sum(IIf([QRY_SummaryDiabetes1]![insurance_coded]<>"4",1,0))Count(Switch([QRY_SummaryDiabetes1]![ethnicity]<>"White" And [QRY_SummaryDiabetes1]![ethnicity]<>"Black" And [QRY_SummaryDiabetes1]![ethnicity]<>"Am Indian" And [QRY_SummaryDiabetes1]![ethnicity]<>"Asian" And [QRY_SummaryDiabetes1]![ethnicity]<>"Hispanic" Or [QRY_SummaryDiabetes1]![ethnicity] Is Null Or [QRY_SummaryDiabetes1]![ethnicity]="",1))Count(Switch([QRY_SummaryDiabetes1]![ethnicity]="Hispanic",1))Count(Switch([QRY_SummaryDiabetes1]![ethnicity]="Asian",1))Count(Switch([QRY_SummaryDiabetes1]![ethnicity]="Am Indian",1))Count(Switch([QRY_SummaryDiabetes1]![ethnicity]="Black",1))Sum(IIf([QRY_SummaryDiabetes1]![ethnicity]="White" Or [QRY_SummaryDiabetes1]![ethnicity]="Russian",1,0))Count(Switch([QRY_SummaryDiabetes1].[Age]>=55,1))Count(Switch([QRY_SummaryDiabetes1].[Age]>=45,1))Count(Switch([QRY_SummaryDiabetes1].[Age]>=65,1))Count(Switch([QRY_SummaryDiabetes1].[Age]>=60,1))43j~, J  H  x 2 f T  blvp.<VpVNEducation_dental^@=11 oMEducation_selfmanagement_goalx@WKK oLEducation_flu_vaccinationp@OCC oKEducation_pneumonia_vaccination|@[OO oJEducation_retinal_examj@I== oIEducation_nutritiond@C77 oHEducation_dmV@5)) oGHealth_selfmonitor_bg@G;; oFHealth_retinopathy~@A55 oEHealth_peripheral|@?33 oDHealth_neuropathy|@?33 oCHealth_nephropathy~@A55 oBHealth_hypertension@C77 oAHealth_hyperlipidemia@G;; o@Health_heartr@5)) o?Health_cerebrovascular@I== o>Medication_lipid_lowerv@I== o=Medication_ace_inhibitor@MAA o140 Or [QRY_SummaryDiabetes1]![bp_diastolic]>90),1))Count(Switch(([QRY_SummaryDiabetes1]![bp_systolic]>135 Or [QRY_SummaryDiabetes1]![bp_diastolic]>85),1))LVAL"T : b b > \ 0PZDRAvg(IIf(IsNumeric([ast]),CSng([ast]),Null))Count(Switch(nz([QRY_SummaryDiabetes1]![ast_done],0)=-1,1))Count(Switch([QRY_SummaryDiabetes1]![AST_done] Is Not Null,1))Avg(IIf(IsNumeric([alt]),CSng([alt]),Null))Count(Switch(nz([QRY_SummaryDiabetes1]![alt_done],0)=-1,1))Count(Switch([QRY_SummaryDiabetes1]![ALT_done] Is Not Null,1))Count(Switch(nz([QRY_SummaryDiabetes1]![crea],0)>2.5,1))Count(Switch(nz([QRY_SummaryDiabetes1]![crea],99) Between 1.5 And 2.5,1))Count(Switch(nz([QRY_SummaryDiabetes1]![crea],99)<1.5,1))Avg(IIf(IsNumeric([crea]),CSng([crea]),Null))Count(Switch(nz([QRY_SummaryDiabetes1]![crea_done],0)=-1,1))Count(Switch([QRY_SummaryDiabetes1]![crea_done] Is Not Null,1))Count(Switch(nz([QRY_SummaryDiabetes1]![alcr],0)>30,1))Count(Switch(nz([QRY_SummaryDiabetes1]![alcr],99)<=30,1))Avg(IIf(IsNumeric([alcr]),CSng([alcr]),Null))Count(Switch(nz([QRY_SummaryDiabetes1]![alcr_done],0)=-1,1))Count(Switch([QRY_SummaryDiabetes1]![alcr_done] Is Not Null,1))Count(Switch([QRY_SummaryDiabetes1]![DateDiff90]>=1,1))Count(Switch(nz([QRY_SummaryDiabetes1]![ha1c],99)<8,1))Count(Switch(nz([QRY_SummaryDiabetes1]![ha1c],0)>=9.5,1))Count(Switch(nz([QRY_SummaryDiabetes1]![ha1c],0)>=10,1))Count(Switch(nz([QRY_SummaryDiabetes1]![ha1c],99) Between 9 And 9.999,1))Count(Switch(nz([QRY_SummaryDiabetes1]![ha1c],99) Between 8 And 8.999,1))Count(Switch(nz([QRY_SummaryDiabetes1]![ha1c],99) Between 7 And 7.999,1))Count(Switch(nz([QRY_SummaryDiabetes1]![ha1c],99)<7,1))Count(Switch([QRY_SummaryDiabetes1]![ha1c_done] Is Not Null,1))Avg(IIf(IsNumeric([ha1c]),CSng([ha1c]),Null))Count(QRY_SummaryDiabetes1.Coll2003_smker)Count(QRY_SummaryDiabetes1.Smke_cess_ref_dec_done)Count([QRY_SummaryDiabetes1]![exercises_current])Count([QRY_SummaryDiabetes1]![edu_foot_check_date])Count([QRY_SummaryDiabetes1]![edu_dental_date])Count([QRY_SummaryDiabetes1]![edu_selfmanagement_goal_date])Count([QRY_SummaryDiabetes1]![edu_flu_vaccination_date]) 1^^  f  p  t 6 v  > N2l2\NRj(XzTest_LDL_100_to_129@C77 o~Test_LDL_100Underr@?33 o}Test_LDL_AvgV@5)) o|Test_LDL_numericH@ =11 o{Test_LDL|@ -!! ozTest_HDL_35_Undern@ ?33 oyTest_HDL_AvgV@ 5)) oxTest_HDL_numericH@ =11 owTest_HDL|@-!! ovTest_Triglyceride_200_AndOverp@WKK ouTest_Triglyceride_AvgZ@G;; otTest_Triglyceride_numericJ@OCC osTest_Triglyceride~@?33 orTest_Cholesterol_200_AndOverr@UII oqTest_Cholesterol_AvgZ@E99 opTest_Cholesterol_numericJ@MAA ooTest_Cholesterol~@=11 onTest_AST_AvgV@!5)) omTest_AST_numericv@ =11 olTest_AST|@-!! okTest_ALT_AvgV@5)) ojTest_ALT_numericv@=11 oiTest_ALT|@-!! ohTest_Creatinine_2pt5_Overp@OCC ogTest_Creatinine_1pt5_To_2pt5@UII ofTest_Creatinine_1pt5_Underr@QEE oeTest_Creatinine_AvgZ@C77 odTest_Creatinine_numericx@K?? ocTest_Creatinine~@;// obTest_MicroAl-Creatinine_30_Overn@[OO oaTest_MicroAl-Creatinine_30_AndUnderr@cWW o`Test_MicroAl-Creatinine_AvgZ@SGG o_Test_MicroAl-Creatinine_numericx@[OO o^Test_MicroAl-Creatinine~@K?? o]DateDiff90n@1%% o\Test_HbA1C_Under_8rn@C77 o[Test_HbA1C_9pt5_AndOverr@K?? oZTest_HbA1C_10_AndOverp@ G;; oYTest_HbA1C_9_To_9pt9@ E99 oXTest_HbA1C_8_To_8pt9@ E99 oWTest_HbA1C_7_To_7pt9@ E99 oVTest_HbA1C_7_Undern@ A55 oUTest_HbA1c_numericCount(Switch(Len([ha1c]),1))_55 oTTest_HbA1C~@1%% oSTest_HbA1c_AvgZ@9-- oRColl2003_smkerT@9-- oQColl2003_smoke_cessation_ref_dec_doned@g[[ oPEducation_exercisesb@C77 oOEducation_foot_checkf@E99 oLVAL"8l J ^  R 8 . L\L ~|Count(Switch([QRY_SummaryDiabetes1].[sex]='U' Or [QRY_SummaryDiabetes1].[sex] Is Null,1))Count(Switch([QRY_SummaryDiabetes1].[sex]="M",1))Count(Switch([QRY_SummaryDiabetes1].[sex]="F",1))Count(Switch([QRY_SummaryDiabetes1].[CountOfVisits]>=6,1))Count(Switch([QRY_SummaryDiabetes1].[CountOfVisits] Between 3 And 5,1))Count(Switch([QRY_SummaryDiabetes1].[CountOfVisits] Between 1 And 2,1))Count(Switch([QRY_SummaryDiabetes1].[CountOfVisits] Is Null,1))Avg(QRY_SummaryDiabetes1.CountOfVisits)(((Activeclinic([tblDemo]![clinic_code]))=True) AND ((Activeperiod([tblDemo].[start_date],Nz([tblDemo].[end_date],Date())))=True))tblDemo.chart_number = QRY_SummaryDiabetes1.chart_numbertblDemo.clinic_code = QRY_SummaryDiabetes1.clinic_codeAvg(IIf(IsNumeric([24up]),CSng([24up]),Null))Count(Switch(nz([24up_done],0)=-1,1))Count(Switch([QRY_SummaryDiabetes1]![24up_done] Is Not Null,1))Count(Switch(nz([QRY_SummaryDiabetes1]![LDL],999)<100,1))Count(Switch(nz([QRY_SummaryDiabetes1]![LDL],999)<130,1))Count(Switch(nz([QRY_SummaryDiabetes1]![LDL],0)>=130,1))Count(Switch(nz([QRY_SummaryDiabetes1]![LDL],999) Between 100 And 129.99,1))Count(Switch(nz([QRY_SummaryDiabetes1]![LDL],999)<100,1))Avg(IIf(IsNumeric([ldl]),CSng([ldl]),Null))Count(Switch(nz([ldl_done],0)=-1,1))Count(Switch([QRY_SummaryDiabetes1]![LDL_done] Is Not Null,1))Count(Switch(nz([QRY_SummaryDiabetes1]![HDL],99)<35,1))Avg(IIf(IsNumeric([hdl]),CSng([hdl]),Null))Count(Switch(nz([hdl_done],0)=-1,1))Count(Switch([QRY_SummaryDiabetes1]![HDL_done] Is Not Null,1))Count(Switch(nz([QRY_SummaryDiabetes1]![Trig],0)>200,1))Avg(IIf(IsNumeric([trig]),CSng([trig]),Null))Count(Switch(nz([trig_done],0)=-1,1))Count(Switch([QRY_SummaryDiabetes1]![Trig_done] Is Not Null,1))Count(Switch(nz([QRY_SummaryDiabetes1]![Chol],0)>=200,1))Avg(IIf(IsNumeric([chol]),CSng([chol]),Null))Count(Switch(nz([chol_done],0)=-1,1))Count(Switch([QRY_SummaryDiabetes1]![Chol_done] Is Not Null,1)) @ @ @ @ @ @ @ @ @ @ @ @ @ @$% & ' ( ) *+,-./012345678 !"#$% & ' ( ) *+,-./0123456789:;< =!>"?#@$A%B&C'D(E)F*G+H,I-J.K/L0M1N2OPQRSTUVWX Y Z [ \ ]^_`abcdefghijklmno p!q"r#s$t%u&v'w(x)y*z+{,|-}.~/0               !"#$%&'()*+,-./01 2!3"4#5$6%7&8'()*+,-./0 1 2 3 4 56789:;<=>?@ABCDEFG 29bh R ( h J ,  ~ A $ > P:t2b@bv$B&Diabetes_Type_2@;// o%Diabetes_Type_1@;// o$Diabetes_Type_Unknown@G;; o#Insurance_nonet@9-- o"Insurance_othert@;// o!Insurance_commercialt@E99 o Insurance_medicaret@A55 oInsurance_medicaidt@A55 oInsurance_specifiedv@C77 oEthnicity_Other@;// oEthnicity_Hispanic|@A55 oEthnicity_Asianv@ ;// oEthnicity_AmIndian~@ A55 oEthnicity_Blackv@ ;// oEthnicity_White@ ;// oAge_55AndOverb@ 7++ oAge_45AndOverb@7++ oAge_65_AndOverb@9-- oAge_60_AndOverb@9-- oAge_50_To_59~@5)) oAge_40_To_49~@5)) oAge_30_To_39~@5)) oAge_15_To_29~@5)) oAge_14_AndUnderb@;// oAge_Unknownj@3'' o Gender_Unspecified@!A55 o Gender_Maleb@ 3'' o Gender_Femaleb@7++ o Patient_Visit_6_AndOvert@K?? o Patient_Visit_3_To_5@E99 oPatient_Visit_1_To_2@E99 oPatient_Visit_0~@;// oPatient_Visit_AvgN@?33 oPatient_CountCount(tblDemo.Patient_ID)R++ oTestsNull- oVisitsNull/ oDemographicsNull;)) opcp tblDemo.pcp0 oQRY_SummaryDiabetes1999 tblDemo  G G  G Null# g Null# g Null# g Null# g@ 'tblDemoQRY_SummaryDiabetes1p@SG tblDemoQRY_SummaryDiabetes1l@SG Test_Urine_Protein_AvgZ@I== oTest_Urine_Protein_numericJ@QEE oTest_Urine_Protein~@A55 oTest_LDL_Under_100r@A55 oTest_LDL_130Underr@?33 oTest_LDL_130_AndOverp@E99 oLVAL48 < x  n z J`x*8Count(Switch([QRY_SummaryDiabetes1]![migrant_yes]="Y",1))Count(Switch([QRY_SummaryDiabetes1]![Diabetes_Type]="Type 2",1))Count(Switch([QRY_SummaryDiabetes1]![Diabetes_Type]="Type 1",1))Count(Switch([QRY_SummaryDiabetes1]![Diabetes_Type]="Unknown" Or [QRY_SummaryDiabetes1]![Diabetes_Type] Is Null,1))Sum(IIf([QRY_SummaryDiabetes1]![insurance_coded]="0",1,0))Sum(IIf([QRY_SummaryDiabetes1]![insurance_coded]="5",1,0))Sum(IIf([QRY_SummaryDiabetes1]![insurance_coded]="1",1,0))Sum(IIf([QRY_SummaryDiabetes1]![insurance_coded]="3",1,0))Sum(IIf([QRY_SummaryDiabetes1]![insurance_coded]="2",1,0))Sum(IIf([QRY_SummaryDiabetes1]![insurance_coded]<>"4",1,0))Count(Switch([QRY_SummaryDiabetes1]![ethnicity]<>"White" And [QRY_SummaryDiabetes1]![ethnicity]<>"Black" And [QRY_SummaryDiabetes1]![ethnicity]<>"Am Indian" And [QRY_SummaryDiabetes1]![ethnicity]<>"Asian" And [QRY_SummaryDiabetes1]![ethnicity]<>"Hispanic" Or [QRY_SummaryDiabetes1]![ethnicity] Is Null Or [QRY_SummaryDiabetes1]![ethnicity]="",1))Count(Switch([QRY_SummaryDiabetes1]![ethnicity]="Hispanic",1))Count(Switch([QRY_SummaryDiabetes1]![ethnicity]="Asian",1))Count(Switch([QRY_SummaryDiabetes1]![ethnicity]="Am Indian",1))Count(Switch([QRY_SummaryDiabetes1]![ethnicity]="Black",1))Sum(IIf([QRY_SummaryDiabetes1]![ethnicity]="White" Or [QRY_SummaryDiabetes1]![ethnicity]="Russian",1,0))Count(Switch([QRY_SummaryDiabetes1].[Age]>=55,1))Count(Switch([QRY_SummaryDiabetes1].[Age]>=45,1))Count(Switch([QRY_SummaryDiabetes1].[Age]>=65,1))Count(Switch([QRY_SummaryDiabetes1].[Age]>=60,1))Count(Switch([QRY_SummaryDiabetes1].[Age] Between 50 And 59,1))Count(Switch([QRY_SummaryDiabetes1].[Age] Between 40 And 49,1))Count(Switch([QRY_SummaryDiabetes1].[Age] Between 30 And 39,1))Count(Switch([QRY_SummaryDiabetes1].[Age] Between 15 And 29,1))Count(Switch([QRY_SummaryDiabetes1].[Age]<=14,1))Count(Switch([QRY_SummaryDiabetes1].[Age] Is Null,1))>2Hx4 f N T Z b t 6H`8LLTXTest_HbA1C_8_To_8pt9@E99 oWTest_HbA1C_7_To_7pt9@E99 oVTest_HbA1C_7_Undern@A55 oUTest_HbA1c_numericCount(Switch(Len([ha1c]),1))_55 oTTest_HbA1C~@1%% oSTest_HbA1c_AvgZ@9-- oRColl2003_smkerT@ 9-- oQColl2003_smoke_cessation_ref_dec_doned@ g[[ oPEducation_exercisesb@ C77 oOEducation_foot_checkf@ E99 oNEducation_dental^@ =11 oMEducation_selfmanagement_goalx@WKK oLEducation_flu_vaccinationp@OCC oKEducation_pneumonia_vaccination|@[OO oJEducation_retinal_examj@I== oIEducation_nutritiond@C77 oHEducation_dmV@5)) oGHealth_selfmonitor_bg@G;; oFHealth_retinopathy~@A55 oEHealth_peripheral|@?33 oDHealth_neuropathy|@?33 oCHealth_nephropathy~@A55 oBHealth_hypertension@C77 oAHealth_hyperlipidemia@G;; o@Health_heartr@5)) o?Health_cerebrovascular@I== o>Medication_lipid_lowerv@I== o=Medication_ace_inhibitor@MAA o140 Or [QRY_SummaryDiabetes1]![bp_diastolic]>90),1))Count(Switch(([QRY_SummaryDiabetes1]![bp_systolic]>135 Or [QRY_SummaryDiabetes1]![bp_diastolic]>85),1))Count(Switch(([QRY_SummaryDiabetes1]![bp_systolic]>130 Or [QRY_SummaryDiabetes1]![bp_diastolic]>85),1))Count(Switch([QRY_SummaryDiabetes1]![BMI]>=30,1))Count(Switch([QRY_SummaryDiabetes1]![BMI]>=25 And [QRY_SummaryDiabetes1]![BMI]<30,1))Count(Switch([QRY_SummaryDiabetes1]![BMI]<25,1))Sum(Switch(IsNumeric([QRY_SummaryDiabetes1]![BMI]),1))Count(Switch([QRY_SummaryDiabetes1]![homeless_yes]="Y",1))LVAL", ^ r 6 p  D D >bl2<pCount(Switch(nz([QRY_SummaryDiabetes1]![crea],99) Between 1.5 And 2.5,1))Count(Switch(nz([QRY_SummaryDiabetes1]![crea],99)<1.5,1))Avg(IIf(IsNumeric([crea]),CSng([crea]),Null))Count(Switch(nz([QRY_SummaryDiabetes1]![crea_done],0)=-1,1))Count(Switch([QRY_SummaryDiabetes1]![crea_done] Is Not Null,1))Count(Switch(nz([QRY_SummaryDiabetes1]![alcr],0)>30,1))Count(Switch(nz([QRY_SummaryDiabetes1]![alcr],99)<=30,1))Avg(IIf(IsNumeric([alcr]),CSng([alcr]),Null))Count(Switch(nz([QRY_SummaryDiabetes1]![alcr_done],0)=-1,1))Count(Switch([QRY_SummaryDiabetes1]![alcr_done] Is Not Null,1))Count(Switch([QRY_SummaryDiabetes1]![DateDiff90]>=1,1))Count(Switch(nz([QRY_SummaryDiabetes1]![ha1c],99)<8,1))Count(Switch(nz([QRY_SummaryDiabetes1]![ha1c],0)>=9.5,1))Count(Switch(nz([QRY_SummaryDiabetes1]![ha1c],0)>=10,1))Count(Switch(nz([QRY_SummaryDiabetes1]![ha1c],99) Between 9 And 9.999,1))Count(Switch(nz([QRY_SummaryDiabetes1]![ha1c],99) Between 8 And 8.999,1))Count(Switch(nz([QRY_SummaryDiabetes1]![ha1c],99) Between 7 And 7.999,1))Count(Switch(nz([QRY_SummaryDiabetes1]![ha1c],99)<7,1))Count(Switch([QRY_SummaryDiabetes1]![ha1c_done] Is Not Null,1))Avg(IIf(IsNumeric([ha1c]),CSng([ha1c]),Null))Count(QRY_SummaryDiabetes1.Coll2003_smker)Count(QRY_SummaryDiabetes1.Smke_cess_ref_dec_done)Count([QRY_SummaryDiabetes1]![exercises_current])Count([QRY_SummaryDiabetes1]![edu_foot_check_date])Count([QRY_SummaryDiabetes1]![edu_dental_date])Count([QRY_SummaryDiabetes1]![edu_selfmanagement_goal_date])Count([QRY_SummaryDiabetes1]![edu_flu_vaccination_date])Count([QRY_SummaryDiabetes1]![edu_pneumonia_vaccination_date])Count([QRY_SummaryDiabetes1]![edu_retinal_exam_date])Count([QRY_SummaryDiabetes1]![edu_nutrition_date])Count([QRY_SummaryDiabetes1]![edu_dm_date])Count(Switch([QRY_SummaryDiabetes1]![hlth_selfmonitor_bg]=True,1))Count(Switch([QRY_SummaryDiabetes1]![hlth_retinopathy]=True,1))Count(Switch([QRY_SummaryDiabetes1]![hlth_peripheral]=True,1)) @ @ @ @ @ @ @ @ @ @ @ @ @ @q"r#s$t%u&v'w(x)y*z+{,|-}.~/0               !"#$%&'()*+,-./01 2!3"4#5$6%7&8'()*+,-./0 1 2 3 4 56789:;<=>?@ABCDEFG H!I"J#K$L%M&N'O(P)Q*R+S,T-U.V/W0X1YZ[\]^_`ab c d e f ghijklmnopqrstuvwxy z!{"|#}$~%&'()*+,-./ 0 1             !"#$%&2Zt T | 4 . p 6 p & @@,fTf~ j y Null# g  tblDemo.pcp* g@  'tblDemoQRY_SummaryDiabetes1p@SG tblDemoQRY_SummaryDiabetes1l@SG Test_Urine_Protein_AvgZ@I== oTest_Urine_Protein_numericJ@QEE oTest_Urine_Protein~@A55 oTest_LDL_Under_100r@A55 oTest_LDL_130Underr@?33 oTest_LDL_130_AndOverp@E99 oTest_LDL_100_to_129@C77 o~Test_LDL_100Underr@?33 o}Test_LDL_AvgV@5)) o|Test_LDL_numericH@=11 o{Test_LDL|@-!! ozTest_HDL_35_Undern@?33 oyTest_HDL_AvgV@5)) oxTest_HDL_numericH@=11 owTest_HDL|@-!! ovTest_Triglyceride_200_AndOverp@WKK ouTest_Triglyceride_AvgZ@ G;; otTest_Triglyceride_numericJ@ OCC osTest_Triglyceride~@ ?33 orTest_Cholesterol_200_AndOverr@ UII oqTest_Cholesterol_AvgZ@ E99 opTest_Cholesterol_numericJ@MAA ooTest_Cholesterol~@=11 onTest_AST_AvgV@5)) omTest_AST_numericv@=11 olTest_AST|@-!! okTest_ALT_AvgV@5)) ojTest_ALT_numericv@=11 oiTest_ALT|@-!! ohTest_Creatinine_2pt5_Overp@OCC ogTest_Creatinine_1pt5_To_2pt5@!UII ofTest_Creatinine_1pt5_Underr@ QEE oeTest_Creatinine_AvgZ@C77 odTest_Creatinine_numericx@K?? ocTest_Creatinine~@;// obTest_MicroAl-Creatinine_30_Overn@[OO oaTest_MicroAl-Creatinine_30_AndUnderr@cWW o`Test_MicroAl-Creatinine_AvgZ@SGG o_Test_MicroAl-Creatinine_numericx@[OO o^Test_MicroAl-Creatinine~@K?? o]DateDiff90n@1%% o\Test_HbA1C_Under_8rn@C77 o[Test_HbA1C_9pt5_AndOverr@K?? oZTest_HbA1C_10_AndOverp@G;; oYTest_HbA1C_9_To_9pt9@E99 olLVAL"H V 8 l J ^  R8.L\LDateDiff("yyyy",[dob],[forms]![frmReports]![txtEndDate])+Int(Format([Forms]![frmReports]![txtEndDate],'mmdd')<Format([tblDemo].[dob],'mmdd'))(((Activeclinic([tblDemo]![clinic_code]))=True) AND ((Activeperiod([tblDemo].[start_date],Nz([tblDemo].[end_date],Date())))=True))tblDemo.chart_number = QRY_SummaryDiabetes1.chart_numbertblDemo.clinic_code = QRY_SummaryDiabetes1.clinic_codeAvg(IIf(IsNumeric([24up]),CSng([24up]),Null))Count(Switch(nz([24up_done],0)=-1,1))Count(Switch([QRY_SummaryDiabetes1]![24up_done] Is Not Null,1))Count(Switch(nz([QRY_SummaryDiabetes1]![LDL],999)<100,1))Count(Switch(nz([QRY_SummaryDiabetes1]![LDL],999)<130,1))Count(Switch(nz([QRY_SummaryDiabetes1]![LDL],0)>=130,1))Count(Switch(nz([QRY_SummaryDiabetes1]![LDL],999) Between 100 And 129.99,1))Count(Switch(nz([QRY_SummaryDiabetes1]![LDL],999)<100,1))Avg(IIf(IsNumeric([ldl]),CSng([ldl]),Null))Count(Switch(nz([ldl_done],0)=-1,1))Count(Switch([QRY_SummaryDiabetes1]![LDL_done] Is Not Null,1))Count(Switch(nz([QRY_SummaryDiabetes1]![HDL],99)<35,1))Avg(IIf(IsNumeric([hdl]),CSng([hdl]),Null))Count(Switch(nz([hdl_done],0)=-1,1))Count(Switch([QRY_SummaryDiabetes1]![HDL_done] Is Not Null,1))Count(Switch(nz([QRY_SummaryDiabetes1]![Trig],0)>200,1))Avg(IIf(IsNumeric([trig]),CSng([trig]),Null))Count(Switch(nz([trig_done],0)=-1,1))Count(Switch([QRY_SummaryDiabetes1]![Trig_done] Is Not Null,1))Count(Switch(nz([QRY_SummaryDiabetes1]![Chol],0)>=200,1))Avg(IIf(IsNumeric([chol]),CSng([chol]),Null))Count(Switch(nz([chol_done],0)=-1,1))Count(Switch([QRY_SummaryDiabetes1]![Chol_done] Is Not Null,1))Avg(IIf(IsNumeric([ast]),CSng([ast]),Null))Count(Switch(nz([QRY_SummaryDiabetes1]![ast_done],0)=-1,1))Count(Switch([QRY_SummaryDiabetes1]![AST_done] Is Not Null,1))Avg(IIf(IsNumeric([alt]),CSng([alt]),Null))Count(Switch(nz([QRY_SummaryDiabetes1]![alt_done],0)=-1,1))Count(Switch([QRY_SummaryDiabetes1]![ALT_done] Is Not Null,1))Count(Switch(nz([QRY_SummaryDiabetes1]![crea],0)>2.5,1))EdF(c# K q S 5 v 6 t 2 r 2 t2v6t2V8v7y;o1y: Gresult_numeric@9-- otblLab.status_flag1 gtblLab.service_date2 gresult_any`@1%% otblLab.raw_code. gtblLab.chart_number2 gtblLab.clinic_code1 gtblLab  G G  G@ 'tblLab.status_flag1 gtblLab.service_date2 gresult_number@7++ otblLab.raw_code. gtblLab.chart_number2 gtblLab.clinic_code1 gtblLab  G G  GtblDemoqryMaxLabandResultInPeriod2~@aU tblDemoqryMaxLabandResultInPeriod2z@aU 24up_numericN@5)) o24up_resultF@3'' otrig_numericN@5)) otrig_resultF@3'' oldl_numericL@3'' oldl_resultD@1%% ohdl_numericL@3'' ohdl_resultD@1%% ochol_numericN@5)) o chol_resultF@ 3'' o alt_numericZ@ 3'' o alt_resultR@ 1%% o ast_numericZ@ 3'' o ast_resultR@ 1%% oalcr_numericN@5)) oalcr_resultF@3'' ocrea_numericN@5)) ocrea_resultF@3'' oHa1c_numericN@5)) oHa1c_resultF@3'' otblDemo.chart_number3 gtblDemo.clinic_code2 gtblDemo qryMaxLabandResultInPeriod2GGG  G G  G@ 'tblDemoqryMaxServiceDateAtEndOfPeriod@g[ tblDemoqryMaxServiceDateAtEndOfPeriod@g[ age65_AndOver_with_pneumo_vax@!WKK otblDemo.chart_number3 gtblDemo.clinic_code2 gqryMaxServiceDateAtEndOfPeriodMMM tblDemo  G G  G Null# g Null# gLVALT  z , F @ h  FdlVZtblHealth.raw_code In ("cvd","heart","htn","hyperlipidemia","nephropathy","neuropathy","pvd","retinopathy","self_monitors_bg")Trim((Switch(Left([result],1)="<" And IsNumeric(Mid([result],2,20)),Mid([result],2,20),Left([result],1)=">" And IsNumeric(Mid([result],2,20)),Mid([result],2,20),1=1,[result])))(((CSng(Switch(CVar(IsNumeric([result]))=True,[result],Left([result],1)="<" And IsNumeric(Mid([result],2,20)),Mid([result],2,20),Left([result],1)=">" And IsNumeric(Mid([result],2,20)),Mid([result],2,20),Not IsNumeric([result]),99999)))<>99999))CSng(Switch(CVar(IsNumeric([result]))=True,[result],Left([result],1)="<" And IsNumeric(Mid([result],2,20)),Mid([result],2,20),Left([result],1)=">" And IsNumeric(Mid([result],2,20)),Mid([result],2,20),Not IsNumeric([result]),99999))tblDemo.chart_number = qryMaxLabandResultInPeriod2.chart_numbertblDemo.clinic_code = qryMaxLabandResultInPeriod2.clinic_codeIIf([raw_code]='24up',[result_numeric])IIf([raw_code]="24up",[result_any])IIf([raw_code]='trig',[result_numeric])IIf([raw_code]='trig',[result_any])IIf([raw_code]='ldl',[result_numeric])IIf([raw_code]='ldl',[result_any])IIf([raw_code]='hdl',[result_numeric])IIf([raw_code]="hdl",[result_any])IIf([raw_code]='chol',[result_numeric])IIf([raw_code]='chol',[result_any])IIf([raw_code]='alt (sglt)',[result_numeric])IIf([raw_code]='alt (sglt)',[result_any])IIf([raw_code]='ast (sgot)',[result_numeric])IIf([raw_code]='ast (sgot)',[result_any])IIf([raw_code]='alcr',[result_numeric])IIf([raw_code]='alcr',[result_any])IIf([raw_code]='crea',[result_numeric])IIf([raw_code]="crea",[result_any])IIf([raw_code]='ha1c',[result_numeric])IIf([raw_code]='ha1c',[result_any])(((qryMaxServiceDateAtEndOfPeriod.[pne vac]) Is Not Null) AND ((DateDiff("yyyy",[dob],[forms]![frmReports]![txtEndDate])+Int(Format([Forms]![frmReports]![txtEndDate],'mmdd')<Format([tblDemo].[dob],'mmdd')))>=65))tblDemo.chart_number = qryMaxServiceDateAtEndOfPeriod.chart_numbertblDemo.clinic_code = qryMaxServiceDateAtEndOfPeriod.clinic_code @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @I"J#K$L%M&N'O(P)Q*R+S,T-U.V/W0X1YZ[\]^_`ab c d e f ghijklmnopqrstuvwxy z!{"|#}$~%&'()*+,-./ 0 1             !"#$%&'()*+,./01234567-8:;<=>?@ABC9D         !"#$%&'()*+,-.01234567 8 9 : ;/<>?@ABC     =ZLVALv,F f   2 L (j@ltblServices.raw_code In ("pne vac","smke ass","PHQ","New epi","curr func","mammogram","pap smear","MamAbnDx")(((Activeperiod([tblMed].[start_date],IIf(IsDate([tblMed].[end_date]),[tblMed].[end_date],Date())))=True))Last(IIf(Len([start_date] & ""),1,0))tblMed.raw_code In ("insulin","sulfonylurea","glucophage","glitazones","prandin","alpha_glucosidase_inhibitor","asa","ace","lipid_agent","BP_med","Anti depressant","anti psychotics","Benzodiazepines","Mood stabilizer","Othr MH","Stimulant")(((tblServices.raw_code)="mammogram") AND ((tblServices.service_date) Between DateAdd("yyyy",-2,(DateAdd("d",1,[Forms]![frmReports]![txtEndDate]))) And [Forms]![frmReports]![txtEndDate]) AND ((tblServices.status_flag)="n"))(((tblServices.service_date) Between DateAdd("yyyy",-2,(DateAdd("d",1,[Forms]![frmReports]![txtEndDate]))) And [Forms]![frmReports]![txtEndDate]) AND ((tblServices.status_flag)="c"))tblServices.raw_code In ("mammogram")(((qryLabs2.status_flag)="c") AND ((Activeperiod([qryLabs2].[service_date],[qryLabs2].[service_date]))=True))(((Activeperiod([qryLabs].[service_date],[qryLabs].[service_date]))=True))qryLabs2.raw_code = qryMaxLabDateInPeriod2.raw_codeqryLabs2.service_date = qryMaxLabDateInPeriod2.MaxOfservice_dateqryLabs2.chart_number = qryMaxLabDateInPeriod2.chart_numberqryLabs2.clinic_code = qryMaxLabDateInPeriod2.clinic_codeqryLabs.service_date = qryMaxLabDateInPeriod.MaxOfservice_dateqryLabs.status_flag = qryMaxLabDateInPeriod.status_flagqryLabs.raw_code = qryMaxLabDateInPeriod.raw_codeqryLabs.chart_number = qryMaxLabDateInPeriod.chart_numberqryLabs.clinic_code = qryMaxLabDateInPeriod.clinic_code(((Activeperiod([tblHealth].[start_date],IIf(IsDate([tblHealth].[end_date]),[tblHealth].[end_date],Date())))=True))Last(IIf(Len([start_date] & ""),1,0))IIf(IsNumeric((Switch(Left([result],1)="<" And IsNumeric(Mid([result],2,20)),Mid([result],2,20),Left([result],1)=">" And IsNumeric(Mid([result],2,20)),Mid([result],2,20),1=1,[result]))),True,False)Dv5i( l N 0  } =  A }  W 9  g'j)@tj+FL g'qryLabs2.raw_code0 gqryLabs2.chart_number4 gqryLabs2.clinic_code3 gqryLabs2!!!  G G  G qryLabs.status_flag2 g qryLabs.raw_code/ g qryLabs.chart_number3 g qryLabs.clinic_code2 gqryLabs.status_flag2 gMaxOfservice_date1Max(qryLabs.service_date)\55 oqryLabs.raw_code/ gqryLabs.chart_number3 gqryLabs.clinic_code2 gqryLabs  G G  GqryLabs2qryMaxLabDateInPeriod2f@ YM! qryLabs2qryMaxLabDateInPeriod2@ YM! qryLabs2qryMaxLabDateInPeriod2v@ YM! qryLabs2qryMaxLabDateInPeriod2r@YM! qryLabs2.result_numeric6 gqryLabs2.status_flag3 gqryLabs2.service_date4 gqryLabs2.result_any2 gqryLabs2.raw_code0 gqryLabs2.chart_number4 gqryLabs2.clinic_code3 gqryLabs2!!! qryMaxLabDateInPeriod2===  G G  GqryLabsqryMaxLabDateInPeriod|@UI qryLabsqryMaxLabDateInPeriodn@UI qryLabsqryMaxLabDateInPeriodb@UI qryLabsqryMaxLabDateInPeriodr@UI qryLabsqryMaxLabDateInPeriodn@UI qryLabs.status_flag2 gqryLabs.service_date3 gqryLabs.result_number4 gqryLabs.raw_code/ gqryLabs.chart_number3 gqryLabs.clinic_code2 gqryMaxLabDateInPeriod;;; qryLabs  G G  G tblHealth.raw_code1 g tblHealth.chart_number5 g tblHealth.clinic_code4 g@ 'resultJ@) o@ gtblHealth.chart_number5 gtblHealth.clinic_code4 gtblHealth###  G G 3HVU x Z . s d $ m O 1  E s2}ICR4c~;UxN tblMed.chart_number2 g tblMed.clinic_code1 g@ 'resultJ@) o@ gtblMed.chart_number2 gtblMed.clinic_code1 gtblMed  G G  G tblServices.chart_number7 g tblServices.clinic_code6 g@ 'mammogram_inappropriateMax(tblServices.service_date)j?? otblServices.chart_number7 gtblServices.clinic_code6 gtblServices'''  G G  G tblServices.raw_code3 g tblServices.chart_number7 g tblServices.clinic_code6 gl@ 'resultMax(tblServices.service_date)H oJ@ gtblServices.chart_number7 gtblServices.clinic_code6 gtblServices'''  G G  G qryLabs2.raw_code0 g qryLabs2.chart_number4 g qryLabs2.clinic_code3 g@  'MaxOfservice_dateMax(qryLabs2.service_date)[33 oqryLabs2.raw_code0 gqryLabs2.chart_number4 gqryLabs2.clinic_code3 gqryLabs2!!!  G G  G qryLabs.status_flag2 g qryLabs.raw_code/ g qryLabs.chart_number3 g qryLabs.clinic_code2 g@  'qryLabs.status_flag2 gMaxOfservice_dateMax(qryLabs.service_date)Z33 oqryLabs.raw_code/ gqryLabs.chart_number3 gqryLabs.clinic_code2 gqryLabs  G G  G qryLabs2.result_numeric6 g qryLabs2.clinic_code3 g qryLabs2.status_flag3 g qryLabs2.raw_code0 g qryLabs2.chart_number4 gqryLabs2.result_numeric6 gqryLabs2.status_flag3 gMaxOfservice_date1Max(qryLabs2.service_date)]55 o @ @ @ @ @ @ @ @ @ @ @ @ @ @           ! " #$&'()*+,- . / 0%13456789 : ;2<>?@ABCDE F G =           !" # $ %&()*+,-./0 1 2 3 4'5789:;<=>?@ A B C D E6FHIJ   G   !"#$%&'()+,-./0123456*79:;<=>?@A8KkM' v X :  C  W  y [ ' v ! p0M j+Fa!;N M/tblHealth###  G G  G qryLabs2.result_numeric6 g qryLabs2.status_flag3 g qryLabs2.raw_code0 g qryLabs2.chart_number4 g qryLabs2.clinic_code3 g@ 'qryLabs2.result_numeric6 gqryLabs2.status_flag3 gMinOfservice_dateMin(qryLabs2.service_date)[33 oqryLabs2.raw_code0 gqryLabs2.chart_number4 gqryLabs2.clinic_code3 gqryLabs2!!!  G G  G qryLabs.status_flag2 g qryLabs.raw_code/ g qryLabs.chart_number3 g qryLabs.clinic_code2 g@ 'qryLabs.status_flag2 gMinOfservice_dateMin(qryLabs.service_date)Z33 oqryLabs.raw_code/ gqryLabs.chart_number3 gqryLabs.clinic_code2 gqryLabs  G G  G tblServices.raw_code3 g tblServices.chart_number7 g tblServices.clinic_code6 g@ 'resultMax(tblServices.service_date)H o@ gtblServices.chart_number7 gtblServices.clinic_code6 gtblServices'''  G G  G tblServices.raw_code3 g tblServices.chart_number7 g tblServices.clinic_code6 g@ 'resultMax(tblServices.service_date)H o@ gtblServices.chart_number7 gtblServices.clinic_code6 gtblServices'''  G G  G tblServices.chart_number7 g tblServices.clinic_code6 g@ 'pap_inappropriateMax(tblServices.service_date)^33 otblServices.chart_number7 gtblServices.clinic_code6 gtblServices'''  G G  G tblMed.raw_code. gLVALB   b  8j .JtblDemo.chart_number = qsmOralAntiCoagEndOfPeriod.chart_numbertblDemo.chart_number = qsmASAEndOfPeriod.chart_numbertblDemo.chart_number = qsmClopidogrelEndOfPeriod.chart_numbertblDemo.clinic_code = qsmOralAntiCoagEndOfPeriod.clinic_codetblDemo.clinic_code = qsmASAEndOfPeriod.clinic_codetblDemo.clinic_code = qsmClopidogrelEndOfPeriod.clinic_codeIIf(IsDate([qsmClopidogrelEndOfPeriod]![start_date]) Or IsDate([qsmASAEndOfPeriod]![start_date]) Or IsDate([qsmOralAntiCoagEndOfPeriod]![start_date]),True)(((tblMed.raw_code)="Anti Depressant") AND (([tblMed]![start_date])<=[Forms]![frmReports]![txtEndDate]) AND ((Len([end_date])=0 Or CDate([tblMed]![end_date])>[Forms]![frmReports]![txtEndDate])=True) AND ((qsmAntidepressant1.depressed)=True))qsmAntidepressant1.chart_number = tblMed.chart_numberqsmAntidepressant1.clinic_code = tblMed.clinic_code(((activeClinic([tblHealth]![clinic_code]))=True))tblHealth.chart_number = qsmMajorDepresn.chart_numbertblHealth.clinic_code = qsmMajorDepresn.clinic_codetblHealth.chart_number = qsmDysthymia.chart_numbertblHealth.clinic_code = qsmDysthymia.clinic_codeIIf([qsmDysthymia]![start_date] Or [qsmMajorDepresn]![start_date],True)(((Activeperiod([qryLabs2].[service_date],[qryLabs2].[service_date]))=True))(((Activeperiod([qryLabs].[service_date],[qryLabs].[service_date]))=True))(((Activeperiod([tblServices].[service_date],[tblServices].[service_date]))=True) AND ((tblServices.status_flag)="c"))tblServices.raw_code In ("dm educ","nuteduc","retinal ex","exer ass","pne vac","flu vac","dental","sm goal","foot chk","breast exam","pap smear","in-house cnsl","mh hosp","MH Ref","Psychiatric consult","sm goal -depres")(((tblServices.service_date)<=[Forms]![FrmReports]![txtEndDate]))(((tblServices.raw_code)="pap smear") AND ((tblServices.service_date) Between DateAdd("yyyy",-1,(DateAdd("d",1,[Forms]![frmReports]![txtEndDate]))) And [Forms]![frmReports]![txtEndDate]) AND ((tblServices.status_flag)="n"))%(($N ,  L 2 l  I 5G7mECB 88ve~_R@Gh@qsmQOC_NoSMGoal_InPeriod4@G@Fj^^RRRRRRRP @,@L]n7@qsmQOC_NoRetinal_InPeriod4@ C@Fl``TTTTTTTR @~@0@qsmQOC_NoFoot_InPeriod4Ή@ C@FfZZNNNNNNNL @&Tv:@Ei@qsmQOC_M_Waist40orLess4@ C@EfZZNNNNNNNL @<5@(7@qsmQOC_HTN_Stage24@ C@E\PPDDDDDDDB @l@nHQ@qsmQOC_HTN_Stage14@C@E\PPDDDDDDDB @&*4@e@qsmQOC_F_WaistOver354@C@DbVVJJJJJJJH @+>@9"g@qsmQOC_F_Waist35orLess4@C@DfZZNNNNNNNL @u?٤@#N"@qsmPVacOver65Ever4e@C@D\PPDDDDDDDB @&񓸋٤@ʹ٤@qsmPHQ2a4@C>>>22222220 @񓸋٤@񓸋٤@qsmPHQ24@C<<<0000000. @٤@٤@qsmPHQ14]@C<<<0000000. @٤@٤@qsmPapLast36Female18andOver4B@ A@@@pddXXXXXXXV @m赋٤@m赋٤@qsmOralAntiCoagEndOfPeriod4@ A@@@nbbVVVVVVVT @s٤@m赋٤@qsmMamLast30Female40andOver4H@ A@@pddXXXXXXXV @&<٤@<٤@qsmMamAbnDx4@A@@@PDD88888886 @ȱ٤@ȱ٤@qsmMajorDepresn4@ALLL@@@@@@@> @A@C#@qsmFOBTLast1yr_Over504@A`@@dXXLLLLLLLJ @ȱ٤@ȱ٤@qsmFemale40AndOver4H@A@0^RRFFFFFFFD @&e٤@e٤@qsmDysthymia4@AFFF:::::::8 @٤@٤@qsmDepressionTx14@ANNNBBBBBBB@ @٤@٤@qsmCurrFunc34@AFFF:::::::8 @孋٤@孋٤@qsmCurrFunc24@ ;FFF:::::::8 @ q٤@孋٤@qsmCurrFunc4X@ ;DDD88888886 @ q٤@ej@qsmColorectalScrn5or10yr4@ ;@@j^^RRRRRRRP @&ũ٤@\:٤@qsmColonoscopyLast10yr_Over504B@;@@@thh\\\\\\\Z @ũ٤@ũ٤@qsmClopidogrelEndOfPeriod4@;```TTTTTTTR @؎٤@؎٤@qsmASAEndOfPeriod4@;PPPDDDDDDDB @٤@٤@qsmAntiplateletEndOfPeriod4;@;@4nbbVVVVVVVT @&T㥋٤@T㥋٤@qsmAntidepressant14@;RRRFFFFFFFD @n٤@n٤@qryMinLabDateInPeriod24Μ@;ZZZNNNNNNNL @n٤@n٤@qryMinLabDateInPeriod4Z@<XXXLLLLLLLJ @7٤@7٤@qryMaxServiceDateInPeriod4΄@ >```TTTTTTTR @%BM F D f H  _ D  P Ui9sU7f&v2jL w<tblMed.start_date0 gclopidogrel_eop@;// otblMed.raw_code. gtblDemo.chart_number3 gtblDemo.clinic_code2 gtblMed tblDemo  G G  G@ 'tblDemotblMedT@7+ tblDemotblMedP@7+ tblMed.start_date0 gasa_eop@+ otblMed.raw_code. gtblDemo.chart_number3 gtblDemo.clinic_code2 gtblMed tblDemo  G G  GtblDemoqsmOralAntiCoagEndOfPeriod|@_S tblDemoqsmASAEndOfPeriodj@MA tblDemoqsmClopidogrelEndOfPeriodz@]Q tblDemoqsmOralAntiCoagEndOfPeriodx@_S tblDemoqsmASAEndOfPeriodf@MA tblDemoqsmClopidogrelEndOfPeriodv@]Q antiplatelet6@5)) otblDemo.chart_number3 gtblDemo.clinic_code2 gtblDemo qsmASAEndOfPeriod333 qsmClopidogrelEndOfPeriodCCC qsmOralAntiCoagEndOfPeriodEEE  G G  G@ 'qsmAntidepressant1tblMedj@ MA5 qsmAntidepressant1tblMedf@ MA5 antidepressant!IIf([tblMed]![start_date],True)Z-- otblMed.chart_number2 gtblMed.clinic_code1 gtblMed qsmAntidepressant1555  G G  Gd@  'tblHealthqsmMajorDepresnj@ MA# tblHealthqsmMajorDepresnf@ MA# tblHealthqsmDysthymiad@G;# tblHealthqsmDysthymia`@G;# qsmMajorDepresn.start_date9 gqsmDysthymia.start_date6 gdepressed@/## otblHealth.chart_number5 gtblHealth.clinic_code4 gqsmMajorDepresn/// qsmDysthymia))) LVALx(D l  x 4 |*|j&tblDemo.clinic_code = qsmSigmoidoscopyLast5yr_Over50.clinic_codeIIf([colon10yr] Or [sigmoid5yr],True)qActiveServicesLatest2.chart_numberqActiveServicesLatest2.clinic_code(((Activeperiod([service_date],[service_date]))=True) AND ((DateDiff("yyyy",[dob],[forms]![frmReports]![txtEndDate])+Int(Format([Forms]![frmReports]![txtEndDate],'mmdd')<Format([tblDemo].[dob],'mmdd')))>50))qActiveServicesLatest2.chart_number = tblDemo.chart_numberqActiveServicesLatest2.clinic_code = tblDemo.clinic_codeMin(IIf([raw_code]="sigmoidoscopy" Or [raw_code]="colonoscopy" Or [raw_code]="fobt",True))qActiveServicesLatest2.chart_numberqActiveServicesLatest2.clinic_code(((tblServices.service_date)<=[Forms]![frmReports]![txtEndDate]) AND ((DateDiff("yyyy",[dob],[forms]![frmReports]![txtEndDate])+Int(Format([Forms]![frmReports]![txtEndDate],'mmdd')<Format([tblDemo].[dob],'mmdd')))>50) AND ((tblServices.raw_code)="colonoscopy") AND ((tblServices.status_flag)="c"))tblDemo.chart_number = tblServices.chart_numbertblDemo.clinic_code = tblServices.clinic_codeIIf(DateDiff("yyyy",[service_date],[forms]![frmReports]![txtEndDate])+Int(Format([Forms]![frmReports]![txtEndDate],'mmdd')<Format([service_date],'mmdd'))<=9,True)(((tblMed.raw_code)="clopidogrel") AND ((IIf(IsDate([tblMed]![end_date])>0,CDate([tblMed]![end_date]),Date()))>=[Forms]![frmReports]![txtEndDate]) AND ((tblMed.start_date)<=[Forms]![frmReports]![txtEndDate]))tblDemo.chart_number = tblMed.chart_numbertblDemo.clinic_code = tblMed.clinic_codeIIf(IsDate([tblMed]![end_date])>0,CDate([tblMed]![end_date]),Date())(((tblMed.raw_code)="asa") AND ((IIf(IsDate([tblMed]![end_date])>0,CDate([tblMed]![end_date]),Date()))>=[Forms]![frmReports]![txtEndDate]) AND ((tblMed.start_date)<=[Forms]![frmReports]![txtEndDate]))tblDemo.chart_number = tblMed.chart_numbertblDemo.clinic_code = tblMed.clinic_codeIIf(IsDate([tblMed]![end_date])>0,CDate([tblMed]![end_date]),Date()) ExN0v3 o ! m O 1 g + c 9  m A Pb| ^2a@z7uW9qsmPHQ1 tblServices''' qsmCurrFunc'''  G G  G [tblServices]![result]5 g tblServices.chart_number7 g tblServices.clinic_code6 g@ 'tblServicesqsmPHQ1b@A5' tblServicesqsmPHQ1Z@A5' tblServicesqsmPHQ1^@A5' new_epi_currfunc_score[tblServices]![result]a== ocurrfunc_date!Max([qsmPHQ1]![newEpi_PHQdate])X++ onew_epi-currfuncX@=11 otblServices.chart_number7 gtblServices.clinic_code6 gqsmPHQ1 tblServices'''  G G  GtblDemoqsmColonoscopyLast10yr_Over50@eY tblDemoqsmSigmoidoscopyLast5yr_Over50@g[ tblDemoqsmColonoscopyLast10yr_Over50~@eY tblDemoqsmSigmoidoscopyLast5yr_Over50@g[ coloscrnJ@-!! otblDemo.chart_number3 gtblDemo.clinic_code2 gqsmColonoscopyLast10yr_Over50KKK qsmSigmoidoscopyLast5yr_Over50MMM tblDemo  G G  G F@ g D@ g@ 'qActiveServicesLatest2tblDemot@WK= qActiveServicesLatest2tblDemop@WK= coloscrn1@/## oF@  gD@  gtblDemo qActiveServicesLatest2===  G G  GR@  'tblDemotblServices^@ A5 tblDemotblServicesZ@ A5 tblServices.service_date7 gcolon10yrD@/## otblServices.chart_number7 gtblServices.clinic_code6 gtblDemo tblServices'''  G G  G@ 'tblDemotblMedT@7+ tblDemotblMedP@7+  @ @ @ @ @ @ @ @ @ @ @ @ @ @+,-./0 1 2 3 4'5789:;<=>?@ A B C D E6FHIJ   G   !"#$%&'()+,-./0123456*79:;<=>?@A8        !"#$%&'()*+,./0123456789: ; < =->@ABCD  ?    !"#$% & '(*+)LVAL|$ l h t  T T"bp(((tblHealth.raw_code)="Dysthymia") AND ((tblHealth.start_date)<=DateAdd('d',-182,[Forms]![frmReports]![txtEndDate])) AND ((IsDate([end_date]))=False) AND ((activeclinic([tblHealth]![clinic_code]))=True))(((tblServices.service_date) Between [Forms]![frmReports]![txtEndDate] And DateAdd("d",-730,[Forms]![frmReports]![txtEnddate])) AND ((tblServices.raw_code)="new epi") AND ((CInt([result]))>=10) AND ((activeclinic([tblservices]![clinic_code]))=True))(((tblServices.raw_code)="curr func"))tblServices.service_date = qsmCurrFunc2.last_currfunc_datetblServices.chart_number = qsmCurrFunc2.chart_numbertblServices.clinic_code = qsmCurrFunc2.clinic_codeqsmCurrFunc.chart_number = tblServices.chart_numberqsmCurrFunc.clinic_code = tblServices.clinic_codeIIf([qsmCurrFunc2]![currfunction] And [tblServices]![result]<[qsmCurrFunc]![new_epi_currfunc_score],True)tblServices.chart_number = qryMaxServiceDateAtEndOfPeriod.chart_numbertblServices.clinic_code = qryMaxServiceDateAtEndOfPeriod.clinic_codeqsmPHQ1.chart_number = tblServices.chart_numberqsmPHQ1.clinic_code = tblServices.clinic_codeqsmCurrFunc.chart_number = tblServices.chart_numberqsmCurrFunc.clinic_code = tblServices.clinic_code[qryMaxServiceDateAtEndOfPeriod]![curr func]IIf([qsmCurrFunc]![new_epi-currfunc] And [qryMaxServiceDateAtEndOfPeriod]![curr func]<>[qsmCurrFunc]![currfunc_date],True)(((tblServices.raw_code)="curr func") AND ((tblServices.status_flag)="c" Or (tblServices.status_flag)="d" Or (tblServices.status_flag)="r") AND ((tblServices.result)<>"0" And (tblServices.result) Is Not Null))tblServices.service_date = qsmPHQ1.newEpi_PHQdatetblServices.clinic_code = qsmPHQ1.clinic_codetblServices.chart_number = qsmPHQ1.chart_numberLast(IIf([tblServices]![service_date],True))tblDemo.chart_number = qsmColonoscopyLast10yr_Over50.chart_numbertblDemo.chart_number = qsmSigmoidoscopyLast5yr_Over50.chart_numbertblDemo.clinic_code = qsmColonoscopyLast10yr_Over50.clinic_codeFc9 G O 1  o 9 r 0 , |R4cj@}_APnB_A#|<  G`@ 'female406@-!! otblDemo.chart_number3 gtblDemo.clinic_code2 gtblDemo  G G  G`@ 'female186@-!! otblDemo.chart_number3 gtblDemo.clinic_code2 gtblDemo  G G  G@ 'tblHealth.start_date3 gtblHealth.raw_code1 gtblHealth.chart_number5 gtblHealth.clinic_code4 gtblHealth###  G G  G tblServices.chart_number7 g tblServices.clinic_code6 g@ 'CSD24 Last(IIf([service_date],True))G oLastCSD_dateMax(tblServices.service_date)T)) otblServices.chart_number7 gtblServices.clinic_code6 gtblServices'''  G G  GL@ 'tblServicesqsmCurrFunc2t@K?' tblServicesqsmCurrFunc2h@K?' tblServicesqsmCurrFunc2d@K?' qsmCurrFunctblServicesf@I=' qsmCurrFunctblServicesb@I=' functiondrop@5)) otblServices.raw_code3 gtblServices.chart_number7 gtblServices.clinic_code6 gqsmCurrFunc2))) qsmCurrFunc''' tblServices'''  G G  GtblServicesqryMaxServiceDateAtEndOfPeriod@oc' tblServicesqryMaxServiceDateAtEndOfPeriod@oc' qsmPHQ1tblServices^@ A5 qsmPHQ1tblServicesZ@ A5 qsmCurrFunctblServicesf@ I=' qsmCurrFunctblServicesb@ I=' last_currfunc_dateX@ A55 ocurrfunction@5)) otblServices.chart_number7 gtblServices.clinic_code6 gqryMaxServiceDateAtEndOfPeriodMMM  @ @ @ @ @ @ @ @ @ @ @ @ @ @        !"#$%&'()*+,./0123456789: ; < =->@ABCD  ?    !"#$% & '(*+,-./01)2456789:3;=>?@ABC<DE     !"#$%&' (*+,-./0123456789):<=>?@A;     y@@@@    @  @ @ @hiv+bQumqYkYmOJmQxhiv+fWh+OJmQ+iQko^mxhiv+fWh+Sd^^dsofJSmQiYbOQuxhiv+fWh+YbOQu+OJmQxhiv+fWh+`Yb+`Ju+OJmQYbfQiYdOxhiv+fWhMkO+8km+Sd^^dsof+fWh+OJmQ#xhiv+fWhMkO+8km+Sd^^dsof+qYkYm+OJmQ#xhiv+k`d\QikYbfQiYdOx hiv+k`d\Qik^JkmQqJ^x hiv+k`d\Qik^JkmQqJ^OJmQx hiv+koLkmJLokQYbfQiYdOx hiv+ko``JivJfWk8x hiv+ko``JivJfWk:xhiv+ko``JivOQfiQkkYdb8xhiv+ko``JivOQfiQkkYdb:xhiv+ko``JivOQfiQkkYdb:+fMfxhiv+ko``JivOYJLQmQk8xhiv+ko``JivOYJLQmQk:xhiv+ko``JivOYJLQmQk:+fMfxhivJUQ+B@+JbOdqQisYmW+fbQo`d+qJuxhivOYJLQmQk^JLkYbfQiYdOxhiv^JLkxhiv^JLk:xhiv`JuWQJ^mWOJmQYbfQiYdOxhiv`Ju^JLJbOiQko^mYbfQiYdOxhiv`Ju^JLJbOiQko^mYbfQiYdO:xhiv`Ju^JLOJmQxhiv`Ju^JLOJmQ:xhiv`Ju^JLOJmQYbfQiYdOxhiv`Ju^JLOJmQYbfQiYdO:xhiv`Ju`J``dUiJ`^Jkm+:vQJikx hiv`Ju`J``dUiJ`^Jkm+:vQJik+YbJffidfiYJmQx!hiv`Ju`QOOJmQYbfQiYdOx"hiv`JufJf^JkmvQJi+YbJffidfiYJmQx#hiv`JukQiqYMQOJmQJmQbOdSfQiYdOx$hiv`JukQiqYMQOJmQYbfQiYdOhiv`Yb^JLOJmQYbfQiYdOhiv`Yb^JLOJmQYbfQiYdO:hk`JbmYOQfiQkkJbm8hk`JbmYOQfiQkkJbm:hk`JbmYf^JmQ^QmQbOdSfQiYdOhk`JkJQbOdSfQiYdOhk`M^dfYOdUiQ^QbOdSfQiYdOhk`Md^dbdkMdfv^Jkm86vi+dqQi@6hk`Md^diQMmJ^kMib8vi hk`Md^diQMmJ^kMib@di86vi hk`MoiiSobM hk`MoiiSobM: hk`MoiiSobM< hk`OQfiQkkYdbmu8hk`OvkmWv`YJhk`SQ`J^Q8FJbOdqQihk`SQ`J^Q>6JbOdqQihk`SdLm^Jkm8vi+dqQi@6hk``J[diOQfiQkbhk``J`JLbOuhk``J`JLb^Jkm<6SQ`J^Q>6JbOdqQihk``J`^Jkm<6SQ`J^Q>6JbOdqQihk`diJ^JbmYMdJUQbOdSfQiYdOhk`fJf^Jkmhk`fqJMdqQiB@QqQihk`hdM+S+sJYkm<@di^Qkkhk`hdM+S+sJYkmdqQi<@hk`hdM+Wmb+fiQWmb hk`hdM+Wmb+kmJUQ8!hk`hdM+Wmb+kmJUQ:"hk`hdM+`+sJYkm>6di^Qkk#hk`hdM+`+sJYkmdqQi>6$hk`hdM+bdSddm+YbfQiYdO%hk`hdM+bdiQmYbJ^+YbfQiYdO&hk`hdM+bdk`UdJ^+YbfQiYdO'hk`hdM+bdmdLJMMdJk`m+YbfQiYdOhk`hdM+kQiqYMQk+YbfQiYdOhk`hdM+qYkYmbdLf+YbfQiYdOhk`hdM+qYkYmbdSddm+YbfQiYdOhk`hdM+qYkYmbdiQmYbJ^+YbfQiYdOhk`hdM+qYkYmbdk`UdJ^+YbfQiYdOhk`hdM+qYkYmbdmdLJMMdJk`m+YbfQiYdOhk`hdM+qYkYmbdsJYkmMYiMo`+YbfQiYdOhk`hdM+sJYkmMYiMo`+YbfQiYdOhk`iudifkvMW hk`kYU`dYOdkMdfv^Jkm@vi+dqQi@6 hk`k`d\QJk`mMoiiQbmQqQi8 hk`k`d\QJk`mMoiiQbmQqQi: hk`k`d\QMQkkJmYdbdSSQiQOYbfQiYdO8 hko``Jiv8hko``Jiv8Jhko``Jiv:hobOof^YMJmQOOuMidkksJ^\hobOof^YMJmQO^JLMidkksJ^\hobOof^YMJmQOfMfhobOof^YMJmQOiuMidkksJ^\hobOof^YMJmQOkQiqYMQMidkksJ^\mL^Mokmd`mL^OQ`dmL^WQJ^mWmL^^JLmL^`QOmL^hoQiYQkmL^iQfdimkmL^iQfdimkOJmJmL^iQfdimkkfQMYJ^mL^iQfdimkmQ`fmL^kQiqYMQk mL^qYkYmk!m^\fMYmv"m^\fM^YbYM#JMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQOLVALj4 ( dVplXqryMaxServiceDateAtEndOfPeriod.mammogram = tblServices.service_dateqryMaxServiceDateAtEndOfPeriod.chart_number = tblServices.chart_numberqryMaxServiceDateAtEndOfPeriod.clinic_code = tblServices.clinic_codetblDemo.chart_number = qryMaxServiceDateAtEndOfPeriod.chart_numbertblDemo.clinic_code = qryMaxServiceDateAtEndOfPeriod.clinic_codeqsmMamLast30Female40andOver.mam_dateqsmMamLast30Female40andOver.chart_numberqsmMamLast30Female40andOver.clinic_codeqryMaxServiceDateAtEndOfPeriod.chart_number = qsmMamAbnLast30Female40andOver.chart_numberqryMaxServiceDateAtEndOfPeriod.clinic_code = qsmMamAbnLast30Female40andOver.clinic_codeIIf(DateDiff("d",[mam_date],[mamabndx]<60),True)qryMaxServiceDateAtEndOfPeriod.MamAbnDxqryMaxServiceDateAtEndOfPeriod.chart_numberqryMaxServiceDateAtEndOfPeriod.clinic_code(((tblHealth.raw_code)="Major depresn") AND ((tblHealth.start_date)<=[Forms]![frmReports]![txtEndDate]) AND ((IsDate([end_date]))=False) AND ((activeclinic([tblHealth]![clinic_code]))=True))(((tblServices.service_date)<=[Forms]![frmReports]![txtEndDate]) AND ((DateDiff("yyyy",[dob],[forms]![frmReports]![txtEndDate])+Int(Format([Forms]![frmReports]![txtEndDate],'mmdd')<Format([tblDemo].[dob],'mmdd')))>50) AND ((tblServices.raw_code)="FOBT") AND ((tblServices.status_flag)="c"))tblDemo.clinic_code = tblServices.clinic_codetblDemo.chart_number = tblServices.chart_numberIIf(DateDiff("yyyy",[service_date],[forms]![frmReports]![txtEndDate])+Int(Format([Forms]![frmReports]![txtEndDate],'mmdd')<Format([service_date],'mmdd'))=0,True,False)(((tblDemo.sex)="F") AND ((IsDate([dob]))=True))IIf(DateDiff("yyyy",[dob],[forms]![frmReports]![txtEndDate])+Int(Format([Forms]![frmReports]![txtEndDate],'mmdd')<Format([tblDemo].[dob],'mmdd'))>=41,True)(((tblDemo.sex)="F") AND ((IsDate([dob]))=True))IIf(DateDiff("yyyy",[dob],[forms]![frmReports]![txtEndDate])+Int(Format([Forms]![frmReports]![txtEndDate],'mmdd')<Format([tblDemo].[dob],'mmdd'))>=19,True)4B]O } _ / n .  2 Z $ hc9aB%5=oEtblDemo.chart_number3 gtblDemo.clinic_code2 gtblMed tblDemo  G G  G@ 'qryMaxServiceDateAtEndOfPeriodtblServices@ocM qryMaxServiceDateAtEndOfPeriodtblServices@ocM qryMaxServiceDateAtEndOfPeriodtblServices@ocM tblDemoqryMaxServiceDateAtEndOfPeriod@g[ tblDemoqryMaxServiceDateAtEndOfPeriod@g[ mam_datetblServices.service_dateG!! omam30mIIf(IsDate([mammogram]),True)H otblServices.result1 gtblServices.chart_number7 gtblServices.clinic_code6 gqryMaxServiceDateAtEndOfPeriodMMM tblDemo tblServices'''  G G  GH@ gmam_abn30mIIf([result]="abnormal",True)P%% oP@ gN@ gqsmMamLast30Female40andOverGGG  G G  GqryMaxServiceDateAtEndOfPeriodqsmMamAbnLast30Female40andOver@M qryMaxServiceDateAtEndOfPeriodqsmMamAbnLast30Female40andOver@ M mam_dx`@ ) oN@  gV@  gT@  gqsmMamAbnLast30Female40andOverMMM qryMaxServiceDateAtEndOfPeriodMMM  G G  G|@ 'tblHealth.start_date3 gtblHealth.raw_code1 gtblHealth.chart_number5 gtblHealth.clinic_code4 gtblHealth###  G G  GD@ 'tblDemotblServicesZ@A5 tblDemotblServices^@A5 tblServices.service_date7 gfobt1yrN@+ otblServices.chart_number7 gtblServices.clinic_code6 gtblServices''' tblDemo LVALh < :"@pDateDiff("d",[qryMaxServiceDateAtEndOfPeriod]![PHQ],[Forms]![frmReports]![txtEndDate])[tblServices_1]![result]-[tblServices]![result]DateDiff("d",[qryMaxServiceDateAtEndOfPeriod_1]![New epi],[qryMaxServiceDateAtEndOfPeriod]![PHQ])[qryMaxServiceDateAtEndOfPeriod_1]![New epi]Switch(IsNumeric([tblServices_1]![result]) And CInt([tblServices_1]![result])>=10,True)qryMaxServiceDateAtEndOfPeriod.chart_numberqryMaxServiceDateAtEndOfPeriod.clinic_code(((DateDiff("yyyy",[dob],[forms]![frmReports]![txtEndDate])+Int(Format([Forms]![frmReports]![txtEndDate],'mmdd')<Format([tblDemo].[dob],'mmdd')))>=19) AND ((tblDemo.sex)="f"))qryMaxServiceDateAtEndOfPeriod.chart_number = tblDemo.chart_numberqryMaxServiceDateAtEndOfPeriod.clinic_code = tblDemo.clinic_codeMin(IIf(DateDiff("yyyy",[pap smear],[forms]![frmReports]![txtEndDate])+Int(Format([Forms]![frmReports]![txtEndDate],'mmdd')<Format([pap smear],'mmdd'))<=2,True))qryMaxServiceDateAtEndOfPeriod.chart_numberqryMaxServiceDateAtEndOfPeriod.clinic_code(((tblMed.raw_code)="oral anticoag") AND ((IIf(IsDate([tblMed]![end_date])>0,CDate([tblMed]![end_date]),Date()))>=[Forms]![frmReports]![txtEndDate]) AND ((tblMed.start_date)<=[Forms]![frmReports]![txtEndDate]) AND ((ActiveClinic([tblDemo].[clinic_code]))=True) AND ((Activeperiod([tblDemo].[start_date],Nz([tblDemo].[end_date],Date())))=True))tblDemo.chart_number = tblMed.chart_numbertblDemo.clinic_code = tblMed.clinic_codeIIf(IsDate([tblMed]![end_date])>0,CDate([tblMed]![end_date]),Date())(((DateDiff("m",[service_date],[Forms]![frmReports]![txtEndDate])+Int(DatePart("d",[Forms]![frmReports]![txtEndDate])<DatePart("d",[service_date])))<=29) AND ((DateDiff("yyyy",[dob],[forms]![frmReports]![txtEndDate])+Int(Format([Forms]![frmReports]![txtEndDate],'mmdd')<Format([tblDemo].[dob],'mmdd')))>=41) AND ((tblDemo.sex)="F") AND ((tblServices.raw_code)="mammogram") AND ((tblServices.status_flag)="c") AND ((ActiveClinic([tblDemo].[clinic_code]))=True)):9FvX: l B $ j L .  t M 5a#ke9qsmPHQ1.chart_number3 gqsmPHQ1.clinic_code2 gqsmPHQ1  G G  G`@  ' qryMaxServiceDateAtEndOfPeriod_1tblServices_1@ wkQ  qryMaxServiceDateAtEndOfPeriodtblServicesz@ ocM qryMaxServiceDateAtEndOfPeriodtblServices@ocM qryMaxServiceDateAtEndOfPeriodtblServices@ocM qryMaxServiceDateAtEndOfPeriod_1tblServices_1@wkQ qryMaxServiceDateAtEndOfPeriod_1tblServices_1@wkQ tblDemoqryMaxServiceDateAtEndOfPeriod_1@k_ tblDemoqryMaxServiceDateAtEndOfPeriod_1@k_ tblDemoqryMaxServiceDateAtEndOfPeriod@g[ tblDemoqryMaxServiceDateAtEndOfPeriod@g[  NewEpi_EOPgap@7++ o PHQ_EOPgap@1%% oNewEpi_PHQchange^@=11 oNewEpi_PHQgap@7++ onewEpi_PHQdateX@9-- onewEpi_PHQtblServices_1.resultG%% ocurrent_PHQtblServices.resultG'' oCSD@ # otblDemo.chart_number3 gtblDemo.clinic_code2 gtblServicestblServices_1AA' qryMaxServiceDateAtEndOfPeriodqryMaxServiceDateAtEndOfPeriod_1M qryMaxServiceDateAtEndOfPeriodMMM tblServices''' tblDemo  G G  G V@  g T@  g^@  'qryMaxServiceDateAtEndOfPeriodtblDemo@ g[M qryMaxServiceDateAtEndOfPeriodtblDemo@g[M pap2yrB@) oV@ gT@ gqryMaxServiceDateAtEndOfPeriodMMM tblDemo  G G  G@ 'tblDemotblMedT@7+ tblDemotblMedP@7+ tblMed.start_date0 ganticoag_eop@5)) otblMed.raw_code. g @ @ @ @ @ @ @ @ @ @ @ @ @ @-./01)2456789:3;=>?@ABC<DE     !"#$%&' (*+,-./0123456789):<=>?@A;        !"#$ % &'()*+,-. / 012456783      !"#$%&'()*+,./0123456789-:<=>;LVALHD 8   $X">\qActiveDemo.clinic_code = qActiveLabsLatest1.clinic_code(((qActiveDemo.sex)="F") AND ((qActiveLabsLatest1.raw_code)="WaistCircum") AND ((qActiveLabsLatest1.result)<=35))qActiveDemo.chart_number = qActiveLabsLatest1.chart_numberqActiveDemo.clinic_code = qActiveLabsLatest1.clinic_code(((Switch(IsNumeric(DateDiff("yyyy",[dob],[forms]![frmReports]![txtEndDate])+Int(Format([Forms]![frmReports]![txtEndDate],'mmdd')<Format([tblDemo].[dob],'mmdd')>=65)),True))=True))tblDemo.chart_number = qryMaxServiceDateAtEndOfPeriod.chart_numbertblDemo.clinic_code = qryMaxServiceDateAtEndOfPeriod.clinic_codeSwitch(IsNumeric(DateDiff("yyyy",[dob],[forms]![frmReports]![txtEndDate])+Int(Format([Forms]![frmReports]![txtEndDate],'mmdd')<Format([tblDemo].[dob],'mmdd')>=65)),True)IIf(IsDate([qryMaxServiceDateAtEndOfPeriod].[pne vac]),True)IIf(IsNumeric([newEpi_PHQgap]) And CInt([newEpi_PHQgap])>121 And [csd] And CInt([current_PHQ])<5,True)Switch(IsNumeric([PHQ_EOPgap]) And [PHQ_EOPgap]<183,True,IsNumeric([newepi_EOPgap]) And [newepi_EOPgap]<183,True)IIf([CSD] And (([newEpi_PHQ]-[newEpi_PHQchange])/[newEpi_PHQ])<=0.5,True)(((activeclinic([tblDemo]![clinic_code]))=True))qryMaxServiceDateAtEndOfPeriod_1.[New epi] = tblServices_1.service_dateqryMaxServiceDateAtEndOfPeriod.PHQ = tblServices.service_dateqryMaxServiceDateAtEndOfPeriod.chart_number = tblServices.chart_numberqryMaxServiceDateAtEndOfPeriod.clinic_code = tblServices.clinic_codeqryMaxServiceDateAtEndOfPeriod_1.chart_number = tblServices_1.chart_numberqryMaxServiceDateAtEndOfPeriod_1.clinic_code = tblServices_1.clinic_codetblDemo.chart_number = qryMaxServiceDateAtEndOfPeriod_1.chart_numbertblDemo.clinic_code = qryMaxServiceDateAtEndOfPeriod_1.clinic_codetblDemo.chart_number = qryMaxServiceDateAtEndOfPeriod.chart_numbertblDemo.clinic_code = qryMaxServiceDateAtEndOfPeriod.clinic_codeDateDiff("d",[qryMaxServiceDateAtEndOfPeriod_1]![new epi],[Forms]![frmReports]![txtEndDate])eFhJkM/ H f W ' ?  i ' euo;r7G}_An,QRY_Last_Visit_Date_InPeriodWithBPtblVisits@sgU tblVisits.bp_diastolic5 gtblVisits.bp_systolic4 g`@ gtblVisits.chart_number5 gtblVisits.clinic_code4 gtblVisits### QRY_Last_Visit_Date_InPeriodWithBPUUU  G G  G@ 'qActiveDemoqActiveLabsLatest1t@WK' qActiveDemoqActiveLabsLatest1p@WK' qActiveLabsLatest1.result8 gqActiveLabsLatest1.raw_code: gqActiveDemo.sex. gqActiveDemo.chart_number7 gqActiveDemo.clinic_code6 gqActiveLabsLatest1555 qActiveDemo'''  G G  G@ 'qActiveDemoqActiveLabsLatest1t@WK' qActiveDemoqActiveLabsLatest1p@WK' qActiveLabsLatest1.result8 gqActiveLabsLatest1.raw_code: gqActiveDemo.sex. gqActiveDemo.chart_number7 gqActiveDemo.clinic_code6 gqActiveLabsLatest1555 qActiveDemo'''  G G  Gh@ 'tblDemoqryMaxServiceDateAtEndOfPeriod@g[ tblDemoqryMaxServiceDateAtEndOfPeriod@g[ ageR@# opvax65x@) otblDemo.chart_number3 gtblDemo.clinic_code2 gqryMaxServiceDateAtEndOfPeriodMMM tblDemo  G G  GPHQretest5@1%% oqsmPHQ1.chart_number3 gqsmPHQ1.clinic_code2 gqsmPHQ1  G G  GPHQ6m@ ' oqsmPHQ1.chart_number3 gqsmPHQ1.clinic_code2 gqsmPHQ1  G G  GPHQdrop50p@ 1%% oLVALL 0 t  jH8L.JfqActiveDemo.clinic_code = qActiveLabsLatest1.clinic_code(((qActiveDemo.sex)="M") AND ((qActiveLabsLatest1.raw_code)="WaistCircum") AND ((qActiveLabsLatest1.result)<=40))qActiveDemo.chart_number = qActiveLabsLatest1.chart_numberqActiveDemo.clinic_code = qActiveLabsLatest1.clinic_codeQRY_Last_Visit_Date_InPeriodWithBP.LastVisitDate(((tblVisits.bp_systolic)>159)) OR (((tblVisits.bp_diastolic)>99))QRY_Last_Visit_Date_InPeriodWithBP.LastVisitDate = tblVisits.visit_dateQRY_Last_Visit_Date_InPeriodWithBP.chart_number = tblVisits.chart_numberQRY_Last_Visit_Date_InPeriodWithBP.clinic_code = tblVisits.clinic_codeQRY_Last_Visit_Date_InPeriodWithBP.LastVisitDate(((tblVisits.bp_systolic)<160) AND ((tblVisits.bp_diastolic)<100)) OR (((tblVisits.bp_systolic)<160) AND ((tblVisits.bp_diastolic)<100))QRY_Last_Visit_Date_InPeriodWithBP.LastVisitDate(((tblVisits.bp_systolic) Between 140 And 159)) OR (((tblVisits.bp_diastolic) Between 90 And 99))QRY_Last_Visit_Date_InPeriodWithBP.LastVisitDate = tblVisits.visit_dateQRY_Last_Visit_Date_InPeriodWithBP.chart_number = tblVisits.chart_numberQRY_Last_Visit_Date_InPeriodWithBP.clinic_code = tblVisits.clinic_codeQRY_Last_Visit_Date_InPeriodWithBP.LastVisitDate(((tblVisits.bp_systolic)<140) AND ((tblVisits.bp_diastolic)<90)) OR (((tblVisits.bp_systolic)<140) AND ((tblVisits.bp_diastolic)<90))QRY_Last_Visit_Date_InPeriodWithBP.LastVisitDate(((tblVisits.bp_systolic) Between 120 And 139)) OR (((tblVisits.bp_diastolic) Between 80 And 89))QRY_Last_Visit_Date_InPeriodWithBP.LastVisitDate = tblVisits.visit_dateQRY_Last_Visit_Date_InPeriodWithBP.chart_number = tblVisits.chart_numberQRY_Last_Visit_Date_InPeriodWithBP.clinic_code = tblVisits.clinic_codeQRY_Last_Visit_Date_InPeriodWithBP.LastVisitDate(((qActiveDemo.sex)="F") AND ((qActiveLabsLatest1.raw_code)="WaistCircum") AND ((qActiveLabsLatest1.result)>35))qActiveDemo.chart_number = qActiveLabsLatest1.chart_number @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @   !"#$ % &'()*+,-. / 012456783      !"#$%&'()*+,./0123456789-:<=>?@ABCDE          ;           ! "$%&'()*+,-./0 1 2 3 4 5#689:;<=7       ! " # $%>S) e #  l B  ? ?  h'b8^.@~~Tf$x6qActiveDemo.chart_number7 gqActiveDemo.clinic_code6 gqActiveLabsLatest1555 qActiveDemo'''  G G  G tblVisits.bp_diastolic5 g tblVisits.bp_systolic4 g `@ g tblVisits.chart_number5 g tblVisits.clinic_code4 g@ 'QRY_Last_Visit_Date_InPeriodWithBPtblVisits@sgU QRY_Last_Visit_Date_InPeriodWithBPtblVisits@sgU QRY_Last_Visit_Date_InPeriodWithBPtblVisits@sgU tblVisits.bp_diastolic5 gtblVisits.bp_systolic4 g`@ gtblVisits.chart_number5 gtblVisits.clinic_code4 gtblVisits### QRY_Last_Visit_Date_InPeriodWithBPUUU  G G  G @ ' tblVisits.bp_diastolic5 g tblVisits.bp_systolic4 g tblVisits.bp_diastolic5 g tblVisits.bp_systolic4 g `@ g tblVisits.chart_number5 g tblVisits.clinic_code4 g@  'QRY_Last_Visit_Date_InPeriodWithBPtblVisits@ sgU QRY_Last_Visit_Date_InPeriodWithBPtblVisits@ sgU QRY_Last_Visit_Date_InPeriodWithBPtblVisits@ sgU tblVisits.bp_diastolic5 gtblVisits.bp_systolic4 g`@  gtblVisits.chart_number5 gtblVisits.clinic_code4 gtblVisits### QRY_Last_Visit_Date_InPeriodWithBPUUU  G G  G  @ ' tblVisits.bp_diastolic5 g tblVisits.bp_systolic4 g tblVisits.bp_diastolic5 g tblVisits.bp_systolic4 g `@ g tblVisits.chart_number5 g tblVisits.clinic_code4 g@ 'QRY_Last_Visit_Date_InPeriodWithBPtblVisits@sgU QRY_Last_Visit_Date_InPeriodWithBPtblVisits@sgU E~9qG)  Y  P C  m  n D d:_A#e"Dg#MxNnD&qActiveDemo'''  G G  G`@ 'qActiveDemoqsmQOC_Services_InPeriod@cW' qActiveDemoqsmQOC_Services_InPeriod|@cW' D@ gqActiveDemo.chart_number7 gqActiveDemo.clinic_code6 gqsmQOC_Services_InPeriodAAA qActiveDemo'''  G G  G J@  g qActiveDemo.chart_number7 g qActiveDemo.clinic_code6 gf@  'qActiveDemoqsmQOC_Services_InPeriod@ cW' qActiveDemoqsmQOC_Services_InPeriod|@ cW' J@  gqActiveDemo.chart_number7 gqActiveDemo.clinic_code6 gqsmQOC_Services_InPeriodAAA qActiveDemo'''  G G  G N@ g F@ g qActiveDemo.chart_number7 g qActiveDemo.clinic_code6 g@ 'qActiveDemoqsmQOC_Services_InPeriod@cW' qActiveDemoqsmQOC_Services_InPeriod|@cW' N@ gF@ gqActiveDemo.chart_number7 gqActiveDemo.clinic_code6 gqsmQOC_Services_InPeriodAAA qActiveDemo'''  G G  G@ 'qActiveDemoqActiveLabsLatest1t@WK' qActiveDemoqActiveLabsLatest1p@WK' qActiveLabsLatest1.result8 gqActiveLabsLatest1.raw_code: gqActiveDemo.sex. gqActiveDemo.chart_number7 gqActiveDemo.clinic_code6 gqActiveLabsLatest1555 qActiveDemo'''  G G  G@ 'qActiveDemoqActiveLabsLatest1t@WK' qActiveDemoqActiveLabsLatest1p@WK' qActiveLabsLatest1.result8 gqActiveLabsLatest1.raw_code: gqActiveDemo.sex. gLVAL"f  J  l p |  ^|8$Dx4xQRY_LatestVisitDate.clinic_code = qsmQOC_NoFoot_InPeriod.clinic_codeQRY_Last_Visit_Date.LastVisitDate(((QRY_Last_Visit_Date_InPeriodWithBP.chart_number) Is Null))QRY_Last_Visit_Date.chart_number = QRY_Last_Visit_Date_InPeriodWithBP.chart_numberQRY_Last_Visit_Date.clinic_code = QRY_Last_Visit_Date_InPeriodWithBP.clinic_codeQRY_Last_Visit_Date.LastVisitDateqActiveServicesLatest2.chart_numberqActiveServicesLatest2.clinic_codeLast(Format([qActiveServicesLatest2].[service_date],'mm/dd/yy') & ' ( ' & qActiveServicesLatest2.result & ' )')qActiveServicesLatest2.raw_code In ('Foot chk','footrisk ass','Retinal Ex','SM Goal','Smke Ass','none')qActiveServicesLatest2.chart_numberqActiveServicesLatest2.clinic_code(((qsmQOC_Services_InPeriod.[Smke Ass]) Is Null))qActiveDemo.chart_number = qsmQOC_Services_InPeriod.chart_numberqActiveDemo.clinic_code = qsmQOC_Services_InPeriod.clinic_codeqsmQOC_Services_InPeriod.[Smke Ass](((qsmQOC_Services_InPeriod.[SM Goal]) Is Null))qActiveDemo.chart_number = qsmQOC_Services_InPeriod.chart_numberqActiveDemo.clinic_code = qsmQOC_Services_InPeriod.clinic_codeqsmQOC_Services_InPeriod.[SM Goal]qsmQOC_Services_InPeriod.[Retinal Ex](((qsmQOC_Services_InPeriod.[Retinal Ex]) Is Null))qActiveDemo.chart_number = qsmQOC_Services_InPeriod.chart_numberqActiveDemo.clinic_code = qsmQOC_Services_InPeriod.clinic_codeqsmQOC_Services_InPeriod.[Retinal Ex]qsmQOC_Services_InPeriod.[footrisk ass]qsmQOC_Services_InPeriod.[Foot chk](((qsmQOC_Services_InPeriod.[Foot chk]) Is Null) AND ((qsmQOC_Services_InPeriod.[footrisk ass]) Is Null))qActiveDemo.chart_number = qsmQOC_Services_InPeriod.chart_numberqActiveDemo.clinic_code = qsmQOC_Services_InPeriod.clinic_codeqsmQOC_Services_InPeriod.[footrisk ass]qsmQOC_Services_InPeriod.[Foot chk](((qActiveDemo.sex)="M") AND ((qActiveLabsLatest1.raw_code)="WaistCircum") AND ((qActiveLabsLatest1.result)>40))qActiveDemo.chart_number = qActiveLabsLatest1.chart_number @ @ @ @ @ @ @ @ @ @ @ @ @ @%'()*+,-./0 1 2 3&46789:;<=>?5@BCDA            !"$%&'()*+, - .#/123456789 : ;0<>?  =         !" # $%'()*+,-. / 0 1 2&356789:;<=>?4      !"#$%&'()*+, - . /0231P.o_ M=  z  K  l  SOHgggggggB>E||||xp`@yx~@yx~@TMP%#MAU@22222222222 ^^xx~@xx~@ tlkpCrosswalk4C:\CDEMS\cdem_dta.mdbtlkpCrosswalk@Yyyyy__<: Ejxx~@jxx~@ tlkpClinic4C:\CDEMS\cdem_dta.mdbtlkpClinicmmmmmmmYY64 ` xx~@` xx~@ tblVisits4C:\CDEMS\cdem_dta.mdbtblVisitsiiiiiiiWW42 Tvx~@Tvx~@ tblServices4C:\CDEMS\cdem_dta.mdbtblServicesqqqqqqq[[86 vx~@vx~@ tblMed4C:\CDEMS\cdem_dta.mdbtblMed]]]]]]]QQ., Gux~@Gux~@ tblHealth4C:\CDEMS\cdem_dta.mdbtblHealthiiiiiiiWW42 Gux~@Gux~@ tblDemo4C:\CDEMS\cdem_dta.mdbtblDemoaaaaaaaSS0. N?Ҥ@Lڤ@tlkpCity4Y@R>>>22222220 @FҤ@Lڤ@tblReportsTemp4 @RJJJ>>>>>>>< @&W~Ҥ@z~Ҥ@tblReportsData4@QJJJ>>>>>>>< @~Ҥ@ڤ@tblReports4` @PBBB66666664 @ɓ}Ҥ@Q @tblQueries4: @OBBB66666664 @ŋ٤@ŋ٤@qUnduplicatedServiceCrosswalk4@Mhhh\\\\\\\Z @xċ٤@xċ٤@qUnduplicatedRxCrosswalk4@M^^^RRRRRRRP @xċ٤@xċ٤@qUnduplicatedPCP4@MNNNBBBBBBB@ @BË٤@BË٤@qUnduplicatedLabCrosswalk4@M```TTTTTTTR @&Y@Y@qSummary24Z@M@@@44444442 @}٤@}٤@qSummary1a4Ν@MBBB66666664 @@@qSummary14Z@G@@@44444442 @!٤@!٤@qsmSmokeCessationOfferedInPeriod14@G@0|ppdddddddb @꽋٤@꽋٤@qsmSmokeAsmtCurrentEver24@ G@Lj^^RRRRRRRP @&v٤@꽋٤@qsmSmokeAsmtCurrentEver14@ G@Lj^^RRRRRRRP @&u?٤@u?٤@qsmRxOrPsych4@ GFFF:::::::8 @:@;18@qsmQOC_WaistCircum_InPeriod4@ G|@KpddXXXXXXXV @,@-DT@qsmQOC_VisitNoWaistCircum_InPeriod4@G@K~rrfffffffd @n@="@qsmQOC_VisitNoTobaccoAsmt_InPeriod4@G@K~rrfffffffd @b@?Zd@qsmQOC_VisitNoSMGoal_InPeriod4@G@Kthh\\\\\\\Z @&@G@qsmQOC_VisitNoFoot_InPeriod4@G@IpddXXXXXXXV @շ@@qsmQOC_VisitNoBP_InPeriod4@G@Il``TTTTTTTR @&@ml@qsmQOC_Services_InPeriod4@G|@Ij^^RRRRRRRP @BXy@.@qsmQOC_NoTobaccoAsmt_InPeriod4@G@Fthh\\\\\\\Z @@o+!  5 i ?  p R  a  W N~`;CdF( v+]f G G  G "QRY_LatestVisitDate.chart_number? g !QRY_LatestVisitDate.clinic_code> gh@ 'QRY_LatestVisitDateqsmQOC_NoRetinal_InPeriod@ui7 QRY_LatestVisitDateqsmQOC_NoRetinal_InPeriod@ui7 "QRY_LatestVisitDate.chart_number? g!QRY_LatestVisitDate.clinic_code> gQRY_LatestVisitDate777 qsmQOC_NoRetinal_InPeriodCCC  G G  G "QRY_LatestVisitDate.chart_number? g !QRY_LatestVisitDate.clinic_code> g@ 'QRY_LatestVisitDateqsmQOC_NoFoot_InPeriod@oc7 QRY_LatestVisitDateqsmQOC_NoFoot_InPeriod@!oc7 "QRY_LatestVisitDate.chart_number? g!QRY_LatestVisitDate.clinic_code> gQRY_LatestVisitDate777 qsmQOC_NoFoot_InPeriod===  G G  G B@  g "QRY_Last_Visit_Date.chart_number? g !QRY_Last_Visit_Date.clinic_code> gz@ 'QRY_Last_Visit_DateQRY_Last_Visit_Date_InPeriodWithBP@{7 QRY_Last_Visit_DateQRY_Last_Visit_Date_InPeriodWithBP@{7 B@ g"QRY_Last_Visit_Date.chart_number? g!QRY_Last_Visit_Date.clinic_code> gQRY_Last_Visit_Date_InPeriodWithBPUUU QRY_Last_Visit_Date777  G G  G !qActiveServicesLatest2.raw_code> g F@ g D@ gLastOfservice_date@A55 o@ gF@ gD@ gqActiveServicesLatest2===  G G  Gb@ 'qActiveDemoqsmQOC_Services_InPeriod@cW' qActiveDemoqsmQOC_Services_InPeriod|@cW' F@ gqActiveDemo.chart_number7 gqActiveDemo.clinic_code6 gqsmQOC_Services_InPeriodAAA LVAL t "  V & j B8,>FJtblDemo.chart_number = tblServices.chart_numbertblDemo.clinic_code = tblServices.clinic_codeIIf(DateDiff("yyyy",[service_date],[forms]![frmReports]![txtEndDate])+Int(Format([Forms]![frmReports]![txtEndDate],'mmdd')<Format([service_date],'mmdd'))<=4,True)(((tblServices.raw_code)="Psychiatric Consult"))qsmDepressionTx1.chart_number = tblServices.chart_numberqsmDepressionTx1.clinic_code = tblServices.clinic_codeIIf([service_date]<DateAdd("d",-31,[LastCSD_date]),True)qryMaxLabandResultInPeriod2.result_anyqryMaxLabandResultInPeriod2.service_dateqryMaxLabandResultInPeriod2.chart_numberqryMaxLabandResultInPeriod2.clinic_code(((qryMaxLabandResultInPeriod2.raw_code)="WaistCircum"))qryMaxLabandResultInPeriod2.result_anyqryMaxLabandResultInPeriod2.service_dateqryMaxLabandResultInPeriod2.chart_numberqryMaxLabandResultInPeriod2.clinic_code(((qsmQOC_WaistCircum_InPeriod.chart_number) Is Null))QRY_LatestVisitDate.chart_number = qsmQOC_WaistCircum_InPeriod.chart_numberQRY_LatestVisitDate.clinic_code = qsmQOC_WaistCircum_InPeriod.clinic_codeqsmQOC_NoTobaccoAsmt_InPeriod.[Smke Ass](((qsmQOC_NoTobaccoAsmt_InPeriod.[Smke Ass]) Is Null))QRY_LatestVisitDate.chart_number = qsmQOC_NoTobaccoAsmt_InPeriod.chart_numberQRY_LatestVisitDate.clinic_code = qsmQOC_NoTobaccoAsmt_InPeriod.clinic_codeqsmQOC_NoTobaccoAsmt_InPeriod.[Smke Ass](((qsmQOC_NoSMGoal_InPeriod.[SM Goal]) Is Null))QRY_LatestVisitDate.chart_number = qsmQOC_NoSMGoal_InPeriod.chart_numberQRY_LatestVisitDate.clinic_code = qsmQOC_NoSMGoal_InPeriod.clinic_code(((qsmQOC_NoRetinal_InPeriod.[Retinal Ex]) Is Null))QRY_LatestVisitDate.chart_number = qsmQOC_NoRetinal_InPeriod.chart_numberQRY_LatestVisitDate.clinic_code = qsmQOC_NoRetinal_InPeriod.clinic_code(((qsmQOC_NoFoot_InPeriod.[Foot chk]) Is Null) AND ((qsmQOC_NoFoot_InPeriod.[footrisk ass]) Is Null))QRY_LatestVisitDate.chart_number = qsmQOC_NoFoot_InPeriod.chart_number @n#W b  F  k A -  l B $  v2etVZ0jL.[JqsmDepressionTx1tblServicesl@SG1 RxOrPsychp@/## oqsmDepressionTx1.LastCSD_date< gtblServices.service_date7 gtblServices.raw_code3 gtblServices.chart_number7 gtblServices.clinic_code6 gqsmDepressionTx1111 tblServices'''  G G  G L@ g P@ g P@ g N@ gp@ 'L@ gP@ gP@ gN@ gqryMaxLabandResultInPeriod2GGG  G G  G "QRY_LatestVisitDate.chart_number? g !QRY_LatestVisitDate.clinic_code> gl@ 'QRY_LatestVisitDateqsmQOC_WaistCircum_InPeriod@ym7 QRY_LatestVisitDateqsmQOC_WaistCircum_InPeriod@ ym7 "QRY_LatestVisitDate.chart_number? g!QRY_LatestVisitDate.clinic_code> gQRY_LatestVisitDate777 qsmQOC_WaistCircum_InPeriodGGG  G G  G P@  g "QRY_LatestVisitDate.chart_number? g !QRY_LatestVisitDate.clinic_code> gl@  'QRY_LatestVisitDateqsmQOC_NoTobaccoAsmt_InPeriod@ }q7 QRY_LatestVisitDateqsmQOC_NoTobaccoAsmt_InPeriod@ }q7 P@ g"QRY_LatestVisitDate.chart_number? g!QRY_LatestVisitDate.clinic_code> gQRY_LatestVisitDate777 qsmQOC_NoTobaccoAsmt_InPeriodKKK  G G  G "QRY_LatestVisitDate.chart_number? g !QRY_LatestVisitDate.clinic_code> g`@ 'QRY_LatestVisitDateqsmQOC_NoSMGoal_InPeriod@sg7 QRY_LatestVisitDateqsmQOC_NoSMGoal_InPeriod@sg7 "QRY_LatestVisitDate.chart_number? g!QRY_LatestVisitDate.clinic_code> gQRY_LatestVisitDate777 qsmQOC_NoSMGoal_InPeriodAAA AvX:[ =  g ; b  * 2 nP2:#Rj6]3hJ,qActiveDemo''' tblDemo  G  G IIf([service_date],True)7 g tblServices.chart_number7 g tblServices.clinic_code6 g@  'offeredIIf([service_date],True)E otblServices.chart_number7 gtblServices.clinic_code6 gtblServices'''  G G  G True# g tblDemo.chart_number3 g tblDemo.clinic_code2 g@  'qsmSmokeAsmtCurrentEver1tblDemox@ [OA qsmSmokeAsmtCurrentEver1tblDemot@ [OA tblDemoqsmSmokeCessationOfferedInPeriod1@ma tblDemoqsmSmokeCessationOfferedInPeriod1@ma smokerTrue/ otblDemo.chart_number3 gtblDemo.clinic_code2 gqsmSmokeAsmtCurrentEver1AAA tblDemo qsmSmokeCessationOfferedInPeriod1SSS  G G  G@ 'qryMaxServiceDateAtEndOfPeriodtblServices@ocM qryMaxServiceDateAtEndOfPeriodtblServices@ocM qryMaxServiceDateAtEndOfPeriodtblServices@ocM tblDemoqryMaxServiceDateAtEndOfPeriod@g[ tblDemoqryMaxServiceDateAtEndOfPeriod@g[ smokerIIf([service_date],True)C otblDemo.chart_number3 gtblDemo.clinic_code2 gqryMaxServiceDateAtEndOfPeriodMMM tblDemo tblServices'''  G G  GV@ 'tblDemotblServices^@A5 tblDemotblServicesZ@A5 sigmoid5yrD@1%% otblServices.chart_number7 gtblServices.clinic_code6 gtblDemo tblServices'''  G G  G`@ 'qsmDepressionTx1tblServicesp@SG1 LVAL *  .  2nZJb~0IIf(Len([qActiveHealth1].[Heart]),True)IIf(Len([qActiveHealth1].[DQOC]),True)IIf(Len([qActiveHealth1].[DM-2]),True)IIf(Len([qActiveHealth1].[DM-1]),True)IIf(Len([qActiveHealth1].[CKD]),True)IIf(Len([qActiveHealth1].[CVD]),True)IIf(IsNumeric([qry_LatestBMI].[BMI]) AND CInt([qry_LatestBMI].[BMI])>=100,True)IIf(IsNumeric([qry_LatestBMI].[bmi]) And CSng([qry_LatestBMI].[bmi])between 0 AND 9.9,True)IIf(IsNumeric([qry_LatestBMI].[BMI]) AND CInt([qry_LatestBMI].[BMI])>=40,True)IIf(IsNumeric([qry_LatestBMI].[bmi]) And CSng([qry_LatestBMI].[bmi])between 35 AND 39.9,True)IIf(IsNumeric([qry_LatestBMI].[bmi]) And CSng([qry_LatestBMI].[bmi])between 30 AND 34.9,True)(((tblServices.raw_code)="smke ce") AND ((tblServices.status_flag)="c" Or (tblServices.status_flag)="d" Or (tblServices.status_flag)="r"))(((qsmSmokeAsmtCurrentEver1.smoker)=True)) OR (((qsmSmokeCessationOfferedInPeriod1.offered)=True))qsmSmokeAsmtCurrentEver1.chart_number = tblDemo.chart_numberqsmSmokeAsmtCurrentEver1.clinic_code = tblDemo.clinic_codetblDemo.chart_number = qsmSmokeCessationOfferedInPeriod1.chart_numbertblDemo.clinic_code = qsmSmokeCessationOfferedInPeriod1.clinic_code(((tblServices.raw_code)="smke ass") AND ((tblServices.status_flag)="c") AND ((tblServices.result)="current"))qryMaxServiceDateAtEndOfPeriod.[smke ass] = tblServices.service_dateqryMaxServiceDateAtEndOfPeriod.chart_number = tblServices.chart_numberqryMaxServiceDateAtEndOfPeriod.clinic_code = tblServices.clinic_codetblDemo.chart_number = qryMaxServiceDateAtEndOfPeriod.chart_numbertblDemo.clinic_code = qryMaxServiceDateAtEndOfPeriod.clinic_code(((DateDiff("yyyy",[dob],[forms]![frmReports]![txtEndDate])+Int(Format([Forms]![frmReports]![txtEndDate],'mmdd')<Format([tblDemo].[dob],'mmdd')))>50) AND ((tblServices.raw_code)="sigmoidoscopy") AND ((tblServices.status_flag)="c") AND ((tblServices.service_date)<=[Forms]![frmReports]![txtEndDate])) @ @ @ @ @ @ @ @ @ @ @ @ @ @        !" # $%'()*+,-. / 0 1 2&356789:;<=>?4      !"#$%&'()*+, - . /02345678 9 : ;1<>?@                !"#$%&'()*+ ,!-".#/$0%1&2'3(4)5*6+7,8-9.:/;0123456789 : ; < = >?@ABCDEFGHIJKLMNOP = <L^ t  ` & j , | F  n 8 V J@|>BBDf&/Nut Educ724J@ 3'' o.Nut Educ723<@3'' o-Nut Educ722d@3'' o,LifestyleProg721d@=11 o+LifestyleProg720j@=11 o*LifestyleProg719n@=11 o)Foot chk718d@3'' o(Flu Vac717b@1%% o'Exer Ass716@@3'' o&Exer Ass715F@3'' o%Exer Ass714D@3'' o$Exer Ass713B@3'' o#Exer Ass712B@3'' o"Exer Ass711@@3'' o!Exer Ass710:@3'' o Exer Ass709d@3'' oDM Educ708B@ 1%% oDM Educ707<@ 1%% oDM Educ706<@ 1%% oDM Educ705B@ 1%% oDM Educ704b@ 1%% oDepresn Scrn703l@;// oCounselWT702f@5)) oCounselAlcohol701p@?33 oRetinopathy512Z@9-- oPVD511J@) oNeuropathy510X@7++ oNephropathy509Z@9-- oHyperlipidemia508`@?33 oHTN507J@) oHeart506N@-!! oDQOC505L@+ oDM-2504L@+ oDM-1503L@+ o CKD502J@) o CVD501J@) o BMI309@) o BMI308@) o BMI307@) oBMI306@) oBMI305@ ) otblDemo.Patient_ID1 gtblDemo.end_date/ gtblDemo.start_date1 gtblDemo.clinic_code2 gqActiveDemo.insurance4 gqActiveDemo.pcp2/ gqActiveHealth1--- qsmQOC_VisitNoTobaccoAsmt_InPeriodUUU  qsmQOC_VisitNoSMGoal_InPeriodKKK  qsmQOC_VisitNoRetinal_InPeriodMMM  qsmQOC_VisitNoFoot_InPeriodGGG  qsmQOC_VisitNoBP_InPeriodCCC  QRY_HbA1c90DaysApart999 qActiveLabsLatest3555 qActiveServicesLatest3=== QRY_Latest_BP_>Systolic/Diastolic2UUU QRY_LatestBMI+++ QRY_LatestVisitDate777 qActiveHealth+++ LVALVZ * \  `@IIf(IIf(Len([qActiveServicesLatest3].[Exer Ass])>14,Mid([qActiveServicesLatest3].[Exer Ass],13,Len([qActiveServicesLatest3].[Exer Ass])-14), Null)='90-119',True )IIf(IIf(Len([qActiveServicesLatest3].[Exer Ass])>14,Mid([qActiveServicesLatest3].[Exer Ass],13,Len([qActiveServicesLatest3].[Exer Ass])-14), Null)='60-89',True )IIf(IIf(Len([qActiveServicesLatest3].[Exer Ass])>14,Mid([qActiveServicesLatest3].[Exer Ass],13,Len([qActiveServicesLatest3].[Exer Ass])-14), Null)='30-59',True )IIf(IIf(Len([qActiveServicesLatest3].[Exer Ass])>14,Mid([qActiveServicesLatest3].[Exer Ass],13,Len([qActiveServicesLatest3].[Exer Ass])-14), Null)='1-29',True )IIf(IIf(Len([qActiveServicesLatest3].[Exer Ass])>14,Mid([qActiveServicesLatest3].[Exer Ass],13,Len([qActiveServicesLatest3].[Exer Ass])-14), Null)='0',True )IIf(Len([qActiveServicesLatest3].[Exer Ass]),True)IIf(IIf(Len([qActiveServicesLatest3].[DM Educ])>14,Mid([qActiveServicesLatest3].[DM Educ],13,Len([qActiveServicesLatest3].[DM Educ])-14), Null)='provider',True )IIf(IIf(Len([qActiveServicesLatest3].[DM Educ])>14,Mid([qActiveServicesLatest3].[DM Educ],13,Len([qActiveServicesLatest3].[DM Educ])-14), Null)='print',True )IIf(IIf(Len([qActiveServicesLatest3].[DM Educ])>14,Mid([qActiveServicesLatest3].[DM Educ],13,Len([qActiveServicesLatest3].[DM Educ])-14), Null)='group',True )IIf(IIf(Len([qActiveServicesLatest3].[DM Educ])>14,Mid([qActiveServicesLatest3].[DM Educ],13,Len([qActiveServicesLatest3].[DM Educ])-14), Null)='educator',True )IIf(Len([qActiveServicesLatest3].[DM Educ]),True)IIf(Len([qActiveServicesLatest3].[Depresn Scrn]),True)IIf(Len([qActiveServicesLatest3].[CounselWT]),True)IIf(Len([qActiveServicesLatest3].[CounselAlcohol]),True)IIf(Len([qActiveHealth1].[Retinopathy]),True)IIf(Len([qActiveHealth1].[PVD]),True)IIf(Len([qActiveHealth1].[Neuropathy]),True)IIf(Len([qActiveHealth1].[Nephropathy]),True)IIf(Len([qActiveHealth1].[Hyperlipidemia]),True)IIf(Len([qActiveHealth1].[HTN]),True)LVALz  F x  H<v0IIf(IIf(Len([qActiveServicesLatest3].[smke ass])>14,Mid([qActiveServicesLatest3].[smke ass],13,Len([qActiveServicesLatest3].[smke ass])-14), Null)='current',True )IIf(Len([qActiveServicesLatest3].[smke ass]),True)IIf(Len([qActiveServicesLatest3].[SM Goal]),True)IIf(Len([qActiveServicesLatest3].[Retinal Ex]),True)IIf(Len([qActiveServicesLatest3].[Pne Vac]),True)IIf(IIf(Len([qActiveServicesLatest3].[Nut Educ])>14,Mid([qActiveServicesLatest3].[Nut Educ],13,Len([qActiveServicesLatest3].[Nut Educ])-14), Null)='other',True )IIf(IIf(Len([qActiveServicesLatest3].[Nut Educ])>14,Mid([qActiveServicesLatest3].[Nut Educ],13,Len([qActiveServicesLatest3].[Nut Educ])-14), Null)='general',True )IIf(IIf(Len([qActiveServicesLatest3].[Nut Educ])>14,Mid([qActiveServicesLatest3].[Nut Educ],13,Len([qActiveServicesLatest3].[Nut Educ])-14), Null)='htn-lipid',True )IIf(IIf(Len([qActiveServicesLatest3].[Nut Educ])>14,Mid([qActiveServicesLatest3].[Nut Educ],13,Len([qActiveServicesLatest3].[Nut Educ])-14), Null)='dm',True )IIf(Len([qActiveServicesLatest3].[Nut Educ]),True)IIf(IIf(Len([qActiveServicesLatest3].[LifestyleProg])>14,Mid([qActiveServicesLatest3].[LifestyleProg],13,Len([qActiveServicesLatest3].[LifestyleProg])-14), Null)='Lifemod',True )IIf(IIf(Len([qActiveServicesLatest3].[LifestyleProg])>14,Mid([qActiveServicesLatest3].[LifestyleProg],13,Len([qActiveServicesLatest3].[LifestyleProg])-14), Null)='KOHP-CDSMP',True )IIf(Len([qActiveServicesLatest3].[LifestyleProg]),True)IIf(Len([qActiveServicesLatest3].[Foot chk]),True)IIf(Len([qActiveServicesLatest3].[Flu Vac]),True)IIf(IIf(Len([qActiveServicesLatest3].[Exer Ass])>14,Mid([qActiveServicesLatest3].[Exer Ass],13,Len([qActiveServicesLatest3].[Exer Ass])-14), Null)='150+',True )IIf(IIf(Len([qActiveServicesLatest3].[Exer Ass])>14,Mid([qActiveServicesLatest3].[Exer Ass],13,Len([qActiveServicesLatest3].[Exer Ass])-14), Null)='120-149',True )2BB@ D  R  j 2 R  r <  JRp8X x@Z xDn8qhdl803@) ophdl~avg802@1%% ooBMI304@) onBMI303@) omBMI302@) olbmi301N@) okBP304@' ojBP303@ ' oibp301@ ' ohxrace206R@ -!! ogxrace205L@ -!! ofxrace204N@ -!! oexrace203F@-!! odxrace202F@-!! ocxrace201F@-!! obxage210f@+ oaxage209f@+ o`xage208f@+ o_xage207@+ o^xage206@+ o]xage205@+ o\xage204@+ o[xage203@+ oZxage202@+ oYxage201@+ oXxsex203`@ + oWxsex202IIf(tblDemo.Sex='F',True)F oVxsex201IIf(tblDemo.Sex='M',True)F oUxvisit209@ /## oTxvisit208@ /## oSxvisit207@ /## oRxvisit206n@ /## oQxvisit~avg202@7++ oPxvisit201tblDemo.Patient_IDC## oOhdl801R@) oNldl807@) oMldl806@) oLldl805@) oKldl804@) oJldl803@) oIldl~avg802@1%% oHldl801R@) oGha1c810@+ oFha1c809@+ oEha1c808@+ oDha1c807@ + oCha1c806@ + oBha1c805@ + oAha1c804@ + o@ha1c803@ + o?ha1c~avg802@3'' o>ha1c801T@+ o=smke ce738D@1%% o@1%% o9smke ce734b@1%% o8smke ass733B@3'' o7smke ass732@@3'' o6smke ass731F@3'' o5smke ass730d@3'' o4SM Goal729b@1%% o3Retinal Ex728h@ 7++ o2Pne Vac727b@ 1%% o1Nut Educ726B@ 3'' o0Nut Educ725F@ 3'' oLVAL~  ` "PDrIIf(IsNumeric([qActiveLabsLatest3].[ha1c]) AND CSng([qActiveLabsLatest3].[ha1c])>=10,True)IIf(IsNumeric([qActiveLabsLatest3].[ha1c]) AND CSng([qActiveLabsLatest3].[ha1c])between 9.0 AND 9.9,True)IIf(IsNumeric([qActiveLabsLatest3].[ha1c]) AND CSng([qActiveLabsLatest3].[ha1c])between 8.0 AND 8.9,True)IIf(IsNumeric([qActiveLabsLatest3].[ha1c]) AND CSng([qActiveLabsLatest3].[ha1c])between 7.0 AND 7.9,True)IIf(IsNumeric([qActiveLabsLatest3].[ha1c]) AND CSng([qActiveLabsLatest3].[ha1c])<7.0,True)IIf(IsNumeric([qActiveLabsLatest3].[ha1c]) AND CSng([qActiveLabsLatest3].[ha1c])between 6.5 AND 6.9,True)IIf(IsNumeric([qActiveLabsLatest3].[ha1c]) AND CSng([qActiveLabsLatest3].[ha1c])<6.5,True)IIf(IsNumeric([qActiveLabsLatest3].[ha1c]) AND CSng([qActiveLabsLatest3].[ha1c])between 5.7 AND 6.4,True)IIf(IsNumeric([qActiveLabsLatest3].[ha1c]),Csng([qActiveLabsLatest3].[ha1c]), Null)IIf(Len([qActiveLabsLatest3].[ha1c]),True)IIf(IIf(Len([qActiveServicesLatest3].[smke ce])>14,Mid([qActiveServicesLatest3].[smke ce],13,Len([qActiveServicesLatest3].[smke ce])-14), Null)='RxTherapy',True )IIf(IIf(Len([qActiveServicesLatest3].[smke ce])>14,Mid([qActiveServicesLatest3].[smke ce],13,Len([qActiveServicesLatest3].[smke ce])-14), Null)='group',True )IIf(IIf(Len([qActiveServicesLatest3].[smke ce])>14,Mid([qActiveServicesLatest3].[smke ce],13,Len([qActiveServicesLatest3].[smke ce])-14), Null)='quitline',True )IIf(IIf(Len([qActiveServicesLatest3].[smke ce])>14,Mid([qActiveServicesLatest3].[smke ce],13,Len([qActiveServicesLatest3].[smke ce])-14), Null)='1-on-1',True )IIf(Len([qActiveServicesLatest3].[smke ce]),True)IIf(IIf(Len([qActiveServicesLatest3].[smke ass])>14,Mid([qActiveServicesLatest3].[smke ass],13,Len([qActiveServicesLatest3].[smke ass])-14), Null)='never',True )IIf(IIf(Len([qActiveServicesLatest3].[smke ass])>14,Mid([qActiveServicesLatest3].[smke ass],13,Len([qActiveServicesLatest3].[smke ass])-14), Null)='past',True )pLVAL \ @ " ($IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')<Format(tblDemo.dob,'mmdd')) between 35 And 44,true)IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')<Format(tblDemo.dob,'mmdd')) between 25 And 34,true)IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')<Format(tblDemo.dob,'mmdd')) between 18 And 24,true)IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')<Format(tblDemo.dob,'mmdd')) between 0 And 18,true)IIf(tblDemo.Sex='U' or isnull(tblDemo.sex),True)IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]) And ([QRY_LatestVisitDate].[CountOfVisits]) >=6,True)IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]) And ([QRY_LatestVisitDate].[CountOfVisits]) Between 3 And 5,True)IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]) And ([QRY_LatestVisitDate].[CountOfVisits]) Between 1 And 2,True)IIf(IsNull([QRY_LatestVisitDate].[CountOfVisits]),True)IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]),CInt([QRY_LatestVisitDate].[CountOfVisits]),Null)IIf(Len([qActiveLabsLatest3].[hdl]),True)IIf(IsNumeric([qActiveLabsLatest3].[ldl]) AND CSng([qActiveLabsLatest3].[ldl])>=190,True)IIf(IsNumeric([qActiveLabsLatest3].[ldl]) AND CSng([qActiveLabsLatest3].[ldl])between 160 AND 189,True)IIf(IsNumeric([qActiveLabsLatest3].[ldl]) AND CSng([qActiveLabsLatest3].[ldl])between 130 AND 159,True)IIf(IsNumeric([qActiveLabsLatest3].[ldl]) AND CSng([qActiveLabsLatest3].[ldl])between 100 AND 129,True)IIf(IsNumeric([qActiveLabsLatest3].[ldl]) AND CSng([qActiveLabsLatest3].[ldl])<100,True)IIf(IsNumeric([qActiveLabsLatest3].[ldl]),Csng([qActiveLabsLatest3].[ldl]), Null)IIf(Len([qActiveLabsLatest3].[ldl]),True) @ @ @ @ @ @ @ @ @ @ @ @ @ @5678 9 : ;1<>?@                !"#$%&'()*+ ,!-".#/$0%1&2'3(4)5*6+7,8-9.:/;0123456789 : ; < = >?@ABCDEFGHIJKLMNOP Q!R"S#T$U%V&W'X(Y)Z*[+\,]-^._/`0a1b2c3d4e5f6g7h8i9j:k;l<m=n>o?p@qArstuvwxyz{ | } ~       ! "#$%&'()*+,-./=        PLVAL~ z  Hv(v:IIf(IsNumeric([qry_LatestBMI].[bmi]) And CSng([qry_LatestBMI].[bmi])between 10 AND 18.4,True)IIf(IsNumeric(QRY_LatestBMI.BMI), True)IIf([QRY_Latest_BP_>Systolic/Diastolic2].[bp_systolic]>=130 Or [QRY_Latest_BP_>Systolic/Diastolic2].[bp_diastolic]>=80,True)IIf([QRY_Latest_BP_>Systolic/Diastolic2].[bp_systolic]<130 AND [QRY_Latest_BP_>Systolic/Diastolic2].[bp_diastolic]<80,True)Iif(IsNumeric([QRY_Latest_BP_>Systolic/Diastolic2].[bp_systolic]) AND Isnumeric([QRY_Latest_BP_>Systolic/Diastolic2].[bp_diastolic]),True)IIf(tblDemo.Ethnicity<>'Asian' And tblDemo.ethnicity <> 'Black' And tblDemo.ethnicity<>'Am Indian' And tblDemo.ethnicity<>'White' And tblDemo.ethnicity<>'Hispanic',True)IIf(tblDemo.Ethnicity='Hispanic',True)IIf(tblDemo.Ethnicity='Am Indian',True)IIf(tblDemo.Ethnicity='White',True)IIf(tblDemo.Ethnicity='Asian',True)IIf(tblDemo.Ethnicity='Black',True)IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')<Format(tblDemo.dob,'mmdd'))>=75,True)IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')<Format(tblDemo.dob,'mmdd'))>=65,True)IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')<Format(tblDemo.dob,'mmdd'))>=18,True)IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')<Format(tblDemo.dob,'mmdd')) between 65 And 74,true)IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')<Format(tblDemo.dob,'mmdd')) between 55 And 64,true)IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')<Format(tblDemo.dob,'mmdd')) between 45 And 54,true)LVALB 8  F B ` fX2IIf(qsmQOC_VisitNoFoot_InPeriod!chart_number, True)IIf(qsmQOC_VisitNoBP_InPeriod!chart_number, True)IIf(QRY_HbA1c90DaysApart!Ha1c90DaysApart, True)IIf(IsNumeric([qActiveLabsLatest3].[trig]) AND CSng([qActiveLabsLatest3].[trig])>=500,True)IIf(IsNumeric([qActiveLabsLatest3].[trig]) AND CSng([qActiveLabsLatest3].[trig])between 200 AND 499,True)IIf(IsNumeric([qActiveLabsLatest3].[trig]) AND CSng([qActiveLabsLatest3].[trig])between 150 AND 199,True)IIf(IsNumeric([qActiveLabsLatest3].[trig]) AND CSng([qActiveLabsLatest3].[trig])<150,True)IIf(IsNumeric([qActiveLabsLatest3].[trig]),Csng([qActiveLabsLatest3].[trig]), Null)IIf(Len([qActiveLabsLatest3].[trig]),True)IIf(IsNumeric([qActiveLabsLatest3].[chol]) AND CSng([qActiveLabsLatest3].[chol])>=240,True)IIf(IsNumeric([qActiveLabsLatest3].[chol]) AND CSng([qActiveLabsLatest3].[chol])between 200 AND 239,True)IIf(IsNumeric([qActiveLabsLatest3].[chol]) AND CSng([qActiveLabsLatest3].[chol])<200,True)IIf(IsNumeric([qActiveLabsLatest3].[chol]),Csng([qActiveLabsLatest3].[chol]), Null)IIf(Len([qActiveLabsLatest3].[chol]),True)IIf(IsNumeric([qActiveLabsLatest3].[hdl]) AND CSng([qActiveLabsLatest3].[hdl])>=60,True)IIf(IsNumeric([qActiveLabsLatest3].[hdl]) AND CSng([qActiveLabsLatest3].[hdl])between 50 AND 59,True)IIf(IsNumeric([qActiveLabsLatest3].[hdl]) AND CSng([qActiveLabsLatest3].[hdl])between 40 AND 49,True)IIf(IsNumeric([qActiveLabsLatest3].[hdl]) AND CSng([qActiveLabsLatest3].[hdl])<40,True)IIf(IsNumeric([qActiveLabsLatest3].[hdl]) AND CSng([qActiveLabsLatest3].[hdl])>=35,True)IIf(IsNumeric([qActiveLabsLatest3].[hdl]) AND CSng([qActiveLabsLatest3].[hdl])<35,True)IIf(IsNumeric([qActiveLabsLatest3].[hdl]),Csng([qActiveLabsLatest3].[hdl]), Null)IIf(IsNumeric([qry_LatestBMI].[bmi]) And CSng([qry_LatestBMI].[bmi])between 25 AND 29.9,True)IIf(IsNumeric([qry_LatestBMI].[bmi]) And CSng([qry_LatestBMI].[bmi])between 18.5 AND 24.9,True) 0^(zB  Z " z , T v ( & v$,dL<TpxtblDemoqsmQOC_VisitNoTobaccoAsmt_InPeriod@oc tblDemoqsmQOC_VisitNoTobaccoAsmt_InPeriod@oc tblDemoqsmQOC_VisitNoSMGoal_InPeriod~@eY tblDemoqsmQOC_VisitNoSMGoal_InPeriod@eY tblDemoqsmQOC_VisitNoRetinal_InPeriod@g[ tblDemoqsmQOC_VisitNoRetinal_InPeriod@g[ tblDemoqsmQOC_VisitNoFoot_InPeriodz@aU tblDemoqsmQOC_VisitNoFoot_InPeriod~@aU tblDemoqsmQOC_VisitNoBP_InPeriodv@]Q tblDemoqsmQOC_VisitNoBP_InPeriodz@]Q tblDemoQRY_HbA1c90DaysApartl@SG tblDemoQRY_HbA1c90DaysApartp@SG tblDemoqActiveLabsLatest3l@OC  tblDemoqActiveLabsLatest3h@OC  tblDemoqActiveServicesLatest3t@WK  tblDemoqActiveServicesLatest3p@ WK  tblDemoQRY_Latest_BP_>Systolic/Diastolic2@ oc  tblDemoQRY_Latest_BP_>Systolic/Diastolic2@ oc tblDemoQRY_LatestBMIb@ E9 tblDemoQRY_LatestBMI^@ E9 tblDemoQRY_LatestVisitDaten@QE tblDemoQRY_LatestVisitDatej@QE tblDemoqActiveHealthb@E9 tblDemoqActiveHealth^@E9 tblDemoqActiveDemo^@A5 tblDemoqActiveDemoZ@A5 chart_number906t@;// ochart_number905j@;// ochart_number904l@;// ochart_number903f@;// ochart_number902b@;// oHa1c90DaysApart901^@A55 otrig806@+ otrig805@+ otrig804@+ o~trig803@+ o}trig~avg802@3'' o|trig801T@+ o{chol805@ + ozchol804@ + oychol803@ + oxchol~avg802@ 3'' owchol801T@ + ovhdl808@) ouhdl807@) othdl806@) oshdl805@) orhdl804@) oLVAL!*\ > f    > b|  ~2"[" & [type_order] & Format([display_order],"00") & [raw_code] & "]"((qActiveHealth!raw_code = 'DM-1') Or (qActiveHealth!raw_code = 'DM-2'))tblDemo.chart_number = qActiveHealth1.chart_numbertblDemo.clinic_code = qActiveHealth1.clinic_codetblDemo.clinic_code = qsmQOC_VisitNoTobaccoAsmt_InPeriod.clinic_codetblDemo.chart_number = qsmQOC_VisitNoTobaccoAsmt_InPeriod.chart_numbertblDemo.clinic_code = qsmQOC_VisitNoSMGoal_InPeriod.clinic_codetblDemo.chart_number = qsmQOC_VisitNoSMGoal_InPeriod.chart_numbertblDemo.clinic_code = qsmQOC_VisitNoRetinal_InPeriod.clinic_codetblDemo.chart_number = qsmQOC_VisitNoRetinal_InPeriod.chart_numbertblDemo.clinic_code = qsmQOC_VisitNoFoot_InPeriod.clinic_codetblDemo.chart_number = qsmQOC_VisitNoFoot_InPeriod.chart_numbertblDemo.clinic_code = qsmQOC_VisitNoBP_InPeriod.clinic_codetblDemo.chart_number = qsmQOC_VisitNoBP_InPeriod.chart_numbertblDemo.clinic_code = QRY_HbA1c90DaysApart.clinic_codetblDemo.chart_number = QRY_HbA1c90DaysApart.chart_numbertblDemo.chart_number = qActiveLabsLatest3.chart_numbertblDemo.clinic_code = qActiveLabsLatest3.clinic_codetblDemo.chart_number = qActiveServicesLatest3.chart_numbertblDemo.clinic_code = qActiveServicesLatest3.clinic_codetblDemo.clinic_code = [QRY_Latest_BP_>Systolic/Diastolic2].clinic_codetblDemo.chart_number = [QRY_Latest_BP_>Systolic/Diastolic2].chart_numbertblDemo.chart_number = QRY_LatestBMI.chart_numbertblDemo.clinic_code = QRY_LatestBMI.clinic_codetblDemo.chart_number = QRY_LatestVisitDate.chart_numbertblDemo.clinic_code = QRY_LatestVisitDate.clinic_codetblDemo.chart_number = qActiveHealth.chart_numbertblDemo.clinic_code = qActiveHealth.clinic_codetblDemo.chart_number = qActiveDemo.chart_numbertblDemo.clinic_code = qActiveDemo.clinic_codeIIf(qsmQOC_VisitNoTobaccoAsmt_InPeriod!chart_number, True)IIf(qsmQOC_VisitNoSMGoal_InPeriod!chart_number, True)IIf(qsmQOC_VisitNoRetinal_InPeriod!chart_number, True)44X.|H ~ - : G N R  Z woX;{[>(t&720LifestyleProgF@=11 o(t%719LifestyleProgF@=11 o(t$718Foot chk Count(qSummary1.[Foot chk718])S'' o(t#717Flu VacCount(qSummary1.[Flu Vac717])P%% o(t"716Exer Ass Count(qSummary1.[Exer Ass716])S'' o(t!715Exer Ass Count(qSummary1.[Exer Ass715])S'' o(t 714Exer Ass Count(qSummary1.[Exer Ass714])S'' o(t713Exer Ass Count(qSummary1.[Exer Ass713])S'' o(t712Exer Ass Count(qSummary1.[Exer Ass712])S'' o(t711Exer Ass Count(qSummary1.[Exer Ass711])S'' o(t710Exer Ass Count(qSummary1.[Exer Ass710])S'' o(t709Exer Ass Count(qSummary1.[Exer Ass709])S'' o(t708DM EducCount(qSummary1.[DM Educ708])P%% o(t707DM EducCount(qSummary1.[DM Educ707])P%% o(t706DM EducCount(qSummary1.[DM Educ706])P%% o(t705DM EducCount(qSummary1.[DM Educ705])P%% o(t704DM EducCount(qSummary1.[DM Educ704])P%% o(t703Depresn ScrnD@;// o(t702CounselWT!Count(qSummary1.[CounselWT702])V)) o(t701CounselAlcoholH@?33 o(t512RetinopathyB@9-- o(t511PVDCount(qSummary1.[PVD511])D o(t510Neuropathy"Count(qSummary1.[Neuropathy510])Y++ o(t509NephropathyB@9-- o(t508HyperlipidemiaH@?33 o(t 507HTNCount(qSummary1.[HTN507])D o(t 506HeartCount(qSummary1.[Heart506])J!! o(t 505DQOCCount(qSummary1.[DQOC505])G o(t 504DM-2Count(qSummary1.[DM-2504])G o(t 503DM-1Count(qSummary1.[DM-1503])G o(t502CKDCount(qSummary1.[CKD502])D o(t501CVDCount(qSummary1.[CVD501])D o(t309BMICount(qSummary1.[BMI309])D o(t308BMICount(qSummary1.[BMI308])D o(t307BMICount(qSummary1.[BMI307])D o(t306BMICount(qSummary1.[BMI306])D o(t305BMICount(qSummary1.[BMI305])D o(tTotalCount(qSummary1.Patient_ID)D o((tqSummary1### ((t (t G8@ '8Expr2@ ' o8Expr1@' o8tblReportsTemp--- 8 G8 G8 8 G@ 'tblDemoqActiveHealth1d@G; tblDemoqActiveHealth1`@G; LVAL` B t . X  H  v2(((tlkpCrosswalk.type_code)="Service"))(((tlkpCrosswalk.type_code)="Rx"))(((tlkpCrosswalk.type_code)="Lab"))(((tlkpCrosswalk.type_code)="Dx"))(((Activeclinic(qSummary1![clinic_code]))=True) AND ((Activeperiod(qSummary1.[start_date],Nz(qSummary1.[end_date],Date())))=True))Count(qSummary1.[chart_number906])Count(qSummary1.[chart_number905])Count(qSummary1.[chart_number904])Count(qSummary1.[chart_number903])Count(qSummary1.[chart_number902])Count(qSummary1.[Ha1c90DaysApart901])Count(qSummary1.[LifestyleProg721])Count(qSummary1.[LifestyleProg720])Count(qSummary1.[LifestyleProg719])Count(qSummary1.[Depresn Scrn703])Count(qSummary1.[CounselAlcohol701])Count(qSummary1.[Retinopathy512])Count(qSummary1.[Nephropathy509])Count(qSummary1.[Hyperlipidemia508])(((tblReportsTemp.type_order)<>0) AND ((tblReportsTemp.display_order)<>0))IIf(InStr([criteria],'~avg'),"Avg(qSummary1.[" & [raw_code] & "~avg" & [type_order] & Format([display_order],"00") & "])","Count(qSummary1.[" & [raw_code] & [type_order] & Format([display_order],"00") & "])") @ @ @ @ @ @ @ @ @ @ @ @ @ @R"S#T$U%V&W'X(Y)Z*[+\,]-^._/`0a1b2c3d4e5f6g7h8i9j:k;l<m=n>o?p@qArstuvwxyz{ | } ~       ! "#$%&'()*+,-./=          !"#$%&'()*+, -!."/#0$1%2&3'()*+,-./0 1 2 3 4 56789:;<=>?@ABCDEFG H!I"J#K$L%M&N'O(P)Q*R+S,TUVWXYZ[\] ^ _ ` a bcdefghijklmnopqrst u! -V6 y  V 6 |  e  gkow&37'sw(tS203xsexCount(qSummary1.[xsex203])G o(tR202xsexCount(qSummary1.[xsex202])G o(tQ201xsexCount(qSummary1.[xsex201])G o(tP209xvisitCount(qSummary1.[xvisit209])M## o(tO208xvisitCount(qSummary1.[xvisit208])M## o(tN207xvisitCount(qSummary1.[xvisit207])M## o(tM206xvisitCount(qSummary1.[xvisit206])M## o(tL202xvisit Avg(qSummary1.[xvisit~avg202])O## o(tK201xvisitCount(qSummary1.[xvisit201])M## o(tJ801hdlCount(qSummary1.[hdl801])D o(tI807ldlCount(qSummary1.[ldl807])D o(tH806ldlCount(qSummary1.[ldl806])D o(tG805ldlCount(qSummary1.[ldl805])D o(tF804ldlCount(qSummary1.[ldl804])D o(tE803ldlCount(qSummary1.[ldl803])D o(tD802ldlAvg(qSummary1.[ldl~avg802])F o(tC801ldlCount(qSummary1.[ldl801])D o(tB810ha1cCount(qSummary1.[ha1c810])G o(tA809ha1cCount(qSummary1.[ha1c809])G o(t@808ha1cCount(qSummary1.[ha1c808])G o(t?807ha1cCount(qSummary1.[ha1c807])G o(t>806ha1cCount(qSummary1.[ha1c806])G o(t=805ha1cCount(qSummary1.[ha1c805])G o(t<804ha1cCount(qSummary1.[ha1c804])G o(t;803ha1cCount(qSummary1.[ha1c803])G o(t:802ha1cAvg(qSummary1.[ha1c~avg802])I o(t9801ha1cCount(qSummary1.[ha1c801])G o(t8738smke ceCount(qSummary1.[smke ce738])P%% o(t7737smke ceCount(qSummary1.[smke ce737])P%% o(t6736smke ceCount(qSummary1.[smke ce736])P%% o(t5735smke ceCount(qSummary1.[smke ce735])P%% o(t4734smke ceCount(qSummary1.[smke ce734])P%% o(t3733smke ass Count(qSummary1.[smke ass733])S'' o(t2732smke ass Count(qSummary1.[smke ass732])S'' o(t1731smke ass Count(qSummary1.[smke ass731])S'' o(t0730smke ass Count(qSummary1.[smke ass730])S'' o(t/729SM GoalCount(qSummary1.[SM Goal729])P%% o(t.728Retinal Ex"Count(qSummary1.[Retinal Ex728])Y++ o(t-727Pne VacCount(qSummary1.[Pne Vac727])P%% o(t,726Nut Educ Count(qSummary1.[Nut Educ726])S'' o(t+725Nut Educ Count(qSummary1.[Nut Educ725])S'' o(t*724Nut Educ Count(qSummary1.[Nut Educ724])S'' o(t)723Nut Educ Count(qSummary1.[Nut Educ723])S'' o(t(722Nut Educ Count(qSummary1.[Nut Educ722])S'' o(t'721LifestyleProgF@ =11 o1X\ ` a \  `  s " -:GIMOY9((t@ '(tpcp2Null+ o(t906chart_numberD@;// o(t905chart_numberD@;// o(t904chart_numberD@ ;// o(t903chart_numberD@ ;// o(t~902chart_numberD@ ;// o(t}901Ha1c90DaysApartJ@ A55 o(t|806trigCount(qSummary1.[trig806])G o(t{805trigCount(qSummary1.[trig805])G o(tz804trigCount(qSummary1.[trig804])G o(ty803trigCount(qSummary1.[trig803])G o(tx802trigAvg(qSummary1.[trig~avg802])I o(tw801trigCount(qSummary1.[trig801])G o(tv805cholCount(qSummary1.[chol805])G o(tu804cholCount(qSummary1.[chol804])G o(tt803cholCount(qSummary1.[chol803])G o(ts802cholAvg(qSummary1.[chol~avg802])I o(tr801cholCount(qSummary1.[chol801])G o(tq808hdlCount(qSummary1.[hdl808])D o(tp807hdlCount(qSummary1.[hdl807])D o(to806hdlCount(qSummary1.[hdl806])D o(tn805hdlCount(qSummary1.[hdl805])D o(tm804hdlCount(qSummary1.[hdl804])D o(tl803hdlCount(qSummary1.[hdl803])D o(tk802hdlAvg(qSummary1.[hdl~avg802])F o(tj304BMICount(qSummary1.[BMI304])D o(ti303BMICount(qSummary1.[BMI303])D o(th302BMICount(qSummary1.[BMI302])D o(tg301BMICount(qSummary1.[BMI301])D o(tf304BPCount(qSummary1.[BP304])A o(te303BPCount(qSummary1.[BP303])A o(td301BPCount(qSummary1.[BP301])A o(tc206xraceCount(qSummary1.[xrace206])J!! o(tb205xraceCount(qSummary1.[xrace205])J!! o(ta204xraceCount(qSummary1.[xrace204])J!! o(t`203xraceCount(qSummary1.[xrace203])J!! o(t_202xraceCount(qSummary1.[xrace202])J!! o(t^201xraceCount(qSummary1.[xrace201])J!! o(t]210xageCount(qSummary1.[xage210])G o(t\209xageCount(qSummary1.[xage209])G o(t[208xageCount(qSummary1.[xage208])G o(tZ207xageCount(qSummary1.[xage207])G o(tY206xageCount(qSummary1.[xage206])G o(tX205xageCount(qSummary1.[xage205])G o(tW204xageCount(qSummary1.[xage204])G o(tV203xageCount(qSummary1.[xage203])G o(tU202xageCount(qSummary1.[xage202])G o(tT201xageCount(qSummary1.[xage201])G o @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @   !"#$%&'()*+, -!."/#0$1%2&3'()*+,-./0 1 2 3 4 56789:;<=>?@ABCDEFG H!I"J#K$L%M&N'O(P)Q*R+S,TUVWXYZ[\] ^ _ ` a bcdefghijklmnopqrst u!v"w#x$y%z&{'|(})~*+,-./0             !"# $ %&()*+,- . /'0vX n( n 6 > X ! r : B P X tlkpCrosswalk.raw_code5 g tlkpCrosswalk.working_code9 gN@ 'tlkpCrosswalk.raw_code5 gtlkpCrosswalk.working_code9 gtlkpCrosswalk+++  G G  G tlkpCrosswalk.raw_code5 g tlkpCrosswalk.working_code9 gD@ 'tlkpCrosswalk.raw_code5 gtlkpCrosswalk.working_code9 gtlkpCrosswalk+++  G G  G  tblDemo.pcp* g tblDemo.pcp* gtblDemo  G G  G tlkpCrosswalk.raw_code5 g tlkpCrosswalk.working_code9 gF@ 'tlkpCrosswalk.raw_code5 gtlkpCrosswalk.working_code9 gtlkpCrosswalk+++  G G  G tlkpCrosswalk.raw_code5 g tlkpCrosswalk.working_code9 gD@ 'tlkpCrosswalk.raw_code5 gtlkpCrosswalk.working_code9 gtlkpCrosswalk+++  G G  G (tNull# g LVALC:\Users\Jackie\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbC:\Users\Jackie\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbC:\Users\Jackie\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbC:\Users\Jackie\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbC:\Users\Jackie\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbC:\Users\Jackie\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbC:\Users\Jackie\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbC:\Users\Jackie\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbC:\Users\Jackie\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbC:\Users\Jackie\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbC:\Users\Jackie\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbC:\Users\Jackie\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbC:\Users\Jackie\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbC:\Users\Jackie\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbC:\Users\Jackie\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbC:\Users\Jackie\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbC:\Users\Jackie\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdbC:\Users\Jackie\Documents\CLIENTS\KS - KDHE\Test\MASTER_QOC_cdem_dta.mdb YH&8N Y d Y  Y d Y  Y d Y  Y d Y d Y  d Y  d Y  d Y  d Y  d Y d Y _dqry_orderqry_descriptionqry_nameqry_commentqry_showlistrow1row2row3row4row5row6row7row8row9 row10eelepeYqry_numberv1O5u 0 W ;mj"88a* Prediabetes QOC Reportrpt8'''''''''''''!88a* Hyperlipidemia QOC Reportrpt7*************$88a* Diabetes QOC Reportrpt6$$$$$$$$$$$$$88a* Hypertension QOC Reportrpt5((((((((((((("13iList patients with xxx service referral statusQRY_ListPatient_ServiceReferralStatusList status of patients with xxx service referralS^70.0eDiabetes Summary ReportQRY_SummaryDiabetes27777777777777!88CREATE-A-REPORTrptUser-defined summary report based on clinic setupOOOOOOOOOOOO99CREATE-A-LISTlstUser-defined intervention list based on clinic setupPPPPPPPPPPPP0.0fDiabetes Summary Report by PCPQRY_SummaryDiabetes2_PCPBBBBBBBBBBBBB(13dList patients receiving xxx lab AND (=, >=,<) xx valueQRY_ListPatientReceiveLabWithLastValue2List of patients receiving xxx lab AND (>, <, >=, <=) xx value (Eg Cholesterol >= 200)LVh?11cList patients with xxx med and xxx health conditionQRY_ListPatientOnMedWithConditionList of patients with xxx health condition and xxx med (eg. diabetes and insulin)CM`=3List patients with a BP >systolic Or >diastolicQRY_Latest_BP_>Systolic/DiastolicList of patients with a BP > xxx/xx (fill in systolic xxx and diastolic xx)Y61List patients without an office visit in the periodQRY_Last_Visit_xx_Days_AndOverList of patients without an office visit in the periodY910aList patients on xxx medQRY_ListPatientOnMedList of patients on xxx med (e.g. insulin from med list)Msssssssssssq7!10List patients with xxx health conditionsQRY_ListPatientWithConditionList of patients with xxx health conditions (e.g. diabetes from health list)CN013hList patients with lab xxxx and withOUT service xxxQRY_ListPatientNoServiceAndLabList of patients without service xxxx and lab xxxx(no flu vaccination but wbc lab count)SL\<13bList patients not receiving xx serviceQRY_ListPatientNotReceiveServiceList of patients not receiving xx serviceS~~~~~~~~~~~|Q/13aList patients receiving xx serviceQRY_ListPatientReceiveServiceList of patients receiving xx service (e.g. nutrition education from services)SJ+13gList patients with lab xxx and service xxxQRY_ListPatientWithServiceAndLabList of patients with service xxxx and lab xxxx(no flu vaccination but wbc lab count)SLU313cList patients receiving xx labQRY_ListPatientReceiveLabList of patients receiving xx lab (e.g. xx from lab table could be ldl)LB'13eList patients with lab xxx and health condition xxxQRY_ListPatientWithConditionAndLabList of patient with health conditions xx and lab xxxxCL`<13fList patients withOUT lab xxx and health condition xxxQRY_ListPatientWithConditionAndNotLabList of patient with health conditions xx and NOT lab xxxxCLg@I @@   @@66Q66S 8 8686J88M 8= 65xage@0s1d1AllSNHFF:4)$ }@`@rpt8DemoAgeAge >= 18xage@0s1d1AllSNHFF:4)$ }@`@rpt8DemoAgeAge 65 to 74xage@0s1d1AllVQKII=7)$ }@`@rpt8DemoAgeAge 55 to 64xage@0s1d1AllVQKII=7)$ }@`@rpt8DemoAgeAge 45 to 54xage@0s1d1AllVQKII=7)$ }@`@rpt8DemoAgeAge 35 to 44xage@0s1d1AllVQKII=7)$ }@`@rpt8DemoAgeAge 25 to 34xage@0s1d1AllVQKII=7)$ }@`@rpt8DemoAgeAge 18 to 24xage@0s1d1AllVQKII=7)$ }@`@rpt8DemoAgeAge 0 to 18xage@0s1d1AllUPJHH<6)$ }@`@rpt8DemoGenderGender-Unknxsex?@0s1d1AllXSMKK?9,$ }@`@rpt8DemoGenderGender-Femalexsex(@0s1d1AllZUOMMA;,$ }@`@rpt8DemoGenderGender-Malexsex(@0s1d1AllXSMKK?9,$ }@`@rpt8DemoVisitsPts w/ 6+ visitsxvisit{@0s1d1All_ZTRRF>,$ }@`@rpt8DemoVisitsPts w/ 3-5 visitsxvisit@0s1d1All`[USSG?,$ }@`@rpt8DemoVisitsPts w/ 1-2 visitsxvisit@0s1d1All`[USSG?,$ }@`@rpt8DemoVisitsPts Avg Visitsxvisit{@0s1d1All]XRPPD<,$ }@`@rpt8DemoVisitsPts Countxvisit#@0s1d1AllXSMKK?7,$ }@`@rpt8PrediabetesPrediabetes0s1d1AllE@:888+ |@`@rpt5LabsFasting BSFasting BSFBS7@0s1d1AllZUOMMA<0$ }@`@rpt5LabsTriglyceridetrig >=500trigj@ 0s1d1All]XRPPD>2$ }@`@rpt5LabsTriglyceridetrig 200 - 499trigx@ 0s1d1Alla\VTTHB2$ }@`@rpt7DemoAgeAge 25 to 34xage@ 0s1d1AllVQKII=7)$ }@`@rpt7DemoAgeAge 18 to 24xage@ 0s1d1AllVQKII=7)$ }@`@rpt7DemoAgeAge 0 to 18xage@ 0s1d1AllUPJHH<6)$ }@`@rpt7DemoGenderGender-Unknxsex?@0s1d1AllXSMKK?9,$ }@`@rpt7DemoGenderGender-Femalexsex(@0s1d1AllZUOMMA;,$ }@`@rpt7DemoGenderGender-Malexsex(@0s1d1AllXSMKK?9,$ } @@rpt7DemoVisitsPts w/ 6+ visitsxvisit{@0s1d1All_ZTRRF>,$ }@@rpt7DemoVisitsPts w/ 3-5 visitsxvisit@0s1d1All`[USSG?,$ }@@rpt7DemoVisitsPts w/ 1-2 visitsxvisit@0s1d1All`[USSG?,$ }@@rpt7DemoVisitsPts w/ 0 visitsxvisitH@0s1d1All^YSQQE=,$ }@`@rpt7DemoVisitsPts Avg Visitsxvisit{@0s1d1All]XRPPD<,$ }@`@rpt7DemoVisitsPts Countxvisit#@0s1d1AllXSMKK?7,$ }@`@rpt7HyperlipidemiaHyperlipidemia0s1d1AllKF@>>>. |LVALb  i A  3 c  z W US+%UIIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')=6,True) AS [xvisit205]IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]) And ([QRY_LatestVisitDate].[CountOfVisits]) Between 3 And 5,True) AS [xvisit204]IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]) And ([QRY_LatestVisitDate].[CountOfVisits]) Between 1 And 2,True) AS [xvisit203]IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]),CInt([QRY_LatestVisitDate].[CountOfVisits]),Null) AS [xvisit~avg202]tblDemo.Patient_ID as [xvisit201]IIf(Len([qActiveLabsLatest3].[FBS]),True) AS [FBS801]IIf(IsNumeric([qActiveLabsLatest3].[trig]) AND CSng([qActiveLabsLatest3].[trig])>=500,True) as [trig806]IIf(IsNumeric([qActiveLabsLatest3].[trig]) AND CSng([qActiveLabsLatest3].[trig])between 200 AND 499,True) As [trig805]IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')=6,True) AS [xvisit209]IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]) And ([QRY_LatestVisitDate].[CountOfVisits]) Between 3 And 5,True) AS [xvisit208]IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]) And ([QRY_LatestVisitDate].[CountOfVisits]) Between 1 And 2,True) AS [xvisit207]IIf(IsNull([QRY_LatestVisitDate].[CountOfVisits]),True) As [xvisit206]IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]),CInt([QRY_LatestVisitDate].[CountOfVisits]),Null) AS [xvisit~avg202]tblDemo.Patient_ID as [xvisit201]LVAL$0n I n  H c s ~K[J=g7AIIf(IsNumeric([qActiveLabsLatest3].[hdl]) AND CSnIIf(IsNumeric([qActiveLabsLatest3].[hdl]) AND CSng([qActiveLabsLatest3].[hdl])>=35,True) as [hdl804]IIf(Len([qActiveHealth1].[CVD]),True) AS [CVD501]IIf(IsNumeric([qry_LatestBMI].[BMI]) AND CInt([qry_LatestBMI].[BMI])>=100,True) as [BMI309]IIf(IsNumeric([qry_LatestBMI].[bmi]) And CSng([qry_LatestBMI].[bmi])between 0 AND 9.9,True) AS [BMI308]IIf(IsNumeric([qry_LatestBMI].[BMI]) AND CInt([qry_LatestBMI].[BMI])>=40,True) as [BMI307]IIf(IsNumeric([qry_LatestBMI].[bmi]) And CSng([qry_LatestBMI].[bmi])between 35 AND 39.9,True) AS [BMI306]IIf(IsNumeric([qry_LatestBMI].[bmi]) And CSng([qry_LatestBMI].[bmi])between 30 AND 34.9,True) AS [BMI305]IIf(IsNumeric([qry_LatestBMI].[bmi]) And CSng([qry_LatestBMI].[bmi])between 25 AND 29.9,True) AS [BMI304]IIf(IsNumeric([qry_LatestBMI].[bmi]) And CSng([qry_LatestBMI].[bmi])between 18.5 AND 24.9,True) AS [BMI303]IIf(IsNumeric([qry_LatestBMI].[bmi]) And CSng([qry_LatestBMI].[bmi])between 10 AND 18.4,True) AS [BMI302]IIf(IsNumeric(QRY_LatestBMI.BMI), True) as [bmi301]IIf([QRY_Latest_BP_>Systolic/Diastolic2].[bp_systolic]>=130 Or [QRY_Latest_BP_>Systolic/Diastolic2].[bp_diastolic]>=80,True) As [BP304]IIf([QRY_Latest_BP_>Systolic/Diastolic2].[bp_systolic]<130 AND [QRY_Latest_BP_>Systolic/Diastolic2].[bp_diastolic]<80,True) As [BP303]Iif(IsNumeric([QRY_Latest_BP_>Systolic/Diastolic2].[bp_systolic]) AND Isnumeric([QRY_Latest_BP_>Systolic/Diastolic2].[bp_diastolic]),True) as [bp301]IIf(tblDemo.Ethnicity<>'Asian' And tblDemo.ethnicity <> 'Black' And tblDemo.ethnicity<>'Am Indian' And tblDemo.ethnicity<>'White' And tblDemo.ethnicity<>'Hispanic',True) AS [xrace206]IIf(tblDemo.Ethnicity='Hispanic',True) AS [xrace205]IIf(tblDemo.Ethnicity='Am Indian',True) AS [xrace204]IIf(tblDemo.Ethnicity='White',True) AS [xrace203]IIf(tblDemo.Ethnicity='Asian',True) AS [xrace202]IIf(tblDemo.Ethnicity='Black',True) AS [xrace201]IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')=75,True) as [xage210]IIf(IIf(Len([qActiveServicesLatest3].[NutEduc])>14,Mid([qActiveServicesLatest3].[NutEduc],13,Len([qActiveServicesLatest3].[NutEduc])-14), Null)='dm',True ) As [NutEduc733]IIf(Len([qActiveServicesLatest3].[NutEduc]),True) AS [NutEduc732]IIf(qsmQOC_VisitNoTobaccoAsmt_InPeriod!chart_number, True) as [chart_number906]IIf(qsmQOC_VisitNoSMGoal_InPeriod!chart_number, True) as [chart_number905]IIf(qsmQOC_VisitNoBP_InPeriod!chart_number, True) as [chart_number904]IIf(qsmQOC_HTN_Stage2!chart_number, True) as [chart_number903]IIf(qsmQOC_HTN_Stage1!chart_number, True) as [chart_number902]IIf(qsmQOC_HTN_PreHTN!chart_number, True) as [chart_number901]IIf(IsNumeric([qActiveLabsLatest3].[FBS]) AND CSng([qActiveLabsLatest3].[FBS])>125,True) as [FBS805]IIf(IsNumeric([qActiveLabsLatest3].[FBS]) AND CSng([qActiveLabsLatest3].[FBS])between 100 AND 125,True) As [FBS804]IIf(IsNumeric([qActiveLabsLatest3].[FBS]) AND CSng([qActiveLabsLatest3].[FBS])<100,True) as [FBS803]IIf(IsNumeric([qActiveLabsLatest3].[FBS]),Csng([qActiveLabsLatest3].[FBS]), Null) as [FBS~avg802]IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')=65,True) as [xage209]IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')=18,True) as [xage208]IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')= 100BMI]@!0s1d1All_ZTRRFA5$ }@@rpt8LabsBody Mass IndexBMI 0 to 9.9BMIi@ 0s1d1Alla\VTTHC5$ }@@rpt8LabsBody Mass IndexBMI >= 40BMI\@0s1d1All^YSQQE@5$ }@@rpt8LabsBody Mass IndexBMI 35 to 39.9BMIk@0s1d1Allc^XVVJE5$ }@@rpt8LabsBody Mass IndexBMI 30 to 34.9BMIk@0s1d1Allc^XVVJE5$ }@@rpt8LabsBody Mass IndexBMI 25 to 29.9BMIk@0s1d1Allc^XVVJE5$ }@@rpt8LabsBody Mass IndexBMI 18.5 to 24.9BMIm@0s1d1Alle`ZXXLG5$ }@@rpt8LabsBody Mass IndexBMI 10 to 18.4BMIk@0s1d1Allc^XVVJE5$ }@@rpt8VitalsBody Mass IndexBMIBMI5@0s1d1AllZUOMMA<7& }@@rpt8VitalsBlood PressureBP >=130/or >=80BP@0s1d1Alle`ZXXLH6& }@`@rpt8VitalsBlood PressureBP <130/and <80BP@0s1d1Alld_YWWKG6& }@`@rpt8VitalsBlood PressureBPBP@0s1d1AllWRLJJ>:6& }@`@rpt8DemoEthnicityRace-Otherxrace@0s1d1All[VPNNB;/$ }@`@rpt8DemoEthnicityRace-Hispanicxrace6@0s1d1All^YSQQE>/$ }@`@rpt8DemoEthnicityRace-AmIndxrace7@0s1d1All[VPNNB;/$ }@`@rpt8DemoEthnicityRace-Whitexrace3@0s1d1All[VPNNB;/$ }@`@rpt8DemoEthnicityRace-Asianxrace3@0s1d1All[VPNNB;/$ }@`@rpt8DemoEthnicityRace-Blackxrace3@0s1d1All[VPNNB;/$ } @`@rpt8DemoAgeAge >= 75xage@0s1d1AllSNHFF:4)$ }!@`@rpt5ServicesNutEduc =dmNutEduc@0s1d1AllWRLJJ>5(( } @`@rpt5ServicesNutEducNutEducC@ 0s1d1AllSNHFF:1(( } @@rpt5Special MeasuresVisit no TobaccoAsmtchart_numberQ@ 0s1d1Allmhb``TF00 } @@rpt5Special MeasuresVisit no SMGoalchart_numberL@ 0s1d1Allhc][[OA00 } @@rpt5Special MeasuresVisit no BPchart_numberH@ 0s1d1Alld_YWWK=00 } @@rpt5Special MeasuresHTN-2 >=160 or >=100chart_number@@ 0s1d1AllnicaaUG00 } @@rpt5Special MeasuresHTN-1 140-159 or 90-99chart_number@@0s1d1AllpkeccWI00 } @@rpt5Special MeasurespreHTN 120-139 or 80-89chart_number@@0s1d1AllpkeccWI00 }@`@rpt5LabsFasting BSFBS >125FBSf@0s1d1AllXSMKK?:0$ }@`@rpt5LabsFasting BSFBS 100 - 125FBSu@0s1d1All]XRPPD?0$ }@`@rpt5LabsFasting BSFBS <100FBSf@0s1d1AllXSMKK?:0$ }@`@rpt5LabsFasting BSFasting BS averageFBSc@0s1d1Allb]WUUID0$ }LVAL0` < z  / *I@_}48OaIIf(Len([qActiveHealth1].[PIIf(Len([qActiveHealth1].[PDMQOC]),True) AS [PDMQOC506]IIf(Len([qActiveHealth1].[Hyperlipidemia]),True) AS [Hyperlipidemia505]IIf(Len([qActiveHealth1].[Hx-GDM]),True) AS [Hx-GDM504]IIf(Len([qActiveHealth1].[HTN]),True) AS [HTN503]IIf(Len([qActiveHealth1].[Heart]),True) AS [Heart502]IIf(IIf(Len([qActiveServicesLatest3].[NutEduc])>14,Mid([qActiveServicesLatest3].[NutEduc],13,Len([qActiveServicesLatest3].[NutEduc])-14), Null)='general',True ) As [NutEduc735]IIf(IIf(Len([qActiveServicesLatest3].[NutEduc])>14,Mid([qActiveServicesLatest3].[NutEduc],13,Len([qActiveServicesLatest3].[NutEduc])-14), Null)='htn-lipid',True ) As [NutEduc734]IIf(qsmQOC_VisitNoBP_InPeriod!chart_number, True) as [chart_number902]IIf(QRY_HbA1c90DaysApart!Ha1c90DaysApart, True) as [Ha1c90DaysApart901]IIf(IsNumeric([qActiveLabsLatest3].[trig]) AND CSng([qActiveLabsLatest3].[trig])>=500,True) as [trig806]IIf(IsNumeric([qActiveLabsLatest3].[trig]) AND CSng([qActiveLabsLatest3].[trig])between 200 AND 499,True) As [trig805]IIf(IsNumeric([qActiveLabsLatest3].[trig]) AND CSng([qActiveLabsLatest3].[trig])between 150 AND 199,True) As [trig804]IIf(IsNumeric([qActiveLabsLatest3].[trig]) AND CSng([qActiveLabsLatest3].[trig])<150,True) as [trig803]IIf(IsNumeric([qActiveLabsLatest3].[trig]),Csng([qActiveLabsLatest3].[trig]), Null) as [trig~avg802]IIf(Len([qActiveLabsLatest3].[trig]),True) AS [trig801]IIf(IsNumeric([qActiveLabsLatest3].[chol]) AND CSng([qActiveLabsLatest3].[chol])>=240,True) as [chol805]IIf(IsNumeric([qActiveLabsLatest3].[chol]) AND CSng([qActiveLabsLatest3].[chol])between 200 AND 239,True) As [chol804]IIf(IsNumeric([qActiveLabsLatest3].[chol]) AND CSng([qActiveLabsLatest3].[chol])<200,True) as [chol803]IIf(IsNumeric([qActiveLabsLatest3].[chol]),Csng([qActiveLabsLatest3].[chol]), Null) as [chol~avg802]IIf(Len([qActiveLabsLatest3].[chol]),True) AS [chol801]IIf(IsNumeric([qActiveLabsLatest3].[hdl]) AND CSng([qActiveLabsLatest3].[hdl])>=60,True) as [hdl808]IIf(IsNumeric([qActiveLabsLatest3].[hdl]) AND CSng([qActiveLabsLatest3].[hdl])between 50 AND 59,True) As [hdl807]IIf(IsNumeric([qActiveLabsLatest3].[hdl]) AND CSng([qActiveLabsLatest3].[hdl])between 40 AND 49,True) As [hdl806]IIf(IsNumeric([qActiveLabsLatest3].[hdl]) AND CSng([qActiveLabsLatest3].[hdl])<40,True) as [hdl805]IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')=75,True) as [xage210]IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')=65,True) as [xage209]IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')=18,True) as [xage208]IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')11 }@`@rpt8Health ConditionsPDMQOCPDMQOC9@0s1d1AllZUOMMA911 }@`@rpt8Health ConditionsHyperlipidemiaHyperlipidemiaI@0s1d1Allje_]]QA11 }@`@rpt8Health ConditionsHx-GDMHx-GDM9@0s1d1AllZUOMMA911 }@`@rpt8Health ConditionsHTNHTN3@0s1d1AllTOIGG;611 }@`@rpt8Health ConditionsHeartHeart7@0s1d1AllXSMKK?811 }#@`@rpt5ServicesNutEduc =generalNutEduc@0s1d1All\WQOOC:(( }"@`@rpt5ServicesNutEduc =htn-lipidNutEduc@0s1d1All^YSQQE<(( } @ @rpt6Special MeasuresVisit no BPchart_numberH@0s1d1Alld_YWWK=00 } @@rpt6Special Measures2 HbA1c 90+ days apartHa1c90DaysApartI@0s1d1AllrmgeeYH00 }@`@rpt6LabsTriglyceridetrig >=500trigj@0s1d1All]XRPPD>2$ }@`@rpt6LabsTriglyceridetrig 200 - 499trigx@0s1d1Alla\VTTHB2$ }@`@rpt6LabsTriglyceridetrig 150 - 199trigx@0s1d1Alla\VTTHB2$ }@`@rpt6LabsTriglyceridetrig <150trigi@0s1d1All\WQOOC=2$ }@`@rpt6LabsTriglycerideTriglyceride averagetrigf@0s1d1Allgb\ZZNH2$ }@`@rpt6LabsTriglycerideTriglyceridetrig9@0s1d1All_ZTRRF@2$ }@`@rpt6LabsCholesterolchol >=240cholj@0s1d1All\WQOOC=1$ }@`@rpt6LabsCholesterolchol 200 - 239cholx@0s1d1All`[USSGA1$ }@`@rpt6LabsCholesterolchol <200choli@ 0s1d1All[VPNNB<1$ }@`@rpt6LabsCholesterolCholesterol averagecholf@ 0s1d1Alle`ZXXLF1$ }@`@rpt6LabsCholesterolCholesterolchol9@ 0s1d1All]XRPPD>1$ }@`@rpt6LabsHDLhdl >=60hdlf@ 0s1d1AllQLFDD83)$ }@`@rpt6LabsHDLhdl 50 - 59hdls@ 0s1d1AllTOIGG;6)$ }@`@rpt6LabsHDLhdl 40 - 49hdls@0s1d1AllTOIGG;6)$ }@`@rpt6LabsHDLhdl <40hdle@0s1d1AllPKECC72)$ }@`@rpt6LabsHDLhdl >=35hdlf@#0s1d1AllQLFDD83)$ } @`@rpt7DemoAgeAge >= 75xage@0s1d1AllSNHFF:4)$ } @`@rpt7DemoAgeAge >= 65xage@0s1d1AllSNHFF:4)$ }@`@rpt7DemoAgeAge >= 18xage@0s1d1AllSNHFF:4)$ }@`@rpt7DemoAgeAge 65 to 74xage@0s1d1AllVQKII=7)$ }@`@rpt7DemoAgeAge 55 to 64xage@0s1d1AllVQKII=7)$ }@`@rpt7DemoAgeAge 45 to 54xage@0s1d1AllVQKII=7)$ }@`@rpt7DemoAgeAge 35 to 44xage@0s1d1AllVQKII=7)$ }PLVALs&F 3 @ c  )yjKIIf(IIf(Len([qActiveServicesLatest3].[Exer Ass])>14,Mid([qActiveServicesLatest3].[Exer AIIf(IIf(Len([qActiveServicesLatest3].[Exer Ass])>14,Mid([qActiveServicesLatest3].[Exer Ass],13,Len([qActiveServicesLatest3].[Exer Ass])-14), Null)='150+',True ) As [Exer Ass716]IIf(IIf(Len([qActiveServicesLatest3].[Exer Ass])>14,Mid([qActiveServicesLatest3].[Exer Ass],13,Len([qActiveServicesLatest3].[Exer Ass])-14), Null)='120-149',True ) As [Exer Ass715]IIf(IIf(Len([qActiveServicesLatest3].[Exer Ass])>14,Mid([qActiveServicesLatest3].[Exer Ass],13,Len([qActiveServicesLatest3].[Exer Ass])-14), Null)='90-119',True ) As [Exer Ass714]IIf(IIf(Len([qActiveServicesLatest3].[Exer Ass])>14,Mid([qActiveServicesLatest3].[Exer Ass],13,Len([qActiveServicesLatest3].[Exer Ass])-14), Null)='60-89',True ) As [Exer Ass713]IIf(IIf(Len([qActiveServicesLatest3].[Exer Ass])>14,Mid([qActiveServicesLatest3].[Exer Ass],13,Len([qActiveServicesLatest3].[Exer Ass])-14), Null)='30-59',True ) As [Exer Ass712]IIf(IIf(Len([qActiveServicesLatest3].[Exer Ass])>14,Mid([qActiveServicesLatest3].[Exer Ass],13,Len([qActiveServicesLatest3].[Exer Ass])-14), Null)='1-29',True ) As [Exer Ass711]IIf(IIf(Len([qActiveServicesLatest3].[Exer Ass])>14,Mid([qActiveServicesLatest3].[Exer Ass],13,Len([qActiveServicesLatest3].[Exer Ass])-14), Null)='0',True ) As [Exer Ass710]IIf(Len([qActiveServicesLatest3].[Exer Ass]),True) AS [Exer Ass709]IIf(IIf(Len([qActiveServicesLatest3].[DM Educ])>14,Mid([qActiveServicesLatest3].[DM Educ],13,Len([qActiveServicesLatest3].[DM Educ])-14), Null)='provider',True ) As [DM Educ708]IIf(IIf(Len([qActiveServicesLatest3].[DM Educ])>14,Mid([qActiveServicesLatest3].[DM Educ],13,Len([qActiveServicesLatest3].[DM Educ])-14), Null)='print',True ) As [DM Educ707]IIf(IIf(Len([qActiveServicesLatest3].[DM Educ])>14,Mid([qActiveServicesLatest3].[DM Educ],13,Len([qActiveServicesLatest3].[DM Educ])-14), Null)='group',True ) As [DM Educ706]IIf(IIf(Len([qActiveServicesLatest3].[DM Educ])>14,Mid([qActiveServicesLatest3].[DM Educ],13,Len([qActiveServicesLatest3].[DM Educ])-14), Null)='educator',True ) As [DM Educ705]IIf(Len([qActiveServicesLatest3].[DM Educ]),True) AS [DM Educ704]IIf(Len([qActiveServicesLatest3].[Depresn Scrn]),True) AS [Depresn Scrn703]IIf(Len([qActiveServicesLatest3].[CounselWT]),True) AS [CounselWT702]IIf(Len([qActiveServicesLatest3].[CounselAlcohol]),True) AS [CounselAlcohol701]IIf(Len([qActiveServicesLatest3].[SM Goal]),True) AS [SM Goal746]IIf(Len([qActiveServicesLatest3].[Retinal Ex]),True) AS [Retinal Ex745]IIf(Len([qActiveServicesLatest3].[Pne Vac]),True) AS [Pne Vac744]IIf(IIf(Len([qActiveServicesLatest3].[NutEduc])>14,Mid([qActiveServicesLatest3].[NutEduc],13,Len([qActiveServicesLatest3].[NutEduc])-14), Null)='other',True ) As [NutEduc743]IIf(IIf(Len([qActiveServicesLatest3].[NutEduc])>14,Mid([qActiveServicesLatest3].[NutEduc],13,Len([qActiveServicesLatest3].[NutEduc])-14), Null)='general',True ) As [NutEduc742]IIf(IIf(Len([qActiveServicesLatest3].[NutEduc])>14,Mid([qActiveServicesLatest3].[NutEduc],13,Len([qActiveServicesLatest3].[NutEduc])-14), Null)='htn-lipid',True ) As [NutEduc741]IIf(IIf(Len([qActiveServicesLatest3].[NutEduc])>14,Mid([qActiveServicesLatest3].[NutEduc],13,Len([qActiveServicesLatest3].[NutEduc])-14), Null)='dm',True ) As [NutEduc740]IIf(Len([qActiveServicesLatest3].[NutEduc]),True) AS [NutEduc739]IIf(qsmQOC_VisitNoTobaccoAsmt_InPeriod!chart_number, True) as [chart_number906]IIf(qsmQOC_VisitNoSMGoal_InPeriod!chart_number, True) as [chart_number905]IIf(qsmQOC_VisitNoRetinal_InPeriod!chart_number, True) as [chart_number904]IIf(qsmQOC_VisitNoFoot_InPeriod!chart_number, True) as [chart_number903]IIf(Len([qActiveHealth1].[Prediabetes]),True) AS [Prediabetes507]"{r  2 R j  *?]r +->T@`@rpt7DemoEthnicityRace-Asianxrace3@0s1d1All[VPNNB;/$ }@`@rpt7DemoEthnicityRace-Blackxrace3@0s1d1All[VPNNB;/$ }%@`@rpt8ServicesNutEducNutEducC@0s1d1AllSNHFF:1(( }@@rpt8ServicesLifestyleProg =LifemodLifestyleProg@0s1d1Allhc][[O@(( }@@rpt8ServicesLifestyleProg =KOHP-CDSMPLifestyleProg@0s1d1Allkf`^^RC(( }@@rpt8ServicesLifestyleProgLifestyleProgO@0s1d1All_ZTRRF7(( }@@rpt8ServicesFlu VacFlu VacC@0s1d1AllSNHFF:1(( }@@rpt8ServicesExer Ass =150+Exer Ass@0s1d1All[VPNNB8(( }@@rpt8ServicesExer Ass =120-149Exer Ass@0s1d1All^YSQQE;(( }@@rpt8ServicesExer Ass =90-119Exer Ass@0s1d1All]XRPPD:(( } @@rpt8ServicesExer Ass =60-89Exer Ass@0s1d1All\WQOOC9(( } @@rpt8ServicesExer Ass =30-59Exer Ass@0s1d1All\WQOOC9(( } @@rpt8ServicesExer Ass =1-29Exer Ass@0s1d1All[VPNNB8(( } @@rpt8ServicesExer Ass =0Exer Ass@0s1d1AllXSMKK?5(( } @@rpt8ServicesExer AsmtExer AssE@0s1d1AllVQKII=3(( }@@rpt8ServicesDM Educ =providerDM Educ@0s1d1All]XRPPD;(( }@@rpt8ServicesDM Educ =printDM Educ@0s1d1AllZUOMMA8(( }@@rpt8ServicesDM Educ =groupDM Educ@0s1d1AllZUOMMA8(( }@@rpt8ServicesDM Educ =educatorDM Educ@0s1d1All]XRPPD;(( }@@rpt8ServicesDM EducDM EducC@0s1d1AllSNHFF:1(( }@@rpt8ServicesDepresn ScrnDepresn ScrnM@0s1d1All]XRPPD6(( }@@rpt8ServicesCounselWTCounselWTG@0s1d1AllWRLJJ>3(( }@@rpt8ServicesCounselAlcoholCounselAlcoholQ@ 0s1d1Alla\VTTH8(( }.@`@rpt6ServicesSM GoalSM GoalC@ 0s1d1AllSNHFF:1(( }-@`@rpt6ServicesRetinal ExRetinal ExI@ 0s1d1AllYTNLL@4(( },@`@rpt6ServicesPne VacPne VacC@ 0s1d1AllSNHFF:1(( }+@`@rpt6ServicesNutEduc =otherNutEduc@ 0s1d1AllZUOMMA8(( }*@`@rpt6ServicesNutEduc =generalNutEduc@0s1d1All\WQOOC:(( })@`@rpt6ServicesNutEduc =htn-lipidNutEduc@0s1d1All^YSQQE<(( }(@`@rpt6ServicesNutEduc =dmNutEduc@0s1d1AllWRLJJ>5(( }'@`@rpt6ServicesNutEducNutEducC@0s1d1AllSNHFF:1(( } @ @rpt6Special MeasuresVisit no TobaccoAsmtchart_numberQ@0s1d1Allmhb``TF00 } @ @rpt6Special MeasuresVisit no SMGoalchart_numberL@0s1d1Allhc][[OA00 } @ @rpt6Special MeasuresVisit no RetinalExchart_numberM@0s1d1Allkf`^^RD00 }$LVALn a .  I , 8(t0OpIIf(IsNumeric([qActiveLabsLatest3].[ha1c]) AND CSnIIf(IsNumeric([qActiveLabsLatest3].[ha1c]) AND CSng([qActiveLabsLatest3].[ha1c])<7,True) as [ha1c806]IIf(IsNumeric([qActiveLabsLatest3].[ha1c]) AND CSng([qActiveLabsLatest3].[ha1c])between 6.5 AND 6.9,True) As [ha1c805]IIf(IsNumeric([qActiveLabsLatest3].[ha1c]) AND CSng([qActiveLabsLatest3].[ha1c])<6.5,True) as [ha1c804]IIf(IsNumeric([qActiveLabsLatest3].[ha1c]) AND CSng([qActiveLabsLatest3].[ha1c])between 5.7 AND 6.4,True) As [ha1c803]IIf(IsNumeric([qActiveLabsLatest3].[ha1c]),Csng([qActiveLabsLatest3].[ha1c]), Null) as [ha1c~avg802]IIf(Len([qActiveLabsLatest3].[ha1c]),True) AS [ha1c801]IIf(Len([qActiveServicesLatest3].[Pne Vac]),True) AS [Pne Vac742]IIf(IIf(Len([qActiveServicesLatest3].[NutEduc])>14,Mid([qActiveServicesLatest3].[NutEduc],13,Len([qActiveServicesLatest3].[NutEduc])-14), Null)='other',True ) As [NutEduc741]IIf(IIf(Len([qActiveServicesLatest3].[NutEduc])>14,Mid([qActiveServicesLatest3].[NutEduc],13,Len([qActiveServicesLatest3].[NutEduc])-14), Null)='general',True ) As [NutEduc740]IIf(IIf(Len([qActiveServicesLatest3].[NutEduc])>14,Mid([qActiveServicesLatest3].[NutEduc],13,Len([qActiveServicesLatest3].[NutEduc])-14), Null)='htn-lipid',True ) As [NutEduc739]IIf(IIf(Len([qActiveServicesLatest3].[NutEduc])>14,Mid([qActiveServicesLatest3].[NutEduc],13,Len([qActiveServicesLatest3].[NutEduc])-14), Null)='dm',True ) As [NutEduc738]IIf(IIf(Len([qActiveServicesLatest3].[Smke Ce])>14,Mid([qActiveServicesLatest3].[Smke Ce],13,Len([qActiveServicesLatest3].[Smke Ce])-14), Null)='group',True ) As [Smke Ce746]IIf(IIf(Len([qActiveServicesLatest3].[Smke Ce])>14,Mid([qActiveServicesLatest3].[Smke Ce],13,Len([qActiveServicesLatest3].[Smke Ce])-14), Null)='quitline',True ) As [Smke Ce745]IIf(IIf(Len([qActiveServicesLatest3].[Smke Ce])>14,Mid([qActiveServicesLatest3].[Smke Ce],13,Len([qActiveServicesLatest3].[Smke Ce])-14), Null)='1-on-1',True ) As [Smke Ce744]IIf(Len([qActiveServicesLatest3].[Smke Ce]),True) AS [Smke Ce743]IIf(IIf(Len([qActiveServicesLatest3].[Smke Ass])>14,Mid([qActiveServicesLatest3].[Smke Ass],13,Len([qActiveServicesLatest3].[Smke Ass])-14), Null)='never',True ) As [Smke Ass742]IIf(IIf(Len([qActiveServicesLatest3].[Smke Ass])>14,Mid([qActiveServicesLatest3].[Smke Ass],13,Len([qActiveServicesLatest3].[Smke Ass])-14), Null)='past',True ) As [Smke Ass741]IIf(IIf(Len([qActiveServicesLatest3].[Smke Ass])>14,Mid([qActiveServicesLatest3].[Smke Ass],13,Len([qActiveServicesLatest3].[Smke Ass])-14), Null)='current',True ) As [Smke Ass740]IIf(Len([qActiveServicesLatest3].[Smke Ass]),True) AS [Smke Ass739]IIf(Len([qActiveServicesLatest3].[SM Goal]),True) AS [SM Goal738]IIf(Len([qActiveServicesLatest3].[Pne Vac]),True) AS [Pne Vac737]IIf(IIf(Len([qActiveServicesLatest3].[NutEduc])>14,Mid([qActiveServicesLatest3].[NutEduc],13,Len([qActiveServicesLatest3].[NutEduc])-14), Null)='other',True ) As [NutEduc736]IIf(tblDemo.Ethnicity='Am Indian',True) AS [xrace204]IIf(tblDemo.Ethnicity='White',True) AS [xrace203]IIf(tblDemo.Ethnicity='Asian',True) AS [xrace202]IIf(tblDemo.Ethnicity='Black',True) AS [xrace201]IIf(Len([qActiveServicesLatest3].[NutEduc]),True) AS [NutEduc737]IIf(IIf(Len([qActiveServicesLatest3].[LifestyleProg])>14,Mid([qActiveServicesLatest3].[LifestyleProg],13,Len([qActiveServicesLatest3].[LifestyleProg])-14), Null)='Lifemod',True ) As [LifestyleProg720]IIf(IIf(Len([qActiveServicesLatest3].[LifestyleProg])>14,Mid([qActiveServicesLatest3].[LifestyleProg],13,Len([qActiveServicesLatest3].[LifestyleProg])-14), Null)='KOHP-CDSMP',True ) As [LifestyleProg719]IIf(Len([qActiveServicesLatest3].[LifestyleProg]),True) AS [LifestyleProg718]IIf(Len([qActiveServicesLatest3].[Flu Vac]),True) AS [Flu Vac717]#5 U h " 9 Ow!@Xu6Nh@`@rpt7VitalsBlood PressureBPBP@ 0s1d1AllWRLJJ>:6& }@`@rpt7DemoEthnicityRace-Otherxrace@ 0s1d1All[VPNNB;/$ }@`@rpt7DemoEthnicityRace-Hispanicxrace6@0s1d1All^YSQQE>/$ }@`@rpt8LabsLDLldl 100 - 129ldlu@0s1d1AllVQKII=8)$ }@`@rpt8LabsLDLldl <100ldlf@0s1d1AllQLFDD83)$ }@`@rpt8LabsLDLLDL averageldlc@0s1d1AllTOIGG;6)$ }@`@rpt8LabsLDLLDLldl7@0s1d1AllLGA??3.)$ } @@rpt8LabsHbA1Cha1c >=10ha1ci@0s1d1AllUPJHH<6+$ } @@rpt8LabsHbA1Cha1c 9.0 - 9.9ha1cx@0s1d1AllZUOMMA;+$ }@@rpt8LabsHbA1Cha1c 8.0 - 8.9ha1cx@0s1d1AllZUOMMA;+$ }@@rpt8LabsHbA1Cha1c 7.0 - 7.9ha1cx@0s1d1AllZUOMMA;+$ }@@rpt8LabsHbA1Cha1c <7ha1cg@0s1d1AllSNHFF:4+$ }@@rpt8LabsHbA1Cha1c 6.5 - 6.9ha1cx@0s1d1AllZUOMMA;+$ }@@rpt8LabsHbA1Cha1c <6.5ha1ci@0s1d1AllUPJHH<6+$ }@@rpt8LabsHbA1Cha1c 5.7 - 6.4ha1cx@0s1d1AllZUOMMA;+$ }@`@rpt8LabsHbA1CHbA1C averageha1cf@0s1d1AllYTNLL@:+$ }@`@rpt8LabsHbA1CHbA1Cha1c9@0s1d1AllQLFDD82+$ }*@`@rpt8ServicesPne VacPne VacC@0s1d1AllSNHFF:1(( })@`@rpt8ServicesNutEduc =otherNutEduc@0s1d1AllZUOMMA8(( }(@`@rpt8ServicesNutEduc =generalNutEduc@0s1d1All\WQOOC:(( }'@`@rpt8ServicesNutEduc =htn-lipidNutEduc@0s1d1All^YSQQE<(( }&@`@rpt8ServicesNutEduc =dmNutEduc@0s1d1AllWRLJJ>5(( }.@`@rpt5ServicesSmke Ce =groupSmke Ce@0s1d1AllZUOMMA8(( }-@`@rpt5ServicesSmke Ce =quitlineSmke Ce@0s1d1All]XRPPD;(( },@`@rpt5ServicesSmke Ce =1-on-1Smke Ce@0s1d1All[VPNNB9(( }+@`@rpt5ServicesTobacco CeSmke CeC@0s1d1AllVQKII=4(( }*@`@rpt5ServicesSmke Ass =neverSmke Ass@0s1d1All\WQOOC9(( })@`@rpt5ServicesSmke Ass =pastSmke Ass@0s1d1All[VPNNB8(( }(@`@rpt5ServicesSmke Ass =currentSmke Ass@ 0s1d1All^YSQQE;(( }'@`@rpt5ServicesTobacco AsmtSmke AssE@ 0s1d1AllYTNLL@6(( }&@`@rpt5ServicesSM GoalSM GoalC@ 0s1d1AllSNHFF:1(( }%@`@rpt5ServicesPne VacPne VacC@ 0s1d1AllSNHFF:1(( }$@`@rpt5ServicesNutEduc =otherNutEduc@ 0s1d1AllZUOMMA8(( }@`@rpt7DemoEthnicityRace-AmIndxrace7@0s1d1All[VPNNB;/$ }@`@rpt7DemoEthnicityRace-Whitexrace3@0s1d1All[VPNNB;/$ }LVAL!/ / 4 w 4 ^cLJ"IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')=6,True) AS [xvisit209]IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]) And ([QRY_LatestVisitDate].[CountOfVisits]) Between 3 And 5,True) AS [xvisit208]IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]) And ([QRY_LatestVisitDate].[CountOfVisits]) Between 1 And 2,True) AS [xvisit207]IIf(IsNull([QRY_LatestVisitDate].[CountOfVisits]),True) As [xvisit206]IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]),CInt([QRY_LatestVisitDate].[CountOfVisits]),Null) AS [xvisit~avg202]tblDemo.Patient_ID as [xvisit201]IIf(Len([qActiveServicesLatest3].[Smke Ce]),True) AS [Smke Ce751]IIf(IIf(Len([qActiveServicesLatest3].[Smke Ass])>14,Mid([qActiveServicesLatest3].[Smke Ass],13,Len([qActiveServicesLatest3].[Smke Ass])-14), Null)='never',True ) As [Smke Ass750]IIf(IIf(Len([qActiveServicesLatest3].[Smke Ass])>14,Mid([qActiveServicesLatest3].[Smke Ass],13,Len([qActiveServicesLatest3].[Smke Ass])-14), Null)='past',True ) As [Smke Ass749]IIf(IIf(Len([qActiveServicesLatest3].[Smke Ass])>14,Mid([qActiveServicesLatest3].[Smke Ass],13,Len([qActiveServicesLatest3].[Smke Ass])-14), Null)='current',True ) As [Smke Ass748]IIf(Len([qActiveServicesLatest3].[Smke Ass]),True) AS [Smke Ass747]IIf(IsNumeric([qry_LatestBMI].[bmi]) And CSng([qry_LatestBMI].[bmi])between 35 AND 39.9,True) AS [BMI306]IIf(IsNumeric([qry_LatestBMI].[bmi]) And CSng([qry_LatestBMI].[bmi])between 30 AND 34.9,True) AS [BMI305]IIf(IsNumeric([qry_LatestBMI].[bmi]) And CSng([qry_LatestBMI].[bmi])between 25 AND 29.9,True) AS [BMI304]IIf(IsNumeric([qry_LatestBMI].[bmi]) And CSng([qry_LatestBMI].[bmi])between 18.5 AND 24.9,True) AS [BMI303]IIf(IsNumeric([qry_LatestBMI].[bmi]) And CSng([qry_LatestBMI].[bmi])between 10 AND 18.4,True) AS [BMI302]IIf(IsNumeric(QRY_LatestBMI.BMI), True) as [bmi301]IIf([QRY_Latest_BP_>Systolic/Diastolic2].[bp_systolic]<120 AND [QRY_Latest_BP_>Systolic/Diastolic2].[bp_diastolic]<80,True) As [BP302]Iif(IsNumeric([QRY_Latest_BP_>Systolic/Diastolic2].[bp_systolic]) AND Isnumeric([QRY_Latest_BP_>Systolic/Diastolic2].[bp_diastolic]),True) as [bp301]IIf(tblDemo.Ethnicity<>'Asian' And tblDemo.ethnicity <> 'Black' And tblDemo.ethnicity<>'Am Indian' And tblDemo.ethnicity<>'White' And tblDemo.ethnicity<>'Hispanic',True) AS [xrace206]IIf(tblDemo.Ethnicity='Hispanic',True) AS [xrace205]IIf(IsNumeric([qActiveLabsLatest3].[ldl]) AND CSng([qActiveLabsLatest3].[ldl])between 100 AND 129,True) As [ldl804]IIf(IsNumeric([qActiveLabsLatest3].[ldl]) AND CSng([qActiveLabsLatest3].[ldl])<100,True) as [ldl803]IIf(IsNumeric([qActiveLabsLatest3].[ldl]),Csng([qActiveLabsLatest3].[ldl]), Null) as [ldl~avg802]IIf(Len([qActiveLabsLatest3].[ldl]),True) AS [ldl801]IIf(IsNumeric([qActiveLabsLatest3].[ha1c]) AND CSng([qActiveLabsLatest3].[ha1c])>=10,True) as [ha1c810]IIf(IsNumeric([qActiveLabsLatest3].[ha1c]) AND CSng([qActiveLabsLatest3].[ha1c])between 9.0 AND 9.9,True) As [ha1c809]IIf(IsNumeric([qActiveLabsLatest3].[ha1c]) AND CSng([qActiveLabsLatest3].[ha1c])between 8.0 AND 8.9,True) As [ha1c808]IIf(IsNumeric([qActiveLabsLatest3].[ha1c]) AND CSng([qActiveLabsLatest3].[ha1c])between 7.0 AND 7.9,True) As [ha1c807]H"  ( ; U  A R^s>^~ @@rpt7LabsBody Mass IndexBMI >= 100BMI]@ 0s1d1All_ZTRRFA5$ }@@rpt7LabsBody Mass IndexBMI 0 to 9.9BMIi@0s1d1Alla\VTTHC5$ }@@rpt7LabsBody Mass IndexBMI >= 40BMI\@0s1d1All^YSQQE@5$ }/@`@rpt5ServicesSmke Ce =RxTherapySmke Ce@0s1d1All^YSQQE<(( }@`@rpt6DemoAgeAge 65 to 74xage@0s1d1AllVQKII=7)$ }@`@rpt6DemoAgeAge 55 to 64xage@0s1d1AllVQKII=7)$ }@`@rpt6DemoAgeAge 45 to 54xage@0s1d1AllVQKII=7)$ }@`@rpt6DemoAgeAge 35 to 44xage@0s1d1AllVQKII=7)$ }@`@rpt6DemoAgeAge 25 to 34xage@0s1d1AllVQKII=7)$ }@`@rpt6DemoAgeAge 18 to 24xage@0s1d1AllVQKII=7)$ }@`@rpt6DemoAgeAge 0 to 18xage@ 0s1d1AllUPJHH<6)$ }@`@rpt6DemoGenderGender-Unknxsex?@0s1d1AllXSMKK?9,$ }@`@rpt6DemoGenderGender-Femalexsex(@0s1d1AllZUOMMA;,$ }@`@rpt6DemoGenderGender-Malexsex(@0s1d1AllXSMKK?9,$ } @@rpt6DemoVisitsPts w/ 6+ visitsxvisit{@0s1d1All_ZTRRF>,$ }@@rpt6DemoVisitsPts w/ 3-5 visitsxvisit@0s1d1All`[USSG?,$ }@@rpt6DemoVisitsPts w/ 1-2 visitsxvisit@0s1d1All`[USSG?,$ }@@rpt6DemoVisitsPts w/ 0 visitsxvisitH@0s1d1All^YSQQE=,$ }@`@rpt6DemoVisitsPts Avg Visitsxvisit{@0s1d1All]XRPPD<,$ }@`@rpt6DemoVisitsPts Countxvisit#@0s1d1AllXSMKK?7,$ }@`@rpt6DM-2DM-20s1d1All72,***$ |@`@rpt6DM-1DM-10s1d1All72,***$ |3@`@rpt6ServicesTobacco CeSmke CeC@0s1d1AllVQKII=4(( }2@`@rpt6ServicesSmke Ass =neverSmke Ass@0s1d1All\WQOOC9(( }1@`@rpt6ServicesSmke Ass =pastSmke Ass@0s1d1All[VPNNB8(( }0@`@rpt6ServicesSmke Ass =currentSmke Ass@0s1d1All^YSQQE;(( }/@`@rpt6ServicesTobacco AsmtSmke AssE@0s1d1AllYTNLL@6(( }@@rpt7LabsBody Mass IndexBMI 35 to 39.9BMIk@0s1d1Allc^XVVJE5$ }@@rpt7LabsBody Mass IndexBMI 30 to 34.9BMIk@0s1d1Allc^XVVJE5$ }@@rpt7LabsBody Mass IndexBMI 25 to 29.9BMIk@0s1d1Allc^XVVJE5$ }@@rpt7LabsBody Mass IndexBMI 18.5 to 24.9BMIm@0s1d1Alle`ZXXLG5$ }@@rpt7LabsBody Mass IndexBMI 10 to 18.4BMIk@ 0s1d1Allc^XVVJE5$ }@@rpt7VitalsBody Mass IndexBMIBMI5@ 0s1d1AllZUOMMA<7& }@`@rpt7VitalsBlood PressureBP <120/and <80BP@ 0s1d1Alld_YWWKG6& }LVAL0` l  J  d/G$aSIzIIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')=6,True) AS [xvisit209]IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]) And ([QRY_LatestVisitDate].[CountOfVisits]) Between 3 And 5,True) AS [xvisit208]IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]) And ([QRY_LatestVisitDate].[CountOfVisits]) Between 1 And 2,True) AS [xvisit207]IIf(IsNull([QRY_LatestVisitDate].[CountOfVisits]),True) As [xvisit206]IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]),CInt([QRY_LatestVisitDate].[CountOfVisits]),Null) AS [xvisit~avg202]tblDemo.Patient_ID as [xvisit201]IIf(Len([qActiveHealth1].[Hyperlipidemia]),True) AS [Hyperlipidemia509]IIf(Len([qActiveHealth1].[HTN]),True) AS [HTN508]IIf(Len([qActiveHealth1].[Heart]),True) AS [Heart507]IIf(Len([qActiveHealth1].[DM-2]),True) AS [DM-2506]IIf(Len([qActiveHealth1].[DM-1]),True) AS [DM-1505]IIf(Len([qActiveHealth1].[CoronaryAthero]),True) AS [CoronaryAthero504]IIf(Len([qActiveHealth1].[CKD]),True) AS [CKD503]IIf(Len([qActiveHealth1].[CHQOC]),True) AS [CHQOC502]IIf(Len([qActiveHealth1].[CVD]),True) AS [CVD501]IIf(IsNumeric([qry_LatestBMI].[BMI]) AND CInt([qry_LatestBMI].[BMI])>=100,True) as [BMI309]IIf(IsNumeric([qry_LatestBMI].[bmi]) And CSng([qry_LatestBMI].[bmi])between 0 AND 9.9,True) AS [BMI308]IIf(IsNumeric([qry_LatestBMI].[BMI]) AND CInt([qry_LatestBMI].[BMI])>=40,True) as [BMI307]IIf(IIf(Len([qActiveServicesLatest3].[Smke Ce])>14,Mid([qActiveServicesLatest3].[Smke Ce],13,Len([qActiveServicesLatest3].[Smke Ce])-14), Null)='RxTherapy',True ) As [Smke Ce747]IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')/$ }@`@rpt5DemoEthnicityRace-AmIndxrace7@ 0s1d1All[VPNNB;/$ }@`@rpt5DemoEthnicityRace-Whitexrace3@ 0s1d1All[VPNNB;/$ }@`@rpt5DemoEthnicityRace-Asianxrace3@0s1d1All[VPNNB;/$ }@`@rpt5DemoEthnicityRace-Blackxrace3@0s1d1All[VPNNB;/$ } @`@rpt5DemoAgeAge >= 75xage@0s1d1AllSNHFF:4)$ } @`@rpt5DemoAgeAge >= 65xage@0s1d1AllSNHFF:4)$ }@`@rpt5DemoAgeAge >= 18xage@0s1d1AllSNHFF:4)$ }@`@rpt5DemoAgeAge 65 to 74xage@0s1d1AllVQKII=7)$ }@`@rpt5DemoAgeAge 55 to 64xage@0s1d1AllVQKII=7)$ }@`@rpt5DemoAgeAge 45 to 54xage@0s1d1AllVQKII=7)$ }@`@rpt5DemoAgeAge 35 to 44xage@0s1d1AllVQKII=7)$ }@`@rpt5DemoAgeAge 25 to 34xage@0s1d1AllVQKII=7)$ }@`@rpt5DemoAgeAge 18 to 24xage@0s1d1AllVQKII=7)$ }@`@rpt5DemoAgeAge 0 to 18xage@0s1d1AllUPJHH<6)$ }@`@rpt5DemoGenderGender-Unknxsex?@0s1d1AllXSMKK?9,$ }@`@rpt5DemoGenderGender-Femalexsex(@0s1d1AllZUOMMA;,$ }@`@rpt5DemoGenderGender-Malexsex(@0s1d1AllXSMKK?9,$ } @@rpt5DemoVisitsPts w/ 6+ visitsxvisit{@0s1d1All_ZTRRF>,$ }@@rpt5DemoVisitsPts w/ 3-5 visitsxvisit@0s1d1All`[USSG?,$ }@@rpt5DemoVisitsPts w/ 1-2 visitsxvisit@0s1d1All`[USSG?,$ }@@rpt5DemoVisitsPts w/ 0 visitsxvisitH@0s1d1All^YSQQE=,$ }@`@rpt5DemoVisitsPts Avg Visitsxvisit{@0s1d1All]XRPPD<,$ }@`@rpt5DemoVisitsPts Countxvisit#@0s1d1AllXSMKK?7,$ }@`@rpt5HTNHTN0s1d1All50*(((# | @`@rpt7Health ConditionsHyperlipidemiaHyperlipidemiaI@0s1d1Allje_]]QA11 }@`@rpt7Health ConditionsHTNHTN3@0s1d1AllTOIGG;611 }@`@rpt7Health ConditionsHeartHeart7@0s1d1AllXSMKK?811 }@`@rpt7Health ConditionsDM-2DM-25@0s1d1AllVQKII=711 }@`@rpt7Health ConditionsDM-1DM-15@0s1d1AllVQKII=711 }@`@rpt7Health ConditionsCoronaryAtheroCoronaryAtheroI@ 0s1d1Allje_]]QA11 }@`@rpt7Health ConditionsCKDCKD3@ 0s1d1AllTOIGG;611 }@`@rpt7Health ConditionsCHQOCCHQOC7@ 0s1d1AllXSMKK?811 }@`@rpt7Health ConditionsCerebrovascularCVD3@ 0s1d1All`[USSGB11 } LVAL0` < z G  t $g4c's TIIf(IIf(Len([qActiveServicesLatest3].[Exer Ass])>14,Mid([qActiveServicesLatest3].[Exer AsIIf(IIf(Len([qActiveServicesLatest3].[Exer Ass])>14,Mid([qActiveServicesLatest3].[Exer Ass],13,Len([qActiveServicesLatest3].[Exer Ass])-14), Null)='120-149',True ) As [Exer Ass710]IIf(IIf(Len([qActiveServicesLatest3].[Exer Ass])>14,Mid([qActiveServicesLatest3].[Exer Ass],13,Len([qActiveServicesLatest3].[Exer Ass])-14), Null)='90-119',True ) As [Exer Ass709]IIf(IIf(Len([qActiveServicesLatest3].[Exer Ass])>14,Mid([qActiveServicesLatest3].[Exer Ass],13,Len([qActiveServicesLatest3].[Exer Ass])-14), Null)='60-89',True ) As [Exer Ass708]IIf(IIf(Len([qActiveServicesLatest3].[Exer Ass])>14,Mid([qActiveServicesLatest3].[Exer Ass],13,Len([qActiveServicesLatest3].[Exer Ass])-14), Null)='30-59',True ) As [Exer Ass707]IIf(IIf(Len([qActiveServicesLatest3].[Exer Ass])>14,Mid([qActiveServicesLatest3].[Exer Ass],13,Len([qActiveServicesLatest3].[Exer Ass])-14), Null)='1-29',True ) As [Exer Ass706]IIf(IIf(Len([qActiveServicesLatest3].[Exer Ass])>14,Mid([qActiveServicesLatest3].[Exer Ass],13,Len([qActiveServicesLatest3].[Exer Ass])-14), Null)='0',True ) As [Exer Ass705]IIf(Len([qActiveServicesLatest3].[Exer Ass]),True) AS [Exer Ass704]IIf(Len([qActiveServicesLatest3].[Depresn Scrn]),True) AS [Depresn Scrn703]IIf(Len([qActiveServicesLatest3].[CounselWT]),True) AS [CounselWT702]IIf(Len([qActiveServicesLatest3].[CounselAlcohol]),True) AS [CounselAlcohol701]IIf(Len([qActiveHealth1].[Prior MI]),True) AS [Prior MI512]IIf(Len([qActiveHealth1].[Prediabetes]),True) AS [Prediabetes511]IIf(Len([qActiveHealth1].[PVD]),True) AS [PVD510]IIf(IsNumeric(QRY_LatestBMI.BMI), True) as [bmi301]IIf([QRY_Latest_BP_>Systolic/Diastolic2].[bp_systolic]<120 AND [QRY_Latest_BP_>Systolic/Diastolic2].[bp_diastolic]<80,True) As [BP303]Iif(IsNumeric([QRY_Latest_BP_>Systolic/Diastolic2].[bp_systolic]) AND Isnumeric([QRY_Latest_BP_>Systolic/Diastolic2].[bp_diastolic]),True) as [bp301]IIf(tblDemo.Ethnicity<>'Asian' And tblDemo.ethnicity <> 'Black' And tblDemo.ethnicity<>'Am Indian' And tblDemo.ethnicity<>'White' And tblDemo.ethnicity<>'Hispanic',True) AS [xrace206]IIf(tblDemo.Ethnicity='Hispanic',True) AS [xrace205]IIf(tblDemo.Ethnicity='Am Indian',True) AS [xrace204]IIf(tblDemo.Ethnicity='White',True) AS [xrace203]IIf(tblDemo.Ethnicity='Asian',True) AS [xrace202]IIf(tblDemo.Ethnicity='Black',True) AS [xrace201]IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')=75,True) as [xage210]IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')=65,True) as [xage209]IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')=18,True) as [xage208]IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')=190ldlg@0s1d1AllRMGEE94)$ }@`@rpt8LabsLDLldl 160 - 189ldlu@0s1d1AllVQKII=8)$ }@`@rpt8LabsLDLldl 130 - 159ldlu@0s1d1AllVQKII=8)$ }@@rpt5LabsBody Mass IndexBMI 18.5 to 24.9BMIm@ 0s1d1Alle`ZXXLG5$ }@@rpt5LabsBody Mass IndexBMI 10 to 18.4BMIk@ 0s1d1Allc^XVVJE5$ }@`@rpt7LabsLDLLDL averageldlc@ 0s1d1AllTOIGG;6)$ }@`@rpt7LabsLDLLDLldl7@ 0s1d1AllLGA??3.)$ }@`@rpt7LabsHbA1CHbA1C averageha1cf@ 0s1d1AllYTNLL@:+$ }@`@rpt7LabsHbA1CHbA1Cha1c9@0s1d1AllQLFDD82+$ }"@`@rpt7ServicesNutEduc =htn-lipidNutEduc@0s1d1All^YSQQE<(( }!@`@rpt7ServicesNutEduc =dmNutEduc@0s1d1AllWRLJJ>5(( } @`@rpt7ServicesNutEducNutEducC@0s1d1AllSNHFF:1(( }@@rpt7ServicesLifestyleProg =LifemodLifestyleProg@0s1d1Allhc][[O@(( }@@rpt7ServicesLifestyleProg =KOHP-CDSMPLifestyleProg@0s1d1Allkf`^^RC(( } @@rpt7ServicesLifestyleProgLifestyleProgO@0s1d1All_ZTRRF7(( } @@rpt7ServicesFlu VacFlu VacC@0s1d1AllSNHFF:1(( } @@rpt7ServicesExer Ass =150+Exer Ass@0s1d1All[VPNNB8(( } @@rpt7ServicesExer Ass =120-149Exer Ass@0s1d1All^YSQQE;(( } @@rpt7ServicesExer Ass =90-119Exer Ass@0s1d1All]XRPPD:(( }@@rpt7ServicesExer Ass =60-89Exer Ass@0s1d1All\WQOOC9(( }@@rpt7ServicesExer Ass =30-59Exer Ass@0s1d1All\WQOOC9(( }@@rpt7ServicesExer Ass =1-29Exer Ass@0s1d1All[VPNNB8(( }@@rpt7ServicesExer Ass =0Exer Ass@0s1d1AllXSMKK?5(( }@@rpt7ServicesExer AsmtExer AssE@0s1d1AllVQKII=3(( }@@rpt7ServicesDepresn ScrnDepresn ScrnM@0s1d1All]XRPPD6(( }@@rpt7ServicesCounselWTCounselWTG@0s1d1AllWRLJJ>3(( }@@rpt7ServicesCounselAlcoholCounselAlcoholQ@0s1d1Alla\VTTH8(( } @`@rpt7Health ConditionsPrior MIPrior MI=@0s1d1All^YSQQE;11 } @`@rpt7Health ConditionsPrediabetesPrediabetesC@0s1d1Alld_YWWK>11 } @`@rpt7Health ConditionsPeriph vascularPVD3@0s1d1All`[USSGB11 }@@rpt5VitalsBody Mass IndexBMIBMI5@0s1d1AllZUOMMA<7& }@@rpt5VitalsBlood PressureBP <120/and <80BP@0s1d1Alld_YWWKG6& }@@rpt5VitalsBlood PressureBPBP@ 0s1d1AllWRLJJ>:6& }@`@rpt5DemoEthnicityRace-Otherxrace@ 0s1d1All[VPNNB;/$ }LVAL"M  $ 4 G G o 5s@ >XSIIf(IsNumeric([qActiveLabsLatest3].[chol]),Csng([IIf(IsNumeric([qActiveLabsLatest3].[chol]),Csng([qActiveLabsLatest3].[chol]), Null) as [chol~avg802]IIf(Len([qActiveLabsLatest3].[chol]),True) AS [chol801]IIf(IsNumeric([qActiveLabsLatest3].[hdl]) AND CSng([qActiveLabsLatest3].[hdl])>=60,True) as [hdl808]IIf(IsNumeric([qActiveLabsLatest3].[hdl]) AND CSng([qActiveLabsLatest3].[hdl])between 50 AND 59,True) As [hdl807]IIf(IsNumeric([qActiveLabsLatest3].[hdl]) AND CSng([qActiveLabsLatest3].[hdl])between 40 AND 49,True) As [hdl806]IIf(IsNumeric([qActiveLabsLatest3].[hdl]) AND CSng([qActiveLabsLatest3].[hdl])<40,True) as [hdl805]IIf(tblDemo.Ethnicity='Am Indian',True) AS [xrace204]IIf(tblDemo.Ethnicity='White',True) AS [xrace203]IIf(tblDemo.Ethnicity='Asian',True) AS [xrace202]IIf(tblDemo.Ethnicity='Black',True) AS [xrace201]IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')=75,True) as [xage210]IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')=65,True) as [xage209]IIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob,Forms![frmReports]![txtEndDate]) +Int(Format(Forms![frmReports]![txtEndDate],'mmdd')=18,True) as [xage208]IIf(IsNumeric([qActiveLabsLatest3].[hdl]) AND CSng([qActiveLabsLatest3].[hdl])>=35,True) as [hdl804]IIf(IsNumeric([qActiveLabsLatest3].[hdl]) AND CSng([qActiveLabsLatest3].[hdl])<35,True) as [hdl803]IIf(IsNumeric([qActiveLabsLatest3].[hdl]),Csng([qActiveLabsLatest3].[hdl]), Null) as [hdl~avg802]IIf(Len([qActiveLabsLatest3].[hdl]),True) AS [hdl801]IIf(IsNumeric([qActiveLabsLatest3].[ldl]) AND CSng([qActiveLabsLatest3].[ldl])>=190,True) as [ldl807]IIf(IsNumeric([qActiveLabsLatest3].[ldl]) AND CSng([qActiveLabsLatest3].[ldl])between 160 AND 189,True) As [ldl806]IIf(IsNumeric([qActiveLabsLatest3].[ldl]) AND CSng([qActiveLabsLatest3].[ldl])between 130 AND 159,True) As [ldl805]IIf(IsNumeric([qry_LatestBMI].[bmi]) And CSng([qry_LatestBMI].[bmi])between 18.5 AND 24.9,True) AS [BMI304]IIf(IsNumeric([qry_LatestBMI].[bmi]) And CSng([qry_LatestBMI].[bmi])between 10 AND 18.4,True) AS [BMI303]IIf(IsNumeric([qActiveLabsLatest3].[ldl]),Csng([qActiveLabsLatest3].[ldl]), Null) as [ldl~avg802]IIf(Len([qActiveLabsLatest3].[ldl]),True) AS [ldl801]IIf(IsNumeric([qActiveLabsLatest3].[ha1c]),Csng([qActiveLabsLatest3].[ha1c]), Null) as [ha1c~avg802]IIf(Len([qActiveLabsLatest3].[ha1c]),True) AS [ha1c801]IIf(IIf(Len([qActiveServicesLatest3].[NutEduc])>14,Mid([qActiveServicesLatest3].[NutEduc],13,Len([qActiveServicesLatest3].[NutEduc])-14), Null)='htn-lipid',True ) As [NutEduc734]IIf(IIf(Len([qActiveServicesLatest3].[NutEduc])>14,Mid([qActiveServicesLatest3].[NutEduc],13,Len([qActiveServicesLatest3].[NutEduc])-14), Null)='dm',True ) As [NutEduc733]IIf(Len([qActiveServicesLatest3].[NutEduc]),True) AS [NutEduc732]IIf(IIf(Len([qActiveServicesLatest3].[LifestyleProg])>14,Mid([qActiveServicesLatest3].[LifestyleProg],13,Len([qActiveServicesLatest3].[LifestyleProg])-14), Null)='Lifemod',True ) As [LifestyleProg715]IIf(IIf(Len([qActiveServicesLatest3].[LifestyleProg])>14,Mid([qActiveServicesLatest3].[LifestyleProg],13,Len([qActiveServicesLatest3].[LifestyleProg])-14), Null)='KOHP-CDSMP',True ) As [LifestyleProg714]IIf(Len([qActiveServicesLatest3].[LifestyleProg]),True) AS [LifestyleProg713]IIf(Len([qActiveServicesLatest3].[Flu Vac]),True) AS [Flu Vac712]IIf(IIf(Len([qActiveServicesLatest3].[Exer Ass])>14,Mid([qActiveServicesLatest3].[Exer Ass],13,Len([qActiveServicesLatest3].[Exer Ass])-14), Null)='150+',True ) As [Exer Ass711].",W }  & < d   06EScz  @@rpt8Special Measures2 HbA1c 90+ days apartHa1c90DaysApartI@0s1d1AllrmgeeYH00 }@`@rpt8LabsWaistCircumWaistCircumWaistCircumG@0s1d1Alld_YWWK>1$ }@`@rpt8LabsGlucose TolGlucose TolGlucose TolG@0s1d1Alld_YWWK>1$ }@`@rpt8LabsFasting BSFBS >125FBSf@ 0s1d1AllXSMKK?:0$ }@`@rpt8LabsFasting BSFBS 100 - 125FBSu@ 0s1d1All]XRPPD?0$ }@`@rpt8LabsFasting BSFBS <100FBSf@ 0s1d1AllXSMKK?:0$ }@`@rpt8LabsFasting BSFasting BS averageFBSc@ 0s1d1Allb]WUUID0$ }@`@rpt8LabsFasting BSFasting BSFBS7@ 0s1d1AllZUOMMA<0$ }@`@rpt8LabsTriglyceridetrig >=500trigj@0s1d1All]XRPPD>2$ }@`@rpt8LabsTriglyceridetrig 200 - 499trigx@0s1d1Alla\VTTHB2$ }@`@rpt8LabsTriglyceridetrig 150 - 199trigx@0s1d1Alla\VTTHB2$ }@`@rpt8LabsTriglyceridetrig <150trigi@0s1d1All\WQOOC=2$ }@`@rpt8LabsTriglycerideTriglyceride averagetrigf@0s1d1Allgb\ZZNH2$ }@`@rpt8LabsTriglycerideTriglyceridetrig9@0s1d1All_ZTRRF@2$ }@`@rpt8LabsCholesterolchol >=240cholj@0s1d1All\WQOOC=1$ }@`@rpt8LabsCholesterolchol 200 - 239cholx@0s1d1All`[USSGA1$ }@`@rpt8LabsCholesterolchol <200choli@0s1d1All[VPNNB<1$ }@`@rpt8LabsCholesterolCholesterol averagecholf@!0s1d1Alle`ZXXLF1$ }@`@rpt8LabsCholesterolCholesterolchol9@ 0s1d1All]XRPPD>1$ }@`@rpt8LabsHDLhdl >=60hdlf@0s1d1AllQLFDD83)$ }@`@rpt8LabsHDLhdl 50 - 59hdls@0s1d1AllTOIGG;6)$ }@`@rpt8LabsHDLhdl 40 - 49hdls@0s1d1AllTOIGG;6)$ }@`@rpt8LabsHDLhdl <40hdle@0s1d1AllPKECC72)$ }@`@rpt6DemoEthnicityRace-AmIndxrace7@0s1d1All[VPNNB;/$ }@`@rpt6DemoEthnicityRace-Whitexrace3@0s1d1All[VPNNB;/$ }@`@rpt6DemoEthnicityRace-Asianxrace3@0s1d1All[VPNNB;/$ }@`@rpt6DemoEthnicityRace-Blackxrace3@0s1d1All[VPNNB;/$ } @`@rpt6DemoAgeAge >= 75xage@0s1d1AllSNHFF:4)$ } @`@rpt6DemoAgeAge >= 65xage@0s1d1AllSNHFF:4)$ }@`@rpt6DemoAgeAge >= 18xage@0s1d1AllSNHFF:4)$ }@`@rpt8LabsHDLhdl >=35hdlf@0s1d1AllQLFDD83)$ }@`@rpt8LabsHDLhdl <35hdle@0s1d1AllPKECC72)$ }@`@rpt8LabsHDLHDL averagehdlc@0s1d1AllTOIGG;6)$ }@`@rpt8LabsHDLHDLhdl7@0s1d1AllLGA??3.)$ }LVAL,| 5 S  S x 1 Y Q{Y&u@ `>s.xIIf(IIf(Len([qActiveServicesLatest3].[Smke Ass])>14,Mid([qActiveServicesLatest3].[Smke AsIIf(IIf(Len([qActiveServicesLatest3].[Smke Ass])>14,Mid([qActiveServicesLatest3].[Smke Ass],13,Len([qActiveServicesLatest3].[Smke Ass])-14), Null)='current',True ) As [Smke Ass745]IIf(Len([qActiveServicesLatest3].[Smke Ass]),True) AS [Smke Ass744]IIf(Len([qActiveServicesLatest3].[SM Goal]),True) AS [SM Goal743]IIf(qsmQOC_M_WaistOver40!chart_number, True) as [chart_number909]IIf(qsmQOC_M_Waist40orLess!chart_number, True) as [chart_number908]IIf(qsmQOC_F_WaistOver35!chart_number, True) as [chart_number907]IIf(qsmQOC_F_Waist35orLess!chart_number, True) as [chart_number906]IIf(qsmQOC_VisitNoWaistCircum_InPeriod!chart_number, True) as [chart_number905]IIf(Len([qActiveHealth1].[Hyperlipidemia]),True) AS [Hyperlipidemia510]IIf(Len([qActiveHealth1].[HTN Kidney]),True) AS [HTN Kidney509]IIf(Len([qActiveHealth1].[HTN]),True) AS [HTN508]IIf(Len([qActiveHealth1].[HQOC]),True) AS [HQOC507]IIf(Len([qActiveHealth1].[Heart]),True) AS [Heart506]IIf(Len([qActiveHealth1].[DM-2]),True) AS [DM-2505]IIf(Len([qActiveHealth1].[DM-1]),True) AS [DM-1504]IIf(Len([qActiveHealth1].[CoronaryAthero]),True) AS [CoronaryAthero503]IIf(Len([qActiveHealth1].[CKD]),True) AS [CKD502]IIf(Len([qActiveHealth1].[CVD]),True) AS [CVD501]IIf(IsNumeric([qry_LatestBMI].[BMI]) AND CInt([qry_LatestBMI].[BMI])>=100,True) as [BMI310]IIf(IsNumeric([qry_LatestBMI].[bmi]) And CSng([qry_LatestBMI].[bmi])between 0 AND 9.9,True) AS [BMI309]IIf(IsNumeric([qry_LatestBMI].[BMI]) AND CInt([qry_LatestBMI].[BMI])>=40,True) as [BMI308]IIf(IsNumeric([qry_LatestBMI].[bmi]) And CSng([qry_LatestBMI].[bmi])between 35 AND 39.9,True) AS [BMI307]IIf(IsNumeric([qry_LatestBMI].[bmi]) And CSng([qry_LatestBMI].[bmi])between 30 AND 34.9,True) AS [BMI306]IIf(IsNumeric([qry_LatestBMI].[bmi]) And CSng([qry_LatestBMI].[bmi])between 25 AND 29.9,True) AS [BMI305]IIf(qsmQOC_VisitNoTobaccoAsmt_InPeriod!chart_number, True) as [chart_number904]IIf(qsmQOC_VisitNoSMGoal_InPeriod!chart_number, True) as [chart_number903]IIf(qsmQOC_VisitNoBP_InPeriod!chart_number, True) as [chart_number902]IIf(QRY_HbA1c90DaysApart!Ha1c90DaysApart, True) as [Ha1c90DaysApart901]IIf(Len([qActiveLabsLatest3].[WaistCircum]),True) AS [WaistCircum801]IIf(Len([qActiveLabsLatest3].[Glucose Tol]),True) AS [Glucose Tol801]IIf(IsNumeric([qActiveLabsLatest3].[FBS]) AND CSng([qActiveLabsLatest3].[FBS])>125,True) as [FBS805]IIf(IsNumeric([qActiveLabsLatest3].[FBS]) AND CSng([qActiveLabsLatest3].[FBS])between 100 AND 125,True) As [FBS804]IIf(IsNumeric([qActiveLabsLatest3].[FBS]) AND CSng([qActiveLabsLatest3].[FBS])<100,True) as [FBS803]IIf(IsNumeric([qActiveLabsLatest3].[FBS]),Csng([qActiveLabsLatest3].[FBS]), Null) as [FBS~avg802]IIf(Len([qActiveLabsLatest3].[FBS]),True) AS [FBS801]IIf(IsNumeric([qActiveLabsLatest3].[trig]) AND CSng([qActiveLabsLatest3].[trig])>=500,True) as [trig806]IIf(IsNumeric([qActiveLabsLatest3].[trig]) AND CSng([qActiveLabsLatest3].[trig])between 200 AND 499,True) As [trig805]IIf(IsNumeric([qActiveLabsLatest3].[trig]) AND CSng([qActiveLabsLatest3].[trig])between 150 AND 199,True) As [trig804]IIf(IsNumeric([qActiveLabsLatest3].[trig]) AND CSng([qActiveLabsLatest3].[trig])<150,True) as [trig803]IIf(IsNumeric([qActiveLabsLatest3].[trig]),Csng([qActiveLabsLatest3].[trig]), Null) as [trig~avg802]IIf(Len([qActiveLabsLatest3].[trig]),True) AS [trig801]IIf(IsNumeric([qActiveLabsLatest3].[chol]) AND CSng([qActiveLabsLatest3].[chol])>=240,True) as [chol805]IIf(IsNumeric([qActiveLabsLatest3].[chol]) AND CSng([qActiveLabsLatest3].[chol])between 200 AND 239,True) As [chol804]IIf(IsNumeric([qActiveLabsLatest3].[chol]) AND CSng([qActiveLabsLatest3].[chol])<200,True) as [chol803]!y     * J h~sle "=R3@`@rpt8ServicesSmke Ce =groupSmke Ce@0s1d1AllZUOMMA8(( }2@`@rpt8ServicesSmke Ce =quitlineSmke Ce@0s1d1All]XRPPD;(( }1@`@rpt8ServicesSmke Ce =1-on-1Smke Ce@0s1d1All[VPNNB9(( }0@`@rpt8ServicesTobacco CeSmke CeC@0s1d1AllVQKII=4(( }/@`@rpt8ServicesSmke Ass =neverSmke Ass@0s1d1All\WQOOC9(( }.@`@rpt8ServicesSmke Ass =pastSmke Ass@0s1d1All[VPNNB8(( }-@`@rpt8ServicesSmke Ass =currentSmke Ass@+0s1d1All^YSQQE;(( },@`@rpt8ServicesTobacco AsmtSmke AssE@*0s1d1AllYTNLL@6(( }+@`@rpt8ServicesSM GoalSM GoalC@)0s1d1AllSNHFF:1(( } @@rpt8Special MeasuresM WaistCircum>40chart_numberC@(0s1d1Allid^\\PB00 } @@rpt8Special MeasuresM WaistCircum<=40chart_numberE@'0s1d1Allje_]]QC00 } @@rpt8Special MeasuresF WaistCircum>35chart_numberC@&0s1d1Allid^\\PB00 } @@rpt8Special MeasuresF WaistCircum<=35chart_numberE@%0s1d1Allje_]]QC00 } @@rpt8Special MeasuresVisit no WaistCircumchart_numberQ@$0s1d1Allmhb``TF00 } @@rpt5Health ConditionsHyperlipidemiaHyperlipidemiaI@#0s1d1Allje_]]QA11 } @@rpt5Health ConditionsHTN KidneyHTN KidneyA@"0s1d1Allb]WUUI=11 }@@rpt5Health ConditionsHTNHTN3@!0s1d1AllTOIGG;611 }@@rpt5Health ConditionsHQOCHQOC5@ 0s1d1AllVQKII=711 }@@rpt5Health ConditionsHeartHeart7@0s1d1AllXSMKK?811 }@@rpt5Health ConditionsDM-2DM-25@0s1d1AllVQKII=711 }@@rpt5Health ConditionsDM-1DM-15@0s1d1AllVQKII=711 }@@rpt5Health ConditionsCoronaryAtheroCoronaryAtheroI@0s1d1Allje_]]QA11 }@@rpt5Health ConditionsCKDCKD3@0s1d1AllTOIGG;611 }@@rpt5Health ConditionsCerebrovascularCVD3@0s1d1All`[USSGB11 } @@rpt5LabsBody Mass IndexBMI >= 100BMI]@0s1d1All_ZTRRFA5$ } @@rpt5LabsBody Mass IndexBMI 0 to 9.9BMIi@0s1d1Alla\VTTHC5$ }@@rpt5LabsBody Mass IndexBMI >= 40BMI\@0s1d1All^YSQQE@5$ }@@rpt5LabsBody Mass IndexBMI 35 to 39.9BMIk@0s1d1Allc^XVVJE5$ }@@rpt5LabsBody Mass IndexBMI 30 to 34.9BMIk@0s1d1Allc^XVVJE5$ }@@rpt5LabsBody Mass IndexBMI 25 to 29.9BMIk@0s1d1Allc^XVVJE5$ } @@rpt8Special MeasuresVisit no TobaccoAsmtchart_numberQ@0s1d1Allmhb``TF00 } @@rpt8Special Meas