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

Package: Medicine

Global: ^MCAR(698


Information

FileMan FileNo FileMan Filename Package
698 GENERATOR IMPLANT Medicine

Description

Directly Accessed By Routines, Total: 15

Package Total Routines
Medicine 13 DIAGNOSIS    ICD DIAGNOSIS    MCARGES    MCAROPG    MCAROPG1    MCARPACE    MCARPAL    MCARPCE
MCARPCS1    MCARPCS4    MCOBPG    MCPOS01E    ^MCAR(698    

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

Package Total FileMan Files
Medicine 4 MEDICAL PATIENT(#690)[1]    REASON (MEDICINE)(#695.8)[99]    PACEMAKER EQUIPMENT(#698.4)[212]    PACEMAKER MANUFACTURER(#698.6)[313]    
Kernel 2 INSTITUTION(#4)[7]    NEW PERSON(#200)[300301302701]    
Consult Request Tracking 1 REQUEST/CONSULTATION(#123)[1001]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[#698.02(.01)]    
Order Entry Results Reporting 1 ORDER(#100)[1000]    
PCE Patient Care Encounter 1 VISIT(#9000010)[900]    

Fields, Total: 40

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
  • LAST EDITED:  JAN 12, 1989
  • HELP-PROMPT:  ENTER THE DATE/TIME THAT THE IMPLANT WAS DONE
  • DESCRIPTION:  
    This allows analysis based on time.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: IDENTIFIER
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  698^B
    1)= S ^MCAR(698,"B",$E(X,1,30),DA)=""
    2)= K ^MCAR(698,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  698^AC^MUMPS
    1)= S MCARCDIE="^MCAR(698," D CHGDTE1^MCARPROC
    2)= S MCARCDIE="^MCAR(698," D CHGDTE^MCARPROC
    This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent generator implant procedure for this patient.
1 MEDICAL PATIENT 0;2 POINTER TO MEDICAL PATIENT FILE (#690)
************************REQUIRED FIELD************************
MEDICAL PATIENT(#690)

  • LAST EDITED:  JAN 12, 1989
  • HELP-PROMPT:  Enter the patient's name, SSN, or other identifier
  • DESCRIPTION:  
    Patient's name.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: IDENTIFIER
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  698^C
    1)= S ^MCAR(698,"C",$E(X,1,30),DA)=""
    2)= K ^MCAR(698,"C",$E(X,1,30),DA)
    This cross-reference allows look-ups by patient.
  • CROSS-REFERENCE:  698^AD^MUMPS
    1)= S MCARCDIE="^MCAR(698," D CHGPAT^MCARPROC
    2)= S MCARCDIE="^MCAR(698," D KILL^MCARPROC
    This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent generator implant procedure for this patient.
2 PACEMAKER MODEL 0;3 POINTER TO PACEMAKER EQUIPMENT FILE (#698.4) PACEMAKER EQUIPMENT(#698.4)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^MCAR(698.4,""C"",""G"",+Y))" 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 model.
  • DESCRIPTION:  
    This field identifies the device by the manufacturer's production name.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
  • SCREEN:  S DIC("S")="I $D(^MCAR(698.4,""C"",""G"",+Y))"
  • EXPLANATION:  CHOOSE GENERATORS ONLY
  • CROSS-REFERENCE:  ^^TRIGGER^698^3
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(698,2,1,1,1.1) X ^DD(698,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,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=698,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,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(698,2,1,1,2.1) X ^DD(698,2,1,1,2.4)
    2.1)= S X=DIV X ^DD(698,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,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=698,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,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-refference triggers the PACEMAKER MANUFACTURER field (#3).
3 PACEMAKER MANUFACTURER 0;4 POINTER TO PACEMAKER MANUFACTURER FILE (#698.6) PACEMAKER MANUFACTURER(#698.6)

  • HELP-PROMPT:  Enter the name of the producer of this pacemaker.
  • DESCRIPTION:  
    This field identifies the producer of the pacemaker.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the PACEMAKER MODEL field of the GENERATOR IMPLANT File
4 PACEMAKER 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: UNKNOWN
6 PACING MODE 0;6 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;
  • '13' FOR VVIR;

  • LAST EDITED:  APR 09, 1992
  • HELP-PROMPT:  Enter a code indicating the pacing mode of this unit.
  • DESCRIPTION:  
    This defines the operation established with the device.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
6.1 OTHER PACING MODE EXPLANATION 4;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3) X
  • LAST EDITED:  APR 09, 1992
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
  • DESCRIPTION:  
    This field permits an explanation of the pacing mode if "OTHER" is chosen at the PACING MODE prompt. It does not apply if anything besides "OTHER" is chosen at the PACING MODE prompt.
7 HOSP WHERE IMPLANT OCCURRED 0;8 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  DEC 30, 1993
  • HELP-PROMPT:  Enter the name of the hospital where this implat was performed.
  • DESCRIPTION:  
    This field identifies the facility where the implant procedure was performed.
12 TRANSMITTER MODEL 1;3 POINTER TO PACEMAKER EQUIPMENT FILE (#698.4) PACEMAKER EQUIPMENT(#698.4)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^MCAR(698.4,""C"",""T"",+Y))" 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.
  • SCREEN:  S DIC("S")="I $D(^MCAR(698.4,""C"",""T"",+Y))"
  • EXPLANATION:  CHOOSE TELEPHONE TRANSMITTERS ONLY
  • CROSS-REFERENCE:  ^^TRIGGER^698^13
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698,D0,1)):^(1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(698,12,1,1,1.1) X ^DD(698,12,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,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,4)=DIV,DIH=698,DIG=13 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,D0,1)):^(1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(698,12,1,1,2.1) X ^DD(698,12,1,1,2.4)
    2.1)= S X=DIV X ^DD(698,12,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,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,4)=DIV,DIH=698,DIG=13 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,D0,1)):^(1),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(#12:#2)
    DELETE VALUE)= INTERNAL(#12:#2)
    FIELD)= #13
    This cross-reference triggers the TRANSMITTER MANUFACTURER field (#13).
13 TRANSMITTER MANUFACTURER 1;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 transmitter.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the TRANSMITTER MODEL field of the GENERATOR IMPLANT File
14 LEADS (A,V,AV) 0;7 SET
************************REQUIRED FIELD************************
  • 'A' FOR ATRIAL;
  • 'V' FOR VENTRICULAR;
  • 'AV' FOR BOTH A & V;

  • LAST EDITED:  APR 24, 1989
  • HELP-PROMPT:  Specify whether (A)trial and/or (V)entricular conductors were established.
  • DESCRIPTION:  
    This describes the placement/type of conductors established.
19 IMPLANTATION ETIOLOGY 0;11 SET
  • '1' FOR CONDUCTION TISSUE FIBROSIS;
  • '2' FOR ISCHEMIA;
  • '3' FOR POST INFARCTION;
  • '4' FOR SURGICAL;
  • '5' FOR CONGENITAL;
  • '6' FOR MYOCARDIOPATHY;
  • '7' FOR VALVULAR HEART DISEASE;
  • '8' FOR CAROTID SINUS SYNDROME;
  • '9' FOR IDIOPATHIC;
  • '10' FOR OTHER;

  • LAST EDITED:  FEB 07, 1989
  • HELP-PROMPT:  Enter a code based on the patient's history leading to this procedure.
  • DESCRIPTION:  
    This allows for the storage of historical patient data.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
30 FIRST SCHEDULED F/U VISIT 0;12 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter the date of the first scheduled follow-up visit.
  • DESCRIPTION:  
    This allows documentation of the primary visit.
32 NON-MAG RATE AT BEGIN-OF-LIFE 4;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>150)!(X<40)!(X?.E1"."2N.N) X
  • LAST EDITED:  FEB 11, 1991
  • HELP-PROMPT:  Type a Number between 40 and 150, 1 Decimal Digit
  • DESCRIPTION:  
    This allows documentation of initial rate.
34 MAGNET RATE AT BEGIN-OF-LIFE 4;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>150)!(X<40)!(X?.E1"."2N.N) X
  • LAST EDITED:  FEB 11, 1991
  • HELP-PROMPT:  Type a Number between 40 and 150, 1 Decimal Digit
  • DESCRIPTION:  
    This allows documentation of initial rate.
36 NON-MAG PULSE WIDTH AT B-O-L 4;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>3)!(X<.1)!(X?.E1"."3N.N) X
  • LAST EDITED:  FEB 21, 1990
  • HELP-PROMPT:  Type a Number between .1 and 3, 2 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of initial width.
38 MAGNET PULSE WIDTH AT B-O-L 4;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>3)!(X<.1)!(X?.E1"."3N.N) X
  • LAST EDITED:  FEB 21, 1990
  • HELP-PROMPT:  Type a Number between .1 and 3, 2 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of initial width.
40 OTHER BEGIN-OF-LIFE INDICATOR 4;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<3) X
  • HELP-PROMPT:  ANSWER MUST BE 3-25 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This allows other initial documentation.
42 NON-MAG RATE AT END-OF-LIFE 4;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>150)!(X<20)!(X?.E1"."2N.N) X
  • LAST EDITED:  FEB 11, 1991
  • HELP-PROMPT:  Type a Number between 20 and 150, 1 Decimal Digit
  • DESCRIPTION:  
    This allows documentation of terminal rate.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
44 MAGNET RATE AT END-OF-LIFE 4;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>150)!(X<20)!(X?.E1"."2N.N) X
  • LAST EDITED:  FEB 11, 1991
  • HELP-PROMPT:  Type a Number between 20 and 150, 1 Decimal Digit
  • DESCRIPTION:  
    This allows documentation of terminal rate.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
46 NON-MAG PULSE WIDTH AT E-O-L 4;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>3)!(X<.1)!(X?.E1"."3N.N) X
  • LAST EDITED:  FEB 21, 1990
  • HELP-PROMPT:  Type a Number between .1 and 3, 2 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of terminal width.
48 MAGNET PULSE WIDTH AT E-O-L 4;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>3)!(X<.1)!(X?.E1"."3N.N) X
  • LAST EDITED:  FEB 21, 1990
  • HELP-PROMPT:  Type a Number between .1 and 3, 2 Decimal Digits
  • DESCRIPTION:  
    This allows documentation of terminal width.
50 OTHER END-OF-LIFE INDICATOR 4;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<3) X
  • HELP-PROMPT:  ANSWER MUST BE 3-25 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This allows documentation of other terminal parameters.
70 NO. PULSE GENERATORS 0;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 1 and 20, 0 Decimal Digits
  • DESCRIPTION:  
    This field identifies the sequential value of this generator.
75 DATE OF LAST PREVIOUS IMPLANT 0;14 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter the date of the most recent previous implantation, if any.
  • DESCRIPTION:  
    This allows documentation of previous implantations.
90 DATE OF INCIPIENT MALFUNCTION 1;6 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter the date when the unit began to show signs of failure.
  • DESCRIPTION:  
    This allows documentation of malfunction date.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
93 PACING FAILURE (EKG) 2;0 SET Multiple #698.093 698.093

  • DESCRIPTION:  
    This allows documentation of failures.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
96 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 generator removal.
99 REASON FOR GENERATOR CHANGE 1;2 POINTER TO REASON (MEDICINE) FILE (#695.8) REASON (MEDICINE)(#695.8)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^MCAR(695.8,""AC"",""P"",+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 change rationale.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE: UNKNOWN
  • SCREEN:  S DIC("S")="I $D(^MCAR(695.8,""AC"",""P"",+Y))"
  • EXPLANATION:  CHOOSE REASONS FOR EXPLANTING PACEMAKERS 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
  • DESCRIPTION:  
    This field identifies the name of the Attending Physician for this Generator Implant.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
  • CROSS-REFERENCE:  ^^TRIGGER^698^701
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698,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,300,1,1,1.4)
    1.4)= S DIH=$S($D(^MCAR(698,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=698,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,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(698,300,1,1,2.1) X ^DD(698,300,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^MCAR(698,D0,3)):^(3),1:"") S X=$P(Y(1),U,1),X=X
    2.4)= S DIH=$S($D(^MCAR(698,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=698,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:  OCT 25, 1994
  • DESCRIPTION:  
    This field identifies the name of a Cardiology Fellow for this Generator Implant.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
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:  OCT 25, 1994
  • DESCRIPTION:  
    This field identifies the name of a second Cardiology Fellow for this Generator Implant.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
500 COMMENTS 10;0 WORD-PROCESSING #698.01

  • DESCRIPTION:  
    This allows a documentation area of free form.
  • LAST EDITED:  JAN 12, 1989
  • HELP-PROMPT:  Enter free-text remarks on this procedure.
  • DESCRIPTION:  
    This field identifies the free text documentation area.
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 of the Generator Implant. This summary (up to 79 characters) 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
  • DESCRIPTION:  
    This field identifies a required summary of the implant (Abnormal,Borderline,Normal). This summary will appear on the Summary of Patient Procedures.
700 ICD DIAGNOSIS ICD;0 POINTER Multiple #698.02 698.02

  • 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: ^
  • NOTES:  TRIGGERED by the ATTENDING PHYSICIAN field of the GENERATOR 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^APCE
    1)= S ^MCAR(698,"APCE",$E(X,1,30),DA)=""
    2)= K ^MCAR(698,"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, 30+1, 75+1, 90+1, 96+1
^DIC 2+1, 12+1, 99+1, 300+1, 301+1, 302+1, 701+1
^DICR 2(XREF 1n1.4), 2(XREF 1n2.4), 12(XREF 1n1.4), 12(XREF 1n2.4), 300(XREF 1n1.4), 300(XREF 1n2.4)
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( 2(XREF 1n1.4), 2(XREF 1n2.4), 12(XREF 1n1.4), 12(XREF 1n2.4), 300(XREF 1n1.4), 300(XREF 1n2.4)
^DD(690 ID1+1
^DD(698 2(XREF 1S), 2(XREF 1K), 2(XREF 1n2.1), 12(XREF 1S), 12(XREF 1K), 12(XREF 1n2.1), 300(XREF 1S), 300(XREF 1K)
^MCAR(690 - [#690] ID1+1
^MCAR(698 - [#698] .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1n1.4), 2(XREF 1K), 2(XREF 1n2.4), 2(XREF 1n59.2), 12(XREF 1S)
12(XREF 1n1.4), 12(XREF 1K), 12(XREF 1n2.4), 12(XREF 1n59.2), 300(XREF 1S), 300(XREF 1n1.4), 300(XREF 1K), 300(XREF 1n2.1), 300(XREF 1n2.4), 900(XREF 1S)
900(XREF 1K)
^MCAR(698.4 - [#698.4] 2(XREF 1n1.1), 2(XREF 1n59.2), 12(XREF 1n1.1), 12(XREF 1n59.2)

Naked Globals

Name Field # of Occurrence
^("PROV" 300(XREF 1S), 300(XREF 1n1.4), 300(XREF 1K), 300(XREF 1n2.4)
^(0 ID1+1, 2(XREF 1S), 2(XREF 1n1.1), 2(XREF 1n1.4), 2(XREF 1K), 2(XREF 1n2.4), 2(XREF 1n59.2), 12(XREF 1n1.1), 12(XREF 1n59.2)
^(1 12(XREF 1S), 12(XREF 1n1.4), 12(XREF 1K), 12(XREF 1n2.4), 12(XREF 1n59.2)
^(3 300(XREF 1n2.1)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*, 30+1*, 75+1*, 90+1*, 96+1*
%I ID1+1*!
>> C ID1+1*
>> D0 2(XREF 1S), 2(XREF 1n1.1), 2(XREF 1K), 2(XREF 1n2.1), 2(XREF 1n59.2), 12(XREF 1S), 12(XREF 1n1.1), 12(XREF 1K), 12(XREF 1n2.1), 12(XREF 1n59.2)
300(XREF 1S), 300(XREF 1K), 300(XREF 1n2.1)
>> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 12(XREF 1S), 12(XREF 1K), 300(XREF 1S), 300(XREF 1K)
900(XREF 1S), 900(XREF 1K)
DIC ID1+1, 2+1!*, 12+1!*, 99+1!*, 300+1!*, 301+1!*, 302+1!*, 701+1!*
DIC("S" 2+1*, 2SCR+1*, 12+1*, 12SCR+1*, 99+1*, 99SCR+1*, 300+1*, 301+1*, 302+1*, 701+1*
>> DIE 2+1, 12+1, 99+1, 300+1, 301+1, 302+1, 701+1
>> DIG 2(XREF 1n1.4), 2(XREF 1n2.4), 12(XREF 1n1.4), 12(XREF 1n2.4), 300(XREF 1n1.4), 300(XREF 1n2.4)
>> DIH 2(XREF 1n1.4), 2(XREF 1n2.4), 12(XREF 1n1.4), 12(XREF 1n2.4), 300(XREF 1n1.4), 300(XREF 1n2.4)
>> DIU 2(XREF 1S), 2(XREF 1K), 12(XREF 1S), 12(XREF 1K), 300(XREF 1S), 300(XREF 1K)
DIV 2(XREF 1S), 2(XREF 1n1.1), 2(XREF 1n1.4), 2(XREF 1K), 2(XREF 1n2.1), 2(XREF 1n2.4), 12(XREF 1S), 12(XREF 1n1.1), 12(XREF 1n1.4), 12(XREF 1K)
12(XREF 1n2.1), 12(XREF 1n2.4), 300(XREF 1S), 300(XREF 1n1.4), 300(XREF 1K), 300(XREF 1n2.1), 300(XREF 1n2.4)
DIV(0 2(XREF 1S), 2(XREF 1n1.4), 2(XREF 1K), 2(XREF 1n2.4), 12(XREF 1S), 12(XREF 1n1.4), 12(XREF 1K), 12(XREF 1n2.4), 300(XREF 1S), 300(XREF 1n1.4)
300(XREF 1K), 300(XREF 1n2.4)
>> I(0 2(XREF 1n1.1), 2(XREF 1n2.1), 2(XREF 1n59.2), 12(XREF 1n1.1), 12(XREF 1n2.1), 12(XREF 1n59.2)
>> MCARCDIE .01(XREF 2S), .01(XREF 2K), 1(XREF 2S), 1(XREF 2K)
U ID1+1, 2(XREF 1S), 2(XREF 1n1.1), 2(XREF 1n1.4), 2(XREF 1K), 2(XREF 1n2.1), 2(XREF 1n2.4), 2(XREF 1n59.2), 12(XREF 1S), 12(XREF 1n1.1)
12(XREF 1n1.4), 12(XREF 1K), 12(XREF 1n2.1), 12(XREF 1n2.4), 12(XREF 1n59.2), 300(XREF 1S), 300(XREF 1n1.4), 300(XREF 1K), 300(XREF 1n2.1), 300(XREF 1n2.4)
X .01+1*!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2+1*!, 2(XREF 1S), 2(XREF 1n1.1), 2(XREF 1n1.4), 2(XREF 1K)
2(XREF 1n2.1), 2(XREF 1n2.4), 4+1!, 6.1+1!, 12+1*!, 12(XREF 1S), 12(XREF 1n1.1), 12(XREF 1n1.4), 12(XREF 1K), 12(XREF 1n2.1)
12(XREF 1n2.4), 30+1*!, 32+1!, 34+1!, 36+1!, 38+1!, 40+1!, 42+1!, 44+1!, 46+1!
, 48+1!, 50+1!, 70+1!, 75+1*!, 90+1*!, 96+1*!, 99+1*!, 300+1*!, 300(XREF 1S), 300(XREF 1n1.4)
300(XREF 1K), 300(XREF 1n2.1), 300(XREF 1n2.4), 301+1*!, 302+1*!, 600+1!, 701+1*!, 900(XREF 1S), 900(XREF 1K)
Y ID1+1*, .01+1, 2+1, 2(XREF 1S), 2(XREF 1K), 12+1, 12(XREF 1S), 12(XREF 1K), 30+1, 75+1
, 90+1, 96+1, 99+1, 300+1, 300(XREF 1S), 300(XREF 1K), 301+1, 302+1, 701+1
Y(1 2(XREF 1S), 2(XREF 1K), 2(XREF 1n59.2), 12(XREF 1S), 12(XREF 1K), 12(XREF 1n59.2), 300(XREF 1S), 300(XREF 1K), 300(XREF 1n2.1)
Y(101 2(XREF 1n1.1), 2(XREF 1n2.1), 2(XREF 1n59.2), 12(XREF 1n1.1), 12(XREF 1n2.1), 12(XREF 1n59.2)
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