ࡱ> ruqzM )bjbj== )@WW lH 8 4 DH^2\ D*VS$wY^^^^^^$_ aA^^A^*uV^"8*YYbbP$W,P ▮HX .SVWl^0^S"nbnbW(:Asthma Action Plan for  MacroButton NoMacro [Patient Name]  Your child has been diagnosed with asthma. Asthma starts with a trigger such as a cold, allergy, or smoke.  if  DOCPROPERTY Sex Male = Female Her HisHis lungs have a reaction (inflammation), which causes the muscles in the lungs to tighten (bronchospasm), making breathing difficult. Green Zone (no asthma symptoms)What to do:No difficulty breathing, cough, wheezing or chest tightness Can do usual activities  IF  DOCPROPERTY PeakFlow 0 < 0 " Peak flow over 80% (_______)"  IF  DOCPROPERTY PeakFlow 0 > 0 " Peak flow over  = DOCPROPERTY PeakFlow 250 * 0.8 \# "###"200" Take control medicine:  MacroButton NoMacro _____________________________________  Avoid the triggers you know about if DOCPROPERTY PeakFlow0 <> 0 " Check  if  DOCPROPERTY Sex Male = Female her hishis peak flow two times a day"Yellow Zone (early asthma symptoms)What to do:Shortness of breath, tight feeling in chest, or coughing Waking at night due to asthma Wheezing or sound of pushing breath out Able to do some, but not all of usual activities  IF  DOCPROPERTY PeakFlow 0 < 0 " Peak flow 50% (_______) to 80% (_____)"  IF  DOCPROPERTY PeakFlow 0 > 0 " Peak flow  = DOCPROPERTY PeakFlow 250 * 0.5 \# "###"125 to  = DOCPROPERTY PeakFlow 250 * 0.8 \# "###"200" Take rescue medicine:  MacroButton NoMacro _____________________________________  Call  if  DOCPROPERTY Sex Male = Female her hishis doctor Discuss starting oral steroid medicine  if DOCPROPERTY PeakFlow0 <> 0 " Check  if  DOCPROPERTY Sex Male = Female her hishis peak flow before and after each dose of rescue medicine" if  DOCPROPERTY Sex Male = Female She HeHe should continue taking  if  DOCPROPERTY Sex Male = Female her hishis maintenance medicine Red Zone (late asthma symptoms)What to do:Trouble talking Use of stomach or neck muscles Need rescue medicine more than every 3 hours Sudden onset of chest pain  IF  DOCPROPERTY PeakFlow 0 < 0 " Peak flow less than 50% (_______)"  IF  DOCPROPERTY PeakFlow 0 > 0 " Peak flow less than  = DOCPROPERTY PeakFlow 250 * 0.5 \# "###"125" Take an additional dose of rescue medicine Call  if  DOCPROPERTY Sex Male = Female her hishis doctor or come to the emergency room immediately If  if  DOCPROPERTY Sex Male = Female she hehe has trouble walking or talking due to shortness of breath, or lips or fingernails are blue, call for an ambulance NOW!Is my childs asthma in control? If your childs control medicines are working,  if  DOCPROPERTY Sex Male = Female she hehe will only need  if  DOCPROPERTY Sex Male = Female her hishis rescue medicine once in a while. You can use the Rule of Twos to tell if  if  DOCPROPERTY Sex Male = Female her hishis asthma is in control: Does  if  DOCPROPERTY Sex Male = Female she hehe need  if  DOCPROPERTY Sex Male = Female her hishis rescue medicine more than two times a week? Does  if  DOCPROPERTY Sex Male = Female she hehe wake up at night with asthma more than two times a month? Do you run out of  if  DOCPROPERTY Sex Male = Female her hishis rescue medicine and need to refill it more than two times a year? If the answer to any of these questions is yes, call our office to make an appointment to get  if  DOCPROPERTY Sex Male = Female her hishis asthma in better control.      DATE \@ "MM/dd/yyyy" 12/22/2010  TIME \@ "h:mm AM/PM" 2:40 PM  if  numpages 1 > 1 "Page  page 2 of  numpages 2" ""   if 0 = 1  if  page 1 =  NUMPAGES 1 "Need a standard disclaimer and signature line:  autotext signature lineSigned: ________________________________________ Date:_________ Time:_________ " Need a standard disclaimer and signature line:  autotext signature lineSigned: ________________________________________ Date:_________ Time:_________  \* MERGEFORMAT DOCPROPERTY copyrightText Revised October 19, 2010, D. Wachsstock, MD. Portions (C) 1996-1999 American Academy of Allergy, Asthma and Immunology.  DOCPROPERTY copyrightText2  All rights reserved.   DATE \@ "MM/dd/yyyy" 12/22/2010  TIME \@ "h:mm AM/PM" 2:40 PM  if 0 = 1  if  page 1 =  NUMPAGES 1 "Need a standard disclaimer and signature line:  autotext signature lineSigned: ________________________________________ Date:_________ Time:_________ " Need a standard disclaimer and signature line:  autotext signature lineSigned: ________________________________________ Date:_________ Time:_________  \* MERGEFORMAT  DOCPROPERTY copyrightText Revised October 19, 2010, D. Wachsstock, MD. Portions (C) 1996-1999 American Academy of Allergy, Asthma and Immunology. DOCPROPERTY copyrightText2  All rights reserved. <=~7C)*+,01GHIJ`adez{~'()*89=>OPTUhilmCJmHnHu jCJUCJjCJUmHnHu mHnHu5\ jUR>bc +Qzzzzzzz$If$Ifn$$Ifl40&0&64 lal$If&(2smm$If$$IflOF@&@0&6    4 lal$If$Ifmpquv    ! " & ' * + @ A D E T U X Y [ \ s t    4 5 6 7 E F J K \ ] a b u v y z jUCJmHnHujCJUmHnHu jCJUCJW?p] s  @$If$If$Ifm$$Ifl0&0&64 lal ? J K L l x oii$If$$Ifl F@&@0&6    4 lal  & F$If$Ifz       / 0 3 4 L y z     : ; < = A B X Y Z [ v w z {    G H L M ^ _ c d v w y z CDjCJUmHnHuCJmHnHu jCJUCJYx y {  < b D $If$Ifm$$Ifl0&0&64 lal Sf}{vvv{{{{{{{ & F($$IflF@&@0&6    4 lal DHIZ[_`rsuv  #$78;<XY]^optu'(*+_dxy}~PQUV 5CJ\CJmHnHu jCJUCJ\Vghlm   !"#$()3456;<GHRSWX^_`adeopqrCD^_jUmHnHu0J mHnHu jUCJmHnHu jCJUCJT=>?@ABCDEFGBCXYZ[wx89STBCDSUXZuv  !"()CJjUmHnHu mHnHu0J j0JU jUG78BW#$%&'()' 01F/R / =!"#h$%Dd`  C <A$..\SLPCC logo.PNGb&xRϸD!n&xRϸPNG  IHDRucS`sRGBgAMA a cHRMz&u0`:pQ<PLTE33333333333333f3f33fff33f3fff3ffffffffffff̙̙̙̙̙j=IDATx^] c8M-iMｙ$Z{޶'{V|L G U^k]Q \Q|EW_Q +ׯ_QWԿs\v5T<^jPEO"Dni8VRV5|m5}=ٌX:˒ /s' ,=Syqt \u?()DRFtG|"`=]ueUA)&8׻;u-EaX?M?2.⥽ 8ݹo\;G!h<ߊe9!w;=ƈRr[T%]D/z=r)(6-W<. vqY0Aa)SG^EߡabĝAcY2`s8A{Kan~$7V\8I7X=Yk=.MO N8-`Di7׉7jE7T-kG> c@ȵޮ7BZPe^׀2s8u[P$Qc'D0d ?g'Oò76->+ e-' lݵz<=4ͫv[1-l\Jn X֏Ӣz:sWy']WXGuW^NcY@ $rԺd DzE#_A7|^PG73EQ3b 7ș7 M6YŖ?F}} CUE^ 鰭>Wap՜S{5w=Ɍn}W#NvXZzp< ~E+7@'RAW _J5VsB7-?Q~`Ѻ?GP: hMP=r <VvYur"6 |Yv;Wi9ƺUHkwcYU/սDo%LvX_5>^+#7ݮA-AKaUz7{Z /jkTI3~}C;vVv͟idKd6#yMm)tr 0hI cJf+ v1̛rH԰aH+4Cj%8jX}]#V"$OLw\M×h,b痞ʻ0 Dy9rۡˁw\g&7`ZWm"n0׵s^ j?±b`ۇ`V}һ0&Yp{ԏA]#& Dl/jDmX e"0xB+0=/Ca6R6,`-[@ >)N0nt+NbhLgKң>|zeu[Iv/(E2h3(sт\Ss ׷w2@} ʷ1$CHw;Đk@4e~,rQr]2=Ӑ=Z mЏS{KP@x|(j2%73\H9ù`^Xq:*(cp~hVz\`밃\y#q)m-d1lKQfq&It\r]lg0: y옢R`FTUy. ս%r Q v`R\w;d~spATiඔ "ň1\>m\G.0[̪`N ;}c/&HyDCpn9Fܗ 0H#a=uCr]i٣.gu_J[p}$aPNp|رz:ם^TA_N%7Y_ aR^D=݇ra`Ud7F7bຟ'5>P>>!,s-Wr/Eփ[gDvH`95 ΕV|oDNQ@ \ORXwanK`l;: "`(uvǎz^I=9>*ࢿXSeyXGm6M2bx&ڏږڻ? 9G,4a#2綱ó0.#>mGl13Cr\0\%"9d/ۑղ\}#5!k$}|n/ž͖X|6_-߭h\,@݌<2 ,l0s3UƧPne6~H΁bd@Re2v3qGsQfW1Kx +b"?1[kG #t~p{L{OEx^YPl%5.eLuR3 vQ=(CTwŋ">lк Ƽh9[zx* {R@C %#݃&>]8jܭƐ:-]%G٦WL*G4\Y6i\`܋k@_/jڮD٥-nG<46 v]2"=w6Ƿaư!GYڢ{rDň1HĻwC qn^up!݌b9y^mCɟ V1 *~(Rpuk7}pcY(0DpRvc k͙:sk䑦fuPpw \g<6ʀ CuT;S6A9o*7Z%%F,%wa0&Kf{>AK7u^]&C93!{M?$9kGLK , H 9)=1OEû-Ȉjm(a– FtÝsuS74f ׉xsii{;)r>dW npGvp!GDa\'x _u-(*%*dh5*dC뫼Uosn!V:Td1;&Al a2+E+iϩ\oY*\琷R7]vXF7Z FHT>Y Jv<u CtoxߘɣhҠBn"\C̪ ֜':r;T@b5`s= ]qܫrp=wJ?k*ݒc뫶;0ױ;KQn+ѽsK=hU bX0rljGmo*LTpzHR&K|q%D &(7X@u0Ar-#[ P~7]*uU6s6$*g"_%# yq`mKDq^:gs,jˆa]D_OCAY,jr c?` LUܪqunoH*XNx [WT~@镚qoh/KMwTJݓ(wn{[e 2wkԶ:v OQH~ux>>AgNXQCl+D+1-hDq!}Є Ƿ6@>$=?8@!N&9t&($Sy+_+_:7#$ F9hɮyl4GQWwp;$ӄCp S@;p,-]OQF%"u@qy]ʒi &\^:#':8K/%0 a2 ?c1 \0C=e|Bg<$\8<jlUvr 7Z-R::I u>sWcڿ"I~QC%\SÊ9>>OYt#8YM|bGoHA Hi>L8 A8RϷxmL1{TIoUa%1aQEb%0Qǖajmgu QH@F Title $@& a$5CJ KHOJQJ\^JaJ (OA( dropped 49EH20@R2 List Bullet  & F,O, Note Heading66@r6 List Bullet 2  & F676 List Bullet 3  & F8/8 List 88x^8`)) @ z)>bc +Q2?p]s?JKLlxy{<bD  S f *0:0800b0b0b0b 0b 0b  0b 0b  0b 0b 0b 0b 0b  0b 0b0b0b0b0b0b 0b 0b 0 b 0 b  0b 0 b  0b 0 b 0 b 0b 0b 0b  0b 0b 0b0b0b0b0b0b0b 0b 0b 0b 0b  0b 0b  0b 0b 0b 0b 0b0b(0:0:( 0:( 0:( 00 ;mz DV) x )(<)+0GI`dz~')8=OThlpu  !&*@DTX[s46EJ\auy/3:<AXZvz  G L ^ c v y C H Z _ r u   # 7 ; X ] o t   ' * x } P U g l )3UUĕU"UĔĕ3UUĔĕUĕU"UĔ"UĔĕ3UUUĔĕUUUĕU"UĔĕUUUUUUUUUU,7:QY[`kmzor $%@ /7;FKRTXce7RMNk !!OOĕĕUtU !OOĕĕUtU8AB@,A0 ( nn zn l  . C"4 / l 42 0 Pp42 1 PpH2 2 # P\p|zn  0& 3 C"4 4  0&42 5 P !p@"H2 6 # P"p#42 7 P$p%zn , e2 = C"4 > , e2H2 ? # PU-pu.42 @ P/p%042 A P0p1B S  ?y).'gaT3 LT= LT patientnameCaption2Caption3 Caption2a]*=J*7C &* &*::=*+p\s4;< G z C %*Daniel Wachsstock?\\w8cfile2\wachdh$\Documents\SLPCC\Asthma Action Plan-SLPCC.dotDaniel Wachsstock@\\w8cfile2\wachdh$\Documents\SLPCC\Asthma Action Plan-SLPCC2.dotDaniel Wachsstock@\\w8cfile2\wachdh$\Documents\SLPCC\Asthma Action Plan-SLPCC2.dotDaniel Wachsstock/P:\Documents\SLPCC\Asthma Action Plan-SLPCC.dotDaniel Wachsstock/P:\Documents\SLPCC\Asthma Action Plan-SLPCC.dotDaniel Wachsstock/P:\Documents\SLPCC\Asthma Action Plan-SLPCC.dotDaniel Wachsstock/P:\Documents\SLPCC\Asthma Action Plan-SLPCC.dotDaniel Wachsstock/P:\Documents\SLPCC\Asthma Action Plan-SLPCC.dotDaniel Wachsstock/P:\Documents\SLPCC\Asthma Action Plan-SLPCC.dotDaniel Wachsstock/P:\Documents\SLPCC\Asthma Action Plan-SLPCC.dot(|j;zI}[~(i '#x"{njH\jpoNyr  s< BA: q ."t3,. M!.X&# M&b& n(B J;.>HS 1rVZW9B J_gNJ JJBN%6`L  R>8V JayX FYyr qayX!^tx}_.%6`L xA:b&M!~}|YlF|JVob J;.ZW9B.M&fr zFYn(s<  RS 1t3_gNJV((6#x        6#x                          6#x                                   (^                          6#x        Ӭx                                                     >c]KLlxy{ *"""V)6)@V)6)@V)6)@V)6)@V)6)@V)6)@V)6)@V)6)@ % Project.ThisDocument.initialize#Project.ThisDocument.setPeakFlowHow Project.ThisDocument.setPeakFlowProject.ThisDocument.setHeightProject.ThisDocument.setSex!Project.ThisDocument.updateFieldsProject.ThisDocument.doPtProject.ThisDocument.doFollowupPROJECT.THISDOCUMENT.DOPTPROJECT.THISDOCUMENT.SETSEXPROJECT.THISDOCUMENT.SETHEIGHTPROJECT.THISDOCUMENT.DOFOLLOWUPPROJECT.THISDOCUMENT.INITIALIZE PROJECT.THISDOCUMENT.SETPEAKFLOW!PROJECT.THISDOCUMENT.UPDATEFIELDS#PROJECT.THISDOCUMENT.SETPEAKFLOWHOW@f)@UnknownGz Times New Roman5Symbol3& z Arial?5 z Courier New;Wingdings"qHhkffB w&7< ]F$M!hx20d *=2QHPAsthma Action PlanEmployeeDaniel WachsstockOh+'0 8D ` l x Asthma Action Plansth EmployeetiomplmplAsthma Action Plan-SLPCC.dotMiDaniel Wachsstock-S38iMicrosoft Word 9.0S@ @*A@$!k@< ՜.+,D՜.+,\ px   Unity HealthkFl*  Asthma Action Plan TitleT `lx  @ H  _PID_HLINKSAgeWeightHeightSexcopyrightTextcopyrightText2 targetPages PeakFlowA\-..\SLPCC logo.PNGMalelowxRevised October 19, 2010, D. Wachsstock, MD. Portions (C) 1996-1999 American Academy of Allergy, Asthma and Immunology. All rights reserved.10  "#$%&'()*+,-.0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`bcdefghjklmnopstwxy|}~Root Entry FyData !1Table/nbWordDocument)@SummaryInformation(aDocumentSummaryInformation8iMacrosR߭▮VBA R߭0ThisDocument {bY__SRP_2V__SRP_3 _VBA_PROJECTB!  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXZ[\]^_bcdefgjd8*\R3*#4e*\R3*#8f*\R3*#92*\R3*#46*\R1*#d4*\R3*#51*\R3*#50*\R3*#53*\R3*#4f*\R3*#4e*\R3*#4d*\R1*#c1*\R0*#f*\R0*#b*\R0*#12*\R0*#14*\R1*#103*\R3*#51*\R3*#51*\R3*#35*\R3*#50*\R3*#53*\R3*#53*\R3*#4f*\R3*#30*\R3*#4d*\R3*#2d*\R1*#d0*\R1*#d1*\R1*#c1*\R1*#17bX  *(h " "(B` " $((Px ")()p/ $$G Q       0 Q HD .,"h 6X  @` Q( h0   < 0 QH x  0 *R8     Q  <   (  0 0 *H x Qh 0R@     0 Q0 @ HP h p  Qp R v'hR*`*lJVZC#`ȾGeގOJ F6 h~NW9'Ox6 h~NW9'OȾGeގOJME@t[LSS<8 P>"(L>< << <$<(8L<,<4<8<<LLLQ0LLLL 0LLPLLPL80LLLL<<<<<<<<<<<<<<<<<<N0{00020906-0000-0000-C000-000000000046}("(%P%`%%a%%%P%P%0%,  `Jx iH (i P%P%*0H(H@%P%*<@*@0@i i *L4P@ Hxi *4@) x*`D@ ` Pk < ` Jt i x@ 8@ (0%t%P%@Hh 0H h `` kXdd ` |k  ` i ) @ 8@ (0,`0k\ } x`(Jd  h `Xkh@l   *8@@L  & `dk| , @@0 x X `Jp *@ P@@`N xhH00 xhH00H h0H h*/TL@ `|JlXx@ 08`h  @ t @d @T P%( p@ 8@ (0@P Z.,P@ 8@ (0x` H `@x  `Hx`Nt`Lp`Pl`Jh  H08 @t @xd @T @`P @L @< @, p 8`DJ`@8 @  @ (@(x((X@0(  x `@ @h pxpX@ p( `P%(@`pph@p(p ) `P%0p0@ `@@(0@X@H(@P 0(`P%P'X@$X .@`p@p(p ) 8H`P%X04h@<p(ph@4p(p ) hP`P%8>0@HHh0HH@H@HHt%%H% x `hLH@THXH8@P0L8@h (( x8 ,H@Pt @p @l h@hO  @d @T @D @(4 @$ @ (p,&@@x @t @Xp @l @\ @L @< @, @ X ,@t @p @l @hO 8@d ()H `P%xU@ h[@ []0  @D 0H` `h4 0@<0h 0H@04000` `h>@H""h@  @"() "``L ,&x !t @p @l @\ @L  <  @,  `!P":&`"x @t @d @T "D @4 x""0`"(, @( $!Y  @ h8d," ^kN*\R3*#74$*\Rffff*0Q4ea96b*(      B  L /    (  8 @  H "NX  " @`$Np>LH " ? $X   "?  5    * H "P "b*h  " $@*HjRb x(  2  "  `. P` h    , G  @+p p      Q&GX " (,x0 B   | *8BH &:p *= 0 "  /         ( 8 xih(hn# from Hsu et al. (1979)J Peds 95:14$$T1Height must be set to use it to predict peak flow A@@] ] ] ox ,'PeakFlow  %.ypeFPeakFlow A@mat !%9q0 !% !q$Patient will not use peak flow meterC@o(Enter the patient's ideal peak flow rate9<Select the way to measure the patient's ideal peak flow rate9setPeakFlowHow9oKT'J !(KT H d !( H$'J k ,Predict ideal peak flow rate based on heightC@p Sn Xo !dh$\ ]H ` x   (0P,9 9d ` !!d$:'Jd (u based on the regression formulas for white children and adolescents (based on the St. Luke's predominant ethnic mix)MaleKmaleKMKmKTFemaleKfemaleKFKfKTN ^5? HRQ@'/"e? H(\@' 0A@<@9/ only enable if item 2 is selected in drop down8A@&H"Leave blanks to fill in peak flowsC@KTH setPeakFlow91_Cl@Hx0@H@Height A@Sex MaleA@r] ' default unit is centimeters] `] 0pA@oA@o ,(  don't ask questions ( even about the templateo@8  !% / Height in 9nd by 99(Select the unit for the patient's height99 don't drop the vital signs !%Z9D found by trial and error. VB needs a function that calculates this!Sex: 9 99MaleC@FemaleC@9Choose the patient's sex9setSex99 don't drop thisq9D found by trial and error. VB needs a function that calculates this!9 centimetersC@roinchesC@9q !%<9- enough room for 4 digits and a decimal point is 9 9 setHeight99 don't drop the vital signsq(Type the patient's height then hit Enter98Height ,%inchesKT !!d$:9@SP n0 q( A@& reflect changes into the texto x !!dxA@& reflect changes into the texto E DocumentProperties has no Exists method, so we have to do it by hand  ,! !   (zP kH     ,!%.i Height ,%!'HName  ]X H ,! H!B@ H!a H!.H H!B@p HoX P Sex ,%!`Personal best peak flow:C@PKT'JomDocu]   !% / !9d9 Patient Name:9 9doPt9qPHo0]X patientname ,%x!>.  patientname  ,!xB@4 put the bookmark back9h ]Outlook.Application$.] %.% new appointmentnn (DAsthma management follow up ( ((  (  week < ( 2 one week in minutes manag B@ow upo]   !% / R9 Calendar9 doFollowup9q (endarP !!dSex ,%( !!d$:RQ@9x  !% /  !% /  !% /  !% / !(, needed to access the text J ###$ !(d !!G !(j !!d$:PeakFlow ,%(io !!" ] @  !% /.2Ј !.Months: 9 9q] N9 ( !.( Z !.! $ 9:00 AM (f one month from nowxAsthma Action Plan ,%&( !!d ,$* (dXP9D found by trial and error. VB needs a function that calculates this!1 N (M N !.B@73x`Follow up appointment90 !!d,, $0 ,$* (V4 eClinicalworks leaves out the space after the comma?Attribute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2Option /licit Pub bar As CommandBara oxPt boBoxeakFlowHow'AHeigh? ' default unit is c|imetXers 'CU sSex tnAppL%ButtonIMonth@ @o@q Sub ū_Open()( i,ializ@End New ActE.Windows(1).CaAst0hma PlanCl1SavƯAjon't ask qxues@hA'I. even about the tĽ &'%addPrope@rty "PdS" , msoType Vat, 0-cF_ GS ng, "Male`*a Ct!CEext(C(SetBt=(ts.0Add( wTop, , ~I *.b{= .a8rol %EditWith c !.T"$bWid= 21-OPati w :)StymboLabel On%V XdoPtdCA#ߣA(.Z D`Ifn #Tooltip"SelecYway to measur![he p 's ideal p@ f r #@?Ia`[D'will no@bILet b}kJsfings @on`bx6 i N `7hb ListInd= 1)BeginGro|updA set5?How(30(" "@2r2;32.6T""EnksN ak ?7 .yEn1B@Zonly eb if item 2qusb+\"d0 0C ox x6(F6FD DD%Bx_P!F:8inche@9 o4o40? 8 O4K43 e6Qenough room q4 digitacimpoina#/#=OhGhG #"a n hR@)#Д##8oD 9/+/+/+/+W88 : ==cqt(B!60Fe0#՛'?0a .Cho sex Z iB.bTSo58Foly)G .WidthW80 ' fouby trial a error. VB needs a function that calculatesis!ZCap= "_: B K 4t Y`IfBwHCud5p, Falsepk G& `B,Pt(#drAYrngA9Ra\ng~=,Bookmarks@("pati`n1H")..TY= @K@v(YPt", vbGCase$, &A , a' p$ut8 b backJ`setHeighF‘-nrc"CSelect AUnits"=aB"inchesM@MN'#  ) * 2.54 EB  2G 'updFiel' refB"cw2gin@zT tA2SexQ11`Mpe-K.o"GdoFol lo@eoutlLd`Cre!ObjB("O.AppliceonGnappt d .# (1)new @o*a. [# `StrbmRe placewn",h", !)7eClin lwo@> leavp` bsp aftercommaatart [matDTime2( +@hsB.Gm* 30! Shor) & " 9:00 AM" one mAa fromdwDurRq.!Body "Asthma mapnageQ &AllDay 32?@v)9bowet4w)x?2?2x: թO O tgI)J' s@G2repgrG!0Xms^r white childrenadolesc^s (b Pd DSt. Luke's a2opZant `rP[xqhHsup al. (1979)J P95:1$A Os"."Male1|mtM̤o5)PeakFlow = 0.000335 * sngHeight ^ 2.79  Case "Female", "fF"TbLookupPredicte"d 258o37DEnd Sel ect  Function Sub updateFields()3Dim r As RangeFor EachIn ACveDocument.Sto4rys[r.*.U1 Do Until r.Next Is Nothing%Set;=78p7 r~     gI  A q  @  ! I i IQ 1i!Iy1! 9Qq i rU d$q`$` $`$$1`Y<q`]0(/=9$`a$`e$1`i$q`m$ `q$  `u,I `yY**$ `} @4 @8 @< @@ 1@D Q@(H y@4L @@P @LTn5T$P0* pHdProjectQ(@= lFontUHidden] _B_var_Tables5_B_var_lookupbmiF MSFormsCCommandButton1|CommandButton1_ClickClick _B_var_ht9CustomDocumentPropertiesޖValueKsx,_estheight| _B_var_Format heightUnits ListIndexQsetAgeL setWeight[str _B_var_StrCommandButton2}CommandButton2_Clickh_ setHeightzsetSexC peakFlowBar CommandBar peakFlowHowCommandBarComboBoxpeakFlowNumber8 runOnOpen _B_var_Sub addPropertyZmsoPropertyTypeFloatCustomizationContext΀ CommandBars Addr msoBarTopyControlsKmsoControlDropdown TooltipTextb?AddItem msoControlEditEnabled۪OnActionsetPeakFlowHow _B_var_withYlookupR _B_var_lookup9lookuppeakflowEf_B_var_lookuppeakflow _B_var_elseifqm peakFlowNumiflookupPredictedPeakFlow6iflookupPredictedPeakFlowr _B_var_ifl"[lcFields7Upn_UpdatepropvalsetPeakFlowNumberVisiblemsgbo _B_var_msgbo| vbExclamation pekflowbar9_B_var_pekflowbard'_B_var_peakflowbar|peakflow:_B_var_peakflow~ _B_var_On6failed0 _B_var_sx updateFieldsR medButtonShowMedicationFormAsthmaShowMedicationForm/formMed-showmed+formMformMedsF barPeakFlow lstPeakFlowHowy# lstPeakFlowI setPeakFlow&boolLookupPredictedPeakFlowbboolEstimateHeight  boolLookupBMI"tbrU 0 Ba q I  A q  @  ! I i IQ 1i!Iy1! 9Qq i !Q)ay9aXa```y(/M=y-i7U 'EGG_< X $ PXBP(Ttx$ 4x t 0P l)xtP5T,P$ xtPT0   )P(TYtCxx\/xP5T)P(TYt Cxx\/xP5T/P:d NTTYt Cxx\/xP5T$P$ 4QP[L$ LGLc%f,%<%:d%P! 0P , lL= [4)PLQL'%'%',%'<%d%PX4 P $lL=[$ )PLP$ QP   (     cQL'%'%',%'<%d%PX4 P $lL=[$ )PLP$ QP  'd% L'd% L'd% L'd% L |  |  , (cQL'%'%',%'<%d%PX4 P $lL=[$ )PLP$ QP        cQL'%'%',%'<%d%PX4 P $lL=[$ 0)PLP$ (QP     |    ('d%  L'd%! L |cQL'%'%',%'<%d%PX4 P $lL=[$ $)PLP$ QP< ( "   #  $  cQL'%'%',%'<%d%PX4 P $lL=[$ <)PLP$ 4QPZ ( %    |'d%  L'd%& L | '  (  cQL'%'%',%'<%d%PX4 P $lL=)[$ H)PLP$ @QP A R \)  | + cX4 QL'%'%',%'<%d%PX4 P $lL=[$ T)PLP$ LQPP ( ,  c c*'d%k#xP$ LP L/xP dM P$ LP |PX4 D, xPLT$-/pt$ 4t 0Qp[lxth- d x $-ld 0/dqT% x 0-/ xh-3Nl @fD%l@pt$ 4t 0p.-x)tp5/h0xlhdtp0   0 8  pbtx$ 4x >tF<%:\ %lp$ 4p 0lC/)xpl6<|a`p$ $txpl<0 h   0   0 X  0  /pt$ 4t ,Qp[lxth0dtx 0t @1ttx h0ltcttx h0Qtxdtx 0t @1tL xh010lhxtp4 8 < @ D H L P T XXXlP boolVLookuppf sngHeightuKsngPFsngAge sngWeight*strSexhDsingBMInsngBMIlng? lngColumn! sngTargetlngTargetColumnlngOutputColumn sngOutputR sngCellValueZ sngTryTargetsngOldTryTarget _B_var_colY<addtoyAddToMedSourceOnFormstrmedor/strMedOrderFromString! sngwieght)addtomeddangAge6b Bookmarks?n btnFollowup6ShowFollowupFormNormalsngsngLookupPredictedPeakFlowbarwtheBarageUnits8 weightUnits printButtonCommandBarButton9btnCopybtnLogohboxPeakFlowHowT boxPeakFlowBoxyeight\ _B_var_Box 7 boxHeightboxHeightUnitsvyboxSex?msoPropertyTypeString4 initializeN Document_Open Document_New;EDocumeam  *\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{00020905-0000-0000-C000-000000000046}#8.1#0#C:\Program Files\Microsoft Office\Office\MSWORD9.OLB#Microsoft Word 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#C:\Program Files\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{575C0B09-1A61-483A-BECF-792A0F9C9987}#2.0#0#C:\DOCUME~1\wachdh\LOCALS~1\Temp\Word8.0\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M  ^kNVThisDocument0Q4ea96bd8ThisDocumentZCrJ W^FM}]`3xOAnd AsByRef=DimBDoubleCEachDElseEelseifHendifOExitRFalseTForYFunction_IfbInxLongNotoutputReturnSetSingleSubThenToTrueWith Wordk VBAWin16~Win32MacVBA6#Project1  stdole` Project- ThisDocument< _EvaluateTemplateProjectE(OfficeuDocumentjLookupPredictedPeakFlow(_B_var_FunctionOht]outZpf^tkTable _B_var_SetActiveDocument\TablesItemzlooltableHtN _B_var_ifPCellValthn0Range MsgBoxR _B_var_ExitRowsUCount0vriRow _B_var_ForjLi` _B_var_TablenfactorvlookuptargetF targetCol5 outputCol|+tar1cellVal_B_var_cellValDcZ tryTarget1A oldTryTargetA targetCell_B_var_targetCellCr lookupBMIagegsbmiysexrcolH _B_var_Case funcitionk"_B_var_funcition/estimateHeightHxag\weight1yearsfunciton\4wt_sqrt^% _B_var_sqrtʊSqr(nt_Close7\Savedd addCommandCaptionxStylep msoComboLabel BeginGroupPrioritytheUnits!theNametheText_B_var_addPropertytheType'MsoDocPropertiestheValuelDocumentProperty&V _B_var_theBar _B_var_sex_B_var_lstPeakFlowS;_B_var_propval;_B_var_lstPeakFlowHow_B_var_heightUnitsz _B_var_height_B_var_updateFieldso StoryRanges NextStoryRangeעboxNameS0boxPtdoPtcactived3rngUStartmyRange-SetRangeThisdVa_ activedocڒ doFollowup>outlook,V CreateObjectappt9 CreateItem~SubjectRPFormatDateTimeG vbShortDate0MDuration AllDayEvent5= ReminderSet·ReminderMinutesBeforeStartSaveBodylbtnAppt5btnResethmsoControlButtonnFaceIdimsgQ _B_var_msgbr _B_var_DatevbtnAppt6( doFollowup6msoButtonIconAndCaption1lWindowsdstrPt]aStrConvx' vbProperCase boxMonths!ReplacefT dir__SRP_0 __SRP_1YPROJECTwm`) ^kN J< rstdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\system32\e2.tlb#OLE Automation`EOfficEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\Microsoft 6\MSO@9.DLL#  @9.0 Ob LibraryCMSFor ms> MSFrmHs3D452EE1-E08FXA-8-02608C4 D0BB4YOFMl20 'B \&/;"1fmAm00}#0m# 50 A575C0B09-1A61-483A-BECF-792A0F9C99876DOCUME~1\wachdh\@LOCALSTemp\Word8.0\U.exdc<@".E .`M ΈVBThisDocumentG*Ti@lD@lcu@oen 2 HB1BrJBE,!ZC"B+BBK*mrU~~~~~~~~~~~~Z 1WE8jv/   E Y Y9 Q q 1  ThisDocumentProjectF@C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLLVBA  !` F4C:\Program Files\Microsoft Office\Office\MSWORD9.OLBWord Ap0FC:\WINDOWS\system32\stdole2.tlbstdole )QL-[DR 1C:\Program Files\Microsoft Office\Office\MSO9.DLLOffice 1.E .`M C:\WINDOWS\system32\FM20.DLLMSForms 9 \Wa:Hy*4C:\DOCUME~1\wachdh\LOCALS~1\Temp\Word8.0\MSForms.exd k FȾGeގOJ F6 h~NW9'O FDocument F  F F Document_Open Document_NewDocument_Close initialize addPropertyN-[DRdoPt setHeightsetSex doFollowupsetPeakFlowHow setPeakFlowsngLookupPredictedPeakFlow updateFields 00d 48<@DHLPT $Asthma Action Plan F F! I a Fb F!  PeakFlow Height Sex Male F F  F Patient Name: doPt xSelect the way to measure the patient's ideal peak flow rate HPatient will not use peak flow meter DLeave blanks to fill in peak flows 0Personal best peak flow: XPredict ideal peak flow rate based on height setPeakFlowHow PEnter the patient's ideal peak flow rate setPeakFlow Height in  PSelect the unit for the patient's height centimeters inches  is  setHeight PType the patient's height then hit Enter Sex:  Female 0Choose the patient's sex setSex DFollow up appointment in one month doFollowup Months: Add Value^ F0 F &Outlook.ApplicationCreateItemSubject  9:00 AM StartDuration 6Asthma management follow upBodyAllDayEventReminderSet4ReminderMinutesBeforeStartSaveVBE6.DLL  b    *Follow up appointmentdrU~~~~~u  bar boxPt  (boxPeakFlowHow boxPeakFlow boxHeightboxHeightUnitsboxSexbtnAppt 18 boxMonthstheNametheTypetheValue  H sngHeight1ThisDocumentThisDocumentID="{25FDD787-A016-4412-8802-00D24B0A990B}" Document=ThisDocument/&H00000000 Name="Project" HelpContextID="0" VersionCompatible32="393222000" CMG="5755CAB34AB58FB98FB98FB98FB9" DPB="989A053606360636" GC="D9DB447945794586" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 &H00000002={000209F2-0000-0000-C000-000000000046};Word8.0;&H00000000 [Workspace] ThisDocument=58, 10, 1021, 525, Z PROJECTaPROJECTlkhCompObjijObjectPoolyy@2iw