source: WorldVistAEHR/trunk/r/PATIENT_REPRESENTATIVE-QAC/QACNGRSS.m@ 619

Last change on this file since 619 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 484 bytes
Line 
1QACNGRSS ;HISC/CEW - Enter/edit a congressional contact ;1/17/95 13:00
2 ;;2.0;Patient Representative;;07/25/1995
3ENTER 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
11QUIT K QACNM,DIC,Y,DIE,DA,DR,DLAYGO,DTOUT,DUOUT
12 Q
Note: See TracBrowser for help on using the repository browser.