Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Print Page as PDF

Sub-Field: 81.32

Package: CPT HCPCS Codes

CPT MODIFIER(#81.3)-->81.32

Sub-Field: 81.32

Information

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

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`