ECTASPC.m

ECTASPC ;B'ham ISC/PTD-Space Survey by Service or Building Number ;01/29/91 08:00

V ;;1.05;INTERIM MANAGEMENT SUPPORT;**6**;

 I '$D(^ENG("SP")) W *7,!!?29,"OPTION IS UNAVAILABLE!",!,"The 'Eng Space' File - #6928 is not loaded on your system.",!! S XQUIT="" Q

 I '$O(^ENG("SP",0)) W *7,!!,"'Eng Space' File - #6928 has not been populated on your system.",!! S XQUIT="" Q

 ;CHOOSE SORT BY FIELD: BUILDING NUMBER OR SERVICE

CHS W !!,"You may choose to SORT by:",!!,"1.  Building number.",!?5,"OR",!,"2.  Service.",!!,"Select a number (1 or 2): "

 R CHS:DTIME G:'$T!("^"[CHS) EXIT I CHS'?1N!(CHS<1)!(CHS>2) W !!,*7,"You MUST answer ""1"" or ""2""." G CHS

 ;IF CHS=2, THEN SORT BY SERVICE; ELSE SORT BY BUILDING NUMBER

DIP S DIC="^ENG(""SP"",",L=0,DHD="@" S BY=$S(CHS=2:"1.5",1:".5")

 S FLDS="""ROOM #: "";S1,.01,""SERVICE: "";C40,1.5,""FUNCTION: "";C1,2.5,""SQ.FT.: "";C40,NET SQ.FT.,""BLDG #: "";C1,.5"

 D EN1^DIP

EXIT K B,BY,CHS,DHD,DIC,ECT1,FLDS,L,P,X

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ECTASPC   971     printed  Apr 23, 2025@18:16:40                                                                                                                                                                                                      Page 2

ECTASPC   ;B'ham ISC/PTD-Space Survey by Service or Building Number ;01/29/91 08:00

V         ;;1.05;INTERIM MANAGEMENT SUPPORT;**6**;

 +1        IF '$DATA(^ENG("SP"))

               WRITE *7,!!?29,"OPTION IS UNAVAILABLE!",!,"The 'Eng Space' File - #6928 is not loaded on your system.",!!

               SET XQUIT=""

               QUIT 

 +2        IF '$ORDER(^ENG("SP",0))

               WRITE *7,!!,"'Eng Space' File - #6928 has not been populated on your system.",!!

               SET XQUIT=""

               QUIT 

 +3       ;CHOOSE SORT BY FIELD: BUILDING NUMBER OR SERVICE

CHS        WRITE !!,"You may choose to SORT by:",!!,"1.  Building number.",!?5,"OR",!,"2.  Service.",!!,"Select a number (1 or 2): "

 +1        READ CHS:DTIME

           if '$TEST!("^"[CHS)

               GOTO EXIT

           IF CHS'?1N!(CHS<1)!(CHS>2)

               WRITE !!,*7,"You MUST answer ""1"" or ""2""."

               GOTO CHS

 +2       ;IF CHS=2, THEN SORT BY SERVICE; ELSE SORT BY BUILDING NUMBER

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

           SET L=0

           SET DHD="@"

           SET BY=$SELECT(CHS=2:"1.5",1:".5")

 +1        SET FLDS="""ROOM #: "";S1,.01,""SERVICE: "";C40,1.5,""FUNCTION: "";C1,2.5,""SQ.FT.: "";C40,NET SQ.FT.,""BLDG #: "";C1,.5"

 +2        DO EN1^DIP

EXIT       KILL B,BY,CHS,DHD,DIC,ECT1,FLDS,L,P,X

 +1        QUIT 

 +2       ;