ABMDTEMP.m

ABMDTEMP ; IHS/ASDST/DMJ - Table Maintenance of EMPLOYER FILE ;

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

 ;

 S U="^"

EDIT W !! K DIC S DIC="^AUTNEMPL(",DIC("A")="Select EMPLOYER: ",DIC(0)="QLEAM" D ^DIC K DIC

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

 I +Y<1 G EDIT

 S DA=+Y

 S DIE="^AUTNEMPL(",DR="W !;.01Employer..:;.02Street....:;.03City......:;.04State.....:;.05Zip.......:;.06Phone.....:;.07Abbrev....:;W !;.08Billing Entity for Workmen's Comp.:" D ^ABMDDIE K DR

 ;

XIT K DIR,DIC,DIE

 Q

ABMDTEMP  ; IHS/ASDST/DMJ - Table Maintenance of EMPLOYER FILE ;

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

 +2       ;

 +3        SET U="^"

EDIT       WRITE !!

           KILL DIC

           SET DIC="^AUTNEMPL("

           SET DIC("A")="Select EMPLOYER: "

           SET DIC(0)="QLEAM"

           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="^AUTNEMPL("

           SET DR="W !;.01Employer..:;.02Street....:;.03City......:;.04State.....:;.05Zip.......:;.06Phone.....:;.07Abbrev....:;W !;.08Billing Entity for Workmen's Comp.:"

           DO ^ABMDDIE

           KILL DR

 +5       ;

XIT        KILL DIR,DIC,DIE

 +1        QUIT