Global: ^MCAR(698.3

FileMan FileNo	FileMan Filename	Package
698.3	PACEMAKER SURVEILLANCE	Medicine

Package	Total	Routines
Medicine	5	MCAROPS MCARPCE MCARPCS3 MCOBPS MCPOS01E

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

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.
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 ICD9 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: ^
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.

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.

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 ICD9 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:  ^
```

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.

Customize PDF page

Package: Medicine

Global: ^MCAR(698.3

Information

Description

Directly Accessed By Routines, Total: 6

Accessed By FileMan Db Calls, Total: 3

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 8

Fields, Total: 55