Sub-Field: 9002071.07

Parent File	Name	Number	Package
9002071.01	PROCEDURE (CPT)	9002071.07	Contract Health Management Information System

Parent File

Name

Number

Package

PROCEDURE (CPT)

9002071.07

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PROCEDURE (CPT)	0;1	POINTER TO CPT FILE (#81)	CPT(#81) LAST EDITED: `DEC 01, 1993` HELP-PROMPT: `Enter CPT Code For This Procedure` CROSS-REFERENCE: `9002071.07^B` 1)= S ^ACHSDEN(DA(2),"D",DA(1),700,"B",$E(X,1,30),DA)="" 2)= K ^ACHSDEN(DA(2),"D",DA(1),700,"B",$E(X,1,30),DA)
2	PROCEDURE (CPT) NARRATIVE	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` OUTPUT TRANSFORM: `D L^ACHS(9002071.07,2)` LAST EDITED: `JUL 20, 1995` HELP-PROMPT: `Answer must be 3-30 characters in length.`
3	PROCEDURE (CPT) COMMENT	1;0	WORD-PROCESSING #9002071.73

PROCEDURE (CPT)

0;1

POINTER TO CPT FILE (#81)

CROSS-REFERENCE: 9002071.07^B

1)= S ^ACHSDEN(DA(2),"D",DA(1),700,"B",$E(X,1,30),DA)=""

2)= K ^ACHSDEN(DA(2),"D",DA(1),700,"B",$E(X,1,30),DA)

PROCEDURE (CPT) NARRATIVE

0;2

FREE TEXT

3 PROCEDURE (CPT) COMMENT 1;0 WORD-PROCESSING #9002071.73