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 |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  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

Directly Accessed By Routines, Total: 48

Package Total Routines
Record Tracking 46 RT EDIT REQUEST    RT PENDING REQUESTS    RT TIME STUDY    RTCS    RTCU    RTCU2    RTCU3    RTCU4
RTCX    RTDEL    RTDPA2    RTDPA31    RTL1    RTMAS    RTNQ21    RTP
RTP1    RTP2    RTP3    RTP31    RTP32    RTP4    RTP40    RTP5
RTP51    RTPCAN    RTPURGE    RTQ    RTQ1    RTQ2    RTQ4    RTQ41
RTREP1    RTRPT1    RTSM61    RTSM7    RTSM8    RTT12    RTT2    RTUTL
RTUTL1    RTUTL4    RTUTL6    RTXQ1    RTXQ2    ^RTV(190.1    

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
  • External References

    Name Field # of Occurrence
    ^%DT 2+1, 4+1, 7+1, 13+1
    ^%DTC 200+1
    ^DIC 5+1, 9+1, 14+1
    CHAR^RTDPA .01TPL+1
    RTQ^RTDPA31 5+1, 14+1
    TEST^RTQ1 4+1, 5+1
    DISP1^RTUTL1 IDWRITE+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(190.1 200+1
    ^RTV(190.1 - [#190.1] .01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K), 4(XREF 1S), 4(XREF 1K), 4(XREF 2S), 4(XREF 2K), 5(XREF 1S), 5(XREF 1K)
    10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K), 11(XREF 1S), 11(XREF 1K), 200OF9.2+1

    Naked Globals

    Name Field # of Occurrence
    ^(0 200OF9.2+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %DT 2+1*, 4+1*!, 7+1*, 13+1*
    %DT(0 4+1*
    >> C .01TPL+1
    >> D0 200OF9.2+1
    >> DA .01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K), 4(XREF 1S), 4(XREF 1K), 4(XREF 2S), 4(XREF 2K), 5(XREF 1S), 5(XREF 1K)
    10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K), 11(XREF 1S), 11(XREF 1K)
    DIC 5+1!*, 9+1!*, 14+1!*
    DIC("S" 5+1*, 5SCR+1*, 9+1*, 9SCR+1*, 14+1*, 14SCR+1*
    >> DIE 5+1, 9+1, 14+1
    DT 4+1
    >> RTNOW 4+1
    RTX 4+1*, 5+1*!
    U 200OF9.2+1
    >> W .01TPL+1*
    X .01TPL+1*, .01(XREF 1S), .01(XREF 1K), 2+1*!, 2(XREF 1S), 2(XREF 1K), 4+1*!, 4(XREF 1S), 4(XREF 1K), 4(XREF 2S)
    4(XREF 2K), 5+1*!, 5(XREF 1S), 5(XREF 1K), 7+1*!, 9+1*!, 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K)
    11(XREF 1S), 11(XREF 1K), 13+1*!, 14+1*!, 75+1!, 200+1*, 200OF9.2+1*
    >> X1 200+1*
    >> X2 200+1*
    >> Y .01TPL+1, 2+1, 4+1, 5+1, 7+1, 9+1, 13+1, 14+1, 200+1*
    >> Y( 200+1, 200OF9.2+1*
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All