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 | All

Print Page as PDF

Global: ^PRCN(413.1

Package: Equipment Turn-In Request

Global: ^PRCN(413.1

Information

FileMan FileNo	FileMan Filename	Package
413.1	TURN-IN REQUEST	Equipment Turn-In Request

Description

This file contains all turn-in requests, both those requests that are created because non-expendable equipment is being replaced or non-expendable equipment is no longer to be used.

Accessed By FileMan Db Calls, Total: 12

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 8

Fields, Total: 18

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 07, 1992` HELP-PROMPT: `Type a Number between 1 and 999999, 0 Decimal Digits` DESCRIPTION: `This is the sequential internal number of each turn-in request.`
.01	TRANSACTION CODE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X` HELP-PROMPT: `NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION` DESCRIPTION: `This is the temporary transaction number that is calculated based on the facility number, the CMR Official, the fiscal year and a sequential number.` CROSS-REFERENCE: `413.1^B` `1)= S ^PRCN(413.1,"B",$E(X,1,30),DA)=""` `2)= K ^PRCN(413.1,"B",$E(X,1,30),DA)` `This cross-reference is by the generated transaction number.`
1	REQUESTOR	0;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 10, 1992` DESCRIPTION: `This is the person who initiates the request. It defaults from the DUZ number.`
1.5	REQUESTOR PHONE #	3;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<4) X` LAST EDITED: `NOV 04, 1992` HELP-PROMPT: `Enter the phone number of the requestor.` DESCRIPTION: `This is the phone number of the requestor and should default from new person file.`
2	REQUESTING SERVICE	0;3	POINTER TO SERVICE/SECTION FILE (#49)	SERVICE/SECTION(#49) LAST EDITED: `SEP 10, 1992` DESCRIPTION: `This is the requestor's service that is calculated from their entry in the New Person file.`
3	REQUEST DATE/TIME	0;4	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 10, 1992` DESCRIPTION: `This is the actual date and time that the request was initialized. This automatically defaults from the current date and time when the request is being entered.`
4	STATION NUMBER	0;5	POINTER TO ADMIN. ACTIVITY SITE PARAMETER FILE (#411)	ADMIN. ACTIVITY SITE PARAMETER(#411) LAST EDITED: `SEP 10, 1992` DESCRIPTION: `This is the station number that will automatically default if there is only one station numer otherwise, the requestor will be prompted for it.`
5	CMR RESPONSIBLE OFFICIAL	0;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `NOV 06, 1992` DESCRIPTION: `This is the person who is associated with a particular CMR. This is defaulted when a CMR is selected and all messages will be directed to this person.` NOTES: `TRIGGERED by the CMR field of the TURN-IN REQUEST File` CROSS-REFERENCE: `413.1^AD` `1)= S ^PRCN(413.1,"AD",$E(X,1,30),DA)=""` `2)= K ^PRCN(413.1,"AD",$E(X,1,30),DA)` `This cross-reference is by the CMR responsible offical.`
6	REQUEST STATUS	0;7	POINTER TO NX STATUS FILE (#413.5)	NX STATUS(#413.5) LAST EDITED: `OCT 26, 1992` DESCRIPTION: `This is the status of the request. It is set at the completion of each step of the process.` CROSS-REFERENCE: `413.1^AC` `1)= S ^PRCN(413.1,"AC",$E(X,1,30),DA)=""` `2)= K ^PRCN(413.1,"AC",$E(X,1,30),DA)` `This cross-reference is by request status.`
7	STATUS DATE	0;8	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 10, 1992` DESCRIPTION: `This date is automatically set whenever the status on a request changes. It is the date that status was applied to the request.`
8	EQUIP REQUEST	0;9	POINTER TO EQUIPMENT REQUEST FILE (#413)	EQUIPMENT REQUEST(#413) LAST EDITED: `SEP 10, 1992` DESCRIPTION: `This is a corresponding equipment request transaction if the equipment request is replacement and a turn-in request is generated.`
9	CMR OFFICIAL APPROVAL	0;10	SET	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO; LAST EDITED: `OCT 19, 1992` DESCRIPTION: `If the primary CMR Responsible Official does not approve a request, the request will be returned to the requestor.`
11	CMR OFFICIAL EXPLANATION	2;0	WORD-PROCESSING #413.111	DESCRIPTION: `This CMR Official must explain why a request was not approved.` LAST EDITED: `OCT 19, 1992` DESCRIPTION: `This CMR Official must explain why a request was not approved.`
12	UTILITY DISCONNECT?	0;12	SET	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO; LAST EDITED: `NOV 05, 1992` DESCRIPTION: `This field is to designate the condition of the equipment that was turned in. Equipment that is in fair to good condition could be sent to another medical center needing it.`
13	ENGINEER. WORK ORDER	0;13	POINTER TO WORK ORDER # FILE (#6920)	WORK ORDER #(#6920) LAST EDITED: `JUN 20, 1995` DESCRIPTION: `If a turn-in request must be disconnect or have any other engineering work performed, a work order must be created. This is a pointer to that work order.`
15	CMR	0;16	POINTER TO CMR FILE (#6914.1)	**********************REQUIRED FIELD********************** CMR(#6914.1) LAST EDITED: `AUG 05, 1995` DESCRIPTION: `This is the CMR number who will ultimately be responsible for the equipment when ordered and received.` CROSS-REFERENCE: `^^TRIGGER^413.1^5` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCN(413.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$P(^ENG(6914.1,X,0),U,2) X ^DD(413.1,15,1,1,1.4)` `1.4)= S DIH=$S($D(^PRCN(413.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=413.1,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `CREATE VALUE)= S X=$P(^ENG(6914.1,X,0),U,2)` `DELETE VALUE)= NO EFFECT` `FIELD)= #5` `This triggers the CMR Official when a particular CMR is entered.`
16	WAREHOUSE OFFICIAL	3;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `NOV 12, 1993` HELP-PROMPT: `Enter the person who is to pick up this equipment` DESCRIPTION: `This field is for the person who has been assigned to pick up the equipment that is being turned in.`
20	TURN-IN LINE ITEM	1;0	POINTER Multiple #413.11	413.11 LAST EDITED: `MAR 22, 1994` DESCRIPTION: `This is for each item that the request for turn-in is being produced.` IDENTIFIED BY: `DESCRIPTION(#3)`

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