- 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
