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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | 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: 77

Package Total Routines
Medicine 71 ^MCAR(701    DIAGNOSIS    MCARAM0    MCARAM5    MCARGIRCLI    MCAROGR    MCAROPA1    MCAROPG1
MCAROPV    MCAROPV1    MCARORA    MCARPCS1    MCARPS1    MCARPS2    MCARUTL2    MCARUTL5
MCESEDT    MCFLGEN.IMPL.    MCOBC1    MCOBE1    MCOBGC    MCOBGN    MCOBK    MCOBPA
MCOBPE    MCOBPG    MCOBPV    MCOBT    MCPOS01A    MCUIMAG0    PACING INDICATION    ^MCAR(690
^MCAR(691    ^MCAR(691.5    ^MCAR(691.8    ^MCAR(694    ^MCAR(698.2    ^MCAR(700    MCAR7A    MCAROG
MCAROGM    MCAROP    MCAROPA    MCAROPS1    MCARORB    MCARPACE    MCARPAL    MCARPCE
MCARPCS3    MCARPROC    MCARPS    MCARUTL4    MCOBEP    MCOBH1    MCOBRH    MCORMN
RISK FACTOR (PACE)    ^MCAR(694.5    ^MCAR(698    MCARPCS4    MCOBPFT    MCOBPS    ^MCAR(691.1    ^MCAR(691.6
^MCAR(691.7    ^MCAR(698.1    ^MCAR(699    ^MCAR(699.5    MCOBGA    TRANSMITTED PACEMAKER REPORTS    ^MCAR(698.3    
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.

External References

Name Field # of Occurrence
^%DT 13+1, 16+1
^DIC 2OF9.3+1
RBLD^MCARPROC .01(XREF 2S)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(690 2+1, 2OF9.3+1
^DIC(57 2+1
^DPT - [#2] 2OF9.2+1, 2OF9.3+1
^MCAR(690 - [#690] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), 2OF9.2+1

Naked Globals

Name Field # of Occurrence
^(0 2+1, 2OF9.2+1, 2OF9.3+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 13+1*, 16+1*
>> D 2OF9.3+1*
>> D0 2+1*, 2OF9.2+1*, 2OF9.3+1
>> D1 2+1*, 2OF9.3+1*
>> DA .01(XREF 1S), .01(XREF 1K)
DIC 2OF9.3+1!*
DIC(0 2OF9.3+1*
>> DINUM .01+1*
U 2+1, 2OF9.2+1
X .01+1, .01(XREF 1S), .01(XREF 1K), 2+1*, 2OF9.3+1*, 6+1!, 13+1*!, 14+1!, 16+1*!, 18+1!
>> Y 2OF9.3+1*, 13+1, 16+1
>> Y(690 2+1, 2OF9.2+1*, 2OF9.3+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All