XTERSUM4.m

XTERSUM4 ;ISF/RWF - Find error frequece ;05/27/10  14:25

 ;;8.0;KERNEL;**431**;;Build 38

 ;Per VHA Directive 2004-038, this routine should not be modified.

 Q

 ;

SHOW ;Show the top error

 N DIR,XTERMAX,DIRUT,DTOUT,DUOUT,ZTSAVE

 S DIR(0)="N^1:999",DIR("A")="Number of Errors to show",DIR("B")=5

 D ^DIR Q:$D(DIRUT)

 S XTERMAX=Y,ZTSAVE("XTERMAX")=""

 D EN^XUTMDEVQ("DQ^XTERSUM4","Top Errors",.ZTSAVE)

 Q

 ;

DQ N X,D0,TOP,MAX,I

 S D0=0,U="^",MAX=$G(XTERMAX,5)

 F  S D0=$O(^%ZTER(3.077,D0)) Q:'D0  D CHECK(D0,.TOP)

 S I="A",C=1

 W "Top ",MAX," Most Common Errors",?45,$$HTE^XLFDT($H),!

 F  S I=$O(TOP(I),-1),J="" Q:('I)!(C>MAX)  F  S J=$O(TOP(I,J),-1)  Q:('J)!(C>MAX)  S C=C+1,D0=J D SHOW1(D0)

 Q

 ;

CHECK(D0,TOP) ;

 N I,X,AR

 S X=$$SUMALL(D0,.AR),TOP(X,D0)=0

 Q

 ;

SHOW1(D0) ;Show 1 error

 N X,AR,I,J

 I $Y+10>IOSL D WAIT Q:$D(DIRUT)  W @IOF

 S X=^%ZTER(3.077,D0,0)

 W !!,"Error: ",$P(X,U,1),?45,"Total Count: ",$$SUMALL(D0,.AR)

 W !,"First Seen: ",$$FMTE^XLFDT($P(X,U,2)),?45,"Last Seen: ",$$FMTE^XLFDT($P(X,U,3))

 Q:$D(AR)<10

 W !,"Distribution over ",+AR," days"

 S RANGE=""

 F J=3:-1:0 W !,?5,$S(J:J*10,1:">0")," " F I=1:1:24 W $S('AR(I):" ",AR(I)'<(J*10):"x",1:" ")

 W !,"  Time: 1--4---8--12--16--20--24"

 Q

 ;

SUMALL(IEN,RET) ;Check one error

 N H,TOTAL,CNT,T,I,X

 S H=0,TOTAL=0,CNT=0

 F  S H=$O(^%ZTER(3.077,IEN,4,H)) Q:'H  S TOTAL=TOTAL+$$SUM1(.RET,IEN,H),CNT=CNT+1

 S RET=CNT

 Q TOTAL

 ;

SUM1(RET,IEN,H) ;Sum over one day, return array

 ;New at caller

 S X=$G(^%ZTER(3.077,IEN,4,H,0)),T=0

 I $L(X) F I=1:1:24 S RET(I)=$G(RET(I))+$P(X,"~",I),T=T+$P(X,"~",I)

 Q T

 ;

WAIT ;Wait at end of page

 Q:$E(IOST,1)="P"

 N DIR

 S DIR(0)="E" D ^DIR

 Q

XTERSUM4  ;ISF/RWF - Find error frequece ;05/27/10  14:25

 +1       ;;8.0;KERNEL;**431**;;Build 38

 +2       ;Per VHA Directive 2004-038, this routine should not be modified.

 +3        QUIT 

 +4       ;

SHOW      ;Show the top error

 +1        NEW DIR,XTERMAX,DIRUT,DTOUT,DUOUT,ZTSAVE

 +2        SET DIR(0)="N^1:999"

           SET DIR("A")="Number of Errors to show"

           SET DIR("B")=5

 +3        DO ^DIR

           IF $DATA(DIRUT)

               QUIT 

 +4        SET XTERMAX=Y

           SET ZTSAVE("XTERMAX")=""

 +5        DO EN^XUTMDEVQ("DQ^XTERSUM4","Top Errors",.ZTSAVE)

 +6        QUIT 

 +7       ;

DQ         NEW X,D0,TOP,MAX,I

 +1        SET D0=0

           SET U="^"

           SET MAX=$GET(XTERMAX,5)

 +2        FOR 

               SET D0=$ORDER(^%ZTER(3.077,D0))

               IF 'D0

                   QUIT 

               DO CHECK(D0,.TOP)

 +3        SET I="A"

           SET C=1

 +4        WRITE "Top ",MAX," Most Common Errors",?45,$$HTE^XLFDT($HOROLOG),!

 +5        FOR 

               SET I=$ORDER(TOP(I),-1)

               SET J=""

               IF ('I)!(C>MAX)

                   QUIT 

               FOR 

                   SET J=$ORDER(TOP(I,J),-1)

                   IF ('J)!(C>MAX)

                       QUIT 

                   SET C=C+1

                   SET D0=J

                   DO SHOW1(D0)

 +6        QUIT 

 +7       ;

CHECK(D0,TOP) ;

 +1        NEW I,X,AR

 +2        SET X=$$SUMALL(D0,.AR)

           SET TOP(X,D0)=0

 +3        QUIT 

 +4       ;

SHOW1(D0) ;Show 1 error

 +1        NEW X,AR,I,J

 +2        IF $Y+10>IOSL

               DO WAIT

               IF $DATA(DIRUT)

                   QUIT 

               WRITE @IOF

 +3        SET X=^%ZTER(3.077,D0,0)

 +4        WRITE !!,"Error: ",$PIECE(X,U,1),?45,"Total Count: ",$$SUMALL(D0,.AR)

 +5        WRITE !,"First Seen: ",$$FMTE^XLFDT($PIECE(X,U,2)),?45,"Last Seen: ",$$FMTE^XLFDT($PIECE(X,U,3))

 +6        IF $DATA(AR)<10

               QUIT 

 +7        WRITE !,"Distribution over ",+AR," days"

 +8        SET RANGE=""

 +9        FOR J=3:-1:0

               WRITE !,?5,$SELECT(J:J*10,1:">0")," "

               FOR I=1:1:24

                   WRITE $SELECT('AR(I):" ",AR(I)'<(J*10):"x",1:" ")

 +10       WRITE !,"  Time: 1--4---8--12--16--20--24"

 +11       QUIT 

 +12      ;

SUMALL(IEN,RET) ;Check one error

 +1        NEW H,TOTAL,CNT,T,I,X

 +2        SET H=0

           SET TOTAL=0

           SET CNT=0

 +3        FOR 

               SET H=$ORDER(^%ZTER(3.077,IEN,4,H))

               IF 'H

                   QUIT 

               SET TOTAL=TOTAL+$$SUM1(.RET,IEN,H)

               SET CNT=CNT+1

 +4        SET RET=CNT

 +5        QUIT TOTAL

 +6       ;

SUM1(RET,IEN,H) ;Sum over one day, return array

 +1       ;New at caller

 +2        SET X=$GET(^%ZTER(3.077,IEN,4,H,0))

           SET T=0

 +3        IF $LENGTH(X)

               FOR I=1:1:24

                   SET RET(I)=$GET(RET(I))+$PIECE(X,"~",I)

                   SET T=T+$PIECE(X,"~",I)

 +4        QUIT T

 +5       ;

WAIT      ;Wait at end of page

 +1        IF $EXTRACT(IOST,1)="P"

               QUIT 

 +2        NEW DIR

 +3        SET DIR(0)="E"

           DO ^DIR

 +4        QUIT