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

Package: Medicine

Global: ^MCAR(698.2


Information

FileMan FileNo FileMan Filename Package
698.2 A LEAD IMPLANT Medicine

Description

Directly Accessed By Routines, Total: 5

Package Total Routines
Medicine 5 MCAROPA    MCARPCS2    MCARPCS4    MCOBPA    MCPOS01E    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Medicine 3 MCARPAC    MCARPACE    MCARPCS4    

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: 9

Package Total FileMan Files
Medicine 4 MEDICAL PATIENT(#690)[1]    REASON (MEDICINE)(#695.8)[57]    PACEMAKER EQUIPMENT(#698.4)[2, 15]    PACEMAKER MANUFACTURER(#698.6)[3]    
Consult Request Tracking 1 REQUEST/CONSULTATION(#123)[1001]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[#698.22(.01)]    
IHS Patient 1 VISIT(#9000010)[900]    
Kernel 1 NEW PERSON(#200)[300, 301, 302, 701]    
Order Entry Results Reporting 1 ORDER(#100)[1000]    

Fields, Total: 23

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

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • DESCRIPTION:  
    This allows analysis based on time.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  IDENTIFIER
  • CROSS-REFERENCE:  698.2^B
    1)= S ^MCAR(698.2,"B",$E(X,1,30),DA)=""
    2)= K ^MCAR(698.2,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  698.2^AC^MUMPS
    1)= S MCARCDIE="^MCAR(698.2," D CHGDTE1^MCARPROC
    2)= S MCARCDIE="^MCAR(698.2," D CHGDTE^MCARPROC
    This cross-reference makes an entry under the 'AD' index of the MEDICAL PATIENT file (#690) to record the most recent A lead implant procedure for this patient.
1 MEDICAL PATIENT 0;2 POINTER TO MEDICAL PATIENT FILE (#690) 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.2^C
    1)= S ^MCAR(698.2,"C",$E(X,1,30),DA)=""
    2)= K ^MCAR(698.2,"C",$E(X,1,30),DA)
    This cross-reference allows look-ups by patient.
  • CROSS-REFERENCE:  698.2^AD^MUMPS
    1)= S MCARCDIE="^MCAR(698.2," D CHGPAT^MCARPROC
    2)= S MCARCDIE="^MCAR(698.2," D KILL^MCARPROC
    This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent A lead implant procedure for this patient.
2 A LEAD MODEL 0;3 POINTER TO PACEMAKER EQUIPMENT FILE (#698.4) PACEMAKER EQUIPMENT(#698.4)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^MCAR(698.4,+Y,0),U,2)[""A""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 23, 1996
  • HELP-PROMPT:  Enter the manufacturer's production name for this transmitter.
  • DESCRIPTION:  
    This field identifies the device by the manufacturer's production name.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  DIAGNOSIS
  • SCREEN:  S DIC("S")="I $P(^MCAR(698.4,+Y,0),U,2)[""A"""
  • EXPLANATION:  CHOOSE LEADS THAT ARE A LEAD OR BOTH A AND V LEADS ONLY
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^698.2^3
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(698.2,2,1,1,1.1) X ^DD(698.2,2,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^MCAR(698.4,+D0,0)) D0=-1 S Y(101)=$S($D(^MCAR(698.4,D0,0)):^(0),1:"") S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^MCAR(698.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=698.2,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(698.2,2,1,1,2.1) X ^DD(698.2,2,1,1,2.4)
    2.1)= S X=DIV X ^DD(698.2,2,1,1,59.2) S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)
    2.4)= S DIH=$S($D(^MCAR(698.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=698.2,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^MCAR(698.2,D0,0)):^(0),1:""),D0=$P(Y(1),U,3) S:'$D(^MCAR(698.4,+D0,0)) D0=-1 S Y(101)=$S($D(^MCAR(698.4,D0,0)):^(0),1:"")
    CREATE VALUE)= INTERNAL(#2:#2)
    DELETE VALUE)= INTERNAL(#2:#2)
    FIELD)= #3
    This cross-reference triggers the A LEAD MANUFACTURER field (#3).
3 A LEAD MANUFACTURER 0;4 POINTER TO PACEMAKER MANUFACTURER FILE (#698.6) PACEMAKER MANUFACTURER(#698.6)

  • HELP-PROMPT:  Enter the producer of this transmitter.
  • DESCRIPTION:  
    This field identifies the producer of the lead.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the A LEAD MODEL field of the A LEAD IMPLANT File
4 A LEAD SERIAL NUMBER 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<2) X
  • HELP-PROMPT:  ANSWER MUST BE 2-12 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field identifies the specific device.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  DIAGNOSIS
11 A LEAD THRESHOLD IN VOLTS 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>12)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  FEB 21, 1990
  • HELP-PROMPT:  Type a Number between 0 and 12, 1 Decimal Digit
  • DESCRIPTION:  
    This allows documentation of an initial threshold parameter.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
12 A LEAD THRESHOLD IN mA's AT .5 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>12)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  FEB 21, 1990
  • HELP-PROMPT:  Type a Number between 0 and 12, 1 Decimal Digit
  • DESCRIPTION:  
    This allows documentation of an initial threshold parameter.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
13 A LEAD RESISTANCE (OHMS) AT 5V 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>1000)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  FEB 21, 1990
  • HELP-PROMPT:  Type a Number between 0 and 1000, 2 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of an initial resistance parameter.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
14 P WAVE AMPLITUDE (MV) 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>25)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  FEB 21, 1990
  • HELP-PROMPT:  Type a Number between 0 and 25, 1 Decimal Digit
  • DESCRIPTION:  
    This allows documentation of the initial amplitude parameter.
15 A LEAD PSA USED 0;10 POINTER TO PACEMAKER EQUIPMENT FILE (#698.4) PACEMAKER EQUIPMENT(#698.4)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^MCAR(698.4,""C"",""P"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • DESCRIPTION:  
    This allows documentation of lead implementation.
  • SCREEN:  S DIC("S")="I $D(^MCAR(698.4,""C"",""P"",+Y))"
  • EXPLANATION:  CHOOSE PSA EQUIPMENT TYPE ONLY
56 EXPLANT DATE 1;1 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter the date that this apparatus was removed.
  • DESCRIPTION:  
    This allows documentation of lead removal.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
57 A LEAD EXPLANT REASON 1;2 POINTER TO REASON (MEDICINE) FILE (#695.8) REASON (MEDICINE)(#695.8)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^MCAR(695.8,""AC"",""L"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • HELP-PROMPT:  Enter the reason for this explant/implant procedure.
  • DESCRIPTION:  
    This allows documentation of explant rationale.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
  • SCREEN:  S DIC("S")="I $D(^MCAR(695.8,""AC"",""L"",+Y))"
  • EXPLANATION:  CHOOSE REASONS ASSOSCIATED WITH 'LEADS' ONLY
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:  APR 23, 1996
  • HELP-PROMPT:  Enter the attending Physician
  • DESCRIPTION:  
    This field identifies the name of the Attending Physician for this A-Lead Implant.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
  • EXPLANATION:  Only select Providers!
  • CROSS-REFERENCE:  ^^TRIGGER^698.2^701
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698.2,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(698.2,300,1,1,1.4)
    1.4)= S DIH=$S($D(^MCAR(698.2,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=698.2,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698.2,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(698.2,300,1,1,2.1) X ^DD(698.2,300,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^MCAR(698.2,D0,3)):^(3),1:"") S X=$P(Y(1),U,1),X=X
    2.4)= S DIH=$S($D(^MCAR(698.2,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=698.2,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= INTERNAL(#300)
    DELETE VALUE)= INTERNAL(#300)
    FIELD)= #701
    This trigger sets the primary provider file.
301 FELLOW-1st 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:  SEP 12, 1994
  • HELP-PROMPT:  Enter the 1st Fellow.
  • DESCRIPTION:  
    This field identifies the name of a Cardiology Fellow for this A-Lead Implant.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
  • EXPLANATION:  Only allow Providers!
302 FELLOW-2nd 3;3 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:  SEP 12, 1994
  • DESCRIPTION:  
    This field identifies the name of a second Cardiology Fellow for this A-Lead Implant.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
  • EXPLANATION:  Only allow Providers!
500 COMMENTS 10;0 WORD-PROCESSING #698.21

  • DESCRIPTION:  
    This allows a documentation area of free form.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
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 1-79 character field will be displayed on the medical procedure summary report.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
601 SUMMARY .2;1 SET
************************REQUIRED FIELD************************
  • 'A' FOR ABNORMAL;
  • 'N' FOR NORMAL;

  • LAST EDITED:  NOV 21, 1990
  • DESCRIPTION:  
    This field summarizes the results of the procedure.
700 ICD DIAGNOSIS ICD;0 POINTER Multiple #698.22 698.22

  • DESCRIPTION:  
    This field identifies the ICD9 Diagnosis(es) for the procedure.  The field also contains a NARRATIVE DIAGNOSIS sub-field which will be used in the future.
  • 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:  ^
  • NOTES:  TRIGGERED by the ATTENDING PHYSICIAN field of the A LEAD IMPLANT File
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.2^APCE
    1)= S ^MCAR(698.2,"APCE",$E(X,1,30),DA)=""
    2)= K ^MCAR(698.2,"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.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All