Global: ^MCAR(691.5

FileMan FileNo	FileMan Filename	Package
691.5	ELECTROCARDIOGRAM (EKG)	Medicine

Package	Total	Routines
Medicine	31	DIAGNOSIS HEART MED ICD DIAGNOSIS IMAGE INTERPRETATION CODE (CONFIG) INTERPRETATION CODE (PACING) INTERPRETATION CODE (RHYTHM) MCARAM0 MCARAM0A MCARAM0B MCARAM0C MCARAM0D MCARAM0E MCARAM0F MCARAM0G MCARAM0H MCARAM5 MCARAM6 MCARAMLA MCARAMLB MCARAMLC MCARAMLD MCARAMLG MCARAPI MCAROK MCAROK1 MCOBE1 MCPOS01B RISK FACTOR ^MCAR(691.5 SYMPTOM
Clinical Procedures	2	MDAPI1 MDCVT1

Package	Total	Routines
Medicine	7	MCARAM0C MCARAM0D MCARAM0E MCARAM0F MCARAM5 MCARAPI MCARP
Clinical Procedures	1	MDAPI1

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

Package	Total	FileMan Files
Medicine	5	MEDICAL PATIENT(#690)[1] ECG INTERPRETATION(#693.3)[#691.54(.01), #691.55(.01), #691.56(.01)] MEDICATION(#695)[#691.53(.01)] PAST HISTORY AND RISK FACTOR(#695.4)[#691.52(.01)] SYMPTOM(#695.5)[#691.51(.01)]
Consult Request Tracking	1	REQUEST/CONSULTATION(#123)[1001]
DRG Grouper	1	ICD DIAGNOSIS(#80)[#691.58(.01)]
Imaging	1	IMAGE(#2005)[#691.52005(.01)]
Kernel	1	NEW PERSON(#200)[12, 701, 1500, 1503, 1512]
Order Entry Results Reporting	1	ORDER(#100)[1000]
PCE Patient Care Encounter	1	VISIT(#9000010)[900]
Scheduling	1	HOSPITAL LOCATION(#44)[18]

Fields, Total: 53

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` LAST EDITED: `AUG 05, 1987` HELP-PROMPT: `ENTER PATIENT'S NAME OR DATE AND TIME OF ELECTROCARDIOGRAM` DESCRIPTION: `This field identifies the specific EKG procedure.` TECHNICAL DESCR: `ORDER ENTRY TYPE: IDENTIFIER` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `691.5^B` `1)= S ^MCAR(691.5,"B",$E(X,1,30),DA)=""` `2)= K ^MCAR(691.5,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `691.5^AD^MUMPS` `1)= S MCARCDIE="^MCAR(691.5," D CHGDTE1^MCARPROC` `2)= S MCARCDIE="^MCAR(691.5," D CHGDTE^MCARPROC` `This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent EKG procedure for this patient.`
.02	ID	.1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<2) X` LAST EDITED: `APR 08, 1986` HELP-PROMPT: `Enter any unique identification number for this EKG,2 to 10 characters. SSN need not be entered since it is already entered.` DESCRIPTION: `This field identifies the patient's identification number assigned by the medical facility. In most cases it is the person's social security number.`
.03	SUMMARY	.2;1	SET	'N' FOR NORMAL; 'A' FOR ABNORMAL; 'B' FOR BORDERLINE; 'T' FOR TECHNICALLY UNSATISFACTORY; LAST EDITED: `APR 04, 1994` DESCRIPTION: `This field contains the gross evaluation of the results of this procedure.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.04	SYMPTOM	.3;0	POINTER Multiple #691.51	691.51 DESCRIPTION: `This field contains the patient's physical complaints or symptoms.`
.05	RISK FACTOR	.4;0	POINTER Multiple #691.52	691.52 DESCRIPTION: `This field contains the morbidity factors which this patient is most susceptible to in regards to this procedure.`
.06	HEART MED	2;0	POINTER Multiple #691.53	691.53 DESCRIPTION: `This field documents the cardiac medicines that the patient is taking at the time of this procedure (multiple).`
.07	WEIGHT (LBS)	4;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>500)!(X<10)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 16, 1987` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 10 AND 500` DESCRIPTION: `The weight of the patient at the time of the procedure is stored here.`
.08	HEIGHT (INCHES)	4;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>96)!(X<36)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 16, 1987` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 36 AND 96` DESCRIPTION: `The height of the patient in inches at the time of the procedure.`
1	MEDICAL PATIENT	0;2	POINTER TO MEDICAL PATIENT FILE (#690)	**********************REQUIRED FIELD********************** MEDICAL PATIENT(#690) LAST EDITED: `JUL 10, 1987` HELP-PROMPT: `Enter patient's name - Last, First MI` DESCRIPTION: `This field identifies the patient's last name followed by a comma, followed by a space(optional), followed by the first name, followed by a space, followed by the middle initial.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `691.5^C` `1)= S ^MCAR(691.5,"C",$E(X,1,30),DA)=""` `2)= K ^MCAR(691.5,"C",$E(X,1,30),DA)` `This cross-reference allows look-ups by patient.` CROSS-REFERENCE: `691.5^AC^MUMPS` `1)= S MCARCDIE="^MCAR(691.5," D CHGPAT^MCARPROC` `2)= S MCARCDIE="^MCAR(691.5," D KILL^MCARPROC` `This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent EKG procedure for this patient.`
2	TYPE OF EKG	0;3	SET	'S' FOR STAT RETRIEVAL; 'R' FOR ROUTINE; 'O' FOR ORIGINAL; LAST EDITED: `MAY 31, 1989` HELP-PROMPT: `Enter code for the type of ECG/EKG.` DESCRIPTION: `This allows the user to enter the type of ECG/EKG.`
3	VENT. RATE	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>400)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 04, 1987` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 400` DESCRIPTION: `This allows the user to enter the ventricular rate.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
4	PR INTERVAL	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 20, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 999` DESCRIPTION: `This allows the user to enter ECG/EKG PR interval.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
5	QRS DURATION	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 20, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 999` DESCRIPTION: `This allows the user to enter the ECG/EKG QRS duration.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
6	QT	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 20, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 999` DESCRIPTION: `This allows the user to enter the QT interval.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
7	QTC	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 20, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 999` DESCRIPTION: `This allows the user to enter the QTC interval.`
8	P AXIS	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>360)!(X<-360)!(X?.E1"."1N.N) X` LAST EDITED: `APR 13, 1995` HELP-PROMPT: `Type a Number between -360 and 360, 0 Decimal Digits` DESCRIPTION: `This allows the user to enter the P axis.`
9	R AXIS	0;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>360)!(X<-360)!(X?.E1"."1N.N) X` LAST EDITED: `APR 13, 1995` HELP-PROMPT: `Type a Number between -360 and 360, 0 Decimal Digits` DESCRIPTION: `This allows the user to enter the R axis.`
10	T AXIS	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>360)!(X<-360)!(X?.E1"."1N.N) X` LAST EDITED: `APR 13, 1995` HELP-PROMPT: `Type a Number between -360 and 360, 0 Decimal Digits` DESCRIPTION: `This allows the user to enter the T axis.`
11	CONFIRMATION STATUS	0;12	SET	'C' FOR CONFIRMED; 'U' FOR UNCONFIRMED; LAST EDITED: `MAR 20, 1986` HELP-PROMPT: `Enter code for confirmation status.` DESCRIPTION: `This allows the user to enter the ECG/EKG confirmation status.`
12	INTERPRETED BY	0;13	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 allows the user to enter the interpreting physician.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"` EXPLANATION: `Check if this person holds the PROVIDER key.` CROSS-REFERENCE: `^^TRIGGER^691.5^701` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691.5,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(691.5,12,1,1,1.4)` `1.4)= S DIH=$S($D(^MCAR(691.5,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691.5,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(691.5,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(691.5,12,1,1,2.1) X ^DD(691.5,12,1,1,2.4)` `2.1)= S X=DIV S Y(1)=$S($D(^MCAR(691.5,D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X` `2.4)= S DIH=$S($D(^MCAR(691.5,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691.5,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= INTERNAL(#12)` `DELETE VALUE)= INTERNAL(#12)` `FIELD)= #701` `This trigger sets the primary provider file.`
13	COMPARISON STATEMENT	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>100!($L(X)<4) X` LAST EDITED: `FEB 25, 1987` HELP-PROMPT: `ANSWER MUST BE 4-100 CHARACTERS IN LENGTH` DESCRIPTION: `This allows the user to enter the ECG/EKG comparison statement.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
14	INTERPRETATION CODE (RHYTHM)	3;0	POINTER Multiple #691.54	691.54 LAST EDITED: `APR 23, 1986` DESCRIPTION: `This allows the user to enter multiple rhythm interpretation codes.`
14.1	INTERPRETATION CODE (CONFIG)	5;0	POINTER Multiple #691.55	691.55 DESCRIPTION: `This allows the user to enter multiple configuration interpretation codes.`
14.2	INTERPRETATION CODE (PACING)	6;0	POINTER Multiple #691.56	691.56 DESCRIPTION: `This allows the user to enter multiple pacing interpretation codes.`
15	DIASTOLIC BP	4;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>300)!(X<20)!(X?.E1"."1N.N) X` LAST EDITED: `APR 14, 1988` HELP-PROMPT: `Type a Whole Number between 20 and 300` DESCRIPTION: `This allows the user to enter the diastolic blood pressure.`
16	SYSTOLIC BP	4;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>300)!(X<20)!(X?.E1"."1N.N) X` LAST EDITED: `APR 14, 1988` HELP-PROMPT: `Type a Whole Number between 20 and 300` DESCRIPTION: `This allows the user to enter the systolic blood pressure.`
17	COMMENT	7;0	WORD-PROCESSING #691.517	DESCRIPTION: `This allows the user to make specific comments regarding the ECG/EKG.` LAST EDITED: `AUG 07, 1987` HELP-PROMPT: `Enter specific comments regarding ECG/EKG.` DESCRIPTION: `This allows the user to make specific comments regarding the ECG/EKG.`
18	WARD/CLINIC	8;1	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Enter the in-house patient address.` DESCRIPTION: `This field identifies the in-house patient address.`
20	AUTO-INSTRUMENT DIAGNOSIS	9;0	WORD-PROCESSING #691.57	TECHNICAL DESCR: `ORDER ENTRY TYPE: DIAGNOSIS` LAST EDITED: `APR 19, 1989` HELP-PROMPT: `Enter interpretation of the procedure generated by the instrument (EKG monitor).\` DESCRIPTION: `This field contains the interpretation of the procedure generated by the instrument(EKG monitor).` TECHNICAL DESCR: `ORDER ENTRY TYPE: DIAGNOSIS`
21	AUTOMATED INSTRUMENT DATA ?	A;1	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 20, 1989` DESCRIPTION: `This field stores the last date that the ECG was successfully transferred into DHCP system through the automated interface`
600	PROCEDURE SUMMARY	.2;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>79!($L(X)<1) X` LAST EDITED: `NOV 28, 1990` HELP-PROMPT: `Answer must be 1-79 characters in length. This will appear on the 'Summary of Patient Procedures'.` DESCRIPTION: `Answer must be 1-79 characters in length. This will appear on the 'Summary of Patient Procedures'.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
700	ICD DIAGNOSIS	ICD;0	POINTER Multiple #691.58	691.58 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 INTERPRETED BY field of the ELECTROCARDIOGRAM (EKG) File`
899	MARKED FOR DELETION	MFD;1	SET	'1' FOR MARKED FOR DELETION; LAST EDITED: `JUL 31, 1992`
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: `691.5^APCE` `1)= S ^MCAR(691.5,"APCE",$E(X,1,30),DA)=""` `2)= K ^MCAR(691.5,"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 Consult Order.` 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.`
1500	ENTERING DUZ	ES;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 11, 1993`
1501	COSIGNER VALIDATION CODE	ES;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JAN 11, 1993` HELP-PROMPT: `Answer must be 1-30 characters in length.`
1502	ENTERING DATE	ES;3	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 11, 1993`
1503	VERIFYING DUZ	ES;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 11, 1993`
1504	SIGNER VALIDATION CODE	ES;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `JAN 11, 1993` HELP-PROMPT: `Answer must be 1-40 characters in length.`
1505	VERIFIER DATE	ES;6	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 11, 1993`
1506	RELEASE STATUS	ES;7	SET	'D' FOR DRAFT; 'PD' FOR PROBLEM DRAFT; 'RV' FOR RELEASED ON-LINE VERIFIED; 'ROV' FOR RELEASED OFF-LINE VERIFIED; 'RNV' FOR RELEASED NOT VERIFIED; 'S' FOR SUPERSEDED; 'SRV' FOR RELEASED ON-LINE VERIFIED OF SUPERSEDED; 'SROV' FOR RELEASED OFF-LINE VERIFIED OF SUPERSEDED; LAST EDITED: `DEC 14, 1993` CROSS-REFERENCE: `691.5^ES` `1)= S ^MCAR(691.5,"ES",$E(X,1,30),DA)=""` `2)= K ^MCAR(691.5,"ES",$E(X,1,30),DA)` `This cross-refernce allows look-up by release status.`
1507	DATE OF RELEASED	ES;8	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 11, 1993`
1508	DATE OF VERIFIED	ES;9	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 11, 1993`
1509	SUPERSEDED	ES;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 11, 1993` HELP-PROMPT: `Type a Number between 0 and 9999999999999, 0 Decimal Digits`
1510	SUPERSEDED BY	ES;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 11, 1993` HELP-PROMPT: `Type a Number between 0 and 9999999999, 0 Decimal Digits`
1511	MARK FOR DELETION	ES;12	SET	'1' FOR MARK FOR DELETION; LAST EDITED: `JAN 11, 1993`
1512	DELETER DUZ	ES;13	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 12, 1993`
1513	SUPERSEDED DATE	ES;14	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `FEB 12, 1993` HELP-PROMPT: `Answer must be 1-40 characters in length.`
1514	CREATION DATE	ES;15	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 12, 1993` HELP-PROMPT: `Answer must be 1-30 characters in length.`
2005	IMAGE	2005;0	POINTER Multiple #691.52005	691.52005 DESCRIPTION: `This field points to an entry in the Image File.`

Name	Line Occurrences (* Changed, ! Killed)
^DD(	12(XREF 1n1.4), 12(XREF 1n2.4)
^DD(691.5	12(XREF 1S), 12(XREF 1K)
^DPT - [#2]	ID1+1
^MCAR(690 - [#690]	ID1+1
^MCAR(691.5 - [#691.5]	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 12(XREF 1S), 12(XREF 1n1.4), 12(XREF 1K), 12(XREF 1n2.1), 12(XREF 1n2.4), 900(XREF 1S) , 900(XREF 1K), 1506(XREF 1S), 1506(XREF 1K)

Name	Field # of Occurrence
^("ES"	IDX1+1
^("PROV"	12(XREF 1S), 12(XREF 1n1.4), 12(XREF 1K), 12(XREF 1n2.4)
^(0	ID1+1, 12(XREF 1n2.1)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1, 21+1, 1502+1, 1505+1, 1507+1, 1508+1, 1514+1*
>> D0	12(XREF 1S), 12(XREF 1K), 12(XREF 1n2.1)
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 12(XREF 1S), 12(XREF 1K), 900(XREF 1S), 900(XREF 1K), 1506(XREF 1S), 1506(XREF 1K)
DIC	ID1+1, IDX1+1, 12+1!, 701+1!
DIC("S"	12+1, 12SCR+1, 701+1*
>> DIE	12+1, 701+1
>> DIG	12(XREF 1n1.4), 12(XREF 1n2.4)
>> DIH	12(XREF 1n1.4), 12(XREF 1n2.4)
>> DIU	12(XREF 1S), 12(XREF 1K)
DIV	12(XREF 1S), 12(XREF 1n1.4), 12(XREF 1K), 12(XREF 1n2.1), 12(XREF 1n2.4)
DIV(0	12(XREF 1S), 12(XREF 1n1.4), 12(XREF 1K), 12(XREF 1n2.4)
>> MCARCDIE	.01(XREF 2S), .01(XREF 2K), 1(XREF 2S), 1(XREF 2K)
U	ID1+1, 12(XREF 1S), 12(XREF 1n1.4), 12(XREF 1K), 12(XREF 1n2.1), 12(XREF 1n2.4)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, .07+1!, .08+1!, 1(XREF 1S), 1(XREF 1K), 3+1!, 4+1! , 5+1!, 6+1!, 7+1!, 8+1!, 9+1!, 10+1!, 12+1!, 12(XREF 1S), 12(XREF 1n1.4), 12(XREF 1K) , 12(XREF 1n2.1), 12(XREF 1n2.4), 13+1!, 15+1!, 16+1!, 21+1!, 600+1!, 701+1!, 900(XREF 1S), 900(XREF 1K) , 1501+1!, 1502+1!, 1504+1!, 1505+1!, 1506(XREF 1S), 1506(XREF 1K), 1507+1!, 1508+1!, 1509+1!, 1510+1! , 1513+1!, 1514+1*!
Y	.01+1, 12+1, 12(XREF 1S), 12(XREF 1K), 21+1, 701+1, 1502+1, 1505+1, 1507+1, 1508+1 , 1514+1
Y(1	12(XREF 1S), 12(XREF 1K), 12(XREF 1n2.1)
ZZ	ID1+1*!

Customize PDF page

Package: Medicine

Global: ^MCAR(691.5

Information

Description

Directly Accessed By Routines, Total: 33

Accessed By FileMan Db Calls, Total: 8

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 12

Fields, Total: 53

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	.01+1, 21+1, 1502+1, 1505+1, 1507+1, 1508+1, 1514+1
^DIC	12+1, 701+1
^DICR	12(XREF 1n1.4), 12(XREF 1n2.4)
CHGDTE^MCARPROC	.01(XREF 2K)
CHGDTE1^MCARPROC	.01(XREF 2S)
CHGPAT^MCARPROC	1(XREF 2S)
KILL^MCARPROC	1(XREF 2K)