Sub-Field: 200.05

Parent File	Name	Number	Package
NEW PERSON(#200)	PERSON CLASS	200.05	Kernel

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	Person Class	0;1	POINTER TO PERSON CLASS FILE (#8932.1)	PERSON CLASS(#8932.1) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,4)'[""i""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUN 03, 1996` DESCRIPTION: This is a pointer to the Person class file. SCREEN: `S DIC("S")="I $P(^(0),U,4)'[""i"""` EXPLANATION: `Don't allow Inactive entries to be selected.` DELETE TEST: `1,0)= I 1 ;Don't allow delete` CROSS-REFERENCE: `200.05^B` 1)= S ^VA(200,DA(1),"USC1","B",$E(X,1,30),DA)="" 2)= K ^VA(200,DA(1),"USC1","B",$E(X,1,30),DA) CROSS-REFERENCE: `200.05^AC^MUMPS` 1)= D SET01^XUA4A72 2)= Q 3)= Special Trigger This X-ref triggers the current date into the Effective Date field.
2	Effective Date	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `N %DT,% S %DT="EX",%=$O(^VA(200,D0,"USC1",DA),-1) S:% %=$P($G(^(%,0)),U,2) S:% %DT(0)=% D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 24, 2003` HELP-PROMPT: `The date that this Person Class became effective.` DESCRIPTION: This field is trigger by adding a new person class. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `200.05^AD` 1)= S ^VA(200,DA(1),"USC1","AD",$E(X,1,30),DA)="" 2)= K ^VA(200,DA(1),"USC1","AD",$E(X,1,30),DA) 3)= Don't Delete This X-ref is by date and allows us to find the most current entry in the file. CROSS-REFERENCE: `200.05^AE^MUMPS` 1)= D SET2^XUA4A72 2)= D KILL2^XUA4A72 3)= Special Trigger This Special X-ref sets the Expiration date of the previous person class entry to the current record's Effective date.
3	Expiration Date	0;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y I Y<1!'$$ENT^XUA4A73(.DA,X) K X` LAST EDITED: `MAR 16, 2007` HELP-PROMPT: `Last active date. After this date the Person Class is no longer valid.` DESCRIPTION: `This field is the date after which this class becomes inactive. This field must be not less than the EFFECTIVE DATE and not greater than the DATE INACTIVATED field(#4) of the Person Class entry in the PERSON CLASS` file(#8932.1). It will get triggered if a new Person Class is entered or someone edits the field to inactivate the class. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`

.01

Person Class

0;1

POINTER TO PERSON CLASS FILE (#8932.1)

PERSON CLASS(#8932.1)

INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,4)'[""i""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 03, 1996

DESCRIPTION:

This is a pointer to the Person class file.

SCREEN: S DIC("S")="I $P(^(0),U,4)'[""i"""
EXPLANATION: Don't allow Inactive entries to be selected.
DELETE TEST: 1,0)= I 1 ;Don't allow delete

CROSS-REFERENCE: 200.05^B

1)= S ^VA(200,DA(1),"USC1","B",$E(X,1,30),DA)=""

2)= K ^VA(200,DA(1),"USC1","B",$E(X,1,30),DA)

CROSS-REFERENCE: 200.05^AC^MUMPS

1)= D SET01^XUA4A72

2)= Q

3)= Special Trigger

This X-ref triggers the current date into the Effective Date field.

Effective Date

0;2

DATE

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

INPUT TRANSFORM: N %DT,% S %DT="EX",%=$O(^VA(200,D0,"USC1",DA),-1) S:% %=$P($G(^(%,0)),U,2) S:% %DT(0)=% D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 24, 2003
HELP-PROMPT: The date that this Person Class became effective.

DESCRIPTION:

This field is trigger by adding a new person class.

NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 200.05^AD

1)= S ^VA(200,DA(1),"USC1","AD",$E(X,1,30),DA)=""

2)= K ^VA(200,DA(1),"USC1","AD",$E(X,1,30),DA)

3)= Don't Delete

This X-ref is by date and allows us to find the most current entry in the file.

CROSS-REFERENCE: 200.05^AE^MUMPS

1)= D SET2^XUA4A72

2)= D KILL2^XUA4A72

3)= Special Trigger

This Special X-ref sets the Expiration date of the previous person class entry to the current record's Effective date.

Expiration Date

0;3

DATE

INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y I Y<1!'$$ENT^XUA4A73(.DA,X) K X
LAST EDITED: MAR 16, 2007
HELP-PROMPT: Last active date. After this date the Person Class is no longer valid.
DESCRIPTION: This field is the date after which this class becomes inactive. This field must be not less than the EFFECTIVE DATE and not greater than the DATE INACTIVATED field(#4) of the Person Class entry in the PERSON CLASS
```
file(#8932.1).
```
```
It will get triggered if a new Person Class is entered or someone edits the field to inactivate the class.
```
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

Customize PDF page

Package: Kernel

NEW PERSON(#200)-->200.05

Sub-Field: 200.05

Information

Details