Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | 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

Directly Accessed By Routines, Total: 77

Package Total Routines
Event Capture 73 EC2P123A    EC2P12PT    EC2P152    EC2P16PT    EC2P20PT    EC2P21PT    EC2P22PT    EC2P26PT
EC2P27PT    EC2P52PT    EC2P60PT    EC2P67PT    EC2P6PST    EC2P71PT    EC2P74PT    EC2P77PT
EC2P79PT    EC2P80PT    EC2P81PT    EC2P85PT    EC2P89PT    EC2P93PT    EC2P96PT    EC2P97PT
EC2P99PT    ECBEN2A    ECBENF    ECBEP1B    ECBEP2A    ECDEAL    ECDSINAC    ECDSREF
ECDSSYN    ECDSUTIL    ECED1    ECED2    ECED3    ECEDF    ECEDU    ECHECK1
ECINCONV    ECMDDSSU    ECMDECS    ECMFDSSU    ECMFECS    ECMUTL    ECMUTL1    ECOSSUM
ECP102PT    ECP106PT    ECP111PT    ECP113PT    ECP115PT    ECPAT    ECPROV3    ECPRSUM1
ECRDSSA    ECRDSSEC    ECRDSSU    ECRDSSU2    ECRECSIC    ECRECSPC    ECRPRSN    ECRRPT1
ECSCPT1    ECSCRN    ECSUM1    ECSUM2    ECUERPC    ECUMRPC    ECUN1    ECUTL3
ECV3RPC    
DSS Extracts 3 ECXAECS    ECXFEKEY    ECXFELOC    
My HealtheVet 1 MHVUMRPC    

Accessed By FileMan Db Calls, Total: 10

Package Total Routines
Event Capture 10 EC2P152    ECDEAL    ECINCONV    ECMDDSSU    ECMDECS    ECMFDSSU    ECMFECS    ECSCRN
ECUN1    ECUTL3    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Event Capture 1 EC EVENT CODE SCREENS/PROC REASON LINK(#720.5)[.02]    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
CPT HCPCS Codes 1 CPT(#81)[52.1]    
Event Capture 1 EC NATIONAL PROCEDURE(#725)[52.1]    
Scheduling 1 HOSPITAL LOCATION(#44)[55]    

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.

External References

Name Field # of Occurrence
^%DT 1+1, 2+1
EN^DDIOL 55(HELP )
^DIC 55+1
AP^ECDSREF .01(XREF 2S)
AST^ECDSREF .01(XREF 3S)
KAST^ECDSREF .01(XREF 3K)
KILLAP^ECDSREF .01(XREF 2K)
$$CLNCK^SDUTL2 55+1, 55(HELP )

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ECJ("AD" 99(XREF 1S), 99(XREF 1K)
^ECJ("B" .01(XREF 1S), .01(XREF 1K)
^ECJ("C" 1(XREF 1S), 1(XREF 1K)
^ECJ("SY" 53(XREF 1S), 53(XREF 1K)
^ECJ("SYN" 53(XREF 2S), 53(XREF 2K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 1+1*, 2+1*
>> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 53(XREF 1S), 53(XREF 1K), 53(XREF 2S), 53(XREF 2K), 99(XREF 1S), 99(XREF 1K)
DIC 55+1!*
DIC("S" 55+1*, 55SCR+1*
>> DIE 55+1
ECYCLN 55+1*, 55(HELP )
X .01+1!, .01(XREF 1S), .01(XREF 1K), 1+1*!, 1(XREF 1S), 1(XREF 1K), 2+1*!, 53+1!, 53(XREF 1S), 53(XREF 1K)
, 53(XREF 2S), 53(XREF 2K), 54+1!, 55+1*!, 99+1!, 99(XREF 1S), 99(XREF 1K)
>> Y .01OT+1*, 1+1, 2+1, 55+1
>> Y(0 .01OT+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All