Global: ^MCAR(698.1

FileMan FileNo	FileMan Filename	Package
698.1	V LEAD IMPLANT	Medicine

Package	Total	Routines
Medicine	5	MCAROPV MCARPCS2 MCARPCS4 MCOBPV 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.12(.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` 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	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. 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 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.

Customize PDF page

Package: Medicine

Global: ^MCAR(698.1

Information

Description

Directly Accessed By Routines, Total: 5

Accessed By FileMan Db Calls, Total: 3

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 9

Fields, Total: 23