Sub-Field: 399.30416

Parent File	Name	Number	Package
399.0304	CPT MODIFIER SEQUENCE	399.30416	Integrated Billing

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CPT MODIFIER SEQUENCE	0;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>10)!(X<1)!(X?.E1"."1N.N) X I $D(X) N Z S Z=$O(^DGCR(399,DA(2),"CP",DA(1),"MOD","B",X,0)) I Z,Z'=DA D EN^DDIOL(X_" has already been used!!",,"!,*7,?10") K X` LAST EDITED: `DEC 15, 1998` HELP-PROMPT: `Type a unique sequence number between 1 and 10, 0 Decimal Digits` DESCRIPTION: `This field determines the billing priority of the modifier.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `399.30416^B` `1)= S ^DGCR(399,DA(2),"CP",DA(1),"MOD","B",$E(X,1,30),DA)=""` `2)= K ^DGCR(399,DA(2),"CP",DA(1),"MOD","B",$E(X,1,30),DA)`
.02	CPT MODIFIER	0;2	POINTER TO CPT MODIFIER FILE (#81.3)	**********************REQUIRED FIELD********************** CPT MODIFIER(#81.3) INPUT TRANSFORM: `D B30416^IBACSV D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `APR 29, 2004` HELP-PROMPT: `ENTER A VALID CPT MODIFIER FOR THE PROCEDURE` SCREEN: `D B30416^IBACSV` EXPLANATION: `Only acceptable modifiers for the CPT Code may be selected!` CROSS-REFERENCE: `399.30416^C` `1)= S ^DGCR(399,DA(2),"CP",DA(1),"MOD","C",$E(X,1,30),DA)=""` `2)= K ^DGCR(399,DA(2),"CP",DA(1),"MOD","C",$E(X,1,30),DA)`

CPT MODIFIER SEQUENCE

0;1

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>10)!(X<1)!(X?.E1"."1N.N) X I $D(X) N Z S Z=$O(^DGCR(399,DA(2),"CP",DA(1),"MOD","B",X,0)) I Z,Z'=DA D EN^DDIOL(X_" has already been used!!",,"!,*7,?10") K X
LAST EDITED: DEC 15, 1998
HELP-PROMPT: Type a unique sequence number between 1 and 10, 0 Decimal Digits
DESCRIPTION:
This field determines the billing priority of the modifier.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 399.30416^B
1)= S ^DGCR(399,DA(2),"CP",DA(1),"MOD","B",$E(X,1,30),DA)=""
2)= K ^DGCR(399,DA(2),"CP",DA(1),"MOD","B",$E(X,1,30),DA)

CPT MODIFIER

0;2

POINTER TO CPT MODIFIER FILE (#81.3)

************************REQUIRED FIELD************************

INPUT TRANSFORM: D B30416^IBACSV D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
LAST EDITED: APR 29, 2004
HELP-PROMPT: ENTER A VALID CPT MODIFIER FOR THE PROCEDURE
SCREEN: D B30416^IBACSV
EXPLANATION: Only acceptable modifiers for the CPT Code may be selected!
CROSS-REFERENCE: 399.30416^C
1)= S ^DGCR(399,DA(2),"CP",DA(1),"MOD","C",$E(X,1,30),DA)=""
2)= K ^DGCR(399,DA(2),"CP",DA(1),"MOD","C",$E(X,1,30),DA)