Sub-Field: 200.02

Parent File	Name	Number	Package
NEW PERSON(#200)	DIVISION	200.02	Kernel

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DIVISION	0;1	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) INPUT TRANSFORM: `S DINUM=X K:$S($D(^XUSEC("XUMGR",DUZ)):0,'$$TF^XUAF4(X):1,1:0) X,DINUM` LAST EDITED: `MAR 06, 2003` HELP-PROMPT: `Please enter the name of the Division that the user may sign-on as a employee of. The Division should be an active treating facility.` DESCRIPTION: `The name of a Division that this user may sign on to.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `200.02^B` `1)= S ^VA(200,DA(1),2,"B",$E(X,1,30),DA)=""` `2)= K ^VA(200,DA(1),2,"B",$E(X,1,30),DA)` `This is a standard B cross-reference.` CROSS-REFERENCE: `200^AH` `1)= S ^VA(200,"AH",$E(X,1,30),DA(1),DA)=""` `2)= K ^VA(200,"AH",$E(X,1,30),DA(1),DA)`
1	DEFAULT	0;2	SET	'1' FOR Yes; '0' FOR No; INPUT TRANSFORM: `I X=1,$D(^VA(200,DA(1),2,"AX1",1)) K X` LAST EDITED: `APR 24, 2000` HELP-PROMPT: `Can only be set 'yes' for one division.` DESCRIPTION: `This field is used to indicate that a particular division should be presented to the user as a default when selecting a division. This will only affect users that have more than one division. A cross reference will` `only allow one entry to have this flag set.` EXECUTABLE HELP: `N % S %=$O(^VA(200,DA(1),2,"AX1",1,0)) I % D EN^DDIOL("Division "_$P($G(^DIC(4,%,0)),U)_" is the default","","?0")` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `200.02^AX1^MUMPS` `1)= S:X=1 ^VA(200,DA(1),2,"AX1",X,DA)=""` `2)= K:X=1 ^VA(200,DA(1),2,"AX1",X,DA)` `3)= Used to see that only one entry is marked as default.`

.01

DIVISION

0;1

POINTER TO INSTITUTION FILE (#4)

INSTITUTION(#4)

INPUT TRANSFORM: S DINUM=X K:$S($D(^XUSEC("XUMGR",DUZ)):0,'$$TF^XUAF4(X):1,1:0) X,DINUM
LAST EDITED: MAR 06, 2003
HELP-PROMPT: Please enter the name of the Division that the user may sign-on as a employee of. The Division should be an active treating facility.
DESCRIPTION:
The name of a Division that this user may sign on to.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 200.02^B
1)= S ^VA(200,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^VA(200,DA(1),2,"B",$E(X,1,30),DA)
This is a standard B cross-reference.
CROSS-REFERENCE: 200^AH
1)= S ^VA(200,"AH",$E(X,1,30),DA(1),DA)=""
2)= K ^VA(200,"AH",$E(X,1,30),DA(1),DA)

DEFAULT

0;2

SET

'1' FOR Yes;
'0' FOR No;

INPUT TRANSFORM: I X=1,$D(^VA(200,DA(1),2,"AX1",1)) K X
LAST EDITED: APR 24, 2000
HELP-PROMPT: Can only be set 'yes' for one division.
DESCRIPTION: This field is used to indicate that a particular division should be presented to the user as a default when selecting a division. This will only affect users that have more than one division. A cross reference will
only allow one entry to have this flag set.
EXECUTABLE HELP: N % S %=$O(^VA(200,DA(1),2,"AX1",1,0)) I % D EN^DDIOL("Division "_$P($G(^DIC(4,%,0)),U)_" is the default","","?0")
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 200.02^AX1^MUMPS
1)= S:X=1 ^VA(200,DA(1),2,"AX1",X,DA)=""
2)= K:X=1 ^VA(200,DA(1),2,"AX1",X,DA)
3)= Used to see that only one entry is marked as default.

Customize PDF page

Package: Kernel

NEW PERSON(#200)-->200.02

Sub-Field: 200.02

Information

Details