2.0P17 1064 BMI_ADULT KING,MATTHEW M MD WORLDVISTA DEMO CLINIC 06/28/2011@00:16:07 BMI PXRMBMI 3245654505 0:-1,1:1) S NOCC=$S(NGET>0:NGET,1:-NGET) ;Get a list of weight measurements in the date range. S TDATE=BDT-.000001 F S TDATE=+$O(^PXRMINDX(120.5,"PI",DFN,9,TDATE)) Q:(TDATE=0)!(TDATE>EDT) D . S DAS=$O(^PXRMINDX(120.5,"PI",DFN,9,TDATE,"")) . S WLIST(TDATE)=DAS ;Get up to NOCC BMI values. S TDATE="",(DONE,NFOUND)=0 F S TDATE=$O(WLIST(TDATE),SDIR) Q:(DONE)!(TDATE="") D . S DAS=WLIST(TDATE) . K TEMP . D GETDATA^PXRMVITL(DAS,.TEMP) . I TEMP("RATE")'=+TEMP("RATE") Q . S WT=+TEMP("RATE")*0.4535924 .;Find the closest height measurement. . D GHEIGHT(DFN,TDATE,.HT,.HDATE) . I HT=-1 Q . S NFOUND=NFOUND+1 . S WHL(NFOUND)=TDATE_U_WT_U_HT_U_HDATE . I NFOUND=NOCC S DONE=1 Q ; ]]> HEALTH FACTORS 9999999.64 CPT-4 CODES 500146 124440117 NO HEALTH FACTORS 9999999.64 3008F-1P 500201 1352173547 NO HEALTH FACTORS 9999999.64 SNOMED CODES 500013 3190378291 NO HEALTH FACTORS 9999999.64 300936002 500199 397166804 NO HEALTH FACTORS 9999999.64 289908002 500145 788821390 NO HEALTH FACTORS 9999999.64 60621009 500181 569112164 NO HEALTH FACTORS 9999999.64 408289007 500198 4170427331 NO HEALTH FACTORS 9999999.64 401003006 500197 1363147531 NO HEALTH FACTORS 9999999.64 307818003 500196 2630719757 NO HEALTH FACTORS 9999999.64 306163007 500191 2223638187 NO HEALTH FACTORS 9999999.64 305849009 500190 3073422179 NO HEALTH FACTORS 9999999.64 275919002 500189 3706308575 NO HEALTH FACTORS 9999999.64 268523001 500188 928494013 NO HEALTH FACTORS 9999999.64 225171007 500187 3460325139 NO HEALTH FACTORS 9999999.64 170795002 500186 1975622243 NO HEALTH FACTORS 9999999.64 169411000 500185 3517150688 NO HEALTH FACTORS 9999999.64 103699006 500182 2245120525 NO REMINDER COMPUTED FINDINGS 811.4 VA-BMI 1 3808685416 NO 25"; 3) This finding will be evaluated to true for patients with a BMI that is greater than 25. This is a multi-occurrence computed finding. 811.4;+1,;5~MULTIPLE 811.4;+1,;100~NATIONAL 811.42;+2,+1,;.01~06/28/2011@00:16:26 811.42;+2,+1,;2~WP-start~1 Exchange Stub ]]> REMINDER TAXONOMY 811.2 PQRI M128 DEM C4 EXCLUSION 66 3384846975 NO REMINDER TAXONOMY 811.2 PQRI PREGNANCY I9 CODES 47 334965997 NO REMINDER TAXONOMY 811.2 MU_E+M_CODES 124 680439177 NO REMINDER TAXONOMY 811.2 PQRI M128 NUM INCL F-U CODES 65 1975159067 NO REMINDER TERM 811.5 PQRI M128 BMI ABN 498 1563044194 NO REMINDER TERM 811.5 PQRI M128 NL BMI 497 216660833 NO 18.5)&(V<25)&(PXRMAGE<65) 811.52;+499,+497,;15~NO 811.52;+499,+497,;18~YES 811.52;+499,+497,;22~I (V>18.5)&(V<25)&(PXRMAGE<65) 811.53;+500,+497,;.01~06/28/2011@00:16:27 811.53;+500,+497,;2~WP-start~1 Exchange Stub ]]> REMINDER TERM 811.5 PQRI M128 DENOMINATOR EXCLUSIONS 437 3903178578 NO REMINDER TERM 811.5 PQRI M128 SNM BMI DOCUMENTATION 261 744314733 NO REMINDER TERM 811.5 PQRI M128 SNM WT FU CODES 241 740827551 NO REMINDER DEFINITION 811.9 MU128 ADUKT BMI LIST 109 180225403 YES 0)&(FI(2)!FI(3))) 811.925;+118,+109,;10~FN(1)=FN(2)&((FN(2)>0)&(FN(4)!FN(5))) 811.925;+118,+109,;41~0 811.925;+118,+109,;42~0 811.9255;+119,+118,+109,;.01~1 811.9255;+119,+118,+109,;.02~MRD 811.9255;+120,+118,+109,;.01~2 811.9255;+120,+118,+109,;.02~MRD 811.9255;+121,+118,+109,;.01~3 811.9255;+121,+118,+109,;.02~MRD 811.9255;+122,+118,+109,;.01~4 811.9255;+122,+118,+109,;.02~FI 811.9255;+123,+118,+109,;.01~5 811.9255;+123,+118,+109,;.02~FI 811.9256;+124,+119,+118,+109,;.01~6 811.9256;+125,+120,+118,+109,;.01~6 811.9256;+126,+121,+118,+109,;.01~6 811.9256;+127,+122,+118,+109,;.01~2 811.9256;+128,+123,+118,+109,;.01~3 811.9256;+129,+119,+118,+109,;.01~5 811.97;+130,+109,;.01~6M 811.97;+130,+109,;1~18 811.97;+130,+109,;5~0 811.97;+130,+109,;6~0 ]]> REMINDER DEFINITION 811.9 MU128 ADULT BMI CORE 114 2126094222 YES 0)&(FI(2)!FI(3))) 811.925;+122,+114,;10~FN(1)=FN(2)&((FN(2)>0)&(FN(4)!FN(5))) 811.925;+122,+114,;41~0 811.925;+122,+114,;42~0 811.9255;+123,+122,+114,;.01~1 811.9255;+123,+122,+114,;.02~MRD 811.9255;+124,+122,+114,;.01~2 811.9255;+124,+122,+114,;.02~MRD 811.9255;+125,+122,+114,;.01~3 811.9255;+125,+122,+114,;.02~MRD 811.9255;+126,+122,+114,;.01~4 811.9255;+126,+122,+114,;.02~FI 811.9255;+127,+122,+114,;.01~5 811.9255;+127,+122,+114,;.02~FI 811.9256;+128,+123,+122,+114,;.01~6 811.9256;+129,+124,+122,+114,;.01~6 811.9256;+130,+125,+122,+114,;.01~6 811.9256;+131,+126,+122,+114,;.01~2 811.9256;+132,+127,+122,+114,;.01~3 811.9256;+133,+123,+122,+114,;.01~5 811.97;+134,+114,;.01~6M 811.97;+134,+114,;1~18 811.97;+134,+114,;5~0 811.97;+134,+114,;6~0 ]]> 30 20 128 25 142 141 132 159 155 146 173 172 163 190 186 177 208 203 194 225 221 212 242 238 229 259 255 246 276 272 263 293 289 280 310 306 297 327 323 314 344 340 331 361 357 348 378 374 365 395 391 382 412 408 399 450 425 416 455 455 477 468 459 483 482 513 496 487 521 518 544 534 525 550 549 612 563 554 628 617 655 641 632 662 660 689 675 666 696 694 729 709 700 739 734 760 752 743 766 765 807 779 770 823 812 919 836 827 944 924 1036 957 948 1060 1041