home *** CD-ROM | disk | FTP | other *** search
/ PDA Software Library / pdasoftwarelib.iso / HP95_100 / MISC / MED100 / MED.EQN < prev    next >
Encoding:
Text File  |  1993-11-18  |  5.7 KB  |  234 lines
  1. {weight_conv
  2. |!Enter weight(WtXX)then press "~XX" !
  3. !to conv to all other units, pWtLb &!
  4. !pWtOz mean Partial Weights, ie     !
  5. ! 4lb 8oz                           !
  6. !                                   !
  7. IF(S(~Oz),~Oz+0*WtOz+0*~Gr
  8. +0*L(WtGr,WtOz*28.36)+0*~Kg
  9. +0*L(WtKg,WtOz*0.02835)+0*~Lb
  10. +0*L(WtLb,WtOz/16)+0*~LbOz
  11. +0*L(pWtLb,INT(WtOz/16))
  12. +0*L(pWtOz,MOD(WtOz,16))
  13. ,
  14. if(s(~LbOz),~LbOz
  15. +0*L(WtLb,pWtLb+pWtOz/16)+0*WtKg
  16. +0*L(WtGr,pWtLb/.002205+pWtOz/.03528)
  17. +0*L(WtKg,pWtLb/2.205+pWtOz/35.28)
  18. +0*L(WtOz,pWtLb*16+pWtOz)
  19. ,
  20. If(S(~Lb),~Lb
  21. +0*L(WtKg,WtLb/2.205)
  22. +0*L(WtOz,WtLb*16)
  23. +0*L(WtGr,WtLb/0.002205)
  24. +0*L(WtLb_p,INT(WtLb))
  25. +0*L(pWtOz,RND(FP(WtLb)*16,0))
  26. ,
  27. IF(S(~Kg),~Kg
  28. +0*L(WtLb,WtKg*2.2)
  29. +0*L(WtOz,WtKg/2.205*16)
  30. +0*L(pWtOz,rnd(mod(WtKg/.02835,16),0))+0*L(pWtLb,Int(WtKg*2.2))
  31. +0*L(WtGr,WtKg*1000)
  32. ,
  33. IF(S(~Gr),~Gr
  34. +0*L(pWtLb,IDiv(WtGr,453.59))
  35. +0*L(pWtOz,rnd(mod(WtGr/28.35,16),0)) +0*L(WtKg,WtGr/1000)
  36. +0*L(WtOz,WtGr/28.35)
  37. +0*L(WtLb,WtGr/453.59)
  38. ,
  39. 1)))))}
  40.  
  41. {height Conv
  42. |!Enter height(HtXX) then press "~XX"!
  43. !to conv to all other units, pHtFt &!
  44. !pHtIn mean Partial Heights, ie     !
  45. ! 4Ft 8In                           !
  46. !! 
  47. IF(S(~FtIn),~FtIn+0*pHtFt+0*pHtIn
  48. +0*L(HtIn,pHtFt*12+pHtIn)+0*~In
  49. +0*L(HtFt,pHtFt+pHtIn/12)+0*~Ft
  50. +0*L(HtCm,pHtFt*12*2.54+pHtIn*2.54)+0*~Cm
  51. +0*L(HtM,pHtFt*.3048+pHtIn*.0254)+0*~M, IF(S(~In),~In
  52. +0*L(HtCm,HtIn*2.54)
  53. +0*L(HtM,HtIn*.0254)
  54. +0*L(HtFt,HtIn/12)
  55. +0*L(pHtFt,IDIV(HtIn,12))
  56. +0*L(pHtIn,MOD(HtIn,12))
  57. ,
  58. If(S(~Cm),~Cm
  59. +0*L(pHtFt,IDiv(HtCm,30.48))
  60. +0*L(pHtIn,MOD(HtCm/2.54,12))
  61. +0*L(HtM,HtCm*.01)
  62. +0*L(HtFt,HtCm/30.48)
  63. +0*L(HtIn,HtCm/12)
  64. ,
  65. IF(S(~Ft),~Ft
  66. +0*L(HtCm,HtFt*30.48)
  67. +0*L(pHtFt,INT(HtFt))
  68. +0*L(pHtIn,FP(HtFt)*12)
  69. +0*L(HtIn,HtFt*12)
  70. +0*L(HtM,HtFt*.3048)
  71. ,
  72. IF(S(~M),~M
  73. +0*L(HtCm,HtM*100)
  74. +0*L(HtFt,HtM/.3048)
  75. +0*L(HtIn,HtM/.0254)
  76. +0*L(pHtFt,IDIV(HtM,.3048))
  77. +0*L(pHtIn,Fp(HtM/.3048)*12)
  78. ,
  79. 1)))))}
  80. {temp Conv
  81. |
  82. Tf=Tc*(9/5)+32}
  83. {Dose_Calc|Mg_Dose=mg_kg_day*wt_kg/#_Doses}
  84.  
  85. {}
  86. {Developmental_Equations:
  87. |}
  88. {due_Date
  89. |Due_Date=DATE(LMP,286)}
  90. {gest_Age
  91. |Gest_Age_wks=((DDAYS(LMP,CDATE,1)))/7}
  92. {growth_girls
  93. |growth_girls=((father_ht-5)+mother_ht)/2}
  94. {growth_boys
  95. |growth_boys=((father_ht-5)+mother_ht+2)/2}
  96. {}
  97. {Pulmonary_Equations:
  98. |}
  99. {Alv_dead_sp
  100. |Vd_Vt=(PACO2-PECO2)/PACO2}
  101. {Resp_exch
  102. |R=(PECO2*(1-FIO2)/(PIO2-PEO2-(PECO2*FIO2)))}
  103. {anion Gap (8-16)
  104. |AGAP=Na-(Cl+HCO3)
  105. }
  106. {Alv_gas_eqn
  107. |PAO2=(713*(FiO2/100))-(PaCO2/R)}
  108. {A_a_gradient
  109. |A_a_gradient=RND((Pbar-47)*FiO2-PaCO2/(IF(FiO2>0.8,FiO2,0.8))-PaO2,0)}
  110. {A_a_gradient
  111. |A_a_gradient=RND((Pbar-47)*(.03*LiterFlow+.21)-PaCO2/R-PaO2,0)}
  112. {A_a_gradient|A_a_gradient=PAO2-PaO2}
  113. {PaO2_est
  114. |PaO2_est=104-.42*AgeY}
  115. {RA_AAgrad|RA_AAgrad=150-(pCO2/.8)-pO2
  116. }
  117. {H_H_eqn
  118. |pH=6.1+log(HCO3/(.0301*PaCO2))}
  119.  
  120.  
  121. {Fick's_law|J=-D*A*dc_dx}
  122. {Fick_eqn|Q=VO2/(CaO2-CvO2)}
  123. {ett size
  124. |ETT_size=(16+AgeY)/4}
  125. {}
  126. {Cardiovascular_Equations:
  127. |}
  128.  
  129. {Poiseuille|Q=dP*pi*r^4/8*visc*l}
  130.  
  131. {BSA
  132. |BSA=((WtKg^.425)*(HtCm^.725*71.84))/10000}
  133. {Card_index|Card_index=card_output/BSA}
  134. {Card_output|Card_output=heart_rate*str_vol}
  135. {Stroke_vol|str_vol=(1000*card_output)/heart_rate}
  136. {Eject_fract|Eject_fract=str_vol/end_diast_vol}
  137. {MAP|MAP=diastolic+(systolic-diastolic)/3}
  138. {Corrected_QT|!normal 0.39 male & 0.41 female!Corrected_QT=QT_meas_secs/SQRT(RR_interv_secs)}
  139. {Reynolds_#
  140. |Re=2*r*v*dens/visc}
  141. {map
  142. |MAP=diastolic+(systolic-diastolic)/3}
  143. {Microcyt Anemia|IF(S(~Coef)
  144. ,~Coef-MCV/RBC
  145. +0*ßThal+0*FeDef
  146. +0*L(ßThal,
  147. IF(~Coef<11.5,111,0))
  148. +0*L(FeDef,IF(~Coef>13.5,111,0))
  149. ,
  150. 0)}
  151. {AbsNeutrCnt|ANC=wbc*(pct_segs+pct_bands)}
  152. {Abs_T4_Cells|Abs_T4_cells=(wbc*pct_lymphs)*pct_T4_cells}
  153.  
  154. {}
  155. {Diet_Equations:
  156. |}
  157.  
  158.  
  159. {body Mass Index
  160. |BMI=(WtLb/2.2)/(HtFt*.3+HtIn*.0254)^2}
  161. {body Mass Index
  162. |BMI=WtKg/HtM^2}
  163. {bmr Bedrest
  164. |BMR=1.1*
  165. IF(Male=1
  166. ,
  167. 66+(13.7*(WtLb/2.2))+(5*(HtFt*30+HtIn*2.54))-(6.8*AgeY)
  168. ,
  169. 655+(9.5*(WtLb/2.2))+(1.8*(HtFt*30+HtIn*2.54))-(4.7*AgeY))}
  170. {bmr Amb -Exercise
  171. |BMR=1.2*IF(Male=1,66+(13.7*(WtLb/2.2))+(5*(HtFt*30+HtIn*2.54))-(6.8*AgeY),655+(9.6*(WtLb/2.2))+(1.7*(HtFt*30+HtIn*2.54))-(4.7*AgeY))}
  172. {bmr Amb Mod Exercise
  173. |BMR=1.3*IF(Male=1,66+(13.7*(WtLb/2.2))+(5*(HtFt*30+HtIn*2.54))-(6.8*AgeY),655+(9.6*(WtLb/2.2))+(1.7*(HtFt*30+HtIn*2.54))-(4.7*AgeY))}
  174. {cholesterol
  175. |If(S(LDLc),TOTc-HDLc-L(VLDLc,TRIG/5)
  176. -LDLc
  177. +0*L(LDL~HDLr,(TOTc-HDLc-TRIG/5)/HDLc)+0*VLDLc
  178. ,
  179. IF(S(LDL~HDLr),LDL~HDLr-LDLc/HDLc
  180. ,
  181. 1))}
  182. {protein_Req
  183. |Protein_Grams=1.5*WtKg
  184. }
  185. {wt by Height
  186. |IF(S(female),female-1+L(male,0)
  187. +0*L(WtKg,L(WtLb,(100+5*(pHtFt*12+pHtIn-60)))/2.2)
  188. +0*WtKg+0*WtLb ,
  189. if(s(male),male-1+L(female,0)
  190. +0*L(WtKg,L(WtLb,(106+6*(pHtFt*12+pHtIn-60)))/2.2),1))}
  191. {}
  192. {Renal_Equations:
  193. |}
  194. {GFR_estimate|GFR_estim=133-(.64*age)}
  195. {creat_clear
  196. |Cr_Cl=UCr_Tot_MG_24h*0.0694/P_Cr}
  197. {creat_clear
  198. |Cr_Cl=U_Cr*(Vol_U/1440)/P_Cr}
  199. {Cr_clr_est|Cr_clr_est=wt_kg*(140-age)/(72*P_Cr)}
  200. {creat Clearance
  201. |Cr_Cl=IF(Male=1,1,0.85)*(140-AgeY)*WtKg/(72*P_Cr)}
  202. {FE_Na
  203. |FE_Na=(U_Na*P_Cr)/(P_Na*U_Cr)}
  204. {1st 8h Deficit Replacement
  205. |Def8=0.5*(WtKg*0.4*(Target-Observed))+Observed*PerDehyd*WtKg/100}
  206. {P_osm
  207. |mOsmKg=2*(Na+K)+BUN/2.8+bG/18}
  208. {P_osm|P_osm=2*Na+(glucose/18)+(BUN/2.8)}
  209.  
  210. {fluid need
  211. |Fluid_cc_hr=
  212. RND((IF(WtKg>10
  213. ,   IF(WtKg>20,
  214.     (WtKg-20)*20+1500,
  215.     (WtKg-10)*50+1000)
  216. ,
  217. WtKg*100)
  218. )/24,0)}{water Deficit
  219. |H2ODefL=WtKg * 0.6 * Na/140 - WtKg*0.6}
  220. {water Deficit
  221. |H2ODefL=WtKg * 0.6 * mOsmKg/290 - WtKg*0.6}
  222. {Na Corrected
  223. |Na_corr=Na+1.6*(bG-100)/100}
  224. {TBW_Female|TBW_Female=.5*lean_wt_kg}
  225. {TBW_Male|TBW_Male=.6*lean_wt_kg}
  226.  
  227. {Cl_deficit|Cl_deficit=.5*wt_kg*(103-Cl)}
  228. {FE_Na|FE_Na=((U_Na*P_Cr)/(P_Na*U_Cr))*100}
  229. {Corrected_Na|Corrected_Na=.016*(glucose-100)+Na}
  230. {Na_deficit|Na_deficit=0.6*lean_wt_kg*(140-Na)}
  231. {H2O_deficit|H2O_deficit=0.6*lean_wt_kg*((Na/140)-1)}
  232. {ECF_deficit|ECF_deficit=.2*lean_wt_kg*((Pt_Hct/nl_Hct)-1)}
  233.  
  234.