|
Last change
on this file since 648 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
536 bytes
|
| Line | |
|---|
| 1 | SDLTE ;ALB/LDB - ENTER/EDIT SCHEDULING LETTERS ; 10 DEC 88 11:00 AM
|
|---|
| 2 | ;;5.3;Scheduling;;Aug 13, 1993
|
|---|
| 3 | RD S DIC=407.6,DIC("A")="SELECT TYPE OF LETTER: ",DIC(0)="AEQMZ" D ^DIC G:+Y'>0 EXIT S T=+Y S (DIC,DLAYGO)=407.5,DIC(0)="AQELM",DIC("A")="SELECT LETTER: ",DIC("S")="I $P(^(0),""^"",2)="_""""_$P(^VA(407.6,+T,0),"^")_""""
|
|---|
| 4 | S DIC("DR")="1////"_$P(^VA(407.6,+T,0),"^") D ^DIC G:Y'>0 EXIT S SDLT=+Y,DA=SDLT,DIE=407.5,DR=".01;1;2;3",DR(2,407.52)=".01",DR(2,407.53)=".01" D ^DIE G:$D(Y) EXIT D EXIT W !! G RD
|
|---|
| 5 | EXIT K DA,DIC,DIE,DR,SDLT,T,X,Y Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
