Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields
Print Page as PDF
Global: ^RTV(190.2

Package: Record Tracking

Global: ^RTV(190.2


Information

FileMan FileNo FileMan Filename Package
190.2 MISSING RECORDS Record Tracking

Description

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Record Tracking 3 RTRPT    RTT1    RTT2    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Record Tracking 3 REASONS(#195.6)[7]    RECORDS(#190)[.01]    BORROWERS/FILE AREAS(#195.9)[5]    
Kernel 1 NEW PERSON(#200)[3, 8, 9]

Fields, Total: 12

Field # Name Loc Type Details
.01 NAME 0;1 POINTER TO RECORDS FILE (#190)
************************REQUIRED FIELD************************
RECORDS(#190)

  • 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)
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.
3 USER 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 24, 1991
  • DESCRIPTION:  
    This identifies the user in the system who identified the record as missing.
4 STATUS 0;4 SET
************************REQUIRED FIELD************************
  • '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)
5 WHERE WAS RECORD FOUND? 0;5 POINTER TO BORROWERS/FILE AREAS FILE (#195.9)
************************REQUIRED FIELD************************
BORROWERS/FILE AREAS(#195.9)

  • 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^RTDPA31"
  • 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)
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.
7 REASON RECORD WAS MISSING 0;7 POINTER TO REASONS FILE (#195.6) REASONS(#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)
8 USER WHO ENTERED AS FOUND 0;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 24, 1991
  • DESCRIPTION:  
    This identifies the user in the system who defined the record as no longer missing.
9 APPROVING SUPERVISOR 0;9 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#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.
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.
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
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
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields