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(194.2

Package: Record Tracking

Global: ^RTV(194.2


Information

FileMan FileNo FileMan Filename Package
194.2 PULL LIST Record Tracking

Description

Accessed By FileMan Db Calls, Total: 12

Package Total Routines
Record Tracking 12 RTCP    RTCP1    RTCP2    RTP    RTP1    RTP40    RTP6    RTPCAN
RTPURGE    RTQ2    RTREP    RTYDPST    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Record Tracking 1 REQUESTED RECORDS(#190.1)[10]    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
Record Tracking 4 RECORD TRACKING APPLICATION(#195.1)[15]    RECORD TYPES(#195.2)[4]    REASONS(#195.6)[9]    BORROWERS/FILE AREAS(#195.9)[5, 16]    
Kernel 2 INSTITUTION(#4)[12]    NEW PERSON(#200)[3, 8]    

Fields, Total: 18

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 30, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999
  • DESCRIPTION:  
    This allows pull lists to be selected by internal file number
.01 PULL LIST 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<3) X I $D(X) S X=$$UP^XLFSTR(X)
  • LAST EDITED:  NOV 22, 1995
  • HELP-PROMPT:  ANSWER MUST BE 3-45 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This allows a group of requests for records to be logically grouped in a list for group action, charged out by the system.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  194.2^B
    1)= S ^RTV(194.2,"B",$E(X,1,45),DA)=""
    2)= K ^RTV(194.2,"B",$E(X,1,45),DA)
2 DATE RECORDS NEEDED 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 17, 1986
  • DESCRIPTION:  
    This identifies the date for a group of requests for records.
  • CROSS-REFERENCE:  194.2^C
    1)= S ^RTV(194.2,"C",$E(X,1,30),DA)=""
    2)= K ^RTV(194.2,"C",$E(X,1,30),DA)
3 USER ENTERING REQUEST 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 24, 1991
  • DESCRIPTION:  
    This defines the user who made the requests on the pull list
4 RECORD TYPE RESTRICTION 0;4 POINTER TO RECORD TYPES FILE (#195.2) RECORD TYPES(#195.2)

  • INPUT TRANSFORM:  S DIC("S")="I $D(D0),$P(^(0),U,3)=$P(^RTV(194.2,D0,0),U,15)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 06, 1987
  • DESCRIPTION:  
    This defines particular types of records which may be requested on a pull list.
  • SCREEN:  S DIC("S")="I $D(D0),$P(^(0),U,3)=$P(^RTV(194.2,D0,0),U,15)"
  • EXPLANATION:  Allows only record types associated with the application.
5 BORROWER 0;5 POINTER TO BORROWERS/FILE AREAS FILE (#195.9)
************************REQUIRED FIELD************************
BORROWERS/FILE AREAS(#195.9)

  • INPUT TRANSFORM:  D PULL^RTDPA31 S DIC("S")="I $D(D0),$P(^RTV(194.2,D0,0),U,15)=$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 defines the borrower in the system for the list of records.
  • SCREEN:  S DIC("S")="I $D(D0),$P(^RTV(194.2,D0,0),U,15)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"
  • EXPLANATION:  Allows borrowers/locations associated with this application.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6 PULL LIST STATUS 0;6 SET
  • 'c' FOR CHARGED;
  • 'x' FOR CANCELLED;
  • 'r' FOR REQUESTED;

  • LAST EDITED:  NOV 10, 1986
  • DESCRIPTION:  
    This delineates the state of the pull list in the system.
7 DATE/TIME CURRENT STATUS 0;7 DATE

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

  • LAST EDITED:  JUN 24, 1991
  • DESCRIPTION:  
    This defines the user in the system who changed the status of the pull list.
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:  MAY 27, 1987
  • DESCRIPTION:  
    This defines different reasons for cancelling the pull list.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=""c""!($P(^(0),U,2)=""g"")"
  • EXPLANATION:  Allows only cancel or general reasons.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
10 TYPE OF LIST 0;10 SET
  • '1' FOR SCHEDULING;
  • '2' FOR ADHOC;
  • '3' FOR RECORD RETIREMENT;

  • LAST EDITED:  MAR 10, 1991
  • DESCRIPTION:  
    This allows the system to differentiate between pull list generated from Scheduling clinics and other pull lists.
11 VOLUMES REQUESTED 0;11 SET
  • 'A' FOR ALL VOLUMES;
  • 'L' FOR LATEST VOLUME;

  • LAST EDITED:  FEB 15, 1987
  • DESCRIPTION:  
    This allows the system to handle multi-volume records by defining the needs of the borrower.
12 INSTITUTION OF BORROWER 0;12 POINTER TO INSTITUTION FILE (#4)
************************REQUIRED FIELD************************
INSTITUTION(#4)

  • LAST EDITED:  NOV 10, 1986
  • DESCRIPTION:  
    This further describes the borrower of the record for different divisions within the system.
13 DATE/TIME PULL LIST 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 defines the date, time the pull list was printed to identify the validity of the list at the present time.
    WRITE AUTHORITY: ^
14 DATE/TIME LAST UPDATED 0;14 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 07, 1986
  • DESCRIPTION:  
    This defines the date, time of the last update to the list.
    WRITE AUTHORITY: ^
15 APPLICATION 0;15 POINTER TO RECORD TRACKING APPLICATION FILE (#195.1)
************************REQUIRED FIELD************************
RECORD TRACKING APPLICATION(#195.1)

  • LAST EDITED:  SEP 16, 1986
  • DESCRIPTION:  
    This defines the application identified with the list to allow the system to share the same file with different applications.
  • CROSS-REFERENCE:  194.2^AC
    1)= S ^RTV(194.2,"AC",$E(X,1,30),DA)=""
    2)= K ^RTV(194.2,"AC",$E(X,1,30),DA)
16 HOLDING AREA 0;16 POINTER TO BORROWERS/FILE AREAS FILE (#195.9) BORROWERS/FILE AREAS(#195.9)

  • INPUT TRANSFORM:  S DIC("S")="I $D(D0),$P(^RTV(194.2,D0,0),U,15)=$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:  MAY 15, 1987
  • DESCRIPTION:  
    This allows groups of records to be moved to a temporary area before further distribution.
  • SCREEN:  S DIC("S")="I $D(D0),$P(^RTV(194.2,D0,0),U,15)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"
  • EXPLANATION:  Allows borrowers/locations associated with this application.
100 COMMENTS 1;0 WORD-PROCESSING #194.21

  • DESCRIPTION:  
    This allows free text description to be added to the pull list to aid in justification and identification of the list.
  • LAST EDITED:  SEP 04, 1986

ICR, Total: 1

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