Sub-Field: 3.02

Parent File	Name	Number	Package
USER(#3)	DIVISION	3.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` LAST EDITED: `DEC 18, 1985` HELP-PROMPT: `Please enter the name of the Division that the user may sign-on as a employee of.` DESCRIPTION: The name of a Division (Institution) that this user may sign on to. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1	STN NUMBER		COMPUTED	MUMPS CODE: `X ^DD(3.02,1,9.2) S D0=$P(Y(3.02,1,1),U,1) S:'$D(^DIC(4,+D0,0)) D0=-1 S Y(3.02,1,101)=$S($D(^DIC(4,D0,99)):^(99),1:"") S X=$P(Y(3.02,1,101),U,1) S D0=Y(3.02,1,80) S D1=Y(3.02,1,81)` 9.2 = S Y(3.02,1,81)=$S($D(D1):D1,1:""),Y(3.02,1,80)=$S($D(D0):D0,1:""),Y(3.02,1,1)=$S($D(^DIC(3,D0,2,D1,0)):^(0),1:"") ALGORITHM: `DIVISION:STATION NUMBER` DESCRIPTION: This field may be used to retrieve the facility station number from the Institution File.

DIVISION

0;1

POINTER TO INSTITUTION FILE (#4)

INPUT TRANSFORM: S DINUM=X
LAST EDITED: DEC 18, 1985
HELP-PROMPT: Please enter the name of the Division that the user may sign-on as a employee of.

DESCRIPTION:

The name of a Division (Institution) that this user may sign on to.

STN NUMBER

COMPUTED

MUMPS CODE: X ^DD(3.02,1,9.2) S D0=$P(Y(3.02,1,1),U,1) S:'$D(^DIC(4,+D0,0)) D0=-1 S Y(3.02,1,101)=$S($D(^DIC(4,D0,99)):^(99),1:"") S X=$P(Y(3.02,1,101),U,1) S D0=Y(3.02,1,80) S D1=Y(3.02,1,81)
```
9.2 = S Y(3.02,1,81)=$S($D(D1):D1,1:""),Y(3.02,1,80)=$S($D(D0):D0,1:""),Y(3.02,1,1)=$S($D(^DIC(3,D0,2,D1,0)):^(0),1:"")
```
ALGORITHM: DIVISION:STATION NUMBER

DESCRIPTION:

This field may be used to retrieve the facility station number from the Institution File.