Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ABMDTDR

ABMDTDR.m

Go to the documentation of this file.
  1. ABMDTDR ; IHS/ASDST/DMJ - Table Maintenance of DRUG FILE ;
  1. ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
  1. ;
  1. S U="^" W !
  1. ;
  1. EDIT W !! K DIC S DIC="^PSDRUG(",DIC("A")="Select DRUG to Edit: ",DIC(0)="QZEAM" D ^DIC K DIC
  1. G XIT:X=""!$D(DUOUT)!$D(DTOUT)
  1. I +Y<1 G EDIT
  1. S DA=+Y
  1. S DIE="^PSDRUG(",DR="W !;31NDC Number.....: " D ^ABMDDIE G XIT:$D(ABM("DIE-FAIL"))
  1. W ! I $P($G(^PSDRUG(DA,660)),U,8)]"" W !?5,"(Units: ",$P(^(660),U,8),")"
  1. S DR="16Price Per Dispense Unit..: " D ^ABMDDIE G XIT:$D(ABM("DIE-FAIL"))
  1. I X S DR="13////"_(X*$P($G(^PSDRUG(DA,660)),U,5)) D ^ABMDDIE
  1. G EDIT
  1. ;
  1. XIT K DIR,DIC,DIE
  1. Q