ABMDTDR.m

ABMDTDR ; IHS/ASDST/DMJ - Table Maintenance of DRUG FILE ;

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

 ;

 S U="^" W !

 ;

EDIT W !! K DIC S DIC="^PSDRUG(",DIC("A")="Select DRUG 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="^PSDRUG(",DR="W !;31NDC Number.....: " D ^ABMDDIE G XIT:$D(ABM("DIE-FAIL"))

 W ! I $P($G(^PSDRUG(DA,660)),U,8)]"" W !?5,"(Units: ",$P(^(660),U,8),")"

 S DR="16Price Per Dispense Unit..: " D ^ABMDDIE G XIT:$D(ABM("DIE-FAIL"))

 I X S DR="13////"_(X*$P($G(^PSDRUG(DA,660)),U,5)) D ^ABMDDIE

 G EDIT

 ;

XIT K DIR,DIC,DIE

 Q

ABMDTDR   ; IHS/ASDST/DMJ - Table Maintenance of DRUG FILE ;

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

 +2       ;

 +3        SET U="^"

           WRITE !

 +4       ;

EDIT       WRITE !!

           KILL DIC

           SET DIC="^PSDRUG("

           SET DIC("A")="Select DRUG 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="^PSDRUG("

           SET DR="W !;31NDC Number.....: "

           DO ^ABMDDIE

           IF $DATA(ABM("DIE-FAIL"))

               GOTO XIT

 +5        WRITE !

           IF $PIECE($GET(^PSDRUG(DA,660)),U,8)]""

               WRITE !?5,"(Units: ",$PIECE(^(660),U,8),")"

 +6        SET DR="16Price Per Dispense Unit..: "

           DO ^ABMDDIE

           IF $DATA(ABM("DIE-FAIL"))

               GOTO XIT

 +7        IF X

               SET DR="13////"_(X*$PIECE($GET(^PSDRUG(DA,660)),U,5))

               DO ^ABMDDIE

 +8        GOTO EDIT

 +9       ;

XIT        KILL DIR,DIC,DIE

 +1        QUIT