- APCLAP9P ; IHS/CMI/LAB - print apc report ;
- ;;2.0;IHS PCC SUITE;;MAY 14, 2009
- START ;
- S (APCLTOT,APCLPG)=0 D HEAD
- K APCLQUIT
- D PRINT
- ;
- DONE ;
- D DONE^APCLOSUT
- K ^XTMP("APCLAP9",APCLJOB,APCLBT)
- Q
- PRINT ;
- W !,"FACILITY: ",$P(^DIC(4,APCLLOC,0),U)," - ",$P(^AUTTLOC(APCLLOC,0),U,10)
- W !,"VISIT DATE RANGE: ",$$FMTE^XLFDT(APCLBD)," - ",$$FMTE^XLFDT(APCLED)
- W !!,"Total Visits Processed in PCC: ",APCLGRAN
- W !!,?45,"as of the Date the report was run:",!,?45,"# complete",?60,"# incomplete",!?45,"----------",?60,"------------",!
- TYPE ;
- S APCLX="",C=0 F S APCLX=$O(^XTMP("APCLAP9",APCLJOB,APCLBT,"TYPE",APCLX)) Q:APCLX=""!($D(APCLQUIT)) S C=C+1 D
- .I $Y>(IOSL-5) D HEAD Q:$D(APCLQUIT)
- .W ! W:C=1 "TYPE: " W ?19,APCLX,?45,$J($P(^XTMP("APCLAP9",APCLJOB,APCLBT,"TYPE",APCLX),U),6),?60,$J($P(^XTMP("APCLAP9",APCLJOB,APCLBT,"TYPE",APCLX),U,2),6)
- W !! S APCLX="",C=0 F S APCLX=$O(^XTMP("APCLAP9",APCLJOB,APCLBT,"SC",APCLX)) Q:APCLX=""!($D(APCLQUIT)) S C=C+1 D
- .I $Y>(IOSL-5) D HEAD Q:$D(APCLQUIT)
- .W ! W:C=1 "SERVICE CATEGORY: " W ?19,$E(APCLX,1,24),?45,$J($P(^XTMP("APCLAP9",APCLJOB,APCLBT,"SC",APCLX),U),6),?60,$J($P(^XTMP("APCLAP9",APCLJOB,APCLBT,"SC",APCLX),U,2),6)
- I $Y>(IOSL-5) D HEAD Q:$D(APCLQUIT)
- W !!,"APC Acceptable Visits based on Headquarters Definition: ",$J(APCLAPC,7)
- EXCL ;
- I $Y>(IOSL-5) D HEAD Q:$D(APCLQUIT)
- W !!,"Exclusions from APC System:",!
- I $Y>(IOSL-5) D HEAD Q:$D(APCLQUIT)
- W !?10,"Dental Clinic w/o Medication",?60,$J($S($G(^XTMP("APCLAP9",APCLJOB,APCLBT,"DENTAL NO MED")):^XTMP("APCLAP9",APCLJOB,APCLBT,"DENTAL NO MED"),1:0),6)
- W !?10,"Other Excluded Clinic Type",?60,$J($S($G(^XTMP("APCLAP9",APCLJOB,APCLBT,"NONAPCCLN")):^XTMP("APCLAP9",APCLJOB,APCLBT,"NONAPCCLN"),1:0),6)
- I $Y>(IOSL-5) D HEAD Q:$D(APCLQUIT)
- W !?10,"Incomplete A, O or S",?60,$J($S($G(^XTMP("APCLAP9",APCLJOB,APCLBT,"AOS INCOMPLETE")):^XTMP("APCLAP9",APCLJOB,APCLBT,"AOS INCOMPLETE"),1:0),6)
- I $Y>(IOSL-5) D HEAD Q:$D(APCLQUIT)
- W !?10,"Non APC Service Category",?60,$J($S($G(^XTMP("APCLAP9",APCLJOB,APCLBT,"NONAPCSC")):^XTMP("APCLAP9",APCLJOB,APCLBT,"NONAPCSC"),1:0),6)
- W !?10,"Non APC Visit Type",?60,$J($S($G(^XTMP("APCLAP9",APCLJOB,APCLBT,"NONAPCTYPE")):^XTMP("APCLAP9",APCLJOB,APCLBT,"NONAPCTYPE"),1:0),6)
- I $Y>(IOSL-5) D HEAD Q:$D(APCLQUIT)
- ;W !?10,"Mult Visits same patient, same day, same clinic",?60,$J($S($G(^XTMP("APCLAP9",APCLJOB,APCLBT,"DUPLICATE")):^XTMP("APCLAP9",APCLJOB,APCLBT,"DUPLICATE"),1:0),6)
- ;I $Y>(IOSL-5) D HEAD Q:$D(APCLQUIT)
- W !!?3,"Of the acceptable APC visits, ",$J($S($G(^XTMP("APCLAP9",APCLJOB,APCLBT,"IN XREF")):^XTMP("APCLAP9",APCLJOB,APCLBT,"IN XREF"),1:0),6)," were posted or modified after",!
- W ?3,"the last NDW export and would not be reflected in reports from ",!,"the National Data Warehouse."
- I $Y>(IOSL-5) D HEAD Q:$D(APCLQUIT)
- W !?3,"Of the acceptable APC visits, ",$J($S($G(^XTMP("APCLAP9",APCLJOB,APCLBT,"NO EXPORT - ?")):^XTMP("APCLAP9",APCLJOB,APCLBT,"NO EXPORT - ?"),1:0),6)," were not exported due to an error."
- W !?3,"These can be reviewed using other PCC reports.",!
- Q
- HEAD I 'APCLPG G HEAD1
- I $E(IOST)="C",IO=IO(0) W ! S DIR(0)="EO" D ^DIR K DIR I Y=0!(Y="^")!($D(DTOUT)) S APCLQUIT="" Q
- HEAD1 ;
- W:$D(IOF) @IOF S APCLPG=APCLPG+1
- W !?3,$P(^DIC(4,DUZ(2),0),U),?58,$$FMTE^XLFDT(DT),?72,"Page ",APCLPG,!
- W ?28,"PCC DATA ANALYSIS REPORT",!
- W $TR($J("",80)," ","*"),!
- Q
- APCLAP9P ; IHS/CMI/LAB - print apc report ;
- +1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
- START ;
- +1 SET (APCLTOT,APCLPG)=0
- DO HEAD
- +2 KILL APCLQUIT
- +3 DO PRINT
- +4 ;
- DONE ;
- +1 DO DONE^APCLOSUT
- +2 KILL ^XTMP("APCLAP9",APCLJOB,APCLBT)
- +3 QUIT
- PRINT ;
- +1 WRITE !,"FACILITY: ",$PIECE(^DIC(4,APCLLOC,0),U)," - ",$PIECE(^AUTTLOC(APCLLOC,0),U,10)
- +2 WRITE !,"VISIT DATE RANGE: ",$$FMTE^XLFDT(APCLBD)," - ",$$FMTE^XLFDT(APCLED)
- +3 WRITE !!,"Total Visits Processed in PCC: ",APCLGRAN
- +4 WRITE !!,?45,"as of the Date the report was run:",!,?45,"# complete",?60,"# incomplete",!?45,"----------",?60,"------------",!
- TYPE ;
- +1 SET APCLX=""
- SET C=0
- FOR
- SET APCLX=$ORDER(^XTMP("APCLAP9",APCLJOB,APCLBT,"TYPE",APCLX))
- IF APCLX=""!($DATA(APCLQUIT))
- QUIT
- SET C=C+1
- Begin DoDot:1
- +2 IF $Y>(IOSL-5)
- DO HEAD
- IF $DATA(APCLQUIT)
- QUIT
- +3 WRITE !
- IF C=1
- WRITE "TYPE: "
- WRITE ?19,APCLX,?45,$JUSTIFY($PIECE(^XTMP("APCLAP9",APCLJOB,APCLBT,"TYPE",APCLX),U),6),?60,$JUSTIFY($PIECE(^XTMP("APCLAP9",APCLJOB,APCLBT,"TYPE",APCLX),U,2),6)
- End DoDot:1
- +4 WRITE !!
- SET APCLX=""
- SET C=0
- FOR
- SET APCLX=$ORDER(^XTMP("APCLAP9",APCLJOB,APCLBT,"SC",APCLX))
- IF APCLX=""!($DATA(APCLQUIT))
- QUIT
- SET C=C+1
- Begin DoDot:1
- +5 IF $Y>(IOSL-5)
- DO HEAD
- IF $DATA(APCLQUIT)
- QUIT
- +6 WRITE !
- IF C=1
- WRITE "SERVICE CATEGORY: "
- WRITE ?19,$EXTRACT(APCLX,1,24),?45,$JUSTIFY($PIECE(^XTMP("APCLAP9",APCLJOB,APCLBT,"SC",APCLX),U),6),?60,$JUSTIFY($PIECE(^XTMP("APCLAP9",APCLJOB,APCLBT,"SC",APCLX),U,2),6)
- End DoDot:1
- +7 IF $Y>(IOSL-5)
- DO HEAD
- IF $DATA(APCLQUIT)
- QUIT
- +8 WRITE !!,"APC Acceptable Visits based on Headquarters Definition: ",$JUSTIFY(APCLAPC,7)
- EXCL ;
- +1 IF $Y>(IOSL-5)
- DO HEAD
- IF $DATA(APCLQUIT)
- QUIT
- +2 WRITE !!,"Exclusions from APC System:",!
- +3 IF $Y>(IOSL-5)
- DO HEAD
- IF $DATA(APCLQUIT)
- QUIT
- +4 WRITE !?10,"Dental Clinic w/o Medication",?60,$JUSTIFY($SELECT($GET(^XTMP("APCLAP9",APCLJOB,APCLBT,"DENTAL NO MED")):^XTMP("APCLAP9",APCLJOB,APCLBT,"DENTAL NO MED"),1:0),6)
- +5 WRITE !?10,"Other Excluded Clinic Type",?60,$JUSTIFY($SELECT($GET(^XTMP("APCLAP9",APCLJOB,APCLBT,"NONAPCCLN")):^XTMP("APCLAP9",APCLJOB,APCLBT,"NONAPCCLN"),1:0),6)
- +6 IF $Y>(IOSL-5)
- DO HEAD
- IF $DATA(APCLQUIT)
- QUIT
- +7 WRITE !?10,"Incomplete A, O or S",?60,$JUSTIFY($SELECT($GET(^XTMP("APCLAP9",APCLJOB,APCLBT,"AOS INCOMPLETE")):^XTMP("APCLAP9",APCLJOB,APCLBT,"AOS INCOMPLETE"),1:0),6)
- +8 IF $Y>(IOSL-5)
- DO HEAD
- IF $DATA(APCLQUIT)
- QUIT
- +9 WRITE !?10,"Non APC Service Category",?60,$JUSTIFY($SELECT($GET(^XTMP("APCLAP9",APCLJOB,APCLBT,"NONAPCSC")):^XTMP("APCLAP9",APCLJOB,APCLBT,"NONAPCSC"),1:0),6)
- +10 WRITE !?10,"Non APC Visit Type",?60,$JUSTIFY($SELECT($GET(^XTMP("APCLAP9",APCLJOB,APCLBT,"NONAPCTYPE")):^XTMP("APCLAP9",APCLJOB,APCLBT,"NONAPCTYPE"),1:0),6)
- +11 IF $Y>(IOSL-5)
- DO HEAD
- IF $DATA(APCLQUIT)
- QUIT
- +12 ;W !?10,"Mult Visits same patient, same day, same clinic",?60,$J($S($G(^XTMP("APCLAP9",APCLJOB,APCLBT,"DUPLICATE")):^XTMP("APCLAP9",APCLJOB,APCLBT,"DUPLICATE"),1:0),6)
- +13 ;I $Y>(IOSL-5) D HEAD Q:$D(APCLQUIT)
- +14 WRITE !!?3,"Of the acceptable APC visits, ",$JUSTIFY($SELECT($GET(^XTMP("APCLAP9",APCLJOB,APCLBT,"IN XREF")):^XTMP("APCLAP9",APCLJOB,APCLBT,"IN XREF"),1:0),6)," were posted or modified after",!
- +15 WRITE ?3,"the last NDW export and would not be reflected in reports from ",!,"the National Data Warehouse."
- +16 IF $Y>(IOSL-5)
- DO HEAD
- IF $DATA(APCLQUIT)
- QUIT
- +17 WRITE !?3,"Of the acceptable APC visits, ",$JUSTIFY($SELECT($GET(^XTMP("APCLAP9",APCLJOB,APCLBT,"NO EXPORT - ?")):^XTMP("APCLAP9",APCLJOB,APCLBT,"NO EXPORT - ?"),1:0),6)," were not exported due to an error."
- +18 WRITE !?3,"These can be reviewed using other PCC reports.",!
- +19 QUIT
- HEAD IF 'APCLPG
- GOTO HEAD1
- +1 IF $EXTRACT(IOST)="C"
- IF IO=IO(0)
- WRITE !
- SET DIR(0)="EO"
- DO ^DIR
- KILL DIR
- IF Y=0!(Y="^")!($DATA(DTOUT))
- SET APCLQUIT=""
- QUIT
- HEAD1 ;
- +1 IF $DATA(IOF)
- WRITE @IOF
- SET APCLPG=APCLPG+1
- +2 WRITE !?3,$PIECE(^DIC(4,DUZ(2),0),U),?58,$$FMTE^XLFDT(DT),?72,"Page ",APCLPG,!
- +3 WRITE ?28,"PCC DATA ANALYSIS REPORT",!
- +4 WRITE $TRANSLATE($JUSTIFY("",80)," ","*"),!
- +5 QUIT
