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 |  Found Entries |  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: 51

Package Total Routines
Medicine 47 MCAR7A    MCARAM0    MCARAM5    MCAROG    MCAROGM    MCAROGR    MCAROP    MCAROPA
MCAROPG    MCAROPS    MCAROPS1    MCAROPV    MCARORA    MCARORB    MCARPACE    MCARPAL
MCARPCE    MCARPCS1    MCARPCS3    MCARPCS4    MCARPROC    MCARPS    MCARPS1    MCARPS2
MCARUTL2    MCARUTL4    MCARUTL5    MCESEDT    MCOBC1    MCOBE1    MCOBEP    MCOBGA
MCOBGC    MCOBGN    MCOBH1    MCOBK    MCOBPA    MCOBPE    MCOBPFT    MCOBPG
MCOBPS    MCOBPV    MCOBRH    MCOBT    MCORMN    MCPOS01A    MCUIMAG0    
Health Summary 3 GMTSMCPS    GMTSMCPZ    GMTSMCZZ    
Surgery 1 SROAPIMS    

Accessed By FileMan Db Calls, Total: 9

Package Total Routines
Medicine 9 MCARE    MCARGE    MCARGES    MCARPACE    MCARPCS    MCARPCS3    MCARPS    MCARUTL2
MCUIMAG0    

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 VA PATIENT(#2)[.01]    

Fields, Total: 19

Field # Name Loc Type Details
.01 NAME 0;1 POINTER TO VA PATIENT FILE (#2)
************************REQUIRED FIELD************************
VA 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 |  Found Entries |  All