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

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 6

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

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | All