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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  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: 29

Package Total Routines
Medicine 23 COMPLICATIONS    FINAL DIAGNOSIS    ICD DIAGNOSIS    IMAGE    INDICATION    MCARGES    MCARHEMB    MCARHEMBRPR
MCARHEMF    MCARHP    MCAROHB    MCAROHD    MCAROHF    MCARPS1    MCARPS2    MCARPS3
MCGBL    MCOBHEM    MCPOS01C    MICROSCOPIC DESCRIPTION    ^MCAR(694    MCPOS09    PROVISIONAL DX    
Clinical Procedures 3 MDARP3    MDCVT1    MDSTATU    
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: 14

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)[5051701150015031512]    
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.
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 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.

External References

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)

Global Variables Directly Accessed

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

Naked Globals

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)

Local Variables

Legend:

>> 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)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All