Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^MCAR(699

Package: Medicine

Global: ^MCAR(699


Information

FileMan FileNo FileMan Filename Package
699 ENDOSCOPY/CONSULT Medicine

Description

Directly Accessed By Routines, Total: 77

Package Total Routines
Medicine 50 COUGH    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    PNEUMONIA    SECONDARY DIAGNOSIS    SIGNS AND SYMPTOMS    TECHNIQUE    VIDEO FRAME NUMBER
VIDEO/AUDIO FILE NAME    ^MCAR(699    
Clinical Procedures 4 MDARP3    MDCVT1    MDPS3    MDSTATU    
Health Summary 1 GMTSMCPZ    

Accessed By FileMan Db Calls, Total: 6

Package Total Routines
Medicine 6 MCAR7E    MCARGD    MCARGE    MCARGP    MCARP1    MCPOS03    

Pointed To By FileMan Files, Total: 1

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

Pointer To FileMan Files, Total: 28

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)[24204.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)[6200201701150015031512]
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)[89]    

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.
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.
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.
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.
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.
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.
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.

External References

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)

Global Variables Directly Accessed

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)

Naked Globals

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)

Local Variables

Legend:

>> 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)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All