STANDARD DATA DICTIONARY #700.1 -- PFT PREDICTED VALUES FILE 6/27/25 PAGE 1
STORED IN ^MCAR(700.1, (2 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file holds the set of Predicted Value and Correction formulas for use by the PFT report. The formulas are selected from the
PFT FORMULA file (700.2). There are 2 sets present (Male and Female). The Male and Female sets can be changed through the
Pulmonary Managers' menu.
DD ACCESS: @
AUDIT ACCESS: @
POINTED TO BY: PREDICTED VALUE FORMULAS USED field (#28) of the PULMONARY FUNCTION TESTS File (#700)
CROSS
REFERENCED BY: SEX TYPE(AC), NAME(B)
700.1,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: APR 10, 1991
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION: This field identifies the name for the set of formulas used to calculate predicted values and
corrections. Current entries are Male and Female.
CROSS-REFERENCE: 700.1^B
1)= S ^MCAR(700.1,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(700.1,"B",$E(X,1,30),DA)
700.1,.02 SEX TYPE 1;1 SET (Required)
'M' FOR MALE;
'F' FOR FEMALE;
LAST EDITED: MAR 04, 1992
HELP-PROMPT: Enter the sex for which this set of predicted values formula is used: 'M' for Male; 'F' for Female
DESCRIPTION:
This field identifies which Sex the set of formulas are used for: Male or Female.
CROSS-REFERENCE: 700.1^AC
1)= S ^MCAR(700.1,"AC",$E(X,1,30),DA)=""
2)= K ^MCAR(700.1,"AC",$E(X,1,30),DA)
This x-ref facilitates screening logic.
700.1,1 TLC TLC;1 POINTER TO PFT FORMULA FILE (#700.2)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)=""TLC"",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)",DIC("W")="D D
ISP^MCPFTE" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 14, 1991
HELP-PROMPT: Choose Total Lung Capacity formula that you wish to use by entering the formula or the reference
name (ex. CRAPO '81)
DESCRIPTION: This field contains the formula used for calculating the predicted value of the 'Total Lung
Capacity'.
SCREEN: S DIC("S")="I $P(^(0),U,2)=""TLC"",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)",DIC("W")="D D
ISP^MCPFTE"
EXPLANATION: Choose Total Lung Capacity formulas only
700.1,2 VC VC;1 POINTER TO PFT FORMULA FILE (#700.2)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)[""VC"",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)",DIC("W")="D DI
SP^MCPFTE" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 14, 1991
HELP-PROMPT: Choose Vital Capacity Formula that you wish to use by entering the formula or the reference name
(ex. CRAPO '81)
DESCRIPTION:
This field contains the formula for calculating the predicted value of the 'Vital Capacity'
SCREEN: S DIC("S")="I $P(^(0),U,2)[""VC"",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)",DIC("W")="D DI
SP^MCPFTE"
EXPLANATION: Choose Vital Capacity formulas only
700.1,3 FVC FVC;1 POINTER TO PFT FORMULA FILE (#700.2)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)[""FVC"",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)",DIC("W")="D D
ISP^MCPFTE" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 14, 1991
HELP-PROMPT: Choose Forced Vital Capacity formula that you wish to use by entering the formula or the reference
name (ex. CRAPO '81)
DESCRIPTION:
This contains the formula for calculating the predicted value of the Forced Vital Capacity
SCREEN: S DIC("S")="I $P(^(0),U,2)[""FVC"",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)",DIC("W")="D D
ISP^MCPFTE"
EXPLANATION: Choose Forced Vital Capacity formulas only
700.1,4 FRC FRC;1 POINTER TO PFT FORMULA FILE (#700.2)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)=""FRC"",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)",DIC("W")="D D
ISP^MCPFTE" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 14, 1991
HELP-PROMPT: Choose Functional Residual Capacity formula that you wish to use by entering the formula or the
reference name (ex. CRAPO '81)
DESCRIPTION:
This field contains the formula for calculating the predicted value of the Forced Residual Capacity
SCREEN: S DIC("S")="I $P(^(0),U,2)=""FRC"",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)",DIC("W")="D D
ISP^MCPFTE"
EXPLANATION: Choose Functional Residual Capacity formulas only
700.1,5 RV RV;1 POINTER TO PFT FORMULA FILE (#700.2)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)=""RV"",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)",DIC("W")="D DI
SP^MCPFTE" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 14, 1991
HELP-PROMPT: Choose Residual Volume formula that you wish to use by entering the formula or the reference name
(ex. CRAPO '81)
DESCRIPTION:
This field contains the formula for calculating the predicted value for the Residual Volume
SCREEN: S DIC("S")="I $P(^(0),U,2)=""RV"",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)",DIC("W")="D DI
SP^MCPFTE"
EXPLANATION: Choose Residual Volumes formulas only
700.1,6 FEV1 FEV1;1 POINTER TO PFT FORMULA FILE (#700.2)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)=""FEV1"",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)",DIC("W")="D
DISP^MCPFTE" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 14, 1991
HELP-PROMPT: Choose Forced Expiratory Volume (1 sec) formula that you wish to use by entering the formula or the
reference name (ex. CRAPO '81)
DESCRIPTION: This field contains the formula for calculating the predicted value for the Forced Expiratory
Volume in 1 second
SCREEN: S DIC("S")="I $P(^(0),U,2)=""FEV1"",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)",DIC("W")="D
DISP^MCPFTE"
EXPLANATION: Choose Forced Expiratory Volume (1 sec) formulas only
700.1,7 PF PF;1 POINTER TO PFT FORMULA FILE (#700.2)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)=""PF"",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)",DIC("W")="D DI
SP^MCPFTE" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 14, 1991
HELP-PROMPT: Choose Peak Flow formula that you wish to use by entering the formula or the reference name (ex.
CRAPO '81)
DESCRIPTION:
This field contains the formula for calculating the predicted value for the Peak Flow
SCREEN: S DIC("S")="I $P(^(0),U,2)=""PF"",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)",DIC("W")="D DI
SP^MCPFTE"
EXPLANATION: Choose Peak Flow formulas only
700.1,8 FEF25-75 FEF2575;1 POINTER TO PFT FORMULA FILE (#700.2)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)=""FEF25-75"",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)",DIC("W")
="D DISP^MCPFTE" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 14, 1991
HELP-PROMPT: Choose Forced Expiratory Flow formula that you wish to use by entering the formula or the reference
name (ex. CRAPO '81)
DESCRIPTION: This field contains the formula for calculating the predicted value of the Forced Expiratory Flow
at 25 to 75 liters
SCREEN: S DIC("S")="I $P(^(0),U,2)=""FEF25-75"",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)",DIC("W")
="D DISP^MCPFTE"
EXPLANATION: Choose Foreced Expired Flows only
700.1,8.5 MVV MVV;1 POINTER TO PFT FORMULA FILE (#700.2)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)=""MVV"",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)",DIC("W")="D D
ISP^MCPFTE" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 14, 1991
HELP-PROMPT: Choose Maximal Voluntary Ventilation formula that you wish to use by entering the formula or the
reference name (ex. CRAPO '81)
DESCRIPTION: This field contains the formula for calculating the predicted value for the Maximal Voluntary
Ventilation
SCREEN: S DIC("S")="I $P(^(0),U,2)=""MVV"",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)",DIC("W")="D D
ISP^MCPFTE"
EXPLANATION: Choose Maximal Voluntary Ventilation formulas only
700.1,9 DLCO-SB DLCOSB;1 POINTER TO PFT FORMULA FILE (#700.2)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)=""DLCO-SB"",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)",DIC("W")=
"D DISP^MCPFTE" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 14, 1991
HELP-PROMPT: Choose Diffusion Capacity formula that you wish to use by entering the formula or the reference
name (ex. CRAPO '81)
DESCRIPTION:
This field contains the formula for calculating the predicted value for the Diffusion
SCREEN: S DIC("S")="I $P(^(0),U,2)=""DLCO-SB"",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)",DIC("W")=
"D DISP^MCPFTE"
EXPLANATION: Choose Diffusion Capacity formulas only
700.1,10 TLC,VC,FVC,FEV1 CORR.-BLACK RC;1 POINTER TO PFT FORMULA FILE (#700.2)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,11)=""B"",$P(^(0),U,2)[""TLC""",DIC("W")="D DISP^MCPFTE" D ^DIC K DIC S DIC
=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 17, 1991
HELP-PROMPT: Enter the formula for computing the race corrected values for Black patients for TLC,VC.FVC,FEV1:
ACT refers to the actual measured value
DESCRIPTION: This contains the formula for a race correction for Black patients on Total Lung Capacity, Vital
Capacity, Forced Vital Capacity, and Forced Expiratory Volume.
SCREEN: S DIC("S")="I $P(^(0),U,11)=""B"",$P(^(0),U,2)[""TLC""",DIC("W")="D DISP^MCPFTE"
EXPLANATION: ENTER FORMULA FOR RACE CORRECTION FOR BLACKS FOR TLC,VC,FVC,FEV1
700.1,11 TLC,VC,FVC,FEV1 CORR.-ORIENTAL RC;2 POINTER TO PFT FORMULA FILE (#700.2)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,11)=""O"",$P(^(0),U,2)[""TLC""",DIC("W")="D DISP^MCPFTE" D ^DIC K DIC S DIC
=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 17, 1991
HELP-PROMPT: Enter the formula for computing the race corrected values for Oriental patients for
TLC,VC,FVC,FEV1: ACT refers to the actual value of the measurement
DESCRIPTION: This contains the formula for a race correction for Oriental patients on Total Lung Capacity, Vital
Capacity, Forced Vital Capacity, and Forced Expiratory Volume.
SCREEN: S DIC("S")="I $P(^(0),U,11)=""O"",$P(^(0),U,2)[""TLC""",DIC("W")="D DISP^MCPFTE"
EXPLANATION: CHOOSES TLC,VC,FVC,FEV1 RACE CORRECTION FORMULA FOR ORIENTAL PATIENTS
700.1,12 FRC,RV CORR.-BLACK RC;3 POINTER TO PFT FORMULA FILE (#700.2)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,11)=""B"",$P(^(0),U,2)[""FRC""",DIC("W")="D DISP^MCPFTE" D ^DIC K DIC S DIC
=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 17, 1991
HELP-PROMPT: Enter the formula for computing the race corrected values for Black patients for FRC,RV: ACT
refers to the actual values of the measurement
DESCRIPTION: This contains the formula for a race correction for Black patients on Forced Residual Capacity and
Residual Volume.
SCREEN: S DIC("S")="I $P(^(0),U,11)=""B"",$P(^(0),U,2)[""FRC""",DIC("W")="D DISP^MCPFTE"
EXPLANATION: ENTER FROMULA FOR RACE CORRECTION FOR BLACKS FOR FRC,RV
700.1,13 FEF25-75 RACE CORR.-BLACK RC;4 POINTER TO PFT FORMULA FILE (#700.2)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,11)=""B"",$P(^(0),U,2)[""FEF2575""",DIC("W")="D DISP^MCPFTE" D ^DIC K DIC S
DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 17, 1991
HELP-PROMPT: Enter the formula for computing the corrected FEF25-75 for Black patients: ACT refers to the
acutal measured FEF25-75 Value.
DESCRIPTION: This contains the formula for a race correction for Black patients on the Forced Expiratory Flow at
25 to 75 liters.
SCREEN: S DIC("S")="I $P(^(0),U,11)=""B"",$P(^(0),U,2)[""FEF2575""",DIC("W")="D DISP^MCPFTE"
EXPLANATION: RACE CORRECTION FORMULA FOR BLACKS FOR FEF25-75
700.1,13.01 MVV CORR.-BLACK RC;5 POINTER TO PFT FORMULA FILE (#700.2)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,11)=""B"",$P(^(0),U,2)[""MVV""",DIC("W")="D DISP^MCPFTE" D ^DIC K DIC S DIC
=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 23, 1999
HELP-PROMPT: Enter the formula for computing the race corrected values for Black patients for MVV: ACT refers
to the actual measured value
DESCRIPTION: This contains the formula for a race correction for Black patients for Maximum Voluntary
Ventilation.
SCREEN: S DIC("S")="I $P(^(0),U,11)=""B"",$P(^(0),U,2)[""MVV""",DIC("W")="D DISP^MCPFTE"
EXPLANATION: Enter formula for race correction for Blacks for MVV
700.1,13.02 MVV CORR.-ORIENTAL RC;6 POINTER TO PFT FORMULA FILE (#700.2)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,11)=""O"",$P(^(0),U,2)[""MVV""",DIC("W")="D DISP^MCPFTE" D ^DIC K DIC S DIC
=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 23, 1999
HELP-PROMPT: Enter the formula for computing the race corrected values for Oriental patients for MVV: ACT
refers to the actual measured value
DESCRIPTION: This contains the formula for a race correction for Oriental patients for Maximum Voluntary
Ventilation.
SCREEN: S DIC("S")="I $P(^(0),U,11)=""O"",$P(^(0),U,2)[""MVV""",DIC("W")="D DISP^MCPFTE"
EXPLANATION: Enter the formula for computing the race corrected values for Oriental patients for MVV: ACT refer
s to the actual measured value
700.1,14 COHB CORRECTION COHB;1 POINTER TO PFT FORMULA FILE (#700.2)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)=""COHB""",DIC("W")="D DISP^MCPFTE" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 17, 1991
HELP-PROMPT: Enter the formula for correcting the diffusion for Carboxy: ACT refers to the actual measured
Diffusion
DESCRIPTION:
This contains the formula for correcting the diffusion for Carboxyl.
SCREEN: S DIC("S")="I $P(^(0),U,2)=""COHB""",DIC("W")="D DISP^MCPFTE"
EXPLANATION: CORRECTS THE DIFFUSION FOR CARBOXY
700.1,15 HB CORRECTION HB;1 POINTER TO PFT FORMULA FILE (#700.2)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)=""HB""",DIC("W")="D DISP^MCPFTE" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 17, 1991
HELP-PROMPT: Enter the formula for correcting the diffusion for Hemoglobin: ACT refers to the actual measured
Diffusion.
DESCRIPTION:
This contains the formula for correcting the diffusion for Hemoglobin.
SCREEN: S DIC("S")="I $P(^(0),U,2)=""HB""",DIC("W")="D DISP^MCPFTE"
EXPLANATION: CORRECTS THE DIFFUSION FOR HEMOGLOBIN
FILES POINTED TO FIELDS
PFT FORMULA (#700.2) TLC (#1)
VC (#2)
FVC (#3)
FRC (#4)
RV (#5)
FEV1 (#6)
PF (#7)
FEF25-75 (#8)
MVV (#8.5)
DLCO-SB (#9)
TLC,VC,FVC,FEV1 CORR.-BLACK (#10)
TLC,VC,FVC,FEV1 CORR.-ORIENTAL (#11)
FRC,RV CORR.-BLACK (#12)
FEF25-75 RACE CORR.-BLACK (#13)
MVV CORR.-BLACK (#13.01)
MVV CORR.-ORIENTAL (#13.02)
COHB CORRECTION (#14)
HB CORRECTION (#15)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):