Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | 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

Directly Accessed By Routines, Total: 14

Package Total Routines
Record Tracking 14 RT DAILY LOG    RTCC1    RTCL    RTCM    RTDPA31    RTFIX    RTNQ1    RTNQ3
RTPURGE    RTUTL1    RTXM1    RTXM2    SYNONYMS    ^RTV(190.3    

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.

External References

Name Field # of Occurrence
^%DT 2+1, 4+1, 6+1, 9+1
^%DTC 200+1
^DIC 5+1, 8+1, 14+1
HIS^RTDPA31 5+1, 14+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RTV(190.3 - [#190.3] .01(XREF 1S), .01(XREF 1K), 6(XREF 1S), 6(XREF 1K), 200+1

Naked Globals

Name Field # of Occurrence
^(0 200+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 2+1*, 4+1*, 6+1*, 9+1*
>> D0 200+1
>> DA .01(XREF 1S), .01(XREF 1K), 6(XREF 1S), 6(XREF 1K)
DIC 5+1!*, 8+1!*, 14+1!*
DIC("S" 5+1*, 5SCR+1*, 8+1*, 8SCR+1*, 14+1*, 14SCR+1*
>> DIE 5+1, 8+1, 14+1
U 200+1
X .01(XREF 1S), .01(XREF 1K), 2+1*!, 4+1*!, 5+1*!, 6+1*!, 6(XREF 1S), 6(XREF 1K), 8+1*!, 9+1*!
, 14+1*!, 200+1*
>> X1 200+1*
>> X2 200+1*
>> Y 2+1, 4+1, 5+1, 6+1, 8+1, 9+1, 14+1
>> Y( 200+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All