STANDARD DATA DICTIONARY #690 -- MEDICAL PATIENT FILE 9/29/25 PAGE 1
STORED IN ^MCAR(690, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file stores medicine patients' DINUM to the PATIENT file and also keeps a cross-reference of procedures done on a patient.
DD ACCESS: @
AUDIT ACCESS: @
POINTED TO BY: MEDICAL PATIENT field (#1) of the ECHO File (#691)
MEDICAL PATIENT field (#1) of the CARDIAC CATHETERIZATION File (#691.1)
MEDICAL PATIENT field (#1) of the ELECTROCARDIOGRAM (EKG) File (#691.5)
MEDICAL PATIENT field (#1) of the HOLTER File (#691.6)
MEDICAL PATIENT field (#1) of the EXERCISE TOLERANCE TEST File (#691.7)
MEDICAL PATIENT field (#1) of the ELECTROPHYSIOLOGY (EP) File (#691.8)
MEDICAL PATIENT field (#1) of the HEMATOLOGY File (#694)
PATIENT field (#1) of the CARDIAC SURGERY RISK ASSESSMENT File (#694.5)
MEDICAL PATIENT field (#1) of the GENERATOR IMPLANT File (#698)
MEDICAL PATIENT field (#1) of the V LEAD IMPLANT File (#698.1)
MEDICAL PATIENT field (#1) of the A LEAD IMPLANT File (#698.2)
MEDICAL PATIENT field (#1) of the PACEMAKER SURVEILLANCE File (#698.3)
MEDICAL PATIENT field (#.02) of the ENDOSCOPY/CONSULT File (#699)
MEDICAL PATIENT field (#.02) of the GENERALIZED PROCEDURE/CONSULT File (#699.5)
MEDICAL PATIENT field (#1) of the PULMONARY FUNCTION TESTS File (#700)
MEDICAL PATIENT field (#1) of the RHEUMATOLOGY File (#701)
CROSS
REFERENCED BY: NAME(AC), NAME(B)
690,.01 NAME 0;1 POINTER TO PATIENT FILE (#2) (Required)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: JUL 16, 1992
HELP-PROMPT: Please Enter Medical Patient's Name. This File is Cross-referenced whenever a procedure is selected
for a patient.
DESCRIPTION: This field identifies the medical patient's name followed by his/her first name followed by a space
and his/her middle initial and a period.
TECHNICAL DESCR:
ORDER ENTRY TYPE: IDENTIFIER
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 690^B
1)= S ^MCAR(690,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(690,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 690^AC^MUMPS
1)= I '$D(^MCAR(690,"AC")) D RBLD^MCARPROC
2)= Q
This cross-reference permits access to medical procedures for a patient in date order, from most
recent to least recent. It is also triggered by the DATE/TIME and MEDICAL PATIENT fields in the
various procedure files (#691-#701).
690,1 LIVER BIOPSY GI;1 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: JUL 25, 1988
HELP-PROMPT: Enter Y for yes or N for no if a liver biopsy has been done.
DESCRIPTION:
This field identifies if a liver biopsy has been done.
690,2 ALLERGIES ; COMPUTED
MUMPS CODE: X ^DD(690,2,9.3) S X=$S('$D(^DIC(57,+$P(Y(690,2,202),U,1),0)):"",1:$P(^(0),U,1)) S D0=Y(690,2,80) S
D1=Y(690,2,181)
9.2 = S Y(690,2,80)=$S($D(D0):D0,1:""),Y(690,2,1)=$S($D(^MCAR(690,D0,0)):^(0),1:""),D0=$P(Y(690,2,1
),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(690,2,180)=$S($D(D0):D0,1:"")
9.3 = X ^DD(690,2,9.2) S Y(690,2,181)=$S($D(D1):D1,1:"") S X=2 K DIC S Y=-1,DIC="^DPT(D0,""PA"",",D
IC(0)="NMF" D ^DIC:D0>0 S (D,D1)=+Y S Y(690,2,202)=$S($D(^DPT(D0,"PA",D1,0)):^(0),1:"")
ALGORITHM: .01:2:57
DESCRIPTION:
This field identifies if the patient has allergies.
690,3 HISTORY OF BLEEDING DISORDER GI;3 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: JUL 25, 1988
HELP-PROMPT: Enter Y for yes or N for no if patient has a history of bleeding disorder.
DESCRIPTION:
This field identifies if the patient has a history of bleeding disorder.
690,4 VALVULAR HEART DISEASE GI;4 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: JUL 25, 1988
HELP-PROMPT: Enter Y for yes or N for no if the patient has a valvular heart disease.
DESCRIPTION:
This field identifies if the patient has a valvular heart disease.
690,5 GLAUCOMA GI;5 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: JUL 25, 1988
HELP-PROMPT: Enter Y for yes or N for no if patient has glaucoma.
DESCRIPTION:
This field identifies if the patient has glaucoma.
690,6 HISTORY COMMENTS GI;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: JUL 25, 1988
HELP-PROMPT: ANSWER MUST BE 1-50 CHARACTERS IN LENGTH
DESCRIPTION:
This field identifies a free text field. Enter any pertinent history comments.
690,7 PACING INDICATION P;0 POINTER Multiple #690.07 (Add New Entry without Asking)
DESCRIPTION:
This field defines the medical rationale for electronic cardiac regulation.
SCREEN: S DIC("S")="I $D(^MCAR(694.1,""C"",""PM"",+Y))"
EXPLANATION: CHOOSE PACING INDICATION ONLY
690.07,.01 PACING INDICATION 0;1 POINTER TO INDICATION FILE (#694.1) (Multiply asked)
LAST EDITED: FEB 28, 1989
HELP-PROMPT: Enter rationale for electronic cardiac regulation.
DESCRIPTION:
This field defines the medical rationale for electronic cardiac regulation.
SCREEN: S DIC("S")="I $D(^MCAR(694.1,""C"",""PM"",+Y))"
EXPLANATION: CHOOSE PACING INDICATION CODES ONLY
CROSS-REFERENCE: 690.07^B
1)= S ^MCAR(690,DA(1),"P","B",$E(X,1,30),DA)=""
2)= K ^MCAR(690,DA(1),"P","B",$E(X,1,30),DA)
690,8 RISK FACTOR (PACE) P1;0 POINTER Multiple #690.08 (Add New Entry without Asking)
DESCRIPTION: This field indicates the conditions for which electronic cardiac regulation is a hazard for this
patient.
690.08,.01 RISK FACTOR (PACE) 0;1 POINTER TO PAST HISTORY AND RISK FACTOR FILE (#695.4) (Multiply asked)
LAST EDITED: JAN 12, 1989
HELP-PROMPT: Enter conditions which make electronic cardiac regulation a particular hazard for this patient.
DESCRIPTION: This field defines the conditions which make electronic cardiac regulation a particular hazard
for this patient.
CROSS-REFERENCE: 690.08^B
1)= S ^MCAR(690,DA(1),"P1","B",$E(X,1,30),DA)=""
2)= K ^MCAR(690,DA(1),"P1","B",$E(X,1,30),DA)
690.08,1 DATE RISK FACTOR REPORTED 0;2 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 13, 1989
HELP-PROMPT: Please enter date that risk factor is reported.
DESCRIPTION:
This 'date format' field documents the realization of a hazard.
690,9 PSC STATUS P2;1 SET
'1' FOR EAST PSC FOLLOW-UP;
'2' FOR ARTIFICIAL;
'3' FOR DEAD;
'4' FOR REGISTRY ONLY;
'5' FOR EXPLANT TEST ONLY;
'6' FOR EXPLANTED,NO REPLACEMENT;
'7' FOR WEST PSC FOLLOW-UP;
'8' FOR LOST TO FOLLOW-UP;
LAST EDITED: FEB 07, 1989
HELP-PROMPT: Please enter Pacemaker Surveillence Center status code.
DESCRIPTION:
This field indicates the Pacemaker Surveillance Center Status.
690,10 INDICATION FOR FILE CLOSURE P3;1 SET
'1' FOR DEATH;
'2' FOR LOST TO FOLLOW-UP;
'3' FOR PACEMAKER REMOVAL;
'4' FOR DISCHARGE FOR ANOTHER REASON;
LAST EDITED: JAN 18, 1989
HELP-PROMPT: Please enter code for reason file is to be closed.
DESCRIPTION:
This field identifies the reason for the file to be closed.
690,11 CAUSE OF DEATH P3;2 SET
'1' FOR RELATED TO PACEMAKER;
'2' FOR RELATED TO ELECTRODE;
'3' FOR CARDIAC-UNRELATED TO PACEMAKER;
'4' FOR NON-CARDIAC-UNRELATED TO PACEMAKER;
'5' FOR CAUSE UNKNOWN;
LAST EDITED: JAN 18, 1989
HELP-PROMPT: Please enter code for cause of death.
DESCRIPTION:
This field identifies the cause of death.
690,12 SUDDENNESS OF DEATH P3;3 SET
'1' FOR SUDDEN-WITHIN ONE HOUR OF SYMPTOMS;
'2' FOR NON-SUDDEN;
'3' FOR UNKNOWN;
LAST EDITED: DEC 30, 1993
HELP-PROMPT: Please enter code for reason of sudden death.
DESCRIPTION:
This field identifies the reason for the sudden death.
690,13 DATE OF FILE CLOSURE P3;4 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 18, 1989
HELP-PROMPT: Please enter date file closed.
DESCRIPTION:
This field identifies the date when the file is closed.
690,14 DISCHARGE (PACEMAKER) REASON P3;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<1) X
LAST EDITED: JAN 18, 1989
HELP-PROMPT: ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
DESCRIPTION:
This field identifies the rationale for the release of the patient.
690,15 TRANSMITTED PACEMAKER REPORTS P4;0 DATE Multiple #690.015 (Add New Entry without Asking)
DESCRIPTION:
This field contains the date of each report.
690.015,.01 DATE REPORT TRANSMITTED 0;1 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 24, 1989
HELP-PROMPT: Enter date and time report transmitted.
DESCRIPTION: This field stores the date (or date/time) of reports transmitted to national pacemaker center.
It is set from the routine MCARPCS4.
CROSS-REFERENCE: 690.015^B
1)= S ^MCAR(690,DA(1),"P4","B",$E(X,1,30),DA)=""
2)= K ^MCAR(690,DA(1),"P4","B",$E(X,1,30),DA)
690,16 DATE OF INITIAL IMPLANT P3;6 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 24, 1989
HELP-PROMPT: ENTER THE DATE THAT THE PATIENT FIRST RECEIVED AN IMPLANT
DESCRIPTION:
This field identifies the date of implant.
690,17 TELEPHONE FOLLOWUP PROVIDED BY P2;2 SET
'E' FOR VA EASTERN PACEMAKER SURVEILLANCE CENTER;
'W' FOR VA WESTERN PACEMAKER SURVEILLANCE CENTER;
'L' FOR LOCAL VAMC;
LAST EDITED: JUN 05, 1989
HELP-PROMPT: Enter code for location of followup visit.
DESCRIPTION:
This field identifies the location for a follow-up visit.
690,18 REASON FOR FILE CLOSURE P3;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: JUN 29, 1989
HELP-PROMPT: Answer must be 1-50 characters in length.
DESCRIPTION:
This field identifies an extended explanation for the file to be closed.
FILES POINTED TO FIELDS
INDICATION (#694.1) PACING INDICATION:PACING INDICATION (#.01)
PAST HISTORY AND RISK FACTOR
(#695.4) RISK FACTOR (PACE):RISK FACTOR (PACE) (#.01)
PATIENT (#2) NAME (#.01)
INPUT TEMPLATE(S):
MCARGIED APR 04, 1989 USER #0
MCARPACEDIT JUL 18, 1990@11:37 USER #0
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):