STANDARD DATA DICTIONARY #720.3 -- EC EVENT CODE SCREENS FILE                                                     3/24/25    PAGE 1
STORED IN ^ECJ(  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                             (VERSION 2.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains information that is used to screen procedures based on a unique location, DSS unit, category, and procedure.  
Information in this file should only be entered or edited through the Event Code Screen (Create) option. Access to this option is
restricted to the Event Capture Management Menu.  
 
One important note, information related to the event code screen cannot be deleted; however, it may be inactivated using the
Inactivate Event Code Screens option within the Event Capture software.  
 
This file should NOT be modified directly using VA FileMan.  This information is created and edited using the Event Capture 
Management Menu options.  



POINTED TO BY: EVENT CODE SCREEN field (#.02) of the EC EVENT CODE SCREENS/PROC REASON LINK File (#720.5) 
               

CROSS
REFERENCED BY: CHARGE CAPTURE CODE(AD), EVENT CODE(AP), EVENT CODE(AST), EVENT CODE(B), INACTIVE DATE(C), SYNONYM(SY), 
               SYNONYM(SYN)



720.3,.01     EVENT CODE             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
              OUTPUT TRANSFORM: S Y=$P(Y,";")_"  ("_$S($E($P(Y,";",2))="I":"CPT",1:"NATIONAL PROCEDURE FILE")_")"
              LAST EDITED:      APR 01, 1996 
              HELP-PROMPT:      Enter the event code screen for this entry. 
              DESCRIPTION:      This field contains the information that makes up the event code screen.  
                                 
                                This information is grouped in the following order: Location # - DSS Unit # - Category # -
                                Procedure # 

              TECHNICAL DESCR:  The event code screen is defined as: Location # - DSS Unit # - Category # - Procedure # 
                                 
                                Location is a pointer to the INSTITUTION file (#4).  
                                 
                                DSS Unit is a pointer the DSS Unit file (#724).  
                                 
                                Category is optionally used within each DSS Unit to group procedures. When utilized, category is a
                                pointer to the EVENT CAPTURE CATEGORY file (#726). Otherwise it is a zero (0).  When category is
                                not used and stored as a zero (0), it is shown with the name "None" on all display screens and
                                reports.  
                                 
                                Procedure is a variable pointer to A. CPT file (#81) or B. EC NATIONAL PROCEDURE file (#725).  

              DELETE AUTHORITY: ^
              WRITE AUTHORITY:  ^
              CROSS-REFERENCE:  720.3^B 
                                1)= S ^ECJ("B",$E(X,1,30),DA)=""
                                2)= K ^ECJ("B",$E(X,1,30),DA)

              CROSS-REFERENCE:  720.3^AP^MUMPS 
                                1)= D AP^ECDSREF
                                2)= D KILLAP^ECDSREF
                                3)= DO NOT DELETE
                                This cross reference creates a subscript for each component of the event code screen in a sequence
                                of: location, DSS unit, category, procedure, and DA. This cross-reference also populates (creates)
                                the "APP" cross reference in a sequence of: location, DSS unit, procedure, and DA. Only those event 
                                codes for the selected subscript will be displayed.  
                                 
                                Defined as: ^ECJ("AP",location,DSS unit,category, procedure,DA)="" and ^ECJ("APP",location,DSS
                                unit,category,procedure,DA)="" 


              CROSS-REFERENCE:  720.3^AST^MUMPS 
                                1)= D AST^ECDSREF
                                2)= D KAST^ECDSREF
                                3)= DO NOT DELETE
                                This cross reference is used to control the display of event codes based on the user selected
                                location. Only those codes appropriate for the selected location will be displayed.  
                                 
                                Defined as: ^ECJ("AST",location,DA)="" 



720.3,1       INACTIVE DATE          0;2 DATE

              INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
              LAST EDITED:      APR 11, 1995 
              HELP-PROMPT:      Enter the date this event code screen was inactivated. 
              DESCRIPTION:
                                This is the date that this event code screen was inactivated.  

              TECHNICAL DESCR:
                                The date this event code screen was inactivated.  

              CROSS-REFERENCE:  720.3^C 
                                1)= S ^ECJ("C",$E(X,1,30),DA)=""
                                2)= K ^ECJ("C",$E(X,1,30),DA)


720.3,2       CREATION DATE          0;3 DATE

              INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
              HELP-PROMPT:      Enter the date this event code screen was created. 
              DESCRIPTION:
                                This is the date that this event code screen was created.  

              TECHNICAL DESCR:
                                The date this event code screen was created.  


720.3,52.1    PROCEDURE              PRO;1        VARIABLE POINTER

              Procedure   
              FILE  ORDER  PREFIX    LAYGO  MESSAGE
                 81   1    A            n   CPT 
                 725  2    B            n   EC NAT PROCEDURE 
                                         
              LAST EDITED:      MAY 11, 1995 
              HELP-PROMPT:      Enter the new procedure for this screen. 
              DESCRIPTION:      This field contains the name of this procedure. Procedures can be selected from either the CPT file
                                (#81) or EC NATIONAL PROCEDURE file (#725).  

              TECHNICAL DESCR:  A variable pointer to either the A. CPT file (#81) or B. EC NATIONAL PROCEDURE file (#725). The EC
                                NATIONAL PROCEDURE file (#725) also contains the locally defined procedures.  


720.3,53      SYNONYM                PRO;2 FREE TEXT

              Synonym   
              INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<3) X
              LAST EDITED:      MAY 11, 1995 
              HELP-PROMPT:      Enter the name that is recognized locally for this event code screen. 
              DESCRIPTION:      This field contains the synonym for the procedure associated with this event code screen. This
                                synonym can be created locally, using the Procedure Synonym/Default Volume (Enter/Edit) option,
                                which will allow easy recognition of standard procedures codes. Access to this option is restricted
                                to the Event Capture Management Menu.  

              TECHNICAL DESCR:
                                Free text name that is recognized locally for this event code screen.  

              CROSS-REFERENCE:  720.3^SY^MUMPS 
                                1)= S ^ECJ("SY",DA,$E(X,1,50))=""
                                2)= K ^ECJ("SY",DA,$E(X,1,50))
                                3)= DO NOT DELETE
                                This cross reference is used in identifying the synonym.  
                                 
                                Defined as: ^ECJ("SY",DA,synonym)="" 


              CROSS-REFERENCE:  720.3^SYN^MUMPS 
                                1)= S ^ECJ("SYN",$E(X,1,50),DA)=""
                                2)= K ^ECJ("SYN",$E(X,1,50),DA)
                                3)= DO NOT DELETE
                                This cross reference is used in identifying the synonym.  
                                 
                                Defined as: ^ECJ("SYN",synonym,DA)="" 



720.3,54      VOLUME                 PRO;3 NUMBER

              Volume   
              INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
              LAST EDITED:      MAY 11, 1995 
              HELP-PROMPT:      Type a Number between 1 and 999, 0 Decimal Digits 
              DESCRIPTION:      This is the default volume associated with this event code screen.  It contains the number of
                                procedures performed or the time actually spent performing the procedures. This default volume can
                                be created using the Procedure Synonym/Default Volume (Enter/Edit) option. Access to this option is
                                restricted to the Event Capture Management Menu. 

              TECHNICAL DESCR:
                                The numeric volume locally associated with this event code screen.  


720.3,55      ASSOCIATED CLINIC      PRO;4 POINTER TO HOSPITAL LOCATION FILE (#44)

              Associated Clinic   
              INPUT TRANSFORM:  S DIC("S")="I $P(^(0),""^"",3)=""C""" D ^DIC K DIC S DIC=DIE,(X,ECYCLN)=+Y K:'+$$CLNCK^SDUTL2(+Y,0)
                                 X
              LAST EDITED:      APR 28, 2004 
              HELP-PROMPT:      Enter the clinic associated with this event code screen. 
              DESCRIPTION:
                                This is the clinic associated with this event code screen.  

              TECHNICAL DESCR:  Pointer to the HOSPITAL LOCATION file (#44).  These entries  are screened by TYPE field (2).  Only
                                entries with a TYPE of C for Clinic may be selected.  

              SCREEN:           S DIC("S")="I $P(^(0),""^"",3)=""C"""
              EXPLANATION:      Allows selection of Clinic entries only.
              EXECUTABLE HELP:  I $G(ECYCLN)>0 D:'+$$CLNCK^SDUTL2(ECYCLN,1) EN^DDIOL("     Clinic MUST be corrected before selectin
                                g.") K ECYCLN
              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER


720.3,56      PROCEDURE REASONS INDICATOR PRO;5 SET (Required)

              Ask Procedure Reason(s) for this Event Code Screen?    
                                '0' FOR NO; 
                                '1' FOR YES; 
              LAST EDITED:      AUG 15, 1997 
              HELP-PROMPT:      Will procedure reason(s) be associated with this event code screen? 
              DESCRIPTION:      If this field is answered 'YES', procedure reason(s) may be added to the event code screen.  This
                                will allow the user to select a procedure reason for a patient's procedure during Event Capture
                                data entry.  

              TECHNICAL DESCR:  One or more proecedure reasons may be associated with this event code screen.  During Event Capture
                                data entry, the user will then be allowed to choose one procedure reason based on the procedure
                                reason(s) entered for the event code screen.  


720.3,99      CHARGE CAPTURE CODE    WB;1 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>50!($L(X)<1) X
              LAST EDITED:      APR 01, 1996 
              HELP-PROMPT:      Enter the charge capture code for this event code screen. 
              DESCRIPTION:      This field is used to store the charge capture code for data collected prior to the development of
                                the Event Capture software. This code will be utilized by DSS pilot sites only.  This code is not
                                utilized in the Event Capture software.  

              TECHNICAL DESCR:  Charge capture code for this procedure.  
                                 
                                This code will be transmitted to DSS for their use only. This code is not utilized in the Event
                                Capture software. The sites using charge capture will locally provide the tools to populate this 
                                field.  

              CROSS-REFERENCE:  720.3^AD 
                                1)= S ^ECJ("AD",$E(X,1,30),DA)=""
                                2)= K ^ECJ("AD",$E(X,1,30),DA)
                                3)= DO NOT DELETE
                                This cross reference will be used by the Decision Support System (DSS) Extracts when extracting
                                data to the commercial software.  




      FILES POINTED TO                      FIELDS

CPT (#81)                         PROCEDURE (#52.1)

EC NATIONAL PROCEDURE (#725)      PROCEDURE (#52.1)

HOSPITAL LOCATION (#44)           ASSOCIATED CLINIC (#55)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):