Sub-Field: 404.575

Parent File	Name	Number	Package
TEAM POSITION(#404.57)	ASSOCIATED CLINICS	404.575	Scheduling

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ASSOCIATED CLINICS	0;1	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,3)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X` LAST EDITED: `NOV 27, 2007` HELP-PROMPT: `Enter Clinic(s) associated with this position` DESCRIPTION: Clinics associated with this position Replaces single value field used before patch SD5.3297 SCREEN: `S DIC("S")="I $P(^(0),U,3)=""C"""` EXPLANATION: `Only Clinics` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `404.575^B` 1)= S ^SCTM(404.57,DA(1),5,"B",$E(X,1,30),DA)="" 2)= K ^SCTM(404.57,DA(1),5,"B",$E(X,1,30),DA) CROSS-REFERENCE: `404.575^ASCTEAM^MUMPS` 1)= D SETSCTM^SCMCDD2(DA(1),X) 2)= D KILLSCTM^SCMCDD2(DA(1),X) Set Team entry in Clinic file CROSS-REFERENCE: `404.57^E` 1)= S ^SCTM(404.57,"E",$E(X,1,30),DA(1),DA)="" 2)= K ^SCTM(404.57,"E",$E(X,1,30),DA(1),DA)

ASSOCIATED CLINICS

0;1

POINTER TO HOSPITAL LOCATION FILE (#44)

INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X
LAST EDITED: NOV 27, 2007
HELP-PROMPT: Enter Clinic(s) associated with this position

DESCRIPTION:

Clinics associated with this position Replaces single value field used before patch SD*5.3*297

CROSS-REFERENCE: 404.575^B

1)= S ^SCTM(404.57,DA(1),5,"B",$E(X,1,30),DA)=""

2)= K ^SCTM(404.57,DA(1),5,"B",$E(X,1,30),DA)

CROSS-REFERENCE: 404.575^ASCTEAM^MUMPS

1)= D SETSCTM^SCMCDD2(DA(1),X)

2)= D KILLSCTM^SCMCDD2(DA(1),X)

Set Team entry in Clinic file

CROSS-REFERENCE: 404.57^E

1)= S ^SCTM(404.57,"E",$E(X,1,30),DA(1),DA)=""

2)= K ^SCTM(404.57,"E",$E(X,1,30),DA(1),DA)