STANDARD DATA DICTIONARY #694 -- HEMATOLOGY FILE 9/29/25 PAGE 1
STORED IN ^MCAR(694, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Stores results of Bone Marrow Aspirates and Bone Marrow Biopsies.
DD ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: MEDICAL PATIENT (#1)[R], PROCEDURE (#2)[R]
"X1": W:$D(^("ES")) " ",@("$P($P($C(59)_$S($D(^DD(694,1506,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(""ES""),U
,7)_"":"",2),$C(59),1)")
POINTED TO BY: RESULT field (#11) of the REQUEST/CONSULTATION File (#123)
ASSOCIATED RESULTS field (#.01) of the ASSOCIATED RESULTS sub-field (#123.03) of the REQUEST/CONSULTATION File
(#123)
CROSS
REFERENCED BY: DATE/TIME(AC), MEDICAL PATIENT(AD), PCC POINTER(APCE), DATE/TIME(B), MEDICAL PATIENT(C), RELEASE CODE(ES)
694,.01 DATE/TIME 0;1 DATE (Required)
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.
694,1 MEDICAL PATIENT 0;2 POINTER TO MEDICAL PATIENT FILE (#690) (Required)
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.
694,1.5 SUMMARY .2;1 SET (Required)
'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.
694,2 PROCEDURE 0;3 POINTER TO PROCEDURE/SUBSPECIALTY FILE (#697.2) (Required)
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
694,2.5 ANATOMIC SITE 0;5 POINTER TO ANATOMY FILE (#697) (Required)
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
694,3 WARD/CLINIC 0;4 POINTER TO HOSPITAL LOCATION FILE (#44)
LAST EDITED: SEP 13, 1991
DESCRIPTION:
This field identifies the in-house location of the patient.
694,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.
694,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.
694,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.
694,7 NO. CELLS COUNTED 4;13 NUMBER (Required)
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
694,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.
694,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.
694,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
694,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.
694,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.
694,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.
694,12 DIFF(Y/N) 6;1 SET (Required)
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: DEC 05, 1988
HELP-PROMPT: Enter (Y)es or (N)o.
DESCRIPTION:
This field identifies no.
694,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.
694,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.
694,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.
694,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.
694,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.
694,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.
694,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.
694,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.
694,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.
694,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.
694,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.
694,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.
694,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.
694,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.
694,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.
694,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.
694,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.
694,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.
694,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.
694,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.
694,35 FINAL DIAGNOSIS 8;0 POINTER Multiple #694.035 (Add New Entry without Asking)
DESCRIPTION:
Enter Medical diagnosis from the medical diagnosis/ICD codes file.
694.035,.01 FINAL DIAGNOSIS 0;1 POINTER TO MEDICAL DIAGNOSIS/ICD CODES FILE (#697.5) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $D(^MCAR(697.5,""A.HF"",$P(^MCAR(697.5,+Y,0),U),+Y))",D="A.HF" D ^DIC K DIC S DIC=DIE
,X=+Y K:Y<0 X
LAST EDITED: OCT 28, 1991
HELP-PROMPT: Enter Final Diagnosis from list
DESCRIPTION:
Enter Medical diagnosis from the medical diagnosis/ICD codes file.
SCREEN: S DIC("S")="I $D(^MCAR(697.5,""A.HF"",$P(^MCAR(697.5,+Y,0),U),+Y))",D="A.HF"
EXPLANATION: Screens Hematology entries from Medical Diagnosis File
EXECUTABLE HELP:Q:$D(DJJ) N DO S X="?",DIC(0)="X",DIC="^MCAR(697.5,",D="A.HF" D MIX^DIC1 S D=-1
CROSS-REFERENCE:694.035^B
1)= S ^MCAR(694,DA(1),8,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(694,DA(1),8,"B",$E(X,1,30),DA)
694,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?
694,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.
694,38 PROVISIONAL DX 10;0 POINTER Multiple #694.038 (Add New Entry without Asking)
DESCRIPTION:
This field identifies the provisional diagnosis field.
694.038,.01 PROVISIONAL DX 0;1 POINTER TO MEDICAL DIAGNOSIS/ICD CODES FILE (#697.5) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $D(^MCAR(697.5,""A.H"",$P(^MCAR(697.5,+Y,0),U),+Y))",D="A.H" D ^DIC K DIC S DIC=DIE,X
=+Y K:Y<0 X
LAST EDITED: OCT 28, 1991
HELP-PROMPT: Enter provisional diagnosis or indication for procedure from list
DESCRIPTION:
This field identifies the provisional diagnosis field.
SCREEN: S DIC("S")="I $D(^MCAR(697.5,""A.H"",$P(^MCAR(697.5,+Y,0),U),+Y))",D="A.H"
EXPLANATION: Screens Hematology diagnosis from Medical Diagnosis File
EXECUTABLE HELP:Q:$D(DJJ) N DO S X="?",DIC(0)="X",DIC="^MCAR(697.5,",D="A.H" D MIX^DIC1 S D=-1
CROSS-REFERENCE:694.038^B
1)= S ^MCAR(694,DA(1),10,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(694,DA(1),10,"B",$E(X,1,30),DA)
694,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.
694,40 MICROSCOPIC DESCRIPTION 5;0 POINTER Multiple #694.01 (Add New Entry without Asking)
DESCRIPTION:
This field identifies the microscopic description field.
694.01,.01 MICROSCOPIC DESCRIPTION 0;1 POINTER TO MEDICAL DESCRIPTION FILE (#693) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,4)=""H""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 29, 1988
HELP-PROMPT: Enter synonym or first few letters of description. If not found in list press return and enter
Microscopic Description in following free text field
DESCRIPTION:
This field identifies the microscopic description field.
SCREEN: S DIC("S")="I $P(^(0),U,4)=""H"""
EXPLANATION: Screens Hematology entries from Medical Description File
CROSS-REFERENCE: 694.01^B
1)= S ^MCAR(694,DA(1),5,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(694,DA(1),5,"B",$E(X,1,30),DA)
694,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.
694,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
694,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
694,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.
694,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
694,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
694,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
694,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
694,50 PERFORMED BY 1;11 POINTER TO NEW PERSON FILE (#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))"
694,51 APPROVED BY 1;9 POINTER TO NEW PERSON FILE (#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,D
IG=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,D
IG=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.
694,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.
694,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
694,55 COMPLICATIONS 2;0 POINTER Multiple #694.055 (Add New Entry without Asking)
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
694.055,.01 COMPLICATIONS 0;1 POINTER TO COMPLICATION FILE (#696.9) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(696.9,""C"",""H"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 13, 1989
HELP-PROMPT: Enter a code from the Complications File
DESCRIPTION:
Free text field whose purpose is to document procedural difficulties.
CROSS-REFERENCE: 694.055^B
1)= S ^MCAR(694,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(694,DA(1),2,"B",$E(X,1,30),DA)
694,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.
694,57 INDICATION 12;0 POINTER Multiple #694.057
DESCRIPTION:
Entry from the indication file.
SCREEN: S DIC("S")="I $D(^MCAR(694.1,""C"",""H"",+Y))"
EXPLANATION: CHOOSE HEMATOLOGY INDICATION
694.057,.01 INDICATION 0;1 POINTER TO INDICATION FILE (#694.1) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(694.1,""C"",""H"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 29, 1989
HELP-PROMPT: ENTER HEMATOLOGY INDICATION
DESCRIPTION:
Entry from the indication file.
CROSS-REFERENCE: 694.057^B
1)= S ^MCAR(694,DA(1),12,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(694,DA(1),12,"B",$E(X,1,30),DA)
694,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.
694,600 PROCEDURE SUMMARY .2;2 FREE TEXT (Required)
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.
694,700 ICD DIAGNOSIS ICD;0 POINTER Multiple #694.02
DESCRIPTION:
This field contains the ICD Diagnosis(es) for the procedure.
694.02,.01 ICD DIAGNOSIS 0;1 POINTER TO ICD DIAGNOSIS FILE (#80) (Multiply asked)
LAST EDITED: MAR 10, 1993
DESCRIPTION:
This field contains an ICD Diagnosis for the procedure.
CROSS-REFERENCE: 694.02^B
1)= S ^MCAR(694,DA(1),"ICD","B",$E(X,1,30),DA)=""
2)= K ^MCAR(694,DA(1),"ICD","B",$E(X,1,30),DA)
694.02,.02 NARRATIVE DIAGNOSIS 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
LAST EDITED: JAN 02, 1992
HELP-PROMPT: Answer must be 1-80 characters in length.
694,701 PRIMARY PROVIDER PROV;1 POINTER TO NEW PERSON FILE (#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
694,900 PCC POINTER PCC;1 POINTER TO VISIT FILE (#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.
694,1000 ORIFN OR;1 POINTER TO ORDER FILE (#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.
694,1001 GMRCO OR;2 POINTER TO REQUEST/CONSULTATION FILE (#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.
694,1500 ENTERING DUZ ES;1 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: FEB 12, 1993
694,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.
694,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
694,1503 VERIFYING DUZ ES;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: FEB 12, 1993
694,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.
694,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
694,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.
694,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
694,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
694,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
694,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
694,1511 MARK FOR DELETION ES;12 SET
'1' FOR MARK FOR DELETION;
LAST EDITED: FEB 12, 1993
694,1512 DELETER DUZ ES;13 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: FEB 12, 1993
694,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.
694,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
694,2005 IMAGE 2005;0 POINTER Multiple #694.02005
DESCRIPTION:
This field points to an object in the Image File.
694.02005,.01 IMAGE 0;1 POINTER TO IMAGE FILE (#2005) (Multiply asked)
LAST EDITED: JUN 30, 1997
HELP-PROMPT: Enter the 'Image' file object number.
DESCRIPTION:
This field points to an object in the Image File.
CROSS-REFERENCE: 694.02005^B
1)= S ^MCAR(694,DA(1),2005,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(694,DA(1),2005,"B",$E(X,1,30),DA)
FILES POINTED TO FIELDS
ANATOMY (#697) ANATOMIC SITE (#2.5)
COMPLICATION (#696.9) COMPLICATIONS:COMPLICATIONS (#.01)
HOSPITAL LOCATION (#44) WARD/CLINIC (#3)
ICD DIAGNOSIS (#80) ICD DIAGNOSIS:ICD DIAGNOSIS (#.01)
IMAGE (#2005) IMAGE:IMAGE (#.01)
INDICATION (#694.1) INDICATION:INDICATION (#.01)
MEDICAL DESCRIPTION (#693) MICROSCOPIC DESCRIPTION:MICROSCOPIC DESCRIPTION (#.01)
MEDICAL DIAGNOSIS/ICD CODES
(#697.5) FINAL DIAGNOSIS:FINAL DIAGNOSIS (#.01)
PROVISIONAL DX:PROVISIONAL DX (#.01)
MEDICAL PATIENT (#690) MEDICAL PATIENT (#1)
NEW PERSON (#200) PERFORMED BY (#50)
APPROVED BY (#51)
PRIMARY PROVIDER (#701)
ENTERING DUZ (#1500)
VERIFYING DUZ (#1503)
DELETER DUZ (#1512)
ORDER (#100) ORIFN (#1000)
PROCEDURE/SUBSPECIALTY (#697.2) PROCEDURE (#2)
REQUEST/CONSULTATION (#123) GMRCO (#1001)
VISIT (#9000010) PCC POINTER (#900)
INPUT TEMPLATE(S):
MCARHEMBRIEF AUG 20, 1992@09:24 USER #0
MCARHEMEDIT JAN 14, 1992@12:26 USER #0
MCBLHEM JUN 15, 1994@15:31 USER #0
MCFLHEM JUN 02, 1994@14:10 USER #0
PRINT TEMPLATE(S):
MCARHEMB APR 18, 2001@11:56 USER #0 ^MCAROHB @
MCARHEMBRPR APR 18, 2001@12:04 USER #0 ^MCOBHEM @
MCARHEMD MAY 13, 1996@10:10 USER #0 ^MCAROHD @
MCARHEMF AUG 28, 1998@11:36 USER #0 ^MCAROHF @
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):