Global: ^MCAR(700

FileMan FileNo	FileMan Filename	Package
700	PULMONARY FUNCTION TESTS	Medicine

Package	Total	Routines
Medicine	43	BLOOD GAS COMP. FLOW VOL. LOOP INTERP. COMP. GEN. ABG INTERP. COMP. GEN. DIFFUSION INTERP. COMP. GEN. FLOWS INTERP. COMP. GEN. VOLUME INTERP. COMP. GENERATED INTERPRETATION CONSULT DX DIAGNOSIS FLOWS STUDY ICD DIAGNOSIS IMPRESSION INTERPRETATION BY MCAR7P1 MCAR7P2 MCAROPF MCARUTL1 MCBPFTP1 MCBPFTP2 MCBPFTP3 MCBPFTP4 MCBPFTP5 MCBPFTP7 MCFLPFT MCOBPF MCOBPFT MCPFTEDIT MCPFTEDITNEW MCPFTI MCPFTIC MCPFTP MCPFTP1 MCPFTP2 MCPFTP2A MCPFTP3 MCPFTP4 MCPFTP5 MCPFTR MCPOS01G VOLUME STUDY ^MCAR(700 REASON FOR STOPPING SPECIAL STUDY
Clinical Procedures	5	MDCVT1 MDPFTP1 MDPFTP2 MDPFTP2A MDPFTP3

Package	Total	Routines
Medicine	10	MCAR7P1 MCAR7P2 MCARE MCBPFTP1 MCEF MCPFTE MCPFTI MCPFTP MCPFTP1 MCPFTR
Clinical Procedures	2	MDPFTP1 MDPFTP3

Package	Total	FileMan Files
Consult Request Tracking	1	REQUEST/CONSULTATION(#123)[11, #123.03(.01)]

Package	Total	FileMan Files
Medicine	6	MEDICAL PATIENT(#690)[1] MEDICAL DESCRIPTION(#693)[#700.029(.01)] INTERPRETATION(#693.2)[#700.022(.01), #700.023(.01), #700.024(.01), #700.026(.01), #700.027(.01), #700.033(.01)] REASON (MEDICINE)(#695.8)[#700.3229(.01)] MEDICAL DIAGNOSIS/ICD CODES(#697.5)[#700.01(.01)] PFT PREDICTED VALUES(#700.1)[28]
Consult Request Tracking	1	REQUEST/CONSULTATION(#123)[1001]
DRG Grouper	1	ICD DIAGNOSIS(#80)[#700.05(.01)]
Kernel	1	NEW PERSON(#200)[10, 31, 34, 701, 1500, 1503, 1512, #700.021(.01)]
Order Entry Results Reporting	1	ORDER(#100)[1000]
PCE Patient Care Encounter	1	VISIT(#9000010)[900]
Scheduling	1	HOSPITAL LOCATION(#44)[9]

Fields, Total: 65

Field #	Name	Loc	Type	Details
.01	DATE/TIME	0;1	DATE	**********************REQUIRED FIELD********************** 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)`
.03	SUMMARY	.2;1	SET	**********************REQUIRED FIELD********************** '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`
1	MEDICAL PATIENT	0;2	POINTER TO MEDICAL PATIENT FILE (#690)	**********************REQUIRED FIELD********************** MEDICAL PATIENT(#690) 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)`
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.`
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.`
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.`
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.`
6	BAROMETRIC PRESSURE	0;7	NUMBER	**********************REQUIRED FIELD********************** 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`
6.5	ROOM TEMPERATURE (CENTIGRADE)	0;12	NUMBER	**********************REQUIRED FIELD********************** 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`
7	SMOKER	0;8	SET	**********************REQUIRED FIELD********************** '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.`
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.`
9	WARD/CLINIC	0;10	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#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.`
10	REFERRING PHYSICIAN	0;11	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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))"`
11	CONSULT DX	1;0	POINTER Multiple #700.01	700.01 DESCRIPTION: `This field identifies the diagnosis sent to the PFT lab by the Referring Physician.`
17	VOLUME STUDY	3;0	SET Multiple #700.017	700.017 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`
18	FLOWS STUDY	4;0	SET Multiple #700.018	700.018 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`
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)`
20	BLOOD GAS	6;0	SET Multiple #700.02	700.02 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`
21	INTERPRETATION BY	7;0	POINTER Multiple #700.021	700.021 DESCRIPTION: `This field identifies the provider who interpreted the PFT`
22	COMP. GEN. VOLUME INTERP.	8;0	POINTER Multiple #700.022	700.022
22.5	VOLUME INTERPRETATION	20;0	WORD-PROCESSING #700.06	LAST EDITED: `DEC 21, 1990`
23	COMP. GEN. FLOWS INTERP.	9;0	POINTER Multiple #700.023	700.023
23.5	FLOWS INTERPRETATION	21;0	WORD-PROCESSING #700.07	LAST EDITED: `DEC 21, 1990`
24	COMP. FLOW VOL. LOOP INTERP.	10;0	POINTER Multiple #700.024	700.024
24.5	FLOW VOLUME LOOP INTERP.	22;0	WORD-PROCESSING #700.08	LAST EDITED: `DEC 21, 1990`
26	COMP. GEN. DIFFUSION INTERP.	12;0	POINTER Multiple #700.026	700.026
26.5	DIFFUSION INTERPRETATION	23;0	WORD-PROCESSING #700.09	LAST EDITED: `DEC 21, 1990`
27	COMP. GEN. ABG INTERP.	13;0	POINTER Multiple #700.027	700.027
28	PREDICTED VALUE FORMULAS USED	PV;1	POINTER TO PFT PREDICTED VALUES FILE (#700.1)	**********************REQUIRED FIELD********************** PFT PREDICTED VALUES(#700.1) 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`
29	IMPRESSION	15;0	POINTER Multiple #700.029	700.029
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.`
31	REVIEWED BY	17;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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,DIG=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,DIG=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.`
32	SPECIAL STUDY	S;0	SET Multiple #700.032	700.032 LAST EDITED: `AUG 21, 1992` DESCRIPTION: `This field identifies allows special study data to be entered for this PFT`
33	COMP. GENERATED INTERPRETATION	24;0	POINTER Multiple #700.033	700.033 DESCRIPTION: `This field identifies stores the Computer Generated Interpretation(s) for the PFT and whether or not the Interpreter accepted the Interpretation.`
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)`
34	TECHNICIAN	0;13	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#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 technician who performed the test.` DESCRIPTION: `This field identifies the Technician who performed the PFT.` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"`
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.`
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.`
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.`
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.`
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.`
40	RELEASE REPORT	2;1	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `AUG 24, 1992`
41	OTHER REASON FOR STOPPING	19;0	WORD-PROCESSING #700.041	LAST EDITED: `JUN 04, 1990`
600	PROCEDURE SUMMARY	.2;2	FREE TEXT	**********************REQUIRED FIELD********************** 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	ICD DIAGNOSIS	ICD;0	POINTER Multiple #700.05	700.05 DESCRIPTION: `This field contains the ICD Diagnosis(es) for the procedure.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
701	PRIMARY PROVIDER	PROV;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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`
900	PCC POINTER	PCC;1	POINTER TO VISIT FILE (#9000010)	VISIT(#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.`
1000	ORIFN	OR;1	POINTER TO ORDER FILE (#100)	ORDER(#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.`
1001	GMRCO	OR;2	POINTER TO REQUEST/CONSULTATION FILE (#123)	REQUEST/CONSULTATION(#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.`
1500	ENTERING DUZ	ES;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 28, 1993`
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.`
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`
1503	VERIFYING DUZ	ES;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 28, 1993`
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.`
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`
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`
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`
1508	DATE OF VERIFIED	ES;9	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 28, 1993`
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`
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`
1511	MARK FOR DELETION	ES;12	SET	'1' FOR MARK FOR DELETION; LAST EDITED: `JAN 28, 1993`
1512	DELETER DUZ	ES;13	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 28, 1993`
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.`
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.`
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`

Name	Field # of Occurrence
^%DT	.01+1, 1502+1, 1505+1, 1507+1, 1508+1, 1514+1
^DIC	10+1, 28+1, 31+1, 34+1, 701+1
^DICR	31(XREF 1n1.4), 31(XREF 1n2.4)
Y^DIQ	ID1+1
CHGDTE^MCARPROC	.01(XREF 2K)
CHGDTE1^MCARPROC	.01(XREF 2S)
CHGPAT^MCARPROC	1(XREF 2S)
KILL^MCARPROC	1(XREF 2K)
EN^MCARUTL1	IXAGSL+1, IXAGKL+1
$$MCSEX^MCEF	1(XREF 3S)

Name	Line Occurrences (* Changed, ! Killed)
^DD(	31(XREF 1n1.4), 31(XREF 1n2.4)
^DD(690	ID1+1
^DD(700	31(XREF 1S), 31(XREF 1K)
^MCAR(690 - [#690]	ID1+1
^MCAR(700 - [#700]	IXADISL+1*, IXADIKL+1!, IXADIKEIC+1!, IXAGKEIC+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 3S), 1(XREF 3K) , 31(XREF 1S), 31(XREF 1n1.4), 31(XREF 1K), 31(XREF 1n2.1), 31(XREF 1n2.4), 900(XREF 1S), 900(XREF 1K)

Name	Field # of Occurrence
^("ES"	IDX1+1
^("PROV"	31(XREF 1S), 31(XREF 1n1.4), 31(XREF 1K), 31(XREF 1n2.4)
^(0	ID1+1
^(17	31(XREF 1n2.1)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1, 1502+1, 1505+1, 1507+1, 1508+1, 1514+1
%I	ID1+1*!
>> C	ID1+1*
>> D0	31(XREF 1S), 31(XREF 1K), 31(XREF 1n2.1)
>> DA	IXADISL+1, IXADIKL+1, IXAGSL+1, IXAGKL+1, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 3S), 1(XREF 3K) , 31(XREF 1S), 31(XREF 1K), 900(XREF 1S), 900(XREF 1K)
DIC	ID1+1, IDX1+1, 10+1!, 28+1!, 31+1!, 34+1!, 701+1!*
DIC("S"	10+1, 28+1, 28SCR+1, 31+1, 34+1, 701+1
>> DIE	10+1, 28+1, 31+1, 34+1, 701+1
>> DIG	31(XREF 1n1.4), 31(XREF 1n2.4)
>> DIH	31(XREF 1n1.4), 31(XREF 1n2.4)
>> DIU	31(XREF 1S), 31(XREF 1K)
DIV	31(XREF 1S), 31(XREF 1n1.4), 31(XREF 1K), 31(XREF 1n2.1), 31(XREF 1n2.4)
DIV(0	31(XREF 1S), 31(XREF 1n1.4), 31(XREF 1K), 31(XREF 1n2.4)
>> MCARCDIE	.01(XREF 2S), .01(XREF 2K), 1(XREF 2S), 1(XREF 2K)
U	ID1+1, 31(XREF 1S), 31(XREF 1n1.4), 31(XREF 1K), 31(XREF 1n2.1), 31(XREF 1n2.4)
X	IXADISCC+1, IXADIKCC+1, IXADIP2TS+1, IXAGSCC+1, IXAGKCC+1, .01+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K) , 2+1!, 3+1!, 4+1!, 5+1!, 6+1!, 6.5+1!, 10+1!, 19+1!, 28+1!, 31+1! , 31(XREF 1S), 31(XREF 1n1.4), 31(XREF 1K), 31(XREF 1n2.1), 31(XREF 1n2.4), 34+1!, 600+1!, 701+1!, 900(XREF 1S), 900(XREF 1K) , 1501+1!, 1502+1!, 1504+1!, 1505+1!, 1507+1!, 1508+1!, 1509+1!, 1510+1!, 1513+1!, 1514+1! , 1515+1!
X(1	IXADISL+1, IXADIKL+1, IXAGSL+1, IXAGSCC+1, IXAGKL+1, IXAGKCC+1
X(2	IXADISL+1, IXADIKL+1, IXAGSL+1, IXAGSCC+1, IXAGKL+1, IXAGKCC+1
X(3	IXADISCC+1, IXADIKCC+1
Y	ID1+1*, .01+1, 10+1, 28+1, 31+1, 31(XREF 1S), 31(XREF 1K), 34+1, 701+1, 1502+1 , 1505+1, 1507+1, 1508+1, 1514+1
Y(1	31(XREF 1S), 31(XREF 1K), 31(XREF 1n2.1)

Customize PDF page

Package: Medicine

Global: ^MCAR(700

Information

Description

Directly Accessed By Routines, Total: 54

Accessed By FileMan Db Calls, Total: 12

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 12

Fields, Total: 65

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: