Sub-Field: 509850.831

Parent File	Name	Number	Package
509850.83	CLINIC	509850.831	Quasar

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CLINIC LOCATION	0;1	POINTER TO HOSPITAL LOCATION FILE (#44)	**********************REQUIRED FIELD********************** HOSPITAL LOCATION(#44) 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)`

CLINIC LOCATION

0;1

POINTER TO HOSPITAL LOCATION FILE (#44)

************************REQUIRED FIELD************************

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)