QACNGRSS.m

QACNGRSS ;HISC/CEW - Enter/edit a congressional contact ;1/17/95  13:00

 ;;2.0;Patient Representative;;07/25/1995

ENTER W ! K DIC S DIC="^QA(745.4,",DLAYGO=745,DIC(0)="AELMQZ"

 S DIC("A")="Enter office or name: "

 D ^DIC K DIC G:Y'>0 QUIT

 S QACNM=+Y

 G QUIT:$D(DTOUT)!($D(DUOUT))

 L +^QA(745.4,QACNM):0 I '$T W "Try again later." G ENTER

 K DIE,DA,DR S DIE="^QA(745.4,",DR=".01;1",DA=QACNM

 D ^DIE K DIE L -^QA(745.4,QACNM) G ENTER

QUIT K QACNM,DIC,Y,DIE,DA,DR,DLAYGO,DTOUT,DUOUT

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---QACNGRSS   496     printed  Jan 14, 2021@17:15:48                                                                                                                                                                                                     Page 2

QACNGRSS  ;HISC/CEW - Enter/edit a congressional contact ;1/17/95  13:00

 +1       ;;2.0;Patient Representative;;07/25/1995

ENTER      WRITE !

           KILL DIC

           SET DIC="^QA(745.4,"

           SET DLAYGO=745

           SET DIC(0)="AELMQZ"

 +1        SET DIC("A")="Enter office or name: "

 +2        DO ^DIC

           KILL DIC

           if Y'>0

               GOTO QUIT

 +3        SET QACNM=+Y

 +4        if $DATA(DTOUT)!($DATA(DUOUT))

               GOTO QUIT

 +5        LOCK +^QA(745.4,QACNM):0

           IF '$TEST

               WRITE "Try again later."

               GOTO ENTER

 +6        KILL DIE,DA,DR

           SET DIE="^QA(745.4,"

           SET DR=".01;1"

           SET DA=QACNM

 +7        DO ^DIE

           KILL DIE

           LOCK -^QA(745.4,QACNM)

           GOTO ENTER

QUIT       KILL QACNM,DIC,Y,DIE,DA,DR,DLAYGO,DTOUT,DUOUT

 +1        QUIT