Sub-Field: 82.1111

Parent File	Name	Number	Package
82.111	ONE OF	82.1111	DRG Grouper

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ONE OF	0;1	POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1)	ICD OPERATION/PROCEDURE(#80.1) LAST EDITED: `JUN 11, 2012` HELP-PROMPT: `Enter a Procedure Code (One Of).` DESCRIPTION: `This is a Procedure Code that will be used in combination with the "With One Of" fields below in the determination of a Diagnosis Related Group (DRG).` CROSS-REFERENCE: `82.1111^B` `1)= S ^ICDIDP(DA(2),"BL",DA(1),"ONE","B",$E(X,1,30),DA)=""` `2)= K ^ICDIDP(DA(2),"BL",DA(1),"ONE","B",$E(X,1,30),DA)` FIELD INDEX: `ONE (#1175) REGULAR IR LOOKUP & SORTING WHOLE FILE (#82.11)` `Short Descr: CROSS REFERENCE ON "ONE OF" FIELD` `Set Logic: S ^ICDIDP("ONE",X,DA(2),DA(1),DA)=""` `Kill Logic: K ^ICDIDP("ONE",X,DA(2),DA(1),DA)` `Whole Kill: K ^ICDIDP("ONE")` `X(1): ONE OF (82.1111,.01) (Subscr 1) (forwards)`

ONE OF

0;1

POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1)

LAST EDITED: JUN 11, 2012
HELP-PROMPT: Enter a Procedure Code (One Of).
DESCRIPTION:
This is a Procedure Code that will be used in combination with the "With One Of" fields below in the determination of a Diagnosis Related Group (DRG).
CROSS-REFERENCE: 82.1111^B
1)= S ^ICDIDP(DA(2),"BL",DA(1),"ONE","B",$E(X,1,30),DA)=""
2)= K ^ICDIDP(DA(2),"BL",DA(1),"ONE","B",$E(X,1,30),DA)
FIELD INDEX: ONE (#1175) REGULAR IR LOOKUP & SORTING WHOLE FILE (#82.11)
Short Descr: CROSS REFERENCE ON "ONE OF" FIELD
Set Logic: S ^ICDIDP("ONE",X,DA(2),DA(1),DA)=""
Kill Logic: K ^ICDIDP("ONE",X,DA(2),DA(1),DA)
Whole Kill: K ^ICDIDP("ONE")
X(1): ONE OF (82.1111,.01) (Subscr 1) (forwards)