STANDARD DATA DICTIONARY #700 -- PULMONARY FUNCTION TESTS FILE 6/27/25 PAGE 1
STORED IN ^MCAR(700, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file stores the data on Pulmonary Function Tests performed on the patient.
DD ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: MEDICAL PATIENT (#1)[R]
"X1": W:$D(^("ES")) " ",@("$P($P($C(59)_$S($D(^DD(700,1506,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(""ES""),U
,7)_"":"",2),$C(59),1)")
POINTED TO BY: RESULT field (#11) of the REQUEST/CONSULTATION File (#123)
ASSOCIATED RESULTS field (#.01) of the ASSOCIATED RESULTS sub-field (#123.03) of the REQUEST/CONSULTATION File
(#123)
CROSS
REFERENCED BY: DATE/TIME(AC), MEDICAL PATIENT(AD), MEDICAL PATIENT(AE), FLOWS STUDY(AF), PCC POINTER(APCE), SPECIAL STUDY(AS),
VOLUME STUDY TYPE(AV), DATE/TIME(B), MEDICAL PATIENT(C)
INDEXED BY: MEDICAL PATIENT & DATE/TIME & DLCO-SB (ADI), MEDICAL PATIENT & DATE/TIME (AG)
700,.01 DATE/TIME 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 06, 2000
HELP-PROMPT: Enter the date and time of the Pulmonary Function tests.
DESCRIPTION:
This field identifies the date/time of the Pulmonary Function tests.
TECHNICAL DESCR:
ORDER ENTRY TYPE: IDENTIFIER
CROSS-REFERENCE: 700^B
1)= S ^MCAR(700,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(700,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 700^AC^MUMPS
1)= S MCARCDIE="^MCAR(700," D CHGDTE1^MCARPROC
2)= S MCARCDIE="^MCAR(700," D CHGDTE^MCARPROC
This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to
record the most recent pulmonary function test procedure for this patient.
FIELD INDEX: AG (#45) MUMPS IR ACTION
Short Descr: Cross Reference of "AV","AF", and "AS"
Description: This cross-reference will check if there are entries in fields 17,18,32 and execute the
cross-references for those entries.
Set Logic: D EN^MCARUTL1("SET",DA,X(1),X(2),"ALL")
Set Cond: S X=X(1)]""&(X(2)]"")
Kill Logic: D EN^MCARUTL1("KILL",DA,X(1),X(2),"ALL")
Kill Cond: S X=X(1)]""&(X(2)]"")
Whole Kill: K ^MCAR(700,"AV"),^MCAR(700,"AF"),^MCAR(700,"AS")
X(1): MEDICAL PATIENT (700,1) (forwards)
X(2): DATE/TIME (700,.01) (forwards)
RECORD INDEXES: ADI (#44)
700,.03 SUMMARY .2;1 SET (Required)
'N' FOR NORMAL;
'A' FOR ABNORMAL;
'B' FOR BORDERLINE;
'T' FOR TECHNICALLY UNSATISFACTORY;
LAST EDITED: APR 08, 1991
HELP-PROMPT: Enter the summary of this procedure (N,A,B,T). This will appear on the Summary of Patient
Procedures and the Health Summary.
DESCRIPTION: This field identifies a brief summary of the PFT for use on the Summary of Patient Procedures and
the Health Summary. The Results portion of OERR is expected to trigger off this field in the
future.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
700,1 MEDICAL PATIENT 0;2 POINTER TO MEDICAL PATIENT FILE (#690) (Required)
LAST EDITED: NOV 06, 2000
HELP-PROMPT: Enter the patient's name
DESCRIPTION:
This field identifies the patient's name.
CROSS-REFERENCE: 700^C
1)= S ^MCAR(700,"C",$E(X,1,30),DA)=""
2)= K ^MCAR(700,"C",$E(X,1,30),DA)
This cross-reference allows look-ups by patient.
CROSS-REFERENCE: 700^AD^MUMPS
1)= S MCARCDIE="^MCAR(700," D CHGPAT^MCARPROC
2)= S MCARCDIE="^MCAR(700," D KILL^MCARPROC
This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to
record the most recent pulmonary function test procedure for this patient.
CROSS-REFERENCE: 700^AE^MUMPS
1)= S ^MCAR(700,DA,"PV")=$$MCSEX^MCEF()
2)= K ^MCAR(700,DA,"PV")
FIELD INDEX: AG (#45) MUMPS IR ACTION
Short Descr: Cross Reference of "AV","AF", and "AS"
Description: This cross-reference will check if there are entries in fields 17,18,32 and execute the
cross-references for those entries.
Set Logic: D EN^MCARUTL1("SET",DA,X(1),X(2),"ALL")
Set Cond: S X=X(1)]""&(X(2)]"")
Kill Logic: D EN^MCARUTL1("KILL",DA,X(1),X(2),"ALL")
Kill Cond: S X=X(1)]""&(X(2)]"")
Whole Kill: K ^MCAR(700,"AV"),^MCAR(700,"AF"),^MCAR(700,"AS")
X(1): MEDICAL PATIENT (700,1) (forwards)
X(2): DATE/TIME (700,.01) (forwards)
RECORD INDEXES: ADI (#44)
700,2 HEIGHT (CM) 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>240)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: AUG 09, 1990
HELP-PROMPT: Enter the height of the patient in centimeters: 0-240
DESCRIPTION:
This field identifies the Height of the patient in Centimeters.
700,3 HEIGHT (INCHES.TENTHS) 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<40)!(X?.E1"."3N.N) X
LAST EDITED: JUN 28, 1999
HELP-PROMPT: Type a Number between 40 and 100, 2 Decimal Digits
DESCRIPTION: This field identifies the height of the patient in inches and tenths of inches. This value will be
converted to Centimeters for the report.
700,4 WEIGHT (POUNDS.TENTHS) 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>500)!(X<50)!(X?.E1"."2N.N) X
LAST EDITED: AUG 10, 1990
HELP-PROMPT: Type a Number between 50 and 500, 1 Decimal Digit
DESCRIPTION: This field identifies the weight of the patients in pounds and tenths of pounds. This value will
be converted to Kilograms for the report.
700,5 WEIGHT (KG) 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>228)!(X<22)!(X?.E1"."1N.N) X
LAST EDITED: AUG 10, 1990
HELP-PROMPT: Enter the weight of the patient in kilograms: 22-228
DESCRIPTION:
This field identifies the weight of the patient in Kilograms.
700,6 BAROMETRIC PRESSURE 0;7 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<600)!(X?.E1"."1N.N) X
LAST EDITED: FEB 28, 1990
HELP-PROMPT: Enter the Barometric Pressure in Torr units: 600-999
DESCRIPTION:
This field identifies the Barometric Pressure in Torr units at the time the PFT was done
700,6.5 ROOM TEMPERATURE (CENTIGRADE) 0;12 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>35)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: SEP 12, 1991
HELP-PROMPT: Enter the room temperature between 0 and 35 in degrees centigrade, 0 Decimal Digits
DESCRIPTION:
This field identifies the room temperature in degrees centigrade at the time the PFT was done
700,7 SMOKER 0;8 SET (Required)
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: AUG 10, 1990
HELP-PROMPT: Enter 'Y' if the patient is a smoker, 'N' is the patient is a nonsmoker.
DESCRIPTION:
This field tells whether the patient is a smoker or a non-smoker.
700,8 CURRENT BRONCHODILATOR 0;9 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: SEP 18, 1991
HELP-PROMPT: Enter 'Y' if the patient has used a bronchodilator within 3 hours of the test, 'N' if the patient
has not used a bronchodilator within 3 hours of the test.
DESCRIPTION:
This field tells whether the patient had used a Bronchodilator within 4 hours of the test.
700,9 WARD/CLINIC 0;10 POINTER TO HOSPITAL LOCATION FILE (#44)
LAST EDITED: FEB 28, 1990
HELP-PROMPT: Enter the ward if the patient is an inpatient, or the clinic if the patient is an outpatient.
DESCRIPTION:
This field will be a ward if the patient is an inpatient, a clinic if the patient is an outpatient.
700,10 REFERRING PHYSICIAN 0;11 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 25, 1994
HELP-PROMPT: Enter the name of the referring physician.
DESCRIPTION:
This field refers to the Physician who ordered the PFT.
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
700,11 CONSULT DX 1;0 POINTER Multiple #700.01 (Add New Entry without Asking)
DESCRIPTION:
This field identifies the diagnosis sent to the PFT lab by the Referring Physician.
700.01,.01 CONSULT DX 0;1 POINTER TO MEDICAL DIAGNOSIS/ICD CODES FILE (#697.5) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $D(^MCAR(697.5,""A.PC"",$P(^MCAR(697.5,+Y,0),U),+Y))",D="A.PC" D ^DIC K DIC S DIC=DIE
,X=+Y K:Y<0 X
LAST EDITED: OCT 28, 1991
HELP-PROMPT: Enter the consult diagnosis(es) for this patient.
DESCRIPTION:
This field identifies the diagnosis sent to the PFT lab by the referring physician
SCREEN: S DIC("S")="I $D(^MCAR(697.5,""A.PC"",$P(^MCAR(697.5,+Y,0),U),+Y))",D="A.PC"
EXPLANATION: Choose Diagnosises marked as Pulmonary Function Test Consult Diagnosises
EXECUTABLE HELP:I '$D(DJSC) N DO S X="?",DIC(0)="X",DIC="^MCAR(697.5,",D="A.PC" D MIX^DIC1 S D=-1
CROSS-REFERENCE:700.01^B
1)= S ^MCAR(700,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(700,DA(1),1,"B",$E(X,1,30),DA)
700,17 VOLUME STUDY 3;0 SET Multiple #700.017 (Add New Entry without Asking)
LAST EDITED: MAR 01, 1991
DESCRIPTION:
The subfields of this field hold the Volume Study Data for the PFT.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
700.017,.01 VOLUME STUDY TYPE 0;1 SET (Multiply asked)
'B' FOR BODY BOX;
'I' FOR INERT GAS DILUTION;
'N' FOR NITROGEN WASH OUT;
'X' FOR X-RAY PLANIMETRY;
LAST EDITED: SEP 12, 1991
HELP-PROMPT: Enter the type of Lung Volume Study done.
DESCRIPTION:
This field identifies the type of Volume Study done.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
CROSS-REFERENCE: 700.017^B
1)= S ^MCAR(700,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(700,DA(1),3,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 700^AV^MUMPS
1)= S ^MCAR(700,"AV",$P(^MCAR(700,DA(1),0),U,2),X,9999999.9999-$P(^MCAR(700,DA(1),0),U),DA(1),DA)="
"
2)= K ^MCAR(700,"AV",$P(^MCAR(700,DA(1),0),U,2),X,9999999.9999-$P(^MCAR(700,DA(1),0),U),DA(1),DA)
This cross-reference indexes the date and time of the most recent volume study of this type for
this pulmonary function test.
700.017,1 TLC 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>15.99)!(X<.05)!(X?.E1"."3N.N) X
LAST EDITED: APR 10, 1990
HELP-PROMPT: Enter the Total Lung Capacity (TLC) measured in Liters: .05-15.99
DESCRIPTION:
This field identifies the Total Lung Capacity measured.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
700.017,2 VC 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>15.99)!(X<.05)!(X?.E1"."3N.N) X
HELP-PROMPT: Enter the Vital Capacity (VC) measured in Liters: .05-15.99
DESCRIPTION:
This field identifies the measured Vital Capacity.
700.017,3 FRC 0;4 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9.99)!(X<.05)!(X?.E1"."3N.N) X
LAST EDITED: APR 10, 1990
HELP-PROMPT: Enter the Functional Residual Capacity (FRC) measured in Liters: .05-9.99
DESCRIPTION:
This field identifies the measured Functional Residual Capacity.
700.017,4 RV 0;5 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9.99)!(X<.05)!(X?.E1"."3N.N) X
HELP-PROMPT: Enter the Residual Volume (RV) measured in Liters: .05-9.99
DESCRIPTION:
This field identifies the measured Residual Volume.
700.017,6 NOTES 0;6 FREE TEXT
INPUT TRANSFORM:K:$L(X)>60!($L(X)<2) X
LAST EDITED: APR 10, 1990
HELP-PROMPT: Enter notes on this volume study: 2-60 characters
DESCRIPTION:
This field identifies a free text field for entering a note on the current Volume Study.
700,18 FLOWS STUDY 4;0 SET Multiple #700.018 (Add New Entry without Asking)
LAST EDITED: MAR 01, 1991
DESCRIPTION:
This field identifies stores data of the Flow Study done on the patient.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
700.018,.01 FLOWS STUDY 0;1 SET (Multiply asked)
'S' FOR STANDARD STUDY;
'B' FOR AFTER BRONCHODILATORS;
'I' FOR AFTER INHALATION CHALLENGE;
'X' FOR AFTER EXERCISE;
LAST EDITED: SEP 12, 1991
HELP-PROMPT: Enter the type of Flows Study done: Use 'S' for study without or prior to use of inhaled or
administered agent, or before exercise
DESCRIPTION:
This field identifies the type of Flow Study performed.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
CROSS-REFERENCE: 700.018^B
1)= S ^MCAR(700,DA(1),4,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(700,DA(1),4,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 700^AF^MUMPS
1)= S ^MCAR(700,"AF",$P(^MCAR(700,DA(1),0),U,2),X,9999999.9999-$P(^MCAR(700,DA(1),0),U),DA(1),DA)="
"
2)= K ^MCAR(700,"AF",$P(^MCAR(700,DA(1),0),U,2),X,9999999.9999-$P(^MCAR(700,DA(1),0),U),DA(1),DA)
This cross-reference indexes the date and time of the most recent flows study of this type for this
pulmonary function test.
700.018,1 FVC 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9.99)!(X<.05)!(X?.E1"."3N.N) X
LAST EDITED: FEB 28, 1990
HELP-PROMPT: Enter the Forced Vital Capacity (FVC) measured for this study in LITERS: .05-9.99
DESCRIPTION:
This field identifies the measured Forced Vital Capacity.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
700.018,2 FEV1 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99.99)!(X<.05)!(X?.E1"."3N.N) X
LAST EDITED: APR 20, 1990
HELP-PROMPT: Enter the Forced Expired Volume in Liters: .05-99.99, 2 Decimal Digits
DESCRIPTION:
This field identifies the measured Forced Expired Volume in 1 second
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
700.018,3 PF 0;4 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>20)!(X<0)!(X?.E1"."4N.N) X
LAST EDITED: SEP 12, 1991
HELP-PROMPT: Enter the Peak Expiratory Flow in Liters/Sec: 0-20, 3 decimal places.
DESCRIPTION:
This field identifies the measured Peak Flow.
700.018,4 FEF25-75 0;5 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>25)!(X<0)!(X?.E1"."4N.N) X
LAST EDITED: SEP 12, 1991
HELP-PROMPT: Enter the Forced Expiratory Flow from 25 to 75 percent in Liters/Sec: 0-25, 3 Decimal Digits
DESCRIPTION:
This field identifies the measured Forced Expired Flow from 25 to 75 percent.
700.018,5 FEV1/FVC ; COMPUTED
MUMPS CODE: S Y(700.018,5,1)=$S($D(^MCAR(700,D0,4,D1,0)):^(0),1:"") S X=$P(Y(700.018,5,1),U,3),X=$S($P(Y(700.01
8,5,1),U,2):X/$P(Y(700.018,5,1),U,2),1:"*******")*100 S X=$J(X,0,0)
ALGORITHM: FEV1/FVC*100 (ALWAYS 0 DECIMAL DIGITS)
DESCRIPTION:
This computed field is the Forced Expired Volume divided by the Forced Vital capacity.
700.018,5.5 MVV 0;7 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: SEP 17, 1991
HELP-PROMPT: Enter the Maximum Voluntary Ventilation in Liters/Minute: 0-200
DESCRIPTION:
This field identifies the Maximum Voluntary Ventilation in Liters/Minute
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
700.018,6 NOTES 0;6 FREE TEXT
INPUT TRANSFORM:K:$L(X)>60!($L(X)<2) X
LAST EDITED: FEB 28, 1990
HELP-PROMPT: Enter notes on this study.
DESCRIPTION:
This field identifies allows the entering of a note (up to 60 characters) on this Flow Study.
700,19 DLCO-SB 5;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99.99)!(X<1)!(X?.E1"."3N.N) X
LAST EDITED: NOV 06, 2000
HELP-PROMPT: Type a Number between 1 and 99.99, 2 Decimal Digits
DESCRIPTION:
This field identifies the measured Diffusing Capacity.
RECORD INDEXES: ADI (#44)
700,20 BLOOD GAS 6;0 SET Multiple #700.02 (Add New Entry without Asking)
LAST EDITED: SEP 12, 1991
DESCRIPTION:
This field is a multiple field which stores the data for the Arterial Blood Gas (ABG) Study.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
700.02,.01 BLOOD GAS 0;1 SET (Multiply asked)
'O' FOR 100% O2 STUDY;
'X' FOR POST EXERCISE;
'S' FOR SUPPLEMENTAL O2 STUDY;
'R' FOR ROOM AIR;
'M' FOR MAXIMUM EXERCISE;
'P' FOR PRE EXERCISE;
LAST EDITED: MAR 20, 1995
HELP-PROMPT: Enter the type of Arterial Blood Gas (ABG) study done on the patient.
DESCRIPTION:
This field identifies the type of Arterial Blood Gas Study done.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
CROSS-REFERENCE: 700.02^B
1)= S ^MCAR(700,DA(1),6,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(700,DA(1),6,"B",$E(X,1,30),DA)
700.02,1 HB 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>25)!(X<1.1)!(X?.E1"."2N.N) X
LAST EDITED: SEP 12, 1991
HELP-PROMPT: Enter the oximeter measured Hemoglobin: 1.1-25, 1 Decimal Place.
DESCRIPTION:
This field identifies the measured Hemoglobin value.
700.02,2 pH 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>8.5)!(X<6.5)!(X?.E1"."4N.N) X
LAST EDITED: SEP 12, 1991
HELP-PROMPT: Enter the pH level: 6.5-8.5, 3 Decimal Digits
DESCRIPTION:
This field identifies the measured pH level.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
700.02,3 pCO2 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>150)!(X<5)!(X?.E1"."2N.N) X
LAST EDITED: SEP 12, 1991
HELP-PROMPT: Enter Partial Pressure of Carbon Dioxide (pCO2) in mm. Hg.: 5-150, 1 Decimal Digit
DESCRIPTION:
This field identifies the measured Arterial Carbon Dioxide Pressure in mm Mercury.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
700.02,4 pO2 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>725)!(X<0)!(X?.E1"."2N.N) X
LAST EDITED: SEP 12, 1991
HELP-PROMPT: Enter Partial Pressure of Oxygen (pO2) in mm. Hg.: 0-725.
DESCRIPTION:
This field identifies the measured Arterial Oxygen Pressure in mm Mercury.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
700.02,5 O2HB 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."2N.N) X
LAST EDITED: SEP 12, 1991
HELP-PROMPT: Enter measured Oxyhemoglobin Saturation in percent : 0-100, 1 Decimal Place
DESCRIPTION:
This field identifies the measured Hemoglobin Oxygen
700.02,6 COHB 0;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>50)!(X<0)!(X?.E1"."2N.N) X
LAST EDITED: SEP 12, 1991
HELP-PROMPT: Enter the Carboxyhemoglobin Saturation in percent: 0-50, 1 Decimal Digit.
DESCRIPTION:
This field identifies the measured Carboxyhemoglobin Saturation
700.02,7 FiO2 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>1)!(X<0)!(X?.E1"."4N.N) X
LAST EDITED: SEP 12, 1991
HELP-PROMPT: Enter the Fraction of Inspired Oxygen: 0-1, 3 Decimal Digits.
DESCRIPTION:
This field identifies the fraction of Inspired Oxygen
700.02,8 MHB 0;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>70)!(X<0)!(X?.E1"."2N.N) X
LAST EDITED: SEP 12, 1991
HELP-PROMPT: Enter the Methemoglobin Saturation in percent: 0-70, 1 Decimal Digit.
DESCRIPTION:
This field identifies the Methemoglobin Saturation
700.02,9 NOTES 0;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<2) X
LAST EDITED: FEB 28, 1990
HELP-PROMPT: Enter notes on this Arterial Blood Gas Study.
DESCRIPTION:
This field identifies allows a 60 character note to be entered on the Arterial Blood Gas study
700.02,10 PATIENT TEMPERATURE 0;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>45)!(X<30)!(X?.E1"."2N.N) X
LAST EDITED: SEP 17, 1991
HELP-PROMPT: Enter the patient temperature in degrees Centigrade: 30-45, 1 decimal place allowed.
DESCRIPTION:
This allows the user to enter the patient temperature in degrees Centigrade.
700,21 INTERPRETATION BY 7;0 POINTER Multiple #700.021 (Add New Entry without Asking)
DESCRIPTION:
This field identifies the provider who interpreted the PFT
700.021,.01 INTERPRETATION BY 0;1 POINTER TO NEW PERSON FILE (#200) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 05, 1996
HELP-PROMPT: Enter the provider who interpreted this test.
DESCRIPTION:
This field identifies the provider who interpreted the PFT
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
EXPLANATION: Check if this person holds the PROVIDER key.
CROSS-REFERENCE: 700.021^B
1)= S ^MCAR(700,DA(1),7,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(700,DA(1),7,"B",$E(X,1,30),DA)
700,22 COMP. GEN. VOLUME INTERP. 8;0 POINTER Multiple #700.022 (Add New Entry without Asking)
700.022,.01 COMP. GEN. VOLUME INTERP. 0;1 POINTER TO INTERPRETATION FILE (#693.2) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(693.2,+Y,1,""B"",""V""))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 10, 1990
SCREEN: S DIC("S")="I $D(^MCAR(693.2,+Y,1,""B"",""V""))"
EXPLANATION: Choose Volume Interpretations
CROSS-REFERENCE: 700.022^B
1)= S ^MCAR(700,DA(1),8,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(700,DA(1),8,"B",$E(X,1,30),DA)
700,22.5 VOLUME INTERPRETATION 20;0 WORD-PROCESSING #700.06
LAST EDITED: DEC 21, 1990
700,23 COMP. GEN. FLOWS INTERP. 9;0 POINTER Multiple #700.023 (Add New Entry without Asking)
700.023,.01 COMP. GEN. FLOWS INTERP. 0;1 POINTER TO INTERPRETATION FILE (#693.2) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(693.2,+Y,1,""B"",""F""))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 10, 1990
SCREEN: S DIC("S")="I $D(^MCAR(693.2,+Y,1,""B"",""F""))"
EXPLANATION: Choose Flows Interpretation only
CROSS-REFERENCE: 700.023^B
1)= S ^MCAR(700,DA(1),9,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(700,DA(1),9,"B",$E(X,1,30),DA)
700,23.5 FLOWS INTERPRETATION 21;0 WORD-PROCESSING #700.07
LAST EDITED: DEC 21, 1990
700,24 COMP. FLOW VOL. LOOP INTERP. 10;0 POINTER Multiple #700.024 (Add New Entry without Asking)
700.024,.01 COMP. FLOW VOL. LOOP INTERP. 0;1 POINTER TO INTERPRETATION FILE (#693.2) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(693.2,+Y,1,""B"",""L""))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 10, 1990
SCREEN: S DIC("S")="I $D(^MCAR(693.2,+Y,1,""B"",""L""))"
EXPLANATION: Choose Flow Volume Loop Interpretations only
CROSS-REFERENCE: 700.024^B
1)= S ^MCAR(700,DA(1),10,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(700,DA(1),10,"B",$E(X,1,30),DA)
700,24.5 FLOW VOLUME LOOP INTERP. 22;0 WORD-PROCESSING #700.08
LAST EDITED: DEC 21, 1990
700,26 COMP. GEN. DIFFUSION INTERP. 12;0 POINTER Multiple #700.026 (Add New Entry without Asking)
700.026,.01 COMP. GEN. DIFFUSION INTERP. 0;1 POINTER TO INTERPRETATION FILE (#693.2) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(693.2,+Y,1,""B"",""D""))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 10, 1990
SCREEN: S DIC("S")="I $D(^MCAR(693.2,+Y,1,""B"",""D""))"
EXPLANATION: Choose Diffusion Interpretation Entries only
CROSS-REFERENCE: 700.026^B
1)= S ^MCAR(700,DA(1),12,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(700,DA(1),12,"B",$E(X,1,30),DA)
700,26.5 DIFFUSION INTERPRETATION 23;0 WORD-PROCESSING #700.09
LAST EDITED: DEC 21, 1990
700,27 COMP. GEN. ABG INTERP. 13;0 POINTER Multiple #700.027 (Add New Entry without Asking)
700.027,.01 COMP. GEN. ABG INTERP. 0;1 POINTER TO INTERPRETATION FILE (#693.2) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(693.2,+Y,1,""B"",""A""))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 10, 1990
SCREEN: S DIC("S")="I $D(^MCAR(693.2,+Y,1,""B"",""A""))"
EXPLANATION: Choose Arterial Blood Gases Interpretations only
CROSS-REFERENCE: 700.027^B
1)= S ^MCAR(700,DA(1),13,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(700,DA(1),13,"B",$E(X,1,30),DA)
700,28 PREDICTED VALUE FORMULAS USED PV;1 POINTER TO PFT PREDICTED VALUES FILE (#700.1) (Required)
INPUT TRANSFORM: S DIC("S")="I $P(^MCAR(700.1,+Y,1),U)=$G(MCSEX,U)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 21, 1990
HELP-PROMPT: Enter the set of Formulas used for calculating the predicted values for Volumes and Flows.
DESCRIPTION:
This field identifies a pointer to the set of formulas used to calculate predicted values.
TECHNICAL DESCR:
^^S ACT=ACT-(.132*PRED)
SCREEN: S DIC("S")="I $P(^MCAR(700.1,+Y,1),U)=$G(MCSEX,U)"
EXPLANATION: Chooses Predicted Value Formulas For the Sex of Patient
700,29 IMPRESSION 15;0 POINTER Multiple #700.029
700.029,.01 IMPRESSION 0;1 POINTER TO MEDICAL DESCRIPTION FILE (#693) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,4)=""P""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 04, 1990
HELP-PROMPT: Enter the Impression(s) for this test.
SCREEN: S DIC("S")="I $P(^(0),U,4)=""P"""
EXPLANATION: SCREEN FOR PFT IMPRESSIONS
CROSS-REFERENCE: 700.029^B
1)= S ^MCAR(700,DA(1),15,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(700,DA(1),15,"B",$E(X,1,30),DA)
700,30 COMMENTS AND RECOMMENDATIONS 16;0 WORD-PROCESSING #700.03
LAST EDITED: JUN 04, 1990
DESCRIPTION: This field identifies a word processing field which allows comments and recommendations to be
entered by the interpreter.
LAST EDITED: JUN 05, 1990
HELP-PROMPT: Enter any comments and recommendations made for this test.
DESCRIPTION: This field identifies a word processing field which allows comments and recommendations to be
entered by the interpreter.
700,31 REVIEWED BY 17;1 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 23, 1996
HELP-PROMPT: Enter the provider's name who reviewed this test.
DESCRIPTION:
This field identifies the provider who reviewed the PFT.
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
CROSS-REFERENCE: ^^TRIGGER^700^701
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(700,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,
1),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(700,31,1,1,1.4)
1.4)= S DIH=$S($D(^MCAR(700,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=700,D
IG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(700,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,
1),X=X S DIU=X K Y X ^DD(700,31,1,1,2.1) X ^DD(700,31,1,1,2.4)
2.1)= S X=DIV S Y(1)=$S($D(^MCAR(700,D0,17)):^(17),1:"") S X=$P(Y(1),U,1),X=X
2.4)= S DIH=$S($D(^MCAR(700,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=700,D
IG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= INTERNAL(#31)
DELETE VALUE)= INTERNAL(#31)
FIELD)= #701
This trigger sets the primary provider file.
700,32 SPECIAL STUDY S;0 SET Multiple #700.032
LAST EDITED: AUG 21, 1992
DESCRIPTION:
This field identifies allows special study data to be entered for this PFT
700.032,.01 SPECIAL STUDY 0;1 SET (Multiply asked)
'E' FOR EXERCISE;
'M' FOR MECHANICS;
'S' FOR SMALL AIRWAY;
'P' FOR MAXIMUM PRESSURES;
INPUT TRANSFORM: D ^MCPFTSS
LAST EDITED: AUG 21, 1992
HELP-PROMPT: Enter Code for type of special study.
DESCRIPTION: This field identifies the type of special study done: Exercise, Mechanics, Small Airway, or
Maximum Pressures.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 700.032^B
1)= S ^MCAR(700,DA(1),"S","B",$E(X,1,30),DA)=""
2)= K ^MCAR(700,DA(1),"S","B",$E(X,1,30),DA)
CROSS-REFERENCE: 700^AS^MUMPS
1)= S ^MCAR(700,"AS",$P(^MCAR(700,DA(1),0),U,2),$E(X,1,30),9999999.9999-$P(^MCAR(700,DA(1),0),U),DA
(1),DA)=""
2)= K ^MCAR(700,"AS",$P(^MCAR(700,DA(1),0),U,2),$E(X,1,30),9999999.9999-$P(^MCAR(700,DA(1),0),U),DA
(1),DA)
This cross-reference indexes the date and time of the most recent special study of this type for
this pulmonary function test.
700.032,1 RESISTANCE,RAW 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>20)!(X<0)!(X?.E1"."2N.N) X
LAST EDITED: SEP 11, 1990
HELP-PROMPT: Enter the Specific Airway Resistance in cm H20/Liters per second: 0-20, 1 decimal digit allowed
DESCRIPTION: This field identifies the Specific Airway Resistance in cm H2O/Liters per second. Used in the
Mechanics Special Study.
700.032,2 RESISTANCE,SGAW 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>.5)!(X<0)!(X?.E1"."4N.N) X
LAST EDITED: SEP 11, 1990
HELP-PROMPT: Enter the Specific Airway Conductance in Liters per second/cm H2O: 0-.5, 3 decimal digits allowed
DESCRIPTION: This field identifies the Specific Airway Conductance in Liters per second/cm H2O. Used in the
Mechanics Special Study.
700.032,3 COMPLIANCE,CST 0;4 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>1)!(X<0)!(X?.E1"."4N.N) X
LAST EDITED: SEP 11, 1990
HELP-PROMPT: Enter the Static Compliance in Liters/cm H2O: 0-1, 3 decimal digits allowed
DESCRIPTION:
This field identifies the Static Compliance in Liters/cm H2O. Used in the Mechanics Special Study.
700.032,4 COMPLIANCE,CDYN 0;5 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>1)!(X<0)!(X?.E1"."4N.N) X
LAST EDITED: SEP 11, 1990
HELP-PROMPT: Enter the Dynamic Compliance in Liters/cm H2O: 0-1, 3 decimal digits allowed
DESCRIPTION: This field identifies the Dynamic Compliance in Liters/cm H2O. Used in the Small Airway Special
Study.
700.032,5 FEF50 HE-AIR 0;6 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100)!(X<10)!(X?.E1"."3N.N) X
LAST EDITED: SEP 11, 1990
HELP-PROMPT: Enter the Maximum Expiratory at 50% of Vital Capacity breathing air in Liters/second: 10-100, 2
decimal digits allowed
DESCRIPTION: This field identifies the Maximum Expiratory at 50% of Vital Capacity breathing air in
Liters/second. Used in the Small Airway Special Study.
700.032,6 VISOV 0;7 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>10)!(X<0)!(X?.E1"."4N.N) X
LAST EDITED: SEP 10, 1990
HELP-PROMPT: Enter the Lung Volume at which Helium & Air Flow Tracings meet in Liters: 0-10, 3 decimal digits
allowed
DESCRIPTION: This field identifies the Lung Volume at which Helium & Air Flow Tracings meet in Liters. Used in
the Small Airway Special Study.
700.032,7 CV 0;8 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>10)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: AUG 21, 1992
HELP-PROMPT: Type a Number between 0 and 10, 2 Decimal Digits
DESCRIPTION:
This field identifies the Closing Volume in Liters. Used in the Small Airway Special Study
700.032,8 CC 0;9 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>500)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: MAR 05, 1991
HELP-PROMPT: Enter the Closing Capacity in Liters: 0-500, 2 Decimal Digits
DESCRIPTION:
This field identifies the Closing Capacity in Liters. Used in the Small Airway Special Study.
700.032,9 VALVE DEAD SPACE 0;10 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100)!(X<5)!(X?.E1"."3N.N) X
LAST EDITED: MAR 08, 1990
HELP-PROMPT: Enter the Valve Dead Space: 5-100, 2 Decimal Digits
700.032,10 VEMAX(BTPS) 1;1 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>150)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: AUG 21, 1992
HELP-PROMPT: Type a Number between 0 and 150, 0 Decimal Digits
DESCRIPTION: This field identifies the Maximum Expiratory Minute Ventilation at Peak Exercise in ml/beat. Used
in the Exercise Special Study.
700.032,11 BR 1;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100)!(X<0)!(X?.E1"."4N.N) X
LAST EDITED: MAR 04, 1991
HELP-PROMPT: Enter the Breathing Reserve in liters: 0- 100, 3 Decimal Digits
DESCRIPTION:
This field identifies the Breathing Reserve in Liters. Used in the Exercise Special Study.
700.032,12 VD/VT REST 1;14 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>1)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: MAR 04, 1991
HELP-PROMPT: Enter the Resting Dead Space to Tidal Volume Ratio: 0- 1, 2 Decimal Digits
DESCRIPTION: This field identifies the Resting Dead Space to Tidal Volume Ratio. Used in the Exercise Special
Study.
700.032,12.3 VD/VT MAX 1;15 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>1)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: MAR 04, 1991
HELP-PROMPT: Enter the Maximum Dead Space to Tidal Volume Ratio: 0-1, 2 Decimal Digits
DESCRIPTION: This field identifies the Maximum Dead Space to Tidal Volume Ratio. Used in the Exercise Special
Study.
700.032,12.6 VE/VCO2, AT 1;16 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: MAR 04, 1991
HELP-PROMPT: Enter The Ventilatory Equivalent for CO2 at Anaerobic Threshold 0-100, 2 Decimal Digits
DESCRIPTION: This field identifies the Ventilatory Equivalent for Carbon Dioxide at Anaerobic Threshold. Used in
the Exercise Special Study.
700.032,13 CV 1;4 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>500)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: SEP 10, 1990
HELP-PROMPT: Enter the Closing Volume in Liters: 0-500, 2 Decimal Digits allowed
700.032,14 VE REST(BTPS) 1;5 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>40)!(X<0)!(X?.E1"."2N.N) X
LAST EDITED: AUG 21, 1992
HELP-PROMPT: Type a Number between 0 and 40, 1 Decimal Digit
DESCRIPTION: This field identifies the Expiratory Minute Ventilation at Rest in ml/beat. Used in the Exercise
Special Study.
700.032,15 VO2 REST 1;6 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>5)!(X<0)!(X?.E1"."4N.N) X
LAST EDITED: SEP 11, 1990
HELP-PROMPT: Enter the Oxygen Uptake at Rest in Liters/Minute: 0-5, 3 decimal digits allowed
DESCRIPTION: This field identifies the Oxygen Uptake at Rest in Liters/Minute. Used in the Exercise Special
Study.
700.032,16 VO2 MAX 1;7 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>10)!(X<0)!(X?.E1"."4N.N) X
LAST EDITED: AUG 21, 1992
HELP-PROMPT: Type a Number between 0 and 10, 3 Decimal Digits
DESCRIPTION: This field identifies the Oxygen Uptake at Peak Exercise in Liters/Minute. Used in the Exercise
Special Study.
700.032,16.5 AT 1;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>10)!(X<0)!(X?.E1"."4N.N) X
LAST EDITED: MAR 04, 1991
HELP-PROMPT: Enter the Anaerobic Threshold in Liters: 0- 10, 3 Decimal Digits
DESCRIPTION:
This field identifies the Anaerobic Threshold in Liters. Used in the Exercise Special Study.
700.032,17 HR REST 1;8 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>150)!(X<50)!(X?.E1"."3N.N) X
LAST EDITED: MAR 08, 1990
HELP-PROMPT: Enter the Heart Rate at Rest: 50-150, 2 Decimal Digits
DESCRIPTION:
This field identifies the Heart Rate at Rest. Used in the Exercise Special Study.
700.032,18 HR MAX 1;9 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>300)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: SEP 10, 1990
HELP-PROMPT: Enter the Heart Rate at Peak Exercise in beats/minute: 0-300, no decimal digits
DESCRIPTION: This field identifies the Heart Rate at Peak Exercise in beats/minute. Used in the Exercise
Special Study.
700.032,18.2 VO2/HR 1;11 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100)!(X<0)!(X?.E1"."4N.N) X
LAST EDITED: MAR 04, 1991
HELP-PROMPT: Enter the Oxygen Pulse Maximum in milliliters per beat: 0- 100, 3 Decimal Digits
DESCRIPTION: This field identifies the Oxygen Pulse Maximum in milliliters per beat.
Used in the Exercise Special Study.
700.032,18.4 BP MAX 1;12 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<4)!'(X?2.3N1"/"1.3N)!($P(X,"/")<80)!($P(X,"/")>300)!($P(X,"/",2)<0)!($P(X,"/",2)>1
50) X
LAST EDITED: MAR 05, 1991
HELP-PROMPT: Enter the Maximum Blood Pressure in the Format: Systolic/Diastolic with the Systolic number range
80-300 and the Diastolic number range 0-150
DESCRIPTION:
This field identifies the Maximum Blood Pressure. Used in the Exercise Special Study.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
700.032,18.6 EKG 1;13 SET
'N' FOR NORMAL;
'A' FOR ABNORMAL;
LAST EDITED: MAR 04, 1991
HELP-PROMPT: Enter Code for Normal or Abnormal EKG Special Study.
DESCRIPTION:
This field identifies whether the EKG was Normal or Abnormal. Used in the Exercise Special Study.
700.032,19 RR REST 1;10 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>40)!(X<10)!(X?.E1"."3N.N) X
LAST EDITED: JUN 04, 1990
HELP-PROMPT: Enter the Respiratory Rate at Rest: 10-40, 2 Decimal Digits
DESCRIPTION:
This field identifies the Respiratory Rate at Rest. Used in the Exercise Special Study.
700.032,20 RR MAX 2;1 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>80)!(X<15)!(X?.E1"."3N.N) X
LAST EDITED: JUN 04, 1990
HELP-PROMPT: Enter the Respiratory Rate at Peak Exercise: 15-80, 2 Decimal Digits
DESCRIPTION:
This field identifies the Respiratory Rate at Peak Exercise. Used in the Exercise Special Study.
700.032,21 W MAX 2;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>1000)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: AUG 21, 1992
HELP-PROMPT: Type a Number between 0 and 1000, 2 Decimal Digits
DESCRIPTION:
This field identifies the Work Rate in Watts. Used in the Exercise Special Study.
700.032,21.5 WRI/WRT 2;6 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>50)!(X<0)!(X?.E1"."4N.N) X
LAST EDITED: MAR 04, 1991
HELP-PROMPT: Enter The Work Rate Increment/ Work Rate Time Interval in Watts per minute: 0-50, 3 Decimal Digits
DESCRIPTION: This field identifies the Work Rate Increment/Work Rate Time Interval ratio in Watts per minute.
Used in the Exercise Special Study.
700.032,22 TOTAL TIME 2;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: AUG 21, 1992
HELP-PROMPT: Type a Number between 0 and 9999, 2 Decimal Digits
DESCRIPTION:
This field identifies the Total Time in minutes of Exercise. Used in the Exercise Special Study.
700.032,22.5 HCO3 CHANGE 2;10 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>25)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: AUG 21, 1992
HELP-PROMPT: Type a Number between 0 and 25, 0 Decimal Digits
DESCRIPTION:
This field identifies the change in bicarbonate IN mEq/l. Used in the Exercise Special Study.
700.032,23 MAX SPEED 2;4 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>25)!(X<1)!(X?.E1"."3N.N) X
LAST EDITED: AUG 21, 1992
HELP-PROMPT: Type a Number between 1 and 25, 2 Decimal Digits
DESCRIPTION: This field identifies the Maximum Treadmill Speed in MPH at Peak Exercise. Used in the Exercise
Special Study.
700.032,24 MAX GRADE 2;5 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>40)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: MAR 08, 1990
HELP-PROMPT: Enter the Maximum Treadmill Grade at Peak Exercise: 0-40, 2 Decimal Digits
DESCRIPTION: This field identifies the Maximum Treadmill Grade at Peak Exercise. Used in the Exercise Special
Study.
700.032,28 EXERCISE TESTING MODE 2;9 SET
'1' FOR TREADMILL;
'2' FOR BIKE ERGOMETER;
'3' FOR HAND ERGOMETER;
LAST EDITED: JUN 04, 1990
HELP-PROMPT: Enter Code for mode of testing.
DESCRIPTION:
This field identifies the mode of testing used for an Exercise Special Study.
700.032,29 REASON FOR STOPPING 3;0 POINTER Multiple #700.3229 (Add New Entry without Asking)
DESCRIPTION: This field identifies the Reason for Stopping an Exercise Special Study. This subfield points to
the REASON (MEDICINE) File.
SCREEN: S DIC("S")="I $D(^MCAR(695.8,""AC"",""PF"",+Y))"
EXPLANATION: Choose Reason for Stopping assosciated with this special study
700.3229,.01 REASON FOR STOPPING 0;1 POINTER TO REASON (MEDICINE) FILE (#695.8) (Multiply asked)
LAST EDITED: JUL 16, 1992
HELP-PROMPT: Enter Reason for Stopping. Pointer to Reason (Medicine) File (#695.8).
DESCRIPTION: This field identifies the Reason for Stopping of an Exercise Special Study. This subfield points
to the MEDICINE (REASON) File.
CROSS-REFERENCE:700.3229^B
1)= S ^MCAR(700,DA(2),"S",DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(700,DA(2),"S",DA(1),3,"B",$E(X,1,30),DA)
700.032,30 OTHER REASON FOR STOPPING 4;0 WORD-PROCESSING #700.042
DESCRIPTION: This field identifies a word-processing field to enter Reason(s) for Stopping for Exercise
Special Studies that are not in the REASON (MEDICINE) File.
LAST EDITED: JAN 02, 1991
HELP-PROMPT: Enter Reason for Stopping in this word processing field.
DESCRIPTION: This field identifies a word-processing field to enter Reason(s) for Stopping for Exercise
Special Studies that are not in the REASON (MEDICINE) File.
700.032,35 PIMAX 2;7 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 05, 1991
HELP-PROMPT: Enter the Maximum Inspiratory Pressure in cm H2O: 0-100, 0 Decimal Digits
DESCRIPTION: This field identifies the Maximum Inspiratory Pressure in cm H2O. Only element of the Maximum
Pressures Special Study.
700.032,39 PATIENT EFFORT (SPEC. STUDIES) 2;11 SET
'G' FOR GOOD;
'E' FOR EXCELLENT;
'P' FOR POOR;
LAST EDITED: MAR 18, 1991
700.032,40 NOTES 2;8 FREE TEXT
INPUT TRANSFORM:K:$L(X)>60!($L(X)<2) X
LAST EDITED: MAR 05, 1991
HELP-PROMPT: Answer must be 2-60 characters in length.
DESCRIPTION: This field identifies a 60 character Free Text field which allows the user to enter a note on
the Special Study.
700,33 COMP. GENERATED INTERPRETATION 24;0 POINTER Multiple #700.033 (Add New Entry without Asking)
DESCRIPTION: This field identifies stores the Computer Generated Interpretation(s) for the PFT and whether or
not the Interpreter accepted the Interpretation.
700.033,.01 COMP. GENERATED INTERPRETATION 0;1 POINTER TO INTERPRETATION FILE (#693.2)
LAST EDITED: MAR 05, 1991
HELP-PROMPT: This field stores Computer Generated Interpretation. Pointer to Interpretation File (#693.2).
DESCRIPTION:
This field identifies a computer generated interpretation for the PFT.
SCREEN: S DIC("S")="I $D(^MCAR(693.2,+Y,1,""B"",""S""))"
EXPLANATION: Choose Special Studies Interpretations only
CROSS-REFERENCE: 700.033^B
1)= S ^MCAR(700,DA(1),24,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(700,DA(1),24,"B",$E(X,1,30),DA)
700.033,1 ACCEPTED? 0;2 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: MAR 27, 1991
HELP-PROMPT: Enter Y for Yes, N for N if the Interpreter accepted the Computer Generated Interpretation.
DESCRIPTION: This field tell whether or not the Interpreter accepted the Computer Generated Interpretation.
The Interpretation will appear on the report ONLY IF the Interpreter accepted the Interpretation.
700,33.5 FREE TEXT INTERPRETATION 25;0 WORD-PROCESSING #700.04
DESCRIPTION: This field identifies a word processing field which allows the Interpreter to enter
Interpretation(s) in addition to, or instead of, the Computer Generated Interpretations.
LAST EDITED: MAR 15, 1991
HELP-PROMPT: Enter the free text interpretation in this word-processing field.
DESCRIPTION: This field identifies a word processing field which allows the Interpreter to enter
Interpretation(s) in addition to , or instead of, the Computer Generated Interpretations.
CROSS-REFERENCE: 700.04^B
1)= S ^MCAR(700,DA(1),11,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(700,DA(1),11,"B",$E(X,1,30),DA)
700,34 TECHNICIAN 0;13 POINTER TO NEW PERSON FILE (#200) (Required)
INPUT TRANSFORM: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 25, 1994
HELP-PROMPT: Enter the name of the technician who performed the test.
DESCRIPTION:
This field identifies the Technician who performed the PFT.
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
700,35 FLOW STUDY MACHINE 17;2 SET
'F' FOR FLOW TURBINE;
'P' FOR PNEUMOTACH;
'A' FOR ANEMOMETER;
'DS' FOR DRY WATER SEAL;
'WS' FOR WATER SEAL;
'W' FOR WEDGE;
LAST EDITED: JUN 04, 1990
HELP-PROMPT: Enter the type of machine that the Flow Study(ies) were performed on
DESCRIPTION:
This field identifies the type of machine used for the Flow Study.
700,37 DIFFUSING CAPACITY METHOD 17;4 SET
'1' FOR SINGLE BREATH;
'2' FOR STEADY STATE;
LAST EDITED: JUN 04, 1990
HELP-PROMPT: Enter the method by which the Diffusing Capacity (DLCO) test was performed
DESCRIPTION:
This field identifies the Method used for the Diffusing Capacity (DLCO) Test.
700,38 USE RACE CORRECTIONS 17;5 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: DEC 21, 1990
HELP-PROMPT: Answer 'Yes' or 'No'. The system has built in corrections for the predicted value formulas for
'Black' or 'Asian' patients. 'Yes' will include these corrections in the Predicted Value Formulas.
DESCRIPTION: This field allows the user to decide whether certain data should be race corrected. Used for Black
or Oriental patients.
700,38.5 RACE CORRECTIONS FOR RACE TYPE 17;7 SET
'B' FOR BLACK;
'A' FOR ASIAN;
LAST EDITED: JAN 24, 2003
HELP-PROMPT: Enter B for BLACK or A for ASIAN.
DESCRIPTION: If the 'USE RACE CORRECTIONS' is set to YES and the race value is both BLACK and ASIAN, this field
will store which race type the race correction will be for.
TECHNICAL DESCR:
This field will store either a 'B' for BLACK or 'A' for ASIAN.
700,39 PATIENT EFFORT 17;6 SET
'E' FOR EXCELLENT;
'G' FOR GOOD;
'P' FOR POOR;
LAST EDITED: JUN 04, 1990
HELP-PROMPT: Enter the Code for the correct patient effort.
DESCRIPTION:
This field indicates the patient effort: GOOD, EXCELLENT, or POOR.
700,40 RELEASE REPORT 2;1 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: AUG 24, 1992
700,41 OTHER REASON FOR STOPPING 19;0 WORD-PROCESSING #700.041
LAST EDITED: JUN 04, 1990
700,600 PROCEDURE SUMMARY .2;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>79!($L(X)<1) X
LAST EDITED: NOV 28, 1990
HELP-PROMPT: Answer must be 1-79 characters in length. This will appear on the 'Summary of Patient Procedures'.
DESCRIPTION: This field identifies a required 79 character summary of the PFT. Will appear on the Summary of
Patient Procedures.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
700,700 ICD DIAGNOSIS ICD;0 POINTER Multiple #700.05
DESCRIPTION:
This field contains the ICD Diagnosis(es) for the procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
700.05,.01 ICD DIAGNOSIS 0;1 POINTER TO ICD DIAGNOSIS FILE (#80) (Multiply asked)
LAST EDITED: MAR 15, 2012
DESCRIPTION:
This field contains an ICD Diagnosis for the procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
SCREEN: S DIC("S")="I $D(^MCAR(695.8,""AC"",""PF"",+Y))"
EXPLANATION: CHOOSE REASON FOR STOPPING ASSOSCIATED WITH PFT
CROSS-REFERENCE: 700.05^B
1)= S ^MCAR(700,DA(1),"ICD","B",$E(X,1,30),DA)=""
2)= K ^MCAR(700,DA(1),"ICD","B",$E(X,1,30),DA)
700.05,.02 NARRATIVE DIAGNOSIS 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
LAST EDITED: JAN 02, 1992
HELP-PROMPT: Answer must be 1-80 characters in length.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
700,701 PRIMARY PROVIDER PROV;1 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 25, 1994
DESCRIPTION: This contains the primary provider. It is triggered by another field in the file and is located
here to provider a standard provider location for use in transferring data to the PCC.
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the REVIEWED BY field of the PULMONARY FUNCTION TESTS File
700,900 PCC POINTER PCC;1 POINTER TO VISIT FILE (#9000010)
LAST EDITED: MAY 17, 1996
DESCRIPTION: This field is used to link the Medicine package results with the PCC Visit File for use by
Queryman.
CROSS-REFERENCE: 700^APCE
1)= S ^MCAR(700,"APCE",$E(X,1,30),DA)=""
2)= K ^MCAR(700,"APCE",$E(X,1,30),DA)
Pointer to the Visit file.
700,1000 ORIFN OR;1 POINTER TO ORDER FILE (#100)
LAST EDITED: JUL 09, 1991
HELP-PROMPT: Enter the 'Consult Orders' internal file number. Pointer to (#100).
DESCRIPTION: This field contains a pointer to the 'Consult Orders' internal file number, stored in file 100.
This field is entered when results are entered in the Medicine package.
700,1001 GMRCO OR;2 POINTER TO REQUEST/CONSULTATION FILE (#123)
LAST EDITED: JUL 16, 1992
HELP-PROMPT: Enter the 'Request/Consultation' internal file number. Pointer to (#123).
DESCRIPTION: This field contains a pointer to the internal number of the consult order stored in the
REQUEST/CONSULTATION file (123). This field is entered when results are entered in the Medicine
package.
700,1500 ENTERING DUZ ES;1 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JAN 28, 1993
700,1501 COSIGNER VALIDATION CODE ES;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: JAN 28, 1993
HELP-PROMPT: Answer must be 1-30 characters in length.
700,1502 ENTERING DATE ES;3 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 28, 1993
700,1503 VERIFYING DUZ ES;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JAN 28, 1993
700,1504 SIGNER VALIDATION CODE ES;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: JAN 28, 1993
HELP-PROMPT: Answer must be 1-30 characters in length.
700,1505 VERIFIER DATE ES;6 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 28, 1993
700,1506 RELEASE STATUS ES;7 SET
'D' FOR DRAFT;
'PD' FOR PROBLEM DRAFT;
'RV' FOR RELEASED ON-LINE VERIFIED;
'ROV' FOR RELEASED OFF-LINE VERIFIED;
'RNV' FOR RELEASED NOT VERIFIED;
'S' FOR SUPERSEDED;
'SRV' FOR RELEASED ON-LINE VERIFIED OF SUPERSEDED;
'SROV' FOR RELEASED OFF-LINE VERIFIED OF SUPERSEDED;
LAST EDITED: DEC 14, 1993
700,1507 DATE OF RELEASED ES;8 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 28, 1993
700,1508 DATE OF VERIFIED ES;9 DATE (Required)
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 28, 1993
700,1509 SUPERSEDED ES;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 28, 1993
HELP-PROMPT: Type a Number between 0 and 9999999999, 0 Decimal Digits
700,1510 SUPERSEDED BY ES;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 28, 1993
HELP-PROMPT: Type a Number between 0 and 9999999999, 0 Decimal Digits
700,1511 MARK FOR DELETION ES;12 SET
'1' FOR MARK FOR DELETION;
LAST EDITED: JAN 28, 1993
700,1512 DELETER DUZ ES;13 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JAN 28, 1993
700,1513 SUPERSEDED DATE ES;14 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: JAN 28, 1993
HELP-PROMPT: Answer must be 1-40 characters in length.
700,1514 CREATION DATE ES;15 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 03, 1993
HELP-PROMPT: Enter the date that this record was created.
700,1515 SUPERSEDED NUMBER ES;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 04, 1993
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
FILES POINTED TO FIELDS
HOSPITAL LOCATION (#44) WARD/CLINIC (#9)
ICD DIAGNOSIS (#80) ICD DIAGNOSIS:ICD DIAGNOSIS (#.01)
INTERPRETATION (#693.2) COMP. GEN. VOLUME INTERP.:COMP. GEN. VOLUME INTERP. (#.01)
COMP. GEN. FLOWS INTERP.:COMP. GEN. FLOWS INTERP. (#.01)
COMP. FLOW VOL. LOOP INTERP.:COMP. FLOW VOL. LOOP INTERP. (#.01)
COMP. GEN. DIFFUSION INTERP.:COMP. GEN. DIFFUSION INTERP. (#.01)
COMP. GEN. ABG INTERP.:COMP. GEN. ABG INTERP. (#.01)
COMP. GENERATED INTERPRETATION:COMP. GENERATED INTERPRETATION (#.01)
MEDICAL DESCRIPTION (#693) IMPRESSION:IMPRESSION (#.01)
MEDICAL DIAGNOSIS/ICD CODES
(#697.5) CONSULT DX:CONSULT DX (#.01)
MEDICAL PATIENT (#690) MEDICAL PATIENT (#1)
NEW PERSON (#200) REFERRING PHYSICIAN (#10)
REVIEWED BY (#31)
TECHNICIAN (#34)
PRIMARY PROVIDER (#701)
ENTERING DUZ (#1500)
VERIFYING DUZ (#1503)
DELETER DUZ (#1512)
INTERPRETATION BY:INTERPRETATION BY (#.01)
ORDER (#100) ORIFN (#1000)
PFT PREDICTED VALUES (#700.1) PREDICTED VALUE FORMULAS USED (#28)
REASON (MEDICINE) (#695.8) REASON FOR STOPPING:REASON FOR STOPPING (#.01)
REQUEST/CONSULTATION (#123) GMRCO (#1001)
VISIT (#9000010) PCC POINTER (#900)
File #700
Record Indexes:
ADI (#44) RECORD REGULAR IR SORTING ONLY
Short Descr: Diffusing capacity measurement cross-reference
Description: This cross-reference indexes the date and time of the most recent diffusing capacity measurement for this
pulmonary function test.
Set Logic: S ^MCAR(700,"ADI",X(1),X(2),DA)=""
Set Cond: S X=X(3)]""
Kill Logic: K ^MCAR(700,"ADI",X(1),X(2),DA)
Kill Cond: S X=X(3)]""
Whole Kill: K ^MCAR(700,"ADI")
X(1): MEDICAL PATIENT (700,1) (Subscr 1) (forwards)
X(2): DATE/TIME (700,.01) (Subscr 2) (forwards)
Transform (Storage): S X=9999999.9999-X
X(3): DLCO-SB (700,19) (forwards)
INPUT TEMPLATE(S):
MCBLPFT FEB 08, 1993@11:51 USER #0
MCFLPFT FEB 13, 2003@13:57 USER #0
MCPFTBRIEF FEB 08, 1993@11:51 USER #0
MCPFTEDIT FEB 13, 2003@13:59 USER #0
MCPFTEDITNEW FEB 13, 2003@14:01 USER #0
PRINT TEMPLATE(S):
MCPFTBRIEF MAY 13, 1996@11:14 USER #0 PULMONARY FUNCTION TESTS BRIEF LIST
MCPFTBRPR MAY 13, 1996@11:14 USER #0 ^MCOBPFT @
MCPFTBRPR1 MAY 21, 1998@14:43 USER #0 ^MCOBPF @
MCPFTP MAY 13, 1996@11:16 USER #0 ^MCAROPF @
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):