STANDARD DATA DICTIONARY #699 -- ENDOSCOPY/CONSULT FILE 6/27/25 PAGE 1
STORED IN ^MCAR(699, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file holds all Endoscopic procedures as well as GI Non-endoscopic procedures.
DD ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: MEDICAL PATIENT (#.02)[R], PROCEDURE (#1)[R]
"X1": W:$D(^("ES")) " ",@("$P($P($C(59)_$S($D(^DD(699,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: ENDOSCOPIST(AC), ENDOSCOPIST(ACE), WHERE PERFORMED(AD), APPOINTMENT DATE/TIME(AF), MEDICAL PATIENT(AG),
SUMMARY(AH), PCC POINTER(APCE), APPOINTMENT DATE/TIME(B), MEDICAL PATIENT(C), PROCEDURE(D), RELEASE CODE(ES)
699,.01 APPOINTMENT DATE/TIME 0;1 DATE (Required)
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.
699,.02 MEDICAL PATIENT 0;2 POINTER TO MEDICAL PATIENT FILE (#690) (Required)
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.
699,1 PROCEDURE 0;12 POINTER TO PROCEDURE/SUBSPECIALTY FILE (#697.2) (Required)
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.
699,2 INDICATION FOR PROCEDURE 1;0 POINTER Multiple #699.16 (Add New Entry without Asking)
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.
699.16,.01 INDICATION FOR PROCEDURE 0;1 POINTER TO INDICATION FILE (#694.1) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(694.1,""C"",$G(MCARCODE,U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 29, 1988
HELP-PROMPT: CHOOSE NUMBER FOR INDICATION YOU WISH TO SELECT
DESCRIPTION:
This contains a specific reason why the procedure was performed.
SCREEN: S DIC("S")="I $D(^MCAR(694.1,""C"",$G(MCARCODE,U),+Y))"
EXPLANATION: CHOOSE ENTRIES THAT APPLY ONLY TO SPECIFIC AREA OF MEDICINE
CROSS-REFERENCE: 699.16^B
1)= S ^MCAR(699,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(699,DA(1),1,"B",$E(X,1,30),DA)
699,2.1 INDICATED THERAPY 2;0 POINTER Multiple #699.17 (Add New Entry without Asking)
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
699.17,.01 INDICATED THERAPY 0;1 POINTER TO DIAG/THERAP INTERVENT FILE (#699.6) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^MCAR(699.6,+Y,0),U,2)[$S($G(MCARCODE)=""G"":1,1:2)" D ^DIC K DIC S DIC=DIE,X=+Y K
:Y<0 X
LAST EDITED: MAY 15, 1996
HELP-PROMPT: ENTER THE THERAPY WHICH YOU PROPOSE TO DO, BEFORE THE PROCEDURE IS PERFORMED. THIS MAY BE
DIFFERENT THAN THE ACTUAL THERAPY ACCOMPLISHED.
DESCRIPTION: This field identifies the specific therapeutic manipulation which you believe you may perform at
the time of the examination.
TECHNICAL DESCR:
ORDER ENTRY TYPE: INDICATION
SCREEN: S DIC("S")="I $P(^MCAR(699.6,+Y,0),U,2)[$S($G(MCARCODE)=""G"":1,1:2)"
EXPLANATION: CHOOSE ONLY FILE ENTRIES MARKED FOR INDICATED THERAPY
699,2.2 SIGNS AND SYMPTOMS 3;0 POINTER Multiple #699.18 (Add New Entry without Asking)
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
699.18,.01 SIGNS AND SYMPTOMS 0;1 POINTER TO SYMPTOM FILE (#695.5) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(695.5,""C"",$G(MCARCODE,U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 29, 1988
HELP-PROMPT: CHOOSE APPROPRIATE SIGNS OR SYMPTOMS.
DESCRIPTION:
This field identifies the specific sign or symptom used as an indication for procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: INDICATION
SCREEN: S DIC("S")="I $D(^MCAR(695.5,""C"",$G(MCARCODE,U),+Y))"
EXPLANATION: SYMPTOMS THAT APPLY ONLY TO SPECIFIC AREA OF MEDICINE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 699.18^B
1)= S ^MCAR(699,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(699,DA(1),3,"B",$E(X,1,30),DA)
699,2.3 LOCATION OF PAIN 4;0 POINTER Multiple #699.19 (Add New Entry without Asking)
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.
699.19,.01 LOCATION OF PAIN 0;1 POINTER TO LOCATION OF PAIN/PNEUMONIAS FILE (#699.83) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(699.83,""C"",""G"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 29, 1988
HELP-PROMPT: Enter location of pain, pointer to Location of Pain/Pneumonias File (#699.83).
DESCRIPTION:
This field identifies the specific location of pain.
SCREEN: S DIC("S")="I $D(^MCAR(699.83,""C"",""G"",+Y))"
EXPLANATION: CHOOSE LOCATIONS FOR GI PROCEDURES
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
699.19,1 DURATION 0;2 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 indicates the length of time the pain persists.
699.19,2 FREQUENCY 0;3 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 identifies the frequency of the pain.
699,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.
699,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.
699,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.
699,2.5 DISEASE FOLLOWUP 5;0 POINTER Multiple #699.35 (Add New Entry without Asking)
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
699.35,.01 DISEASE FOLLOWUP 0;1 POINTER TO DISEASE EVALUATION FILE (#699.84) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)=$G(MCARCODE,U)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 30, 1988
HELP-PROMPT: This refers to repeat procedure for a disease, Pointer to Disease Evaluation File (#699.84).
DESCRIPTION:
This field identifies the specific disease or evaluation used as an indication.
TECHNICAL DESCR:
ORDER ENTRY TYPE: INDICATION
SCREEN: S DIC("S")="I $P(^(0),U,2)=$G(MCARCODE,U)"
EXPLANATION: CHOOSE DISEASE EVALUATIONS THAT APPLY ONLY TO THE AREA OF MEDICINE
699,2.6 FOLLOWUP DEVICE OR THERAPY 6;0 POINTER Multiple #699.36 (Add New Entry without Asking)
DESCRIPTION: This field records the type of device or therapy, previously performed, which needs follow-up.
Used as an indication for procedure.
699.36,.01 FOLLOWUP DEVICE OR THERAPY 0;1 POINTER TO FOLLOWUP DEVICE/THERAPY FILE (#699.85) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(699.85,""D"",$G(MCARCODE,U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 15, 1996
HELP-PROMPT: Record here the type of device or therapy, previously performed, which needs followup. Pointer
to Followup Device/Therapy File (#699.85).
DESCRIPTION: This field identifies the specific type of device or therapy, previously performed, which needs
follow-up.
SCREEN: S DIC("S")="I $D(^MCAR(699.85,""D"",$G(MCARCODE,U),+Y))"
EXPLANATION: SCREENS OUT GI AND PULMONNARY ENTRIES
699,2.7 SURVEILLANCE 7;0 POINTER Multiple #699.37 (Add New Entry without Asking)
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
699.37,.01 SURVEILLANCE 0;1 POINTER TO SURVEILLANCE FILE (#699.86) (Multiply asked)
LAST EDITED: FEB 28, 1989
HELP-PROMPT: Enter Surveillance disease used as an indication for procedure. Pointer to Surveillance File
(#699.86).
DESCRIPTION:
This field identifies the specific surveillance disease used as an indication for procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: INDICATION
699,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
699,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
699,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
699,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
699,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
699,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
699,4 INSTRUMENT 34;0 POINTER Multiple #699.05
SCREEN: I $P(^(0),U,2)=$G(MCARCODE,U)
EXPLANATION: CHOOSE INSTRUMENTS THAT APPLY ONLY TO GI OR PULMONARY
699.05,.01 INSTRUMENT 0;1 POINTER TO INSTRUMENT FILE (#699.48) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)=$G(MCARCODE,U)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 27, 1993
HELP-PROMPT: Enter Endoscopic instrument used in procedure, ointer to instrument file (#699.48)
SCREEN: S DIC("S")="I $P(^(0),U,2)=$G(MCARCODE,U)"
EXPLANATION: CHOOSE INSTRUMENTS THAT APPLY ONLY TO GI OR PULMONARY
CROSS-REFERENCE: 699.05^B
1)= S ^MCAR(699,DA(1),34,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(699,DA(1),34,"B",$E(X,1,30),DA)
699,5 MEDICATION USED 8;0 POINTER Multiple #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.
699.38,.01 MEDICATION USED 0;1 POINTER TO MEDICATION FILE (#695) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(695,""C"",$G(MCARCODE,U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 15, 1996
HELP-PROMPT: ENTER ANESTHETICS, SCLEROSANTS, INJECTIONS, SPRAYS, ETC. USED DURING THE PROCEDURE. ENTER TOTAL
DOSE ONLY.
DESCRIPTION:
This field identifies the specific medication administered.
SCREEN: S DIC("S")="I $D(^MCAR(695,""C"",$G(MCARCODE,U),+Y))"
EXPLANATION: CHOOSE ONLY MEDICATIONS BELONGING TO SPECIFIC AREA OF MEDICINE
699.38,1 DRUG DOSE ROUTE 0;2 SET
'IM' FOR INTRAMUSCULAR;
'IV' FOR INTRAVENOUS;
'O' FOR ORAL;
'PV' FOR PARAVARICEAL;
'SM' FOR SUBMUCOSAL;
'SQ' FOR SUBCUTANEOUS;
'T' FOR TOPICAL;
'V' FOR INTRAVARICEAL;
HELP-PROMPT: Enter Code from list for Drug Dose Route for GI Endoscopies.
DESCRIPTION:
This field identifies a set of codes to record the route of administration for GI Endoscopies.
699.38,2 TOTAL DOSE (in mg.) 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"."3N.N) X
HELP-PROMPT: VALUES FROM 0 TO 9999.99 ACCEPTED.
DESCRIPTION:
This field identifies the total dosage in milligrams of the medication administered.
699.38,3 DRUG DOSE ROUTE-P 0;4 SET
'SQ' FOR SUBCUTANEOUS;
'IM' FOR INTRAMUSCULAR;
'IV' FOR INTRAVENOUS;
'N/P' FOR NASOPHARYNGEAL;
'LA' FOR LARYNGEAL;
'TR' FOR TRACHEAL;
LAST EDITED: DEC 20, 1988
HELP-PROMPT: Enter Code from list for Drug Dose Route for Pulmonary Endoscopies.
DESCRIPTION: This field identifies a set of codes to record the route of administration for Pulmonary
Endoscopies.
699,6 ENDOSCOPIST 0;8 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: 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 M
CARPDT
2)= S MCARAPDT=$P(^MCAR(699,DA,0),U,1) K:MCARAPDT]"" ^MCAR(699,"ACE",MCARAPDT,$E(X,1,30),DA) K MCAR
APDT
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,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(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,D
IG=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.
699,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.
699,8 WHERE PERFORMED 0;10 POINTER TO HOSPITAL LOCATION FILE (#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.
699,9 WARD/CLINIC 0;11 POINTER TO HOSPITAL LOCATION FILE (#44)
LAST EDITED: SEP 13, 1991
DESCRIPTION:
This field identifies the in-house location of the patient.
699,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
699,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
699,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.
699,13 PNEUMOPERITONEUM GAS 13;0 SET Multiple #699.39 (Add New Entry without Asking)
DESCRIPTION: This field identifies field contains the type of Pneumoperitoneum Gas used and the method of
pressure control for Laparoscopy procedures.
699.39,.01 PNEUMOPERITONEUM GAS 0;1 SET
'A' FOR AIR;
'C' FOR CO2;
'N' FOR NO2;
'O' FOR OTHER;
HELP-PROMPT: Enter Code from list for type of Pneumoperitoneum Gas.
DESCRIPTION:
This field identifies the type of Pneumoperitoneum Gas (Air,CO2,NO2, Other) used.
699.39,1 PRESSURE CONTROL 0;2 SET
'A' FOR AUTOMATIC;
'M' FOR MANUAL;
HELP-PROMPT: Enter Code to indicate if pressure was controlled manually or automatically.
DESCRIPTION:
This field identifies whether the pressure was controlled manually or automatically.
699,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.
699,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.
699,16 BOWEL PREPARATION 14;0 SET Multiple #699.4 (Add New Entry without Asking)
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.
699.4,.01 BOWEL PREPARATION 0;1 SET (Multiply asked)
'1' FOR BISCODYL;
'2' FOR CASTER OIL;
'3' FOR GOLYTELY;
'4' FOR MAGNESIUM CITRATE;
'5' FOR NEOLOID;
'6' FOR OTHER;
'7' FOR PHOSPHASODA;
LAST EDITED: APR 09, 1990
HELP-PROMPT: Enter Code of type of laxative preparation given for a colonosocpy.
DESCRIPTION:
This field indicates the type of laxative preparation given for a colonoscopy.
699.4,1 ROUTE 0;2 SET
'PO' FOR ORAL;
'PR' FOR RECTAL;
HELP-PROMPT: Enter Code of method (Oral or Rectal) by which preparation was administered.
DESCRIPTION:
This field indicates the method (Oral or Rectal) by which the preparation was administered.
699,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.
699,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.
699,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.
699,24 DEPTH OF INSERTION 15;6 POINTER TO ANATOMY FILE (#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
699,28 RESULTS 16;0 POINTER Multiple #699.56 (Add New Entry without Asking)
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
699.56,.01 RESULTS 0;1 POINTER TO RESULTS FILE (#699.81) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(699.81,""C"",$G(MCARCODE,U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 15, 1996
HELP-PROMPT: ENTER RESULTS OF THIS PROCEDURE.
DESCRIPTION:
This field identifies a result of the overall procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
SCREEN: S DIC("S")="I $D(^MCAR(699.81,""C"",$G(MCARCODE,U),+Y))"
EXPLANATION: CHOOSE RESULTS ASSOSCIATED WITH AREA OF MEDICINE
699,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.
699,30 COMPLICATIONS 17;0 POINTER Multiple #699.58 (Add New Entry without Asking)
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
699.58,.01 COMPLICATIONS 0;1 POINTER TO COMPLICATION FILE (#696.9) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(696.9,""C"",$G(MCARCODE,U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 15, 1996
HELP-PROMPT: Enter Complication associated with an Endoscopy, pointer to Complication File (#696.9).
DESCRIPTION: This field identifies any complications encountered during the procedure or as a result of the
procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
SCREEN: S DIC("S")="I $D(^MCAR(696.9,""C"",$G(MCARCODE,U),+Y))"
EXPLANATION: CHOOSE ONLY COMPLICATIONS ASSOSCIATED WITH AN ENDOSCOPY
699.58,1 COMP. RESULTS 0;2 SET
'1' FOR REQUIRED NO THERAPY;
'2' FOR REQUIRED TRANSFUSION;
'3' FOR REQUIRED MEDICAL THERAPY;
'4' FOR REQUIRED ENDOSCOPIC THERAPY;
'5' FOR REQUIRED SURGICAL THERAPY;
'6' FOR RESULTED IN DEATH;
DESCRIPTION: This field identifies the result of the complication, ranging from REQUIRED NO THERAPY to
RESULTING IN DEATH.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
699,31 NON-ENDOSCOPIC PROCEDURE 18;0 POINTER Multiple #699.59 (Add New Entry without Asking)
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.
699.59,.01 NON-ENDOSCOPIC PROCEDURE 0;1 POINTER TO NON-ENDOSCOPIC PROCEDURE FILE (#699.88) (Multiply asked)
LAST EDITED: FEB 28, 1989
HELP-PROMPT: Enter Non-endoscopic Procedure, pointer to Non-Endoscopic Procedure File (#699.88).
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.
699,31.5 CONSULTATION TYPE 15;11 POINTER TO CONSULTATION TYPE FILE (#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.
699,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.
699,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.
699,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.
699,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.
699,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.
699,36 VIDEO FRAME NUMBER 24;0 Multiple #699.64 (Add New Entry without Asking)
DESCRIPTION:
This field is not being used at the present time.
699.64,.01 VIDEO FRAME NUMBER 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99999
DESCRIPTION:
This field is not being used at the present time.
699,36.5 VIDEO/AUDIO FILE NAME 28;0 Multiple #699.71 (Add New Entry without Asking)
DESCRIPTION:
This field is not being used at the present time.
699.71,.01 VIDEO/AUDIO FILE NAME 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>12!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-12 CHARACTERS IN LENGTH
DESCRIPTION:
This field is not being used at the present time.
CROSS-REFERENCE: 699.71^B
1)= S ^MCAR(699,DA(1),28,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(699,DA(1),28,"B",$E(X,1,30),DA)
699.71,1 DATE/TIME ADDED 0;2 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
HELP-PROMPT: Add date/time to Video/Audio file.
DESCRIPTION:
This allows the user to enter the date/time the video/audio file name is added.
699.71,3 DATE/TIME MODIFIED 0;4 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
HELP-PROMPT: Modify date/time from Video/Audio file.
DESCRIPTION:
This allows the user to enter the date/time the video/audio file name is modified.
699.71,5 COMMENTS-1 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-40 CHARACTERS IN LENGTH
DESCRIPTION:
This allows the user to enter comments.
699.71,6 COMMENTS-2 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-40 CHARACTERS IN LENGTH
DESCRIPTION:
This allows the user to enter comments.
699.71,7 COMMENTS-3 0;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-40 CHARACTERS IN LENGTH
DESCRIPTION:
This allows the user to enter comments.
699.71,8 COMMENTS-4 0;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-40 CHARACTERS IN LENGTH
DESCRIPTION:
This allows the user to enter comments.
699,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.
699,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
699,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.
699,39 DISPOSITION 25;0 SET Multiple #699.73 (Add New Entry without Asking)
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
699.73,.01 DISPOSITION 0;1 SET (Multiply asked)
'1' FOR VISIT FOLLOW-UP;
'2' FOR ENDOSCOPY FOLLOW-UP;
'3' FOR TEST (LAB OR XRAY);
'4' FOR CONSULT OTHER SPECIALIST;
'5' FOR RETURN TO REFERRING MD;
'6' FOR ADMIT TO HOSPITAL;
'7' FOR DISCHARGED TO HOME;
'8' FOR DISCHARGED TO WARD;
'9' FOR OTHER;
LAST EDITED: APR 14, 1989
HELP-PROMPT: An Entry in this field automatically places this patient on Recall List
DESCRIPTION:
This field identifies the post-encounter disposition entered.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
CROSS-REFERENCE: 699.73^B
1)= S ^MCAR(699,DA(1),25,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(699,DA(1),25,"B",$E(X,1,30),DA)
699.73,1 FINAL DISPOSITION DATE 0;2 DATE (Required)
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 04, 1990
HELP-PROMPT: Enter the date for this disposition.
DESCRIPTION: This field identifies the date of the disposition. This date may be in the future as in the case
of Endoscopy Follow Up entered as the disposition.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
699.73,2 REASON 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-80 CHARACTERS IN LENGTH.
DESCRIPTION:
This field identifies the reason for the disposition given.
699,40 PRESCRIPTION GIVEN 26;0 POINTER Multiple #699.74 (Add New Entry without Asking)
DESCRIPTION: This field identifies field stores the drug(s) and dosage(s) given as a post- encounter
prescription.
699.74,.01 PRESCRIPTION GIVEN 0;1 POINTER TO DRUG FILE (#50) (Multiply asked)
LAST EDITED: AUG 16, 1988
DESCRIPTION:
This field identifies the name of the formulary drug given as a post-encounter prescription.
699.74,1 DOSAGE 0;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 the dosage of the prescribed drug.
699,41 SECONDARY DIAGNOSIS 27;0 POINTER Multiple #699.75 (Add New Entry without Asking)
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
699.75,.01 SECONDARY DIAGNOSIS 0;1 POINTER TO MEDICAL DIAGNOSIS/ICD CODES FILE (#697.5)
LAST EDITED: OCT 06, 1988
DESCRIPTION: This field identifies a diagnosis chosen from the list of impressions entered minus the diagnosis
entered as the primary diagnosis.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
CROSS-REFERENCE: 699.75^B
1)= S ^MCAR(699,DA(1),27,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(699,DA(1),27,"B",$E(X,1,30),DA)
699.75,1 SECONDARY DIAGNOSIS IMPRESSION 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-60 CHARACTERS IN LENGTH
DESCRIPTION:
This contains a free text comment regarding the chosen secondary diagnosis.
699.75,2 ANATOMY 0;3 POINTER TO ANATOMY FILE (#697)
LAST EDITED: OCT 04, 1991
HELP-PROMPT: Pointer to Anatomy File (#697).
DESCRIPTION: This allows the user to enter the anatomy of the secondary diagnosis. Once this is entered, it
may not be edited.
UNEDITABLE
699,50 LOCATION EVALUATED 30;0 POINTER Multiple #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
699.01,.01 LOCATION EVALUATED 0;1 POINTER TO ANATOMY FILE (#697) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(697,""D"",$G(MCARGNAM,U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 30, 1992
HELP-PROMPT: CHOOSE ONLY ANATOMIC LOCATIONS ASSOCIATED WITH THIS PROCEDURE.
DESCRIPTION: This field identifies field records the anatomical location evaluated and records findings for
the location evaluated.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
SCREEN: S DIC("S")="I $D(^MCAR(697,""D"",$G(MCARGNAM,U),+Y))"
EXPLANATION: Choose Anatomic Locations that apply only to the procedure
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 699.01^B
1)= S ^MCAR(699,DA(1),30,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(699,DA(1),30,"B",$E(X,1,30),DA)
699.01,2 GROSS 0;3 POINTER TO GROSS FILE (#699.55)
INPUT TRANSFORM:S DIC(0)="E",DIC("S")="I $D(^MCAR(699.55,""C"",$G(MCARGNUM,U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y
<0 X
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Enter a descriptor of the findings from anatomical location.
DESCRIPTION:
This field identifies a descriptor of the findings on the anatomical location.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
SCREEN: S DIC("S")="I $D(^MCAR(699.55,""C"",$G(MCARGNUM,U),+Y))"
EXPLANATION: CHOOSE GROSS THAT APPLIES ONLY TO PROCEDURE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
699.01,3 MODIFIER 1;0 POINTER Multiple #699.13 (Add New Entry without Asking)
DESCRIPTION:
This field identifies a multiple adjective used to modify the Gross descriptor.
SCREEN: S DIC("S")="I $D(^MCAR(699.57,""C"",$G(MCARGNUM,U),+Y))"
EXPLANATION: CHOOSE ONLY MODIFIERS APPLICABLE TO PROCEDURE
699.13,.01 MODIFIER 0;1 POINTER TO MODIFIER FILE (#699.57) (Multiply asked)
INPUT TRANSFORM:S DIC(0)="E",DIC("S")="I $D(^MCAR(699.57,""C"",$G(MCARGNUM,U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K
:Y<0 X
LAST EDITED: JAN 14, 1991
HELP-PROMPT: Enter adjective used to modify the Gross descriptor.
DESCRIPTION:
This field identifies a specific adjective used to modify the Gross descriptor.
SCREEN: S DIC("S")="I $D(^MCAR(699.57,""C"",$G(MCARGNUM,U),+Y))"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:699.13^B
1)= S ^MCAR(699,DA(2),30,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(699,DA(2),30,DA(1),1,"B",$E(X,1,30),DA)
699.01,4 MEASUREMENT 0;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>15!($L(X)<1) X
LAST EDITED: OCT 10, 1990
HELP-PROMPT: Enter Value and Unit. 1-15 Characters, e.g. 3mm,12 mm wide, 3x4 mm
DESCRIPTION:
This field identifies the size of the Gross finding (Ex: 4 cm; 4x3 cm; 4 cm high,etc.)
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
699.01,5 TECHNIQUE 2;0 POINTER Multiple #699.15 (Add New Entry without Asking)
DESCRIPTION:
This field identifies subfield indicates the technique(s) used to evaluate the anatomical location.
SCREEN: S DIC("S")="I $D(^MCAR(699.6,""C"",$G(MCARGNUM,U),+Y))"
EXPLANATION: CHOOSE ONLY TECHNIQUES THAT ARE APPLICABLE TO THE PROCEDURE
699.15,.01 TECHNIQUE 0;1 POINTER TO DIAG/THERAP INTERVENT FILE (#699.6) (Multiply asked)
INPUT TRANSFORM:S DIC(0)="E",DIC("S")="I $D(^MCAR(699.6,""E"",$G(MCARGNAM,U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y
K:Y<0 X
LAST EDITED: JUL 31, 1992
HELP-PROMPT:Enter technique used to evaluate the anatomical location.
DESCRIPTION:
This field identifies the specific technique used to evaluate the anatomical location.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
SCREEN: S DIC("S")="I $D(^MCAR(699.6,""E"",$G(MCARGNAM,U),+Y))"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:699.15^B
1)= S ^MCAR(699,DA(2),30,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(699,DA(2),30,DA(1),2,"B",$E(X,1,30),DA)
699.01,6 IMPRESSION 0;6 POINTER TO MEDICAL DIAGNOSIS/ICD CODES FILE (#697.5)
INPUT TRANSFORM:S DIC("S")="I $D(^MCAR(697.5,""A.""_$G(MCARGNAM,U),$P(^MCAR(697.5,+Y,0),U),+Y))",(D,MCDF)="A."_
$G(MCARGNAM,U) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 24, 1991
HELP-PROMPT:Enter summary of findings for the location evaluation to assist with diagnosis.
DESCRIPTION:This field identifies findings for the location evaluated. It then is placed on the list of
possible diagnoses.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
SCREEN: S DIC("S")="I $D(^MCAR(697.5,""A.""_$G(MCARGNAM,U),$P(^MCAR(697.5,+Y,0),U),+Y))",(D,MCDF)="A."_$G(M
CARGNAM,U)
EXPLANATION:CHOOSE ONLY ENTRIES APPLICABLE TO THE PROCEDURE
EXECUTABLE HELP:Q:$D(DJJ) N DO S X="?",DIC(0)="X",DIC="^MCAR(697.5,",D="A."_MCARGNAM D MIX^DIC1
CROSS-REFERENCE:699.01^AC^MUMPS
1)= Q
2)= D:$D(^MCAR(699,DA(1),27,"B",X)) EN1^MCARGD
This X-Ref will delete a secondary diagnosis if the Impression is deleted and it had been entered
as a secondary diagnosis.
699.01,10 VIDEO FRAME NUMBER 3;0 Multiple #699.02 (Add New Entry without Asking)
DESCRIPTION:
This field identifies is not being used at the present time.
699.02,.01 VIDEO FRAME NUMBER 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM:K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: OCT 10, 1990
HELP-PROMPT:Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
This field identifies is not being used at the present time.
CROSS-REFERENCE:699.02^B
1)= S ^MCAR(699,DA(2),30,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(699,DA(2),30,DA(1),3,"B",$E(X,1,30),DA)
699.01,11 STENT TYPE 4;1 POINTER TO ENDOSCOPIC DEVICE FILE (#699.7)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,2)=""ST""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JAN 11, 1991
HELP-PROMPT:Enter Type of Stent used, pointer to Endoscopic Device File (#699.7).
DESCRIPTION:This field identifies the type of stent used if INSERTION OF STENT is entered as a technique.
Used for GI Endoscopies.
SCREEN: S DIC("S")="I $P(^(0),U,2)=""ST"""
EXPLANATION:Choose Stent
699.01,12 STENT SIZE (FR) 4;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: OCT 10, 1990
HELP-PROMPT:Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:This field identifies the size of stent used if INSERTION OF STENT is entered as a technique.
Used for GI Endoscopies.
699.01,13 STENT LENGTH (mm) 4;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>6)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: OCT 10, 1990
HELP-PROMPT:Type a Number between 1 and 6, 0 Decimal Digits
DESCRIPTION:This field identifies the length of the stent used in millimeters if INSERTION OF STENT is
entered as a technique. Used for GI Endoscopies.
699.01,14 SPHINCTEROTOME USED 4;4 POINTER TO ENDOSCOPIC DEVICE FILE (#699.7)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,2)=""SP""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JAN 11, 1991
HELP-PROMPT:Enter type of Sphincterotome, pointer to Endoscopic Device File (#699.7).
DESCRIPTION:This field identifies the type of sphincterotome used if SPHINCTEROTOMY is entered as a
technique. Used for GI Endoscopies.
SCREEN: S DIC("S")="I $P(^(0),U,2)=""SP"""
EXPLANATION:Choose Sphincterotome
699.01,15 INCISION SIZE 4;5 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99.99)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: OCT 10, 1990
HELP-PROMPT:Type a Number between 0 and 99.99, 2 Decimal Digits
DESCRIPTION:This field identifies the length of the incision made if SPHINCTEROTOMY is entered as a
technique. Used for GI Endoscopies.
699.01,16 SAVARY BOUGIE DIAMETER 4;6 FREE TEXT
INPUT TRANSFORM:K:$L(X)>15!($L(X)<3) X
LAST EDITED: JAN 11, 1991
HELP-PROMPT:Answer must be 3-15 characters in length.
DESCRIPTION:This field identifies the diameter of the savary bougie used if DILATION BY SAVARY BOUGIE is
entered as a technique. Used for GI procedures.
699.01,17 HEATER PROBE: DURATION 4;7 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<3) X
LAST EDITED: JAN 11, 1991
HELP-PROMPT:Answer must be 3-20 characters in length.
DESCRIPTION:This field identifies the length of time a heater probe is used if HEATER PROBE COAGULA- TION is
entered as a technique. Used for GI procedures.
699.01,18 HEATER PROBE: POWER 4;8 FREE TEXT
INPUT TRANSFORM:K:$L(X)>15!($L(X)<3) X
LAST EDITED: JAN 11, 1991
HELP-PROMPT:Answer must be 3-15 characters in length.
DESCRIPTION:This field identifies the power of the heater probe used if HEATER PROBE COAGULATION is entered
as a technique. Used for GI procedures.
699.01,19 GASTROSTOMY TUBE USED 4;9 POINTER TO ENDOSCOPIC DEVICE FILE (#699.7)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,2)=""G""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JAN 11, 1991
HELP-PROMPT:Enter type of Gastrostomy Tube, pointer to Endoscopic Device File (#699.7).
DESCRIPTION:This field identifies the specific tube used if GASTROSTOMY TUBE INSERTED is entered as a
technique. Used for GI procedures.
SCREEN: S DIC("S")="I $P(^(0),U,2)=""G"""
EXPLANATION:Choose Gastrostomy Tube
699.01,20 JEJUNOSTOMY TUBE INSERTED 4;10 POINTER TO ENDOSCOPIC DEVICE FILE (#699.7)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,2)=""J""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JAN 11, 1991
HELP-PROMPT:Enter Jejunostomy Tube (if used), pointer to Endoscopic Device File (#699.7).
DESCRIPTION:This field identifies the specific tube used if JEJUNOSTOMY TUBE INSERTED is entered as a
technique. Used for GI procedures.
SCREEN: S DIC("S")="I $P(^(0),U,2)=""J"""
EXPLANATION:Choose Jejunostomy Tube
699,200 FELLOW 200;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
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))"
699,201 SECOND FELLOW 29;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
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))"
699,202 SUMMARY .2;1 SET (Required)
'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.
699,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.
699,204 PRIMARY DIAGNOSIS 204;1 POINTER TO MEDICAL DIAGNOSIS/ICD CODES FILE (#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
699,204.5 PRIMARY DIAGNOSIS ANATOMY 204;2 POINTER TO ANATOMY FILE (#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
699,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.
699,206 COUGH 10;0 POINTER Multiple #699.0206 (Add New Entry without Asking)
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
699.0206,.01 TYPE OF COUGH 0;1 POINTER TO SYMPTOM FILE (#695.5) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(695.5,""C"",""X"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 30, 1988
HELP-PROMPT: Enter the type of cough the patient has. This is a pointer to the Symptom File.
DESCRIPTION:
This field identifies the type of cough the patient has. Used in Pulmonary Endoscopy.
SCREEN: S DIC("S")="I $D(^MCAR(695.5,""C"",""X"",+Y))"
EXPLANATION: CHOOSE ONLY THOSE SYMPTOMS APPLIED TO A COUGH
CROSS-REFERENCE: 699.0206^B
1)= S ^MCAR(699,DA(1),10,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(699,DA(1),10,"B",$E(X,1,30),DA)
699.0206,1 DURATION 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: DEC 01, 1988
HELP-PROMPT: ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
DESCRIPTION:
This free text subfield indicates the duration of the cough.
699,207 PNEUMONIA 11;0 POINTER Multiple #699.0207 (Add New Entry without Asking)
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
699.0207,.01 LOCATION OF PNEUMONIA 0;1 POINTER TO LOCATION OF PAIN/PNEUMONIAS FILE (#699.83) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(699.83,""C"",""P"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 30, 1988
HELP-PROMPT: Enter Location of Pneumonia, this is a pointer to Location of Pain/Pneumonias File.
DESCRIPTION:
This field identifies the anatomical location of the pneumonia.
SCREEN: S DIC("S")="I $D(^MCAR(699.83,""C"",""P"",+Y))"
EXPLANATION: CHOOSE LOCATIONS ASSOCIATED WITH PNEUMONIA ONLY
CROSS-REFERENCE: 699.0207^B
1)= S ^MCAR(699,DA(1),11,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(699,DA(1),11,"B",$E(X,1,30),DA)
699.0207,1 DATES 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: NOV 30, 1988
HELP-PROMPT: This is free text . Dates of Pheumonia should be entered in the format 'STARTING DATE' - 'ENDING
DATE'
DESCRIPTION:
This field identifies a range of dates during which the pneumonia occurred and is free text.
699,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.
699,600 PROCEDURE SUMMARY .2;2 FREE TEXT (Required)
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
699,700 ICD DIAGNOSIS ICD;0 POINTER Multiple #699.03
DESCRIPTION:
This field contains the ICD Diagnosis(es) for the procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
699.03,.01 ICD DIAGNOSIS 0;1 POINTER TO ICD DIAGNOSIS FILE (#80) (Multiply asked)
LAST EDITED: MAR 10, 1993
DESCRIPTION:
This field contains an ICD Diagnosis for the procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
CROSS-REFERENCE: 699.03^B
1)= S ^MCAR(699,DA(1),"ICD","B",$E(X,1,30),DA)=""
2)= K ^MCAR(699,DA(1),"ICD","B",$E(X,1,30),DA)
699.03,.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
699,701 PRIMARY PROVIDER PROV;1 POINTER TO NEW PERSON FILE (#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
699,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: 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.
699,1000 ORIFN OR;1 POINTER TO ORDER FILE (#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.
699,1001 GMRCO OR;2 POINTER TO REQUEST/CONSULTATION FILE (#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.
699,1500 ENTERING DUZ ES;1 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JAN 21, 1993
699,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.
699,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
699,1503 VERIFYING DUZ ES;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JAN 21, 1993
699,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.
699,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
699,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.
699,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
699,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
699,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
699,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
699,1511 MARKED FOR DELETION ES;12 SET
'1' FOR MARKED FOR DELETION;
LAST EDITED: JAN 21, 1993
699,1512 DELETER DUZ ES;13 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JAN 21, 1993
699,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.
699,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
699,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
699,2005 IMAGE 2005;0 POINTER Multiple #699.02005
DESCRIPTION:
This field points to an object in the Image File.
699.02005,.01 IMAGE 0;1 POINTER TO IMAGE FILE (#2005) (Multiply asked)
LAST EDITED: NOV 01, 1990
HELP-PROMPT: Enter the 'Image' file object number.
DESCRIPTION:
This field points to an object in the Image File.
CROSS-REFERENCE: 699.02005^B
1)= S ^MCAR(699,DA(1),2005,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(699,DA(1),2005,"B",$E(X,1,30),DA)
FILES POINTED TO FIELDS
ANATOMY (#697) DEPTH OF INSERTION (#24)
PRIMARY DIAGNOSIS ANATOMY (#204.5)
LOCATION EVALUATED:LOCATION EVALUATED (#.01)
SECONDARY DIAGNOSIS:ANATOMY (#2)
COMPLICATION (#696.9) COMPLICATIONS:COMPLICATIONS (#.01)
CONSULTATION TYPE (#699.82) CONSULTATION TYPE (#31.5)
DIAG/THERAP INTERVENT (#699.6) TECHNIQUE:TECHNIQUE (#.01)
INDICATED THERAPY:INDICATED THERAPY (#.01)
DISEASE EVALUATION (#699.84) DISEASE FOLLOWUP:DISEASE FOLLOWUP (#.01)
DRUG (#50) PRESCRIPTION GIVEN:PRESCRIPTION GIVEN (#.01)
ENDOSCOPIC DEVICE (#699.7) LOCATION EVALUATED:STENT TYPE (#11)
SPHINCTEROTOME USED (#14)
GASTROSTOMY TUBE USED (#19)
JEJUNOSTOMY TUBE INSERTED (#20)
FOLLOWUP DEVICE/THERAPY (#699.85) FOLLOWUP DEVICE OR THERAPY:FOLLOWUP DEVICE OR THERAPY (#.01)
GROSS (#699.55) LOCATION EVALUATED:GROSS (#2)
HOSPITAL LOCATION (#44) WHERE PERFORMED (#8)
WARD/CLINIC (#9)
ICD DIAGNOSIS (#80) ICD DIAGNOSIS:ICD DIAGNOSIS (#.01)
IMAGE (#2005) IMAGE:IMAGE (#.01)
INDICATION (#694.1) INDICATION FOR PROCEDURE:INDICATION FOR PROCEDURE (#.01)
INSTRUMENT (#699.48) INSTRUMENT:INSTRUMENT (#.01)
LOCATION OF PAIN/PNEUMONIAS
(#699.83) PNEUMONIA:LOCATION OF PNEUMONIA (#.01)
LOCATION OF PAIN:LOCATION OF PAIN (#.01)
MEDICAL DIAGNOSIS/ICD CODES
(#697.5) PRIMARY DIAGNOSIS (#204)
LOCATION EVALUATED:IMPRESSION (#6)
SECONDARY DIAGNOSIS:SECONDARY DIAGNOSIS (#.01)
MEDICAL PATIENT (#690) MEDICAL PATIENT (#.02)
MEDICATION (#695) MEDICATION USED:MEDICATION USED (#.01)
MODIFIER (#699.57) MODIFIER:MODIFIER (#.01)
NEW PERSON (#200) ENDOSCOPIST (#6)
FELLOW (#200)
SECOND FELLOW (#201)
PRIMARY PROVIDER (#701)
ENTERING DUZ (#1500)
VERIFYING DUZ (#1503)
DELETER DUZ (#1512)
NON-ENDOSCOPIC PROCEDURE
(#699.88) NON-ENDOSCOPIC PROCEDURE:NON-ENDOSCOPIC PROCEDURE (#.01)
ORDER (#100) ORIFN (#1000)
PROCEDURE/SUBSPECIALTY (#697.2) PROCEDURE (#1)
REQUEST/CONSULTATION (#123) GMRCO (#1001)
RESULTS (#699.81) RESULTS:RESULTS (#.01)
SURVEILLANCE (#699.86) SURVEILLANCE:SURVEILLANCE (#.01)
SYMPTOM (#695.5) COUGH:TYPE OF COUGH (#.01)
SIGNS AND SYMPTOMS:SIGNS AND SYMPTOMS (#.01)
VISIT (#9000010) PCC POINTER (#900)
INPUT TEMPLATE(S):
MCARGIBRIEF AUG 20, 1992@09:26 USER #0
MCARGIBRIEFNON AUG 20, 1992@09:25 USER #0
MCARGICONSULT OCT 12, 1990@12:37 USER #0
MCARGIEDIT SEP 12, 1991@09:48 USER #0
MCARGIEDIT1 DEC 12, 1988 USER #0
MCARGIEDIT2 OCT 04, 1988 USER #0
MCARGIEDITNON JAN 14, 1992@12:57 USER #0
MCARPULMBRIEF AUG 20, 1992@09:25 USER #0
MCARPULMEDIT SEP 13, 1991@12:29 USER #0
MCBLGI MAR 25, 1993@13:22 USER #0
MCBLNONENDO MAR 09, 1993@08:00 USER #0
MCBLPULM MAR 09, 1993@08:01 USER #0
MCFLGI JUL 28, 1993@09:13 USER #0
MCFLNONENDO JUL 26, 1993@15:11 USER #0
MCFLPULM JUL 28, 1993@09:14 USER #0
PRINT TEMPLATE(S):
MCARGIBRPR MAY 13, 1996@10:42 USER #0 ^MCOBGA @
MCARGICON MAY 13, 1996@11:04 USER #0 ^MCAROGI @
MCARGINON MAY 13, 1996@10:45 USER #0 ^MCAROGN @
MCARGINONBRPR MAY 13, 1996@10:46 USER #0 ^MCOBGN @
MCARGIRCLI MAY 13, 1996@10:52 USER #0 ^MCAROGR RECALL LIST
MCAROG MAY 13, 1996@10:54 USER #0 ^MCAROG @
MCAROGA MAY 13, 1996@10:56 USER #0 ^MCAROGA @
MCAROGH MAY 13, 1996@10:58 USER #0 @
This print template prints general patient data including allergies,
and results from the endoscopic examination in question.
MCAROGM MAY 13, 1996@10:59 USER #0 ^MCAROGM @
MCAROP MAY 13, 1996@11:01 USER #0 ^MCAROP @
MCAROPE MAY 13, 1996@11:03 USER #0 ^MCAROPE @
MCAROPZ MAY 13, 1996@11:05 USER #0 @
MCARPULMBRPR MAY 13, 1996@11:06 USER #0 ^MCOBPE @
MCESPRT MAY 13, 1996@11:07 USER #0 Release Status Report
MCNONENDOPARAC JUL 26, 2002@09:35 USER #0 ^MCPARC @
SORT TEMPLATE(S):
MCARGIRCLI MAY 23, 1994@15:47 USER #0
SORT BY: PROCEDURE// (User is asked range)
WITHIN PROCEDURE, SORT BY: DISPOSITION//
DISPOSITION SUB-FIELD: FINAL DISPOSITION DATE// (User is asked range)
WITHIN FINAL DISPOSITION DATE, SORT BY: MEDICAL PATIENT// (User is asked range)
MCESSORT SEP 21, 1993@09:45 USER #0
SORT BY: APPOINTMENT DATE/TIME// (User is asked range)
FORM(S)/BLOCK(S):