Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
484 bytes
|
Rev | Line | |
---|
[628] | 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.