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: 6925.0225

Package: Engineering

CONSTRUCTION PROJECT(#6925)-->6925.0225

Sub-Field: 6925.0225


Information

Parent File Name Number Package
CONSTRUCTION PROJECT(#6925) DOMINOS 6925.0225 Engineering

Details

Field # Name Loc Type Details
.01 DOMINO PROJECT 0;1 POINTER TO CONSTRUCTION PROJECT FILE (#6925) CONSTRUCTION PROJECT(#6925)

  • INPUT TRANSFORM:  S DIC("S")="I $D(ENDA)#10,ENDA'=+Y" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 31, 1992
  • HELP-PROMPT:  Enter a project which must be started before this project
  • DESCRIPTION:  
    This multiple field points to projects, in the Construction Project File (#6925), that must be started prior to the current project, due to a domino relationship.
  • SCREEN:  S DIC("S")="I $D(ENDA)#10,ENDA'=+Y"
  • EXPLANATION:  Screen prevents selection of this project as a domino to itself.
  • CROSS-REFERENCE:  6925.0225^B
    1)= S ^ENG("PROJ",DA(1),20,"B",$E(X,1,30),DA)=""
    2)= K ^ENG("PROJ",DA(1),20,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  6925^AB
    1)= S ^ENG("PROJ","AB",$E(X,1,30),DA(1),DA)=""
    2)= K ^ENG("PROJ","AB",$E(X,1,30),DA(1),DA)
    This cross reference enables sorting of projects by domino project.
3 TITLE COMPUTED

  • MUMPS CODE:  X ^DD(6925.0225,3,9.3) S X=$P(Y(6925.0225,3,101),U,3) S D0=Y(6925.0225,3,80) S D1=Y(6925.0225,3,81)
    9.2 = S Y(6925.0225,3,81)=$S($D(D1):D1,1:""),Y(6925.0225,3,80)=$S($D(D0):D0,1:""),Y(6925.0225,3,1)=$S($D(^ENG("PROJ",D0,20,D1,0)):^(0),1:"")
    9.3 = X ^DD(6925.0225,3,9.2) S D0=$P(Y(6925.0225,3,1),U,1) S:'$D(^ENG("PROJ",+D0,0)) D0=-1 S Y(6925.0225,3,101)=$S($D(^ENG("PROJ",D0,0)):^(0),1:"")
  • ALGORITHM:  #.01:#2
  • DESCRIPTION:  
    This computed field gives the title (field #11) of the specified domino project.
4 PROGRAM COMPUTED

  • MUMPS CODE:  X ^DD(6925.0225,4,9.3) S Y(6925.0225,4,101)=$S($D(^ENG("PROJ",D0,0)):^(0),1:"") S X=$P($P(Y(6925.0225,4,102),$C(59)_$P(Y(6925.0225,4,101),U,6)_":",2),$C(59),1) S D0=Y(6925.0225,4,80) S D1=Y(6925.0225,4,81)
    9.2 = S Y(6925.0225,4,81)=$S($D(D1):D1,1:""),Y(6925.0225,4,80)=$S($D(D0):D0,1:""),Y(6925.0225,4,1)=$S($D(^ENG("PROJ",D0,20,D1,0)):^(0),1:"")
    9.3 = X ^DD(6925.0225,4,9.2) S D0=$P(Y(6925.0225,4,1),U,1) S:'$D(^ENG("PROJ",+D0,0)) D0=-1 S Y(6925.0225,4,102)=$C(59)_$S($D(^DD(6925,155,0)):$P(^(0),U,3),1:"")
  • ALGORITHM:  #.01:#155
  • DESCRIPTION:  
    This computed field gives the program type (field #155) of the specified domino project.
Info |  Details