ABMDEERL.m

ABMDEERL ; IHS/ASDST/DMJ - Error Claim Data Display ;  

 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 ;

 I '$D(IO),'$D(IOF),'$D(IOST) S IOP="HOME" D ^%ZIS

CLM ;

CLM2 K ABM,ABMP W !! K %P,DIR,DIC S DIR("A")="Select CLAIM or PATIENT",DIR(0)="FO^1:30",DIR("?")="Enter the Claim Data Number or the Patient's Name" D ^DIR K DIR

 G XIT:$D(DIRUT)

 K ABMP("MULT")

CLMD S DIC="^ABMDCLM(DUZ(2),",DIC(0)="ZIE" D ^DIC K DIC

 I +Y>0 S ABMP("CDFN")=+Y

 G CLM2:+Y<1 S ABMP("CDFN")=+Y

DFN S ABMP("PDFN")=$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),0),U,1),ABMP("VTYP")=$P(^(0),U,7)

 S ABMP("BLK")="",(ABMP("REVON"),ABMP("REVOF"),ABMP("HI"),ABMP("NI"))="ABMP(""BLK"")"

 ;

EXT K ABMD

 S ABMP("PG")=0,U="^",ABMP("HEAD2")="CLAIM DATA ERRORS"

ZIS W !! S %ZIS("A")="Output DEVICE: ",%ZIS="QNP",%ZIS("B")="" D ^%ZIS G:POP XIT

 S ABMP("IOP")=ION G QUE:$D(IO("Q"))

 I IO'=IO(0),$E(IOST)'="C",'$D(IO("S")),$P($G(^ABMDPARM(DUZ(2),1,0)),U,13)="Y" W !!,"As specified in the 3P Site Parameters File FORCED QUEUEING is in effect!",! G QUE

 G BEGIN

QUE K IO("Q") I IO=IO(0) W !,"Cannot Queue to Screen or Slave Printer!",! G ZIS

 S ZTRTN="ENT^ABMDEERL",ZTDESC="3P BILLING CLAIM DATA ERROR DISPLAY" F ABM="ZTRTN","ZTDESC","ABMP(" S ZTSAVE(ABM)=""

 F ABM="IO","IOBS","IOF","IOM","ION","IOPAR","IOSL","IOST","IOST(","IOT" S ZTSAVE(ABM)=""

 D ^%ZTLOAD

 D ^%ZISC

 G CLM2

 ;

ENT ;TaskMan Entry Point

 S IOP=ABMP("IOP")_";80" D ^%ZIS U IO

 S ABMD("QUEON")="",ABMP("QUEON")=""

BEGIN S ABMD("CTR")=0

 U IO

 D ^ABMDEVAR

 S ABMP("ERROR LIST")=""

 S ABMP("GL")="^ABMDCLM(DUZ(2),"_ABMP("CDFN")_","

 D ERRIN^ABMDECK

 I IO'=IO(0)!($E(IOST)'="C") W $$EN^ABMVDF("IOF")

 D ^%ZISC

 I '$D(ABMP("QUEON")) G CLM

 ;

XIT K ABMP,ABM,ABMD,POP,ZTSK,DIRUT,DTOUT,IO("Q"),DIR,DIRUT,DIQ

 Q

ABMDEERL  ; IHS/ASDST/DMJ - Error Claim Data Display ;  

 +1       ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 +2       ;

 +3        IF '$DATA(IO)

               IF '$DATA(IOF)

                   IF '$DATA(IOST)

                       SET IOP="HOME"

                       DO ^%ZIS

CLM       ;

CLM2       KILL ABM,ABMP

           WRITE !!

           KILL %P,DIR,DIC

           SET DIR("A")="Select CLAIM or PATIENT"

           SET DIR(0)="FO^1:30"

           SET DIR("?")="Enter the Claim Data Number or the Patient's Name"

           DO ^DIR

           KILL DIR

 +1        IF $DATA(DIRUT)

               GOTO XIT

 +2        KILL ABMP("MULT")

CLMD       SET DIC="^ABMDCLM(DUZ(2),"

           SET DIC(0)="ZIE"

           DO ^DIC

           KILL DIC

 +1        IF +Y>0

               SET ABMP("CDFN")=+Y

 +2        IF +Y<1

               GOTO CLM2

           SET ABMP("CDFN")=+Y

DFN        SET ABMP("PDFN")=$PIECE(^ABMDCLM(DUZ(2),ABMP("CDFN"),0),U,1)

           SET ABMP("VTYP")=$PIECE(^(0),U,7)

 +1        SET ABMP("BLK")=""

           SET (ABMP("REVON"),ABMP("REVOF"),ABMP("HI"),ABMP("NI"))="ABMP(""BLK"")"

 +2       ;

EXT        KILL ABMD

 +1        SET ABMP("PG")=0

           SET U="^"

           SET ABMP("HEAD2")="CLAIM DATA ERRORS"

ZIS        WRITE !!

           SET %ZIS("A")="Output DEVICE: "

           SET %ZIS="QNP"

           SET %ZIS("B")=""

           DO ^%ZIS

           IF POP

               GOTO XIT

 +1        SET ABMP("IOP")=ION

           IF $DATA(IO("Q"))

               GOTO QUE

 +2        IF IO'=IO(0)

               IF $EXTRACT(IOST)'="C"

                   IF '$DATA(IO("S"))

                       IF $PIECE($GET(^ABMDPARM(DUZ(2),1,0)),U,13)="Y"

                           WRITE !!,"As specified in the 3P Site Parameters File FORCED QUEUEING is in effect!",!

                           GOTO QUE

 +3        GOTO BEGIN

QUE        KILL IO("Q")

           IF IO=IO(0)

               WRITE !,"Cannot Queue to Screen or Slave Printer!",!

               GOTO ZIS

 +1        SET ZTRTN="ENT^ABMDEERL"

           SET ZTDESC="3P BILLING CLAIM DATA ERROR DISPLAY"

           FOR ABM="ZTRTN","ZTDESC","ABMP("

               SET ZTSAVE(ABM)=""

 +2        FOR ABM="IO","IOBS","IOF","IOM","ION","IOPAR","IOSL","IOST","IOST(","IOT"

               SET ZTSAVE(ABM)=""

 +3        DO ^%ZTLOAD

 +4        DO ^%ZISC

 +5        GOTO CLM2

 +6       ;

ENT       ;TaskMan Entry Point

 +1        SET IOP=ABMP("IOP")_";80"

           DO ^%ZIS

           USE IO

 +2        SET ABMD("QUEON")=""

           SET ABMP("QUEON")=""

BEGIN      SET ABMD("CTR")=0

 +1        USE IO

 +2        DO ^ABMDEVAR

 +3        SET ABMP("ERROR LIST")=""

 +4        SET ABMP("GL")="^ABMDCLM(DUZ(2),"_ABMP("CDFN")_","

 +5        DO ERRIN^ABMDECK

 +6        IF IO'=IO(0)!($EXTRACT(IOST)'="C")

               WRITE $$EN^ABMVDF("IOF")

 +7        DO ^%ZISC

 +8        IF '$DATA(ABMP("QUEON"))

               GOTO CLM

 +9       ;

XIT        KILL ABMP,ABM,ABMD,POP,ZTSK,DIRUT,DTOUT,IO("Q"),DIR,DIRUT,DIQ

 +1        QUIT