Sub-Field: 195.12

Parent File	Name	Number	Package
RECORD TRACKING APPLICATION(#195.1)	INSTITUTION	195.12	Record Tracking

Details

Field #	Name	Loc	Type	Details
.01	INSTITUTION	0;1	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) INPUT TRANSFORM: `S:$D(X) DINUM=X` LAST EDITED: `FEB 09, 1987` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2	CENTRAL FILE ROOM	0;2	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),$D(D1),$P(^(0),U,3)=D0,$D(^SC(+$P(^(0),U,2),0)),$P(^(0),U,3)=""F"",$P(^(0),U,4)=D1 D DICS^RTDPA31" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAY 14, 1987` DESCRIPTION: `This allows different file rooms to be associated by application and institution or division.` SCREEN: `S DIC("S")="I $D(D0),$D(D1),$P(^(0),U,3)=D0,$D(^SC(+$P(^(0),U,2),0)),$P(^(0),U,3)=""F"",$P(^(0),U,4)=D1 D DICS^RTDPA31"` EXPLANATION: `Allows only file rooms associated with the division and associated with the application.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
3	DEFAULT PULL LIST SORT	0;3	SET	't' FOR TERMINAL DIGITS; 'c' FOR CLINIC NAME THEN TERMINAL DIGITS; 'a' FOR APPOINTMENT TIME; 'h' FOR HOME LOCATION THEN TERMINAL DIGITS; 'd' FOR DETAILED-HOME LOC,CLINIC,TERMINAL; LAST EDITED: `APR 14, 1988`
4	ALL REQUESTS TO CENTRAL FR	0;4	SET	'y' FOR YES; 'n' FOR NO; LAST EDITED: `MAY 01, 1987`
100	TYPE OF RECORDS	TYPE;0	POINTER Multiple #195.13	195.13 SCREEN: `S DIC("S")="I $P(^(0),U,3)=D0"` EXPLANATION: `Allows only record types associated with the application.`