A1B2STAT ;ALB/AAS - ODS SYSTEM STATUS SCREEN ; 1/14/91
;;Version 1.55 (local for MAS v5 sites);;
;
% S U="^" D HOME^%ZIS
;
W @IOF,"Operation Desert Shield - Software Status"
S X="",$P(X,"=",IOM)="" W !,X
S A1B2N=$S($D(^A1B2(11500.5,1,0)):^(0),1:"")
W !,"ODS Software Active ........................ ",$S($P(A1B2N,"^",2):"YES",1:"NO")
W !,"ODS Software Activation date ............... " S Y=$P(A1B2N,"^",3) D DT^DIQ
W !,"Date of last ODS Rollup .................... " S Y=$P(A1B2N,"^",4) D DT^DIQ
W !,"Status Last Rollup ......................... " I $P(A1B2N,"^",5)]"" W $P($P($P(^DD(11500.5,.05,0),"^",3),$P(A1B2N,"^",5)_":",2),";",1)
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),"^")
LAST W !!,"Since Midnight Last Night" D CALC
W !,"-------------------------"
W !,"Number Patients in Last Rollup ............. ",C(.1)
W !,"Number Admissions in Last Rollup ........... ",C(.2)
W !,"Number Displaced VA Pts in Last Rollup ..... ",C(.3)
W !,"Number Registered ODS Pts in Last Rollup ... ",C(.4)
TOT W !!,"Total Entries in ODS files"
W !,"--------------------------"
W !,"ODS Patients ............................... ",$S($D(^A1B2(11500.1,0)):$P(^(0),"^",4),1:"")
W !,"ODS Admissions ............................. ",$S($D(^A1B2(11500.2,0)):$P(^(0),"^",4),1:"")
W !,"ODS Displaced Patients ..................... ",$S($D(^A1B2(11500.3,0)):$P(^(0),"^",4),1:"")
W !,"ODS Registrations .......................... ",$S($D(^A1B2(11500.4,0)):$P(^(0),"^",4),1:"")
;
W !! S DIR(0)="E" D ^DIR
END K A1B2N,DIR,X,Y,A1B2FI,C,I,J
Q
;
CALC ; -- count entries rolled up since midnight
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
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HA1B2STAT 1836 printed Mar 13, 2024@23:30:20 Page 2
A1B2STAT ;ALB/AAS - ODS SYSTEM STATUS SCREEN ; 1/14/91
+1 ;;Version 1.55 (local for MAS v5 sites);;
+2 ;
% SET U="^"
DO HOME^%ZIS
+1 ;
+2 WRITE @IOF,"Operation Desert Shield - Software Status"
+3 SET X=""
SET $PIECE(X,"=",IOM)=""
WRITE !,X
+4 SET A1B2N=$SELECT($DATA(^A1B2(11500.5,1,0)):^(0),1:"")
+5 WRITE !,"ODS Software Active ........................ ",$SELECT($PIECE(A1B2N,"^",2):"YES",1:"NO")
+6 WRITE !,"ODS Software Activation date ............... "
SET Y=$PIECE(A1B2N,"^",3)
DO DT^DIQ
+7 WRITE !,"Date of last ODS Rollup .................... "
SET Y=$PIECE(A1B2N,"^",4)
DO DT^DIQ
+8 WRITE !,"Status Last Rollup ......................... "
IF $PIECE(A1B2N,"^",5)]""
WRITE $PIECE($PIECE($PIECE(^DD(11500.5,.05,0),"^",3),$PIECE(A1B2N,"^",5)_":",2),";",1)
+9 WRITE !,"Message sent to ............................ "
IF $PIECE(A1B2N,"^",6)
IF $DATA(^DIC(4.2,$PIECE(A1B2N,"^",6),0))
WRITE $PIECE(^DIC(4.2,$PIECE(A1B2N,"^",6),0),"^")
LAST WRITE !!,"Since Midnight Last Night"
DO CALC
+1 WRITE !,"-------------------------"
+2 WRITE !,"Number Patients in Last Rollup ............. ",C(.1)
+3 WRITE !,"Number Admissions in Last Rollup ........... ",C(.2)
+4 WRITE !,"Number Displaced VA Pts in Last Rollup ..... ",C(.3)
+5 WRITE !,"Number Registered ODS Pts in Last Rollup ... ",C(.4)
TOT WRITE !!,"Total Entries in ODS files"
+1 WRITE !,"--------------------------"
+2 WRITE !,"ODS Patients ............................... ",$SELECT($DATA(^A1B2(11500.1,0)):$PIECE(^(0),"^",4),1:"")
+3 WRITE !,"ODS Admissions ............................. ",$SELECT($DATA(^A1B2(11500.2,0)):$PIECE(^(0),"^",4),1:"")
+4 WRITE !,"ODS Displaced Patients ..................... ",$SELECT($DATA(^A1B2(11500.3,0)):$PIECE(^(0),"^",4),1:"")
+5 WRITE !,"ODS Registrations .......................... ",$SELECT($DATA(^A1B2(11500.4,0)):$PIECE(^(0),"^",4),1:"")
+6 ;
+7 WRITE !!
SET DIR(0)="E"
DO ^DIR
END KILL A1B2N,DIR,X,Y,A1B2FI,C,I,J
+1 QUIT
+2 ;
CALC ; -- count entries rolled up since midnight
+1 FOR I=.1:.1:.4
SET A1B2FI=11500+I
SET C(I)=0
SET X=DT
FOR J=0:0
SET X=$ORDER(^A1B2(A1B2FI,"AXDT",X))
if 'X!(X>(DT+.99))
QUIT
SET C(I)=C(I)+1
+2 QUIT