Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All

Print Page as PDF

Global: ^ECJ

Package: Event Capture

Global: ^ECJ

Information

FileMan FileNo	FileMan Filename	Package
720.3	EC EVENT CODE SCREENS	Event Capture

Description

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.

Accessed By FileMan Db Calls, Total: 10

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 3

Fields, Total: 9

Field #	Name	Loc	Type	Details
.01	EVENT CODE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** 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)=""`
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)`
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.`
52.1	PROCEDURE	PRO;1	VARIABLE POINTER	CPT(#81) EC NATIONAL PROCEDURE(#725) 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.`
53	SYNONYM	PRO;2	FREE TEXT	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)=""`
54	VOLUME	PRO;3	NUMBER	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.`
55	ASSOCIATED CLINIC	PRO;4	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) 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 selecting.") K ECYCLN` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
56	PROCEDURE REASONS INDICATOR	PRO;5	SET	**********************REQUIRED FIELD********************** '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.`
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.`

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All