Sub-Field: 42.41

Parent File	Name	Number	Package
SPECIALTY(#42.4)	EFFECTIVE DATE	42.41	Registration

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	EFFECTIVE DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 28, 1995` HELP-PROMPT: `Enter the effective date for this treating specialty.` DESCRIPTION: This multiple holds the effective date(s) for the Treating Specialties. TECHNICAL DESCR: DELETE TEST: `1,0)= I '$O(^DIC(42.4,DA(1),"E",$O(^DIC(42.4,DA(1),"E",0)))) W !,*7,"There has to be an effective date for this treating specialty! "` CROSS-REFERENCE: `42.41^B` 1)= S ^DIC(42.4,DA(1),"E","B",$E(X,1,30),DA)="" 2)= K ^DIC(42.4,DA(1),"E","B",$E(X,1,30),DA) CROSS-REFERENCE: `42.41^ADATE^MUMPS` 1)= S ^DIC(42.4,DA(1),"E","ADATE",-X,DA)="" 2)= K ^DIC(42.4,DA(1),"E","ADATE",-X,DA) This cross reference is used to look up active on reverse date.
.02	ACTIVE?	0;2	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `AUG 10, 1995` HELP-PROMPT: `Enter 'Yes' or 'No'` DESCRIPTION: This field is an active/inactive flag for the treating specialty.

EFFECTIVE DATE

0;1

DATE

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

DESCRIPTION:

This multiple holds the effective date(s) for the Treating Specialties.

TECHNICAL DESCR:
DELETE TEST: 1,0)= I '$O(^DIC(42.4,DA(1),"E",$O(^DIC(42.4,DA(1),"E",0)))) W !,*7,"There has to be an effective date for this treating specialty! "

CROSS-REFERENCE: 42.41^B

1)= S ^DIC(42.4,DA(1),"E","B",$E(X,1,30),DA)=""

2)= K ^DIC(42.4,DA(1),"E","B",$E(X,1,30),DA)

CROSS-REFERENCE: 42.41^ADATE^MUMPS

1)= S ^DIC(42.4,DA(1),"E","ADATE",-X,DA)=""

2)= K ^DIC(42.4,DA(1),"E","ADATE",-X,DA)

This cross reference is used to look up active on reverse date.

ACTIVE?

0;2

SET

DESCRIPTION:

This field is an active/inactive flag for the treating specialty.