ABMURBCH.m

ABMURBCH ; IHS/SD/SDR - 3PB/UFMS Resend Batch option   

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

 ;

 ; New routine - v2.5 p12 SDD item 4.9.2.6

 ;

 Q

START ;START HERE   

 W !

 S ABMLOC=$$FINDLOC^ABMUCUTL

 S DIC("S")="I $P($G(^ABMUTXMT(Y,0)),U,4)=ABMLOC"

 S DIC="^ABMUTXMT("

 S DIC(0)="AEMQ"

 S DIC("A")="Select export date: "

 D ^DIC

 K DIC

 Q:Y<0

 S ABMP("XMIT")=+Y

 D BDISPLAY^ABMUCUTL(ABMP("XMIT"))

 W !!

 S DIR(0)="YO"

 S DIR("A")="Would you like to continue and add these bills to the next export file?"

 S DIR("B")="N"

 D ^DIR K DIR

 I +Y'=1 Q  ;do not send batch

 D REQBTCH^ABMUCUTL(ABMP("XMIT"))  ;add to user session for transmission

 S DIR(0)="E"

 D ^DIR

 K DIR

 K ABMP

 Q

ABMURBCH  ; IHS/SD/SDR - 3PB/UFMS Resend Batch option   

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

 +2       ;

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

 +4       ;

 +5        QUIT 

START     ;START HERE   

 +1        WRITE !

 +2        SET ABMLOC=$$FINDLOC^ABMUCUTL

 +3        SET DIC("S")="I $P($G(^ABMUTXMT(Y,0)),U,4)=ABMLOC"

 +4        SET DIC="^ABMUTXMT("

 +5        SET DIC(0)="AEMQ"

 +6        SET DIC("A")="Select export date: "

 +7        DO ^DIC

 +8        KILL DIC

 +9        IF Y<0

               QUIT 

 +10       SET ABMP("XMIT")=+Y

 +11       DO BDISPLAY^ABMUCUTL(ABMP("XMIT"))

 +12       WRITE !!

 +13       SET DIR(0)="YO"

 +14       SET DIR("A")="Would you like to continue and add these bills to the next export file?"

 +15       SET DIR("B")="N"

 +16       DO ^DIR

           KILL DIR

 +17      ;do not send batch

           IF +Y'=1

               QUIT 

 +18      ;add to user session for transmission

           DO REQBTCH^ABMUCUTL(ABMP("XMIT"))

 +19       SET DIR(0)="E"

 +20       DO ^DIR

 +21       KILL DIR

 +22       KILL ABMP

 +23       QUIT