Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^ENG(6920

Package: Engineering

Global: ^ENG(6920


Information

FileMan FileNo FileMan Filename Package
6920 WORK ORDER # Engineering

Description

Directly Accessed By Routines, Total: 68

Package Total Routines
Engineering 65 ENARG21    ENARG23    ENBCPM4    ENBCPM6    ENBCPM7    ENEQ4    ENEQNX2    ENEQPMR5
ENEQPMS4    ENEQPMS5    ENETRAN1    ENETRAN2    ENLBL11    ENLIB2    ENPAT35    ENPOST
ENSA8    ENSA9    ENWARD    ENWOCOMP    ENWOD    ENWOD1    ENWOD2    ENWOEDIT
ENWOINV    ENWOP    ENWOP1    ENWOP2    ENWOP3    ENWOREP    ENWOUTL    ENY2KR
ENY2KR1    ^ENG("SP"    ENAEMS    ENARG2    ENBCPM9    ENEQHS    ENEQPMR1    ENEQPMR2
ENEQPMR3    ENEQPMR4    ENEQPMR6    ENETRAN    ENEWOD    ENEWOD1    ENLIB1    ENPMCLOSE
ENSA4    ENWARD2    ENWO1    ENWO2    ENWOLD    ENWOME    ENWONEW    ENWONEW1
ENWONEW2    ENWONEW3    ENX5IP    ENXIP65    ENY2K4    ENY2K5    ENY2UTL    ^ENG(6920
TECHNICIANS ASSIGNED    
Equipment Turn-In Request 1 PRCNTIPP    

Accessed By FileMan Db Calls, Total: 44

Package Total Routines
Engineering 44 ENARG21    ENARG23    ENBCPM4    ENBCPM6    ENBCPM7    ENBCPM9    ENEQ4    ENEQPMR1
ENEQPMR2    ENEQPMR3    ENEQPMR4    ENEQPMR5    ENEQPMR6    ENEQPMS4    ENEQPMS5    ENETRAN1
ENETRAN2    ENEWOD    ENPAT35    ENPOST    ENSA4    ENSA8    ENSA9    ENWARD
ENWARD2    ENWO1    ENWO2    ENWOD    ENWOD1    ENWOD2    ENWOLD    ENWOME
ENWOME1    ENWONEW    ENWONEW1    ENWONEW2    ENWONEW3    ENWOP3    ENWOUTL    ENY2K4
ENY2K5    ENY2KR    ENY2KR1    ENY2UTL    

Pointed To By FileMan Files, Total: 4

Package Total FileMan Files
IFCAP 2 PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[51]    CONTROL POINT ACTIVITY(#410)[49]    
Engineering 1 EQUIPMENT INV.(#6914)[78]    
Equipment Turn-In Request 1 TURN-IN REQUEST(#413.1)[13#413.11(11)]    

Pointer To FileMan Files, Total: 10

Package Total FileMan Files
Engineering 7 WORK CENTER CODE(#6921)[35.5]    ENGINEERING SECTION LIST(#6922)[9#6920.02(2)]    ENG EMPLOYEE(#6929)[16#6920.02(.01)]    MANUFACTURER LIST FILE(#6912)[21.9]    ENG SPACE(#6928)[3]    EQUIPMENT INV.(#6914)[18]    NEW WORK ACTION(#6920.1)[#6920.035(.01)]    
Kernel 2 SERVICE/SECTION(#49)[23]    NEW PERSON(#200)[7.5]    
IFCAP 1 CONTROL POINT ACTIVITY(#410)[31]    

Fields, Total: 40

Field # Name Loc Type Details
.01 WORK ORDER # 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>17!($L(X)<5)!'(X'?1P.E)!(X'?.ANP) X
  • LAST EDITED:  APR 11, 1997
  • HELP-PROMPT:  ANSWER MUST BE 5-17 CHARACTERS IN LENGTH
  • DESCRIPTION:  Identifier of each individual work action. Composed of the shop abbreviation, date generated, and a computer generated sequential component. Users may delete work orders when necessary, but they should never change a
    work order number.
  • DELETE TEST:  1,0)= I $D(^ENG(6920,DA,3)),$P(^(3),"^",8)>0,$D(^(5)),$P(^(5),"^",2)>0 W !,"Sorry, you must use the work order module to delete work orders associated",!,"with an equipment history."
    DELETE AUTHORITY: #
    WRITE AUTHORITY: #
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  6920^B
    1)= S ^ENG(6920,"B",$E(X,1,30),DA)=""
    2)= K ^ENG(6920,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  6920^AA^MUMPS
    1)= Q
    2)= Q
    Obsolete x-ref. No API available to delete.
.05 ORIGINAL WORK ORDER # 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>17!($L(X)<5) X
  • LAST EDITED:  SEP 11, 1996
  • HELP-PROMPT:  Answer must be 5-17 characters in length.
  • DESCRIPTION:  This field is automatically populated whenever a new work request is entered. Unlike the .01 field, the 'ORIGINAL WORK ORDER #' will not be affected if the work request is transferred from one shop to another. The main
    purpose of this field is to allow requesters outside of Engineering Service to check on the status of work requests which they enter themselves. If requesters make a note of the WORK ORDER #'s assigned to their work
    requests as they enter them, they will always be able to use these original numbers to check the status.
    UNEDITABLE
  • CROSS-REFERENCE:  6920^H
    1)= S ^ENG(6920,"H",$E(X,1,30),DA)=""
    2)= K ^ENG(6920,"H",$E(X,1,30),DA)
1 REQUEST DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT=$S($E($P(^ENG(6920,DA,0),U),1,3)="PM-":"P",1:"ETPX") D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 07, 1997
  • DESCRIPTION:  
    Date (and time if desired) when work request was originally entered.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2 REQUEST MODE 0;3 SET
  • 'P' FOR PHONE;
  • 'W' FOR WRITTEN;
  • 'D' FOR DELIVERED;
  • 'V' FOR VERBAL;
  • 'C' FOR COMPUTER;

  • LAST EDITED:  AUG 01, 1990
  • DESCRIPTION:  
    Indicator of how the work was actually requested.
3 LOCATION 0;4 POINTER TO ENG SPACE FILE (#6928) ENG SPACE(#6928)

  • LAST EDITED:  FEB 24, 1993
  • HELP-PROMPT:  Enter as ROOM-BUILDING (or select a SYNONYM).
  • DESCRIPTION:  
    Physical location where work is to be performed.
  • CROSS-REFERENCE:  6920^C
    1)= S ^ENG(6920,"C",$E(X,1,30),DA)=""
    2)= K ^ENG(6920,"C",$E(X,1,30),DA)
4 BED # 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1)!(X'?.ANP) X
  • LAST EDITED:  DEC 06, 1984
  • HELP-PROMPT:  ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Optional field. Filled in at time of request if the work requested is associated with a specific bed in a patient room.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6 TASK DESCRIPTION (60 char) 1;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  FEB 24, 1993
  • HELP-PROMPT:  ANSWER MUST BE 1-60 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    A brief statement that describes the work being requested.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  6920^D
    1)= S ^ENG(6920,"D",$E(X,1,30),DA)=""
    2)= K ^ENG(6920,"D",$E(X,1,30),DA)
7 CONTACT PERSON 1;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1)!(X'?.ANP) X
  • LAST EDITED:  DEC 06, 1984
  • HELP-PROMPT:  ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the person to be contacted if there are questions about the nature of the work that has been requested.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
7.5 ENTERED BY 1;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 19, 1993
  • DESCRIPTION:  
    Identifies the user who actually entered the work request. Field is automatically populated when work order is entered via Electronic Work Order Module.
    UNEDITABLE
8 PHONE 1;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1)!(X'?.ANP) X
  • LAST EDITED:  SEP 01, 1995
  • HELP-PROMPT:  ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Telephone number or extension of the individual requesting the work.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9 SHOP 2;1 POINTER TO ENGINEERING SECTION LIST FILE (#6922)
************************REQUIRED FIELD************************
ENGINEERING SECTION LIST(#6922)

  • LAST EDITED:  APR 11, 1997
  • DESCRIPTION:  
    The Engineering Section to which the Work Order is assigned.
  • CROSS-REFERENCE:  6920^AC^MUMPS
    1)= D:'$D(DIU(0)) TEST^ENWOCOMP
    2)= K ^ENG(6920,"AINC",X,9999999999-DA)
    Maintains incomplete work order lists.
10 DATE ASSIGNED 4;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 14, 1983
  • DESCRIPTION:  
    Date on which work order was assigned to the current shop.
16 PRIMARY TECH ASSIGNED 2;2 POINTER TO ENG EMPLOYEE FILE (#6929) ENG EMPLOYEE(#6929)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,7)'=""V""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 11, 1998
  • DESCRIPTION:  
    Technician who bears primary responsibility for completion of task.
  • SCREEN:  S DIC("S")="I $P(^(0),U,7)'=""V"""
  • EXPLANATION:  Select current employees only.
  • CROSS-REFERENCE:  6920^AG^MUMPS
    1)= D:'$D(DIU(0)) TECH^ENLIB1
    2)= Q
    Maintain ASSIGNED TECH field (if necessary).
16.5 TECHNICIANS ASSIGNED 7;0 POINTER Multiple #6920.02 6920.02

  • DESCRIPTION:  
    Employee(s) assigned to perform this work.
17 PRIORITY 2;3 SET
************************REQUIRED FIELD************************
  • 'E' FOR EMERGENCY;
  • 'H' FOR HIGH;
  • 'A' FOR AVERAGE;
  • 'L' FOR LOW;
  • 'M' FOR MODIFICATION;

  • LAST EDITED:  NOV 17, 1983
  • DESCRIPTION:  
    Relative priority of this work request.
18 EQUIPMENT ID# 3;8 POINTER TO EQUIPMENT INV. FILE (#6914) EQUIPMENT INV.(#6914)

  • LAST EDITED:  DEC 16, 1996
  • DESCRIPTION:  
    Entry in the Equipment File (#6914) to which this work order is to be charged.
  • CROSS-REFERENCE:  6920^G
    1)= S ^ENG(6920,"G",$E(X,1,30),DA)=""
    2)= K ^ENG(6920,"G",$E(X,1,30),DA)
  • CROSS-REFERENCE:  6920^AF^MUMPS
    1)= D:'$D(DIU(0)) ST^ENWOINV
    2)= D:'$D(DIU(0)) KI^ENWOINV
19 LOCAL IDENTIFIER 3;5 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45)!(X'?.ANP) X I $D(X) K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  DEC 06, 1984
  • HELP-PROMPT:  ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This optional field may contain any type of identifier that has meaning at your site.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  6920^F
    1)= S ^ENG(6920,"F",$E(X,1,30),DA)=""
    2)= K ^ENG(6920,"F",$E(X,1,30),DA)
20 PMI NUMBER 3;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<1)!(X'?.ANP) X
  • LAST EDITED:  OCT 08, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1-11 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Property Management Number. Applicable only to work requests that are chargeable to equipment. This data element is likely to be phased out in the near future.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  6920^E
    1)= S ^ENG(6920,"E",$E(X,1,30),DA)=""
    2)= K ^ENG(6920,"E",$E(X,1,30),DA)
21 EQUIPMENT CATEGORY 3;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1)!(X'?.ANP) X
  • LAST EDITED:  DEC 06, 1984
  • HELP-PROMPT:  ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Generic name for affected equipment.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
21.9 MANUFACTURER 3;9 POINTER TO MANUFACTURER LIST FILE FILE (#6912) MANUFACTURER LIST FILE(#6912)

  • LAST EDITED:  APR 11, 1997
  • DESCRIPTION:  
    Manufacturer of affected equipment.
22 *EQUIPMENT MANUFACTURER 3;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1)!(X'?.ANP) X
  • LAST EDITED:  DEC 09, 1996
  • HELP-PROMPT:  ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field is no longer used and it will be deleted by a future release. (Text representation of manufacturer. Used to be automatically triggered.)
    WRITE AUTHORITY: ^
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
22.3 MODEL 3;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Model number assigned to equipment under repair by the manufacturer.
22.5 SERIAL NO. 3;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1)!(X'?.ANP) X
  • LAST EDITED:  DEC 06, 1984
  • HELP-PROMPT:  ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Serial number of affected equipment. Assigned by manufacturer.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
23 OWNER/DEPARTMENT 3;4 POINTER TO SERVICE/SECTION FILE (#49) SERVICE/SECTION(#49)

  • LAST EDITED:  JUN 28, 1988
  • DESCRIPTION:  
    The service or section for whom work is to be performed.
31 PARTS ORDERED ON ACC.# 4;2 POINTER TO CONTROL POINT ACTIVITY FILE (#410) CONTROL POINT ACTIVITY(#410)

  • LAST EDITED:  FEB 24, 1993
  • DESCRIPTION:  
    The Control Point Activity Transaction for parts or services required to complete this task.
  • CROSS-REFERENCE:  6920^AE^MUMPS
    1)= D:'$D(DIU(0)) ACC^ENLIB2
    2)= Q
    Gets data elements from the purchase order where possible.
32 STATUS 4;3 SET
  • '1' FOR IN PROGRESS;
  • '2' FOR PENDING;
  • '3' FOR WAITING ON PARTS;
  • '4' FOR WAITING ON VENDOR SERVICE;
  • '5' FOR DISAPPROVED;
  • '6' FOR COMPLETED;

  • LAST EDITED:  OCT 21, 1998
  • DESCRIPTION:  
    Added with Version 6.4. May be helpful when printing reports of M&R activity.
  • SCREEN:  S DIC("S")="I $S(Y<5:1,Y>6:1,$D(^ENG(6920,DA,5)):$P(^(5),U,2)]"""",1:0)"
  • EXPLANATION:  It is improper to explicitly set STATUS to COMPLETE or DISAPPROVED in the absence of a DATE COMPLETE (OR CLOSED).
  • CROSS-REFERENCE:  6920^AH^MUMPS
    1)= D:'$D(DIU(0)) MSG^ENWO2
    2)= Q
    Generate a message to users when their work order's status has changed.
  • CROSS-REFERENCE:  6920^AD^MUMPS
    1)= D:X=5&'$D(DIU(0)) DELHS^ENEQHS
    2)= Q
    Remove disapproved work orders from the EQUIPMENT HISTORY (#50) multiple of the EQUIPMENT INV (#6914) file.
32.1 NOTIFICATION PREFERENCE 4;5 SET
  • 'C' FOR COMPLETED STATUS;
  • 'S' FOR STATUS CHANGED;
  • 'N' FOR NO MESSAGE;

  • LAST EDITED:  SEP 25, 1995
  • HELP-PROMPT:  Indicate when changes to the work order status should result in a mail message to the requestor.
  • DESCRIPTION:  This field will be checked to determine if a mail message should be sent to the requestor when the status of an electronic work order is modified. ENG SOFTWARE OPTIONS 'NOTIFY W.O. REQUESTOR' must be 'A' for this field to
    be asked during entry of a electronic work order. Note that a mail message will always be sent when a work order is disapproved.
32.2 NOTIFICATION MESSAGE 4;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 28, 1997
  • HELP-PROMPT:  Type a Number between 1 and 9999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the message number of a computer generated notification message sent to the requester. Any further notification messages are sent as responses to this message.
    UNEDITABLE
35 WORK ACTION 8;0 POINTER Multiple #6920.035 6920.035

  • DESCRIPTION:  
    Type of work performed or requested.
35.2 PM STATUS 5;8 SET
  • 'P' FOR PASS;
  • 'C' FOR CORRECTIVE ACTION TAKEN/REQUESTED;
  • 'D0' FOR DEFERRED;
  • 'D1' FOR DEFERRED, COULD NOT LOCATE;
  • 'D2' FOR DEFERRED, IN USE;
  • 'D3' FOR DEFERRED, OUT OF SERVICE OR LOANED OUT;

  • LAST EDITED:  FEB 06, 1989
  • DESCRIPTION:  
    Outcome of preventive maintenance inspection. Useable for PM work orders only.
35.5 WORK CENTER CODE 5;5 POINTER TO WORK CENTER CODE FILE (#6921) WORK CENTER CODE(#6921)

  • LAST EDITED:  APR 03, 1984
  • DESCRIPTION:  
    Category of task to which this work order most closely corresponds.
36 DATE COMPLETE (or closed) 5;2 DATE

  • INPUT TRANSFORM:  S %DT=$S($E($P(^ENG(6920,DA,0),U),1,3)="PM-":"P",1:"ETPX") D ^%DT S X=$$CDATE^ENWOUTL(Y) I X["^" K X
  • LAST EDITED:  APR 09, 1997
  • HELP-PROMPT:  Completed work orders should reference equipment via the EQUIPMENT ID#.
  • DESCRIPTION:  
    Date on which work order is closed out.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  6920^AI^MUMPS
    1)= D:'$D(DIU(0)) TEST^ENWOCOMP
    2)= D:'$D(DIU(0)) TEST^ENWOCOMP
    Maintains the INCOMPLETE WORK ORDER list.
37 TOTAL HOURS 5;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<.1)!(X?.E1"."3N.N) X
  • LAST EDITED:  OCT 26, 1990
  • HELP-PROMPT:  Type a Number between .1 and 9999, 2 Decimal Digits
  • DESCRIPTION:  
    Total man-hours by all assigned employees. Calculated by the system automatically.
37.5 TOTAL LABOR COST 5;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X
  • LAST EDITED:  MAR 16, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits
  • DESCRIPTION:  
    Total labor cost chargeable to this work order. System will compute this value by multiplying the HOURS of each TECHNICIAN ASSIGNED times his WAGE and totaling the results.
38 TOTAL MATERIAL COST 5;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X
  • LAST EDITED:  MAR 16, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits
  • DESCRIPTION:  
    Approximate cost of materials needed to complete this task.
39 WORK PERFORMED (140 char max) 5;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)<3 X I $D(X),$L(X)>140 S X=$E(X,1,140) D EN^DDIOL("WORK PERFORMED has been truncated to 140 characters.")
  • LAST EDITED:  DEC 06, 1996
  • HELP-PROMPT:  Answer must be 3-140 characters in length.
  • DESCRIPTION:  Brief description of work actually performed (may be extracted from COMMENTS field). The WORK PERFORMED field will be saved in the EQUIPMENT (Inventory) File (No. 6914) where it will be a permanent part of the device
    history. In contrast, the COMMENTS field will be removed from disk (on-line) storage when the work order is archived.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
40 COMMENTS 6;0 WORD-PROCESSING #6920.01

  • DESCRIPTION:  
    General comments regarding this work request.
45 ENG. TURN AROUND TIME COMPUTED

  • MUMPS CODE:  S Y(6920,45,2)=$S($D(^ENG(6920,D0,0)):^(0),1:""),Y(6920,45,1)=$S($D(^(5)):^(5),1:"") S X=$P(Y(6920,45,1),U,2),X1=X,X2=$P(Y(6920,45,2),U,2),X="" D:X2 ^%DTC:X1 S X=$J(X,0,0)
  • ALGORITHM:  #36-#1 (ALWAYS 0 DECIMAL DIGITS)
  • LAST EDITED:  JAN 04, 1993
  • DESCRIPTION:  
    Number of days between work order request and work order completion.
46 TECH TURN AROUND TIME COMPUTED

  • MUMPS CODE:  S Y(6920,46,2)=$S($D(^ENG(6920,D0,4)):^(4),1:""),Y(6920,46,1)=$S($D(^(5)):^(5),1:"") S X=$P(Y(6920,46,1),U,2),X1=X,X2=$P(Y(6920,46,2),U,1),X="" D:X2 ^%DTC:X1
  • ALGORITHM:  #36-#10
  • LAST EDITED:  SEP 29, 1983
  • DESCRIPTION:  
    Number of days between assignment of shop and work order completion.
47 VENDOR SERVICE COST 4;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  OCT 08, 1991
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
  • DESCRIPTION:  
    Approximate cost of vendor services needed to complete this task.

ICR, Total: 3

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #1344
  • EQUIPMENT/TURN-IN REQUEST
  • WORK ORDER # (.01).
    Access: Pointed to

    DATE COMPLETE (or closed) (36).
    Access: Read w/Fileman

    Equipment/Turn-In Request packages checks for each WORKORDER # generated for a item to be turned in, if the status is COMPLETED.
    ICR #3656
  • M DATA EXTRACTOR
  • ICR #6494
  • ABOVE PAR
  • ADVANCED PROSTHETICS ACQUISITION TOOL
  • WORK ORDER # (.01).
    Access: Both R/W w/Fileman

    ORIGINAL WORK ORDER # (.05).
    Access: Both R/W w/Fileman

    REQUEST DATE (1).
    Access: Both R/W w/Fileman

    REQUEST MODE (2).
    Access: Direct Global Read & w/Fileman

    LOCATION (3).
    Access: Both R/W w/Fileman

    BED # (4).
    Access: Both R/W w/Fileman

    ENTERED BY (7.5).
    Access: Both R/W w/Fileman

    TASK DESCRIPTION (60 char) (6).
    Access: Both R/W w/Fileman

    CONTACT PERSON (7).
    Access: Both R/W w/Fileman

    PHONE (8).
    Access: Both R/W w/Fileman

    SHOP (9).
    Access: Both R/W w/Fileman

    PRIMARY TECH ASSIGNED (16).
    Access: Both R/W w/Fileman

    PRIORITY (17).
    Access: Both R/W w/Fileman

    PMI NUMBER (20).
    Access: Both R/W w/Fileman

    EQUIPMENT CATEGORY (21).
    Access: Both R/W w/Fileman

    OWNER/DEPARTMENT (23).
    Access: Both R/W w/Fileman

    LOCAL IDENTIFIER (19).
    Access: Both R/W w/Fileman

    MODEL (22.3).
    Access: Both R/W w/Fileman

    SERIAL NO. (22.5).
    Access: Both R/W w/Fileman

    EQUIPMENT ID# (18).
    Access: Both R/W w/Fileman

    MANUFACTURER (21.9).
    Access: Both R/W w/Fileman

    DATE ASSIGNED (10).
    Access: Both R/W w/Fileman

    PARTS ORDERED ON ACC.# (31).
    Access: Both R/W w/Fileman

    STATUS (32).
    Access: Both R/W w/Fileman

    VENDOR SERVICE COST (47).
    Access: Both R/W w/Fileman

    NOTIFICATION PREFERENCE (32.1).
    Access: Both R/W w/Fileman

    NOTIFICATION MESSAGE (32.2).
    Access: Both R/W w/Fileman

    DATE COMPLETE (or closed) (36).
    Access: Both R/W w/Fileman

    TOTAL HOURS (37).
    Access: Both R/W w/Fileman

    TOTAL MATERIAL COST (38).
    Access: Both R/W w/Fileman

    WORK CENTER CODE (35.5).
    Access: Both R/W w/Fileman

    TOTAL LABOR COST (37.5).
    Access: Both R/W w/Fileman

    WORK PERFORMED (39).
    Access: Both R/W w/Fileman

    PM STATUS (35.2).
    Access: Both R/W w/Fileman

    COMMENTS (.01).
    Access: Both R/W w/Fileman

    ASSIGNED TECH (.01).
    Access: Both R/W w/Fileman

    HOURS (1).
    Access: Both R/W w/Fileman

    SHOP (2).
    Access: Both R/W w/Fileman

    WORK ACTION (.01).
    Access: Both R/W w/Fileman

    File 6920 "B" Cross reference used to look up by WORKORDER #File 6920 "C" Cross reference used to look up byLOCATIONFile 6920 "D" Cross reference used to look up by TASKDESCRIPTIONFile 6920 "G" Cross reference used to look up byEQUIPMENT ID#File 6920 "H" Cross reference used to look up byORIGINAL WORK ORDER #File 6920 "AINC" Cross reference used to look up openwork orders

    External References

    Name Field # of Occurrence
    ^%DT 1+1, 10+1, 36+1
    ^%DTC 45+1, 46+1
    EN^DDIOL 39+1
    ^DIC 16+1
    Y^DIQ ID3+1
    DELHS^ENEQHS 32(XREF 2S)
    TECH^ENLIB1 16(XREF 1S)
    ACC^ENLIB2 31(XREF 1S)
    MSG^ENWO2 32(XREF 1S)
    TEST^ENWOCOMP 9(XREF 1S), 36(XREF 1S), 36(XREF 1K)
    KI^ENWOINV 18(XREF 2K)
    ST^ENWOINV 18(XREF 2S)
    $$CDATE^ENWOUTL 36+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(6928 ID3+1
    ^ENG("SP" - [#6928] ID3+1
    ^ENG(6920 - [#6920] .01DEL1+1, .01(XREF 1S), .01(XREF 1K), .05(XREF 1S), .05(XREF 1K), 1+1, 3(XREF 1S), 3(XREF 1K), 6(XREF 1S), 6(XREF 1K)
    9(XREF 1K), 18(XREF 1S), 18(XREF 1K), 19(XREF 1S), 19(XREF 1K), 20(XREF 1S), 20(XREF 1K), 36+1, 45+1, 46+1

    Naked Globals

    Name Field # of Occurrence
    ^(0 ID3+1, 45+1
    ^(1 ID6+1
    ^(3 .01DEL1+1
    ^(4 46+1
    ^(5 .01DEL1+1, 45+1, 46+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT 1+1*, 10+1*, 36+1*
    %I ID3+1*!
    >> C ID3+1*
    >> D0 45+1, 46+1
    >> DA .01DEL1+1, .01(XREF 1S), .01(XREF 1K), .05(XREF 1S), .05(XREF 1K), 1+1, 3(XREF 1S), 3(XREF 1K), 6(XREF 1S), 6(XREF 1K)
    9(XREF 1K), 18(XREF 1S), 18(XREF 1K), 19(XREF 1S), 19(XREF 1K), 20(XREF 1S), 20(XREF 1K), 36+1
    DIC ID3+1, 16+1!*
    DIC("S" 16+1*, 16SCR+1*, 32SCR+1*
    >> DIE 16+1
    >> DIU(0 9(XREF 1S), 16(XREF 1S), 18(XREF 2S), 18(XREF 2K), 31(XREF 1S), 32(XREF 1S), 32(XREF 2S), 36(XREF 1S), 36(XREF 1K)
    U ID3+1, ID6+1, 1+1, 36+1, 45+1, 46+1
    X .01+1!, .01(XREF 1S), .01(XREF 1K), .05+1!, .05(XREF 1S), .05(XREF 1K), 1+1*!, 3(XREF 1S), 3(XREF 1K), 4+1!
    , 6+1!, 6(XREF 1S), 6(XREF 1K), 7+1!, 8+1!, 9(XREF 1K), 10+1*!, 16+1*!, 18(XREF 1S), 18(XREF 1K)
    , 19+1!, 19(XREF 1S), 19(XREF 1K), 20+1!, 20(XREF 1S), 20(XREF 1K), 21+1!, 22+1!, 22.3+1!, 22.5+1!
    32(XREF 2S), 32.2+1!, 36+1*!, 37+1!, 37.5+1*!, 38+1*!, 39+1!*, 45+1*, 46+1*, 47+1*!
    >> X1 45+1*, 46+1*
    >> X2 45+1*, 46+1*
    >> Y ID3+1*, 1+1, 10+1, 16+1, 36+1
    >> Y(6920 45+1*, 46+1*
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All