STANDARD DATA DICTIONARY #413.1 -- TURN-IN REQUEST FILE 3/24/25 PAGE 1
STORED IN ^PRCN(413.1, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
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.
DD ACCESS: @
RD ACCESS: [
WR ACCESS: ]
DEL ACCESS: %
LAYGO ACCESS: $
AUDIT ACCESS: @
IDENTIFIED BY: REQUEST STATUS (#6)
POINTED TO BY: TURN-IN REQUEST field (#10) of the EQUIPMENT REQUEST File (#413)
CROSS
REFERENCED BY: REPLACEMENT ITEM NUMBER(AB), REQUEST STATUS(AC), CMR RESPONSIBLE OFFICIAL(AD), TRANSACTION CODE(B)
413.1,.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.
413.1,.01 TRANSACTION CODE 0;1 FREE TEXT (Required)
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.
413.1,1 REQUESTOR 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: SEP 10, 1992
DESCRIPTION:
This is the person who initiates the request. It defaults from the DUZ number.
413.1,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.
413.1,2 REQUESTING SERVICE 0;3 POINTER TO SERVICE/SECTION FILE (#49)
LAST EDITED: SEP 10, 1992
DESCRIPTION:
This is the requestor's service that is calculated from their entry in the New Person file.
413.1,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.
413.1,4 STATION NUMBER 0;5 POINTER TO ADMIN. ACTIVITY SITE PARAMETER FILE (#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.
413.1,5 CMR RESPONSIBLE OFFICIAL 0;6 POINTER TO NEW PERSON FILE (#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.
413.1,6 REQUEST STATUS 0;7 POINTER TO NX STATUS FILE (#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.
413.1,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.
413.1,8 EQUIP REQUEST 0;9 POINTER TO EQUIPMENT REQUEST FILE (#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.
413.1,9 CMR OFFICIAL APPROVAL 0;10 SET (Required)
'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.
413.1,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.
413.1,12 UTILITY DISCONNECT? 0;12 SET (Required)
'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.
413.1,13 ENGINEER. WORK ORDER 0;13 POINTER TO WORK ORDER # FILE (#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.
413.1,15 CMR 0;16 POINTER TO CMR FILE (#6914.1) (Required)
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 ^DIC
R:$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.
413.1,16 WAREHOUSE OFFICIAL 3;4 POINTER TO NEW PERSON FILE (#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.
413.1,20 TURN-IN LINE ITEM 1;0 POINTER Multiple #413.11 (Add New Entry without Asking)
LAST EDITED: MAR 22, 1994
DESCRIPTION:
This is for each item that the request for turn-in is being produced.
IDENTIFIED BY: DESCRIPTION(#3)
413.11,.001 TURN-IN LINE ITEM NUMBER NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: DEC 07, 1992
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
DESCRIPTION:
This is the sequential internal number for each line item.
413.11,.01 REPLACEMENT ITEM NUMBER 0;1 POINTER TO EQUIPMENT INV. FILE (#6914) (Multiply asked)
INPUT TRANSFORM: D INP^PRCNTIRQ
LAST EDITED: FEB 26, 1996
HELP-PROMPT: Please select the entry from the Equipment Inventory file that you wish to turn-in.
DESCRIPTION:
This is a pointer to the item in the inventory that is being replaced.
EXECUTABLE HELP: S DV="" D EQHLP^PRCNUTL1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 413.11^B
1)= S ^PRCN(413.1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PRCN(413.1,DA(1),1,"B",$E(X,1,30),DA)
This is the regular cross-reference by line item.
CROSS-REFERENCE: 413.1^AB
1)= S ^PRCN(413.1,"AB",$E(X,1,30),DA(1),DA)=""
2)= K ^PRCN(413.1,"AB",$E(X,1,30),DA(1),DA)
This cross-reference is used to check to see if an inventoried item already has a turn-in request
on file.
CROSS-REFERENCE: ^^TRIGGER^413.11^3
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRCN(413.1,D0,1,D1,0)):^(0),1:""
) S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(413.11,.01,1,3,1.1) X ^DD(413.11,.01,1,3,1.4)
1.1)= S X=DIV S X=$P(^ENG(6914,X,0),U,2)
1.4)= S DIH=$S($D(^PRCN(413.1,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,13)=DIV,DIH=413.11,D
IG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRCN(413.1,D0,1,D1,0)):^(0),1:""
) S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="" X ^DD(413.11,.01,1,3,2.4)
2.4)= S DIH=$S($D(^PRCN(413.1,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,13)=DIV,DIH=413.11,D
IG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= S X=$P(^ENG(6914,X,0),U,2)
DELETE VALUE)= @
FIELD)= #3
This is triggered from the Equipment Inventory file
413.11,.5 JUSTIFICATION 0;11 SET (Required)
'1' FOR Fair wear and tear;
'2' FOR Excess equipment failure/repair;
'3' FOR Upgrade;
'4' FOR State-of-art technology;
'5' FOR Replacement due to loss or damage;
'6' FOR Other;
LAST EDITED: DEC 18, 1992
DESCRIPTION:
This is the reason why the item is requested to be turned in.
413.11,.7 OTHER JUSTIFICATION 0;12 FREE TEXT
INPUT TRANSFORM:K:$L(X)>70!($L(X)<1) X
LAST EDITED: DEC 18, 1992
HELP-PROMPT: Answer must be 1-70 characters in length.
DESCRIPTION:
This field is for a free text if 'OTHER' justification is selected.
413.11,1 DISPOSAL CONDITION CODE 0;2 SET
'1' FOR Unused-Good;
'2' FOR Unused-Fair;
'3' FOR Unused-Poor;
'4' FOR Used-Good;
'5' FOR Used-Fair;
'6' FOR Used-Poor;
'7' FOR Repairs Required-15% of a/c or less;
'8' FOR Repairs Required-16%-40% of a/c;
'9' FOR Repairs Required-41%-65% of a/c;
'X' FOR Salvage;
'S' FOR Scrap;
LAST EDITED: SEP 10, 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.
413.11,2 EQUIP REQUEST LINE ITEM 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 22, 1994
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
DESCRIPTION:
This is the corresponding Equipment Request Line Item Number from the Equipment Request File (413).
CROSS-REFERENCE:413.11^AC
1)= S ^PRCN(413.1,DA(1),1,"AC",$E(X,1,30),DA)=""
2)= K ^PRCN(413.1,DA(1),1,"AC",$E(X,1,30),DA)
This cross-reference is to be used to check against the quantity of equipment request line item for
editing/entering associated replacement items.
413.11,3 DESCRIPTION 0;13 FREE TEXT
INPUT TRANSFORM:K:$L(X)>45!($L(X)<1) X
LAST EDITED: NOV 12, 1993
HELP-PROMPT: Enter the item description
DESCRIPTION:
This field is for a free text description of the line item to be turned in.
NOTES: TRIGGERED by the REPLACEMENT ITEM NUMBER field of the TURN-IN LINE ITEM sub-field of the TURN-IN
REQUEST File
413.11,4 UTILITY DISCONNECT? 0;4 SET (Required)
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: NOV 05, 1992
HELP-PROMPT: Does this item need special Engineering disconnect?
DESCRIPTION: This field is answered 'Y'es if the line item needs to be disconnected by the Engineering
department.
413.11,5 VOUCHER # 0;5 FREE TEXT
INPUT TRANSFORM:K:$L(X)>15!($L(X)<1) X
LAST EDITED: NOV 05, 1992
HELP-PROMPT: Answer must be 1-15 characters in length.
DESCRIPTION:
This field is for a voucher number if the turned in item can be sold.
413.11,11 WORK ORDER # 0;14 POINTER TO WORK ORDER # FILE (#6920)
LAST EDITED: MAR 29, 1994
DESCRIPTION: This is the work order number that is processed by Engineering if the turn-in item must be
disconnected or removed by the Engineering department.
413.11,12 WORK ORDER NEEDED 0;8 SET (Required)
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: MAR 07, 1996
HELP-PROMPT: Enter 'Y'es if a work order will be needed to process turn-in item.
DESCRIPTION: This field will be entered by the CMR Responsible Official on whether a work order will be needed
to process the item(s) to be turned-in.
FILES POINTED TO FIELDS
ADMIN. ACTIVITY SITE PARAMETER
(#411) STATION NUMBER (#4)
CMR (#6914.1) CMR (#15)
EQUIPMENT INV. (#6914) TURN-IN LINE ITEM:REPLACEMENT ITEM NUMBER (#.01)
EQUIPMENT REQUEST (#413) EQUIP REQUEST (#8)
NEW PERSON (#200) REQUESTOR (#1)
CMR RESPONSIBLE OFFICIAL (#5)
WAREHOUSE OFFICIAL (#16)
NX STATUS (#413.5) REQUEST STATUS (#6)
SERVICE/SECTION (#49) REQUESTING SERVICE (#2)
WORK ORDER # (#6920) ENGINEER. WORK ORDER (#13)
TURN-IN LINE ITEM:WORK ORDER # (#11)
INPUT TEMPLATE(S):
PRCNTICMR FEB 19, 2004@09:54 USER #0
PRCNTIPED APR 26, 2012@11:41 USER #0
PRCNTIPPM DEC 29, 2003@12:00 USER #0
PRCNTIRQ JUN 25, 2003@11:51 USER #0
PRINT TEMPLATE(S):
PRCNTIST MAR 19, 1996@14:12 USER #0 TURN-IN STATUS REPORT
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):