Sub-Field: 351.612

Parent File	Name	Number	Package
TRANSFER PRICING TRANSACTIONS(#351.61)	ICD DIAGNOSIS	351.612	Integrated Billing

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ICD DIAGNOSIS	0;1	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="I $$ICD9ACT^IBACSV(+Y,$P($G(^IBAT(351.61,+$G(DA(1)),0)),U,4))" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `APR 21, 2003` HELP-PROMPT: `This is the diagnosis codes for this transaction.` DESCRIPTION: `This is the diagnosis codes for this event. This will play into the DRG calculation.` SCREEN: `S DIC("S")="I $$ICD9ACT^IBACSV(+Y,$P($G(^IBAT(351.61,+$G(DA(1)),0)),U,4))"` EXPLANATION: `Only codes active on the Event Date may be selected.` CROSS-REFERENCE: `351.612^B` `1)= S ^IBAT(351.61,DA(1),2,"B",$E(X,1,30),DA)=""` `2)= K ^IBAT(351.61,DA(1),2,"B",$E(X,1,30),DA)`

ICD DIAGNOSIS

0;1

POINTER TO ICD DIAGNOSIS FILE (#80)

INPUT TRANSFORM: S DIC("S")="I $$ICD9ACT^IBACSV(+Y,$P($G(^IBAT(351.61,+$G(DA(1)),0)),U,4))" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
LAST EDITED: APR 21, 2003
HELP-PROMPT: This is the diagnosis codes for this transaction.
DESCRIPTION:
This is the diagnosis codes for this event. This will play into the DRG calculation.
SCREEN: S DIC("S")="I $$ICD9ACT^IBACSV(+Y,$P($G(^IBAT(351.61,+$G(DA(1)),0)),U,4))"
EXPLANATION: Only codes active on the Event Date may be selected.
CROSS-REFERENCE: 351.612^B
1)= S ^IBAT(351.61,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^IBAT(351.61,DA(1),2,"B",$E(X,1,30),DA)