STANDARD DATA DICTIONARY #190.3 -- RECORD MOVEMENT HISTORY FILE 9/29/25 PAGE 1
STORED IN ^RTV(190.3, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
COMPILED CROSS-REFERENCE ROUTINE: RTXM
POINTED TO BY: ASSOCIATED MOVEMENT field (#102) of the RECORDS File (#190)
CROSS
REFERENCED BY: NAME(B), DATE/TIME CHARGED TO BORROWER(C)
190.3,.01 NAME 0;1 POINTER TO RECORDS FILE (#190) (Required)
LAST EDITED: JAN 28, 1987
DESCRIPTION:
This identifies the movements of a record in terms of the entity of the record.
UNEDITABLE
CROSS-REFERENCE: 190.3^B
1)= S ^RTV(190.3,"B",$E(X,1,30),DA)=""
2)= K ^RTV(190.3,"B",$E(X,1,30),DA)
190.3,2 DATE/TIME RECORD WAS REQUESTED 0;2 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 17, 1986
DESCRIPTION:
This identifies the date, time of the request which lead to the movement of the record.
UNEDITABLE
190.3,3 USER THAT REQUESTED RECORD 0;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 24, 1991
DESCRIPTION:
This identifies the user in the system that requested the record.
UNEDITABLE
190.3,4 DATE/TIME RECORD WAS NEEDED 0;4 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 17, 1986
DESCRIPTION:
This identifies the date, time the record was needed to distinguish from the time it was requested.
UNEDITABLE
190.3,5 BORROWER 0;5 POINTER TO BORROWERS/FILE AREAS FILE (#195.9) (Required)
INPUT TRANSFORM: D HIS^RTDPA31 S DIC("S")="I $D(D0),$D(^RT(+^RTV(190.3,D0,0),0)),$P(^(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 points to the entry in the Borrower file who was charged with the record.
SCREEN: S DIC("S")="I $D(D0),$D(^RT(+^RTV(190.3,D0,0),0)),$P(^(0),U,4)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA
31"
EXPLANATION: Allows borrowers/locations associated with the application.
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
190.3,6 DATE/TIME CHARGED TO BORROWER 0;6 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 29, 1987
DESCRIPTION:
This identifies the date, time the record was charged to the borrower.
UNEDITABLE
CROSS-REFERENCE: 190.3^C
1)= S ^RTV(190.3,"C",$E(X,1,30),DA)=""
2)= K ^RTV(190.3,"C",$E(X,1,30),DA)
190.3,7 USER THAT CHARGED RECORD 0;7 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 24, 1991
DESCRIPTION:
This identifies the user in the system who charged out the record.
UNEDITABLE
190.3,8 TYPE OF MOVEMENT 0;8 POINTER TO RECORD MOVEMENT TYPES FILE (#195.3) (Required)
INPUT TRANSFORM: S DIC("S")="I $D(D0),$D(^RT(+^RTV(190.3,D0,0),0)),$P(^(0),U,4)=$P(^DIC(195.3,Y,0),U,3)" D ^DIC K DI
C S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JAN 28, 1987
DESCRIPTION:
This defines the different types of actions that can be carried out on a record.
SCREEN: S DIC("S")="I $D(D0),$D(^RT(+^RTV(190.3,D0,0),0)),$P(^(0),U,4)=$P(^DIC(195.3,Y,0),U,3)"
EXPLANATION: Allows only movement types associated with the record's application.
UNEDITABLE
190.3,9 DATE/TIME OF NEXT MOVEMENT 0;9 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 15, 1987
DESCRIPTION: This identifies the date, time of the next movement which is known to the system to aid in tracking
the movement.
190.3,10 USER RESPON FOR NEXT MOVEMENT 0;10 POINTER TO NEW PERSON FILE (#200)
USER RESPONSIBLE FOR NEXT MOVEMENT
LAST EDITED: JUN 24, 1991
DESCRIPTION:
This identifies the user in the system who was connected with the next movement of the record.
190.3,14 ASSOCIATED BORROWER 0;14 POINTER TO BORROWERS/FILE AREAS FILE (#195.9)
INPUT TRANSFORM: D HIS^RTDPA31 S DIC("S")="I $D(D0),$D(^RT(+^RT(190.3,D0,0),0)),$P(^(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 links a borrower area with another borrower for purposes of more fully describing the location
of the record.
SCREEN: S DIC("S")="I $D(D0),$D(^RT(+^RT(190.3,D0,0),0)),$P(^(0),U,4)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA3
1"
EXPLANATION: Allows borrowers/locations associated with the application.
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
190.3,15 SELECTION BY BARCODE? 0;15 SET
'y' FOR YES;
'n' FOR NO;
LAST EDITED: FEB 01, 1987
DESCRIPTION: This validates the movement in the system since the selection by barcode defines an error free
identification of the movement.
190.3,200 # DAYS CHARGED TO MOVEMENT ; COMPUTED
MUMPS CODE: S Y(190.3,200,1)=$S($D(^RTV(190.3,D0,0)):^(0),1:"") S X=$P(Y(190.3,200,1),U,9),X1=X,X2=$P(Y(190.3,2
00,1),U,6),X="" D:X2 ^%DTC:X1
ALGORITHM: #9-#6
DESCRIPTION: This describes the time span involved in the movement to group record movements for system
management.
FILES POINTED TO FIELDS
BORROWERS/FILE AREAS (#195.9) BORROWER (#5)
ASSOCIATED BORROWER (#14)
NEW PERSON (#200) USER THAT REQUESTED RECORD (#3)
USER THAT CHARGED RECORD (#7)
USER RESPON FOR NEXT MOVEMENT (#10)
RECORD MOVEMENT TYPES (#195.3) TYPE OF MOVEMENT (#8)
RECORDS (#190) NAME (#.01)
INPUT TEMPLATE(S):
RT MOVEMENT FEB 01, 1987 USER #0 ^RTCM
PRINT TEMPLATE(S):
RT DAILY LOG JAN 29, 1987 USER #0 RECORD MOVEMENT HISTORY LIST
SORT TEMPLATE(S):
RT DAILY LOG JAN 29, 1987 USER #0
SORT BY: '@DATE/TIME CHARGED TO BORROWER// (User is asked range)
WITHIN DATE/TIME CHARGED TO BORROWER, SORT BY: +TYPE OF MOVEMENT//
WITHIN TYPE OF MOVEMENT, SORT BY: DATE/TIME CHARGED TO BORROWER//
FORM(S)/BLOCK(S):