STANDARD DATA DICTIONARY #190 -- RECORDS FILE 9/29/25 PAGE 1
STORED IN ^RT( *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
FILE SCREEN (SCR-node) : I $S($D(RTINACFL):1,'$D(^("I")):1,'^("I"):1,DT'>^("I"):1,1:0)
COMPILED CROSS-REFERENCE ROUTINE: RTXR
IDENTIFIED BY:
"WRITE": D DISP^RTUTL1,LINE^RTUTL3 I $D(^RT(+Y,0)) Q
POINTED TO BY: PARENT RECORD field (#5) of the RECORDS File (#190)
NAME field (#.01) of the REQUESTED RECORDS File (#190.1)
NAME field (#.01) of the MISSING RECORDS File (#190.2)
NAME field (#.01) of the RECORD MOVEMENT HISTORY File (#190.3)
CROSS
REFERENCED BY: APPLICATION(AA), CURRENT BORROWER/FILE ROOM(ABOR), DATE/TIME CHARGED TO BORROWER(AC), HOME LOCATION(ACC),
CURRENT BORROWER/FILE ROOM(ACCC), HOME LOCATION(AH), LOOSE FILING INDICATOR(AL), OLD BARCODE(AOLDBC),
REASON NOT TO RETIRE RECORD(AR), TYPE OF RECORD(AT), ASSOCIATED ENTITY OR ITEM(B), PATIENT FILE POINTER(C),
PARENT RECORD(P)
190,.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
190,.01 ASSOCIATED ENTITY OR ITEM 0;1 VARIABLE POINTER (Required)
FILE ORDER PREFIX LAYGO MESSAGE
2 1 P n PATIENT
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)
190,2 SITE NUMBER 0;2 FREE TEXT (Required)
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
190,3 TYPE OF RECORD 0;3 POINTER TO RECORD TYPES FILE (#195.2) (Required)
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)
190,4 APPLICATION 0;4 POINTER TO RECORD TRACKING APPLICATION FILE (#195.1) (Required)
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)
190,5 PARENT RECORD 0;5 POINTER TO RECORDS FILE (#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 sa
me.
UNEDITABLE
CROSS-REFERENCE: 190^P
1)= S ^RT("P",$E(X,1,30),DA)=""
2)= K ^RT("P",$E(X,1,30),DA)
190,6 HOME LOCATION 0;6 POINTER TO BORROWERS/FILE AREAS FILE (#195.9) (Required)
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
190,7 VOLUME NUMBER 0;7 NUMBER (Required)
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
190,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
190,9 PATIENT FILE POINTER 0;9 POINTER TO PATIENT FILE (#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)
190,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)
190,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.
190,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)
190,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.
190,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.
190,101 ASSOCIATED REQUEST CL;1 POINTER TO REQUESTED RECORDS FILE (#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.
190,102 ASSOCIATED MOVEMENT CL;2 POINTER TO RECORD MOVEMENT HISTORY FILE (#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.
190,105 CURRENT BORROWER/FILE ROOM CL;5 POINTER TO BORROWERS/FILE AREAS FILE (#195.9) (Required)
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
190,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)
190,107 USER THAT CHARGED RECORD CL;7 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 24, 1991
DESCRIPTION:
This identifies the user of the system responsible for the movement of the record to a borrower.
190,108 TYPE OF MOVEMENT CL;8 POINTER TO RECORD MOVEMENT TYPES FILE (#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.
190,114 ASSOCIATED BORROWER CL;14 POINTER TO BORROWERS/FILE AREAS FILE (#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
190,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.
190,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.
190,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.
190,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
190,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.
FILES POINTED TO FIELDS
BORROWERS/FILE AREAS (#195.9) HOME LOCATION (#6)
CURRENT BORROWER/FILE ROOM (#105)
ASSOCIATED BORROWER (#114)
NEW PERSON (#200) USER THAT CHARGED RECORD (#107)
PATIENT (#2) ASSOCIATED ENTITY OR ITEM (#.01)
PATIENT FILE POINTER (#9)
RECORD MOVEMENT HISTORY (#190.3) ASSOCIATED MOVEMENT (#102)
RECORD MOVEMENT TYPES (#195.3) TYPE OF MOVEMENT (#108)
RECORD TRACKING APPLICATION
(#195.1) APPLICATION (#4)
RECORD TYPES (#195.2) TYPE OF RECORD (#3)
RECORDS (#190) PARENT RECORD (#5)
REQUESTED RECORDS (#190.1) ASSOCIATED REQUEST (#101)
INPUT TEMPLATE(S):
RT CHARGE MAY 26, 1994@08:36 USER #0 ^RTCC
RT NEW RECORD JUL 15, 1996@18:31 USER #1 ^RTCR
PRINT TEMPLATE(S):
RT HOME LOCATION MAY 01, 1991@14:24 USER #0 ^RTCH Charged Out Records By Home Location
RTW WARD LIST JUL 16, 1991@10:21 USER #0 RECORDS LIST
SORT TEMPLATE(S):
RT CHARGED BY HOME BY BOR MAR 29, 1987 USER #0
SORT BY: '@DATE/TIME CHARGED TO BORROWER//
WITHIN DATE/TIME CHARGED TO BORROWER, SORT BY: @INTERNAL(HOME LOCATION)// (User is asked range)
WITHIN INTERNAL(HOME LOCATION), SORT BY: +CURRENT BORROWER/FILE ROOM;S2;"Borrower: "//
WITHIN CURRENT BORROWER/FILE ROOM, SORT BY: ASSOCIATED ENTITY OR ITEM//
RT CHARGED BY HOME BY NAME MAR 18, 1987 USER #0
SORT BY: '@DATE/TIME CHARGED TO BORROWER//
WITHIN DATE/TIME CHARGED TO BORROWER, SORT BY: +@INTERNAL(HOME LOCATION)// (User is asked range)
WITHIN INTERNAL(HOME LOCATION), SORT BY: ASSOCIATED ENTITY OR ITEM//
RT CHARGED BY HOME BY TD APR 23, 1987 USER #0
SORT BY: '@DATE/TIME CHARGED TO BORROWER// (User is asked range)
WITHIN DATE/TIME CHARGED TO BORROWER, SORT BY: +@INTERNAL(HOME LOCATION)// (User is asked range)
WITHIN INTERNAL(HOME LOCATION), SORT BY: @"A"_$E(PATIENT FILE POINTER:SSN,8,9)_$E(PATIENT FILE POINTER:SSN,6,7)//
RT HOME LIST BY BOR APR 10, 1987 USER #0
SORT BY: @INTERNAL(HOME LOCATION)// (User is asked range)
WITHIN INTERNAL(HOME LOCATION), SORT BY: +CURRENT BORROWER/FILE ROOM;S2;"Borrower: "//
WITHIN CURRENT BORROWER/FILE ROOM, SORT BY: ASSOCIATED ENTITY OR ITEM//
RT HOME LIST BY NAME APR 10, 1987 USER #0
SORT BY: +@INTERNAL(HOME LOCATION)// (User is asked range)
WITHIN INTERNAL(HOME LOCATION), SORT BY: ASSOCIATED ENTITY OR ITEM//
RT HOME LIST BY TD APR 23, 1987 USER #0
SORT BY: +@INTERNAL(HOME LOCATION)// (User is asked range)
WITHIN INTERNAL(HOME LOCATION), SORT BY: @"A"_$E(PATIENT FILE POINTER:SSN,8,9)_$E(PATIENT FILE POINTER:SSN,6,7)//
RT LOOSE FILING MAY 04, 1987 USER #0
SORT BY: @LOOSE FILING INDICATOR// From 'y' To 'y'
WITHIN LOOSE FILING INDICATOR, SORT BY: @PATIENT FILE POINTER://
PATIENT FIELD: "A"_$E(SSN,8,9)_$E(SSN,6,7)//
RT OVER BY DIV BY BOR SEP 13, 1993@08:37 USER #0
SORT BY: '@DATE/TIME CHARGED TO BORROWER// (User is asked range)
WITHIN DATE/TIME CHARGED TO BORROWER, SORT BY: HOME LOCATION:HOSPITAL LOCATION FILE POINTER:INSTITUTION;"Institution: "// (User is asked range)
WITHIN HOME LOCATION:HOSPITAL LOCATION FILE POINTER:INSTITUTION, SORT BY: +@CURRENT BORROWER/FILE ROOM;S1;""//
WITHIN CURRENT BORROWER/FILE ROOM, SORT BY: @ASSOCIATED ENTITY OR ITEM//
RT OVER BY DIV BY NAME MAR 18, 1987 USER #0
SORT BY: '@DATE/TIME CHARGED TO BORROWER// (User is asked range)
WITHIN DATE/TIME CHARGED TO BORROWER, SORT BY: +HOME LOCATION:HOSPITAL LOCATION FILE POINTER:INSTITUTION;"Institution: "// (User is asked range)
WITHIN HOME LOCATION:HOSPITAL LOCATION FILE POINTER:INSTITUTION, SORT BY: ASSOCIATED ENTITY OR ITEM//
RT OVER BY DIV BY TD APR 23, 1987 USER #0
SORT BY: '@DATE/TIME CHARGED TO BORROWER// (User is asked range)
WITHIN DATE/TIME CHARGED TO BORROWER, SORT BY: +HOME LOCATION:HOSPITAL LOCATION FILE POINTER:INSTITUTION;"Institution: "// (User is asked range)
WITHIN HOME LOCATION:HOSPITAL LOCATION FILE POINTER:INSTITUTION, SORT BY: @"A"_$E(PATIENT FILE POINTER:SSN,8,9)_$E(PATIENT FILE POINTER:SSN,6,7)//
RT OVER BY HOME BY BOR SEP 09, 1993@16:11 USER #0
SORT BY: '@DATE/TIME CHARGED TO BORROWER// (User is asked range)
WITHIN DATE/TIME CHARGED TO BORROWER, SORT BY: @INTERNAL(HOME LOCATION)// (User is asked range)
WITHIN INTERNAL(HOME LOCATION), SORT BY: +CURRENT BORROWER/FILE ROOM;S2;"Borrower: "//
WITHIN CURRENT BORROWER/FILE ROOM, SORT BY: @INTERNAL(+.01)//
RT OVER BY HOME BY NAME FEB 18, 1987 USER #0
SORT BY: '@DATE/TIME CHARGED TO BORROWER// (User is asked range)
WITHIN DATE/TIME CHARGED TO BORROWER, SORT BY: +@INTERNAL(HOME LOCATION)// (User is asked range)
WITHIN INTERNAL(HOME LOCATION), SORT BY: ASSOCIATED ENTITY OR ITEM//
RT OVER BY HOME BY TD SEP 09, 1993@16:12 USER #0
SORT BY: '@DATE/TIME CHARGED TO BORROWER// (User is asked range)
WITHIN DATE/TIME CHARGED TO BORROWER, SORT BY: +@INTERNAL(HOME LOCATION)// (User is asked range)
WITHIN INTERNAL(HOME LOCATION), SORT BY: @"A"_$E(PATIENT FILE POINTER:SSN,8,9)_$E(PATIENT FILE POINTER:SSN,6,7)//
FORM(S)/BLOCK(S):