BDWDLOG ; IHS/CMI/LAB - DISPLAY DW EXPORT LOG DATA AUGUST 14, 1992 ;
;;1.0;IHS DATA WAREHOUSE;;JAN 23, 2006
;
EN1 ;
W:$D(IOF) @IOF
K BDWQUIT
W !!,"Display DATA WAREHOUSE EXPORT Log Entry",!
S DIC="^BDWXLOG(",DIC(0)="AEMQ" D ^DIC K DIC I Y=-1 W !!,"Goodbye" G XIT
S BDWLOG=+Y
S DIR(0)="SO^B:BROWSE Output on Screen;P:PRINT Output to Printer",DIR("A")="Do you want to",DIR("B")="B" K DA D ^DIR K DIR
G:$D(DIRUT) XIT
I Y="B" D BROWSE,XIT Q
S XBRP="PRINT^BDWDLOG",XBRC="PROC^BDWDLOG",XBRX="XIT^BDWDLOG",XBNS="BDW"
D ^XBDBQUE
D XIT
Q
BROWSE ;
D VIEWR^XBLM("PRINT^BDWDLOG","Data Warehouse Log Display")
Q
XIT ;EP
D FULL^VALM1
K BDWLOG,BDWREC
Q
PROC ;
Q
PRINT ;
W:$D(IOF) @IOF W !?19,"DATA WAREHOUSE EXPORT LOG REPORT"
W !?7,"Information for Log Entry ",BDWLOG," Beginning Date: ",$$FMTE^XLFDT($P(^BDWXLOG(BDWLOG,0),U))
S BDWREC=^BDWXLOG(BDWLOG,0)
W !!?35,"Number:",?45,BDWLOG
W !?27,"Beginning Date:",?45,$$FMTE^XLFDT($P(BDWREC,U))
W !?30,"Ending Date:",?45,$$FMTE^XLFDT($P(BDWREC,U,2))
W !?22,"Run Start Date/Time:",?45,$$FMTE^XLFDT($P(BDWREC,U,3))
W !?23,"Run Stop Date/Time:",?45,$$FMTE^XLFDT($P(BDWREC,U,4))
W !?33,"Run Time:",?45,$P(BDWREC,U,13)
W !?29,"Run Location:",?45,$$VAL^XBDIQ1(90213,BDWLOG,.09)
W !?30,"Export Type:",?45,$$VAL^XBDIQ1(90213,BDWLOG,.07)
W !?22,"Transmission Status:",?45,$$VAL^XBDIQ1(90213,BDWLOG,.15)
W !!,"Total Number of Registration + Encounter Messages Exported: ",$$VAL^XBDIQ1(90213,BDWLOG,.06)
W !?5,"Number of Registration Messages Sent:",?45,$$VAL^XBDIQ1(90213,BDWLOG,.11)
W !?5,"Total Number of Encounters Processed:",?45,$$VAL^XBDIQ1(90213,BDWLOG,.08)
W !?6,"Total Number of Encounters Exported:",?45,$$VAL^XBDIQ1(90213,BDWLOG,.18)
I $Y>(IOSL-3) D FF Q:$D(BDWQUIT)
W !?13,"Number of Encounters skipped:",?45,$$VAL^XBDIQ1(90213,BDWLOG,.05)
I $Y>(IOSL-3) D FF Q:$D(BDWQUIT)
I $P($G(^BDWXLOG(BDWLOG,31)),U,3) W !?15,"Deleted Encounters skipped:",?45,$$VAL^XBDIQ1(90213,BDWLOG,3103)
I $Y>(IOSL-3) D FF Q:$D(BDWQUIT)
I $P($G(^BDWXLOG(BDWLOG,31)),U,2) W !?8,"Zero dep entry encounters skipped:",?45,$$VAL^XBDIQ1(90213,BDWLOG,3102)
I $Y>(IOSL-3) D FF Q:$D(BDWQUIT)
I $P($G(^BDWXLOG(BDWLOG,31)),U,11) W !?19,"MFI encounters skipped:",?45,$$VAL^XBDIQ1(90213,BDWLOG,3111)
I $Y>(IOSL-3) D FF Q:$D(BDWQUIT)
I $P($G(^BDWXLOG(BDWLOG,31)),U,4) W !?12,"NO PATIENT encounters skipped:",?45,$$VAL^XBDIQ1(90213,BDWLOG,3104)
I $Y>(IOSL-3) D FF Q:$D(BDWQUIT)
I $P($G(^BDWXLOG(BDWLOG,31)),U,5) W !?11,"NO LOCATION encounters skipped:",?45,$$VAL^XBDIQ1(90213,BDWLOG,3105)
I $Y>(IOSL-3) D FF Q:$D(BDWQUIT)
I $P($G(^BDWXLOG(BDWLOG,31)),U,6) W !?6,"NO TYPE OF VISIT encounters skipped:",?45,$$VAL^XBDIQ1(90213,BDWLOG,3106)
I $Y>(IOSL-3) D FF Q:$D(BDWQUIT)
I $P($G(^BDWXLOG(BDWLOG,31)),U,7) W !?3,"NO SERVICE CATEGORY encounters skipped:",?45,$$VAL^XBDIQ1(90213,BDWLOG,3107)
I $Y>(IOSL-3) D FF Q:$D(BDWQUIT)
I $P($G(^BDWXLOG(BDWLOG,31)),U,1) W !?10,"DEMO PATIENT encounters skipped:",?45,$$VAL^XBDIQ1(90213,BDWLOG,3101)
TEXT ;
I $Y>(IOSL-3) D FF Q:$D(BDWQUIT)
W !!,"To list the visits that were skipped, use option DWER."
Q:$E(IOST)'="C"
Q:$D(ZTQUEUED)
S DIR(0)="FO^1:1",DIR("A")="Press 'ENTER' to Continue" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
Q
FF ;
I $E(IOST)="C" S DIR(0)="E",DIR("A")="Press 'ENTER' to continue or '^' to exit" D ^DIR K DIR I $D(DIRUT) S BDWQUIT=1 Q
W:$D(IOF) @IOF
W !?40,"Data Warehouse Transmission Log - Page 2",!!
Q
BDWDLOG ; IHS/CMI/LAB - DISPLAY DW EXPORT LOG DATA AUGUST 14, 1992 ;
+1 ;;1.0;IHS DATA WAREHOUSE;;JAN 23, 2006
+2 ;
EN1 ;
+1 IF $DATA(IOF)
WRITE @IOF
+2 KILL BDWQUIT
+3 WRITE !!,"Display DATA WAREHOUSE EXPORT Log Entry",!
+4 SET DIC="^BDWXLOG("
SET DIC(0)="AEMQ"
DO ^DIC
KILL DIC
IF Y=-1
WRITE !!,"Goodbye"
GOTO XIT
+5 SET BDWLOG=+Y
+6 SET DIR(0)="SO^B:BROWSE Output on Screen;P:PRINT Output to Printer"
SET DIR("A")="Do you want to"
SET DIR("B")="B"
KILL DA
DO ^DIR
KILL DIR
+7 IF $DATA(DIRUT)
GOTO XIT
+8 IF Y="B"
DO BROWSE
DO XIT
QUIT
+9 SET XBRP="PRINT^BDWDLOG"
SET XBRC="PROC^BDWDLOG"
SET XBRX="XIT^BDWDLOG"
SET XBNS="BDW"
+10 DO ^XBDBQUE
+11 DO XIT
+12 QUIT
BROWSE ;
+1 DO VIEWR^XBLM("PRINT^BDWDLOG","Data Warehouse Log Display")
+2 QUIT
XIT ;EP
+1 DO FULL^VALM1
+2 KILL BDWLOG,BDWREC
+3 QUIT
PROC ;
+1 QUIT
PRINT ;
+1 IF $DATA(IOF)
WRITE @IOF
WRITE !?19,"DATA WAREHOUSE EXPORT LOG REPORT"
+2 WRITE !?7,"Information for Log Entry ",BDWLOG," Beginning Date: ",$$FMTE^XLFDT($PIECE(^BDWXLOG(BDWLOG,0),U))
+3 SET BDWREC=^BDWXLOG(BDWLOG,0)
+4 WRITE !!?35,"Number:",?45,BDWLOG
+5 WRITE !?27,"Beginning Date:",?45,$$FMTE^XLFDT($PIECE(BDWREC,U))
+6 WRITE !?30,"Ending Date:",?45,$$FMTE^XLFDT($PIECE(BDWREC,U,2))
+7 WRITE !?22,"Run Start Date/Time:",?45,$$FMTE^XLFDT($PIECE(BDWREC,U,3))
+8 WRITE !?23,"Run Stop Date/Time:",?45,$$FMTE^XLFDT($PIECE(BDWREC,U,4))
+9 WRITE !?33,"Run Time:",?45,$PIECE(BDWREC,U,13)
+10 WRITE !?29,"Run Location:",?45,$$VAL^XBDIQ1(90213,BDWLOG,.09)
+11 WRITE !?30,"Export Type:",?45,$$VAL^XBDIQ1(90213,BDWLOG,.07)
+12 WRITE !?22,"Transmission Status:",?45,$$VAL^XBDIQ1(90213,BDWLOG,.15)
+13 WRITE !!,"Total Number of Registration + Encounter Messages Exported: ",$$VAL^XBDIQ1(90213,BDWLOG,.06)
+14 WRITE !?5,"Number of Registration Messages Sent:",?45,$$VAL^XBDIQ1(90213,BDWLOG,.11)
+15 WRITE !?5,"Total Number of Encounters Processed:",?45,$$VAL^XBDIQ1(90213,BDWLOG,.08)
+16 WRITE !?6,"Total Number of Encounters Exported:",?45,$$VAL^XBDIQ1(90213,BDWLOG,.18)
+17 IF $Y>(IOSL-3)
DO FF
IF $DATA(BDWQUIT)
QUIT
+18 WRITE !?13,"Number of Encounters skipped:",?45,$$VAL^XBDIQ1(90213,BDWLOG,.05)
+19 IF $Y>(IOSL-3)
DO FF
IF $DATA(BDWQUIT)
QUIT
+20 IF $PIECE($GET(^BDWXLOG(BDWLOG,31)),U,3)
WRITE !?15,"Deleted Encounters skipped:",?45,$$VAL^XBDIQ1(90213,BDWLOG,3103)
+21 IF $Y>(IOSL-3)
DO FF
IF $DATA(BDWQUIT)
QUIT
+22 IF $PIECE($GET(^BDWXLOG(BDWLOG,31)),U,2)
WRITE !?8,"Zero dep entry encounters skipped:",?45,$$VAL^XBDIQ1(90213,BDWLOG,3102)
+23 IF $Y>(IOSL-3)
DO FF
IF $DATA(BDWQUIT)
QUIT
+24 IF $PIECE($GET(^BDWXLOG(BDWLOG,31)),U,11)
WRITE !?19,"MFI encounters skipped:",?45,$$VAL^XBDIQ1(90213,BDWLOG,3111)
+25 IF $Y>(IOSL-3)
DO FF
IF $DATA(BDWQUIT)
QUIT
+26 IF $PIECE($GET(^BDWXLOG(BDWLOG,31)),U,4)
WRITE !?12,"NO PATIENT encounters skipped:",?45,$$VAL^XBDIQ1(90213,BDWLOG,3104)
+27 IF $Y>(IOSL-3)
DO FF
IF $DATA(BDWQUIT)
QUIT
+28 IF $PIECE($GET(^BDWXLOG(BDWLOG,31)),U,5)
WRITE !?11,"NO LOCATION encounters skipped:",?45,$$VAL^XBDIQ1(90213,BDWLOG,3105)
+29 IF $Y>(IOSL-3)
DO FF
IF $DATA(BDWQUIT)
QUIT
+30 IF $PIECE($GET(^BDWXLOG(BDWLOG,31)),U,6)
WRITE !?6,"NO TYPE OF VISIT encounters skipped:",?45,$$VAL^XBDIQ1(90213,BDWLOG,3106)
+31 IF $Y>(IOSL-3)
DO FF
IF $DATA(BDWQUIT)
QUIT
+32 IF $PIECE($GET(^BDWXLOG(BDWLOG,31)),U,7)
WRITE !?3,"NO SERVICE CATEGORY encounters skipped:",?45,$$VAL^XBDIQ1(90213,BDWLOG,3107)
+33 IF $Y>(IOSL-3)
DO FF
IF $DATA(BDWQUIT)
QUIT
+34 IF $PIECE($GET(^BDWXLOG(BDWLOG,31)),U,1)
WRITE !?10,"DEMO PATIENT encounters skipped:",?45,$$VAL^XBDIQ1(90213,BDWLOG,3101)
TEXT ;
+1 IF $Y>(IOSL-3)
DO FF
IF $DATA(BDWQUIT)
QUIT
+2 WRITE !!,"To list the visits that were skipped, use option DWER."
+3 IF $EXTRACT(IOST)'="C"
QUIT
+4 IF $DATA(ZTQUEUED)
QUIT
+5 SET DIR(0)="FO^1:1"
SET DIR("A")="Press 'ENTER' to Continue"
DO ^DIR
KILL DIR
IF $DATA(DUOUT)
SET DIRUT=1
+6 QUIT
FF ;
+1 IF $EXTRACT(IOST)="C"
SET DIR(0)="E"
SET DIR("A")="Press 'ENTER' to continue or '^' to exit"
DO ^DIR
KILL DIR
IF $DATA(DIRUT)
SET BDWQUIT=1
QUIT
+2 IF $DATA(IOF)
WRITE @IOF
+3 WRITE !?40,"Data Warehouse Transmission Log - Page 2",!!
+4 QUIT
