Global: ^AUTTCMOD

FileMan FileNo	FileMan Filename	Package
9999999.88	CPT MODIFIER	Utility Tables

Directly Accessed By Routines, Total: 32

Package	Total	Routines
IHS GPRA Information System	19	BGP0D4 BGP1D27 BGP1D4 BGP2D27 BGP2D4 BGP3D27 BGP3D4 BGP4D27 BGP4D4 BGP5D27 BGP5D4 BGP6D27 BGP6D4 BGP7D27 BGP7D4 BGP8D21A BGP8D27 BGP8D4 BGP9D4
CPT Files	6	ACPT24P2 ACPT27FX ACPT28PD ACPT291L ACPTPOST ACPTPST2
GUI Objects	2	BGOVCPT2 BGOVTC
IHS Code Set Versioning	2	BCSVIN BCSVMD
Diabetes Registry	1	BDMLPM
IHS ICD CPT Lookup and Grouper	1	AICD11UT
iCare	1	BQIVFTLK

Package	Total	Routines
CPT Files	7	ACPT24P1 ACPT24P2 ACPT27FX ACPT28PA ACPT29P1 ACPTPOST ACPTPST2
Third Party Billing	1	ABMCVAPI

Package	Total	FileMan Files
IHS Patient	3	V CPT(#9000010.18)[.08, .09] V RADIOLOGY(#9000010.22)[.07, .08] V TRANSACTION CODES(#9000010.33)[.12, .15]
GUI Objects	1	BGO CPT PREFERENCES(#90362.31)[#90362.312(1), #90362.3121(.01)]
Third Party Billing	1	3P MODIFIERS(#9002274.07)[.01]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CODE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2UN) X S:$D(X) DINUM=$S(X=+X:X,1:$A($E(X))_$A($E(X,2)))` LAST EDITED: `APR 28, 1997` HELP-PROMPT: `Answer must be 2 characters in length.` DELETE TEST: `.01,0)= I 1` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002274.07^B` 1)= S ^AUTTCMOD("B",$E(X,1,30),DA)="" 2)= K ^AUTTCMOD("B",$E(X,1,30),DA)
.02	DESCRIPTION	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>150!($L(X)<1) X` LAST EDITED: `APR 25, 1997` HELP-PROMPT: `Answer must be 1-150 characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9999999.88^C^KWIC` 1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD("KWIC")'[I S ^AUTTCMOD("C",I,DA)="" 2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^AUTTCMOD("C",I,DA)

CODE

0;1

FREE TEXT

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

INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X?2UN) X S:$D(X) DINUM=$S(X=+X:X,1:$A($E(X))_$A($E(X,2)))
LAST EDITED: APR 28, 1997
HELP-PROMPT: Answer must be 2 characters in length.
DELETE TEST: .01,0)= I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 9002274.07^B

1)= S ^AUTTCMOD("B",$E(X,1,30),DA)=""

2)= K ^AUTTCMOD("B",$E(X,1,30),DA)

DESCRIPTION

0;2

FREE TEXT

CROSS-REFERENCE: 9999999.88^C^KWIC

1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD("KWIC")'[I S ^AUTTCMOD("C",I,DA)=""

2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^AUTTCMOD("C",I,DA)