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 |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^MCAR(692

Package: Medicine

Global: ^MCAR(692


Information

FileMan FileNo FileMan Filename Package
692 VENTRICULAR STUDY Medicine

Description

Directly Accessed By Routines, Total: 12

Package Total Routines
Medicine 12 MCAREPENTRY    MCAROV    ^MCAR(692    EKG    ICD DIAGNOSIS    MCARATVE    MCAROV1    MCARP
MCBLEP    MCFLEP    MCPOS01C    RHYTHM    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Medicine 1 MCARATVE    

Pointer To FileMan Files, Total: 7

Package Total FileMan Files
Medicine 5 ELECTROPHYSIOLOGY (EP)(#691.8)[.5]    ECG INTERPRETATION(#693.3)[#692.21(.01)]    RECORDING SITE(#693.5)[4]    EP INTERVENTION(#693.6)[.9]    ANATOMY(#697)[3]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[#692.03(.01)]    
Kernel 1 NEW PERSON(#200)[21701]    

Fields, Total: 26

Field # Name Loc Type Details
.01 DATE/TIME 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 21, 1992
  • DESCRIPTION:  
    This field identifies the date and time the procedure was entered into the database.
  • CROSS-REFERENCE:  692^B
    1)= S ^MCAR(692,"B",$E(X,1,30),DA)=""
    2)= K ^MCAR(692,"B",$E(X,1,30),DA)
.5 EP RECORD 0;2 POINTER TO ELECTROPHYSIOLOGY (EP) FILE (#691.8)
************************REQUIRED FIELD************************
ELECTROPHYSIOLOGY (EP)(#691.8)

  • OUTPUT TRANSFORM:  X ^DD("DD")
  • LAST EDITED:  AUG 05, 1987
  • HELP-PROMPT:  Enter the date and time of the associated Electrophysiology procedure.
  • DESCRIPTION:  
    This field identifies the EP record identifier.
    UNEDITABLE
  • CROSS-REFERENCE:  692^C
    1)= S ^MCAR(692,"C",$E(X,1,30),DA)=""
    2)= K ^MCAR(692,"C",$E(X,1,30),DA)
    This cross-reference allow the linking to the EP file.
.9 INTERVENTION 0;3 POINTER TO EP INTERVENTION FILE (#693.6) EP INTERVENTION(#693.6)

  • LAST EDITED:  MAR 07, 1990
  • HELP-PROMPT:  New entries to the EP INTERVENTION file can only be added through the management menu option.
  • DESCRIPTION:  
    This field documents intervention necessary for this procedure.
1 PREMEDICATION 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field documents the medication given before the procedure.
2 EKG 6;0 DATE Multiple #692.02 692.02

  • DESCRIPTION:  
    This field identifies the EKG which is associated with this procedure.
3 ENTRY SITE 0;6 POINTER TO ANATOMY FILE (#697) ANATOMY(#697)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^MCAR(697,""D"",$G(MCARGNAM,U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 30, 1992
  • HELP-PROMPT:  CHOOSE ONLY ENTRIES ASSOCIATED WITH EP'S
  • DESCRIPTION:  
    This field identifies the anatomical location of the catheter entry.
  • SCREEN:  S DIC("S")="I $D(^MCAR(697,""D"",$G(MCARGNAM,U),+Y))"
  • EXPLANATION:  CHOOSE ONLY ENTRY SITES APPLICABLE TO EP'S
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4 RECORDING SITE 0;7 POINTER TO RECORDING SITE FILE (#693.5) RECORDING SITE(#693.5)

  • LAST EDITED:  SEP 09, 1991
  • HELP-PROMPT:  Enter the anatomical location of the recording site.
  • DESCRIPTION:  
    This field identifies the anatomical location of the recording site.
5 PACING SITE 0;8 SET
  • 'RVA' FOR RT VENTRICULAR APEX;
  • 'RVOT' FOR RT VENTRICULAR OUTFLOW TRACT;
  • 'LV' FOR LEFT VENTRICLE;

  • LAST EDITED:  JUN 23, 1987
  • HELP-PROMPT:  Enter the anatomical location of the pacing mechanism.
  • DESCRIPTION:  
    This field identifies the anatomical location of the pacing site.
6 VENTRICULAR THRESHOLD (mA) 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  SEP 09, 1991
  • HELP-PROMPT:  Type a Number between 0 and 99, 1 Decimal Digit
  • DESCRIPTION:  
    This field identifies the ventricular threshold in milliamperes.
7 DRIVE CYCLE LENGTH 1;0 Multiple #692.07 692.07

  • LAST EDITED:  SEP 09, 1991
  • DESCRIPTION:  
    This field identifies the drive cycle length.
8 BURST PACING (#REP. RESPONSES) 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<1) X
  • LAST EDITED:  SEP 09, 1991
  • HELP-PROMPT:  ANSWER MUST BE 1-9 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field identifies the burst pacing (#rep. responses).
9 SHORTEST BURST CL 2;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 09, 1991
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This field identifies the shortest burst CL.
10 V.T.? 2;3 SET
  • 'Y' FOR SUS. V-T INDUCED;
  • 'N' FOR NO V-T INDUCED;
  • 'N-S' FOR NON-SUS. V.T. INDUCED;

  • LAST EDITED:  OCT 07, 1987
  • HELP-PROMPT:  Indicate whether and how ventricular tachycardia was induced.
  • DESCRIPTION:  
    This documents the occurrance of ventricular tachycardia.
11 INITIATION SEQUENCE OF VT 2;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-50 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This defines the initiation of VT.
12 DURATION OF VT/VF 2;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Enter the duration of VT/VF in seconds: Whole Number 0-9999
  • DESCRIPTION:  
    This field identifies the duration of VT/VF.
13 V-T AXIS 2;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field identifies the V-T axis.
14 V-T CYCLE LENGTH 2;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This field identifies the V-T cycle length.
15 V-T MORPHOLOGY 2;8 SET
  • 'R' FOR RBBB;
  • 'L' FOR LBBB;
  • 'N' FOR NON DESC.;
  • 'V' FOR VARIABLE;

  • LAST EDITED:  SEP 09, 1991
  • HELP-PROMPT:  Enter a code describing the nature of the patient's ventricular tachycardia.
  • DESCRIPTION:  
    This field identifies the V-T morphology.
16 TERM. V-T 2;9 SET
  • 'C' FOR EXTERNAL CARDIOVERSION;
  • 'P' FOR PACED OUT;
  • 'S' FOR SELF TERMINATION;
  • 'C+P' FOR CARDIOVERSION+PACE OUT;
  • 'C+S' FOR CARDIOVERSION+SELF TERM;
  • 'P+S' FOR PACE OUT+SELF TERM;
  • 'IC' FOR INTERNAL CARDIOVERSION;

  • HELP-PROMPT:  Enter a code describing how the ventricular tachycardia was terminated.
  • DESCRIPTION:  
    This field identifies the term V-T.
17 PACE OUT CYCLE LENGTH OF V-T 2;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 09, 1991
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This field identifies the pace out cycle length of V-T.
18 CARDIOVERSION (J) 2;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  SEP 09, 1991
  • HELP-PROMPT:  ANSWER MUST BE 1-60 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This documents whether cardioversion was necessary.
19 DISCHARGE DATE 4;0 DATE Multiple #692.019 692.019

  • DESCRIPTION:  
    This field identifies the discharge date.
20 COMMENT 3;0 WORD-PROCESSING #692.01

  • DESCRIPTION:  
    This field identifies the comment field.
21 CARDIOLOGY STAFF 5;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 23, 1996
  • HELP-PROMPT:  Enter the name of the cardiology staff member attending this procedure.
  • DESCRIPTION:  
    This field identifies the cardiology staff assigned to this case.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
  • CROSS-REFERENCE:  ^^TRIGGER^692^701
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(692,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(692,21,1,1,1.4)
    1.4)= S DIH=$S($D(^MCAR(692,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=692,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(692,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(692,21,1,1,2.1) X ^DD(692,21,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^MCAR(692,D0,5)):^(5),1:"") S X=$P(Y(1),U,1),X=X
    2.4)= S DIH=$S($D(^MCAR(692,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=692,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= INTERNAL(#21)
    DELETE VALUE)= INTERNAL(#21)
    FIELD)= #701
    This trigger sets the primary provider file.
700 ICD DIAGNOSIS ICD;0 POINTER Multiple #692.03 692.03

  • DESCRIPTION:  
    This field contains the ICD Diagnosis(es) for the procedure.
701 PRIMARY PROVIDER PROV;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 25, 1994
  • DESCRIPTION:  
    This contains the primary provider.  It is triggered by another field in the file and is located here to provider a standard provider location for use in transferring data to the PCC.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the CARDIOLOGY STAFF field of the VENTRICULAR STUDY File

External References

Name Field # of Occurrence
^%DT .01+1
^DIC 3+1, 21+1, 701+1
^DICR 21(XREF 1n1.4), 21(XREF 1n2.4)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( 21(XREF 1n1.4), 21(XREF 1n2.4)
^DD("DD" .5OT+1
^DD(692 21(XREF 1S), 21(XREF 1K)
^MCAR(692 - [#692] .01(XREF 1S), .01(XREF 1K), .5(XREF 1S), .5(XREF 1K), 21(XREF 1S), 21(XREF 1n1.4), 21(XREF 1K), 21(XREF 1n2.1), 21(XREF 1n2.4)

Naked Globals

Name Field # of Occurrence
^("PROV" 21(XREF 1S), 21(XREF 1n1.4), 21(XREF 1K), 21(XREF 1n2.4)
^(5 21(XREF 1n2.1)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*
>> D0 21(XREF 1S), 21(XREF 1K), 21(XREF 1n2.1)
>> DA .01(XREF 1S), .01(XREF 1K), .5(XREF 1S), .5(XREF 1K), 21(XREF 1S), 21(XREF 1K)
DIC 3+1!*, 21+1!*, 701+1!*
DIC("S" 3+1*, 3SCR+1*, 21+1*, 701+1*
>> DIE 3+1, 21+1, 701+1
>> DIG 21(XREF 1n1.4), 21(XREF 1n2.4)
>> DIH 21(XREF 1n1.4), 21(XREF 1n2.4)
>> DIU 21(XREF 1S), 21(XREF 1K)
DIV 21(XREF 1S), 21(XREF 1n1.4), 21(XREF 1K), 21(XREF 1n2.1), 21(XREF 1n2.4)
DIV(0 21(XREF 1S), 21(XREF 1n1.4), 21(XREF 1K), 21(XREF 1n2.4)
U 21(XREF 1S), 21(XREF 1n1.4), 21(XREF 1K), 21(XREF 1n2.1), 21(XREF 1n2.4)
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .5(XREF 1S), .5(XREF 1K), 1+1!, 3+1*!, 6+1!, 8+1!, 9+1!
, 11+1!, 12+1!, 13+1!, 14+1!, 17+1!, 18+1!, 21+1*!, 21(XREF 1S), 21(XREF 1n1.4), 21(XREF 1K)
21(XREF 1n2.1), 21(XREF 1n2.4), 701+1*!
Y .01+1, .5OT+1, 3+1, 21+1, 21(XREF 1S), 21(XREF 1K), 701+1
Y(0 .5OT+1*
Y(1 21(XREF 1S), 21(XREF 1K), 21(XREF 1n2.1)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All