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(698.3

Package: Medicine

Global: ^MCAR(698.3


Information

FileMan FileNo FileMan Filename Package
698.3 PACEMAKER SURVEILLANCE Medicine

Description

Directly Accessed By Routines, Total: 11

Package Total Routines
Medicine 10 DIAGNOSIS    ICD DIAGNOSIS    MCAROPS    MCAROPS1    MCARPCE    MCARPCS3    MCOBPS    MCOBPS1
MCPOS01E    ^MCAR(698.3    
Clinical Procedures 1 MDCVT1    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Medicine 3 MCARPAC    MCARPCE    MCARPCS3    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Consult Request Tracking 1 REQUEST/CONSULTATION(#123)[11#123.03(.01)]    

Pointer To FileMan Files, Total: 8

Package Total FileMan Files
Medicine 3 MEDICAL PATIENT(#690)[1]    REASON (MEDICINE)(#695.8)[55]    NON-MAGNET ECG RHYTHM(#698.9)[15]    
Consult Request Tracking 1 REQUEST/CONSULTATION(#123)[1001]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[#698.32(.01)]    
Kernel 1 NEW PERSON(#200)[2300301701]    
Order Entry Results Reporting 1 ORDER(#100)[1000]    
PCE Patient Care Encounter 1 VISIT(#9000010)[900]    

Fields, Total: 55

Field # Name Loc Type Details
.01 DATE/TIME 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  ENTER THE DATE AND TIME OF CLINIC SURVEILLANCE VISIT OR TELEPHONE CONTACT
  • DESCRIPTION:  
    This allows analysis based on time.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: IDENTIFIER
  • CROSS-REFERENCE:  698.3^B
    1)= S ^MCAR(698.3,"B",$E(X,1,30),DA)=""
    2)= K ^MCAR(698.3,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  698.3^AC^MUMPS
    1)= S MCARCDIE="^MCAR(698.3," D CHGDTE1^MCARPROC
    2)= S MCARCDIE="^MCAR(698.3," D CHGDTE^MCARPROC
    This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent pacemaker surveillance procedure for this patient.
1 MEDICAL PATIENT 0;2 POINTER TO MEDICAL PATIENT FILE (#690)
************************REQUIRED FIELD************************
MEDICAL PATIENT(#690)

  • HELP-PROMPT:  Enter the patient's name, SSN, or other identifier
  • DESCRIPTION:  
    Patient's name.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: IDENTIFIER
  • CROSS-REFERENCE:  698.3^C
    1)= S ^MCAR(698.3,"C",$E(X,1,30),DA)=""
    2)= K ^MCAR(698.3,"C",$E(X,1,30),DA)
    This cross-reference allows look-ups by patient.
  • CROSS-REFERENCE:  698.3^AD^MUMPS
    1)= S MCARCDIE="^MCAR(698.3," D CHGPAT^MCARPROC
    2)= S MCARCDIE="^MCAR(698.3," D KILL^MCARPROC
    This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent pacemaker surveillance procedure for this patient.
2 CALLER 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • HELP-PROMPT:  Enter the surveillance operator.
  • DESCRIPTION:  
    This field identifies the surveillance operator.
3 DATA GATHERING MODE 0;4 SET
************************REQUIRED FIELD************************
  • 'T' FOR TELEPHONE;
  • 'C' FOR CLINIC;

  • LAST EDITED:  NOV 30, 1990
  • HELP-PROMPT:  Enter T for Telephone or C for Clinic for surveillance technique.
  • DESCRIPTION:  
    This defines the surveillance technique.
4 PULSE INTERVAL (MSEC) WO MAG 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>3000)!(X<200)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 200 and 3000, 0 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of a current rate parameter.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
5 RATE WO MAG COMPUTED

  • MUMPS CODE:  X ^DD(698.3,5,9.2) S X=$S(Y(698.3,5,2):Y(698.3,5,3),Y(698.3,5,4):X) S X=$J(X,0,1)
    9.2 = S Y(698.3,5,1)=$S($D(^MCAR(698.3,D0,0)):^(0),1:"") S X=$P(Y(698.3,5,1),U,7)="",Y(698.3,5,2)=X S X="",Y(698.3,5,3)=X S X=1,Y(698.3,5,4)=X S X=60000,X=$S($P(Y(698.3,5,1),U,7):X/$P(Y(698.3,5,1),U,7),1:"*******")
  • ALGORITHM:  $S(#4="":"",1:60000/#4) (ALWAYS 1 DECIMAL DIGITS)
  • DESCRIPTION:  
    This allows documentation of a current rate parameter.
6 PULSE INTERVAL (MSEC) W MAG 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>3000)!(X<200)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 200 and 3000, 0 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of a current rate parameter.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
7 RATE W MAG COMPUTED

  • MUMPS CODE:  X ^DD(698.3,7,9.2) S X=$S(Y(698.3,7,2):Y(698.3,7,3),Y(698.3,7,4):X) S X=$J(X,0,1)
    9.2 = S Y(698.3,7,1)=$S($D(^MCAR(698.3,D0,0)):^(0),1:"") S X=$P(Y(698.3,7,1),U,8)="",Y(698.3,7,2)=X S X="",Y(698.3,7,3)=X S X=1,Y(698.3,7,4)=X S X=60000,X=$S($P(Y(698.3,7,1),U,8):X/$P(Y(698.3,7,1),U,8),1:"*******")
  • ALGORITHM:  $S(#6="":"",1:60000/#6) (ALWAYS 1 DECIMAL DIGITS)
  • DESCRIPTION:  
    This allows documentation of a current rate parameter.
11 A-V DELAY WO MAG (MSEC) 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 1000, 0 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of a current rhythm parameter.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
12 A-V DELAY W MAG (MSEC) 0;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 1000, 0 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of a current rhythm parameter.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
13 BATTERY VOLTAGE 0;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  FEB 11, 1991
  • HELP-PROMPT:  Type a Number between 0 and 10, 2 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of current power state.
14 RESISTANCE 0;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  FEB 11, 1991
  • HELP-PROMPT:  Type a Number between 0 and 10, 2 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of the current ohms parameter.
15 BASIC RHYTHM 0;9 POINTER TO NON-MAGNET ECG RHYTHM FILE (#698.9) NON-MAGNET ECG RHYTHM(#698.9)

  • LAST EDITED:  JAN 13, 1989
  • HELP-PROMPT:  Enter documentation of the current rhythm, pointer to Non-Magnet ECG Rhythm File (#698.9).
  • DESCRIPTION:  
    This allows documentation of the current rhythm.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
16 PERCENT OF PACED BEATS 0;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of the current rate of generator activity.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
50 REPROGRAMMED RATE 0;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>300)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  FEB 11, 1991
  • HELP-PROMPT:  Type a Number between 0 and 300, 1 Decimal Digit
  • DESCRIPTION:  
    This allows documentation of rate adjustments.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
51 REPROG. UPPER RATE LIMIT 0;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>300)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 300, 0 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of a rate adjustment.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
52 REPROGRAMMED A-V DELAY (MSECS) 0;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>500)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 500, 0 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of a rhythm adjustment.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
53 REPROGRAMMED HYSTERESIS 0;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of a hysteresis adjustment.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
54 REPROGRAMMED PACING MODE 0;19 SET
  • '1' FOR AAI;
  • '2' FOR VVI;
  • '3' FOR DDD;
  • '4' FOR DVI;
  • '5' FOR AAT;
  • '6' FOR VVT;
  • '7' FOR VAT;
  • '8' FOR VDD;
  • '9' FOR AOO;
  • '10' FOR VOO;
  • '11' FOR DOO;
  • '12' FOR OTHER;

  • HELP-PROMPT:  Enter Code for adjustment to device operations.
  • DESCRIPTION:  
    This allows documentation of an adjustment to device operations.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
55 REASON FOR REPROGRAMMING 0;20 POINTER TO REASON (MEDICINE) FILE (#695.8) REASON (MEDICINE)(#695.8)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^MCAR(695.8,""AC"",""R"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • HELP-PROMPT:  Enter adjustment rationale, pointer to Reason (Medicine) File (#695.8).
  • DESCRIPTION:  
    This allows documentation of the adjustment rationale.
  • SCREEN:  S DIC("S")="I $D(^MCAR(695.8,""AC"",""R"",+Y))"
  • EXPLANATION:  CHOOSE ONLY REPROGRAMMING REASONS
101 PULSE WIDTH (ATRIAL-MSEC) 1;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>5)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  FEB 11, 1991
  • HELP-PROMPT:  Type a Number between 0 and 5, 2 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of a pulse segment rate parameter.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
102 MEASURED A-LEAD AMPLITUDE (MV) 1;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>500)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  FEB 11, 1991
  • HELP-PROMPT:  Type a Number between 0 and 500, 1 Decimal Digit
  • DESCRIPTION:  
    This allows documentation of atrial lead voltage.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
103 RATIO (T/L) (ATRIAL) 1;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<0)!(X?.E1"."4N.N) X
  • LAST EDITED:  FEB 11, 1991
  • HELP-PROMPT:  Type a Number between 0 and 10, 3 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of a performance ratio.
104 THRESHOLD WIDTH (ATRIAL) 1;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  FEB 11, 1991
  • HELP-PROMPT:  Type a Number between 0 and 10, 2 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of the atrial threshold parameter.
105 THRESHOLD AMPLITUDE (ATRIAL) 1;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  FEB 11, 1991
  • HELP-PROMPT:  Type a Number between 0 and 10, 2 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of the atrial voltage threshold.
106 CAPTURE (ATRIAL) 1;6 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'I' FOR INTERMITTENT;
  • 'U' FOR UNKNOWN;
  • 'NA' FOR NOT APPLICABLE;

  • HELP-PROMPT:  Enter knowledge of atrial capture.
  • DESCRIPTION:  
    This allows documentation of atrial capture.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
107 SENSE (ATRIAL) 1;7 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'I' FOR INTERMITTENT;
  • 'U' FOR UNKNOWN;
  • 'NA' FOR NOT APPLICABLE;

  • HELP-PROMPT:  Enter knowledge of atrial sense.
  • DESCRIPTION:  
    This allows documentation of atrial sense.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
121 REPR.PULSE WIDTH (ATRIAL-MSEC) 1;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>5)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  FEB 11, 1991
  • HELP-PROMPT:  Type a Number between 0 and 5, 2 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of a pulse segment adjustment.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
122 REPROG. A-AMPLITUDE (VOLTS) 1;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>12)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  FEB 11, 1991
  • HELP-PROMPT:  Type a Number between 0 and 12, 1 Decimal Digit
  • DESCRIPTION:  
    This allows documentation of atrial voltage adjustments.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
123 REPR.SENSITIVITY(ATRIAL-VOLTS) 1;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>5)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  FEB 11, 1991
  • HELP-PROMPT:  Type a Number between 0 and 5, 2 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of adjustments to atrial sense.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
124 REPR.ATRIAL REFRACTORY PERIOD 1;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 1000, 0 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of adjustments to atrial refraction.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
201 PULSE WIDTH (VENTRICLE-MSEC) 2;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>5)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  FEB 11, 1991
  • HELP-PROMPT:  Type a Number between 0 and 5, 2 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of a pulse segment rate parameter.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
202 MEASURED V-LEAD AMPLITUDE (MV) 2;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>500)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  FEB 11, 1991
  • HELP-PROMPT:  Type a Number between 0 and 500, 1 Decimal Digit
  • DESCRIPTION:  
    This allows documentation of ventricular lead voltage.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
203 RATIO (T/L) (VENTRICLE) 2;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 01, 1989
  • HELP-PROMPT:  Type a Number between 0 and 10, 0 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of a performance ratio.
204 THRESHOLD WIDTH (VENTRICLE) 2;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  FEB 11, 1991
  • HELP-PROMPT:  Type a Number between 0 and 10, 2 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of the ventricular threshold.
205 THRESHOLD AMPLITUDE (VENT.) 2;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  FEB 11, 1991
  • HELP-PROMPT:  Type a Number between 0 and 10, 2 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of the ventricular voltage threshold.
206 CAPTURE (VENTRICULAR) 2;6 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'I' FOR INTERMITTENT;
  • 'UNK' FOR UNKNOWN;
  • 'NA' FOR NOT APPLICABLE;

  • HELP-PROMPT:  Enter knowledge of ventricular capture.
  • DESCRIPTION:  
    This allows documentation of ventricular capture.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
207 SENSE (VENTRICULAR) 2;7 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'I' FOR INTERMITTENT;
  • 'UNK' FOR UNKNOWN;
  • 'NA' FOR NOT APPLICABLE;

  • HELP-PROMPT:  Enter knowledge of ventricular sense.
  • DESCRIPTION:  
    This allows documentation of ventricular sense.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
221 REPR.PULSE WIDTH (VENT-MSEC) 2;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>5)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  FEB 11, 1991
  • HELP-PROMPT:  Type a Number between 0 and 5, 2 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of a pulse segment adjustment.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
222 REPROGR. V-AMPLITUDE (VOLTS) 2;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>12)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  FEB 11, 1991
  • HELP-PROMPT:  Type a Number between 0 and 12, 1 Decimal Digit
  • DESCRIPTION:  
    This allows documentation of ventricular voltage adjustments.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
223 REPR.SENSITIVITY (VENTR.-MV) 2;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>5)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  FEB 11, 1991
  • HELP-PROMPT:  Type a Number between 0 and 5, 2 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of adjustments to ventricular sense.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
224 REPR. VENT. REFRACTORY PERIOD 2;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 1000, 0 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of adjustments to ventricular refraction.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
300 ATTENDING PHYSICIAN 3;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#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:  This field identifies the name of the Attending Physician for this Surveillance Entry.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
  • EXPLANATION:  Allows only holders of the 'Provider' security key.
301 FELLOW 3;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#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 field identifies the name of the Cardiology Fellow for this Surveillance Entry.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
491 FOLLOWUP COMMENT 4;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<2) X
  • HELP-PROMPT:  ANSWER MUST BE 2-60 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This allows a documentation area of free form.
492 FAST OR SLOW CHECK 4;1 SET
  • 'F' FOR FAST CHECK;
  • 'S' FOR SLOW CHECK;

  • HELP-PROMPT:  Enter F for fast or S for slow check.
  • DESCRIPTION:  
    This allows documentation of fast/slow check.
493 NEXT FOLLOW-UP DATE 0;5 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter date/time of next follow-up date.
  • DESCRIPTION:  
    This allows documentation of the scheduled follow-up date.
500 COMMENTS 10;0 WORD-PROCESSING #698.31

  • DESCRIPTION:  
    This allows a documentation area of free form.
600 PROCEDURE SUMMARY .2;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>79!($L(X)<1) X
  • LAST EDITED:  NOV 21, 1990
  • HELP-PROMPT:  Answer must be 1-79 characters in length. This will appear on the 'Summary of Patient Procedures'.
  • DESCRIPTION:  
    This field identifies a required free-text summary (1 to 79 characters) of the surveillance. This summary will appear on the Summary of Patient Procedures.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
601 SUMMARY .2;1 SET
************************REQUIRED FIELD************************
  • 'A' FOR ABNORMAL;
  • 'B' FOR BORDERLINE;
  • 'N' FOR NORMAL;

  • LAST EDITED:  NOV 21, 1990
  • HELP-PROMPT:  Enter appropriate code for summary of the surveillance.
  • DESCRIPTION:  
    This field identifies a required summary of the surveillance (Normal, Abnormal, or Borderline). This will appear on the Summary of Patient Procedures.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
700 ICD DIAGNOSIS ICD;0 POINTER Multiple #698.32 698.32

  • DESCRIPTION:  
    This field contains the ICD Diagnosis(es) for the procedure.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
701 PRIMARY PROVIDER PROV;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#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: ^
900 PCC POINTER PCC;1 POINTER TO VISIT FILE (#9000010) VISIT(#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:  698.3^APCE
    1)= S ^MCAR(698.3,"APCE",$E(X,1,30),DA)=""
    2)= K ^MCAR(698.3,"APCE",$E(X,1,30),DA)
    Pointer to the Visit file.
1000 ORIFN OR;1 POINTER TO ORDER FILE (#100) ORDER(#100)

  • LAST EDITED:  JUL 09, 1991
  • HELP-PROMPT:  Enter the 'Consult Orders' internal file number.
  • 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.
1001 GMRCO OR;2 POINTER TO REQUEST/CONSULTATION FILE (#123) REQUEST/CONSULTATION(#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.

External References

Name Field # of Occurrence
^%DT .01+1, 493+1
^DIC 55+1, 300+1, 301+1, 701+1
Y^DIQ ID1+1
CHGDTE^MCARPROC .01(XREF 2K)
CHGDTE1^MCARPROC .01(XREF 2S)
CHGPAT^MCARPROC 1(XREF 2S)
KILL^MCARPROC 1(XREF 2K)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(690 ID1+1
^DD(698.3 5+1, 7+1
^MCAR(690 - [#690] ID1+1
^MCAR(698.3 - [#698.3] .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 5OF9.2+1, 7OF9.2+1, 900(XREF 1S), 900(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 ID1+1, 5OF9.2+1, 7OF9.2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*, 493+1*
%I ID1+1*!
>> C ID1+1*
>> D0 5OF9.2+1, 7OF9.2+1
>> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 900(XREF 1S), 900(XREF 1K)
DIC ID1+1, 55+1!*, 300+1!*, 301+1!*, 701+1!*
DIC("S" 55+1*, 55SCR+1*, 300+1*, 300SCR+1*, 301+1*, 701+1*
>> DIE 55+1, 300+1, 301+1, 701+1
>> MCARCDIE .01(XREF 2S), .01(XREF 2K), 1(XREF 2S), 1(XREF 2K)
U ID1+1, 5OF9.2+1, 7OF9.2+1
X .01+1*!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 4+1!, 5+1*, 5OF9.2+1*, 6+1!, 7+1*
, 7OF9.2+1*, 11+1!, 12+1!, 13+1!, 14+1!, 16+1!, 50+1!, 51+1!, 52+1!, 53+1!
, 55+1*!, 101+1!, 102+1!, 103+1!, 104+1!, 105+1!, 121+1!, 122+1!, 123+1!, 124+1!
, 201+1!, 202+1!, 203+1!, 204+1!, 205+1!, 221+1!, 222+1!, 223+1!, 224+1!, 300+1*!
, 301+1*!, 491+1!, 493+1*!, 600+1!, 701+1*!, 900(XREF 1S), 900(XREF 1K)
>> Y ID1+1*, .01+1, 55+1, 300+1, 301+1, 493+1, 701+1
>> Y( 5+1, 5OF9.2+1*, 7+1, 7OF9.2+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