Global: ^RT

FileMan FileNo	FileMan Filename	Package
190	RECORDS	Record Tracking

Package	Total	Routines
Record Tracking	17	RTB2 RTCC RTCC2 RTCC3 RTCC4 RTCM1 RTCR RTCR1 RTCR2 RTDEL RTDPA RTDPA1 RTPURGE RTRPT RTRPT3 RTT RTT4

Package	Total	FileMan Files
Record Tracking	4	RECORDS(#190)[5] REQUESTED RECORDS(#190.1)[.01] MISSING RECORDS(#190.2)[.01] RECORD MOVEMENT HISTORY(#190.3)[.01]

Package	Total	FileMan Files
Record Tracking	7	RECORD TRACKING APPLICATION(#195.1)[4] RECORD TYPES(#195.2)[3] RECORD MOVEMENT TYPES(#195.3)[108] RECORDS(#190)[5] REQUESTED RECORDS(#190.1)[101] RECORD MOVEMENT HISTORY(#190.3)[102] BORROWERS/FILE AREAS(#195.9)[6, 105, 114]
Kernel	1	NEW PERSON(#200)[107]
Registration	1	PATIENT(#2)[.01, 9]

Fields, Total: 27

Field #	Name	Loc	Type	Details
.001	RECORD NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N)!(X?4N) X` LAST EDITED: `JAN 15, 1987` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999` DESCRIPTION: `This is the internal number which is barcoded for record selection.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.01	ASSOCIATED ENTITY OR ITEM	0;1	VARIABLE POINTER	**********************REQUIRED FIELD********************** PATIENT(#2) LAST EDITED: `APR 27, 1987` DESCRIPTION: `This defines the items in variable pointed to files which will be tracked as records.` PRE-LOOKUP: `I X?.N1"/"1N.ANP D BC^RTDPA` `UNEDITABLE` CROSS-REFERENCE: `190^B` `1)= S ^RT("B",$E(X,1,30),DA)=""` `2)= K ^RT("B",$E(X,1,30),DA)`
2	SITE NUMBER	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<3) X` LAST EDITED: `APR 29, 1987` HELP-PROMPT: `ANSWER MUST BE 3-7 CHARACTERS IN LENGTH` DESCRIPTION: `This field is stuffed with the value of ^DD("SITE",1) upon creation.` `WRITE AUTHORITY: ^` `UNEDITABLE`
3	TYPE OF RECORD	0;3	POINTER TO RECORD TYPES FILE (#195.2)	**********************REQUIRED FIELD********************** RECORD TYPES(#195.2) LAST EDITED: `SEP 17, 1986` DESCRIPTION: `This allows records of the same source to be differentiated by type.` `UNEDITABLE` CROSS-REFERENCE: `^^TRIGGER^190^4` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RT(D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(190,3,1,1,1.1) X ^DD(190,3,1,1,1.4)` `1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DIC(195.2,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(195.2,D0,0)):^(0),1:"") S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)` `1.4)= S DIH=$S($D(^RT(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,3,99)) S DIH=DIH_U" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(0)=$P(DIH,U,1,3)_U_DIV_$S(%]"":U_%,1:""),DIH=190,DIG=4 D ^DICR:$N(^DD(DIH,DIG,1,0))>0` `2)= Q` `CREATE VALUE)= INTERNAL(#3:#3)` `DELETE VALUE)= NO EFFECT` `FIELD)= APPLICATION` CROSS-REFERENCE: `190^AT^MUMPS` `1)= S ^RT("AT",X,$P(^RT(DA,0),U),DA)=""` `2)= K ^RT("AT",X,$P(^RT(DA,0),U),DA)`
4	APPLICATION	0;4	POINTER TO RECORD TRACKING APPLICATION FILE (#195.1)	**********************REQUIRED FIELD********************** RECORD TRACKING APPLICATION(#195.1) LAST EDITED: `JAN 28, 1987` DESCRIPTION: `This allows multiple applications to access the record file as if each application had its own file.` `WRITE AUTHORITY: ^` `UNEDITABLE` NOTES: `TRIGGERED by the TYPE OF RECORD field of the RECORDS File` CROSS-REFERENCE: `190^AA^MUMPS` `1)= S ^RT("AA",X,$P(^RT(DA,0),U),DA)=""` `2)= K ^RT("AA",X,$P(^RT(DA,0),U),DA)`
5	PARENT RECORD	0;5	POINTER TO RECORDS FILE (#190)	RECORDS(#190) INPUT TRANSFORM: `S DIC("S")="I $D(D0),$P(^(0),U,7)=1,$P(^RT(+Y,0),U,1,3)=$P(^RT(D0,0),U,1,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 28, 1987` DESCRIPTION: `This identifies the original or initial record of a set of records that are logically or physically described in terms of volumes.` SCREEN: `S DIC("S")="I $D(D0),$P(^(0),U,7)=1,$P(^RT(+Y,0),U,1,3)=$P(^RT(D0,0),U,1,3)"` EXPLANATION: `Allows only records with a volume number of 1 and the patient, computer site and record type the same.` `UNEDITABLE` CROSS-REFERENCE: `190^P` `1)= S ^RT("P",$E(X,1,30),DA)=""` `2)= K ^RT("P",$E(X,1,30),DA)`
6	HOME LOCATION	0;6	POINTER TO BORROWERS/FILE AREAS FILE (#195.9)	**********************REQUIRED FIELD********************** BORROWERS/FILE AREAS(#195.9) INPUT TRANSFORM: `S DIC("V")="I $P(Y(0),U,4)=""L""",DIC("S")="I $D(D0),$D(^DIC(195.2,""AF"",Y,+$P(^RT(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` DESCRIPTION: `This identifies the place where a record normally resides when it isn't charged to a borrower.` SCREEN: `S DIC("S")="I $D(D0),$D(^RTV(195.2,""AF"",Y,+$P(^RT(D0,0),U,3))) D DICS^RTDPA31"` EXPLANATION: `Allows only file rooms that handle this type of record.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `190^AH` `1)= S ^RT("AH",$E(X,1,30),DA)=""` `2)= K ^RT("AH",$E(X,1,30),DA)` CROSS-REFERENCE: `190^ACC^MUMPS` `1)= Q:'$D(^RT(DA,"CL")) Q:X=$P(^("CL"),"^",5)!('$P(^("CL"),"^",6)) S ^RT("AC",+$P(^("CL"),"^",6),DA)=""` `2)= Q`
7	VOLUME NUMBER	0;7	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 01, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99` DESCRIPTION: `This further identifies a record which is a type which is normally allowed to have multiple volumes.` `UNEDITABLE`
8	BARCODE LAST PRINTED	0;8	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 22, 1991` DESCRIPTION: `This gives an indication of the age of the label which was attached to the record. Labels wear out and have to be reprinted.` `WRITE AUTHORITY: ^` `UNEDITABLE`
9	PATIENT FILE POINTER	0;9	POINTER TO PATIENT FILE (#2)	PATIENT(#2) LAST EDITED: `JUL 15, 1986` DESCRIPTION: `This allows faster access to the patient file entities for the MAS RADIOLOGY DHCP applications.` `WRITE AUTHORITY: ^` `UNEDITABLE` CROSS-REFERENCE: `190^C` `1)= S ^RT("C",$E(X,1,30),DA)=""` `2)= K ^RT("C",$E(X,1,30),DA)`
11	REASON NOT TO RETIRE RECORD	0;11	SET	't' FOR TEACHING; 'r' FOR TUMOR REGISTRY; 'o' FOR OK TO RETIRE; LAST EDITED: `JAN 15, 1987` DESCRIPTION: `This marks the record to identify action that may not be appropriate.` CROSS-REFERENCE: `190^AR` `1)= S ^RT("AR",$E(X,1,30),DA)=""` `2)= K ^RT("AR",$E(X,1,30),DA)`
12	CONTENT DESCRIPTOR	0;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<2) X` LAST EDITED: `NOV 12, 1986` HELP-PROMPT: `ANSWER MUST BE 2-20 CHARACTERS IN LENGTH` DESCRIPTION: `This allows free text descriptions for further delineation of record contents.`
13	LOOSE FILING INDICATOR	0;13	SET	'y' FOR YES; 'n' FOR NO; LAST EDITED: `MAY 04, 1987` DESCRIPTION: `This is a flag that indicates the record may have items which should be added to it.` CROSS-REFERENCE: `190^AL^MUMPS` `1)= S:X="y" ^RT("AL",X,DA)=""` `2)= K ^RT("AL",X,DA)`
50	INACTIVATION DATE	I;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 30, 1986` DESCRIPTION: `This defines a time when the record should no longer be used or is no longer useful to a borrower.`
75	TEMPORARY COMMENT	COMMENT;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>75!($L(X)<2) X` LAST EDITED: `MAY 14, 1987` HELP-PROMPT: `ANSWER MUST BE 2-75 CHARACTERS IN LENGTH` DESCRIPTION: `This allows free text to be added to the record description to aid in its distribution.`
101	ASSOCIATED REQUEST	CL;1	POINTER TO REQUESTED RECORDS FILE (#190.1)	REQUESTED RECORDS(#190.1) INPUT TRANSFORM: `S DIC("S")="I $D(D0),D0=+^(0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 21, 1986` DESCRIPTION: `This defines the reason why a record is moved in the system.` SCREEN: `S DIC("S")="I $D(D0),D0=+^(0)"` EXPLANATION: `Allows only request associated with this record.`
102	ASSOCIATED MOVEMENT	CL;2	POINTER TO RECORD MOVEMENT HISTORY FILE (#190.3)	RECORD MOVEMENT HISTORY(#190.3) INPUT TRANSFORM: `S DIC("S")="I $D(D0),D0=+^(0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 10, 1986` DESCRIPTION: `This defines the most recent action that has taken place on the record.` SCREEN: `S DIC("S")="I $D(D0),D0=+^(0)"` EXPLANATION: `Allows only movements associated with the record.`
105	CURRENT BORROWER/FILE ROOM	CL;5	POINTER TO BORROWERS/FILE AREAS FILE (#195.9)	**********************REQUIRED FIELD********************** BORROWERS/FILE AREAS(#195.9) INPUT TRANSFORM: `D REC^RTDPA31 S DIC("S")="I $D(D0),$P(^RT(D0,0),U,4)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 19, 1987` DESCRIPTION: `This identifies the current location of the record as known by the record tracking system.` SCREEN: `S DIC("S")="I $D(D0),$P(^RT(D0,0),U,4)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"` EXPLANATION: `Allows borrowers/locations associated with the application.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `190^ABOR` `1)= S ^RT("ABOR",$E(X,1,30),DA)=""` `2)= K ^RT("ABOR",$E(X,1,30),DA)` CROSS-REFERENCE: `190^ACCC^MUMPS` `1)= Q:'$D(^RT(DA,"CL"))!('$D(^(0))) Q:X=$P(^(0),"^",6)!('$P(^("CL"),"^",6)) S ^RT("AC",+$P(^("CL"),"^",6),DA)=""` `2)= Q`
106	DATE/TIME CHARGED TO BORROWER	CL;6	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 16, 1987` DESCRIPTION: `This identifies the time of the last movement of a record.` CROSS-REFERENCE: `190^AC^MUMPS` `1)= Q:'$D(^RT(DA,"CL"))!('$D(^(0))) Q:$P(^(0),"^",6)=$P(^("CL"),"^",5) S ^RT("AC",X,DA)=""` `2)= K ^RT("AC",X,DA)`
107	USER THAT CHARGED RECORD	CL;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 24, 1991` DESCRIPTION: `This identifies the user of the system responsible for the movement of the record to a borrower.`
108	TYPE OF MOVEMENT	CL;8	POINTER TO RECORD MOVEMENT TYPES FILE (#195.3)	RECORD MOVEMENT TYPES(#195.3) INPUT TRANSFORM: `S DIC("S")="I $D(D0),$P(^RT(D0,0),U,4)=$P(^DIC(195.3,Y,0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 14, 1987` DESCRIPTION: `This identifies the most recent action on the record by the system.` SCREEN: `S DIC("S")="I $D(D0),$P(^RT(D0,0),U,4)=$P(^DIC(195.3,Y,0),U,3)"` EXPLANATION: `Allows only movement types associated with the record's application.`
114	ASSOCIATED BORROWER	CL;14	POINTER TO BORROWERS/FILE AREAS FILE (#195.9)	BORROWERS/FILE AREAS(#195.9) INPUT TRANSFORM: `D REC^RTDPA31 S DIC("S")="I $D(D0),$P(^RT(D0,0),U,4)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 18, 1987` DESCRIPTION: `This identifies a borrower in the system which is associated with the area where the record has been moved.` SCREEN: `S DIC("S")="I $D(D0),$P(^RT(D0,0),U,4)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"` EXPLANATION: `Allows only different types of borrowers/locations associated with the application.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
115	LAST TIME SELECTED BY BARCODE?	CL;15	SET	'y' FOR YES; 'n' FOR NO; LAST EDITED: `FEB 01, 1987` DESCRIPTION: `This allows a guarantee that the last movement was valid since the selection by barcode means positive identification of the record.`
200	# DAYS CHARGED TO BORROWER		COMPUTED	MUMPS CODE: `S Y(190,200,1)=$S($D(^RT(D0,"CL")):^("CL"),1:""),X=DT S X=X,X1=X,X2=$P(Y(190,200,1),U,6),X="" D:X2 ^%DTC:X1` ALGORITHM: `TODAY-#106` DESCRIPTION: `This is the amount of time the record has been with the borrower.`
201	DAYS OVERDUE		COMPUTED	MUMPS CODE: `D OVER^RTUTL1` ALGORITHM: `D OVER^RTUTL1` LAST EDITED: `FEB 17, 1987` DESCRIPTION: `This identifies from the system defined limit that the record should be returned to the home file room.`
202	NUMBER OF MOVEMENTS ON FILE		COMPUTED	MUMPS CODE: `S RT=D0 D COUNT^RTPURGE K RT` ALGORITHM: `D COUNT^PURGE` LAST EDITED: `APR 28, 1987` DESCRIPTION: `This shows how much background information on a record's movements is available in the system.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
300	OLD BARCODE	OLDBC;E1,45	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<1) X` LAST EDITED: `APR 24, 1995` HELP-PROMPT: `Answer must be 1-45 characters in length.` DESCRIPTION: `This field is to be used by VA consolidated sites ONLY. It will be set as part of the consolidation process and must not be altered in any way.` `The purpose of this field is to allow consolidated sites to continue to use existing barcoded labels on their records rather than having to relabel all records. It will store the value of the record label's barcode. A` `cross-reference has been added to allow the look-up to select the appropriate record. This will only be used for records created prior to the consolidation.` `This field will contain the barcode information EXCEPT for the check-digit.` `For sites not involved in a consolidation, this field will contain no data and look-up will be unaffected.` `WRITE AUTHORITY: ^` CROSS-REFERENCE: `190^AOLDBC` `1)= S ^RT("AOLDBC",$E(X,1,30),DA)=""` `2)= K ^RT("AOLDBC",$E(X,1,30),DA)` `This cross-reference is used only for consolidated sites. If a record was created at a VAMC which has had its database consolidated, this cross-reference will contain the old barcode information. The look-up process will` `use this cross-reference to find the proper IEN of the RECORDS file.`

Customize PDF page

Package: Record Tracking

Global: ^RT

Information

Description

Accessed By FileMan Db Calls, Total: 17

Pointed To By FileMan Files, Total: 4

Pointer To FileMan Files, Total: 9

Fields, Total: 27