INPUT TRANSFORM: S DIC("S")="I $D(ACKDIV),$P(^(0),U,3)=""C"",$$CLNDIV^ACKQUTL2(Y)=ACKDIV,$$ASPCLN^ACKQUTL2(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: MAR 11, 1999
HELP-PROMPT: Select an A&SP clinic.
DESCRIPTION: The CLINIC LOCATION field is a pointer to the HOSPITAL LOCATION file (#4). Clinic location can be set up by stop code (e.g., Audiology or Speech Pathology), clinic (e.g., Dysphagia clinic or Hearing Aid Clinic), or
by individual clinician (e.g., Audiology--smith). However, clinic location names MUST match the clinic names established by MAS.
SCREEN: S DIC("S")="I $D(ACKDIV),$P(^(0),U,3)=""C"",$$CLNDIV^ACKQUTL2(Y)=ACKDIV,$$ASPCLN^ACKQUTL2(Y)"
EXPLANATION: Only clinic locations may be selected.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 509850.831^B
1)= S ^ACK(509850.8,DA(2),2,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^ACK(509850.8,DA(2),2,DA(1),1,"B",$E(X,1,30),DA)