STANDARD DATA DICTIONARY #691.9 -- ATRIAL STUDY FILE 3/24/25 PAGE 1
STORED IN ^MCAR(691.9, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Stores data for Atrial studies done for a particular EP procedure. Data is entered into this file through EP options.
DD ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: DATE/TIME(AC), DATE/TIME(B), EP RECORD(C)
691.9,.01 DATE/TIME 0;1 DATE (Required)
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).
691.9,.5 EP RECORD 0;2 POINTER TO ELECTROPHYSIOLOGY (EP) FILE (#691.8) (Required)
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)
691.9,1 INTERVENTION 0;3 POINTER TO EP INTERVENTION FILE (#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.
691.9,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.
691.9,3 EKG 7;0 DATE Multiple #691.93 (Add New Entry without Asking)
DESCRIPTION:
This field identifies the EKG's associated with this procedure.
691.93,.01 DATE/TIME OF EKG 0;1 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 31, 1987
HELP-PROMPT: This field identies the EKG's associated with this procedure.
DESCRIPTION:
This field identies the EKG's associated with this procedure.
691.93,1 RHYTHM 1;0 POINTER Multiple #691.931
DESCRIPTION:
This allows the user to enter the regular underlying heart rhythm of the patient.
SCREEN: S DIC("S")="I $P(^(0),U,3)=""R"""
EXPLANATION: Rhthym Interpretation codes
691.931,.01 RHYTHM 0;1 POINTER TO ECG INTERPRETATION FILE (#693.3) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)=""R""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 03, 1987
DESCRIPTION:
This allows the user to enter the regular underlying heart rhythm of the patient.
CROSS-REFERENCE: 691.931^B
1)= S ^MCAR(691.9,DA(2),7,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.9,DA(2),7,DA(1),1,"B",$E(X,1,30),DA)
691.93,2 ATRIAL CYCLE LENGTH 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>5000)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: AUG 03, 1987
HELP-PROMPT: Type the Number of milliseconds between 0 and 5000, 0 Decimal Digits
DESCRIPTION:
This allows the user to enter the atrial cycle length.
691.93,3 VENTRICULAR CYCLE LENGTH 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>5000)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: OCT 08, 1987
HELP-PROMPT: Type the Number in milliseconds between 0 and 5000, 0 Decimal Digits
DESCRIPTION:
This allows the user to enter the ventricular cycle length.
691.93,4 QRS DURATION 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>400)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: AUG 03, 1987
HELP-PROMPT: Type a Number between 0 and 400, 0 Decimal Digits
DESCRIPTION:
This allows the user to enter the duration of the QRS wave.
691.93,5 QRS AXIS 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>180)!(X<-180)!(X?.E1"."1N.N) X
LAST EDITED: AUG 03, 1987
HELP-PROMPT: Type a Number between -180 and 180, 0 Decimal Digits
DESCRIPTION:
This allows the user to enter the QRS axis.
691.93,6 P-R DURATION 0;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUL 31, 1987
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
This allows the user to enter the P-R interval duration.
691.93,7 QT 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: AUG 03, 1987
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
This allows the user to enter the QT axis.
691.93,8 QTC ; COMPUTED
MUMPS CODE: X ^DD(691.93,8,9.2) D SQR^DIXC S X=$S(X'>0:"",1:Y) S Y=X,X=Y(691.93,8,2),X=X S X=X,X=$S(Y:X/Y,1:"**
*****")*1000 S X=$J(X,0,0)
9.2 = S Y(691.93,8,1)=$S($D(^MCAR(691.9,D0,7,D1,0)):^(0),1:"") S X=$P(Y(691.93,8,1),U,8)/1000,Y(691
.93,8,2)=X,Y(691.93,8,3)=X S X=$P(Y(691.93,8,1),U,4)/1000
ALGORITHM: ((QT/1000)/SQUAREROOT((VENTRICULAR CYCLE LENGTH)/1000))*1000 (ALWAYS 0 DECIMAL DIGITS)
LAST EDITED: OCT 15, 1987
DESCRIPTION:
This field is computed from the QT information.
691.93,9 INTERPRETATION 0;10 FREE TEXT
INPUT TRANSFORM:K:$L(X)>100!($L(X)<1) X
LAST EDITED: NOV 19, 1987
HELP-PROMPT: ANSWER MUST BE 1-100 CHARACTERS IN LENGTH
DESCRIPTION:
This allows the user to enter information from tests.
691.9,4 ENTRY SITE 0;6 POINTER TO ANATOMY FILE (#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
691.9,5 RECORDING SITE 0;7 POINTER TO RECORDING SITE FILE (#693.5)
LAST EDITED: SEP 09, 1991
DESCRIPTION:
This field documents the anatomical location of the catheter.
691.9,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.
691.9,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.
691.9,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.
691.9,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.
691.9,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.
691.9,11 DRIVE CYCLE LENGTH 1;0 Multiple #691.911 (Add New Entry without Asking)
LAST EDITED: SEP 09, 1991
DESCRIPTION:
This field identifies the drive cycle length.
691.911,.01 DRIVE CYCLE LENGTH 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: SEP 09, 1991
HELP-PROMPT: Enter the Drive Cycle Length in milliseconds: Whole Number between 1 and 9999
DESCRIPTION:
This field identifies the drive cycle length.
691.911,1 AERP 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: Atrial Effective Refractory Period: Whole Number 0-999
DESCRIPTION:
This allows the user to enter the Atrial Effective Refractory Period.
691.911,2 AFRP 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: Atrial Functional Refractory Period: Whole Number 0-999
DESCRIPTION:
This allows the user to enter the Atrial Functional Refractory Period.
691.911,3 ARRP 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: Atrial Relative Refractory Period: Whole Number 0-999
DESCRIPTION:
This allows the user to enter the Atrial Relative Refractory Period.
691.911,4 AVERP 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: AV Nodal Effective Refractory Period: Whole Number 0-999
DESCRIPTION:
This allows the user to enter the AV Nodal Effective Refractory Period.
691.911,5 AVFRP 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: AV Nodal Functional Refractory Period: Whole Number 0-999
DESCRIPTION:
This allows the user to enter the AV Nodal Functional Refractory Period.
691.911,6 AVRRP 0;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: AV Nodal Relative Refractory Period: Whole Number 0-999
DESCRIPTION:
This allows the user to enter the AV Nodal Relative Refractory Period.
691.911,7 HPERP 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: His Purkinje Effective Refractory Period: Whole Number 0-999
DESCRIPTION:
This allows the user to enter the His Purkinje Effective Refractory Period.
691.911,8 HPFRP 0;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: His Purkinje Functional Refractory Period: Whole Number 0-999
DESCRIPTION:
This allows the user to enter the His Purkinje Functional Refractory Period.
691.911,9 HPRRP 0;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: His Purkinje Relative Refractory Period: Whole Number 0-999
DESCRIPTION:
This allows the user to enter the His Purkinje Relative Refractory Period.
691.9,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.
691.9,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.
691.9,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.
691.9,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.
691.9,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.
691.9,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.
691.9,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.
691.9,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.
691.9,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.
691.9,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.
691.9,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.
691.9,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.
691.9,21 BYPASS TRACT 3;0 SET Multiple #691.921 (Add New Entry without Asking)
DESCRIPTION:
This field identifies the bypass tract.
691.921,.01 BYPASS TRACT 0;1 SET (Multiply asked)
'AV' FOR ATRIO-VENTRICULAR CONNECTION;
'AH' FOR ATRIO-HISIAN TRACT;
'AF' FOR ATRIO-FASCICULAR TRACT;
'FV' FOR FASCICULO-VENTRICULAR TRACT;
'NV' FOR NODO-VENTRICULAR TRACT;
'NF' FOR NODO-FASCICULAR TRACT;
LAST EDITED: OCT 07, 1987
DESCRIPTION:
This field identifies the bypass tract.
691.921,1 CONDUCTION 0;2 SET
'A' FOR ANTEGRADE;
'R' FOR RETROGRADE;
'BI' FOR BIDIRECTIONAL;
LAST EDITED: OCT 07, 1987
DESCRIPTION:
This allows the user to describe the bypass tract conduction.
691.921,2 ARRHYTHMIA 1;0 SET Multiple #691.9212
DESCRIPTION:
This allows the user to further describe the type of arrhythmia.
691.9212,.01 ARRHYTHMIA 0;1 SET (Multiply asked)
'AF' FOR ATRIAL FLUTTER;
'AFIB' FOR ATRIAL FIB;
'SVT' FOR SVT;
'OTHER' FOR OTHER;
DESCRIPTION:
This allows the user to further describe the type of arrhythmia.
691.921,3 SHORTEST PRE-EXCITED R-R A FIB 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 allows the user to enter the shortest pre-excited R to R (atrial fibrillation) interval,
measured in milliseconds.
691.921,4 SHORTEST R-R POST ISUPREL 2;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: Type the Number of Milliseconds between 0 and 999, 0 Decimal Digits
DESCRIPTION:
This allows the user to enter the shortest pre-excited post isuprel, measured in milliseconds.
691.921,5 LOCATION OF TRACT 2;3 SET
'1' FOR LEFT FREE WALL;
'2' FOR POSTEROSEPTAL;
'3' FOR ANTEROSEPTAL;
'4' FOR RIGHT FREE WALL;
'5' FOR LEFT POST PARASEPTAL;
'6' FOR RIGHT POST PARASEPTAL;
'7' FOR LEFT ANT PARASEPTAL;
'8' FOR RIGHT ANT PARASEPTAL;
'9' FOR MAHAIM;
LAST EDITED: JUL 02, 1987
DESCRIPTION:
This allows the user to describe the location of tract.
691.921,6 V-HRA TIME 2;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: Please enter conduction time from ventricle to high right atrium: Whole Number 1 to 999
(milliseconds)
DESCRIPTION:
This allows the user to enter the conduction time from ventricle to high right atrial.
691.921,7 ANTEGRADE ERP, BYPASS TRACT 2;5 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 allows the user to enter the effective refractory period, measured in milliseconds. This
is the longest coupling interval which fails to conduct through the bypass tract, from A1 to
A2.
691.921,8 ANTEGRADE ERP, BYPASS ISUPREL 2;6 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 allows the user to enter the effective refractory period, measured in milliseconds. This
is the longest coupling interval which fails to conduct through the bypass isuprel, form A1 to
A2.
691.921,9 RETROGRADE ERP, BYPASS TRACT 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 allows the user to enter the longest coupling interval which fails to conduct through the
bypass tract.
691.921,10 RETROGRADE ERP, BYPASS ISUPREL 2;8 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 allows the user to enter the longest coupling interval which fails to conduct through the
bypass isuprel.
691.9,22 DISCHARGE DATE 4;0 DATE Multiple #691.922 (Add New Entry without Asking)
DESCRIPTION:
This field identifies the discharge date.
691.922,.01 DISCHARGE DATE 0;1 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
HELP-PROMPT: This field identifies the discharge date.
DESCRIPTION:
This field identifies the discharge date.
691.922,1 MEDICATION ON DISCHARGE 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-40 CHARACTERS IN LENGTH
691.9,23 COMMENT 5;0 WORD-PROCESSING #691.923
DESCRIPTION:
This field identifies the comment field.
DESCRIPTION:
This field identifies the comment field.
691.9,24 CARDIOLOGY STAFF 6;1 POINTER TO NEW PERSON FILE (#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.
691.9,700 ICD DIAGNOSIS ICD;0 POINTER Multiple #691.9001
DESCRIPTION:
This field contains the ICD Diagnosis(es) for the procedure.
691.9001,.01 ICD DIAGNOSIS 0;1 POINTER TO ICD DIAGNOSIS FILE (#80) (Multiply asked)
LAST EDITED: MAR 10, 1993
DESCRIPTION:
This field contains an ICD Diagnosis for the procedure.
CROSS-REFERENCE: 691.9001^B
1)= S ^MCAR(691.9,DA(1),"ICD","B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.9,DA(1),"ICD","B",$E(X,1,30),DA)
691.9001,.02 NARRATIVE DIAGNOSIS 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
LAST EDITED: JAN 14, 1992
HELP-PROMPT: Answer must be 1-80 characters in length.
691.9,701 PRIMARY PROVIDER PROV;1 POINTER TO NEW PERSON FILE (#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
FILES POINTED TO FIELDS
ANATOMY (#697) ENTRY SITE (#4)
ECG INTERPRETATION (#693.3) RHYTHM:RHYTHM (#.01)
ELECTROPHYSIOLOGY (EP) (#691.8) EP RECORD (#.5)
EP INTERVENTION (#693.6) INTERVENTION (#1)
ICD DIAGNOSIS (#80) ICD DIAGNOSIS:ICD DIAGNOSIS (#.01)
NEW PERSON (#200) CARDIOLOGY STAFF (#24)
PRIMARY PROVIDER (#701)
RECORDING SITE (#693.5) RECORDING SITE (#5)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
MCAREP2 SEP 13, 1991@10:42 USER #0 ^MCAROAT @
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):