Sub-Field: 9999999.65151

Parent File	Name	Number	Package
9999999.6515	CPT	9999999.65151	Utility Tables

Parent File

Name

Number

Package

CPT

9999999.65151

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CPT LOW	0;1	POINTER TO CPT FILE (#81)	CPT(#81) INPUT TRANSFORM: `K:+X'=X X S:$D(X) DINUM=X` LAST EDITED: `JUN 10, 1997` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9999999.65151^B` 1)= S ^AUTTPIC(DA(2),15,DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^AUTTPIC(DA(2),15,DA(1),1,"B",$E(X,1,30),DA)
.02	CPT HIGH	0;2	POINTER TO CPT FILE (#81)	**********************REQUIRED FIELD********************** CPT(#81) INPUT TRANSFORM: `K:X` `LAST EDITED: MAY 21, 1997` `HELP-PROMPT: Code must be equal to or greater than CPT low.` `NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`

CPT LOW

0;1

POINTER TO CPT FILE (#81)

CROSS-REFERENCE: 9999999.65151^B

1)= S ^AUTTPIC(DA(2),15,DA(1),1,"B",$E(X,1,30),DA)=""

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

CPT HIGH

0;2

POINTER TO CPT FILE (#81)

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