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 |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Global: ^LAB(64.81

Package: Lab Service

Global: ^LAB(64.81


Information

FileMan FileNo FileMan Filename Package
64.81 LAB NLT/CPT CODES Lab Service

Description

Directly Accessed By Routines, Total: 29

Package Total Routines
Lab Service 29 CODE    LR127    LR127P    LR127PO    LR138P    LR163    LR258PO    LR302PO
LR334PO    LR451    LR477    LR493    LR502    LR511    LR515    LR525
LR532    LR539    LR550    LR556    LR571    ^LAB(64.81    LR542    LR560
LR563    LR567    RELATED NAME    SYNONYM    TRANSPORT    

Accessed By FileMan Db Calls, Total: 21

Package Total Routines
Lab Service 21 LR127PO    LR163    LR258PO    LR302PO    LR334PO    LR451    LR477    LR493
LR502    LR511    LR515    LR525    LR532    LR539    LR542    LR550
LR556    LR560    LR563    LR567    LR571    

Pointer To FileMan Files, Total: 8

Package Total FileMan Files
Lab Service 6 MORPHOLOGY FIELD(#61.1)[#64.811718(.01)]    LAB ELECTRONIC CODES(#64.061)[#64.8117(64)]    WKLD CODE LAB SECT(#64.21)[#64.8117(14)]    WKLD ITEM FOR COUNT(#64.22)[#64.8117(7)]    WKLD INSTRUMENT MANUFACTURER(#64.3)[#64.8117(13)]    LAB LOINC(#95.3)[#64.8117(26)]    
CPT HCPCS Codes 1 CPT(#81)[#64.811718(.01)]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[#64.811718(.01)]    

Fields, Total: 17

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)>60!($L(X)<2) X
  • LAST EDITED:  JAN 12, 2000
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
  • CROSS-REFERENCE:  64.81^B
    1)= S ^LAB(64.81,"B",$E(X,1,30),DA)=""
    2)= K ^LAB(64.81,"B",$E(X,1,30),DA)
1 NLT CODE 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>13!($L(X)<5) X
  • LAST EDITED:  DEC 27, 2000
  • HELP-PROMPT:  Answer must be 5-13 characters in length.
  • DESCRIPTION:  
    These are codes used to update target files with new procedures.
  • CROSS-REFERENCE:  64.81^C
    1)= S ^LAB(64.81,"C",$E(X,1,30),DA)=""
    2)= K ^LAB(64.81,"C",$E(X,1,30),DA)
2 EXTERNAL CODE 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5) X
  • LAST EDITED:  APR 10, 2000
  • HELP-PROMPT:  Answer must be 5-10 characters in length.
3 RELEASE DATE 0;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 31, 1996
4 INACTIVE DATE 0;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 31, 1996
5 REPLACEMENT CODE 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5) X
  • LAST EDITED:  JUL 31, 1996
  • HELP-PROMPT:  Answer must be 5-10 characters in length.
6 TYPE 0;7 SET
  • 'CPT' FOR CPT CODE;
  • 'SNO' FOR SNOMED CODE;
  • 'ICD' FOR ICD9 CODE;
  • 'NOS' FOR NOS;

  • LAST EDITED:  JUL 31, 1996
7 NAME CHANGE 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3) X
  • LAST EDITED:  JUL 31, 1996
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
8 INSTALL ERROR 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<2) X
  • LAST EDITED:  JUL 31, 1996
  • HELP-PROMPT:  Answer must be 2-20 characters in length.
10 SUFFIX CODE 1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5) X
  • LAST EDITED:  NOV 29, 1999
  • HELP-PROMPT:  Answer must be 5-10 characters in length.
  • CROSS-REFERENCE:  64.81^D
    1)= S ^LAB(64.81,"D",$E(X,1,30),DA)=""
    2)= K ^LAB(64.81,"D",$E(X,1,30),DA)
11 SUFFIX CODE CHANGE 1;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5) X
  • LAST EDITED:  APR 10, 2000
  • HELP-PROMPT:  Answer must be 5-10 characters in length.
12 FILE CHANGE 1;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>64.2)!(X<64)!(X?.E1"."2N.N) X
  • LAST EDITED:  NOV 29, 1999
  • HELP-PROMPT:  Type a Number between 64 and 64.2, 1 Decimal Digit
13 SYNONYM CODE 1;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5) X
  • LAST EDITED:  APR 10, 2000
  • HELP-PROMPT:  Answer must be 5-10 characters in length.
14 SYNONYM CODE CHANGE 1;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5) X
  • LAST EDITED:  APR 10, 2000
  • HELP-PROMPT:  Answer must be 5-10 characters in length.
15 SYNONYM NAME 1;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3) X
  • LAST EDITED:  APR 10, 2000
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
16 SYNONYM NAME CHANGE 1;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3) X
  • LAST EDITED:  NOV 24, 1999
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
17 TRANSPORT 2;0 Multiple #64.8117 64.8117

  • LAST EDITED:  APR 15, 2000
  • DESCRIPTION:  
    This is an entry transported from the Workload Code file (64).

Found Entries, Total: 1

NAME: NLT CODE 06 2006    

External References

Name Field # of Occurrence
^%DT 3+1, 4+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(64.81 - [#64.81] .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 10(XREF 1S), 10(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 3+1*, 4+1*
>> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 10(XREF 1S), 10(XREF 1K)
X .01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1K), 2+1!, 3+1*!, 4+1*!, 5+1!
, 7+1!, 8+1!, 10+1!, 10(XREF 1S), 10(XREF 1K), 11+1!, 12+1!, 13+1!, 14+1!, 15+1!
, 16+1!
>> Y 3+1, 4+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables  | All