Standard Jet DBnb` Ugr@?~1y0̝cßFNCf7ٜ(+` {60߱iC 23y[W(|*"|] ۆf_Љ$g'DeFx -bT4.0G$6 YS  Y   Y Y  Y Y  Y  Y  Y   Y  Y  Y  Y  Y 2Y  Y   Y  Y ConnectDatabaseDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeYYIdParentIdName        OYSY Y Y  Y 2ACMFInheritableObjectIdSID YObjectId Yi 0SQ Y  Y *Y Y  Y L Y Y  Y lAttributeExpressionFlagLvExtra Name1 Name2ObjectId Orderdq tY"ObjectIdAttribute -YSY Y Y  Y  Y  Y  Y  Y ccolumn grbiticolumnszColumnszObject$szReferencedColumn$szReferencedObjectszRelationship   YYYszObject$szReferencedObjectszRelationshipAn)Z F  w 2 c  C t / \ ` $H ! !" @ D$ҲLJI`J+%dUJQ$IE -(@l@@@l@MHH`@@@ +kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^kQiqYMQk ihJMmYqQkQiqYMQk^JmQkm:jhiv+fWh+OJmQ+iQko^mLJkJomdQuQMLJkMd``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``JivYbSdokQiOQSYbQOokQiOQSYbQOm @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @           !")*789:;<=>?@ABCDEFG HIJKLMNOPQRSTUVWX Y!Z"[#\$]%^&_`abcdefgh i j k l mnopqrstuvwxyz{|}~      !"#$      !"#$%&'(12*+,-./012345678! q v z      C F#31J4    $% & ' ( ) * + , - . / 0 1 2 3 456789:;<=>?@ABCDEFGHIJKLMNO                                 ! ! ! " !" "" ## $# %# &$ '$ ($ )% *% +% ,& -& .& /' 0' 1' 2( 3( 4( 5) 6) 7) 8) 9* :* ;* <* =+ >+ ?+ @, A, B, C, D- E-"-"."."."/"/"/"0"0" 0" 0" 1" 1" 1"1"2"2"2"2"3"3"3"3"4"4"4"4"5"5"5"5"6" 6"!6""6"#7"$7"%7"&7"'8"(8")8"*8"+9",9"-9".9"/:"0:"1:"2;"3;"4;"5<"6<"7<"8="9=":=";>"<>#>#?#?#?#@#@#@#A#A# A# B# B# B# C#C#C#D#D#D#E#E#E#E#F#F#F#G#G#G# H%H%H%I%I%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%0W%1X%2X%3X%4Y%5Y%6Y%7Z%8Z%9Z%:[%;[%<[%=\%>\%?\%@]%A]%B]%C^%D^%E^%F_%G_%H_%I`%J`(`(a(a(a(b(b(b(c(c( c( d( d( d( e(e(e(f(f(f(g(g(g(h(h(h(i(i(i(j(j(j(k( k(!k("l(#l($l(%m(&m('m((n()n(*n(+o(,o(-o(.p(/p(0p(1q(2q(3q(4r(5r(6r(7s(8s(9s(:t(;t(<t(=u(>u(?u(@v(Av(Bv(Cw(Dw(Ew(Fx(Gx(Hx(Iy(Jy1y1z1z1z1{1{1{1|1|1 |1 }1 }1 }1 ~1~1~111111111#:#;#<#(#)#=#>#?#@%%###!#!!#"!##q#$q#%q#&q#'v#*v#+v#,v#-z#.z#/z#0z#1#2#3#4#5#6#7#8#9  !"#}  @ @ @&!2CAR[m1kf>k *n  q 8t !w 9{A 2 "3 ,  &{"S#-7() * + , -#.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   3d _ Z g  ~  M LAT1sËËËËËËËËËËËËË @C1@~si?@i?gf?@gf?@TMP%#MAU@"444gf?@gf?@ tblHealth"C:\CDEMS\cdem_dta.mdbtblHeagf?@gf?@ tblHealth"C:\CDEMS\cdem_dta.mdbtblHeagf?@gf?@ tblHealth"C:\CDEMS\cdem_dta.mdbtblHealthiiiiiiigf?@gf?@ tblHealth"C:\CDEMS\cdem_dta.mdbtblHealthiiigf?@gf?@ tblHealth"C:\CDEMS\cdem_dta.mdbtblHealthiiiiiiiWW42 i?@i?@ tblDemo"C:\CDEMS\cdem_dta.mdbtblDemoaaaaaaaSS0. Bw@lBw@@UnionQuery1"@|@RFF:::::::8 @VTtҤ@qڤ@rptWSC_Diabetes_Core_Measures"\\\\\\\\\\Z 3tҤ@qڤ@rptWSC_APHS_Core_Measures"TTTTTTTTTTR 3tҤ@qڤ@rptTemp"0000000000. sҤ@qڤ@rptSummaryDiabetes"FFFFFFFFFFD [sҤ@qڤ@rptSummaryDepression"JJJJJJJJJJH [sҤ@qڤ@report wizard"<<<<<<<<<<: *@*@Module1"0000000000. [sҤ@qڤ@basUtils2"44444444442 [sҤ@qڤ@basUtils"22222222220 [sҤ@qڤ@basLinkedTables"@@@@@@@@@@> [sҤ@qڤ@basCommonFile"<<<<<<<<<<: [sҤ@qڤ@basAutoexec"88888888886  sҤ@qڤ@frmSplash"44444444442  {b: @{b: @frmReports"66666666664  kK1Y@kK1Y@frmListPatients"@@@@@@@@@@>  Ȧkw@Ȧkw@frmCountPatients-criteria"TTTTTTTTTTR  QlҤ@qڤ@frmCountPatients"BBBBBBBBBB@  "&XҤ@lҤ@UserDefined"A@DDD88888886 @ "&XҤ@=nr?@SummaryInfo"@DDD88888886 @ פ@ld@AccessLayout"4MR2KeepLocal T@Azz:::::::8 @bҤ@bҤ@SysRel".........., bҤ@bҤ@Scripts"0000000000. bҤ@bҤ@Reports"0000000000. bҤ@bҤ@Modules"0000000000. bҤ@bҤ@Forms",,,,,,,,,,* bҤ@bҤ@DataAccessPages"@@@@@@@@@@> -WҤ@-WҤ@MSysRelationships DDDDDDDDDDB -WҤ@ڤ@MSysQueries 88888888886 -WҤ@ڤ@MSysACEs 22222222220 -WҤ@-WҤ@MSysObjects 88888888886 -WҤ@!u@MSysDb"@:::......., @-WҤ@-WҤ@Relationships <<<<<<<<<<: -WҤ@-WҤ@Databases 44444444442 -WҤ@-WҤ@Tables .........., lIJ  "O "O "O G!"O "O G!O"O "O G!O"O "O G!"O ""O "O G!O"O "O "O "O "O"O "O "O "O G!"O "O G!O@  '"O "O G!O@ "O "O G!"O "O G!"O "O G!"O ""O "O "O "O "O"O "O "O "O G!"O "O G!O@  '"O "O G!O@ "O "O G!"O "O G!"O "O G!"O ""O "O "O "O "O"O "O "O "O G!"O "O G!O@  '"O "O G!O@ "O "O G!"O "O G!"O "O G!"O ""O "O "O "O "O "O G!"O ""O "O "O OX7YZ___OX7YZ___OX7YZ___OX7YZ_____2@1% 7OX7YZ_____2@1% 7O  O O OtlkpCrosswalk.wor OtlkpCrosswalk.working_cod OtlkpCrosswalk.working_code9 g OtlkpCrosswalk.working_code9 gO@ OtlkpCrosswalk.working_code9 gO OtlkpCrosswa OtlkpCrosswalk.working_code9 gO OX7YZ_____2@1% 7OX7YZ_____1@1% 7O G O GO O G LVAL (((tblReportsTemp.type_order)=9))(((tb(((tblReportsTemp.type_order)=9))(((tblReportsTemp.type_order)=7))(((tblReportsTemp.t(((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 ((tb(((tblReportsTemp.type_order)=7))(((tblReportsTemp.type_order)=6))(((tblReportsTemp.t(((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.type_order)=6))(((tblReportsTemp.type_order)=6))(((tblReportsTemp.type_order)=8))(((tblReportsTemp.t(((tblReportsTemp.type_order)=8))(((tblReportsTemp.type_order)=2))(((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0) AND ((tblReportsTemp.display_order)=0))(((tlkpSetup.health_status) (((tblReportsTemp.type_order)=8))(((tblReportsTemp.type_order)=2))(((tblReportsTemp.type_order)=0) AND ((tblRep(((tblReportsTemp.type_order)=8))(((tblReportsTemp.type_order)=8))SELECT '<any>' AS [working_code],'<any>' as [raw_code] from qUnduplicatedDxCrosswalkSELECT DISTINCTROW qUnduplicatedDxCrosswalk.working_code, First(qUnduplicated(((tblReportsTemp.type_order)=8))SELECT '<any>' AS [working_code],'<any>' as [raw_cod(((tblReportsTemp.type_order)=8))(((tlkpSetup.health(((tblReportsTemp.type_order)=8))(((tlkpSetup.health_status) In (SELECT tblReportsTemp.display_text FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.section_order)=0)))) AND (((tblReportsTemp.type_order)=8))Select 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'));  9DDDDDDDDDDDDD@Nq L 0 ,Ke eeeeeeeeeee e ]MWC@~sq_cfrmReports~sq_clstQueries"5 @J4MR2KeepLocal TC@C@ TMP%#MAU@"C:\CDEMS\cdem_dta.mdbtlkpVisitTypeqqqC@C@ tlkpVisitType"C:\CDEMS\cdem_dta.mdbtlkpVisitTypeyyyyyyy__<: HC@HC@ tlkpStatusFlags"C:\CDEMS\cdem_dta.mdbtlkpStatusFlagscc@> x C@x C@ tlkpSetup"C:\CDEMS\cdem_dta.mdbtlkpSetupiiiiiiiWW42 B@B@ tlkpPLanguage"C:\CDEMS\cdem_dta.mdbtlkpPLanguageyyyyyyy__<: B@B@ tlkpPCP"C:\CDEMS\cdem_dta.mdbtlkpPCPaaaaaaaSS0. CB@CB@ tlkpInsurance"C:\CDEMS\cdem_dta.mdbtlkpInsurance@Nyyyy__<: E B@ B@ tlkpGender"C:\CDEMS\cdem_dta.mdbtlkpGendermmmmmmmYY64 [A@A@ tlkpEthnicity"C:\CDEMS\cdem_dta.mdbtlkpEthnicityyyyyyyy__<: 7A@nA@ tlkpDefaults"C:\CDEMS\cdem_dta.mdbtlkpDefaultsuuuuuuu]]:8 KA@KA@ tlkpCrosswalk"C:\CDEMS\cdem_dta.mdbtlkpCrosswalk@Nyyyy__<: EA@ A@ tlkpClinic"C:\CDEMS\cdem_dta.mdbtlkpClinicmmmmmmmYY64 @@@@ tblVisits"C:\CDEMS\cdem_dta.mdbtblVisitsiiiiiiiWW42 w@@~@@ tblServices"C:\CDEMS\cdem_dta.mdbtblServicesqqqqqqq[[86 '@@>-@@ tblMed"C:\CDEMS\cdem_dta.mdbtblMed]]]]]]]QQ., ?@?@ tblLab"C:\CDEMS\cdem_dta.mdbtblLab]]]]]]]QQ., k>@>@ tblCustom"C:\CDEMS\cdem_dta.mdbtblCustomiiiiiiiWW42 >t5*@5*@~sq_cfrmReports~sq_clstQueries"? @4MR2KeepLocal Tj^^^^^^\ ` !<!5*@!5*@~sq_cfrmReports~sq_ccmbMed"4MR2KeepLocal TVVVVVVVT @;P5*@P5*@~sq_cfrmReports~sq_ccmbLab"4MR2KeepLocal TVVVVVVVT @!9\@\@~sq_cfrmListPatients-goodold~sq_clstServices"4MR2KeepLocal Tzzzzzzzx @8OS\@OS\@~sq_cfrmListPatients-goodold~sq_clstLabs"4MR2KeepLocal Trrrrrrrp @!*n 8z@u 8z@~sq_cfrmCountPatients-criteria~sq_clstRace"4MR2KeepLocal Tvvvvvvvt @)# 8z@Z 8z@~sq_cfrmCountPatients-criteria~sq_clstEthnicityFilter"4MR2KeepLocal T @( H[y6 +O G+O G+O +O G+O ++O G++O G+O ++O G+O ++O G+O ++O G+O G+O G+O +O G+O ++O G+O ++O G+O ++O G+O ++O G++O G+O ++O G+O ++O G+O ++O G+O G+O G+O +O G+O ++O G+O ++O G++O G+O ++O G+O G+O G+O +O G+O ++O G+O ++O G++O G+O ++O G+O G+O G+O +O G+O ++O G+O ++O G++O G+O ++O G+O G+O +O G+O ++O G+O ++O G+O ++O G+O ++O G++O G+O ++O G+O ++O G+O ++O G+O G+O +O G+O ++O G++O G+O ++O G+O ++O G+O ++O G+O G+O G+O * O "xrace"& g* OtblDemo.ethnicity0 g*Oraw_code "xrace"6!! o*OtblDemo.ethnicity0 g*OtblDemo *O *O G) OtblDemo.ethnicity0 g)OtblDemo.ethnicity0 g)OtblDemo )O )O G LVALжt.TqUnduplicatedLabCrosswalk.workingqUnduplicatedLabCrosswalk.workingqUnduplicatedLabCrosswalk.working_codeqUnduplicatedDqUnduplicatedLabCrosswalk.working_codeqUnduplicatedDxCrosswalk.raw_codeqUnduplicatedDxCrosswalk.working_code(((tlkpCrosswalk.type_code)="service"))(((tlkpCrosswalk.type_code)="lab"))qUnduplicatedDxCrosswalkqUnduplicatedLabCrosswalk.workingqUnduplicatedLabCrosswalk.working_codeqUnduplicatedDqUnduplicatedLabCrosswalk.working_codeqUnduplicatedDxCrosswalk.raw_codeqUnduplicatedDxCrosswalk.working_code(((tlkpCrosswalk.type_code)="service"))(((tlkpCrosswalk.type_code)="lab"))qUnduplicatedDxCrosswalk.rawqUnduplicatedLabCrosswalk.workingqUnduplicatedLabCrosswalk.workingqUnduplicatedLabCrosswalk.working_codeqUnduplicatedDqUnduplicatedLabCrosswalk.working_codeqUnduplicatedDxCrosswalk.raw_codeqUnduplicatedDxCrosswalk.working_code(((tlkpCrosswalk.type_code)="service"))(((tlkpCrosswalk.type_code)="lab"))qUnduplicatedDxCrosswalqUnduplicatedLabCrosswalk.working_codeqUnduplicatedDxCrosswalk.raw_codeqUnduplicatedDxCrosswalk.working_code(((qUnduplicatedLabCrosswalk.workingqUnduplicatedLabCrosswalk.working_codeqUnduplicatedDxCrosswalk.raw_codeqUnduplicatedDxCrosswalk.working_code(((tlkpCrosswalk.type_code)="service"))(((tlkpCrosswalk.type_code)="lab"))qUnduplicatedDqUnduplicatedLabCrosswalk.working_codeqUnduplicatedDxCrosswalk.raw_codeqUnduplicatedDxqUnduplicatedLabCrosswalk.working_codeqUnduplicatedDqUnduplicatedLabCrosswalk.working_codeqUnduplicatedDxCrosswalk.raw_codeqUnduplicatedDxCrosswalk.working_code(((tlkpCrosswalk.type_code)="service"))(((tlkpCrosswalk.type_code)="lab"))qUnduplicatedDxCrosswalqUnduplicatedLabCrosswalk.workingqUnduplicatedLabCrosswalk.working_codeqUnduplicatedDxCrosswalk.raw_codeqUnduplicatedDxCrosswalk.working_code(((tlkpCrosswalk.type_code)="service"))(((tlkpCrosswalk.type_code)="lab"))qUnduplicatedDxCrosswalk.raw_codeqUnduplicatedDxCrosswalk.working_code LVALMR2AccessVersionStartUpForm&StartUpShowDBWindow(StartUpShowStatusBar$AllowShortcutMenusAllowFullMenus(AllowBuiltInToolbars&AllowToolbarChanges AllowSpecialKeys Build6Track Name AutoCorrect Info0Perform Name AutoCorrectProjVerCpgConversionAuto Compact"Show Values Limit,Show Values in Indexed4Show Values in Non-Indexed*Show Values in Remote.Show Values in Snapshot*Show Values in Server.Use Default Page Folder&Default Page Folder6Use Default Connection File.Default Connection FileRow LimitANSI Query ModeNavPane ClosedNavPane Width NavPane Category*NavPane Category NameNavPane View ByNavPane Sort By.CheckTruncatedNumFields 08.50 frmSplash               W            '        !  @$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$%%%%%%%%%%%%%%%%%%%%%%%%%%&!&!&!&!&!&!&!&!&!&!&!&!&!&!&!&!&!&!&!&!&!&!&"&#&$& %& '&'(')'*' +' ,' -''(.(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 @172A2BP  @ @)9);)<) =):*>*@*A*B* C* D*?+F+F+F+F+F+F+F+F+F+F,,,,,,171717171717171717171717171717171717171717171717171717172C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2D222 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>>>>>>> > >  >? ? ? ? @@@@@@ @AAAAOX.J j $ | ^  b  d  h  >O G>O G=OL@>O G=OL@ >O G=OL@ >O G=OL@ g>O G=OL@ g>O G=>O G=OL@ >O G=OL@ g>O G=OL@ g>O G>O G>O G=OL@>O G=OL@ >O G=OL@ g>O G=>O G=OL@ g>O G>O G=OL@ >O G=>O G=OL@ g>O G>O G=OL@>O G=OL@ >O G=OL@>O G=>O G=OL@ g>O G>O G>O G=OL@>O G=OL@ >O G=>O G=OL@ >O G=OL@ g>O G=OL@ g>O G>O G=OL@ g=OT@ g=OqUnduplicatedServiceCrosswalkKKK =O G=O =O G<OB@ g<OJ@ g<OqUnduplicatedRxCrosswalkAAA <O G<O <O G;OD@ g;OL@ g;OqUnduplicatedLabCrosswalkCCC ;O G;O ;O G:OB@ g:OJ@ g:OqUnduplicatedDxCrosswalkAAA :O G:O :O G9ON@ '9OtlkpCrosswalk.raw_code5 g9OtlkpCrosswalk.working_code9 g9OtlkpCrosswalk+++ 9O 9O G8OF@ '8OtlkpCrosswalk.raw_code5 g8OtlkpCrosswalk.working_code9 g8OtlkpCrosswalk+++ 8O 8O G7OB@ g7OJ@ g7OqUnduplicatedDxCrosswalkAAA 7O G7O 7O 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 ON@ gF OV@ gF OT@ gFO@ 'FOcqry_ServiceReferrals_InPeriodQRY_Last_Service_Date@wM FOcqry_ServiceReferrals_InPeriodQRY_Last_Service_Date@wM FOcqry_ServiceReferrals_InPeriodQRY_Last_Service_Date@wM FOcompletedN@/## oFOX@  gFON@  gFOV@  gFOT@  gFOQRY_Last_Service_Date;;; FOcqry_ServiceReferrals_InPeriodMMM FO FO GEO tblReportsData.filter4 gEO tblReportsData.denominator9 gEO tblReportsData.percent5 gEOtblReportsData.value3 gEOtblReportsData.raw_code6 gEOtblReportsData.display_text: gEOtblReportsData.display_order; gEO tblReportsData.section_heading= gEOtblReportsData.section_order; gEOtblReportsData.typefield7 gEOtblReportsData.type_order8 gEOtblReportsData--- EO EO GD OT@  'DOT@ gDOqUnduplicatedServiceCrosswalkKKK DO GDO DO GCOJ@ gCOqUnduplicatedRxCrosswalkAAA CO GCO CO GBOL@ gBOqUnduplicatedLabCrosswalkCCC BO GBO BO GAOJ@ gAOqUnduplicatedDxCrosswalkAAA AO GAO AO G@ OtlkpSetup.health_status6 g@O!(((tlkpSetup.type_field)="Dx"))> '@OtlkpSetup.health_status6 g@OtlkpSetup### @O G@O @O G?OtlkpClinic%%% ? O G?O ?O G> OtblQueries.qry_name2 '> OtblQueries.qry_description9 '> OtblQueries.qry_order3 '>OtblQueries.qry_showlist6 g>OtblQueries.qry_comment5 g>OtblQueries.qry_name2 g>OtblQueries.qry_description9 g>OtblQueries.qry_order3 g>OtblQueries%%% >O h'OAN  M ( 4 0K} yJ ! IQF@vC9A[WA^1E1@&F1@QRY_Last_Visit_xx_Days_AndOver\\\\^Hw٤@)f}@QRY_Last_Visit_xx_Days_AndOver"@'@&vjj^^^^^^^\ @!\Hw٤@Hw٤@QRY_Last_Visit_Date"@'TTTHHHHHHHF @[Hw٤@Hw٤@QRY_Last_Service_Date"@'XXXLLLLLLLJ @Z u٤@ u٤@QRY_HbA1c90DaysApart"@'@@&bVVJJJJJJJH @Y u٤@ u٤@QRY_ExerciseOver3InWeek"@'\\\PPPPPPPN @X u٤@ u٤@qChosenDx"@'@@@44444442 @!V!Ceͅ@!Ceͅ@qActiveServicesLatest4"Z@ $ZZZNNNNNNNL @U,@,@qActiveServicesLatest3"Z@ $ZZZNNNNNNNL @TYt٤@Yt٤@qActiveServicesLatest2"'@'ZZZNNNNNNNL @SYt٤@Yt٤@qActiveServicesLatest1"}@'ZZZNNNNNNNL @R(s٤@(s٤@qActiveServices"@ $LLL@@@@@@@> @Q,@,@qActiveMed1"Z@ $DDD88888886 @P(s٤@(s٤@qActiveMed"@ $BBB66666664 @!N,@,@qActiveLabsLatest3"Z@$RRRFFFFFFFD @M(s٤@(s٤@qActiveLabsLatest2"'@$RRRFFFFFFFD @L(s٤@(s٤@qActiveLabsLatest1"'@$RRRFFFFFFFD @Kq٤@q٤@qActiveLabs"@$DDD88888886 @J,@,@qActiveHealth1"Z@$JJJ>>>>>>>< @Iq٤@q٤@qActiveHealth"@$HHH<<<<<<<: @!<E&w@<E&w@ MSysNavPaneObjectIDs"4MR2KeepLocal  TJJJJJJJH @0%w@0%w@ MSysNavPaneGroupToObjects"4MR2KeepLocal  TTTTTTTTR @!v0%w@0%w@ MSysNavPaneGroupCategories"4MR2KeepLocal  TVVVVVVVT @ !!A1@xB1@MSysAccessObjects"DDDDDDDDDDB G3:*@4:*@cqry_ServiceReferrals_InPeriod"@$@vjj^^^^^^^\ @FT0:*@3:*@cqry_Service_Referral_Completed"~@`@xll```````^ @tҤ@ڤ@change"@:::......., @ !Dry@Fsy@~sq_cfrmSetUp~sq_clstAllServices"4MR2KeepLocal Tbbbbbbb` @C;?;@;A;=<B<D<E<F<G<C=H=J=K=L=M=I>N>>>>>>> > >  >? ? ? ? @@@@@@ @AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABBBBBCC!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 :YReportNY  Y idY ID changedate,berp.YPrimaryKeyn)@@ C}? l E  W  a 9 I !JViewpatch or averages!@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' Ke>qryMaxLabandResultInPeriodEEE Ke> GKe> GKe> Ke> GJ e>qActiveHealth.raw_code5 gJ e>qActiveHealth.chart_number9 gJ e>qActiveHealth.clinic_code8 gJe>D@ gJe>qActiveHealth.chart_number9 gJe>qActiveHealth.clinic_code8 gJe>LastOfstart_dateD@=11 oJe>qActiveHealth+++ Je> GJe> Je> GI e>tblHealth.type_code2 gI e>tblHealth.raw_code1 gI e>tblHealth.chart_number5 gI e>tblHealth.clinic_code4 gIte>P@ 'Ie>tblHealth.type_code2 gIe>start_dateLast(tblHealth.start_date)M%% oIe>tblHealth.raw_code1 gIe>tblHealth.chart_number5 gIe>tblHealth.clinic_code4 gIte>tblHealth### Ie> GIe> GIte> Ie> GHte>@! 'He>age@ # oHe> tblDemo.end_date/ gHe> tblDemo.ethnicity0 gHe> tblDemo.sex* gHe> tblDemo.primary_language7 gHe> tblDemo.insurance0 gHe>tblDemo.migrant. gHe>tblDemo.homeless/ gHe>pcp2@% oHe>tblDemo.phone1- gHe>address[address1] & ", " & [city]G oHe>nameT@% oHe>tblDemo.chart_number3 gHe>tblDemo.clinic_code2 gHte>tblDemo Hte> He> GG OB@ 'G OtblServices.status_flag6 gG OtblServices.raw_code3 gG O tblDemo.pcp* gG OB@ gG OtblServices.chart_number7 gG OtblServices.clinic_code6 gGO@ 'GOtblDemotblServices^@A5 GOtblDemotblServicesZ@A5 GOreferral_dateMax(tblServices.service_date)V++ oGOtblServices.raw_code3 gGO tblDemo.pcp* gGOnameB@% oGOtblServices.chart_number7 gGOtblServices.clinic_code6 gGOtblDemo GOtblServices''' GO GGO GGO GO GF ON@ gF OX@ g YiQfdimkN""FY Y DataIDPitsc"pllYAOIndexZK![pd `Gvpd XISysAccessObjects'PLLLLLLLLLLJ Menu\4}@kmid\QmYJbokYmYkwBuiltInToolbars&Allo4}@Changes AllowSpecialKeys Build6T4}@e AutoCorrect Info0Perform Name :V;@ܖ@ܖve\ 5}@ko^Sdbv^oiQJ&alues Limit,Show Va|:n owonexed*S06}es in WWjg;$Ֆhoi×]a;Eult Page Folder&Default Page lder6U7}@lt Connection File.Default Conned7}@leRow LimitANSI Query ModeNav7}@sedNavPane Width NavPane Catego:@:ҖPҖPavD8}@m^\fkQmof$rt By.CheckTruncatedN|:ds08la 8} W0X: l9}@      9}@      !:}@l:}@:U:Zז`:}@fY^dmX|:W;}7}&ז08$<}@[<}@<}@$=}@::DӖp DӖp  =}@b&|:X>}Wo\E} |~ blsTN;r)N@E}p>}N;0C;D;E;PF;G;G;H;PI;pL;0M;`Q; R;S;D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D}D} X;Y;Z;[;@];K![ࡱ>     MNOP 0 1 . % eh ]  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\^_`abcdfjgi kplmnoqtuvwxyz{|}~Root EntryV}F0@VBA F0 F0VBAProject1/ F0 F0VBA F0 F0dir __SRP_0 __SRP_1,__SRP_2 =   !"#$%&'()*+-./0123456789:;<>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijkmnoprstuvwxyz|~0* pHdcdems-97,@ Z= n C\L %J< rst dole>stdole h%^*\G{0002`0430-C 0046}#2.0#0#C:\WINDOWS\system32\e2.tlb#OLE Automation#`DAO>JDAO5A A5E01A5AProgram Files\CommonMicrosoft Shared\;\dao360.dll# 3.6 Object Li`braryHVBIDE> VBIPDE\C\E157\3CN).VBA\6E6EXT.OLB/Visual Basic for Applic]s Extensibility 5.3+" @basUtils2GasUi@s2YBYBXQNMKSXOEEDAZFQBLQSUZPRM28A@IYXQNMKSPXO@MENAZF@BL@S@ZPR# AH@1BBE,+g!B+BModule1GQdu1-XTLNXTKEDCOTFEWJIULSKZFDHFSG-XT$ZN*T,*C,TA*EWJ}US/D)F56GD -@ - -adexecG".A@t@ex`tcNRNIRCKXLKQPYDKEYAUSFDYMPICMHN`(NQRCXKQ+PY`.K`/YUnU@FY-ImM.@] Ǭ.!FGEEEPJXQZLJWBVWCEOWYEVV_HVVZUYKE?J.QBL-W GV@.C`OY`VV_`Zm FY E / !asG,bB/C.hmmn>^e/EHAMUYMJZGNYHEKYAGZDDECCYGHJH,MMZG_ZYE/GDU/E/C2G`JG=(^!ESZMTEIGQRJNTSDLHSFJWLTYCQBXCCS@MI;Q@*J;TDHFbWL`YK![+Q@ XO/  APHvSR A` _po`e 6Mq]uXQBMXOGMHNOBXDDNSJOKHXUCPZlMD\B!q\GpHO2!-NJRKX 0CZPD-m _:/PForm_frmListPPment@-F-m0 f mPijta2ketsHMKFLSHHLBYZPDEPQXYAEIFBPETZtHqjU(S0 HB,Z~P@,XAHIABpEZH10 4^kO+9f= 0Criteria is not a number _> < _< Dqry_ListPatientWK![ithConditionAndLab HNeed to select a condition and a labLabel59 Jqry_ListPatientWithConditionAndNotLab @qry_ListPatientWithServiceAndLab DNeed to select a service and a lab <qry_ListPatientNoServiceAndLab rpt lst frmCountPatients frmListPatients ,QRY_SummaryDepression2Label45cmdSave (rptSummaryDepression 4QRY_SummaryDepression2_PCP (QRY_SummaryDiabetes2 $rptSummaryDiabetes 0QRY_SummaryDiabetes2_PCP BQRY_rptWSC_Diabetes_Core_Measures :rptWSC_Diabetes_Core_Measures APHS cmbCondition lstAllDx1 lstAllDemo 2rptWSC_APHS_Core_Measures lNon-numeric entries in labs. Run query to find errors.  I-  I  I1  Ii (HGqvEuXQ8 rFO,!MW*qf'LcI@ }Label77Label49Label65 lblAddAllDemo lblAddDemo lblRemoveDemolblRemoveAllDemoBC7?Box70 lblAddDx1 lblRemoveDx1Label85Label88lstRelatedSpecialMeasures lblAddAllRxlstAllSpecialMeasureslblAddRx lblRemoveRx lblAddAllDxlblAddDx lblRemoveDxlblRemoveAllDxLabel96Label99lblRemoveAllRxLabel107Label110 lblAddNewRxlblAddAllServices lblAddServicelblRemoveAllServices lblAddAllLabs lblAddLab lblRemoveLablblRemoveAllLabslblRemoveServicecmdCreateReportlblAddSpecialLabLabel134Label137 lstAllVitals lblAddVitallblAddSpecialVitallblRemoveVitallblAddSpecialServicelblAddSpecialDxLabel147Label150lblAddSpecialDemotxtTitlelblAddSpecialMeasureslblRemoveSpecialMeasureslblRemoveAllSpecialMeasures lstChosenDxlstRelatedDemolstRelatedVitals lstRelatedRx lstRelatedDxlstRelatedServiceslstRelatedLabslstAllRxlstAllDxlstAllServices lstAllLabscmdCreateReport_ClickcmdDelete_Click cmdSave_ClickDetail_DblClicklblAddAllDemo_ClicklblAddAllDx_ClicklblAddAllLabs_ClicklblAddAllRx_ClicklblAddAllServices_ClicklblAddDemo_ClickextralblAddDx_ClicklblAddDx1_ClicklblAddLab_ClicklblAddRx_ClicklblAddService_ClicklblAddSpecialDemo_ClicklblAddSpecialLab_ClicklblAddSpecialMeasures_ClicklblAddSpecialService_ClicklblAddSpecialVital_ClicklblAddVital_ClicklblRemoveAllDemo_ClicklblRemoveAllDx_ClicklblRemoveAllLabs_ClicklblRemoveAllRx_ClicklblRemoveAllServices_Click !lblRemoveAllSpecialMeasures_ClicklblRemoveDemo_ClicklblRemoveDx_ClicklblRemoveDx1_ClickLabel273lblRemoveLab_ClicklblRemoveRx_ClicklblRemoveService_ClicklblRemoveSpecialMeasures_ClicklblRemoveVital_ClicklstAllDemo_DblClicklstAllDx_DblClicklstAllDx1_DblClicklstAllLabs_DblClicklstAllRx_DblClicklstAllServices_DblClicklstAllSpecialMeasureK![s_DblClicklstAllVitals_DblClicklstChosenDx_DblClicklstRelatedDemo_DblClicklstRelatedDx_DblClicklstRelatedLabs_DblClicklstRelatedRx_DblClick btnAllGenderlstRelatedServices_DblClick "lstRelatedSpecialMeasures_DblClicklstRelatedVitals_DblClick l1GS lstAllDemoItemsSelected Pts Pts Count :tblDemo.Patient_ID as [xvisit 0# ] Pts Avg Visits jIIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits])," CInt([QRY_LatestVisitDate].[CountOfVisits]),Null) AS [xvisit~avg Pts w/ 0 visits pIIf(IsNull([QRY_LatestVisitDate].[CountOfVisits]),True)  As [xvisit "Pts w/ 1-2 visits rIIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]) And Lab P([QRY_LatestVisitDate].[CountOfVisits])  @Between 1 And 2,True) AS [xvisit "Pts w/ 3-5 visits @Between 3 And 5,True) AS [xvisit Pts w/ 6+ visits (>=6,True) AS [xvisit (new) Gen Gender-Male Age <14btnInsuranceReport DIIf(tblDemo.Sex='M',True) AS [xsex Gender-Female DIIf(tblDemo.Sex='F',True) AS [xsex Gender-Unkn rIIf(tblDemo.Sex='U' or isnull(tblDemo.sex),True) AS [xsex Age Age-Unkn \IIf (Isdate(tblDemo.dob)= False,true) as [xage rIIf (Isdate(tblDemo.dob) And Datediff('yyyy',tblDemo.dob, DForms![frmReports]![txtEndDate]) + dInt(Format(Forms![frmReports]![txtEndDate],'mmdd') 8<Format(tblDemo.dob,'mmdd')) $<14,true) as [xage Age 15-29 Age 55+btnEthnicitySelected Hbetween 15 and 29.999,true) as [xage Age 30-39 Hbetween 30 and 39.999,true) as [xage Age 40-49 Hbetween 40 and 49.999,true) as [xage Age 50-59 Hbetween 50 and 59.999,true) as [xage Age 60+ &>=60,true) as [xage btnPCPreport &>=55,true) as [xage Age 45+ &>=45,true) as [xage Rac Race-White ZIIf(tblDemo.Ethnicity='White',True) AS [xrace Race-Black ZIIf(tblDemo.Ethnicity='Black',True) AS [xrace Race-AmInd $lstRelatedServicescmbBPDiastolicOperator bIIf(tblDemo.Ethnicity='Am Indian',True) AS [xrace Race-Asian ZIIf(tblDemo.Ethnicity='Asian',True) AS [xrace Race-Hispanic `IIf(tblDemo.Ethnicity='Hispanic',True) AS [xrace raK![ce-Other PIIf(tblDemo.migrant='Y',true) as [xsppop$ IIf(tblDemo.Ethnicity<>'Asian' And tblDemo.ethnicity <> 'Black' And # tblDemo.ethnicity<>'Am Indian' And tblDemo.ethnicity<>'White' And  ZtblDemo.ethnicity<>'Hispanic',True) AS [xrace SpP SpPop-Migrant SpPop-HmlessSetFocusBMI RIIf(tblDemo.homeless='Y',true) as [xsppop lstRelatedDemo I `  tblQueries tblReportsTemp XDELETE tblReportsTemp.* FROM tblReportsTemp; XDelete tblReportsData.* from tblReportsData; lstChosenDx HSelect tblReports.* FROM tblReports  XWHERE LEFT(tblReports.report_ID, 3) = 'rpt'  <ORDER BY tblReports.report_ID;lstQueries Column txtTitle) INSERT INTO tblReportsTemp ( report_ID, type_order, typefield, section_order, # section_heading, display_order, display_text, raw_code, criteria, ! |[value], [percent], denominator, period2_start, period2_end ) ' SELECT tblReports.report_ID, tblReports.type_order, tblReports.typefield,  lstRelatedDx txtBPDisplaylblClose* tblReports.section_order, tblReports.section_heading, tblReports.display_order, # tblReports.display_text, tblReports.raw_code, tblReports.criteria, ! |tblReports.value, tblReports.percent, tblReports.denominator,  lstRelatedRx txtBPCriteria btblReports.period2_start, tblReports.period2_end  ^FROM tblReports WHERE (((tblReports.report_ID)= ' ))* ORDER BY tblReports.type_order,tblReports.section_order,tblReports.display_order;DefaultValue lstRelatedVitalsbtnAllEthnicity lstRelatedLabs 2lstRelatedSpecialMeasures lstAllDx1 lstAllDx lstAllRx lstAllServices lstAllLabs *lstAllSpecialMeasures rpt0 report_ID type_order section_order display_text raw_codetxtWorking_code nSELECT tblReportsTemp.display_text FROM tblReportsTemp  ^WHERE (((tblReportsTemp.display_text)='<any>')) JDELETE tblReportsTemp.section_order,  rtblReportsTemp.type_order, tblReportsTemp.display_order,  8tblReportsTemp.display_text ! |K![FROM tblReportsTemp WHERE (((tblReportsTemp.section_order)=0) ' AND ((tblReportsTemp.type_order)=0) AND ((tblReportsTemp.display_order)=0)  ZAND ((tblReportsTemp.display_text)<>'<any>'))ym. btnAllReportr;|? TabControl0cmbBPSystolicOperator XSELECT DISTINCT tlkpCrosswalk.working_code,  bFirst(tlkpCrosswalk.raw_code) AS FirstOfraw_code # FROM tlkpSetup INNER JOIN tlkpCrosswalk ON tlkpSetup.related_field ! ~= tlkpCrosswalk.working_code WHERE (((tlkpSetup.health_status) txtBPDiastolic rIn (SELECT tlkpCrosswalk.working_code FROM tlkpCrosswalk ( WHERE ((tlkpCrosswalk.type_code)='Dx') AND (tlkpCrosswalk.type_code)='Dx')) & AND ((tlkpCrosswalk.type_code)='Dx')) GROUP BY tlkpCrosswalk.working_codeRowSource cmdCreateSrvc txtBPSystolic$ FROM tlkpSetup INNER JOIN tlkpCrosswalk ON tlkpSetup.related_field = " tlkpCrosswalk.working_code GROUP BY tlkpCrosswalk.working_code,  btlkpSetup.health_status, tlkpCrosswalk.type_code  FHAVING (((tlkpSetup.health_status) txtSrvcCriteria btnFemake* WHERE (((tlkpCrosswalk.type_code)='Dx')))) AND ((tlkpCrosswalk.type_code)='Rx')), WHERE (((tlkpCrosswalk.type_code)='Dx')))) AND ((tlkpCrosswalk.type_code)='Service'))txtDisplay Nothing selectedyoTBpq1@X(-rc F4(v~/.rH,FBP* WHERE (((tlkpCrosswalk.type_code)='Dx')))) AND ((tlkpCrosswalk.type_code)='Lab')) 2frmCountPatients-criteria labTabControl0 Pages LabtxtTypeCriterialstAllLabsItemDatatxtWorking_codetxtRaw_Code  numericlblSrvcInclusive optEthnicitylstEthnicityFiltertxtAge1txtAge2 optGenderbtnMale txtRaw_CodelstRaceoptAgeLabel234 btnAllAge txtDisplay btnBetweenAge lblAge_and btnUnknownGC7?chkSrvcAutoLabeltxtSrvcDisplay txtBMIDisplayu;|?OptionslblOptionsContinuecmdOptionsContinueLabel232 optAll_PCP txtInputBoxdemocmbDemoOperator txtAgeResult2lblAndLabel274chkAgeAutoLabeltxtTypeCriteriaLabel31Label73 frmAnd_OrOption42Option44Label27Label28Label29Label30Label32 cmdBPCreatetxtDemoDisplaytxtBMICriteriacmbBMIOperator txtBMIResult1 txtBMIResult2 lblBMIAndchkBMIAutoLabel cmdBMICreatetxK![tDemoCriteriaLabel84lblBMIInclusiveLabel241 lblAgeAndlblAgeInclusive cmbOperator txtResult1 txtResult2 txtCriteria cmdLabCreate txtAgeResult1 chkAutoLabellblLabInclusiveServicecmbSrvcOperatortxtSrvcResult1txtSrvcResult2 lblSrvcAnd cmdDemoCreateLabel0Box13 lblFilterchkAgeAutoLabel_AfterUpdatechkAutoLabel_AfterUpdatechkBMIAutoLabel_AfterUpdatechkSrvcAutoLabel_AfterUpdatecmbBMIOperator_AfterUpdatecmbDemoOperator_AfterUpdatecmbOperator_AfterUpdatecmdAddLabWithCriteria_ClickcmbSrvcOperator_AfterUpdatecmdAgeCreate_ClickcmdBMICreate_ClickcmdBPCreate_ClickcmdCreateSrvc_ClickcmdDemoCreate_ClickcmdLabCreate_ClickcmdOptionsContinue_ClickoptAge_AfterUpdateoptEthnicity_AfterUpdatetxtAgeResult1_AfterUpdatetxtAgeResult2_AfterUpdatetxtBMIResult1_AfterUpdatetxtBMIResult2_AfterUpdatetxtResult1_AfterUpdatetxtResult2_AfterUpdatetxtSrvcResult1_AfterUpdatetxtSrvcResult2_AfterUpdate  txtCriteria txtDisplay # txtResult1Visible txtResult2 lblAnd lblLabInclusive txtWorking_code Avg  average  =  >  >   >=   <  <=  <=  between txtRaw_Code Count' SELECT tblReportsTemp.section_order, Max(tblReportsTemp.display_order) AS ( MaxOfdisplay_order, tblReportsTemp.raw_code, tblReportsTemp.section_heading . FROM tblReportsTemp GROUP BY tblReportsTemp.type_order, tblReportsTemp.section_order,  ptblReportsTemp.raw_code, tblReportsTemp.section_heading ) HAVING (((tblReportsTemp.type_order)=8)AND ((tblReportsTemp.section_heading)=  ));! ~SELECT Max(tblReportsTemp.section_order) AS MaxOfsection_order  4IIf([qActiveLabsLatest3].[ nFROM tblReportsTemp GROUP BY tblReportsTemp.type_order  RHAVING (((tblReportsTemp.type_order)=8)); $maxofdisplay_order $Maxofsection_order cmbOperator HIif(IsNumeric([qActiveLabsLatest3].[ ]),True) AS [ ] =  optAll/PCP  ,True) as [ "Criteria invalid. HIIf(IsNumeric([qActiveLabsLatest3].[ ]) @ AND CSng([qActiveLabsLatest3].[ between  AND  ,True) As [ avg 8,Csng([qActiveLabsLatest3].[ ]), Null) as [ ~avg txtInputBox D]) AND CSng([qActiveLabsLatest3].[ ,True) as [ Labs typefield section_heading display_order criteria PA duplicate was already in report design < K![IIf(Len([qActiveLabsLatest3].[ Report OptionscmdClose CreateList! ~SELECT tblReportsTemp.type_order, tblReportsTemp.display_text, , tblReportsTemp.raw_code FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=0)); ,No diagnosis selected. &Select Condition(s)  Or  Report optionslblClose CreateReportOpenTempReport  V;|? $lstEthnicityFilter AND (  OR  2 [tblDemo].[ethnicity] =   ' ) D AND ([qActiveDemo].[age] between  @ AND ([qActiveDemo].[sex] = 'F') @ AND ([qActiveDemo].[sex] = 'M') @ AND ([qActiveDemo].[sex] = 'U') temp ,qActiveServicesLatest3 $qActiveLabsLatest3 qActiveHealth1 qActiveMed1 qSummary1 qSummary2 PSELECT DISTINCT tblReportsTemp.raw_code  :GROUP BY qSummary1.insurance; value xFROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=8)); ^TRANSFORM Last(qActiveLabsLatest2.result_any ) % SELECT qActiveLabsLatest2.clinic_code, qActiveLabsLatest2.chart_number  nFROM qActiveHealth GROUP BY qActiveHealth.clinic_code, " FROM qActiveLabsLatest2 GROUP BY qActiveLabsLatest2.clinic_code, % qActiveLabsLatest2.chart_number PIVOT qActiveLabsLatest2.raw_code In ( , *,qActiveLabsLatest3.[ ]  'none'); RSELECT Distinct tblReportsTemp.raw_code  xFROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=7));! ~TRANSFORM Last(Format([qActiveServicesLatest2].[service_date],  mm/dd/yy% )& ' ( ' & qActiveServicesLatest2.result &' )') AS LastOfservice_date  2,qActiveServicesLatest3.[) SELECT qActiveServicesLatest2.clinic_code, qActiveServicesLatest2.chart_number & FROM qActiveServicesLatest2 GROUP BY qActiveServicesLatest2.clinic_code, ) qActiveServicesLatest2.chart_number PIVOT qActiveServicesLatest2.raw_code In (! ~FROM tblReportsTemp WHERE (((tblReportsTemp.type_order) = 5 ));" TRANSFORM Last([qActiveHealth].[start_date]) AS LastOfstart_date zSELECT qActiveHealth.clinic_code, qActiveHealth.chart_number  F, qSummary1!insurance a K![s insurance  filter xqActiveHealth.chart_number PIVOT qActiveHealth.raw_code In ( ,qActiveHealth.[! ~FROM tblReportsTemp WHERE (((tblReportsTemp.type_order) = 6 ));! |TRANSFORM Last([qActiveMed].[LastOfstart_date]) AS start_date I  nSELECT qActiveMed.clinic_code, qActiveMed.chart_number  bFROM qActiveMed GROUP BY qActiveMed.clinic_code,  lqActiveMed.chart_number PIVOT qActiveMed.raw_code In ( ,qActiveMed.[ nAND (tblDemo.chart_number = qActiveDemo.chart_number)) . SELECT tblReportsTemp.type_order, tblReportsTemp.display_order, tblReportsTemp.criteria, * tblReportsTemp.raw_code FROM tblReportsTemp WHERE (Len(tblReportsTemp.criteria)); $No Selections made 0GROUP BY qSummary1.pcp2; , Null as pcp2 E Select Distinct qActiveDemo.pcp2, qActiveDemo.insurance, tblDemo.clinic_code, tblDemo.start_date, tblDemo.end_date, tblDemo.Patient_ID ,   FROM (( tblDemo ' LEFT JOIN qActiveDemo ON (tblDemo.clinic_code = qActiveDemo.clinic_code) ( LEFT JOIN qActiveHealth ON (tblDemo.clinic_code = qActiveHealth.clinic_code)  rAND (tblDemo.chart_number = qActiveHealth.chart_number)) . LEFT JOIN QRY_LatestVisitDate ON (tblDemo.clinic_code = QRY_LatestVisitDate.clinic_code)  ActivePeriod! ~AND (tblDemo.chart_number = QRY_LatestVisitDate.chart_number))  LSELECT tblReportsTemp.section_heading * FROM tblReportsTemp WHERE (((tblReportsTemp.section_heading)='Body Mass Index')); ( XSELECT Count(qSummary1.Patient_ID) AS Total ( LEFT JOIN QRY_LatestBMI ON (tblDemo.clinic_code = QRY_LatestBMI.clinic_code)  rAND (tblDemo.chart_number = QRY_LatestBMI.chart_number)) * FROM tblReportsTemp WHERE (((tblReportsTemp.section_heading)='Blood Pressure')); rptTemp ActiveClinic@ 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))  2, qSummary1!pcp2 as pcp2  percent fSEL K![ECT Count(tblReportsTemp.type_order) AS CountRx xFROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=6)); CountRx& LEFT JOIN qActiveMed1 ON (tblDemo.clinic_code = qActiveMed1.clinic_code) From qSummary1 Group By Null; nAND (tblDemo.chart_number = qActiveMed1.chart_number))  rSELECT Count(tblReportsTemp.type_order) AS CountServices  CountServices1 LEFT JOIN qActiveServicesLatest3 ON (tblDemo.clinic_code = qActiveServicesLatest3.clinic_code)  Expr2# AND (tblDemo.chart_number = qActiveServicesLatest3.chart_number))  jSELECT Count(tblReportsTemp.type_order) AS CountLabs  CountLabs- LEFT JOIN qActiveLabsLatest3 ON (tblDemo.clinic_code = qActiveLabsLatest3.clinic_code)  Expr1  As ! |AND (tblDemo.chart_number = qActiveLabsLatest3.chart_number))  LSELECT tblReportsSpecial.source_query + FROM tblReportsTemp INNER JOIN tblReportsSpecial ON tblReportsTemp.display_text =  < Or (qActiveHealth!raw_code =  qSummary1a& tblReportsSpecial.display_label WHERE (((tblReportsTemp.type_order)=9)); LEFT JOIN  source_query 8 ON (tblDemo.chart_number = .chart_number)  6AND (tblDemo.clinic_code = .clinic_code)) BWHERE ((qActiveHealth!raw_code = * LEFT JOIN qActiveHealth1 ON (tblDemo.clinic_code = qActiveHealth1.clinic_code)  rAND (tblDemo.chart_number = qActiveHealth1.chart_number)  qChosenDx ,No conditions selected &Dx Missing Criteria <any> $WHERE (True = true tWHERE (((Activeclinic(qSummary1![clinic_code]))=True) AND ) ((Activeperiod(qSummary1.[start_date],Nz(qSummary1.[end_date],Date())))=True))m. tblReportsData No records pcp2 unassigned insurance All totalActivePeriodEver  Ik 0 I P=y'IJs2i؞EYݨxma#%q1bH'aC7? GroupHeader2 ReportHeaderz? PageHeaderWC7?Report ReportFooter GroupHeader3 GroupHeader0 PageFooter Report_Close `xtBMICriteriacmbBMIOperator txtBMIResult1 txtBMIResult2 lblBMIAndchkBMIAutoLabel cmdBMICreatetx K![IIf(Len([qActiveLabsLatest3].[ Report OptionscmdClose CreateList! ~SELECT tblReportsTemp.type_order, tblR i  Q ( 1 8  HCancel strFormNamestrTablestrDataDatabasestrSampleTableofnFlags InitialDirfilter FilterIndex DefaultExtFileName DialogTitleOpenFile strFilterstrDescriptionvarItemstrItem X Q$h %x & P q  clinic start_dateend_date A iB Bdsex] = 'F') @ AND ([qArU 0 YQy I1q q!#  @4) aQ ppp@8i  rrr@<i  ttt@@i  @Di  @Hi  xxx@Li  zzz@Pi ! @Ti 9 vvv@XQ y ~~~@\Q  @`Q  |||@di  @ h1 Y  @ l1 y I@p   Wl$ QltCp"l'<%'L%'\%lpt Qlx x  x :L %:\%x (x d)'\%l$ `l ,l@0 pxtl0   xD<'8%'H%'X%:h%x$ `x `xDD$  x`d$ QdlT TUpz5TCh"d'$%'4%'D%lhl Qdp""p 4k" p k {B p T:D%dp d 0 D T:4 ($]1:%p  0 D : ]>)d6T >d!  d dd!  d dd!  d dd!  d dd!  d dd!  d dd!  d 0dd!  d 0dd!  d 0dd!  d dd!  d dd!  d d@T T!  5T`4 thlp8 dT T!vx  x kvxL)'d%x$ `x ,xT$  xh K![lppp8p8qActiveHearU |$`$ $A`( $`,<(`00&$`4tn__SRP_3l__SRP_4 qt__SRP_5{g__SRP_6}Xn ( ,qActiveMed.[ nAND (trU~|   qi TK'CTTCXX DD\2XT \D cDlP fDlK$$'4%'D%$ |$\ fD% $ ` P K   lq }     ,'':D N l#X*#T *# l*F$ 2XT ) 6$ RWT, l\4 XT  $knct qArU $`nic_code, tblDrU~|  Q!)!0  t`$ Q`hT\h (Xh (((lX>\FH l/X6H(dt0 ldh$\X`H(0   a2/`Zpzdi pd0l4 hdpt`latsTemp.section_headirU $__SRP_7__SRP_8 __SRP_9__SRP_a `$`(`nst_rU~| &y 1))a  a y y   QYi IKk04(8%HL FP%`d$ d D` 0#L `H 0$4K![ ,%>0F h) d`LH4$ dd  ldpzpz`( h(0d`LH4 KcC@l (h h7pz2 1d'ld *F #?/5}ld *FL *#*1`/l`*#*1`/l` *# *1`/l` *# *1`/)''@M@`M(@ 6':(NC<  1wp4,i(p4$PpL `  )Ii0 ` 00( ` nERE (True = true trU $  rU  k )Q*yA* *#* +1+Y++ ,II,,,q--- .1.4a5Y.q. 00q1I2a2!393Y/ 44#56 6I7Mq/7 8I88K![M 99y Q::); <<<=A>>?; @@A1AiNAAAABaByBB9C DDIEENyFFFqGaG HqHHYII1JJQKyK LiLqM!i###A#@4Q #@8) aQ ppp@<Q @@!vvv @DQ  $@HQ 1$ @LQ$Ay$@Pi $rrr@TQ$A$@ X1 $  @\i $@`Q %@dQ 1%@hQ$Aa%@lQ$Ay%@ p1 %tttI @t%a%@xQ %@|Q$A1&@Q i&zzz@%a&@Q &@ && @i !'@Q A'  @i a'@i '@   @!'~~~  I @i '@i '@i @i    W    W    pK dD:H+%X\:` %p$ Tp $ \ L X $ Da4$(]h)p\XD540'''$:`,N44^-1x64$=dD:H %X\:` %p$ Tp $ \ L X $ Da4$(]h)p\XD54;0'''$:`.N44^-1x64$=D:H/%X\:` %p$ Tp $ \ L X $ QDo4 0K![:+% L  $ a$:1]>') p\X64$0'''$:`2N44^-1x64$YD:H3%X\:` %p$ Tp $ \ L X $ QDo4 0)p\X540'''$:`4N44^-1x64$D:H3%X\:` %p$ Tp $ \ L X $ :/%: %$ T $  L  $ Qo$QDo45 6(]u) p\X64$+'''$:`7N44 -64$6\:`+%p L p $ \a4`1t)p\54ltC l82+p! <Qpo4 954&+'''$:`:N44 -64$ l;2p! Qpo4 954+'''$:`<N44 -64$ l=2p! HQpo4 954+'''$:`>N44 -64$ l?2\7p! <Qpo4 9\! HQ\o$ 964$W+'''$:`@N44 -64$ lA2p! Qpo4 954+'''$:`<N44 -64$ lB2p! Qpo4 954+'''$:`<N44 -64$ lC2sp! lQpo4 954n+'''$:`DN44 -64$ lE2p! lQpo4 954+'''$:`FN44 -64$4p! p 4p:`G]4fXD:HH%X\:` %p$ Tp $ \ L X $ QDo4 I)p\X54a ltJ*1t:`K]4YD:HH%X\:` %p$ Tp $ \ L X $ QDo4 I)p\X54+'''$:`LN44 -64$ ltM*1t:`N]4YD:HH%X\:` %p$ Tp $ \ L X $ QDo4 I)p\X54+'''$:`LN44 -64$ ltO*1t lP29 7p! lQpo4 9\! HQ\o$ 964$4 +'''$:`QN44 -64$ lR2 7p! HQpo4 9\! lQ\o$ 964$ +'''$:`QN44 -64$ lS2' 7p! Qpo4 9\! lQ\o$ 964$" +'''$:`TN44 -64$ lU2 7p! Qpo4 9\! lQ\o$ 964$ +'''$:`TN44 -64$ VtM`@4 V 4:HW]1$tM@ V :X]164 (tM`@4 V 4:HW]454_ <'%'%'H%:`Y%p$ `p `Zp (tM`@4 V 4:HX]454 <'%'%'H%:`[%p$ `p `Zp lt\2 .'%'H%:`]%p$ `p Zp lt^2D .'%'H%:`]%p$ `p Zp lt_2 .'%'H%:``%p$ `p Zp lta2 .'%'H%:``%p$ `p Zp ltb2 .'%'H%:`c%p$ `p Zp lt12 V:d%D:He%X\:` %p$ Tp $ \ L X $ D,)p\XD.'%'H%:`f%p$ `p Zp ,ltF`%p$ `p dZpp$ `p TZp gpp hlqpl  l, l n+'''$:`iN44 -64$ l'''$ gpp hl#j*# g\\ ,hl*F4 -2)p\64$ 4 txLp\XD4$0 p  pl$ Qlx"l'<%'L%'\%x Qlt"l'<%'L%'\%x Qlp t y8:\%lt l 0Q8o%(:< %,0:L %4$ T4 $ 0 L , $ (,) l40,(5 p V8:\%l L l $ Q8o%0:L%4 L 4 $ 0,)l405p 4ki8:\%lp l 08K![ D0:L%4 L 4 $ 0a4)l4086?8:\%lp l 08 D)l85TV8:\%lp l 0Q8o%0:L%4 L 4 $ 0,)l405V8:\%lp l 0Q8o%0:L%4 L 4 $ 0,)l405 p ?.8:\ %l L l $ 8)l8:L@%8:\%l L l $ 8,)l8< 8:\%l L l $ 8,)l85p0 ptx0 l840,(0 p  Xh$ lh=lhh! Th hh! Hh lhh! `h hh! <h lhh! xh hh! lh lhh! h hh! h lhh! h lhh! h 0hCH'X%h! h |HD #@ 1x2D@h5HlxR=h! Th hh! Hh lh! *#D!*#@"*1p2D@(h' %'0%'X%lpl lh=th"t 4kt k;@ h! Hh hh! Hh hlx#R+h! `h hh! <h lh!$*#D!*#@"*1p2D@(h' %'0%'X%lpl lh=th"t 4kt k)@ h! <h hh! <h hlx%Rh! xh hh! lh lh!&*#D!*#@"*1p2D@(h' %'0%'X%lpl lh=th"t 4kt k@ h! lh hh! lh hlx'Rh! h hh! h lh!(*#D!*#@"*1p2D@(h' %'0%'X%lpl lh=th"t 4kt k@ h! h hh! h hlx)RRh! h lhh! h 0h`X4 xpltD@hH< 8* $  lp$ lp=tp(p'@%'P%'`%t lp=xp x  x V<:`%p L p $ Q>>@(Q Wrrr@,i 9W***@0i qW::: @4i W<<<Q@8! X @<!)X @@!QXQ@D!X @H!X @L!X @P!YQ @T!)Y @X!IY @\!iY @`!YQ 6WWW_____ _    _    _    _    _   _0   K![`U$V WQ`d *1t"`'0%'@%'P%ltd YQ`x".x 4k.,x k,8'':@N  :PN^T1p6 )'P%`U$V `W` ,[` x ::P%`x ` 0 D`1l)`5 x .x 4k.Nll*F :P%`x ` 0 D`1l)`6  x llS*#*1l/<'%'0%'@%:P%`U$V `W` `[`M:@%:P%`U$V TW` $dW>_)`65:@%:P%`U$V TW` $d)`2 ^?#*F: N44_dMD@ : `1`/6 4 l@2x ^A#*F: N44_dMD@ : `1`/6 4 lB2 ^C#*F: N44_dMD@ : `1`/6 4 lD2T ^E#*F: N44_dMD@ : `1`/6 4 lF2 rGH*#I*##*F: N44_dMD@ : `1`26 4ldR   :DJ]4 _d _d ldC| l|K2^L#*F: N44_d MD@ : `1`/6 4 l|M2^N#*F: N44_d MD@ : `1`/6 4ldR h.X:DO%\ L\ $XP)\XT Q\\ RlTqx\lx  lx  l'''T Q\\ RlT#S*# QXX ,Rl*F4 T2)\X64 T< | $h`d< \X4Oh0 p   hXUK![$V WQX\"X'(%'8%'H%Z\ YQXxK@=$:H|%X LX $$Wh)X$) x :8%:H%x ((8%:H%x ((8%:H%x (O(8%h @$:H|%X LX $$f%:%x ()X$5O(8%h @$:H|%X LX $$f%:%x ()X$5x d,X'(%'8%'H%*#\ YQXd/d plRNX*#*#*#*#*F%:H%\ YQX`25'H%` t.$:H^%X LX $$P)X$d plRj*#*#*#*#*#*F%$:H}%X LX $$2 )X$5s*#*#*#*#*#*#*F%$:H~%X LX $$2 )X$5s*#*#*#*#*#*#*F%$:H%X LX $$2 )X$5s*#*#*#*#*#*#*F%$:H%X LX $$2 )X$5 h|.$:H^%X LX $$P)X$.$:H~%X LX $$P)X$.$:H}%X LX $$P)X$.$:H%X LX $$P)X$.$:H%X LX $$P)X$.$:H%X LX $$P)X$ QXX RlqXl u l''' QXX Rl#S*# Q$$ ,Rl*F T2)X$6D ,x`\dh< X$$DU$V WQDH"D'%'$%'4%ZH YQDpK`:$% :4%DU$V TWD $d L $W`)D a` @:$% :4%DU$V TWD $d L $`1P)D 5g(%` @:$% :4%DU$V TWD $d L $f`1L)D 5N*#*#*#*#q*#lP*#q*#*1T2"D'%'$%'4%lTH YQDx*#*1T/"D'%'$%'4%lTH YQDtx plRG:4%Dx D 0 D($Up^)D6::4%Dx D 0 DUp\)D5t plRp^G:4%Dt D 0 D($Up\)D6p^p\vlL*#*#lL*##*Fx:$ N^M4@ h: X`1X26 xhX p :$%:4%p (($%:4%p (:$%:4%p (k\D$%:4%p (lPF$%:4%p (k^D$%:4%p (lPF$%:4%p (lLF$%:4%p (lXF$%:4%p (p dQ:$z% :4%DU$V TWD $d L $P)D  ` QDD RlqTDlT  l'h'x' QDD Rl#S*# Q ,Rl*F T2)D6xh(T < pPtXTxHL`LD xhX0    0   0   0hlp! |p l lhR)pl<'(%'8%'H%:X%pU$V `Wp `[pM:H%l:X%pU$V TWp $dlW>_)pl65:H%l:X%pU$V TWp $dl)plI(H%l:X%pU$V TWp $dlWBUpz)pl6D(H%z@l:X%p Lp $lf`1t)pl5ez@l:X%p Lp $l%:8%U$V TW $d)pl56ltFH%l:X%pU$V TWp $dl)plrz@l:X%p Lp $l:8%:(%K![U$V TW $d)pl6+''':XN T6( t,pl0   0 H  0   0 @  0   0   0 X  0   0   0 `  0   0 p  0 (  0   0   0 P  0   0   0 x  0   0 P  0   0   0 p  0   0 0  0   0   0 P   0   0 !  0 p!  0 !  0 0"  TL4l   p  $, x4t !"#$0%&D'X(@)`*T+\,-.8/<0H1P2D3L45@/ RlTqx\lx  lx  l'''T Q\\ RlT#S*# QXX ,Rl*F4 T2)\X64 T< | $h`d< \X4Oh0 p   hXU$V WQX\"X'(%'8%'H%Z\ YQXxK@=$:H|%X LX $$Wh)X$) x :8%:H%x ((8%:H%x ((8%:H%x (O(8%h @$:H|%X LX $$f%:%x ()X$5O(8%h @$:H|%X LX $$f%:%x ()X$5x d,X'(%'8%'H%*#\ YQXd/d plRNX*#*#*#*#*F%:H%\ YQX`25'H%` t.$:H^%X LX $$P)X$d plRj*#*#*#*#*#*F%$:H}%X LX $$2 )X$5s*#*#*#*#*#*#*F%$:H~%X LX $$2 )X$5s*#*#*#*#*#*#*F%$:H%X LX $$2 )X$5s*#*#*#*#*#*#*F%$:H%X LX $$2 )X$5 h|.$K![:H^%X LX $$P)X$.$:H~%X LX $$P)X$.$:H}%X LX $$P)X$.$:H%X LX $$P)X$.$:H%X LX $$P)X$.$:H%X LX $$P)X$ QXX RlqXl u l''' QXX Rl#S*# Q$$ ,Rl*F T2)X$6D ,x`\dh< X$$DU$V WQDH"D'%'$%'4%ZH YQDpK`:$% :4%DU$V TWD $d L $W`)D a` @:$% :4%DU$V TWD $d L $`1P)D 5g(%` @:$% :4%DU$V TWD $d L $f`1L)D 5N*#*#*#*#q*#lP*#q*#*1T2"D'%'$%'4%lTH YQDx*#*1T/"D'%'$%'4%lTH YQDtx plRG:4%Dx D 0 D($Up^)D6::4%Dx D 0 DUp\)D5t plRp^G:4%Dt D 0 D($Up\)D6p^p\vlL*#*#lL*##*Fx:$ N^M4@ h: X`1X26 xhX p :$%:4%p (($%:4%p (:$%:4%p (k\D$%:4%p (lPF$%:4%p (k^D$%:4%p (lPF$%:4%p (lLF$%:4%p (lXF$%:4%p (p dQ:$z% :4%DU$V TWD $d L $P)D  ` QDD RlqTDlT  l'h'x' QDD Rl#S*# Q ,Rl*F T2)D6xh(T < pPtXTxHL`LD xhX0    0   0   0 X  0   0 H  0   0 @  0   0   0 X  0   0   0 `  0   0 p  t0TX\! \ X lTR)\X fD%\U$V `W\ [\=X:D^%\ L\ $XW4$$l)\X>l @X:D^%\ L\ $X4`1d)\X54pbp`*#*#kb#*#*#*#k`#*#*#*#q*#ld*#q*#*1h2&'%lhFD%\U$V `W\ [\ lcD%\U$V `W\ [\j*#*#*#*#*#*F4%X:D~%\ L\ $X2 )\X54a*#*#*#*#*F4%X:D}%\ L\ $X2)\X54j*#*#*#*#*#*F4%X:D%\ L\ $X2 )\X54j*#*#*#*#*#*F4%X:D%\ L\ $X2 )\X54.X:D^%\ L\ $XP)\X.X:D~%\ L\ $XP)\X.K![X:D%\ L\ $XP)\X.X:D%\ L\ $XP)\X.X:D%\ L\ $XP)\XT Q\\ RlTq\l j l'''T Q\\ RlT#S*# QXX ,Rl*F4 T2)\X64< $ $dhlX\X40   0   0 P  0   0   X`<:@%PT:X%hU$V TWh $dT LP $NRM,@ ?`: @@%:%< L< $,2)<6 `@ P:,]4;:,%< L< $a)<5Al`*#B*#0*F:,%< L< $a:0`: C@l`F0( :>NRM@ ?:@%:% L $,2)<6`@0 0'`'':,DN^E1@6`3:%:,%< L< $,)<0 * P:,]4N d:,%< L< $Qo F: % L $Qo F)<6Gl`*#H*#I*#l`*#H*#|J*F:,%< L< $a:K`: % L $a@0:L l`F(:>NRM@ ?:@p%h:%l Ll $h,2 |) <lh6`@0 pI 0'`'':,DN^E1@6`3:%:,%< L< $,)<3:%:, %< L< $,)<0 * P:,M]4# Gl`*#H*#N*#l`*#O*#|l`*#xP*#t#T*F:>NRM,@ ?`: @@%:%< L< $,2|xtT)<6 `@ 3:,%< L< $Qo F<5y Gl`*#Q*#l`*#H*F:,;%< L< $a:% L $a`@: R0l`F (:>NRM@ ?:@%h:%l Ll $h,2) <lh6`@0  0'`'':,DN^E1@6`3:%:,%< L< $,)<0 *$ 0'`'':,DN^E1@6` T 5:S%:,T%T (5(%:,U%T (5:V%:,W%T (5kPD%:,9%T (5ldF%:,X%T (5kRD%:,Y%T (5::,%< L< $Qo%:Z%T (5<5l`F%:,[%T (5::,%< L< $Qo%:\%T (5<5T d5Q:]%:,#%<$ T< $$ L $^)< h)',%<$ `< ,_<p `<< alpqP<lP a+'`'':,bN E6`)',%<$ `< ,_<l'`''p `<< alp#*# ` ,al*F E2)<6`,` HPTdXL@Hx\D`hx|xtT<lh`@0 p;0P$ QPtK;<:@c%P LP $1D lDy2&:@y%P$ `P _P  lDz2&:@z%P$ `P _P  lD{2K&:@{%P$ `P _P  lD|2&:@|%P$ `P _P  lD}2&:@}%P$ `P _P  lD~2&:@~%P$ `P _P  lD2 &:@%P$ `P _P xHxCp&'%lpF@%P$ `P _Pc@%P$ `P _P @ `PP al@q<Pl<  )l'''@ `PP al@#*# `<< ,al*F, E2)P<6,@0\ DDLHP\pxXt`HP<,p`Z0   0   0   0 P  0   0   0   0 P  0   0   `L  d < d <PT@ 1 @i )@ &I@Q i   $ `D $  `H $I `L $`P $`T $ `X $I`\ $`` $`d $ `h $I`l $`p $`t $ `x $I`| $` n$` $ ` $I` $` $` (  ` (&(I !` (&( "` (&( #` (&( $` (&(I %` (&( &` (&( '` (&( (` (&(I )` (&( *` K![ (&( +`$ (&( ,`( (&(I -`, (&n LrU $  RKZ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJLMNOPQSTUVWXY^_`abcdefghijklmnopqrstuvwxyz{|}~rU~|  Q y !Qi9 !Y Y) 1 iy   !    9 IY  QI ! QI " $$%!& (()9* ,)-.I. 011 4A555Q66!7 8a9Y:;:a;;q7 )3)39//+Y'a#99Q' < =aY>>>?19?y???ўfIY#qiqM0  $ l=HKK *1('%'%'%lH l=x!*# *# *12"x 4kx kx h x 'x pli%x .5IcIl *F(%.@p`:P @:0 `16 p`@ >l *F(%.@p`:P@`16p`@>l *F(%.@p`:P@`16p`@ .d l*1 lF%:%H Q8 *1('%'%'%lH l=tE *#*# *#*#*#*#*12 "t 4kt kt h t 't pli%t .5Ic Il *F(%.@p`:P @:0 `16 p`@ >l*F(%.@p`:P@`16p`@>l*F(%.@p`:P@`16p`@ .d  l*1 lF%:%H Q4 *1('%'%'%lH l=p!*#*#*12"p 4kp kcp h p 'p pli%p .5IcIl *F(%.@p`:P @:0 `16 p`@ >l *F(%.@p`:P@`16p`@>l *F(%.@p`:P@`16p`@ .d l*1 lF%:!%H Q4 "*1('%'%'%lH l=l!#$*#%*#&*12"l 4kl k4]l h l 'l pli%l .5Ic]Il *F(%.@p`:P @:0 `16 p`@ >l'*F(%.@p`:P@`16p`@>l'*F(%.@p`:P@`16p`@ .d l*1 lF%:(%H Q!K![4 c=)4c c=)4 c=)8 c=p c=l c=x c=t *+*1('%'%'%lH l=X"X 4kX k{8'@'`:,Npp:-N^.16p`@l3{/CX plR X 4k Nl0*Fp:1%X  02 D3``1)6p` X 4C<56*#7*#8*#9*#:*#;*12 2'%'%'%<=*#H l=`/` plR l>*1l?*#@*1/2'%'%'%<A*#H l=`/` plR% l>*1lB*#C*1/2'%'%'%DE*#H l=`/A:F%`  02 D3(]u)5 l>*1lG*#H*1/2'%'%'%I*#H l=`/A:J%`  02 D3(]u)5S l>*1lK*#L*1/2'%'%'%M*#H l=`/A:N%`  02 D3(]u)5 l>*1lO*#P*1/='%'%'%QR*#S*#H l=`2` plR] ` ` 4k] l>*1lT*Fp:U%`  02 D3`:V@ :U%`  02 D3 :PW:0X:U%`  02 D3:Yp`1) 6p`@ p ` H  l>*1lZ*#[*1/ ll*1('%'%'%\H l=\"\ 4k\ k#8'@'`:]Npp:^N^.16p`@l3# \ A:_%\  02 D3:`]4)5{aCb *Fp:_%\  02 D3`: @F  FPF0:c`1)6p`@ \ \ 4kld*# *Fp:_%\  02 D3`: @F  FPF0:c`1/)6p`@ \ lC lc*1ll*#l*1/ lF%:e%H Q@('%'%'%fH l=T"T 4kT kqgC7gC T T 4k7l0*Fp:h%T  02 D3`:i@ :j%T  02 D3 `1)6 p`@ T kC b ll*1mC  ln*1oC lp*1qC rs*1!ll*#l*#l*12 lF%:t%H Q<< `)Q[ldhuC0d ul$ d (u/5 dhu*'%'%%< )l=T('%'%'%vH l=X('%'%'%wH l=hT plR+'@'`'p:xN .6p`@ T T 4k R:y%T  02 D3:zp`(]4)6p{C::y%T  02 D3`1)5 uR:|%T  02 D3:zp`(]4)6p4{Cp::|%T  02 D3`1)5}C::~%T  02 D3Upf)5,.T  kcb  X X 4k:%X  02@:%X  02 D3@:NppQo` ` :P_%X  02 D3K1) 6p@` ?lk.D%T  02 ,3l2/) h ::%X  02Qo%:%h (5::%X  02Qo%:%h (5::%X  02Qo%:%h (5::%X  02Qo%:%h (5::%X  02Q"K![o%:%h (5::%X  02Qo%:%h (5Fk.D%T  02 D3:%h ()5lF%:%h (G:1%X  02Qo:p6pd%:%h (Zk.D%T  02 D3p p:%h ()6pPk.D%T  02 D3kfDp%:%h ()5h d X  .db T .'%'%:%$ `   lq\l\  l'@'`'p  l#*#  ,l*F .2)6p`@  %lh Xp8Pht0Dl4\Hdx@`<Thp`@ p0 @  a&( 4` (&(I5`$ (&n rU $` $A` $` $`$ $`( $A`, __SRP_13__SRP_14__SRP_15__SRP_16#      !"#$%&'()*+-/0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`acdefghijklmnopqrstuvwxyz{|}~`$`$`n ,,nY !rU~| q@MN+# * +1+@I7 8dl Ct%tMd@T T 5TY)ltJtMd@T  T`5Te ltT4:8%HL:d%P$ TP $L L H $ fcQ4oTF$(]r Vpz)PLH6 T( t8 PLH4TlH:L %\`:d%t$ Tt $` L \ $ Ha(: %:%$ T $ L  $ afXcx(8]K ]X'H HVpz)t`\H6 (xXH 4$  Pt`\H(xXH0 (  a , h $T)hTg:X]4g  ( 0c@%T:X %h , h $T )hT2:@%T:X%h , h $T)hTlpp4 Txtp hTP<,X44PdrU#K![ (`),`Aa,,,`Aa,,n0*i2 kVpVrU p a qiqM  yAAAQA@4AB@8AABppp@<iBBrrr@@BB @DAB@HAC@LAQ @PAAC~~~@TiBiC84K5+:h%x$ `x ,xd xx ldq`xl` j l'''0d xx ld#\*#PT XX ,lT*F@ 2\PT)xX6@0$  0 \TPxX@0@Xl<  )l'''@ `rU `$`nD yV__SRP_17,g_VBA_PROJECT(mAASJRH_GGTSWIECIUSDGJCRACRKC:. BJNPSKNHOCLENDLXWBES_WMZFMUK:!b am  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\Program Files\Microsoft Office\Office\MSACC9.OLB#Microsoft Access 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation*\G{00025E01-0000-0000-C000-000000000046}#5.0#0#C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll#Microsoft DAO 3.6 Object LibraryZ*\G{0002E157-0000-0000-C000-000000000046}#5.3#0#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB#Microsoft Visual Basic for Applications Extensibility 5.3 C\L   8YBYBXQNMKSXOEEDAZFQBLQSUZPRM034de7c59dbasUtils2g8XTLNXTKEDCOTFEWJIULSKZFDHFSG0L4c5c439eDModule18$K![NRNIRCKXLKQPYDKEYAUSFDYMICMH024de7c59dFbasAutoexecg0 8EPJXQZLJWBVWCEOWYEVV_HVVZUYK054de7c6ecZbasUtilsHE8EHAMUYMJZGNYHEKYAGZDDECCYGHJ054de7c59d|basCommonFilety;J!eA k?ެF YV{) M~ 'ůM #(@C(aݨlZQF 1MH.Lv$h"8` AccessNew VBAWin16~Win32MacVBA6# cdems-97stdole` DAO VBIDEA basUtils2.b _Evaluate(GetDBDir GetDBDirErr dbCurrent= strDbName strProcNameƣ CurrentDbSRight UCase5  GetDBDirDoneErroMsgBoxRNumber- Description vbOKOnly vbCritical+} (GetDBNamedb\str(IsLoaded. strFormNameofrmÏFormForms Module1b basAutoexecH(AutoExec AutoExecErruvarRet(adhVerifyLinks AutoExecDone1SysCmdGacSysCmdRemoveMeterDoCmdƧ Hourglassb basUtils=\(strformy (strClinic(cntl (ActiveClinicclinic<IsDate2IIfz %K![frmReports txtClinicList (ActivePeriodj start_date;qend_date^ txtStartDatea txtEndDate̿(ActivePeriodEver(rtxthidden_start_dateg basCommonFile(!tagOPENFILENAMEy lStructSize/r hWndOwner hInstance  strFilterӥstrCustomFilterژnMaxCustFilter` NFilterIndexcstrFile XnMaxFile strFileTitle nMaxFileTitleym strInitialDir/(strTitleFlagso nFileOffsetInFileExtension9 strDefExtHA lCustData'5lpfnHooklpTemplateNamet(adh_apiGetOpenFileNameHofn) comdlg32.dll?(adh_apiGetSaveFileName(CommDlgExtendedErrors(adhOFN_READONLY(adhOFN_OVERWRITEPROMPT(adhOFN_HIDEREADONLYXO(adhOFN_NOCHANGEDIR(adhOFN_SHOWHELPی(adhOFN_NOVALIDATE(adhOFN_ALLOWMULTISELECTJ(adhOFN_EXTENSIONDIFFERENTf4(adhOFN_PATHMUSTEXISTV(adhOFN_FILEMUSTEXISTF(adhOFN_CREATEPROMPT(adhOFN_SHAREAWAREi(adhOFN_NOREADONLYRETURN2(adhOFN_NOTESTFILECREATE;(adhOFN_NONETWORKBUTTON(adhOFN_NOLONGNAMES.W(adhOFN_EXPLORERz(adhOFN_NODEREFERENCELINKSX(adhOFN_LONGNAMES(adhCommonFileOpenSave InitialDir1filter; FilterIndex˟ DefaultExtyFileNamej DialogTitle߄OpenFile strFilenameefResult IsMissing Application* hWndAccessApp (adhTrimNull(adhAddFilterItemstrDescriptiondvarItem vbNullCharYstrItemintPosr$ Report_rptWSC_Diabetes_Core_Measures Report_NoDatayCancelstrMsgG&intStyle basLinkedTablesd CheckLinkZstrTabler TableDefs%iFields7strDataDatabase6strSampleTableadhVerifyLinksErrd varReturn`DstrDBDir# varFileNametdfTableDefmintI\ intNumTablesIXlngFlags adhVerifyLinksDonemIsNullCount0vacSysCmdInitMeterm!Connect\ RefreshLinkntacSysCmdUpdateMeter  Report_rptWSC_APHS_Core_MeasuresV Report_OpendDateAdd/6 Form_frmListPatientsǛcmdClose_Click!PcmdCreateReport_ClickݾqdfQueryDefrstTemp  RecordsetstrSQLFresponsestrDefaultTextYnew_report_name/err_code OpenRecordset|EOFBOFy MoveFirstN display_textJMoveNextL! SetWarnings QueryDefs& DeleteObjectTacQueryhRunSQL ( CreateListcmdDelete_Click rstQueries lstQueriesdtxtTitlevbYesNovbNo%qry_name~DeletexRequery DefaultValue* lstChosenDx>(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_ClickJrstCr&K![eateQueryDefzNExecuteY 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_DblClicklstRelatedLabs_DblClicklstRelatedRx_DblClickvlstRelatedServices_DblClick lstRelatedVitals_DblClickۭ Report_rptSummaryDiabetesMFstrRecordSource RecordSourcebtxt_pcpVisiblelbl_ReportNameJCaptionx report wizardǕ ( blnPCP_Report"( blnInsurance_Report( strSQLWhereEthnicityS( strSQLWhereGender}( strSQLWhereAge( intEOP8rstLabsIn_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^ OpenReport acViewPreview2( OpenTempReport Form_frmCountPatientsTOpenFormfrmCountPatients-criterian TabControl0#PagestxtWorking_codecmdClosejlblCloseʝfrmCountPatients txtInputBoxJ?lstRelatedSpecialMeasureslstAllSpecialMeasures%jumpFextra?varpts_cntrgen_cntr*age_cntru;rac_cntrKins_cntr^%spp_cntrWlblAddSpecialDemo_ClickImtxtTypeCriteria txtRaw_CodeE_lstRacecmbDemoOperator chkAgeAutoLabelBAlblAgeAutoLabel txtDisplaylblAddSpecialMeasures_Clicki field_name3txtSrvcDisplayclblAddSpecialVital_Click working_code txtBMIDisplay3z!lblRemoveAllSpecialMeasures_Click6rlblRemoveSpecialMeasures_ClickElstAllSpecialMeasures_DblClickc"lstRelatedSpecialMeasures_DblClick  Report_rptSummaryDepressionH7 Form_frmReports btnRun_Click Err_btnCancelݯlstSelectClinic7yDateDiffcmbMed!a cmbService y cmbCondition cmbLab2[cmbLabResultOperater% IsNumeric$*txtLabResultValueZ)acNormalMaximizeFy 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_AfterUpdater Form_frmSplashcmdAgree_ClickKrstAgreezEdit+clinic_support_DCP` cmdExit_ClickQuit9acExit  Form_Close[tempRMsgQLabel14DLabel15ELabel5,Label6,Label17GLabel3,txtLocalSupportn 'K![txtDCPSupport txtVersionLabel_copyrightpcmdAgree?cmdExit\ Form_Timer Form_frmCountPatients-criteriachkAgeAutoLabel_AfterUpdatetxtDemoDisplayalblDemoDisplaychkAutoLabel_AfterUpdatex lblDisplay[cmbOperator_AfterUpdatechkBMIAutoLabel_AfterUpdatef lblBMIDisplay5cmbBMIOperator_AfterUpdateMchkSrvcAutoLabel_AfterUpdatelblSrvcDisplayUtxtBMICriteriacmbBMIOperator txtBMIResult1tk txtBMIResult2uk lblBMIAndmjlblBMIInclusive cmbDemoOperator_AfterUpdate txtDemoCriterias txtAgeResult1A txtAgeResult2AlblAgeInclusive_ lblAgeAnd txtCriteria1 cmbOperator txtResult1 txtResult2lblAnd=blblLabInclusiveԤcmdAddLabWithCriteria_Click strCriteriaI chkAutoLabel+Result1cmbSrvcOperator_AfterUpdateUtxtSrvcCriteriaɽcmbSrvcOperatorFtxtSrvcResult1DtxtSrvcResult2D lblSrvcAnd>@lblSrvcInclusivebcmdAgeCreate_ClickIPcmdBMICreate_ClickcmdBPCreate_Click strResponseO strAnd_Or strAnd_Or29 frmAnd/Or txtBPSystolic txtBPDiastolick vbOKCancelx? txtBPDisplayD;cmbBPSystolicOperatorcmbBPDiastolicOperatorJ txtBPCriteriaicmdCreateSrvc_ClickfchkSrvcAutoLabel0txtSrvcResult1_AfterUpdatetxtSrvcResult2_AfterUpdate1cmdDemoCreate_ClickcmdLabCreate_ClickƱtxtResult1_AfterUpdatetxtResult2_AfterUpdateKcmdOptionsContinue_Click optAll/PCP, optEthnicitylstEthnicityFiltertxtAge1&txtAge2& optGenderoptAge_AfterUpdateHoptAgelblAge1lblAge2 lblAge_andoptEthnicity_AfterUpdatetxtAgeResult1_AfterUpdateFwtxtAgeResult2_AfterUpdate8&txtBMIResult1_AfterUpdateo txtBMIResult2_AfterUpdate Report_rptTempW Report_CloseYErrCodeacFormDetail2Label1,Label2,ClickTimerX_B_var_clinic_support_DCP!Itemz _B_var_MidpLabel74"Label4,btnRunLabel25jtxtQuery_SelectedLabel31Label73!OptDateDmLabel75#OptDayswmLabel77%DblClick AfterUpdate_B_var_clinic_default=ControlsK_B_var_clinic_code_B_var_CommentsL _B_var_Datev _B_str_Trim _B_str_UCaseK _B_var_LeftQLabel45Label43cmdSaveLabel59 cmdDeleteVLabel61Label63Label64Label47Label49Label65 lblAddAllDemo lblAddDemo> lblRemoveDemolblRemoveAllDemoiBox70 lblAddDx1g lblRemoveDx12eLabel83FLabel85HLabel88KLabel94l lblAddAllRxlblAddRxlblRemoveAllRxi1 lblAddNewRx lblRemoveRxs lblAddAllDxlblAddDx lblRemoveDxqlblRemoveAllDxc/Label96nLabel99qLabel105+Label107-Label110KLabel116QlblAddAllServicesN lblAddService4lblRemoveAllServices lblAddAllLabs] lblAddLab lblRemoveLablblRemoveAllLabslblRemoveService,cmdCreateReport[=lblAddSpecialLabLabel134Label137Label143 lblAddVitallblAddSpecialVitallblRemoveVitallblAddSpecialService#lblAddSpecialDxLabel145Label147Label150Line153Line154Line155 Line156 Line157 lblAddSpecialDemoLabel162lblAddSpecialMeasuresUlblRemoveSpecialMeasureslblRemoveAllSpecialMeasuresU _B_var_Format_B_var_frmReportsh~_B_var_lstQueries$Collect_B_var_txtEndDate- _B_var_Right9Report$ PageHeader-Label212Text222"Label223Text224$Label225Text228( GroupHeader3 GroupHeader0Box142Text47Hs Age_UnknownrText50fsAge_14_AndUnderText52hs Age_40_to_49Tex(K![t48Is Age_15_To_29\Text54jstxt_Age_Unknown_Percentage txt_Age_14_AndUnder_PercentageLtxt_Age_15_To_29_Percentage>qtxt_Age_40_to_49_PercentageText73sDiabetes_Type_UnknownText86sDiabetes_Type_2VText84sDiabetes_Type_1VText88s$txt_Diabetes_Type_Unknown_PercentageItxt_Diabetes_Type_1_Percentage"txt_Diabetes_Type_2_PercentageLabel493Ethnicity_White4Label495Ethnicity_AmIndianLabel497Ethnicity_BlackLabel499txt_Ethnicity_White_Percenttxt_Ethnicity_Black_PercentwZtxt_Ethnicity_AmIndian_Percent<-Ethnicity_AsianStxt_Ethnicity_Asian_PercentQEthnicity_Hispanic_Ethnicity_OthersLabel9,txt_Ethnicity_Hispanic_Percenttxt_Ethnicity_Other_PercentLabel125u Gender_FemaleDbLabel127wGender_UnspecifiedfSLabel129y Gender_MaleLabel131txt_Gender_Female_PercentFtxt_Gender_Male_Percenttxt_Gender_Unspecified_PercentLabel138 Age_30_To_39Label140txt_Age_30_To_39_Percent5Patient_Visit_0nLabel172+Label210Text262Label263`Text264Label265bText266Label267dText269Text270Text271Label272Text273Text274Label275Text276Text277Label278Text279Patient_Visit_1_To_2Text65sPatient_Visit_6_AndOverAText61sPatient_Visit_3_To_5JText67s txt_Patient_Visit_1_To_2_Percent txt_Patient_Visit_3_To_5_Percent#txt_Patient_Visit_6_AndOver_PercentPatient_Visit_AvgULabel327) Text328Label329+ Text332Label333J Text334Text335Text337Label338O Text339Age_45_AndOverLabel347s  Age_50_to_59XLabel349u Age_50_to_59_PercentageAge_45_AndOver_PercentagedAge_65_AndOverLabel353 Text354Text356Label357 Text359Label375 Text3768Label377 Text379; GroupHeader1Box158<Label159Text155;Bp_Systolic_AvgEiText160[ Bp_140_90OverTText156< Bp_130_85OverޚText162]Bp_Diastolioc_Avgtxt_Bp_130_85Over_Percenttxt_Bp_140_90Over_PercentHL Bp_Checked1PText158>txt_Bp_Checked_PercentBMI_CalculatedKText116Text113BMI_24_AndUnder^Text118BMI_30_AndOver7Text120txt_BMI_24_AndUnder_Percenttxt_BMI_30_AndOver_Percenttxt_BMI_Calculated_Percentf BMI_25_To_29Label166 txt_BMI_25_To_29_PercentHText3779Medication_InsulinӵText380Wtxt_Medication_Insulin_Percent*$txt_Medication_ace_inhibitor_Percent#txt_Medication_sulfonylurea_PercentMedication_aspirin^Text397txt_Medication_aspirin_PercentMedication_sulfonylurea[Text382YMedication_ace_inhibitorܭText378:!txt_Medication_glucophage_Percent#Medication_glucophageLabel4012!txt_Medication_glitazones_PercentEMedication_glitazonesYLLabel4045txt_Medication_prandin_PercentMedication_prandinSLabel4078txt_Medication_bp_other_PercentڄMedication_bp_otherLabel410V"txt_Medication_lipid_lower_PercentText239NLabel240Text312VText313WLabel314 Text355Health_cerebrovascularNText358"txt_Health_cerebrovascular_Percent Health_heartlLabel416\txt_Health_heart_PercentqfHealth_hyperlipidemiaHLabel419_!txt_Health_hyperlipidemia_Percent-Health_hypertension`Label422}Text423Health_nephropathy'Label425Text426Health_neuropathyxLabel428Text429Health_peripheralLabel431Text432Health_retinopathyBLabel434Text435Health_selfmonitor_bgДLabel437Text438 Health_smokerZ~Label443Text444Text315YLabel316 Text317[Health_selfmanageme)K![nt_goalLabel440Text441Label1792 Education_dmMWLabel181OText182Education_nutritionPLabel184RText185Education_retinal_examQLabel187UText188Education_smoke_cessationLabel190sText191Education_pneumonia_vaccinationLabel193vText194Education_flu_vaccinationqLabel196yText199Education_dental7Label202Text203Education_foot_check?Label208Text209Text360 Label361 Text362Label363 Text364Text365 GroupHeader2Box160YText167b Test_HbA1CR+Text170Test_HbA1C_7_UnderWText172Test_HbA1C_10_AndOver.Text168cTest_HbA1C_9_To_9pt9Text174Test_HbA1C_PercentTest_HbA1C_7_Under_PercentTest_HbA1C_9_To_9pt9_Percent^Test_HbA1C_10_AndOver_Percent|Text197Test_CreatinineText200Test_Creatinine_1pt5_Under~Text198txt_Test_Creatinine_Percente&txt_Test_Creatinine_1pt5_Under_Percent3Text226&Test_CholesterolWText229)Test_Cholesterol_200_AndOver Text227'Test_Cholesterol_AvgњText231Ftxt_Test_Cholesterol_Percent(txt_Test_Cholesterol_200_AndOver_Percent֘Test_TriglycerideText238MTest_Triglyceride_200_AndOveryText236KTest_Triglyceride_Avg9Text240jtxt_Test_Triglyceride_Percent\)txt_Test_Triglyceride_200_AndOver_Percent; Test_HDLText247qTest_HDL_35_UnderText245o Test_HDL_Avg)Text249stxt_Test_HDL_Percent%txt_Test_HDL_35_Under_PercentwTest_LDL3Text256Test_LDL_100_to_129Text254 Test_LDL_AvgnText258txt_Test_LDL_PercentNtxt_Test_LDL_100_to_129_PercentF9Test_Creatinine_1pt5_To_2pt5NLabel454(txt_Test_Creatinine_1pt5_To_2pt5_PercentBTest_Creatinine_2pt5_Over}Label457%txt_Test_Creatinine_2pt5_Over_Percent6Label144#Test_MicroAl_Creatinine_30_AndUnder@ Label146/txt_Test_MicroAl_Creatinine_30_AndUnder_PercentڬTest_MicroAl_Creatinine_30_OverLabel149-txt_Test_MicroAl_Creatinine_3pt5_Over_PercentgTest_MicroAl_CreatinineLabel174-#txt_Test_MicroAl_Creatinine_PercentTest_HbA1C_8_To_8pt9yLabel214Test_HbA1C_8_To_8pt9_Percent75Test_HbA1C_7_To_7pt9Label231Test_HbA1C_7_To_7pt9_PercentιText233HLabel234Text259Label260]Text261Text280Label281Text282Label291Text292%Label293Text294'Text295(Label296Text3043Label305 Text3065Text3076Label308 Label321# Text322{Label323% Text324}Text325~Label326( Text340Label341m Text342txtHbA1C_91Days_ApartLabel344p Label161Text366Label367 Text368Text3724Label373 Text3746Text383ZText384[Text385\Text386]Label387 Text388_Text389`Text390|Text391}Text392~Text393 PageFootervText215pcp DemographicsVisitsTestsd Patient_CountAge_60_AndOver, Age_45AndOver Age_55AndOverܯInsurance_specified`Insurance_medicaid#Insurance_medicareq Insurance_commercialInsurance_other#Insurance_noneOMigrantɴHomelessh Bp_135_85OverBp_140_90UnderBp_130_80UnderQMedication_ag_inhibitor Medication_lipid_lowerEducation_selfmanagement_goalEducation_exercises",%Coll2003_smoke_cessation_ref_dec_doneSColl2003_smkerR<Test_HbA1C_AvgwTest_HbA1c_numericTest_HbA1C_9pt5_AndOverTest_HbA1C_Under_8rV DateDiff90Test_MicroAl/Creatinine_numericL_Test_Creatinine_numericZTest_Creatinine_avgTest_ALTTest_ALT_numericd Test_ALT_AvgR Test_ASTTest_AST_numeric7 Test_AST_Avg˜Test_Cholesterol_numeric8Test_Trigl*K![yceride_numericRTest_HDL_numeric9Test_LDL_numericTest_LDL_100UnderTest_LDL_130_AndOver:iTest_LDL_130Under`YTest_LDL_Under_100Test_Urine_ProteinTest_Urine_Protein_numerici Test_Urine_Protein_AvgbNoData _B_var_frmCountPatients-criteriaBP\ frmAnd_OrOption42_eOption44aeLabel27lLabel28mLabel29nLabel30Label32 cmdBPCreate}l lblBPDisplayŻ lblBPCriteriaBMIyLabel72 chkBMIAutoLabelLabel82E cmdBMICreateLabel84GLabYLabel130Label16F cmdLabCreateServiceD]Label236Label241Label243Label247 cmdCreateSrvcOptionslblOptionsContinueJccmdOptionsContinueҶLabel232 optAll_PCPLabel262_Label287Label264ademouOLabel269fLabel273Label274Label280 cmdDemoCreate´Label0,Box13 lblFilter2Label295Label297Label299Label304 Label306 Label318  btnAllReport. btnPCPreport, btnInsuranceReport btnAllGenderl btnFemakeibtnMale( btnUnknownƳ btnAllAgeG btnBetweenAgebtnAllEthnicitybtnEthnicitySelected< ReportHeaderŃText29sText31sText33sText27rBox25BText20rText23rText5~Text10rLine117Line128Line14:Text16rLine18>Line22]Line26a ReportFooterR. denominator{Round?,U $c {EG% '   K *[  }#9.2 @@x@ H)H @frmCountPatients-criterian TabControl0#PagestxtWorking_codecmdClosejlblCloseʝfrmCountPatients txtInputBoxJ?lstRelatedSpecialMeasureslstAllSpecialMeasures%jumpxME (SLS S<N0{5B2FCF11-D234-4B40-916F-FC06DD26D2D9} @i`` 3/` 3/ :i`VT`ode `WHER`typeh%`hhC\L.  "  r  8  ( " 08@P  Xp  "  * " &0 X 0h    +K![xpk Display a message if user enters a date for which there are no records, and don't preview or print report.======]`xga]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_PCPKT %QRY_SummaryDepression2_PCP (X "Z(\ 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^_Percent t Ă]"GE;v:7qqG@v.xME [LS S<,<0<<<<< <$<(<4<8<<<N0{82E83AE4-E437-11D6-A7B3-00A0C9C6E171}H `@ti``` :` @xi `Vx`t`p`nh%` %T %hXZ^bC\h st@X \DH(T X8@P ES@@ ND(< 32@, h@ ay1ndPJLU PSAl hh8C\L,  "   r ,K![ 8  ( " 08@P   XVp   1 (2  $  0@ .2P    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@*'o]] 8]P frmReports$: B"j"rQRY_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]_Over}Label457%txt_Test_Creatinine_2pt5_Over( gEEFXUWJFGXTDQDSRQZZHBIDHFEDL:]4EHAMUYMJZGNYHEKYAGZDDECCYGHJ: "y)6EPJXQZLJWBVWCEOWYEVV_HVVZUYK:GCHQWYCLUINESDCKXCDWKPVLUQXI:'      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwz{|}~JXL-P0dhQ8 rFO,!MW*qf'LcI@ } x  Ef'LcI@ }Q8 rFO,!MME @[LS -K![S)L )L!> wi % H Yes  %` Conf````Ls.re`rts `rts. 6  %   `-o SS Hx0 "de %`h !X dh P % E` % 6P \ B@|%  `2To ]] x ---- % t( ems % HpH sTem %`` `^ `\`X`LT"`P`L" 6 H % ` UU] p ries %  ==== % H  %` `ca`.K![`*==`L====`(he`epor 6x"t% ` XX sTem % .dis % Hmp.r %` WHER`type```L`ecte`ct C 6N% X` ++ `` `0k 5`zh-`t- H` WWG   % @- % H` %` ``"` `L`^`` 6@"% ` ` ` @` ``` ` dd`L0` 0``0  %  % H8 %``P1`1 61% ` 2`Lx2 X` B`L  ` Q`L "` _`L6 $`` m`L ` {`L p` ''` 9`8:`&x;`L`(P< ,(` %%` `L `8`&`( . `N 66`l `LhL`8d`&b `(` 0!` !%% ` A`LB`8C`&(E`( 2P"` "$$0` (`L (`8 `&`( 4#` #%%T` V`LV`8Z`&V`(X $` $%%y` N`LN`8`&O`((O 6x%` %##` `Lp`8`&`( 8&`J & i `l :P'` 0 'i <(`|J /K![(i  >)`|J )i  @p*` P *i B+`  +i  0,`  ,i D-` p -i F.`|J .i  HP /` 0 /i J 0`  0i L!1`  1i Np!2` P! 2i P!3` ! 3i "0"4` " 4i R5` p"$ 5i""%8!h Ppp  PP @p xX0`p! (0"H!@X@` x!@$%p$%#!h Ppp  PP @p xX0`p! (0"H!@X@`  ( X @ (&&&&' '&'H'h&'(*&@&\ @X @T @((D @@(4 @'$ 8'& @ `' '@p' @'H'@) 'p'@o ''@ ('!@( )'$@( @( @X( @p( @( @ @ @( @8) p@) ()(>@h) ))P@P) @ h@) )h)q@| )) )'@x ) p +*8+*, VBt@+P @*@ @*0 @+ @+ @+ @P+ @h+ @, @+ @+ @ @ @+ @, @(, @@, @X, @p, @ p@, @, @t *, 0K![p 8 @/-0.-X/p.H.../`. @.X @-H @.8 @/( @$ p@80 @ .H. @ .p. @. .. @0 /. @o /. @(/ @ @p/ @ @/ @/ @/ @/ @ (0.9-(* @@ (0G@P0 @h0 @ 8111h1 1VB*@P1p @(2l @@h @1X @1H @18 @X2( @1 `@2 @p2 @@2 @ H3@ @ 0  h P 4@33X35(444P4(34 B(*@3D @p34 @3$ @4 @3 @3 @ @5 @ @44&@ h4(4&@x4 4P4&@(6 4x4&@o 64&@4 @ @5 @(5 @@5 @X5 X@p5 @5 @ @ @5 @5x @6h @X @64N@T (6T(877 7h76 20*VB@8` VB@87P @P7@ @70 @7. @, @7 @7 @7 @8 @ @@8 @ @X8 @p8 @8 @8 @8 @ @ @ 9x:`:>> h P ;<B (*<D @4 @$ @ <X @ @ @ @ 0<&@< X<&h< <&< <&<o >&1K![>H @ = @ @ @ @ @ @ @ BX @x @h @X 0>NBT T>hxB@@0(P@\ @X @T @(D A4 @$ h@ x@ @ @ @ @ @ @o @B PBH B0 @ @ @ @ @ @ @ @ @ @ @ @ hBxB +P8 @ @  `E8tv2*xV h @X @H @8 D4 @0 @, @ @ D @ D( @ @ (E @ Ep @ @ @ E @ @ CF@(x @h (66"0""H$$l( P R$C\L$*\Rffff*034de7c6d4*\R3*#2e*\R3*#24*\R3*#2f*\R0*#1*\R3*#2a*\R3*#29*\R3*#28*\R3*#30*\R3*#30*\R1*#91*\R1*#92*\R1*#25*\R1*#98*\R1*#99*\R0*#14*\R0*#19*\R0*#1a*\R0*#13*\R0*#f*\R1*#39*\R1*#8f*\R1*#2c*\R1*#5eLp48<t@DvHLPTX\`dhlptx| $   &, >$r(*,:0<42K![8<@DHLPTX\` "  )("0 8 @HPX` h x 4 " "F8 )  :( 8  HNX x 4 L (<8$M`5<<  W(0H  P" X `hpx " T|u  &@  P &h"     Q   08 @ X  p4x & Y....(.8.H.X 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@` px  .  *     0 @ P ` <h  ( 8   J8 "  @HP " X f` h p0  V \ `X L N  JX N X <P 4 P . >H   \ f `p  X H` ( l F@ b b TX T P VX V Z `h & L d@! f!    b"x""" """ "  "J""V"#  4h# #4#&#<%# 8$  H$.`$H.p$  H$ d3K![% ph% $% & &(&J"&  J' ,X' "' ' 'LB' 8(nH(  Fh(  (X .(  &+ , , , Y8,P, .X,.h,.x,.,.,.,.,., .,.,.,.-.-.(-.8- H-" P-X- `-- ---- - - " -- . . 0.@.H.h. x.. " .. .. . .  ./ / 0/@/ " H/P/ X/x/ / /  /// // " 00 000 @0 P0  X0p00 00 " 080.0(1 0181X1x1111 1 1  1""2 02`82,aX2g2  f2 @3(NP3"5   P(5x5"@6  X6Gh6 :6 66G66666 $6(7 7 07@7 H7 FY`77 d7p8 xd89 m 99 m:: m:; ; $;; 6; :(< Nh<< <  < < = =JY =p=JY==bY=X> `> $x>>> L>??  ? (? H? P?VY`??(?@("@ B("0BXC("pCD("D  E(E G(G(H(8HPI (XI $pIII HI IJ J J 8J @JVYXJJVYJ KZY8KKVYKLXY LxLmLM (M BMMM PNPN hN pNN $NNN ZN0OHO :PO \O "O P 8P XP `P P P P P P P P *P ,(Q XQ NhQ Q Q $Q R RPY RpRRYRR R $S(S0S Z8SSS S $S S NT PT `T pT T T T T T TQT4K![T U U (UHU PU`U hU UU U U U lUU U"UUV VVV  ( VHVPVXV`VhVpV xV BV bV 8W  `HW ^W >XHX   b`X TX  Y 0@Y=PY ((hY Y YYY Y F^Y(Z i@ZZ xi[[ r[h\ r\P] rh] ^ (^ $@^h^ 6p^ :^ N^8_  @_ P_p__ _J^__J^`X`b^p`` ` $` a L(axa  a aaa aV^a0b(@bPc("hc d("de("eg("(g  Ph(`h xi(ij(jk (k $kl Hl`l hl xlll lV^l mV^8mmZ^mnV^ nxnX^nnroo (p $p@p PHpp p :p \p "Pq xq q q q q q r r 0r 8r Pr &Xr ,r r Nr s  s $0sXshs psP^ssR^sHt Pt $htt Ztt u  uu. u  0u 8u@uHu TPuuuuu luv v " v jv "v "v v8v.wHw Pw Xw`w hwpwxww w  w"w w w  x 0xHx,hxx  fx @ y `y (z   @zPzhzpzxz*zz (zjz   P{ N`{ { { { X{ H| X| h| x| | | || | |  |} } }(} 0}P} X} "`}h}p}x}} } }""} }  =} } >} 8~ ~ ~ ~ 4 8 OX Ox   T   0 T@   4,Ѐ 2`0N  05K![  .8 H8jX @s` @$s @ s  ȋ  Ћ   .....(.8 H PX` Hh ȌЌ l،  "  (0 .X b D F8 0 . 8.H P X` hpx   ""ȏ     0`H,ahg  f @ (N`"(  P@"X  pG : Gؔnv   h Nx ȕ ؕ     ( 8 H QX p    Ȗ l " j( " " 8.(X ` hp x   Ș"ؘ    @X,x  fș @0 p 8   P`x* (țh   X Nh  Ȝ X H X h x   ȝ     ( 0P X " ` h b ( & @ 8H.  ȟ П؟   "0 X `  x ,ؠ  f( @ С    آ* ((rP   ȣ Nأ ( 8 P X`  Ȥ ؤ   0 8 X  `p x  ȥ" Хإ  8*X  Ȧ   (   ȧ  &6K![ 0 H ` x  $0 X ^p Щ x "ȪЪ 0ت*< M58IPDpe6,r+ " ( j0 " "Ȭ 8.0` h px    ȭ"ح    @X.x0.خ f @p  x   Ȱ*аX ` $  ȱ Nر ( 8 X Xh  в    (8 @ `  hx  ȳ г " س  *$0Xpд,8@ " HPX` h"x4 *ص  ( Hh *p   ض   8 Hhpx   "  (з 0 d( F Fظ 2 .X 8й.8@HP ^X R   8"H p x  л,  f@ @ (  PȾ    0@H`hpx hX^ H  P N`        ( 8 H `p x       "    0     " (0  8 H    ( 8 " @H  P `   0 @P " X`  h x 8  H Xh " px 7K![  P  ` p "    h  x  "        @ (T`     B h   "   (@ H ` x     B 8PX `   "    0  => (T &x   &8:j 0a 8@j 8<jX  .....   B Php lx  "   ( 0 H ` p    B  8@ H h p " x     0 @ P`hx   B   8@ " HPX`hpx       08H X `hp Bx    "  (08@H X h      ( 08@ BH    "  ( 8Ph 0 p      B H`h8K![ p  "  `$y ("  08@ "  HPX "  `hp "  x "   "   "   "   "   "   "  (0 "  8@H "  PX` "  hpx "  `xp VB@B oP@]]]]]] .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));'LE n L 6%V.Hc la H!X H!ZuresNo diagnosis selected. 2 0 Select Condition(s)$*'Nho| VB@Bk HB@\ H"^'P HB@` 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 inputfrmCountPatients-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!ZdP 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@~ "B@~ "B@~ "B@~ "B@~o]]0]P]p .6 tblQueries 6%V.p=========================]]]]]]] ]8capture data from form]P]h*==========================================(here is determine if report 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@`P P Report'P(d  "t'Pk9K![<------------------------------------------------------------_ $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 e|k P_ Z'PNew Report Name Naming Report P$'P Pdx user hit cancel so exit|PkH@'  B"j"r!   B"j"r% P  B"j"r%''k  <------------------------------------------------------------gets last report_ID 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)4  p)z pB@ .dMust 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 )tHB New report < R > added  0 Report Added$*'N o0 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 ids@JYqSummary 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 done in a blank tblReportstemp table8PGWhen 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)andUJqSummary1 (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_order_since raw codes are unique in cdems within the Dx, Rx, Service and Lab this uniquely identifies Yeach line (eg. ha1c display displ:K![ayed 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) visits .Astructure 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"Ztype_order 8 = "Lab" section_order 7 = "Special Populations" type_order 9 ="Special Measures:F Labs has section order for each lab^ section_order 1 = [first lab name] & "Labs"_ section_order 2 = [second lab name] & "Labs"[-------------------------------------------------------------------------------------------]@]X]p]]]] .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 shadowAIf Me!txtTitle = Me!txtTitle.DefaultValue Then 'only rest if new] Me!lstAllDemo.Selected(0) = True 'sets cnt of patients in lstAllDemo- need field alwaysi Call AddDemo(2, "Demo", 1, "Visits", 1, "Pts count", "xvisit", "tblDemo.Patient_ID as [xvisit201]") Me!lstRelatedDemo.RequeryEnd If===============$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 new or rpt1, rpt20 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_;K![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@bdXsection for new reports "t! )tk "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~o ]H  !   , A  !  , o`]  !   , A  !  , o]  !   , Ato unhighlight  !  , o(]P  !   , Ato unhighlight  !  , oph]  !   , Ato unhighlight  !  , o]))gets info for exisiting section if exists] #gets info to create new section]@]`]x section_order] section_heading] display_order] criteria] raw_code] working code]]  .6tblReportsTemp 6%V.HT8  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. ! " ' "' !e' " 'd''k=============================  %' $PtsKT  Pts CountKTtblDemo.Patient_ID as [xvisit 0#$]'Pts Avg VisitsKT$5IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]),@CInt([QRY_LatestVisitDate].[CountOfVisits]),Null) AS [xvisit~avg 0#$]'Pts 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#$]'Pts w/ 3-5 visitsKT$$9IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]) And (([QRY_LatestVisitDate].[CountOfVisits])  Between 3 And 5,True) AS [xvisit 0#$]'<K![Pts w/ 6+ visitsKT$$9IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]) And (([QRY_LatestVisitDate].[CountOfVisits]) >=6,True) AS [xvisit 0#$]'n (new)routine for creating new itemd/parameters=(type_order,typefield,section_order,4section_heading,display_order,display_text,criteria)GCall AddDemo(2, "Demo", 1, "Visits", pts_cntr, str, "xvisit", criteria)Visits'kGenKTMsgBox "selected gender"  Gender-MaleKT"IIf(tblDemo.Sex='M',True) AS [xsex 0#$]' Gender-FemaleKT"IIf(tblDemo.Sex='F',True) AS [xsex 0#$]' Gender-UnknKT9IIf(tblDemo.Sex='U' or isnull(tblDemo.sex),True) AS [xsex 0#$]'n (new)routine for creating new itemdECall AddDemo(2, "Demo", 2, "Gender", gen_cntr, str, "xsex", criteria)Gender'kXAgeKTMsgBox "selected age" Age-UnknKT.IIf (Isdate(tblDemo.dob)= False,true) as [xage 0#$]'Age <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 Datediff('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#$]'n6 (new)routine for creating new item5d5BCall AddDemo(2, "Demo", 3, "Age", age_cntr, str, "xage", criteria)Age'kh5RacKTMsgBox "selected race"  Race-WhiteKT-IIf=K![(tblDemo.Ethnicity='White',True) AS [xrace 0#$]' Race-BlackKT-IIf(tblDemo.Ethnicity='Black',True) AS [xrace 0#$]' Race-AmIndKT1IIf(tblDemo.Ethnicity='Am Indian',True) AS [xrace 0#$]' Race-AsianKT-IIf(tblDemo.Ethnicity='Asian',True) AS [xrace 0#$]' Race-HispanicKT0IIf(tblDemo.Ethnicity='Hispanic',True) AS [xrace 0#$]' race-OtherKTDIIf(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);routine for creating new item is called with special buttonx1dp1ICall AddDemo(2, "Demo", 4, "Ethnicity", rac_cntr, str, "xrace", criteria) Ethnicity'k1InsKT (new)routine for creating new item0d0TCall AddDemo(2, "Demo", 7, "Special Populations", spp_cntr, str, "xsppop", criteria) Insurance'k 04>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>U 'MsgBox "selected insurance THIS WOULD REQUIRE a new table using tlkpInsurance!!" ins_cntr = ins_cntr + 1 Select Case str Case "Ins-None" Case "Ins-Medicare" Case "Ins-Medicaid" Case "Ins-Comm" End Select# If InStr(strItem, "(new)") Then% 'routine for creating new item ElseH Call AddDemo(2, "Demo", 5, "Insurance", ins_cntr, str, criteria) End IfSpPKTMsgBox "selected special pop"  SpPop-MigrantKT(IIf(tblDemo.migrant='Y',true) as [xsppop 0#$]' SpPop-HmlessKT)IIf(tblDemo.homeless='Y',true) as [xsppop 0#$]'n, (new)routine for creating new item@,d8,TCall AddDemo(2, "Demo", 7, "Special Populations", spp_cntr, str, "xsppop", criteria)Special Populations'k+n+============================= HB@rpt0 H)(8"rpt0" is default for rstTemp - never used in tblReports H)Demo H)  H)  H)  H)  H)^  H)  H) HB@ B""B@~for 'new items |H*==========================T * (!, KT  in data base skip) KTthis is a custom item)S) (!,  (!.A@*n)o)@Tp)]]]]"these feed the display order field]]] ]( ]@ ]X ========<criteria is such that in Summary the variables will be named\raw_code & section_order & display order eg. xage201 is visit-section 'age' display order= 1=======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 G'j\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 criteriaeg., [age5[ and [Age5] !!.  "!  %'8*str=working code 8$PtsKT  ' 8 Pts CountKTtblDemo.Patient_ID >K![as [xvisit 0#$]'Pts Avg VisitsKT$5IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]),@CInt([QRY_LatestVisitDate].[CountOfVisits]),Null) AS [xvisit~avg 0#$]'Pts 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#$]'Pts w/ 3-5 visitsKT$$9IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]) And (([QRY_LatestVisitDate].[CountOfVisits])  Between 3 And 5,True) AS [xvisit 0#$]'Pts w/ 6+ visitsKT$$9IIf(IsNumeric([QRY_LatestVisitDate].[CountOfVisits]) And (([QRY_LatestVisitDate].[CountOfVisits]) >=6,True) AS [xvisit 0#$]'nH! 8(new)routine for creating new itemd!/parameters=(type_order,typefield,section_order,4section_heading,display_order,display_text,criteria)GCall AddDemo(2, "Demo", 1, "Visits", pts_cntr, str, "xvisit", criteria)k0 GenKTMsgBox "selected gender"  ' 8 Gender-MaleKT"IIf(tblDemo.Sex='M',True) AS [xsex 0#$]' Gender-FemaleKT"IIf(tblDemo.Sex='F',True) AS [xsex 0#$]' Gender-UnknKT9IIf(tblDemo.Sex='U' or isnull(tblDemo.sex),True) AS [xsex 0#$]'n 8(new)routine for creating new itemdHECall AddDemo(2, "Demo", 2, "Gender", gen_cntr, str, "xsex", criteria)kAgeKTMsgBox "selected age"  ' 8Age-UnknKT.IIf (Isdate(tblDemo.dob)= False,true) as [xage 0#$]'Age <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?K![ 9IIf (Isdate(tblDemo.dob) And Datediff('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#$]'n 8(new)routine for creating new itemdXBCall AddDemo(2, "Demo", 3, "Age", age_cntr, str, "xage", criteria)kRacKTMsgBox "selected race"  ' 8 Race-WhiteKT-IIf(tblDemo.Ethnicity='White',True) AS [xrace 0#$]' Race-BlackKT-IIf(tblDemo.Ethnicity='Black',True) AS [xrace 0#$]' Race-AmIndKT1IIf(tblDemo.Ethnicity='Am Indian',True) AS [xrace 0#$]' Race-AsianKT-IIf(tblDemo.Ethnicity='Asian',True) AS [xrace 0#$]' Race-HispanicKT0IIf(tblDemo.Ethnicity='Hispanic',True) AS [xrace 0#$]' race-OtherKTDIIf(tblDemo.Ethnicity<>'Asian' And tblDemo.ethnicity <> 'Black' And BtblDemo.ethnicity<>'Am Indian' And tblDemo.ethnicity<>'White' And -tblDemo.ethnicity<>'Hispanic',True) AS [xrace 0#$]'np 8(new)routine for creating new itemd(ICall 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 + 1 Select Case str Case "Ins-None" Case "Ins-Medicare" Case "Ins-Medicaid" Case "Ins-Comm" End Select If InStr(str, "(new)") Then% 'routine for creating new item ElseH Call AddDemo(2, "Demo", 5, "Insurance", ins_cntr, str, criteria) End IfSpPKTMsgBox "selected special pop"  ' 8 SpPop-MigrantKT(IIf(tblDemo.migrant='Y',true) as [xsppop 0#$]' SpPop-HmlessKT)IIf(tblDemo.homeless='Y',true) as [xsppop 0#$]'n 8(new)routine for creating new itemd TCall AddDemo(2, "Demo", 7, "Special Populations", spp_cntr, str, "xsppop", criteria)kp nh kP "B@~|8 T0 ( KTNattempted to add previously selected item. Unique on [section]+[display label] KT custom 'new item'S (!,  (!.A@*nh o` p cNew lab Line or vital can normally be one of three types BUT Dx 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] ] ]( ]@ ]X ]p ] working code] raw_code] .6tblReportsTemp 6%V.HTxcreate criteria-------------------------code from addDx  B""!  B""%'A working code  B""%'`this code tests if a section exists already for the new item already and finds the section_order:a@K![nd 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));'L L 6%V. ! " ''d''all service section_order=0k!IIf(Len([Flu Vac]),True) AS Expr1IIf(Len([qActiveHealth1].[  ]),True) AS [  0#$]' HB@rpt0 H)(8"rpt0" is default for rstTemp - never used in tblReports H)Health Conditions 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 skipHS@ (!,  (!.A@*no ] ]8 ]P ]p ] .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@k8| "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.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, tlkpCrosAK![swalk.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')) "(ks - "B@~ "B@~ "B@~ "B@~ "B@~ "B@~| sTs ( KTBan entry of a section+display label already in form so skip adding MsgBox "here"rSr (!,  (!.A@*nprohr ======================="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.HTxocreate 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' " 'dj''kxjIIf(Len([qActiveLabsLatest3].[  ]),True) AS [  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 skiphSh (!,  (!.A@*nXhoPh 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 sectionBK![] ] ] ] ]]]0 working code]H raw_code]` .6tblReportsTemp 6%V.HThfcreate 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==========================Ta (!, KT in data base skipHaS@a (!,  (!.A@*naoa=======================[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=0kH\!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)^  H)  H) HB@ B""B@~ |8Z==========================TZ (!, KT in data base skipYSY (!,  (!.A@*nYoY](]@ !!. B"!%'  "%'  "%newfrmCountPatients-criteria VB@demo B"!%B@ Demographics B"(  "% B"(  B"( xageKT B"!(\o'result >= #.#';'>=';'result > #.#';'>';'result <= #.#';'<=';'result < #.#';'<';'Between';'between' B"!(< B"( B"! (\ B"! (CK![\xraceKT' ethnicity =';'=' 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"(dxSNothing selectedA@*kPSoHScNew 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.HThQcreate criteria-------------------------code from addRx  B""!  B""%'^S display_label  B""%'S source_query  B""%'R 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=0khNIIf( !  , True) as [   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)^  H)  H) HB@ B""B@~ |0L==========================TL (!, KT in data base skipKSK (!,  (!.A@*nKoKH]] !!.frmCountPatients-criteria VB@service B"!%B@Service B"( B"!%'  "%'  "% B"(  B"(  "% numeric B"(dXJNothing selectedA@*k0Jo(J]]]( !!. B""': working code Blood Pressure01 is bmi, 0 is bpfrmCountPatients-criteria VB@BP B"!%B@ Vital Signs B"(Blood Pressure B"(dIfrmCountPatients-criteria VB@bmi B"!%B@Vitals B"( B"!%'  "%'  "% B"(  B"(  numeric B"(kHdGNothing selDK![ectedA@*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 skip;S; (!,  (!.A@*nh;o`;] 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@~oH:]@ 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@~o09X] VB@b@DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp )WHERE (((tblReportsTemp.type_order) = 8))'LEK![ L VB@j VB@b !B@~o8] 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@~o7]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@bk2 "B@~|h2*`2 ( 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@~|/*/ ( 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_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 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)))) FK![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# ( 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"0 S( (!,  (!.A@*n o]]]] ]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"`SX (!,  (!.A@*n0o(P]]]]] !!. 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@bk8 "B@~ "B@~|* ( KT;this is an entry of a section+display label already in form MsgBox "here"S (!,  (!.A@*n`oX]H]`]x]] !!. VB@b  "!  "%'8 '&intSection = 0  @DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp &WHERE (((GK![tblReportsTemp.type_order) =  &) AND ! ((tblReportsTemp.display_text)= ' 8'));'L L VB@j  VB@bkh "B@~ "B@~|@*8 ( KT;this is an entry of a section+display label already in form MsgBox "here"S (!,  (!.A@*no]]]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@~|* ( KT;this is an entry of a section+display label already in form MsgBox "here"S (!,  (!.A@*nox]  B""!  B""%(new)AdhAkX o@Ao(PA oAoAopAoAo0AoA.oAohP A,oP A0o8!A2o p!A4o!Ao0"A6o$Select tblReports.* FROM tblReports +WHERE LEFT(tblReports.report_ID,3) = 'rpt' -ORDER BY CInt(Mid(tblReports.report_ID,4,3));'LEnew dlk 11/2007(WHERE LEFT(tblReports.report_ID,3) = 'rpt' -ORDER BY CInt(Mid(tblReports.report_ID,4,3));'L$Select tblReports.* FROM tblReports +WHERE LEFT(tblReports.report_ID,3) = 'rpt' -ORDER BY CInt(Mid(tblReports.report_ID,4,3));'LEnew dlk 11/2007pHK![/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[IK![]Wg]"3w Run1)gv '-3'u "db[P~#cAF$zTz E<0iet1peЀsC!qry_M=BoJ,r+I 40Ll|etS0R4eq =y$DoIqFS3y  y~'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"#$-JK![xu0"dxF"a)grapPI( 1QVA)sh822З4m{%RG0er? 31vitals bmiAbp)c;RAge  r5Dx/ , 4QEthnicity 6= |"Ro k0u@yc #, 7qtKW/ k6QT2 DiabeterpI= "`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_KK![cnt*/P, | ϦQ!Ifc9Gen/1'MsgBox "s&ed gena*V'@ P-Ma|lereutbla.Sex='M'7sexc@7 Fem_/ / ( F/ &~ //* 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 .UpdUAee%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!NK![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@nsideI 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 =OK![!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.Pr30!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(PK![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"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<O6QK![>PrivPB TKDemo_DblClick(Canc0As IntegCDim p VariantAFor Eac"hIn ms!frmCountPatiLso.sC'edIfStr( Data($), "(new)"@) Then sll lblAddSpecial99AFWCa LFKARx)1 Dx_f ͱ 1 x1 1 Labs]  =@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^^^^^ped`ri]$d]$ r]$v ]$h]$0(]$X]$]$]$8]$]$ ]$@`]$]$]$ ]$H]$]$p]$   !'-6 This is the entry point you'll use to call the common1 file open/save dialog. The parameters are listed below, and all are optional.$ From Access 97 Developer's HandbooSK![k% 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'PeTitl InitialDiBCM7Flags,OffsetAIntegerD\ExtensvTK![c!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 UfSS`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 , ( ? xME(UK![> LLLL<,<0<4<8<<<x`@%`bz +b`Pk id +n(`Hk ip ir+x` h ipirP\@^@H(Z(@00h0X`dt`dt`dt@"f`Bh @d @@T @P @L @H ia@(8 @4 @X$ @p @ @ @ @ gu@ @ @ @  `nz PBht @8t l@hd @P` @\ @L @H Re@8 @( @ k@ @@ @( -@X k@p  @ @ @ -@ "@ @ @ ia@8x @h H@XX @H 8H(( C\L$*\Rffff*054de7c6ec*\R0*#14*\R1*#39*\R1*#8f*\R1*#91*\R1*#92*\R1*#98*\R1*#99*\R0*#13*\R0*#f B &(%P)h &   B 6`4 ^B 6 84p xp] ] ] H@used to do query criteria d$"$f d d $'`yrxdp d'`k` B"j"l ` $h'bdbi0qActiveVisits: if date sent is day of visit-365 it returns true for any patient who had visit in period or within 365 days of period startN)used to do query criteria based on Period B"j"t r B"j"v p$h'ni(Xactiveperiod ever moves start date to 1/1/1900 so events that happen ever can be tracked(R)used to do query criteria based on Period B"j"z r B"j"v p$h'xiPHAttribute VB_Name = "basUtils" Option Compare D(atate`Explicit Pub strform As Sng 2Clinic6cntl  6Func%AveB(B@yVal c O)CBoolean 'used to do query crite@ria If IsVK![e(R ight(&, 8)) ThenN= LefLen) -Els+nd If gIIf(In(Fs!frmReport s!txtzList, +) > 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 . ( C\L$*\Rffff*054de7c59d(*\Rffff*054de7c59d\0  * ,8 ,h   8 x7{IFLC]nq9BK*>x9BK*>7{IFLC]ME$ @[LS S)L)L6.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@1m>RET8URNTE|ST!NETWORKBUhMKFLSHHLBYZPDEPQXYAEIFBPETZK:NRNIRCKXLKQPYDKEYAUSFDYMICMH:$& OUORNPMSIXFLMDARZWBVJPQJLPRK:`PBYYEAEQWPNMCECXZZVSBHFLTTE_:%)l      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~tK@NL~K.-j]D۶];&]E@ "2E3E~_TXxME @[LS S< <"<#`|@ #i  @$` $i Bp%`|@P %i  D&`|@ &i  F0'` 'i H(`p (i J)` )i LP*`0 *i N+`$ +i P,`( ,i R-`P, -ip%X@`@ 8PHXPp ` p Xx0 %>!%x& $%Bt%P @@ @0 @ " # @ @ @ " @ # @ 0$ @ @ @ @ @ @ @[K![ @ @t !#h#@Xp("HX(("@ % % % % & & 0& @&o ' (' @ & @ h'p @ @ @ @ @'9P' GCC @ @ CPX@8XP(@)C(*P)< @, @ @ *X @ @ @ @ h)x) )) )) ))o + + @ * @ @ @ @ @ @ @ + @| ,0,l @\ @L @< @, +( + @ (,( @ @ ,@ @ @ @ , @ C ,nC rx-./.h @X 8.(T @P @@ /(< @, @ .. .. ./ // o 0// 08H0140(*1D @4 @$ @ h2X @ @ @ @ 1$1 1$1 2$2 (2$82o X3$x3 @ (3 @ @ @ @ @ @ @ 3 @ \K![h3?3u3 {4(p @` p4( Xp @((56p<(*(6D @4 @$ @ 6X @ @ @ @ @6%P6 h6%x6 6%6 6%6o 7%7 @ (7 @ 7p p<X @ @ @ 7I7 Op<(| @l @Xp(89p<(*9@ @0 @ @ x:X @ @ @ @ 9)9 9)9 :) : 8:)H:o P;)`; @ 8; @ @ @ @ @ @ @ ; x;S; Yp<(p @` X<@ (  p X =>C(*>D @4 @$ @ >X @ @ @ @ (>&8> P>&`> x>&> >&>o ?&? @ ? @ @ @ @ H?@ @ @ ? ?O? UC(t @d p8P0P@A(*A@ @0 @ @ BX @ @ @ @ A)A B)B (B)8B PB)`Bo hC)xC @ PC @ @ @ ]K![@ @ @ @ C CSC Yp @` @(pDE(0*Vhl(EHX @H @8 @( @& @$ F @ @ @ F@ F( F @ F&FO (F&HF 8F'xF<F( @ K @ XG@(x @h 6..pp @0 x FC\L "  )(" 0 8@HP X`hp x   4 " "F8 )( 0 :@ P  `Np   J L h x  &(&(&0X$&x$&  & &8X&p&  4&8 H   Xp x   " l  "   (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  @     ^K![   0 08hp x $ "( 0 8 H BX   J   0P `h p .x  *     0 @ P :X  ( 8   F  "  (08 " @ fH f n  P  H L  Xp < > 4H P   b TX T P VX V Z `h "    bX`h px   J"V"  4H  4 & <%  !  (!.@!H.P!  !!J"@"  J" ," "# 8# X#LBp# #n#  F#  8$X .H$  &x' ' ' ' Y'' .'.'.(.(. (.0(.@(  .P(.`(.p(.(.(.( (" (( (( ())0) @) P) " X)`) h)) )))) )) " )* *(* 8* H*  P*h** ** " ** ** * +  + +@+ P+`+ " h+p+ x++ + +  +++ ,, " ,8(,.`,, ,,,,--0- P- X-  `-""p- - -`-,a-g.  f . @.(N."0   P00"1  1G1 :1 22G 282@2H2P2 $X2(22 2 ,2 2 &3(3 (@3h3 *3 3 33 3 4  4@4 P4p4 4 4 4 4 4 5 55 55 &686 .P66 &66 (67 $787 $H7p7 "7 7    $7 7 N7 _K![ 88 H8 X8 h8 x8 8 8 8 8Q8  88 89  909 89 P9 X9 h9 9 9 l99 9 " 9 j9 "P: "x: :8:.:; ;  ;(; 0;8;@;`; x;  ;"; ; ;  ; ;<,0<`<  f< @< (= =   >>0>8>@>*H>x> (>>f8?  ? N? @ @ 0@ X@@ @ @ @ @ @ @ AA A 8A  @APA XApAxA AA A " AAAAA A A""A B  = B 8B >HB B C  C @C 4PC C OC OC C D TD pD   D TD   4D, E 2E0NE pGG  .G G8jG @sI @$sK @ sM  P  P  0P .8P.HP.XP.hP.xP  P PPP HP PQQ lQ8Q @Q " HQ PQ (pQ .Q bQ D0R FxR 0R .R 8 S.XSS S SS SSSS S  S""T 0T 8T  PT pT`T,aTgT  fT @`U (NU"hW  PWW"X  XGX :X XXGYY Y(Y0Y8Yv<Y   HZ NXZ Z Z Z Z Z Z [ [ ([ Q8[ P[`[ h[ [  [[ [[[ l[[[ " \ j\ "x\ "\ \8\.]8] @] H]P] X]`]h]] ]  ]"] ] ]  ^  ^8^,X^^  f^ @_ P_`K![ `   0`@`X```h`*p`` (``j`a   a Na 0b @b Xb Xhb b b b b c c (c8c @c `c  hcxc ccc cc c " c c bd (hd &d d 8d.d(e 0e 8e@e HePeXexe e  e""e e e  e f`0f,aPfgf  ff @g Hg "h   (hG8hPhXh`h*hhhth~<i   i Ni i j  j X0j j j j j j Qj jk k (k  0k@k Hk`khk lpkk k " k k (k .k b l Dl Fl 0m .Hm 8xm.mm m mm nnn0nHn Pn  Xn""hn n n  n n`n,aog8o  fXo @o (Np"q  Pq0r"r  sG s :8s HsXsG`sxssssss~<Pt  t Nt 0u @u Pu `u pu u u u u Qu uu v  v  (v8v @vXv`v lhvv v " v v (v 2v f w Hw Fw 4x .Px 8x.xx x xy yyy8yPy Xy  `y""py y y  y y`y,azgHz  fhz @z (N{"|  P|@}"~   ~G0~ :H~ X~h~Gp~~~~~~~~<`   N @ P h x    Ȁ ؀ Q   8  @P Xpx l  aK!["  (؁ 0 d0 F F 2( .` 8؃.@HPX ^` R   @""P x   `؅,ag(    fH @ (N"  PЈ "  G :( 8HGPhpx   ( pЊ @ PX N  ~  (r* (H` H` Ph X pR j PN` fȒ 0  8 NH    Г      Q0 HX `     lȔ  "      ؕ    "   0     " (0  8 H    (8 " @H  P `   0 @P " X`  h x 8  H Xh " px      ؚ (T0   М ؜ B 8PX `   "  Н   0 H X hx   B  ( 0 P X " `hp x    Ƞ (T H X hx  &8: 0 8@ 8<( hx    Bȫ (0 8 bK![X` " hpx  Ь     0 @PXh x  B   ( 0 " 8@HPX`h x   د    (8 H PX` Bh ȱб ر  "  (08 H Xp    г    (0 B8  ȴ д " ش  (@X 0 ` x   ж ض B 8PX `  "  `   ȷط"   "   "   "  (08 "  @HP "  X`h "  px "   "   "  ȸ "  иظ "   "  xp VB@BoP@]]]]]]](]@ .6DxTp========================-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 qSummary2KTcK![ 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;'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 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 "================================== VB@bZINSERT INTO tblReports (report_ID, type_order, typdK![efield, 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$*'NoHAo0_ 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 opened 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"[-------------------------------------------------------------------------------------------]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_eK![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! )tk "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~ "B@~o@]  !   , A  !  , o]  !   , A  !  , ox]0  !   , Ato unhighlight  !  , oH]  !   , Ato unhighlight  !  , o]  !   , Ato unhighlight  !  , oP]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' " 'd0 ''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 PhonfK![e1'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')==========================T0> (!, KT in data base skip=S= (!,  (!.A@*n=o= ] ]@ ]X ]x ] .6tblReportsTemp 6%V.HTP=  "! 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 = 0gK![ 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(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.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')) "(kP/ - "B@~ "B@~ "B@~ "B@~ "B@~|.T. ( KTBan entry of a section+display label already in form so skip adding MsgBox "here"`.SX. (!,  (!.A@*n0.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 ]hK![p ] ] ] ] working code] raw_code] .6tblReportsTemp 6%V.HT8+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 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)=8));'L L 6%V. ! " ' "' !e' " 'dP&''k8&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#S# (!,  (!.A@*nx#op# 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@~ iK![|0==========================T (!, KT in data base skipS (!,  (!.A@*no =======================[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.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?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@~ |h==========================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 (jK![((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@~ |p ==========================TH (!, KT in data base skip S (!,  (!.A@*nop======================="New Line can 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@~ |X~==========================T0~ (!, 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 vkK![itals, 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 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.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' " 'du''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(IsNulK![meric(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''n8l 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@~ |k==========================Tj (!, KT in data base skipjSj (!,  (!.A@*njoxjX] 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`i] 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@~oHh]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@~o0g`] 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@~of] 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@~oe]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@~|b*b ( KT;this is an entry of a section+display label already in form MsgBox "here"bSb (!,  (!.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"H_S@_ (!,  (!.A@*n_o_]]]]]  !!. VB@b  "!  "%'8'&'( @DELETE tblReportsTemp.type_order, tblReportsTemp.section_order, 0tblReportsTemp.display_text FROM tblReportsTemp &WHERE (((tblRepomK![rtsTemp.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 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@~|S*S ( KT;this is an entry of a section+display label already in form MsgBox "here"@SS8S (!,  (!.A@*nSoS8]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@bkQ "B@~ "B@~|P*P ( KT;this is an entry of a section+display label already in form MsgBox "here"pPShP (!,  (!.A@*n@Po8P]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@bkHN nK!["B@~ "B@~| N*N ( KT;this is an entry of a section+display label already in form MsgBox "here"MSM (!,  (!.A@*npMohM]]]]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@bkxK "B@~ "B@~|PK*HK ( KT;this is an entry of a section+display label already in form MsgBox "here"JSJ (!,  (!.A@*nJoJ`]]]]] !!. 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@bkH "B@~ "B@~|H*H ( KT;this is an entry of a section+display label already in form MsgBox "here"HSH (!,  (!.A@*nGoG]x  B""!A oGAoxGA o`GPAoHGAo0GAoGpAoGA.oF0AoFA,oFA0oFPA2oFA4opFA6oXFPF$Select tblReports.* FROM tblReports +WHERE LEFT(tblReports.report_ID, 3) = 'lst'-ORDER BY CInt(Mid(tblReports.report_ID,4,3));'LC new dlk 11/2007FWHERE LEFT(tblReports.report_ID, 3) = 'lst'-ORDER BY CInt(Mid(tblReports.report_ID,4,3));'LC new dlk 11/2007EoK![pK![qK![rK![sK![WAttribute 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?"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)) tK![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##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&#;ChosenDvK![$$$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[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%,xK![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> 74 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 varyK![V 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(-LLL{K![LLLLLLLLLLLLLLLLL<<<<<<<<<<<<<<<<<<<<<<<<<<XJ N0{87CD04F6-06D6-443B-8AFC-0ADF37A4414A} 0 (p` k8`Nx`8@t . @` < p`k@##i  6x(er % HtH$f% Jph_APH% V` D b``XkHZZ `dx t P%`Lp 6lX % r` |kLgi  t@`kP k Jx% 6t8 % v`, T x` X%p@p`X%&%P0H `P0 BNl,zZT@l @x\ @L @8< @8 @4 @0 @, @( @h @ @ @ @  Ph8 Nl,0j6l@p @` @P @@ @< @8 @4 @($ e@" @@ @ (@p  X @ ( f4h0j6l@h 28<rn$@ X @H @ D @@ @ 0 @ @  (@  ( X p  H B20*fr.0@ p @ ` @ \ X@ X @0 H (@ D @ 4 @H $ @`  @x  @ @p @ @ @ P@ 8@ @ |K![(`  #eX ,2468:>@ _Nev H R @ 0 V($@ @ @  0@ @ x @ ( @ @ #(468:> XRhX C(h( C@ *@ @ @ `0\8C\L$*\Rffff*064de7c5a4*\R3*#24*\R3*#2e*\R0*#14*\R0*#1*\R1*#92*\R0*#f*\R1*#5e*\R1*#5b*\R1*#61*\R1*#3a*\R3*#2a*\R3*#28*\R1*#39*\R1*#8f*\R3*#2e*\R3*#24*\R1*#98*\R0*#12*\R3*#2a*\R3*#29*\R1*#39*\R1*#8f*\R1*#91*\R1*#92*\R3*#28*\R1*#98*\R1*#99*\R0*#13*\R1*#63*\R1*#d*\R1*#25*\R1*#18*\R0*#1a*\R0*#19!4p8<v@DHLrPTX\`dhltptx|z~  " (  "0dX40pg@0    F8.0 Y<0  ,(>+X $6 $    +0 PX&`  + $  +  (*07` 2+x (  +    B( <p  +  "  +( HPFX  +    X   ( Y8"+Px   Y"+   * 7P .+h .7 .+  ( (0 7X  ,+p    & 7  ,+   ( 0 8 (@ \h 4V (   "<8 `  +x  "<    * $ "8 &.` & &.   ^. PX $. . 0. *0:V`,.  * D}K![,P `px 66B+ hp lx  "       "    ( "8"X  xy  V  i ?V V  0 8@ HX`.h  :x <  " 2      ( 8H P `  p $    "   D( Jp < @ N@   "        ( 8 H CXx   !( "L  (0  8 H X !h(H "`Nx       !(( "(N@       !( "R ` p      "  "   (  0  @VP  pi ?V V    .   "  8(V` p " x, xp]@]X*Perror chks selecting a query B"j"r You must pick a query to run 2 0 $*'N|P B"j", eat'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_ListPatientOnMedKTeate 0$,No med selectedA@*|kqry_ListPatientReceiveServiceKT 2$,No service selectedA@*|@k8qry_ListPatientWithConditionKT 4$,No condition selectedA@*|k!qry_ListPatientOnMedWithConditionKT 0$, 4$,'Need to select both ~K![a condition and medA@*|Hk@ qry_ListPatientNotReceiveServiceKT 2$,No service selectedA@*|k; ------------- QRY_ServiceReferral_status -----------------Conf%qry_ListPatient_ServiceReferralStatusKT5 6/07,jg 2$,No service selectedA@*|kqry_ListPatientReceiveLabKT 6$, No lab selectedA@*|k'qry_ListPatientReceiveLabWithLastValue2KT4+++++9/2002,dlk 6$,PNeed to enter a labA@*|(k  8=KT% B"j"<$: 8_='8k>=KT B"j"<$:Criteria is not a numberA@* %|dx 8_>'8k`<KT B"j"<$:Criteria is not a numberA@*|d 8_<'8kn"qry_ListPatientWithConditionAndLabKT 6$, 4$,$Need to select a condition and a labA@*|`kX%qry_ListPatientWithConditionAndNotLabKT 4$, 6$,$Need to select a condition and a labA@*|k qry_ListPatientWithServiceAndLabKT 2$, 6$,"Need to select a service and a labA@*|XkPqry_ListPatientNoServiceAndLabKT 2$, 6$,"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.Maximizef 8$lste frmListPatients > VB@ ` DoCmd.MaximizeNk #----------------------------------- 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_Measurese4APHS B"j)4G this will load the APHS patients$rptWSC_APHS_Core_Measures  VB@H%d($------------------------------------ >here are other reports they do not have "qry" in front of name" 8 VB@ VB@@kB|x*p ( KT(error from cancelling do command ignored B(KT(error from cancelling do command ignored$B KT6Non-numeric entries in labs. Run query to find errors.A@*-BS (!,  (!.A@*B`nXoPpD@ VB@BF(| D (!.A@*Fo]]0]P$ .6 tlkpDefaults 6%V.H tlkpClinic 6%V.J HB@\h. H"L B"j),x. JB@\" "N )l$default J!Xa J"P "N J"R J"R )ld J"P )lk x d JB@` k ",B@~@ )z Z )T oX p X If date Opt Button is selected Z(\ \(\/ ^(\ `(\ t(\0 v(\d  Z(\  \(\ ^(\h0 `(\d B"j"\ Z$<'t t(\ v(\ Z'vk o ]]](]@ .61K![=adding code to handle multiple raw codes for one working codeP1Cif multiple then need to allow user to select between the raw codes5rst returns the working codes with multiple raw codesx29if recordcount=0 then only need to show the working codesHif not eof and bof (recordcnt>0) then show col headings and widen columnmake all dropdowns invisible  f(\  4(\5 h(\ 0(\  j(\6 6(\ l(\ 2(\07 8(\ <(\ r%$ n$ $'d dC f(\7 4(\ 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 !Zd Dresize the box there's two Dxs for at least one of the working codes@ 4(= 4(pkk dM h(\  0(\ 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 !Zd Eresize the box there's two meds for at least one of the working codes@ 0(( 0(pkk dL ( j(\ 6(\J 5SELECT tlkpCrosswalk.working_code FROM tlkpCrosswalk +WHERE (((tlkpCrosswalk.type_code) = 'Lab'))$GROUP BY tlkpCrosswalk.working_code 1HAVING (((Count(tlkpCrosswalk.working_code))>1));'L L 6%V.  !X !Zd Eresize the box there's two labs for at least one of the working codes@ 6( 6(pkHk@ dS l(\ Z 2(\O 5SELECT tlkpCrosswalk.working_code FROM tlkpCrosswalk /WHERE (((tlkpCrosswalk.type_code) = 'Service'))$GROUP BY tlkpCrosswalk.working_code 1HAVING (((Count(tlkpCrosswalk.working_code))>1));'L L 6%V.  !X !Z d Iresize the box there's two services for at least one of the working codes @ 2(xS 2(pkxkp dV 8(\ <(\ k8o0`A(o]] $ .6 tlkpClinic 6%V.J JB@\ JB@\ "N )l$default J!Xa J"P "N J"R J"R )ld@ J"P )lk(x d JB@` k ",B@~ o@1updates the default end date to match for period2 "v )Tod B"j"\ Z$< B"j)tVoH@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/NeK![`-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|MsgBox "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@~K![ 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      "    ( "8"X  xy(SLS S<N0{8250C2B1-23E6-11D7-A7B3-00A0C9C6E171}  @ i``serv`X% C\L  "  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 rEndNARgxME (SLS S<N0{04D33SZMTEIGQRJNTSDLHSFJWLTYCQBXC:)WVKBXXCLYVSQBEMSBEDCMHWXIRI_:(+ XQBMXOGMHNOBXDDNSJOKHXUCPZMD:XTLNXTKEDCOTFEWJIULSKZFDHFSG:*-    !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~  gxMELK![@)L "> LLLLLLL   0 *8 ,h ,    ( ,@p    @  ' 0@P 6XF`b8V) @ ,PK![2'  (V:  0 @ L` )     6  8 !H .)X  :   4 @   X   h  2 (    $  $( 8 @  H P *X  p    $      Bx ( 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  Error# (!,:  (!. 0 2 A@*n*i Attribute VB_Name = "basLinkedTables" ' From Access 97 Developer's Han dbookLby Litwin,@ Getz 4 GK![ilbert. (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, strProcN LLLLLPLLLLL8 Lx   h F      (0 8@HPX` h  T (  0  `@ 0 ` .0z `"  (E "    0  H'` (x  ( 0I   <>0 p  <>   N  8 &P * x  : , : `X 6 z "p 0z3 "  @ H X 0h  ' (  ( 0I8 h <>  <>  0 N8  &*   : F8 :z "@ X(Ep 8 "X p   4  ' (( P (p 0I  @>   @>@   . Z ( *@. p : 0 : \P 8z "h 03 "  8X ` p 4 ' (  (8 0I`  @>  @>  HX N`  *.   :( Dh : "p  ! " &  ! (! 8! 4H!  !'! (! ! (" 0I(" X" 6>p" " 6K![>"  ## .# ZH# # *#& #  :$ BX$ :$ $"`% x% !% & "& && & ' 0'  @''X' (p' ' (' 0I' ( 4>(( `( 4>(  (( .( Z) `) *x)$ )  )) ) ) ) ) * *  * `(* * `* + & + H+ ", 2(, "`,>8x,,, ,F, H8- -N- --- - <-(.8<8. *007`0 01 H1 X1h12 22(VIP2 3 3 334 "4 .5,05 5 5 566 (6,6 7A7 77`8 .h8,8 09AH9 X9 h9 0: H: X: ; *(;,X; ;A< <(<< 4< @ =,`= =A> >0>> F> 8?H?  ? @"(@"H@F8`@@@ @ "@ AA A,8AhALdpA A  A VnA 8BHBPB &XB B ,B B B ,B C &8C `C C " C C+C &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 hWK![WWTWWWWX  X X ` X 0X `X .Yz @Y(Y Y *!Y [ "@[ X[x[ [ [ 0[  ['[ (\ (\ (H\ 0Ip\ \ <>\ \ <>]  X]h] Np] ] &]* ^ :0^ Fp^ :^z ^(x_ _(E_ pa "a aa a a 4a  (b'Hb (`b b (b 0Ib c @>c Xc @>xc  cc .c Zd `d *xd. d :d De :`e e( f 8f !Pf pg "g &gg g g 4g  0h'Ph (hh h (h 0Ih i 6> i Xi 6>xi  ii .i Zi Xj *pj& j  :j Bk :Pk k(l (l !@l Hm "hm mm m m 0m  m'n ( n Hn (hn 0In n 4>n o 4>0o  hoxo .o Zo p *(p$ Xp  pp p p p p p p  p `p 8q `Xq q &q q Br jsxs D tht xu(`v xv 00w 2`w "w>8wwx x (x Hxhx Hy XyNhy yyy y <yz8<z *|28| | | }}} 2}2} ~ ~ ~~ (2 A ` .h2 0AH Xh0 *82h A (8 8 D0=x h     p F ؇    ("؏F88P X "x A,Ȑv    0 (8@  H X ,pK![ &  "  8 $X & `  ` "( "ȓ D R(4 R4  P `.p    ؕ , (( 0 X x  2 &  ( 0Ph *p 0   Pؙ ( 8 ؚ ! "  *0`0x  ` X `X *J(МZ(   Н+؝     ^   (R  Ȟ :О  .R 0H :Pp  x  :  ,  ؟ H?@ `:p:::::FР G! !8Z(! P0P  X hp  x    ȡ 4С  4(.`    &Ȣ *  (8@H lPp x"   xp]  ]  * 6/2007, dlk@$Public blnBaseline_Report As Boolean] ( 3/2009 dlk]  ( 3/2009 dlk] (( 3/2009 dlk] Pfor list wizardtype order list health = 5 rx = 6 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 sectionx]p]]] .6hY=========================================================================================)Step 1a - dynamically create qActiveLabs3Y=========================================================================================(create labs recordset from tblReportTemp(SELECT DISTINCT tblReportsTemp.raw_code <FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=8));'LH 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 qActiveLabsLatesK![t2.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:8; ,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!Z if no labs selected8Dd pB@xD 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: ,qActiveLabsLatest4.[ $] ' for the group by sql: ,qActiveLabsLatest4.[ $] 'P kGcreate "none" column because the program hangs without a column heading L'none');'Lsaves qdf as qActiveLabsLatest4qActiveLabsLatest4 L 6%.Q4==================================================== @Step 1b - dynamically create qActiveServices3 from tblReportTemp 4====================================================8(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 ('L Footrisk ass","Flu vac"); r!X r!ZH[if 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');K!['L#saves qdf as qActiveServicesLatest3_qActiveServicesLatest3 L 6%.3===================================================)dynamically create qActiveServicesLatest43=================================================== Uthis code allow calculating the column which contains the value of the service result 2create service result recordset from tblReportTemp(SELECT DISTINCT tblReportsTemp.raw_code <FROM tblReportsTemp WHERE (((tblReportsTemp.type_order)=7));'LXd 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.RecordCount services into an array r! r%'!MsgBox UBound(VarSelected, 2) + 1  (i !to create the temp crosswalk qry: L' $','L for the select: ,qActiveServicesLatest4.[ $] ' for the group by sql: ,qActiveServicesLatest4.[ $] ' kkGcreate "none" column because the program hangs without a column heading L'none');'L#saves qdf as qActiveServicesLatest4 qActiveServicesLatest4 L 6%. 4====================================================.>Step 1c - dynamically create qActiveHealth2 from tblReportTemp4====================================================n)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!ZK![if 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 ,  H"' 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)K![ =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 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 toK![ 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-----------------------------------------------------------------------------------------------------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+===========================================]]0K![]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 crosswalk 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 - dynamicaK![lly 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_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.[ $] ' 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, tblRK![eportsTemp.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 = QRY_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 qActiveLabK![sLatest3 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) "' & "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 ' B@` !Xa B@` nkn )' ------------%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 - juK![st a default count (total) & pcp field (pcp)LstrSQLSelect = "SELECT qSummary1.pcp, Count(qSummary1.Patient_ID) AS Total ",SELECT Count(qSummary1.Patient_ID) AS Total 'djLstrSQLSelect = "SELECT qSummary1.pcp, Count(qSummary1.Patient_ID) AS Total ",SELECT Count(qSummary1.Patient_ID) AS Total ' B@\ !Xa ,  " As  "' B@`iki 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;'-----------------dh , 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 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 !dha No recordsA@*|Hak@a B@\ !XaWthis fills filter field with pcp name or if pcp blank either 'unassigned, or 'all pcps' dpcp2 %! unassigned'dp`pcp2 %!'kH` fe insurance %! unassigned'd_ insurance %!'k_dFAll'k_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)d  %!  x)k] xB@x]k] +++++++++++ HB@`]  B@`p]-=============================================step 6 open report in-=============================================rptTemp  VB@Set qdf = NothingSet qdf1 = NothingSet qdf2 = Nothingdb.QueryDefs("qsummary1").Close#===================================|\T ( KT[S[ (!,  (!.A@*n[o[@ rptTK![emp  VB@o[[!WHERE ((qActiveHealth!raw_code = ' "' h l j)'6/18/09 dlk patchdl  Or (qActiveHealth!raw_code = ' "' h l j)'o6/18/09 dlk patchp  %!$  x)\new dlk 7/2010[ h l j)'o6/18/09 dlk patchZ "' h l j)'o6/18/09 dlk fix )'!WHERE ((qActiveHealth!raw_code = ' "' h l j)'6/18/09 dlk fixYK![K![K![K![K![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 ()K![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'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$!1wK![##~ "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`$/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, = "DISTsK![8;>,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`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/ServicK![OAOAIA"҇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[qsmSmokeCessationOfferedInPeriod1  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!,K![ 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() 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`s     !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMOPQRSTUVWXYZ[\]^_`abcdefhijklmnopqrstuvz{|}~B37-2498-11D7-A7B3-00A0C9C6E171}X @ i``` :i0%(@C\L  "  >(hp  "  <x]`xT]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)/c.4//#(34// )/t$+xMExC\L xpAAttribute VB_Name = "Module1" Option Compare Database rEltse("'"@YAFCWG_RFJJGIESFTHEOJOGNTMFE:YBYBXQNMKSXOEEDAZFQBLQSUZPRM:,.K![ZIMLYACPIYUSODGIRNXFHACKUGRD: H PROJECT0N      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ \"@$v)!=q1@X(-rc F4(v~/.rH,Fx~/.rH,Fq1@X(-rME @[LS S)L)L!> LLLLLLLLLLLLJXFN0{ECB28463-B520-4616-AD8B-341C152876BD}  @`   `    `  ` $  @` ( VV# ` , 88y `Xk0 TT X` 4 `Lp`  `"` xerat %  % H%' %`9`xtRe``2_Af 68%`N( ` 8 RR 0 `< `L ` `` P % p % H %```` 6%`N  ` @ s`L` ``  %  % H( %```` 6%`N x `D    % @ % K![H` %`````L``` `` 6p% @ ` H  P ` L `L` `` p  %   % H  %```` 60 %`N   `P 5`L` ``   % (  % HH  %````` 6 %`N " `(PkT `Lx`h `d`` \  % X  % HT  %`R`P`L`@ H 6 Dx %`N@ (` ??  ?? @ @(@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 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*ccK![c 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{|  |(| @| 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,aXg  V 4D4 hX x 2 Ȑ    K![  \А L0 (N"H `"(  @GP :h xG  @ȔN 3  0 x@  ;ؕ x*0 3Ȗ Жؖ d ;  *0 3( 38HP X ` p &( 3P` (*00 3`px *0ȚК  ؚ N 8 H X h x :  :  Qț  )  (  0@ H2+` )  l؜  "  8 H $P x= @ȝН @؝   , @ ,X    i`      (@,aH>+x  ȟ؟ 2o  8  H nP   Р ؠ (  ( (P( X   ( J L P ` x &(&Т$&@ &Xx&&ȣ  &   ( 84X&    Ȥ Ф    "@H lPp  x "     ȥ إ     0@H " P X` hx  "  " Ȧ$Ц "  " ($0X " `h", " (06H, "  " H `,  " ȩЩ6 0P,Xxp "!\ "(\ . "!\ "(\ Call cmbDemoOperator_AfterUpdateox@ "!\ "(\ %' "!\ "(\K![9ACall txtResult1_AfterUpdateCall txtResult2_AfterUpdate~ero "!\ "(\opyrig "!\ "(\VAox "!\ "(\ quit "!\ "(\ frmRo( ) )x #KT "(\ "(\ Me![txtResult1] = ""8Me![txtResult2] = "" "(\ "(\ " numeric )AvgKT "(\ "(\Me![txtResult1] = "" Me![txtResult2] = "" "(\ "(\ " average )=KT "(\ "(\Me![txtResult1] = "" Me![txtResult1] = ""@ "(\ "(\ " =  )>KT  "(\ "(\Me![txtResult1] = ""Me![txtResult1] = "" "(\ "(\ " >  )X>=KT  "(\ "(\Me![txtResult1] = "" NMe![txtResult1] = "" "(\ "(\ " >=  ) .<KT "(\  "(\Me![txtResult1] = "" Me![txtResult1] = "" "(\ "(\ " <  ) <=KT T "(\ "(\ Me![txtResult1] = "" Me![txtResult1] = "" d "(\ "(\  " <=  )"betweenKT "(\ "(\ "(\ "(\Me![txtResult1] = "" Me![txtResult1] = ""P# "  )Sxnpoh@ )x$ ) >KT  "(\ "(\Me![txtResult1] = "" ^Me![txtResult1] = ""  "(\ "(\Age > )Y>=KT "(\ "(\Me![txtResult1] = ""Me![txtResult1] = "" "(\ "(\Age >= )[<KT  "(\ "(\Me![txtResult1] = ""Me![txtResult1] = "" "(\ "(\Age < )x_<=KT  "(\ "(\Me![txtResult1] = ""Me![txtResult1] = "" "(\ "(\Age <= )betweenKT "(\ "(\ "(\  "(\Me![txtResult1] = ""Me![txtResult1] = ""hbAge )Sno ) )" #KT(" "(\ "(\ Me![txtResult1] = ""hMe![txtResult2] = "" "(\ "(\( " numeric )AvgKT "(\ "(\Me![txtResult1] = "" Me![txtResult2] = "" "(\ "(\ " average )=KTn "(\ "(\Me![txtResult1] = ""Me![txtResult1] = ""p "(\ " =  )(q>KT  "(\ "(\Me![txtResult1] = "" Me![txtResult1] = "" "(\ "(\ " >  ) >=KTr "(\ "(\Me![txtResult1] = "" Me![txtResult1] = ""s "(\ "(\ " >=  ) <KT "(\ "(\ Me![txtResult1] = ""uMe![txtResult1] = "" "(\ "(\  " <  )<=KT "(\ "(\Me![txtResult1] = ""Me![txtResult1] = "" "(\ "(\ " <=  )betweenKT "(\ "(\ "(\ "(\K![Me![txtResult1] = ""Me![txtResult1] = "" "  )S@n8o0: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 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 working code]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"] ]@ .6tblReportsTemp 6%V.HTH create criteria-------------------------code from addlab  B""!  B""%'D working code  B""%'Oif setting several lab values at once - need to change txtDisplay between items B""!!. '  )Ak Vthis 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_order 7FROM tblReportsTemp GROUP BY tblReportsTemp.type_order )HAVING (((tblReportsTemp.type_order)=8));'L L 6%V. ! " ' "' !e' " 'd''k9============================Criterias==================== " "#KT$Iif(IsNumeric([qActiveLabsLatest3].[  ],True) AS [  ] )=KT "$: "  ) "e "' "' )dCriteria invalid. 2 0 $*'N|XkPbetweenKT "$: "$:between " AND  " ) " "ebetween ' "'and ' "' )dhCriteria invalid. 2 0 $*'Nk0avgKTavg )Shere for <,<=,>,>=,= operators " $Iif(IsNumeric([qActiveLabsLatest3].[  ] AND CInt([qActiveLabsLatest3.[ ]) " " ,True) as [  ] )d Criteria invalid. 2 0 $*'NkndCriteria invalid. 2 0 $*'N|k 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@~  VB@B|h==========================T@ (!, KT in dat base skip(A duplK![icate 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 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));'LK![ 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.K![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 '|;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 [  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) " 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 ((tblK![ReportsTemp.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)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!tK![xtSrvcCriteria = "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([qActiveServicesLatest3].[  ])-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([qK![ActiveServicesLatest3].[ ],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_order = 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(tbK![lDemo.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' sK![ection_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""!!. 'AA$%&this is to force refreshing txtDisplayA&k0oVthis 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_order 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 )A|0ik(ibetweenKT "$: "$: $IIf(IsNumeric([qActiveLabsLatest3].[ ]) AND CSng([qActiveLabsLatest3].[ ])between  " AND  " ,True) As [  0#$] )dhCriteria invalid. 2 0 $*'N ) )A|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 )A|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) " 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 K![(!,  (!.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  0$: 2$:G" AND ([qActiveDemo].[age] between 0 AND  2)'ljgender'j 4KT'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@fqActiveHealth1KT 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 8KT :(\ <(\ >(\ 0(\ 2(\KT :(\ <(\ >(\ 0(\ 2(\nYoY ,KT .(\KT .(\nhYo`Y "  )o8YP " to  " )oY "  )oX " to  " )oX "between "  " ) "#e " numeric )dX "  " " )kWoWP "between "  " -  " ) "#e " numeric )d@W "  " " )kWoW "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 :P2BBMIK![Zyq 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 ' section_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.berC30K![21 &'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%> 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 K![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 'MsK![gB 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 7)=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(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: 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 dK![@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!cmbOperator & "") > 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)K![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#_3lt12 Case ns"#htxt e<"IIf(IsNumc([qry_Lates].[3J & Ş]),True"h3Formatf(*- 0#]'=I$gResult1)j# '@ ++&DS2 !  &'MR%respon== Ms@gBox("invalid.", vbicalrvbOKOnly t S( 8h  * , , 8 @ P ` >p  <      0 @ Ph    K![B  (B 08@ H .TXB  !     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. In: None Out:8 Return Value - The name of the directory as a string History:6 Created 09/13/94 pel; Last Modified 12/20/95 pel]@]`]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 n,@X., & 2)]&' i^_ZK^ʠҗD ^+YD ,csng("A_IKd?"Nb \i؞EYݨxma#%q1bH'x1bH'i؞EYݨxmME0SLS S6LLL<4<8<<<N0{2523F261-8FF2-11D8-A7B3-00A0C9C6E171}  L`oh@% %J %pPV(*@(x @h @d @` \Ro@@\ \9@X ed@XT am@P mo@@ tu@0 KR@ @ @ @ @@`K![C\L$*\Rffff*064de7c6ec*\R0*#14*\R0*#19*\R0*#1a*\R0*#13*\R1*#25*\R1*#98*\R1*#99*\R1*#a 4p8r<@DHL~PT  " ,+ P X`&h  l xpNF PfrmCountPatients-criteria VB@B|(N ( 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 %,.LHAVING (((G)=2Y(ND)5 `'"P[]&ID="{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=basLinkedTables 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="1F1DDFC2E1FE0402040204020402" DPB="3E3CFEE3021D201E201E20" GC="5D5F9D00A31EA41EA4E1" [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, a() 'workaڡ0 2  Column(1basUtils2basUtils2Form_frmSplashForm_frmSpPROJECTwmgAcessVBADatawForms UE F0}F005 F0 F0lashbasAutoexecbasAutoexecreport wizardreport wizardbasCommonFilebasCommonFileReport_rptWSC_Diabetes_Core_MeasuresReport_rptWSC_Diabetes_Core_MeasuresbasLinkedTablesbasLinkedTablesReport_rptWSC_APHS_Core_MeasuresReport_rptWSC_APHS_Core_MeasuresReport_rptSummaryDiabetesRK![eport_rptSummaryDiabetesForm_frmCountPatientsForm_frmCountPatientsReport_rptSummaryDepressionReport_rptSummaryDepressionbasUtilsbasUtilsReport_rptTempReport_rptTempForm_frmListPatientsForm_frmListPatientsForm_frmReportsForm_frmReportsModule1Module1Form_frmCountPatients-criteriaForm_frmCountPatients-criteria'geAinfo Y exisitA$, iftV N2 nS caIaIntega ɀstr$<_T! 0 Blob PropData47xTypeInfoyBlobDelta68  0123=Babc !e gVh@ itj/kP" H@Reports"[Event Procedure] Arial8X hHP OfficeJet@f,,@MSUDHP OfficeJetdLwinspoolHP OfficeJetLPT1: d2hghMS Sans Serifi1ghk1m45n2o2zijMS Sans Serif` Detaild25U`a<b* cdLabel74CDEMS Queriesh1U`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.rK![aw_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"="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 @` @\ @X @@H @8 @X( @ hhͬ&͇;D 7AJDetaild Label74h cmdClosenlstSelectClinicd Label2mtxtClinicd Label4nlstQueriesh btnRund Label25m txtQuery_Selectedm txtClinicListd Label31d lblStartDated lblEndDatemtxtStartDatemtxtEndDateocmbMedocmbConditiond lblconditiond lblMedocmbLabd lblLabocmbServiced lblServiceocmbLabResultOperatermtxtLabResultValuemtxtLastdayskfraOptPeriodd Label73iOptDated LabK![el75i OptDaysd !Label77d "lblLastDaysm#txthidden_start_datem$txthidden_end_datem%criteriaB  1D/13F d    h    i    k    m     n     o     z    dh!n(dm+dn(h!dm+m+dddm+m+o2o2ddo2do2do2m+m+kdididdm+m+m+<8<<N0{2523F261-8FF2-11DC9C6E171}  LͬXW*qDetailmtxtTitlenlstAllDx1d Label45d Label43h cmdSaved Label59h cmdDeleted Label61h cmdClosed Label63d Label64d Label47PropDataCopy13?; F0 F0Blob RPropData:=0=BabcGe gj6k[NQI@"[Event Procedure] Arial8K![ 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 bceXYYYLabel116Laboratoryn3W8`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   K![ 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](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 ProcK![edure]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`a4bcTd 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<K!["[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 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`'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_teK![xt 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ڭڭڭڭ 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] Arial Save Recordd5W`aPbXc,TypeInfoaBlobDelta<>PropDataCopy3A F0 F0d Label49d Label65d lblAddAllDemod 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 flblRemoveAllSpecialMeasuresnZlstAllSpecialMeasuresnXlstRelatedSpecialMeasuresre] Ariald5]`ab1D/13Fd    K![e      !"#$%&'()*+,-./0123456789:;<=>?CDEFHIJKLMNOPQRSTUVWXYZ^_`abcdefghijklmnopqrstuwxyz{|}~3K    !"#$%&'()*+,-./0124567L9:;<=>?@ABCDEFGHIJSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~    h    m     n     o     r    Pn(dn(em+n(dh!dh!dh!ddn(ddddddn(dddn(dn(dddddddn(ddddddddn(dn(dddddddn(dn(dddddddh!n(dddddn(dn(dn(dddf    f    fK![    f    f    ddddvent Procb celblRemoveLabocedure]d5U`'ab ceͬc F4(vhvDetail{ hvTabControl0|!hvBPd hvLabel17mhvtxtBPSystolicmhvtxtBPDiastolickhvfrmAnd_OrfrmAnd/OrihvOption42d hvLabel43ihv Option44d hv Label45d hv LabelBlob  $PPropData@CTypeInfo BlobDeltaBD8$0=Babce gAh ijT$kR? u@Q"DK2} Arial8hTf od,,Letter(PRIV to  yArialP_splmf01.exeZdArialdBRIL07A.DLLEOSCC"<USB001 d2e12hghMS Sans Serifi1ghj1ghk1m5Cbc, Arialn2o2w2` DetailD]X@1gd{1U56abc,TabControl0 ArialG3H[Lm|} |1`<abcBP܄xU@oU2Bad5`a\ bXc,Label17OK Arialْ~OKjK![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`<abcBMIEs֔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 caK![n 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 Sans 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 K![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\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`axK![$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"[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ꨤ";">=""<" 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`<abcBMI27d hv Label28d hv Label29d hvLabel30d hvLabel31d hvLabel32h hvcmdBPCreateohvcmbBPSystolicOperatorohvcmbBPDiastolicOperatormhvtxtBPDisplayd hvlblBPDisplaymhvtxtBPCriteriad hvlblBPCriteria|!hvBMIohvcmbBMIOperatord hvLabel72d hvLabel73mhvtxtBMIResult1mhvtxtBMIResult2jhvchkBMIAutoLabeld hvLabel77d hv lblBMIAndmhv!txtBMIDisplayd hv"lblBMIDisplaymhv#txtBMICriteriad hv$Label82h hv%cmdBMICreated hv&Label84d hv'lblBMIInclusive|!hv(Labohv)cmbOperatord hv*Label130d hv+Label3mhv,txtResult1mhv-txtResult2jhv.chkAutoLabeld hv/Label16d hv0lblAndmhv1txtDisplayd hv2lblDisplaymhv3txtCriteriad hv4Label5h hv5cmdLabCreated hv6Label15d hv7lblLabInclusive|!hv8Serviced hv9Label234ohv:cmbSrvcOperatord hv;Label236mhv<txtSrvcResult1mhv=txtSrvcResult2d hv>lblSrvcAndd hv?lblSrvcInclusived hv@Label241jhvAchkSrvcAutoLabeld hvBLabel243mhvCtxtSrvcDisplayd hvDlblSrvcDisplaymhvEtxtSrvcCriteriad hvFLabel247h hvGcmdCreateSrvc|!hvHOptionsd hvIlblOptionsContinueh hvJcmdOptionsContiK![nued hvKLabel232khvQoptAll_PCPoptAll/PCPd hvSLabel260d hvULabel262d hvWLabel287mhvXtxtInputBoxd hvYLabel264|!hvZdemoohv[cmbDemoOperatord hv\Label269mhv]txtAgeResult1mhv^txtAgeResult2d hv_lblAgeAndd hv`Label273d hvaLabel274jhvbchkAgeAutoLabeld hvclblAgeAutoLabelmhvdtxtDemoDisplayd hvelblDemoDisplaymhvftxtDemoCriteriad hvgLabel280h hvhcmdDemoCreated hvilblAgeInclusivenhvjlstRaced hvkLabel0ehvlBox13mhvmtxtWorking_codemhvntxtTypeCriteriamhvotxtRaw_Coded hvplblCloseh hvqcmdClosed hvrlblFilterd hvvLabel293d hvxLabel295d hvzLabel297d hv|Label299d hvLabel304d hvLabel306mhvtxtAge1d hvlblAge1mhvtxtAge2d hvLabel316d hvLabel318khvoptEthnicitykhv}optAgekhvsoptGendernhvlstEthnicityFilterihvRbtnAllReportihvTbtnPCPreportihvVbtnInsuranceReportihvubtnAllGenderihvwbtnFemakeihvybtnMaleihv{btnUnknownihvbtnAllAgeihvbtnBetweenAged hvlblAge_andd hvlblAge2ihvbtnAllEthnicityihvbtnEthnicitySelecteda\ bXc,La1D/13F d    e    h    i    j    k    m     n     o     w    {K![    K L!M|    J<KLDMdmmkididddddddhoomdmd|    J<KLDM oddmmjddmdmdhdd|    J<KLDM oddmmjddmdmdhdd|    J<KLDM dodmmdddjdmdmdh|    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 K![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|    J<KLDM odmmdddjdmdmdhdndem+m+m+dJXK0LtM\h!%J&K0'L(MRZdArialPropDataCopy@79QG F0}F0Blob RPropDataFIABRIL07A.DLLͬnqhvDetaild hvLabel1d hvLabel2d hvLabel3d hvLabel5d hvLabel6mhvtxtVersionmhvtxtLocalSupportd hvLabel15d hv Label17mhv txtDCPSupportd hv Label14d hv Label_copyrighth hv cmdAgreeh hvcmdExitbXc,Lab1DK![/      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~     0239BCabc`6e ghijkx,(AA֭{޵֭sޭ{޽޵{޵޽ƜƥֽέΥ޽ֵ{ޭsε޽ֵƜֽ޵sֵ罜޽罔Ɣεƭ֭ƔέΜ罌֭経組Υ$,&       % *    ))  )*        (! "   /           &$$         %%%   ) **  ) )      ( (( ' ! ## ! * ; &      :  /     K![$       %%%  ) ) )) )  )))    ( ( 4( ' ! ! ""## ' )              &$,      %  * * *  *) )       (' !"  &          &$&&     /   %%    ))))) *    ( 4(! " "####   ,       / $$$,&       * )  ) )    ( ( 4 !  "##"   & &           $-&        %%   **  )       ((' ! ! " #" 3 %&&         &$,-& :       )         ( 43 ! " ###    ,           &K![-&--         %.%  * ))      ( ' '  #   &  :           ,-&& :     %%   )        (   ( ' ! "###"   &-&               &&,&-&           * *        ' ' " #####! % &      : :         &&-&&$$,        .. ))       (! !"### (                &7-$;7-&&     //  %    )   ( (4 ' ' ""# '    &&            $,&   :     %  ))*        !  "###     /      &&&-&7$K![,&--&&        %   )*) ) )*   (  '! ""### !          / &-$,,,  :  :        *))    ( '  ! " " "           &7$-&  : :     %   ) ))        ' 3 " ""##"!    %        : &$,,    :      %  *))     (   '! "#" ! ' *     /   $$&           .  ))) *   ( (  ! " "" '          ,$,,,   :        )))   )*    3! "" " "" ! !     / ,$$-&&    /  % *   K![)    (   '   " (  %       7$$$$,,,&        .   *      )   (  ' " "" " ! '         $$$$$,  &            *      (  ' ' !     " '  ) %     $$$$$$,    &&    .     )    ( ' ! " "  !  )*      ,$$$$$,,&   : :         .       ( ! "" " "  !'  %. %     &$$$$$$$,-&&        %     % )    (   ( " "" ! " " !  %   $$$$,,&      &     %%  %    *     ('! !" "  ! "    %.%  &K![$$$$$$$$$,        :   :     % % % ) *   (  4 " ! ! !  " ! '  .   $$$$$$,,,&           %  %          !! ! ! ! !  "  3   %   $$$$$,     /         % %%  )    ( ' !" !  )  %   $$,,,-    /  :      %    *))     3!''(' ! ' ! ! !'     $$$$$$$$$$$$,,    /       .    )     (''! !'      $$$$$&&        /        )     (4('  (!      &$$$$K![&    /  /      %    )             ! !  *   -$$$$$$$$$&,,  :          %    *      (           $$$$$$$$$$$$&,7              %%. % %% *           )* ( '     $$$$$$ &         /   .%% .           )        &$$$$$$$$$$$$ 7             % . .     *   )        $$$$$$$$$&   &           .%.%% .   )     )     $$$$$$$$$K![$              %%    ** *             $$$$$$&     / &   /      %      )))           $$$$$,$$$&     / &     .      *))       ) * *    $$$$$$$$$$$$      &&              *  )        *    $$--$$$        &        * *) *       )*     )      $$$$-,,$$-        ,            )) % %           %.   $$$$$$$7-,$     &     & / &   K![ )))) *   )    )**     . $$$$-,-  $             . *   ))  .%   *) % * )*) .%%  $$$$$&    -&      &       *  * ))  *      ))* )   * . - ///  $      & .  %   *    %    * * *     %% $$$$$$$$$,,  /   $    %           .  * **  % ) *          $$$$$$$$,-  /   -$$         .        %  .  * *       . % $$$$$$$$$$$$,            .%%          % .%  * ) *        % $K![$$$$$,&, /   7$           %       .%.                $$$$$$,--      ,  %  % *  )) ) )*  .% * %        $$$$$,   69  $  &- % %%   )      % *     /    $$$$$$$    =6. 6  ,&     ..  * )      .       &&$$$$    6  &$   %%     )         %      /  $$$$$$$$,,    =   ,    %%   ) ) *    %         $$$$$K![$-&   6  / &    .% )* * * ) ** *)* ))         &- $$$$$-& / 6 96969 =      *  )      *)  )*  % $$$$$$$$    969 96 6 / & %      %   *   *   ) )  ) . $$$$$$$$$$$    6 9   -&&,-/ .        % * *  .% %     * *    $$$$$&  .6  &&$ %       * %     *)     $$$$$$$-     69.   && %    % % %       *)  6  $$$$$$$,   / 6    K![&$   &&     %%     %    / $$$$   = / &     -&     &    $$$$$$&-  /  6%6 /    -&$    &         $$$$$$$$          ,             $$$$$-  /      ,           &   $$$$$$$$      --&&  --    $$$-         &&&,,$&  K![&&$$$$-       &&&,$ $$$$$-        &-,,,$ &&-$$$$$$$$$$&& &&$$$$$$$$$$& & ,,&-,,$$$$$$$&& &&&-,$$$$ &&&&-&-,$$$$$$$$K![$$$$-&&,&,&&-,&$$$$$$&&&&7$$$$$$$$$$$$$$$-   &$$$$$$$$$&,&-&    ,$$$$$$$$$$$$-7,&    $$$$$$$$$$$,&-      $$$$$$$K![$$-&-    %%  ,&&$$$$$$$$$$$$$$       && -$$$$$$$$$$$$$$$   %% &&&  $$$$$$$$$$$$$$    &-&&    $$$$$$$$$$$$$$$$   %%%      &-$$$$$$$$$$$$$$$$$$66 %%  %     &   &&$$$$$$$$$$$$$$$$$$$K![..%%    %.         .   - $$$$$$$$$$$$$$$$$$$$           %        $$$$$$$$$$$$$$$$$$$$$$ %   **           %        &$$$$$$$$$$$   '  %% 9                  $$$$$$$$$$$$$$$$$ *)  ! '  %.%  %%          $$$$$$$$$$$$$$          %%          &$$$$$$$$$$$$ *    ! " !  )  . %%.       /  / $K![$$$$$$$$$$$ *   !  "    .%.   &      $$$$$$$$$$$$$$$$$$$$  ! """ !  %.  &&&     $$$$$$$$$$     ' ' " " ! ) %.%.%      $$$$$$$$ 3!    %.  &&-     $$$$$$$    ! ! "! "! '   .%%%. &&    $$$$$$$$$$$$$ ('  "  !" 4     .   %  &--&   $$$$K![$$  ( !     ) ..%% / &&  $$$$$$$$$$$$$$$$   !  " !       &&-&   $$$$$$$$   ! ! ! !    %  &-,  $$$$$$$$$$$   '  ** %  &&&  &$$$$       *   &&$$$$$,$$$ ** ******  % %  $$$$K![$,,$$%        %  7&-$$$$,&-$$$   %%  %%  &&&-&,-&&&-$$   %.  -&$$$$$-& &&$        &$$$$$$,&  &       .   7$$$$$$$-,    & / :       &,$$&-         &K![$          &$$$$--           &$          / ,&&$$$$&       /     &        /   &,&$$$$$-     /          $$$   & :   /   &$$,     /      /    &$   &      /  ,         /      $     / ;-$$,&       /        &$      ,&-K![$$--             &$  &&     ,,&-&-      //    &$ &     &$$&       &$$   :  ,7$,,7       &  &&-,$$-&-     &&  &&-$$7-     & & &&,7K![,$$-&,$$$ &-,,,$&&&,&-$$$$&&&-&-,$,&$$,&-&,,$-&-,,,&$$&$$-&7,&$K![,& $--,,,,,$&&,,  &$&& $, &&&&&-$,  --&&&&$&  --&&$$&&&K![$$$-&&&--&&;-$$$&&&&&-,,&$- &&&,--$$,&&&&--$$$     &-,,&&,-$$,&-&&& :     & &&&---&&&77,--$K![        &,--      ,&-&--$,&    &&  //   &-7-&-&-& $$$$$$$-    &7,        -&-,-&  --$$&&     &-      &&-&7,-&-& &,,$     &-  /  &&7,& &&&&$$$$$$&   /  &-7    69= 96       &&&-&&$$  -K![-       &&  ..%9         && &&$$$   7         &,&7       .        && $$$   -&    ,     . ////  /               $$$      -   / &,--  .%  ) %   /                $$$$        &&   /   ,&    )    9   /             /  /  $$$$$$$-&   %     &&&&&       : &&   %  *  %                   //     $$$$         &&        &&-,-K![  6%      % 6...                  // &$$$$$    %        ,&    :  &,&    *      %. 6 6 /     /       /   &-$$   % .       -          &-           %  .9    ///          9 / &$$- 6      %    &          &  9   (     *   .9   /   /    99  &$$$$  % %%. % .%   &&            &&-,     (3(   * ) )    6         /  %.% /  &&-$$$$$,&  %   %%%    %   ,,-&          &&-      33      )) *  ... 6    / 9. %% / $$$-&      ) .%%%% )) %  ,,,      &&7  /  *  ' '   )     9           6   .    &K![$$$       69% %      %%  )) %  ,&               &---    6.   ''' !(      )   .69      %       $$$$$$        . *    %% )     ,&          &-&  /  = )*    !'('       )  = /   .   .6     $$   /    )*   * )       %  ,            &&--  /     ! ' ' !  (     *)  *    % 6 /  %       $$$$$      /  . *)  ) *      ) %  7&            &---,,-   6  ('    ''                 %    %=   &$$$$$        % )  3     %  )    *  * .  -&- : :          &   )  ' ! ' ! !  (    )) * *       %   %6   $$       .%    '      *   &&-     :        &    %  * (' !   !(        ) ) * %   .    %%%   $$K![                 )))  . ;&,&&-&         &      9.    ! ! ! '  !4        )  )  ) %%%%    % %%   $$$$&        %%             )     &,7&&--&       &&,-& //  *   ! " !  !(          ) *   %      ..%  $$$         ('!' ( ) *)*          &&       &,     4! ! ! '  (   )    %%      %%.  $,  /   %       4      )    %   &&&    /  &,  /    (!  ! '(           * )  %      .%  $,,        '!!   '       * * %   &   &&     : &,    .  4! ! " !!  '(  (           * % % .%      .  $$,       .    !'''  '('      )     &&           ,- /    ( !! ((         )*)    .     &$$$,&7        ('! '  ''''  '       K![&& :                & /   .   ' ! ! ' ! 4 (  (         )  %      $$,    .. * ('  ' !! ! ! '    )*  %     :                     ,7 /  ) ! ! !! !( (          )     %%        $$$--&          '' ! !  " " " ! ! '                              ,   %    ! '   ' (           )    %         -,      . % * ' ' " ! ! " "      )* % .                       ,  / %   ' ! ! !  ! ' '  (          *   . %%         $$$$$&,;    /    ! ! "  ! "  !"   ! '(    .                    -,-/ 9. )   ' " "  '  (4              )  %         $        %  ! " "  ! """ ! !4     ) % .%       %              ,        ! ! " ' ! '('((               *  % %%   /    $$$7-&    .! " " "" ! 3   * .%%     % )   )       K![  %  )*  ( 4 " " !    4(3           ) *     9       $$$$,-   /   %   ""#    " !! ! !'       %%%% .%            %     ( !! ' ! ' '(4    (        )  .% . %% 6  /   &$$$ -&-  %.% )(! " " """  !         . %     . )    %% %.      -  .     ( '  !   ( (    (           =    &&&$$$-     ... %    ! '    )   %      %%      *     &  %      ( '' ! ! ' ! !3   (   (       ) *  %%%6 /  &-&$$$$-&,,   % %%   "###  ! '    *           *    )  %%     =         ! !   4 '(4'   ( (         . /   ,$$$ &,,&--   .%  %     ! "#####"! !      ))    )*    )       )  % %         )     '! ' !  ! !' '((3  ( ( (  (       ) %%%6      ,,&    %%    ) )  ## ' '  *) *)      *)))       ) %      ,&  9    (     ! '  '   !'(' '' 3('  ( (      )     &-7K![$$ &,,   %        *) * ' ! "! 3   )  ) *           *))))  )       %   &&,,   6 ))     3!! ' !  ! !!  ''(4    ( (     ) %.6    -$$$$$ &,,,  %      )) *  ##! ! ' '   )*))   *))     )  *)   )  .     .   (      ! ! !!  !! !' !!''''          .9 7$$$$ &,,-  % )  **  (' ##          )  *)  * )    *)  )  ))*)      &-; /  )*   (  34' !! !! !!  !  !       ' ' '  (   )     $$   &-&&    )         ! " !  ! '    )) *  )  * )     * )    ) ))*)) %   &,-& /  =%     (  ( (    ' ! ' !  ' ' ' ' ' ' ! ''3 '   ( (     * %.   &$$/  &-&-                ! "# ! ' (             *  ) )  * )  *) ))   %    % )   ( 4' '!! ' !! ! ' ! ! '        (    '   *  %6  ,$$$  &&&--&   %     ' # ! !  '4           ))*)  *    *   *  ) )) )* *         ( (( (   ! ! ! ! !  ! ! !! ! !!! ''(4  (          $K![$   &&-  % *)      3 '(4' #  '3                  ) *   *  *) * )*  *      ,-&  9% )   4 ' '' ' !! ' !! ! !   ' (( ( (     .9  &,,,$$$   &-           ( ' ! " #! ! !((        (    *       )  )  )  %  &,         (((     ! !! !!''3  (     6  -$$$$     &-&   %  )    ('' ' ' ! ! !  ""  4  '       ''''3    )) * )* )    ) ) * ) *)        .   ( 4 ' '' ! ' !! ' !! " " ! " ! '   !'((' (  (   %  ,$/    &   %   '! !  " " ! ' '        3 4' ! ! ! '  ) )*  *) *  )   * %.  & 9    (  (      ! " ! " " !  " ' !!  '  (4     $,        / % )   '! ! " ! !  " """  ! !  ( (   3  ' ! ! " ' !     )   ) )) ) *)      -,       3'' ' !! ' !! ' ! ! ! ! " " " " " "   !! '' '     9  &,,,$        &   . )    ! " "! '(      ''(' ! ! " !  '       )   )) *  .%  ,&  9%   ( (       ! ! " "   "! " ! !  ( ' '   .   7,7,,,  / /               ' ! ! "" ""#"" ! !''' ( (  '! !K![! ! """" ! ! " !'        ) ))    *   %  &&   6     3'! ' !! ' !! ' ! ! ! "  ! ! " " " ! ! " ! ! !! '!' ('     -,--,,--               %     ' " "###"       (' ! ! ! ""  !   (      ))))     %  - / 9%  ((       ' "    "  "" ""    ' '    %6    7&,,7& / /      % )*   '  "#####  ! '(3' 3   '' ! ! "" ### " ! ! !'4      ))))) %    / 6. )    '!!! ' !! ' !! ' ! "   " ! ! ! " ! ! ! ' ' '  3   %  -    &-&&-&& &            % *    ! ""#######!" '(   (  3 ! " " "## "  ! '3      *)*)) )) *  .   -  /    ( '        !        " !  ""! " !  !(      % / -   &-&&,&&&&    /   )    !#####  ! 3     (' !! "### ! ! '          ))   %  ,   =. )   '' !! ' !! ' !! ' "  " !" " !    ! !' '      &      -,-&           .     ' ## ' 3   ( 3' " ## " "  '(3'     )  ))    * . %  ,    * (        ! !       !" " "" ' '   )    ,,         ,&     / &       )  3  ! ####" ! ' ( ' ( ! "###"  ! !'  (     ))*)    &K![-   . )  3' ' ' !! ' !! ' !! ' ! ! !   """" ""  " ! ' ! 3   *  %   &-,,-         &&&      //    %%       (' "#####" ! 4 '  ''!  ## " ! (' (     *)  )    %.%  --    *          !  "!   ! !    " !" ! ! '(  )   ,-7 /  /                        / ..%       ' 4! "####### ! '('' " !  ' ' 3    ) * *    ,&   % )  4' '! ' !! ' !! ' !! " "   " " "" "!  " ! '    ) %   ;, /       /                      %%.%%%% %  *     ( ' "######### ! ! ' ! !! ! ### "  !' (     ) )    *  % %%  -   *  (       ! """ "   ! " " "" "! " !' 3    7  /                96      &%%   ..%%.      '(' '! " "#"  '!  ! 22++#  !(   (    ))))   &-   %    ' ! ' ' !! ' !! ' !! ' ! ! " !"  ! !  " " " ! !   ! '( (  *  %6  --&    6  /  /   /  =6         % %%      )  (     " ! ! '(! ! "#008812+ ! ! 3 ' 4     *))    *   .%  ,-       '         """ " " !! !"  !" "  '(4      ,7    = 6 %%9        .%   = %  &-& /     .% *)    '' ' ! ! ! "! "### ! '!''( "+11<51# ! ! '( (    ))    &,    %   ((' ! ' !! ' !! ' ' '  ! ! !   " " " " " "  ! !(4  ) .   K![&,-&   // 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-               %%.         %     ,  )        ('! " " "   !  ! "  !  ' " ! #10855550551+#""         )* *    %%  &,     * (         ! ! " " ! " '    )   &,     /     *)     %        %%.%%  &     * )))   ) (4! " ! ! ' ! !!  ! ! " ##"     ' ""0<055555510 ! '         ) * ))  &-   )   4!!!! '! ' ' !! ' ! !  " !   ! "  " ! '!(4    )    -,-           .   *  )          )    K![&  &  )           " " ' ! (''''! " ' *  ! ! ! #10555852+1+! ! !      )) *    %  ,   9             ! ! ! "  (    ) % /  &       % *   )          . %%.  / &   -&&  *) **     )   ' ' " ! """  !'(4 ' ' '(' !"! ( *   ( ! !"#+1+5058<+"  ! '     ) )    -,-  / 6. *   (4 ' !! ' ' !' !! ! ! !  " " !' '      * . /    &,       %    )*   *)   (    *    &  & &   *   )    "  " " ! ' (    '  '   ('' ! #+25<5512+ ! '(      )))*  *)    % ,    . *  (      ' !  ! ! " ! ' ( (  )     &&      6 6...%%%%  * )    (      .% / & &  **    %       ' ! !!! ""  ! 3      '! "" ! . * (' ++++ !  4      ))   %        (4(' ' ' ! ' ' ' ! ! ! ! ! " ! !!!'          &-    6 %%   )  )  )    (     / &,  ,%         (( "" '        ! ( * %   '! #++ '4 ) *   )*  )       , / 6.%      '       ! " !  ( (    ) 9  &  /    %%     )      * )))  ( (     % /  &- .%    %.      4 '' ! " ""  " 3        ' ! !        #" (  ) *)  *    ) )) * )* %,,, /  )   ( (4' !!! ' ! " !  ! ! ! !' '  (       &&   =%       )* )))))  *    (   %    ,&  %%  % * )  (  "! ! !'           ( K![    *  ! "# '4  * * ))  )   *)* )      ,  / .% *   ( (   ' "  " ! ! ! !  ! (  3 )  %.6 % .696   -&   9%    ***                  % /     %%.%  )   )    ' " '((           * ! "" ' (   * )     * ))            6 )   34 ! '! ' ! !  ! !! ' '  (     6  /  7& /  6               (      *   /     % )        ' ! ! ! "     )            # " ' )   )  *  *    %  &    .% *   (  ! ! "   " " " ! ! !  ' ' 4     * %%.%%6    -7  %           (   (   *  %       %            ! " '3   *)   *      !  ##"! ! (                 -     % )   4 ' ' '  ! "  ! " ' ' !(' 3( ' (  * % %9    & /    ( (((((  ('      ( (  )*       -    %           3( ! '(    ) )*  *  *      ) ' " '  * %%  *          * %  ,,&  /  /      (  ! ! !    " " " ! !   ( '((4(      )  %      .     ((  ! ' ''' ! ' 4    (     *  %                 '! !    )   %%%          *) ! ""  "" !(   %.%  *)))* * )    ) %       / =%    ( ! ' ! ! " " " ! ! ' !('('(' '('       6     /    ( (  ! ! ! ! " ! '' '     * %        )   (         ''  *    %      ( ! "! ! " ' '   %     *  *)   )    K![    /     '   ! "  "    ! ! !! '  ' ' '! '('(    .9       6 .  ( ( '  ! ! ! ! ' ! '(   *)     /    .       (       ('(    ) %          4 "! " " ' * %  )     * % ,      ..    '! ! ! " " " ! !  !! !'   ' (4   *       = .    ( ! ! ! " "! "!" " !    4(     &          '!3(         )           *  ('! ! ! ! ! ! !'    % *    ))*   ,      % )            " " ! ' '  !  ! !!!!! ' !  ((3  )* %6     6    (( ! !"" ""! " ! " " " " ! ! !  *  %   , % *  (4(        )* * %                !  ! ( * %     ) ) *  )))   &      .% *  3! " ! " " !  ! !  ! ' ! ! ! ! ! ! (     .9 /     =.%     ""   "" "" !" ! ! !  '   )   /  ,&.    ( ('! !!(      *    %    //     '' (''' ! '   %    %  *  *) )     &,,    = ) (  ! ""  "  !    "" " ! !!! ! ! ! '   3  % /    %   (  ! !" """"!  " !!! ((  *     %% )  (    '    ) * * )*)*           ---  )   (' '    /   ))*  * *** * %     6%% )  '! " " ! " ! ! ! " " !"! " ! ! " " " ! '(   )* %.    / 6%   (  " #"##     ! !! '( *          '! ! '    )    %%%         ,       ('     /   %   %%      % &,&  6  6. )   ! ! !" ! "  !"  ! " " ! " ! " ! ! K![ ! ! "    6  / /    9%  *    ! "##### #  ! ((   %  )* ) )     ((    ))               &&    *      )        *)    ,,,&&  .%.%   (' ! " "  " !" " " " ! "!" "!" ! ! ! ! ! "  " """ " " ' (  9   /   *  ( ! "! "#### "!  !! (((   %     (( 43(''              &&&-,       *     /  /  %  %.%.   %  %  ,,,,  6 %%    4 "!"  " "  " ""  ! "  "  " ! !"" """" ! (    %      %     (  " ###" !         &     (( (4    * %%            ,  **    .        %%  -,,,&  6.      )  '!  " " """ " " ! " "! " ! " ! " "! " """"""  " ! 4(  %      6.    ! " ###"#!" (    * %  &  ( 4 4''      *               &&,      *  * . .%        %  %  &7,,    ) )   )* ( ! !" ! """"  ! ! " !"  !  """"    ""      %9   / .    ""### " !      &      ((( (3               &    %   %  * .                -,,,,&     * )       ' ' !  " "  " " ! " !" """" " "  "  "#" ! '  * % 6 /      '( ! !"##""!   **          4 4 ''( )     .    &      &-,  %* %        .%        &-,& % )*)))    ! !   " ""    ! "" !     #  ! !  )   / %     !  ### " !(      7K![      ((  *   %   &      -    %.   %           ,,,    )      ( ' ' !  "! !! ""  "    "" !   *   /   )    ('   ##""      7     ( *   *     -&&     &-,&      ) ))             &,-&             ! " """ !    ! " #       " !!    @      ' ! ! "#  ! '        *   * *      &    &    % *                &- &,, )         ( ' ! " " ! " "  """"   ! !  ) . /  .  )  (' ! ""#++++#"! !     &  )))*  % *)       &&  . ))       :  /      ,   6  3  ( '   ""  !"   !"       "     "" ! (( *      6%     ! ""#+2+#" (  %   **)*   )               )             -  &&  %      3( ! " ! !   !  "!""#  ! !        / @ 69 )  '! ! # #0+00++#!! !(    $        %    -&  ,,&  %  ))  /         &&-    &,&-         !! " "  ! " "!  " ! ! """ " " "  ( * %         ' ! #++2+0+#" '  % -7 * * *    %       K![ &,,,&   *)       :      &&    --,,-&&  % *  ' ' ( ' ! ! ! "  ! " " " #"  ! ! " " ! ! !           ! ! #"#+0+00++ !      -%      /    /  ))              -,      ' '  ' '' '  ! "  """ "" " " ! " """! ! "" ! (          %  '! ! " "++010++ " !(  /&$%        &  %       .      &&-,     &,,-,-   )  '   !   ! " "! " ! "" "  " " ""  " " !   * %       )*     !   +011112+0   % ,            &&,   **         &7     ,,&  %  3 !! ! ! ! ! !  !  !" !  " "  "# !"!"" " ! !         :   )  3! !  "" #+00+111++" !!(   &           %  &    *            ,&-    &-&&,-- /    ! ! "  ! !"! ! "" " " " "  "  (((        .   3 !"##+1111110+# " !   % /,  -        &  .    :         ,&-&    &-&  .   " "  ! "" ! ! "" "    "!#" "         %    ! " #0+21110## (  *           -&              :&&K![&    &&&-, /   '!! " ! ! "   " ! " ! " "! ! ((    * *              ' " ""#+++1111111++# " '         &                     -&   &&---&&    ! !  "  "! "" " ""! " "  !       **            ) 3 ! "  #+2+211100  '(           &,  &&        && :     -    ' ' '  "!" " "" "" "   " "  " !           .  )  ( ! " " ++1111+ !   % / 7 &-              &-   :&&-&-&&  &,  % *   ! " " ! ""  #"" !  "  "!"  ""  **        % )  ' ! ##++021110+2+#  !'           &-      - :  :  ;  &&   ' ' " ""!"" "  " !" "" " ! !" ""! ! !  *          )  4 ! "#++0+" ( ,     &&&  &&     &   &&    ( " " "   " " "  ""!" " '             %%  ( " "# #+2+2+00++""     , &  7&  ,      &     ,  ) ' ! ! " " !  " """"  " !K![ !"" " !           *    ! !"+++00+0+#     /& -  ,     :     -  /    *   "   "" " ! !        %% ) ( ! "##++++      &&       &        ' !  !" # ""! " ! ! ! ! ! ' * %         ( ! "##++++##  ! !  % ,,,-&                 " "    #  ! " !     //  .  ( ' " """###" (   &- :  :    & :&- %%. &   ! " " " #"! ! " "  ' !'   % &       ( ## " 4  % ,&7-  :  &  ,-&       !  #"## " ! ' (    /       ( ! "## (     --&  :   &&  -&   & 3 ! """   ##"  " ' !   ''   *   -&     . ) ( ! "### "   * K![   ,,&, :      &-&&   &  '  ### "!  ''   %  -   *  " "##" !(   % &&,-&   &  &-&   &  ' "  "######  !' '   *   &  %  ( ! " ## "      &-&&  : & &-    &    ! #####""  4          (  ! ! !  ###! !   *) /&&&  &&&&-    &   ' ! "  "###  ! ' '       .  (  ####! 3 )    ,& &&&,&         "  ######"! ! ! '    %      ( !! ""######"" !    &&  &&7,        ! " "" ##   '      & %  (  ####!" ! 3    -K![&& &-&, &        ' " ## ! !  % 7     ( ! !  #### " " ! '  )   && &,   &  %    "## ##   ! !   ,    (  "  #"#####" ! !    $   & &-&&,           ######"    -  .  ( ""###"" ! !   $    &&--&       -&   #"##" " '  . && /     " "" ### " ! '           &&-&   -&    % .  ' "#######!   &&    ( "###" ! (        $      & &7-          ####### '    / . )  " !    "#" " '    K![      &-&    *    *! " #####" !   ,&  )  ( ! #" !" ' **       ,-7          ###### (    &     ! !    "! !           &&&   ,   '     ! !######" !  . /  % )   ""  " ! ! ' )   &$$$    &;       3       4' " ! ####    7   * ( !  " !" "  * %%  $     &&&   &)  *      (  "  ####### !  )    /  ) (  "!  ! !  ) %   % /                   ' ! "! #### !  * %  ,-&   ( ! ""  ! ! !3  %  -  %           &        * ' !    """###K![## !   /-&  %    ( " ! " ! ! !! (    $&- %  . & .           ..   ! ! !! #! '      *  ( (    " " ' '(  % / -$   .  &   /           ' ! ! ####    7    (  ! "  " !! ! '      $%    &  % &        % " ! ###" ! '  %    ( ( ! "" "  ! '      $,  *   .    /,  %     ,     * ! "#####    , % *  ( !  """ ! !       &- % )  %    %    &     ! ""# !'   ,    ( " " !  ! !  %  -;??, %  * *      :      &&      ' ' ###         (  " !  *K![   ,,$;>               &&--&     ' "###### " ''      ( " "" " " !      ??-    %%    :              "# (   *       ! ! ! 3 *  % / &$?                  &--7     " ! #######" '  ) .       ' " " " " !*     &;;- -  *   %.        / &       ' #####         "" !   .  ,>?       *          &      ,     '' ######## ! '  )   -     "! " ! ! ' * %  -& $>;>         %%     % % &       %  &-      '  ! "######## !         !       K![$?,;; 9   /     %         &-      .        ! ! "# !'  *      "" " '  .   ,>>?  %    %%      %     *     & (' )   %  &   * ' ##!"""" !        ! "      >;>, %%  .  % % %   .    !        &  %  "# ! ! """"     &     ! ! '    -,$;>9 %   *   %%%     * *     ' '          "##### " ! ! ! ! ! !"" !4      ( ! '    / ;;;;, %%     % .%%     * %     ! (        &   ####! " !  !    %  -     -$;? ..    ) ) %%         .   !'              ## !'('!!! ! '  *  -&     *  ,,,;>,K![, %        %%%.    %         *    3       &    !###" ! '(   ! '        **  /,;>,;9 .%      %            *   *  /        "##" !(4          -     $$;;?;;,,;,     )     %%    )     )               ##!       *      ,$;;,,,-,  %%  **     %   *   &              &   ## ! '     *       $$$>>,,,,,,-      *)*  %       *   /        * ##" !  (   *) **   ,$$$>;,,,-,77,,&    %  *  %%.% %     ) &   /   //      /   !#" !     *   &-$;;,,7&,-:   %%    .. % )   *     /          6%    " #K![# '   *)*    &;,,,-7&-,-&-, /    .  %%% *    )           %  6   ##" (        &$,,,77&&&-&7-,;-&   %%      .        & ,-         )  ' ##" " ! ( *   ,$$,,,,,&&--7---&   .%% .%%       ) %   &-&       .%    (  ##! '        -$,,,-,7&&,&-,,,-    %%   %     (   *)   ,-      (! ####"  (  )* %   $$;,,,,,-&7&7,,,7& /  % %%%%% % %%   (        &&&    %  ))  ! ###" "   *    $>,,,&,&&& -&      % 3'3       %  7     @ %  * ('(! ####"" ! '    %   K![ ;>;,-&-  &    . )   %%% .     (          &       *)   "###" " " ! (       & >,,,,         *   %   3!'   (   *  -      %    (( ! ####  "  '   *   &,   -,>,77            % .    !    ( 3   /&7   :        ! ####" ! 3   %      >        % )  *  %   ' ! '  !   ( 3  7     % ) ( "###" " ! ! '           ,,,,, ,7,   /           *     " !3 (( *         )  (' "" ##### ! !          %-7,,,  -,- /          *)   ' " "     3!3   /     %  *  ( "  #  ! '(       ,K![   ,77,7-,,,  7  /    )    (  ** ' "  " ! '    3*%       .    ! ""##### " !! '    %   ,  . %-&&&&-&   -&7& /  .             '  " "      3(4         @9  * (( "###"! ! !  '           % ,  -     -&-         3 3  !! " " " '    4( ( */        (( " "##"  ' !!   *    &  % ,    &     & &  / % )*  '   ' ! ! """!    3''(      6.   (( ! ##! !'  4( * % %       % *  // --&      / %%  '' ! ! ' ' ( "! # ! ' ''           (( ## ! ' !(       ,   ,,-    ,        // %   ! ! ! !' ! ! " " ## !' ' ! "           " !##""!  ! (4        % , /// / , &   K![          4(' "  "!  !  ! !  ""  ###" " " ! ! " ( %%   %   ( " ####" ! ! ''(           )*;,-,,  // ,-          /   ' ! " ""  !  ! ! ! " ## ! "        ##"!" '             .  -, /               /  *   "" !    ""####  " *      ! ## "  " !'(3  *        .  $-& /  // &&             / .   !" "# " " ""# ######  )  9%    #" " ! !         &    ,--&   /  -,     @ %%    //  )3' #"!" !  !"""  ####   ' "## !   (        &    %    ,&--,-  /     7&/          .   "# ! ! " " ! "" "### ' *  #"! ! " '            * 47,-7-  / ///   /    6 6 6.  . /     #" !  "" "### ((! K![ " " !  )           3 -&    /        =        9%   ! "##" ! ! #""""+++++++0++#" !  *      &,    ,-& -&- /         . @  ) ) ) % % *  ! ####! !  ! ! "###++22+0++2+2++### ! ! ! '( *) %           (3 '   &-- //  //      6    )* * %= 6.  ! "#  "  ##0+2+++0+0+0++0++0++#"" !   '(  )    &   ('  : -  /   /// /   96 %    )  6  ! " #"! " " ##++++22+0++00+0+##" !!''     &   %    !&    ,--&      / / %% * )     %    ## """" ##0++2+02+0+0+0+0++2+++2+0 ! !' (    %     %  ' ! -7  /   /   /  ..% )      9.  ( ##"""##+2+++02+0++00+++# "            K![    (!  ;&       /  %         * ( "#" ##0+++0+22+++2+2+2+" ! '(4    *     4! ! "?   //  /     %% *         )  ( ### ####++2000+++# ! '    *   &   ( ;      ..9  %            (( "### #+00+++++0+#"" ! '     %%  &  ' "!"?,7&  /  /    . ..            !#####++2++2000+# '(    %  ,   ! ";,&    / %%%.%           (  3   (!  ##++0++2++2+++++0+!     * .  ,-    ! ! ";;,&   /    // .%.             (     ( ( ( (  "#####++2++00+0+++++0+000+## ! !' *    K![&&&   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       /     %.%    ) (        (4 ! !' '!! !! ""###+2+<11+<82+0+++0++2111+++++##"" ' *  &  %    (      / / / /    .%%     *)  (''          4!  !!!  '  !( '  #######++211+<118112+0+0+02+0+0# " 3   &-         / / . %    ) *))**   ( (( K![       (  ' (''!'! '  "#####2+<+51+58512181100+0+2++# !     && %        /  %  )    *   * (((( (  (     '' ''('   " "#####++00111+<12888215<12+2++++###"    & %          /  % .  ** ********   ((((((((((        ( (' '' ""# ######1180<80058221811+2+++2+ 3  %                . ..  * *      '   (      '4 '' ! !! #####+0+58<1+2112880<8081+00++####""! !(       % )      &  // .%    )         ((( ( ( ! ! (    4'' 3  '!! '' ""######2+1+<80058<28<1121120++++##     & %    *    / % %  * (  (        (( !'      (! ' ('''' !" ! ! !  #########++1+<+2112+851+<8281+<1+++2+2+"! (  .            &  % %  ** ((  (      (   (( !' !  (  '' ''!  !" !'"' ! ""#########++2181+<800582121881+<1 K![00+2++###   * )      $ %    )       %      (( (    (        ! ! ! ""! '    " ! ! !  ' ! ! " ! ! #"########+<52111181015518<12+++0++####!! !(     &&               %%%   (((( ( (   (   (!  ""  ""    (''! "  ' ! " "! " " ######+2+18<5801558111518212+2+2+###  )*      $  %         &  / / / %%% * ( '((  (( (( ((  ( ! ! "# "" '! ""! ! '  " " !' " ######+08118818<+<8281+<181+++++++#####! ( *       ** *)   &   %6 *  (( (( ' ((((   ! !   ! ! ! !  " " ! !! " ##########++10182828<1881+<1+100020+###" '    %  &     %          / 6 9 9 9 ) (((((((  ((   " ## "" " ! " " " " ! " ! #########0015111181015518<1++++### !         $  . **))       / = 6% *  ( (3(( ( (    ! #####"   !  ! ! ########++00808<811151801002++#! !  * %   :  K![ %  )        9 .   (( ((((  4  ! " ## "  " " ! " ####"####+2111+1<+<8281+511+++++##" !       &    % *     &   / 96 6 %  ( (  '(   (   "####"  " ""##### ####+0+01015+1888<+00+# " !  *      -&  . )     &&&      ((  '(((     ! ""### ""###########+++11101515112+2++####"" ( )        &$  %       &  / 69.   ( !(    ( ! #+###### "###+02++111++0++# ! " ! (      : ,:   .    )    &   9%  (  ! ' ((( ( " ##+0+############""#+0+2+2+2++####" ! !!'   %     &    *      %  ) (   (   ' (  ""##+0+#### # ""++++02+++##  ! ! !     &   K![   % )  *&   % )   !' ' '( ' (! ! " #+0+### """!  ! "##++002+2+++0+##" " "  ! (      &  &,&   %           (!!  ' "###++0++######" " " !"" " "! !" "#++0++0+0+0+00+2++# " " ! ! '   &-  $-  .   )       %    (( ' !'''! "#+02+2+###   " "" !  #++0+0++++###  !" " ! ! '       -  % *  *   /      '( ''(!! ! " "#+++02+++0#"" ! ! ! ! !""+++0+0+0+0+0+0++! " ! ! ' '(   * %   &$  . *        % *    '! "!  ##+20+12+2+ ! "!!  ! ! ! ! "##++++# ! " ! ' !        &  &,,,          % )   (!(! ! ""  ##++++28<+00+#"! ! !' !! ! ! ! ! "! #++++++++++##! " " ! ! ! (3    *    ,&   .          4 ' ''' !"""## K![+021+<1++ ! ! !'   ! ( ' (! " ######" ! !'(    * %   &    *    ) %. *   ' ""++2+2+0155+2+# !   ''(((  ##"" ! ! ! ('    * %   $,,       *      '( ! ! ! "#++2+++0++###"! !' !'3  ((   ( ! ! "! ! ('(     ) %    &&,&   % )   ) %%..%% )   ' ! "+++++++0+0+# !'('(  4        ! ####" ! !!!(('     * *     &  ,,&&     )  * *    %    ('! " "#+++2++++# " !   3(' 4  *  (( ! #### ! ! ( '      %     &  /    *    %%%% %% % )  (! " "+00### " !        )  ( ""## " !! '     )    &&   -7-                %   )    ! "#+++++##     *  **   !###K![# ! ! ('       %  /-    &--&-&       /  % *)              ' ! "##"" !!  ** *))*   ) (   #### ! !('(   )) ** %%  $&    &  /       *) *           ! " ###"#  ) * *)** % ))   ##! ! '    ** %   $,       -         / .  *   )  *   )   ' ! !####" (   *  %   . ** (! ""###" ! (    * *             &-      /       * *       ))   "   !  * %   %      "##### "!  '   *      $$$          ,           %%   %    *))   ! ! " ### "   )* *) %    *  ( "#### ! ! (       % %   &                /        *   %     ! ! "###" " '       /     (  #####! ! ''     .    ,K![$        ,-           %    %           ' ! "  #####       / /   ( ""#" ! ((    ) %    &,$&   9//     ,&,              * )  %        ! ""#######! ! ((   .   /  %     #######! ! !( '   *  %  &  / /     &&&&&             .     *'(''''     ! ####" !  *  .%%  /  /    .    #######" !   ) %   &-         &  &&         %   *) * % '! 3   '! " ###### !  ** . // // /  /   % .  (  ""########## "  (' )   -&&-,-      %% &-                           *!  ! !!( ' !#### (         /    %.    !######  " !!('  *    ,,-    %  % & /          %  ) )  .%  ! ! "  ' ' 3 ! ! #####!  ! !  *     / / /      (  "#########!  ( (        &&-7,&   /  %    %% K![-   6            * %.   ! " ! !4 ' "###### ! ' !            / // %% ) ( "##" ! ! (4  *   %       % . %  &&&   6...%..%%.%      .% *   %%% *! ! ! ! !'   !" #### '   *           /  /   * (  ####### ! " ! (('    )*  /    /    %        6  ..%.%%...%    .   %  " !    ! ! !" #### !      &       /   ( " ## "  '  )      &   &    .             9%    %     .  % % %%%    %%   %.% ! ! ! ' ' ! "#### ! (   * %        .  ' ###  ! ! (((    %  ,  &,-&      * *       %% %% %%  %% . % % % . * " ! ! !  ' ! !" "### '       &     ,&   ) (    "#" ! '         &   &&-,&   %   )   )      .%      %      %%   %   %%%  ! ! ! ###### " ! '(   %  &         (  ""##" " ! ('  * *          ,   96.    *           6  . % %%%  *)     %%  . %.%%  ! ! ! " "K![##### ! ' 3      &&   7,-&   ) (  # ! ! (((4            &   & ,,&  %. )    *  )    :  %          ) ) * )   .   %  .%%   ! " " ""######### ! '   *      &&  7    (' " ### ! !  4(    % * /          &-&-         *)    % %  * ) )     %%   % %.% ) " "  "! " "##### ! ! 4  )     &-7,   ) (  !   ! ! ( (   %   ,      ,7 6% ) * ))    ) %%   @        ) ) )    %  "  ! "##### '  ( ' * %      ,,,-,  / %  ( (! ! ###" ! "  (3                 &--,& .%  ))       )    %         )) *    % ..%  *" """ ####### " '  '          ,,,,,- /  *   ! ######" "  '      %    7$-&   :     %   -&&   %               %       )       )        " " #######"  " ## "            ,;,   /   ( ( ! "  ! ! (    *)                  &&  %         )  %.    *))    )   ) )   %% % * ###"  "#"  ' ' (  * %     ,  K![   ((! ! " ! " '        %       7       %                 )          (   *)* *  ) )*   )    (    ))    %  "###### # !" ! !"!!#""" !!' 3' (        ;,;7 //     ""  " ! ((   *  )**     :        %               )             )   ) * )      3(     )      %.% #####"# #  " ! ! ! ! ! " "  !! ' *      77/ /   (( ' " ! ! ! ! ! '(  * ) *  .          %  %           /                    ) ))      '(''(3          .  ## #"! " ! ! ! " !"""" ! 4( ' !    *        &    (((  !  " !" !  (   **          %  )  *              *         4 '((4    *      ' '        *  %.%. ##  " " '  " ! '   ! !'  %         /   (  ' " "  "! " ! !    % /           )* %  %  6 6   %   ' '('('(3   (('('4    (       '(  !  ('(             )##  !""" ! ! !  (   ' !  ! ! '  4  ! '           * ( ( ((  ! """  ! ! ! ('                   *    ..=        3('(3(3 '( ( '   (  '       '( !! ! ! ! !(4       * %%.%%%%% * ## " "   " ' (( !  """  '(   ! !(      & / %  ( ' " "     ! ! ! ! !! (  )*  %   &  & K![    * ) * %  .  %6  %   (4' '  ''  ! '  '    '' " !         ((  ! ! ! '(           .   *#" !!"  " " ((( ! "! "! !' '         & /    ( ! !"" " " !!!  (   *  %%%      ,  %     .  .  /      ! ! " ! ! !    ' ! ' 3 ( ( ( ! ! !  (( ! ! ! ! !!'        )  %%%.%%% )####  !  ((      " " !                 / .  * (   (( ! ! ""! " " ! !  (  )              %    %.6  /  * ' ! !! ! ! ! !   '   3  3' "! '  '( ! ! !" ! " "  (        %%  ) ## !! ! ! !  (    ( ! ! !              //  *    (  ! ! ! ! ! (   *   ..%%      /          %   )))  *     %  '! " "" " " ! !! ! !  ! ! ' '  (  " "" ! (3'   ' ! ! ! ""  ! " !!3    .%%%.%%  ###" ! '    " ' 4            /   * (    ! ! ! !  (       .      &   . *      )  %6      (' " "" ! ! ! !!!!!!   ' (4' " " '  ! !" " " " ! ! ! (      %.   ## !  ( (((   ' ! !     *        , /    ) ( ! ! ' ! ' (4(      *  %%   & &  % )*    (  *         )  ! "  " ! !! '(  # " !!!! ! ! ! ! "! ! !'(      ) ..%.%% .  * #! " ' '  (  *))**)   !    * *         //  *     ' ! !! ' !!! (          / $&        3'     )*       ! "" K![#"" ! ! ! ' 4  '! "" ! ! " " "" " ! !(4      *  %...    ###!    (  )* )* ( 3    .%     , / * ( *  * ( ! ! '(    **  %%      $   %% )  ( ' '           .   "##" ! ! " ! !     "  " ! " " ! ""! ! ! !   ( '      . %.%..   "! " ! (((( **   ((    .   &&/  * (  % *((( ((((  *)) %      /            ' '       .    !! "##" " !  !    ' !   " " " ' !'('       %%.   ## !   ((( )*       **   &&,- //   (  . * ( '(   *    %       7  .%    4((''   ( '   (  *  %.%  * ( ! ##### "! ! ! '( ( #"""! ! " "  ""  " ! !  (  3   % . %%%      # ! '  (( (  **   %     *    --7    ( ) .  *    (( ***   %           )   ' ! ! !'      *      3 "### ""!    ! ""#  !" " "" #"" ' ''(4    * % %  )  ##" '      *) %%.%%         . * (3   *     *    %           % )    '!    '         "#### " ! ! 4  ##  " !" " !! (4(          )     # "  (((   *  %6 *           *    .       %.% /     &-     )))   '  ! ! !' ((4  *  )*  ( "#"  ! (' ! "####" " "  ! ! ! !(4 (         ) )  K![  #""  " (      *        -& / .     / %   *       -   )*    (' !  '         ### " !'' # ""  ! (4 (      *  *   )    # " !! '(((  )*  .                         &    )    ! ''  4    ' ! ! #  !  " ### "" ! ' !(4(   *   )  )     ###" ! " ' ((     .    .%              * *      *  *  %     ,&  %         ( '( 3 (   '(4     ' ####" ! ""  "" ! !(3(     )) )      ( #" ! " "   )*  %               *       *  * %      ,&    )     3   3' ' 3( ' ' '! !  ' " #++#"!  !! ##    "" ! !'(     )       ( (#! !(    *  %  /       %  *  .%     %   %       ,,    )    ''' '3 (   '   ! ! ! ! ! ! "##++0+0+###  ###   ! ! ! ( (    ))     ( (  (   " ! '! !  )   / /  /   &-      %          % *    ' '  '' '! !' ' !  " "" ! " #+2+++#" ""#   ! ! ('    ))     ((    ((#  '    *))* %  /      K![,      %    &         *  ! !!' ' ! !   ! " """"" ""2+0+2##"###    !" ! " !((        ( ((      ( (((#" ''' ('  * )   / /         . *       ,     &7 %     ' ! !   ! ! !'! " # ###+++######"  """ ! !!!'        ((    ( (((((   !((   ! ) * *  .  /          %          &&  )    ! " ' ! ' ! ! !    "##00+# # " " " ! ! '  '( (          (((((    ! '  ( ' ! (   %% /   &     .      -&           ' " ! "   ! " '' ' ! " ####++#  ### !"  " " !'! ' 3      (   (((((    ! !    ! !* )  % /    -   -&    .%% %% ,, &-&  %     3 ' !" ! !  ! #####00+####  " ! ! ! ! ! ' '(        ((((      " ! 3 3! " '  .       &   &,&         !   " ! ! !! ! ! #++2+####" ! " " ! ' !! '      (  ((      !  ! '(  !   *      -       ,-&,--,K![   )   ('' ! ! " "! ! " " "  !  ##2++++###"" ! "" " ! ! ! ! !   (       ( ((   ! ! ! ! " ! '(4' !! ' * * *       7            %   3(' ! # "  ! ""! !  "++02+### " ' ! ! !!' 4  3 ( (   ! !!! "!    " "" !      -    ,    ! ! " "  ! " ! " """##+++++#### " "!" ! ! " " ! '  (     (   ! ! " " ! !" " '  ' !    .   -&    -&  %   ' ' " "  "" " "#++00020######## ! ! " !!' ' !!3    ( '(   " ! " "!" " " ""'   ! " " 4       &  &-    "! ! ###+0+0++++++#######" "" ! " " ! ! ! " !!   ' '   (   ! " "" "" " '! !  '  %%   ,   &,     ' ! ""# " "" "#+0002+2++########" " " ! !! !   (  '(  ' ! ! ! ! ! """ "!  "! ! *    & &  &       ##K![+2++++#######" "" ! ! " " " " !  ' '(3( ((  " "   ! """ !     --&     &&-&   * (! !"####+00+####"" " " " ! ! ! (  ! ! " ! " ###"   '  *   - -&    &    4 "  #########+0++####   !  ! ! ! ! ! ! ! " " ! ! !' ' ! ! "  "  #####!!!   *   ,-,-7    -,      ! "#########0++## " " ! ! ! ! " ! ! ! '! ! ! "! " "####    *    ---  /    ' ! ########++0+####### ! ! " " " " ! " " ! ! ! ! ! "###! '   ) %  -&,   & &&     #####+0+####  !"! !! " " ! " ! ! !  #### !      -   &   . ) ' ! "######+0+#####"  ! ! ! " "!"""!" " ! ! ! " "" #K![#### !  * %       -    ( ###+0+#####"! !"! !"" " "! !   "! " " "  """ ######" !     -   &    '! "####++########"  !  !  !! ! " """"""""" ! ! ! "" ! " " ###    % %    :   &     " ###0+2+#########" !""!" "  "   " " "" "####' * %      7  &&   ' !##+0++####   " """       "  " ####  %     -   /       ! ####++0++02+#########  #### * %       -      ' ""##+++20++++2+0++#####   #######   )   $K![-  &, /     4 !" ##+00++0+0+2+0#######   "  ### %.    % &  ,     "  ##+0+++0+0+0+############### #####      -  ..%%  ! ! #+2+0++################## %   -   %   ( ! " " !"#+0+<12+2+#######"######### %%   /  -&  %   3 '!! ! " #+++01+101512+2+##########"############%      - %  )      ! ! " ##20+28<811+<8+######## ###     &&K![&  )   ' '! !! "++0+8285+15152++#####################  (     )*  !  !  !"#++++2++5111511+0+############+        ! ! ! !!! ++0++255551+5500+#############+     $ % )   ! ! ! '  ! " "#++0+2+++02++5555++###########++++2       *   ! " " ##0+2++++++25555552+0++############+++02+ **   $ %   '  ! !  #+0+0+2+05+0######+20+++0        4 ! "  ! "####+++00K![+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+++0+0+0+0+0<8585Clouds.bmpC>@(CDEMS Welcome Screen"[Event Procedure]"[Event Procedure] Arial"[Event Procedure]d2hgh Tahomam45`Z Detaild235]8a bcd Label1 CDEMSWide Latind235W`bn cd Label2XChronic Disease Electronic Management Systemd5]`ab cwd e Label3Version: d5]`apbcd e Label5Developed by the Washington State Department of Health Diabetes Prevention and Control Program, with funds from the CDC.d5`;a bc,e Label6WA Support: m 47C`ab3 chi jtxtVersionm 47;C`a bIc,i jktxtLocalSupport="800.478.3563" Ariald5]`ab cLabel15^ 1999 copyright WA State Department of Healthd5]`;a b c,eLabel17(NatK![ional Support: m 47_;C`a 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`aPbc 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 provide 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     ! ####TypeInfoB3BlobDeltaHJGPropDataCopy[8M}F0}F013Fd    h  K![  m     dddddm+m+ddJ;K LGMLm+ddJKPL@MRh!h!+0+00  ͬK;&]E@ DetailnlstRelatedLabsd Label116nlstAllDxeBox70mtxtTitlenlstAllDx1d Label45h cmdSaveBlob JPropDataLO\TypeInfo] BlobDeltaNPv0=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 tblRepoK![rtsTemp 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] from 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 K![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,bHcLab!K![el74Selectionsd5U`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 Procedure]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"K![.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_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_`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 #K![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]uZiGn, First(qUnduplicatedDxCrosswalk.raw_code) AS FirstOfraw_code FROM qUnduplicatedDxCrosswalk GROUP BY qUnduplicatedDxCrosswalk.working_code; Union SELECT '<any>' AS [working_code],'<and Label59h cmdDeleted Label61h cmdClosed Label63d Label64nlstAllDemod 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 UlblAddSpecialServiceڭ1D/13Fd    e    h    m     $K![n     o     r    Cn(dn(em+n(dh!dh!dh!ddn(ddddddn(dddn(dn(ddddddn(dddddddn(dn(ddddddn(dn(dddddddh!n(ddddn(df    f    f    f    dJ&KL'MM tblReportsTemp WHERortsTemp.type_order)=6frmCountPatients-criteriafrmReportsfrmSplash$frmCountPatients"frmListPatients440; 3CB0 0CB0 1CB0 7CB0 8CB0a,bH"frmListPatients$frmCountPatPropDataCopyDirDataKSPropData;DirDataCopyRTientsfrmSplashfrmReports8frmCountPatients-criteria26frmCountPatients-criteriaReports 8CB0 7CB0 1CB0 0CB0 2CB%K![0 3CB0rder)=7)) ORDER BY tblReportssplay_order; 1440;0"[Evendure] Ariald25W`a<b7ceXYYYl105Servicesn3W8`a#(bcdP lPropDataCopyFCmdbars}F0}F0Modules2]}F0}F00X}F0}F0PropData 1W[Z}F0}F0PropData 2\}F0}F0PropData 3Ya^}F0}F0PropData 4`}F0}F0moveLab>"[Event Procedureb ce lblRemoveAllLabsnt Procedure]h1U`ab@c@iceReport"[Event Procedure]report wizardbasUtils2basUtils"basLinkedTablesbasCommonFilebasAutoexecModule1ڭڭPropData 5_fb}F0}F0PropData 6d}F0}F0PropDatae PropDataCopyDirDatacgPropDatahQ 0CB0 1CB0 2CB0 3CB0 4CB0 5CB0 6CB0``abcelblAddVital< 5CB0 4CB0 3CB0 2CB0 1CB0 0CB07$Included in Reportd5U``ab ceVital>"[Event ProcedTdl lstRelatedVitalsy*SELECT tblReportsT_text, tblReportsTempPropDataCopyFReports&K![|}F0}F01l}F0}F0Blob O                       /  ! " # $ % & ' ( ) * + , - . 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~  0:<=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%=[Eth'K![nicity_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]Percentd8"`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]/(K![[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 Depressionm05C`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)K![_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 hospitalizationm5<"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]Percent*K![m5C`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]Percentm5C`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+K![ 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)bcLabel593 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_Per,K![centmYPatient_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_PercentmCount_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(-K![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_WeeksaCSD_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_AnyNumericResultk6Text538Last_PHQ_Over6_monthsd`ax-bcLabel539b. PHQ over 6 mosm05C`ax-bk7Text540(=[Last_PHQ_Over6_months]/[Patient_count]Percentd8"`<a\+b c2jvr}F0}F0Blob 1 PropDataqtTypeInfo /) 0:<=Babc,e ghi j/k"[Event Procedure] _k@(QRY_SummaryDiabetes2"[Event Procedure] Arial8hhh:XHP OfficeJet G85xiXC od,,Letter.K![DINU"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 Provider: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`ag0K![ 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 bc 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]/1K![[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_90Overd`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(3K![*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_neuropathyGeneral 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_4K![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_pneumonia_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_H5K![bA1C_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_Percentݲ=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_6K![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_129]/[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_Cou7K![nt]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_LDL_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]/[T8K![est_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$bkJText391Test_HDL_Avg Fixedm05C`a'bkKText392Test_LDL_Avg Fixedm05C`a /bkLText393,Test_Urine_Protein_Avg Fixed` Detail`PageFootermC`Text215H="Page " & [Page] & " of " & [Pages]on_flu_vaccination]/[Patient_Count]Percentm5C`iaL,bUkH Education_dental Education_dentalGeneral Numberd`aL,bcLabel202ͬ: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`tx9K![t_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|Text379}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 :K![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_Avgd!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_numeric;K![Test_Triglyceride_numericTest_HDL_numericTest_LDL_numericTest_LDL_100UnderTest_LDL_130_AndOverTest_LDL_130UnderTest_LDL_Under_100Test_Urine_ProteinTest_Urine_Protein_numericTest_Urine_Protein_Avgle/QuerySELECT DISTINCT tlkpCrosswalk.working_code, First(tlkpCrosswalk.raw_code) AS FirstOfraw_code FBlobDeltasuPropDataCopy3x}F0}F0Blob  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: HTC od,,Letter(PRIV to  yArialP_splmf01.exeZdArialdBRIL07A.DLLEOSCC"<USB001d28 Arialm5< Arial0 filter0type_order0section_orderdisplay_order`ReportHeader`PageHeaderm <bcij Label1L=[Forms]![frmCountPatients]![t<K![xtTitle]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;<`bLc,i jk Text33f=[Forms]![frmReports]![lstSelectClinic].[column](0)Times New Roman0`GroupHeader0m <b cij Text27 filterTimes New Roman`a"[Event Procedure]GroupHeader2eab c, Box25m<"C`Xabc,j Text20[typefield]`,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`ReportFooterin_Percentmtxt_Medication_ace_inhibitor_Percentmtxt_Medication_sulfonylurea_PercentmMedication_aspirindText397mtxt_Medication_aspirin_PercentmMedication_sulfonylureadText382mMePropDatawzTypeInfoBlobDeltay{) PropDataCopy Text355mHealth_cerebrovasculaͬ%a#%qhvReportHeaderhvPageHeadermhvLabel1mhvText29mhvText31dhvLabel32mhvText33hvGroupHeader0mhvText27hv GroupHeader2ehv Box25mhv Text20hv GroupHeader3mhv Text23hvDetailmhvText5mhvText10fhvLine11fhvLine12fhvLine14mhvText16fhvLine18fhvLine22fhvLine26hvPageFooterhvReportFooterhvtype_orderhvtypefieldhvsection_orderhvsection_headinghvdisplay_orderhvdisplay_texthv raw_codehv!valuehv"percenthv#denominatorhv$filter1D13Fd       !"#$%&'()*+,1236  m     =K![m+m+m+dm+m+e    m+m+ m+.J0L 1Mm+f    J<L f    f    J L Mm+.JK 0L 1Mf    J<KL Mf    f    J L MftxtHbA1C_91Days_4dhLabel161miText366dText368mlText372dmLabel373ͬa7;$qReportHeaderdLa4p~}F0}F0Blob  +PropData}TypeInfoe0:<=Babc$e gehri-j,k "[Event Procedure]tY_@ QRY_SummaryAPHS2"[Event Procedure] Arial8$hhp officejet g series!@h߀dBeRLdMBeں>K![ں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]![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` Det?K![ail&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 of 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]/[Pat@K![ient_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`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֎`hReportFootervLine11fhvbel0dLabel2mText3mText15dLabel16mText222dLabel223mtxtEndDateTwoYearsd 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_39AK![RAge_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`Text100icejet g series seriy,DrvConvertBlobDeltaPropDataCopy-5}F0}F0Blob  S0:<=BabcT$e gHhri-j4kI[Event Procedure]kh_@QRY_SummaryDiabetes2Arial8T$DhHP OfficeJet R80xiXC od,,LetterDINU"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`abXkTexBK![t49P=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_smker],[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`, ReportFooter bXk Text53Age_65_AndOverd5Q`a b cLabel54`4b. Number of 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 oPropData.TypeInfo 3BlobDeltaPropDataCopy/ͬ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_UnCK![knownBAge_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_peripheralxHealth_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_Avg{PageFooterm|Text215}pcp~DemographicsVisitsTestsPatient_CountAge_60_AndOverAge_45AndOverAge_55AndOverInsurance_specifiedInsurance_medicaidInsurance_medicareInsurance_commercialInsurance_otherInsurance0:<=Babc$e gehri-j,k "[Event Procedure]tY_@ QRY_SuDirData0PropData4;PropDataCopy5FScriptsi}F0}F0>rptWSC_Diabetes_Core_Measures6rptWSC_APHS_CDK![ore_MeasuresrptTemp(rptSummaryDiabetes,rptSummaryDepressionHab Line69f 5CB0 4CB0 3CB0 2CB0 1CB0ݘ1c 5CB0 4CB0 3CB0 2CB0 1CB0 0CB0 of women not contraindicatedjim7Q;C`Ha` bIk Text82BEduPropData7Databases}F0}F00}F0}F0Blob DirData8ImExSpecs}F0}F0CustomGroups}F0}F0DataAccessPages }F0}F0MSysDbsmear_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`abcLabRoot EntryV:z @VBA F0:zVBAProject1/ F09zVBA F09z                            /  ! " # $ % & ' ( ) * + , - . 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~     E j@ @@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`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^^iu +kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^kQiqYMQk +kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^kQiqYMQk +kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^kQiqYMQk +kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^kQiqYMQk +kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^kQiqYMQk +kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^kQiqYMQk +kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^kQiqYMQk +kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^kQiqYMQk +kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^kQiqYMQk +kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^kQiqYMQk +kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^kQiqYMQk  +kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^kQiqYMQk +kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^kQiqYMQk  +kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^kQiqYMQk mJ^^iu +kh+MSi`^YkmfJmYQbmk+kh+M^kmJ^^kQiqYMQk 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``JivYbSdokQiOQSYbQOokQiOQSYbQOi@@   @ +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:kQiqYMQk^JmQkm8hJMmYqQkQiqYMQk^JmQkm:kQiqYMQk^JmQkm8hJMmYqQkQiqYMQk^JmQkm:qYMQk^JmQkm8hJMmYqQkQiqYMQk^JmQkm:iqYMQk^JmQkm8hJMmYqQkQiqYMQk^JmQkm:iqYMQk^JmQkm8hJMmYqQkQiqYMQk^JmQkm:mYqQkQiqYMQk^JmQkm8hJMmYqQkQiqYMQk^JmQkm:qQkQiqYMQk^JmQkm8hJMmYqQkQiqYMQk^JmQkm:hJMmYqQkQiqYMQk^JmQkm<hJMmYqQkQiqYMQk^JmQkm>hJMmYqQqYkYmkhMWdkQbOu hiv+QuQiMYkQdqQiV?V@VAVBV CV DV EV;WFWmWmWmWmWmWmWmWmXmXm Xm Xm Xm XmXmXm YmYmYmYmYmYmYmYmY mY mYmZmZmZmZmZm Zm!Zm"Zm#Zm$Zm%Zm&Zm'Zm(Zm[m)[m+[m,[m-[m.[m/[m0[m1[m2[m3[m4[m5[m6[m7[m8[m9[ m:[ m;[ m<[ m=[ m>[ m?[ m@[m*\mA\mC\mD\mE\mF\n\n\n\n\n\n\n\n\ n\ n \ n \ n \n \n \n\ n\ n\ n\ n\ n\ n\ n\ n\  n\  n\  n\mB]n]n]n]n]n]n ]n!]n"]n#]n$]n%] n&] n']n^n(^n*^n+^n,^n-^n.^n/^n0^n1^n2^n3^n4^n5^ n6^n7^n8^n9^n)_n:_n<_n=_n>_n?_n@_nA_nB_____ _ _ _ _ _  _  _  _  _  _ _ _  _n;n)LVAL  * p N  n ( X  b   j\B(((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_codeqryMinLabDateInPeriod.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))qActiveServicesLatest2.chart_numberqActiveServicesLatest2.clinic_code(((qActiveServicesLatest2.status_flag) = 'c'))qActiveServicesLatest2.raw_code In ('none')qActiveServicesLatest2.chart_numberqActiveServicesLatest2.clinic_codeLast(qActiveServicesLatest2.result)qActiveServicesLatest2.chart_numberqActiveServicesLatest2.clinic_codeqActiveServicesLatest2.raw_code In ('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_code5Gv5kM/ O %  y 6 ]  | ^  z 0 jnD&l-P Y}SYiK-\e>tblVisits### \e>tblDemo \e> G\e> G\e> \e> G[ e>tblServices.raw_code3 g[ e>tblDemo.phone2- g[ e>tblDemo.phone1- g[ e>tblDemo.first_name1 g[ e>tblDemo.last_name0 g[ e>tblDemo.chart_number3 g[ e>tblDemo.clinic_code2 g[e>@l '[e>tblDemotblServices^@lA5 [e>tblDemotblServicesZ@lA5 [e>tblServices.raw_code3 g[e>MaxOfservice_dateMax(tblServices.service_date)^33 o[e>Phone2tblDemo.phone29 o[e>Phone1tblDemo.phone19 o[e>FirstNametblDemo.first_nameC## o[e>LastNametblDemo.last_name@!! o[e>tblDemo.chart_number3 g[e>tblDemo.clinic_code2 g[e>tblServices''' [e>tblDemo [e> G[e> G[e> [e> GZe>V@l 'Ze>qryMinLabDateInPeriodqryMaxLabDateInPeriod@lqe; Ze>qryMinLabDateInPeriodqryMaxLabDateInPeriod@lqe; Ze>qryMinLabDateInPeriodqryMaxLabDateInPeriod~@lqe; Ze>Ha1c90DaysApart@l;// oZe> qryMinLabDateInPeriod.raw_code= gZe>D@l gZe>B@l gZe>qryMinLabDateInPeriod;;; Ze>qryMaxLabDateInPeriod;;; Ze> GZe> GZe> Ze> GY e>tblServices.chart_number7 gY e>tblServices.clinic_code6 gYe>@l 'Ye>MaxOfservice_dateMax(tblServices.service_date)^33 oYe>tblServices.chart_number7 gYe>tblServices.clinic_code6 gYe>tblServices''' Ye> GYe> GYe> Ye> GXe>B@l 'Xe>tblReportsTemp.type_order8 gXe>tblReportsTemp.raw_code6 gXe>tblReportsTemp--- Xe> GXe> GXe> Xe> GWe>@l 'We>tblVisits.visit_date3 gWe>tblVisits.chart_number5 gWe>tblVisits.clinic_code4 gWe>tblVisits### We> GWe> GWe> )C"9 j % O  \  i 1 M /  y:Q^@"v6Gh dF( {/_e>QRY_Last_Visit_Date.LastName; g_e>B@ o g_e>"QRY_Last_Visit_Date.chart_number? g_e>!QRY_Last_Visit_Date.clinic_code> g_e>QRY_Last_Visit_Date777 _e> G_e> G_e> _e> G^e>f@ o '^e>tblDemoQRY_Last_Visit_Daten@oQE ^e>tblDemoQRY_Last_Visit_Datej@oQE ^e> tblDemo.pcp* g^e>phone_1Z@o+ o^e> tblDemo.zip* g^e>tblDemo.state, g^e>tblDemo.city+ g^e>tblDemo.address1/ g^e>tblDemo.first_name1 g^e>tblDemo.last_name0 g^e>tblDemo.chart_number3 g^e>QRY_Last_Visit_Date777 ^e>tblDemo ^e> G^e> G^e> ^e> G] e>tblDemo.chart_number3 g] e>tblDemo.clinic_code2 g]e>@o ']e>tblDemotblVisitsZ@o=1 ]e>tblDemotblVisitsV@o=1 ]e>LastVisitDateMax(tblVisits.visit_date)R++ o]e>tblDemo.chart_number3 g]e>tblDemo.clinic_code2 g]e>tblVisits### ]e>tblDemo ]e> G]e> G]e> ]e> G\ e> tblDemo.phone2- g\ e> tblDemo.phone1- g\ e> tblDemo.zip* g\ e>tblDemo.state, g\ e>tblDemo.city+ g\ e>tblDemo.address2/ g\ e>tblDemo.address1/ g\ e>tblDemo.first_name1 g\ e>tblDemo.last_name0 g\ e>tblDemo.chart_number3 g\ e>tblDemo.clinic_code2 g\e> @o '\e>tblDemotblVisitsZ@o=1 \e>tblDemotblVisitsV@o=1 \e> Phone2tblDemo.phone29 o\e> Phone1tblDemo.phone19 o\e> ZipCode tblDemo.zip8 o\e> StatetblDemo.state6 o\e>CitytblDemo.city3 o\e>Address2tblDemo.address2?!! o\e>Address1tblDemo.address1?!! o\e>FirstNametblDemo.first_nameC## o\e>LastNametblDemo.last_name@!! o\e>LastVisitDateMax(tblVisits.visit_date)R++ o\e>tblDemo.chart_number3 g\e>tblDemo.clinic_code2 gLVALPD  B n , ^@H,Hz2QRY_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_dateQRY_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_codeg!                                                                                                                  #$%&'()*+ , - . / 0123456789:;<=>?@AB C!D"E#F$G%H&I'J(K)L*M+N,O-P.Q/R0S1T2U3V4W5X6Y7Z8[9\:];^<_=`>a?b@cAdBeCfDgEhFiGjHkIlJmKnLoMpNqOrPsQtRuSvTwUxVyWzX{Y|Z}[~\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+ , - . / 0123456789:;<=>?@AB C!D"E#F$G%H&I'J(K)L*M+N,O-P.Q/R0S1T2U3V4W5X6Y7Z8[9\:];^<_=`>a?b@cAdBeCfDgEhFGPHOIJQKRLSMTNUOVPWQXRYSZT[U\V]W^X_YaZb[c\d]e^f_g`haibjckdlemfngohpiqjrksltmunvowpxqyrzs{t|u}v~wxyz{|}~1T2U3V4W5X6Y7Z8[9\:];^<_=`>a?b@cAdBeCfDgEhGPHOJQKRLSMTNUOVPWQXRYSZT[U\V]W^X_YaZb[c\d]e^f_g`haibjckdlemfngohpiqjrksltmunvowpxqyrzs{t|u}v~wxyz{|}~S YNrrY   Y Y V  Y  t Y t Y VId LValueObjectGuidObjectNameProperty Valuet Vt VtrsV t Vt VtrtV t Vt VtruV tYYYId$ObjectGuidProperty$ObjectNamePropertyrHv1b  q q q>YNww Y Y :Y  Y  HY tY VY V  Filter FlagsIdNamePosition SelectedObjectIDType Vt Vt wytV YIdv1cvwCustom ^Forms  w Vvxxx RY N{{  Y Y Y  Y @Y tY VY V  FlagsGroupCategoryIDIdName"Object Type GroupObjectIDPosition Vt Vt {}tV  Vt Vt {~tV YYGroupCategoryIDIdv1@ s z yL|O"   w  w  w  w  wCustom Group 162.*  w w w w w w w z @ | | | | ||||||||| z @ |||||||| | |  |  |  |  YNY Y Y Y   Y tY VY V  FlagsGroupIDIconIdNameObjectIDPositiont Vt VV tt Vt VV tYYGroupIDIdv1 (VyLk> ] 0  | O " n A  ` 3   R % qDc6 U(tGf9 X+wJi<x| ow{ ovz ouy otx osw orv~ oqu} opt| oos{ onrz omqy olpx okow ojnv oimu ohls ogkq ofjo oeim odhk ocgj obfh oaeg o`de o_cc o^ba o]a_ o\`] o[_[ oZ^Y oY]W oX\U oW[S oVZQ oUYO oTXM oSWK oQTH oPSF oORD oMPA oJM< oIL: oHK8 oFI5 oEH+ oDq oC! oBG4 oAF* o@ o>D) o=C( o<B' o;A& o:@% o9?$ o8># o7=" o6<! o5;  o4: o39 o28 o17 o o o o o o o o o  o  o  o  o  o  o  o  o o o o o(VyLk> ] 0  | O " n A  ` 3   R % qDc6 U(tGf9 X+wJi<v 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 o o o o o o o o o~ o} o| o{ oz~ oy} o1yLk> ] 0  | O " n A  ` 3   R % qDcF oE oD oC oB oA o@ o? o> o= o< o; o: o9 o8 o7 o6 o5 o o oU oQ oN oJ owV otO o ; o  o o4 o3 o2 o1 o0 o/ o. o- o, o+ o* o) o( o' o& o% o$ o# o oz o[ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ "%&-./012U      !"#$%&'()*+,-./0 !#$'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTU      !"#$%&'()*+,3456789:;<=>?@ABCDEFGHIJKLMNOPQRST      [ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @           123456789:;<= >!@"A#B$C%D&E'F(H)I*J+M,O-P.Q/S0T1U2V3W4X5Y6Z7[8\9]:^;_<`=a>b?c@dAeBfCgDhEiFjGkHlImJnKoLpMqNrOsPtQuRvSwTxUyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTU     ;tw !"#$%&'()*+,-./0RYNY  Y Y IdNameTypedv@xGIh=dA W "  X -  \ - M ] ]&wHzA@}N'h-0Q$dQRY_LatestHeightDate2.cQRY_LatestBP"bQRY_LatestBMI$ aQRY_Latest_BP_>Systolic/Diastolic2NJ`QRY_Latest_BP_>Systolic/DiastolicLH_QRY_Last_Visit_xx_days_AndUnderHD^QRY_Last_Visit_xx_Days_AndOverFB]QRY_Last_Visit_Date_InPeriodWithBPNJ\QRY_Last_Visit_Date0,[QRY_Last_Service_Date40ZQRY_HbA1c90DaysApart2.YQRY_ExerciseOver3InWeek84XqChosenDxWqActiveVisits$ VqActiveServicesLatest462UqActiveServicesLatest362TqActiveServicesLatest262SqActiveServicesLatest162RqActiveServices($QqActiveMed1 PqActiveMedOqActiveLabsLatest4.*NqActiveLabsLatest3.*MqActiveLabsLatest2.*LqActiveLabsLatest1.*KqActiveLabs JqActiveHealth1&"IqActiveHealth$ HqActiveDemo EMSysNavPaneObjectIDs2.>MSysNavPaneGroupToObjects<89MSysNavPaneGroups,(5MSysNavPaneGroupCategories>:0MSysAccessXML$ $MSysAccessObjects,(Gcqry_ServiceReferrals_InPeriodFBFcqry_Service_Referral_CompletedHDchange@UnionQuery1"rptWSC_Diabetes_Core_MeasuresD@rptWSC_APHS_Core_Measures<8rptTemprptSummaryDiabetes.*rptSummaryDepression2.report wizard$ Module1basUtils2basUtilsbasLinkedTables($basCommonFile$ basAutoexec  frmSplash frmReports frmListPatients($ frmCountPatients-criteria<8 frmCountPatients*&UserDefined SummaryInfo AccessLayout "SysRelScriptsReportsModulesFormsDataAccessPages($MSysRelationships,(MSysQueries MSysACEsMSysObjects MSysDbRelationships$ DatabasesTablesF4Ry4 Q P  e  l  e` Ps_s2o*oJqryMaxLabandResultInPeriod>:qryMaxHealthDateInPeriod:6qryLabs2qryLabsqryDiabetesLabsInPeriod84qryAge_65_AndOverWith_Pneumo_VaxJFQRY_SummaryDiabetes2_PCP:6QRY_SummaryDiabetes22.QRY_SummaryDiabetes12.QRY_SummaryDepression2_PCP>:QRY_SummaryDepression262QRY_SummaryDepression162QRY_SummaryAPHS2*&QRY_SummaryAPHS1*&QRY_SubstAbuseInPeriod62QRY_SmokersLastEvalDate84QRY_SmokersLastEval0,QRY_SmokersInPeriod0,qry_PHQ-CSD_1st_Followup_Visit_DatePLqry_PHQ-CSD_1st_Followup_PHQ_DateLHqry_PHQ_Min_Max_DateInPeriodB>qry_PHQ_Index_Date.*QRY_PHQ_FollowupAfterIndex>:qry_PHQ_Date_Result0,Qry_NextVisitDate,(QRY_ListPatientWithServiceAndLabJF~QRY_ListPatientWithServiceAndConditionVR}QRY_ListPatientWithNoServiceAndLabNJ|Qry_ListPatientWithDiabetes@<{Qry_ListPatientWithDepressionD@zQry_ListPatientWithConditionAndNotlabTPyQry_ListPatientWithConditionAndLabNJxQry_ListPatientWithConditionB>wQry_ListPatientReceiveServiceD@vQRY_ListPatientReceiveLabWithValue_>RNuQry_ListPatientReceiveLabwithValue_<RNtQRY_ListPatientReceiveLabWithValueNJsQRY_ListPatientReceiveLabWithLastValue2_>\XrQRY_ListPatientReceiveLabWithLastValue2_=\XqQRY_ListPatientReceiveLabWithLastValue2_<\XpQRY_ListPatientReceiveLabWithLastValue2XToQRY_ListPatientReceiveLab<8nQry_ListPatientOnMedWithConditionLHmQry_ListPatientOnMed2.lQry_ListPatientNotReceiveServiceJFkQRY_ListPatientNoServiceAndLabFBjQRY_ListPatientNoService:6iQRY_ListPatientNoLab2.hQRY_ListPatient_ServiceReferralStatusTPgQRY_LatestWeightDate2.fQRY_LatestVisitDate0,eQRY_LatestSmkeCess_Refer_Declined_Done_InPeriodhd+EU' D } D D s H  S  },M*[ )m&]6X'mHtlkpDefaults"tlkpCrosswalk$ tlkpClinictlkpCitytblVisitstblServices tblReportsTemp&"tblReportsSpecial,(tblReportsData&"tblReportstblQueriestblMedtblLabtblHealthtblDemotblCustomqUnduplicatedServiceCrosswalkD@qUnduplicatedRxCrosswalk:6qUnduplicatedPCP*&qUnduplicatedLabCrosswalk<8qUnduplicatedDxCrosswalk:6qSummary2qSummary1aqSummary1qsmSmokeCessationOfferedInPeriod1LHqsmSmokeAsmtCurrentEver2:6qsmSmokeAsmtCurrentEver1:6qsmSigmoidoscopyLast5yr_Over50FBqsmRxOrPsych"qsmPVacOver65Ever,(qsmPHQ4qsmPHQ2aqsmPHQ2qsmPHQ1qsmPapLast36Female18andOver@<qsmOralAntiCoagEndOfPeriod>:qsmMamLast30Female40andOver@<qsmMamAbnLast30Female40andOverFBqsmMamAbnDx qsmMajorDepresn($qsmFOBTLast1yr_Over5040qsmFemale40AndOver.*qsmFemale18AndOver.*qsmDysthymia"qsmDepressionTx1*&qsmCurrFunc3"qsmCurrFunc2"qsmCurrFunc qsmColorectalScrn5or10yr:6qsmColorectalScrn1yr2.qsmColonoscopyLast10yr_Over50D@qsmClopidogrelEndOfPeriod<8qsmASAEndOfPeriod,(qsmAntiplateletEndOfPeriod>:qsmAntidepressant2.*qsmAntidepressant1.*qryMinLabDateInPeriod262qryMinLabDateInPeriod40qryMaxServiceDateInPeriod<8qryMaxServiceDateAtEndOfPeriodFBqryMaxPapLastYear_InappropriateHDqryMaxMedDateInPeriod40qryMaxMammogramLast_2Years_InappropriateZVqryMaxMammogramLast_2Years>:qryMaxLabDateInPeriod262qryMaxLabDateInPeriod40qryMaxLabDate2&"qryMaxLabDate$ qryMaxLabandResultInPeriod2@<yV'tlkpVisitType$ tlkpStatusFlags($tlkpSetuptlkpPLanguage$ tlkpPCPtlkpInsurance$ tlkpGendertlkpEthnicity$ \LVAL%l( H & F R  r " fB^fZ"(((ActivePeriod([tblServices].[service_date],[tblServices].[service_date]))=True) AND ((ActiveClinic([tblServices].[clinic_code]))=True))(((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 ('none')qActiveLabsLatest2.raw_code In ('chol','ha1c','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 ('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))k @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @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 HKKKKKKK ELLL L L L L LLLL L L L L L L LMMMMMMMM M!MN"N$N%N&N'N(N)N *N +N ,N#O-O/O0O1O2O3O4O5O 6O 7O 8O.P9P;PP?P@PAPBP CP DP EP:QFQHQIQJQKQLQMQ Q Q QGRRRRRR R R R R R NL". z .  \ 2  N $ | R ( b  Ym+~3 Ja#FdF( XQe>!qActiveMed.raw_code In ('none')> gQe>qActiveMed.chart_number6 gQe>qActiveMed.clinic_code5 gQe>start_dateJ@"1%% oQe>qActiveMed%%% Qe> GQe> Qe> GP e>tblMed.raw_code. gP e>tblMed.chart_number2 gP e>tblMed.clinic_code1 gPe>8@! 'Pe>LastOfstart_dateLast(tblMed.start_date)V11 oPe>tblMed.raw_code. gPe>tblMed.chart_number2 gPe>tblMed.clinic_code1 gPe>tblMed Pe> GPe> GPe> Pe> GO e>qActiveLabsLatest1.raw_code: gO e>!qActiveLabsLatest1.chart_number> gO e> qActiveLabsLatest1.clinic_code= gOe>T@  'Oe>N@ gOe>!qActiveLabsLatest1.chart_number> gOe> qActiveLabsLatest1.clinic_code= gOe>LastOfresult!Last(qActiveLabsLatest1.result)V)) oOe>qActiveLabsLatest1555 Oe> GOe> Oe> GN e>qActiveLabsLatest2.raw_code: gN e>!qActiveLabsLatest2.chart_number> gN e> qActiveLabsLatest2.clinic_code= gNe>j@ gNe>!qActiveLabsLatest2.chart_number> gNe> qActiveLabsLatest2.clinic_code= gNe>H@ gNe>qActiveLabsLatest2555 Ne> GNe> Ne> GMe>b@ 'Me>N@ gMe>P@ gMe>L@ gMe>H@ gMe>P@ gMe>N@ gMe>qryMaxLabandResultInPeriod2GGG Me> Me> GL e>@ 'L e>p@ gL e>L@ gL e>P@ gL e>F@ gL e>N@ gL e>L@ gLe>L@ gLe>MaxOfservice_dateX@ ?33 oLe>resultP@ ) oLe>F@  gLe>N@  gLe>L@  gLe>qryMaxLabandResultInPeriodEEE Le> GLe> GLe> Le> GKe>@ 'Ke>L@ gKe>resultP@) oKe>F@ gKe>N@ gKe>L@ gG{<M  H  r / P \   a - \W;mwM^tJ We> GV e>!qActiveServicesLatest2.raw_code> gV e>F@l gV e>D@l gVe>\@l 'Ve>V@l gVe>F@l gVe>D@ l gVe>LastOfresultF@ l5)) oVe>qActiveServicesLatest2=== Ve> GVe> Ve> GU e>!qActiveServicesLatest2.raw_code> gU e>F@ l gU e>D@ l gUe>V@ l gUe>F@l gUe>D@l gUe>LastOfservice_date@lA55 oUe>qActiveServicesLatest2=== Ue> GUe> Ue> GTe>B@l 'Te>tblServicesqActiveServicesLatest1x@l_S' Te>tblServicesqActiveServicesLatest1v@l_S' Te>tblServicesqActiveServicesLatest1l@l_S' Te>tblServicesqActiveServicesLatest1|@l_S' Te>tblServicesqActiveServicesLatest1x@l_S' Te>tblServices.status_flag6 gTe>tblServices.service_date7 gTe>tblServices.result1 gTe>tblServices.raw_code3 gTe>tblServices.chart_number7 gTe>tblServices.clinic_code6 gTe>qActiveServicesLatest1=== Te>tblServices''' Te> GTe> GTe> Te> GS e>tblServices.status_flag6 gS e>tblServices.raw_code3 gS e>tblServices.chart_number7 gS e>tblServices.clinic_code6 gSe>@$ 'Se>tblServices.status_flag6 gSe>last_dateMax(tblServices.service_date)N## oSe>tblServices.raw_code3 gSe>tblServices.chart_number7 gSe>tblServices.clinic_code6 gSe>tblServices''' Se> GSe> GSe> Se> GRe>@# 'Re>tblServices.status_flag6 gRe>tblServices.result1 gRe>tblServices.raw_code3 gRe>tblServices.chart_number7 gRe>tblServices.clinic_code6 gRe>tblServices''' Re> GRe> GRe> Re> GQ e>qActiveMed.raw_code2 gQ e>qActiveMed.chart_number6 gQ e>qActiveMed.clinic_code5 gL wO {  M  g y O KI)F:eBA1~=F1@JG1@QRY_ListPatientWithSer~W٤@W٤@QRY_ListPatientWithServiceAndCondition"@ /zzznnnnnnnl @}٤@٤@QRY_ListPatientWithNoServiceAndLab"@ /rrrfffffffd @|٤@٤@Qry_ListPatientWithDiabetes"@/dddXXXXXXXV @{٤@٤@Qry_ListPatientWithDepression"@/hhh\\\\\\\Z @!y"م٤@UBO*@Qry_ListPatientWithConditionAndLab"@/@0~rrfffffffd @x"م٤@jQ)"*@Qry_ListPatientWithCondition"@/@0rffZZZZZZZX @wNd٤@_*@Qry_ListPatientReceiveService"@/@0thh\\\\\\\Z @vNd٤@Nd٤@QRY_ListPatientReceiveLabWithValue_>"@/vvvjjjjjjjh @u-٤@-٤@Qry_ListPatientReceiveLabwithValue_<"@ ,vvvjjjjjjjh @t-٤@-٤@QRY_ListPatientReceiveLabWithValue"@/rrrfffffffd @sʸ٤@i*@QRY_ListPatientReceiveLabWithLastValue2_>"@/@.tttttttr @!q٤@=Lc*@QRY_ListPatientReceiveLabWithLastValue2_<"@ ,@.tttttttr @p٤@٤@QRY_ListPatientReceiveLabWithLastValue2"'@,|||pppppppn @oiK٤@t;Ӽ*@QRY_ListPatientReceiveLab"@,@-l``TTTTTTTR @niK٤@b*@Qry_ListPatientOnMedWithCondition"@,@-|ppdddddddb @!l}٤@(F*@Qry_ListPatientNotReceiveService"@,@+znnbbbbbbb` @k}٤@l*@QRY_ListPatientNoServiceAndLab"@,@+vjj^^^^^^^\ @j|٤@|٤@QRY_ListPatientNoService"@,^^^RRRRRRRP @i|٤@|٤@QRY_ListPatientNoLab"@,VVVJJJJJJJH @h4:*@:L*@QRY_ListPatient_ServiceReferralStatus"P@,@+xxlllllllj @g|٤@S^@QRY_LatestWeightDate"w@)|@*bVVJJJJJJJH @f+{٤@@QRY_LatestVisitDate"@)|@*`TTHHHHHHHF @!d+{٤@+{٤@QRY_LatestHeightDate"@)VVVJJJJJJJH @cay٤@ay٤@QRY_LatestBP"-@)FFF:::::::8 @bay٤@$`@QRY_LatestBMI"@)@*THH<<<<<<<: @ax٤@ay٤@QRY_Latest_BP_>Systolic/Diastolic2"@)rrrfffffffd @`x٤@=*@QRY_Latest_BP_>Systolic/Diastolic"c@ '@&|ppdddddddb @_x٤@x٤@QRY_Last_Visit_xx_days_AndUnder"@ 'lll```````^ @b<o'W 4 y 1 `  o Q 3  % z=R`T h8k+hae>QRY_Last_Visit_Date_InPeriodWithBPtblVisits@osgU ae>tblVisits.bp_diastolic5 gae>tblVisits.bp_systolic4 gae>tblVisits.visit_date3 gae>tblDemo.chart_number3 gae>tblDemo.clinic_code2 gae>tblDemo ae>QRY_Last_Visit_Date_InPeriodWithBPUUU ae>tblVisits### ae> Gae> Gae> ae> G`e>H@o '`e>tblDemotblVisitsZ@o=1 `e>tblDemotblVisitsV@o=1 `e>QRY_Last_Visit_Date_InPeriodWithBPtblVisits@osgU `e>QRY_Last_Visit_Date_InPeriodWithBPtblVisits@ osgU `e>QRY_Last_Visit_Date_InPeriodWithBPtblVisits@ osgU `e> tblVisits.bp_diastolic5 g`e> tblVisits.bp_systolic4 g`e> tblVisits.visit_date3 g`e> tblDemo.phone1- g`e> tblDemo.zip* g`e>tblDemo.state, g`e>tblDemo.city+ g`e>tblDemo.address1/ g`e>tblDemo.first_name1 g`e>tblDemo.last_name0 g`e>tblDemo.chart_number3 g`e>tblDemo.clinic_code2 g`e>tblDemo `e>QRY_Last_Visit_Date_InPeriodWithBPUUU `e>tblVisits### `e> G`e>diastolic### O`e>systolic!!! O`e> G`e> `e> G_ e> QRY_Last_Visit_Date.Phone29 g_ e> QRY_Last_Visit_Date.Phone19 g_ e> QRY_Last_Visit_Date.ZipCode: g_ e> QRY_Last_Visit_Date.State8 g_ e>QRY_Last_Visit_Date.City7 g_ e>QRY_Last_Visit_Date.Address2; g_ e>QRY_Last_Visit_Date.Address1; g_ e>QRY_Last_Visit_Date.FirstName< g_ e>QRY_Last_Visit_Date.LastName; g_ e>B@ o g_ e>"QRY_Last_Visit_Date.chart_number? g_ e>!QRY_Last_Visit_Date.clinic_code> g_e> QRY_Last_Visit_Date.Phone29 g_e> QRY_Last_Visit_Date.Phone19 g_e> QRY_Last_Visit_Date.ZipCode: g_e> QRY_Last_Visit_Date.State8 g_e>QRY_Last_Visit_Date.City7 g_e>QRY_Last_Visit_Date.Address2; g_e>QRY_Last_Visit_Date.Address1; g_e>QRY_Last_Visit_Date.FirstName< gk @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @[m2[m3[m4[m5[m6[m7[m8[m9[ m:[ m;[ m<[ m=[ m>[ m?[ m@[m*\mA\mC\mD\mE\mF\n\n\n\n\n\n\n\n\ n\ n \ n \ n \n \n \n\ n\ n\ n\ n\ n\ n\ n\ n\  n\  n\  n\mB]n]n]n]n]n]n ]n!]n"]n#]n$]n%] n&] n']n^n(^n*^n+^n,^n-^n.^n/^n0^n1^n2^n3^n4^n5^ n6^n7^n8^n9^n)_n:_n<_n=_n>_n?_n@_nA_nB_____ _ _ _ _ _  _  _  _  _  _ _ _  _  _  _  _n;```````````` `!`"`#`$` %` &` '` (`)`*`+`,`-`.`a/a1a2a3a4a5a6a7a8a9a:a;aaaaaa0bbbb b b b b bbbbbbbbbbbbbbb b bcc c!c"c#c$c%c&cd'd)d*d+d,d-d.d/d 0d 1d(e2e4e5e6e7e8e9e:e ;e AlB$ n ( ]  s ; {  O 'W9}S)iK5 jL.Us/fe> Gfe> fe> Ge e>@ 'e e>tblServices.chart_number7 ge e>tblServices.clinic_code6 gee>@ 'ee>Smke_cess_ref_dec_doneMax(tblServices.service_date)h== oee>tblServices.chart_number7 gee>tblServices.clinic_code6 gee>tblServices''' ee> Gee> Gee> ee> Gd e>tblVisits.chart_number5 gd e>tblVisits.clinic_code4 gde>@ 'de>MaxOfvisit_dateMax(tblVisits.visit_date)V// ode>tblVisits.chart_number5 gde>tblVisits.clinic_code4 gde>tblVisits### de> Gde> Gde> de> Gce>bpH@ ! oce>bp_date^@ + oce>b@  gce>`@  gce>QRY_Latest_BP_>Systolic/Diastolic2UUU ce> Gce> Gce> ce> Gbe> QRY_LatestHeightDatetblVisits_1z@ [O9 be> QRY_LatestHeightDatetblVisits_1x@[O9 be>QRY_LatestHeightDatetblVisits_1t@[O9 be>tblDemoQRY_LatestHeightDatep@SG be>tblDemoQRY_LatestHeightDatel@SG be>QRY_LatestWeightDatetblVisitsv@WK9 be>QRY_LatestWeightDatetblVisitst@WK9 be>QRY_LatestWeightDatetblVisitsp@WK9 be>tblDemoQRY_LatestWeightDatep@SG be>tblDemoQRY_LatestWeightDatel@SG be>Wt_dateH@o+ obe>BMI@o# obe>tblVisits_1.height1 gbe>tblVisits.weight/ gbe>tblDemo.chart_number3 gbe>tblDemo.clinic_code2 gbe>QRY_LatestHeightDate999 be>tblVisitstblVisits_199# be>QRY_LatestWeightDate999 be>tblVisits### be>tblDemo be> Gbe> Gbe> be> Gae>@o 'ae>tblDemotblVisitsZ@o=1 ae>tblDemotblVisitsV@o=1 ae>QRY_Last_Visit_Date_InPeriodWithBPtblVisits@osgU ae>QRY_Last_Visit_Date_InPeriodWithBPtblVisits@osgU LVAL$@ ^ z  ( h 8 $:l v0FDcqry_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_datecqry_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) AND ((ActivePeriod([visit_date],[visit_date]))=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_code @ @ @ @ @ @ @ @ @ @ @ @ @ @f@ffffffffff f  f f  f  f?ggggggggg g ghhhhhhh h!h"h#h$h%h&h'h(h)h*h+h,h -h .h /h 0h 1h 2h 3hi4i6i7i8i9i:i;il?l@lAlll l lll l l l  l  l  l  l  l  l  l  l  l  l l7mmmmmmmmmmmm m!m"m #m $m %m&m'm(m)m *m +m ,m -m .m /m 0m 1m  2m  3m  4mn5n7n8n9n:n;nn?n@nAnBn n n nnn n n n n  n  n  n  n   n  n67>q/k 9 Y  | ^ . H  } _ A # m5 c9k#W-sU7 {<ie>tblDemo.first_name1 gie>tblDemo.last_name0 gie>tblDemo.clinic_code2 gie>tblDemo.chart_number3 gie>QRY_ListPatientReceiveLabCCC ie>tblDemo ie> Gie> Gie> ie> Gh e>R@  gh e>X@ gh e>N@ gh e>D@ gh e>F@ gh e>V@ gh e>T@ ghe>@ 'he>tlkpCrosswalkcqry_ServiceReferrals_InPeriod@sg+ he>cqry_ServiceReferrals_InPeriodcqry_Service_Referral_Completed@M he>cqry_ServiceReferrals_InPeriodcqry_Service_Referral_Completed@M he>cqry_ServiceReferrals_InPeriodcqry_Service_Referral_Completed@M he>cqry_ServiceReferrals_InPeriodcqry_Service_Referral_Completed@M he>R@ ghe>X@ ghe>N@ ghe>D@ ghe>F@ ghe>V@ ghe>T@ ghe>tlkpCrosswalk+++ he>cqry_ServiceReferrals_InPeriodMMM he>cqry_Service_Referral_CompletedOOO he> Ghe> Ghe> he> Gg e>tblVisits.chart_number5 gg e>tblVisits.clinic_code4 gge>@ 'ge>MaxOfvisit_dateMax(tblVisits.visit_date)V// oge>tblVisits.chart_number5 gge>tblVisits.clinic_code4 gge>tblVisits### ge> Gge> Gge> ge> Gf e>tblVisits.chart_number5 gf e>tblVisits.clinic_code4 gfe>d@ 'fe> CountOfOtherVisits@A55 ofe>CountOfLabVisitsSum(IIf([type_visit]='l',1))[11 ofe>CountOfPhoneVisitsSum(IIf([type_visit]='p',1))_55 ofe>CountOfVisitsSum(IIf([type_visit]='o',1))U++ ofe>NextVisitDate Max(tblVisits.next_visit_date)W++ ofe>FirstVisitDateMin(tblVisits.visit_date)T-- ofe>LatestVisitDateMax(tblVisits.visit_date)V// ofe>tblVisits.chart_number5 gfe>tblVisits.clinic_code4 gfe>tblVisits### fe> GLVAL"HD T  j  (   bDz4&T (((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_numbertblDemo.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_date(BP< l N 0  l - v :  X t J ,  4 b8 xNp$(l.le>tblDemo.city+ gle>tblDemo.address1/ gle>tblDemo.first_name1 gle>tblDemo.last_name0 gle>tblDemo.chart_number3 gle>tblDemo.clinic_code2 gle>Qry_ListPatientReceiveServiceKKK le>tblDemo le> Gle> Gle> le> Gk e> "QRY_ListPatientReceiveLab.phone1? gk e>QRY_ListPatientReceiveLab.zip< gk e>!QRY_ListPatientReceiveLab.state> gk e> QRY_ListPatientReceiveLab.city= gk e>D@ gk e>H@ gk e>F@ gk e>L@ gk e>J@ gke>QRY_ListPatientReceiveLabQRY_ListPatientNoService@sC ke>QRY_ListPatientReceiveLabQRY_ListPatientNoService@sC ke> "QRY_ListPatientReceiveLab.phone1? gke>QRY_ListPatientReceiveLab.zip< gke>!QRY_ListPatientReceiveLab.state> gke> QRY_ListPatientReceiveLab.city= gke>D@ gke>H@ gke>F@ gke>L@ gke>J@ gke>QRY_ListPatientNoServiceAAA ke>QRY_ListPatientReceiveLabCCC ke> Gke> Gke> ke> Gje>p@ 'je>tblDemoQry_ListPatientReceiveService@eY je>tblDemoQry_ListPatientReceiveService~@ eY je> tblDemo.phone1- gje> tblDemo.zip* gje>tblDemo.state, gje>tblDemo.city+ gje>tblDemo.address2/ gje>tblDemo.address1/ gje>tblDemo.first_name1 gje>tblDemo.last_name0 gje>tblDemo.clinic_code2 gje>tblDemo.chart_number3 gje>Qry_ListPatientReceiveServiceKKK je>tblDemo je> Gje> Gje> je> Gie> @  'ie>tblDemoQRY_ListPatientReceiveLabz@ ]Q ie>tblDemoQRY_ListPatientReceiveLabv@ ]Q ie> tblDemo.phone1- gie> tblDemo.zip* gie>tblDemo.state, gie>tblDemo.city+ gie>tblDemo.address2/ gie>tblDemo.address1/ gCV;  A  ] # n D &  j > D  `&ADMk%p^;ne>Qry_ListPatientOnMed.zip7 gne>Qry_ListPatientOnMed.state9 gne>Qry_ListPatientOnMed.city8 gne>Qry_ListPatientOnMed.address1< gne>!Qry_ListPatientOnMed.first_name> gne> Qry_ListPatientOnMed.last_name= gne>B@ gne>"Qry_ListPatientOnMed.clinic_code? gne>Qry_ListPatientOnMed999 ne>Qry_ListPatientWithConditionIII ne> Gne> Gne> ne> Gm e> tblMed.start_date0 gm e> tlkpCrosswalk.working_code9 gm e> tblDemo.phone1- gm e> tblDemo.zip* gm e>tblDemo.state, gm e>tblDemo.city+ gm e>tblDemo.address1/ gm e>tblDemo.first_name1 gm e>tblDemo.last_name0 gm e>tblDemo.chart_number3 gm e>tblDemo.clinic_code2 gme>@ 'me>tlkpCrosswalktblMedP@C7+ me>tblDemotblMedT@7+ me>tblDemotblMedP@7+ me> Rx_start_datetblMed.start_dateJ++ ome> RxtlkpCrosswalk.working_code= ome> tblDemo.phone1- gme> tblDemo.zip* gme>tblDemo.state, gme>tblDemo.city+ gme>tblDemo.address1/ gme>tblDemo.first_name1 gme>tblDemo.last_name0 gme>tblDemo.chart_number3 gme>tblDemo.clinic_code2 gme>tblDemo me>tlkpCrosswalk+++ me>tblMed me> Gme> Gme> me> Gl e>z@! 'l e> @  gl e> J@ gl e> T@ gl e> tblDemo.pcp* gl e> tblDemo.phone1- gl e> tblDemo.zip* gl e>tblDemo.state, gl e>tblDemo.city+ gl e>tblDemo.address1/ gl e>tblDemo.first_name1 gl e>tblDemo.last_name0 gl e>tblDemo.chart_number3 gl e>tblDemo.clinic_code2 gle>tblDemoQry_ListPatientReceiveService~@eY le>tblDemoQry_ListPatientReceiveService@eY le> tblDemo.pcp* gle> tblDemo.phone1- gle> tblDemo.zip* gle>tblDemo.state, gLVAL\  > d D " T\ |zqryMaxLabandResultInPeriod2.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))ActiveClinic([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 AvL8 x - Y  a C %  [  K `)ImE{<E cuW9pe>tlkpCrosswalk+++ pe>tblDemo pe> Gpe> Gpe> pe> Go e>@ 'o e> H@ go e> z@ go e> P@ go e> tlkpCrosswalk.working_code9 go e> tblDemo.phone1- go e> tblDemo.zip* go e>tblDemo.state, go e>tblDemo.city+ go e>tblDemo.address1/ go e>tblDemo.first_name1 go e>tblDemo.last_name0 go e>tblDemo.chart_number3 go e>tblDemo.clinic_code2 goe>@ 'oe>tlkpCrosswalktblLabT@C7+ oe>tlkpCrosswalktblLabP@C7+ oe>tblDemotblLabT@7+ oe>tblDemotblLabP@7+ oe>tlkpCrosswalktblLabT@C7+ oe>tlkpCrosswalktblLabP@C7+ oe>tblDemoqryMaxLabandResultInPeriod2~@ aU oe>tblDemoqryMaxLabandResultInPeriod2z@ aU oe> resultX@ ) ooe> P@  goe> tlkpCrosswalk.working_code9 goe> tblDemo.phone1- goe> tblDemo.zip* goe>tblDemo.state, goe>tblDemo.city+ goe>tblDemo.address1/ goe>tblDemo.first_name1 goe>tblDemo.last_name0 goe>tblDemo.chart_number3 goe>tblDemo.clinic_code2 goe>qryMaxLabandResultInPeriod2GGG oe>tblLab oe>tblDemo oe>tlkpCrosswalk+++ oe> Goe> Goe> oe> Gn e> D@  gn e> Qry_ListPatientOnMed.Rx6 gn e> Qry_ListPatientOnMed.phone1: gn e>Qry_ListPatientOnMed.zip7 gn e>Qry_ListPatientOnMed.state9 gn e>Qry_ListPatientOnMed.city8 gn e>Qry_ListPatientOnMed.address1< gn e>!Qry_ListPatientOnMed.first_name> gn e> Qry_ListPatientOnMed.last_name= gn e>B@ gn e>"Qry_ListPatientOnMed.clinic_code? gne>Qry_ListPatientOnMedQry_ListPatientWithCondition@}q9 ne>Qry_ListPatientOnMedQry_ListPatientWithCondition@}q9 ne> D@ gne> Qry_ListPatientOnMed.Rx6 gne> Qry_ListPatientOnMed.phone1: g @ @ @ @ @ @ @ @ @ @ @ @ @ @k+k,k -k .k /k 0k 1k 2k 3k 4k  5kl6l8l9l:l;ll?l@lAlll l lll l l l  l  l  l  l  l  l  l  l  l  l l7mmmmmmmmmmmm m!m"m #m $m %m&m'm(m)m *m +m ,m -m .m /m 0m 1m  2m  3m  4mn5n7n8n9n:n;nn?n@nAnBn n n nnn n n n n  n  n  n  n   n  n  n6oooooooooooooooo  o !o "o #o$o%o&o'o(o)o*o+o,o -o .o /o 0o 1o 2o 3o 4o  5o  6o  7o  8o  9o :op;p=p>p?p@pppppppppp  p  p  p  p  ppppp p p p p p p p p  p  p  p  pm-T b ( u   v 9 K  g=a Qf/f*t5z>q e> tblDemo.zip* gq e>tblDemo.state, gq e>tblDemo.city+ gq e>tblDemo.address1/ gq e>tblDemo.first_name1 gq e>tblDemo.last_name0 gq e>tblDemo.chart_number3 gq e>tblDemo.clinic_code2 gqe>@ 'qe>qryMaxLabandResultInPeriod2tlkpCrosswalkz@maG qe>tblDemoqryMaxLabandResultInPeriod2~@aU qe>tblDemoqryMaxLabandResultInPeriod2z@aU qe> resultX@) oqe> last_dateP@/## oqe> labtlkpCrosswalk.working_code? oqe> pcpLast(tblDemo.pcp)6 oqe> tblDemo.phone1- gqe> tblDemo.zip* gqe>tblDemo.state, gqe>tblDemo.city+ gqe>tblDemo.address1/ gqe>tblDemo.first_name1 gqe>tblDemo.last_name0 gqe>tblDemo.chart_number3 gqe>tblDemo.clinic_code2 gqe>qryMaxLabandResultInPeriod2GGG qe>tlkpCrosswalk+++ qe>tblDemo qe> Gqe> Gqe> qe> Gp e> L@ gp e> tblDemo.phone2- gp e> tblDemo.phone1- gp e> tblDemo.zip* gp e>tblDemo.state, gp e>tblDemo.city+ gp e>tblDemo.address2/ gp e>tblDemo.address1/ gp e>tblDemo.first_name1 gp e>tblDemo.last_name0 gp e>tblDemo.chart_number3 gp e>tblDemo.clinic_code2 gpe>h@ 'pe>qryMaxLabandResultInPeriod2tlkpCrosswalkz@maG pe>tblDemoqryMaxLabandResultInPeriod2~@aU pe>tblDemoqryMaxLabandResultInPeriod2z@aU pe> L@ gpe> LastOfpcpLast(tblDemo.pcp)B## ope> tblDemo.phone2- gpe> tblDemo.phone1- gpe> ZipCode tblDemo.zip8 ope>tblDemo.state, gpe>tblDemo.city+ gpe>tblDemo.address2/ gpe>tblDemo.address1/ gpe>FirstNametblDemo.first_nameC## ope>LastNametblDemo.last_name@!! ope>tblDemo.chart_number3 gpe>tblDemo.clinic_code2 gpe>qryMaxLabandResultInPeriod2GGG LVALL * 2 b  |,ZbJdBtblDemo.chart_number = qryMaxLabandResultInPeriod2.chart_numbertblDemo.clinic_code = qryMaxLabandResultInPeriod2.clinic_codeLast(qryMaxLabandResultInPeriod2.result_any)qryMaxLabandResultInPeriod2.service_dateqryMaxLabandResultInPeriod2.raw_codeqryMaxLabandResultInPeriod2.status_flagqryMaxLabandResultInPeriod2.service_dateqryMaxLabandResultInPeriod2.raw_code(((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])) @ @ @ @ @ @ @ @ @ @ @ @ @ @n6oooooooooooooooo  o !o "o #o$o%o&o'o(o)o*o+o,o -o .o /o 0o 1o 2o 3o 4o  5o  6o  7o  8o  9o :op;p=p>p?p@pppppppppp  p  p  p  p  ppppp p p p p p p p p  p  p  p  ps?s @s As Bs s s s s s  s  s  s  s)t t t t ttttttttttt t t t ttttt  t CV,P } @  U  q 5 #  @ Ig=qE z:K^4 f~Ts e>tblDemo.last_name0 gs e>tblDemo.chart_number3 gs e>tblDemo.clinic_code2 gse>@ 'se>qryMaxLabandResultInPeriod2tlkpCrosswalkz@maG se>tblDemoqryMaxLabandResultInPeriod2~@aU se>tblDemoqryMaxLabandResultInPeriod2z@aU se> resultX@) ose> P@ gse> H@ gse> pcpLast(tblDemo.pcp)6 ose> tblDemo.phone1- gse> tblDemo.zip* gse>tblDemo.state, gse>tblDemo.city+ gse>tblDemo.address1/ gse>tblDemo.first_name1 gse>tblDemo.last_name0 gse>tblDemo.chart_number3 gse>tblDemo.clinic_code2 gse>qryMaxLabandResultInPeriod2GGG se>tlkpCrosswalk+++ se>tblDemo se> Gse> Gse> se> Gr e> N@ gr e> P@ gr e> H@ gr e> tblDemo.phone1- gr e> tblDemo.zip* gr e>tblDemo.state, gr e>tblDemo.city+ gr e>tblDemo.address1/ gr e>tblDemo.first_name1 gr e>tblDemo.last_name0 gr e>tblDemo.chart_number3 gr e>tblDemo.clinic_code2 gre>@ 're>qryMaxLabandResultInPeriod2tlkpCrosswalkz@maG re>tblDemoqryMaxLabandResultInPeriod2~@aU re>tblDemoqryMaxLabandResultInPeriod2z@ aU re> resultX@ ) ore> last_dateP@ /## ore> labH@ # ore> pcpLast(tblDemo.pcp)6 ore> tblDemo.phone1- gre> tblDemo.zip* gre>tblDemo.state, gre>tblDemo.city+ gre>tblDemo.address1/ gre>tblDemo.first_name1 gre>tblDemo.last_name0 gre>tblDemo.chart_number3 gre>tblDemo.clinic_code2 gre>qryMaxLabandResultInPeriod2GGG re>tlkpCrosswalk+++ re>tblDemo re> Gre> Gre> re> Gq e> N@  gq e> P@ gq e> tlkpCrosswalk.working_code9 gq e> tblDemo.phone1- gLVAL$ t $ ( ~ , D `Dpn|4PVQry_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.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_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_code RNzP& R  r H  v L " 4 l B  pFbD&h>lBp 8f<j@ve> Gve> ve> Gu e> L@ gu e> L@ gu e> N@ gu e> J@ gu e>H@ gu e>P@ gu e>P@ gu e>R@ gu e>P@ gu e>Z@ gu e>X@ gu e>V@  gue>@  'ue>Qry_Last_Visit_xx_days_AndUndertblLab@ g[O ue>Qry_Last_Visit_xx_days_AndUndertblLab@ g[O ue>tlkpCrosswalktblLabP@ C7+ ue> L@ gue> L@ gue> N@ gue> J@ gue>H@ gue>P@ gue>P@ gue>R@ gue>P@ gue>Z@# gue>X@" gue>V@! gue>tblLab ue>tlkpCrosswalk+++ ue>Qry_Last_Visit_xx_days_AndUnderOOO ue> Gue> Gue> ue> Gt e> L@  gt e> L@ gt e> N@ gt e> J@ gt e>H@ gt e>P@ gt e>P@ gt e>R@ gt e>P@ gt e>Z@ gt e>X@ gt e>V@ gte>@ 'te>Qry_Last_Visit_xx_days_AndUndertblLab@g[O te>Qry_Last_Visit_xx_days_AndUndertblLab@g[O te>tlkpCrosswalktblLabP@C7+ te> L@ gte> L@ gte> N@ gte> J@  gte>H@  gte>P@  gte>P@  gte>R@  gte>P@ gte>Z@ gte>X@ gte>V@ gte>tblLab te>tlkpCrosswalk+++ te>Qry_Last_Visit_xx_days_AndUnderOOO te> Gte> Gte> te> Gs e> N@ gs e> P@ gs e> H@ gs e> tblDemo.phone1- gs e> tblDemo.zip* gs e>tblDemo.state, gs e>tblDemo.city+ gs e>tblDemo.address1/ gs e>tblDemo.first_name1 g @ @ @ @ @ @ @ @ @ @ @ @ @ @q 9q :q ;q s?s @s As Bs s s s s s  s  s  s  s)t t t t ttttttttttt t t t ttttt  t !t "t #t $t %t &t 't  (t  )t  *t  +t u,u.u/u0u1u2u3u4u5u6u7u8u9u:u ;u u?u@uAuBu Cu Du Eu Fu Gu Hu Iu Ju  Ku  Lu  Mu  Nu-vOvQvvvvvvvvvv v v v  v  v v vvvvv v v v v v v v v  v  v  vPww!w"w#w$w%w&w'w(w)w*w+w,w-w .w /w 0w1w2w3w4w5w 6w 7w 8w LVAL"^v, F v H L d4:*rJ(((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_code(((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.LastName BR6 M  * L " f ( x ?  vX:ENl&Fh)n2P w e> @ gw e> tblServices.service_date7 gw e> tlkpCrosswalk.working_code9 gw e> tblDemo.phone1- gw e> tblDemo.zip* gw e>tblDemo.state, gw e>tblDemo.city+ gw e>tblDemo.address1/ gw e>tblDemo.first_name1 gw e>tblDemo.last_name0 gw e>tblDemo.chart_number3 gw e>tblDemo.clinic_code2 gwe>p@! 'we>tlkpCrosswalktblServices^@ MA+ we>tlkpCrosswalktblServicesZ@MA+ we>tblDemotblServices^@A5 we>tblDemotblServicesZ@A5 we> tblServices.service_date7 gwe> tlkpCrosswalk.working_code9 gwe> tblDemo.phone1- gwe> tblDemo.zip* gwe>tblDemo.state, gwe>tblDemo.city+ gwe>tblDemo.address1/ gwe>tblDemo.first_name1 gwe>tblDemo.last_name0 gwe>tblDemo.chart_number3 gwe>tblDemo.clinic_code2 gwe>tblServices''' we>tblDemo we>tlkpCrosswalk+++ we> Gwe> Gwe> we> Gv e> tblDemo.phone2- gv e> tblDemo.phone1- gv e> tblDemo.zip* gv e>tblDemo.state, gv e>tblDemo.city+ gv e>tblDemo.address2/ gv e>tblDemo.address1/ gv e>tblDemo.first_name1 gv e>tblDemo.last_name0 gv e>tblDemo.chart_number3 gv e>tblDemo.clinic_code2 gve>@ 've>qryLabstlkpCrosswalkR@E9 ve>tblDemoqryLabsV@9- ve>tblDemoqryLabsR@9- ve> MaxOfresult_numberMax(qryLabs.result_number)]55 ove> tblDemo.phone2- gve> tblDemo.phone1- gve> ZipCode tblDemo.zip8 ove>tblDemo.state, gve>tblDemo.city+ gve>tblDemo.address2/ gve>tblDemo.address1/ gve>FirstNametblDemo.first_nameC## ove>LastNametblDemo.last_name@!! ove>tblDemo.chart_number3 gve>tblDemo.clinic_code2 gve>tlkpCrosswalk+++ ve>qryLabs ve>tblDemo ve> G @ @ @ @ @ @ @ @ @ @ @ @ @ @t "t #t $t %t &t 't  (t  )t  *t  +t u,u.u/u0u1u2u3u4u5u6u7u8u9u:u ;u u?u@uAuBu Cu Du Eu Fu Gu Hu Iu Ju  Ku  Lu  Mu  Nu-vOvQvvvvvvvvvv v v v  v  v v vvvvv v v v v v v v v  v  v  vPww!w"w#w$w%w&w'w(w)w*w+w,w-w .w /w 0w1w2w3w4w5w 6w 7w 8w 9w :w ;w w  ?w  @w  Aw  w w xxxxxxx x x x x xxxxx x x xxxxx x x x x x x x  x  !x  "x  #xy$y&y'y(y)y*y+y,y-y.y/y0y1y 2y 3y 4y 5y6y7y 8y 9y :y ;y y ?y  @y  Ay  By  y%zzzzzzzz z z z z zz zzz z z z z z z z z  z{{{LVAL"r  ^  X  | 4 X~8`r&L(BQry_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_nameQry_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])CpRl< B  ^ $ 6 l - r 6 TtV\2I`nD<y e> L@ gy e> L@ gy e> "QRY_ListPatientReceiveLab.phone1? gy e>QRY_ListPatientReceiveLab.zip< gy e>!QRY_ListPatientReceiveLab.state> gy e> QRY_ListPatientReceiveLab.city= gy e>D@ gy e>H@ gy e>F@ gy e>L@ gy e>J@ gye>QRY_ListPatientReceiveLabQry_ListPatientWithCondition@{C ye>QRY_ListPatientReceiveLabQry_ListPatientWithCondition@{C ye> "QRY_ListPatientReceiveLab.result? gye> L@  gye> L@  gye> "QRY_ListPatientReceiveLab.phone1? gye>QRY_ListPatientReceiveLab.zip< gye>!QRY_ListPatientReceiveLab.state> gye> QRY_ListPatientReceiveLab.city= gye>D@  gye>H@  gye>F@  gye>L@ gye>J@ gye>Qry_ListPatientWithConditionIII ye>QRY_ListPatientReceiveLabCCC ye> Gye> Gye> ye> Gx e> tblHealth.start_date3 gx e> tlkpCrosswalk.working_code9 gx e> tblDemo.phone1- gx e> tblDemo.zip* gx e>tblDemo.state, gx e>tblDemo.city+ gx e>tblDemo.address1/ gx e>tblDemo.first_name1 gx e>tblDemo.last_name0 gx e>tblDemo.chart_number3 gx e>tblDemo.clinic_code2 gxe>@ 'xe>tlkpCrosswalktblHealthV@I=+ xe>tblDemotblHealthZ@=1 xe>tblDemotblHealthV@=1 xe> Dx_start_datetblHealth.start_dateM++ oxe> DxtlkpCrosswalk.working_code= oxe> tblDemo.phone1- gxe> tblDemo.zip* gxe>tblDemo.state, gxe>tblDemo.city+ gxe>tblDemo.address1/ gxe>tblDemo.first_name1 gxe>tblDemo.last_name0 gxe>tblDemo.chart_number3 gxe>tblDemo.clinic_code2 gxe>tblHealth### xe>tblDemo xe>tlkpCrosswalk+++ xe> Gx e>[Forms]![frmReports]![cmbCondition]WWW Oxe> Gxe> xe> Gw e>@ 'w e> R@ gGxZ<vL" z .  z r H  ~ T 6  x @  e7D@"O;q2dF( }e>QRY_ListPatientReceiveLabCCC }e> G}e> G}e> }e> G| e>tlkpCrosswalk.working_code9 g| e>@ g| e>tblDemo.chart_number3 g| e>tblDemo.clinic_code2 g|e>@ '|e>tlkpCrosswalktblHealthV@I=+ |e>tblDemotblHealthZ@=1 |e>tblDemotblHealthV@ =1 |e>tlkpCrosswalk.working_code9 g|e>type_diabetes@ 7++ o|e>tblDemo.chart_number3 g|e>tblDemo.clinic_code2 g|e>tblHealth### |e>tblDemo |e>tlkpCrosswalk+++ |e> G| e>[Forms]![frmReports]![cmbCondition]WWW O|e> G|e> |e> G{ e>tlkpCrosswalk.working_code9 g{ e>tblDemo.chart_number3 g{ e>tblDemo.clinic_code2 g{e>0@  '{e>tblDemotblHealthZ@ =1 {e>tblDemotblHealthV@ =1 {e>tlkpCrosswalktblHealthV@I=+ {e>tlkpCrosswalk.working_code9 g{e>type_depression^@;// o{e>tblDemo.chart_number3 g{e>tblDemo.clinic_code2 g{e>tblHealth### {e>tblDemo {e>tlkpCrosswalk+++ {e> G{ e>[Forms]![frmReports]![cmbCondition]WWW O{e> G{e> {e> Gz e> F@ gz e>"Qry_ListPatientWithCondition.zip? gz e>D@ gz e>B@ gz e>J@ gz e>N@ gz e>L@ gz e>R@ gz e>P@! gze>Qry_ListPatientWithConditionqry_ListPatientNoLab@ }qI ze>Qry_ListPatientWithConditionqry_ListPatientNoLab@}qI ze> F@ gze>"Qry_ListPatientWithCondition.zip? gze>D@ gze>B@ gze>J@ gze>N@ gze>L@ gze>R@ gze>P@ gze>qry_ListPatientNoLab999 ze>Qry_ListPatientWithConditionIII ze> Gze> Gze> ze> Gy e> "QRY_ListPatientReceiveLab.result? gLVALbD J jrln"P QRY_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")(((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_number @ @ @ @ @ @ @ @ @ @ @ @ @ @w :w ;w w  ?w  @w  Aw  w w xxxxxxx x x x x xxxxx x x xxxxx x x x x x x x  x  !x  "x  #xy$y&y'y(y)y*y+y,y-y.y/y0y1y 2y 3y 4y 5y6y7y 8y 9y :y ;y y ?y  @y  Ay  By  y%zzzzzzzz z z z z zz zzz z z z z z z z z  z{{{{{ {!{"{#{${%{&{'{({){*{ +{ ,{ -{|.|0|1|2|3|4|5|6|7|8|9|:|;|<|=| >| ?| @| A|/}B}D}E}F}}}}}}}}}}  }  }  } } } } } } } } } } }  }  }  }C~~~~~~~ ~!~"~#~$~%~&~ '~ (~ )~*~+~ ,~ -~ .~ /~ 0~ 1~ 2~ 3~  4~  5~  6~79:;<=>?@8?D^$J \  z P & g  h J ,  `6 lBb*X.\> <j e>!QRY_ListPatientReceiveLab.state> ge> QRY_ListPatientReceiveLab.city= ge>D@$ ge>H@# ge>F@" ge>L@! ge>J@  ge>Qry_ListPatientReceiveServiceKKK e>QRY_ListPatientReceiveLabCCC e> Ge> Ge> e> G~ e> H@ g~ e> H@ g~ e> B@ g~ e>F@ g~ e>D@ g~ e>L@ g~ e>L@ g~ e>P@ g~ e>N@ g~ e>T@ g~ e>R@ g~e>Qry_ListPatientReceiveServiceQry_ListPatientWithCondition@K ~e>Qry_ListPatientReceiveServiceQry_ListPatientWithCondition@K ~e> H@ g~e> H@ g~e> ZipCodeB@+ o~e>F@ g~e>D@ g~e>L@  g~e>L@  g~e>FirstNameP@ /## o~e>LastNameN@ -!! o~e>T@  g~e>R@ g~e>Qry_ListPatientReceiveServiceKKK ~e>Qry_ListPatientWithConditionIII ~e> G~e> G~e> ~e> G} e> "QRY_ListPatientReceiveLab.phone2? g} e> "QRY_ListPatientReceiveLab.phone1? g} e> QRY_ListPatientReceiveLab.zip< g} e>!QRY_ListPatientReceiveLab.state> g} e> QRY_ListPatientReceiveLab.city= g} e>D@ g} e>D@ g} e>H@ g} e>F@ g} e>L@ g} e>J@ g}e>QRY_ListPatientReceiveLabqry_ListPatientNoService@sC }e>QRY_ListPatientReceiveLabqry_ListPatientNoService@sC }e> "QRY_ListPatientReceiveLab.phone2? g}e> "QRY_ListPatientReceiveLab.phone1? g}e> ZipCodeQRY_ListPatientReceiveLab.zipJ o}e>!QRY_ListPatientReceiveLab.state> g}e> QRY_ListPatientReceiveLab.city= g}e>D@ g}e>D@ g}e>FirstNameH@/## o}e>LastNameF@-!! o}e>L@ g}e>J@ g}e>qry_ListPatientNoServiceAAA LVAL,f6 d z , D x 0 @ BPt.\8RbDQRY_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_codeQRY_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_numberl%iNm { ] { wK * < JFH@nEI]CEAAH1@H1@qryMaxServiceDateInPeriodRRRRRRRRRRR7٤@7٤@qryMaxServiceDateInPeriod"@ <```TTTTTTTR @6¡٤@¡٤@qryMaxPapLastYear_Inappropriate"@<lll```````^ @¡٤@¡٤@qryMaxMedDateInPeriod"@<XXXLLLLLLLJ @L٤@L٤@qryMaxMammogramLast_2Years_Inappropriate"@<~~~rrrrrrrp @x٤@x٤@qryMaxMammogramLast_2Years"@ 5bbbVVVVVVVT @x٤@x٤@qryMaxLabDateInPeriod2"@<ZZZNNNNNNNL @٤@٤@qryMaxLabDateInPeriod"Z@<XXXLLLLLLLJ @٤@٤@qryMaxLabDate2"'@<JJJ>>>>>>>< @k٤@k٤@qryMaxLabDate"@ 5HHH<<<<<<<: @6C5٤@C5٤@qryMaxLabandResultInPeriod"@<bbbVVVVVVVT @C5٤@C5٤@qryMaxHealthDateInPeriod"@ 5^^^RRRRRRRP @p٤@p٤@qryLabs2"@9>>>22222220 @p٤@p٤@qryLabs"@:<<<0000000. @٤@٤@qryDiabetesLabsInPeriod"@:\\\PPPPPPPN @٤@٤@qryAge_65_AndOverWith_Pneumo_Vax"@ 5nnnbbbbbbb` @٤@٤@QRY_SummaryDiabetes2_PCP"B@:^^^RRRRRRRP @6gi٤@;ޕ٤@QRY_SummaryDiabetes1"w @9VVVJJJJJJJH @2٤@gi٤@QRY_SummaryDepression2_PCP"@8bbbVVVVVVVT @2٤@2٤@QRY_SummaryDepression2"@7ZZZNNNNNNNL @㽑٤@㽑٤@QRY_SummaryDepression1"@7ZZZNNNNNNNL @3٤@㽑٤@QRY_SummaryAPHS2"Y@7NNNBBBBBBB@ @3٤@3٤@QRY_SummaryAPHS1"@7NNNBBBBBBB@ @_٤@_٤@QRY_SubstAbuseInPeriod"'@ 5ZZZNNNNNNNL @6_٤@_٤@QRY_SmokersLastEval"'@5TTTHHHHHHHF @ۍ٤@ۍ٤@QRY_SmokersInPeriod"@5TTTHHHHHHHF @ۍ٤@ۍ٤@qry_PHQ-CSD_1st_Followup_Visit_Date"@5ttthhhhhhhf @f٤@ۍ٤@qry_PHQ-CSD_1st_Followup_PHQ_Date"@5pppdddddddb @f٤@f٤@qry_PHQ_Min_Max_DateInPeriod"@5fffZZZZZZZX @f٤@f٤@qry_PHQ_Index_Date"@5RRRFFFFFFFD @*0٤@*0٤@QRY_PHQ_FollowupAfterIndex"'@5bbbVVVVVVVT @6@ @Qry_NextVisitDate"C@ /|@2\PPDDDDDDDB @W٤@6Ř*@QRY_ListPatientWithServiceAndLab"@ /@2znnbbbbbbb` @j @ @@  @@ @  @hJMmYqQkQiqYMQk^JmQkm<hJMmYqQkQiqYMQk^JmQkm>hJMmYqQqYkYmkhMWdkQbOu hiv+QuQiMYkQdqQi| ?| @| A|/}B}D}E}F}}}}}}}}}}  }  }  } } } } } } } } } } }  }  }  }C~~~~~~~ ~!~"~#~$~%~&~ '~ (~ )~*~+~ ,~ -~ .~ /~ 0~ 1~ 2~ 3~  4~  5~  6~79:;<=>?@ABC               8    !"#$%&'()*+,-./0 1 2 3 4         ! " # $%'()*+,-./0 1&LVALV   z f R ^rZdHFqry_PHQ_Index_Date.clinic_code = tblServices.clinic_codetblDemo.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_codetblDemo.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]))l;0`B$ z  w 7 O y  fH* QKmO?}$sU7;e>!qry_PHQ_Index_Date.chart_number> ge> qry_PHQ_Index_Date.clinic_code= ge>tblServices''' e>qry_PHQ_Index_Date555 e> Ge> Ge> e> G e>tblServices.chart_number7 g e>tblServices.clinic_code6 ge>2@ 'e>Cnt_PHQ!Count(tblServices.service_date)L oe>Max_PHQ_DateMax(tblServices.service_date)T)) oe>Min_PHQ_DateMin(tblServices.service_date)T)) oe>Raw_CodeMin(tblServices.raw_code)H!! oe>tblServices.chart_number7 ge>tblServices.clinic_code6 ge>tblServices''' e> Ge> Ge> e> G e>tblServices.raw_code3 g e>tblServices.chart_number7 g e>tblServices.clinic_code6 ge>@ 'e>CSD_DateMin(tblServices.service_date)L!! oe>tblServices.raw_code3 ge>tblServices.chart_number7 ge>tblServices.clinic_code6 ge>tblServices''' e> Ge> Ge> e> G e>tblDemo.chart_number3 g e>tblDemo.clinic_code2 ge>tblDemoqry_PHQ-CSD_1st_Followup_Visit_Date@qe e>tblDemoqry_PHQ-CSD_1st_Followup_PHQ_Date@ma e>tblDemoqry_PHQ-CSD_1st_Followup_Visit_Date@qe e>tblDemoqry_PHQ-CSD_1st_Followup_PHQ_Date@ma e>tblDemoqry_PHQ_Index_Datel@OC e>tblDemoqry_PHQ_Index_Dateh@OC e>re-visit_lag@5)) oe>reassessment_lag@=11 oe>tblDemo.chart_number3 ge>tblDemo.clinic_code2 ge>qry_PHQ-CSD_1st_Followup_Visit_DateWWW e>qry_PHQ-CSD_1st_Followup_PHQ_DateSSS e>tblDemo e>qry_PHQ_Index_Date555 e> Ge> Ge> e> Ge>qry_PHQ_Index_DatetblServices_2h@[O5 e>qry_PHQ_Index_DatetblServices_2p@[O5 e>qry_PHQ_Index_DatetblServices_2x@[O5 e> qry_PHQ_Index_DatetblServices_2t@[O5 LVALV$ L  DhR8T0First(qryMaxPapLastYear_Inappropriate.pap_inappropriate)First(qryMaxServiceDateInPeriod.[pap smear])First(qryMaxServiceDateInPeriod.[breast exam])First(qryMaxMammogramLast_2Years_Inappropriate.mammogram_inappropriate)First(qryMaxMammogramLast_2Years.mammogram)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_number(((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])) @ @ @ @ @ @ @ @ @ @ @ @ @ @BC               8    !"#$%&'()*+,-./0 1 2 3 4         ! " # $%'()*+,-./0 1 2&356789:  4          "#$%&'( ) *!+-./0123 4 5,689:;<=> ? @7AC            BD)a7 f H * n # P | 1  B i&j6DuW9`D&UIe> Ge> e> G e>tblServices.chart_number7 g e>tblServices.clinic_code6 ge>@  'e>test_dateMax(tblServices.service_date)N## oe>tblServices.chart_number7 ge>tblServices.clinic_code6 ge>tblServices''' e> Ge> Ge> e> G e>tblServices.chart_number7 g e>tblServices.clinic_code6 ge>@  'e>MaxOfservice_dateMax(tblServices.service_date)^33 oe>tblServices.chart_number7 ge>tblServices.clinic_code6 ge>tblServices''' e> Ge> Ge> e> G e>tblServices.chart_number7 g e>tblServices.clinic_code6 ge>@  'e>MaxOfservice_dateMax(tblServices.service_date)^33 oe>tblServices.chart_number7 ge>tblServices.clinic_code6 ge>tblServices''' e> Ge> Ge> e> G e>tblServices.chart_number7 g e>tblServices.clinic_code6 ge>@ 'e>MaxOfservice_dateMax(tblServices.service_date)^33 oe>tblServices.chart_number7 ge>tblServices.clinic_code6 ge>tblServices''' e> Ge> Ge> e> G e>!qry_PHQ_Index_Date.chart_number> g e> qry_PHQ_Index_Date.clinic_code= ge>D@ 'e>qry_PHQ_Index_DatetblVisitsp@SG5 e>qry_PHQ_Index_DatetblVisitsl@SG5 e>CSD_FollowUp_visit_dateMin(tblVisits.visit_date)f?? oe>!qry_PHQ_Index_Date.chart_number> ge> qry_PHQ_Index_Date.clinic_code= ge>tblVisits### e>qry_PHQ_Index_Date555 e> Ge> Ge> e> G e>!qry_PHQ_Index_Date.chart_number> g e> qry_PHQ_Index_Date.clinic_code= ge>`@ 'e>qry_PHQ_Index_DatetblServicesd@WK5 e>qry_PHQ_Index_DatetblServicest@WK5 e>qry_PHQ_Index_DatetblServicesp@WK5 e>CSD_FollowUp_PHQ_dateMin(tblServices.service_date)f;; o*f"L 0 | = R f  L Nz(>JL^ve>tblDemoQry_ListPatientWithCondition|@cW e>qryAge_65_AndOverWith_Pneumo_VaxtblDemo@k_Q e>qryAge_65_AndOverWith_Pneumo_VaxtblDemo@k_Q e>tblDemoqryMaxPapLastYear_Inappropriate@i] e> tblDemoqryMaxPapLastYear_Inappropriate@i] e> tblDemoqryMaxMammogramLast_2Years_Inappropriate@{o e> tblDemoqryMaxMammogramLast_2Years_Inappropriate@{o e> tblDemoqryMaxMammogramLast_2Years|@_S e> tblDemoqryMaxMammogramLast_2Yearsx@ _S e>tblDemoqryMaxServiceDateAtEndOfPeriod@ g[ e>tblDemoqryMaxServiceDateAtEndOfPeriod@ g[ e>tblDemoQRY_LatestSmkeCess_Refer_Declined_Done_InPeriod@ } e>tblDemoQRY_LatestSmkeCess_Refer_Declined_Done_InPeriod@ } e>tblDemoQRY_SmokersInPeriodn@QE e>tblDemoQRY_SmokersInPeriodj@QE e>tblDemoqryMaxServiceDateInPeriodz@]Q e>tblDemoqryMaxServiceDateInPeriodv@]Q e>Coll2003_smkerJ@9-- oe> Smke_cess_ref_dec_done@I== oe> edu_selfmanagement_goal_dateT@UII oe> edu_age65_AndOver_with_pvax@SGG oe> edu_pneumonia_vaccination_date^@YMM oe> edu_pap_inappropriatep@G;; oe>edu_pap_smearX@7++ oe>edu_breast_exam\@;// oe>edu_mammogram_inappropriate@SGG oe>edu_mammogramV@ 7++ oe> tblDemo.sex* ge>age@ # oe>tblDemo.chart_number3 ge>tblDemo.clinic_code2 ge> Qry_ListPatientWithConditionIII e> qryAge_65_AndOverWith_Pneumo_VaxQQQ e>qryMaxPapLastYear_InappropriateOOO e>qryMaxMammogramLast_2Years_Inappropriateaaa e>qryMaxMammogramLast_2YearsEEE e>qryMaxServiceDateAtEndOfPeriodMMM e>QRY_LatestSmkeCess_Refer_Declined_Done_InPeriodooo e>QRY_SmokersInPeriod777 e>qryMaxServiceDateInPeriodCCC e>tblDemo e> GLVAL* j  v P TD* (,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))DateDiff("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])/5k? m # C %  < i  c 7 _h>]Ww #e> qry_PHQ_Min_Max_DateInPeriodtblServices_1|@ocI e> qry_PHQ_Min_Max_DateInPeriodtblServicesx@ k_I e> qry_PHQ_Min_Max_DateInPeriodtblServices_1@ ocI e> qry_PHQ_Min_Max_DateInPeriodtblServices@ k_I e>qry_PHQ_Min_Max_DateInPeriodtblServices_1@ ocI e>qry_PHQ_Min_Max_DateInPeriodtblServices_1@ ocI e>qry_PHQ_Min_Max_DateInPeriodtblServices@k_I e>qry_PHQ_Min_Max_DateInPeriodtblServices@k_I e>tblDemoqry_PHQ_Min_Max_DateInPeriod@cW e>tblDemoqry_PHQ_Min_Max_DateInPeriod|@cW e>tblDemoqry_PHQ_Index_Datel@OC e>tblDemoqry_PHQ_Index_Dateh@OC e>CSD_PHQtblServices_2.resultA oe>qry_PHQ_Index_Date.CSD_Date: ge>Max_PHQtblServices_1.resultA oe>Min_PHQtblServices.result? oe>R@ ge>R@ ge>tblDemo.chart_number3 ge>tblDemo.clinic_code2 ge>tblServicestblServices_2AA' e>tblServicestblServices_1AA' e>tblServices''' e>qry_PHQ_Min_Max_DateInPeriodIII e>tblDemo e>qry_PHQ_Index_Date555 e> Ge> Ge> e> G e>"QRY_LatestVisitDate.chart_number? g e>!QRY_LatestVisitDate.clinic_code> ge>NextVisit@/## oe>"QRY_LatestVisitDate.chart_number? ge>!QRY_LatestVisitDate.clinic_code> ge>QRY_LatestVisitDate777 e> Ge> Ge> e> G e> "QRY_ListPatientReceiveLab.phone1? g e>QRY_ListPatientReceiveLab.zip< g e>!QRY_ListPatientReceiveLab.state> g e> QRY_ListPatientReceiveLab.city= g e>D@+ g e>H@* g e>F@) g e>L@( g e>J@' ge>QRY_ListPatientReceiveLabQry_ListPatientReceiveService@&}C e>QRY_ListPatientReceiveLabQry_ListPatientReceiveService@%}C e> "QRY_ListPatientReceiveLab.phone1? ge>QRY_ListPatientReceiveLab.zip< gLVAL)^ t  v  N  h . v(T8xt<tx*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))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)O4l*b$ P  v 0 H H | & PtZBW'mO#o e>qryMaxMedDateInPeriod;;; e>QRY_Latest_BP_>Systolic/Diastolic2UUU e>QRY_LatestBMI+++ e>tlkpInsurance+++ e>QRY_LatestVisitDate777 e>tblDemo e> Ge> Ge> e> G e>Null# g e>Null# g e>Null# g e> tblDemo.pcp* ge>@  'e>tblDemoQRY_SummaryDepression1t@WK e>tblDemoQRY_SummaryDepression1p@WK e>dlab_chem_panel_AnyNumericResultT@[OO oe>clab_CBC_AnyNumericResultF@MAA oe>blab_blood_level_AnyNumericResultV@]QQ oe>alab_TSH_AnyNumericResultF@MAA oe>`Last_PHQ_Over6_monthsX@G;; oe>_Last_PHQ_6OrUnder_months\@MAA oe>^CSD_PHQ_Next_Visit_Never|@MAA oe>]CSD_PHQ_Next_Visit_6Over_weeksN@(YMM oe>\CSD_PHQ_Next_Visit_Over4_to_6weeks~@'aUU oe>[CSD_PHQ_Next_Visit_2Over_to_4weeks~@&aUU oe>ZCSD_PHQ_Next_Visit_AtUnder_2weeksR@%_SS oe>YCSD_PHQ_Retested_2Over_to_4weeksv@$]QQ oe>XCSD_PHQ_Retested_Neverx@#I== oe>WCSD_PHQ_Retested_6Over_weeksJ@"UII oe>VCSD_PHQ_Retested_Over4_to_6weeksv@!]QQ oe>UCSD_PHQ_Retested_AtUnder_2weeksN@ [OO oe>TPHQ_Change_minusF@=11 oe>SPHQ_Change_0_to_24p@A55 oe>RPHQ_Change_25_to_49t@C77 oe>QPHQ_Change_50AndOverL@E99 oe>PPHQ_Change_avgL@9-- oe>OCSD_PHQ_0_to_4j@9-- oe>NCSD_PHQ_5_to_9f@9-- oe>MCSD_PHQ_10_to_14j@=11 oe>LCSD_PHQ_15_to_19j@=11 oe>KCSD_PHQ_20AndOverN@?33 oe>JCSD_PHQ_0AndOverP@=11 oe>IPHQ_0_to_4h@1%% oe>HPHQ_5_to_9f@1%% oe>GPHQ_10_to_14j@5)) oe>FPHQ_15_to_19j@5)) oe>EPHQ_20AndOverN@7++ oe>DPHQ_0AndOverP@5)) oe>CPHQ_index_0_to_4H@=11 oe>BPHQ_index_5_to_9`@ =11 oLVAL%(4 * R  N BtHl\`"First(QRY_LatestSmkeCess_Refer_Declined_Done_InPeriod.Smke_cess_ref_dec_done)First(qryMaxServiceDateInPeriod.[foot chk])First(qryMaxServiceDateInPeriod.dental)First(qryMaxServiceDateInPeriod.[sm goal])First(qryMaxServiceDateInPeriod.[flu vac])First(qryMaxServiceDateInPeriod.[pne vac])First(QRY_ExerciseOver3InWeek.MaxOfservice_date)First(qryMaxServiceDateInPeriod.[exer ass])First(qryMaxServiceDateInPeriod.[retinal ex])First(qryMaxServiceDateInPeriod.nuteduc)First(qryMaxServiceDateInPeriod.[dm educ])First(Nz([qryMaxHealthDateinPeriod].[self_monitors_bg],0))First(Nz([qryMaxHealthDateinPeriod].[retinopathy],0))First(Nz([qryMaxHealthDateinPeriod].[pvd],0))First(Nz([qryMaxHealthDateinPeriod].[neuropathy],0))First(Nz([qryMaxHealthDateinPeriod].[nephropathy],0))First(Nz([qryMaxHealthDateinPeriod].[htn],0))First(Nz([qryMaxHealthDateinPeriod].[hyperlipidemia],0))First(Nz([qryMaxHealthDateinPeriod].[heart],0))First(Nz([qryMaxHealthDateinPeriod].[cvd],0))First(Nz([alpha_glucosidase_inhibitor],0))Last(Qry_ListPatientWithDiabetes.type_diabetes)[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'))(((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))4bT p 2 | L  3 f <  L #-i0R p0:.e>,edu_dental_dateN@";// oe>+edu_selfmanagement_goal_dateT@!UII oe>*edu_flu_vaccination_dateT@ MAA oe>)edu_pneumonia_vaccination_dateT@YMM oe>(exercises_current`@?33 oe>'edu_exercise_ass_dateV@G;; oe>&edu_retinal_exam_dateZ@G;; oe>%edu_nutrition_dateP@A55 oe>$edu_dm_dateT@3'' oe>#hlth_selfmonitor_bgt@C77 oe>"hlth_retinopathyj@=11 oe>!hlth_peripheralZ@;// oe> hlth_neuropathyh@;// oe>hlth_nephropathyj@=11 oe>hlth_hypertensionZ@?33 oe>hlth_hyperlipidemiap@C77 oe>hlth_heart^@1%% oe>hlth_cerebrovascularZ@E99 oe>med_bp_otherFirst(Nz([BP_med],0))L)) oe>med_lipid_lowerFirst(Nz([lipid_agent],0))W// oe>med_ace_inhibitorFirst(Nz([ace],0))S33 oe>med_aspirinFirst(Nz([asa],0))G'' oe>med_ag_inhibitorT@=11 oe>med_prandinFirst(Nz([prandin],0))K'' oe>med_glitazonesFirst(Nz([glitazones],0))T-- oe>med_glucophageFirst(Nz([glucophage],0))T-- oe>med_sulfonylureaFirst(Nz([sulfonylurea],0))Z11 oe>med_insulinFirst(Nz([insulin],0))K'' oe>Diabetes_Type^@7++ oe>b@ ge>`@  ge> B@  ge> QRY_LatestBMI.BMI0 ge> F@  ge> insurance_codedtlkpInsurance.Insurance_typeY// oe> homeless_yestblDemo.homelessG)) oe>migrant_yestblDemo.migrantD'' oe>tblDemo.ethnicity0 ge> tblDemo.sex* ge>age@ # oe> tblDemo.pcp* ge>tblDemo.chart_number3 ge>tblDemo.clinic_code2 ge>tblDemo.Patient_ID1 ge>qryDiabetesLabsInPeriod??? e> QRY_SmokersLastEval777 e> Qry_ListPatientWithDiabetesGGG e> QRY_LatestSmkeCess_Refer_Declined_Done_InPeriodooo e> QRY_ExerciseOver3InWeek??? e> QRY_HbA1c90DaysApart999 e>qryMaxServiceDateInPeriodCCC e>qryMaxHealthDateInPeriodAAA  @ @ @ @ @ @ @ @ @ @ @ @ @ @-!."/#0$1%2&3'4(5)6*7+8,9-:.;/<0=1>2?3@4A5BCDEFGHIJK L M N O PQRSTUVWXYZ[\]^_`ab c!d"#$% & ' ( )$*,-./0123                !"#$%& '!(")#*$+%,&-'.(/)0*1+2,3-./0123456 7 8 9 : ;<=>?@ABCD   ! " # $%&'()*+,-./                         +     ! "#$%d0Z(~L v < d 4 Z  H ( JD"R8e>tblDemoqryDiabetesLabsInPeriodr@YM e>tblDemoQRY_LatestVisitDaten@QE e>tblDemoQRY_LatestVisitDatej@QE e>tblDemoQRY_SmokersLastEvaln@QE e>tblDemoQRY_SmokersLastEvalj@QE e>tblDemoQry_ListPatientWithDiabetes~@aU e>tblDemoQry_ListPatientWithDiabetesz@aU e>tblDemoQRY_LatestSmkeCess_Refer_Declined_Done_InPeriod@} e>tblDemoQRY_LatestSmkeCess_Refer_Declined_Done_InPeriod@%} e>tblDemoQRY_ExerciseOver3InWeekv@$YM e>tblDemoQRY_ExerciseOver3InWeekr@#YM e> tblDemoQRY_HbA1c90DaysApartp@"SG e> tblDemoQRY_HbA1c90DaysApartl@!SG e> tblDemoqryMaxServiceDateInPeriodz@ ]Q e> tblDemoqryMaxServiceDateInPeriodv@]Q e> tblDemoqryMaxHealthDateInPeriodx@[O e>tblDemoqryMaxHealthDateInPeriodt@[O e>tblDemoqryMaxMedDateInPeriodr@UI e>tblDemoqryMaxMedDateInPeriodn@UI e>tblDemoQRY_Latest_BP_>Systolic/Diastolic2@oc e>tblDemoQRY_Latest_BP_>Systolic/Diastolic2@oc e>tblDemoQRY_LatestBMIb@E9 e>tblDemoQRY_LatestBMI^@E9 e>tlkpInsurancetblDemo`@E9+ e>DDateDiff90V@1%% oe>CColl2003_smkerJ@9-- oe>B24up_doneV@/## oe>A24upR@% oe>@trig_doneR@/## oe>?trigR@% oe>>ldl_doneP@-!! oe>=ldlN@# oe>;hdlN@ # oe>:chol_doneR@ /## oe>9cholR@ % oe>8alt_doneP@ -!! oe>7altN@# oe>6ast_doneP@-!! oe>5astN@# oe>4alcr_doneR@/## oe>3alcrR@% oe>2crea_doneR@/## oe>1creaR@% oe>0ha1c_doneB@/## oe>/Ha1cR@% oe>.Smke_cess_ref_dec_done@$I== oe>-edu_foot_check_dateV@#C77 odLVAL&lv$ 8 D X  d  r^pr$H`tblDemo.clinic_code = QRY_LatestSmkeCess_Refer_Declined_Done_InPeriod.clinic_codetblDemo.chart_number = QRY_ExerciseOver3InWeek.chart_numbertblDemo.clinic_code = QRY_ExerciseOver3InWeek.clinic_codetblDemo.chart_number = QRY_HbA1c90DaysApart.chart_numbertblDemo.clinic_code = QRY_HbA1c90DaysApart.clinic_codetblDemo.chart_number = qryMaxServiceDateInPeriod.chart_numbertblDemo.clinic_code = qryMaxServiceDateInPeriod.clinic_codetblDemo.chart_number = qryMaxHealthDateInPeriod.chart_numbertblDemo.clinic_code = qryMaxHealthDateInPeriod.clinic_codetblDemo.chart_number = qryMaxMedDateInPeriod.chart_numbertblDemo.clinic_code = qryMaxMedDateInPeriod.clinic_codetblDemo.chart_number = [QRY_Latest_BP_>Systolic/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])) @ @ @ @ @ @ @ @ @ @ @ @ @ @&356789:  4          "#$%&'( ) *!+-./0123 4 5,689:;<=> ? @7AC              ! " # $ %&'()    B           !"#$%&'( ) * + ,-/012345678 9 :              !.;QtV8  P  { 7 i ! [  K  S/]Ki9 e-I?e> qryMaxServiceDateInPeriodCCC e> QRY_ExerciseOver3InWeek??? e>QRY_SubstAbuseInPeriod=== e>QRY_SmokersInPeriod777 e>QRY_LatestSmkeCess_Refer_Declined_Done_InPeriodooo e>qryMaxMedDateInPeriod;;; e>QRY_LatestVisitDate777 e>Qry_ListPatientWithDepressionKKK e>tlkpInsurance+++ e>tblDemo e> Ge> Ge> e> G e>Null# g e>Null# g e>Null# g e>Null# ge>@ 'e>tblDemoQRY_SummaryAPHS1h@K? e>tblDemoQRY_SummaryAPHS1d@K? e>Coll2003_smkerL@9-- oe>Coll2003_smoke_cessation_ref_dec_done\@g[[ oe>Education_selfmanagement_goalp@WKK oe>Education_pneumonia_vaccination_65n@aUU oe>Education_pneumonia_vaccinationt@[OO oe>Education_pap_smear_inappropriateb@ _SS oe>Education_pap_smearR@ C77 oe>Education_breast_exam@ G;; oe>edu_mammogram_inappropriaten@ SGG oe>edu_mammogram@ 7++ oe>Age_55AndOverZ@7++ oe>Age_45AndOverZ@7++ oe>Age_65_AndOverZ@9-- oe>Age_50_To_59v@5)) oe> Age_40_To_49v@5)) oe> Age_30_To_39v@5)) oe> Age_15_To_29v@5)) oe> Age_14_AndUnderZ@;// oe> Age_Unknownb@3'' oe>Gender_Unspecified@A55 oe>Gender_MaleZ@3'' oe>Gender_FemaleZ@7++ oe>Patient_CountCount(tblDemo.Patient_ID)R++ oe>TestsNull- oe>VisitsNull/ oe>DemographicsNull;)) oe>pcpNull) oe>QRY_SummaryAPHS1111 e>tblDemo e> Ge> Ge> e> G e> tblDemo.sex* g e>@ g e>tblDemo.chart_number3 g e>tblDemo.clinic_code2 ge>tblDemoQry_ListPatientWithCondition@cW LVAL DX l  ^ N T ~  D,(R$\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))))Switch(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))r4j j@ [  y  U  K s # Ak!72z4pB~e>QRY_LatestSmkeCess_Refer_Declined_Done_InPeriodtblDemo@}o e>tblDemoqryMaxMedDateInPeriodr@UI e>tblDemoqryMaxMedDateInPeriodn@UI e>QRY_LatestVisitDatetblDemon@QE7 e>QRY_LatestVisitDatetblDemoj@QE7 e>tblDemoQry_ListPatientWithDepression@eY e>tblDemoQry_ListPatientWithDepression~@eY e>tlkpInsurancetblDemo`@E9+ e>)lab_chem_panel~@9-- oe>(lab_CBCp@+ oe>'lab_blood_level@;// oe>&lab_TSHp@+ oe>%edu_sm_goal_depresP@A55 oe>$edu_Psychiatric_consultX@K?? oe>#edu_MH_Ref!Sum(Switch(IsDate([MH Ref]),1))R%% oe>"edu_mh_hosp"Sum(Switch(IsDate([mh hosp]),1))U'' oe>!edu_in_house_cnslL@ ?33 oe> exercises`@ /## oe>substance_abuserN@ =11 oe>Coll2003_smkerJ@ 9-- oe>MinOfworking_code^@ ?33 oe>med_stimulantH@7++ oe>med_other_mhH@5)) oe>med_mood_stabilizerX@C77 oe>med_benzodiazepinesT@C77 oe>med_anti_psychoticsX@C77 oe>med_anti_depressantX@C77 oe>Visit_FollowupR@9-- oe>PHQ_Followupb@5)) oe>Last_PHQ_Under6@;// oe>PHQ_Change@1%% oe>Last_PHQ_CSDV@5)) oe>Last_PHQ_Alld@5)) oe>PHQ_indexd@/## oe>CSD_Typeqry_PHQ_Date_Result.CSD_DateK!! oe>@ ge> insurance_codedtlkpInsurance.Insurance_typeY// oe> homeless_yestblDemo.homelessG)) oe> migrant_yestblDemo.migrantD'' oe> tblDemo.ethnicity0 ge> tblDemo.sex* ge>age@# oe>L@ ge>H@ ge>L@ ge>B@ ge> tblDemo.pcp* ge>tblDemo.chart_number3 ge>tblDemo.clinic_code2 ge> qryMaxLabDateInPeriod2=== e> QRY_PHQ_FollowupAfterIndexEEE e> qry_PHQ_Date_Result777 LVAL"xl h z 0 6  .PPx Px"tblDemo.clinic_code = QRY_ExerciseOver3InWeek.clinic_codetblDemo.chart_number = QRY_SubstAbuseInPeriod.chart_numbertblDemo.clinic_code = QRY_SubstAbuseInPeriod.clinic_codetblDemo.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])) @ @ @ @ @ @ @ @ @ @ @ @ @ @  ! " # $ %&'()    B           !"#$%&'( ) * + ,-/012345678 9 :              ! "!#"$#%$&%'&(')(*)+,-./0123                                . "#$%&'()*+,- . / 0 1 234567      !"#$%&'()*+,-./012!8j J  F  N k 4 b+w/iK-{E(BTNe>Age_Unknownn@3'' oe>Gender_Unspecified@A55 oe>Gender_Malef@3'' oe>Gender_Femalef@7++ oe>Visits_Other\@5)) oe> Visits_LabX@1%% oe> Visits_Phone\@5)) oe> Visits_OfficeR@7++ oe> Patient_Visit_6_AndOverx@K?? oe> Patient_Visit_3_To_5@E99 oe>Patient_Visit_1_To_2@E99 oe>Patient_Visit_0@;// oe>Patient_Visit_AvgR@?33 oe>Patient_CountCount(tblDemo.Patient_ID)R++ oe>TestsNull- oe>VisitsNull/ oe>DemographicsNull;)) oe>pcpNull) oe>QRY_SummaryDepression1=== e>tblDemo e> Ge> Ge> e> G e>d@ g e>d@ g e>qry_PHQ_Date_Result.CSD_Date; g e>Z@ g e> tlkpInsurance.Insurance_type; g e> tblDemo.homeless/ g e> tblDemo.migrant. g e> tblDemo.ethnicity0 g e> tblDemo.sex* g e>@  g e>L@  g e>H@  g e>L@  g e>B@  g e> tblDemo.pcp* g e>tblDemo.chart_number3 g e>tblDemo.clinic_code2 ge>tblDemoqryMaxLabDateInPeriod2t@WK e>tblDemoqryMaxLabDateInPeriod2p@WK e>tblDemoQRY_PHQ_FollowupAfterIndex|@_S e>tblDemoQRY_PHQ_FollowupAfterIndexx@_S e>tblDemoqry_PHQ_Date_Resultn@QE e>tblDemoqry_PHQ_Date_Resultj@QE e>tblDemoqryMaxServiceDateInPeriodz@]Q e>tblDemoqryMaxServiceDateInPeriodv@]Q e>tblDemoQRY_ExerciseOver3InWeekv@YM e>tblDemoQRY_ExerciseOver3InWeekr@!YM e> tblDemoQRY_SubstAbuseInPeriodt@ WK e> tblDemoQRY_SubstAbuseInPeriodp@WK e> tblDemoQRY_SmokersInPeriodn@QE e> tblDemoQRY_SmokersInPeriodj@QE e> QRY_LatestSmkeCess_Refer_Declined_Done_InPeriodtblDemo@}o LVAL!0 J ^ \  T :&nT4`FCount(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)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_number36v4j$ T v ( B Z  P i}-=k+Yu%?o-e>HPHQ_5_to_9f@1%% oe>GPHQ_10_to_14j@5)) oe>FPHQ_15_to_19j@5)) oe>EPHQ_20AndOverN@7++ oe>DPHQ_0AndOverP@5)) oe>CPHQ_index_0_to_4H@=11 oe>BPHQ_index_5_to_9`@=11 oe>APHQ_index_10_to_14d@A55 oe>@PHQ_index_15_to_19d@A55 oe>?PHQ_index_20AndOverH@C77 oe>>edu_sm_goal_depres\@ A55 oe>=edu_Psychiatric_consultf@ K?? oe>;edu_mh_hospN@ 3'' oe>:edu_in_house_cnslZ@ ?33 oe>9hlth_exerciserD@9-- oe>8hlth_smokerT@3'' oe>7hlth_subst_abuserR@?33 oe>6med_stimulantR@7++ oe>5med_other_mhP@5)) oe>4med_mood_stabilizer^@C77 oe>3med_benzodiazepines^@C77 oe>2med_anti_psychotics^@C77 oe>1med_anti_depressant^@C77 oe>0CSD_6_OrMore_months@C77 oe>/CSD_6_OrMore_Weeks@A55 oe>.CSD_2_OrMore_Weeks@A55 oe>-CSDB@# oe>,Cnt_Dysthymia!Sum(Switch(Len([dysthymia]),1))X++ oe>+Cnt_Minor_depressionL@E99 oe>*Cnt_Major_depressionL@E99 oe>)Homelessx@-!! oe>(Migrantv@+ oe>'Insurance_nonex@9-- oe>&Insurance_otherx@;// oe>%Insurance_commercialx@E99 oe>$Insurance_medicarex@A55 oe>#Insurance_medicaidx@ A55 oe>"Insurance_specifiedz@ C77 oe>!Ethnicity_Other@ ;// oe> Ethnicity_Hispanic@ A55 oe>Ethnicity_Asianz@ ;// oe>Ethnicity_AmIndian@A55 oe>Ethnicity_Blackz@;// oe>Ethnicity_White@;// oe>Age_55AndOverf@7++ oe>Age_45AndOverf@7++ oe>Age_65_AndOverf@9-- oe>Age_60_AndOverf@9-- oe>Age_50_To_59@5)) oe>Age_40_To_49@5)) oe>Age_30_To_39@ 5)) oe>Age_15_To_29@5)) oe>Age_14_AndUnderf@;// oxLVALt P x |  8HXjZPSum(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))Count(Switch([QRY_SummaryDepression1].[Age] Between 40 And 49.9999,1))LVAL)D8 @ T  F 6 > NFv tJ<NSum(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)Sum(QRY_SummaryDepression1.med_anti_depressant) @ @ @ @ @ @ @ @ @ @ @ @ @ @!#"$#%$&%'&(')(*)+,-./0123                                . "#$%&'()*+,- . / 0 1 234567      !"#$%&'()*+,-./0123 4!5"6#7$8%9&:';(<)=*>+?,@-A.B/C0D1E2F3G4H5IJKLMNOPQR S T U V WXYZ[\]^_`abcd    ! "!#%&'()*+,-./0 1 2 3        !"#$%&'()*+$4x,R  t $ $ X  , P 6\j: nP27b|*e> Visits_OfficeR@7++ oe> Patient_Visit_6_AndOverx@K?? oe> Patient_Visit_3_To_5@E99 oe>Patient_Visit_1_To_2@E99 oe>Patient_Visit_0@;// oe>Patient_Visit_AvgR@?33 oe>Patient_CountCount(tblDemo.Patient_ID)R++ oe>TestsNull- oe>VisitsNull/ oe>DemographicsNull;)) oe>pcp tblDemo.pcp0 oe>QRY_SummaryDepression1=== e>tblDemo e> Ge> Ge> e> G e>Null# g e>Null# g e>Null# g e>Null# ge>@  'e>tblDemoQRY_SummaryDepression1t@ WK e>tblDemoQRY_SummaryDepression1p@ WK e>dlab_chem_panel_AnyNumericResultT@ [OO oe>clab_CBC_AnyNumericResultF@ MAA oe>blab_blood_level_AnyNumericResultV@]QQ oe>alab_TSH_AnyNumericResultF@MAA oe>`Last_PHQ_Over6_monthsX@G;; oe>_Last_PHQ_6OrUnder_months\@MAA oe>^CSD_PHQ_Next_Visit_Never|@MAA oe>]CSD_PHQ_Next_Visit_6Over_weeksN@YMM oe>\CSD_PHQ_Next_Visit_Over4_to_6weeks~@aUU oe>[CSD_PHQ_Next_Visit_2Over_to_4weeks~@aUU oe>ZCSD_PHQ_Next_Visit_AtUnder_2weeksR@_SS oe>YCSD_PHQ_Retested_2Over_to_4weeksv@(]QQ oe>XCSD_PHQ_Retested_Neverx@'I== oe>WCSD_PHQ_Retested_6Over_weeksJ@&UII oe>VCSD_PHQ_Retested_Over4_to_6weeksv@%]QQ oe>UCSD_PHQ_Retested_AtUnder_2weeksN@$[OO oe>TPHQ_Change_minusF@#=11 oe>SPHQ_Change_0_to_24p@"A55 oe>RPHQ_Change_25_to_49t@!C77 oe>QPHQ_Change_50AndOverL@ E99 oe>PPHQ_Change_avgL@9-- oe>OCSD_PHQ_0_to_4j@9-- oe>NCSD_PHQ_5_to_9f@9-- oe>MCSD_PHQ_10_to_14j@=11 oe>LCSD_PHQ_15_to_19j@=11 oe>KCSD_PHQ_20AndOverN@?33 oe>JCSD_PHQ_0AndOverP@=11 oe>IPHQ_0_to_4h@1%% oLVAL"0d 4 R   B TDxP\DRCount(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))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));6>l, `  P 8 T n @|*GY i'WGQe>APHQ_index_10_to_14d@ A55 oe>@PHQ_index_15_to_19d@ A55 oe>?PHQ_index_20AndOverH@ C77 oe>>edu_sm_goal_depres\@ A55 oe>=edu_Psychiatric_consultf@K?? oe>;edu_mh_hospN@3'' oe>:edu_in_house_cnslZ@?33 oe>9hlth_exerciserD@9-- oe>8hlth_smokerT@3'' oe>7hlth_subst_abuserR@?33 oe>6med_stimulantR@7++ oe>5med_other_mhP@5)) oe>4med_mood_stabilizer^@C77 oe>3med_benzodiazepines^@C77 oe>2med_anti_psychotics^@C77 oe>1med_anti_depressant^@C77 oe>0CSD_6_OrMore_months@C77 oe>/CSD_6_OrMore_Weeks@A55 oe>.CSD_2_OrMore_Weeks@A55 oe>-CSDB@# oe>,Cnt_Dysthymia!Sum(Switch(Len([dysthymia]),1))X++ oe>+Cnt_Minor_depressionL@E99 oe>*Cnt_Major_depressionL@E99 oe>)Homelessx@-!! oe>(Migrantv@+ oe>'Insurance_nonex@ 9-- oe>&Insurance_otherx@ ;// oe>%Insurance_commercialx@ E99 oe>$Insurance_medicarex@ A55 oe>#Insurance_medicaidx@ A55 oe>"Insurance_specifiedz@C77 oe>!Ethnicity_Other@;// oe> Ethnicity_Hispanic@A55 oe>Ethnicity_Asianz@;// oe>Ethnicity_AmIndian@A55 oe>Ethnicity_Blackz@;// oe>Ethnicity_White@;// oe>Age_55AndOverf@7++ oe>Age_45AndOverf@7++ oe>Age_65_AndOverf@!9-- oe>Age_60_AndOverf@ 9-- oe>Age_50_To_59@5)) oe>Age_40_To_49@5)) oe>Age_30_To_39@5)) oe>Age_15_To_29@5)) oe>Age_14_AndUnderf@;// oe>Age_Unknownn@3'' oe>Gender_Unspecified@A55 oe>Gender_Malef@3'' oe>Gender_Femalef@7++ oe>Visits_Other\@5)) oe> Visits_LabX@1%% oe> Visits_Phone\@5)) oLVAL4\ ` f  ,<N>4l@&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))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)) @ @ @ @ @ @ @ @ @ @ @ @ @ @4!5"6#7$8%9&:';(<)=*>+?,@-A.B/C0D1E2F3G4H5IJKLMNOPQR S T U V WXYZ[\]^_`abcd    ! "!#%&'()*+,-./0 1 2 3        !"#$%&'()*+, -!."/#0$1%2&3'4(5)6*7+8,9-:.;/<0=1>2?3@4A5BCDEFGHIJK L M N O PQRSTUVWXYZ[\]^_`ab c!d"#$% & ' ( )$*,-./0123               +LVAL Zb @ j ( f   ~ F*JNn HCount(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))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_number/<\|E I  d F ( z D ' A S=w5e!Cey'Ee>&Diabetes_Type_2@;// oe>%Diabetes_Type_1@ ;// oe>$Diabetes_Type_Unknown@ G;; oe>#Insurance_nonet@ 9-- oe>"Insurance_othert@ ;// oe>!Insurance_commercialt@ E99 oe> Insurance_medicaret@A55 oe>Insurance_medicaidt@A55 oe>Insurance_specifiedv@C77 oe>Ethnicity_Other@;// oe>Ethnicity_Hispanic|@A55 oe>Ethnicity_Asianv@;// oe>Ethnicity_AmIndian~@A55 oe>Ethnicity_Blackv@;// oe>Ethnicity_White@;// oe>Age_55AndOverb@7++ oe>Age_45AndOverb@7++ oe>Age_65_AndOverb@9-- oe>Age_60_AndOverb@9-- oe>Age_50_To_59~@5)) oe>Age_40_To_49~@5)) oe>Age_30_To_39~@5)) oe>Age_15_To_29~@5)) oe>Age_14_AndUnderb@;// oe>Age_Unknownj@3'' oe> Gender_Unspecified@A55 oe> Gender_Maleb@3'' oe> Gender_Femaleb@7++ oe> Patient_Visit_6_AndOvert@K?? oe> Patient_Visit_3_To_5@E99 oe>Patient_Visit_1_To_2@E99 oe>Patient_Visit_0~@;// oe>Patient_Visit_AvgN@?33 oe>Patient_CountCount(tblDemo.Patient_ID)R++ oe>TestsNull- oe>VisitsNull/ oe>DemographicsNull;)) oe>pcpNull) oe>QRY_SummaryDiabetes1999 e>tblDemo e> Ge> Ge> e> G e>b@  g e>`@  g e> B@  g e> QRY_LatestBMI.BMI0 g e> F@  g e> tlkpInsurance.Insurance_type; g e> tblDemo.homeless/ g e>tblDemo.migrant. g e>tblDemo.ethnicity0 g e> tblDemo.sex* g e>@  g e> tblDemo.pcp* g e>tblDemo.chart_number3 g e>tblDemo.clinic_code2 g e>tblDemo.Patient_ID1 ge>tblDemoqryDiabetesLabsInPeriodv@YM  @ @ @ @ @ @ @ @ @ @ @ @ @ @!"#$%& '!(")#*$+%,&-'.(/)0*1+2,3-./0123456 7 8 9 : ;<=>?@ABCD   ! " # $%&'()*+,-./                         +     ! "#$%&'()*+,-./01234 5!6"7#8$9%:&;'()*+,-./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!LVAL0< J 8 PvD8jCount(Switch(([QRY_SummaryDiabetes1]![bp_systolic]>140 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))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))>2Hx4 f N T Z b t 6H`8LLTe>XTest_HbA1C_8_To_8pt9@E99 oe>WTest_HbA1C_7_To_7pt9@E99 oe>VTest_HbA1C_7_Undern@A55 oe>UTest_HbA1c_numericCount(Switch(Len([ha1c]),1))_55 oe>TTest_HbA1C~@1%% oe>STest_HbA1c_AvgZ@9-- oe>RColl2003_smkerT@9-- oe>QColl2003_smoke_cessation_ref_dec_doned@g[[ oe>PEducation_exercisesb@C77 oe>OEducation_foot_checkf@E99 oe>NEducation_dental^@=11 oe>MEducation_selfmanagement_goalx@WKK oe>LEducation_flu_vaccinationp@OCC oe>KEducation_pneumonia_vaccination|@[OO oe>JEducation_retinal_examj@I== oe>IEducation_nutritiond@C77 oe>HEducation_dmV@5)) oe>GHealth_selfmonitor_bg@G;; oe>FHealth_retinopathy~@A55 oe>EHealth_peripheral|@?33 oe>DHealth_neuropathy|@?33 oe>CHealth_nephropathy~@A55 oe>BHealth_hypertension@C77 oe>AHealth_hyperlipidemia@G;; oe>@Health_heartr@5)) oe>?Health_cerebrovascular@I== oe>>Medication_lipid_lowerv@I== oe>=Medication_ace_inhibitor@ MAA oe>;Medication_bp_otherv@ C77 oe>:Medication_ag_inhibitor~@ K?? oe>9Medication_prandint@ A55 oe>8Medication_glitazonesz@G;; oe>7Medication_glucophagez@G;; oe>6Medication_sulfonylurea~@K?? oe>5Medication_insulint@A55 oe>4Bp_Diastolioc_AvgT@?33 oe>3Bp_Systolic_AvgR@;// oe>2Bp_Checked|@1%% oe>1Bp_130_80Under@9-- oe>0Bp_140_90Under@9-- oe>/Bp_140_90Over@7++ oe>.Bp_135_85Over@7++ oe>-Bp_130_85Over@7++ oe>,BMI_30_AndOverb@9-- oe>+BMI_25_To_29@5)) oe>*BMI_24_AndUnder`@;// oe>)BMI_Calculatedl@9-- oe>(Homelesst@-!! oe>'Migrantr@+ oLVAL0` > L X f |   Xr,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))Count(Switch([QRY_SummaryDiabetes1]![hlth_neuropathy]=True,1))Count(Switch([QRY_SummaryDiabetes1]![hlth_nephropathy]=True,1))Count(Switch([QRY_SummaryDiabetes1]![hlth_hypertension]=True,1))Count(Switch([QRY_SummaryDiabetes1]![hlth_hyperlipidemia]=True,1))Count(Switch([QRY_SummaryDiabetes1]![hlth_heart]=True,1))Count(Switch([QRY_SummaryDiabetes1]![hlth_cerebrovascular]=True,1))Sum(IIf([QRY_SummaryDiabetes1]![med_lipid_lower]=True,1,0))Count(Switch([QRY_SummaryDiabetes1]![med_ace_inhibitor]=True,1))Count(Switch([QRY_SummaryDiabetes1]![med_aspirin]=True,1))Count(Switch([QRY_SummaryDiabetes1]![med_bp_other]=True,1))Count(Switch([QRY_SummaryDiabetes1]![med_ag_inhibitor]=True,1))Count(Switch([QRY_SummaryDiabetes1]![med_prandin]=True,1))Count(Switch([QRY_SummaryDiabetes1]![med_glitazones]=True,1))Count(Switch([QRY_SummaryDiabetes1]![med_glucophage]=True,1))Count(Switch([QRY_SummaryDiabetes1]![med_sulfonylurea]=True,1))Count(Switch([QRY_SummaryDiabetes1]![med_insulin]=True,1))Avg([QRY_SummaryDiabetes1]![bp_diastolic])Avg([QRY_SummaryDiabetes1]![bp_systolic])Sum(Switch(IsNumeric([QRY_SummaryDiabetes1]![bp_systolic]),1))Count(Switch(([QRY_SummaryDiabetes1]![bp_systolic]<130 And [QRY_SummaryDiabetes1]![bp_diastolic]<80),1))Count(Switch(([QRY_SummaryDiabetes1]![bp_systolic]<140 And [QRY_SummaryDiabetes1]![bp_diastolic]<90),1))LVAL"8& :   4 H vFBVBz 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))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])2Zt T | 4 . p 6 p & @@,fTf~ j  e>Null# g e>Null# ge>@ 'e>tblDemoQRY_SummaryDiabetes1p@SG e>tblDemoQRY_SummaryDiabetes1l@SG e>Test_Urine_Protein_AvgZ@I== oe>Test_Urine_Protein_numericJ@QEE oe>Test_Urine_Protein~@A55 oe>Test_LDL_Under_100r@A55 oe>Test_LDL_130Underr@?33 oe>Test_LDL_130_AndOverp@E99 oe>Test_LDL_100_to_129@ C77 oe>~Test_LDL_100Underr@ ?33 oe>}Test_LDL_AvgV@ 5)) oe>|Test_LDL_numericH@ =11 oe>{Test_LDL|@ -!! oe>zTest_HDL_35_Undern@?33 oe>yTest_HDL_AvgV@5)) oe>xTest_HDL_numericH@=11 oe>wTest_HDL|@-!! oe>vTest_Triglyceride_200_AndOverp@WKK oe>uTest_Triglyceride_AvgZ@G;; oe>tTest_Triglyceride_numericJ@OCC oe>sTest_Triglyceride~@?33 oe>rTest_Cholesterol_200_AndOverr@UII oe>qTest_Cholesterol_AvgZ@!E99 oe>pTest_Cholesterol_numericJ@ MAA oe>oTest_Cholesterol~@=11 oe>nTest_AST_AvgV@5)) oe>mTest_AST_numericv@=11 oe>lTest_AST|@-!! oe>kTest_ALT_AvgV@5)) oe>jTest_ALT_numericv@=11 oe>iTest_ALT|@-!! oe>hTest_Creatinine_2pt5_Overp@OCC oe>gTest_Creatinine_1pt5_To_2pt5@UII oe>fTest_Creatinine_1pt5_Underr@QEE oe>eTest_Creatinine_AvgZ@C77 oe>dTest_Creatinine_numericx@K?? oe>cTest_Creatinine~@;// oe>bTest_MicroAl-Creatinine_30_Overn@[OO oe>aTest_MicroAl-Creatinine_30_AndUnderr@cWW oe>`Test_MicroAl-Creatinine_AvgZ@SGG oe>_Test_MicroAl-Creatinine_numericx@[OO oe>^Test_MicroAl-Creatinine~@K?? oe>]DateDiff90n@ 1%% oe>\Test_HbA1C_Under_8rn@ C77 oe>[Test_HbA1C_9pt5_AndOverr@ K?? oe>ZTest_HbA1C_10_AndOverp@ G;; oe>YTest_HbA1C_9_To_9pt9@ E99 oLVAL"l 8 t Z P n ~4n.<(\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)(((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)) @ @ @ @ @ @ @ @ @ @ @ @ @ @'()*+,-./01234 5!6"7#8$9%:&;'()*+,-./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             !"#$%& '!(")#*$+%,&-'.(/)0*1+2,3-4.5/60718293:456789:;<= > ? @ A BCDEFGHIJKLMNOPQR;dF(y1 \  v $ H r 0 j $ Vx0J\z2x2bP e>3Bp_Systolic_AvgR@;// oe>2Bp_Checked|@1%% oe>1Bp_130_80Under@9-- oe>0Bp_140_90Under@9-- oe>/Bp_140_90Over@7++ oe>.Bp_135_85Over@7++ oe>-Bp_130_85Over@7++ oe>,BMI_30_AndOverb@9-- oe>+BMI_25_To_29@5)) oe>*BMI_24_AndUnder`@;// oe>)BMI_Calculatedl@9-- oe>(Homelesst@-!! oe>'Migrantr@+ oe>&Diabetes_Type_2@;// oe>%Diabetes_Type_1@;// oe>$Diabetes_Type_Unknown@G;; oe>#Insurance_nonet@9-- oe>"Insurance_othert@;// oe>!Insurance_commercialt@E99 oe> Insurance_medicaret@A55 oe>Insurance_medicaidt@A55 oe>Insurance_specifiedv@ C77 oe>Ethnicity_Other@ ;// oe>Ethnicity_Hispanic|@ A55 oe>Ethnicity_Asianv@ ;// oe>Ethnicity_AmIndian~@ A55 oe>Ethnicity_Blackv@;// oe>Ethnicity_White@;// oe>Age_55AndOverb@7++ oe>Age_45AndOverb@7++ oe>Age_65_AndOverb@9-- oe>Age_60_AndOverb@9-- oe>Age_50_To_59~@5)) oe>Age_40_To_49~@5)) oe>Age_30_To_39~@5)) oe>Age_15_To_29~@!5)) oe>Age_14_AndUnderb@ ;// oe>Age_Unknownj@3'' oe> Gender_Unspecified@A55 oe> Gender_Maleb@3'' oe> Gender_Femaleb@7++ oe> Patient_Visit_6_AndOvert@K?? oe> Patient_Visit_3_To_5@E99 oe>Patient_Visit_1_To_2@E99 oe>Patient_Visit_0~@;// oe>Patient_Visit_AvgN@?33 oe>Patient_CountCount(tblDemo.Patient_ID)R++ oe>TestsNull- oe>VisitsNull/ oe>DemographicsNull;)) oe>pcp tblDemo.pcp0 oe>QRY_SummaryDiabetes1999 e>tblDemo e> Ge> Ge> e> G e>Null# g e>Null# gLVAL$ ` . : H 6NtBCount(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]="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))LVALV&X n  T \nz Count(Switch([QRY_SummaryDiabetes1]![hlth_retinopathy]=True,1))Count(Switch([QRY_SummaryDiabetes1]![hlth_peripheral]=True,1))Count(Switch([QRY_SummaryDiabetes1]![hlth_neuropathy]=True,1))Count(Switch([QRY_SummaryDiabetes1]![hlth_nephropathy]=True,1))Count(Switch([QRY_SummaryDiabetes1]![hlth_hypertension]=True,1))Count(Switch([QRY_SummaryDiabetes1]![hlth_hyperlipidemia]=True,1))Count(Switch([QRY_SummaryDiabetes1]![hlth_heart]=True,1))Count(Switch([QRY_SummaryDiabetes1]![hlth_cerebrovascular]=True,1))Sum(IIf([QRY_SummaryDiabetes1]![med_lipid_lower]=True,1,0))Count(Switch([QRY_SummaryDiabetes1]![med_ace_inhibitor]=True,1))Count(Switch([QRY_SummaryDiabetes1]![med_aspirin]=True,1))Count(Switch([QRY_SummaryDiabetes1]![med_bp_other]=True,1))Count(Switch([QRY_SummaryDiabetes1]![med_ag_inhibitor]=True,1))Count(Switch([QRY_SummaryDiabetes1]![med_prandin]=True,1))Count(Switch([QRY_SummaryDiabetes1]![med_glitazones]=True,1))Count(Switch([QRY_SummaryDiabetes1]![med_glucophage]=True,1))Count(Switch([QRY_SummaryDiabetes1]![med_sulfonylurea]=True,1))Count(Switch([QRY_SummaryDiabetes1]![med_insulin]=True,1))Avg([QRY_SummaryDiabetes1]![bp_diastolic])Avg([QRY_SummaryDiabetes1]![bp_systolic])Sum(Switch(IsNumeric([QRY_SummaryDiabetes1]![bp_systolic]),1))Count(Switch(([QRY_SummaryDiabetes1]![bp_systolic]<130 And [QRY_SummaryDiabetes1]![bp_diastolic]<80),1))Count(Switch(([QRY_SummaryDiabetes1]![bp_systolic]<140 And [QRY_SummaryDiabetes1]![bp_diastolic]<90),1))Count(Switch(([QRY_SummaryDiabetes1]![bp_systolic]>140 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))&/ff p " r  6 P  l  ^T>thp2je>bTest_MicroAl-Creatinine_30_Overn@[OO oe>aTest_MicroAl-Creatinine_30_AndUnderr@cWW oe>`Test_MicroAl-Creatinine_AvgZ@SGG oe>_Test_MicroAl-Creatinine_numericx@[OO oe>^Test_MicroAl-Creatinine~@K?? oe>]DateDiff90n@1%% oe>\Test_HbA1C_Under_8rn@C77 oe>[Test_HbA1C_9pt5_AndOverr@K?? oe>ZTest_HbA1C_10_AndOverp@G;; oe>YTest_HbA1C_9_To_9pt9@E99 oe>XTest_HbA1C_8_To_8pt9@E99 oe>WTest_HbA1C_7_To_7pt9@E99 oe>VTest_HbA1C_7_Undern@A55 oe>UTest_HbA1c_numericCount(Switch(Len([ha1c]),1))_55 oe>TTest_HbA1C~@ 1%% oe>STest_HbA1c_AvgZ@ 9-- oe>RColl2003_smkerT@ 9-- oe>QColl2003_smoke_cessation_ref_dec_doned@ g[[ oe>PEducation_exercisesb@ C77 oe>OEducation_foot_checkf@E99 oe>NEducation_dental^@=11 oe>MEducation_selfmanagement_goalx@WKK oe>LEducation_flu_vaccinationp@OCC oe>KEducation_pneumonia_vaccination|@[OO oe>JEducation_retinal_examj@I== oe>IEducation_nutritiond@C77 oe>HEducation_dmV@5)) oe>GHealth_selfmonitor_bg@G;; oe>FHealth_retinopathy~@A55 oe>EHealth_peripheral|@?33 oe>DHealth_neuropathy|@?33 oe>CHealth_nephropathy~@A55 oe>BHealth_hypertension@C77 oe>AHealth_hyperlipidemia@G;; oe>@Health_heartr@5)) oe>?Health_cerebrovascular@I== oe>>Medication_lipid_lowerv@I== oe>=Medication_ace_inhibitor@MAA oe>;Medication_bp_otherv@C77 oe>:Medication_ag_inhibitor~@K?? oe>9Medication_prandint@A55 oe>8Medication_glitazonesz@ G;; oe>7Medication_glucophagez@ G;; oe>6Medication_sulfonylurea~@ K?? oe>5Medication_insulint@ A55 oe>4Bp_Diastolioc_AvgT@ ?33 oLVAL"|&X l 0 j  > > 8\f ,6jhCount(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])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)) @ @ @ @ @ @ @ @ @ @ @ @ @ @|#}$~%&'()*+,-./ 0 1             !"#$%& '!(")#*$+%,&-'.(/)0*1+2,3-4.5/60718293:456789:;<= > ? @ A BCDEFGHIJKLMNOPQRST U!V"W#X$Y%Z&['\(])^*_+`,a-b.cdefghijkl m n o p qrstuvwxyz{|}~ !"#$% & ' ( )*,-./012345+6           !"7`P p . h  r  h  v , d<PNd-aC%` He> Ge>@ 'e>tblDemoqryMaxServiceDateAtEndOfPeriod@g[ e>tblDemoqryMaxServiceDateAtEndOfPeriod@ g[ e>age65_AndOver_with_pneumo_vax@WKK oe>tblDemo.chart_number3 ge>tblDemo.clinic_code2 ge>qryMaxServiceDateAtEndOfPeriodMMM e>tblDemo e> Ge> Ge> e> G e>Null# g e>Null# g e>Null# g e> tblDemo.pcp* ge>@ 'e>tblDemoQRY_SummaryDiabetes1p@SG e>tblDemoQRY_SummaryDiabetes1l@SG e>Test_Urine_Protein_AvgZ@I== oe>Test_Urine_Protein_numericJ@QEE oe>Test_Urine_Protein~@A55 oe>Test_LDL_Under_100r@A55 oe>Test_LDL_130Underr@?33 oe>Test_LDL_130_AndOverp@E99 oe>Test_LDL_100_to_129@C77 oe>~Test_LDL_100Underr@?33 oe>}Test_LDL_AvgV@5)) oe>|Test_LDL_numericH@=11 oe>{Test_LDL|@-!! oe>zTest_HDL_35_Undern@?33 oe>yTest_HDL_AvgV@5)) oe>xTest_HDL_numericH@=11 oe>wTest_HDL|@ -!! oe>vTest_Triglyceride_200_AndOverp@ WKK oe>uTest_Triglyceride_AvgZ@ G;; oe>tTest_Triglyceride_numericJ@ OCC oe>sTest_Triglyceride~@ ?33 oe>rTest_Cholesterol_200_AndOverr@UII oe>qTest_Cholesterol_AvgZ@E99 oe>pTest_Cholesterol_numericJ@MAA oe>oTest_Cholesterol~@=11 oe>nTest_AST_AvgV@5)) oe>mTest_AST_numericv@=11 oe>lTest_AST|@-!! oe>kTest_ALT_AvgV@5)) oe>jTest_ALT_numericv@=11 oe>iTest_ALT|@!-!! oe>hTest_Creatinine_2pt5_Overp@ OCC oe>gTest_Creatinine_1pt5_To_2pt5@UII oe>fTest_Creatinine_1pt5_Underr@QEE oe>eTest_Creatinine_AvgZ@C77 oe>dTest_Creatinine_numericx@K?? oe>cTest_Creatinine~@;// oLVAL!4B n $ X 6 J  > z$8H8*tblDemo.clinic_code = qryMaxServiceDateAtEndOfPeriod.clinic_codeDateDiff("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))LVAL| @ f  l  z , X x2j6LIIf(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)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_number'HR&g% c ! e % e % g % 5 mO%m)dF( c(m' >r1uW9 e>qryMaxLabDateInPeriod;;; e>qryLabs e> Ge> Ge> e> G e>tblHealth.raw_code1 g e>tblHealth.chart_number5 g e>tblHealth.clinic_code4 ge>@ 'e>resultJ@) oe>@ ge>tblHealth.chart_number5 ge>tblHealth.clinic_code4 ge>tblHealth### e> Ge> Ge> e> Ge>result_numeric@9-- oe>tblLab.status_flag1 ge>tblLab.service_date2 ge>result_any`@1%% oe>tblLab.raw_code. ge>tblLab.chart_number2 ge>tblLab.clinic_code1 ge>tblLab e> Ge> Ge> e> Ge>@ 'e>tblLab.status_flag1 ge>tblLab.service_date2 ge>result_number@7++ oe>tblLab.raw_code. ge>tblLab.chart_number2 ge>tblLab.clinic_code1 ge>tblLab e> Ge> Ge> e> Ge>tblDemoqryMaxLabandResultInPeriod2~@aU e>tblDemoqryMaxLabandResultInPeriod2z@aU e>24up_numericN@5)) oe>24up_resultF@3'' oe>trig_numericN@5)) oe>trig_resultF@3'' oe>ldl_numericL@3'' oe>ldl_resultD@1%% oe>hdl_numericL@3'' oe>hdl_resultD@1%% oe>chol_numericN@ 5)) oe> chol_resultF@ 3'' oe> alt_numericZ@ 3'' oe> alt_resultR@ 1%% oe> ast_numericZ@ 3'' oe> ast_resultR@1%% oe>alcr_numericN@5)) oe>alcr_resultF@3'' oe>crea_numericN@5)) oe>crea_resultF@3'' oe>Ha1c_numericN@5)) oe>Ha1c_resultF@3'' oe>tblDemo.chart_number3 ge>tblDemo.clinic_code2 ge>tblDemo e>qryMaxLabandResultInPeriod2GGG e> Ge> Ge>  @ @ @ @ @ @ @ @ @ @ @ @ @ @T U!V"W#X$Y%Z&['\(])^*_+`,a-b.cdefghijkl m n o p qrstuvwxyz{|}~ !"#$% & ' ( )*,-./012345+6           !"#$%&'()+,-./01234*5789:;<=> ? @ A6BDEFG  C    !"#$% & ' ( )*,-./01234 5 6 7 8 9+:<=>?@;LVAL f $ 6 @ F l"<(((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"))(((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))tblHealth.raw_code In ("cvd","heart","htn","hyperlipidemia","nephropathy","neuropathy","pvd","retinopathy","self_monitors_bg") AE# _ } _ A # k * m -  R4o/K Q3k*CBeGe>qryLabs.chart_number3 ge>qryLabs.clinic_code2 ge>qryLabs e> Ge> Ge> e> G e>qryLabs2.result_numeric6 g e>qryLabs2.clinic_code3 g e>qryLabs2.status_flag3 g e>qryLabs2.raw_code0 g e>qryLabs2.chart_number4 ge>qryLabs2.result_numeric6 ge>qryLabs2.status_flag3 ge>MaxOfservice_date1Max(qryLabs2.service_date)]55 oe>qryLabs2.raw_code0 ge>qryLabs2.chart_number4 ge>qryLabs2.clinic_code3 ge>qryLabs2!!! e> Ge> Ge> e> G e>qryLabs.status_flag2 g e>qryLabs.raw_code/ g e>qryLabs.chart_number3 g e>qryLabs.clinic_code2 ge>qryLabs.status_flag2 ge>MaxOfservice_date1Max(qryLabs.service_date)\55 oe>qryLabs.raw_code/ ge>qryLabs.chart_number3 ge>qryLabs.clinic_code2 ge>qryLabs e> Ge> Ge> e> Ge>qryLabs2qryMaxLabDateInPeriod2f@ YM! e>qryLabs2qryMaxLabDateInPeriod2@ YM! e>qryLabs2qryMaxLabDateInPeriod2v@ YM! e>qryLabs2qryMaxLabDateInPeriod2r@YM! e>qryLabs2.result_numeric6 ge>qryLabs2.status_flag3 ge>qryLabs2.service_date4 ge>qryLabs2.result_any2 ge>qryLabs2.raw_code0 ge>qryLabs2.chart_number4 ge>qryLabs2.clinic_code3 ge>qryLabs2!!! e>qryMaxLabDateInPeriod2=== e> Ge> Ge> e> Ge>qryLabsqryMaxLabDateInPeriod|@UI e>qryLabsqryMaxLabDateInPeriodn@UI e>qryLabsqryMaxLabDateInPeriodb@UI e>qryLabsqryMaxLabDateInPeriodr@UI e>qryLabsqryMaxLabDateInPeriodn@UI e>qryLabs.status_flag2 ge>qryLabs.service_date3 ge>qryLabs.result_number4 ge>qryLabs.raw_code/ ge>qryLabs.chart_number3 ge>qryLabs.clinic_code2 gK]u9 T  .  F ( W  j ' gI+pH* h)a"o;Iz\> e>tblServices.clinic_code6 ge>tblServices''' e> Ge> Ge> e> G e>tblServices.chart_number7 g e>tblServices.clinic_code6 ge>@ 'e>pap_inappropriateMax(tblServices.service_date)^33 oe>tblServices.chart_number7 ge>tblServices.clinic_code6 ge>tblServices''' e> Ge> Ge> e> G e>tblMed.raw_code. g e>tblMed.chart_number2 g e>tblMed.clinic_code1 ge>@ 'e>resultJ@) oe>@ ge>tblMed.chart_number2 ge>tblMed.clinic_code1 ge>tblMed e> Ge> Ge> e> G e>tblServices.chart_number7 g e>tblServices.clinic_code6 ge>@ 'e>mammogram_inappropriateMax(tblServices.service_date)j?? oe>tblServices.chart_number7 ge>tblServices.clinic_code6 ge>tblServices''' e> Ge> Ge> e> G e>tblServices.raw_code3 g e>tblServices.chart_number7 g e>tblServices.clinic_code6 ge>l@ 'e>resultMax(tblServices.service_date)H oe>J@ ge>tblServices.chart_number7 ge>tblServices.clinic_code6 ge>tblServices''' e> Ge> Ge> e> G e>qryLabs2.raw_code0 g e>qryLabs2.chart_number4 g e>qryLabs2.clinic_code3 ge>@  'e>MaxOfservice_dateMax(qryLabs2.service_date)[33 oe>qryLabs2.raw_code0 ge>qryLabs2.chart_number4 ge>qryLabs2.clinic_code3 ge>qryLabs2!!! e> Ge> Ge> e> G e>qryLabs.status_flag2 g e>qryLabs.raw_code/ g e>qryLabs.chart_number3 g e>qryLabs.clinic_code2 ge>@  'e>qryLabs.status_flag2 ge>MaxOfservice_dateMax(qryLabs.service_date)Z33 oe>qryLabs.raw_code/ g @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @$%&'()+,-./01234*5789:;<=> ? @ A6BDEFG  C    !"#$% & ' ( )*,-./01234 5 6 7 8 9+:<=>?@    ;            !"$%&'()* + ,#-/0123456 7 8 9.:<=>?@AB C D;EGHIJ   F            ! "G=L. ]  p - m O 1  J z ; bD&Yt1I lNk)dbe> e> Ge>d@  'e>tblHealthqsmMajorDepresnj@ MA# e>tblHealthqsmMajorDepresnf@ MA# e>tblHealthqsmDysthymiad@G;# e>tblHealthqsmDysthymia`@G;# e>qsmMajorDepresn.start_date9 ge>qsmDysthymia.start_date6 ge>depressed@/## oe>tblHealth.chart_number5 ge>tblHealth.clinic_code4 ge>qsmMajorDepresn/// e>qsmDysthymia))) e>tblHealth### e> Ge> Ge> e> G e>qryLabs2.result_numeric6 g e>qryLabs2.status_flag3 g e>qryLabs2.raw_code0 g e>qryLabs2.chart_number4 g e>qryLabs2.clinic_code3 ge>@ 'e>qryLabs2.result_numeric6 ge>qryLabs2.status_flag3 ge>MinOfservice_dateMin(qryLabs2.service_date)[33 oe>qryLabs2.raw_code0 ge>qryLabs2.chart_number4 ge>qryLabs2.clinic_code3 ge>qryLabs2!!! e> Ge> Ge> e> G e>qryLabs.status_flag2 g e>qryLabs.raw_code/ g e>qryLabs.chart_number3 g e>qryLabs.clinic_code2 ge>@ 'e>qryLabs.status_flag2 ge>MinOfservice_dateMin(qryLabs.service_date)Z33 oe>qryLabs.raw_code/ ge>qryLabs.chart_number3 ge>qryLabs.clinic_code2 ge>qryLabs e> Ge> Ge> e> G e>tblServices.raw_code3 g e>tblServices.chart_number7 g e>tblServices.clinic_code6 ge>@ 'e>resultMax(tblServices.service_date)H oe>@ ge>tblServices.chart_number7 ge>tblServices.clinic_code6 ge>tblServices''' e> Ge> Ge> e> G e>tblServices.raw_code3 g e>tblServices.chart_number7 g e>tblServices.clinic_code6 ge>@ 'e>resultMax(tblServices.service_date)H oe>@ ge>tblServices.chart_number7 gLVAL& l F  N~f.*IIf(IsDate([tblMed]![end_date])>0,CDate([tblMed]![end_date]),Date())tblDemo.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 In ("pne vac","smke ass","PHQ","New epi","curr func","mammogram","pap smear","MamAbnDx")*(6 M*  K, ^ |I%Gvi ECHpI1@I1@qUndxċ٤@xċ٤@qUnduplicatedPCP"@@NNNBBBBBBB@ @BË٤@BË٤@qUnduplicatedLabCrosswalk"@ @```TTTTTTTR @.٤@.٤@qUnduplicatedDxCrosswalk"@ @^^^RRRRRRRP @,@,@qSummary2"Z@ @@@@44444442 @}٤@}٤@qSummary1a"@ @BBB66666664 @,@,@qSummary1"Z@ @@@@44444442 @ 6꽋٤@꽋٤@qsmSmokeAsmtCurrentEver2"@@@Aj^^RRRRRRRP @&v٤@꽋٤@qsmSmokeAsmtCurrentEver1"@@@Aj^^RRRRRRRP @&v٤@&v٤@qsmSigmoidoscopyLast5yr_Over50"B@@@@Avjj^^^^^^^\ @u?٤@u?٤@qsmRxOrPsych"@@FFF:::::::8 @ 6ʹ٤@ʹ٤@qsmPHQ4"@@<<<0000000. @񓸋٤@ʹ٤@qsmPHQ2a"@@>>>22222220 @񓸋٤@񓸋٤@qsmPHQ2"@@<<<0000000. @٤@٤@qsmPHQ1"]@ ?<<<0000000. @٤@٤@qsmPapLast36Female18andOver"B@ ?@@>pddXXXXXXXV @m赋٤@m赋٤@qsmOralAntiCoagEndOfPeriod"@?@@>nbbVVVVVVVT @6s٤@s٤@qsmMamAbnLast30Female40andOver"@?@*vjj^^^^^^^\ @<٤@<٤@qsmMamAbnDx"@?@@>PDD88888886 @ȱ٤@ȱ٤@qsmMajorDepresn"@?LLL@@@@@@@> @A@C#@qsmFOBTLast1yr_Over50"@?`@>dXXLLLLLLLJ @6e٤@e٤@qsmFemale18AndOver"H@?@&^RRFFFFFFFD @e٤@e٤@qsmDysthymia"@?FFF:::::::8 @٤@٤@qsmDepressionTx1"@ 8NNNBBBBBBB@ @٤@٤@qsmCurrFunc3"@ 8FFF:::::::8 @孋٤@孋٤@qsmCurrFunc2"@ 8FFF:::::::8 @6 q٤@ej@qsmColorectalScrn5or10yr"@8@>j^^RRRRRRRP @\:٤@\:٤@qsmColorectalScrn1yr"@8@@>bVVJJJJJJJH @ũ٤@\:٤@qsmColonoscopyLast10yr_Over50"B@8@@>thh\\\\\\\Z @ũ٤@ũ٤@qsmClopidogrelEndOfPeriod"@8```TTTTTTTR @6٤@٤@qsmAntiplateletEndOfPeriod";@8@0nbbVVVVVVVT @T㥋٤@T㥋٤@qsmAntidepressant2"@7RRRFFFFFFFD @T㥋٤@T㥋٤@qsmAntidepressant1"@7RRRFFFFFFFD @n٤@n٤@qryMinLabDateInPeriod2"@8ZZZNNNNNNNL @n٤@n٤@qryMinLabDateInPeriod"Z@9XXXLLLLLLLJ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @#%&'()*+,-. / 0 1 2 3$46789:;<=>?@ABCD5E F     !"#$%&'()+,-./0123456*79:;<=>?@ABC8D     E   !"#$%&'( ) * +,./0123456789:;<-        !"#$%&'(*+,)FXt x Z <  | <  O  [ wK!g/j@"r3p3cE' f"Te> e> Ge>R@  'e>tblDemotblServices^@ A5 e>tblDemotblServicesZ@A5 e>tblServices.service_date7 ge>colon10yrD@/## oe>tblServices.chart_number7 ge>tblServices.clinic_code6 ge>tblDemo e>tblServices''' e> Ge> Ge> e> Ge>@ 'e>tblDemotblMedT@7+ e>tblDemotblMedP@7+ e>tblMed.start_date0 ge>clopidogrel_eop@;// oe>tblMed.raw_code. ge>tblDemo.chart_number3 ge>tblDemo.clinic_code2 ge>tblMed e>tblDemo e> Ge> Ge> e> Ge>@ 'e>tblDemotblMedT@7+ e>tblDemotblMedP@7+ e>tblMed.start_date0 ge>asa_eop@+ oe>tblMed.raw_code. ge>tblDemo.chart_number3 ge>tblDemo.clinic_code2 ge>tblMed e>tblDemo e> Ge> Ge> e> Ge>tblDemoqsmOralAntiCoagEndOfPeriod|@_S e>tblDemoqsmASAEndOfPeriodj@MA e>tblDemoqsmClopidogrelEndOfPeriodz@]Q e>tblDemoqsmOralAntiCoagEndOfPeriodx@_S e>tblDemoqsmASAEndOfPeriodf@MA e>tblDemoqsmClopidogrelEndOfPeriodv@]Q e>antiplatelet6@5)) oe>tblDemo.chart_number3 ge>tblDemo.clinic_code2 ge>tblDemo e>qsmASAEndOfPeriod333 e>qsmClopidogrelEndOfPeriodCCC e>qsmOralAntiCoagEndOfPeriodEEE e> Ge> Ge> e> Ge>@ 'e>qsmAntidepressant1tblMedj@ MA5 e>qsmAntidepressant1tblMedf@ MA5 e>antidepressant!IIf([tblMed]![start_date],True)Z-- oe>tblMed.chart_number2 ge>tblMed.clinic_code1 ge>tblMed e>qsmAntidepressant1555 e> Ge> GLVAL\ D b  n(th tblDemo.clinic_code = qsmColonoscopyLast10yr_Over50.clinic_codetblDemo.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_code{=zN$Z x Z <  z " i   a C % >!7 D&d8Wqe>tblServicesqryMaxServiceDateAtEndOfPeriod@ oc' e>qsmPHQ1tblServices^@ A5 e>qsmPHQ1tblServicesZ@ A5 e>qsmCurrFunctblServicesf@ I=' e>qsmCurrFunctblServicesb@ I=' e>last_currfunc_dateX@A55 oe>currfunction@5)) oe>tblServices.chart_number7 ge>tblServices.clinic_code6 ge>qryMaxServiceDateAtEndOfPeriodMMM e>qsmPHQ1 e>tblServices''' e>qsmCurrFunc''' e> Ge> Ge> e> G e>[tblServices]![result]5 g e>tblServices.chart_number7 g e>tblServices.clinic_code6 ge>@ 'e>tblServicesqsmPHQ1b@A5' e>tblServicesqsmPHQ1Z@A5' e>tblServicesqsmPHQ1^@A5' e>new_epi_currfunc_score[tblServices]![result]a== oe>currfunc_date!Max([qsmPHQ1]![newEpi_PHQdate])X++ oe>new_epi-currfuncX@=11 oe>tblServices.chart_number7 ge>tblServices.clinic_code6 ge>qsmPHQ1 e>tblServices''' e> Ge> Ge> e> Ge>tblDemoqsmColonoscopyLast10yr_Over50@eY e>tblDemoqsmSigmoidoscopyLast5yr_Over50@g[ e>tblDemoqsmColonoscopyLast10yr_Over50~@eY e>tblDemoqsmSigmoidoscopyLast5yr_Over50@g[ e>coloscrnJ@-!! oe>tblDemo.chart_number3 ge>tblDemo.clinic_code2 ge>qsmColonoscopyLast10yr_Over50KKK e>qsmSigmoidoscopyLast5yr_Over50MMM e>tblDemo e> Ge> Ge> e> G e>F@ g e>D@ ge>@ 'e>qActiveServicesLatest2tblDemot@WK= e>qActiveServicesLatest2tblDemop@WK= e>coloscrn1@ /## oe>F@  ge>D@  ge>tblDemo e>qActiveServicesLatest2=== e> Ge> GLVALHD 8   $X"FvtblDemo.clinic_code = tblServices.clinic_code(((tblServices.raw_code)="Psychiatric Consult"))qsmDepressionTx1.chart_number = tblServices.chart_numberqsmDepressionTx1.clinic_code = tblServices.clinic_codeIIf([service_date]<DateAdd("d",-31,[LastCSD_date]),True)(((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])>Az k; S ) } ? x 4 O k M  f(bD&0aycJ VsmokerTrue/ oVtblDemo.chart_number3 gVtblDemo.clinic_code2 gVqsmSmokeAsmtCurrentEver1AAA VtblDemo VqsmSmokeCessationOfferedInPeriod1SSS V GV GV V GV@ 'VqryMaxServiceDateAtEndOfPeriodtblServices@ocM VqryMaxServiceDateAtEndOfPeriodtblServices@ocM VqryMaxServiceDateAtEndOfPeriodtblServices@ocM VtblDemoqryMaxServiceDateAtEndOfPeriod@g[ VtblDemoqryMaxServiceDateAtEndOfPeriod@g[ VsmokerIIf([service_date],True)C oVtblDemo.chart_number3 gVtblDemo.clinic_code2 gVqryMaxServiceDateAtEndOfPeriodMMM VtblDemo VtblServices''' V GV GV V GVV@ 'VtblDemotblServices^@A5 VtblDemotblServicesZ@A5 Vsigmoid5yrD@1%% oVtblServices.chart_number7 gVtblServices.clinic_code6 gVtblDemo VtblServices''' V GV GV V GV`@ 'VqsmDepressionTx1tblServicesp@SG1 VqsmDepressionTx1tblServicesl@SG1 VRxOrPsychp@/## oVqsmDepressionTx1.LastCSD_date< gVtblServices.service_date7 gVtblServices.raw_code3 gVtblServices.chart_number7 gVtblServices.clinic_code6 gVqsmDepressionTx1111 VtblServices''' V GV GV V GVh@ 'VtblDemoqryMaxServiceDateAtEndOfPeriod@g[ VtblDemoqryMaxServiceDateAtEndOfPeriod@g[ VageR@# oVpvax65x@) oVtblDemo.chart_number3 gVtblDemo.clinic_code2 gVqryMaxServiceDateAtEndOfPeriodMMM VtblDemo V GV GV LVAL^  | h |`6tblDemo.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(IsNumeric([qActiveLabsLatest3].[ha1c]),Csng([qActiveLabsLatest3].[ha1c]), Null)IIf(Len([qActiveLabsLatest3].[ha1c]),True)IIf(IsNumeric([qActiveLabsLatest3].[chol]),Csng([qActiveLabsLatest3].[chol]), Null)(((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]))tblDemo.chart_number = tblServices.chart_numberIIf(DateDiff("yyyy",[service_date],[forms]![frmReports]![txtEndDate])+Int(Format([Forms]![frmReports]![txtEndDate],'mmdd')<Format([service_date],'mmdd'))<=4,True)  @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ 9:;<=>?@   8         !"#$ %&'()*+,- . /0134567829;<=> :          !"#$%& ' ( )+,-./0 1 2*N? < c E ' t 0 q - c / q 7 {=K omWgI+ kA#.V801ha1cCount(qSummary1.[ha1c801])G oV801cholAvg(qSummary1.[chol~avg801])I oVTotalCount(qSummary1.Patient_ID)D oVqSummary1### V V GV@ 'VExpr2@' oVExpr1@' oVtblReportsTemp--- V GV GV V GV@ 'V tblDemoqActiveHealth1d@G; V tblDemoqActiveHealth1`@G; VtblDemoqActiveLabsLatest3l@OC VtblDemoqActiveLabsLatest3h@OC VtblDemoQRY_LatestVisitDaten@QE VtblDemoQRY_LatestVisitDatej@QE VtblDemoqActiveHealthb@E9 VtblDemoqActiveHealth^@E9 VtblDemoqActiveDemo^@A5 VtblDemoqActiveDemoZ@A5 V ha1c~avg802@3'' oVha1c801T@+ oVchol~avg801@3'' oVtblDemo.Patient_ID1 gVtblDemo.end_date/ gVtblDemo.start_date1 gVtblDemo.clinic_code2 gVqActiveDemo.insurance4 gVqActiveDemo.pcp2/ gVqActiveHealth1--- VqActiveLabsLatest3555 VQRY_LatestVisitDate777 VqActiveHealth+++ VqActiveDemo''' VtblDemo V GV V G VIIf([service_date],True)7 g VtblServices.chart_number7 g VtblServices.clinic_code6 gV@ 'VofferedIIf([service_date],True)E oVtblServices.chart_number7 gVtblServices.clinic_code6 gVtblServices''' V GV GV V G VTrue# g VtblDemo.chart_number3 g VtblDemo.clinic_code2 gV@  'VqsmSmokeAsmtCurrentEver1tblDemox@ [OA VqsmSmokeAsmtCurrentEver1tblDemot@ [OA VtblDemoqsmSmokeCessationOfferedInPeriod1@ ma VtblDemoqsmSmokeCessationOfferedInPeriod1@ ma dLVAL*^ j B f (((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))(((tblReportsTemp.type_order)<>0) AND ((tblReportsTemp.display_order)<>0))"[" & [type_order] & Format([display_order],"00") & [raw_code] & "]"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") & "])")((qActiveHealth!raw_code = 'DM-1') Or (qActiveHealth!raw_code = 'DM-2'))tblDemo.chart_number = qActiveHealth1.chart_numbertblDemo.clinic_code = qActiveHealth1.clinic_codetblDemo.chart_number = qActiveLabsLatest3.chart_numbertblDemo.clinic_code = qActiveLabsLatest3.clinic_codetblDemo.chart_number = QRY_LatestVisitDate.chart_number3rHh" p .  ~ 8 D &  i 2  < H* R^ VtlkpCrosswalk.raw_code5 g VtlkpCrosswalk.working_code9 gVN@  'VtlkpCrosswalk.raw_code5 gVtlkpCrosswalk.working_code9 gVtlkpCrosswalk+++ V GV GV V G VtlkpCrosswalk.raw_code5 g VtlkpCrosswalk.working_code9 gVD@  'VtlkpCrosswalk.raw_code5 gVtlkpCrosswalk.working_code9 gVtlkpCrosswalk+++ V GV GV V G V tblDemo.pcp* gV tblDemo.pcp* gVtblDemo V GV GV V G VtlkpCrosswalk.raw_code5 g VtlkpCrosswalk.working_code9 gVF@  'VtlkpCrosswalk.raw_code5 gVtlkpCrosswalk.working_code9 gVtlkpCrosswalk+++ V GV GV V G VtlkpCrosswalk.raw_code5 g VtlkpCrosswalk.working_code9 gVD@  'VtlkpCrosswalk.raw_code5 gVtlkpCrosswalk.working_code9 gVtlkpCrosswalk+++ V GV GV V G VNull# gV@  'Vpcp2Null+ oV802ha1cAvg(qSummary1.[ha1c~avg802])I oLVAL|D 8 x  4l,V(((tblDemo.sex)="F") AND ((IsDate([dob]))=True))(((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_numberKfH* n+ e  a i K -  T u 2 vFEw8vX:q7 q.n lN0VtblHealth.clinic_code4 gVtblHealth### V GV GV V GVD@ 'VtblDemotblServicesZ@A5 VtblDemotblServices^@A5 VtblServices.service_date7 gVfobt1yrN@+ oVtblServices.chart_number7 gVtblServices.clinic_code6 gVtblServices''' VtblDemo V V GV`@ 'Vfemale406@-!! oVtblDemo.chart_number3 gVtblDemo.clinic_code2 gVtblDemo V GV GV V GV`@ 'Vfemale186@-!! oVtblDemo.chart_number3 gVtblDemo.clinic_code2 gVtblDemo V GV GV V GV@ 'VtblHealth.start_date3 gVtblHealth.raw_code1 gVtblHealth.chart_number5 gVtblHealth.clinic_code4 gVtblHealth### V GV GV V G e>tblServices.chart_number7 g e>tblServices.clinic_code6 ge>@ 'e>CSD24 Last(IIf([service_date],True))G oe>LastCSD_dateMax(tblServices.service_date)T)) oe>tblServices.chart_number7 ge>tblServices.clinic_code6 ge>tblServices''' e> Ge> Ge> e> Ge>L@ 'e>tblServicesqsmCurrFunc2t@K?' e>tblServicesqsmCurrFunc2h@K?' e>tblServicesqsmCurrFunc2d@K?' e>qsmCurrFunctblServicesf@I=' e>qsmCurrFunctblServicesb@I=' e>functiondrop@5)) oe>tblServices.raw_code3 ge>tblServices.chart_number7 ge>tblServices.clinic_code6 ge>qsmCurrFunc2))) e>qsmCurrFunc''' e>tblServices''' e> Ge> Ge> e> Ge>tblServicesqryMaxServiceDateAtEndOfPeriod@oc'  @ @ @ @ @ @ @ @ @ @ @ @ @ @     E   !"#$%&'( ) * +,./0123456789:;<-        !"#$%&'(*+,-./0)134567892:<=>?@ABCD;EGHIJF      !"#$%&'()*+-./012345678,9;<=>?@A  : LVAL 4 . nvhhPD2qryMaxServiceDateAtEndOfPeriod.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)IIf(DateDiff("yyyy",[dob],[forms]![frmReports]![txtEndDate])+Int(Format([Forms]![frmReports]![txtEndDate],'mmdd')<Format([tblDemo].[dob],'mmdd'))>=19,True)#@@@  @   @@ @   @   hiv+fWh+Sd^^dsofJSmQiYbOQuhiv+fWh+YbOQu+OJmQhiv+fWh+`Yb+`Ju+OJmQYbfQiYdOhiv+fWhMkO+8km+Sd^^dsof+fWh+OJmQ#hiv+fWhMkO+8km+Sd^^dsof+qYkYm+OJmQ#hiv+k`d\QikYbfQiYdOhiv+k`d\Qik^JkmQqJ^ hiv+k`d\Qik^JkmQqJ^OJmQ hiv+koLkmJLokQYbfQiYdO hiv+ko``JivJfWk8 hiv+ko``JivJfWk: hiv+ko``JivOQfiQkkYdb8hiv+ko``JivOQfiQkkYdb:hiv+ko``JivOQfiQkkYdb:+fMfhiv+ko``JivOYJLQmQk8hiv+ko``JivOYJLQmQk:hiv+ko``JivOYJLQmQk:+fMfhivJUQ+B@+JbOdqQisYmW+fbQo`d+qJuhivOYJLQmQk^JLkYbfQiYdOhiv^JLkhiv^JLk:hiv`JuWQJ^mWOJmQYbfQiYdOhiv`Ju^JLJbOiQko^mYbfQiYdOhiv`Ju^JLJbOiQko^mYbfQiYdO:hiv`Ju^JLOJmQhiv`Ju^JLOJmQ:hiv`Ju^JLOJmQYbfQiYdOhiv`Ju^JLOJmQYbfQiYdO:hiv`Ju`J``dUiJ`^Jkm+:vQJikhiv`Ju`J``dUiJ`^Jkm+:vQJik+YbJffidfiYJmQ hiv`Ju`QOOJmQYbfQiYdO!hiv`JufJf^JkmvQJi+YbJffidfiYJmQ"hiv`JukQiqYMQOJmQJmQbOdSfQiYdO#hiv`JukQiqYMQOJmQYbfQiYdO$hiv`Yb^JLOJmQYbfQiYdOhiv`Yb^JLOJmQYbfQiYdO:hk`JbmYOQfiQkkJbm8hk`JbmYOQfiQkkJbm:hk`JbmYf^JmQ^QmQbOdSfQiYdOhk`JkJQbOdSfQiYdOhk`M^dfYOdUiQ^QbOdSfQiYdOhk`Md^dbdkMdfv^Jkm86vi+dqQi@6hk`Md^diQMmJ^kMib8vihk`Md^diQMmJ^kMib@di86vi hk`MoiiSobM hk`MoiiSobM: hk`MoiiSobM< hk`OQfiQkkYdbmu8 hk`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`iudifkvMWhk`kYU`dYOdkMdfv^Jkm@vi+dqQi@6hk`k`d\QJk`mMoiiQbmQqQi8hk`k`d\QJk`mMoiiQbmQqQi: hk`k`d\QMQkkJmYdbdSSQiQOYbfQiYdO8!hko``Jiv8"hko``Jiv8J#hko``Jiv:$hobOof^YMJmQOOuMidkksJ^\%hobOof^YMJmQO^JLMidkksJ^\&hobOof^YMJmQOfMf'hobOof^YMJmQOiuMidkksJ^\hobOof^YMJmQOkQiqYMQMidkksJ^\mL^Mokmd`(mL^OQ`d1mL^WQJ^mW2mL^^JL*mL^`QO+mL^hoQiYQkmL^iQfdimkmL^iQfdimkOJmJ mL^iQfdimkkfQMYJ^ mL^iQfdimkmQ`f mL^kQiqYMQk,mL^qYkYmk-m^\fMYmvm^\fM^YbYM.m^\fMidkksJ^\/m^\fOQSJo^mk0m^\fQmWbYMYmv1m^\fUQbOQi2m^\fYbkoiJbMQ3m^\ffMf4m^\ff^JbUoJUQ5m^\fkQmof6m^\fkmJmokS^JUk7m^\fqYkYmmvfQ8JMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQOokQiOQSYbQORB@D l 6 z & u K -  s  T7GO%W[lN0nDVpap2yrB@) oVV@ gVT@ gVqryMaxServiceDateAtEndOfPeriodMMM VtblDemo V GV GV V GV@ 'VtblDemotblMedT@7+ VtblDemotblMedP@7+ VtblMed.start_date0 gVanticoag_eop@5)) oVtblMed.raw_code. gVtblDemo.chart_number3 gVtblDemo.clinic_code2 gVtblMed VtblDemo V GV GV V GV@ 'VqryMaxServiceDateAtEndOfPeriodtblServices@ocM VqryMaxServiceDateAtEndOfPeriodtblServices@ocM VqryMaxServiceDateAtEndOfPeriodtblServices@ocM VtblDemoqryMaxServiceDateAtEndOfPeriod@g[ VtblDemoqryMaxServiceDateAtEndOfPeriod@g[ Vmam_datetblServices.service_dateG!! oVmam30mIIf(IsDate([mammogram]),True)H oVtblServices.result1 gVtblServices.chart_number7 gVtblServices.clinic_code6 gVqryMaxServiceDateAtEndOfPeriodMMM VtblDemo VtblServices''' V GV GV V GVH@ gVmam_abn30mIIf([result]="abnormal",True)P%% oVP@ gVN@ gVqsmMamLast30Female40andOverGGG V GV GV V GVqryMaxServiceDateAtEndOfPeriodqsmMamAbnLast30Female40andOver@ M VqryMaxServiceDateAtEndOfPeriodqsmMamAbnLast30Female40andOver@ M Vmam_dx`@ ) oVN@  gVV@  gVT@ gVqsmMamAbnLast30Female40andOverMMM VqryMaxServiceDateAtEndOfPeriodMMM V GV GV V GV|@ 'VtblHealth.start_date3 gVtblHealth.raw_code1 gVtblHealth.chart_number5 gLVALh < :"@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))<|^@" h A  } ) U  _ swwwY-pR4Mu6V GVPHQretest5@1%% oVqsmPHQ1.chart_number3 gVqsmPHQ1.clinic_code2 gVqsmPHQ1 V GV GV V GVPHQ6m@ ' oVqsmPHQ1.chart_number3 gVqsmPHQ1.clinic_code2 gVqsmPHQ1 V GV GV V GVPHQdrop50p@ 1%% oVqsmPHQ1.chart_number3 gVqsmPHQ1.clinic_code2 gVqsmPHQ1 V GV GV V GV`@  'V qryMaxServiceDateAtEndOfPeriod_1tblServices_1@ wkQ V qryMaxServiceDateAtEndOfPeriodtblServicesz@ ocM VqryMaxServiceDateAtEndOfPeriodtblServices@ocM VqryMaxServiceDateAtEndOfPeriodtblServices@ocM VqryMaxServiceDateAtEndOfPeriod_1tblServices_1@wkQ VqryMaxServiceDateAtEndOfPeriod_1tblServices_1@wkQ VtblDemoqryMaxServiceDateAtEndOfPeriod_1@k_ VtblDemoqryMaxServiceDateAtEndOfPeriod_1@k_ VtblDemoqryMaxServiceDateAtEndOfPeriod@g[ VtblDemoqryMaxServiceDateAtEndOfPeriod@g[ V NewEpi_EOPgap@7++ oV PHQ_EOPgap@1%% oVNewEpi_PHQchange^@=11 oVNewEpi_PHQgap@7++ oVnewEpi_PHQdateX@9-- oVnewEpi_PHQtblServices_1.resultG%% oVcurrent_PHQtblServices.resultG'' oVCSD@ # oVtblDemo.chart_number3 gVtblDemo.clinic_code2 gVtblServicestblServices_1AA' VqryMaxServiceDateAtEndOfPeriodqryMaxServiceDateAtEndOfPeriod_1M VqryMaxServiceDateAtEndOfPeriodMMM VtblServices''' VtblDemo V GV GV V G VV@  g VT@  gV^@  'Vqr