- INHR ;JSH; 22 Dec 93 16:42;Interface - Misc. Reports
- ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001
- ;COPYRIGHT 1991-2000 SAIC
- ;
- STATUS ;Message Statistics by status
- N:'$D(ZTSK) %DT,INSD,INED,ZTSK
- D DATES Q:(INSD<0)!(INED<0)
- S ZTRTN="STATZTSK^INHR" D QUEUE Q:$D(ZTSK) D WAIT^DICD
- STATZTSK ;TaskMan entry point to print message stats by status
- N:'$D(ZTSK) INCNT,S,I,INHD,INI,DUOUT,PAGE
- S I=INSD-.0000001,TYPE="STATUS"
- F S I=$O(^INTHU("B",I)) Q:'I Q:I>INED S X=0 F S X=$O(^INTHU("B",I,X)) Q:'X S S=$P(^INTHU(X,0),U,3) S:S]"" INCNT(S)=$G(INCNT(S))+1
- S INHD(1)=" Status Count"
- W:'$D(ZTSK) @IOF D HEAD
- S C=$P(^DD(4001,.03,0),U,2)
- S INI="" F S INI=$O(INCNT(INI)) Q:INI="" S Y=INI D Y^DIQ W !?3,Y,?35,INCNT(INI)
- K:$D(ZTSK) ^%ZTSK(ZTSK)
- Q
- ;
- DEST ;Message statistics by destination
- N %DT,INSD,INED,ZTSK
- D DATES Q:(INSD<0)!(INED<0)
- S ZTRTN="DESTZTSK^INHR" D QUEUE Q:$D(ZTSK) D WAIT^DICD
- DESTZTSK ;TaskMan entry point to print message stats by destination
- N:'$D(ZTSK) INCNT,S,I,INHD,INI,DUOUT,PAGE
- S I=INSD-.0000001,TYPE="DESTINATION"
- F S I=$O(^INTHU("B",I)) Q:'I Q:I>INED S X=0 F S X=$O(^INTHU("B",I,X)) Q:'X S S=$P(^INTHU(X,0),U,2) S:S]"" INCNT(S)=$G(INCNT(S))+1
- S INHD(1)=" Destination Count"
- W:'$D(ZTSK) @IOF D HEAD
- S INI="" F S INI=$O(INCNT(INI)) Q:'INI D Q:$G(DUOUT)
- . I $Y+3>IOSL D HEAD Q:$G(DUOUT)
- . W !?3,$E($P($G(^INRHD(INI,0)),U),1,40),?48,INCNT(INI)
- K:$D(ZTSK) ^%ZTSK(ZTSK)
- Q
- ;
- DSTAT ;Message statistics by destination/status
- N:'$D(ZTSK) %DT,INSD,INED,ZTSK
- D DATES Q:(INSD<0)!(INED<0)
- S ZTRTN="DSZTSK^INHR" D QUEUE Q:$D(ZTSK) D WAIT^DICD
- DSZTSK ;TaskMan entry point to print message stats by destination/status
- N:'$D(ZTSK) INCNT,S1,S2,I,INHD,IND,INS,TOTAL,DEST,DUOUT,PAGE
- S I=INSD-.0000001,TYPE="DESTINATION/STATUS"
- F S I=$O(^INTHU("B",I)) Q:'I Q:I>INED S X=0 F S X=$O(^INTHU("B",I,X)) Q:'X S S=$P(^INTHU(X,0),U,2,3) S:S?1.N1"^"1.E INCNT(+S,$P(S,U,2))=$G(INCNT(+S,$P(S,U,2)))+1
- S INHD(1)=" Destination Status Count"
- W:'$D(ZTSK) @IOF D HEAD
- S IND="" F S IND=$O(INCNT(IND)) Q:'IND D Q:$G(DUOUT)
- . I $Y+3>IOSL D HEAD Q:$G(DUOUT)
- . S (D,TOTAL)=0,DEST=$E($P($G(^INRHD(IND,0)),U),1,30) W !?3,DEST
- . S INS="" F S INS=$O(INCNT(IND,INS)) Q:INS="" D Q:$G(DUOUT)
- .. I $Y+3>IOSL D HEAD Q:$G(DUOUT) W !?3,DEST S D=0
- .. S C=$P(^DD(4001,.03,0),U,2),Y=INS D Y^DIQ W:D ! W ?35,$E(Y,1,30),?71,INCNT(IND,INS) S TOTAL=TOTAL+INCNT(IND,INS),D=1
- . I $Y+4>IOSL D HEAD Q:$G(DUOUT) W !?3,DEST
- . W !?70,"-----",!?63,"Total:",?71,TOTAL
- K:$D(ZTSK) ^%ZTSK(ZTSK)
- Q
- ;
- HEAD ;Header
- N L,I,X,Y
- K DUOUT S PAGE=+$G(PAGE)
- I IO=IO(0),'$D(ZTSK),$E(IOST,1,2)="C-",PAGE W !,*7 R X:DTIME S:$E(X)=U DUOUT=1
- Q:$G(DUOUT)
- W:PAGE @IOF S PAGE=PAGE+1
- S L="Interface Message Statics by "_TYPE S Y=INSD D DD^%DT S INSD(1)=Y,Y=INED D DD^%DT S INED(1)=Y
- W !?(40-($L(L)\2)),L
- S L="Period: "_INSD(1)_" - "_INED(1) W !?(40-($L(L)\2)),L,?(IOM-10),"Page: ",PAGE
- I $D(INHD)>9 W ! F I=1:1 Q:'$D(INHD(I)) W !,INHD(I)
- W ! K Z S $P(Z,"-",IOM+1)="" W Z
- Q
- ;
- QUEUE ;Select device for output and queue if necessary
- K IOP D ^%ZIS Q:POP S IOP=ION_";"_IOST_";"_IOM_";"_IOSL
- Q:IO=IO(0)
- S ZTIO=IOP
- F I="INSD","INED" S ZTSAVE(I)=""
- D ^%ZTLOAD W !?5,"Request "_$S($D(ZTSK):"",1:"NOT ")_"QUEUED!" Q
- ;
- DATES ;Get start/end dates (with time)
- S %DT("A")="START of Period: ",%DT="ATE" D ^%DT S INSD=+Y I INSD<0 S INED=-1 Q
- S %DT("A")="END of Period: ",%DT="ATE",%DT("B")="NOW" D ^%DT S INED=+Y
- S:INED\1=INED INED=INED+.999999
- Q
- INHR ;JSH; 22 Dec 93 16:42;Interface - Misc. Reports
- +1 ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001
- +2 ;COPYRIGHT 1991-2000 SAIC
- +3 ;
- STATUS ;Message Statistics by status
- +1 IF '$DATA(ZTSK)
- NEW %DT,INSD,INED,ZTSK
- +2 DO DATES
- IF (INSD<0)!(INED<0)
- QUIT
- +3 SET ZTRTN="STATZTSK^INHR"
- DO QUEUE
- IF $DATA(ZTSK)
- QUIT
- DO WAIT^DICD
- STATZTSK ;TaskMan entry point to print message stats by status
- +1 IF '$DATA(ZTSK)
- NEW INCNT,S,I,INHD,INI,DUOUT,PAGE
- +2 SET I=INSD-.0000001
- SET TYPE="STATUS"
- +3 FOR
- SET I=$ORDER(^INTHU("B",I))
- IF 'I
- QUIT
- IF I>INED
- QUIT
- SET X=0
- FOR
- SET X=$ORDER(^INTHU("B",I,X))
- IF 'X
- QUIT
- SET S=$PIECE(^INTHU(X,0),U,3)
- IF S]""
- SET INCNT(S)=$GET(INCNT(S))+1
- +4 SET INHD(1)=" Status Count"
- +5 IF '$DATA(ZTSK)
- WRITE @IOF
- DO HEAD
- +6 SET C=$PIECE(^DD(4001,.03,0),U,2)
- +7 SET INI=""
- FOR
- SET INI=$ORDER(INCNT(INI))
- IF INI=""
- QUIT
- SET Y=INI
- DO Y^DIQ
- WRITE !?3,Y,?35,INCNT(INI)
- +8 IF $DATA(ZTSK)
- KILL ^%ZTSK(ZTSK)
- +9 QUIT
- +10 ;
- DEST ;Message statistics by destination
- +1 NEW %DT,INSD,INED,ZTSK
- +2 DO DATES
- IF (INSD<0)!(INED<0)
- QUIT
- +3 SET ZTRTN="DESTZTSK^INHR"
- DO QUEUE
- IF $DATA(ZTSK)
- QUIT
- DO WAIT^DICD
- DESTZTSK ;TaskMan entry point to print message stats by destination
- +1 IF '$DATA(ZTSK)
- NEW INCNT,S,I,INHD,INI,DUOUT,PAGE
- +2 SET I=INSD-.0000001
- SET TYPE="DESTINATION"
- +3 FOR
- SET I=$ORDER(^INTHU("B",I))
- IF 'I
- QUIT
- IF I>INED
- QUIT
- SET X=0
- FOR
- SET X=$ORDER(^INTHU("B",I,X))
- IF 'X
- QUIT
- SET S=$PIECE(^INTHU(X,0),U,2)
- IF S]""
- SET INCNT(S)=$GET(INCNT(S))+1
- +4 SET INHD(1)=" Destination Count"
- +5 IF '$DATA(ZTSK)
- WRITE @IOF
- DO HEAD
- +6 SET INI=""
- FOR
- SET INI=$ORDER(INCNT(INI))
- IF 'INI
- QUIT
- Begin DoDot:1
- +7 IF $Y+3>IOSL
- DO HEAD
- IF $GET(DUOUT)
- QUIT
- +8 WRITE !?3,$EXTRACT($PIECE($GET(^INRHD(INI,0)),U),1,40),?48,INCNT(INI)
- End DoDot:1
- IF $GET(DUOUT)
- QUIT
- +9 IF $DATA(ZTSK)
- KILL ^%ZTSK(ZTSK)
- +10 QUIT
- +11 ;
- DSTAT ;Message statistics by destination/status
- +1 IF '$DATA(ZTSK)
- NEW %DT,INSD,INED,ZTSK
- +2 DO DATES
- IF (INSD<0)!(INED<0)
- QUIT
- +3 SET ZTRTN="DSZTSK^INHR"
- DO QUEUE
- IF $DATA(ZTSK)
- QUIT
- DO WAIT^DICD
- DSZTSK ;TaskMan entry point to print message stats by destination/status
- +1 IF '$DATA(ZTSK)
- NEW INCNT,S1,S2,I,INHD,IND,INS,TOTAL,DEST,DUOUT,PAGE
- +2 SET I=INSD-.0000001
- SET TYPE="DESTINATION/STATUS"
- +3 FOR
- SET I=$ORDER(^INTHU("B",I))
- IF 'I
- QUIT
- IF I>INED
- QUIT
- SET X=0
- FOR
- SET X=$ORDER(^INTHU("B",I,X))
- IF 'X
- QUIT
- SET S=$PIECE(^INTHU(X,0),U,2,3)
- IF S?1.N1"^"1.E
- SET INCNT(+S,$PIECE(S,U,2))=$GET(INCNT(+S,$PIECE(S,U,2)))+1
- +4 SET INHD(1)=" Destination Status Count"
- +5 IF '$DATA(ZTSK)
- WRITE @IOF
- DO HEAD
- +6 SET IND=""
- FOR
- SET IND=$ORDER(INCNT(IND))
- IF 'IND
- QUIT
- Begin DoDot:1
- +7 IF $Y+3>IOSL
- DO HEAD
- IF $GET(DUOUT)
- QUIT
- +8 SET (D,TOTAL)=0
- SET DEST=$EXTRACT($PIECE($GET(^INRHD(IND,0)),U),1,30)
- WRITE !?3,DEST
- +9 SET INS=""
- FOR
- SET INS=$ORDER(INCNT(IND,INS))
- IF INS=""
- QUIT
- Begin DoDot:2
- +10 IF $Y+3>IOSL
- DO HEAD
- IF $GET(DUOUT)
- QUIT
- WRITE !?3,DEST
- SET D=0
- +11 SET C=$PIECE(^DD(4001,.03,0),U,2)
- SET Y=INS
- DO Y^DIQ
- IF D
- WRITE !
- WRITE ?35,$EXTRACT(Y,1,30),?71,INCNT(IND,INS)
- SET TOTAL=TOTAL+INCNT(IND,INS)
- SET D=1
- End DoDot:2
- IF $GET(DUOUT)
- QUIT
- +12 IF $Y+4>IOSL
- DO HEAD
- IF $GET(DUOUT)
- QUIT
- WRITE !?3,DEST
- +13 WRITE !?70,"-----",!?63,"Total:",?71,TOTAL
- End DoDot:1
- IF $GET(DUOUT)
- QUIT
- +14 IF $DATA(ZTSK)
- KILL ^%ZTSK(ZTSK)
- +15 QUIT
- +16 ;
- HEAD ;Header
- +1 NEW L,I,X,Y
- +2 KILL DUOUT
- SET PAGE=+$GET(PAGE)
- +3 IF IO=IO(0)
- IF '$DATA(ZTSK)
- IF $EXTRACT(IOST,1,2)="C-"
- IF PAGE
- WRITE !,*7
- READ X:DTIME
- IF $EXTRACT(X)=U
- SET DUOUT=1
- +4 IF $GET(DUOUT)
- QUIT
- +5 IF PAGE
- WRITE @IOF
- SET PAGE=PAGE+1
- +6 SET L="Interface Message Statics by "_TYPE
- SET Y=INSD
- DO DD^%DT
- SET INSD(1)=Y
- SET Y=INED
- DO DD^%DT
- SET INED(1)=Y
- +7 WRITE !?(40-($LENGTH(L)\2)),L
- +8 SET L="Period: "_INSD(1)_" - "_INED(1)
- WRITE !?(40-($LENGTH(L)\2)),L,?(IOM-10),"Page: ",PAGE
- +9 IF $DATA(INHD)>9
- WRITE !
- FOR I=1:1
- IF '$DATA(INHD(I))
- QUIT
- WRITE !,INHD(I)
- +10 WRITE !
- KILL Z
- SET $PIECE(Z,"-",IOM+1)=""
- WRITE Z
- +11 QUIT
- +12 ;
- QUEUE ;Select device for output and queue if necessary
- +1 KILL IOP
- DO ^%ZIS
- IF POP
- QUIT
- SET IOP=ION_";"_IOST_";"_IOM_";"_IOSL
- +2 IF IO=IO(0)
- QUIT
- +3 SET ZTIO=IOP
- +4 FOR I="INSD","INED"
- SET ZTSAVE(I)=""
- +5 DO ^%ZTLOAD
- WRITE !?5,"Request "_$SELECT($DATA(ZTSK):"",1:"NOT ")_"QUEUED!"
- QUIT
- +6 ;
- DATES ;Get start/end dates (with time)
- +1 SET %DT("A")="START of Period: "
- SET %DT="ATE"
- DO ^%DT
- SET INSD=+Y
- IF INSD<0
- SET INED=-1
- QUIT
- +2 SET %DT("A")="END of Period: "
- SET %DT="ATE"
- SET %DT("B")="NOW"
- DO ^%DT
- SET INED=+Y
- +3 IF INED\1=INED
- SET INED=INED+.999999
- +4 QUIT
