Global: ^MCAR(698.3

FileMan FileNo	FileMan Filename	Package
698.3	PACEMAKER SURVEILLANCE	Medicine

Package	Total	Routines
Medicine	10	DIAGNOSIS ICD DIAGNOSIS MCAROPS MCAROPS1 MCARPCE MCARPCS3 MCOBPS MCOBPS1 MCPOS01E ^MCAR(698.3
Clinical Procedures	1	MDCVT1

Package	Total	Routines
Medicine	3	MCARPAC MCARPCE MCARPCS3

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

Package	Total	FileMan Files
Medicine	3	MEDICAL PATIENT(#690)[1] REASON (MEDICINE)(#695.8)[55] NON-MAGNET ECG RHYTHM(#698.9)[15]
Consult Request Tracking	1	REQUEST/CONSULTATION(#123)[1001]
DRG Grouper	1	ICD DIAGNOSIS(#80)[#698.32(.01)]
Kernel	1	NEW PERSON(#200)[2, 300, 301, 701]
Order Entry Results Reporting	1	ORDER(#100)[1000]
PCE Patient Care Encounter	1	VISIT(#9000010)[900]

Fields, Total: 55

Field #	Name	Loc	Type	Details
.01	DATE/TIME	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `ENTER THE DATE AND TIME OF CLINIC SURVEILLANCE VISIT OR TELEPHONE CONTACT` DESCRIPTION: `This allows analysis based on time.` TECHNICAL DESCR: `ORDER ENTRY TYPE: IDENTIFIER` CROSS-REFERENCE: `698.3^B` `1)= S ^MCAR(698.3,"B",$E(X,1,30),DA)=""` `2)= K ^MCAR(698.3,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `698.3^AC^MUMPS` `1)= S MCARCDIE="^MCAR(698.3," D CHGDTE1^MCARPROC` `2)= S MCARCDIE="^MCAR(698.3," D CHGDTE^MCARPROC` `This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent pacemaker surveillance procedure for this patient.`
1	MEDICAL PATIENT	0;2	POINTER TO MEDICAL PATIENT FILE (#690)	**********************REQUIRED FIELD********************** 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.3^C` `1)= S ^MCAR(698.3,"C",$E(X,1,30),DA)=""` `2)= K ^MCAR(698.3,"C",$E(X,1,30),DA)` `This cross-reference allows look-ups by patient.` CROSS-REFERENCE: `698.3^AD^MUMPS` `1)= S MCARCDIE="^MCAR(698.3," D CHGPAT^MCARPROC` `2)= S MCARCDIE="^MCAR(698.3," D KILL^MCARPROC` `This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent pacemaker surveillance procedure for this patient.`
2	CALLER	0;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) HELP-PROMPT: `Enter the surveillance operator.` DESCRIPTION: `This field identifies the surveillance operator.`
3	DATA GATHERING MODE	0;4	SET	**********************REQUIRED FIELD********************** 'T' FOR TELEPHONE; 'C' FOR CLINIC; LAST EDITED: `NOV 30, 1990` HELP-PROMPT: `Enter T for Telephone or C for Clinic for surveillance technique.` DESCRIPTION: `This defines the surveillance technique.`
4	PULSE INTERVAL (MSEC) WO MAG	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>3000)!(X<200)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 200 and 3000, 0 Decimal Digits` DESCRIPTION: `This allows documentation of a current rate parameter.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
5	RATE WO MAG		COMPUTED	MUMPS CODE: `X ^DD(698.3,5,9.2) S X=$S(Y(698.3,5,2):Y(698.3,5,3),Y(698.3,5,4):X) S X=$J(X,0,1)` `9.2 = S Y(698.3,5,1)=$S($D(^MCAR(698.3,D0,0)):^(0),1:"") S X=$P(Y(698.3,5,1),U,7)="",Y(698.3,5,2)=X S X="",Y(698.3,5,3)=X S X=1,Y(698.3,5,4)=X S X=60000,X=$S($P(Y(698.3,5,1),U,7):X/$P(Y(698.3,5,1),U,7),1:"*******")` ALGORITHM: `$S(#4="":"",1:60000/#4) (ALWAYS 1 DECIMAL DIGITS)` DESCRIPTION: `This allows documentation of a current rate parameter.`
6	PULSE INTERVAL (MSEC) W MAG	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>3000)!(X<200)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 200 and 3000, 0 Decimal Digits` DESCRIPTION: `This allows documentation of a current rate parameter.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
7	RATE W MAG		COMPUTED	MUMPS CODE: `X ^DD(698.3,7,9.2) S X=$S(Y(698.3,7,2):Y(698.3,7,3),Y(698.3,7,4):X) S X=$J(X,0,1)` `9.2 = S Y(698.3,7,1)=$S($D(^MCAR(698.3,D0,0)):^(0),1:"") S X=$P(Y(698.3,7,1),U,8)="",Y(698.3,7,2)=X S X="",Y(698.3,7,3)=X S X=1,Y(698.3,7,4)=X S X=60000,X=$S($P(Y(698.3,7,1),U,8):X/$P(Y(698.3,7,1),U,8),1:"*******")` ALGORITHM: `$S(#6="":"",1:60000/#6) (ALWAYS 1 DECIMAL DIGITS)` DESCRIPTION: `This allows documentation of a current rate parameter.`
11	A-V DELAY WO MAG (MSEC)	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 1000, 0 Decimal Digits` DESCRIPTION: `This allows documentation of a current rhythm parameter.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
12	A-V DELAY W MAG (MSEC)	0;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 1000, 0 Decimal Digits` DESCRIPTION: `This allows documentation of a current rhythm parameter.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
13	BATTERY VOLTAGE	0;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>10)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `FEB 11, 1991` HELP-PROMPT: `Type a Number between 0 and 10, 2 Decimal Digits` DESCRIPTION: `This allows documentation of current power state.`
14	RESISTANCE	0;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>10)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `FEB 11, 1991` HELP-PROMPT: `Type a Number between 0 and 10, 2 Decimal Digits` DESCRIPTION: `This allows documentation of the current ohms parameter.`
15	BASIC RHYTHM	0;9	POINTER TO NON-MAGNET ECG RHYTHM FILE (#698.9)	NON-MAGNET ECG RHYTHM(#698.9) LAST EDITED: `JAN 13, 1989` HELP-PROMPT: `Enter documentation of the current rhythm, pointer to Non-Magnet ECG Rhythm File (#698.9).` DESCRIPTION: `This allows documentation of the current rhythm.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
16	PERCENT OF PACED BEATS	0;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 100, 0 Decimal Digits` DESCRIPTION: `This allows documentation of the current rate of generator activity.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
50	REPROGRAMMED RATE	0;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>300)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `FEB 11, 1991` HELP-PROMPT: `Type a Number between 0 and 300, 1 Decimal Digit` DESCRIPTION: `This allows documentation of rate adjustments.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
51	REPROG. UPPER RATE LIMIT	0;16	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>300)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 300, 0 Decimal Digits` DESCRIPTION: `This allows documentation of a rate adjustment.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
52	REPROGRAMMED A-V DELAY (MSECS)	0;17	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>500)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 500, 0 Decimal Digits` DESCRIPTION: `This allows documentation of a rhythm adjustment.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
53	REPROGRAMMED HYSTERESIS	0;18	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 100, 0 Decimal Digits` DESCRIPTION: `This allows documentation of a hysteresis adjustment.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
54	REPROGRAMMED PACING MODE	0;19	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; HELP-PROMPT: `Enter Code for adjustment to device operations.` DESCRIPTION: `This allows documentation of an adjustment to device operations.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
55	REASON FOR REPROGRAMMING	0;20	POINTER TO REASON (MEDICINE) FILE (#695.8)	REASON (MEDICINE)(#695.8) INPUT TRANSFORM: `S DIC("S")="I $D(^MCAR(695.8,""AC"",""R"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` HELP-PROMPT: `Enter adjustment rationale, pointer to Reason (Medicine) File (#695.8).` DESCRIPTION: `This allows documentation of the adjustment rationale.` SCREEN: `S DIC("S")="I $D(^MCAR(695.8,""AC"",""R"",+Y))"` EXPLANATION: `CHOOSE ONLY REPROGRAMMING REASONS`
101	PULSE WIDTH (ATRIAL-MSEC)	1;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>5)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `FEB 11, 1991` HELP-PROMPT: `Type a Number between 0 and 5, 2 Decimal Digits` DESCRIPTION: `This allows documentation of a pulse segment rate parameter.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
102	MEASURED A-LEAD AMPLITUDE (MV)	1;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>500)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `FEB 11, 1991` HELP-PROMPT: `Type a Number between 0 and 500, 1 Decimal Digit` DESCRIPTION: `This allows documentation of atrial lead voltage.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
103	RATIO (T/L) (ATRIAL)	1;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>10)!(X<0)!(X?.E1"."4N.N) X` LAST EDITED: `FEB 11, 1991` HELP-PROMPT: `Type a Number between 0 and 10, 3 Decimal Digits` DESCRIPTION: `This allows documentation of a performance ratio.`
104	THRESHOLD WIDTH (ATRIAL)	1;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>10)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `FEB 11, 1991` HELP-PROMPT: `Type a Number between 0 and 10, 2 Decimal Digits` DESCRIPTION: `This allows documentation of the atrial threshold parameter.`
105	THRESHOLD AMPLITUDE (ATRIAL)	1;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>10)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `FEB 11, 1991` HELP-PROMPT: `Type a Number between 0 and 10, 2 Decimal Digits` DESCRIPTION: `This allows documentation of the atrial voltage threshold.`
106	CAPTURE (ATRIAL)	1;6	SET	'Y' FOR YES; 'N' FOR NO; 'I' FOR INTERMITTENT; 'U' FOR UNKNOWN; 'NA' FOR NOT APPLICABLE; HELP-PROMPT: `Enter knowledge of atrial capture.` DESCRIPTION: `This allows documentation of atrial capture.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
107	SENSE (ATRIAL)	1;7	SET	'Y' FOR YES; 'N' FOR NO; 'I' FOR INTERMITTENT; 'U' FOR UNKNOWN; 'NA' FOR NOT APPLICABLE; HELP-PROMPT: `Enter knowledge of atrial sense.` DESCRIPTION: `This allows documentation of atrial sense.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
121	REPR.PULSE WIDTH (ATRIAL-MSEC)	1;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>5)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `FEB 11, 1991` HELP-PROMPT: `Type a Number between 0 and 5, 2 Decimal Digits` DESCRIPTION: `This allows documentation of a pulse segment adjustment.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
122	REPROG. A-AMPLITUDE (VOLTS)	1;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>12)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `FEB 11, 1991` HELP-PROMPT: `Type a Number between 0 and 12, 1 Decimal Digit` DESCRIPTION: `This allows documentation of atrial voltage adjustments.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
123	REPR.SENSITIVITY(ATRIAL-VOLTS)	1;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>5)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `FEB 11, 1991` HELP-PROMPT: `Type a Number between 0 and 5, 2 Decimal Digits` DESCRIPTION: `This allows documentation of adjustments to atrial sense.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
124	REPR.ATRIAL REFRACTORY PERIOD	1;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 1000, 0 Decimal Digits` DESCRIPTION: `This allows documentation of adjustments to atrial refraction.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
201	PULSE WIDTH (VENTRICLE-MSEC)	2;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>5)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `FEB 11, 1991` HELP-PROMPT: `Type a Number between 0 and 5, 2 Decimal Digits` DESCRIPTION: `This allows documentation of a pulse segment rate parameter.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
202	MEASURED V-LEAD AMPLITUDE (MV)	2;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>500)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `FEB 11, 1991` HELP-PROMPT: `Type a Number between 0 and 500, 1 Decimal Digit` DESCRIPTION: `This allows documentation of ventricular lead voltage.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
203	RATIO (T/L) (VENTRICLE)	2;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>10)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 01, 1989` HELP-PROMPT: `Type a Number between 0 and 10, 0 Decimal Digits` DESCRIPTION: `This allows documentation of a performance ratio.`
204	THRESHOLD WIDTH (VENTRICLE)	2;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>10)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `FEB 11, 1991` HELP-PROMPT: `Type a Number between 0 and 10, 2 Decimal Digits` DESCRIPTION: `This allows documentation of the ventricular threshold.`
205	THRESHOLD AMPLITUDE (VENT.)	2;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>10)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `FEB 11, 1991` HELP-PROMPT: `Type a Number between 0 and 10, 2 Decimal Digits` DESCRIPTION: `This allows documentation of the ventricular voltage threshold.`
206	CAPTURE (VENTRICULAR)	2;6	SET	'Y' FOR YES; 'N' FOR NO; 'I' FOR INTERMITTENT; 'UNK' FOR UNKNOWN; 'NA' FOR NOT APPLICABLE; HELP-PROMPT: `Enter knowledge of ventricular capture.` DESCRIPTION: `This allows documentation of ventricular capture.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
207	SENSE (VENTRICULAR)	2;7	SET	'Y' FOR YES; 'N' FOR NO; 'I' FOR INTERMITTENT; 'UNK' FOR UNKNOWN; 'NA' FOR NOT APPLICABLE; HELP-PROMPT: `Enter knowledge of ventricular sense.` DESCRIPTION: `This allows documentation of ventricular sense.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
221	REPR.PULSE WIDTH (VENT-MSEC)	2;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>5)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `FEB 11, 1991` HELP-PROMPT: `Type a Number between 0 and 5, 2 Decimal Digits` DESCRIPTION: `This allows documentation of a pulse segment adjustment.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
222	REPROGR. V-AMPLITUDE (VOLTS)	2;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>12)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `FEB 11, 1991` HELP-PROMPT: `Type a Number between 0 and 12, 1 Decimal Digit` DESCRIPTION: `This allows documentation of ventricular voltage adjustments.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
223	REPR.SENSITIVITY (VENTR.-MV)	2;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>5)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `FEB 11, 1991` HELP-PROMPT: `Type a Number between 0 and 5, 2 Decimal Digits` DESCRIPTION: `This allows documentation of adjustments to ventricular sense.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
224	REPR. VENT. REFRACTORY PERIOD	2;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 1000, 0 Decimal Digits` DESCRIPTION: `This allows documentation of adjustments to ventricular refraction.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
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: `OCT 25, 1994` HELP-PROMPT: `This field identifies the name of the Attending Physician for this Surveillance Entry.` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"` EXPLANATION: `Allows only holders of the 'Provider' security key.`
301	FELLOW	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 the Cardiology Fellow for this Surveillance Entry.` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"`
491	FOLLOWUP COMMENT	4;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<2) X` HELP-PROMPT: `ANSWER MUST BE 2-60 CHARACTERS IN LENGTH` DESCRIPTION: `This allows a documentation area of free form.`
492	FAST OR SLOW CHECK	4;1	SET	'F' FOR FAST CHECK; 'S' FOR SLOW CHECK; HELP-PROMPT: `Enter F for fast or S for slow check.` DESCRIPTION: `This allows documentation of fast/slow check.`
493	NEXT FOLLOW-UP DATE	0;5	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter date/time of next follow-up date.` DESCRIPTION: `This allows documentation of the scheduled follow-up date.`
500	COMMENTS	10;0	WORD-PROCESSING #698.31	DESCRIPTION: `This allows a documentation area of free form.` HELP-PROMPT: `Enter comments into this word-processing field.` DESCRIPTION: `This allows a documentation area of free form.`
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 (1 to 79 characters) of the surveillance. This summary 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` HELP-PROMPT: `Enter appropriate code for summary of the surveillance.` DESCRIPTION: `This field identifies a required summary of the surveillance (Normal, Abnormal, or Borderline). This will appear on the Summary of Patient Procedures.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
700	ICD DIAGNOSIS	ICD;0	POINTER Multiple #698.32	698.32 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: ^`
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.3^APCE` `1)= S ^MCAR(698.3,"APCE",$E(X,1,30),DA)=""` `2)= K ^MCAR(698.3,"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, 493+1
^DIC	55+1, 300+1, 301+1, 701+1
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(690	ID1+1
^DD(698.3	5+1, 7+1
^MCAR(690 - [#690]	ID1+1
^MCAR(698.3 - [#698.3]	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 5OF9.2+1, 7OF9.2+1, 900(XREF 1S), 900(XREF 1K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1, 493+1
%I	ID1+1*!
>> C	ID1+1*
>> D0	5OF9.2+1, 7OF9.2+1
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 900(XREF 1S), 900(XREF 1K)
DIC	ID1+1, 55+1!, 300+1!, 301+1!, 701+1!
DIC("S"	55+1, 55SCR+1, 300+1, 300SCR+1, 301+1, 701+1
>> DIE	55+1, 300+1, 301+1, 701+1
>> MCARCDIE	.01(XREF 2S), .01(XREF 2K), 1(XREF 2S), 1(XREF 2K)
U	ID1+1, 5OF9.2+1, 7OF9.2+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 4+1!, 5+1, 5OF9.2+1, 6+1!, 7+1 , 7OF9.2+1, 11+1!, 12+1!, 13+1!, 14+1!, 16+1!, 50+1!, 51+1!, 52+1!, 53+1! , 55+1!, 101+1!, 102+1!, 103+1!, 104+1!, 105+1!, 121+1!, 122+1!, 123+1!, 124+1! , 201+1!, 202+1!, 203+1!, 204+1!, 205+1!, 221+1!, 222+1!, 223+1!, 224+1!, 300+1! , 301+1!, 491+1!, 493+1!, 600+1!, 701+1!, 900(XREF 1S), 900(XREF 1K)
>> Y	ID1+1*, .01+1, 55+1, 300+1, 301+1, 493+1, 701+1
>> Y(	5+1, 5OF9.2+1, 7+1, 7OF9.2+1

Customize PDF page

Package: Medicine

Global: ^MCAR(698.3

Information

Description

Directly Accessed By Routines, Total: 11

Accessed By FileMan Db Calls, Total: 3

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 8

Fields, Total: 55

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: