ABMDTREV.m

ABMDTREV ; IHS/ASDST/DMJ - Table Maintenance of REVENUE CODES ;

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

 ;

 S U="^" W !

 ;

EDIT W !! K DIC S DIC="^AUTTREVN(",DIC("A")="Select REVENUE CODE to Edit: ",DIC(0)="QZEAM" D ^DIC K DIC

 G XIT:X=""!$D(DUOUT)!$D(DTOUT)

 I +Y<1 G EDIT

 S DA=+Y

 S DIE="^AUTTREVN(",DR="W !;2T;4T" D ^ABMDDIE K DR

 G EDIT

 ;

XIT K ABM,DIR,DIC,DIE

 Q

ABMDTREV  ; IHS/ASDST/DMJ - Table Maintenance of REVENUE CODES ;

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

 +2       ;

 +3        SET U="^"

           WRITE !

 +4       ;

EDIT       WRITE !!

           KILL DIC

           SET DIC="^AUTTREVN("

           SET DIC("A")="Select REVENUE CODE to Edit: "

           SET DIC(0)="QZEAM"

           DO ^DIC

           KILL DIC

 +1        IF X=""!$DATA(DUOUT)!$DATA(DTOUT)

               GOTO XIT

 +2        IF +Y<1

               GOTO EDIT

 +3        SET DA=+Y

 +4        SET DIE="^AUTTREVN("

           SET DR="W !;2T;4T"

           DO ^ABMDDIE

           KILL DR

 +5        GOTO EDIT

 +6       ;

XIT        KILL ABM,DIR,DIC,DIE

 +1        QUIT