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  | All
Print Page as PDF
Global: ^RT

Package: Record Tracking

Global: ^RT


Information

FileMan FileNo FileMan Filename Package
190 RECORDS Record Tracking

Description

Directly Accessed By Routines, Total: 73

Package Total Routines
Record Tracking 72 RT ALL INPATIENTS    RT CHARGE    RT CHARGED BY HOME BY BOR    RT CHARGED BY HOME BY NAME    RT CHARGED BY HOME BY TD    RT HOME LIST BY BOR    RT HOME LIST BY NAME    RT HOME LIST BY TD
RT MISSING    RT OVER BY HOME BY BOR    RT OVER BY HOME BY NAME    RT OVER BY HOME BY TD    RT WARD LIST    RTCC    RTCC2    RTCC3
RTCC4    RTCH    RTCL    RTCM1    RTCR    RTCR1    RTCR2    RTCX
RTDEL    RTDPA    RTDPA1    RTDPA2    RTDPA3    RTDPA31    RTFIX    RTL1
RTMAS    RTNQ1    RTNQ2    RTNQ3    RTNQ4    RTP2    RTP3    RTP31
RTP32    RTP4    RTP41    RTP5    RTP51    RTPURGE    RTQ    RTQ1
RTQ2    RTQ4    RTQ41    RTRPT1    RTRPT2    RTRPT5    RTSM7    RTSM8
RTT    RTT1    RTT11    RTT12    RTT2    RTT3    RTT4    RTTR2
RTUTL    RTUTL1    RTUTL2    RTUTL3    RTUTL4    RTUTL6    RTXR1    RTXR2
Scheduling 1 SDAMEX    

Accessed By FileMan Db Calls, Total: 17

Package Total Routines
Record Tracking 17 RTB2    RTCC    RTCC2    RTCC3    RTCC4    RTCM1    RTCR    RTCR1
RTCR2    RTDEL    RTDPA    RTDPA1    RTPURGE    RTRPT    RTRPT3    RTT
RTT4    

Pointed To By FileMan Files, Total: 4

Package Total FileMan Files
Record Tracking 4 RECORDS(#190)[5]    REQUESTED RECORDS(#190.1)[.01]    MISSING RECORDS(#190.2)[.01]    RECORD MOVEMENT HISTORY(#190.3)[.01]    

Pointer To FileMan Files, Total: 9

Package Total FileMan Files
Record Tracking 7 RECORD TRACKING APPLICATION(#195.1)[4]    RECORD TYPES(#195.2)[3]    RECORD MOVEMENT TYPES(#195.3)[108]    RECORDS(#190)[5]    REQUESTED RECORDS(#190.1)[101]    RECORD MOVEMENT HISTORY(#190.3)[102]    BORROWERS/FILE AREAS(#195.9)[6105114]
Kernel 1 NEW PERSON(#200)[107]    
Registration 1 PATIENT(#2)[.019]    

Fields, Total: 27

Field # Name Loc Type Details
.001 RECORD NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N)!(X?4N) X
  • LAST EDITED:  JAN 15, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999
  • DESCRIPTION:  
    This is the internal number which is barcoded for record selection.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.01 ASSOCIATED ENTITY OR ITEM 0;1 VARIABLE POINTER
************************REQUIRED FIELD************************
PATIENT(#2)  

  • LAST EDITED:  APR 27, 1987
  • DESCRIPTION:  
    This defines the items in variable pointed to files which will be tracked as records.
  • PRE-LOOKUP:  I X?.N1"/"1N.ANP D BC^RTDPA
    UNEDITABLE
  • CROSS-REFERENCE:  190^B
    1)= S ^RT("B",$E(X,1,30),DA)=""
    2)= K ^RT("B",$E(X,1,30),DA)
2 SITE NUMBER 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<3) X
  • LAST EDITED:  APR 29, 1987
  • HELP-PROMPT:  ANSWER MUST BE 3-7 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field is stuffed with the value of ^DD("SITE",1) upon creation.
    WRITE AUTHORITY: ^
    UNEDITABLE
3 TYPE OF RECORD 0;3 POINTER TO RECORD TYPES FILE (#195.2)
************************REQUIRED FIELD************************
RECORD TYPES(#195.2)

  • LAST EDITED:  SEP 17, 1986
  • DESCRIPTION:  
    This allows records of the same source to be differentiated by type.
    UNEDITABLE
  • CROSS-REFERENCE:  ^^TRIGGER^190^4
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RT(D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(190,3,1,1,1.1) X ^DD(190,3,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DIC(195.2,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(195.2,D0,0)):^(0),1:"") S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^RT(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,3,99)) S DIH=DIH_U" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(0)=$P(DIH,U,1,3)_U_DIV_$S(%]"":U_%,1:""),DIH=190,DIG=4 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= INTERNAL(#3:#3)
    DELETE VALUE)= NO EFFECT
    FIELD)= APPLICATION
  • CROSS-REFERENCE:  190^AT^MUMPS
    1)= S ^RT("AT",X,$P(^RT(DA,0),U),DA)=""
    2)= K ^RT("AT",X,$P(^RT(DA,0),U),DA)
4 APPLICATION 0;4 POINTER TO RECORD TRACKING APPLICATION FILE (#195.1)
************************REQUIRED FIELD************************
RECORD TRACKING APPLICATION(#195.1)

  • LAST EDITED:  JAN 28, 1987
  • DESCRIPTION:  
    This allows multiple applications to access the record file as if each application had its own file.
    WRITE AUTHORITY: ^
    UNEDITABLE
  • NOTES:  TRIGGERED by the TYPE OF RECORD field of the RECORDS File
  • CROSS-REFERENCE:  190^AA^MUMPS
    1)= S ^RT("AA",X,$P(^RT(DA,0),U),DA)=""
    2)= K ^RT("AA",X,$P(^RT(DA,0),U),DA)
5 PARENT RECORD 0;5 POINTER TO RECORDS FILE (#190) RECORDS(#190)

  • INPUT TRANSFORM:  S DIC("S")="I $D(D0),$P(^(0),U,7)=1,$P(^RT(+Y,0),U,1,3)=$P(^RT(D0,0),U,1,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 28, 1987
  • DESCRIPTION:  
    This identifies the original or initial record of a set of records that are logically or physically described in terms of volumes.
  • SCREEN:  S DIC("S")="I $D(D0),$P(^(0),U,7)=1,$P(^RT(+Y,0),U,1,3)=$P(^RT(D0,0),U,1,3)"
  • EXPLANATION:  Allows only records with a volume number of 1 and the patient, computer site and record type the same.
    UNEDITABLE
  • CROSS-REFERENCE:  190^P
    1)= S ^RT("P",$E(X,1,30),DA)=""
    2)= K ^RT("P",$E(X,1,30),DA)
6 HOME LOCATION 0;6 POINTER TO BORROWERS/FILE AREAS FILE (#195.9)
************************REQUIRED FIELD************************
BORROWERS/FILE AREAS(#195.9)

  • INPUT TRANSFORM:  S DIC("V")="I $P(Y(0),U,4)=""L""",DIC("S")="I $D(D0),$D(^DIC(195.2,""AF"",Y,+$P(^RT(D0,0),U,3))) D DICS^RTDPA31" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 14, 1987
  • DESCRIPTION:  
    This identifies the place where a record normally resides when it isn't charged to a borrower.
  • SCREEN:  S DIC("S")="I $D(D0),$D(^RTV(195.2,""AF"",Y,+$P(^RT(D0,0),U,3))) D DICS^RTDPA31"
  • EXPLANATION:  Allows only file rooms that handle this type of record.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  190^AH
    1)= S ^RT("AH",$E(X,1,30),DA)=""
    2)= K ^RT("AH",$E(X,1,30),DA)
  • CROSS-REFERENCE:  190^ACC^MUMPS
    1)= Q:'$D(^RT(DA,"CL")) Q:X=$P(^("CL"),"^",5)!('$P(^("CL"),"^",6)) S ^RT("AC",+$P(^("CL"),"^",6),DA)=""
    2)= Q
7 VOLUME NUMBER 0;7 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 01, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 99
  • DESCRIPTION:  
    This further identifies a record which is a type which is normally allowed to have multiple volumes.
    UNEDITABLE
8 BARCODE LAST PRINTED 0;8 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 22, 1991
  • DESCRIPTION:  
    This gives an indication of the age of the label which was attached to the record. Labels wear out and have to be reprinted.
    WRITE AUTHORITY: ^
    UNEDITABLE
9 PATIENT FILE POINTER 0;9 POINTER TO PATIENT FILE (#2) PATIENT(#2)

  • LAST EDITED:  JUL 15, 1986
  • DESCRIPTION:  
    This allows faster access to the patient file entities for the MAS RADIOLOGY DHCP applications.
    WRITE AUTHORITY: ^
    UNEDITABLE
  • CROSS-REFERENCE:  190^C
    1)= S ^RT("C",$E(X,1,30),DA)=""
    2)= K ^RT("C",$E(X,1,30),DA)
11 REASON NOT TO RETIRE RECORD 0;11 SET
  • 't' FOR TEACHING;
  • 'r' FOR TUMOR REGISTRY;
  • 'o' FOR OK TO RETIRE;

  • LAST EDITED:  JAN 15, 1987
  • DESCRIPTION:  
    This marks the record to identify action that may not be appropriate.
  • CROSS-REFERENCE:  190^AR
    1)= S ^RT("AR",$E(X,1,30),DA)=""
    2)= K ^RT("AR",$E(X,1,30),DA)
12 CONTENT DESCRIPTOR 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<2) X
  • LAST EDITED:  NOV 12, 1986
  • HELP-PROMPT:  ANSWER MUST BE 2-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This allows free text descriptions for further delineation of record contents.
13 LOOSE FILING INDICATOR 0;13 SET
  • 'y' FOR YES;
  • 'n' FOR NO;

  • LAST EDITED:  MAY 04, 1987
  • DESCRIPTION:  
    This is a flag that indicates the record may have items which should be added to it.
  • CROSS-REFERENCE:  190^AL^MUMPS
    1)= S:X="y" ^RT("AL",X,DA)=""
    2)= K ^RT("AL",X,DA)
50 INACTIVATION DATE I;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 30, 1986
  • DESCRIPTION:  
    This defines a time when the record should no longer be used or is no longer useful to a borrower.
75 TEMPORARY COMMENT COMMENT;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>75!($L(X)<2) X
  • LAST EDITED:  MAY 14, 1987
  • HELP-PROMPT:  ANSWER MUST BE 2-75 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This allows free text to be added to the record description to aid in its distribution.
101 ASSOCIATED REQUEST CL;1 POINTER TO REQUESTED RECORDS FILE (#190.1) REQUESTED RECORDS(#190.1)

  • INPUT TRANSFORM:  S DIC("S")="I $D(D0),D0=+^(0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 21, 1986
  • DESCRIPTION:  
    This defines the reason why a record is moved in the system.
  • SCREEN:  S DIC("S")="I $D(D0),D0=+^(0)"
  • EXPLANATION:  Allows only request associated with this record.
102 ASSOCIATED MOVEMENT CL;2 POINTER TO RECORD MOVEMENT HISTORY FILE (#190.3) RECORD MOVEMENT HISTORY(#190.3)

  • INPUT TRANSFORM:  S DIC("S")="I $D(D0),D0=+^(0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 10, 1986
  • DESCRIPTION:  
    This defines the most recent action that has taken place on the record.
  • SCREEN:  S DIC("S")="I $D(D0),D0=+^(0)"
  • EXPLANATION:  Allows only movements associated with the record.
105 CURRENT BORROWER/FILE ROOM CL;5 POINTER TO BORROWERS/FILE AREAS FILE (#195.9)
************************REQUIRED FIELD************************
BORROWERS/FILE AREAS(#195.9)

  • INPUT TRANSFORM:  D REC^RTDPA31 S DIC("S")="I $D(D0),$P(^RT(D0,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 19, 1987
  • DESCRIPTION:  
    This identifies the current location of the record as known by the record tracking system.
  • SCREEN:  S DIC("S")="I $D(D0),$P(^RT(D0,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^ABOR
    1)= S ^RT("ABOR",$E(X,1,30),DA)=""
    2)= K ^RT("ABOR",$E(X,1,30),DA)
  • CROSS-REFERENCE:  190^ACCC^MUMPS
    1)= Q:'$D(^RT(DA,"CL"))!('$D(^(0))) Q:X=$P(^(0),"^",6)!('$P(^("CL"),"^",6)) S ^RT("AC",+$P(^("CL"),"^",6),DA)=""
    2)= Q
106 DATE/TIME CHARGED TO BORROWER CL;6 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 16, 1987
  • DESCRIPTION:  
    This identifies the time of the last movement of a record.
  • CROSS-REFERENCE:  190^AC^MUMPS
    1)= Q:'$D(^RT(DA,"CL"))!('$D(^(0))) Q:$P(^(0),"^",6)=$P(^("CL"),"^",5) S ^RT("AC",X,DA)=""
    2)= K ^RT("AC",X,DA)
107 USER THAT CHARGED RECORD CL;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 24, 1991
  • DESCRIPTION:  
    This identifies the user of the system responsible for the movement of the record to a borrower.
108 TYPE OF MOVEMENT CL;8 POINTER TO RECORD MOVEMENT TYPES FILE (#195.3) RECORD MOVEMENT TYPES(#195.3)

  • INPUT TRANSFORM:  S DIC("S")="I $D(D0),$P(^RT(D0,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:  FEB 14, 1987
  • DESCRIPTION:  
    This identifies the most recent action on the record by the system.
  • SCREEN:  S DIC("S")="I $D(D0),$P(^RT(D0,0),U,4)=$P(^DIC(195.3,Y,0),U,3)"
  • EXPLANATION:  Allows only movement types associated with the record's application.
114 ASSOCIATED BORROWER CL;14 POINTER TO BORROWERS/FILE AREAS FILE (#195.9) BORROWERS/FILE AREAS(#195.9)

  • INPUT TRANSFORM:  D REC^RTDPA31 S DIC("S")="I $D(D0),$P(^RT(D0,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 a borrower in the system which is associated with the area where the record has been moved.
  • SCREEN:  S DIC("S")="I $D(D0),$P(^RT(D0,0),U,4)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"
  • EXPLANATION:  Allows only different types of borrowers/locations associated with the application.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
115 LAST TIME SELECTED BY BARCODE? CL;15 SET
  • 'y' FOR YES;
  • 'n' FOR NO;

  • LAST EDITED:  FEB 01, 1987
  • DESCRIPTION:  
    This allows a guarantee that the last movement was valid since the selection by barcode means positive identification of the record.
200 # DAYS CHARGED TO BORROWER COMPUTED

  • MUMPS CODE:  S Y(190,200,1)=$S($D(^RT(D0,"CL")):^("CL"),1:""),X=DT S X=X,X1=X,X2=$P(Y(190,200,1),U,6),X="" D:X2 ^%DTC:X1
  • ALGORITHM:  TODAY-#106
  • DESCRIPTION:  
    This is the amount of time the record has been with the borrower.
201 DAYS OVERDUE COMPUTED

  • MUMPS CODE:  D OVER^RTUTL1
  • ALGORITHM:  D OVER^RTUTL1
  • LAST EDITED:  FEB 17, 1987
  • DESCRIPTION:  
    This identifies from the system defined limit that the record should be returned to the home file room.
202 NUMBER OF MOVEMENTS ON FILE COMPUTED

  • MUMPS CODE:  S RT=D0 D COUNT^RTPURGE K RT
  • ALGORITHM:  D COUNT^PURGE
  • LAST EDITED:  APR 28, 1987
  • DESCRIPTION:  
    This shows how much background information on a record's movements is available in the system.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
300 OLD BARCODE OLDBC;E1,45 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1) X
  • LAST EDITED:  APR 24, 1995
  • HELP-PROMPT:  Answer must be 1-45 characters in length.
  • DESCRIPTION:  This field is to be used by VA consolidated sites ONLY. It will be set as part of the consolidation process and must not be altered in any way.
    The purpose of this field is to allow consolidated sites to continue to use existing barcoded labels on their records rather than having to relabel all records. It will store the value of the record label's barcode. A
    cross-reference has been added to allow the look-up to select the appropriate record. This will only be used for records created prior to the consolidation.
    This field will contain the barcode information EXCEPT for the check-digit.
    For sites not involved in a consolidation, this field will contain no data and look-up will be unaffected.
    WRITE AUTHORITY: ^
  • CROSS-REFERENCE:  190^AOLDBC
    1)= S ^RT("AOLDBC",$E(X,1,30),DA)=""
    2)= K ^RT("AOLDBC",$E(X,1,30),DA)
    This cross-reference is used only for consolidated sites. If a record was created at a VAMC which has had its database consolidated, this cross-reference will contain the old barcode information. The look-up process will
    use this cross-reference to find the proper IEN of the RECORDS file.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All