INPUT TRANSFORM: S DIC("S")="I $P($G(^(100)),""^"",8)'=12" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 19, 2008
HELP-PROMPT: Select the member of this image group.
DESCRIPTION:
This field points to an entry of the IMAGE file (#2005) that represents an existing (non-deleted) member of this image group.
TECHNICAL DESCR: In the future, when the IMAGE AUDIT file (#2005.1) is eliminated and deleted image entries are merged into the IMAGE file (#2005), this field must reference only non-deleted images (as it currently does). The "AGPD"
index will be used to find images deleted from the group.
SCREEN: S DIC("S")="I $P($G(^(100)),""^"",8)'=12"
EXPLANATION: Only non-deleted images can be selected.