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.08

Package: Lab Service

LAB DATA(#63)-->63.08

Sub-Field: 63.08


Information

Parent File Name Number Package
LAB DATA(#63) SURGICAL PATHOLOGY 63.08 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:  JAN 20, 1985
  • HELP-PROMPT:  ENTER ONLY PAST OR PRESENT DATE/TIME --Future times not permitted
  • DESCRIPTION:  
    This is the date/time the specimen was taken.
    DELETE AUTHORITY: @
  • 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:  SEP 11, 1984
  • HELP-PROMPT:  ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the person submitting the specimen.
.012 SPECIMEN .1;0 Multiple #63.812 63.812

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

  • DESCRIPTION:  
    This is a brief clinical history of the specimen.
.014 PREOPERATIVE DIAGNOSIS .3;0 WORD-PROCESSING #63.814

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

  • DESCRIPTION:  
    These are the operative findings of the specimen.
.016 POSTOPERATIVE DIAGNOSIS .5;0 WORD-PROCESSING #63.816
.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.
  • AUDIT:  EDITED OR DELETED
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.021 RESIDENT PATHOLOGIST 0;4 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 resident pathologist performing the procedure.
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"
  • AUDIT:  EDITED OR DELETED
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.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),"SP",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 is completed.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.06 SURGICAL PATH 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("ASPA",$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 surgical pathology specimen.
  • EXECUTABLE HELP:  W !,"Enter as prefix yr number (ex. SP 95 345)"
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  63^ASPA^MUMPS
    1)= S X(1)=$S($D(LRAD):LRAD,1:$P(^LR(DA(1),"SP",DA,0),U,10)),X(2)=$S($D(LRABV):LRABV,1:$P(^LR(DA(1),"SP",DA,0),U,6)) S:X(1)&(X(2)]"") ^LR("ASPA",$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),"SP",DA,0),U,10)),X(2)=$S($D(LRABV):LRABV,1:$P(^LR(DA(1),"SP",0),U,6)) K:X(1)&(X(2)]"") ^LR("ASPA",$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 SURGEON/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 provider.
  • 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:  JAN 31, 1983
  • 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:  OCT 16, 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^ASP
    1)= S ^LR("ASP",$E(X,1,30),DA(1),DA)=""
    2)= K ^LR("ASP",$E(X,1,30),DA(1),DA)
.11 REPORT RELEASE DATE/TIME 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),"SP",DA,0),U,3),".") K X W !,"Release date must not be before report completed date (" S Y=$P(^(0),U,3) D DD^%DT W Y,")"
  • LAST EDITED:  FEB 19, 1999
  • HELP-PROMPT:  ONLY PRESENT DATE/TIME ALLOWED
  • DESCRIPTION:  
    YES indicates the report was released.
  • EXECUTABLE HELP:  K DZ
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  63.08^AC^MUMPS
    1)= D ADD^LRWOMEN
    2)= D DEL^LRWOMEN
    This cross reference will send notification to the Women's Health Program when a Surgical Pathology specimen on a female is verified/released by the laboratory.
  • FIELD INDEX:  AD (#510) 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 surgical pathology results are released.
    Set Logic:  D APQ^LA7HDR(DA(1),"SP",DA)
    Kill Logic:  Q
    X(1):  REPORT RELEASE DATE/TIME  (63.08,.11)  (Subscr 1)  (forwards)
.13 RELEASED BY 0;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
.14 TC CODE 0;14 SET

  • LAST EDITED:  DEC 05, 1989
  • 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 - SP .05;0 DATE Multiple #63.19 63.19

  • LAST EDITED:  AUG 28, 2001
  • DESCRIPTION:  
    This multiple stores TIU information for corresponding SF515 surgical pathology reports that have been electronically signed and stored in TIU.  This information is used to access the reports in TIU.
.17 DATE REPORT MODIFIED - SP .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:

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

  • 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.98 63.98

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

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

  • LAST EDITED:  JUL 15, 1993
  • DESCRIPTION:  
    This is the microscopic examination diagnosis.
1.2 SUPPLEMENTARY REPORT 1.2;0 DATE Multiple #63.817 63.817

  • DESCRIPTION:  
    These are supplementary reports on the specimen.
1.3 FROZEN SECTION 1.3;0 WORD-PROCESSING #63.801

  • DESCRIPTION:  
    Frozen section descriptions can optionally be entered in this field.
1.4 SURGICAL PATH DIAGNOSIS 1.4;0 WORD-PROCESSING #63.802

  • LAST EDITED:  JUL 16, 1993
  • DESCRIPTION:  
    Surgical pathology diagnoses are entered here.
4 DATE MICROSCOPIC EXAM MODIFIED 4;0 DATE Multiple #63.84 63.84

  • 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.085 63.085

  • DESCRIPTION:  
    These are the dates of modification of the diagnosis field (DD(63.08,1.4))
6 DATE FROZEN SECTION MODIFIED 6;0 DATE Multiple #63.086 63.086

  • DESCRIPTION:  
    These are the dates of modification of the frozen section field.
7 DATE GROSS DESCRIPTION CHANGED 7;0 DATE Multiple #63.087 63.087

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

  • SCREEN:  S DIC("S")="I $P(^(0),U,4)=""I"",$L($P(^(0),U))<3"
  • EXPLANATION:  Selects entries with less than 3 characters
10 ORGAN/TISSUE 2;0 POINTER Multiple #63.12 63.12

  • 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
  • INDEXED BY:  ORGAN/TISSUE (AC)
80 ICD DIAGNOSIS 3;0 POINTER Multiple #63.88 63.88

  • DESCRIPTION:  
    These are the ICD diagnoses associated with this organ/tissue(s).
2005 IMAGE 2005;0 POINTER Multiple #63.82005 63.82005

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