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

Package: Lab Service

LAB DATA(#63)-->63.09

Sub-Field: 63.09


Information

Parent File Name Number Package
LAB DATA(#63) CYTOPATHOLOGY 63.09 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:  FUTURE DATE/TIME NOT ALLOWED
  • DESCRIPTION:  
    This is the date/time of collection of the specimen.
    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:  FEB 28, 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.902 63.902

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

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

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

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

  • DESCRIPTION:  
    This is the post-operative diagnosis.
.02 PATHOLOGIST/CYTOTECHNOLOGIST 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:  FEB 05, 2004
  • HELP-PROMPT:  Enter the pathologist or cytotechnologist performing the examination. NOTE: A cytotech's name can be entered on negative GYN cases only.
  • DESCRIPTION:  
    This is the pathologist performing the examination.
  • 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 CYTOTECH 0;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    This is the 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),"CY",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 CYTOPATH 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("ACYA",$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 cytopathology specimen.
  • EXECUTABLE HELP:  W !,"Enter as prefix yr number (ex. CY 95 345)"
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  63^ACYA^MUMPS
    1)= S X(1)=$S($D(LRAD):LRAD,1:$P(^LR(DA(1),"CY",DA,0),U,10)),X(2)=$S($D(LRABV):LRABV,1:$P(^LR(DA(1),"CY",DA,0),U,6)) S:X(1)&(X(2)]"") ^LR("ACYA",$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),"CY",DA,0),U,10)),X(2)=$S($D(LRABV):LRABV,1:$P(^LR(DA(1),"CY",0),U,6)) K:X(1)&(X(2)]"") ^LR("ACYA",$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 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 cytopathology 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^ACY^MUMPS
    1)= S ^LR("ACY",$E(X,1,30),DA(1),DA)=""
    2)= K ^LR("ACY",$E(X,1,30),DA(1),DA)
.101 REVIEWED BY PATHOLOGIST 0;12 SET

  • LAST EDITED:  AUG 04, 1987
  • HELP-PROMPT:  Enter 'YES' if case reviewed by pathologist.
  • DESCRIPTION:  
    YES identifies that the case has been reviewed by the pathologist.
.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),"CY",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:  FEB 19, 1999
  • HELP-PROMPT:  ONLY CURRENT DATE/TIME ALLOWED
  • DESCRIPTION:  
    Date report was released
  • EXECUTABLE HELP:  K DZ
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  63.09^AC^MUMPS
    1)= D ADD^LRWOMEN
    2)= D DEL^LRWOMEN
    This cross reference will send notification to the Women's Health Program when a Cytology specimen is Verified/Released from the Laboratory package.
  • FIELD INDEX:  AD (#511) 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 cytology results are released.
    Set Logic:  D APQ^LA7HDR(DA(1),"CY",DA)
    Kill Logic:  Q
    X(1):  REPORT RELEASE DATE/TIME  (63.09,.11)  (Subscr 1)  (forwards)
.13 RELEASED BY 0;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    Name of individual who released 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 - CY .05;0 DATE Multiple #63.47 63.47

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

  • 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.908 63.908

  • LAST EDITED:  MAR 13, 1984
  • HELP-PROMPT:  ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    These are comments on the cytopathology data.
1 GROSS DESCRIPTION 1;0 WORD-PROCESSING #63.91

  • LAST EDITED:  NOV 06, 1984
  • DESCRIPTION:  
    This is the gross description of the specimen.
1.1 MICROSCOPIC EXAMINATION 1.1;0 WORD-PROCESSING #63.911

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

  • DESCRIPTION:  
    These are the supplementary reports on the specimen.
1.4 CYTOPATHOLOGY DIAGNOSIS 1.4;0 WORD-PROCESSING #63.903

  • DESCRIPTION:  
    Cytopathology diagnoses are entered here.
4 DATE MICROSCOPIC EXAM MODIFIED 4;0 DATE Multiple #63.94 63.94

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

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

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

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

  • DESCRIPTION:  
    This is 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:  CYTOPATH ORGAN/TISSUE (AC)
80 ICD DIAGNOSIS 3;0 POINTER Multiple #63.901 63.901

  • DESCRIPTION:  
    These are the IDC diagnosis of the specimen.
2005 IMAGE 2005;0 POINTER Multiple #63.92005 63.92005

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