Global: ^MCAR(691.8

FileMan FileNo	FileMan Filename	Package
691.8	ELECTROPHYSIOLOGY (EP)	Medicine

Package	Total	Routines
Medicine	12	SYMPTOM ^MCAR(691.8 ARRHYTHMIA DX DIAGNOSIS HEART MEDICATION ICD DIAGNOSIS MCAROEP MCAROEP1 MCOBEP MCPOS01B RISK FACTOR SVT-TYPE
Clinical Procedures	1	MDCVT1

Package	Total	Routines
Medicine	1	MCARP

Package	Total	FileMan Files
Medicine	2	ATRIAL STUDY(#691.9)[.5] VENTRICULAR STUDY(#692)[.5]
Consult Request Tracking	1	REQUEST/CONSULTATION(#123)[11, #123.03(.01)]

Package	Total	FileMan Files
Medicine	5	MEDICAL PATIENT(#690)[1] MEDICATION(#695)[#691.803(.01)] PAST HISTORY AND RISK FACTOR(#695.4)[#691.802(.01)] SYMPTOM(#695.5)[#691.801(.01)] MEDICAL DIAGNOSIS/ICD CODES(#697.5)[6, #691.805(.01)]
Consult Request Tracking	1	REQUEST/CONSULTATION(#123)[1001]
DRG Grouper	1	ICD DIAGNOSIS(#80)[#691.806(.01)]
Kernel	1	NEW PERSON(#200)[16, 17, 19, 20, 24, 25, 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: 51

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 ELECTROPHYSIOLOGY` DESCRIPTION: `This field identifies the date and 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: `691.8^B` `1)= S ^MCAR(691.8,"B",$E(X,1,30),DA)=""` `2)= K ^MCAR(691.8,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `691.8^AD^MUMPS` `1)= S MCARCDIE="^MCAR(691.8," D CHGDTE1^MCARPROC` `2)= S MCARCDIE="^MCAR(691.8," D CHGDTE^MCARPROC` `This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent EP procedure for this patient.`
.02	ID	.1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<2) X` LAST EDITED: `JUL 23, 1987` HELP-PROMPT: `Enter any unique identification for this EP, 2 to 10 characters. SSN need not be entered since it has been previously entered.` DESCRIPTION: `This field identifies the patient identifier.`
.03	SUMMARY	.2;1	SET	**********************REQUIRED FIELD********************** 'N' FOR NORMAL; 'A' FOR ABNORMAL; 'B' FOR BORDERLINE; LAST EDITED: `AUG 13, 1987` HELP-PROMPT: `Enter Code to describe normalcy of procedure performed.` DESCRIPTION: `This field summarizes the results of this procedure.`
.04	SYMPTOM	1;0	POINTER Multiple #691.801	691.801 DESCRIPTION: `These are the clinical signs of disease.`
.05	RISK FACTOR	2;0	POINTER Multiple #691.802	691.802 DESCRIPTION: `These are the conditions which contribute to the overall percentages of disease.`
.9	HEART MEDICATION	3;0	POINTER Multiple #691.803	691.803 DESCRIPTION: `This field identifies the medication which the patient has been prescribed`
1	MEDICAL PATIENT	0;2	POINTER TO MEDICAL PATIENT FILE (#690)	**********************REQUIRED FIELD********************** MEDICAL PATIENT(#690) LAST EDITED: `JUL 23, 1987` HELP-PROMPT: `Enter patients name: Last, First MI` DESCRIPTION: `This field identifies the patients 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: IDENTIFIER` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `691.8^C` `1)= S ^MCAR(691.8,"C",$E(X,1,30),DA)=""` `2)= K ^MCAR(691.8,"C",$E(X,1,30),DA)` `This cross-reference allows look-ups by patient.` CROSS-REFERENCE: `691.8^AC^MUMPS` `1)= S MCARCDIE="^MCAR(691.8," D CHGPAT^MCARPROC` `2)= S MCARCDIE="^MCAR(691.8," D KILL^MCARPROC` `This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent EP procedure for this patient.`
3	HOSPITAL OF STUDY	4;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` LAST EDITED: `SEP 20, 1989` HELP-PROMPT: `Answer must be 3-40 characters in length.` DESCRIPTION: `This field defines the facility performing this procedure.`
4	REASON FOR STUDY	4;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>120!($L(X)<1) X` LAST EDITED: `OCT 02, 1989` HELP-PROMPT: `Answer must be 1-120 characters in length.` DESCRIPTION: `This field documents the rationale of the procedure for this patient.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
5	ARRHYTHMIA DX	5;0	POINTER Multiple #691.805	691.805 DESCRIPTION: `This field identifies an arrhythmia diagnosis field.`
6	CARDIAC DX	6;1	POINTER TO MEDICAL DIAGNOSIS/ICD CODES FILE (#697.5)	MEDICAL DIAGNOSIS/ICD CODES(#697.5) INPUT TRANSFORM: `S DIC("S")="I $D(^MCAR(697.5,""A.CATH"",$P(^MCAR(697.5,+Y,0),U),+Y))",(D,MCDF)="A.CATH" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 23, 1991` HELP-PROMPT: `Enter cardiac diagnosis field.` DESCRIPTION: `This field identifies a cardiac diagnosis field.` SCREEN: `S DIC("S")="I $D(^MCAR(697.5,""A.CATH"",$P(^MCAR(697.5,+Y,0),U),+Y))",(D,MCDF)="A.CATH"` EXPLANATION: `CARDIAC CATHERIZATION CODES ONLY` EXECUTABLE HELP: `Q:$D(DJJ) N DO S X="?",DIC(0)="X",DIC="^MCAR(697.5,",D="A.CATH" D MIX^DIC1` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
7	HX	7;0	WORD-PROCESSING #691.87	LAST EDITED: `FEB 26, 1996` HELP-PROMPT: `Enter the relevant patient history.` DESCRIPTION: `This field may be used to detail the relevant patient history.`
8	EJECTION FRACTION	8;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits` DESCRIPTION: `This field quantifies the cardiac efficiency.`
9	EJECTION FRACTION METHOD	8;2	SET	'RVG' FOR RVG; 'VENT' FOR VENTRICULOGRAPHY; '2-DE' FOR 2D ECHO; HELP-PROMPT: `Enter methodolody used to determine the ejection fraction.` DESCRIPTION: `This field documents the methodology used to determine the ejection fraction.`
10	HEART BLOCK	9;0	SET Multiple #691.804	691.804 DESCRIPTION: `This field defines the state of heart block.`
11	CAROTID STIMULATION	10;0	SET Multiple #691.811	691.811 DESCRIPTION: `This field documents the episodes of carotid stimulation.`
12	SVT-TYPE	11;0	SET Multiple #691.812	691.812 DESCRIPTION: `This field defines the SVT-type`
13	INTERPRETATION	12;0	WORD-PROCESSING #691.813	HELP-PROMPT: `ANSWER MUST BE 1-20 CHARACTERS IN LENGTH` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN` HELP-PROMPT: `Enter comments on clinical interpretation.` DESCRIPTION: `This field documents the clinical interpretation.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
14	COMMENT	13;0	WORD-PROCESSING #691.814	TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN` HELP-PROMPT: `Enter comments.` DESCRIPTION: `This field identifies a word processing comment field.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
15	FOLLOW UP	14;0	SET Multiple #691.815	691.815 DESCRIPTION: `This field documents follow up care/diagnostics.`
16	CARDIOLOGY STAFF	15;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` HELP-PROMPT: `Enter participating clinical staff.` DESCRIPTION: `This field identifies the participating clinical staff.` TECHNICAL DESCR: `ORDER ENTRY TYPE: IDENTIFIER` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"` CROSS-REFERENCE: `^^TRIGGER^691.8^701` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691.8,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.8,16,1,1,1.4)` `1.4)= S DIH=$S($D(^MCAR(691.8,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691.8,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.8,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(691.8,16,1,1,2.1) X ^DD(691.8,16,1,1,2.4)` `2.1)= S X=DIV S Y(1)=$S($D(^MCAR(691.8,D0,15)):^(15),1:"") S X=$P(Y(1),U,1),X=X` `2.4)= S DIH=$S($D(^MCAR(691.8,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=691.8,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= INTERNAL(#16)` `DELETE VALUE)= INTERNAL(#16)` `FIELD)= #701` `This trigger sets the primary provider file.`
17	CARDIOLOGY FELLOW	15;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` HELP-PROMPT: `Enter participating clinical fellow.` DESCRIPTION: `This field identifies the participating clinical fellow.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"`
18	WARD/CLINIC	15;3	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Enter patient's location.` DESCRIPTION: `This field identifies the patient's location.`
19	CARDIOLOGY STAFF-2ND	15;4	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: `Enter name of 2nd attending physician` DESCRIPTION: `This field identifies the secondary participating staff member.` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"`
20	CARDIOLOGY FELLOW-2ND	15;5	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: `Enter name of 2nd cardiology fellow` DESCRIPTION: `This field identifies the secondary clinical fellow.` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"`
21	DISCHARGE DATE	16;0	DATE Multiple #691.96	691.96
22	FOLLOW UP	17;0	SET Multiple #691.97	691.97
24	CARDIOLOGY STAFF	19;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `K:'$D(^VA(200,"AK.PROVIDER",$P(Y,U,2),+Y)) X` LAST EDITED: `JAN 08, 1987`
25	CARDIOLOGY FELLOW	19;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `K:'$D(^VA(200,"AK.PROVIDER",$P(Y,U,2),+Y)) X` LAST EDITED: `JAN 08, 1987`
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: `This 1-79 character field is provided as input into the summary of patient procedures.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
700	ICD DIAGNOSIS	ICD;0	POINTER Multiple #691.806	691.806 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 CARDIOLOGY STAFF field of the ELECTROPHYSIOLOGY (EP) 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: `691.8^APCE` `1)= S ^MCAR(691.8,"APCE",$E(X,1,30),DA)=""` `2)= K ^MCAR(691.8,"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: `FEB 12, 1993`
1501	COSIGNER VALIDATION CODE	ES;2	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.`
1502	ENTERING DATE	ES;3	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 12, 1993`
1503	VERFIFYING DUZ	ES;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 12, 1993`
1504	SIGNER VALIDATION CODE	ES;5	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.`
1505	VERIFIER DATE	ES;6	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 12, 1993`
1506	RELEASE CODE	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.8^ES` `1)= S ^MCAR(691.8,"ES",$E(X,1,30),DA)=""` `2)= K ^MCAR(691.8,"ES",$E(X,1,30),DA)` `This cross-reference 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: `FEB 12, 1993`
1508	DATE OF VERIFIED	ES;9	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 12, 1993`
1509	SUPERSEDED	ES;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 12, 1993` HELP-PROMPT: `Type a Number between 0 and 999999999, 0 Decimal Digits`
1510	SUPERSEDED BY	ES;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 12, 1993` HELP-PROMPT: `Type a Number between 0 and 999999999, 0 Decimal Digits`
1511	MARK FOR DELETATION	ES;12	SET	'1' FOR MARK FOR DELETATION; LAST EDITED: `FEB 12, 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`
1515	SUPERSEDED NUMBER	ES;16	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 04, 1993` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits`

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

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

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1, 1502+1, 1505+1, 1507+1, 1508+1, 1514+1
>> D	6+1, 6(HELP ), 6SCR+1
>> D0	16(XREF 1S), 16(XREF 1K), 16(XREF 1n2.1)
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 16(XREF 1S), 16(XREF 1K), 900(XREF 1S), 900(XREF 1K), 1506(XREF 1S), 1506(XREF 1K)
DIC	ID1+1, IDX1+1, 6+1!, 6(HELP ), 16+1!, 17+1!, 19+1!, 20+1!, 701+1!
DIC("S"	6+1, 6SCR+1, 16+1, 17+1, 19+1, 20+1, 701+1*
DIC(0	6(HELP )
>> DIE	6+1, 16+1, 17+1, 19+1, 20+1, 701+1
>> DIG	16(XREF 1n1.4), 16(XREF 1n2.4)
>> DIH	16(XREF 1n1.4), 16(XREF 1n2.4)
>> DIU	16(XREF 1S), 16(XREF 1K)
DIV	16(XREF 1S), 16(XREF 1n1.4), 16(XREF 1K), 16(XREF 1n2.1), 16(XREF 1n2.4)
DIV(0	16(XREF 1S), 16(XREF 1n1.4), 16(XREF 1K), 16(XREF 1n2.4)
>> DJJ	6(HELP )
DO	6(HELP )
>> MCARCDIE	.01(XREF 2S), .01(XREF 2K), 1(XREF 2S), 1(XREF 2K)
>> MCDF	6+1, 6SCR+1
U	ID1+1, 16(XREF 1S), 16(XREF 1n1.4), 16(XREF 1K), 16(XREF 1n2.1), 16(XREF 1n2.4), 24+1, 25+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, 1(XREF 1S), 1(XREF 1K), 3+1!, 4+1!, 6+1!, 6(HELP ) , 8+1!, 16+1!, 16(XREF 1S), 16(XREF 1n1.4), 16(XREF 1K), 16(XREF 1n2.1), 16(XREF 1n2.4), 17+1!, 19+1!, 20+1! , 24+1!, 25+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!, 1515+1!
Y	.01+1, 6+1, 16+1, 16(XREF 1S), 16(XREF 1K), 17+1, 19+1, 20+1, 24+1, 25+1 , 701+1, 1502+1, 1505+1, 1507+1, 1508+1, 1514+1
Y(1	16(XREF 1S), 16(XREF 1K), 16(XREF 1n2.1)
ZZ	ID1+1*!

Customize PDF page

Package: Medicine

Global: ^MCAR(691.8

Information

Description

Directly Accessed By Routines, Total: 13

Accessed By FileMan Db Calls, Total: 1

Pointed To By FileMan Files, Total: 3

Pointer To FileMan Files, Total: 11

Fields, Total: 51

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	.01+1, 1502+1, 1505+1, 1507+1, 1508+1, 1514+1
^DIC	6+1, 16+1, 17+1, 19+1, 20+1, 701+1
MIX^DIC1	6(HELP )
^DICR	16(XREF 1n1.4), 16(XREF 1n2.4)
CHGDTE^MCARPROC	.01(XREF 2K)
CHGDTE1^MCARPROC	.01(XREF 2S)
CHGPAT^MCARPROC	1(XREF 2S)
KILL^MCARPROC	1(XREF 2K)