Sub-Field: 699.13

Parent File	Name	Number	Package
699.01	MODIFIER	699.13	Medicine

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	MODIFIER	0;1	POINTER TO MODIFIER FILE (#699.57)	MODIFIER(#699.57) INPUT TRANSFORM: `S DIC(0)="E",DIC("S")="I $D(^MCAR(699.57,""C"",$G(MCARGNUM,U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JAN 14, 1991` HELP-PROMPT: `Enter adjective used to modify the Gross descriptor.` DESCRIPTION: `This field identifies a specific adjective used to modify the Gross descriptor.` SCREEN: `S DIC("S")="I $D(^MCAR(699.57,""C"",$G(MCARGNUM,U),+Y))"` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `699.13^B` `1)= S ^MCAR(699,DA(2),30,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^MCAR(699,DA(2),30,DA(1),1,"B",$E(X,1,30),DA)`

MODIFIER

0;1

POINTER TO MODIFIER FILE (#699.57)

INPUT TRANSFORM: S DIC(0)="E",DIC("S")="I $D(^MCAR(699.57,""C"",$G(MCARGNUM,U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JAN 14, 1991
HELP-PROMPT: Enter adjective used to modify the Gross descriptor.
DESCRIPTION:
This field identifies a specific adjective used to modify the Gross descriptor.
SCREEN: S DIC("S")="I $D(^MCAR(699.57,""C"",$G(MCARGNUM,U),+Y))"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 699.13^B
1)= S ^MCAR(699,DA(2),30,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(699,DA(2),30,DA(1),1,"B",$E(X,1,30),DA)