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(691.9

Package: Medicine

Global: ^MCAR(691.9


Information

FileMan FileNo FileMan Filename Package
691.9 ATRIAL STUDY Medicine

Description

Directly Accessed By Routines, Total: 13

Package Total Routines
Medicine 13 EKG    ICD DIAGNOSIS    MCARATVE    MCAREPENTRY    MCAROAT    MCAROAT1    MCAROAT2    MCARP
MCBLEP    MCFLEP    MCPOS01B    RHYTHM    ^MCAR(691.9    

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)[#691.931(.01)]    RECORDING SITE(#693.5)[5]    EP INTERVENTION(#693.6)[1]    ANATOMY(#697)[4]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[#691.9001(.01)]    
Kernel 1 NEW PERSON(#200)[24701]    

Fields, Total: 31

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 specific Atrial Study.
  • CROSS-REFERENCE:  691.9^B
    1)= S ^MCAR(691.9,"B",$E(X,1,30),DA)=""
    2)= K ^MCAR(691.9,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  691.9^AC^MUMPS
    1)= S MCARGNUM=$O(^MCAR(697.2,"C","MCAR(691.8",0))
    2)= Q
    This cross-reference sets the variable 'MCARGNUM' equal to the global number of the EP global from the Medicine Procedure/Subspecialty File (#697.2).
.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
  • DESCRIPTION:  
    This field identifies the electrophysiologic record.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  691.9^C
    1)= S ^MCAR(691.9,"C",$E(X,1,30),DA)=""
    2)= K ^MCAR(691.9,"C",$E(X,1,30),DA)
1 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 can only be added through the option on the management menu.
  • DESCRIPTION:  
    This describes the intervention associated with this procedure.
2 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 documents the medication used prior to the start of this procedure.
3 EKG 7;0 DATE Multiple #691.93 691.93

  • DESCRIPTION:  
    This field identifies the EKG's associated with this procedure.
4 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 describes the catheter entry site used during this procedure.
  • SCREEN:  S DIC("S")="I $D(^MCAR(697,""D"",$G(MCARGNAM,U),+Y))"
  • EXPLANATION:  CHOOSE ONLY ENTRIES ASSOSCIATED WITH EP'S
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
5 RECORDING SITE 0;7 POINTER TO RECORDING SITE FILE (#693.5) RECORDING SITE(#693.5)

  • LAST EDITED:  SEP 09, 1991
  • DESCRIPTION:  
    This field documents the anatomical location of the catheter.
6 PACING SITE 0;8 SET
  • 'HRA' FOR HIGH RIGHT ATRIUM;
  • 'LRA' FOR LOW RIGHT ATRIUM;
  • 'MRA' FOR MID RIGHT ATRIUM;
  • 'CSD' FOR CORONARY SINUS, DISTAL;
  • 'CSP' FOR CORONARY SINUS, PROXIMAL;
  • 'ESO' FOR ESOPHAGEAL PACING;

  • LAST EDITED:  NOV 23, 1987
  • DESCRIPTION:  
    This field identifies the anatomical location of the pacing mechanism.
7 ATRIAL 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:  Enter the Atrial Threshold in milliamperes: 0-99, 1 Decimal Digit
  • DESCRIPTION:  
    This field identifies the atrial threshold in milliamperes.
8 P-A INTERVAL 0;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This field identifies the P-A interval.
9 A-H INTERVAL 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This field identifies the A-H interval.
10 H-V INTERVAL 0;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This field identifies the H-V interval.
11 DRIVE CYCLE LENGTH 1;0 Multiple #691.911 691.911

  • LAST EDITED:  SEP 09, 1991
  • DESCRIPTION:  
    This field identifies the drive cycle length.
12 MAX 1:1 AV CONDUCTION 2;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type the Number of Milliseconds between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This field identifies the maximum 1:1 AV conduction.
13 WENCKE CYCLE LENGTH 2;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This field identifies the Wencke cycle length.
14 BLOCK SITE 2;3 SET
  • 'P' FOR PROXIMAL BLOCK;
  • 'D' FOR DISTAL;

  • LAST EDITED:  NOV 23, 1987
  • DESCRIPTION:  
    This field identifies the block site.
15 TACHYCARDIA WINDOW 2;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 identifies the tachycardia window.
16 TACHYCARDIA CYCLE LENGTH 2;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This field identifies the tachycardia cycle length.
17 TACHYCARDIA MORPHOLOGY 2;6 SET
  • '1' FOR NARROW QRS;
  • '2' FOR RBBB;
  • '3' FOR LBBB;
  • '4' FOR RBBB+LAFB;
  • '5' FOR RBBB+LPFB;

  • LAST EDITED:  JUL 02, 1987
  • DESCRIPTION:  
    This field identifies the tachycardia morphology.
17.1 PR INTERVAL 6;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 02, 1987
  • HELP-PROMPT:  Enter the PR Interval in milliseconds: Whole Number 1-999
  • DESCRIPTION:  
    This field identifies the P-R interval.
17.2 RP INTERVAL 6;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 02, 1987
  • HELP-PROMPT:  Enter the RP Interval in milliseconds: Whole Number 1-999
  • DESCRIPTION:  
    This field identifies the RP interval.
17.3 RP/PR RATIO COMPUTED

  • MUMPS CODE:  X ^DD(691.9,17.3,9.3) S X=$S(Y(691.9,17.3,2):Y(691.9,17.3,3),Y(691.9,17.3,4):Y(691.9,17.3,5),Y(691.9,17.3,6):X) S X=$J(X,0,2)
    9.2 = S Y(691.9,17.3,1)=$S($D(^MCAR(691.9,D0,6)):^(6),1:"") S X=$P(Y(691.9,17.3,1),U,2)="",Y(691.9,17.3,2)=X S X="",Y(691.9,17.3,3)=X S X=$P(Y(691.9,17.3,1),U,3)
    9.3 = X ^DD(691.9,17.3,9.2) S X=X="",Y(691.9,17.3,4)=X S X="",Y(691.9,17.3,5)=X S X=1,Y(691.9,17.3,6)=X S X=$P(Y(691.9,17.3,1),U,3),X=$S($P(Y(691.9,17.3,1),U,2):X/$P(Y(691.9,17.3,1),U,2),1:"*******")
  • ALGORITHM:  $S(#17.1="":"",#17.2="":"",1:#17.2/#17.1) (ALWAYS 2 DECIMAL DIGITS)
  • DESCRIPTION:  
    This field identifies the RP/PR ratio.
18 ABERRATION 2;7 SET
  • 'RBBB' FOR RBBB;
  • 'LBBB' FOR LBBB;
  • 'R+L' FOR RBBB+LBBB;

  • DESCRIPTION:  
    This field identifies the aberration found in this study.
19 SACT 2;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 23, 1987
  • HELP-PROMPT:  Type the Number of Milliseconds between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This field identifies the SACT.
20 CSART 2;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 23, 1987
  • HELP-PROMPT:  Type the Number of Milliseconds between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This field identifies the CSART.
21 BYPASS TRACT 3;0 SET Multiple #691.921 691.921

  • DESCRIPTION:  
    This field identifies the bypass tract.
22 DISCHARGE DATE 4;0 DATE Multiple #691.922 691.922

  • DESCRIPTION:  
    This field identifies the discharge date.
23 COMMENT 5;0 WORD-PROCESSING #691.923

  • DESCRIPTION:  
    This field identifies the comment field.
24 CARDIOLOGY STAFF 6;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
  • DESCRIPTION:  
    This field identifies the cardiology staff attending this procedure.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
  • CROSS-REFERENCE:  ^^TRIGGER^691.9^701
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691.9,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(691.9,24,1,1,1.4)
    1.4)= S DIH=$S($D(^MCAR(691.9,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691.9,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(691.9,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(691.9,24,1,1,2.1) X ^DD(691.9,24,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^MCAR(691.9,D0,6)):^(6),1:"") S X=$P(Y(1),U,1),X=X
    2.4)= S DIH=$S($D(^MCAR(691.9,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691.9,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= INTERNAL(#24)
    DELETE VALUE)= INTERNAL(#24)
    FIELD)= #701
    This trigger sets the primary provider file.
700 ICD DIAGNOSIS ICD;0 POINTER Multiple #691.9001 691.9001

  • 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 ATRIAL STUDY File

External References

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( 24(XREF 1n1.4), 24(XREF 1n2.4)
^DD("DD" .5OT+1
^DD(691.9 17.3+1, 17.3OF9.3+1, 24(XREF 1S), 24(XREF 1K)
^MCAR(691.9 - [#691.9] .01(XREF 1S), .01(XREF 1K), .5(XREF 1S), .5(XREF 1K), 17.3OF9.2+1, 24(XREF 1S), 24(XREF 1n1.4), 24(XREF 1K), 24(XREF 1n2.1), 24(XREF 1n2.4)
^MCAR(697.2 - [#697.2] .01(XREF 2S)

Naked Globals

Name Field # of Occurrence
^("PROV" 24(XREF 1S), 24(XREF 1n1.4), 24(XREF 1K), 24(XREF 1n2.4)
^(6 17.3OF9.2+1, 24(XREF 1n2.1)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*
>> D0 17.3OF9.2+1, 24(XREF 1S), 24(XREF 1K), 24(XREF 1n2.1)
>> DA .01(XREF 1S), .01(XREF 1K), .5(XREF 1S), .5(XREF 1K), 24(XREF 1S), 24(XREF 1K)
DIC 4+1!*, 24+1!*, 701+1!*
DIC("S" 4+1*, 4SCR+1*, 24+1*, 701+1*
>> DIE 4+1, 24+1, 701+1
>> DIG 24(XREF 1n1.4), 24(XREF 1n2.4)
>> DIH 24(XREF 1n1.4), 24(XREF 1n2.4)
>> DIU 24(XREF 1S), 24(XREF 1K)
DIV 24(XREF 1S), 24(XREF 1n1.4), 24(XREF 1K), 24(XREF 1n2.1), 24(XREF 1n2.4)
DIV(0 24(XREF 1S), 24(XREF 1n1.4), 24(XREF 1K), 24(XREF 1n2.4)
>> MCARGNUM .01(XREF 2S)
U 17.3OF9.2+1, 17.3OF9.3+1, 24(XREF 1S), 24(XREF 1n1.4), 24(XREF 1K), 24(XREF 1n2.1), 24(XREF 1n2.4)
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .5(XREF 1S), .5(XREF 1K), 2+1!, 4+1*!, 7+1!, 8+1!, 9+1!
, 10+1!, 12+1!, 13+1!, 15+1!, 16+1!, 17.1+1!, 17.2+1!, 17.3+1*, 17.3OF9.2+1*, 17.3OF9.3+1*
, 19+1!, 20+1!, 24+1*!, 24(XREF 1S), 24(XREF 1n1.4), 24(XREF 1K), 24(XREF 1n2.1), 24(XREF 1n2.4), 701+1*!
Y .01+1, .5OT+1, 4+1, 24+1, 24(XREF 1S), 24(XREF 1K), 701+1
Y( 17.3+1, 17.3OF9.2+1*, 17.3OF9.3+1*
Y(0 .5OT+1*
Y(1 24(XREF 1S), 24(XREF 1K), 24(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