Global: ^MCAR(699

FileMan FileNo	FileMan Filename	Package
699	ENDOSCOPY/CONSULT	Medicine

Package	Total	Routines
Medicine	51	COUGH DIAGNOSIS DISPOSITION ICD DIAGNOSIS IMAGE INDICATION FOR PROCEDURE INSTRUMENT LOCATION EVALUATED MCAR7E MCARGD MCARGEA MCARGIBRPR MCARGIEDIT MCARGIEDIT1 MCARGIRCLI MCARGS MCAROG MCAROG1 MCAROGA MCAROGA1 MCAROGI MCAROGM MCAROGN MCAROGR MCAROP MCAROPE MCAROPE1 MCARPS1 MCARPS2 MCARPS3 MCESCONV MCFLGI MCFLHEM MCGBL MCOBGA MCOBGA1 MCOBGN MCOBPE MCPARC MCPOS01F MCPOS03 MCPOS04 MCPOS04A MODIFIER ^MCAR(699 PNEUMONIA SECONDARY DIAGNOSIS SIGNS AND SYMPTOMS TECHNIQUE VIDEO FRAME NUMBER VIDEO/AUDIO FILE NAME
Clinical Procedures	4	MDARP3 MDCVT1 MDPS3 MDSTATU

Package	Total	Routines
Medicine	6	MCAR7E MCARGD MCARGE MCARGP MCARP1 MCPOS03

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

Package	Total	FileMan Files
Medicine	20	MEDICAL PATIENT(#690)[.02] INDICATION(#694.1)[#699.16(.01)] MEDICATION(#695)[#699.38(.01)] SYMPTOM(#695.5)[#699.0206(.01), #699.18(.01)] COMPLICATION(#696.9)[#699.58(.01)] ANATOMY(#697)[24, 204.5, #699.01(.01), #699.75(2)] PROCEDURE/SUBSPECIALTY(#697.2)[1] MEDICAL DIAGNOSIS/ICD CODES(#697.5)[204, #699.01(6), #699.75(.01)] INSTRUMENT(#699.48)[#699.05(.01)] GROSS(#699.55)[#699.01(2)] MODIFIER(#699.57)[#699.13(.01)] DIAG/THERAP INTERVENT(#699.6)[#699.15(.01), #699.17(.01)] ENDOSCOPIC DEVICE(#699.7)[#699.01(11), #699.01(14), #699.01(19), #699.01(20)] RESULTS(#699.81)[#699.56(.01)] CONSULTATION TYPE(#699.82)[31.5] LOCATION OF PAIN/PNEUMONIAS(#699.83)[#699.0207(.01), #699.19(.01)] DISEASE EVALUATION(#699.84)[#699.35(.01)] FOLLOWUP DEVICE/THERAPY(#699.85)[#699.36(.01)] SURVEILLANCE(#699.86)[#699.37(.01)] NON-ENDOSCOPIC PROCEDURE(#699.88)[#699.59(.01)]
Consult Request Tracking	1	REQUEST/CONSULTATION(#123)[1001]
DRG Grouper	1	ICD DIAGNOSIS(#80)[#699.03(.01)]
Imaging	1	IMAGE(#2005)[#699.02005(.01)]
Kernel	1	NEW PERSON(#200)[6, 200, 201, 701, 1500, 1503, 1512]
Order Entry Results Reporting	1	ORDER(#100)[1000]
PCE Patient Care Encounter	1	VISIT(#9000010)[900]
Pharmacy Data Management	1	DRUG(#50)[#699.74(.01)]
Scheduling	1	HOSPITAL LOCATION(#44)[8, 9]

Fields, Total: 88

Field #	Name	Loc	Type	Details
.01	APPOINTMENT DATE/TIME	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 17, 1988` HELP-PROMPT: `ENTER SCHEDULED DATE AND TIME FOR THIS PROCEDURE. IF YOU ARE EDITING AN ALREADY EXISTING PROCEDURE, THE PATIENT NAME CAN BE ENTERED HERE.` DESCRIPTION: `This field contains the date/time of the Endoscopy procedure.` TECHNICAL DESCR: `ORDER ENTRY TYPE: IDENTIFIER` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `699^B` `1)= S ^MCAR(699,"B",$E(X,1,30),DA)=""` `2)= K ^MCAR(699,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `699^AF^MUMPS` `1)= S MCARCDIE="^MCAR(699," D CHGDTE1^MCARPROC` `2)= S MCARCDIE="^MCAR(699," D CHGDTE^MCARPROC` `This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent endoscopy/consult procedure for this patient.`
.02	MEDICAL PATIENT	0;2	POINTER TO MEDICAL PATIENT FILE (#690)	**********************REQUIRED FIELD********************** MEDICAL PATIENT(#690) LAST EDITED: `AUG 01, 1988` HELP-PROMPT: `Enter the patient's name, SSN, or other identifier` DESCRIPTION: `This field identifies the name of the patient under-going the procedure.` TECHNICAL DESCR: `ORDER ENTRY TYPE: IDENTIFIER` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `699^C` `1)= S ^MCAR(699,"C",$E(X,1,30),DA)=""` `2)= K ^MCAR(699,"C",$E(X,1,30),DA)` `This cross-reference allow look-ups by patient.` CROSS-REFERENCE: `699^AG^MUMPS` `1)= S MCARCDIE="^MCAR(699," D CHGPAT^MCARPROC` `2)= S MCARCDIE="^MCAR(699," D KILL^MCARPROC` `This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent endoscopy/consult procedure for this patient.`
1	PROCEDURE	0;12	POINTER TO PROCEDURE/SUBSPECIALTY FILE (#697.2)	**********************REQUIRED FIELD********************** PROCEDURE/SUBSPECIALTY(#697.2) INPUT TRANSFORM: `S DIC("S")="I $D(^MCAR(697.2,""D"",$G(MCARCODE,U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 24, 1993` HELP-PROMPT: `Enter Procedure, pointer to Procedure Location (#697.2).` DESCRIPTION: `This field identifies the specific procedure performed, such as colonoscopy.` SCREEN: `S DIC("S")="I $D(^MCAR(697.2,""D"",$G(MCARCODE,U),+Y))"` EXPLANATION: `CHOOSE PROCEDURES THAT APPLY ONLY TO SPECIFIC AREA OF MEDICINE (GI/PULMONARY)` CROSS-REFERENCE: `699^D` `1)= S ^MCAR(699,"D",$E(X,1,30),DA)=""` `2)= K ^MCAR(699,"D",$E(X,1,30),DA)` `This cross-reference allows look-ups by procedures.`
2	INDICATION FOR PROCEDURE	1;0	POINTER Multiple #699.16	699.16 DESCRIPTION: `This field identifies field stores the reason (s) why the Endoscopic procedure was performed. This field has been broken out for GI Endoscopies into it's individual elements and is no longer asked by the GI edit` `templates, but continues to be asked for Pulmonary Endoscopies.`
2.1	INDICATED THERAPY	2;0	POINTER Multiple #699.17	699.17 DESCRIPTION: `This field identifies field records the therapeutic manipulations which you believe you may perform at the time of the examination. This does not record the findings of the procedure, but rather the reason for which the` `procedure is performed. Used as an indication for procedure.` TECHNICAL DESCR: `ORDER ENTRY TYPE: INDICATION`
2.2	SIGNS AND SYMPTOMS	3;0	POINTER Multiple #699.18	699.18 DESCRIPTION: `This field identifies an indication for procedure that records the specific sign or symptom for performing the procedure. The purpose of this field is to record specific correlation between common symptoms and the` `Endoscopic Findings.` TECHNICAL DESCR: `ORDER ENTRY TYPE: INDICATION`
2.3	LOCATION OF PAIN	4;0	POINTER Multiple #699.19	699.19 DESCRIPTION: `This field stores the specific location of pain if pain is entered as a sign or symptom. This field has been removed from the input templates for version 2.`
2.4	ABNORMAL BOWEL CONSISTENCY	0;3	SET	'1' FOR ALTERNATING; '2' FOR BLOODY; '3' FOR FORMED; '4' FOR HARD; '5' FOR SOFT; '6' FOR WATERY; HELP-PROMPT: `CHOOSE APPROPRIATE DESCRIPTION OF STOOL.` DESCRIPTION: `This field stores the consistency (alternating, bloody,formed,hard,soft,or watery) for a patient who has the symptom of abnormal bowel habits. This field has been removed from the input templates for version 2.`
2.45	ABNORMAL BOWEL DURATION	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-15 CHARACTERS IN LENGTH.` DESCRIPTION: `This field stores the length of time the patient has had the abnormal bowel habits. This field has been removed from the input templates for version 2.`
2.46	ABNORMAL BOWEL FREQUENCY	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-15 CHARACTERS IN LENGTH.` DESCRIPTION: `This field stores the frequency for abnormal bowel habits. This field has been removed from the input templates for version 2.`
2.5	DISEASE FOLLOWUP	5;0	POINTER Multiple #699.35	699.35 DESCRIPTION: `This field refers to the patient who is undergoing repeat procedure for the same (active) disease, such as follow-up on gastric ulcer healing. Used as an indication for procedure.` TECHNICAL DESCR: `ORDER ENTRY TYPE: INDICATION`
2.6	FOLLOWUP DEVICE OR THERAPY	6;0	POINTER Multiple #699.36	699.36 DESCRIPTION: `This field records the type of device or therapy, previously performed, which needs follow-up. Used as an indication for procedure.`
2.7	SURVEILLANCE	7;0	POINTER Multiple #699.37	699.37 DESCRIPTION: `This field identifies to the asymptomatic patient who is being re-examined because of old disease, such as prior colonic polyps. Used as an indication for procedure for GI Endoscopies.` TECHNICAL DESCR: `ORDER ENTRY TYPE: INDICATION`
2.8	PROTOCOL	31;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>79!($L(X)<1) X` LAST EDITED: `JAN 14, 1991` HELP-PROMPT: `Enter the Protocol: 1-79 characters` DESCRIPTION: `This field identifies a mandated endoscopy according to a pre-approved schedule. The name or number of the protocol should be entered here. Used as a GI Endoscopy indication for procedure.` TECHNICAL DESCR: `ORDER ENTRY TYPE: INDICATION`
2.85	EGD SIMPLE PRIMARY EXAM	31;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` LAST EDITED: `JAN 25, 1991` HELP-PROMPT: `Answer must be 1-50 characters in length.` DESCRIPTION: `This field identifies that a PDGE (Primary Diagnostic Gastrointestinal Endoscopy) was performed in place of an initial screening X-ray, for diagnostic purposes in an outpatient setting.` TECHNICAL DESCR: `ORDER ENTRY TYPE: INDICATION`
2.86	LAB OR XRAY	31;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` LAST EDITED: `JAN 25, 1991` HELP-PROMPT: `Answer must be 1-50 characters in length.` DESCRIPTION: `This free text field indicates that there is an abnormal X-ray of lab test suggesting the Endoscopy. Used as an indication for procedure for GI Endoscopies.` TECHNICAL DESCR: `ORDER ENTRY TYPE: INDICATION`
2.87	OCCULT BLOOD	32;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` LAST EDITED: `JAN 25, 1991` HELP-PROMPT: `Answer must be 1-50 characters in length.` DESCRIPTION: `This field identifies a specific indication for procedure. It indicates that Occult Blood in the stool is present. Used for GI Endoscopies.` TECHNICAL DESCR: `ORDER ENTRY TYPE: INDICATION`
2.88	SPECIMEN COLLECTION	32;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` LAST EDITED: `JAN 25, 1991` HELP-PROMPT: `Answer must be 1-50 characters in length.` DESCRIPTION: `This free text field indicates that the procedure is performed to collect tissue or body fluid to perform other tests. Used as an indication for procedure for GI Endoscopies.` TECHNICAL DESCR: `ORDER ENTRY TYPE: INDICATION`
3	INDICATION COMMENT	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>110!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-110 CHARACTERS IN LENGTH` DESCRIPTION: `This free text field is used to enhance or add to the specific indications for procedure.` TECHNICAL DESCR: `ORDER ENTRY TYPE: INDICATION`
4	INSTRUMENT	34;0	POINTER Multiple #699.05	699.05 SCREEN: `I $P(^(0),U,2)=$G(MCARCODE,U)` EXPLANATION: `CHOOSE INSTRUMENTS THAT APPLY ONLY TO GI OR PULMONARY`
5	MEDICATION USED	8;0	POINTER Multiple #699.38	699.38 DESCRIPTION: `This field identifies field records the type of medication administered for the procedure. It also records the dosage of the medication and the route of administration.`
6	ENDOSCOPIST	0;8	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: `APR 23, 1996` HELP-PROMPT: `Enter the name of the health care provider who performed the procedure.` DESCRIPTION: `This field identifies the name of the provider who performed the procedure.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"` EXPLANATION: `This screen excludes deactivated entries on the New Person file.` CROSS-REFERENCE: `699^AC` `1)= S ^MCAR(699,"AC",$E(X,1,30),DA)=""` `2)= K ^MCAR(699,"AC",$E(X,1,30),DA)` `This cross-reference allow look-up by Endoscopist.` CROSS-REFERENCE: `699^ACE^MUMPS` `1)= S MCARAPDT=$P(^MCAR(699,DA,0),U,1) S:MCARAPDT]"" ^MCAR(699,"ACE",MCARAPDT,$E(X,1,30),DA)="" K MCARPDT` `2)= S MCARAPDT=$P(^MCAR(699,DA,0),U,1) K:MCARAPDT]"" ^MCAR(699,"ACE",MCARAPDT,$E(X,1,30),DA) K MCARAPDT` `This cross-reference indexes the entire file by date/time and endoscopist.` CROSS-REFERENCE: `^^TRIGGER^699^701` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(699,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(699,6,1,3,1.4)` `1.4)= S DIH=$S($D(^MCAR(699,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=699,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(699,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(699,6,1,3,2.1) X ^DD(699,6,1,3,2.4)` `2.1)= S X=DIV S Y(1)=$S($D(^MCAR(699,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X` `2.4)= S DIH=$S($D(^MCAR(699,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=699,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= INTERNAL(#6)` `DELETE VALUE)= INTERNAL(#6)` `FIELD)= #701` `This trigger sets the primary provider file.`
7	SECOND ENDOSCOPIST	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` HELP-PROMPT: `ENTER SECOND ENDOSCOPIST 2-30 CHARACTERS.` DESCRIPTION: `This field identifies the name of a second doctor performing the procedure.`
8	WHERE PERFORMED	0;10	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `JUL 26, 1988` HELP-PROMPT: `ENTER HOSPITAL LOCATION WHERE PROCEDURE WAS PERFORMED.` DESCRIPTION: `This field identifies the hospital location where the procedure was performed.` CROSS-REFERENCE: `699^AD` `1)= S ^MCAR(699,"AD",$E(X,1,30),DA)=""` `2)= K ^MCAR(699,"AD",$E(X,1,30),DA)` `This cross-reference allow looks-up on where performed.`
9	WARD/CLINIC	0;11	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `SEP 13, 1991` DESCRIPTION: `This field identifies the in-house location of the patient.`
10	TIME STARTED	9;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4)!'(X?4N&(X<2360)&($E(X,3,4)<60)) X` LAST EDITED: `JAN 25, 1990` HELP-PROMPT: `ENTER AS 24 HOUR TIME. FOUR DIGITS EX. 0900 1430` DESCRIPTION: `This field identifies the time the procedure was begun in 24 hour time, without punctuation. (EX: 0800, 1630, etc.)` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
11	TIME COMPLETED	9;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4)!'(X?4N&(X<2360)&($E(X,3,4)<60)) X` LAST EDITED: `JAN 25, 1990` HELP-PROMPT: `ENTER AS 24 HOUR TIME. FOUR DIGITS EX. 0900 1430` DESCRIPTION: `This field identifies the time the procedure was completed in 24 hour time, without punctuation (Ex: 0800,1630, etc.)` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
12	URGENCY OF PROCEDURE	9;3	SET	'1' FOR ELECTIVE; '2' FOR URGENT; '3' FOR EMERGENCY; LAST EDITED: `AUG 15, 1988` HELP-PROMPT: `Enter Code or elective, urgent, or emergency for procedure.` DESCRIPTION: `This field identifies whether the procedure was elective, urgent, or emergency.`
13	PNEUMOPERITONEUM GAS	13;0	SET Multiple #699.39	699.39 DESCRIPTION: `This field identifies field contains the type of Pneumoperitoneum Gas used and the method of pressure control for Laparoscopy procedures.`
14	PREPARATION DIET	15;1	SET	'1' FOR NO CHANGE; '2' FOR CLEAR LIQUIDS; '3' FOR SUPPLEMENTS; '4' FOR OTHER; HELP-PROMPT: `Enter Code for type of oral intake for preparation of colon for colonoscopy.` DESCRIPTION: `This field identifies to the oral intake for preparation of the colon for a colonoscopy.`
15	DIET COMMENT	15;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-30 CHARACTERS IN LENGTH.` DESCRIPTION: `This field identifies a comment on the oral intake given for the preparation for a colonscopy.`
16	BOWEL PREPARATION	14;0	SET Multiple #699.4	699.4 DESCRIPTION: `This field identifies a multiple field which records commonly used laxative preparations given for a colonoscopy and the route by which it was given.`
17	ENEMAS	15;3	SET	'1' FOR WATER; '2' FOR PHOSPHASODA; '3' FOR OTHER; LAST EDITED: `APR 09, 1990` HELP-PROMPT: `Enter Code for type of enema given in preparation for a colonoscopy.` DESCRIPTION: `This field records the type of enemas given in preparation for a colonoscopy.`
22	COMMON BILE DUCT SIZE (mm)	15;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>50)!(X<0)!(X?.E1"."2N.N) X` HELP-PROMPT: `TYPE A NUMBER BETWEEN 0 AND 50` DESCRIPTION: `This field identifies the size in millimeters of the Common Bile Duct. Used for the ERCP Procedure.`
23	PANCREATIC DUCT SIZE (mm)	15;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9)!(X<0)!(X?.E1"."2N.N) X` HELP-PROMPT: `TYPE A NUMBER BETWEEN 0 AND 9` DESCRIPTION: `This field identifies the size in millimeters of the pancreatic duct. Used for ERCP procedures.`
24	DEPTH OF INSERTION	15;6	POINTER TO ANATOMY FILE (#697)	ANATOMY(#697) INPUT TRANSFORM: `S DIC("S")="I $D(^MCAR(697,""C"",$G(MCARGNUM,U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 22, 1988` HELP-PROMPT: `CHOOSE THE FURTHEST ANATOMY LOCATION REACHED.` DESCRIPTION: `This field indicates the extent of examination irrespective of the findings reported. This is a pointer to the Anatomy file.` SCREEN: `S DIC("S")="I $D(^MCAR(697,""C"",$G(MCARGNUM,U),+Y))"` EXPLANATION: `CHOOSE ONLY ANATOMIC LOCATIONS ASSOCIATED WITH THIS PROCEDURE`
28	RESULTS	16;0	POINTER Multiple #699.56	699.56 DESCRIPTION: `This field is used to record results of the overall procedure. This field is labeled 'Findings' for Pulmonary Endoscopies.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
29	POST-PROC INSTRUMENT CLEANSING	15;10	SET	'1' FOR WASH; '2' FOR IMMERSION; '3' FOR GAS; '4' FOR UNKNOWN; '5' FOR OTHER; HELP-PROMPT: `Enter Code for how instruments were cleaned, used for epidemiologic purposes.` DESCRIPTION: `This field describes how the instruments were cleaned following the procedure. This is used for epidemiologic purposes.`
30	COMPLICATIONS	17;0	POINTER Multiple #699.58	699.58 DESCRIPTION: `This field identifies field indicates any complications encountered during the procedure or resulting from the procedure and the result of the complication.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
31	NON-ENDOSCOPIC PROCEDURE	18;0	POINTER Multiple #699.59	699.59 DESCRIPTION: `This field stores the procedure type for a non-endoscopic GI procedure. It is accessed by entering 'NON-ENDO' at the procedure prompt in the GI Endoscopy Enter/Edit.`
31.5	CONSULTATION TYPE	15;11	POINTER TO CONSULTATION TYPE FILE (#699.82)	CONSULTATION TYPE(#699.82) HELP-PROMPT: `ENTER TYPE OF OFFICE VISIT OR CONSULTATION USING STANDARD CPT TERMINOLOGY.` DESCRIPTION: `This field indicates the type of consultation requested. Used in the Consult options.`
32	SUBJECTIVE	20;0	WORD-PROCESSING #699.66	DESCRIPTION: `This field identifies field is used to enter information in the Consult options and the Non-Endoscopic GI Procedure entry. Both these entries use the SOAP (Subjective, Objective, Assessment, Planned) format.` HELP-PROMPT: `Enter information in this word-processing field to fit the SOAP format.` DESCRIPTION: `This field identifies field is used to enter information in the Consult options and the Non-Endoscopic GI Procedure entry. Both these entries use the SOAP (Subjective, Objective, Assessment, Planned) format.`
33	OBJECTIVE	21;0	WORD-PROCESSING #699.67	DESCRIPTION: `This field identifies field is used to enter information in the Consult options and the Non-Endoscopic GI Procedure entry. Both these entries use the SOAP (Subjective, Objective, Assessment, Planned) format.` HELP-PROMPT: `Enter information in this word-processing field to fit the SOAP format.` DESCRIPTION: `This field identifies field is used to enter information in the Consult options and the Non-Endoscopic GI Procedure entry. Both these entries use the SOAP (Subjective, Objective, Assessment, Planned) format.`
34	ASSESSMENT	22;0	WORD-PROCESSING #699.68	DESCRIPTION: `This field identifies field is used to enter information in the Consult options and the Non-Endoscopic GI Procedure entry. Both these entries use the SOAP (Subjective, Objective, Assessment, Planned) format.` HELP-PROMPT: `Enter information in this word-processing field to fit the SOAP format.` DESCRIPTION: `This field identifies field is used to enter information in the Consult options and the Non-Endoscopic GI Procedure entry. Both these entries use the SOAP (Subjective, Objective, Assessment, Planned) format.`
35	PLANNED	23;0	WORD-PROCESSING #699.69	DESCRIPTION: `This field identifies field is used to enter information in the Consult options and the Non-Endoscopic GI Procedure entry. Both these entries use the SOAP (Subjective, Objective, Assessment, Planned) format.` HELP-PROMPT: `Enter information in this word processing field to fit the SOAP format.` DESCRIPTION: `This field identifies field is used to enter information in the Consult options and the Non-Endoscopic GI Procedure entry. Both these entries use the SOAP (Subjective, Objective, Assessment, Planned) format.`
35.9	DISC ID	15;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` HELP-PROMPT: `ENTER A 1-10 CHARACTER UNIQUE ID FOR THIS LASER DISC.` DESCRIPTION: `This field is not being used at the present time.`
36	VIDEO FRAME NUMBER	24;0	Multiple #699.64	699.64 DESCRIPTION: `This field is not being used at the present time.`
36.5	VIDEO/AUDIO FILE NAME	28;0	Multiple #699.71	699.71 DESCRIPTION: `This field is not being used at the present time.`
37	*RESERVED	19;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>120!($L(X)<1) X` LAST EDITED: `JUN 23, 1992` HELP-PROMPT: `ANSWER MUST BE 1-120 CHARACTERS IN LENGTH` DESCRIPTION: `This free-text field has been superseded by word-processing Field #37.1, DIAGNOSIS/DIAGNOSIS SUPPLEMENT.`
37.1	DIAGNOSIS/DIAGNOSIS SUPPLEMENT	33;0	WORD-PROCESSING #699.04	DESCRIPTION: `This field is used in addition to or instead of the diagnosis list generated from the impressions.` LAST EDITED: `JUN 23, 1992`
38	REVISED DIAGNOSIS	19;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>120!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-120 CHARACTERS IN LENGTH` DESCRIPTION: `This field is a free text field used to modify or enhance the primary diagnosis. This field is generally used when there is an unexpected Pathology report.`
39	DISPOSITION	25;0	SET Multiple #699.73	699.73 LAST EDITED: `DEC 30, 1993` DESCRIPTION: `This field identifies field stores post-encounter dispositions modified by a date and a free text reason.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
40	PRESCRIPTION GIVEN	26;0	POINTER Multiple #699.74	699.74 DESCRIPTION: `This field identifies field stores the drug(s) and dosage(s) given as a post- encounter prescription.`
41	SECONDARY DIAGNOSIS	27;0	POINTER Multiple #699.75	699.75 DESCRIPTION: `This field identifies one or more diagnoses chosen from the list of impressions minus the diagnosis chosen as the primary diagnosis. Each diagnosis also has a free text impression field linked with it.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
50	LOCATION EVALUATED	30;0	POINTER Multiple #699.01	699.01 DESCRIPTION: `This field identifies field records the anatomical location evaluated and records findings for the location evaluated.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
200	FELLOW	200;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` HELP-PROMPT: `Enter name of fellow who assisted, pointer to Provider file (#6).` DESCRIPTION: `This field identifies the name of a fellow who assisted on the procedure.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"`
201	SECOND FELLOW	29;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` HELP-PROMPT: `Enter the second fellow involved in this endoscopy.` DESCRIPTION: `This field identifies the name of a second fellow who assisted on the procedure.` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"`
202	SUMMARY	.2;1	SET	**********************REQUIRED FIELD********************** 'N' FOR NORMAL; 'A' FOR ABNORMAL; 'I' FOR INCOMPLETE EXAMINATION; LAST EDITED: `JAN 15, 1991` HELP-PROMPT: `Enter Code to describe normalcy of procedure performed.` DESCRIPTION: `This field indicates whether the Endoscopy was Normal,Abnormal or Incomplete. This required field appears on the Summary of Patient Procedures.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN` CROSS-REFERENCE: `699^AH^MUMPS` `1)= I X="N" S $P(^MCAR(699,DA,19),U)="The Endoscopic Examination was Normal"` `2)= S $P(^MCAR(699,DA,19),U)=""` `This cross-reference makes an entry into the DIAGNOSIS/DIAGNOSIS SUPPLEMENT field (#37) in the event of a normal examination.`
203	INSTRUCTIONS TO PATIENT	203;0	WORD-PROCESSING #699.0203	DESCRIPTION: `This field identifies a word processing field which indicates post-procedural instructions given to the patient.` LAST EDITED: `AUG 16, 1988` HELP-PROMPT: `Enter post-procedural instructions to give to patient.` DESCRIPTION: `This field identifies a word processing field which indicates post-proceduriall instructions given to the patient.`
204	PRIMARY DIAGNOSIS	204;1	POINTER TO MEDICAL DIAGNOSIS/ICD CODES FILE (#697.5)	MEDICAL DIAGNOSIS/ICD CODES(#697.5) LAST EDITED: `OCT 05, 1988` DESCRIPTION: `This field contains a primary diagnosis chosen by the user from the list of impressions entered in the location evaluated field. Once this diagnosis is entered it can not be changed or deleted.` TECHNICAL DESCR: `ORDER ENTRY TYPE: DIAGNOSIS` `UNEDITABLE`
204.5	PRIMARY DIAGNOSIS ANATOMY	204;2	POINTER TO ANATOMY FILE (#697)	ANATOMY(#697) LAST EDITED: `OCT 04, 1991` DESCRIPTION: `This allows the user to enter the Primary Diagnosis Anatomy. Once this is entered it can not be changed or deleted.` `UNEDITABLE`
205	PRIMARY DIAGNOSIS IMPRESSION	205;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `OCT 04, 1988` HELP-PROMPT: `ANSWER MUST BE 1-60 CHARACTERS IN LENGTH` DESCRIPTION: `This contains a free text comment regarding the primary diagnosis.`
206	COUGH	10;0	POINTER Multiple #699.0206	699.0206 DESCRIPTION: `This field stores the type of cough the patient has and the duration of the cough. Used for Pulmonary Endoscopies.` SCREEN: `S DIC("S")="I $D(^MCAR(695.5,""C"",""X"",+Y))"` EXPLANATION: `CHOOSE ONLY THOSE TYPES OF COUGH`
207	PNEUMONIA	11;0	POINTER Multiple #699.0207	699.0207 DESCRIPTION: `This field identifies field stores the location of pneumonia and the dates during which the pneumonia occurred. This is used as an indication for Pulmonary Endoscopies.` SCREEN: `S DIC("S")="I $D(^MCAR(699.83,""C"",""P"",+Y))"` EXPLANATION: `CHOOSE LOCATIONS APPLIED TO PNEUMONIAS ONLY`
208	OTHER FOLLOWUP DEVICE/THERAPY	12;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `APR 17, 1991` HELP-PROMPT: `Answer must be 1-40 characters in length.` DESCRIPTION: `This field identifies a free text field which records the type of device or therapy, previously performed, which needs therapy. This can be used instead of or in addition to the pointed to list.`
600	PROCEDURE SUMMARY	.2;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>79!($L(X)<1) X` LAST EDITED: `OCT 15, 1990` HELP-PROMPT: `Answer must be 1-79 characters in length. This statement will appear on the 'Summary of Patient Procedures'` DESCRIPTION: `This field identifies a free text summary of the Endoscopy (up to 79 characters). This required field appears on the Summary of Patient Procedures.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
700	ICD DIAGNOSIS	ICD;0	POINTER Multiple #699.03	699.03 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) LAST EDITED: `JUN 14, 1994` DESCRIPTION: `This contains the primary provider. It is triggered by another field in the file and is located here to provide a standard provider location for use in transferring data to the PCC.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the ENDOSCOPIST field of the ENDOSCOPY/CONSULT 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: `699^APCE` `1)= S ^MCAR(699,"APCE",$E(X,1,30),DA)=""` `2)= K ^MCAR(699,"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 03, 1991` HELP-PROMPT: `Enter the 'Consult Orders' internal file number.` 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: `AUG 16, 1991` HELP-PROMPT: `Enter the 'Request/Consultation' internal file number.` 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 21, 1993`
1501	COSIGNER VALIDATION CODE	ES;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JAN 21, 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 21, 1993`
1503	VERIFYING DUZ	ES;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 21, 1993`
1504	SIGNER VALIDATION CODE	ES;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JAN 21, 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 21, 1993`
1506	RELEASE CODE	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` CROSS-REFERENCE: `699^ES` `1)= S ^MCAR(699,"ES",$E(X,1,30),DA)=""` `2)= K ^MCAR(699,"ES",$E(X,1,30),DA)` `This cross-reference allows look-up by release status.`
1507	DATE OF RELEASED	ES;8	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 21, 1993`
1508	DATE OF VERIFIED	ES;9	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 21, 1993`
1509	SUPERSEDED	ES;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 21, 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 21, 1993` HELP-PROMPT: `Type a Number between 0 and 9999999999, 0 Decimal Digits`
1511	MARKED FOR DELETION	ES;12	SET	'1' FOR MARKED FOR DELETION; LAST EDITED: `JAN 21, 1993`
1512	DELETER DUZ	ES;13	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 21, 1993`
1513	SUPERSEDED DATE	ES;14	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `JAN 22, 1993` HELP-PROMPT: `Answer must be 1-40 characters in length.`
1514	RECORD CREATED	ES;15	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 02, 1993`
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`
2005	IMAGE	2005;0	POINTER Multiple #699.02005	699.02005 DESCRIPTION: `This field points to an object in the Image File.`

Name	Field # of Occurrence
^%DT	.01+1, 1502+1, 1505+1, 1507+1, 1508+1, 1514+1
^DIC	1+1, 6+1, 24+1, 200+1, 201+1
^DICR	6(XREF 3n1.4), 6(XREF 3n2.4)
Y^DIQ	ID.02+1, ID1+1
CHGDTE^MCARPROC	.01(XREF 2K)
CHGDTE1^MCARPROC	.01(XREF 2S)
CHGPAT^MCARPROC	.02(XREF 2S)
KILL^MCARPROC	.02(XREF 2K)

Name	Line Occurrences (* Changed, ! Killed)
^DD(	6(XREF 3n1.4), 6(XREF 3n2.4)
^DD(690	ID.02+1
^DD(697.2	ID1+1
^DD(699	6(XREF 3S), 6(XREF 3K)
^MCAR(690 - [#690]	ID.02+1
^MCAR(697.2 - [#697.2]	ID1+1
^MCAR(699 - [#699]	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), 1(XREF 1S), 1(XREF 1K), 6(XREF 1S), 6(XREF 1K), 6(XREF 2S), 6(XREF 2K) , 6(XREF 3S), 6(XREF 3n1.4), 6(XREF 3K), 6(XREF 3n2.1), 6(XREF 3n2.4), 8(XREF 1S), 8(XREF 1K), 202(XREF 1S), 202(XREF 1K), 900(XREF 1S) , 900(XREF 1K), 1506(XREF 1S), 1506(XREF 1K)

Name	Field # of Occurrence
^("ES"	IDX1+1
^("PROV"	6(XREF 3S), 6(XREF 3n1.4), 6(XREF 3K), 6(XREF 3n2.4)
^(0	ID.02+1, ID1+1, 6(XREF 3n2.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	ID.02+1!, ID1+1!
>> C	ID.02+1, ID1+1
>> D0	6(XREF 3S), 6(XREF 3K), 6(XREF 3n2.1)
>> DA	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), 1(XREF 1S), 1(XREF 1K), 6(XREF 1S), 6(XREF 1K), 6(XREF 2S), 6(XREF 2K) , 6(XREF 3S), 6(XREF 3K), 8(XREF 1S), 8(XREF 1K), 202(XREF 1S), 202(XREF 1K), 900(XREF 1S), 900(XREF 1K), 1506(XREF 1S), 1506(XREF 1K)
DIC	ID.02+1, ID1+1, IDX1+1, 1+1!, 6+1!, 24+1!, 200+1!, 201+1!*
DIC("S"	1+1, 1SCR+1, 6+1, 6SCR+1, 24+1, 24SCR+1, 200+1, 201+1
>> DIE	1+1, 6+1, 24+1, 200+1, 201+1
>> DIG	6(XREF 3n1.4), 6(XREF 3n2.4)
>> DIH	6(XREF 3n1.4), 6(XREF 3n2.4)
>> DIU	6(XREF 3S), 6(XREF 3K)
DIV	6(XREF 3S), 6(XREF 3n1.4), 6(XREF 3K), 6(XREF 3n2.1), 6(XREF 3n2.4)
DIV(0	6(XREF 3S), 6(XREF 3n1.4), 6(XREF 3K), 6(XREF 3n2.4)
MCARAPDT	6(XREF 2S), 6(XREF 2K)
>> MCARCDIE	.01(XREF 2S), .01(XREF 2K), .02(XREF 2S), .02(XREF 2K)
MCARPDT	6(XREF 2S)
U	ID.02+1, ID1+1, 6(XREF 2S), 6(XREF 2K), 6(XREF 3S), 6(XREF 3n1.4), 6(XREF 3K), 6(XREF 3n2.1), 6(XREF 3n2.4), 202(XREF 1S) , 202(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1K), 2.45+1!, 2.46+1! , 2.8+1!, 2.85+1!, 2.86+1!, 2.87+1!, 2.88+1!, 3+1!, 6+1!, 6(XREF 1S), 6(XREF 1K), 6(XREF 2S) , 6(XREF 2K), 6(XREF 3S), 6(XREF 3n1.4), 6(XREF 3K), 6(XREF 3n2.1), 6(XREF 3n2.4), 7+1!, 8(XREF 1S), 8(XREF 1K), 10+1! , 11+1!, 15+1!, 22+1!, 23+1!, 24+1!, 35.9+1!, 37+1!, 38+1!, 200+1!, 201+1! , 202(XREF 1S), 205+1!, 208+1!, 600+1!, 900(XREF 1S), 900(XREF 1K), 1501+1!, 1502+1!, 1504+1!, 1505+1! , 1506(XREF 1S), 1506(XREF 1K), 1507+1!, 1508+1!, 1509+1!, 1510+1!, 1513+1!, 1514+1*!, 1515+1!
Y	ID.02+1, ID1+1, .01+1, 1+1, 6+1, 6(XREF 3S), 6(XREF 3K), 24+1, 200+1, 201+1 , 1502+1, 1505+1, 1507+1, 1508+1, 1514+1
Y(1	6(XREF 3S), 6(XREF 3K), 6(XREF 3n2.1)

Customize PDF page

Package: Medicine

Global: ^MCAR(699

Information

Description

Directly Accessed By Routines, Total: 77

Accessed By FileMan Db Calls, Total: 6

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 28

Fields, Total: 88

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: