| 1 | ENSP6 ;(WASH ISC)/WDS@Charleston-Lease/Planned Space Edit Driver ;4-22-93
|
|---|
| 2 | V ;;7.0;ENGINEERING;;Aug 17, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | L ;EDIT/ENTER LEASE SPACE INFORMATION FIELDS
|
|---|
| 5 | W !! S DIC="^ENG(6928.3,",DR=".5:99" G FMUT
|
|---|
| 6 | ;
|
|---|
| 7 | VEN ;ENTER/EDIT LEASE VENDOR DATA
|
|---|
| 8 | W !! S DIC="^ENG(6928.3,",DR="1:5.1" G FMUT
|
|---|
| 9 | ;
|
|---|
| 10 | P ;PRINT LEASE SPACE SURVEY
|
|---|
| 11 | S L="0",DIC="^ENG(""SP"",",DHD="ENGINEERING SPACE SURVEY OF LEASED ROOMS",BY=$S($D(^DIBT("B","ENZLEASE")):"[ENZLEASE]",1:"[ENLEASE]") D FLDS^ENSP1 G PRINT
|
|---|
| 12 | ;
|
|---|
| 13 | EP ;ENTER/EDIT SPACE PLANNING DATA
|
|---|
| 14 | W !!,"Enter Planning Data for this Room Number" S DIC(0)="AEQLM",DIC="^ENG(""SP"",",DR=".01;1.5;2.6;4.5;4.7;4.9;6;17" G FMUT
|
|---|
| 15 | ;
|
|---|
| 16 | PP ;PRINT PLANNING SPACE DATA
|
|---|
| 17 | W !!," Report will be segregated by PROJECT NUMBER in the Building File.",! S L="0",DIC="^ENG(""SP"",",BY=".51:20;""PROJECT NO."",.51,+4.9;S1",FLDS="[ENSP-H08-9]" G PRINT
|
|---|
| 18 | ;
|
|---|
| 19 | PRINT I $D(%) Q:%<0
|
|---|
| 20 | S DIOEND="I IOST[""C-"" R !!,""Press <RETURN> to continue"",X:DTIME" D EN1^DIP
|
|---|
| 21 | G EXIT
|
|---|
| 22 | FMUT ;FILE MANAGER UTILITY HANDLER
|
|---|
| 23 | S DIE=DIC S:'$D(DIC(0)) DIC(0)="AEQM"
|
|---|
| 24 | FMUT1 D ^DIC S DA=+Y G:DA<1 EXIT D LOCK G:ENL=0 FMUT S:$D(DR)=0 DR=".01:99" D ^DIE L -@(DIC_DA_")") W !! G FMUT
|
|---|
| 25 | LOCK ;LOCK GLOBAL THAT IS BEING ACCESSED BY ANOTHER USER
|
|---|
| 26 | S X=DIC_DA_")" L +@X:1 S ENL=$T Q:ENL'=0 I ENL=0 W !!,$C(7),"THIS ENTRY IS BEING EDITED BY ANOTHER USER. TRY LATER." Q
|
|---|
| 27 | EXIT K A,BY,C,DIC,DIE,DA,DP,DR,D0,ENL,FLDS,FR,I,IOP,J,K,L,O,S,TO,X,Y,%DT Q
|
|---|
| 28 | ;
|
|---|
| 29 | ;ENSP6
|
|---|
