APCPDISP ; IHS/TUCSON/LAB - DISPLAY PCC EXPORT LOG DATA AUGUST 14, 1992 ; [ 03/03/03 9:44 AM ]
;;2.0;IHS PCC DATA EXTRACTION SYSTEM;**3,6**;APR 03, 1998
;IHS/CMI/LAB - commented out reference to APC, INPT
EN1 ;
W:$D(IOF) @IOF
K APCPQUIT
W !!,"Display PCC DATA TRANSMISSION Log Entry",!
S DIC="^APCPLOG(",DIC(0)="AEMQ" D ^DIC K DIC I Y=-1 W !!,"Goodbye" G XIT
S APCPLOG=+Y
S XBRP="PRINT^APCPDISP",XBRC="PROC^APCPDISP",XBRX="XIT^APCPDISP",XBNS="APCP"
D ^XBDBQUE
D XIT
Q
XIT ;EP
K APCPLOG,APCPREC
Q
PROC ;
Q
PRINT ;
W:$D(IOF) @IOF W !?19,"PCC DATA TRANSMISSION LOG REPORT"
W !?7,"Information for Log Entry ",APCPLOG," Beginning Date: ",$$FMTE^XLFDT($P(^APCPLOG(APCPLOG,0),U))
S APCPREC=^APCPLOG(APCPLOG,0)
W !!?30,"Number:",?40,APCPLOG
W !?22,"Beginning Date:",?40,$$FMTE^XLFDT($P(APCPREC,U))
W !?25,"Ending Date:",?40,$$FMTE^XLFDT($P(APCPREC,U,2))
W !?17,"Run Start Date/Time:",?40,$$FMTE^XLFDT($P(APCPREC,U,3))
W !?18,"Run Stop Date/Time:",?40,$$FMTE^XLFDT($P(APCPREC,U,4))
W !?24,"Run Location:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.09)
I $P(APCPREC,U,27) W !?22,"** Special Date Range Re-Export **"
W !?17,"Transmission Status:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.15)
W !?17,"File name created: ",?40,$P(APCPREC,U,24)
I $P(APCPREC,U,25) W !?17,"This log entry was created with REDO."
W !!?4,"Total Number of Visits Processed:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.08)
W:$P(^APCPLOG(APCPLOG,0),U,18) !?5,"Total Number of Visits Exported: ",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.18)
I $P(^APCPLOG(APCPLOG,0),U,13) W !!?11,"Number of APC Records:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.13)
I $P(^APCPLOG(APCPLOG,0),U,11) W !?5,"Number of Inpatient Records:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.11)
I $P(^APCPLOG(APCPLOG,0),U,14) W !?11,"Number of CHA Records:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.14)
W !?2,"Reasons Visits were skipped and did not generate a statistical record:" D
.W !?18,"Visits with Errors:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.05)
.W:$P(^APCPLOG(APCPLOG,0),U,19) !?17,"DEMO,PATIENT visits:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.19)
.W:$P(^APCPLOG(APCPLOG,0),U,28) !?17,"MFI visits skipped:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.28)
.W:$P(^APCPLOG(APCPLOG,0),U,21) !?24,"EVENT visits:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.21)
.W:$P(^APCPLOG(APCPLOG,0),U,22) !?22,"DELETED visits:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.22)
.W:$P(^APCPLOG(APCPLOG,0),U,23) !?2,"INCOMPLETE Contract or In-Hospital:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.23)
.W:$P(^APCPLOG(APCPLOG,0),U,26) !?5,"DELETED Visits w/o prior export:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.26)
W !?6,"# STATISTICAL DATABASE Records:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.17)
W !!,"Total Number of Records Transmitted to the Area Office: ",$$VAL^XBDIQ1(9001005,APCPLOG,.06)
TEXT ;
I $Y>(IOSL-3) D FF Q:$D(APCPQUIT)
;W !!,"**NOTE - the number of records transmitted will be equal to the ",!,"#APC records + #INPT records + #CHA records + (#STATISTICAL DB records x 2)"
;I $Y>(IOSL-4) D FF Q:$D(APCPQUIT)
W !!,"To list the errors, use the 'ERRS - List PCC Data Transmission Errors Report."
;W !!,"To review the export criteria for APC, Direct Inpatient, and CHA, refer to the",!,"related help frames in the option 'LOG - Inquire to Log File",!
Q:$E(IOST)'="C"
Q:$D(ZTQUEUED)
S DIR(0)="FO^1:1",DIR("A")="Press 'RETURN' to Continue" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
Q
FF ;
I $E(IOST)="C" S DIR(0)="E",DIR("A")="Press 'RETURN' to continue or '^' to exit" D ^DIR K DIR I $D(DIRUT) S APCPQUIT=1 Q
W:$D(IOF) @IOF
W !?40,"PCC Data Transmission Log - Page 2",!!
Q
APCPDISP ; IHS/TUCSON/LAB - DISPLAY PCC EXPORT LOG DATA AUGUST 14, 1992 ; [ 03/03/03 9:44 AM ]
+1 ;;2.0;IHS PCC DATA EXTRACTION SYSTEM;**3,6**;APR 03, 1998
+2 ;IHS/CMI/LAB - commented out reference to APC, INPT
EN1 ;
+1 IF $DATA(IOF)
WRITE @IOF
+2 KILL APCPQUIT
+3 WRITE !!,"Display PCC DATA TRANSMISSION Log Entry",!
+4 SET DIC="^APCPLOG("
SET DIC(0)="AEMQ"
DO ^DIC
KILL DIC
IF Y=-1
WRITE !!,"Goodbye"
GOTO XIT
+5 SET APCPLOG=+Y
+6 SET XBRP="PRINT^APCPDISP"
SET XBRC="PROC^APCPDISP"
SET XBRX="XIT^APCPDISP"
SET XBNS="APCP"
+7 DO ^XBDBQUE
+8 DO XIT
+9 QUIT
XIT ;EP
+1 KILL APCPLOG,APCPREC
+2 QUIT
PROC ;
+1 QUIT
PRINT ;
+1 IF $DATA(IOF)
WRITE @IOF
WRITE !?19,"PCC DATA TRANSMISSION LOG REPORT"
+2 WRITE !?7,"Information for Log Entry ",APCPLOG," Beginning Date: ",$$FMTE^XLFDT($PIECE(^APCPLOG(APCPLOG,0),U))
+3 SET APCPREC=^APCPLOG(APCPLOG,0)
+4 WRITE !!?30,"Number:",?40,APCPLOG
+5 WRITE !?22,"Beginning Date:",?40,$$FMTE^XLFDT($PIECE(APCPREC,U))
+6 WRITE !?25,"Ending Date:",?40,$$FMTE^XLFDT($PIECE(APCPREC,U,2))
+7 WRITE !?17,"Run Start Date/Time:",?40,$$FMTE^XLFDT($PIECE(APCPREC,U,3))
+8 WRITE !?18,"Run Stop Date/Time:",?40,$$FMTE^XLFDT($PIECE(APCPREC,U,4))
+9 WRITE !?24,"Run Location:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.09)
+10 IF $PIECE(APCPREC,U,27)
WRITE !?22,"** Special Date Range Re-Export **"
+11 WRITE !?17,"Transmission Status:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.15)
+12 WRITE !?17,"File name created: ",?40,$PIECE(APCPREC,U,24)
+13 IF $PIECE(APCPREC,U,25)
WRITE !?17,"This log entry was created with REDO."
+14 WRITE !!?4,"Total Number of Visits Processed:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.08)
+15 IF $PIECE(^APCPLOG(APCPLOG,0),U,18)
WRITE !?5,"Total Number of Visits Exported: ",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.18)
+16 IF $PIECE(^APCPLOG(APCPLOG,0),U,13)
WRITE !!?11,"Number of APC Records:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.13)
+17 IF $PIECE(^APCPLOG(APCPLOG,0),U,11)
WRITE !?5,"Number of Inpatient Records:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.11)
+18 IF $PIECE(^APCPLOG(APCPLOG,0),U,14)
WRITE !?11,"Number of CHA Records:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.14)
+19 WRITE !?2,"Reasons Visits were skipped and did not generate a statistical record:"
Begin DoDot:1
+20 WRITE !?18,"Visits with Errors:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.05)
+21 IF $PIECE(^APCPLOG(APCPLOG,0),U,19)
WRITE !?17,"DEMO,PATIENT visits:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.19)
+22 IF $PIECE(^APCPLOG(APCPLOG,0),U,28)
WRITE !?17,"MFI visits skipped:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.28)
+23 IF $PIECE(^APCPLOG(APCPLOG,0),U,21)
WRITE !?24,"EVENT visits:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.21)
+24 IF $PIECE(^APCPLOG(APCPLOG,0),U,22)
WRITE !?22,"DELETED visits:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.22)
+25 IF $PIECE(^APCPLOG(APCPLOG,0),U,23)
WRITE !?2,"INCOMPLETE Contract or In-Hospital:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.23)
+26 IF $PIECE(^APCPLOG(APCPLOG,0),U,26)
WRITE !?5,"DELETED Visits w/o prior export:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.26)
End DoDot:1
+27 WRITE !?6,"# STATISTICAL DATABASE Records:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.17)
+28 WRITE !!,"Total Number of Records Transmitted to the Area Office: ",$$VAL^XBDIQ1(9001005,APCPLOG,.06)
TEXT ;
+1 IF $Y>(IOSL-3)
DO FF
IF $DATA(APCPQUIT)
QUIT
+2 ;W !!,"**NOTE - the number of records transmitted will be equal to the ",!,"#APC records + #INPT records + #CHA records + (#STATISTICAL DB records x 2)"
+3 ;I $Y>(IOSL-4) D FF Q:$D(APCPQUIT)
+4 WRITE !!,"To list the errors, use the 'ERRS - List PCC Data Transmission Errors Report."
+5 ;W !!,"To review the export criteria for APC, Direct Inpatient, and CHA, refer to the",!,"related help frames in the option 'LOG - Inquire to Log File",!
+6 IF $EXTRACT(IOST)'="C"
QUIT
+7 IF $DATA(ZTQUEUED)
QUIT
+8 SET DIR(0)="FO^1:1"
SET DIR("A")="Press 'RETURN' to Continue"
DO ^DIR
KILL DIR
IF $DATA(DUOUT)
SET DIRUT=1
+9 QUIT
FF ;
+1 IF $EXTRACT(IOST)="C"
SET DIR(0)="E"
SET DIR("A")="Press 'RETURN' to continue or '^' to exit"
DO ^DIR
KILL DIR
IF $DATA(DIRUT)
SET APCPQUIT=1
QUIT
+2 IF $DATA(IOF)
WRITE @IOF
+3 WRITE !?40,"PCC Data Transmission Log - Page 2",!!
+4 QUIT
