ABMURREC.m

ABMURREC ; IHS/SD/SDR - 3PB/UFMS Resend transaction (bill) Option   

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

 ;

 ; New routine - v2.5 p12 SDD item 4.9.2.5

 Q

SEL W !!

 K DIC

 S DIC="^ABMDBILL(DUZ(2),"

 S DIC(0)="QZEAM"

 S ABMY=$G(ABMY)+1

 S ABM("E")=$E(ABMY,$L(ABMY))

 S DIC("A")="Select "_ABMY_$S(ABMY>3&(ABMY<21):"th",ABM("E")=1:"st",ABM("E")=2:"nd",ABM("E")=3:"rd",1:"th")_" BILL to Re-Send: "

 S DIC("S")="I $P(^(0),U)'=+^(0),""ABTCP""[$P(^(0),""^"",4)"

 D BENT^ABMDBDIC

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

 I '$G(ABMP("BDFN")) G QUE:ABMY>1,XIT

 D CKMULT

 I '$G(ABMP("BDFN")) S ABMY=ABMY-1 G SEL

 S ABMY(ABMP("BDFN"))=""

 G SEL

 Q

XIT ;

 D WTOT^ABMDFUTL:$G(ABMY("TOT"))

 K ABMP,ABMY,DIQ

 Q

CKMULT ; check 69 mult. if bill has been transmitted all ready (msg/don't send if not)

 S ABMTFLG=$$TRANSMIT^ABMUEAPI(DUZ(2),+Y)

 I ABMTFLG=0 D

 .W !!?3,"This bill has not been transmitted before so it can't be resent!"

 .W !?3,"Please select another bill for retransmission."

 .S ABMPINS=$P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),0)),U,8)

 .S ABMPITYP=$P($G(^AUTNINS(ABMPINS,2)),U)

 .I ABMPITYP="I"!(ABMPITYP="T") W !!?3,"Also note Beneficiary/Third Party Liability claims will NOT be sent to UFMS."

 .K ABMP("BDFN"),ABMPINS,ABMPITYP

 Q

QUE ; Que for resending in UFMS Cashiering Sessions file

 I $D(ABMY) W !!,"The following bills have been requeued in your session:"

 S ABM=0

 F  S ABM=$O(ABMY(ABM)) Q:+ABM=0  D

 .D REQBILL^ABMUCUTL(ABM)

 .I Y>0 W !?5,$P(Y,U,2)

 S DIR(0)="E",DIR("A")="Enter RETURN to Continue" D ^DIR K DIR

 Q

ABMURREC  ; IHS/SD/SDR - 3PB/UFMS Resend transaction (bill) Option   

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

 +2       ;

 +3       ; New routine - v2.5 p12 SDD item 4.9.2.5

 +4        QUIT 

SEL        WRITE !!

 +1        KILL DIC

 +2        SET DIC="^ABMDBILL(DUZ(2),"

 +3        SET DIC(0)="QZEAM"

 +4        SET ABMY=$GET(ABMY)+1

 +5        SET ABM("E")=$EXTRACT(ABMY,$LENGTH(ABMY))

 +6        SET DIC("A")="Select "_ABMY_$SELECT(ABMY>3&(ABMY<21):"th",ABM("E")=1:"st",ABM("E")=2:"nd",ABM("E")=3:"rd",1:"th")_" BILL to Re-Send: "

 +7        SET DIC("S")="I $P(^(0),U)'=+^(0),""ABTCP""[$P(^(0),""^"",4)"

 +8        DO BENT^ABMDBDIC

 +9        IF $DATA(DUOUT)!$DATA(DTOUT)

               GOTO XIT

 +10       IF '$GET(ABMP("BDFN"))

               IF ABMY>1

                   GOTO QUE

               GOTO XIT

 +11       DO CKMULT

 +12       IF '$GET(ABMP("BDFN"))

               SET ABMY=ABMY-1

               GOTO SEL

 +13       SET ABMY(ABMP("BDFN"))=""

 +14       GOTO SEL

 +15       QUIT 

XIT       ;

 +1        IF $GET(ABMY("TOT"))

               DO WTOT^ABMDFUTL

 +2        KILL ABMP,ABMY,DIQ

 +3        QUIT 

CKMULT    ; check 69 mult. if bill has been transmitted all ready (msg/don't send if not)

 +1        SET ABMTFLG=$$TRANSMIT^ABMUEAPI(DUZ(2),+Y)

 +2        IF ABMTFLG=0

               Begin DoDot:1

 +3                WRITE !!?3,"This bill has not been transmitted before so it can't be resent!"

 +4                WRITE !?3,"Please select another bill for retransmission."

 +5                SET ABMPINS=$PIECE($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),0)),U,8)

 +6                SET ABMPITYP=$PIECE($GET(^AUTNINS(ABMPINS,2)),U)

 +7                IF ABMPITYP="I"!(ABMPITYP="T")

                       WRITE !!?3,"Also note Beneficiary/Third Party Liability claims will NOT be sent to UFMS."

 +8                KILL ABMP("BDFN"),ABMPINS,ABMPITYP

               End DoDot:1

 +9        QUIT 

QUE       ; Que for resending in UFMS Cashiering Sessions file

 +1        IF $DATA(ABMY)

               WRITE !!,"The following bills have been requeued in your session:"

 +2        SET ABM=0

 +3        FOR 

               SET ABM=$ORDER(ABMY(ABM))

               IF +ABM=0

                   QUIT 

               Begin DoDot:1

 +4                DO REQBILL^ABMUCUTL(ABM)

 +5                IF Y>0

                       WRITE !?5,$PIECE(Y,U,2)

               End DoDot:1

 +6        SET DIR(0)="E"

           SET DIR("A")="Enter RETURN to Continue"

           DO ^DIR

           KILL DIR

 +7        QUIT