Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 64.018

Package: Lab Service

WKLD CODE(#64)-->64.018

Sub-Field: 64.018


Information

Parent File Name Number Package
WKLD CODE(#64) CODE 64.018 Lab Service

Details

Field # Name Loc Type Details
.01 CODE 0;1 VARIABLE POINTER CPT(#81)  MORPHOLOGY FIELD(#61.1)  ICD DIAGNOSIS(#80)  

  • OUTPUT TRANSFORM:  I $G(Y) S Y=$P(@(U_$P(Y,";",2)_+Y_",0)"),U)_" "_$S($D(^(80))#2:^(80),1:$P(^(0),U,2))
  • LAST EDITED:  DEC 19, 2000
  • DESCRIPTION:  
    This field links WKLD code to other codes including CPT, SNOMED, and ICD9. This field will be maintained by Pathology and Laboratory Medicine Service.
  • CROSS-REFERENCE:  64.018^B
    1)= S ^LAM(DA(1),4,"B",$E(X,1,30),DA)=""
    2)= K ^LAM(DA(1),4,"B",$E(X,1,30),DA)
    3)= Cross reference codes
  • CROSS-REFERENCE:  ^^TRIGGER^64.018^5
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAM(D0,4,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV D LAM185^LRXREF X ^DD(64.018,.01,1,2,1.4)
    1.4)= S DIH=$S($D(^LAM(DIV(0),4,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=64.018,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAM(D0,4,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(64.018,.01,1,2,2.4)
    2.4)= S DIH=$S($D(^LAM(DIV(0),4,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=64.018,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    3)= Set TYPE of code.
    CREATE VALUE)= D LAM185^LRXREF
    DELETE VALUE)= @
    FIELD)= TYPE
  • CROSS-REFERENCE:  64^AB
    1)= S ^LAM("AB",$E(X,1,30),DA(1),DA)=""
    2)= K ^LAM("AB",$E(X,1,30),DA(1),DA)
    3)= Cross reference coding schemes
    This cross reference is used to provide a listing of all WKLD CODE that have codes defined. It is to be used for quick lookup.
    ^LAM("AB",CODE VARIABLE POINTER,IEN,MULTIPLE LOCATION)=""





2
RELEASE DATE
0;3
DATE 

************************REQUIRED FIELD************************
  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  AUG 31, 2000
  • HELP-PROMPT:  (No range limit on date)
  • DESCRIPTION:  Enter the date that the code becomes 'ACTIVE'





3
INACTIVE DATE
0;4
DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1!($P(^LAM(DA(1),4,DA,0),U,3)'=""&(Y'>$P(^LAM(DA(1),4,DA,0),U,3))) X
  • LAST EDITED:  JUL 12, 1996
  • DESCRIPTION:  Enter the date that the code becomes inactive. The code is considered active if a date has not been entered.
  • EXECUTABLE HELP:  W !!,?10,"Inactive Date cannot be Prior to Release Date",!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER





4
REPLACEMENT CODE
0;5
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  MAY 29, 1996
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    Enter the replacing code after inactivation.





5
TYPE
0;2
SET 

************************REQUIRED FIELD************************
  • 'CPT' FOR CPT CODE;
  • 'SNO' FOR SNOMED CODE;
  • 'ICD' FOR ICD9 CODE;
  • 'NOS' FOR NOS;
  • LAST EDITED:  APR 18, 2000
  • HELP-PROMPT:  Enter coding system
  • DESCRIPTION:  
    Enter the coding system that uses this code.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the CODE field of the CODE sub-field of the WKLD CODE File
  • CROSS-REFERENCE:  64^AD^MUMPS
    1)= S ^LAM("AD",DA(1),X,DA)=""
    2)= K ^LAM("AD",DA(1),X,DA)
    Creat a cross reference by linked coding systems.
    ^LAM("AD",SUBFILE,CODING SYSTEM,IEN)
  • CROSS-REFERENCE:  64.018^AC
    1)= S ^LAM(DA(1),4,"AC",$E(X,1,30),DA)=""
    2)= K ^LAM(DA(1),4,"AC",$E(X,1,30),DA)





6
CODE NOTES
1;0
WORD-PROCESSING #64.186

  • DESCRIPTION:  
    This field is used for tracking general notes regarding a particular code.







    



Info | 
Details | 
All