| 1 | ENPL9 ;(WASH ISC)/LKG-CHIEF ENG/VAMC DIRECTOR PROJ APPROVAL ;5/15/95
|
|---|
| 2 | ;;7.0;ENGINEERING;**11,23**;Aug 17, 1993
|
|---|
| 3 | EN S ENF=$S($D(^XUSEC("ENPLK001",DUZ)):244,$D(^XUSEC("ENPLK002",DUZ)):247,1:"")
|
|---|
| 4 | A I ENF="" W $C(7),!,"Sorry, You lack a Security Key required for Approval Authority",! G EX
|
|---|
| 5 | SEL ; select project
|
|---|
| 6 | K ENDA,ENIEN,ENQ,ENY0
|
|---|
| 7 | S DIC="^ENG(""PROJ"",",DIC(0)="AEMQZ",DIC("A")="Select PROJECT NUMBER: "
|
|---|
| 8 | S DIC("S")="I "";5;6;7;8;9;10;11;12;13;14;15;""[("";""_$P($G(^(1)),U,3)_"";"")"
|
|---|
| 9 | D ^DIC K DIC G:Y<1!$D(DTOUT)!$D(DUOUT) EX S ENDA=+Y
|
|---|
| 10 | L +^ENG("PROJ",ENDA):5 I '$T W $C(7),!,"File in Use, Please try later",! G SEL
|
|---|
| 11 | S ENY0=Y(0),ENIEN=ENDA_","
|
|---|
| 12 | D GETS^DIQ(6925,ENIEN,"155;158.1;244;245;246;247;248;249","","ENQ")
|
|---|
| 13 | I ENF=247,ENQ(6925,ENIEN,244)'="YES",ENQ(6925,ENIEN,247)'="YES" W $C(7),!,"Chief Engineer must sign approval before VAMC Director",! L -^ENG("PROJ",ENDA) G SEL
|
|---|
| 14 | W @IOF,!,"Project Number: ",$P(ENY0,U),?27,"Title: ",$E($P(ENY0,U,3),1,45)
|
|---|
| 15 | W !,"Program: ",ENQ(6925,ENIEN,155),?27,"Category: ",ENQ(6925,ENIEN,158.1),!!
|
|---|
| 16 | S DIR(0)="Y",DIR("A")="Do you wish to view a project summary:"
|
|---|
| 17 | S DIR("B")="NO"
|
|---|
| 18 | S DIR("?")="Enter 'Y' to see additional information about this project."
|
|---|
| 19 | D ^DIR K DIR I $D(DIRUT) L -^ENG("PROJ",ENDA) G EX
|
|---|
| 20 | I Y D
|
|---|
| 21 | . S L=0,DIC=6925,FLDS="[ENPLP005]",BY="@#.01"
|
|---|
| 22 | . S (FR,TO)=$P(ENY0,U),DHD="@",IOP="HOME"
|
|---|
| 23 | . D EN1^DIP K L,DIC,FLDS,BY,FR,TO,DHD
|
|---|
| 24 | ;
|
|---|
| 25 | I ENQ(6925,ENIEN,ENF)="YES" D G:$D(DIRUT) EX G:'Y SEL
|
|---|
| 26 | . W !!,"Project was previously approved by ",ENQ(6925,ENIEN,ENF+1)," on ",ENQ(6925,ENIEN,ENF+2)
|
|---|
| 27 | . S DIR(0)="Y",DIR("A")="Do you want to change the approval status"
|
|---|
| 28 | . S DIR("B")="NO"
|
|---|
| 29 | . D ^DIR K DIR
|
|---|
| 30 | I ENQ(6925,ENIEN,ENF)="YES" S DA=ENDA,DR=ENF_"///@",DIE="^ENG(""PROJ""," D ^DIE K DIE,DR,DA ; delete current approval to ensure triggers performed
|
|---|
| 31 | S DA=ENDA,DR=ENF_"//YES",DIE="^ENG(""PROJ"","
|
|---|
| 32 | D ^DIE K DIE,DR,DA L -^ENG("PROJ",ENDA) G:$D(DTOUT)!$D(DUOUT) EX
|
|---|
| 33 | W @IOF G SEL
|
|---|
| 34 | EX K DA,DIC,DIE,DIRUT,DIROUT,DR,DTOUT,DUOUT,X,Y
|
|---|
| 35 | K ENDA,ENF,ENIEN,ENQ,ENY0
|
|---|
| 36 | Q
|
|---|
