Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^MCAR(694

Package: Medicine

Global: ^MCAR(694


Information

FileMan FileNo FileMan Filename Package
694 HEMATOLOGY Medicine

Description

Directly Accessed By Routines, Total: 13

Package Total Routines
Medicine 12 MCARGES    MCARHP    MCAROHB    MCAROHD    MCAROHF    MCARPS1    MCARPS2    MCARPS3
MCGBL    MCOBHEM    MCPOS01C    MCPOS09    
Health Summary 1 GMTSMCPZ    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Medicine 2 MCARGES    MCARHP    

Pointed To By FileMan Files, Total: 1

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

Pointer To FileMan Files, Total: 13

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)]    
IHS Patient 1 VISIT(#9000010)[900]    
Kernel 1 NEW PERSON(#200)[50, 51, 701, 1500, 1503, 1512]    
Order Entry Results Reporting 1 ORDER(#100)[1000]    
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.
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.
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.
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 ICD9 Diagnosis(es) for the procedure.  The field also contains a sub-field labeled NARRATIVE DIAGNOSIS which will be used in the future.
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.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All