|
Last change
on this file since 1379 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
484 bytes
|
| Line | |
|---|
| 1 | QACNGRSS ;HISC/CEW - Enter/edit a congressional contact ;1/17/95 13:00
|
|---|
| 2 | ;;2.0;Patient Representative;;07/25/1995
|
|---|
| 3 | ENTER W ! K DIC S DIC="^QA(745.4,",DLAYGO=745,DIC(0)="AELMQZ"
|
|---|
| 4 | S DIC("A")="Enter office or name: "
|
|---|
| 5 | D ^DIC K DIC G:Y'>0 QUIT
|
|---|
| 6 | S QACNM=+Y
|
|---|
| 7 | G QUIT:$D(DTOUT)!($D(DUOUT))
|
|---|
| 8 | L +^QA(745.4,QACNM):0 I '$T W "Try again later." G ENTER
|
|---|
| 9 | K DIE,DA,DR S DIE="^QA(745.4,",DR=".01;1",DA=QACNM
|
|---|
| 10 | D ^DIE K DIE L -^QA(745.4,QACNM) G ENTER
|
|---|
| 11 | QUIT K QACNM,DIC,Y,DIE,DA,DR,DLAYGO,DTOUT,DUOUT
|
|---|
| 12 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
