Sub-Field: 9999999.65152

Parent File	Name	Number	Package
9999999.6515	ICD PROCEDURES	9999999.65152	Utility Tables

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ICD PROC LOW	0;1	POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1)	ICD OPERATION/PROCEDURE(#80.1) INPUT TRANSFORM: `S DINUM=X Q` LAST EDITED: `JUN 19, 1997` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9999999.65152^B` 1)= S ^AUTTPIC(DA(2),15,DA(1),2,"B",$E(X,1,30),DA)="" 2)= K ^AUTTPIC(DA(2),15,DA(1),2,"B",$E(X,1,30),DA)
.02	ICD PROC HIGH	0;2	POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1)	**********************REQUIRED FIELD********************** ICD OPERATION/PROCEDURE(#80.1) INPUT TRANSFORM: `S DIC("S")="I +$P(^(0),""^"",1)'<+^ICD0(DA,0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUN 19, 1997` SCREEN: `S DIC("S")="I +$P(^(0),""^"",1)'<+^ICD0(DA,0)"` EXPLANATION: `Code must be same or higher than low ICD Procedure`

ICD PROC LOW

0;1

POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1)

CROSS-REFERENCE: 9999999.65152^B

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

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

ICD PROC HIGH

0;2

POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1)

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

INPUT TRANSFORM: S DIC("S")="I +$P(^(0),""^"",1)'<+^ICD0(DA,0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 19, 1997
SCREEN: S DIC("S")="I +$P(^(0),""^"",1)'<+^ICD0(DA,0)"
EXPLANATION: Code must be same or higher than low ICD Procedure