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)[5, 14]
Kernel	2	INSTITUTION(#4)[12] NEW PERSON(#200)[3, 8]

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=X1440+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