Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 6920.02

Package: Engineering

WORK ORDER #(#6920)-->6920.02

Sub-Field: 6920.02


Information

Parent File Name Number Package
WORK ORDER #(#6920) TECHNICIANS ASSIGNED 6920.02 Engineering

Details

Field # Name Loc Type Details
.01 ASSIGNED TECH 0;1 POINTER TO ENG EMPLOYEE FILE (#6929) ENG EMPLOYEE(#6929)

  • INPUT TRANSFORM:  S DIC("S")="S DIV=^(0) I $P(DIV,U,7)'=""V""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 21, 1998
  • HELP-PROMPT:  ENTER THE NAMES OF ENGINEERING EMPLOYEES PERFORMING THE WORK
  • DESCRIPTION:  
    Engineering employee(s) assigned to this work order.
  • SCREEN:  S DIC("S")="S DIV=^(0) I $P(DIV,U,7)'=""V"""
  • EXPLANATION:  SELECT ACTIVE EMPLOYEES ONLY
  • CROSS-REFERENCE:  6920.02^AD^MUMPS
    1)= I $P($G(^ENG(6920,DA(1),7,DA,0)),"^",3)="",$D(^ENG("EMP",X,0)),$P(^(0),"^",10) S $P(^ENG(6920,DA(1),7,DA,0),"^",3)=$P(^ENG("EMP",X,0),"^",10)
    1.1)= S X=DIV S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ENG("EMP",+D0,0)) D0=-1 S Y(101)=$S($D(^ENG("EMP",D0,0)):^(0),1:"") S X=$S('$D(^DIC(6922,+$P(Y(101),U,10),0)):"",1:$P(^(0),U,1)) S D0=Y(1)
    1.4)= S DIH=$S($D(^ENG(6920,DIV(0),7,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=6920.02,DIG=2 D ^DICR:$N(^DD
    (DIH,DIG,1,0))>0
    2)= Q
    2.4)= S DIH=$S($D(^ENG(6920,DIV(0),7,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=6920.02,DIG=2 D ^DICR:$N(^DD
    (DIH,DIG,1,0))>0
    CREATE VALUE)= .01:.3
    DELETE VALUE)= @
    FIELD)= SHOP
    Sets the shop(default).
  • CROSS-REFERENCE:  6920.02^AE^MUMPS
    1)= D:'$D(DIU(0)) INTECH^ENLIB1
    2)= D:'$D(DIU(0)) OUTECH^ENLIB1
    Maintain PRIMARY TECH on basis of TECHNICIAN ASSIGNED.
  • CROSS-REFERENCE:  6920.02^AF^MUMPS
    1)= I '$D(DIU(0)) D LBRCST^ENWOUTL(1) Q
    2)= Q
    Update TOTAL LABOR COST (#37.5) in the WORK ORDER (#6920) file. The TOTAL LABOR COST is normally updated by a cross-reference on the HOURS (#1) field in the TECHNICIANS ASSIGNED (#16.5) multiple. However, that
    cross-reference is not executed when an ASSIGNED TECH (#.01) is changed and the HOURS are not edited.
1 HOURS 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  OCT 21, 1998
  • HELP-PROMPT:  Type a Number between 0 and 999, 2 Decimal Digits
  • DESCRIPTION:  
    Number of hours (to the nearest tenth) spent on this work order by this employee.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  6920.02^AC^MUMPS
    1)= I '$D(DIU(0)) D LBRCST^ENWOUTL(1) Q
    2)= I '$D(DIU(0)) D LBRCST^ENWOUTL(2) Q
    Recalculate the TOTAL HOURS (#37) and the TOTAL LABOR COST (#37.5) in the WORK ORDER (#6920) file whenever the hours assigned to any technician changes.
2 SHOP 0;3 POINTER TO ENGINEERING SECTION LIST FILE (#6922) ENGINEERING SECTION LIST(#6922)

  • LAST EDITED:  MAR 26, 1985
  • HELP-PROMPT:  ENTER ASSIGNED SHOP
  • DESCRIPTION:  
    Engineering section under whose direction this work was performed.
  • NOTES:  TRIGGERED by the ASSIGNED TECH field of the TECHNICIANS ASSIGNED sub-field of the WORK ORDER # File
Info |  Details