- 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
