STANDARD DATA DICTIONARY #725 -- EC NATIONAL PROCEDURE FILE 9/29/25 PAGE 1
STORED IN ^EC(725, (4174 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains a set of nationally defined procedures for use in the Event Capture software. These procedures are necessary for
data collection in DSS that are not represented in the CPT file (#81). These procedures were defined by the Decision Support System
(DSS) Program Office or its designee.
Entries in this file are standard procedures that should not be edited or deleted. Options exist within the Event Capture
Management Menu that provide users the tools to add locally recognized procedures to this file. These local entries will be added,
by the using the Event Capture software, at internal entry number above 90,000.
This file should NOT be modified directly using VA FileMan.
POINTED TO BY: VARIABLE POINTER field (#5) of the File (#720)
ECSCREEN field (#52.1) of the File (#720.2)
PROCEDURE field (#52.1) of the EC EVENT CODE SCREENS File (#720.3)
PROCEDURE field (#8) of the EVENT CAPTURE PATIENT File (#721)
EVENT CAPTURE PROCEDURE field (#.01) of the EVENT CAPTURE PROCEDURE sub-field (#509850.615) of the A&SP CLINIC VISIT
File (#509850.6)
CROSS
REFERENCED BY: INACTIVE DATE(AC), NAME(B), SYNONYM(C), NATIONAL NUMBER(D), NATIONAL NUMBER(DL), NATIONAL NUMBER(E)
725,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45)!($L(X)>50) X I $D(X) K X D EN^DDIOL("Additions, changes, or deletions are not a
llowed. Use the Event Capture software to update this file.")
LAST EDITED: JAN 09, 1997
HELP-PROMPT: Enter the name of this procedure (3 to 50 characters).
DESCRIPTION: This field contains the name of the procedure for this entry. A national procedure name cannot be
edited or deleted. A local procedure name can be modified using the tools provided on the Event
Capture Management Menu within the Event Capture software.
TECHNICAL DESCR:
Free text name of the procedure for this entry.
DELETE TEST: 1,0)= I 1 D EN^DDIOL("Deletions are not allowed.")
DELETE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 725^B
1)= S ^EC(725,"B",$E(X,1,63),DA)=""
2)= K ^EC(725,"B",$E(X,1,63),DA)
This "B" cross reference was modified to display 63 characters instead of the standard 30
characters.
Please note that all ^DIC lookups into this file where DIC(0)["X" will not find an exact match when
the name is greater than 30 characters in length.
725,1 NATIONAL NUMBER 0;2 FREE TEXT (Required)
National Number
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?1U4AN) X I $D(X),($D(^EC(725,"E",X)))!($D(^EC
(725,"E",$$UP^XLFSTR(X)))) D EN^DDIOL("Duplicate national number is not allowed.") K X
LAST EDITED: JUN 20, 1995
HELP-PROMPT: Enter the national number for this procedure (1 uppercase alpha followed by 4 alphanumerics).
DESCRIPTION: This field contains the national number for this procedure. The national number is distributed
with the national entries.
If you add a procedure locally, you should define a unique national number for your local
procedure. The first character must be an uppercase alpha character followed by 4 alphanumeric
characters.
TECHNICAL DESCR: Free text national number composed of 1 uppercase alpha character followed by 4 alphanumeric
characters.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 725^D^MUMPS
1)= S:DA<90000 ^EC(725,"D",$E(X,1,30),DA)=""
2)= K ^EC(725,"D",$E(X,1,30),DA)
3)= DO NOT DELETE
This cross reference uses the national number order for reports. Only national procedures are set
in this cross reference.
Defined as: ^EC(725,"D",procedure,DA)=""
CROSS-REFERENCE: 725^DL^MUMPS
1)= S:DA>90000 ^EC(725,"DL",$E(X,1,30),DA)=""
2)= K ^EC(725,"DL",$E(X,1,30),DA)
3)= DO NOT DELETE
This cross reference sets local procedures into local procedure number order for reports. Local
procedures are stored as internal entry number higher than 90000.
Defined as: ^EC(725,"DL",procedure,DA)=""
CROSS-REFERENCE: 725^E
1)= S ^EC(725,"E",$E(X,1,30),DA)=""
2)= K ^EC(725,"E",$E(X,1,30),DA)
This cross reference lists all National Numbers to insure uniqueness of selection.
725,2 INACTIVE DATE 0;3 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 03, 2014
HELP-PROMPT: Enter date this procedure was inactivated.
DESCRIPTION: This field contains the inactive date for this procedure.
National procedures will be determined inactive by the Decision Support System (DSS) Program Office
and updated with subsequent releases of the Event Capture software.
Options within the Event Capture Management Menu provide users the ability to inactivate any
locally defined procedures. These local inactive procedures may be reactivated for use in the Event
Capture software. You can reactivate an inactive procedure by entering an "@" at the date prompt
using the Activate/Inactivate Local Procedures option.
TECHNICAL DESCR:
Date field that represents the inactive date for this procedure.
CROSS-REFERENCE: 725^AC^MUMPS
1)= I DA>90000 D QINACT^ECUTL3
2)= Q
3)= DO NOT DELETE
If inactivation date is set for a locally defined national procedure code (IEN greater than
90,000), identify any event code screens in the EC EVENT CODE SCREENS file (#720.3) that are
associated with the national procedure code and inactivate them.
725,3 SYNONYM 0;4 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<3) X
LAST EDITED: FEB 22, 1995
HELP-PROMPT: Enter the synonym name for this procedure (3 to 50 characters).
DESCRIPTION: This field contains the synonym for this procedure. Synonym is the locally recognized name for this
procedure.
TECHNICAL DESCR:
Free text name of this synonym.
CROSS-REFERENCE: 725^C
1)= S ^EC(725,"C",$E(X,1,30),DA)=""
2)= K ^EC(725,"C",$E(X,1,30),DA)
3)= DO NOT DELETE
This cross reference is used for look-up on synonyms.
725,4 CPT 0;5 POINTER TO CPT FILE (#81)
INPUT TRANSFORM: S DIC("S")="I $P($$CPT^ICPTCOD(+Y),""^"",7)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 28, 2003
HELP-PROMPT: Enter the CPT code equivalent for this national procedure.
DESCRIPTION:
The Current Procedural Terminology (CPT) code equivalent for this national or local procedure.
TECHNICAL DESCR:
The national or local procedure pointer to the CPT file (#81).
SCREEN: S DIC("S")="I $P($$CPT^ICPTCOD(+Y),""^"",7)"
EXPLANATION: Allows selection of active CPT codes only.
FILES POINTED TO FIELDS
CPT (#81) CPT (#4)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):