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

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All

Print Page as PDF

Global: ^DIC(81.1

Package: CPT HCPCS Codes

Global: ^DIC(81.1

Information

FileMan FileNo	FileMan Filename	Package
81.1	CPT CATEGORY	CPT HCPCS Codes

Description

Accessed By FileMan Db Calls, Total: 6

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 1

Fields, Total: 7

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.` 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` `'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: `JAN 19, 2005` HELP-PROMPT: `Answer must be 5 characters in length` DESCRIPTION: `Lowest CPT/HCPCS code to which this category applies.` 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: `JAN 19, 2005` HELP-PROMPT: `Answer must be 5 characters in length` DESCRIPTION: `Highest CPT/HCPCS code to which this category applies.` 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: `MAR 10, 1997` 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.`

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All