Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ENSP3

ENSP3.m

Go to the documentation of this file.
  1. ENSP3 ;(WCIOFO)/WDS@CHARLESTON,SAB-DISPLAY ROOM DATA (CONT'D) ;8/16/1999
  1. ;;7.0;ENGINEERING;**62**;Aug 17, 1993
  1. ;
  1. ;EXPECTS XY,DUZ(0)
  1. ;CALLED BY ENSP2
  1. TOP ;D:'($D(ENLO)&$D(ENHI)) INIT^EN
  1. D:'($D(IOINLOW)&$D(IOINHI)) ZIS^ENUTL
  1. S DIC="^ENG(""SP"","
  1. S:$D(J)=0 J=0
  1. W ?28 D W("SINGLE ROOM DATA DISPLAY") W !
  1. W ! D W(" 1) ") W "ROOM NO. : " D W(EN(1)) W ?39 D W(" 2) ") W "BUILDING #: " D W(EN(2))
  1. W ! D W(" 3) ") W "WING : " D W(EN(3)) W ?39 D W(" 4) ") W "SERVICE : " D W(EN(4))
  1. W ! D W(" 5) ") W "ROOM KEY : " D W(EN(5)) W ?39 D W(" 6) ") W "FUNCTION : " D W(EN(6))
  1. TOP2 W ! D W(" 7) ") W "NO. OF BED: " D W(EN(10)) W ?39 D W(" 8) ") W "SPEC CHAR.: " D W(EN(11))
  1. TOP4 W !
  1. W ! D W(" 9) ") W "LENGTH : " D W(EN(7)) W ?27 D W("10) ") W "WIDTH : " D W(EN(8)) W ?54 D W("11) ") W "NET SF : " D W(EN(9))
  1. W ! D W("12) ") W "WALL : " D W(EN(12)) W ?27 D W("13) ") W "FLOOR : " D W(EN(13)) W ?54 D W("14) ") W "CEILING:" D W(EN(14))
  1. W ! D W("15) ") W "REPL.DT: " S X=EN(15) D PDT D W(X) W ?27 D W("16) ") W "REPL.DT: " S X=EN(16) D PDT D W(X) W ?54 D W("17) ") W "REPL.DT:" S X=EN(17) D PDT D W(X)
  1. LITE W !
  1. W ! D W("18) ") W "LIGHTING : " D W(EN(18,1)) W ?31,"QUANTITY : " D W(EN(18,2)) W ?58,"WATTAGE : " D W(EN(18,3))
  1. I $D(EN(19,1)) W !,?16 D W(EN(19,1)) W ?43 D W(EN(19,2)) W ?70 D W(EN(19,3))
  1. I $D(EN(20,1)) W !,?16 D W(EN(20,1)) W ?43 D W(EN(20,2)) W ?70 D W(EN(20,3))
  1. TOP15 W !
  1. W ! D W("19) ") W "WINDOW QTY: " D W(EN(21)) W ?41 D W("20) ") W "WINDOW TYPE: " D W(EN(22))
  1. W ! D W("21) ") W "DRAPE NO. : " D W(EN(23)) W ?41 D W("22) ") W "CUB. CTNS. : " D W(EN(24))
  1. W ! D W("23) ") W "DOOR QTY : " D W(EN(25)) W ?41 D W("24) ") W "RCS 10-0141: " D W(EN(26))
  1. W ! D W("25) ") W "UTILITIES : " D W(EN(27))
  1. I J-1>27 F I=28:1:J-1 W ! D W(" * ") W "UTILITIES : " D W(EN(I)) D:I=29 MSG
  1. W !
  1. W ! D W("26) ") W "COMMENTS: "
  1. WCO I $D(^ENG("SP",DA,3)) D
  1. . S DIWL=15,DIWR=79,DIWF="" K ^UTILITY($J,"W")
  1. . S ENNX=0 F S ENNX=$O(^ENG("SP",DA,3,ENNX)) Q:'ENNX I $D(^(ENNX,0))>0 S X=^(0) D ^DIWP
  1. . I $O(^UTILITY($J,"W",DIWL,1)),IOSL'>30 D HOLD Q:$E(X)="^"
  1. . W IOINHI S ENNX=0 F S ENNX=$O(^UTILITY($J,"W",DIWL,ENNX)) Q:'ENNX W !,?DIWL,^(ENNX,0) I (IOSL-$Y)'>2 D Q:$E(X)="^"
  1. .. W IOINLOW D HOLD
  1. .. W:$E(X)'="^" IOINHI
  1. . W IOINLOW
  1. SYN W !
  1. W ! D W("27)") W " SYNONYM : " D W(EN("SYN"))
  1. OKEY I $Y+3>IOSL D MSG
  1. W ! D W("28)") W " OTHER KEYS: "
  1. S I=0 F S I=$O(EN("OKEY",I)) Q:'I D
  1. . W:I>1 ! W ?16 D W(EN("OKEY",I))
  1. WAIT K EN,ENLTH,ENORD,I,J,K,ENNU,ENNX,X,DIWL,DIWR,DIWF
  1. I $D(ZTQUEUED) S ZTREQ="@" W @IOF Q
  1. I $D(A),A="...PRT..." W:IO'=IO(0) @IOF Q ;WDS/CHA 6.41
  1. W !,"Choose " W $S($D(^XUSEC("ENROOM",DUZ)):"Item to Enter/Edit (2-28, ",1:"(") W "D(DISPLAY), P(PRINT)): EXIT// " R A:DTIME
  1. REPEAT I A=""!(A="^") W !!,"Want to view another " S %=1 D YN^DICN G:%=1 ENT^ENSP2 K A Q
  1. I A=""!(A="^") K A Q
  1. I A="P" G PRT
  1. I A="D" W @IOF G RPT
  1. I A<29,(A>1) S DR=$P(".5^1^1.5^2^2.6^5^6^3^3.5^4.5^7^8^9^7.5^8.5^9.5^10^11^11.5^12^13^13.5^16^14^17^18^2.1","^",A-1) G SDA
  1. G WAIT
  1. MSG I $E(IOST,1,2)="C-" W !,?10,"Press <RETURN> to continue. " R R:DTIME Q
  1. Q
  1. PRT ;PRINT SPACE SCREEN DATA
  1. S ENLOW=IOINLOW,ENHI=IOINHI S IOINLOW="",IOINHI=""
  1. S A="...PRT..." D DEV^ENLIB G:POP PRT1 G:'$D(IO("Q")) PRT0
  1. K IO("Q") S ZTIO=ION,ZTRTN="START^ENSP2",ZTSAVE("EN*")="",ZTSAVE("DA")="",ZTSAVE("A")="",ZTDESC="Single Room Data Display" D ^%ZTLOAD K ZTSK
  1. D ^%ZISC S IOINLOW=ENLOW,IOINHI=ENHI K ENLOW,ENHI,A G WAIT
  1. PRT0 U IO D START^ENSP2 D:IO'=IO(0) ^%ZISC
  1. PRT1 S IOINLOW=ENLOW,IOINHI=ENHI K ENLOW,ENHI,A
  1. D HOME^%ZIS G WAIT
  1. RPT G START^ENSP2
  1. SDA S X=DIC_DA_")" L +@X:1 I $T=0 W !!,*7,"THIS ENTRY IS BEING EDITED BY ANOTHER USER. TRY LATER." G WAIT
  1. TEST I '$D(^XUSEC("ENROOM",DUZ)) W !,"** Sorry, you seem to lack the appropriate Security Key (ENROOM) **",*7 G WAIT
  1. ED D ^DIE L -@(DIC_DA_")") G WAIT
  1. PDT S:X'="" X=$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3) Q
  1. ;
  1. HOLD S X="" I $E(IOST,1,2)="C-" D Q
  1. . W !,"Press <RETURN> to continue, '^' to escape..."
  1. . R X:DTIME
  1. . S $Y=0
  1. W @IOF
  1. Q
  1. ;
  1. W(ENDATA) ;Bold ENDATA
  1. Q:$G(ENDATA)=""
  1. N X
  1. S X=$X W IOINHI S $X=X W ENDATA
  1. S X=$X W IOINLOW S $X=X
  1. Q
  1. ;ENSP3