Global: ^MCAR(691.9

FileMan FileNo	FileMan Filename	Package
691.9	ATRIAL STUDY	Medicine

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

Package	Total	Routines
Medicine	1	MCARATVE

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)[24, 701]

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.` 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`

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)

>>	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)

Customize PDF page

Package: Medicine

Global: ^MCAR(691.9

Information

Description

Directly Accessed By Routines, Total: 14

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 7

Fields, Total: 31

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

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

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)