STANDARD DATA DICTIONARY #697 -- ANATOMY FILE                                                                     3/24/25    PAGE 1
STORED IN ^MCAR(697,  (128 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                     (VERSION 2.3)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
THIS FILE HOLDS ANATOMICAL ENTRIES USED IN THE MEDICINE PACKAGE 


              DD ACCESS: @
           AUDIT ACCESS: @

POINTED TO BY: ENTRY SITE field (#4) of the ATRIAL STUDY File (#691.9) 
               ENTRY SITE field (#3) of the VENTRICULAR STUDY File (#692) 
               ANATOMIC SITE field (#2.5) of the HEMATOLOGY File (#694) 
               DEPTH OF INSERTION field (#24) of the ENDOSCOPY/CONSULT File (#699) 
               PRIMARY DIAGNOSIS ANATOMY field (#204.5) of the ENDOSCOPY/CONSULT File (#699) 
               LOCATION EVALUATED field (#.01) of the LOCATION EVALUATED sub-field (#699.01) of the ENDOSCOPY/CONSULT File (#699) 
               ANATOMY field (#2) of the SECONDARY DIAGNOSIS sub-field (#699.75) of the ENDOSCOPY/CONSULT File (#699) 
               

CROSS
REFERENCED BY: NAME(B), PROCEDURE(C), PROCEDURE NAME(D)



697,.01       NAME                   0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
              HELP-PROMPT:      Enter the Anatomical Location 
              DESCRIPTION:
                                This field contains a list of body locations for use by the various medical procedures.  

              CROSS-REFERENCE:  697^B 
                                1)= S ^MCAR(697,"B",$E(X,1,30),DA)=""
                                2)= K ^MCAR(697,"B",$E(X,1,30),DA)


697,1         *PROCEDURE             1;0 POINTER Multiple #697.01

              LAST EDITED:      JUL 30, 1992 
              DESCRIPTION:
                                This field is used as a screen to separate the anatomy list by medical procedure.  


697.01,.01      PROCEDURE              0;1 POINTER TO PROCEDURE/SUBSPECIALTY FILE (#697.2) (Multiply asked)

                LAST EDITED:      DEC 05, 1988 
                HELP-PROMPT:      Enter the specific medical procedure with which this entry is associated. 
                DESCRIPTION:
                                  This field identifies the specific medical procedure which this anatomy is associated with.  

                CROSS-REFERENCE:  697.01^B 
                                  1)= S ^MCAR(697,DA(1),1,"B",$E(X,1,30),DA)=""
                                  2)= K ^MCAR(697,DA(1),1,"B",$E(X,1,30),DA)

                CROSS-REFERENCE:  697^C 
                                  1)= S ^MCAR(697,"C",$E(X,1,30),DA(1),DA)=""
                                  2)= K ^MCAR(697,"C",$E(X,1,30),DA(1),DA)
                                  This is a whole file cross-reference that allow look-ups on procedures.  





697,1.1       PROCEDURE NAME         2;0 Multiple #697.02

              DESCRIPTION:
                                Enter name of procedure to match that in the Procedure/Subspecialty File.  


697.02,.01      PROCEDURE NAME         0;1 FREE TEXT (Multiply asked)

                INPUT TRANSFORM:  I $D(X) N DO,DIC,DIX,Y S DIC="^MCAR(697.2,",DIC(0)="QEZ" D ^DIC S:+Y'=-1 X=$P(Y,U,2) K:+Y<0 X
                LAST EDITED:      AUG 20, 1997 
                HELP-PROMPT:      Enter name of Procedure to match that in the Procedure/Subspecialty File. 
                DESCRIPTION:
                                  This is a "free-text" pointer to the Procedure/Subspecialty File (#697.2).  

                NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

                CROSS-REFERENCE:  697.02^B 
                                  1)= S ^MCAR(697,DA(1),2,"B",$E(X,1,30),DA)=""
                                  2)= K ^MCAR(697,DA(1),2,"B",$E(X,1,30),DA)

                CROSS-REFERENCE:  697^D 
                                  1)= S ^MCAR(697,"D",$E(X,1,30),DA(1),DA)=""
                                  2)= K ^MCAR(697,"D",$E(X,1,30),DA(1),DA)
                                  This cross-reference allow looks-up on procedure name.  





697,2         TOPOGRAPHY             0;2 POINTER TO TOPOGRAPHY FIELD FILE (#61)

              LAST EDITED:      MAY 24, 1996 
              HELP-PROMPT:      Enter the appropriate Laboratory Topography Field. 
              DESCRIPTION:
                                This field identifies a link to the Laboratory Topography Field file.  



      FILES POINTED TO                      FIELDS

PROCEDURE/SUBSPECIALTY (#697.2)   *PROCEDURE:PROCEDURE (#.01)

TOPOGRAPHY FIELD (#61)            TOPOGRAPHY (#2)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):