INPUT TRANSFORM: S DIC("S")="D RSETDA^PXVUTIL" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
LAST EDITED: NOV 01, 2018
HELP-PROMPT: Select a diagnosis for this immunization event.
DESCRIPTION: This is a diagnosis for this immunization event, in addition to the Primary Diagnosis. A primary diagnosis should be selected before selecting one here.
TECHNICAL DESCR: This is a diagnosis for this immunization event. It is in addition to the Primary Diagnosis for this event. This diagnosis is selected from the ICD DIAGNOSIS file, #80.
SCREEN: S DIC("S")="D RSETDA^PXVUTIL"
EXPLANATION: Selection must be appropriate and active.
AUDIT: YES, ALWAYS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER