ABMDTSUP.m

ABMDTSUP ; IHS/ASDST/DMJ - ADD, EDIT SUPPLY FILE ;

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

START ;START

 W !

 S DIC="^ABMCM(",DIC(0)="AEMQL" D ^DIC

EDIT ;EDIT EXISTING ENTRY

 Q:+Y<0  S DA=+Y

 S DIE=DIC

 S DR=".01:.05"

 D ^DIE

 Q

ABMDTSUP  ; IHS/ASDST/DMJ - ADD, EDIT SUPPLY FILE ;

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

START     ;START

 +1        WRITE !

 +2        SET DIC="^ABMCM("

           SET DIC(0)="AEMQL"

           DO ^DIC

EDIT      ;EDIT EXISTING ENTRY

 +1        IF +Y<0

               QUIT 

           SET DA=+Y

 +2        SET DIE=DIC

 +3        SET DR=".01:.05"

 +4        DO ^DIE

 +5        QUIT