source: FOIAVistA/trunk/r/MEDICINE-MC/MCPFTP4A.m@ 1800

Last change on this file since 1800 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1MCPFTP4A ;WISC/TJK-PREDICTED VALUES FOR SPECIAL STUDIES ;9/12/90 08:28;09/17/91 11:24 AM
2 ;;2.3;Medicine;;09/13/1996
3SETNULL S PRED=""
4PRINT S ACT=$P(ND,U,PC) I ACT'="" D PRTLINE^MCPFTP2
5 Q
6PIMAX G SETNULL S PRED=$S(MCSEX="M":143-(.55*AGE),1:104-(.51*AGE)) G PRINT
7RAW G SETNULL S PRED=.2 G PRINT
8SGAW G SETNULL S PRED=.112 G PRINT
9CST G SETNULL S PRED=$S(MCSEX="M":.0024*AGE+(.00516*HT)-.677,1:.0019*AGE+(.0039*HT)-.471) G PRINT
10CDYN ;
11FEF50 G SETNULL S PRED=40.8 G PRINT
12VISOV G SETNULL S PRED=.291*AGE+4.917,PRED=(PRED-6.88) G PRINT
13CV ;
14CC ;
15CVVC G SETNULL G SETNULL:$P(MCPFT0,U,8)'="N" S PRED=.318*AGE+1.919-4.61 Q
16VEMAXB ;
17BR ;
18VDVTR ;
19VDVTM ;
20VEVCAT ;
21VEMAXMVV G SETNULL S PRED=.57 Q
22VERESTB ;
23VO2REST ;
24VO2MAX1 G SETNULL S PRED=(.001*WT)*(68.3-(11.9*$S(MCSEX="F":2,1:1))-(.413*AGE)) G PRINT
25VO2MAX2 G VO2MAX3:MCSEX="F"
26 S ER1=.79*HT-60.7,ER2=50.72-(0.372*AGE)
27 G SETNULL S PRED=$S(WT>ER1:ER1*ER2,1:WT*ER2) G VO2MAX4
28VO2MAX3 S ER1=(42.8+WT)*(22.78-(.17*AGE)),ER2=HT*(14.81-(.11*AGE))
29 G SETNULL S PRED=$S(WT>.65*HT-42.8:ER2,1:ER1)
30VO2MAX4 G SETNULL S PRED=PRED/1000 K ER1,ER2 G PRINT
31AT ;
32HRREST ;
33HRMAX G SETNULL S PRED=210-(.65*AGE) G PRINT
34VO2HR ;
35BPMAX ;
36RRREST ;
37RRMAX ;
38WMAX ;
39WRIWRT ;
40HCO3 ;
Note: See TracBrowser for help on using the repository browser.