Global: ^DIC(195.2

FileMan FileNo	FileMan Filename	Package
195.2	RECORD TYPES	Record Tracking

Package	Total	Routines
Record Tracking	57	ALLOWABLE FILE ROOMS LINKED RECORDS MAS RECORDS NEEDED BY CLINICS RAD FOLDERS NEEDED BY CLINICS RECORDS NEEDED BY LOCATION RT MISSING RT PURGE PROFILE RT RETIREMENT PROFILE RT TYPE SET-UP RTB2 RTCC4 RTCH RTCL RTCX RTDEL RTDPA RTDPA1 RTDPA2 RTDPA31 RTL1 RTNQ1 RTNQ2 RTNQ3 RTNQ4 RTNQ41 RTP2 RTP3 RTP31 RTP41 RTP51 RTPURGE RTQ1 RTQ2 RTQ3 RTRAD RTRPT RTRPT1 RTRPT2 RTRPT5 RTSM2 RTSM7 RTSM81 RTT RTT1 RTT11 RTT2 RTT3 RTUTL RTUTL1 RTUTL2 RTUTL3 RTUTL4 SYNONYMS ^DIC(195.2 ^DIC(195.4 ^RTV(194.2 RTUTL6

Package	Total	Routines
Record Tracking	10	RTDPA1 RTNQ2 RTPSET RTPURGE RTSM2 RTSM81 RTSYS RTT1 RTT11 RTUTL

Package	Total	FileMan Files
Record Tracking	6	RECORD TRACKING APPLICATION(#195.1)[10, 45, #195.13(.01), #195.14(.01), #195.15(.01)] RECORD TYPES(#195.2)[#195.22(.01)] RECORD TRACKING SYSTEM PARAMETERS(#195.4)[102, 202] RECORDS(#190)[3] PULL LIST(#194.2)[4] BORROWERS/FILE AREAS(#195.9)[#195.9001(.01)]
Registration	1	MEDICAL CENTER DIVISION(#40.8)[100.3]

Package	Total	FileMan Files
Record Tracking	4	LABEL FORMAT(#194.4)[5, 6] RECORD TRACKING APPLICATION(#195.1)[3] RECORD TYPES(#195.2)[#195.22(.01)] BORROWERS/FILE AREAS(#195.9)[#195.21(.01)]

Fields, Total: 26

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X` HELP-PROMPT: `NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION` DESCRIPTION: `This describes the record as to function.` CROSS-REFERENCE: `195.2^B` `1)= S ^DIC(195.2,"B",$E(X,1,30),DA)=""` `2)= K ^DIC(195.2,"B",$E(X,1,30),DA)`
2	ABBREVIATION	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X` LAST EDITED: `SEP 05, 1986` HELP-PROMPT: `ANSWER MUST BE 1-3 CHARACTERS IN LENGTH` DESCRIPTION: `This allows the record type to be selected by a few characters.`
3	APPLICATION	0;3	POINTER TO RECORD TRACKING APPLICATION FILE (#195.1)	RECORD TRACKING APPLICATION(#195.1) LAST EDITED: `JAN 22, 1987` DESCRIPTION: `This allows the record type to be associated with one or many applications.` `UNEDITABLE` CROSS-REFERENCE: `195.2^C` `1)= S ^DIC(195.2,"C",$E(X,1,30),DA)=""` `2)= K ^DIC(195.2,"C",$E(X,1,30),DA)`
4	INQUIRY DISPLAY ORDER	0;4	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X D CHK^RTUTL3:$D(X)` LAST EDITED: `MAR 06, 1987` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 999` DESCRIPTION: `This is used by the system to allow application modification of displays.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
5	RECORD LABEL FORMAT	0;5	POINTER TO LABEL FORMAT FILE (#194.4)	LABEL FORMAT(#194.4) INPUT TRANSFORM: `S DIC("S")="I $D(D0),$P(^(0),U,4)=""r"",$P(^(0),U,3)=$P(^DIC(195.2,D0,0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 19, 1986` DESCRIPTION: `This defines the label format to be used when printing a record label.` SCREEN: `S DIC("S")="I $D(D0),$P(^(0),U,4)=""r"",$P(^(0),U,3)=$P(^DIC(195.2,D0,0),U,3)"` EXPLANATION: `Allows only record formats for current application.`
6	REQUEST NOTICE FORMAT	0;6	POINTER TO LABEL FORMAT FILE (#194.4)	LABEL FORMAT(#194.4) INPUT TRANSFORM: `S DIC("S")="I $D(D0),$P(^(0),U,4)=""q"",$P(^(0),U,3)=$P(^DIC(195.2,D0,0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 19, 1986` DESCRIPTION: `This defines the label format to be used when printing a request for a record.` SCREEN: `S DIC("S")="I $D(D0),$P(^(0),U,4)=""q"",$P(^(0),U,3)=$P(^DIC(195.2,D0,0),U,3)"` EXPLANATION: `Allows only request formats for current application.`
7	CONTROL OF FINDING RECORDS	0;7	SET	'f' FOR FILE ROOM SUPERVISOR ONLY!; 'a' FOR ANY USER; LAST EDITED: `AUG 26, 1986` DESCRIPTION: `This allows the application to limit the designation of a missing record as found.`
8	REQUEST PURGE CUTOFF (days)	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 26, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999` DESCRIPTION: `This defines the number of days to retain requests before purging.`
9	PENDING REQUEST CUTOFF (days)	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 26, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999` DESCRIPTION: `This defines the number of days before a request is considered not filled by the system.`
10	PULL LIST PURGE CUTOFF (days)	0;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 27, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999` DESCRIPTION: `This defines the number of days to retain pull lists before the pull lists are purged by the purge option.`
11	OVERDUE RECORD CUTOFF (days)	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 02, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999` DESCRIPTION: `This defines the number of days that a charged record is allowed to be charged before it is considered by the system as overdue.`
11.1	BARCODE RENEWAL CUTOFF (days)	0;20	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<365)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 23, 1991` HELP-PROMPT: `Type a Number between 365 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of days required to consider re-printing a barcode label.`
12	# PREVIOUS MOVEMENTS TO RETAIN	0;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<5)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 06, 1988` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 5 AND 9999` DESCRIPTION: `This defines the number of movements to not be purged by the purge option.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
13	CURRENT BORR REQUEST TIME MIN.	0;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 28, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99999` DESCRIPTION: `This defines the time in the future when the current borrower may request the record again.`
14	CAN RECORD BE REQUESTED?	0;14	SET	'y' FOR YES; 'n' FOR NO; LAST EDITED: `NOV 12, 1986` DESCRIPTION: `No means the record cannot be requested.`
15	IS RECORD TEMPORARY?	0;15	SET	'y' FOR YES; 'n' FOR NO; LAST EDITED: `NOV 12, 1986` DESCRIPTION: `This means that the record can only be charged out once.`
16	ASK FOR CONTENT DESCRIPTOR?	0;16	SET	'y' FOR YES; 'n' FOR NO; LAST EDITED: `NOV 12, 1986` DESCRIPTION: `Yes means the system will query the user to add free text for record description.`
17	MULTIPLE VOLUMES ALLOWED?	0;17	SET	**********************REQUIRED FIELD********************** 'y' FOR YES; 'n' FOR NO; LAST EDITED: `FEB 14, 1987` DESCRIPTION: `Yes means the system will allow creation of multiple volumes for this type of record.`
18	OK TO PURGE DATA?	0;18	SET	'y' FOR YES; 'n' FOR NO; LAST EDITED: `APR 28, 1987` DESCRIPTION: `NO means that all the purge parameters will be ignored by the purge option and no data is purged until this parameter is set to YES.`
19	RETIRE RECORD CUTOFF (days)	0;19	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<365)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 23, 1991` HELP-PROMPT: `Type a Number between 365 and 9999, 0 Decimal Digits` DESCRIPTION: `This field will contain the number of days required for a record to be considered for retirement.`
21	PENDING CHECK-IN CUTOFF (days)	1;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 18, 1990` HELP-PROMPT: `Type a Number between 0 and 99999, 0 Decimal Digits` DESCRIPTION: `This describes the number of days a pending request will be displayed for a record when the record is being checked in.`
22	OK TO RETIRE RECORDS?	1;2	SET	'y' FOR YES; 'n' FOR NO; LAST EDITED: `MAR 13, 1991`
50	INACTIVATION DATE	I;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` DESCRIPTION: `This defines a date when the record is no longer available to be charged out.`
75	LINKED RECORDS	LINKED;0	POINTER Multiple #195.22	195.22 DESCRIPTION: `This points to other record types which should be automatically created by the system when this record is created.` SCREEN: `S DIC("S")="I $D(D0),D0'=+Y,$P(^(0),U,3)=$P(^DIC(195.2,D0,0),U,3)"` EXPLANATION: `Allows only records for the same application.`
100	ALLOWABLE FILE ROOMS	F;0	POINTER Multiple #195.21	195.21 DESCRIPTION: `This defines which borrower/file areas may be allowed to check in this type of record.` SCREEN: `S DIC("S")="I $D(D0),$P(^(0),U,3)=$P(^DIC(195.2,D0,0),U,3),$D(^SC(+$P(^RTV(195.9,Y,0),U,2),0)),$P(^(0),U,3)=""F"" D DICS^RTDPA31"` EXPLANATION: `Allows only file rooms that match the record type application.`
150	DESCRIPTION	D;0	WORD-PROCESSING #195.23	DESCRIPTION: `This free text allows the record to be described more fully.` LAST EDITED: `SEP 23, 1986`

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	50+1*
>> DA	.01(XREF 1S), .01(XREF 1K), 3(XREF 1S), 3(XREF 1K)
DIC	5+1!, 6+1!
DIC("S"	5+1, 5SCR+1, 6+1, 6SCR+1
>> DIE	5+1, 6+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 2+1!, 3(XREF 1S), 3(XREF 1K), 4+1!, 5+1!, 6+1!, 8+1! , 9+1!, 10+1!, 11+1!, 11.1+1!, 12+1!, 13+1!, 19+1!, 21+1!, 50+1*!
>> Y	5+1, 6+1, 50+1

Customize PDF page

Package: Record Tracking

Global: ^DIC(195.2

Information

Description

Directly Accessed By Routines, Total: 57

Accessed By FileMan Db Calls, Total: 10

Pointed To By FileMan Files, Total: 7

Pointer To FileMan Files, Total: 4

Fields, Total: 26

Found Entries, Total: 7

External References

Global Variables Directly Accessed

Local Variables

Legend: