- ABMDRTX ; IHS/ASDST/DMJ - Transmittal Report ;
- ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
- ;Original;TMD;
- ;
- K ABM
- S ABM("PRIVACY")=1
- S ABM("SUBR")="ABM-TX2" K ^TMP("ABM-TX2",$J)
- SELB W ! K DIR S DIR(0)="YO",DIR("A")="List BILLS for all EXPORT BATCHES that havn't been Previously Printed",DIR("B")="Y"
- S DIR("?")="Answer 'YES' if it is desired to print a Transmittal List that contains all bills associated with the Export Batches which have not been previously printed." D ^DIR K DIR
- G XIT:$D(DIRUT)
- G SELBE:'Y
- S DA=0 F S DA=$O(^ABMDTXST(DUZ(2),"AT",1,DA)) Q:'DA D
- .Q:'$D(^ABMDTXST(DUZ(2),DA,0))
- .S DIE="^ABMDTXST(DUZ(2),",DR=".08///@" D ^ABMDDIE Q:$D(ABM("DIE-FAIL"))
- .S ABM("DFN",DA)="",ABM("DT")=$P(^ABMDTXST(DUZ(2),DA,0),U)
- I '$O(ABM("DFN","")) W !!,*7,"*** A Transmittal List has already been Printed for all Export Batches! ***",! K DIR S DIR(0)="E" D ^DIR G XIT
- G TYP
- ;
- SELBE W !! K DIC S ABM("C")=0,DIC="^ABMDTXST(DUZ(2),",DIC(0)="QEAM",ABM("M")=1
- SELBO S ABM("E")=$E(ABM("M"),$L(ABM("M"))),DIC("A")="Select "_ABM("M")_$S(ABM("M")>3&(ABM("M")<21):"th",ABM("E")=1:"st",ABM("E")=2:"nd",ABM("E")=3:"rd",1:"th")_" EXPORT BATCH (NUMBER or DATE): " D ^DIC
- Q:$D(DUOUT)!$D(DTOUT) G TYP:X=""
- I +Y<1 G SELBO
- S ABM("M")=ABM("M")+1
- S ABM("DFN",+Y)="",ABM("DT")=$P(^ABMDTXST(DUZ(2),+Y,0),U)
- G SELBO
- ;
- TYP W !!,"AVAILABLE REPORTS:",!,"=================="
- K DIR S DIR(0)="S^1:Sorted by LOCATION/VISIT TYPE;2:Separated by INSURER for attachment to COVER LETTERS",DIR("A")="Select desired REPORT TYPE" D ^DIR K DIR
- G XIT:$D(DIRUT)
- S ABM("RTN")=+Y
- ;
- D ZIS^ABMDRUTL
- G:'$D(IO)!$G(POP) XIT
- G @("^ABMDRTX"_ABM("RTN"))
- ;
- XIT K ABM
- Q
- ABMDRTX ; IHS/ASDST/DMJ - Transmittal Report ;
- +1 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
- +2 ;Original;TMD;
- +3 ;
- +4 KILL ABM
- +5 SET ABM("PRIVACY")=1
- +6 SET ABM("SUBR")="ABM-TX2"
- KILL ^TMP("ABM-TX2",$JOB)
- SELB WRITE !
- KILL DIR
- SET DIR(0)="YO"
- SET DIR("A")="List BILLS for all EXPORT BATCHES that havn't been Previously Printed"
- SET DIR("B")="Y"
- +1 SET DIR("?")="Answer 'YES' if it is desired to print a Transmittal List that contains all bills associated with the Export Batches which have not been previously printed."
- DO ^DIR
- KILL DIR
- +2 IF $DATA(DIRUT)
- GOTO XIT
- +3 IF 'Y
- GOTO SELBE
- +4 SET DA=0
- FOR
- SET DA=$ORDER(^ABMDTXST(DUZ(2),"AT",1,DA))
- IF 'DA
- QUIT
- Begin DoDot:1
- +5 IF '$DATA(^ABMDTXST(DUZ(2),DA,0))
- QUIT
- +6 SET DIE="^ABMDTXST(DUZ(2),"
- SET DR=".08///@"
- DO ^ABMDDIE
- IF $DATA(ABM("DIE-FAIL"))
- QUIT
- +7 SET ABM("DFN",DA)=""
- SET ABM("DT")=$PIECE(^ABMDTXST(DUZ(2),DA,0),U)
- End DoDot:1
- +8 IF '$ORDER(ABM("DFN",""))
- WRITE !!,*7,"*** A Transmittal List has already been Printed for all Export Batches! ***",!
- KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- GOTO XIT
- +9 GOTO TYP
- +10 ;
- SELBE WRITE !!
- KILL DIC
- SET ABM("C")=0
- SET DIC="^ABMDTXST(DUZ(2),"
- SET DIC(0)="QEAM"
- SET ABM("M")=1
- SELBO SET ABM("E")=$EXTRACT(ABM("M"),$LENGTH(ABM("M")))
- SET DIC("A")="Select "_ABM("M")_$SELECT(ABM("M")>3&(ABM("M")<21):"th",ABM("E")=1:"st",ABM("E")=2:"nd",ABM("E")=3:"rd",1:"th")_" EXPORT BATCH (NUMBER or DATE): "
- DO ^DIC
- +1 IF $DATA(DUOUT)!$DATA(DTOUT)
- QUIT
- IF X=""
- GOTO TYP
- +2 IF +Y<1
- GOTO SELBO
- +3 SET ABM("M")=ABM("M")+1
- +4 SET ABM("DFN",+Y)=""
- SET ABM("DT")=$PIECE(^ABMDTXST(DUZ(2),+Y,0),U)
- +5 GOTO SELBO
- +6 ;
- TYP WRITE !!,"AVAILABLE REPORTS:",!,"=================="
- +1 KILL DIR
- SET DIR(0)="S^1:Sorted by LOCATION/VISIT TYPE;2:Separated by INSURER for attachment to COVER LETTERS"
- SET DIR("A")="Select desired REPORT TYPE"
- DO ^DIR
- KILL DIR
- +2 IF $DATA(DIRUT)
- GOTO XIT
- +3 SET ABM("RTN")=+Y
- +4 ;
- +5 DO ZIS^ABMDRUTL
- +6 IF '$DATA(IO)!$GET(POP)
- GOTO XIT
- +7 GOTO @("^ABMDRTX"_ABM("RTN"))
- +8 ;
- XIT KILL ABM
- +1 QUIT
