STANDARD DATA DICTIONARY #699.48 -- INSTRUMENT FILE                                                               3/24/25    PAGE 1
STORED IN ^MCAR(699.48,  *** 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 the various instruments used in medical procedures with a screen to differentiate the area of medicine.  


              DD ACCESS: @
           AUDIT ACCESS: @

POINTED TO BY: INSTRUMENT field (#.01) of the INSTRUMENT sub-field (#699.05) of the ENDOSCOPY/CONSULT File (#699) 
               

CROSS
REFERENCED BY: NAME(AC), NAME(B), MEDICAL PACKAGE USE(C)



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

              INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
              LAST EDITED:      MAR 07, 1990 
              HELP-PROMPT:      ANSWER MUST BE 3-30 CHARACTERS IN LENGTH 
              DESCRIPTION:      This field contains instruments used in GI and Pulmonary procedures.  This list is built locally
                                through options on the management menus.  

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

              CROSS-REFERENCE:  699.48^AC^MUMPS 
                                1)= S:$G(MCARCODE)]"" $P(^MCAR(699.48,DA,0),U,2)=MCARCODE,^MCAR(699.48,"C",MCARCODE,DA)=""
                                1.4)= S DIH=$S($D(^MCAR(699.48,DIV(0),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(0)
                                =$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=699.48,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

                                2)= K:$G(MCARCODE)]"" ^MCAR(699.48,"C",MCARCODE,DA)

                                2.4)= S DIH=$S($D(^MCAR(699.48,DIV(0),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(0)
                                =$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=699.48,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

                                CREATE VALUE)= S X=MCARCODE
                                DELETE VALUE)= S X=""
                                FIELD)= MEDIC
                                This cross-reference indexes instruments by selected procedures.  



699.48,1      MEDICAL PACKAGE USE    0;2 SET

                                'G' FOR GI; 
                                'P' FOR PULMONARY; 
              LAST EDITED:      DEC 14, 1988 
              HELP-PROMPT:      Enter code to establish a screen to distinguish GI instruments from Pulmonary instruments. 
              DESCRIPTION:
                                This field is used as a screen to distinguish GI instruments from Pulmonary instruments.  

              NOTES:            TRIGGERED by the NAME field of the INSTRUMENT File 

              CROSS-REFERENCE:  699.48^C 
                                1)= S ^MCAR(699.48,"C",$E(X,1,30),DA)=""
                                2)= K ^MCAR(699.48,"C",$E(X,1,30),DA)
                                This cross-reference allow screening of Instrument.  




INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):