INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: AUG 13, 1999
HELP-PROMPT: Select an A&SP clinic.
DESCRIPTION: The CLINIC LOCATION sub-file 509850.81 is no longer used. With Quasar version 3.0 this record has been replaced by the sub-file 509850.831 in which valid ASP Clinics are stored under their respective Divisions.
Eighteen months after the release of Quasar v3.0 this field can be deleted.
SCREEN: S DIC("S")="I $P(^(0),U,3)=""C"""
EXPLANATION: Only clinic locations may be selected.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER