STANDARD DATA DICTIONARY #720.5 -- EC EVENT CODE SCREENS/PROC REASON LINK FILE 3/24/25 PAGE 1 STORED IN ^ECL( *** 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 pointers to the EC Event Code Screens (#720.3) file and the EC Procedure Reason (#720.4) file and is used as a "link" file between the two. DD ACCESS: @ RD ACCESS: @ WR ACCESS: @ DEL ACCESS: @ LAYGO ACCESS: @ AUDIT ACCESS: @ POINTED TO BY: PROCEDURE REASON field (#34) of the EVENT CAPTURE PATIENT File (#721) PROCEDURE REASON #2 field (#43) of the EVENT CAPTURE PATIENT File (#721) PROCEDURE REASON #3 field (#44) of the EVENT CAPTURE PATIENT File (#721) CROSS REFERENCED BY: PROCEDURE REASON(AC), EVENT CODE SCREEN(AD), PROCEDURE REASON(B) 720.5,.01 PROCEDURE REASON 0;1 POINTER TO EC PROCEDURE REASON FILE (#720.4) LAST EDITED: AUG 15, 1997 HELP-PROMPT: Enter the pointer to the EC Procedure Reason file (#720.4). DESCRIPTION: This field contains the pointer to the procedure reason associated with the event code screen. TECHNICAL DESCR: This field is populated when a procedure reason is added to an event code screen. CROSS-REFERENCE: 720.5^B 1)= S ^ECL("B",$E(X,1,30),DA)="" 2)= K ^ECL("B",$E(X,1,30),DA) CROSS-REFERENCE: 720.5^AC^MUMPS 1)= D SAC^ECDUTL 2)= D KAC^ECDUTL 3)= DO NOT DELETE This cross reference is used to sort by procedure reason and event code screen and is defined as follows: ^ECL("AC",procedure reason IEN, event code screen IEN, DA) 720.5,.02 EVENT CODE SCREEN 0;2 POINTER TO EC EVENT CODE SCREENS FILE (#720.3) LAST EDITED: JUN 25, 1997 HELP-PROMPT: Enter the pointer to the Event Code Screen file (#720.3). DESCRIPTION: This field contains the pointer to the procedure reason associated with the event code screen. TECHNICAL DESCR: This field is populated when a procedure reason is added to an event code screen. CROSS-REFERENCE: 720.5^AD^MUMPS 1)= S ^ECL("AD",+X,+$P($G(^ECL(DA,0)),"^"),DA)="" 2)= K ^ECL("AD",+X,+$P($G(^ECL(DA,0)),"^"),DA) 3)= DO NOT DELETE This cross reference is used to sort by event code screen and procedure reason and is defined as follows: ^ECL("AD",event code screen IEN,procedure reason IEN,DA) FILES POINTED TO FIELDS EC EVENT CODE SCREENS (#720.3) EVENT CODE SCREEN (#.02) EC PROCEDURE REASON (#720.4) PROCEDURE REASON (#.01) INPUT TEMPLATE(S): PRINT TEMPLATE(S): SORT TEMPLATE(S): FORM(S)/BLOCK(S):