STANDARD DATA DICTIONARY #190.2 -- MISSING RECORDS FILE 6/27/25 PAGE 1
STORED IN ^RTV(190.2, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
CROSS
REFERENCED BY: WHERE WAS RECORD FOUND?(ABOR), STATUS(AC), REASON RECORD WAS MISSING(AL), STATUS(AM), NAME(B)
190.2,.01 NAME 0;1 POINTER TO RECORDS FILE (#190) (Required)
LAST EDITED: SEP 10, 1986
DESCRIPTION:
This identifies the record with the entity which it defines.
UNEDITABLE
CROSS-REFERENCE: 190.2^B
1)= S ^RTV(190.2,"B",$E(X,1,30),DA)=""
2)= K ^RTV(190.2,"B",$E(X,1,30),DA)
190.2,2 DATE/TIME ENTERED AS MISSING 0;2 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 02, 1986
DESCRIPTION:
This defines the date, time when the record was identified as missing.
190.2,3 USER 0;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 24, 1991
DESCRIPTION:
This identifies the user in the system who identified the record as missing.
190.2,4 STATUS 0;4 SET (Required)
'f' FOR FOUND;
'm' FOR MISSING;
's' FOR FOUND/SUPERVISOR APPROVAL PENDING;
LAST EDITED: AUG 27, 1986
DESCRIPTION:
This differentiates the state of the record which is described as missing.
CROSS-REFERENCE: 190.2^AM^MUMPS
1)= S:X="m"!(X="s") ^RTV(190.2,"AM",X,+^RTV(190.2,DA,0),DA)=""
2)= K ^RTV(190.2,"AM",X,+^RTV(190.2,DA,0),DA)
CROSS-REFERENCE: 190.2^AC
1)= S ^RTV(190.2,"AC",$E(X,1,30),DA)=""
2)= K ^RTV(190.2,"AC",$E(X,1,30),DA)
190.2,5 WHERE WAS RECORD FOUND? 0;5 POINTER TO BORROWERS/FILE AREAS FILE (#195.9) (Required)
INPUT TRANSFORM: D MISS^RTDPA31 S DIC("S")="I $D(D0),$D(^RT(+^RTV(190.2,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 identifies the borrower, area with the record when it is located.
SCREEN: S DIC("S")="I $D(D0),$D(^RT(+^RTV(190.2,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.2^ABOR
1)= S ^RTV(190.2,"ABOR",$E(X,1,30),DA)=""
2)= K ^RTV(190.2,"ABOR",$E(X,1,30),DA)
190.2,6 DATE/TIME RECORD FOUND 0;6 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 when a record which was previously designated as missing was
located.
190.2,7 REASON RECORD WAS MISSING 0;7 POINTER TO REASONS FILE (#195.6)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)=""m""!($P(^(0),U,2)=""g""),$D(^RT(+^RTV(190.2,D0,0),0)),$P(^(0),U,4)=$P(
^DIC(195.6,+Y,0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 27, 1987
DESCRIPTION: This allows the system to classify the cause of records being lost as a means of identifying
corrective action to prevent future loss.
SCREEN: S DIC("S")="I $P(^(0),U,2)=""m""!($P(^(0),U,2)=""g""),$D(^RT(+^RTV(190.2,D0,0),0)),$P(^(0),U,4)=$P(
^DIC(195.6,+Y,0),U,3)"
EXPLANATION: Allows only general or missing specific reasons associated with the application of the record.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 190.2^AL
1)= S ^RTV(190.2,"AL",$E(X,1,30),DA)=""
2)= K ^RTV(190.2,"AL",$E(X,1,30),DA)
190.2,8 USER WHO ENTERED AS FOUND 0;8 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 24, 1991
DESCRIPTION:
This identifies the user in the system who defined the record as no longer missing.
190.2,9 APPROVING SUPERVISOR 0;9 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(D0),$D(^RT(+^RTV(190.2,D0,0),0)),$D(^DIC(195.1,+$P(^(0),U,4),0)),$P(^(0),U,8)]""""
,$D(^XUSEC($P(^(0),U,8),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 24, 1991
DESCRIPTION: This identifies the user in the system who confirms the retrieval of a missing record when the
system is set to require such action.
SCREEN: S DIC("S")="I $D(D0),$D(^RT(+^RTV(190.2,D0,0),0)),$D(^DIC(195.1,+$P(^(0),U,4),0)),$P(^(0),U,8)]""""
,$D(^XUSEC($P(^(0),U,8),+Y))"
EXPLANATION: Allows only file room supervisors for the application to approve findings.
190.2,10 DATE FINDING APPROVED 0;10 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 27, 1986
DESCRIPTION:
This identifies the date, time when the approval was made if required by the system.
190.2,100 SUPERVISOR COMMENTS 1;0 WORD-PROCESSING #190.21
DESCRIPTION: This allows free text comments for expanding the ability of the system to describe the history of
the missing record episode.
LAST EDITED: JUN 17, 1986
190.2,150 USER COMMENTS 2;0 WORD-PROCESSING #190.22
DESCRIPTION: This allow the user who found the record to describe with free text the episode in which the
missing record was found.
LAST EDITED: AUG 28, 1986
FILES POINTED TO FIELDS
BORROWERS/FILE AREAS (#195.9) WHERE WAS RECORD FOUND? (#5)
NEW PERSON (#200) USER (#3)
USER WHO ENTERED AS FOUND (#8)
APPROVING SUPERVISOR (#9)
REASONS (#195.6) REASON RECORD WAS MISSING (#7)
RECORDS (#190) NAME (#.01)
INPUT TEMPLATE(S):
RT FOUND FEB 02, 1987 USER #0
RT MISSING FEB 02, 1987 USER #0
PRINT TEMPLATE(S):
RT MISSING APR 15, 1988 USER #0 ^RTCL Missing Records List
SORT TEMPLATE(S):
RT MISSING MAR 25, 1987 USER #0
SORT BY: INTERNAL(STATUS)'="f";L1// From '0' To '1'
WITHIN INTERNAL(STATUS)'="f", SORT BY: NAME//
WITHIN NAME, SORT BY: NAME://
RECORDS FIELD: TYPE OF RECORD//
WITHIN TYPE OF RECORD, SORT BY: NAME://
RECORDS FIELD: VOLUME NUMBER//
FORM(S)/BLOCK(S):