INPUT TRANSFORM: S DIC("S")="I '$P(^(0),""^"",7)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X
LAST EDITED: DEC 02, 1986
DESCRIPTION:
This field contains a pointer to the ELIGIBILITY CODE file denoting an eligibility which a patient may have if he service during this period of service.
SCREEN: S DIC("S")="I '$P(^(0),""^"",7)"
EXPLANATION: 'INACTIVE' Eligibilities can't be selected
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER