Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
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.
  • LAST EDITED:  MAR 02, 1985
.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(^XUSEC(""PROVIDER"",Y)),$$ACTIVE^XUSER(Y)",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 30, 1991
  • HELP-PROMPT:  Select the requesting provider.
  • DESCRIPTION:  
    This is the requesting physician.
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U))),$D(^XUSEC(""PROVIDER"",Y)),$$ACTIVE^XUSER(Y)"
  • 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 (#554) 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.
.31 UID ORU;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<10) X
  • LAST EDITED:  NOV 22, 2005
  • HELP-PROMPT:  Answer must be 10-20 characters in length
  • DESCRIPTION:  This is the UID used by the HOST LEDI system for this order/accession.
    This field is used by LEDI software.
.32 ORDERING SITE ORU;2 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  NOV 22, 2005
  • HELP-PROMPT:  Enter the site ordering the test.
  • DESCRIPTION:  This field contains the pointer to the INSTITUTION file for the MailMan domain location of the computer system. All LEDI results are returned to the Ordering computer system.
    Location to send LEDI HL7 result messages.
    This field is used by LEDI software.
.33 COLLECTING SITE ORU;3 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  NOV 22, 2005
  • DESCRIPTION:  This field contains the pointer to the INSTITUTION file for the actual collection site. The ordering site is the MailMan location of the computer system. MailMan domain location and the collecting site may be
    different.
    This field is used by LEDI software.
.34 HOST UID ORU;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<10) X
  • LAST EDITED:  NOV 22, 2005
  • HELP-PROMPT:  Answer must be 10-20 characters in length
  • DESCRIPTION:  Each Order/Accession is given a HOST UID. The UID is stored in this location. If LEDI software is used to accession specimens, usually the collecting site's UID is used to track specimens. If the collecting
    UID conflicts with the HOST system number sequence, the HOST UID will be used instead of the collecting site's UID.
    This field is used by LEDI software.
.342 ORDERING SITE UID ORU;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<10) X
  • LAST EDITED:  NOV 22, 2005
  • HELP-PROMPT:  Answer must be 10-20 characters in length
  • DESCRIPTION:  This field contains the collecting site's UID for this specimen.
    This field is used by LEDI software.
.345 RELEASING SITE RF;1 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  JAN 29, 2009
  • HELP-PROMPT:  Enter the facility/site that is releasing this report.
  • DESCRIPTION:  This field indicates the site that released the clinical report. This field can be used to determine the information required to correctly indicate the address/location of the laboratory responsible for
    releasing the report.
.35 ORDERED TEST ORUT;0 Multiple #63.52 63.52

  • DESCRIPTION:  This subfile contains information about the ordered test(s) for this accession. The .01 field contains the ordered test NLT code requested by the clinical provider. If this test is a panel, all atomic tests
    within the panel will be associated with the ordered test using this NLT code.
.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.
  • LAST EDITED:  MAR 02, 1985
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.
  • LAST EDITED:  JUL 16, 1993
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.
  • LAST EDITED:  JUL 16, 1993
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 ICD CODE 3;0 POINTER Multiple #63.203 63.203

  • LAST EDITED:  JUN 28, 2012
  • DESCRIPTION:  
    These are the ICD 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