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 |  Pointer To FileMan Files |  Fields |  ICR |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^LAB(61.6

Package: Lab Service

Global: ^LAB(61.6


Information

FileMan FileNo FileMan Filename Package
61.6 OCCUPATION FIELD Lab Service

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
Lab Service 2 SYNONYMS    ^LAB(61.6    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Lab Service 1 LAB JOURNAL(#95)[#61.62(2)]    

Fields, Total: 5

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>90!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
  • LAST EDITED:  FEB 09, 1989
  • HELP-PROMPT:  Answer must be 3-90 characters in length.
  • DESCRIPTION:  
    The name of the job.
  • DELETE TEST:  1,0)= I '$D(^XUSEC("LRLIASON",DUZ))
  • CROSS-REFERENCE:  61.6^B
    1)= S ^LAB(61.6,"B",$E(X,1,30),DA)=""
    2)= K ^LAB(61.6,"B",$E(X,1,30),DA)
2 SNOMED CODE 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<2)!'(X?.AN)!(X?1"J-".E)!(X?1"J"1N.E) X I $D(X) S Y=$O(^LAB(61.6,"C",X,0)) I Y>0 K:'$D(^LAB(61.6,Y,0)) ^LAB(61.6,"C",X,Y) I $D(^LAB(61.6,Y,0)) K X W *7,!," ALREADY AN ENTRY",! Q
  • LAST EDITED:  MAR 15, 2013
  • HELP-PROMPT:  ANSWER MUST BE 2-15 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    The characters following "J-" in the SNOMED reference book.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  61.6^C
    1)= S ^LAB(61.6,"C",$E(X,1,30),DA)=""
    2)= K ^LAB(61.6,"C",$E(X,1,30),DA)
3 SYNONYMS 1;0 Multiple #61.61 61.61

  • DESCRIPTION:  
    This is a multiple field.  It contains synonyms or common misspellings of this job.
5 JOURNAL REFERENCE JR;0 Multiple #61.62 61.62

  • DESCRIPTION:  
    This is a multiple field.  It contains journal references that apply to this job.
6 ABBREVIATION 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  JUN 09, 1984
  • HELP-PROMPT:  ANSWER MUST BE 1-5 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is a 1 to 5 character abbreviation for this job.  It is used as a unique code for it.
  • CROSS-REFERENCE:  61.6^B^MNEMONIC
    1)= S ^LAB(61.6,"B",$E(X,1,30),DA)=1
    2)= K ^LAB(61.6,"B",$E(X,1,30),DA)

ICR, Total: 2

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #197
  • ONCOLOGY
    		•
    ICR #10135 NAME (.01).
    Access: Read w/Fileman

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^LAB(61.6 - [#61.6] .01(XREF 1S), .01(XREF 1K), 2+1!, 2(XREF 1S), 2(XREF 1K), 6(XREF 1S), 6(XREF 1K)
    ^XUSEC("LRLIASON" .01DEL1+1

    Naked Globals

    Name Field # of Occurrence
    ^("0" ID2+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> DA .01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K), 6(XREF 1S), 6(XREF 1K)
    DUZ .01DEL1+1
    U ID2+1
    X .01+1!, .01(XREF 1S), .01(XREF 1K), 2+1!, 2(XREF 1S), 2(XREF 1K), 6+1!, 6(XREF 1S), 6(XREF 1K)
    >> Y 2+1*
    Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  ICR |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All