ENSP6.m

ENSP6 ;(WASH ISC)/WDS@Charleston-Lease/Planned Space Edit Driver ; 3/10/14 2:08pm

V ;;7.0;ENGINEERING;**93**;Aug 17, 1993;Build 2

 ;

L ;EDIT/ENTER LEASE SPACE INFORMATION FIELDS

 W !! S DIC="^ENG(6928.3,",DR=".5:99" G FMUT

 ;

VEN ;ENTER/EDIT LEASE VENDOR DATA

 W !! S DIC="^ENG(6928.3,",DR="1:5.1" G FMUT

 ;

P ;PRINT LEASE SPACE SURVEY

 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

 ;

EP ;ENTER/EDIT SPACE PLANNING DATA

 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

 ;

PP ;PRINT PLANNING SPACE DATA

 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

 ;

PRINT I $D(%) Q:%<0

 S DIOEND="I IOST[""C-"" R !!,""Press <RETURN> to continue"",X:DTIME" D EN1^DIP

 G EXIT

FMUT ;FILE MANAGER UTILITY HANDLER

 S DIE=DIC S:'$D(DIC(0)) DIC(0)="AEQM"

FMUT1 D ^DIC S DA=+Y G:DA<1 EXIT D LOCK G:ENL=0 FMUT S:$D(DR)=0 DR=".01:99" S ENDA=+Y D ^DIE L -@(DIC_ENDA_")") W !! G FMUT

LOCK ;LOCK GLOBAL THAT IS BEING ACCESSED BY ANOTHER USER

 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

EXIT K A,BY,C,DIC,DIE,DA,DP,DR,D0,ENDA,ENL,FLDS,FR,I,IOP,J,K,L,O,S,TO,X,Y,%DT Q

 ;

 ;ENSP6

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ENSP6   1473     printed  Apr 09, 2024@20:58:29                                                                                                                                                                                                       Page 2

ENSP6     ;(WASH ISC)/WDS@Charleston-Lease/Planned Space Edit Driver ; 3/10/14 2:08pm

V         ;;7.0;ENGINEERING;**93**;Aug 17, 1993;Build 2

 +1       ;

L         ;EDIT/ENTER LEASE SPACE INFORMATION FIELDS

 +1        WRITE !!

           SET DIC="^ENG(6928.3,"

           SET DR=".5:99"

           GOTO FMUT

 +2       ;

VEN       ;ENTER/EDIT LEASE VENDOR DATA

 +1        WRITE !!

           SET DIC="^ENG(6928.3,"

           SET DR="1:5.1"

           GOTO FMUT

 +2       ;

P         ;PRINT LEASE SPACE SURVEY

 +1        SET L="0"

           SET DIC="^ENG(""SP"","

           SET DHD="ENGINEERING SPACE SURVEY OF LEASED ROOMS"

           SET BY=$SELECT($DATA(^DIBT("B","ENZLEASE")):"[ENZLEASE]",1:"[ENLEASE]")

           DO FLDS^ENSP1

           GOTO PRINT

 +2       ;

EP        ;ENTER/EDIT SPACE PLANNING DATA

 +1        WRITE !!,"Enter Planning Data for this Room Number"

           SET DIC(0)="AEQLM"

           SET DIC="^ENG(""SP"","

           SET DR=".01;1.5;2.6;4.5;4.7;4.9;6;17"

           GOTO FMUT

 +2       ;

PP        ;PRINT PLANNING SPACE DATA

 +1        WRITE !!,"     Report will be segregated by PROJECT NUMBER in the Building File.",!

           SET L="0"

           SET DIC="^ENG(""SP"","

           SET BY=".51:20;""PROJECT NO."",.51,+4.9;S1"

           SET FLDS="[ENSP-H08-9]"

           GOTO PRINT

 +2       ;

PRINT      IF $DATA(%)

               if %<0

                   QUIT 

 +1        SET DIOEND="I IOST[""C-"" R !!,""Press <RETURN> to continue"",X:DTIME"

           DO EN1^DIP

 +2        GOTO EXIT

FMUT      ;FILE MANAGER UTILITY HANDLER

 +1        SET DIE=DIC

           if '$DATA(DIC(0))

               SET DIC(0)="AEQM"

FMUT1      DO ^DIC

           SET DA=+Y

           if DA<1

               GOTO EXIT

           DO LOCK

           if ENL=0

               GOTO FMUT

           if $DATA(DR)=0

               SET DR=".01:99"

           SET ENDA=+Y

           DO ^DIE

           LOCK -@(DIC_ENDA_")")

           WRITE !!

           GOTO FMUT

LOCK      ;LOCK GLOBAL THAT IS BEING ACCESSED BY ANOTHER USER

 +1        SET X=DIC_DA_")"

           LOCK +@X:1

           SET ENL=$TEST

           if ENL'=0

               QUIT 

           IF ENL=0

               WRITE !!,$CHAR(7),"THIS ENTRY IS BEING EDITED BY ANOTHER USER.  TRY LATER."

               QUIT 

EXIT       KILL A,BY,C,DIC,DIE,DA,DP,DR,D0,ENDA,ENL,FLDS,FR,I,IOP,J,K,L,O,S,TO,X,Y,%DT

           QUIT 

 +1       ;

 +2       ;ENSP6