STANDARD DATA DICTIONARY #6922 -- ENGINEERING SECTION LIST FILE 3/24/25 PAGE 1
STORED IN ^DIC(6922, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 7.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
A list of functional sections within Engineering Service.
DD ACCESS: #
WR ACCESS: e
DEL ACCESS: e
LAYGO ACCESS: e
POINTED TO BY: TEMPORARY WORK ORDER SECTION field (#5) of the ENG INIT PARAMETERS File (#6910)
INCOMING INSPECTION SECTION field (#5.1) of the ENG INIT PARAMETERS File (#6910)
EQUIPMENT TURN-IN SECTION field (#20) of the ENG INIT PARAMETERS File (#6910)
RESPONSIBLE SHOP field (#.01) of the RESPONSIBLE SHOP sub-field (#6911.01) of the EQUIPMENT CATEGORY File (#6911)
Y2K ASSIGNED SHOP field (#77) of the EQUIPMENT INV. File (#6914)
RESPONSIBLE SHOP field (#.01) of the RESPONSIBLE SHOP sub-field (#6914.04) of the EQUIPMENT INV. File (#6914)
SHOP field (#9) of the WORK ORDER # File (#6920)
SHOP field (#2) of the TECHNICIANS ASSIGNED sub-field (#6920.02) of the WORK ORDER # File (#6920)
SHOP field (#.3) of the ENG EMPLOYEE File (#6929)
CROSS
REFERENCED BY: ENGINEERING SECTION(B), ABBREVIATION(C)
6922,.001 SECTION NUMBER NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: SEP 17, 1995
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
DESCRIPTION: Engineering shop number. Must be in the range of 1 thru 999. Numbers 90 thru 99 are reserved for
use as receiving areas.
6922,.01 ENGINEERING SECTION 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>21!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
LAST EDITED: SEP 14, 1983
HELP-PROMPT: ANSWER MUST BE 3-21 CHARACTERS IN LENGTH
DESCRIPTION: Engineering Shop or Receiving Area for electronic work orders. Receiving Areas should be numbered
so that they end with 90 thru 99, inclusive (ex: 90,91,190,295, etc.). Working shops should not be
given numbers within the range reserved for Receiving Areas.
CROSS-REFERENCE: 6922^B
1)= S ^DIC(6922,"B",$E(X,1,30),DA)=""
2)= K ^DIC(6922,"B",$E(X,1,30),DA)
6922,1 ABBREVIATION 0;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1)!(X'?.U) X I $G(DIUTIL)'="VERIFY FIELDS",$D(X),$D(^DIC(6922,"C",X)) D EN^DDIOL($
C(7)_"IN USE (Section #: "_$O(^DIC(6922,"C",X,0))_").","","!?15") K X
LAST EDITED: APR 24, 1998
HELP-PROMPT: ANSWER MUST BE 1-3 CHARACTERS IN LENGTH, UPPER CASE ONLY
DESCRIPTION: One, two, or three characters that identify the shop. Included in computer generated work order
numbers. Must be unique for each shop.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6922^C
1)= S ^DIC(6922,"C",$E(X,1,30),DA)=""
2)= K ^DIC(6922,"C",$E(X,1,30),DA)
6922,2 DEVICE 0;3 POINTER TO DEVICE FILE (#3.5)
LAST EDITED: FEB 09, 1993
HELP-PROMPT: INPUT THE DEVICE NUMBER WHICH WILL BE THE OUTPUT DEVICE FOR THIS ENGINEERING SECTION.
DESCRIPTION: The device to be used for automatic printing of new work orders, if that ENGINEERING SOFTWARE
OPTION has been selected.
6922,3 PM MONTH 1;0 DATE Multiple #6922.03 (Add New Entry without Asking)
LAST EDITED: MAR 18, 1993
DESCRIPTION: Keeps track of man-hours spent on preventive maintenance. Data is uploaded automatically via the
PM Closeout software.
6922.03,.01 PM MONTH 0;1 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 18, 1993
UNEDITABLE
CROSS-REFERENCE: 6922.03^B
1)= S ^DIC(6922,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^DIC(6922,DA(1),1,"B",$E(X,1,30),DA)
6922.03,1 TECHNICIAN 1;0 POINTER Multiple #6922.31 (Add New Entry without Asking)
LAST EDITED: APR 29, 1993
DESCRIPTION:
Technician who performed PM work for this shop.
6922.31,.01 TECHNICIAN 0;1 POINTER TO ENG EMPLOYEE FILE (#6929)
LAST EDITED: MAR 24, 1993
UNEDITABLE
CROSS-REFERENCE: 6922.31^B
1)= S ^DIC(6922,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^DIC(6922,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
6922.31,1 MANHOURS 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: MAR 24, 1993
HELP-PROMPT: Type a Number between 0 and 9999999, 2 Decimal Digits
DESCRIPTION:
Total PM manhours for this tech for this month for this shop.
UNEDITABLE
6922,4 ASK CONDITION CODE 0;4 SET
'0' FOR NEVER;
'1' FOR WHEN VALUE > $4999.99;
'2' FOR ALWAYS;
LAST EDITED: DEC 13, 1994
HELP-PROMPT: Specify when equipment condition codes are asked during work order close out.
DESCRIPTION: This field will be checked during close out of the shop's equipment work orders to determine if the
equipment's CONDITION CODE should be asked.
(0) NEVER - Condition code will not be asked.
(1) WHEN VALUE > $4999.99 - Condition code will be asked if the equipment's acquisition value is
greater than $4999.99.
(2) ALWAYS - Condition code will be asked.
6922,5 EXPANDED WORK ORDER CLOSEOUT 0;5 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: AUG 29, 1996
HELP-PROMPT: Enter YES to have more questions asked during work order closeout for this shop.
DESCRIPTION: This field determines the input template that will be used during close out of the shop's work
orders. If this field is set to YES then template ENWOBIOCLSE (or ENZWOBIOCLSE) will be used.
Otherwise template ENWOCLOSE (or ENZWOCLOSE) will be used. The ENWOBIOCLSE template is
traditionally used by Biomed shops. It contains several additional prompts for equipment related
data fields.
FILES POINTED TO FIELDS
DEVICE (#3.5) DEVICE (#2)
ENG EMPLOYEE (#6929) TECHNICIAN:TECHNICIAN (#.01)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
EN PM HOURS MAR 19, 1993@10:03 USER #5 PREVENTIVE MAINTENANCE MANHOURS
SORT TEMPLATE(S):
EN PM HOURS MAR 19, 1993@10:03 USER #5
SORT BY: ENGINEERING SECTION;S1// (User is asked range)
WITHIN ENGINEERING SECTION, SORT BY: PM MONTH//
PM MONTH SUB-FIELD: PM MONTH// (User is asked range)
FORM(S)/BLOCK(S):