ABMDRDE.m

ABMDRDE ; IHS/ASDST/DMJ - Detailed Claim Data Display ;  

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

 ;Original;TMD;09/21/95 12:47 PM

 ;

CLM ;

 K ABM,ABMP,ABMD,ABMM

 D MULT^ABMDEDIC

 G XIT:$D(DTOUT)!$D(DUOUT)!'$D(ABMM)

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

 ;

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

 I IO'=IO(0) D QUE,HOME^%ZIS Q

 I $D(IO("S")) S IOP=ION D ^%ZIS

 G BEGIN

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

 S ZTRTN="ENT^ABMDRDE",ZTDESC="3P BILLING CLAIM DATA DETAILED DISPLAY" F ABM="ZTRTN","ZTDESC","ABMM(" S ZTSAVE(ABM)=""

 D ^%ZTLOAD

TSK I $D(ZTSK) W !,"(Job Queued, Task Number: ",ZTSK,")"

 Q

 ;

ENT ;TaskMan Entry Point

 S ABMD("QUEON")=""

BEGIN U IO

 S ABMQUIET=1

 S ABMP("DERP OPT")=1      ;IHS/PIMC/JLG  12/16/99; Flag for other rtns

 S ABMM="" F  S ABMM=$O(ABMM(ABMM)) Q:'ABMM  D  Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)!$D(DIRUT)!$D(DIROUT)

 .S ABMP("CDFN")=ABMM,ABMP("SCRN")=1,ABMP("RTN")="^ABMDE1"

 .S ABMD("CTR")=0,ABMP("DDL")=""

 .S ABMP("GL")="^ABMPCLM("_ABMP("CDFN")_","

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

 .S ABMP("DERP OPT")=1      ;IHS/PIMC/JLG  1/21/00; Flag for other rtns

 .D ^ABMDEVAR

 .D SCRN^ABMDE

 .I '$D(IO("S")),'$D(ABMD("QUEON")),$E(IOST)="C",'$D(DUOUT),'$D(DTOUT),'$D(DIRUT) K DIR S DIR(0)="E" D ^DIR K DIR

 D POUT^ABMDRUTL

 I $D(IO("S")) D ^%ZISC

 ;

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

 Q

ABMDRDE   ; IHS/ASDST/DMJ - Detailed Claim Data Display ;  

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

 +2       ;Original;TMD;09/21/95 12:47 PM

 +3       ;

CLM       ;

 +1        KILL ABM,ABMP,ABMD,ABMM

 +2        DO MULT^ABMDEDIC

 +3        IF $DATA(DTOUT)!$DATA(DUOUT)!'$DATA(ABMM)

               GOTO XIT

 +4        SET ABMP("PG")=0

           SET U="^"

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

 +5       ;

ZIS        WRITE !!

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

           SET %ZIS="NQ"

           DO ^%ZIS

           IF POP

               GOTO XIT

 +1        IF IO'=IO(0)

               DO QUE

               DO HOME^%ZIS

               QUIT 

 +2        IF $DATA(IO("S"))

               SET IOP=ION

               DO ^%ZIS

 +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^ABMDRDE"

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

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

               SET ZTSAVE(ABM)=""

 +2        DO ^%ZTLOAD

TSK        IF $DATA(ZTSK)

               WRITE !,"(Job Queued, Task Number: ",ZTSK,")"

 +1        QUIT 

 +2       ;

ENT       ;TaskMan Entry Point

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

BEGIN      USE IO

 +1        SET ABMQUIET=1

 +2       ;IHS/PIMC/JLG  12/16/99; Flag for other rtns

           SET ABMP("DERP OPT")=1

 +3        SET ABMM=""

           FOR 

               SET ABMM=$ORDER(ABMM(ABMM))

               IF 'ABMM

                   QUIT 

               Begin DoDot:1

 +4                SET ABMP("CDFN")=ABMM

                   SET ABMP("SCRN")=1

                   SET ABMP("RTN")="^ABMDE1"

 +5                SET ABMD("CTR")=0

                   SET ABMP("DDL")=""

 +6                SET ABMP("GL")="^ABMPCLM("_ABMP("CDFN")_","

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

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

 +8       ;IHS/PIMC/JLG  1/21/00; Flag for other rtns

                   SET ABMP("DERP OPT")=1

 +9                DO ^ABMDEVAR

 +10               DO SCRN^ABMDE

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

                       IF '$DATA(ABMD("QUEON"))

                           IF $EXTRACT(IOST)="C"

                               IF '$DATA(DUOUT)

                                   IF '$DATA(DTOUT)

                                       IF '$DATA(DIRUT)

                                           KILL DIR

                                           SET DIR(0)="E"

                                           DO ^DIR

                                           KILL DIR

               End DoDot:1

               IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)!$DATA(DIRUT)!$DATA(DIROUT)

                   QUIT 

 +12       DO POUT^ABMDRUTL

 +13       IF $DATA(IO("S"))

               DO ^%ZISC

 +14      ;

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

 +1        QUIT