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