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

Package: Lab Service

Global: ^LAB(61.4


Information

FileMan FileNo FileMan Filename Package
61.4 DISEASE FIELD Lab Service

Description

Directly Accessed By Routines, Total: 9

Package Total Routines
Lab Service 9 LR7OSAP2    LRAPBK1    LRAPPF1    LRAPS1    LRAPS2    LREPICY    LRPXAPIU    SYNONYMS
^LAB(61.4    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Health Summary 1 GMTSLRPE    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
IHS Patient 1 V PATHOLOGY(#9000010.24)[#9000010.2421(.01)]    
Lab Service 1 LAB DATA(#63)[#63.15(.01), #63.21(.01), #63.215(.01), #63.915(.01)]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Lab Service 1 LAB JOURNAL(#95)[#61.411(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 disease.
  • DELETE TEST:  1,0)= I '$D(^XUSEC("LRLIASON",DUZ))
  • CROSS-REFERENCE:  61.4^B
    1)= S ^LAB(61.4,"B",$E(X,1,30),DA)=""
    2)= K ^LAB(61.4,"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"D-".E)!(X?1"D"1N.E) X I $D(X) S Y=$O(^LAB(61.4,"C",X,0)) I Y>0 K:'$D(^LAB(61.4,Y,0)) ^LAB(61.4,"C",X,Y) I $D(^LAB(61.4,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 "D-" in the SNOMED reference book.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  61.4^C
    1)= S ^LAB(61.4,"C",$E(X,1,30),DA)=""
    2)= K ^LAB(61.4,"C",$E(X,1,30),DA)
3 SYNONYMS 1;0 Multiple #61.41 61.41

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

  • DESCRIPTION:  
    This is a multiple field.  It contains Journal references that apply to this disease.
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 the disease.  It is used as a unique code for it.
  • CROSS-REFERENCE:  61.4^B^MNEMONIC
    1)= S ^LAB(61.4,"B",$E(X,1,30),DA)=1
    2)= K ^LAB(61.4,"B",$E(X,1,30),DA)

ICR, Total: 1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(61.4 - [#61.4] .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