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

Package: Lab Service

Global: ^LAB(61.1


Information

FileMan FileNo FileMan Filename Package
61.1 MORPHOLOGY FIELD Lab Service

Description

Directly Accessed By Routines, Total: 22

Package Total Routines
Lab Service 21 LR7OB63C    LR7OB63D    LR7OSAP1    LR7OSAP2    LRAPAUL    LRAPONC    ^LAB(61.1    LRAPBK1
LRAPCUM1    LRAPPF1    LRAPQAR    LRAPS1    LRAPS2    LRAPT2    LRAPWR1    LRAUL
LRCYPCT    LREPICY    LRPXAPIU    LRSPRPT2    SYNONYMS    
Clinical Reminders 1 PXRMCWH    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Health Summary 1 GMTSLRPE    

Pointed To By FileMan Files, Total: 7

Package Total FileMan Files
Lab Service 4 LAB NLT/CPT CODES(#64.81)[#64.811718(.01)]    WKLD CODE(#64)[#64.018(.01)]    LAB DATA(#63)[#63.16(.01), #63.216(.01), #63.22(.01), #63.916(.01)]    LAB SECTION PRINT(#69.2)[#69.212(.01)]    
Medicine 2 NORMALITY OF CORONARY VESSEL(#695.9)[1]    LESION MORPHOLOGY(#696.2)[1]    
IHS Patient 1 V PATHOLOGY(#9000010.24)[#9000010.2422(.01)]    

Pointer To FileMan Files, Total: 1

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

Fields, Total: 6

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

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X I $D(X),X?1"M"1N.E!(X?1"M-".E) K X W *7,!,"Enter SNOMED CODE without M or M-" Q
  • LAST EDITED:  SEP 11, 1984
  • HELP-PROMPT:  ANSWER MUST BE 3-80 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    The name of the morphology.
  • DELETE TEST:  1,0)= I '$D(^XUSEC("LRLIASON",DUZ))
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  61.1^B
    1)= S ^LAB(61.1,"B",$E(X,1,30),DA)=""
    2)= K ^LAB(61.1,"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"M-")!(X?1"M"1N.E) X I $D(X) S Y=$O(^LAB(61.1,"C",X,0)) I Y>0 K:'$D(^LAB(61.1,Y,0)) ^LAB(61.1,"C",X,Y) I $D(^LAB(61.1,Y,0)) K X W *7,!," ALREADY AN ENTRY",! Q
  • LAST EDITED:  JAN 23, 1989
  • HELP-PROMPT:  ANSWER MUST BE 2-8 CHARACTERS IN LENGTH AND NOT BEGIN WITH M or M-
  • DESCRIPTION:  
    The characters following "M-" in the SNOMED reference book.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  61.1^C
    1)= S ^LAB(61.1,"C",$E(X,1,30),DA)=""
    2)= K ^LAB(61.1,"C",$E(X,1,30),DA)
3 SYNONYMS 1;0 Multiple #61.11 61.11

  • DESCRIPTION:  
    This is a multiple field.  Enter synonyms or common misspellings of this morphology.
4 ON SHORT LIST 0;4 SET
  • '1' FOR YES;

  • DESCRIPTION:  
    If answered YES the entry will appear on a short list of codes generated by the search option of FileMan.
5 JOURNAL REFERENCE JR;0 Multiple #61.12 61.12

  • DESCRIPTION:  
    This is a multiple field.  You may enter Journal references that apply to this morphology.
6 ABBREVIATION 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  FEB 28, 1984
  • HELP-PROMPT:  ANSWER MUST BE 1-5 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This must be a 1 to 5 character abbreviation for this morphology and will be used as a unique code for it.
  • CROSS-REFERENCE:  61.1^B^MNEMONIC
    1)= S ^LAB(61.1,"B",$E(X,1,30),DA)=1
    2)= K ^LAB(61.1,"B",$E(X,1,30),DA)

ICR, Total: 4

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #529
  • HEALTH SUMMARY
    		•  NAME (.01).
    Access: Direct Global Read & w/Fileman
    ICR #4155
  • WOMEN'S HEALTH
  • CLINICAL REMINDERS
    		•
    ICR #4249
  • CLINICAL REMINDERS
    		•  NAME (.01).
    Access: Direct Global Read & w/Fileman

    SNOMED CODE (2).
    Access: Direct Global Read & w/Fileman
    ICR #10130 NAME (.01).
    Access: Read w/Fileman

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^LAB(61.1 - [#61.1] .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 |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All