- BDW1VBLL ;IHS/CMI/LAB - Display log of dw visit backload;
- ;;1.0;IHS DATA WAREHOUSE;;JAN 23, 2006
- ;
- EN1 ;
- W:$D(IOF) @IOF
- K BDWQUIT
- W !!,"Display DATA WAREHOUSE EXPORT Log Entry",!
- S DIC="^BDWBLOG(",DIC("A")="Enter Encounter Backload Log Entry: ",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^BDW1VBLL",XBRC="PROC^BDW1VBLL",XBRX="XIT^BDW1VBLL",XBNS="BDW"
- D ^XBDBQUE
- D XIT
- Q
- BROWSE ;
- D VIEWR^XBLM("PRINT^BDW1VBLL","Data Warehouse Visit Backload Log Display")
- Q
- XIT ;EP
- D FULL^VALM1 W:$D(IOF) @IOF
- K BDWLOG,BDWREC
- Q
- PROC ;
- Q
- PRINT ;
- W:$D(IOF) @IOF W !?19,"DATA WAREHOUSE ENCOUNTER BACKLOAD LOG REPORT"
- W !?7,"Information for Log Entry ",BDWLOG," Beginning Date: ",$$FMTE^XLFDT($P(^BDWBLOG(BDWLOG,0),U))
- S BDWREC=^BDWBLOG(BDWLOG,0)
- W !!?30,"Number:",?40,BDWLOG
- W !?22,"Beginning Date:",?40,$$FMTE^XLFDT($P(BDWREC,U))
- W !?25,"Ending Date:",?40,$$FMTE^XLFDT($P(BDWREC,U,2))
- W !?17,"Run Start Date/Time:",?40,$$FMTE^XLFDT($P(BDWREC,U,3))
- W !?18,"Run Stop Date/Time:",?40,$$FMTE^XLFDT($P(BDWREC,U,4))
- W !?22,"Total Run Time:",?40,$$VAL^XBDIQ1(90214,BDWLOG,.13)
- W !?24,"Run Location:",?40,$$VAL^XBDIQ1(90214,BDWLOG,.09)
- W !?15,"Message Header Record:",?40,$$VAL^XBDIQ1(90214,BDWLOG,.12)
- W !?14,"Message Trailer Record:",?40,$$VAL^XBDIQ1(90214,BDWLOG,.14)
- W !?17,"Transmission Status:",?40,$$VAL^XBDIQ1(90214,BDWLOG,.15)
- W !!?4,"Total Number of Visits Processed:",?40,$$VAL^XBDIQ1(90214,BDWLOG,.08)
- W !?5,"Total Number of Visits Exported: ",?40,$$VAL^XBDIQ1(90214,BDWLOG,.18)
- I $Y>(IOSL-3) D FF Q:$D(BDWQUIT)
- I $P($G(^BDWBLOG(BDWLOG,31)),U,3) W !?14,"Deleted visits skipped:",?40,$$VAL^XBDIQ1(90214,BDWLOG,3103)
- I $Y>(IOSL-3) D FF Q:$D(BDWQUIT)
- I $P($G(^BDWBLOG(BDWLOG,31)),U,2) W !?7,"Zero dep entry visits skipped:",?40,$$VAL^XBDIQ1(90214,BDWLOG,3102)
- I $Y>(IOSL-3) D FF Q:$D(BDWQUIT)
- I $P($G(^BDWBLOG(BDWLOG,31)),U,8) W !?18,"MFI visits skipped:",?40,$$VAL^XBDIQ1(90214,BDWLOG,3108)
- I $Y>(IOSL-3) D FF Q:$D(BDWQUIT)
- I $P($G(^BDWBLOG(BDWLOG,31)),U,4) W !?11,"NO PATIENT visits skipped:",?40,$$VAL^XBDIQ1(90214,BDWLOG,3104)
- I $Y>(IOSL-3) D FF Q:$D(BDWQUIT)
- I $P($G(^BDWBLOG(BDWLOG,31)),U,5) W !?10,"NO LOCATION visits skipped:",?40,$$VAL^XBDIQ1(90214,BDWLOG,3105)
- I $Y>(IOSL-3) D FF Q:$D(BDWQUIT)
- I $P($G(^BDWBLOG(BDWLOG,31)),U,6) W !?5,"NO TYPE OF VISIT visits skipped:",?40,$$VAL^XBDIQ1(90214,BDWLOG,3106)
- I $Y>(IOSL-3) D FF Q:$D(BDWQUIT)
- I $P($G(^BDWBLOG(BDWLOG,32)),U,7) W !?1,"NO SERVICE CATEGORY visits skipped:",?40,$$VAL^XBDIQ1(90214,BDWLOG,3107)
- I $Y>(IOSL-3) D FF Q:$D(BDWQUIT)
- I $P($G(^BDWBLOG(BDWLOG,31)),U,1) W !?9,"DEMO PATIENT visits skipped:",?40,$$VAL^XBDIQ1(90214,BDWLOG,3101)
- TEXT ;
- I $Y>(IOSL-3) D FF Q:$D(BDWQUIT)
- 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
- BDW1VBLL ;IHS/CMI/LAB - Display log of dw visit backload;
- +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="^BDWBLOG("
- SET DIC("A")="Enter Encounter Backload Log Entry: "
- 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^BDW1VBLL"
- SET XBRC="PROC^BDW1VBLL"
- SET XBRX="XIT^BDW1VBLL"
- SET XBNS="BDW"
- +10 DO ^XBDBQUE
- +11 DO XIT
- +12 QUIT
- BROWSE ;
- +1 DO VIEWR^XBLM("PRINT^BDW1VBLL","Data Warehouse Visit Backload Log Display")
- +2 QUIT
- XIT ;EP
- +1 DO FULL^VALM1
- IF $DATA(IOF)
- WRITE @IOF
- +2 KILL BDWLOG,BDWREC
- +3 QUIT
- PROC ;
- +1 QUIT
- PRINT ;
- +1 IF $DATA(IOF)
- WRITE @IOF
- WRITE !?19,"DATA WAREHOUSE ENCOUNTER BACKLOAD LOG REPORT"
- +2 WRITE !?7,"Information for Log Entry ",BDWLOG," Beginning Date: ",$$FMTE^XLFDT($PIECE(^BDWBLOG(BDWLOG,0),U))
- +3 SET BDWREC=^BDWBLOG(BDWLOG,0)
- +4 WRITE !!?30,"Number:",?40,BDWLOG
- +5 WRITE !?22,"Beginning Date:",?40,$$FMTE^XLFDT($PIECE(BDWREC,U))
- +6 WRITE !?25,"Ending Date:",?40,$$FMTE^XLFDT($PIECE(BDWREC,U,2))
- +7 WRITE !?17,"Run Start Date/Time:",?40,$$FMTE^XLFDT($PIECE(BDWREC,U,3))
- +8 WRITE !?18,"Run Stop Date/Time:",?40,$$FMTE^XLFDT($PIECE(BDWREC,U,4))
- +9 WRITE !?22,"Total Run Time:",?40,$$VAL^XBDIQ1(90214,BDWLOG,.13)
- +10 WRITE !?24,"Run Location:",?40,$$VAL^XBDIQ1(90214,BDWLOG,.09)
- +11 WRITE !?15,"Message Header Record:",?40,$$VAL^XBDIQ1(90214,BDWLOG,.12)
- +12 WRITE !?14,"Message Trailer Record:",?40,$$VAL^XBDIQ1(90214,BDWLOG,.14)
- +13 WRITE !?17,"Transmission Status:",?40,$$VAL^XBDIQ1(90214,BDWLOG,.15)
- +14 WRITE !!?4,"Total Number of Visits Processed:",?40,$$VAL^XBDIQ1(90214,BDWLOG,.08)
- +15 WRITE !?5,"Total Number of Visits Exported: ",?40,$$VAL^XBDIQ1(90214,BDWLOG,.18)
- +16 IF $Y>(IOSL-3)
- DO FF
- IF $DATA(BDWQUIT)
- QUIT
- +17 IF $PIECE($GET(^BDWBLOG(BDWLOG,31)),U,3)
- WRITE !?14,"Deleted visits skipped:",?40,$$VAL^XBDIQ1(90214,BDWLOG,3103)
- +18 IF $Y>(IOSL-3)
- DO FF
- IF $DATA(BDWQUIT)
- QUIT
- +19 IF $PIECE($GET(^BDWBLOG(BDWLOG,31)),U,2)
- WRITE !?7,"Zero dep entry visits skipped:",?40,$$VAL^XBDIQ1(90214,BDWLOG,3102)
- +20 IF $Y>(IOSL-3)
- DO FF
- IF $DATA(BDWQUIT)
- QUIT
- +21 IF $PIECE($GET(^BDWBLOG(BDWLOG,31)),U,8)
- WRITE !?18,"MFI visits skipped:",?40,$$VAL^XBDIQ1(90214,BDWLOG,3108)
- +22 IF $Y>(IOSL-3)
- DO FF
- IF $DATA(BDWQUIT)
- QUIT
- +23 IF $PIECE($GET(^BDWBLOG(BDWLOG,31)),U,4)
- WRITE !?11,"NO PATIENT visits skipped:",?40,$$VAL^XBDIQ1(90214,BDWLOG,3104)
- +24 IF $Y>(IOSL-3)
- DO FF
- IF $DATA(BDWQUIT)
- QUIT
- +25 IF $PIECE($GET(^BDWBLOG(BDWLOG,31)),U,5)
- WRITE !?10,"NO LOCATION visits skipped:",?40,$$VAL^XBDIQ1(90214,BDWLOG,3105)
- +26 IF $Y>(IOSL-3)
- DO FF
- IF $DATA(BDWQUIT)
- QUIT
- +27 IF $PIECE($GET(^BDWBLOG(BDWLOG,31)),U,6)
- WRITE !?5,"NO TYPE OF VISIT visits skipped:",?40,$$VAL^XBDIQ1(90214,BDWLOG,3106)
- +28 IF $Y>(IOSL-3)
- DO FF
- IF $DATA(BDWQUIT)
- QUIT
- +29 IF $PIECE($GET(^BDWBLOG(BDWLOG,32)),U,7)
- WRITE !?1,"NO SERVICE CATEGORY visits skipped:",?40,$$VAL^XBDIQ1(90214,BDWLOG,3107)
- +30 IF $Y>(IOSL-3)
- DO FF
- IF $DATA(BDWQUIT)
- QUIT
- +31 IF $PIECE($GET(^BDWBLOG(BDWLOG,31)),U,1)
- WRITE !?9,"DEMO PATIENT visits skipped:",?40,$$VAL^XBDIQ1(90214,BDWLOG,3101)
- TEXT ;
- +1 IF $Y>(IOSL-3)
- DO FF
- IF $DATA(BDWQUIT)
- QUIT
- +2 IF $EXTRACT(IOST)'="C"
- QUIT
- +3 IF $DATA(ZTQUEUED)
- QUIT
- +4 SET DIR(0)="FO^1:1"
- SET DIR("A")="Press 'ENTER' to Continue"
- DO ^DIR
- KILL DIR
- IF $DATA(DUOUT)
- SET DIRUT=1
- +5 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
