Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 63.02

Package: Lab Service

LAB DATA(#63)-->63.02

Sub-Field: 63.02


Information

Parent File Name Number Package
LAB DATA(#63) EM 63.02 Lab Service

Details

Field # Name Loc Type Details
.01 DATE/TIME SPECIMEN TAKEN 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX",%DT(0)="-N" D ^%DT K %DT S X=Y,DINUM=9999999-Y K:Y<1 X
  • OUTPUT TRANSFORM:  D D^LRU W ?0,"-------------------------------------------------------------------------------"
  • LAST EDITED:  MAR 02, 1985
  • DESCRIPTION:  
    This is the date/time of collection of the EM specimen.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.011 SPECIMEN SUBMITTED BY 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAR 02, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the person submitting the specimen.
.012 SPECIMEN .1;0 Multiple #63.202 63.202

  • DESCRIPTION:  
    These are the specimens submitted for testing.
.013 BRIEF CLINICAL HISTORY .2;0 WORD-PROCESSING #63.213

  • DESCRIPTION:  
    This is the brief clinical history for this specimen.
.014 PREOPERATIVE DIAGNOSIS .3;0 WORD-PROCESSING #63.214

  • DESCRIPTION:  
    This is the pre-operative diagnosis for this specimen.
.015 OPERATIVE FINDINGS .4;0 WORD-PROCESSING #63.205

  • DESCRIPTION:  
    These are the operative findings for this specimen.
.016 POSTOPERATIVE DIAGNOSIS .5;0 WORD-PROCESSING #63.206

  • DESCRIPTION:  
    This is the post-operative diagnosis for this specimen.
.02 PATHOLOGIST 0;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    This is the pathologist performing the procedure.
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"
  • EXPLANATION:  Selection must be made from active PROVIDERS who hold the PROVIDER security key.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.021 RESIDENT OR EMTECH 0;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    This is the resident pathologist or the EM technologist performing the test.
.03 DATE REPORT COMPLETED 0;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X),X<$P($P(^LR(DA(1),"EM",DA,0),U,10),".") K X W !,"Report date completed must be after date received"
  • LAST EDITED:  MAR 12, 1990
  • DESCRIPTION:  
    This is the date the report was completed.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.06 EM ACC # 0;6 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<5)!'(X?1ANP.ANP1" "2N1" "1N.N) X I $D(X),$D(LRAD),$D(LRABV),$D(^LR("AEMA",$E(LRAD,1,3),LRABV,X)) W $C(7),!,X," is already taken for ",LRABV,! K X
  • LAST EDITED:  DEC 14, 1995
  • HELP-PROMPT:  Answer must be 5-15 characters in length.
  • DESCRIPTION:  
    This is the accession number of the electron microscopy specimen.
  • EXECUTABLE HELP:  W !,"Enter as prefix yr number (ex. EM 95 345)"
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  63^AEMA^MUMPS
    1)= S X(1)=$S($D(LRAD):LRAD,1:$P(^LR(DA(1),"EM",DA,0),U,10)),X(2)=$S($D(LRABV):LRABV,1:$P(^LR(DA(1),"EM",DA,0),U,6)) S:X(1)&(X(2)]"") ^LR("AEMA",$E(X(1),1,3),X(2),$P(X," ",3),DA(1),DA)=""
    2)= S X(1)=$S($D(LRAD):LRAD,1:$P(^LR(DA(1),"EM",DA,0),U,10)),X(2)=$S($D(LRABV):LRABV,1:$P(^LR(DA(1),"EM",0),U,6)) K:X(1)&(X(2)]"") ^LR("AEMA",$E(X(1),1,3),X(2),$P(X," ",3),DA(1),DA)
    Cross references accessions by year and within year by accession area.
.07 PHYSICIAN 0;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    This is the requesting physician.
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"
  • EXPLANATION:  Selection must be made from active PROVIDERS who hold the PROVIDER security key.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.08 PATIENT LOCATION 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAR 02, 1985
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the requesting location.
.09 TYPIST 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<2) X
  • LAST EDITED:  JAN 24, 1991
  • HELP-PROMPT:  Answer must be 2-5 characters in length.
  • DESCRIPTION:  
    These are the initials of the typist entering the data.
.1 DATE/TIME SPECIMEN RECEIVED 0;10 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X I $D(X),$D(LRH(2)),LRH(2)'=$E(X,1,3) K X W !,"Year received must be same as log-in year (",LRH(2)+1700,") "
  • LAST EDITED:  JAN 29, 1991
  • HELP-PROMPT:  FUTURE DATE/TIME NOT ALLOWED
  • DESCRIPTION:  
    This is the date/time the specimen was received.
  • EXECUTABLE HELP:  K DZ W ?5,"To delete accession enter '^'",!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  63^AEM^MUMPS
    1)= S ^LR("AEM",$E(X,1,30),DA(1),DA)=""
    2)= K ^LR("AEM",$E(X,1,30),DA(1),DA)
.11 REPORT RELEASE DATE 0;11 DATE

  • INPUT TRANSFORM:  S %DT="ETXR",%DT(0)="N" D ^%DT K %DT S X=Y K:Y<1 X I $D(X),X<$P($P(^LR(DA(1),"EM",DA,0),U,3),".") K X W !,"Release date must not be before completed date (" S Y=$P(^(0),U,3) D DD^%DT W Y,")"
  • LAST EDITED:  SEP 08, 1995
  • HELP-PROMPT:  ONLY CURRENT DATE/TIME ALLOWED
  • DESCRIPTION:  
    YES indicates the report was released.
  • EXECUTABLE HELP:  K DZ
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AC (#509) MUMPS ACTION
    Short Descr:  Notify HDR and others that this report is available.
    Description:  This MUMPS cross-reference triggers the sending of this report to the Health Data Repository (HDR) and other subscribers when electron microscopy results are released.
    Set Logic:  D APQ^LA7HDR(DA(1),"EM",DA)
    Kill Logic:  Q
    X(1):  REPORT RELEASE DATE  (63.02,.11)  (Subscr 1)  (forwards)
.13 RELEASED BY 0;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    Who released the report
.14 TC CODE 0;14 SET

  • LAST EDITED:  MAR 26, 1992
  • DESCRIPTION:  Tissue committee codes
    The meaning of each code is identified by each site.
.15 ORIGINAL RELEASE DATE 0;15 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 24, 1990
  • DESCRIPTION:  If report was modified after release the original release date
    is kept here.
.16 TIU REFERENCE DATE/TIME - EM .05;0 DATE Multiple #63.49 63.49

  • LAST EDITED:  AUG 28, 2001
  • DESCRIPTION:  
    This multiple stores TIU information for corresponding SF515 electron microscopy reports that have been electronically signed and stored in TIU.  This information is used to access the reports in TIU.
.17 DATE REPORT MODIFIED - EM .07;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 30, 2001
  • DESCRIPTION:  
    This is the date the report was modified if it was modified after it was electronically signed/released.
.171 PERSON MODIFYING TEXT .07;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 30, 2001
  • DESCRIPTION:  
    Stores the DUZ of the person who modified the report AFTER it was electronically signed/released.
.172 DIAGNOSIS MODIFIED .07;3 SET

  • LAST EDITED:  NOV 30, 2001
  • DESCRIPTION:  
    1 = Diagnosis modified AFTER report was electronically signed/released.
.97 DELAYED REPORT COMMENT 97;0 Multiple #63.0297 63.0297

  • DESCRIPTION:  
    If a report is delayed, reason(s) for delay may be entered here. They will appear on the log book report and the clinician screen display.
.99 COMMENT 99;0 Multiple #63.208 63.208

  • DESCRIPTION:  
    These are comments on this specimen.
1 GROSS DESCRIPTION 1;0 WORD-PROCESSING #63.201

  • DESCRIPTION:  
    This is the gross description of the specimen.
1.1 MICROSCOPIC EXAMINATION 1.1;0 WORD-PROCESSING #63.211

  • LAST EDITED:  JUL 16, 1993
  • DESCRIPTION:  
    This is the microscopic examination diagnosis of the specimen.
1.2 SUPPLEMENTARY REPORT 1.2;0 DATE Multiple #63.207 63.207

  • DESCRIPTION:  
    These are supplementary reports.
1.4 EM DIAGNOSIS 1.4;0 WORD-PROCESSING #63.204

  • DESCRIPTION:  
    Electron microscopy diagnoses are entered here.
4 DATE MICROSCOPIC EXAM MODIFIED 4;0 DATE Multiple #63.242 63.242

  • LAST EDITED:  JUL 16, 1993
  • DESCRIPTION:  
    These are the dates of modification of the microscopic examination/diagnosis.
5 DATE DIAGNOSIS MODIFIED 5;0 DATE Multiple #63.025 63.025

  • DESCRIPTION:  
    This is the date of the modification of the diagnosis field.
7 DATE GROSS DESCRIPTION CHANGED 7;0 DATE Multiple #63.0272 63.0272

  • DESCRIPTION:  
    These are the dates of change to the gross description field.
9 QA CODE 9;0 POINTER Multiple #63.029 63.029

  • DESCRIPTION:  
    Multiple field for Quality Assurance code.
  • SCREEN:  S DIC("S")="I $P(^(0),U,4)=""I"",$L($P(^(0),U))<3"
  • EXPLANATION:  Selects entries with less than 3 characters
10 EM ORGAN/TISSUE 2;0 POINTER Multiple #63.212 63.212

  • DESCRIPTION:  
    These are the organ/tissue(s) being examined.
  • SCREEN:  S DIC("S")="I SEX[$P(^(0),U,3)"
  • EXPLANATION:  Selects when appropriate sex related organs
80 ICDCM CODE 3;0 POINTER Multiple #63.203 63.203

  • LAST EDITED:  AUG 04, 2014
  • DESCRIPTION:  
    These are the ICDCM codes on this specimen.
2005 IMAGE 2005;0 POINTER Multiple #63.22005 63.22005

  • DESCRIPTION:  
    Images associated with EM reports are stored in this multiple within the EM field of the Lab Data (#63) file.
Info |  Details |  All