| 1 | A1B2STAT ;ALB/AAS - ODS SYSTEM STATUS SCREEN ; 1/14/91
|
|---|
| 2 | ;;Version 1.55 (local for MAS v5 sites);;
|
|---|
| 3 | ;
|
|---|
| 4 | % S U="^" D HOME^%ZIS
|
|---|
| 5 | ;
|
|---|
| 6 | W @IOF,"Operation Desert Shield - Software Status"
|
|---|
| 7 | S X="",$P(X,"=",IOM)="" W !,X
|
|---|
| 8 | S A1B2N=$S($D(^A1B2(11500.5,1,0)):^(0),1:"")
|
|---|
| 9 | W !,"ODS Software Active ........................ ",$S($P(A1B2N,"^",2):"YES",1:"NO")
|
|---|
| 10 | W !,"ODS Software Activation date ............... " S Y=$P(A1B2N,"^",3) D DT^DIQ
|
|---|
| 11 | W !,"Date of last ODS Rollup .................... " S Y=$P(A1B2N,"^",4) D DT^DIQ
|
|---|
| 12 | W !,"Status Last Rollup ......................... " I $P(A1B2N,"^",5)]"" W $P($P($P(^DD(11500.5,.05,0),"^",3),$P(A1B2N,"^",5)_":",2),";",1)
|
|---|
| 13 | W !,"Message sent to ............................ " I $P(A1B2N,"^",6),$D(^DIC(4.2,$P(A1B2N,"^",6),0)) W $P(^DIC(4.2,$P(A1B2N,"^",6),0),"^")
|
|---|
| 14 | LAST W !!,"Since Midnight Last Night" D CALC
|
|---|
| 15 | W !,"-------------------------"
|
|---|
| 16 | W !,"Number Patients in Last Rollup ............. ",C(.1)
|
|---|
| 17 | W !,"Number Admissions in Last Rollup ........... ",C(.2)
|
|---|
| 18 | W !,"Number Displaced VA Pts in Last Rollup ..... ",C(.3)
|
|---|
| 19 | W !,"Number Registered ODS Pts in Last Rollup ... ",C(.4)
|
|---|
| 20 | TOT W !!,"Total Entries in ODS files"
|
|---|
| 21 | W !,"--------------------------"
|
|---|
| 22 | W !,"ODS Patients ............................... ",$S($D(^A1B2(11500.1,0)):$P(^(0),"^",4),1:"")
|
|---|
| 23 | W !,"ODS Admissions ............................. ",$S($D(^A1B2(11500.2,0)):$P(^(0),"^",4),1:"")
|
|---|
| 24 | W !,"ODS Displaced Patients ..................... ",$S($D(^A1B2(11500.3,0)):$P(^(0),"^",4),1:"")
|
|---|
| 25 | W !,"ODS Registrations .......................... ",$S($D(^A1B2(11500.4,0)):$P(^(0),"^",4),1:"")
|
|---|
| 26 | ;
|
|---|
| 27 | W !! S DIR(0)="E" D ^DIR
|
|---|
| 28 | END K A1B2N,DIR,X,Y,A1B2FI,C,I,J
|
|---|
| 29 | Q
|
|---|
| 30 | ;
|
|---|
| 31 | CALC ; -- count entries rolled up since midnight
|
|---|
| 32 | F I=.1:.1:.4 S A1B2FI=11500+I S C(I)=0,X=DT F J=0:0 S X=$O(^A1B2(A1B2FI,"AXDT",X)) Q:'X!(X>(DT+.99)) S C(I)=C(I)+1
|
|---|
| 33 | Q
|
|---|
