STANDARD DATA DICTIONARY #691.8 -- ELECTROPHYSIOLOGY (EP) FILE 6/27/25 PAGE 1
STORED IN ^MCAR(691.8, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Stores (along with ATRIAL STUDY and VENTRICULAR STUDY files) data on Electrophysiologies done on a patient.
DD ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: MEDICAL PATIENT (#1)[R]
"X1": W:$D(^("ES")) " ",@("$P($P($C(59)_$S($D(^DD(691.8,1506,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(""ES"")
,U,7)_"":"",2),$C(59),1)")
POINTED TO BY: RESULT field (#11) of the REQUEST/CONSULTATION File (#123)
ASSOCIATED RESULTS field (#.01) of the ASSOCIATED RESULTS sub-field (#123.03) of the REQUEST/CONSULTATION File
(#123)
EP RECORD field (#.5) of the ATRIAL STUDY File (#691.9)
EP RECORD field (#.5) of the VENTRICULAR STUDY File (#692)
CROSS
REFERENCED BY: MEDICAL PATIENT(AC), DATE/TIME(AD), PCC POINTER(APCE), DATE/TIME(B), MEDICAL PATIENT(C), RELEASE CODE(ES)
691.8,.01 DATE/TIME 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 05, 1987
HELP-PROMPT: ENTER PATIENT'S NAME OR DATE AND TIME OF ELECTROPHYSIOLOGY
DESCRIPTION:
This field identifies the date and time that the procedure was entered into the database.
TECHNICAL DESCR:
ORDER ENTRY TYPE: IDENTIFIER
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 691.8^B
1)= S ^MCAR(691.8,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.8,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 691.8^AD^MUMPS
1)= S MCARCDIE="^MCAR(691.8," D CHGDTE1^MCARPROC
2)= S MCARCDIE="^MCAR(691.8," D CHGDTE^MCARPROC
This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to
record the most recent EP procedure for this patient.
691.8,.02 ID .1;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<2) X
LAST EDITED: JUL 23, 1987
HELP-PROMPT: Enter any unique identification for this EP, 2 to 10 characters. SSN need not be entered since it
has been previously entered.
DESCRIPTION:
This field identifies the patient identifier.
691.8,.03 SUMMARY .2;1 SET (Required)
'N' FOR NORMAL;
'A' FOR ABNORMAL;
'B' FOR BORDERLINE;
LAST EDITED: AUG 13, 1987
HELP-PROMPT: Enter Code to describe normalcy of procedure performed.
DESCRIPTION:
This field summarizes the results of this procedure.
691.8,.04 SYMPTOM 1;0 POINTER Multiple #691.801 (Add New Entry without Asking)
DESCRIPTION:
These are the clinical signs of disease.
691.801,.01 SYMPTOM 0;1 POINTER TO SYMPTOM FILE (#695.5) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(695.5,""C"",""C"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 22, 1988
HELP-PROMPT: HISTORY OF PRESENT ILLNESS
DESCRIPTION:
These are the clinical signs of disease.
SCREEN: S DIC("S")="I $D(^MCAR(695.5,""C"",""C"",+Y))"
EXPLANATION: CHOOSE CARDIAC SYMPTOMS ONLY
CROSS-REFERENCE: 691.801^B
1)= S ^MCAR(691.8,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.8,DA(1),1,"B",$E(X,1,30),DA)
691.8,.05 RISK FACTOR 2;0 POINTER Multiple #691.802 (Add New Entry without Asking)
DESCRIPTION:
These are the conditions which contribute to the overall percentages of disease.
691.802,.01 RISK FACTOR 0;1 POINTER TO PAST HISTORY AND RISK FACTOR FILE (#695.4) (Multiply asked)
LAST EDITED: JUL 14, 1986
HELP-PROMPT: RELEVANT PAST HISTORY
DESCRIPTION:
These are the conditions which contribute to the overall percentages of disease.
CROSS-REFERENCE: 691.802^B
1)= S ^MCAR(691.8,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.8,DA(1),2,"B",$E(X,1,30),DA)
691.8,.9 HEART MEDICATION 3;0 POINTER Multiple #691.803 (Add New Entry without Asking)
DESCRIPTION:
This field identifies the medication which the patient has been prescribed
691.803,.01 HEART MEDICATION 0;1 POINTER TO MEDICATION FILE (#695) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(695,""C"",""C"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 22, 1988
HELP-PROMPT: Enter medication prescribed to patient.
DESCRIPTION:
This field identifies the medication which the patient has been prescribed
SCREEN: S DIC("S")="I $D(^MCAR(695,""C"",""C"",+Y))"
EXPLANATION: CHOOSE CARDIAC MEDICATIONS ONLY
CROSS-REFERENCE: 691.803^B
1)= S ^MCAR(691.8,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.8,DA(1),3,"B",$E(X,1,30),DA)
691.803,1 DOSE 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: SEP 05, 1986
HELP-PROMPT: ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
DESCRIPTION:
This allows the patient to enter dosage of medicine the patient is taking.
691.803,2 FREQUENCY 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<2) X
LAST EDITED: MAY 18, 1988
HELP-PROMPT: ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
DESCRIPTION:
This allows the user to enter time/number of times (frequency) patient should take medicine.
691.8,1 MEDICAL PATIENT 0;2 POINTER TO MEDICAL PATIENT FILE (#690) (Required)
LAST EDITED: JUL 23, 1987
HELP-PROMPT: Enter patients name: Last, First MI
DESCRIPTION: This field identifies the patients last name, followed by a comma, followed by a space(optional),
followed by the first name, followed by a space, followed by the middle initial.
TECHNICAL DESCR:
ORDER ENTRY TYPE: IDENTIFIER
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 691.8^C
1)= S ^MCAR(691.8,"C",$E(X,1,30),DA)=""
2)= K ^MCAR(691.8,"C",$E(X,1,30),DA)
This cross-reference allows look-ups by patient.
CROSS-REFERENCE: 691.8^AC^MUMPS
1)= S MCARCDIE="^MCAR(691.8," D CHGPAT^MCARPROC
2)= S MCARCDIE="^MCAR(691.8," D KILL^MCARPROC
This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to
record the most recent EP procedure for this patient.
691.8,3 HOSPITAL OF STUDY 4;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<3) X
LAST EDITED: SEP 20, 1989
HELP-PROMPT: Answer must be 3-40 characters in length.
DESCRIPTION:
This field defines the facility performing this procedure.
691.8,4 REASON FOR STUDY 4;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>120!($L(X)<1) X
LAST EDITED: OCT 02, 1989
HELP-PROMPT: Answer must be 1-120 characters in length.
DESCRIPTION:
This field documents the rationale of the procedure for this patient.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.8,5 ARRHYTHMIA DX 5;0 POINTER Multiple #691.805 (Add New Entry without Asking)
DESCRIPTION:
This field identifies an arrhythmia diagnosis field.
691.805,.01 ARRHYTHMIA DX 0;1 POINTER TO MEDICAL DIAGNOSIS/ICD CODES FILE (#697.5) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $D(^MCAR(697.5,""A.EP"",$P(^MCAR(697.5,+Y,0),U),+Y))",D="A.EP" D ^DIC K DIC S DIC=DIE
,X=+Y K:Y<0 X
LAST EDITED: OCT 23, 1991
HELP-PROMPT: Enter arrhythmia diagnosis.
DESCRIPTION:
This field identifies an arrhythmia diagnosis field.
SCREEN: S DIC("S")="I $D(^MCAR(697.5,""A.EP"",$P(^MCAR(697.5,+Y,0),U),+Y))",D="A.EP"
EXPLANATION: EP DIAGNOSISES ONLY
EXECUTABLE HELP:Q:$D(DJJ) N DO S X="?",DIC(0)="X",DIC="^MCAR(697.5,",D="A.EP" D MIX^DIC1 S D=-1
CROSS-REFERENCE:691.805^B
1)= S ^MCAR(691.8,DA(1),5,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.8,DA(1),5,"B",$E(X,1,30),DA)
691.8,6 CARDIAC DX 6;1 POINTER TO MEDICAL DIAGNOSIS/ICD CODES FILE (#697.5)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(697.5,""A.CATH"",$P(^MCAR(697.5,+Y,0),U),+Y))",(D,MCDF)="A.CATH" D ^DIC K DI
C S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 23, 1991
HELP-PROMPT: Enter cardiac diagnosis field.
DESCRIPTION:
This field identifies a cardiac diagnosis field.
SCREEN: S DIC("S")="I $D(^MCAR(697.5,""A.CATH"",$P(^MCAR(697.5,+Y,0),U),+Y))",(D,MCDF)="A.CATH"
EXPLANATION: CARDIAC CATHERIZATION CODES ONLY
EXECUTABLE HELP: Q:$D(DJJ) N DO S X="?",DIC(0)="X",DIC="^MCAR(697.5,",D="A.CATH" D MIX^DIC1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
691.8,7 HX 7;0 WORD-PROCESSING #691.87
LAST EDITED: FEB 26, 1996
HELP-PROMPT: Enter the relevant patient history.
DESCRIPTION:
This field may be used to detail the relevant patient history.
691.8,8 EJECTION FRACTION 8;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
This field quantifies the cardiac efficiency.
691.8,9 EJECTION FRACTION METHOD 8;2 SET
'RVG' FOR RVG;
'VENT' FOR VENTRICULOGRAPHY;
'2-DE' FOR 2D ECHO;
HELP-PROMPT: Enter methodolody used to determine the ejection fraction.
DESCRIPTION:
This field documents the methodology used to determine the ejection fraction.
691.8,10 HEART BLOCK 9;0 SET Multiple #691.804 (Add New Entry without Asking)
DESCRIPTION:
This field defines the state of heart block.
691.804,.01 HEART BLOCK 0;1 SET (Multiply asked)
'P' FOR PROXIMAL BLOCK;
'D' FOR DISTAL (INFRA HIS BLOCK);
'H' FOR INTRA HIS BLOCK;
HELP-PROMPT: Enter code for state of heart block.
DESCRIPTION:
This field defines the state of heart block.
691.804,1 UNDERLYING RHYTHM 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-50 CHARACTERS IN LENGTH
DESCRIPTION:
This field identifies describes the rhythm associated with a particular block.
691.804,2 RESPONSE TO ATROPINE 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>90!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-90 CHARACTERS IN LENGTH
DESCRIPTION:
This field quantifies the response to atropine.
691.804,3 RESPONSE TO EXERCISE 1;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>200!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-200 CHARACTERS IN LENGTH
DESCRIPTION:
This field documents the response to exercise.
691.804,4 RESPONSE TO CAROTID MASSAGE 2;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>200!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-200 CHARACTERS IN LENGTH
DESCRIPTION:
This field documents the response to carotid massage.
691.8,11 CAROTID STIMULATION 10;0 SET Multiple #691.811 (Add New Entry without Asking)
DESCRIPTION:
This field documents the episodes of carotid stimulation.
691.811,.01 CAROTID STIMULATION 0;1 SET (Multiply asked)
'R' FOR RT CAROTID PRESSURE;
'L' FOR LT CAROTID PRESSURE;
'ND' FOR NOT DONE;
HELP-PROMPT: Enter episodes of carotid stimulation.
DESCRIPTION:
This field documents the episodes of carotid stimulation.
691.811,1 LONGEST PAUSE 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."2N.N) X
LAST EDITED: NOV 19, 1987
HELP-PROMPT: Type a Number between 0 and 99, 1 Decimal Digit
DESCRIPTION:
This field describes the longest pause.
691.8,12 SVT-TYPE 11;0 SET Multiple #691.812 (Add New Entry without Asking)
DESCRIPTION:
This field defines the SVT-type
691.812,.01 SVT-TYPE 0;1 SET (Multiply asked)
'1' FOR AVNRT;
'2' FOR ORTHODROMIC AVRT;
'3' FOR ANTIDROMIC AVRT;
'4' FOR SNRT;
'5' FOR IART;
'6' FOR ATRIAL FLUTTER;
'7' FOR ATRIAL FIB;
'8' FOR AUTOMATIC;
LAST EDITED: OCT 08, 1987
HELP-PROMPT: Enter code for SVT-type.
DESCRIPTION:
This field defines the SVT-type
CROSS-REFERENCE: 691.812^B
1)= S ^MCAR(691.8,DA(1),11,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.8,DA(1),11,"B",$E(X,1,30),DA)
691.8,13 INTERPRETATION 12;0 WORD-PROCESSING #691.813
HELP-PROMPT: ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
HELP-PROMPT: Enter comments on clinical interpretation.
DESCRIPTION:
This field documents the clinical interpretation.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.8,14 COMMENT 13;0 WORD-PROCESSING #691.814
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
HELP-PROMPT: Enter comments.
DESCRIPTION:
This field identifies a word processing comment field.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.8,15 FOLLOW UP 14;0 SET Multiple #691.815 (Add New Entry without Asking)
DESCRIPTION:
This field documents follow up care/diagnostics.
691.815,.01 FOLLOW UP 0;1 SET (Multiply asked)
'R' FOR RECURRENT VT/VF;
'H' FOR REHOSPITALIZATION;
'D' FOR PATIENT DEATH;
'S' FOR SIDE EFFECTS FROM DRUGS;
HELP-PROMPT: Enter code for follow up care/diagnostics.
DESCRIPTION:
This field documents follow up care/diagnostics.
691.8,16 CARDIOLOGY STAFF 15;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
HELP-PROMPT: Enter participating clinical staff.
DESCRIPTION:
This field identifies the participating clinical staff.
TECHNICAL DESCR:
ORDER ENTRY TYPE: IDENTIFIER
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
CROSS-REFERENCE: ^^TRIGGER^691.8^701
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691.8,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.8,16,1,1,1.4)
1.4)= S DIH=$S($D(^MCAR(691.8,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691
.8,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.8,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),
U,1),X=X S DIU=X K Y X ^DD(691.8,16,1,1,2.1) X ^DD(691.8,16,1,1,2.4)
2.1)= S X=DIV S Y(1)=$S($D(^MCAR(691.8,D0,15)):^(15),1:"") S X=$P(Y(1),U,1),X=X
2.4)= S DIH=$S($D(^MCAR(691.8,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691
.8,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= INTERNAL(#16)
DELETE VALUE)= INTERNAL(#16)
FIELD)= #701
This trigger sets the primary provider file.
691.8,17 CARDIOLOGY FELLOW 15;2 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
HELP-PROMPT: Enter participating clinical fellow.
DESCRIPTION:
This field identifies the participating clinical fellow.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
691.8,18 WARD/CLINIC 15;3 POINTER TO HOSPITAL LOCATION FILE (#44)
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Enter patient's location.
DESCRIPTION:
This field identifies the patient's location.
691.8,19 CARDIOLOGY STAFF-2ND 15;4 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
HELP-PROMPT: Enter name of 2nd attending physician
DESCRIPTION:
This field identifies the secondary participating staff member.
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
691.8,20 CARDIOLOGY FELLOW-2ND 15;5 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
HELP-PROMPT: Enter name of 2nd cardiology fellow
DESCRIPTION:
This field identifies the secondary clinical fellow.
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
691.8,21 DISCHARGE DATE 16;0 DATE Multiple #691.96
691.96,.01 DISCHARGE DATE 0;1 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
691.96,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.8,22 FOLLOW UP 17;0 SET Multiple #691.97
691.97,.01 FOLLOW UP 0;1 SET
'RE' FOR RECURRENT VT/VF;
'HO' FOR REHOSPITALIZATION;
'DI' FOR PATIENT DEATH;
'SE' FOR SIDE EFFECTS FROM DRUG;
691.8,24 CARDIOLOGY STAFF 19;1 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: K:'$D(^VA(200,"AK.PROVIDER",$P(Y,U,2),+Y)) X
LAST EDITED: JAN 08, 1987
691.8,25 CARDIOLOGY FELLOW 19;2 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: K:'$D(^VA(200,"AK.PROVIDER",$P(Y,U,2),+Y)) X
LAST EDITED: JAN 08, 1987
691.8,600 PROCEDURE SUMMARY .2;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>79!($L(X)<1) X
LAST EDITED: NOV 28, 1990
HELP-PROMPT: Answer must be 1-79 characters in length. This will appear on the 'Summary of Patient Procedures'.
DESCRIPTION:
This 1-79 character field is provided as input into the summary of patient procedures.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.8,700 ICD DIAGNOSIS ICD;0 POINTER Multiple #691.806
DESCRIPTION:
This field contains the ICD Diagnosis(es) for the procedure.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.806,.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.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
CROSS-REFERENCE: 691.806^B
1)= S ^MCAR(691.8,DA(1),"ICD","B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.8,DA(1),"ICD","B",$E(X,1,30),DA)
691.806,.02 NARRATIVE DIAGNOSIS 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
LAST EDITED: JAN 02, 1992
HELP-PROMPT: Answer must be 1-80 characters in length.
TECHNICAL DESCR:
ORDER ENTRY TYPE: UNKNOWN
691.8,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 ELECTROPHYSIOLOGY (EP) File
691.8,900 PCC POINTER PCC;1 POINTER TO VISIT FILE (#9000010)
LAST EDITED: MAY 17, 1996
DESCRIPTION: This field is used to link the Medicine package results with the PCC Visit File for use by
Queryman.
CROSS-REFERENCE: 691.8^APCE
1)= S ^MCAR(691.8,"APCE",$E(X,1,30),DA)=""
2)= K ^MCAR(691.8,"APCE",$E(X,1,30),DA)
Pointer to the Visit file.
691.8,1000 ORIFN OR;1 POINTER TO ORDER FILE (#100)
LAST EDITED: JUL 09, 1991
HELP-PROMPT: Enter Consult Order.
DESCRIPTION: This field contains a pointer to the 'Consult Orders' internal file number, stored in file 100.
This field is entered when results are entered in the Medicine package.
691.8,1001 GMRCO OR;2 POINTER TO REQUEST/CONSULTATION FILE (#123)
LAST EDITED: AUG 16, 1991
HELP-PROMPT: Enter the 'Request/Consultation' internal file number.
DESCRIPTION: This field contains a pointer to the internal number of the consult order stored in the
REQUEST/CONSULTATION file (123). This field is entered when results are entered in the Medicine
package.
691.8,1500 ENTERING DUZ ES;1 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: FEB 12, 1993
691.8,1501 COSIGNER VALIDATION CODE ES;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: FEB 12, 1993
HELP-PROMPT: Answer must be 1-40 characters in length.
691.8,1502 ENTERING DATE ES;3 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 12, 1993
691.8,1503 VERFIFYING DUZ ES;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: FEB 12, 1993
691.8,1504 SIGNER VALIDATION CODE ES;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: FEB 12, 1993
HELP-PROMPT: Answer must be 1-40 characters in length.
691.8,1505 VERIFIER DATE ES;6 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 12, 1993
691.8,1506 RELEASE CODE ES;7 SET
'D' FOR DRAFT;
'PD' FOR PROBLEM DRAFT;
'RV' FOR RELEASED ON-LINE VERIFIED;
'ROV' FOR RELEASED OFF-LINE VERIFIED;
'RNV' FOR RELEASED NOT VERIFIED;
'S' FOR SUPERSEDED;
'SRV' FOR RELEASED ON-LINE VERIFIED OF SUPERSEDED;
'SROV' FOR RELEASED OFF-LINE VERIFIED OF SUPERSEDED;
LAST EDITED: DEC 14, 1993
CROSS-REFERENCE: 691.8^ES
1)= S ^MCAR(691.8,"ES",$E(X,1,30),DA)=""
2)= K ^MCAR(691.8,"ES",$E(X,1,30),DA)
This cross-reference allows look-up by release status.
691.8,1507 DATE OF RELEASED ES;8 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 12, 1993
691.8,1508 DATE OF VERIFIED ES;9 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 12, 1993
691.8,1509 SUPERSEDED ES;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 12, 1993
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
691.8,1510 SUPERSEDED BY ES;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 12, 1993
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
691.8,1511 MARK FOR DELETATION ES;12 SET
'1' FOR MARK FOR DELETATION;
LAST EDITED: FEB 12, 1993
691.8,1512 DELETER DUZ ES;13 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: FEB 12, 1993
691.8,1513 SUPERSEDED DATE ES;14 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: FEB 12, 1993
HELP-PROMPT: Answer must be 1-40 characters in length.
691.8,1514 CREATION DATE ES;15 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 12, 1993
691.8,1515 SUPERSEDED NUMBER ES;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 04, 1993
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
FILES POINTED TO FIELDS
HOSPITAL LOCATION (#44) WARD/CLINIC (#18)
ICD DIAGNOSIS (#80) ICD DIAGNOSIS:ICD DIAGNOSIS (#.01)
MEDICAL DIAGNOSIS/ICD CODES
(#697.5) CARDIAC DX (#6)
ARRHYTHMIA DX:ARRHYTHMIA DX (#.01)
MEDICAL PATIENT (#690) MEDICAL PATIENT (#1)
MEDICATION (#695) HEART MEDICATION:HEART MEDICATION (#.01)
NEW PERSON (#200) CARDIOLOGY STAFF (#16)
CARDIOLOGY FELLOW (#17)
CARDIOLOGY STAFF-2ND (#19)
CARDIOLOGY FELLOW-2ND (#20)
CARDIOLOGY STAFF (#24)
CARDIOLOGY FELLOW (#25)
PRIMARY PROVIDER (#701)
ENTERING DUZ (#1500)
VERFIFYING DUZ (#1503)
DELETER DUZ (#1512)
ORDER (#100) ORIFN (#1000)
PAST HISTORY AND RISK FACTOR
(#695.4) RISK FACTOR:RISK FACTOR (#.01)
REQUEST/CONSULTATION (#123) GMRCO (#1001)
SYMPTOM (#695.5) SYMPTOM:SYMPTOM (#.01)
VISIT (#9000010) PCC POINTER (#900)
INPUT TEMPLATE(S):
MCAREPBRIEF AUG 20, 1992@09:37 USER #0
MCAREPEDITALL JAN 23, 1987 USER #0
MCAREPENTRY APR 24, 1992@10:26 USER #0
MCBLEP JUN 08, 1994@13:39 USER #0
MCFLEP JUN 08, 1994@13:42 USER #0
PRINT TEMPLATE(S):
MCAREP1 SEP 13, 1991@11:34 USER #0 ^MCAROEP @
MCAREP1A OCT 07, 1986 USER #0 @
MCAREPBRPR MAY 14, 1996@09:10 USER #0 ^MCOBEP @
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):