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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All
Print Page as PDF
Global: ^RTV(190.3

Package: Record Tracking

Global: ^RTV(190.3


Information

FileMan FileNo FileMan Filename Package
190.3 RECORD MOVEMENT HISTORY Record Tracking

Description

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Record Tracking 5 RTCC1    RTCM    RTFIX    RTPURGE    RTUTL1    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Record Tracking 1 RECORDS(#190)[102]    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Record Tracking 3 RECORD MOVEMENT TYPES(#195.3)[8]    RECORDS(#190)[.01]    BORROWERS/FILE AREAS(#195.9)[5, 14]    
Kernel 1 NEW PERSON(#200)[3, 7, 10]

Fields, Total: 13

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

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

  • LAST EDITED:  JUN 24, 1991
  • DESCRIPTION:  
    This identifies the user in the system that requested the record.
    UNEDITABLE
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
5 BORROWER 0;5 POINTER TO BORROWERS/FILE AREAS FILE (#195.9)
************************REQUIRED FIELD************************
BORROWERS/FILE AREAS(#195.9)

  • 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^RTDPA31"
  • EXPLANATION:  Allows borrowers/locations associated with the application.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
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)
7 USER THAT CHARGED RECORD 0;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 24, 1991
  • DESCRIPTION:  
    This identifies the user in the system who charged out the record.
    UNEDITABLE
8 TYPE OF MOVEMENT 0;8 POINTER TO RECORD MOVEMENT TYPES FILE (#195.3)
************************REQUIRED FIELD************************
RECORD MOVEMENT TYPES(#195.3)

  • 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 DIC 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
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.
10 USER RESPON FOR NEXT MOVEMENT 0;10 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 24, 1991
  • DESCRIPTION:  
    This identifies the user in the system who was connected with the next movement of the record.
14 ASSOCIATED BORROWER 0;14 POINTER TO BORROWERS/FILE AREAS FILE (#195.9) BORROWERS/FILE AREAS(#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^RTDPA31"
  • EXPLANATION:  Allows borrowers/locations associated with the application.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
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.
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,200,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.
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All