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  | 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: 16

Package Total Routines
Lab Service 16 LR127    LR127P    LR127PO    LR138P    LR163    LR258PO    LR302PO    LR334PO
LR451    LR477    LR493    LR502    LR511    LR515    LR525    LR532

Accessed By FileMan Db Calls, Total: 13

Package Total Routines
Lab Service 13 LR127PO    LR163    LR258PO    LR302PO    LR334PO    LR451    LR477    LR493
LR502    LR511    LR515    LR525    LR532    

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    
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries  | All