INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3101001>X X
LAST EDITED: MAR 28, 2012
HELP-PROMPT: Enter a date, not earlier than Oct 1, 2010.
DESCRIPTION:
This is the date the synonym(s) to be included became effective.
CROSS-REFERENCE: 757.335^B
1)= S ^LEX(757.033,DA(1),5,"B",$E(X,1,30),DA)=""
2)= K ^LEX(757.033,DA(1),5,"B",$E(X,1,30),DA)
^LEX(757.033,IEN1,5,"B",DATE,IEN2) - Where IEN1 is the file level internal entry number, DATE is the effective date of the included synonyms, and IEN2 is the INCLUDES sub-file internal entry number where the included