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

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | Found Entries | External References | Global Variables Directly Accessed | Local Variables | All

Print Page as PDF

Global: ^DIC(81.1

Package: CPT Files

Global: ^DIC(81.1

Information

FileMan FileNo	FileMan Filename	Package
81.1	CPT CATEGORY	CPT Files

Description

Directly Accessed By Routines, Total: 16

Package	Total	Routines
Third Party Billing	6	ABMDE8C ABMDEML ABMDEMLE ABMDESM1 ABMDESMH ABMEH63
CPT Files	4	^DIC(81.1 ACPT219 ACPT24P2 ACPTPOST
DRG Grouper	2	ICPTAPIU ICPTCR
Automated Information Collection System	1	IBDFLST
GUI Objects	1	BGOCPTP2
IHS Code Set Versioning	1	BCSVMD
Local Area Programs	1	AZAXPTR

Accessed By FileMan Db Calls, Total: 4

Package	Total	Routines
CPT Files	1	ACPT219
IHS Code Set Versioning	1	BCSVUT
Lexicon Utility	1	LEXQCP
Third Party Billing	1	ABMCVAPI

Pointed To By FileMan Files, Total: 2

Package	Total	FileMan Files
CPT Files	2	CPT CATEGORY(#81.1)[3] CPT(#81)[3]

Pointer To FileMan Files, Total: 3

Package	Total	FileMan Files
CPT Files	2	CPT CATEGORY(#81.1)[3] CPT(#81)[9999999.03]
Utility Tables	1	REVENUE CODES(#9999999.72)[9999999.01]

Fields, Total: 10

Field #	Name	Loc	Type	Details
.01	CATEGORY NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>80!($L(X)<3)!'(X'?1P.E) X` HELP-PROMPT: `ANSWER MUST BE 3-80 CHARACTERS IN LENGTH` DESCRIPTION: This field contains the category name associated with specified CPT Code. DELETE TEST: `.01,0)= I 1` CROSS-REFERENCE: `81.1^B` 1)= S ^DIC(81.1,"B",$E(X,1,63),DA)="" 2)= K ^DIC(81.1,"B",$E(X,1,63),DA)
2	TYPE OF CATEGORY	0;2	SET	'm' FOR MAJOR CATEGORY; 's' FOR SUB-CATEGORY; DESCRIPTION: This field contains the type of category associated with specified CPT code. It is a set of codes where 'm' - Major Category and 's' - Sub-Category
3	MAJOR CATEGORY	0;3	POINTER TO CPT CATEGORY FILE (#81.1)	CPT CATEGORY(#81.1) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=""m""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 19, 1988` DESCRIPTION: This field contains the Major Category associated with specified CPT Code. It is a pointer to the CPT Category File. SCREEN: `S DIC("S")="I $P(^(0),U,2)=""m"""` EXPLANATION: `Allow only 'major' categories.` CROSS-REFERENCE: `81.1^C` 1)= S ^DIC(81.1,"C",$E(X,1,30),DA)="" 2)= K ^DIC(81.1,"C",$E(X,1,30),DA)
4	BEGIN CPT RANGE	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5)!'(X?5N!(X?1U4N)!(X?4N1U)) X` LAST EDITED: `AUG 09, 2007` HELP-PROMPT: `Answer must be 5 characters in length` DESCRIPTION: Lowest CPT/HCPCS code to which this category applies. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `81.1^R2^MUMPS` 1)= I $P($G(^DIC(81.1,DA,0)),U,5)]"" D CBSET^ICPTCR(DA,X) 2)= I $P($G(^DIC(81.1,DA,0)),U,5)]"" D CBKIL^ICPTCR(DA,X) This updates the cross reference on the begin/end ranges for a category The cross reference looks like: ^DIC(81.1,<"R" or "M">,,DA)
5	END CPT RANGE	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5)!'(X?5N!(X?1U4N)!(X?4N1U)) X` LAST EDITED: `AUG 06, 2007` HELP-PROMPT: `Answer must be 5 characters in length.` DESCRIPTION: Highest CPT/HCPCS code to which this category applies. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `81.1^M^MUMPS` 1)= I $P(^DIC(81.1,DA,0),U,2)="m" D CSET^ICPTCR(DA,X,"M") 2)= I $P(^DIC(81.1,DA,0),U,2)="m" D CKIL^ICPTCR(DA,"M") This cross reference is for major categories. The format is: ^DIC(81.1,"M",,DA) = where the ranges have been converted to numeric formats, using $A if HCPCS codes. CROSS-REFERENCE: `81.1^R^MUMPS` 1)= I $P(^DIC(81.1,DA,0),U,2)'="m" D CSET^ICPTCR(DA,X,"R") 2)= I $P(^DIC(81.1,DA,0),U,2)'="m" D CKIL^ICPTCR(DA,"R") This cross reference is for other than major categories. The format is: ^DIC(81.1,"R",,DA) = where the ranges have been converted to numeric formats, using $A if HCPCS codes.
6	SOURCE	0;6	SET	'C' FOR CPT; 'H' FOR HCPCS; LAST EDITED: `JUN 22, 2006` DESCRIPTION: Category defined by CPT or HCPCS.
100	DESCRIPTION	D;0	WORD-PROCESSING #81.11	DESCRIPTION: This field contains the full description of the CPT Category chosen.
9999999.01	DEFAULT REVENUE CODE	9999999;1	POINTER TO REVENUE CODES FILE (#9999999.72)	REVENUE CODES(#9999999.72) LAST EDITED: `NOV 06, 1990`
9999999.02	PREVENT MODIFIER PROMPT	9999999;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 13, 1991`
9999999.03	FIRST CPT CODE	9999999;3	POINTER TO CPT FILE (#81)	CPT(#81) LAST EDITED: `OCT 27, 1997` CROSS-REFERENCE: `81.1^ACPT` 1)= S ^DIC(81.1,"ACPT",$E(X,1,30),DA)="" 2)= K ^DIC(81.1,"ACPT",$E(X,1,30),DA)

External References

Name	Field # of Occurrence
^DIC	3+1
CBKIL^ICPTCR	4(XREF 1K)
CBSET^ICPTCR	4(XREF 1S)
CKIL^ICPTCR	5(XREF 1K), 5(XREF 2K)
CSET^ICPTCR	5(XREF 1S), 5(XREF 2S)

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(81.1 - [#81.1]	.01(XREF 1S), .01(XREF 1K), 3(XREF 1S), 3(XREF 1K), 4(XREF 1S), 4(XREF 1K), 5(XREF 1S), 5(XREF 1K), 5(XREF 2S), 5(XREF 2K) , 9999999.03(XREF 1S), 9999999.03(XREF 1K)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K), 3(XREF 1S), 3(XREF 1K), 4(XREF 1S), 4(XREF 1K), 5(XREF 1S), 5(XREF 1K), 5(XREF 2S), 5(XREF 2K) , 9999999.03(XREF 1S), 9999999.03(XREF 1K)
DIC	3+1!*
DIC("S"	3+1, 3SCR+1
>> DIE	3+1
U	4(XREF 1S), 4(XREF 1K), 5(XREF 1S), 5(XREF 1K), 5(XREF 2S), 5(XREF 2K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 3+1*!, 3(XREF 1S), 3(XREF 1K), 4+1!, 4(XREF 1S), 4(XREF 1K), 5+1! , 5(XREF 1S), 5(XREF 2S), 9999999.03(XREF 1S), 9999999.03(XREF 1K)
>> Y	3+1

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | Found Entries | External References | Global Variables Directly Accessed | Local Variables | All