Last change
on this file since 1540 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
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.