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

Package: Lab Service

LAB NLT/CPT CODES(#64.81)-->64.8117-->64.811718

Sub-Field: 64.811718


Information

Parent File Name Number Package
64.8117 CODE 64.811718 Lab Service

Details

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

  • EXPLANATION:  Only select active CPT codes.
    SCREEN ON FILE 80: S DIC("S")="I '$P(^ICD9(Y,0),U,9)"
  • EXPLANATION:  No inactive ICD9 codes.
  • LAST EDITED:  APR 01, 2003
  • DESCRIPTION:  
    What code is assigned to this procedure.
  • CROSS-REFERENCE:  64.811718^B
    1)= S ^LAB(64.81,DA(2),2,DA(1),4,"B",$E(X,1,30),DA)=""
    2)= K ^LAB(64.81,DA(2),2,DA(1),4,"B",$E(X,1,30),DA)
    3)= Required Index for Variable Pointer
2 RELEASE DATE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 27, 2000
  • DESCRIPTION:  
    Enter the date that the code becomes 'ACTIVE'.
3 INACTIVE DATE 0;4 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 18, 2000
  • DESCRIPTION:  
    Enter the date that the code became 'INACTIVE'.
4 REPLACEMENT CODE 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  APR 18, 2000
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    Enter the replacing code after inactivation.
5 TYPE 0;2 SET

  • LAST EDITED:  APR 18, 2000
  • DESCRIPTION:  
    Enter the coding system that uses this code.
6 CODE NOTES 1;0 WORD-PROCESSING #64.8117186

  • LAST EDITED:  DEC 27, 2000
  • DESCRIPTION:  
    Notes about the use of this code. about the use of this code.
Info |  Details