Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ENPL2

ENPL2.m

Go to the documentation of this file.
  1. ENPL2 ;(WASH ISC)/LKG- CONSTRUCTION PROJ E/E ;7/10/95
  1. ;;7.0;ENGINEERING;**23**;Aug 17, 1993
  1. EN ;Entry point for project application Enter/Edit
  1. A ; select and edit project
  1. S DIC="^ENG(""PROJ"",",DIC(0)="AELMQ",DIC("A")="Select PROJECT NUMBER: "
  1. S DLAYGO=6925 D ^DIC K DIC,DO,DLAYGO I $D(DTOUT)!$D(DUOUT)!(Y<1) G EX
  1. S (DA,ENDA)=+Y S:$P(Y,U,3)'=1 ENOLD=1
  1. I $P($G(^ENG("PROJ",ENDA,0)),U,6)="LE" W $C(7),!,"Project Applications are not currently supported for Lease projects." G C
  1. L +^ENG("PROJ",DA):5 E W $C(7),!,"File in Use, Please try later",! G C
  1. S DR="[ENPLI001]",DIE="^ENG(""PROJ""," D ^DIE K DR,DIE G:$D(DTOUT) C
  1. ; validate project
  1. I $D(^ENG("PROJ",ENDA,0)) D
  1. . S ^TMP($J,"L")=1,^TMP($J,"L",ENPN)=ENDA
  1. . D EN^ENPLV("A")
  1. . K ^TMP($J,"L")
  1. C L -^ENG("PROJ",ENDA)
  1. K DA,ENDA,ENOLD
  1. I '$D(DTOUT),'$D(DUOUT) G A
  1. EX K DA,DIC,DIE,DIROUT,DIRUT,DR,DUOUT,DTOUT,X,Y
  1. K ENAY,ENBC,ENBCI,ENBO,ENBOI,ENCY,ENDA,ENENV,ENFT,ENLY,ENOLD
  1. K ENPC,ENPCI,ENPN,ENPR,ENRY
  1. Q
  1. ACT ;Entry point for Enter/Edit of Project Activation information
  1. S DIC="^ENG(""PROJ"",",DIC(0)="AEMQ",DIC("A")="Select PROJECT NUMBER: "
  1. D ^DIC K DIC,DO
  1. I Y<1!$D(DUOUT)!$D(DTOUT) G EX2
  1. S (DA,ENDA)=+Y
  1. L +^ENG("PROJ",ENDA):5 E W *7,!,"File in Use, Please try later",! G E
  1. S DR="187.5;189;190;188;190.2:190.4",DIE="^ENG(""PROJ""," D ^DIE K DR,DIE
  1. E L -^ENG("PROJ",ENDA) K DA,ENDA,Y
  1. I '$D(DTOUT),'$D(DUOUT) G ACT
  1. EX2 K DA,DIC,DIE,DUOUT,DTOUT,ENDA
  1. Q