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

Package: CPT Files

CPT MODIFIER(#81.3)-->81.32

Sub-Field: 81.32


Information

Parent File Name Number Package
CPT MODIFIER(#81.3) RANGE 81.32 CPT Files

Details

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

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5)!'(X?5N!(X?1U4N)!(X?4N1U)) X
  • LAST EDITED:  JAN 24, 2002
  • HELP-PROMPT:  Answer must be 5 characters in length.
  • DESCRIPTION:  
    First code for which this modifier is applicable.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  81.32^B
    1)= S ^DIC(81.3,DA(1),10,"B",$E(X,1,30),DA)=""
    2)= K ^DIC(81.3,DA(1),10,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  81.32^M2^MUMPS
    1)= I $P($G(^DIC(81.3,DA(1),10,DA,0)),U,2)]"" D MBSET^ICPTCR(.DA,X)
    2)= I $P($G(^DIC(81.3,DA(1),10,DA,0)),U,2)]"" D MBKIL^ICPTCR(.DA,X)
    Same as x-ref on END CPT RANGE, but updated if BEGIN RANGE changed.
  • CROSS-REFERENCE:  81.3^M^MUMPS
    1)= I $P($G(^DIC(81.3,DA(1),10,DA,0)),U,2)]"" D MBSET^ICPTCR(.DA,X,1)
    2)= I $P($G(^DIC(81.3,DA(1),10,DA,0)),U,2)]"" D MBKIL^ICPTCR(.DA,X,1)
    Whole file cross reference by range.  ^DIC(81.3,,,)=mult. record #
    HCPCS code ranges converted to numeric using $A.





.02
END CPT RANGE
0;2
FREE TEXT 

************************REQUIRED FIELD************************
  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5)!'(X?5N!(X?1U4N)!(X?4N1U)) X
  • LAST EDITED:  JAN 24, 2002
  • HELP-PROMPT:  Answer must be 5 characters in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  81.32^M^MUMPS
    1)= D MSET^ICPTCR(.DA,X)
    2)= D MKIL^ICPTCR(.DA,X)
    The cross reference format is: ^DIC(81.3,DA(1),"M",) = 
    The cpt ranges have been converted to numeric formats, using $A, if HCPCS codes.
  • CROSS-REFERENCE:  81.3^MR^MUMPS
    1)= D MSET^ICPTCR(.DA,X,1)
    2)= D MKIL^ICPTCR(.DA,X,1)
    See description of M cross reference on BEGIN RANGE





.03
ACTIVE DATE
0;3
DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:2990101>X X
  • LAST EDITED:  DEC 27, 2000
  • HELP-PROMPT:  Enter the date this range is considered active





.04
INACTIVE DATE
0;4
DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  DEC 27, 2000
  • HELP-PROMPT:  Enter the date this range becomes inactive







    



Info | 
Details | 
All