Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All
Print Page as PDF
Global: ^MCAR(690

Package: Medicine

Global: ^MCAR(690


Information

FileMan FileNo FileMan Filename Package
690 MEDICAL PATIENT Medicine

Description

Directly Accessed By Routines, Total: 73

Package Total Routines
Medicine 67 MCOBE1    ^MCAR(691.5    ^MCAR(691.6    MCAR7A    MCARAM0    MCAROG    MCAROGR    MCAROP
MCARPCE    MCARPCS1    MCARPCS3    MCARPROC    MCARPS    MCARPS2    MCESEDT    MCOBC1
MCOBGN    MCOBPE    MCOBPV    MCOBRH    MCOBT    ^MCAR(691.1    ^MCAR(691.7    ^MCAR(694
^MCAR(701    DIAGNOSIS    MCOBH1    MCOBK    MCOBPA    MCOBPFT    MCOBPS    MCORMN
MCUIMAG0    ^MCAR(691    ^MCAR(698.1    ^MCAR(698.2    ^MCAR(700    MCAROPA    ^MCAR(694.5    MCARAM5
MCARGIRCLI    MCAROGM    MCAROPA1    MCAROPG1    MCAROPS1    MCAROPV    MCAROPV1    MCARORA
MCARORB    MCARPACE    MCARPAL    MCARPS1    MCARUTL2    MCARUTL5    MCFLGEN.IMPL.    MCOBEP
MCOBGC    ^MCAR(691.8    ^MCAR(698    ^MCAR(698.3    ^MCAR(699    ^MCAR(699.5    MCARPCS4    MCARUTL4
MCOBGA    MCOBPG    MCPOS01A    
Health Summary 3 GMTSMCPS    GMTSMCPZ    GMTSMCZZ    
Clinical Procedures 2 MDCVTU    MDHL7MCA    
Surgery 1 SROAPIMS    

Accessed By FileMan Db Calls, Total: 10

Package Total Routines
Medicine 9 MCARE    MCARGE    MCARGES    MCARPACE    MCARPCS    MCARPCS3    MCARPS    MCARUTL2
MCUIMAG0    
Consult Request Tracking 1 GMRCYP70    

Pointed To By FileMan Files, Total: 16

Package Total FileMan Files
Medicine 16 ECHO(#691)[1]    CARDIAC CATHETERIZATION(#691.1)[1]    ELECTROCARDIOGRAM (EKG)(#691.5)[1]    HOLTER(#691.6)[1]    EXERCISE TOLERANCE TEST(#691.7)[1]    ELECTROPHYSIOLOGY (EP)(#691.8)[1]    HEMATOLOGY(#694)[1]    CARDIAC SURGERY RISK ASSESSMENT(#694.5)[1]    GENERATOR IMPLANT(#698)[1]    V LEAD IMPLANT(#698.1)[1]    A LEAD IMPLANT(#698.2)[1]    PACEMAKER SURVEILLANCE(#698.3)[1]    ENDOSCOPY/CONSULT(#699)[.02]    GENERALIZED PROCEDURE/CONSULT(#699.5)[.02]    PULMONARY FUNCTION TESTS(#700)[1]    RHEUMATOLOGY(#701)[1]    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Medicine 2 INDICATION(#694.1)[#690.07(.01)]    PAST HISTORY AND RISK FACTOR(#695.4)[#690.08(.01)]    
Registration 1 PATIENT(#2)[.01]    

Fields, Total: 19

Field # Name Loc Type Details
.01 NAME 0;1 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • 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).
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.
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"",",DIC(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.
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.
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.
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.
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.
7 PACING INDICATION P;0 POINTER Multiple #690.07 690.07

  • 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
8 RISK FACTOR (PACE) P1;0 POINTER Multiple #690.08 690.08

  • DESCRIPTION:  
    This field indicates the conditions for which electronic cardiac regulation is a hazard for this patient.
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.
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.
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.
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.
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.
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.
15 TRANSMITTED PACEMAKER REPORTS P4;0 DATE Multiple #690.015 690.015

  • DESCRIPTION:  
    This field contains the date of each report.
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.
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.
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.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All