Sub-Field: 195.21

Parent File	Name	Number	Package
RECORD TYPES(#195.2)	ALLOWABLE FILE ROOMS	195.21	Record Tracking

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	FILE ROOM	0;1	POINTER TO BORROWERS/FILE AREAS FILE (#195.9)	BORROWERS/FILE AREAS(#195.9) INPUT TRANSFORM: `S DIC("V")="I $P(Y(0),U,4)=""L""",DIC("S")="I $D(D0),$P(^(0),U,13)=""F"",$P(^(0),U,3)=$P(^DIC(195.2,D0,0),U,3) D DICS^RTDPA31" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAY 14, 1987` SCREEN: `S DIC("S")="I $D(D0),$P(^(0),U,13)=""F"",$P(^(0),U,3)=$P(^DIC(195.2,D0,0),U,3) D DICS^RTDPA31"` EXPLANATION: `Allows only file rooms associated with the same application as the record type.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `195.2^AF` `1)= S ^DIC(195.2,"AF",$E(X,1,30),DA(1),DA)=""` `2)= K ^DIC(195.2,"AF",$E(X,1,30),DA(1),DA)`

FILE ROOM

0;1

POINTER TO BORROWERS/FILE AREAS FILE (#195.9)

INPUT TRANSFORM: S DIC("V")="I $P(Y(0),U,4)=""L""",DIC("S")="I $D(D0),$P(^(0),U,13)=""F"",$P(^(0),U,3)=$P(^DIC(195.2,D0,0),U,3) D DICS^RTDPA31" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 14, 1987
SCREEN: S DIC("S")="I $D(D0),$P(^(0),U,13)=""F"",$P(^(0),U,3)=$P(^DIC(195.2,D0,0),U,3) D DICS^RTDPA31"
EXPLANATION: Allows only file rooms associated with the same application as the record type.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 195.2^AF
1)= S ^DIC(195.2,"AF",$E(X,1,30),DA(1),DA)=""
2)= K ^DIC(195.2,"AF",$E(X,1,30),DA(1),DA)