INPUT TRANSFORM: S DIC("S")="I '$P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 03, 1992
HELP-PROMPT: Enter the solution(s) used for irrigation during the operative procedure.
DESCRIPTION: This is the type of solution used for irrigation during the operative procedure. If entered, this information appears on the Nurse Intraoperative Report.
SCREEN: S DIC("S")="I '$P(^(0),U,3)"
EXPLANATION: Screen prevents selection of inactive entries.
DELETE TEST: .01,0)= I $D(^SRF(DA(1),"CON")),$P(^("CON"),"^") D ^SROCOND I 0