- APCLAUD4 ; IHS/CMI/LAB - MORE AUDIT SEARCH ;
- ;;2.0;IHS PCC SUITE;**11**;MAY 14, 2009;Build 58
- ;
- ;cmi/anch/maw 9/7/2007 code set versioning in ICDDSP
- ;
- TOP ;EP
- W !!,"This Audit Search is based on the following criteria:",!
- W !!,"1. Ambulatory Visits from ",APCLBDY," through ",APCLEDY
- I '$D(APCLLAGE) W !!,"2. All Patient Ages included." G SEX
- W !!,"2. Patient Age Range (as of Visit Date) from ",APCLLAGE," - ",APCLHAGE,"."
- SEX ;
- W !!,"3. ",$S($D(APCLSEX):APCLSEXP,1:"ALL")," Patient Sex"
- SC ;
- W !!,"4. ",$S($D(APCLSC):APCLSCP,1:"ALL")," Visit Service Categor",$S($D(APCLSC):"y.",1:"ies.")
- TYPE W !!,"5. ",$S($D(APCLTYPE):APCLTYPP,1:"ALL")," Visit Type",$S($D(APCLTYPE):".",1:"s.")
- CLN W !!,"6. ",$S($D(APCLCLN):APCLCLNP,1:"ALL")," Visit Clinic Type",$S($D(APCLCLN):"s.",1:".")
- LOC W !!,"7. ",$S($D(APCLLOC):APCLLOCP,1:"ALL")," Location of Encounter"
- ICD I $D(APCLALLI) W !!,"8. ALL ICD Codes." G TOP1
- W !!,"8. The following ICD Code ranges: ",!
- S APCLDSP=0
- F S APCLDSP=$O(^XTMP("APCLAUD",APCLJOB,APCLBT,APCLDSP)) Q:APCLDSP'=+APCLDSP W !,"ICD Code Range ",APCLDSP,": ",^XTMP("APCLAUD",APCLJOB,APCLBT,APCLDSP,"ICDB")," through ",^XTMP("APCLAUD",APCLJOB,APCLBT,APCLDSP,"ICDE"),"."
- TOP1 I $Y>(IOSL-4) D TOPHD I $D(APCLQ) K APCLQ Q
- I $D(APCLALLP),'$D(APCLNOSP) W !!,"9. ALL Primary Providers." G TOP2
- I $D(APCLNOSP) W !!,"9. NOT by Primary Provider." G TOP2
- W !!,"9. The following Primary Providers:",!
- S APCLPRV=0
- F JJ=0:0 S APCLPRV=$O(^XTMP("APCLAUD",APCLJOB,APCLBT,"PROV",APCLPRV)) Q:APCLPRV'=+APCLPRV D PRVDSP
- TOP2 I $Y>(IOSL-4) D TOPHD I $D(APCLQ) K APCLQ Q
- I $D(APCLALLR) W !!,"10. ALL Diagnoses that match the Search Criteria." G TOP3
- W !!,"9. Limited to ",APCLLIM," randomized Diagnoses " W:'$D(APCLNOSP) "per Provider " W !," that match the Search Criteria."
- TOP3 D TOPHD I $D(APCLQ) K APCLQ Q
- Q
- TOPHD ;EP
- S APCLPG=APCLPG+1 G:APCLPG=1 TOPHD1
- I $E(IOST)="C",IO(0)=IO S DIR(0)="EO" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
- I $D(DIRUT) S APCLQ="" Q
- TOPHD1 W:$D(IOF) @IOF
- W $P(^DIC(4,APCLSITE,0),"^"),?58,APCLDTP,?72,"Page ",APCLPG,!
- W !?30,"Audit Search Criteria",!!,APCL80D
- Q
- ICDDSP I $Y>(IOSL-4) D TOPHD I $D(APCLQ) K APCLQ Q
- ;W:$D(^ICD9(APCLDSP,0)) !?4,$P(^ICD9(APCLDSP,0),"^"),?11,$P(^(0),"^",3)
- W !?4,$P($$ICDDX^ICDEX(APCLDSP),"^",2),?11,$P($$ICDDX^ICDEX(APCLDSP),"^",4)
- ;W:$D(^ICD9(APCLDSP,1)) !?11,$E($P(^(1),"^"),1,67),! ;NO API IN CSV
- Q
- PRVDSP I $Y>(IOSL-4) D TOPHD I $D(APCLQ) K APCLQ Q
- W !?4,$S($P(^DD(9000010.06,.01,0),U,2)[200:$P(^VA(200,APCLPRV,0),U),1:$P(^DIC(16,$P(^DIC(6,APCLPRV,0),"^"),0),"^")),!
- Q
- ICDLN ;EP
- I $Y>(IOSL-9) D HEAD^APCLAUD2
- W !!!,"---> ICD Code Range: "
- I $D(APCLALLI) W "ALL ICD Codes." G ICDLN1
- W ^XTMP("APCLAUD",APCLJOB,APCLBT,APCLIRNG,"ICDB")," through ",^("ICDE")
- ICDLN1 W !?6,"Total Matches: ",APCLCNT W " Matches Selected: ",APCLGOT
- Q
- APCLAUD4 ; IHS/CMI/LAB - MORE AUDIT SEARCH ;
- +1 ;;2.0;IHS PCC SUITE;**11**;MAY 14, 2009;Build 58
- +2 ;
- +3 ;cmi/anch/maw 9/7/2007 code set versioning in ICDDSP
- +4 ;
- TOP ;EP
- +1 WRITE !!,"This Audit Search is based on the following criteria:",!
- +2 WRITE !!,"1. Ambulatory Visits from ",APCLBDY," through ",APCLEDY
- +3 IF '$DATA(APCLLAGE)
- WRITE !!,"2. All Patient Ages included."
- GOTO SEX
- +4 WRITE !!,"2. Patient Age Range (as of Visit Date) from ",APCLLAGE," - ",APCLHAGE,"."
- SEX ;
- +1 WRITE !!,"3. ",$SELECT($DATA(APCLSEX):APCLSEXP,1:"ALL")," Patient Sex"
- SC ;
- +1 WRITE !!,"4. ",$SELECT($DATA(APCLSC):APCLSCP,1:"ALL")," Visit Service Categor",$SELECT($DATA(APCLSC):"y.",1:"ies.")
- TYPE WRITE !!,"5. ",$SELECT($DATA(APCLTYPE):APCLTYPP,1:"ALL")," Visit Type",$SELECT($DATA(APCLTYPE):".",1:"s.")
- CLN WRITE !!,"6. ",$SELECT($DATA(APCLCLN):APCLCLNP,1:"ALL")," Visit Clinic Type",$SELECT($DATA(APCLCLN):"s.",1:".")
- LOC WRITE !!,"7. ",$SELECT($DATA(APCLLOC):APCLLOCP,1:"ALL")," Location of Encounter"
- ICD IF $DATA(APCLALLI)
- WRITE !!,"8. ALL ICD Codes."
- GOTO TOP1
- +1 WRITE !!,"8. The following ICD Code ranges: ",!
- +2 SET APCLDSP=0
- +3 FOR
- SET APCLDSP=$ORDER(^XTMP("APCLAUD",APCLJOB,APCLBT,APCLDSP))
- IF APCLDSP'=+APCLDSP
- QUIT
- WRITE !,"ICD Code Range ",APCLDSP,": ",^XTMP("APCLAUD",APCLJOB,APCLBT,APCLDSP,"ICDB")," through ",^XTMP("APCLAUD",APCLJOB,APCLBT,APCLDSP,"ICDE"),"."
- TOP1 IF $Y>(IOSL-4)
- DO TOPHD
- IF $DATA(APCLQ)
- KILL APCLQ
- QUIT
- +1 IF $DATA(APCLALLP)
- IF '$DATA(APCLNOSP)
- WRITE !!,"9. ALL Primary Providers."
- GOTO TOP2
- +2 IF $DATA(APCLNOSP)
- WRITE !!,"9. NOT by Primary Provider."
- GOTO TOP2
- +3 WRITE !!,"9. The following Primary Providers:",!
- +4 SET APCLPRV=0
- +5 FOR JJ=0:0
- SET APCLPRV=$ORDER(^XTMP("APCLAUD",APCLJOB,APCLBT,"PROV",APCLPRV))
- IF APCLPRV'=+APCLPRV
- QUIT
- DO PRVDSP
- TOP2 IF $Y>(IOSL-4)
- DO TOPHD
- IF $DATA(APCLQ)
- KILL APCLQ
- QUIT
- +1 IF $DATA(APCLALLR)
- WRITE !!,"10. ALL Diagnoses that match the Search Criteria."
- GOTO TOP3
- +2 WRITE !!,"9. Limited to ",APCLLIM," randomized Diagnoses "
- IF '$DATA(APCLNOSP)
- WRITE "per Provider "
- WRITE !," that match the Search Criteria."
- TOP3 DO TOPHD
- IF $DATA(APCLQ)
- KILL APCLQ
- QUIT
- +1 QUIT
- TOPHD ;EP
- +1 SET APCLPG=APCLPG+1
- IF APCLPG=1
- GOTO TOPHD1
- +2 IF $EXTRACT(IOST)="C"
- IF IO(0)=IO
- SET DIR(0)="EO"
- DO ^DIR
- KILL DIR
- IF $DATA(DUOUT)
- SET DIRUT=1
- +3 IF $DATA(DIRUT)
- SET APCLQ=""
- QUIT
- TOPHD1 IF $DATA(IOF)
- WRITE @IOF
- +1 WRITE $PIECE(^DIC(4,APCLSITE,0),"^"),?58,APCLDTP,?72,"Page ",APCLPG,!
- +2 WRITE !?30,"Audit Search Criteria",!!,APCL80D
- +3 QUIT
- ICDDSP IF $Y>(IOSL-4)
- DO TOPHD
- IF $DATA(APCLQ)
- KILL APCLQ
- QUIT
- +1 ;W:$D(^ICD9(APCLDSP,0)) !?4,$P(^ICD9(APCLDSP,0),"^"),?11,$P(^(0),"^",3)
- +2 WRITE !?4,$PIECE($$ICDDX^ICDEX(APCLDSP),"^",2),?11,$PIECE($$ICDDX^ICDEX(APCLDSP),"^",4)
- +3 ;W:$D(^ICD9(APCLDSP,1)) !?11,$E($P(^(1),"^"),1,67),! ;NO API IN CSV
- +4 QUIT
- PRVDSP IF $Y>(IOSL-4)
- DO TOPHD
- IF $DATA(APCLQ)
- KILL APCLQ
- QUIT
- +1 WRITE !?4,$SELECT($PIECE(^DD(9000010.06,.01,0),U,2)[200:$PIECE(^VA(200,APCLPRV,0),U),1:$PIECE(^DIC(16,$PIECE(^DIC(6,APCLPRV,0),"^"),0),"^")),!
- +2 QUIT
- ICDLN ;EP
- +1 IF $Y>(IOSL-9)
- DO HEAD^APCLAUD2
- +2 WRITE !!!,"---> ICD Code Range: "
- +3 IF $DATA(APCLALLI)
- WRITE "ALL ICD Codes."
- GOTO ICDLN1
- +4 WRITE ^XTMP("APCLAUD",APCLJOB,APCLBT,APCLIRNG,"ICDB")," through ",^("ICDE")
- ICDLN1 WRITE !?6,"Total Matches: ",APCLCNT
- WRITE " Matches Selected: ",APCLGOT
- +1 QUIT
