- 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