[613] | 1 | MCBPFTP6 ;WISC/TJK,ALG-PREDICTED VALUES FOR SPECIAL STUDIES ;7/19/96 15:32
|
---|
| 2 | ;;2.3;Medicine;;09/13/1996
|
---|
| 3 | SETNULL S PRED=""
|
---|
| 4 | PRINT S ACT=$P(ND,U,PC) I ACT'="" D PRTLINE^MCBPFTP2
|
---|
| 5 | Q
|
---|
| 6 | PIMAX G SETNULL S PRED=$S(MCSEX="M":143-(.55*AGE),1:104-(.51*AGE)) G PRINT
|
---|
| 7 | RAW G SETNULL S PRED=.2 G PRINT
|
---|
| 8 | SGAW G SETNULL S PRED=.112 G PRINT
|
---|
| 9 | CST G SETNULL S PRED=$S(MCSEX="M":.0024*AGE+(.00516*HT)-.677,1:.0019*AGE+(.0039*HT)-.471) G PRINT
|
---|
| 10 | CDYN ;
|
---|
| 11 | FEF50 G SETNULL S PRED=40.8 G PRINT
|
---|
| 12 | VISOV G SETNULL S PRED=.291*AGE+4.917,PRED=(PRED-6.88) G PRINT
|
---|
| 13 | CV ;
|
---|
| 14 | CC ;
|
---|
| 15 | CVVC G SETNULL G SETNULL:$P(MCPFT0,U,8)'="N" S PRED=.318*AGE+1.919-4.61 Q
|
---|
| 16 | VEMAXB ;
|
---|
| 17 | BR ;
|
---|
| 18 | VDVTR ;
|
---|
| 19 | VDVTM ;
|
---|
| 20 | VEVCAT ;
|
---|
| 21 | VEMAXMVV G SETNULL S PRED=.57 Q
|
---|
| 22 | VERESTB ;
|
---|
| 23 | VO2REST ;
|
---|
| 24 | VO2MAX1 G SETNULL S PRED=(.001*WT)*(68.3-(11.9*$S(MCSEX="F":2,1:1))-(.413*AGE)) G PRINT
|
---|
| 25 | VO2MAX2 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
|
---|
| 28 | VO2MAX3 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)
|
---|
| 30 | VO2MAX4 G SETNULL S PRED=PRED/1000 K ER1,ER2 G PRINT
|
---|
| 31 | AT ;
|
---|
| 32 | HRREST ;
|
---|
| 33 | HRMAX G SETNULL S PRED=210-(.65*AGE) G PRINT
|
---|
| 34 | VO2HR ;
|
---|
| 35 | BPMAX ;
|
---|
| 36 | RRREST ;
|
---|
| 37 | RRMAX ;
|
---|
| 38 | WMAX ;
|
---|
| 39 | WRIWRT ;
|
---|
| 40 | HCO3 ;
|
---|