Sub-Field: 45.69

Parent File	Name	Number	Package
FACILITY SUFFIX(#45.68)	EFFECTIVE DATE	45.69	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 13, 1995` HELP-PROMPT: `Enter date suffix became active/inactive.` DELETE TEST: `1,0)= I '$O(^DIC(45.68,DA(1),"E",$O(^DIC(45.68,DA(1),"E",0)))) W !,*7,"There has to be an effective date for this suffix! "` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45.69^B` 1)= S ^DIC(45.68,DA(1),"E","B",$E(X,1,30),DA)="" 2)= K ^DIC(45.68,DA(1),"E","B",$E(X,1,30),DA) CROSS-REFERENCE: `45.69^AEFF^MUMPS` 1)= S ^DIC(45.68,DA(1),"E","AEFF",-X,DA)="" 2)= K ^DIC(45.68,DA(1),"E","AEFF",-X,DA)
.02	ACTIVE?	0;2	SET	**********************REQUIRED FIELD********************** '1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 24, 1995` HELP-PROMPT: `Enter 'Yes' if suffix is active or 'No' if suffix is inactive.`

EFFECTIVE DATE

0;1

DATE

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

INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 13, 1995
HELP-PROMPT: Enter date suffix became active/inactive.
DELETE TEST: 1,0)= I '$O(^DIC(45.68,DA(1),"E",$O(^DIC(45.68,DA(1),"E",0)))) W !,*7,"There has to be an effective date for this suffix! "
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 45.69^B

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

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

CROSS-REFERENCE: 45.69^AEFF^MUMPS

1)= S ^DIC(45.68,DA(1),"E","AEFF",-X,DA)=""

2)= K ^DIC(45.68,DA(1),"E","AEFF",-X,DA)

ACTIVE?

0;2

SET

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