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

Package: Lab Service

Global: ^LAB(61.5


Information

FileMan FileNo FileMan Filename Package
61.5 PROCEDURE FIELD Lab Service

Description

Directly Accessed By Routines, Total: 11

Package Total Routines
Lab Service 11 LR7OSAP2    LRAPBK1    LRAPD    LRAPPF1    LRAPS1    LRAPS2    LRCKF60    LREPICY
LRPXAPIU    ^LAB(61.5    SYNONYM    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Health Summary 1 GMTSLRPE    

Pointed To By FileMan Files, Total: 4

Package Total FileMan Files
Lab Service 2 LABORATORY TEST(#60)[14]    LAB DATA(#63)[#63.24(.01), #63.282(.01), #63.82(.01), #63.982(.01)]    
IHS Patient 1 V PATHOLOGY(#9000010.24)[#9000010.2425(.01)]    
Medicine 1 CATH PROCEDURE(#695.3)[1]    

Pointer To FileMan Files, Total: 1

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

Fields, Total: 6

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

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

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<2)!'(X?.AN)!(X?1"P-".E)!(X?1"P"1N.E) X I $D(X) S Y=$O(^LAB(61.5,"C",X,0)) I Y>0 K:'$D(^LAB(61.5,Y,0)) ^LAB(61.5,"C",X,Y) I $D(^LAB(61.5,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 "P-" in the SNOMED reference book.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  61.5^C
    1)= S ^LAB(61.5,"C",$E(X,1,30),DA)=""
    2)= K ^LAB(61.5,"C",$E(X,1,30),DA)
2.3 ASK RESULT 0;3 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  DEC 22, 1989
  • DESCRIPTION:  
    If a result of a procedure should be prompted for, enter 'Yes'.
3 SYNONYM 1;0 Multiple #61.51 61.51

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

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

ICR, Total: 2

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #680
  • CLINICAL PROCEDURES
    		•
    ICR #10134 NAME (.01).
    Access: Read w/Fileman

    Global Variables Directly Accessed

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