STANDARD DATA DICTIONARY #190.1 -- REQUESTED RECORDS FILE 6/27/25 PAGE 1
STORED IN ^RTV(190.1, *** 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: RTXQ
IDENTIFIED BY:
"WRITE": D DISP1^RTUTL1
POINTED TO BY: PARENT RECORD REQUEST # field (#200) of the PATIENT sub-field (#44.003) of the APPOINTMENT sub-field (#44.001) of
the HOSPITAL LOCATION File (#44)
ASSOCIATED REQUEST field (#101) of the RECORDS File (#190)
PARENT REQUEST field (#11) of the REQUESTED RECORDS File (#190.1)
CROSS
REFERENCED BY: REQUESTOR(ABOR), DATE/TIME RECORD NEEDED(AC), DATE/TIME REQUESTED(AD), PULL LIST(AP), PULL LIST(AP1),
PARENT REQUEST(APAR), NAME(B), DATE/TIME RECORD NEEDED(C)
190.1,.01 NAME 0;1 POINTER TO RECORDS FILE (#190) (Required)
LAST EDITED: APR 29, 1987
DESCRIPTION: This allows the identification of the request for a record with the entity defined in the record
file.
PRE-LOOKUP: S X=$S(X?4N:X,X?.N:"`"_X,1:X) I X?1"REQ"1N.ANP S W=$E(X,1,$L(X)-1) D CHAR^RTDPA I Y,C=$E(X,$L(X)) S
X="`"_$E(X,4,$L(X)-1)
UNEDITABLE
CROSS-REFERENCE: 190.1^B
1)= S ^RTV(190.1,"B",$E(X,1,30),DA)=""
2)= K ^RTV(190.1,"B",$E(X,1,30),DA)
190.1,2 DATE/TIME REQUESTED 0;2 DATE (Required)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 22, 1987
DESCRIPTION:
This identifies the date, time when the request was made
CROSS-REFERENCE: 190.1^AD
1)= S ^RTV(190.1,"AD",$E(X,1,30),DA)=""
2)= K ^RTV(190.1,"AD",$E(X,1,30),DA)
190.1,3 USER REQUESTING RECORD 0;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 24, 1991
DESCRIPTION:
This shows the person who made the request.
190.1,4 DATE/TIME RECORD NEEDED 0;4 DATE (Required)
INPUT TRANSFORM: S %DT(0)=$S($D(RTNOW):RTNOW,1:DT),%DT="ETX" D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S RTX="RTQDT" D TEST
^RTQ1
LAST EDITED: MAY 08, 1991
HELP-PROMPT: Date/time must be in the future.
DESCRIPTION:
This identifies the date, time when the record is needed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 190.1^C
1)= S ^RTV(190.1,"C",$E(X,1,30),DA)=""
2)= K ^RTV(190.1,"C",$E(X,1,30),DA)
CROSS-REFERENCE: 190.1^AC^MUMPS
1)= S ^RTV(190.1,"AC",+^RTV(190.1,DA,0),$P(X,"."),DA)=""
2)= K ^RTV(190.1,"AC",+^RTV(190.1,DA,0),$P(X,"."),DA)
190.1,5 REQUESTOR 0;5 POINTER TO BORROWERS/FILE AREAS FILE (#195.9) (Required)
INPUT TRANSFORM: D RTQ^RTDPA31 S DIC("S")="I $D(D0),$D(^RT(+^RTV(190.1,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 I $D(X) S RTX="RTB" D TEST^RTQ1 K RTX
LAST EDITED: FEB 18, 1987
DESCRIPTION:
This identifies the borrower who needs the record
SCREEN: S DIC("S")="I $D(D0),$D(^RT(+^RTV(190.1,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.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 190.1^ABOR
1)= S ^RTV(190.1,"ABOR",$E(X,1,30),DA)=""
2)= K ^RTV(190.1,"ABOR",$E(X,1,30),DA)
190.1,6 REQUEST STATUS 0;6 SET
'c' FOR CHARGED;
'x' FOR CANCELLED;
'r' FOR REQUESTED;
'n' FOR NOT FILLABLE;
LAST EDITED: APR 24, 1987
DESCRIPTION:
This allows the system to differentiate the state of the request process.
190.1,7 DATE/TIME CURRENT STATUS 0;7 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 17, 1986
DESCRIPTION:
This defines the date, time when the current status was established.
190.1,8 USER RESPONSIBLE FOR STATUS 0;8 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 24, 1991
DESCRIPTION:
This identifies the user in the system associated with the current status.
190.1,9 CANCEL REASON 0;9 POINTER TO REASONS FILE (#195.6)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)=""c""!($P(^(0),U,2)=""g"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 17, 1986
DESCRIPTION:
This differentiates the status of a canceled request.
SCREEN: S DIC("S")="I $P(^(0),U,2)=""c""!($P(^(0),U,2)=""g"")"
EXPLANATION: Allow only general or cancel-request reasons.
190.1,10 PULL LIST 0;10 POINTER TO PULL LIST FILE (#194.2)
LAST EDITED: JUL 25, 1986
DESCRIPTION: This identifies a list of requests which are logically grouped together to allow the system to
perform a group action on a series of requests.
CROSS-REFERENCE: 190.1^AP
1)= S ^RTV(190.1,"AP",$E(X,1,30),DA)=""
2)= K ^RTV(190.1,"AP",$E(X,1,30),DA)
CROSS-REFERENCE: 190.1^AP1^MUMPS
1)= S ^RTV(190.1,"AP1",X,+^RTV(190.1,DA,0),DA)=""
2)= K ^RTV(190.1,"AP1",X,+^RTV(190.1,DA,0),DA)
190.1,11 PARENT REQUEST 0;11 POINTER TO REQUESTED RECORDS FILE (#190.1)
LAST EDITED: AUG 01, 1986
DESCRIPTION: This allows the system to create a series of linked requests so that the request for 1 record can
spawn requests for logically associated records.
CROSS-REFERENCE: 190.1^APAR
1)= S ^RTV(190.1,"APAR",$E(X,1,30),DA)=""
2)= K ^RTV(190.1,"APAR",$E(X,1,30),DA)
190.1,12 INSTITUTION OF REQUESTOR 0;12 POINTER TO INSTITUTION FILE (#4) (Required)
LAST EDITED: NOV 10, 1986
DESCRIPTION:
This further identifies the requestor to support divisions within the system.
190.1,13 DATE REQUEST LAST PRINTED 0;13 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 05, 1986
DESCRIPTION:
This identifies the date, time the barcoded request label was printed in the system.
WRITE AUTHORITY: ^
190.1,14 ASSOCIATED REQUESTOR 0;14 POINTER TO BORROWERS/FILE AREAS FILE (#195.9)
INPUT TRANSFORM: D RTQ^RTDPA31 S DIC("S")="I $D(D0),$D(^RT(+^RTV(190.1,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 allows the system to associate one borrower with another borrower to further more fully
describe the need for a record.
SCREEN: S DIC("S")="I $D(D0),$D(^RT(+^RTV(190.1,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.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
190.1,75 COMMENT COMMENT;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<3) X
LAST EDITED: NOV 14, 1986
HELP-PROMPT: ANSWER MUST BE 3-50 CHARACTERS IN LENGTH
DESCRIPTION:
This allows the addition of free text to more fully describe the request for a record.
190.1,200 ELAPSED TIME TO CURRENT STATUS ; COMPUTED
MUMPS CODE: X ^DD(190.1,200,9.2) S X1=Y(190.1,200,2) S Y=$E(X1_"000",9,10)-$E(X_"000",9,10)*60+$E(X1_"00000",11
,12)-$E(X_"00000",11,12),X2=X,X=$P(X,".",1)'=$P(X1,".",1) D ^%DTC:X S X=X*1440+Y S X=$J(X,0,0)
9.2 = S Y(190.1,200,1)=$S($D(^RTV(190.1,D0,0)):^(0),1:"") S X=$P(Y(190.1,200,1),U,7),Y(190.1,200,2)
=X S X=$P(Y(190.1,200,1),U,2)
ALGORITHM: MINUTES(DATE/TIME CURRENT STATUS,DATE/TIME REQUESTED) (ALWAYS 0 DECIMAL DIGITS)
DESCRIPTION:
This allows the system to quantify the status of a request and sort requests for priority.
FILES POINTED TO FIELDS
BORROWERS/FILE AREAS (#195.9) REQUESTOR (#5)
ASSOCIATED REQUESTOR (#14)
INSTITUTION (#4) INSTITUTION OF REQUESTOR (#12)
NEW PERSON (#200) USER REQUESTING RECORD (#3)
USER RESPONSIBLE FOR STATUS (#8)
PULL LIST (#194.2) PULL LIST (#10)
REASONS (#195.6) CANCEL REASON (#9)
RECORDS (#190) NAME (#.01)
REQUESTED RECORDS (#190.1) PARENT REQUEST (#11)
INPUT TEMPLATE(S):
RT CHANGE REQUEST STATUS MAR 12, 1991@14:14 USER #0 ^RTCS
RT EDIT REQUEST MAY 21, 1991@09:49 USER #0
RT REQUEST MAY 08, 1991@14:17 USER #0 ^RTCU
PRINT TEMPLATE(S):
RT PENDING REQUESTS MAY 07, 1987 USER #0 ^RTCX Pending Requests
RT TIME STUDY APR 23, 1987 USER #0 AD HOC REQUEST STATISTICS
SORT TEMPLATE(S):
RT PENDING REQUESTS FEB 03, 1987 USER #0
SORT BY: '@DATE/TIME RECORD NEEDED// (User is asked range)
WITHIN DATE/TIME RECORD NEEDED, SORT BY: INSTITUTION OF REQUESTOR;"Institution: "// (User is asked range)
WITHIN INSTITUTION OF REQUESTOR, SORT BY: NAME://
RECORDS FIELD: ASSOCIATED ENTITY OR ITEM//
RT TIME STUDY APR 22, 1987 USER #0
SORT BY: 'DATE/TIME REQUESTED// (User is asked range)
WITHIN DATE/TIME REQUESTED, SORT BY: @REQUEST STATUS'="REQUESTED";L1;L1;L1// From '0' To '1'
WITHIN REQUEST STATUS'="REQUESTED", SORT BY: @PULL LIST="";L1;L1;L1// From '0' To '1'
WITHIN PULL LIST="", SORT BY: +#DATE(DATE/TIME REQUESTED);"DATE REQUESTED: ";C20//
WITHIN DATE(DATE/TIME REQUESTED), SORT BY: +REQUEST STATUS;C20;S1//
WITHIN REQUEST STATUS, SORT BY: @TIME(DATE/TIME REQUESTED)//
WITHIN TIME(DATE/TIME REQUESTED), SORT BY: NAME//
FORM(S)/BLOCK(S):