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 |  ICR  | All
Print Page as PDF
Global: ^RTV(190.1

Package: Record Tracking

Global: ^RTV(190.1


Information

FileMan FileNo FileMan Filename Package
190.1 REQUESTED RECORDS Record Tracking

Description

Accessed By FileMan Db Calls, Total: 17

Package Total Routines
Record Tracking 17 RTCS    RTCU    RTCU2    RTCU3    RTCU4    RTDEL    RTDPA2    RTP
RTP1    RTPCAN    RTPURGE    RTQ    RTQ4    RTQ41    RTRPT    RTRPT4
RTSM7    

Pointed To By FileMan Files, Total: 3

Package Total FileMan Files
Record Tracking 2 RECORDS(#190)[101]    REQUESTED RECORDS(#190.1)[11]    
Scheduling 1 HOSPITAL LOCATION(#44)[#44.003(200)]    

Pointer To FileMan Files, Total: 7

Package Total FileMan Files
Record Tracking 5 REASONS(#195.6)[9]    RECORDS(#190)[.01]    REQUESTED RECORDS(#190.1)[11]    PULL LIST(#194.2)[10]    BORROWERS/FILE AREAS(#195.9)[514]    
Kernel 2 INSTITUTION(#4)[12]    NEW PERSON(#200)[38]    

Fields, Total: 16

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

  • LAST EDITED:  APR 29, 1987
  • DESCRIPTION:  
    This allows the identification of the request for a record with the entity defined in the record file.
  • PRE-LOOKUP:  S X=$S(X?4N:X,X?.N:"`"_X,1:X) I X?1"REQ"1N.ANP S W=$E(X,1,$L(X)-1) D CHAR^RTDPA I Y,C=$E(X,$L(X)) S X="`"_$E(X,4,$L(X)-1)
    UNEDITABLE
  • CROSS-REFERENCE:  190.1^B
    1)= S ^RTV(190.1,"B",$E(X,1,30),DA)=""
    2)= K ^RTV(190.1,"B",$E(X,1,30),DA)
2 DATE/TIME REQUESTED 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 22, 1987
  • DESCRIPTION:  
    This identifies the date, time when the request was made
  • CROSS-REFERENCE:  190.1^AD
    1)= S ^RTV(190.1,"AD",$E(X,1,30),DA)=""
    2)= K ^RTV(190.1,"AD",$E(X,1,30),DA)
3 USER REQUESTING RECORD 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 24, 1991
  • DESCRIPTION:  
    This shows the person who made the request.
4 DATE/TIME RECORD NEEDED 0;4 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT(0)=$S($D(RTNOW):RTNOW,1:DT),%DT="ETX" D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S RTX="RTQDT" D TEST^RTQ1
  • LAST EDITED:  MAY 08, 1991
  • HELP-PROMPT:  Date/time must be in the future.
  • DESCRIPTION:  
    This identifies the date, time when the record is needed.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  190.1^C
    1)= S ^RTV(190.1,"C",$E(X,1,30),DA)=""
    2)= K ^RTV(190.1,"C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  190.1^AC^MUMPS
    1)= S ^RTV(190.1,"AC",+^RTV(190.1,DA,0),$P(X,"."),DA)=""
    2)= K ^RTV(190.1,"AC",+^RTV(190.1,DA,0),$P(X,"."),DA)
5 REQUESTOR 0;5 POINTER TO BORROWERS/FILE AREAS FILE (#195.9)
************************REQUIRED FIELD************************
BORROWERS/FILE AREAS(#195.9)

  • INPUT TRANSFORM:  D RTQ^RTDPA31 S DIC("S")="I $D(D0),$D(^RT(+^RTV(190.1,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 I $D(X) S RTX="RTB" D TEST^RTQ1 K RTX
  • LAST EDITED:  FEB 18, 1987
  • DESCRIPTION:  
    This identifies the borrower who needs the record
  • SCREEN:  S DIC("S")="I $D(D0),$D(^RT(+^RTV(190.1,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.1^ABOR
    1)= S ^RTV(190.1,"ABOR",$E(X,1,30),DA)=""
    2)= K ^RTV(190.1,"ABOR",$E(X,1,30),DA)
6 REQUEST STATUS 0;6 SET
  • 'c' FOR CHARGED;
  • 'x' FOR CANCELLED;
  • 'r' FOR REQUESTED;
  • 'n' FOR NOT FILLABLE;

  • LAST EDITED:  APR 24, 1987
  • DESCRIPTION:  
    This allows the system to differentiate the state of the request process.
7 DATE/TIME CURRENT STATUS 0;7 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 17, 1986
  • DESCRIPTION:  
    This defines the date, time when the current status was established.
8 USER RESPONSIBLE FOR STATUS 0;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 24, 1991
  • DESCRIPTION:  
    This identifies the user in the system associated with the current status.
9 CANCEL REASON 0;9 POINTER TO REASONS FILE (#195.6) REASONS(#195.6)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=""c""!($P(^(0),U,2)=""g"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 17, 1986
  • DESCRIPTION:  
    This differentiates the status of a canceled request.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=""c""!($P(^(0),U,2)=""g"")"
  • EXPLANATION:  Allow only general or cancel-request reasons.
10 PULL LIST 0;10 POINTER TO PULL LIST FILE (#194.2) PULL LIST(#194.2)

  • LAST EDITED:  JUL 25, 1986
  • DESCRIPTION:  
    This identifies a list of requests which are logically grouped together to allow the system to perform a group action on a series of requests.
  • CROSS-REFERENCE:  190.1^AP
    1)= S ^RTV(190.1,"AP",$E(X,1,30),DA)=""
    2)= K ^RTV(190.1,"AP",$E(X,1,30),DA)
  • CROSS-REFERENCE:  190.1^AP1^MUMPS
    1)= S ^RTV(190.1,"AP1",X,+^RTV(190.1,DA,0),DA)=""
    2)= K ^RTV(190.1,"AP1",X,+^RTV(190.1,DA,0),DA)
11 PARENT REQUEST 0;11 POINTER TO REQUESTED RECORDS FILE (#190.1) REQUESTED RECORDS(#190.1)

  • LAST EDITED:  AUG 01, 1986
  • DESCRIPTION:  
    This allows the system to create a series of linked requests so that the request for 1 record can spawn requests for logically associated records.
  • CROSS-REFERENCE:  190.1^APAR
    1)= S ^RTV(190.1,"APAR",$E(X,1,30),DA)=""
    2)= K ^RTV(190.1,"APAR",$E(X,1,30),DA)
12 INSTITUTION OF REQUESTOR 0;12 POINTER TO INSTITUTION FILE (#4)
************************REQUIRED FIELD************************
INSTITUTION(#4)

  • LAST EDITED:  NOV 10, 1986
  • DESCRIPTION:  
    This further identifies the requestor to support divisions within the system.
13 DATE REQUEST LAST PRINTED 0;13 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 05, 1986
  • DESCRIPTION:  
    This identifies the date, time the barcoded request label was printed in the system.
    WRITE AUTHORITY: ^
14 ASSOCIATED REQUESTOR 0;14 POINTER TO BORROWERS/FILE AREAS FILE (#195.9) BORROWERS/FILE AREAS(#195.9)

  • INPUT TRANSFORM:  D RTQ^RTDPA31 S DIC("S")="I $D(D0),$D(^RT(+^RTV(190.1,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 allows the system to associate one borrower with another borrower to further more fully describe the need for a record.
  • SCREEN:  S DIC("S")="I $D(D0),$D(^RT(+^RTV(190.1,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
75 COMMENT COMMENT;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  NOV 14, 1986
  • HELP-PROMPT:  ANSWER MUST BE 3-50 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This allows the addition of free text to more fully describe the request for a record.
200 ELAPSED TIME TO CURRENT STATUS COMPUTED

  • MUMPS CODE:  X ^DD(190.1,200,9.2) S X1=Y(190.1,200,2) S Y=$E(X1_"000",9,10)-$E(X_"000",9,10)*60+$E(X1_"00000",11,12)-$E(X_"00000",11,12),X2=X,X=$P(X,".",1)'=$P(X1,".",1) D ^%DTC:X S X=X*1440+Y S X=$J(X,0,0)
    9.2 = S Y(190.1,200,1)=$S($D(^RTV(190.1,D0,0)):^(0),1:"") S X=$P(Y(190.1,200,1),U,7),Y(190.1,200,2)=X S X=$P(Y(190.1,200,1),U,2)
  • ALGORITHM:  MINUTES(DATE/TIME CURRENT STATUS,DATE/TIME REQUESTED) (ALWAYS 0 DECIMAL DIGITS)
  • DESCRIPTION:  
    This allows the system to quantify the status of a request and sort requests for priority.

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #543
  • Scheduling
  • Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All