| [613] | 1 | YSCEN21 ;ALB/ASF-TEAM FACE SHEET ;8/19/91 15:46 ;
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;;Dec 30, 1994
|
|---|
| 3 | 1 ;
|
|---|
| 4 | S (P1,P)=0,YSOPT2="LT^YSCEN21" D FS0^YSCEN W !!,W2,?$X+3,$P(^YSG("CEN",W1,0),U,2) Q
|
|---|
| 5 | ;
|
|---|
| 6 | LT ;
|
|---|
| 7 | S G2=^YSG("SUB",T6,0)
|
|---|
| 8 | W !?2,$P(G2,U),?24,$J(YSTM,3) S YSTBO=$P(^YSG("SUB",T6,1),U,3) W:YSTBO ?35,$J(YSTBO,3) W ?45 S X=$P(G2,U,9) D D3^YSCEN2
|
|---|
| 9 | I YSTBO,YSTM+1>YSTBO W ?68,"*FULL*" Q
|
|---|
| 10 | I '$P(^YSG("SUB",T6,1),U,4) W ?69,"--" Q
|
|---|
| 11 | Q:'$D(^YSG("CEN",W1,"ROT"))
|
|---|
| 12 | F ZZ=1:1 S R1=$P(^YSG("CEN",W1,"ROT"),U,ZZ) Q:R1=T6!(R1="")
|
|---|
| 13 | W:T6=R1 ?67,$J(ZZ,3) Q
|
|---|
| 14 | Q
|
|---|
| 15 | END0 ;
|
|---|
| 16 | D KILL^%ZTLOAD
|
|---|
| 17 | END ;
|
|---|
| 18 | K ZTSK,W1,T6,ZZ,J,X,Y,YSTBO,YSTM,Q3,R1,YSOPT1,YSOPT2,J3,K2,X1,YSDTM,C1,G2,K1,P,P1,R,W2,YSDFN,D,DO W !! D ^%ZISC Q
|
|---|
| 19 | ;
|
|---|
| 20 | EN ; Called from MENU option YSCENTCEN
|
|---|
| 21 | ;
|
|---|
| 22 | W !,"MH TEAM CENSUS" R !!,"Display All Wards? N// ",Y:DTIME S YSTOUT='$T,YSUOUT=Y["^" G:YSTOUT END
|
|---|
| 23 | S YSR1="Y",YSR2="N",YSR3="YN" D ^YSCEN14 G EN:Y="?",END:Y=-1
|
|---|
| 24 | I Y?1"Y".E!(Y?1"y".E) S %ZIS="Q" K IOP D ^%ZIS G:POP END G ENALL
|
|---|
| 25 | S Q3=0 D UN^YSCEN2 G:Y<1 END S %ZIS="Q" K IOP D ^%ZIS G:POP END
|
|---|
| 26 | I $D(IO("Q")) K IO("Q") S ZTRTN="ENQ^YSCEN21",ZTSAVE("W1")="",ZTSAVE("W2")="",ZTDESC="YS IP TM" D ^%ZTLOAD W !,$S($D(ZTSK):"QUEUED",1:"Not queued"),$C(7) G END
|
|---|
| 27 | ENQ ;
|
|---|
| 28 | D H1,1,L1 G:Q3 END0 D WAIT^YSCEN1
|
|---|
| 29 | G END0
|
|---|
| 30 | ENALL ; Called by routine YSCEN
|
|---|
| 31 | ;
|
|---|
| 32 | I $D(IO("Q")) K IO("Q") S ZTRTN="ENALQ^YSCEN21",ZTSAVE("W1")="",ZTSAVE("W2")="",ZTDESC="YS IP TM" D ^%ZTLOAD W !,$S($D(ZTSK):"QUEUED",1:"Not queued"),$C(7) G END
|
|---|
| 33 | ENALQ ;
|
|---|
| 34 | S Q3=0 D H1 S J=0 F S J=$O(^YSG("CEN","AFS",J)) Q:'J S W2=$O(^YSG("CEN","AFS",J,0)),W1=W2 I '$P(^YSG("CEN",W1,0),U,13) D:$Y+5>IOSL WAIT^YSCEN1,H1 Q:Q3 D 1,L1
|
|---|
| 35 | G:Q3 END0 D WAIT^YSCEN1
|
|---|
| 36 | G END0
|
|---|
| 37 | L1 ;
|
|---|
| 38 | S YSOR=0 F S YSOR=$O(^YSG("SUB","AOR",W1,YSOR)) Q:'YSOR S T6=$O(^(YSOR,0)) D:$P(^YSG("SUB",T6,1),U,5)'=1 L2^YSCEN2
|
|---|
| 39 | Q
|
|---|
| 40 | WAIT ;
|
|---|
| 41 | Q:Q3 D WAIT^YSCEN1 Q:Q3 D H1 Q
|
|---|
| 42 | H1 ;
|
|---|
| 43 | S:'$D(Q3) Q3=0 Q:Q3 U IO W @IOF,!?IOM-$L("M H T E A M C E N S U S")\2,"M H T E A M C E N S U S"
|
|---|
| 44 | K Y D ENDTM^YSUTL W ?55,YSDT(1)," ",YSTM
|
|---|
| 45 | W !,"Ward",?22,"current",?32,"operating",?44,"team",!?3,"team",?22,"patients",?34,"beds",?44,"leader",?67,"rotation",! F ZZ=1:1:11 W "-------"
|
|---|
