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
