Global: ^MCAR(698.2

FileMan FileNo	FileMan Filename	Package
698.2	A LEAD IMPLANT	Medicine

Package	Total	Routines
Medicine	8	MCOBPA ^MCAR(698.2 DIAGNOSIS ICD DIAGNOSIS MCAROPA MCARPCS2 MCARPCS4 MCPOS01E

Package	Total	Routines
Medicine	3	MCARPAC MCARPACE MCARPCS4

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

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)]
Kernel	1	NEW PERSON(#200)[300, 301, 302, 701]
Order Entry Results Reporting	1	ORDER(#100)[1000]
PCE Patient Care Encounter	1	VISIT(#9000010)[900]

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	TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN` HELP-PROMPT: `Enter free-text remarks on this procedure.` 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 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 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.`

Name	Field # of Occurrence
^%DT	.01+1, 56+1
^DIC	2+1, 15+1, 57+1, 300+1, 301+1, 302+1, 701+1
^DICR	2(XREF 1n1.4), 2(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)

Name	Line Occurrences (* Changed, ! Killed)
^DD(	2(XREF 1n1.4), 2(XREF 1n2.4), 300(XREF 1n1.4), 300(XREF 1n2.4)
^DD(690	ID1+1
^DD(698.2	2(XREF 1S), 2(XREF 1K), 2(XREF 1n2.1), 300(XREF 1S), 300(XREF 1K)
^MCAR(690 - [#690]	ID1+1
^MCAR(698.2 - [#698.2]	.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), 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)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1, 56+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), 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), 300(XREF 1S), 300(XREF 1K), 900(XREF 1S), 900(XREF 1K)
DIC	ID1+1, 2+1!, 15+1!, 57+1!, 300+1!, 301+1!, 302+1!, 701+1!*
DIC("S"	2+1, 2SCR+1, 15+1, 15SCR+1, 57+1, 57SCR+1, 300+1, 300SCR+1, 301+1, 301SCR+1 , 302+1, 302SCR+1, 701+1*
>> DIE	2+1, 15+1, 57+1, 300+1, 301+1, 302+1, 701+1
>> DIG	2(XREF 1n1.4), 2(XREF 1n2.4), 300(XREF 1n1.4), 300(XREF 1n2.4)
>> DIH	2(XREF 1n1.4), 2(XREF 1n2.4), 300(XREF 1n1.4), 300(XREF 1n2.4)
>> DIU	2(XREF 1S), 2(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), 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), 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)
>> 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), 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!, 11+1!, 12+1!, 13+1!, 14+1!, 15+1!, 56+1!, 57+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), 15+1, 56+1, 57+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), 300(XREF 1S), 300(XREF 1K), 300(XREF 1n2.1)
Y(101	2(XREF 1n1.1), 2(XREF 1n2.1), 2(XREF 1n59.2)

Customize PDF page

Package: Medicine

Global: ^MCAR(698.2

Information

Description

Directly Accessed By Routines, Total: 8

Accessed By FileMan Db Calls, Total: 3

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 9

Fields, Total: 23

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

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)
^(3	300(XREF 1n2.1)