AGTMEMPL.m

AGTMEMPL ; IHS/ASDS/EFG - Table Maintenance of EMPLOYER FILE ; 

 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 ;

 S U="^"

 W !

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....:" D ^DIE K DR

 G EDIT

XIT K AG,DIR,DIC,DIE

 Q

AGTMEMPL  ; IHS/ASDS/EFG - Table Maintenance of EMPLOYER FILE ; 

 +1       ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 +2       ;

 +3        SET U="^"

 +4        WRITE !

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....:"

           DO ^DIE

           KILL DR

 +5        GOTO EDIT

XIT        KILL AG,DIR,DIC,DIE

 +1        QUIT