source: WorldVistAEHR/trunk/r/OPERATIONS_WITH_DESERT_STORM-A1B2/A1B2STAT.m@ 700

Last change on this file since 700 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.8 KB
RevLine 
[613]1A1B2STAT ;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),"^")
14LAST 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)
20TOT 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
28END K A1B2N,DIR,X,Y,A1B2FI,C,I,J
29 Q
30 ;
31CALC ; -- 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
Note: See TracBrowser for help on using the repository browser.