| [613] | 1 | ENPL4 ;(WASH ISC)/LKG- 5-YR PLAN CONSTRUCTION PROJ E/E ;7/10/95
|
|---|
| 2 | ;;7.0;ENGINEERING;**23**;Aug 17, 1993
|
|---|
| 3 | EN ;Entry point for editing 5-Yr Plan project.
|
|---|
| 4 | ; Determine budget year of plan to avoid inappropriate questions
|
|---|
| 5 | ; for out-year projects and support validation checks.
|
|---|
| 6 | S DIR(0)="N^1995:2099:0",DIR("A")="Budget Year of 5-Yr Plan"
|
|---|
| 7 | S DIR("B")=1700+$E(DT,1,3)+$S($E(DT,4,7)>0600:2,1:1)
|
|---|
| 8 | S DIR("?",1)="Enter a Fiscal Year between 1995 and 2099"
|
|---|
| 9 | S DIR("?",2)="Note: This is the Plan's, not the Project's Budget Year"
|
|---|
| 10 | S DIR("?")="This year enables differentiation among current, budget and out year projects"
|
|---|
| 11 | D ^DIR K DIR G:$D(DIRUT) EX S ENBY=Y
|
|---|
| 12 | A ; select and edit project
|
|---|
| 13 | S DIC="^ENG(""PROJ"",",DIC(0)="AELMQ",DIC("A")="Select PROJECT NUMBER: "
|
|---|
| 14 | S DLAYGO=6925 D ^DIC K DIC,DLAYGO I $D(DTOUT)!$D(DUOUT)!(Y<1) G EX
|
|---|
| 15 | S (DA,ENDA)=+Y S:$P(Y,U,3)'=1 ENOLD=1
|
|---|
| 16 | L +^ENG("PROJ",DA):5 E W *7,!,"File in Use, Please try later",! G C
|
|---|
| 17 | S DR="[ENPLI002]",DIE="^ENG(""PROJ""," D ^DIE K DIE,DR G:$D(DTOUT) C
|
|---|
| 18 | ; validate project
|
|---|
| 19 | I $D(^ENG("PROJ",ENDA,0)) D
|
|---|
| 20 | . S ^TMP($J,"L")=1_U_(ENBY-1),^TMP($J,"L",ENPN)=ENDA
|
|---|
| 21 | . D EN^ENPLV("F")
|
|---|
| 22 | . K ^TMP($J,"L")
|
|---|
| 23 | C L -^ENG("PROJ",ENDA)
|
|---|
| 24 | K DA,ENDA,ENOLD
|
|---|
| 25 | I '$D(DTOUT),'$D(DUOUT) G A
|
|---|
| 26 | EX K DA,DIC,DIE,DIROUT,DIRUT,DR,DUOUT,DTOUT,X,Y
|
|---|
| 27 | K ENAY,ENBC,ENBCI,ENBO,ENBOI,ENBY,ENCY,ENDA,ENFT,ENLY,ENOL
|
|---|
| 28 | K ENPC,ENPCI,ENPN,ENPR,ENRY
|
|---|
| 29 | Q
|
|---|
