Global: ^DIC(195.1

FileMan FileNo	FileMan Filename	Package
195.1	RECORD TRACKING APPLICATION	Record Tracking

Package	Total	Routines
Record Tracking	44	RT APPL SET-UP ^DIC(194.4 BORROWER FILE PARAMETERS ENTITY FILE EXCLUDE APPOINTMENT TYPES MAS RECORDS NEEDED BY CLINICS RAD FOLDERS NEEDED BY CLINICS RT ALL INPATIENTS RT APPL SET-UP (SITE MGR) RT FORMATS RT PURGE PROFILE RT RETIREMENT PROFILE RT WARD LIST RTB RTB2 RTDPA1 RTDPA3 RTDPA31 RTNQ1 RTNQ2 RTNQ4 RTP3 RTP4 RTP41 RTP5 RTPSET RTPSET1 RTQ RTQ2 RTQ41 RTRPT3 RTSM6 RTSM61 RTSM7 RTSM81 RTSYS RTUTL RTUTL5 RTUTL6 TYPE OF RECORDS ^DIC(195.1 ^DIC(195.3 SYNONYMS ^RTV(195.9

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.`

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K)
DIC	3+1!, 7+1!, 7(HELP ), 8+1!, 8(HELP ), 10+1!, 42+1!, 44+1!, 45+1!*
DIC("S"	3+1, 3SCR+1, 7+1, 7(HELP ), 8+1, 8(HELP ), 10+1, 10SCR+1, 42+1, 42SCR+1 , 44+1, 44SCR+1, 45+1, 45SCR+1
DIC(0	7+1, 7(HELP ), 8+1, 8(HELP )
>> DIE	3+1, 7+1, 7(HELP ), 8+1, 8(HELP ), 10+1, 42+1, 44+1, 45+1
U	7+1, 8+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K), 3+1!, 7+1!, 8+1!, 9+1!, 10+1! , 31+1!, 32+1!, 42+1!, 44+1!, 45+1*!, 75+1!
>> Y	3+1, 7+1, 8+1, 10+1, 42+1, 44+1, 45+1

Customize PDF page

Package: Record Tracking

Global: ^DIC(195.1

Information

Description

Directly Accessed By Routines, Total: 45

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

External References

Global Variables Directly Accessed

Local Variables

Legend: