Sub-Field: 405.11

Parent File	Name	Number	Package
FACILITY MOVEMENT TYPE(#405.1)	CAN ONLY FOLLOW MOVEMENT(S)	405.11	Registration

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CAN ONLY FOLLOW MOVEMENT(S)	0;1	POINTER TO FACILITY MOVEMENT TYPE FILE (#405.1)	FACILITY MOVEMENT TYPE(#405.1) INPUT TRANSFORM: `S DIC("S")="S DGY=+$P(^(0),""^"",3),DGX=$P(^DG(405.1,+DA,0),""^"",3) I DGX,$D(^DG(405.2,DGX,""F"",DGY,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X` LAST EDITED: `APR 29, 1991` HELP-PROMPT: `Enter the movement which this one can follow.` DESCRIPTION: `Enter a movement type which this movement type can follow. Admissions can not follow any movement types. Nothing can follow a discharge. Likewise, check-in lodgers can not follow any movement types and nothing can` `follow a check-out lodger movement.` SCREEN: `S DIC("S")="S DGY=+$P(^(0),""^"",3),DGX=$P(^DG(405.1,+DA,0),""^"",3) I DGX,$D(^DG(405.2,DGX,""F"",DGY,0))"` EXPLANATION: `Can't follow discharge or check-out. Check-in and admission follow nothing. Must be consistent with distributed movement types.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `405.11^B` `1)= S ^DG(405.1,DA(1),"F","B",$E(X,1,30),DA)=""` `2)= K ^DG(405.1,DA(1),"F","B",$E(X,1,30),DA)` CROSS-REFERENCE: `405.1^AF^MUMPS` `1)= S ^DG(405.1,"AF",+X,DA(1))=""` `2)= K ^DG(405.1,"AF",+X,DA(1))`

CAN ONLY FOLLOW MOVEMENT(S)

0;1

POINTER TO FACILITY MOVEMENT TYPE FILE (#405.1)

INPUT TRANSFORM: S DIC("S")="S DGY=+$P(^(0),""^"",3),DGX=$P(^DG(405.1,+DA,0),""^"",3) I DGX,$D(^DG(405.2,DGX,""F"",DGY,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X
LAST EDITED: APR 29, 1991
HELP-PROMPT: Enter the movement which this one can follow.
DESCRIPTION: Enter a movement type which this movement type can follow. Admissions can not follow any movement types. Nothing can follow a discharge. Likewise, check-in lodgers can not follow any movement types and nothing can
follow a check-out lodger movement.
SCREEN: S DIC("S")="S DGY=+$P(^(0),""^"",3),DGX=$P(^DG(405.1,+DA,0),""^"",3) I DGX,$D(^DG(405.2,DGX,""F"",DGY,0))"
EXPLANATION: Can't follow discharge or check-out. Check-in and admission follow nothing. Must be consistent with distributed movement types.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 405.11^B
1)= S ^DG(405.1,DA(1),"F","B",$E(X,1,30),DA)=""
2)= K ^DG(405.1,DA(1),"F","B",$E(X,1,30),DA)
CROSS-REFERENCE: 405.1^AF^MUMPS
1)= S ^DG(405.1,"AF",+X,DA(1))=""
2)= K ^DG(405.1,"AF",+X,DA(1))