Sub-Field: 721.038

Parent File	Name	Number	Package
EVENT CAPTURE PATIENT(#721)	SECONDARY ICD CODE	721.038	Event Capture

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SECONDARY ICD CODE	0;1	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="I $P($$LS^ICDEX(80,+Y,$G(ECDT)),U,1)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAY 07, 2012` HELP-PROMPT: `Enter the secondary ICD diagnosis code for this procedure.` DESCRIPTION: `The secondary ICD diagnosis code for the procedure performed.` SCREEN: `S DIC("S")="I $P($$LS^ICDEX(80,+Y,$G(ECDT)),U,1)"` EXPLANATION: `Allows selection of active codes only.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `721.038^B` `1)= S ^ECH(DA(1),"DX","B",$E(X,1,30),DA)=""` `2)= K ^ECH(DA(1),"DX","B",$E(X,1,30),DA)`

SECONDARY ICD CODE

0;1

POINTER TO ICD DIAGNOSIS FILE (#80)

INPUT TRANSFORM: S DIC("S")="I $P($$LS^ICDEX(80,+Y,$G(ECDT)),U,1)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 07, 2012
HELP-PROMPT: Enter the secondary ICD diagnosis code for this procedure.
DESCRIPTION:
The secondary ICD diagnosis code for the procedure performed.
SCREEN: S DIC("S")="I $P($$LS^ICDEX(80,+Y,$G(ECDT)),U,1)"
EXPLANATION: Allows selection of active codes only.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 721.038^B
1)= S ^ECH(DA(1),"DX","B",$E(X,1,30),DA)=""
2)= K ^ECH(DA(1),"DX","B",$E(X,1,30),DA)