Routine: APCDDVD

APCDDVD ; IHS/CMI/LAB - VISIT REVIEW DRIVER ;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 ;;BJPC v1 patch 1

ZERO ;EP; for zero dependent entry report

 S APCDT="ZERO" G RDPV

PPPV ;EP; for no primary provider/pov report

 S APCDT="PPPV" G RDPV

MRG ;EP; for Merge Report

 S APCDT="MRG" G RDPV

TXER ;EP; for Transaction error Report

 S APCDT="TXER" G RDPV

INPT ;EP; for Inpatient review

 S APCDT="INPT" G RDPV

ALL ;EP;to run all Visit Error Reports

 S APCDT="ALL" G RDPV

RDPV ; Determine to run by Posting date or Visit date

 S APCDBEEP=$C(7)_$C(7),APCDSITE="" S:$D(DUZ(2)) APCDSITE=DUZ(2)

 I '$D(DUZ(2)) S APCDSITE=+^AUTTSITE(1,0)

 S DIR(0)="S^1:Posting Date;2:Visit Date",DIR("A")="Run Report by",DIR("B")="P" D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 I $D(DIRUT) G XIT

 S Y=$E(Y),APCDPROC=$S(Y=1:"P",Y=2:"V",1:Y)

GETDATES ;

BD ;get beginning date

 W ! S DIR(0)="D^:DT:EP",DIR("A")="Enter beginning "_$S(APCDPROC="P":"Posting",APCDPROC="V":"Visit",1:"Posting")_" Date for Search" D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 I $D(DIRUT) G XIT

 S APCDBD=Y

ED ;get ending date

 W ! S DIR(0)="D^"_APCDBD_":DT:EP",DIR("A")="Enter ending "_$S(APCDPROC="P":"Posting",APCDPROC="V":"Visit",1:"Posting")_" Date for Search" S Y=APCDBD D DD^%DT S DIR("B")=Y,Y="" D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 I $D(DIRUT) G BD

 S APCDED=Y

 S X1=APCDBD,X2=-1 D C^%DTC S APCDSD=X

LOC ;

 S APCDLOCT=""

 S DIR(0)="S^A:ALL Locations/Facilities;S:One SERVICE UNIT'S Locations/Facilities;O:ONE Location/Facility",DIR("A")="Include Visits to Which Location/Facilities",DIR("B")="A"

 S DIR("A")="Enter a code indicating what LOCATIONS/FACILITIES are of interest",DIR("B")="O" K DA D ^DIR K DIR,DA

 G:$D(DIRUT) GETDATES

 S APCDLOCT=Y

 I APCDLOCT="A" G CHS

 D @APCDLOCT

 G:$D(APCDQUIT) LOC

CHS ;exclude CHS or not?

 S APCDECHS=""

 W !! S DIR(0)="YO",DIR("A")="Do you want to Exclude CHS (Contract Health visits) from this report",DIR("B")="N" KILL DA D ^DIR KILL DIR

 I $D(DIRUT) G LOC

 S APCDECHS=Y

CLN ;

 S APCDCLNL=""

 S DIR(0)="S^A:ALL Clinics (including null/blank clinic);O:One Clinic",DIR("A")="List Visits to",DIR("B")="A" KILL DA D ^DIR KILL DIR

 I $D(DIRUT) G CHS

 I Y="A" G ALLV

 ;which clinic

 K DIC S DIC=40.7,DIC(0)="AEMQ" D ^DIC

 I Y=-1 G CLN

 S APCDCLNL=+Y

ALLV ;

 S DIR(0)="S^1:ALL Visits in Date Range Specified;2:Only those Visits flagged to be Transmitted to DPSB",DIR("A")="Review which set of visits",DIR("B")="1" D ^DIR K DIR

 I $D(DIRUT) G BD

 S APCDVSET=+Y

SORT ;

 S APCDSORT=""

 K DIR S DIR(0)="S^H:Health Record Number;C:Clinic",DIR("A")="Sort the report by",DIR("B")="H" KILL DA D ^DIR KILL DIR

 I $D(DIRUT) G ALLV

 S APCDSORT=Y

 I APCDSORT="C" S APCDCSRT="T" G PPT

 W !!,"This report will be sorted by Patient Health Record Number."

 S APCDCSRT=""

 S DIR(0)="S^T:Terminal Digit Order;H:Health Record Number Order",DIR("A")="Sort the report by",DIR("B")="T" D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 I $D(DIRUT) G SORT

 S APCDCSRT=Y

PPT ;

 I APCDT'="PPPV" S APCDRTYP="" G DEMO

 W !!,"You have chosen to run the report of visits with No Primary Provider or Purpose",!,"of visit.  You can list only those visits with certain ancillary visits",!,"attached to them.",!

 S APCDRTYP=""

 S DIR(0)="S^R:Radiology (visits with V Radiology and no PP/PV);L:Lab (visits w/V LAB and no PP/PV);P:Pharmacy (visits w/V Medication and no PP/PV)"

 S DIR(0)=DIR(0)_";I:Immunization (visits w/V Immunization and no PP/PV);A:ALL visits with no PP/PV",DIR("A")="Which Incomplete Visits do you wish to list",DIR("B")="A" KILL DA D ^DIR KILL DIR

 G:$D(DIRUT) SORT

 S APCDRTYP=Y

DOPRV ;

 S APCDDOPP=""

 W !!,"Do you wish to display the different ordering providers from the",!,"ancillary items (labs, meds, immunizations) with the visit.",!,"Displaying these will make the report longer in length but"

 W !,"may assist you in visit merging or completion.",!

 S DIR(0)="Y",DIR("A")="Do you want to display the ORDERING PROVIDERS from the data items",DIR("B")="N" KILL DA D ^DIR KILL DIR

 I $D(DIRUT) G PPT

 S APCDDOPP=Y

DLPOV ;

 S APCDDLPV=""

 I APCDRTYP'="L",APCDRTYP'="A" G DEMO

 W !!,"Your lab personnel may be entering a diagnosis with the lab tests.",!,"You can display these diagnoses on this report.  Displaying"

 W !,"these may make the report a little longer but could assist you",!,"with billing and/or visit clean up.",!

 S DIR(0)="Y",DIR("A")="Do you want to display the LAB diagnoses",DIR("B")="N" KILL DA D ^DIR KILL DIR

 I $D(DIRUT) G DOPRV

 S APCDDLPV=Y

DEMO ;

 D DEMOCHK^APCLUTL(.APCDDEMO)

 I APCDDEMO=-1 G SORT

ZIS ;call xbdbque

 S XBRC="DRIVER^APCDDVD",XBRP="PRINT^APCDDVD",XBRX="XIT^APCDDVD",XBNS="APCD"

 D ^XBDBQUE

 D XIT

DRIVER ;EP entry point for taskman

 S APCDBT=$H,APCDJOB=$J

 K ^XTMP("APCDDV",APCDJOB,APCDBT)

 D ^APCDDVD1

 S APCDET=$H

PRINT ;EP

 D ^APCDDVW

 K ^XTMP("APCDDV",APCDJOB,APCDBT)

XIT ;EP

 K APCDBEEP,APCDX,APCDBD,APCDT,APCDED,APCDSD,APCDODAT,APCDVSIT,%,APCDL,X,X1,X2,IO("Q"),APCDDT,APCDSITE,APCDLC,APCDPAGE,APCDCAT,APCDTYPE,APCPTX,APCDADM,APCDPS,APCDPVP,APCDFILE,APCDEC,APCDBT,APCDET,APCDQIO,APCDJOB,APCDPROC,APCD

 K APCDDV("VREC"),APCDVSET,APCDBDFN,APCDDEMM,APCDDEM,APCDCLN,APCDCL,APCDH,APCDCLOC,APCDCSRT,APCDDCHS,APCDHRN,APCDLOC,APCDLOCT,APCDQUIT

 D EN2^APCDEKL

 K X,X1,X2,IO("Q"),%DT,%ZIS,%,DUOUT,DLOUT,Y

ERR W APCDBEEP,!,"Must be a valid date and be Today or earlier. Time not allowed!" Q

O ;one community

 S DIC="^AUTTLOC(",DIC(0)="AEMQ",DIC("A")="Which LOCATION: " D ^DIC K DIC

 I Y=-1 S APCDQUIT="" Q

 S APCDLOCT("ONE")=+Y

S ;all communities within APCDSU su

 S DIC="^AUTTSU(",DIC("B")=$$VAL^XBDIQ1(9999999.06,DUZ(2),.05),DIC(0)="AEMQ",DIC("A")="Which SERVICE UNIT: " D ^DIC K DIC

 I Y=-1 S APCDQUIT="" Q

 S APCDLOCT("SU")=+Y

APCDDVD   ; IHS/CMI/LAB - VISIT REVIEW DRIVER ;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 +2       ;;BJPC v1 patch 1

ZERO      ;EP; for zero dependent entry report

 +1        SET APCDT="ZERO"

           GOTO RDPV

PPPV      ;EP; for no primary provider/pov report

 +1        SET APCDT="PPPV"

           GOTO RDPV

MRG       ;EP; for Merge Report

 +1        SET APCDT="MRG"

           GOTO RDPV

TXER      ;EP; for Transaction error Report

 +1        SET APCDT="TXER"

           GOTO RDPV

INPT      ;EP; for Inpatient review

 +1        SET APCDT="INPT"

           GOTO RDPV

ALL       ;EP;to run all Visit Error Reports

 +1        SET APCDT="ALL"

           GOTO RDPV

RDPV      ; Determine to run by Posting date or Visit date

 +1        SET APCDBEEP=$CHAR(7)_$CHAR(7)

           SET APCDSITE=""

           IF $DATA(DUZ(2))

               SET APCDSITE=DUZ(2)

 +2        IF '$DATA(DUZ(2))

               SET APCDSITE=+^AUTTSITE(1,0)

 +3        SET DIR(0)="S^1:Posting Date;2:Visit Date"

           SET DIR("A")="Run Report by"

           SET DIR("B")="P"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +4        IF $DATA(DIRUT)

               GOTO XIT

 +5        SET Y=$EXTRACT(Y)

           SET APCDPROC=$SELECT(Y=1:"P",Y=2:"V",1:Y)

GETDATES  ;

BD        ;get beginning date

 +1        WRITE !

           SET DIR(0)="D^:DT:EP"

           SET DIR("A")="Enter beginning "_$SELECT(APCDPROC="P":"Posting",APCDPROC="V":"Visit",1:"Posting")_" Date for Search"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +2        IF $DATA(DIRUT)

               GOTO XIT

 +3        SET APCDBD=Y

ED        ;get ending date

 +1        WRITE !

           SET DIR(0)="D^"_APCDBD_":DT:EP"

           SET DIR("A")="Enter ending "_$SELECT(APCDPROC="P":"Posting",APCDPROC="V":"Visit",1:"Posting")_" Date for Search"

           SET Y=APCDBD

           DO DD^%DT

           SET DIR("B")=Y

           SET Y=""

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +2        IF $DATA(DIRUT)

               GOTO BD

 +3        SET APCDED=Y

 +4        SET X1=APCDBD

           SET X2=-1

           DO C^%DTC

           SET APCDSD=X

 +5       ;

LOC       ;

 +1        SET APCDLOCT=""

 +2        SET DIR(0)="S^A:ALL Locations/Facilities;S:One SERVICE UNIT'S Locations/Facilities;O:ONE Location/Facility"

           SET DIR("A")="Include Visits to Which Location/Facilities"

           SET DIR("B")="A"

 +3        SET DIR("A")="Enter a code indicating what LOCATIONS/FACILITIES are of interest"

           SET DIR("B")="O"

           KILL DA

           DO ^DIR

           KILL DIR,DA

 +4        IF $DATA(DIRUT)

               GOTO GETDATES

 +5        SET APCDLOCT=Y

 +6        IF APCDLOCT="A"

               GOTO CHS

 +7        DO @APCDLOCT

 +8        IF $DATA(APCDQUIT)

               GOTO LOC

CHS       ;exclude CHS or not?

 +1        SET APCDECHS=""

 +2        WRITE !!

           SET DIR(0)="YO"

           SET DIR("A")="Do you want to Exclude CHS (Contract Health visits) from this report"

           SET DIR("B")="N"

           KILL DA

           DO ^DIR

           KILL DIR

 +3        IF $DATA(DIRUT)

               GOTO LOC

 +4        SET APCDECHS=Y

 +5       ;

CLN       ;

 +1        SET APCDCLNL=""

 +2        SET DIR(0)="S^A:ALL Clinics (including null/blank clinic);O:One Clinic"

           SET DIR("A")="List Visits to"

           SET DIR("B")="A"

           KILL DA

           DO ^DIR

           KILL DIR

 +3        IF $DATA(DIRUT)

               GOTO CHS

 +4        IF Y="A"

               GOTO ALLV

 +5       ;which clinic

 +6        KILL DIC

           SET DIC=40.7

           SET DIC(0)="AEMQ"

           DO ^DIC

 +7        IF Y=-1

               GOTO CLN

 +8        SET APCDCLNL=+Y

ALLV      ;

 +1        SET DIR(0)="S^1:ALL Visits in Date Range Specified;2:Only those Visits flagged to be Transmitted to DPSB"

           SET DIR("A")="Review which set of visits"

           SET DIR("B")="1"

           DO ^DIR

           KILL DIR

 +2        IF $DATA(DIRUT)

               GOTO BD

 +3        SET APCDVSET=+Y

SORT      ;

 +1        SET APCDSORT=""

 +2        KILL DIR

           SET DIR(0)="S^H:Health Record Number;C:Clinic"

           SET DIR("A")="Sort the report by"

           SET DIR("B")="H"

           KILL DA

           DO ^DIR

           KILL DIR

 +3        IF $DATA(DIRUT)

               GOTO ALLV

 +4        SET APCDSORT=Y

 +5        IF APCDSORT="C"

               SET APCDCSRT="T"

               GOTO PPT

 +6        WRITE !!,"This report will be sorted by Patient Health Record Number."

 +7        SET APCDCSRT=""

 +8        SET DIR(0)="S^T:Terminal Digit Order;H:Health Record Number Order"

           SET DIR("A")="Sort the report by"

           SET DIR("B")="T"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +9        IF $DATA(DIRUT)

               GOTO SORT

 +10       SET APCDCSRT=Y

PPT       ;

 +1        IF APCDT'="PPPV"

               SET APCDRTYP=""

               GOTO DEMO

 +2        WRITE !!,"You have chosen to run the report of visits with No Primary Provider or Purpose",!,"of visit.  You can list only those visits with certain ancillary visits",!,"attached to them.",!

 +3        SET APCDRTYP=""

 +4        SET DIR(0)="S^R:Radiology (visits with V Radiology and no PP/PV);L:Lab (visits w/V LAB and no PP/PV);P:Pharmacy (visits w/V Medication and no PP/PV)"

 +5        SET DIR(0)=DIR(0)_";I:Immunization (visits w/V Immunization and no PP/PV);A:ALL visits with no PP/PV"

           SET DIR("A")="Which Incomplete Visits do you wish to list"

           SET DIR("B")="A"

           KILL DA

           DO ^DIR

           KILL DIR

 +6        IF $DATA(DIRUT)

               GOTO SORT

 +7        SET APCDRTYP=Y

DOPRV     ;

 +1        SET APCDDOPP=""

 +2        WRITE !!,"Do you wish to display the different ordering providers from the",!,"ancillary items (labs, meds, immunizations) with the visit.",!,"Displaying these will make the report longer in length but"

 +3        WRITE !,"may assist you in visit merging or completion.",!

 +4        SET DIR(0)="Y"

           SET DIR("A")="Do you want to display the ORDERING PROVIDERS from the data items"

           SET DIR("B")="N"

           KILL DA

           DO ^DIR

           KILL DIR

 +5        IF $DATA(DIRUT)

               GOTO PPT

 +6        SET APCDDOPP=Y

DLPOV     ;

 +1        SET APCDDLPV=""

 +2        IF APCDRTYP'="L"

               IF APCDRTYP'="A"

                   GOTO DEMO

 +3        WRITE !!,"Your lab personnel may be entering a diagnosis with the lab tests.",!,"You can display these diagnoses on this report.  Displaying"

 +4        WRITE !,"these may make the report a little longer but could assist you",!,"with billing and/or visit clean up.",!

 +5        SET DIR(0)="Y"

           SET DIR("A")="Do you want to display the LAB diagnoses"

           SET DIR("B")="N"

           KILL DA

           DO ^DIR

           KILL DIR

 +6        IF $DATA(DIRUT)

               GOTO DOPRV

 +7        SET APCDDLPV=Y

DEMO      ;

 +1        DO DEMOCHK^APCLUTL(.APCDDEMO)

 +2        IF APCDDEMO=-1

               GOTO SORT

ZIS       ;call xbdbque

 +1        SET XBRC="DRIVER^APCDDVD"

           SET XBRP="PRINT^APCDDVD"

           SET XBRX="XIT^APCDDVD"

           SET XBNS="APCD"

 +2        DO ^XBDBQUE

 +3        DO XIT

 +4        QUIT

DRIVER    ;EP entry point for taskman

 +1        SET APCDBT=$HOROLOG

           SET APCDJOB=$JOB

 +2        KILL ^XTMP("APCDDV",APCDJOB,APCDBT)

 +3        DO ^APCDDVD1

 +4        SET APCDET=$HOROLOG

 +5        QUIT

PRINT     ;EP

 +1        DO ^APCDDVW

 +2        KILL ^XTMP("APCDDV",APCDJOB,APCDBT)

 +3        QUIT

XIT       ;EP

 +1        KILL APCDBEEP,APCDX,APCDBD,APCDT,APCDED,APCDSD,APCDODAT,APCDVSIT,%,APCDL,X,X1,X2,IO("Q"),APCDDT,APCDSITE,APCDLC,APCDPAGE,APCDCAT,APCDTYPE,APCPTX,APCDADM,APCDPS,APCDPVP,APCDFILE,APCDEC,APCDBT,APCDET,APCDQIO,APCDJOB,APCDPROC,APCD

 +2        KILL APCDDV("VREC"),APCDVSET,APCDBDFN,APCDDEMM,APCDDEM,APCDCLN,APCDCL,APCDH,APCDCLOC,APCDCSRT,APCDDCHS,APCDHRN,APCDLOC,APCDLOCT,APCDQUIT

 +3        DO EN2^APCDEKL

 +4        KILL X,X1,X2,IO("Q"),%DT,%ZIS,%,DUOUT,DLOUT,Y

 +5        QUIT

ERR        WRITE APCDBEEP,!,"Must be a valid date and be Today or earlier. Time not allowed!"

           QUIT

O         ;one community

 +1        SET DIC="^AUTTLOC("

           SET DIC(0)="AEMQ"

           SET DIC("A")="Which LOCATION: "

           DO ^DIC

           KILL DIC

 +2        IF Y=-1

               SET APCDQUIT=""

               QUIT

 +3        SET APCDLOCT("ONE")=+Y

 +4        QUIT

S         ;all communities within APCDSU su

 +1        SET DIC="^AUTTSU("

           SET DIC("B")=$$VAL^XBDIQ1(9999999.06,DUZ(2),.05)

           SET DIC(0)="AEMQ"

           SET DIC("A")="Which SERVICE UNIT: "

           DO ^DIC

           KILL DIC

 +2        IF Y=-1

               SET APCDQUIT=""

               QUIT

 +3        SET APCDLOCT("SU")=+Y

 +4        QUIT

 +5       ;

APCDDVD.m