Global: ^MCAR(698.1

FileMan FileNo	FileMan Filename	Package
698.1	V LEAD IMPLANT	Medicine

Package	Total	Routines
Medicine	8	DIAGNOSIS ICD DIAGNOSIS MCAROPV MCARPCS2 MCARPCS4 MCOBPV MCPOS01E ^MCAR(698.1

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.12(.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` HELP-PROMPT: `ENTER THE DATE/TIME THE V LEAD WAS IMPLANTED` DESCRIPTION: `This field is the date/time that the procedure was entered into the database.` TECHNICAL DESCR: `ORDER ENTRY TYPE: IDENTIFIER` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `698.1^B` `1)= S ^MCAR(698.1,"B",$E(X,1,30),DA)=""` `2)= K ^MCAR(698.1,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `698.1^AC^MUMPS` `1)= S MCARCDIE="^MCAR(698.1," D CHGDTE1^MCARPROC` `2)= S MCARCDIE="^MCAR(698.1," D CHGDTE^MCARPROC` `This cross-reference pakes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent V lead implant procedure for this patient.`
1	MEDICAL PATIENT	0;2	POINTER TO MEDICAL PATIENT FILE (#690)	**********************REQUIRED FIELD********************** MEDICAL PATIENT(#690) LAST EDITED: `FEB 02, 1996` HELP-PROMPT: `Enter the patient's name, SSN, or other identifier` DESCRIPTION: `This field identifies the field which identifies the patient.` TECHNICAL DESCR: `ORDER ENTRY TYPE: IDENTIFIER` CROSS-REFERENCE: `698.1^C` `1)= S ^MCAR(698.1,"C",$E(X,1,30),DA)=""` `2)= K ^MCAR(698.1,"C",$E(X,1,30),DA)` `This cross-reference allows look-ups by patient.` CROSS-REFERENCE: `698.1^AD^MUMPS` `1)= S MCARCDIE="^MCAR(698.1," D CHGPAT^MCARPROC` `2)= S MCARCDIE="^MCAR(698.1," D KILL^MCARPROC` `This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent V lead implant procedure for this patient.`
2	V 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)[""V""" 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 trasmitter.` DESCRIPTION: `This field identifies the V Lead Model.` TECHNICAL DESCR: `ORDER ENTRY TYPE: DIAGNOSIS` SCREEN: `S DIC("S")="I $P(^MCAR(698.4,+Y,0),U,2)[""V"""` EXPLANATION: `CHOOSE LEADS THAT ARE V LEADS OR BOTH A AND V LEADS ONLY` CROSS-REFERENCE: `^^TRIGGER^698.1^3` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(698.1,2,1,1,1.1) X ^DD(698.1,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.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=698.1,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.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(698.1,2,1,1,2.1) X ^DD(698.1,2,1,1,2.4)` `2.1)= S X=DIV X ^DD(698.1,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.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=698.1,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.1,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 V LEAD MANUFACTURER field (#3).`
3	V 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 V Lead Manufacturer.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the V LEAD MODEL field of the V LEAD IMPLANT File`
4	V 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 V Lead Serial number.` TECHNICAL DESCR: `ORDER ENTRY TYPE: DIAGNOSIS`
11	V LEAD THRESHOLD IN VOLTS	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>12)!(X<0)!(X?.E1"."2N.N) X` HELP-PROMPT: `Type a Number between 0 and 12, 1 Decimal Digit` DESCRIPTION: `This field identifies the V Lead threshold in Volts.`
12	V LEAD THRESHOLD IN mA'S AT .5	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>12)!(X<0)!(X?.E1"."2N.N) X` HELP-PROMPT: `Type a Number between 0 and 12, 1 Decimal Digit` DESCRIPTION: `This field identifies the V lead threshold.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
13	V LEAD RESISTANCE (OHMS) AT 5V	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1000)!(X<0)!(X?.E1"."3N.N) X` HELP-PROMPT: `Type a Number between 0 and 1000, 2 Decimal Digits` DESCRIPTION: `This field identifies the V lead resistance.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
14	R WAVE AMPLITUDE (mV)	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>25)!(X<0)!(X?.E1"."2N.N) X` HELP-PROMPT: `Type a Number between 0 and 25, 1 Decimal Digit` DESCRIPTION: `This field identifies the R wave amplitude.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
15	V 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 field identifies the V Lead PSA used.` 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 field identifies the explant date.` TECHNICAL DESCR: `ORDER ENTRY TYPE: IDENTIFIER`
57	V 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 field identifies the V lead explant rationale.` SCREEN: `S DIC("S")="I $D(^MCAR(695.8,""AC"",""L"",+Y))"` EXPLANATION: `CHOOSE REASONS THAT APPLY TO LEAD EXPLANT 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 V-Lead Implant.` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"` CROSS-REFERENCE: `^^TRIGGER^698.1^701` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698.1,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.1,300,1,1,1.4)` `1.4)= S DIH=$S($D(^MCAR(698.1,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=698.1,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.1,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(698.1,300,1,1,2.1) X ^DD(698.1,300,1,1,2.4)` `2.1)= S X=DIV S Y(1)=$S($D(^MCAR(698.1,D0,3)):^(3),1:"") S X=$P(Y(1),U,1),X=X` `2.4)= S DIH=$S($D(^MCAR(698.1,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=698.1,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 V-Lead 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 V-Lead Implant.` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"`
500	COMMENTS	10;0	WORD-PROCESSING #698.11	TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN` HELP-PROMPT: `Enter free-text remarks on this procedure.` DESCRIPTION: `This field identifies the comment field for this procedure.` 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 is for display on the medicine 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 identifies the procedure summary.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
700	ICD DIAGNOSIS	ICD;0	POINTER Multiple #698.12	698.12 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 V 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.1^APCE` `1)= S ^MCAR(698.1,"APCE",$E(X,1,30),DA)=""` `2)= K ^MCAR(698.1,"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.1	2(XREF 1S), 2(XREF 1K), 2(XREF 1n2.1), 300(XREF 1S), 300(XREF 1K)
^MCAR(690 - [#690]	ID1+1
^MCAR(698.1 - [#698.1]	.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, 301+1, 302+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.1

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)