- 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