Global: ^MCAR(694

FileMan FileNo	FileMan Filename	Package
694	HEMATOLOGY	Medicine

Package	Total	Routines
Medicine	24	COMPLICATIONS DIAGNOSIS FINAL DIAGNOSIS ICD DIAGNOSIS IMAGE INDICATION MCARGES MCARHEMB MCARHEMBRPR MCARHEMF MCARHP MCAROHB MCAROHD MCAROHF MCARPS1 MCARPS2 MCARPS3 MCGBL MCOBHEM MCPOS01C MCPOS09 MICROSCOPIC DESCRIPTION ^MCAR(694 PROVISIONAL DX
Clinical Procedures	3	MDARP3 MDCVT1 MDSTATU

Package	Total	Routines
Medicine	2	MCARGES MCARHP

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

Package	Total	FileMan Files
Medicine	7	MEDICAL PATIENT(#690)[1] MEDICAL DESCRIPTION(#693)[#694.01(.01)] INDICATION(#694.1)[#694.057(.01)] COMPLICATION(#696.9)[#694.055(.01)] ANATOMY(#697)[2.5] PROCEDURE/SUBSPECIALTY(#697.2)[2] MEDICAL DIAGNOSIS/ICD CODES(#697.5)[#694.035(.01), #694.038(.01)]
Consult Request Tracking	1	REQUEST/CONSULTATION(#123)[1001]
DRG Grouper	1	ICD DIAGNOSIS(#80)[#694.02(.01)]
Imaging	1	IMAGE(#2005)[#694.02005(.01)]
Kernel	1	NEW PERSON(#200)[50, 51, 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)[3]

Fields, Total: 81

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 15, 1988` DESCRIPTION: `This field identifies the time and date of entry.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `694^B` `1)= S ^MCAR(694,"B",$E(X,1,30),DA)=""` `2)= K ^MCAR(694,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `694^AC^MUMPS` `1)= S MCARCDIE="^MCAR(694," D CHGDTE1^MCARPROC` `2)= S MCARCDIE="^MCAR(694," D CHGDTE^MCARPROC` `This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent hematology procedure for this patient.`
1	MEDICAL PATIENT	0;2	POINTER TO MEDICAL PATIENT FILE (#690)	**********************REQUIRED FIELD********************** MEDICAL PATIENT(#690) LAST EDITED: `AUG 18, 1988` HELP-PROMPT: `Enter Date/Time (e.g. 8/9/88@4) or Patient Name` DESCRIPTION: `This field identifies the medical patient name.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `694^C` `1)= S ^MCAR(694,"C",$E(X,1,30),DA)=""` `2)= K ^MCAR(694,"C",$E(X,1,30),DA)` `This cross-reference allows look-ups by patient.` CROSS-REFERENCE: `694^AD^MUMPS` `1)= S MCARCDIE="^MCAR(694," D CHGPAT^MCARPROC` `2)= S MCARCDIE="^MCAR(694," D KILL^MCARPROC` `This cross-reference makes an entry under the 'AD' index of the MEDICAL PATIENT file (#690) to record the most recent hematology procedure for this patient.`
1.5	SUMMARY	.2;1	SET	**********************REQUIRED FIELD********************** 'N' FOR Normal; 'A' FOR Abnormal; 'T' FOR Technically unsatisfactory; 'ND' FOR Non-Diagnostic; LAST EDITED: `MAR 08, 1989` HELP-PROMPT: `Enter the summary code: N, A, T, or ND.` DESCRIPTION: `This field summarizes the results of this procedure.`
2	PROCEDURE	0;3	POINTER TO PROCEDURE/SUBSPECIALTY FILE (#697.2)	**********************REQUIRED FIELD********************** PROCEDURE/SUBSPECIALTY(#697.2) INPUT TRANSFORM: `S DIC("S")="I $D(^MCAR(697.2,""D"",""H"",+Y))!$D(^MCAR(697.2,""D"",""HI"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 10, 1997` DESCRIPTION: `This field identifies a pointer to the procedure location file.` SCREEN: `S DIC("S")="I $D(^MCAR(697.2,""D"",""H"",+Y))!$D(^MCAR(697.2,""D"",""HI"",+Y))"` EXPLANATION: `Choose Hematology procedure acronym` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2.5	ANATOMIC SITE	0;5	POINTER TO ANATOMY FILE (#697)	**********************REQUIRED FIELD********************** ANATOMY(#697) INPUT TRANSFORM: `S DIC("S")="S FF=$P($G(^MCAR(697.2,+$P($G(^MCAR(694,DA,0)),U,3),0)),U) I $D(^MCAR(697,""D"",FF,+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 28, 1994` HELP-PROMPT: `Enter Anatomic site of Hematology procedure` DESCRIPTION: `This field identifies a pointer to the anatomy file.` SCREEN: `S DIC("S")="S FF=$P($G(^MCAR(697.2,+$P($G(^MCAR(694,DA,0)),U,3),0)),U) I $D(^MCAR(697,""D"",FF,+Y))"` EXPLANATION: `Anatomic site of Hematology procedure` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
3	WARD/CLINIC	0;4	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `SEP 13, 1991` DESCRIPTION: `This field identifies the in-house location of the patient.`
4.1	BIOPSY COMMENTS	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>100!($L(X)<3) X` HELP-PROMPT: `ANSWER MUST BE 3-100 CHARACTERS IN LENGTH` DESCRIPTION: `This field identifies a free text field, enter any pertinent biopsy comments.`
5	ORIGINAL CONSULT DATE	0;7	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter the date and time of the original consult.` DESCRIPTION: `This field identifies the date of consult.`
6.5	PROVISIONAL DX REMARKS	1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>120!($L(X)<1) X` LAST EDITED: `DEC 14, 1988` HELP-PROMPT: `ANSWER MUST BE 1-120 CHARACTERS IN LENGTH` DESCRIPTION: `This field identifies a free text field, enter provisional DX remarks.`
7	NO. CELLS COUNTED	4;13	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:'((X=100)!(X=200)!(X=300)) X` LAST EDITED: `JAN 04, 1989` HELP-PROMPT: `Enter 100, 200 or 300` DESCRIPTION: `This field identifies the number of cells counted.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
8	CELLULARITY	1;3	SET	'N' FOR NORMAL; 'I' FOR INCREASED; 'D' FOR DECREASED; DESCRIPTION: `One of a set of descriptors of the occurrance of cellularity.`
8.1	CELLULARITY MODIFIER	1;7	SET	'SL' FOR SLIGHTLY; 'MO' FOR MODERATELY; 'SE' FOR SEVERELY; 'MA' FOR MARKEDLY; LAST EDITED: `APR 23, 1992` HELP-PROMPT: `Enter a code for the degree of cellularity: SL, MO, SE, or MA.` DESCRIPTION: `One of a set of adjectives used to further define cellularity.`
9	M:E RATIO	1;4	FREE TEXT	INPUT TRANSFORM: `S:X[" " X=$P(X," ",1)_":"_$P(X," ",2) K:$L(X)>6!($L(X)<3)!'(X?1.2N1":"1.2N) X` LAST EDITED: `DEC 06, 1988` HELP-PROMPT: `Enter a number (1-99), followed by a space or a colon, followed by a number (1-99) e.g. 1 2 or 1:2` DESCRIPTION: `This field identifies the M:E ratio.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
9.5	IRON STORES	1;6	SET	'0' FOR 0; '1' FOR 1+; '2' FOR 2+; '3' FOR 3+; '4' FOR 4+; HELP-PROMPT: `Enter a code from 0-4.` DESCRIPTION: `From set of positive values.`
10	MEGAKARYOCYTES	1;5	SET	'N' FOR NORMAL; 'I' FOR INCREASED; 'R' FOR REDUCED; LAST EDITED: `NOV 18, 1988` HELP-PROMPT: `Enter a code for the megakaryocyte count: (N)ormal, (I)ncreased, or (R)educed.` DESCRIPTION: `This field identifies the megakaryocyte count.`
10.1	MEGAKARYOCYTES MODIFIER	1;8	SET	'SL' FOR SLIGHTLY; 'MO' FOR MODERATELY; 'SE' FOR SEVERLY; 'MA' FOR MARKEDLY; LAST EDITED: `MAR 08, 1989` HELP-PROMPT: `Enter a code clarifying the megakaryocyte count behavior: SL, MO, SE, or MA.` DESCRIPTION: `This field identifies the megakaryocyte count modifier.`
12	DIFF(Y/N)	6;1	SET	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO; LAST EDITED: `DEC 05, 1988` HELP-PROMPT: `Enter (Y)es or (N)o.` DESCRIPTION: `This field identifies no.`
13	NEUTROPHILS	4;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `DEC 14, 1988` HELP-PROMPT: `Type a Number between 0 and 100, 1 Decimal Digit` DESCRIPTION: `This field identifies the neutrophil description.`
14	BANDS	4;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `DEC 14, 1988` HELP-PROMPT: `Type a Number between 0 and 100, 1 Decimal Digit` DESCRIPTION: `The number of bands found.`
15	METAMYELOCYTES	4;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `DEC 14, 1988` HELP-PROMPT: `Type a Number between 0 and 100, 1 Decimal Digit` DESCRIPTION: `This field identifies the metamyelocyte count field.`
16	MYELOCYTES	4;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `DEC 14, 1988` HELP-PROMPT: `Type a Number between 0 and 100, 1 Decimal Digit` DESCRIPTION: `This field identifies the myelocyte count.`
17	PROMYELOCYTES	4;16	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `DEC 14, 1988` HELP-PROMPT: `Type a Number between 0 and 100, 1 Decimal Digit` DESCRIPTION: `This field identifies the promyelocyte count field.`
18	MYELOBLASTS	4;17	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `DEC 14, 1988` HELP-PROMPT: `Type a Number between 0 and 100, 1 Decimal Digit` DESCRIPTION: `This field identifies the myeloblast count field.`
19	EOSINOPHILS	4;18	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `DEC 14, 1988` HELP-PROMPT: `Type a Number between 0 and 100, 1 Decimal Digit` DESCRIPTION: `Number of eosinophils found.`
20	BASOPHILS	4;19	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `DEC 14, 1988` HELP-PROMPT: `Type a Number between 0 and 100, 1 Decimal Digit` DESCRIPTION: `The number of basophils found.`
21	LYMPHOCYTES	4;20	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `DEC 14, 1988` HELP-PROMPT: `Type a Number between 0 and 100, 1 Decimal Digit` DESCRIPTION: `The number of lymphocytes found.`
22	ORTHOCHROMATIC NORMOBLASTS	4;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `DEC 05, 1988` HELP-PROMPT: `Type a Number between 0 and 100, 1 Decimal Digit allowed` DESCRIPTION: `This field identifies the normoblast count filed.`
23	POLYCHROMATIC NORMOBLASTS	4;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `DEC 05, 1988` HELP-PROMPT: `Type a Number between 0 and 100, 1 Decimal Digit allowed` DESCRIPTION: `This field identifies the polychromatic normoblast count field.`
24	BASOPHILIC NORMOBLASTS	4;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `DEC 05, 1988` HELP-PROMPT: `Type a Number between 0 and 100, 1 Decimal Digit allowed` DESCRIPTION: `The number of basophilic normoblasts found.`
25	PRONORMOBLASTS	4;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `DEC 05, 1988` HELP-PROMPT: `Type a Number between 0 and 100, 1 Decimal Digit allowed` DESCRIPTION: `This field identifies the pronormoblast count field.`
26	LYMPHOBLASTS	4;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `DEC 05, 1988` HELP-PROMPT: `Type a Number between 0 and 100, 1 Decimal Digit` DESCRIPTION: `Number of lymphoblasts found.`
27	PLASMA CELLS	4;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `DEC 05, 1988` HELP-PROMPT: `Type a Number between 0 and 100, 1 Decimal Digit allowed` DESCRIPTION: `This field identifies the plasma cell count field.`
28	MONOCYTES	4;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `DEC 05, 1988` HELP-PROMPT: `Type a Number between 0 and 100, 1 Decimal Digit allowed` DESCRIPTION: `This field identifies the monocyte count field.`
29	HISTIOCYTES	4;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `DEC 05, 1988` HELP-PROMPT: `Type a Number between 0 and 100, 1 Decimal Digit allowed` DESCRIPTION: `Number of histiocytes found.`
30	OTHER CELL TYPE COUNT	4;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 05, 1988` HELP-PROMPT: `Type a Number between 1 and 100, 0 Decimal Digits` DESCRIPTION: `This field identifies the other cell type count field.`
31	OTHER CELL TYPE	4;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<2) X` LAST EDITED: `AUG 25, 1988` HELP-PROMPT: `Enter other cell type observed (2-50 characters)` DESCRIPTION: `This field identifies the other cell type descriptor.`
34	DATE PERFORMED	0;8	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 03, 1989` HELP-PROMPT: `Enter the date and time on which this procedure was performed.` DESCRIPTION: `Documentation of procedure date.`
35	FINAL DIAGNOSIS	8;0	POINTER Multiple #694.035	694.035 DESCRIPTION: `Enter Medical diagnosis from the medical diagnosis/ICD codes file.`
36	DECALCIFICATION OF SPECIMEN	9;1	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JAN 04, 1989` HELP-PROMPT: `ENTER 'Y' IF THE SPECIMEN HAS BEEN SUBMITTED FOR DECALCIFICATION` DESCRIPTION: `Did decalcification of the specimen occur?`
37	SPECIMEN SUBMITTED FOR PLASTIC	9;2	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JAN 04, 1989` HELP-PROMPT: `ENTER 'Y' IF THE SPECIMEN IS FIXED AND SUBMITTED FOR PROCESSING IN PLASTIC` DESCRIPTION: `This field identifies the specimen submitted for plastic field.`
38	PROVISIONAL DX	10;0	POINTER Multiple #694.038	694.038 DESCRIPTION: `This field identifies the provisional diagnosis field.`
39	RELEASE REPORT	0;9	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JAN 04, 1989` HELP-PROMPT: `Enter (Y)es or (N)o.` DESCRIPTION: `This field identifies the release report field.`
40	MICROSCOPIC DESCRIPTION	5;0	POINTER Multiple #694.01	694.01 DESCRIPTION: `This field identifies the microscopic description field.`
41	FINAL DIAGNOSIS REMARKS	3;0	WORD-PROCESSING #694.041	DESCRIPTION: `Free text field for diagnostic remarks.` HELP-PROMPT: `Enter free-text comments on the final diagnosis.` DESCRIPTION: `Free text field for diagnostic remarks.`
43	FIXATIVE	6;2	SET	'F' FOR Formalin; 'B' FOR B-5; 'Z' FOR Zenker's; 'C' FOR Carnoy's; LAST EDITED: `JAN 04, 1989` HELP-PROMPT: `Enter the fixative for Bone Marrow Biopsies` DESCRIPTION: `This field identifies for BMB only`
44	NUMBER OF PIECES	6;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>5)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 05, 1988` HELP-PROMPT: `Type a Number between 1 and 5, 0 Decimal Digits` DESCRIPTION: `This field identifies for BMB only`
45	PIECE 1	6;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>30)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 05, 1988` HELP-PROMPT: `Enter whole millimeter length of piece 1 (1-30)` DESCRIPTION: `This field is for BMB only.`
46	PIECE 2	6;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>30)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 05, 1988` HELP-PROMPT: `Enter whole millimeter length of piece 2 (1-30)` DESCRIPTION: `This field is for BMB only`
47	PIECE 3	6;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>30)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 05, 1988` HELP-PROMPT: `Enter whole millimeter length of piece 3 (1-30)` DESCRIPTION: `This field is for BMB only`
48	PIECE 4	6;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>30)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 05, 1988` HELP-PROMPT: `Enter whole millimeter length of piece 4 (1-30)` DESCRIPTION: `This field is for BMB only`
49	PIECE 5	6;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>30)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 05, 1988` HELP-PROMPT: `Enter whole millimeter length of piece 5 (1-30)` DESCRIPTION: `This field is for BMB only`
50	PERFORMED BY	1;11	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 the name of the provider who performed this procedure.` DESCRIPTION: `This field identifies the health care provider who performed this procedure.` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"`
51	APPROVED BY	1;9	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 the name of the provider who approved the results.` DESCRIPTION: `This field identifies the health care provider who approved the results.` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"` CROSS-REFERENCE: `^^TRIGGER^694^701` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(694,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(694,51,1,1,1.4)` `1.4)= S DIH=$S($D(^MCAR(694,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=694,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(694,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(694,51,1,1,2.1) X ^DD(694,51,1,1,2.4)` `2.1)= S X=DIV S Y(1)=$S($D(^MCAR(694,D0,1)):^(1),1:"") S X=$P(Y(1),U,9),X=X` `2.4)= S DIH=$S($D(^MCAR(694,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=694,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= INTERNAL(#51)` `DELETE VALUE)= INTERNAL(#51)` `FIELD)= #701` `This trigger sets the primary provider file.`
52	APPROVAL DATE	1;10	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 14, 1988` HELP-PROMPT: `Enter the date on which the results were approved.` DESCRIPTION: `This field identifies the date on which the results were approved.`
54	MICRO DESCRIPTION REMARKS	7;0	WORD-PROCESSING #694.054	LAST EDITED: `DEC 09, 1988` DESCRIPTION: `This field identifies the micro description remark field.` LAST EDITED: `JAN 04, 1993`
55	COMPLICATIONS	2;0	POINTER Multiple #694.055	694.055 DESCRIPTION: `Free text field whose purpose is to document procedural difficulties.` SCREEN: `S DIC("S")="I $D(^MCAR(696.9,""C"",""H"",+Y))"` EXPLANATION: `CHOOSE HEMATOLOGY COMPLICATION`
56	PERIPHERAL BLOOD SMEAR	11;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>120!($L(X)<1) X` LAST EDITED: `JUN 27, 1989` HELP-PROMPT: `Answer must be 1-120 characters in length.` DESCRIPTION: `This field documents the results of the peripheral smear.`
57	INDICATION	12;0	POINTER Multiple #694.057	694.057 DESCRIPTION: `Entry from the indication file.` SCREEN: `S DIC("S")="I $D(^MCAR(694.1,""C"",""H"",+Y))"` EXPLANATION: `CHOOSE HEMATOLOGY INDICATION`
58	OTHER INDICATION	13;0	WORD-PROCESSING #694.058	DESCRIPTION: `This field identifies the other indication field.` LAST EDITED: `AUG 29, 1989` HELP-PROMPT: `Enter indication for performance if not in list` DESCRIPTION: `This field identifies the other indication field.`
600	PROCEDURE SUMMARY	.2;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>79!($L(X)<1) X` LAST EDITED: `SEP 16, 1992` HELP-PROMPT: `Answer must be 1-79 characters in length.` DESCRIPTION: `This 1-79 character field is produced on the summary of patient procedures.`
700	ICD DIAGNOSIS	ICD;0	POINTER Multiple #694.02	694.02 DESCRIPTION: `This field contains the ICD Diagnosis(es) for the procedure.`
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 APPROVED BY field of the HEMATOLOGY 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: `694^APCE` `1)= S ^MCAR(694,"APCE",$E(X,1,30),DA)=""` `2)= K ^MCAR(694,"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 08, 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.`
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	VERIFYING 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 RELEASE ON-LINE VERIFIED; 'ROV' FOR RELEASE OFF-LINE VERIFIED; 'RNV' FOR RELEASE NOT VERIFIED; 'S' FOR SUPERSEDED; 'SRV' FOR SUPERSEDING RELEASE ON-LINE VERIFIED; 'SROV' FOR SUPERSEDING RELEASE OFF-LINE VERIFIED; LAST EDITED: `MAR 04, 1993` CROSS-REFERENCE: `694^ES` `1)= S ^MCAR(694,"ES",$E(X,1,30),DA)=""` `2)= K ^MCAR(694,"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 DELETION	ES;12	SET	'1' FOR MARK FOR DELETION; 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`
2005	IMAGE	2005;0	POINTER Multiple #694.02005	694.02005 DESCRIPTION: `This field points to an object in the Image File.`

Name	Field # of Occurrence
^%DT	.01+1, 5+1, 34+1, 52+1, 1502+1, 1505+1, 1507+1, 1508+1, 1514+1
^DIC	2+1, 2.5+1, 50+1, 51+1, 701+1
^DICR	51(XREF 1n1.4), 51(XREF 1n2.4)
Y^DIQ	ID1+1, ID2+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(	51(XREF 1n1.4), 51(XREF 1n2.4)
^DD(690	ID1+1
^DD(694	51(XREF 1S), 51(XREF 1K)
^DD(697.2	ID2+1
^MCAR(690 - [#690]	ID1+1
^MCAR(694 - [#694]	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 51(XREF 1S), 51(XREF 1n1.4), 51(XREF 1K), 51(XREF 1n2.1), 51(XREF 1n2.4), 900(XREF 1S) , 900(XREF 1K), 1506(XREF 1S), 1506(XREF 1K)
^MCAR(697.2 - [#697.2]	ID2+1

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

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1, 5+1, 34+1, 52+1, 1502+1, 1505+1, 1507+1, 1508+1, 1514+1*
%I	ID1+1!, ID2+1!
>> C	ID1+1, ID2+1
>> D0	51(XREF 1S), 51(XREF 1K), 51(XREF 1n2.1)
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 51(XREF 1S), 51(XREF 1K), 900(XREF 1S), 900(XREF 1K), 1506(XREF 1S), 1506(XREF 1K)
DIC	ID1+1, ID2+1, IDX1+1, 2+1!, 2.5+1!, 50+1!, 51+1!, 701+1!*
DIC("S"	2+1, 2SCR+1, 2.5+1, 2.5SCR+1, 50+1, 51+1, 701+1*
>> DIE	2+1, 2.5+1, 50+1, 51+1, 701+1
>> DIG	51(XREF 1n1.4), 51(XREF 1n2.4)
>> DIH	51(XREF 1n1.4), 51(XREF 1n2.4)
>> DIU	51(XREF 1S), 51(XREF 1K)
DIV	51(XREF 1S), 51(XREF 1n1.4), 51(XREF 1K), 51(XREF 1n2.1), 51(XREF 1n2.4)
DIV(0	51(XREF 1S), 51(XREF 1n1.4), 51(XREF 1K), 51(XREF 1n2.4)
>> MCARCDIE	.01(XREF 2S), .01(XREF 2K), 1(XREF 2S), 1(XREF 2K)
U	ID1+1, ID2+1, 51(XREF 1S), 51(XREF 1n1.4), 51(XREF 1K), 51(XREF 1n2.1), 51(XREF 1n2.4)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2+1!, 2.5+1!, 4.1+1!, 5+1!, 6.5+1! , 7+1!, 9+1!, 13+1!, 14+1!, 15+1!, 16+1!, 17+1!, 18+1!, 19+1!, 20+1! , 21+1!, 22+1!, 23+1!, 24+1!, 25+1!, 26+1!, 27+1!, 28+1!, 29+1!, 30+1! , 31+1!, 34+1!, 44+1!, 45+1!, 46+1!, 47+1!, 48+1!, 49+1!, 50+1!, 51+1! , 51(XREF 1S), 51(XREF 1n1.4), 51(XREF 1K), 51(XREF 1n2.1), 51(XREF 1n2.4), 52+1!, 56+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	ID1+1, ID2+1, .01+1, 2+1, 2.5+1, 5+1, 34+1, 50+1, 51+1, 51(XREF 1S) , 51(XREF 1K), 52+1, 701+1, 1502+1, 1505+1, 1507+1, 1508+1, 1514+1
Y(1	51(XREF 1S), 51(XREF 1K), 51(XREF 1n2.1)

Customize PDF page

Package: Medicine

Global: ^MCAR(694

Information

Description

Directly Accessed By Routines, Total: 29

Accessed By FileMan Db Calls, Total: 2

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 14

Fields, Total: 81

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: