Global: ^DIC(195.1

FileMan FileNo	FileMan Filename	Package
195.1	RECORD TRACKING APPLICATION	Record Tracking

Package	Total	Routines
Record Tracking	4	RTPSET RTSM RTSM81 RTSYS

Package	Total	FileMan Files
Record Tracking	9	LABEL FORMAT(#194.4)[3] RECORD TRACKING APPLICATION(#195.1)[#195.14(3), #195.15(3)] RECORD TYPES(#195.2)[3] RECORD MOVEMENT TYPES(#195.3)[3] RECORD TRACKING SYSTEM PARAMETERS(#195.4)[101, 201] REASONS(#195.6)[3] RECORDS(#190)[4] PULL LIST(#194.2)[15] BORROWERS/FILE AREAS(#195.9)[3, #195.9001(3)]

Package	Total	FileMan Files
Record Tracking	4	LABEL FORMAT(#194.4)[3] RECORD TRACKING APPLICATION(#195.1)[#195.14(3), #195.15(3)] RECORD TYPES(#195.2)[10, 45, #195.13(.01), #195.14(.01), #195.15(.01)] BORROWERS/FILE AREAS(#195.9)[42, 44, #195.12(2), #195.13(2), #195.13(5)]
Kernel	2	INSTITUTION(#4)[#195.12(.01)] SERVICE/SECTION(#49)[2]
MailMan	1	MAIL GROUP(#3.8)[12, 14, 22]
Scheduling	1	APPOINTMENT TYPE(#409.1)[#195.1165(.01)]
VA FileMan	1	FILE(#1)[#195.16(.01), #195.17(.01)]

Fields, Total: 31

Field #	Name	Loc	Type	Details
.01	APPLICATION	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 identifies the application or functional work group which is using record tracking.` CROSS-REFERENCE: `195.1^B` `1)= S ^DIC(195.1,"B",$E(X,1,30),DA)=""` `2)= K ^DIC(195.1,"B",$E(X,1,30),DA)`
2	SERVICE	0;2	POINTER TO SERVICE/SECTION FILE (#49)	SERVICE/SECTION(#49) LAST EDITED: `JAN 14, 1987` DESCRIPTION: `This links the application with an entry in the service/section file.` CROSS-REFERENCE: `195.1^D` `1)= S ^DIC(195.1,"D",$E(X,1,30),DA)=""` `2)= K ^DIC(195.1,"D",$E(X,1,30),DA)`
3	BORROWER BARCODE FORMAT	0;3	POINTER TO LABEL FORMAT FILE (#194.4)	LABEL FORMAT(#194.4) INPUT TRANSFORM: `S DIC("S")="I $D(D0),$P(^(0),U,3)=D0,$P(^(0),U,4)=""b""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JAN 17, 1987` DESCRIPTION: `This defines which label format will be used to print Borrower labels for this application.` SCREEN: `S DIC("S")="I $D(D0),$P(^(0),U,3)=D0,$P(^(0),U,4)=""b"""` EXPLANATION: `Allows only borrower type formats for the application.`
7	FILE ROOM STAFF KEY	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<2) X I $D(X) S DIC(0)="EM",DIC="^DIC(19.1,",DIC("S")="I $E(^(0),1,2)=""RT""" D ^DIC K DIC S DIC=DIE,X=$P(Y,U,2) K:Y<0 X` LAST EDITED: `FEB 06, 1987` DESCRIPTION: `This identifies the Security key which is necessary to charge-out and check-in records to a file room.` EXECUTABLE HELP: `S DIC("S")="I $E(^(0),1,2)=""RT""",DIC="^DIC(19.1,",DIC(0)="E" D ^DIC K DIC S DIC=DIE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
8	FILE ROOM SUPERVISOR KEY	0;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<2) X I $D(X) S DIC(0)="EM",DIC="^DIC(19.1,",DIC("S")="I $E(^(0),1,2)=""RT""" D ^DIC K DIC S DIC=DIE,X=$P(Y,U,2) K:Y<0 X` LAST EDITED: `JAN 30, 1987` DESCRIPTION: `This defines the security key which is required to cancel, edit requests, define or find missing records.` EXECUTABLE HELP: `S DIC("S")="I $E(^(0),1,2)=""RT""",DIC="^DIC(19.1,",DIC(0)="E" D ^DIC K DIC S DIC=DIE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
9	ENTITY DISPLAY HEADER	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>25!($L(X)<3) X` LAST EDITED: `AUG 29, 1986` HELP-PROMPT: `ANSWER MUST BE 3-25 CHARACTERS IN LENGTH` DESCRIPTION: `This is the text used when displaying the record data.`
10	DEFAULT RECORD CREATION TYPE	0;10	POINTER TO RECORD TYPES FILE (#195.2)	RECORD TYPES(#195.2) INPUT TRANSFORM: `S DIC("S")="I $D(D0),$P(^(0),U,3)=D0" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 08, 1986` DESCRIPTION: `This identifies the type of record which is normally created by the system for this application.` SCREEN: `S DIC("S")="I $D(D0),$P(^(0),U,3)=D0"` EXPLANATION: `Allows only records associated with this application.`
12	MISSING RECORD MAIL GROUP	0;12	POINTER TO MAIL GROUP FILE (#3.8)	MAIL GROUP(#3.8) LAST EDITED: `MAY 05, 1987` DESCRIPTION: `This identifies the mail group which is notified when missing records are accessed or identified.`
14	CLINIC REQUESTS MAIL GROUP	0;14	POINTER TO MAIL GROUP FILE (#3.8)	MAIL GROUP(#3.8) LAST EDITED: `MAR 17, 1988` HELP-PROMPT: `This mail group will receive a bulletin when the Clinic initialization batch proccess runs each night.` DESCRIPTION: `This identifies the mail group which receives notification when requests for records, xrays are generated at night by the clinic request initialization.` `SOURCE OF DATA: SITE MANAGER`
21	CANCELATION BULLETIN	2;1	SET	'0' FOR NOTHING; '1' FOR BULLETIN; '2' FOR DEVICE; '3' FOR BOTH; LAST EDITED: `DEC 12, 1990`
22	CANCELATION MAIL GROUP	2;2	POINTER TO MAIL GROUP FILE (#3.8)	MAIL GROUP(#3.8) LAST EDITED: `APR 11, 1991`
23	TERMINATED BORROWERS	2;3	SET	'y' FOR YES; 'n' FOR NO; LAST EDITED: `DEC 11, 1990` HELP-PROMPT: `Answer Yes to revoke borrowing for terminated users`
24	CANCEL REQUESTS	2;4	SET	'y' FOR YES; 'n' FOR NO; LAST EDITED: `DEC 11, 1990` HELP-PROMPT: `Answer Yes to cancel requests for terminated borrowers`
25	OK TO RETIRE RECORDS?	2;5	SET	'y' FOR YES; 'n' FOR NO; LAST EDITED: `MAR 14, 1991`
31	ENTITY SELECT PROMPT	3;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` LAST EDITED: `JUL 11, 1986` HELP-PROMPT: `ANSWER MUST BE 3-40 CHARACTERS IN LENGTH` DESCRIPTION: `This defines the prompt which is used when the system prompts for a record.`
32	BORROWER SELECT PROMPT	3;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` LAST EDITED: `JUL 11, 1986` HELP-PROMPT: `ANSWER MUST BE 3-40 CHARACTERS IN LENGTH` DESCRIPTION: `This identifies the prompt used when the system asks for a Borrower.`
41	EXCLUDE INPATIENTS	4;1	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `DEC 16, 1990`
42	DEFAULT SCHEDULED ADMISSIONS	4;2	POINTER TO BORROWERS/FILE AREAS FILE (#195.9)	BORROWERS/FILE AREAS(#195.9) INPUT TRANSFORM: `S DIC("S")="I $D(D0),$P(^(0),U,3)=D0" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 17, 1991` DESCRIPTION: `This defines the borrower/file areas which will be used in generating a pull list from the scheduled admissions file.` SCREEN: `S DIC("S")="I $D(D0),$P(^(0),U,3)=D0"` EXPLANATION: `allows only borrowers/file areas associated with this application`
43	CREATE RECORDS-CLINIC REQUESTS	4;3	SET	'y' FOR YES; 'n' FOR NO; LAST EDITED: `APR 23, 1991` HELP-PROMPT: `No prevents requests, pull lists, if no record exists.` DESCRIPTION: `If set to yes a clinic request for a record will generate a record if none exists. If set to no, a request, pull list and record will not be created if there is no record at the time of the request.`
44	DEFAULT RETIREMENT BORROWER	4;4	POINTER TO BORROWERS/FILE AREAS FILE (#195.9)	BORROWERS/FILE AREAS(#195.9) INPUT TRANSFORM: `S DIC("S")="I $D(D0),$P(^(0),U,3)=D0" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 17, 1991` DESCRIPTION: `This field contains the default Borrower to charge/transfer records when they are retired.` SCREEN: `S DIC("S")="I $D(D0),$P(^(0),U,3)=D0"` EXPLANATION: `Allows only borrowers associated with this application`
45	DEFAULT PERPETUAL RECORD	4;5	POINTER TO RECORD TYPES FILE (#195.2)	RECORD TYPES(#195.2) INPUT TRANSFORM: `S DIC("S")="I $D(D0),$P(^(0),U,3)=D0" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 15, 1991` DESCRIPTION: `This contains the record type that should be created when records are retired.` SCREEN: `S DIC("S")="I $D(D0),$P(^(0),U,3)=D0"` EXPLANATION: `Allows only records associated with this application.`
50	SYNONYMS	1;0	Multiple #195.11	195.11 DESCRIPTION: `This allows the application to be selected by different names.`
75	PROFILE/REPORT HEADER	HD;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<5) X` LAST EDITED: `OCT 16, 1986` HELP-PROMPT: `ANSWER MUST BE 5-40 CHARACTERS IN LENGTH` DESCRIPTION: `This defines the text which will be displayed on various reports for this application.`
100	INSTITUTION	INST;0	POINTER Multiple #195.12	195.12 DESCRIPTION: `This defines the institutions using this application.`
125	BORROWER FILE PARAMETERS	BOR;0	POINTER Multiple #195.16	195.16 DESCRIPTION: `This defines that the system should ask for phone/room, associated borrower and show charged records when a borrower is accessed.`
150	MAS RECORDS NEEDED BY CLINICS	MAS;0	POINTER Multiple #195.14	195.14 DESCRIPTION: `This defines the type of record, volumes needed, and application when a clinic schedules a visit.` SCREEN: `S DIC("S")="I $D(D0),$D(^DIC(195.4,1,""MAS"")),D0=+^(""MAS""),+^(""MAS"")=+$P(^DIC(195.2,+Y,0),U,3)"` EXPLANATION: `Allows only MAS application records.`
161	*EXCLUDE COLLATERAL REQUESTS CL	EX;1	SET	'1' FOR YES; LAST EDITED: `JUL 06, 1988` DESCRIPTION: `YES means do not request records for scheduled clinics if the patient type is collateral.`
162	*EXCLUDE C&P REQUESTS CL	EX;2	SET	'1' FOR YES; LAST EDITED: `JUL 06, 1988` DESCRIPTION: `YES means do not request records for a scheduled clinic if the patient type is C&P.`
165	EXCLUDE APPOINTMENT TYPES	EXCLUDE;0	POINTER Multiple #195.1165	195.1165 DESCRIPTION: `Appointment types listed in this field are excluded from pull lists generated for clinics`
250	RAD FOLDERS NEEDED BY CLINICS	RAD;0	POINTER Multiple #195.15	195.15 DESCRIPTION: `This defines the folder, volume and application that should be requested when a scheduled clinic requires x-rays.` SCREEN: `S DIC("S")="I $D(^DIC(195.4,1,""RAD""),+^(""RAD"")=+$P(^DIC(195.2,+Y,0),U,3)"` EXPLANATION: `Allows only radiology record types.`
300	ENTITY FILE	ENTITY;0	POINTER Multiple #195.17	195.17 DESCRIPTION: `This defines by application the file which the record file points to.`

Customize PDF page

Package: Record Tracking

Global: ^DIC(195.1

Information

Description

Accessed By FileMan Db Calls, Total: 4

Pointed To By FileMan Files, Total: 9

Pointer To FileMan Files, Total: 9

Fields, Total: 31

Found Entries, Total: 2