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
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)