- 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
