Global: ^MCAR(692

FileMan FileNo	FileMan Filename	Package
692	VENTRICULAR STUDY	Medicine

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

Package	Total	Routines
Medicine	1	MCARATVE

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

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.` HELP-PROMPT: `Enter a free-text commentary on this procedure.` 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`

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)

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

Customize PDF page

Package: Medicine

Global: ^MCAR(692

Information

Description

Directly Accessed By Routines, Total: 13

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 7

Fields, Total: 26

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

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

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