BDWSR ; IHS/CMI/LAB - DW REPORT ;
;;1.0;IHS DATA WAREHOUSE;;JAN 23, 2006
;IHS/CMI/LAB - changed TMP to XTMP
;
START ;
W:$D(IOF) @IOF
W !,"********** DATA WAREHOUSE EXPORT SUMMARY REPORT **********",!
W !!,"This report presents a summary of data for a single Data Warehouse ",!,"Export Log entry.",!!
LOG ;
S BDWSR("LOG")=""
K DIC S DIC="^BDWXLOG(",DIC(0)="AEQM" D ^DIC I Y<0 G XIT
S BDWSR("LOG")=+Y
I $P(^BDWXLOG(BDWSR("LOG"),0),U,7)'="R" W !!,"This report can only be run on regular exports, not date range exports.",! G LOG
I '$D(^BDWXLOG(BDWSR("LOG"),21)) W !!,"Visit data has already been purged!!" G LOG
S X=^BDWXLOG(BDWSR("LOG"),0),BDWSR("RUN BEGIN")=$P(X,U),BDWSR("RUN END")=$P(X,U,2),BDWSR("COUNT")=$P(X,U,6),BDWSR("ORIG TX DATE")=$P($P(X,U,3),".")
S Y=BDWSR("RUN BEGIN") X ^DD("DD") S BDWSR("PRINT BEGIN")=Y
S Y=BDWSR("RUN END") X ^DD("DD") S BDWSR("PRINT END")=Y
S BDWSR("VISITS")=$P(^BDWXLOG(BDWSR("LOG"),21,0),U,4)
W !!,"Log entry ",BDWSR("LOG"),", was for date range ",BDWSR("PRINT BEGIN")," through",!,BDWSR("PRINT END")," and exported the following:",!
W ?5,"Patient Registration updates: ",$P(^BDWXLOG(BDWSR("LOG"),0),U,11)
W !?5," PCC Encounters: ",$P(^BDWXLOG(BDWSR("LOG"),0),U,18)
W !?5," Total transactions exported: ",$P(^BDWXLOG(BDWSR("LOG"),0),U,6)
S Y=DT D DD^%DT S BDWSR("DTP")=Y
S BDWS("PROV FILE")=$S($P(^DD(9000010.06,.01,0),U,2)[200:200,1:6)
ZIS ;call to XBDBQUE
S XBRP="PRINT^BDWSR",XBRC="PROCESS^BDWSR",XBRX="XIT^BDWSR",XBNS="BDW"
D ^XBDBQUE
D XIT
Q
PROCESS ; Entry point for Taskman
S BDWJOB=$J,BDWBTH=$H
K ^XTMP("BDWSR",BDWJOB,BDWBTH),^XTMP("BDWSRP",BDWJOB,BDWBTH)
S ^XTMP("BDWSR",0)=$$FMADD^XLFDT(DT,14)_"^"_DT_"^"_"DATA WAREHOUSE SUM REPORT"
S BDWSR("BT")=$H
;D CHKSITE^BDWRDRI
S APCDOVRR=1,BDWSR="BDWSR"
D V^BDWSR1
D SET
S BDWSR("ET")=$H
Q
PRINT ;EP
D ^BDWSRP
K ^XTMP("BDWSR",BDWJOB,BDWBTH),^XTMP("BDWSRP",BDWJOB,BDWBTH)
Q
XIT ;
K DA,DIE,DIC,POP,DIR
D EN^XBVK("BDW")
Q
SET ;EP
S BDWSR("1")="ERRORSC",BDWSR("3")="ERRORS" D SET1
S BDWSR("1")="PROVC",BDWSR("3")="PROV" D SET2
S BDWSR("1")="TYPEC",BDWSR("3")="TYPE" D SET2
S BDWSR("1")="SCC",BDWSR("3")="SC" D SET2
S BDWSR("1")="CLINICC",BDWSR("3")="CLINIC" D SET2
S BDWSR("1")="LOCC",BDWSR("3")="LOC" D SET2
S BDWSR("1")="PROV REM CC",BDWSR("3")="PROV REM" D SET1
S BDWSR("1")="CLINIC REM CC",BDWSR("3")="CLINIC REM" D SET1
S BDWSR("1")="LOC REM CC",BDWSR("3")="LOC REM" D SET1
S BDWSR("1")="SC REM CC",BDWSR("3")="SC REM" D SET1
S BDWSR("1")="TYPE REM CC",BDWSR("3")="TYPE REM" D SET1
S BDWSR("1")="PROV CHA CC",BDWSR("3")="PROV CHA" D SET2
S BDWSR("1")="CLINIC CHA CC",BDWSR("3")="CLINIC CHA" D SET2
S BDWSR("1")="LOC CHA CC",BDWSR("3")="LOC CHA" D SET2
S BDWSR("1")="SC CHA CC",BDWSR("3")="SC CHA" D SET2
S BDWSR("1")="TYPE CHA CC",BDWSR("3")="TYPE CHA" D SET2
S BDWSR("1")="PROV STATDB CC",BDWSR("3")="PROV STATDB" D SET2
S BDWSR("1")="CLINIC STATDB CC",BDWSR("3")="CLINIC STATDB" D SET2
S BDWSR("1")="LOC STATDB CC",BDWSR("3")="LOC STATDB" D SET2
S BDWSR("1")="SC STATDB CC",BDWSR("3")="SC STATDB" D SET2
S BDWSR("1")="TYPE STATDB CC",BDWSR("3")="TYPE STATDB" D SET2
S BDWSR("1")="TYPE ERROR CC",BDWSR("3")="TYPE ERROR" D SET1
S BDWSR("1")="CLINIC ERROR CC",BDWSR("3")="CLINIC ERROR" D SET1
S BDWSR("1")="PROV HOSP CC",BDWSR("3")="PROV HOSP" D SET2
S BDWSR("1")="TYPE HOSP CC",BDWSR("3")="TYPE HOSP" D SET2
S BDWSR("1")="SC HOSP CC",BDWSR("3")="SC HOSP" D SET2
S BDWSR("1")="LOC HOSP CC",BDWSR("3")="LOC HOSP" D SET2
S BDWSR("1")="SC ERROR CC",BDWSR("3")="SC ERROR" D SET1
Q
SET1 ;
S BDWSR("PROC")=""""_BDWSR_""",BDWJOB,BDWBTH,"_""""_"SKIPPED"_""""
S BDWSR("2")="^XTMP("_BDWSR("PROC")_","""_BDWSR("3")_""",X)"
S X="" F S X=$O(@BDWSR("2")) Q:X="" S %=^(X) S ^XTMP("BDWSR",BDWJOB,BDWBTH,"SKIPPED",BDWSR("1"),9999999-%,X)=%
Q
SET2 ;
S BDWSR("PROC")=""""_BDWSR_""",BDWJOB,BDWBTH,"_""""_"GEN"_""""
S BDWSR("2")="^XTMP("_BDWSR("PROC")_","""_BDWSR("3")_""",X)"
S X="" F S X=$O(@BDWSR("2")) Q:X="" S %=^(X) S ^XTMP("BDWSR",BDWJOB,BDWBTH,"GEN",BDWSR("1"),9999999-%,X)=%
Q
BDWSR ; IHS/CMI/LAB - DW REPORT ;
+1 ;;1.0;IHS DATA WAREHOUSE;;JAN 23, 2006
+2 ;IHS/CMI/LAB - changed TMP to XTMP
+3 ;
START ;
+1 IF $DATA(IOF)
WRITE @IOF
+2 WRITE !,"********** DATA WAREHOUSE EXPORT SUMMARY REPORT **********",!
+3 WRITE !!,"This report presents a summary of data for a single Data Warehouse ",!,"Export Log entry.",!!
LOG ;
+1 SET BDWSR("LOG")=""
+2 KILL DIC
SET DIC="^BDWXLOG("
SET DIC(0)="AEQM"
DO ^DIC
IF Y<0
GOTO XIT
+3 SET BDWSR("LOG")=+Y
+4 IF $PIECE(^BDWXLOG(BDWSR("LOG"),0),U,7)'="R"
WRITE !!,"This report can only be run on regular exports, not date range exports.",!
GOTO LOG
+5 IF '$DATA(^BDWXLOG(BDWSR("LOG"),21))
WRITE !!,"Visit data has already been purged!!"
GOTO LOG
+6 SET X=^BDWXLOG(BDWSR("LOG"),0)
SET BDWSR("RUN BEGIN")=$PIECE(X,U)
SET BDWSR("RUN END")=$PIECE(X,U,2)
SET BDWSR("COUNT")=$PIECE(X,U,6)
SET BDWSR("ORIG TX DATE")=$PIECE($PIECE(X,U,3),".")
+7 SET Y=BDWSR("RUN BEGIN")
XECUTE ^DD("DD")
SET BDWSR("PRINT BEGIN")=Y
+8 SET Y=BDWSR("RUN END")
XECUTE ^DD("DD")
SET BDWSR("PRINT END")=Y
+9 SET BDWSR("VISITS")=$PIECE(^BDWXLOG(BDWSR("LOG"),21,0),U,4)
+10 WRITE !!,"Log entry ",BDWSR("LOG"),", was for date range ",BDWSR("PRINT BEGIN")," through",!,BDWSR("PRINT END")," and exported the following:",!
+11 WRITE ?5,"Patient Registration updates: ",$PIECE(^BDWXLOG(BDWSR("LOG"),0),U,11)
+12 WRITE !?5," PCC Encounters: ",$PIECE(^BDWXLOG(BDWSR("LOG"),0),U,18)
+13 WRITE !?5," Total transactions exported: ",$PIECE(^BDWXLOG(BDWSR("LOG"),0),U,6)
+14 SET Y=DT
DO DD^%DT
SET BDWSR("DTP")=Y
+15 SET BDWS("PROV FILE")=$SELECT($PIECE(^DD(9000010.06,.01,0),U,2)[200:200,1:6)
ZIS ;call to XBDBQUE
+1 SET XBRP="PRINT^BDWSR"
SET XBRC="PROCESS^BDWSR"
SET XBRX="XIT^BDWSR"
SET XBNS="BDW"
+2 DO ^XBDBQUE
+3 DO XIT
+4 QUIT
PROCESS ; Entry point for Taskman
+1 SET BDWJOB=$JOB
SET BDWBTH=$HOROLOG
+2 KILL ^XTMP("BDWSR",BDWJOB,BDWBTH),^XTMP("BDWSRP",BDWJOB,BDWBTH)
+3 SET ^XTMP("BDWSR",0)=$$FMADD^XLFDT(DT,14)_"^"_DT_"^"_"DATA WAREHOUSE SUM REPORT"
+4 SET BDWSR("BT")=$HOROLOG
+5 ;D CHKSITE^BDWRDRI
+6 SET APCDOVRR=1
SET BDWSR="BDWSR"
+7 DO V^BDWSR1
+8 DO SET
+9 SET BDWSR("ET")=$HOROLOG
+10 QUIT
PRINT ;EP
+1 DO ^BDWSRP
+2 KILL ^XTMP("BDWSR",BDWJOB,BDWBTH),^XTMP("BDWSRP",BDWJOB,BDWBTH)
+3 QUIT
XIT ;
+1 KILL DA,DIE,DIC,POP,DIR
+2 DO EN^XBVK("BDW")
+3 QUIT
SET ;EP
+1 SET BDWSR("1")="ERRORSC"
SET BDWSR("3")="ERRORS"
DO SET1
+2 SET BDWSR("1")="PROVC"
SET BDWSR("3")="PROV"
DO SET2
+3 SET BDWSR("1")="TYPEC"
SET BDWSR("3")="TYPE"
DO SET2
+4 SET BDWSR("1")="SCC"
SET BDWSR("3")="SC"
DO SET2
+5 SET BDWSR("1")="CLINICC"
SET BDWSR("3")="CLINIC"
DO SET2
+6 SET BDWSR("1")="LOCC"
SET BDWSR("3")="LOC"
DO SET2
+7 SET BDWSR("1")="PROV REM CC"
SET BDWSR("3")="PROV REM"
DO SET1
+8 SET BDWSR("1")="CLINIC REM CC"
SET BDWSR("3")="CLINIC REM"
DO SET1
+9 SET BDWSR("1")="LOC REM CC"
SET BDWSR("3")="LOC REM"
DO SET1
+10 SET BDWSR("1")="SC REM CC"
SET BDWSR("3")="SC REM"
DO SET1
+11 SET BDWSR("1")="TYPE REM CC"
SET BDWSR("3")="TYPE REM"
DO SET1
+12 SET BDWSR("1")="PROV CHA CC"
SET BDWSR("3")="PROV CHA"
DO SET2
+13 SET BDWSR("1")="CLINIC CHA CC"
SET BDWSR("3")="CLINIC CHA"
DO SET2
+14 SET BDWSR("1")="LOC CHA CC"
SET BDWSR("3")="LOC CHA"
DO SET2
+15 SET BDWSR("1")="SC CHA CC"
SET BDWSR("3")="SC CHA"
DO SET2
+16 SET BDWSR("1")="TYPE CHA CC"
SET BDWSR("3")="TYPE CHA"
DO SET2
+17 SET BDWSR("1")="PROV STATDB CC"
SET BDWSR("3")="PROV STATDB"
DO SET2
+18 SET BDWSR("1")="CLINIC STATDB CC"
SET BDWSR("3")="CLINIC STATDB"
DO SET2
+19 SET BDWSR("1")="LOC STATDB CC"
SET BDWSR("3")="LOC STATDB"
DO SET2
+20 SET BDWSR("1")="SC STATDB CC"
SET BDWSR("3")="SC STATDB"
DO SET2
+21 SET BDWSR("1")="TYPE STATDB CC"
SET BDWSR("3")="TYPE STATDB"
DO SET2
+22 SET BDWSR("1")="TYPE ERROR CC"
SET BDWSR("3")="TYPE ERROR"
DO SET1
+23 SET BDWSR("1")="CLINIC ERROR CC"
SET BDWSR("3")="CLINIC ERROR"
DO SET1
+24 SET BDWSR("1")="PROV HOSP CC"
SET BDWSR("3")="PROV HOSP"
DO SET2
+25 SET BDWSR("1")="TYPE HOSP CC"
SET BDWSR("3")="TYPE HOSP"
DO SET2
+26 SET BDWSR("1")="SC HOSP CC"
SET BDWSR("3")="SC HOSP"
DO SET2
+27 SET BDWSR("1")="LOC HOSP CC"
SET BDWSR("3")="LOC HOSP"
DO SET2
+28 SET BDWSR("1")="SC ERROR CC"
SET BDWSR("3")="SC ERROR"
DO SET1
+29 QUIT
SET1 ;
+1 SET BDWSR("PROC")=""""_BDWSR_""",BDWJOB,BDWBTH,"_""""_"SKIPPED"_""""
+2 SET BDWSR("2")="^XTMP("_BDWSR("PROC")_","""_BDWSR("3")_""",X)"
+3 SET X=""
FOR
SET X=$ORDER(@BDWSR("2"))
IF X=""
QUIT
SET %=^(X)
SET ^XTMP("BDWSR",BDWJOB,BDWBTH,"SKIPPED",BDWSR("1"),9999999-%,X)=%
+4 QUIT
SET2 ;
+1 SET BDWSR("PROC")=""""_BDWSR_""",BDWJOB,BDWBTH,"_""""_"GEN"_""""
+2 SET BDWSR("2")="^XTMP("_BDWSR("PROC")_","""_BDWSR("3")_""",X)"
+3 SET X=""
FOR
SET X=$ORDER(@BDWSR("2"))
IF X=""
QUIT
SET %=^(X)
SET ^XTMP("BDWSR",BDWJOB,BDWBTH,"GEN",BDWSR("1"),9999999-%,X)=%
+4 QUIT
